microc.fsx

#r "FsLexYacc.Runtime.dll";;
#load "Absyn.fs" "CPar.fs" "CLex.fs" "Parse.fs" "Machine.fs" "Comp.fs" ;;

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

let args = System.Environment.GetCommandLineArgs();;

let _ = printf "Micro-C Stack VM compiler v 1.0.0.1 of 2017-12-2\n";;

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"

      printf "Compiling %s to %s\n" source target
      
      try  (let instrs = compileToFile (fromFile source) target;
            printf "StackVM code:\n%A\n" instrs;
            printf "Numeric code in file:\n\t%s\n Please run with VM.\n" target;
            )
      with Failure msg -> printf "ERROR: %s\n" msg
   else
      printf "Usage: microc.exe <source file> \n";