import init.IO
import init.Lean.Ir.lirc
open Lean.Ir IO

def main : IO Unit :=
do args ← IO.cmdlineArgs;
   unless (args.length = 1) $
     IO.fail "Error: incorrect number of arguments, expected `lirc file.Lean`";
   let fname := args.head;
   input ← Fs.readFile fname;
   match lirc input {mainProc := some "main"} with
   | Except.ok r    := Fs.writeFile (fname ++ ".cpp") r
   | Except.error e := IO.fail (toString e)