microc.fs

let fromFile = Parse.fromFile
let compileToFile = Comp.compileToFile

let argv = System.Environment.GetCommandLineArgs()

let args = Array.filter ((<>) "-g") argv

let _ = printfn "Micro-C Stack VM compiler v 1.2.0 of 2021-5-12"

let _ =
    if args.Length > 1 then
        let source = args.[1]

        let stem =
            if source.EndsWith(".c") then
                source.Substring(0, source.Length - 2)
            else
                source

        let target = stem + ".out"

        printfn "Compiling %s ......\n" source

        try
            (let instrs = compileToFile (fromFile source) stem
             // printf "StackVM code:\n%A\n" instrs;
             printfn "Numeric code saved in file:\n\t%s\nPlease run with VM." target)
        with
        | Failure msg -> printfn "ERROR: %s" msg
        | exn -> printfn "ERROR: %s" exn.Message
    else
        printfn "Usage: microc.exe <source file>"