1 files changed, 91 insertions, 0 deletions
diff --git a/lib/compilers/ada.js b/lib/compilers/ada.js
new file mode 100644
index 000000000..26f4d7102
--- /dev/null
+++ b/lib/compilers/ada.js
@@ -0,0 +1,91 @@
+// Copyright (c) 2018, Mitch Kennedy
+// All rights reserved.
+//
+// Redistribution and use in source and binary forms, with or without
+// modification, are permitted provided that the following conditions are met:
+//
+//     * Redistributions of source code must retain the above copyright notice,
+//       this list of conditions and the following disclaimer.
+//     * Redistributions in binary form must reproduce the above copyright
+//       notice, this list of conditions and the following disclaimer in the
+//       documentation and/or other materials provided with the distribution.
+//
+// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+// POSSIBILITY OF SUCH DAMAGE.
+
+const BaseCompiler = require('../base-compiler'),
+    utils = require('../utils'),
+    path = require("path");
+
+class AdaCompiler extends BaseCompiler {
+    constructor(info, env) {
+        super(info, env);
+        this.supportsOptOutput = false;
+        this.compiler.supportsIntel = true;
+    }
+
+    optionsForFilter(filters, outputFilename) {
+        let options = ['compile',
+            '-g', // enable debugging
+            '-c', // Compile only
+            '-S', // Generate ASM 
+            '-fdiagnostics-color=always',
+            '-fverbose-asm', // Geneate verbose ASM showing variables
+            '-cargs', // Compiler Switches for gcc.
+            '-o', // Set the output executable name
+            outputFilename
+        ];
+        if (this.compiler.intelAsm && filters.intel && !filters.binary) {
+            options = options.concat(this.compiler.intelAsm.split(" "));
+        }
+        return options;
+    }
+
+    // I have left the overloaded preProcess method in case there is a 
+    // need to any actual pre-processing of the input.
+    // As Ada expects the outermost function name to match the source file name.
+    // The initial solution was to wrap any input in a dummy example procedure,
+    // this however restricts users from including standard library packages, as
+    // Ada mandates that 'with' clauses are placed in the context clause,
+    // which in the case of a single subprogram is outside of its declaration and body.
+    preProcess(source) {
+        return source;
+    }
+
+    runCompiler(compiler, options, inputFilename, execOptions) {
+        if (!execOptions) {
+            execOptions = this.getDefaultExecOptions();
+        }
+        // Set the working directory to be the temp directory that has been created
+        execOptions.customCwd = path.dirname(inputFilename);
+        // As the file name is always appended to the end of the options array we need to 
+        // find where the '-cargs' flag is in options. This is to allow us to set the 
+        // output as 'output.s' and not end up with 'example.s'. If the output is left
+        // as 'example.s' CE can't find it and thus you get no output.
+        let inputFileName = options.pop();
+        for (let i = 0; i < options.length; i++) {
+            if (options[i] === '-cargs') {
+                options.splice(i, 0, inputFileName);
+                break;
+            }
+        }
+        return this.exec(compiler, options, execOptions)
+            .then(result => {
+                result.inputFilename = inputFilename;
+                result.stdout = utils.parseOutput(result.stdout, inputFilename);
+                result.stderr = utils.parseOutput(result.stderr, inputFilename);
+                return result;
+            });
+    }
+}
+
+module.exports = AdaCompiler;