mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 07:04:04 -05:00
f2c1e0bd31
* The Grand Reformat - everything made prettier...literally - some tweaks to include a few more files, including documentation - minor changes to format style - some tiny `// prettier-ignore` changes to keep a few things the way we like them - a couple of super minor tweaks to embedded document types to ensure they format correctly
61 lines
2.3 KiB
JavaScript
61 lines
2.3 KiB
JavaScript
// Copyright (c) 2018, Eugen Bulavin
|
|
// 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.
|
|
|
|
import {BaseCompiler} from '../base-compiler';
|
|
|
|
import {PascalParser} from './argument-parsers';
|
|
|
|
export class OCamlCompiler extends BaseCompiler {
|
|
static get key() {
|
|
return 'ocaml';
|
|
}
|
|
|
|
constructor(compilerInfo, env) {
|
|
super(compilerInfo, env);
|
|
// override output base because ocaml's -S -o has different semantics.
|
|
// namely, it outputs a full binary exe to the supposed asm dump.
|
|
// with this override and optionsForFilter override, that pecularity..
|
|
// ..is bypassed entirely.
|
|
this.outputFilebase = 'example';
|
|
}
|
|
|
|
getSharedLibraryPathsAsArguments() {
|
|
return [];
|
|
}
|
|
|
|
optionsForFilter(filters, outputFileName) {
|
|
const options = ['-g'];
|
|
if (filters.binary) {
|
|
options.unshift('-o', outputFileName);
|
|
} else {
|
|
options.unshift('-S', '-c');
|
|
}
|
|
return options;
|
|
}
|
|
|
|
getArgumentParser() {
|
|
return PascalParser;
|
|
}
|
|
}
|