oonta 0.3.1

OCaml (subset) to LLVM IR compiler front-end
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

use std::{env, path::PathBuf, process::ExitCode};

use crate::driver::cmd::{CmdOptions, parse_arguments, print_help};
use crate::driver::compiler::{CompileOptions, compile};
use crate::utils::terminal_colors::{END, RED};

mod cmd;
mod compiler;

pub fn run() -> ExitCode {
    let cmd = match parse_arguments(env::args()) {
        Ok(cmd) => cmd,
        Err(e) => {
            eprintln!("{e}");
            return ExitCode::FAILURE;
        }
    };

    if cmd.options.contains_key(&CmdOptions::Help) {
        println!("{}", print_help());
        return ExitCode::SUCCESS;
    }

    if cmd.free_args.len() < 2 {
        eprintln!("{RED}Error{END}: no input file");
        return ExitCode::FAILURE;
    }
    if cmd.free_args.len() > 2 {
        eprintln!("{RED}Error{END}: oonta only accepts a single input file");
        return ExitCode::FAILURE;
    }
    let src_file = PathBuf::from(&cmd.free_args[1]);

    let out_file = if let Some(Some(path)) = cmd.options.get(&CmdOptions::OutputPath) {
        PathBuf::from(path)
    } else {
        src_file.with_extension("ll")
    };

    let mut compile_options = vec![];
    if cmd.options.contains_key(&CmdOptions::TopLevel) {
        compile_options.push(CompileOptions::TopLevel);
    }
    if cmd.options.contains_key(&CmdOptions::Optimize) {
        compile_options.push(CompileOptions::OptimizeIR);
    }
    if cmd.options.contains_key(&CmdOptions::Compile) {
        compile_options.push(CompileOptions::CreateObjFile);
    }
    if cmd.options.contains_key(&CmdOptions::Exec) {
        compile_options.push(CompileOptions::CreateExecutable);
    }
    if cmd.options.contains_key(&CmdOptions::Verbose) {
        compile_options.push(CompileOptions::DebugPhases);
    }

    match compile(&src_file, &out_file, &compile_options) {
        Ok(()) => ExitCode::SUCCESS,
        Err(e) => {
            eprintln!("{e}");
            ExitCode::FAILURE
        }
    }
}