diff --git a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean index 7b78323775..3fd26191a3 100644 --- a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean +++ b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean @@ -282,12 +282,10 @@ adaptExpander $ fun stx => match_syntax stx with | `(tactic| try $t) => `(tactic| $t <|> skip) | _ => throwUnsupportedSyntax -/- @[builtinTactic repeat] def evalRepeat : Tactic := adaptExpander $ fun stx => match_syntax stx with - | `(tactic| repeat $t) => `(tactic| try ($t; repeat $t)) + | `(tactic| repeat $t) => `(tactic| try (($t); repeat $t)) -- TODO: remove parens around $t | _ => throwUnsupportedSyntax --/ @[builtinTactic «assumption»] def evalAssumption : Tactic := fun stx => liftMetaTactic stx $ fun mvarId => do Meta.assumption mvarId; pure [] diff --git a/stage0/src/Init/Lean/Eval.lean b/stage0/src/Init/Lean/Eval.lean index a58779b2d8..3ef291a3bb 100644 --- a/stage0/src/Init/Lean/Eval.lean +++ b/stage0/src/Init/Lean/Eval.lean @@ -33,6 +33,6 @@ instance MetaIO.metaHasEval : MetaHasEval (MetaIO Unit) := ⟨fun env opts x => x (env, opts)⟩ instance MetaIO.monadIO : MonadIO MetaIO := -⟨fun _ x _ => x⟩ +{ monadLift := fun _ x _ => x } end Lean diff --git a/stage0/src/Init/Lean/Parser/Module.lean b/stage0/src/Init/Lean/Parser/Module.lean index fda6197cf1..aaa4ac034e 100644 --- a/stage0/src/Init/Lean/Parser/Module.lean +++ b/stage0/src/Init/Lean/Parser/Module.lean @@ -121,7 +121,7 @@ partial def parseFileAux (env : Environment) (inputCtx : InputContext) : ModuleP def parseFile (env : Environment) (fname : String) : IO Syntax := do fname ← IO.realPath fname; -contents ← IO.readTextFile fname; +contents ← IO.readFile fname; let inputCtx := mkInputContext contents fname; let (stx, state, messages) := parseHeader env inputCtx; parseFileAux env inputCtx state messages #[stx] diff --git a/stage0/src/Init/System/IO.lean b/stage0/src/Init/System/IO.lean index 92dffbaa5c..847394aa04 100644 --- a/stage0/src/Init/System/IO.lean +++ b/stage0/src/Init/System/IO.lean @@ -5,6 +5,7 @@ Authors: Luke Nelson, Jared Roesch, Leonardo de Moura, Sebastian Ullrich -/ prelude import Init.Control.EState +import Init.Control.Reader import Init.Data.String.Basic import Init.Data.ByteArray import Init.System.IOError @@ -67,7 +68,18 @@ constant allocprof {α : Type} (msg : @& String) (fn : IO α) : IO α := arbitra @[extern "lean_io_initializing"] constant IO.initializing : IO Bool := arbitrary _ -abbrev MonadIO (m : Type → Type) := HasMonadLiftT IO m +class MonadIO (m : Type → Type) extends HasMonadLiftT IO m, MonadExcept IO.Error m + +instance : MonadIO IO := { } + +instance ExceptT.monadFail (m : Type → Type) [Monad m] [MonadExcept IO.Error m] : MonadFail m := +⟨fun _ => throw ∘ IO.userError⟩ + +/- Omitted instances of MonadIO: OptionT, ExceptT and EStateT. The possibility for +errors introduces the risk that `withStdout` will not restore the previous handle when +an error is returned in the topmost monad. -/ +instance ReaderT.monadIO {ρ} (m : Type → Type) [Monad m] [MonadIO m] : MonadIO (ReaderT ρ m) := { } +instance StateT.monadIO {σ} (m : Type → Type) [Monad m] [MonadIO m] : MonadIO (StateT σ m) := { } namespace IO @@ -87,6 +99,20 @@ constant FS.Handle : Type := Unit namespace Prim open FS +@[extern "lean_get_stdin"] +constant getStdin : IO FS.Handle := arbitrary _ +@[extern "lean_get_stderr"] +constant getStderr : IO FS.Handle := arbitrary _ +@[extern "lean_get_stdout"] +constant getStdout : IO FS.Handle := arbitrary _ + +@[extern "lean_get_set_stdin"] +constant setStdin : FS.Handle → IO FS.Handle := arbitrary _ +@[extern "lean_get_set_stderr"] +constant setStderr : FS.Handle → IO FS.Handle := arbitrary _ +@[extern "lean_get_set_stdout"] +constant setStdout : FS.Handle → IO FS.Handle := arbitrary _ + @[specialize] partial def iterate {α β : Type} : α → (α → IO (Sum α β)) → IO β | a, f => do v ← f a; @@ -105,12 +131,6 @@ let mode := let bin := if b then "b" else "t"; mode ++ bin -@[extern "lean_io_prim_put_str"] -constant putStr (s: @& String) : IO Unit := arbitrary _ -@[extern "lean_io_prim_read_text_file"] -constant readTextFile (s : @& String) : IO String := arbitrary _ -@[extern "lean_io_prim_get_line"] -constant getLine : IO String := arbitrary _ @[extern "lean_io_prim_handle_mk"] constant Handle.mk (s : @& String) (mode : @& String) : IO Handle := arbitrary _ @[extern "lean_io_prim_handle_is_eof"] @@ -148,27 +168,6 @@ constant appPath : IO String := arbitrary _ monadLift x end Prim -section -variables {m : Type → Type} [Monad m] [MonadIO m] - -private def putStr : String → m Unit := -Prim.liftIO ∘ Prim.putStr - -def print {α} [HasToString α] (s : α) : m Unit := putStr ∘ toString $ s -def println {α} [HasToString α] (s : α) : m Unit := print s *> putStr "\n" -def readTextFile : String → m String := Prim.liftIO ∘ Prim.readTextFile -def getEnv : String → m (Option String) := Prim.liftIO ∘ Prim.getEnv -def realPath : String → m String := Prim.liftIO ∘ Prim.realPath -def isDir : String → m Bool := Prim.liftIO ∘ Prim.isDir -def fileExists : String → m Bool := Prim.liftIO ∘ Prim.fileExists -def appPath : m String := Prim.liftIO Prim.appPath - -def appDir : m String := do -p ← appPath; -realPath (System.FilePath.dirName p) - -end - namespace FS variables {m : Type → Type} [Monad m] [MonadIO m] @@ -176,8 +175,8 @@ def Handle.mk (s : String) (Mode : Mode) (bin : Bool := false) : m Handle := Prim.liftIO (Prim.Handle.mk s (Prim.fopenFlags Mode bin)) @[inline] -def withFile {α} (fn : String) (m : Mode) (f : Handle → IO α) : IO α := -Handle.mk fn m >>= f +def withFile {α} (fn : String) (mode : Mode) (f : Handle → m α) : m α := +Handle.mk fn mode >>= f /-- returns whether the end of the file has been reached while reading a file. `h.isEof` returns true /after/ the first attempt at reading past the end of `h`. @@ -208,16 +207,66 @@ Prim.liftIO $ Prim.iterate "" $ fun r => do c ← h.getLine; pure $ Sum.inl (r ++ c) -- continue +end FS + +section +variables {m : Type → Type} [Monad m] [MonadIO m] + +def getStdout : m FS.Handle := +Prim.liftIO Prim.getStdout + +def getStderr : m FS.Handle := +Prim.liftIO Prim.getStderr + +def getStdin : m FS.Handle := +Prim.liftIO Prim.getStdin + +/- replaces the stdout handle and returns its previous value -/ +def setStdout : FS.Handle → m FS.Handle := +Prim.liftIO ∘ Prim.setStdout + +/- see `setStdout` -/ +def setStderr : FS.Handle → m FS.Handle := +Prim.liftIO ∘ Prim.setStderr + +/- see `setStdout` -/ +def setStdin : FS.Handle → m FS.Handle := +Prim.liftIO ∘ Prim.setStdin + +def withStderr {α} (h : FS.Handle) (x : m α) : m α := do +prev ← setStderr h; +finally x (setStderr prev) + +def withStdout {α} (h : FS.Handle) (x : m α) : m α := do +prev ← setStdout h; +finally x (setStdout prev) + +def withStdin {α} (h : FS.Handle) (x : m α) : m α := do +prev ← setStdin h; +finally x (setStdin prev) + +private def putStr (s : String) : m Unit := do +out ← getStdout; +out.putStr s + +def print {α} [HasToString α] (s : α) : m Unit := putStr ∘ toString $ s +def println {α} [HasToString α] (s : α) : m Unit := print s *> putStr "\n" +def getEnv : String → m (Option String) := Prim.liftIO ∘ Prim.getEnv +def realPath : String → m String := Prim.liftIO ∘ Prim.realPath +def isDir : String → m Bool := Prim.liftIO ∘ Prim.isDir +def fileExists : String → m Bool := Prim.liftIO ∘ Prim.fileExists +def appPath : m String := Prim.liftIO Prim.appPath + +def appDir : m String := do +p ← appPath; +realPath (System.FilePath.dirName p) + def readFile (fname : String) (bin := false) : m String := do -h ← Handle.mk fname Mode.read bin; +h ← FS.Handle.mk fname Mode.read bin; r ← h.readToEnd; pure r -end FS - --- constant stdin : IO FS.Handle --- constant stderr : IO FS.Handle --- constant stdout : IO FS.Handle +end /- namespace Proc @@ -311,7 +360,7 @@ class HasEval (α : Type u) := (eval : α → IO Unit) instance HasRepr.HasEval {α : Type u} [HasRepr α] : HasEval α := -⟨fun a => IO.println (repr a)⟩ +⟨fun a => IO.print (repr a)⟩ instance IO.HasEval {α : Type} [HasEval α] : HasEval (IO α) := ⟨fun x => do a ← x; HasEval.eval a⟩ diff --git a/stage0/src/runtime/io.cpp b/stage0/src/runtime/io.cpp index d75c4dd061..b6e2cefa98 100644 --- a/stage0/src/runtime/io.cpp +++ b/stage0/src/runtime/io.cpp @@ -123,15 +123,6 @@ extern "C" obj_res lean_io_initializing(obj_arg) { return set_io_result(box(g_initializing)); } -extern "C" obj_res lean_io_prim_put_str(b_obj_arg s, obj_arg) { - std::cout << string_to_std(s); // TODO(Leo): use out handle - return set_io_result(box(0)); -} - -extern "C" obj_res lean_io_prim_get_line(obj_arg /* w */) { - // not implemented yet - lean_unreachable(); -} static lean_external_class * g_io_handle_external_class = nullptr; @@ -146,6 +137,58 @@ static lean_object * io_wrap_handle(FILE *hfile) { return lean_alloc_external(g_io_handle_external_class, hfile); } +static object * g_handle_stdout = nullptr; +static object * g_handle_stderr = nullptr; +static object * g_handle_stdin = nullptr; +MK_THREAD_LOCAL_GET(object *, get_handle_current_stdout, g_handle_stdout); +MK_THREAD_LOCAL_GET(object *, get_handle_current_stderr, g_handle_stderr); +MK_THREAD_LOCAL_GET(object *, get_handle_current_stdin, g_handle_stdin); + +/* getStdout : IO FS.Handle */ +extern "C" obj_res lean_get_stdout(obj_arg /* w */) { + object * r = get_handle_current_stdout(); + inc_ref(r); + return set_io_result(r); +} + +/* getStderr : IO FS.Handle */ +extern "C" obj_res lean_get_stderr(obj_arg /* w */) { + object * r = get_handle_current_stderr(); + inc_ref(r); + return set_io_result(r); +} + +/* getStdin : IO FS.Handle */ +extern "C" obj_res lean_get_stdin(obj_arg /* w */) { + object * r = get_handle_current_stdin(); + inc_ref(r); + return set_io_result(r); +} + +/* setStdout : FS.Handle -> IO FS.Handle */ +extern "C" obj_res lean_get_set_stdout(obj_arg h, obj_arg /* w */) { + object * & x = get_handle_current_stdout(); + object * r = x; + x = h; + return set_io_result(r); +} + +/* setStderr : FS.Handle -> IO FS.Handle */ +extern "C" obj_res lean_get_set_stderr(obj_arg h, obj_arg /* w */) { + object * & x = get_handle_current_stderr(); + object * r = x; + x = h; + return set_io_result(r); +} + +/* setStdin : FS.Handle -> IO FS.Handle */ +extern "C" obj_res lean_get_set_stdin(obj_arg h, obj_arg /* w */) { + object * & x = get_handle_current_stdin(); + object * r = x; + x = h; + return set_io_result(r); +} + static FILE * io_get_handle(lean_object * hfile) { return static_cast(lean_get_external_data(hfile)); } @@ -355,7 +398,7 @@ obj_res lean_get_line(FILE * fp) { } } -/* Handle.getLine : (@& Handle) → IO Unit */ +/* Handle.getLine : (@& Handle) → IO Unit */ /* The line returned by `lean_io_prim_handle_get_line` */ /* is truncated at the first '\0' character and the */ /* rest of the line is discarded. */ @@ -614,8 +657,14 @@ extern "C" obj_res lean_io_ref_ptr_eq(b_obj_arg ref1, b_obj_arg ref2, obj_arg) { void initialize_io() { g_io_error_nullptr_read = mk_string("null reference read"); - mark_persistent(g_io_error_nullptr_read); g_io_handle_external_class = lean_register_external_class(io_handle_finalizer, io_handle_foreach); + g_handle_stdout = io_wrap_handle(stdout); + g_handle_stderr = io_wrap_handle(stderr); + g_handle_stdin = io_wrap_handle(stdin); + mark_persistent(g_handle_stdout); + mark_persistent(g_handle_stderr); + mark_persistent(g_handle_stdin); + mark_persistent(g_io_error_nullptr_read); } void finalize_io() { diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c b/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c index 26cc405413..2bc0c94db0 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c @@ -168,6 +168,7 @@ lean_object* l_Lean_IR_EmitC_main(lean_object*, lean_object*); extern lean_object* l_Char_quoteCore___closed__2; lean_object* l_Lean_IR_EmitC_emit___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_IR_Arg_Inhabited; +extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_Lean_IR_EmitC_emitMainFn___closed__4; lean_object* l_Lean_IR_EmitC_emitIf(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_IR_EmitC_emitReset(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -263,7 +264,6 @@ lean_object* l_Lean_IR_EmitC_emitSProj___closed__3; extern lean_object* l_List_reprAux___main___rarg___closed__1; extern lean_object* l_Lean_IR_formatFnBody___main___closed__1; lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__21; -extern lean_object* l_IO_println___rarg___closed__1; lean_object* l_Lean_IR_EmitC_toCName(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_IR_EmitC_emitInitFn___closed__7; lean_object* l_Lean_IR_EmitC_emitFullApp___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -729,7 +729,7 @@ lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_obj x_5 = lean_apply_1(x_1, x_2); x_6 = lean_string_append(x_4, x_5); lean_dec(x_5); -x_7 = l_IO_println___rarg___closed__1; +x_7 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_8 = lean_string_append(x_6, x_7); x_9 = lean_box(0); x_10 = lean_alloc_ctor(0, 2, 0); @@ -780,7 +780,7 @@ lean_inc(x_1); x_9 = lean_apply_1(x_1, x_7); x_10 = lean_string_append(x_4, x_9); lean_dec(x_9); -x_11 = l_IO_println___rarg___closed__1; +x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_12 = lean_string_append(x_10, x_11); x_2 = x_8; x_4 = x_12; @@ -1876,7 +1876,7 @@ x_30 = l_Option_HasRepr___rarg___closed__3; x_31 = lean_string_append(x_28, x_30); x_32 = l_Lean_IR_formatFnBody___main___closed__1; x_33 = lean_string_append(x_31, x_32); -x_34 = l_IO_println___rarg___closed__1; +x_34 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_35 = lean_string_append(x_33, x_34); x_36 = lean_box(0); lean_ctor_set(x_26, 1, x_35); @@ -1893,7 +1893,7 @@ x_38 = l_Option_HasRepr___rarg___closed__3; x_39 = lean_string_append(x_37, x_38); x_40 = l_Lean_IR_formatFnBody___main___closed__1; x_41 = lean_string_append(x_39, x_40); -x_42 = l_IO_println___rarg___closed__1; +x_42 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_43 = lean_string_append(x_41, x_42); x_44 = lean_box(0); x_45 = lean_alloc_ctor(0, 2, 0); @@ -1926,7 +1926,7 @@ x_51 = l_Option_HasRepr___rarg___closed__3; x_52 = lean_string_append(x_49, x_51); x_53 = l_Lean_IR_formatFnBody___main___closed__1; x_54 = lean_string_append(x_52, x_53); -x_55 = l_IO_println___rarg___closed__1; +x_55 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_56 = lean_string_append(x_54, x_55); x_57 = lean_box(0); lean_ctor_set(x_47, 1, x_56); @@ -1943,7 +1943,7 @@ x_59 = l_Option_HasRepr___rarg___closed__3; x_60 = lean_string_append(x_58, x_59); x_61 = l_Lean_IR_formatFnBody___main___closed__1; x_62 = lean_string_append(x_60, x_61); -x_63 = l_IO_println___rarg___closed__1; +x_63 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_64 = lean_string_append(x_62, x_63); x_65 = lean_box(0); x_66 = lean_alloc_ctor(0, 2, 0); @@ -1963,7 +1963,7 @@ x_69 = l_Option_HasRepr___rarg___closed__3; x_70 = lean_string_append(x_68, x_69); x_71 = l_Lean_IR_formatFnBody___main___closed__1; x_72 = lean_string_append(x_70, x_71); -x_73 = l_IO_println___rarg___closed__1; +x_73 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_74 = lean_string_append(x_72, x_73); x_75 = lean_box(0); if (lean_is_scalar(x_10)) { @@ -1985,7 +1985,7 @@ lean_dec(x_8); lean_dec(x_6); x_81 = l_Lean_IR_formatFnBody___main___closed__1; x_82 = lean_string_append(x_18, x_81); -x_83 = l_IO_println___rarg___closed__1; +x_83 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_84 = lean_string_append(x_82, x_83); x_85 = lean_box(0); if (lean_is_scalar(x_10)) { @@ -2481,7 +2481,7 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_obj x_6 = lean_ctor_get(x_1, 0); x_7 = lean_ctor_get(x_1, 1); x_8 = lean_string_append(x_3, x_6); -x_9 = l_IO_println___rarg___closed__1; +x_9 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_10 = lean_string_append(x_8, x_9); x_1 = x_7; x_3 = x_10; @@ -3051,7 +3051,7 @@ if (x_56 == 0) lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; x_57 = l_Lean_IR_EmitC_emitMainFn___closed__30; x_58 = lean_string_append(x_54, x_57); -x_59 = l_IO_println___rarg___closed__1; +x_59 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_60 = lean_string_append(x_58, x_59); x_61 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_62 = lean_string_append(x_60, x_61); @@ -3067,7 +3067,7 @@ else lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; x_67 = l_Lean_IR_EmitC_emitMainFn___closed__33; x_68 = lean_string_append(x_54, x_67); -x_69 = l_IO_println___rarg___closed__1; +x_69 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_70 = lean_string_append(x_68, x_69); x_71 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_72 = lean_string_append(x_70, x_71); @@ -3096,7 +3096,7 @@ x_24 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_25 = lean_string_append(x_23, x_24); x_26 = lean_string_append(x_19, x_25); lean_dec(x_25); -x_27 = l_IO_println___rarg___closed__1; +x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_28 = lean_string_append(x_26, x_27); x_29 = l_Lean_IR_EmitC_emitMainFn___closed__11; x_30 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_29, x_1, x_28); @@ -3161,7 +3161,7 @@ if (x_126 == 0) lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; x_127 = l_Lean_IR_EmitC_emitMainFn___closed__30; x_128 = lean_string_append(x_124, x_127); -x_129 = l_IO_println___rarg___closed__1; +x_129 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_130 = lean_string_append(x_128, x_129); x_131 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_132 = lean_string_append(x_130, x_131); @@ -3177,7 +3177,7 @@ else lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; x_137 = l_Lean_IR_EmitC_emitMainFn___closed__33; x_138 = lean_string_append(x_124, x_137); -x_139 = l_IO_println___rarg___closed__1; +x_139 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_140 = lean_string_append(x_138, x_139); x_141 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_142 = lean_string_append(x_140, x_141); @@ -3206,7 +3206,7 @@ x_85 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_86 = lean_string_append(x_84, x_85); x_87 = lean_string_append(x_80, x_86); lean_dec(x_86); -x_88 = l_IO_println___rarg___closed__1; +x_88 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_89 = lean_string_append(x_87, x_88); x_108 = l_Lean_IR_EmitC_emitMainFn___closed__11; x_109 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_108, x_1, x_89); @@ -3324,7 +3324,7 @@ if (x_191 == 0) lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; x_192 = l_Lean_IR_EmitC_emitMainFn___closed__30; x_193 = lean_string_append(x_189, x_192); -x_194 = l_IO_println___rarg___closed__1; +x_194 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_195 = lean_string_append(x_193, x_194); x_196 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_197 = lean_string_append(x_195, x_196); @@ -3340,7 +3340,7 @@ else lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; x_202 = l_Lean_IR_EmitC_emitMainFn___closed__33; x_203 = lean_string_append(x_189, x_202); -x_204 = l_IO_println___rarg___closed__1; +x_204 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_205 = lean_string_append(x_203, x_204); x_206 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_207 = lean_string_append(x_205, x_206); @@ -3369,7 +3369,7 @@ x_164 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_165 = lean_string_append(x_163, x_164); x_166 = lean_string_append(x_159, x_165); lean_dec(x_165); -x_167 = l_IO_println___rarg___closed__1; +x_167 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_168 = lean_string_append(x_166, x_167); x_169 = l_Lean_IR_EmitC_emitMainFn___closed__11; x_170 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_169, x_1, x_168); @@ -3426,7 +3426,7 @@ if (x_256 == 0) lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; x_257 = l_Lean_IR_EmitC_emitMainFn___closed__30; x_258 = lean_string_append(x_254, x_257); -x_259 = l_IO_println___rarg___closed__1; +x_259 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_260 = lean_string_append(x_258, x_259); x_261 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_262 = lean_string_append(x_260, x_261); @@ -3442,7 +3442,7 @@ else lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; x_267 = l_Lean_IR_EmitC_emitMainFn___closed__33; x_268 = lean_string_append(x_254, x_267); -x_269 = l_IO_println___rarg___closed__1; +x_269 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_270 = lean_string_append(x_268, x_269); x_271 = l_Lean_IR_EmitC_emitMainFn___closed__31; x_272 = lean_string_append(x_270, x_271); @@ -3471,7 +3471,7 @@ x_220 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_221 = lean_string_append(x_219, x_220); x_222 = lean_string_append(x_215, x_221); lean_dec(x_221); -x_223 = l_IO_println___rarg___closed__1; +x_223 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_224 = lean_string_append(x_222, x_223); x_238 = l_Lean_IR_EmitC_emitMainFn___closed__11; x_239 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_238, x_1, x_224); @@ -4094,7 +4094,7 @@ lean_inc(x_8); lean_dec(x_6); x_9 = l_Lean_IR_EmitC_emitFileHeader___closed__1; x_10 = lean_string_append(x_8, x_9); -x_11 = l_IO_println___rarg___closed__1; +x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_12 = lean_string_append(x_10, x_11); x_13 = l_System_FilePath_dirName___closed__1; x_14 = l_Lean_Name_toStringWithSep___main(x_13, x_7); @@ -4765,7 +4765,7 @@ x_16 = lean_string_append(x_14, x_15); lean_dec(x_15); x_17 = l_Option_HasRepr___rarg___closed__3; x_18 = lean_string_append(x_16, x_17); -x_19 = l_IO_println___rarg___closed__1; +x_19 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_20 = lean_string_append(x_18, x_19); lean_inc(x_1); lean_inc(x_7); @@ -4867,7 +4867,7 @@ x_17 = lean_string_append(x_15, x_16); lean_dec(x_16); x_18 = l___private_Init_Util_1__mkPanicMessage___closed__2; x_19 = lean_string_append(x_17, x_18); -x_20 = l_IO_println___rarg___closed__1; +x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_21 = lean_string_append(x_19, x_20); lean_inc(x_1); lean_inc(x_4); @@ -4919,7 +4919,7 @@ lean_inc(x_31); lean_dec(x_10); x_32 = l_Array_forMAux___main___at_Lean_IR_EmitC_emitCase___spec__1___closed__1; x_33 = lean_string_append(x_5, x_32); -x_34 = l_IO_println___rarg___closed__1; +x_34 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_35 = lean_string_append(x_33, x_34); lean_inc(x_1); lean_inc(x_4); @@ -4998,7 +4998,7 @@ lean_inc(x_11); lean_dec(x_10); x_12 = l_Lean_IR_EmitC_emitCase___closed__2; x_13 = lean_string_append(x_11, x_12); -x_14 = l_IO_println___rarg___closed__1; +x_14 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_15 = lean_string_append(x_13, x_14); x_16 = l_Lean_IR_ensureHasDefault(x_4); x_17 = lean_unsigned_to_nat(0u); @@ -5204,7 +5204,7 @@ x_19 = lean_string_append(x_17, x_18); lean_dec(x_18); x_20 = l_Lean_IR_EmitC_emitInc___closed__1; x_21 = lean_string_append(x_19, x_20); -x_22 = l_IO_println___rarg___closed__1; +x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_box(0); x_25 = lean_alloc_ctor(0, 2, 0); @@ -5218,7 +5218,7 @@ lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean lean_dec(x_2); x_26 = l_Lean_IR_EmitC_emitInc___closed__1; x_27 = lean_string_append(x_15, x_26); -x_28 = l_IO_println___rarg___closed__1; +x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_29 = lean_string_append(x_27, x_28); x_30 = lean_box(0); x_31 = lean_alloc_ctor(0, 2, 0); @@ -5285,7 +5285,7 @@ x_19 = lean_string_append(x_17, x_18); lean_dec(x_18); x_20 = l_Lean_IR_EmitC_emitInc___closed__1; x_21 = lean_string_append(x_19, x_20); -x_22 = l_IO_println___rarg___closed__1; +x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_box(0); x_25 = lean_alloc_ctor(0, 2, 0); @@ -5299,7 +5299,7 @@ lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean lean_dec(x_2); x_26 = l_Lean_IR_EmitC_emitInc___closed__1; x_27 = lean_string_append(x_15, x_26); -x_28 = l_IO_println___rarg___closed__1; +x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_29 = lean_string_append(x_27, x_28); x_30 = lean_box(0); x_31 = lean_alloc_ctor(0, 2, 0); @@ -5327,7 +5327,7 @@ x_40 = lean_string_append(x_38, x_39); lean_dec(x_39); x_41 = l_Lean_IR_EmitC_emitInc___closed__1; x_42 = lean_string_append(x_40, x_41); -x_43 = l_IO_println___rarg___closed__1; +x_43 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_44 = lean_string_append(x_42, x_43); x_45 = lean_box(0); x_46 = lean_alloc_ctor(0, 2, 0); @@ -5341,7 +5341,7 @@ lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean lean_dec(x_2); x_47 = l_Lean_IR_EmitC_emitInc___closed__1; x_48 = lean_string_append(x_36, x_47); -x_49 = l_IO_println___rarg___closed__1; +x_49 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_50 = lean_string_append(x_48, x_49); x_51 = lean_box(0); x_52 = lean_alloc_ctor(0, 2, 0); @@ -5385,7 +5385,7 @@ x_9 = lean_string_append(x_5, x_8); lean_dec(x_8); x_10 = l_Lean_IR_EmitC_emitInc___closed__1; x_11 = lean_string_append(x_9, x_10); -x_12 = l_IO_println___rarg___closed__1; +x_12 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_13 = lean_string_append(x_11, x_12); x_14 = lean_box(0); x_15 = lean_alloc_ctor(0, 2, 0); @@ -5430,7 +5430,7 @@ x_14 = lean_string_append(x_12, x_13); lean_dec(x_13); x_15 = l_Lean_IR_EmitC_emitInc___closed__1; x_16 = lean_string_append(x_14, x_15); -x_17 = l_IO_println___rarg___closed__1; +x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_18 = lean_string_append(x_16, x_17); x_19 = lean_box(0); x_20 = lean_alloc_ctor(0, 2, 0); @@ -5484,7 +5484,7 @@ x_20 = lean_ctor_get(x_17, 0); lean_dec(x_20); x_21 = l_Lean_IR_EmitC_emitInc___closed__1; x_22 = lean_string_append(x_19, x_21); -x_23 = l_IO_println___rarg___closed__1; +x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_box(0); lean_ctor_set(x_17, 1, x_24); @@ -5499,7 +5499,7 @@ lean_inc(x_26); lean_dec(x_17); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); x_32 = lean_alloc_ctor(0, 2, 0); @@ -5631,7 +5631,7 @@ x_19 = lean_string_append(x_16, x_18); lean_dec(x_18); x_20 = l_Lean_IR_EmitC_emitInc___closed__1; x_21 = lean_string_append(x_19, x_20); -x_22 = l_IO_println___rarg___closed__1; +x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_box(0); x_25 = lean_alloc_ctor(0, 2, 0); @@ -5790,7 +5790,7 @@ x_24 = lean_string_append(x_21, x_23); lean_dec(x_23); x_25 = l_Lean_IR_EmitC_emitInc___closed__1; x_26 = lean_string_append(x_24, x_25); -x_27 = l_IO_println___rarg___closed__1; +x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_28 = lean_string_append(x_26, x_27); x_29 = lean_box(0); lean_ctor_set(x_17, 1, x_28); @@ -5811,7 +5811,7 @@ x_34 = lean_string_append(x_31, x_33); lean_dec(x_33); x_35 = l_Lean_IR_EmitC_emitInc___closed__1; x_36 = lean_string_append(x_34, x_35); -x_37 = l_IO_println___rarg___closed__1; +x_37 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_38 = lean_string_append(x_36, x_37); x_39 = lean_box(0); x_40 = lean_alloc_ctor(0, 2, 0); @@ -5877,7 +5877,7 @@ lean_inc(x_25); lean_dec(x_24); x_26 = l_Lean_IR_formatFnBody___main___closed__1; x_27 = lean_string_append(x_25, x_26); -x_28 = l_IO_println___rarg___closed__1; +x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_29 = lean_string_append(x_27, x_28); x_4 = x_10; x_6 = x_29; @@ -5965,7 +5965,7 @@ x_22 = lean_string_append(x_18, x_21); lean_dec(x_21); x_23 = l_Lean_IR_formatFnBody___main___closed__1; x_24 = lean_string_append(x_22, x_23); -x_25 = l_IO_println___rarg___closed__1; +x_25 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_26 = lean_string_append(x_24, x_25); x_27 = lean_box(0); lean_ctor_set(x_13, 1, x_26); @@ -5988,7 +5988,7 @@ x_34 = lean_string_append(x_30, x_33); lean_dec(x_33); x_35 = l_Lean_IR_formatFnBody___main___closed__1; x_36 = lean_string_append(x_34, x_35); -x_37 = l_IO_println___rarg___closed__1; +x_37 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_38 = lean_string_append(x_36, x_37); x_39 = lean_box(0); x_40 = lean_alloc_ctor(0, 2, 0); @@ -6049,7 +6049,7 @@ x_56 = lean_string_append(x_52, x_55); lean_dec(x_55); x_57 = l_Lean_IR_formatFnBody___main___closed__1; x_58 = lean_string_append(x_56, x_57); -x_59 = l_IO_println___rarg___closed__1; +x_59 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_60 = lean_string_append(x_58, x_59); x_61 = lean_box(0); if (lean_is_scalar(x_50)) { @@ -6348,7 +6348,7 @@ x_20 = lean_ctor_get(x_17, 0); lean_dec(x_20); x_21 = l_Lean_IR_EmitC_emitInc___closed__1; x_22 = lean_string_append(x_19, x_21); -x_23 = l_IO_println___rarg___closed__1; +x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_box(0); lean_ctor_set(x_17, 1, x_24); @@ -6363,7 +6363,7 @@ lean_inc(x_26); lean_dec(x_17); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); x_32 = lean_alloc_ctor(0, 2, 0); @@ -6422,7 +6422,7 @@ lean_inc(x_27); lean_dec(x_26); x_28 = l_Lean_IR_EmitC_emitInc___closed__1; x_29 = lean_string_append(x_27, x_28); -x_30 = l_IO_println___rarg___closed__1; +x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_31 = lean_string_append(x_29, x_30); x_4 = x_10; x_6 = x_31; @@ -6560,7 +6560,7 @@ x_30 = lean_string_append(x_27, x_29); lean_dec(x_29); x_31 = l_Lean_IR_EmitC_emitInc___closed__1; x_32 = lean_string_append(x_30, x_31); -x_33 = l_IO_println___rarg___closed__1; +x_33 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_34 = lean_string_append(x_32, x_33); x_35 = lean_box(0); lean_ctor_set(x_6, 1, x_34); @@ -6639,7 +6639,7 @@ x_57 = lean_string_append(x_54, x_56); lean_dec(x_56); x_58 = l_Lean_IR_EmitC_emitInc___closed__1; x_59 = lean_string_append(x_57, x_58); -x_60 = l_IO_println___rarg___closed__1; +x_60 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_61 = lean_string_append(x_59, x_60); x_62 = lean_box(0); x_63 = lean_alloc_ctor(0, 2, 0); @@ -6695,7 +6695,7 @@ x_18 = lean_string_append(x_16, x_17); lean_dec(x_17); x_19 = l_Lean_IR_EmitC_emitInc___closed__1; x_20 = lean_string_append(x_18, x_19); -x_21 = l_IO_println___rarg___closed__1; +x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_22 = lean_string_append(x_20, x_21); x_3 = x_9; x_5 = x_22; @@ -6758,7 +6758,7 @@ lean_dec(x_8); x_11 = lean_string_append(x_7, x_10); x_12 = l_Lean_IR_EmitC_emitReset___closed__2; x_13 = lean_string_append(x_11, x_12); -x_14 = l_IO_println___rarg___closed__1; +x_14 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_15 = lean_string_append(x_13, x_14); lean_inc(x_2); x_16 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitReset___spec__1(x_10, x_2, x_2, x_4, x_15); @@ -6876,7 +6876,7 @@ lean_dec(x_10); x_13 = lean_string_append(x_9, x_12); x_14 = l_Lean_IR_EmitC_emitReset___closed__2; x_15 = lean_string_append(x_13, x_14); -x_16 = l_IO_println___rarg___closed__1; +x_16 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_17 = lean_string_append(x_15, x_16); x_18 = l_String_Iterator_HasRepr___closed__2; x_19 = lean_string_append(x_17, x_18); @@ -6991,7 +6991,7 @@ x_19 = lean_string_append(x_17, x_18); lean_dec(x_18); x_20 = l_Lean_IR_EmitC_emitInc___closed__1; x_21 = lean_string_append(x_19, x_20); -x_22 = l_IO_println___rarg___closed__1; +x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_box(0); lean_ctor_set(x_6, 1, x_23); @@ -7019,7 +7019,7 @@ x_35 = lean_string_append(x_33, x_34); lean_dec(x_34); x_36 = l_Lean_IR_EmitC_emitInc___closed__1; x_37 = lean_string_append(x_35, x_36); -x_38 = l_IO_println___rarg___closed__1; +x_38 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_39 = lean_string_append(x_37, x_38); x_40 = lean_box(0); x_41 = lean_alloc_ctor(0, 2, 0); @@ -7073,7 +7073,7 @@ x_19 = lean_string_append(x_17, x_18); lean_dec(x_18); x_20 = l_Lean_IR_EmitC_emitInc___closed__1; x_21 = lean_string_append(x_19, x_20); -x_22 = l_IO_println___rarg___closed__1; +x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_box(0); lean_ctor_set(x_6, 1, x_23); @@ -7101,7 +7101,7 @@ x_35 = lean_string_append(x_33, x_34); lean_dec(x_34); x_36 = l_Lean_IR_EmitC_emitInc___closed__1; x_37 = lean_string_append(x_35, x_36); -x_38 = l_IO_println___rarg___closed__1; +x_38 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_39 = lean_string_append(x_37, x_38); x_40 = lean_box(0); x_41 = lean_alloc_ctor(0, 2, 0); @@ -7286,7 +7286,7 @@ x_20 = lean_ctor_get(x_17, 0); lean_dec(x_20); x_21 = l_Lean_IR_EmitC_emitInc___closed__1; x_22 = lean_string_append(x_19, x_21); -x_23 = l_IO_println___rarg___closed__1; +x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_box(0); lean_ctor_set(x_17, 1, x_24); @@ -7301,7 +7301,7 @@ lean_inc(x_26); lean_dec(x_17); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); x_32 = lean_alloc_ctor(0, 2, 0); @@ -7481,7 +7481,7 @@ x_14 = lean_ctor_get(x_11, 0); lean_dec(x_14); x_15 = l_Lean_IR_EmitC_emitInc___closed__1; x_16 = lean_string_append(x_13, x_15); -x_17 = l_IO_println___rarg___closed__1; +x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_18 = lean_string_append(x_16, x_17); x_19 = lean_box(0); lean_ctor_set(x_11, 1, x_18); @@ -7496,7 +7496,7 @@ lean_inc(x_20); lean_dec(x_11); x_21 = l_Lean_IR_EmitC_emitInc___closed__1; x_22 = lean_string_append(x_20, x_21); -x_23 = l_IO_println___rarg___closed__1; +x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_box(0); x_26 = lean_alloc_ctor(0, 2, 0); @@ -7582,7 +7582,7 @@ x_24 = lean_string_append(x_6, x_23); lean_dec(x_23); x_25 = l_Lean_IR_formatFnBody___main___closed__1; x_26 = lean_string_append(x_24, x_25); -x_27 = l_IO_println___rarg___closed__1; +x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_28 = lean_string_append(x_26, x_27); x_29 = lean_box(0); x_30 = lean_alloc_ctor(0, 2, 0); @@ -7675,7 +7675,7 @@ if (x_17 == 0) lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; x_18 = l_Lean_IR_formatFnBody___main___closed__1; x_19 = lean_string_append(x_13, x_18); -x_20 = l_IO_println___rarg___closed__1; +x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_21 = lean_string_append(x_19, x_20); x_22 = lean_box(0); lean_ctor_set(x_11, 1, x_21); @@ -7700,7 +7700,7 @@ x_29 = l_Option_HasRepr___rarg___closed__3; x_30 = lean_string_append(x_27, x_29); x_31 = l_Lean_IR_formatFnBody___main___closed__1; x_32 = lean_string_append(x_30, x_31); -x_33 = l_IO_println___rarg___closed__1; +x_33 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_34 = lean_string_append(x_32, x_33); x_35 = lean_box(0); lean_ctor_set(x_25, 1, x_34); @@ -7717,7 +7717,7 @@ x_37 = l_Option_HasRepr___rarg___closed__3; x_38 = lean_string_append(x_36, x_37); x_39 = l_Lean_IR_formatFnBody___main___closed__1; x_40 = lean_string_append(x_38, x_39); -x_41 = l_IO_println___rarg___closed__1; +x_41 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_42 = lean_string_append(x_40, x_41); x_43 = lean_box(0); x_44 = lean_alloc_ctor(0, 2, 0); @@ -7742,7 +7742,7 @@ if (x_48 == 0) lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; x_49 = l_Lean_IR_formatFnBody___main___closed__1; x_50 = lean_string_append(x_45, x_49); -x_51 = l_IO_println___rarg___closed__1; +x_51 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_52 = lean_string_append(x_50, x_51); x_53 = lean_box(0); x_54 = lean_alloc_ctor(0, 2, 0); @@ -7770,7 +7770,7 @@ x_60 = l_Option_HasRepr___rarg___closed__3; x_61 = lean_string_append(x_58, x_60); x_62 = l_Lean_IR_formatFnBody___main___closed__1; x_63 = lean_string_append(x_61, x_62); -x_64 = l_IO_println___rarg___closed__1; +x_64 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_65 = lean_string_append(x_63, x_64); x_66 = lean_box(0); if (lean_is_scalar(x_59)) { @@ -7905,7 +7905,7 @@ lean_inc(x_27); lean_dec(x_26); x_28 = l_Lean_IR_EmitC_emitInc___closed__1; x_29 = lean_string_append(x_27, x_28); -x_30 = l_IO_println___rarg___closed__1; +x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_31 = lean_string_append(x_29, x_30); x_4 = x_10; x_6 = x_31; @@ -7986,7 +7986,7 @@ x_25 = lean_string_append(x_22, x_24); lean_dec(x_24); x_26 = l_Lean_IR_EmitC_emitInc___closed__1; x_27 = lean_string_append(x_25, x_26); -x_28 = l_IO_println___rarg___closed__1; +x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_29 = lean_string_append(x_27, x_28); lean_inc(x_23); x_30 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitPartialApp___spec__1(x_1, x_3, x_23, x_23, x_4, x_29); @@ -8144,7 +8144,7 @@ x_26 = lean_ctor_get(x_23, 0); lean_dec(x_26); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_25, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); lean_ctor_set(x_23, 1, x_30); @@ -8159,7 +8159,7 @@ lean_inc(x_32); lean_dec(x_23); x_33 = l_Lean_IR_EmitC_emitInc___closed__1; x_34 = lean_string_append(x_32, x_33); -x_35 = l_IO_println___rarg___closed__1; +x_35 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_36 = lean_string_append(x_34, x_35); x_37 = lean_box(0); x_38 = lean_alloc_ctor(0, 2, 0); @@ -8179,7 +8179,7 @@ lean_inc(x_42); lean_dec(x_41); x_43 = l_Lean_IR_EmitC_emitApp___closed__3; x_44 = lean_string_append(x_42, x_43); -x_45 = l_IO_println___rarg___closed__1; +x_45 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_46 = lean_string_append(x_44, x_45); x_47 = l_Lean_IR_EmitC_emitLhs(x_1, x_4, x_46); x_48 = !lean_is_exclusive(x_47); @@ -8382,7 +8382,7 @@ x_17 = lean_string_append(x_13, x_16); lean_dec(x_16); x_18 = l_Lean_IR_EmitC_emitInc___closed__1; x_19 = lean_string_append(x_17, x_18); -x_20 = l_IO_println___rarg___closed__1; +x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_21 = lean_string_append(x_19, x_20); x_22 = lean_box(0); lean_ctor_set(x_8, 1, x_21); @@ -8405,7 +8405,7 @@ x_29 = lean_string_append(x_25, x_28); lean_dec(x_28); x_30 = l_Lean_IR_EmitC_emitInc___closed__1; x_31 = lean_string_append(x_29, x_30); -x_32 = l_IO_println___rarg___closed__1; +x_32 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_33 = lean_string_append(x_31, x_32); x_34 = lean_box(0); x_35 = lean_alloc_ctor(0, 2, 0); @@ -8573,7 +8573,7 @@ x_12 = lean_string_append(x_8, x_11); lean_dec(x_11); x_13 = l_Lean_IR_EmitC_emitInc___closed__1; x_14 = lean_string_append(x_12, x_13); -x_15 = l_IO_println___rarg___closed__1; +x_15 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_16 = lean_string_append(x_14, x_15); x_17 = lean_box(0); x_18 = lean_alloc_ctor(0, 2, 0); @@ -8623,7 +8623,7 @@ x_14 = lean_string_append(x_10, x_13); lean_dec(x_13); x_15 = l_Lean_IR_EmitC_emitInc___closed__1; x_16 = lean_string_append(x_14, x_15); -x_17 = l_IO_println___rarg___closed__1; +x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_18 = lean_string_append(x_16, x_17); x_19 = lean_box(0); lean_ctor_set(x_5, 1, x_18); @@ -8646,7 +8646,7 @@ x_26 = lean_string_append(x_22, x_25); lean_dec(x_25); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); x_32 = lean_alloc_ctor(0, 2, 0); @@ -8695,7 +8695,7 @@ x_14 = lean_string_append(x_10, x_13); lean_dec(x_13); x_15 = l_Lean_IR_EmitC_emitInc___closed__1; x_16 = lean_string_append(x_14, x_15); -x_17 = l_IO_println___rarg___closed__1; +x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_18 = lean_string_append(x_16, x_17); x_19 = lean_box(0); lean_ctor_set(x_5, 1, x_18); @@ -8718,7 +8718,7 @@ x_26 = lean_string_append(x_22, x_25); lean_dec(x_25); x_27 = l_Lean_IR_EmitC_emitInc___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_31 = lean_box(0); x_32 = lean_alloc_ctor(0, 2, 0); @@ -9037,7 +9037,7 @@ x_12 = lean_ctor_get(x_9, 0); lean_dec(x_12); x_13 = l_Lean_IR_formatFnBody___main___closed__1; x_14 = lean_string_append(x_11, x_13); -x_15 = l_IO_println___rarg___closed__1; +x_15 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_16 = lean_string_append(x_14, x_15); x_17 = lean_box(0); lean_ctor_set(x_9, 1, x_16); @@ -9052,7 +9052,7 @@ lean_inc(x_18); lean_dec(x_9); x_19 = l_Lean_IR_formatFnBody___main___closed__1; x_20 = lean_string_append(x_18, x_19); -x_21 = l_IO_println___rarg___closed__1; +x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_22 = lean_string_append(x_20, x_21); x_23 = lean_box(0); x_24 = lean_alloc_ctor(0, 2, 0); @@ -9082,7 +9082,7 @@ x_32 = lean_string_append(x_30, x_31); lean_dec(x_31); x_33 = l_Lean_IR_EmitC_emitInc___closed__1; x_34 = lean_string_append(x_32, x_33); -x_35 = l_IO_println___rarg___closed__1; +x_35 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_36 = lean_string_append(x_34, x_35); x_37 = lean_box(0); lean_ctor_set(x_6, 1, x_36); @@ -9106,7 +9106,7 @@ x_43 = lean_string_append(x_41, x_42); lean_dec(x_42); x_44 = l_Lean_IR_EmitC_emitInc___closed__1; x_45 = lean_string_append(x_43, x_44); -x_46 = l_IO_println___rarg___closed__1; +x_46 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_47 = lean_string_append(x_45, x_46); x_48 = lean_box(0); x_49 = lean_alloc_ctor(0, 2, 0); @@ -9585,7 +9585,7 @@ lean_inc(x_26); lean_dec(x_25); x_27 = l_Lean_IR_formatFnBody___main___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_4 = x_10; x_6 = x_30; @@ -9662,7 +9662,7 @@ lean_inc(x_28); lean_dec(x_27); x_29 = l_Lean_IR_formatFnBody___main___closed__1; x_30 = lean_string_append(x_28, x_29); -x_31 = l_IO_println___rarg___closed__1; +x_31 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_32 = lean_string_append(x_30, x_31); x_4 = x_10; x_6 = x_32; @@ -9737,7 +9737,7 @@ x_26 = lean_string_append(x_24, x_25); lean_dec(x_25); x_27 = l_Lean_IR_formatFnBody___main___closed__1; x_28 = lean_string_append(x_26, x_27); -x_29 = l_IO_println___rarg___closed__1; +x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_30 = lean_string_append(x_28, x_29); x_4 = x_10; x_6 = x_30; @@ -9829,7 +9829,7 @@ x_15 = lean_ctor_get(x_12, 0); lean_dec(x_15); x_16 = l_Lean_IR_EmitC_emitTailCall___closed__3; x_17 = lean_string_append(x_14, x_16); -x_18 = l_IO_println___rarg___closed__1; +x_18 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_19 = lean_string_append(x_17, x_18); x_20 = lean_box(0); lean_ctor_set(x_12, 1, x_19); @@ -9844,7 +9844,7 @@ lean_inc(x_21); lean_dec(x_12); x_22 = l_Lean_IR_EmitC_emitTailCall___closed__3; x_23 = lean_string_append(x_21, x_22); -x_24 = l_IO_println___rarg___closed__1; +x_24 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_25 = lean_string_append(x_23, x_24); x_26 = lean_box(0); x_27 = lean_alloc_ctor(0, 2, 0); @@ -9859,7 +9859,7 @@ lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean lean_dec(x_7); x_28 = l_addParenHeuristic___closed__1; x_29 = lean_string_append(x_3, x_28); -x_30 = l_IO_println___rarg___closed__1; +x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_31 = lean_string_append(x_29, x_30); lean_inc(x_6); x_32 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitTailCall___spec__2(x_4, x_5, x_6, x_6, x_2, x_31); @@ -10301,7 +10301,7 @@ x_91 = lean_ctor_get(x_88, 0); lean_dec(x_91); x_92 = l_Lean_IR_formatFnBody___main___closed__1; x_93 = lean_string_append(x_90, x_92); -x_94 = l_IO_println___rarg___closed__1; +x_94 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_95 = lean_string_append(x_93, x_94); x_96 = lean_box(0); lean_ctor_set(x_88, 1, x_95); @@ -10316,7 +10316,7 @@ lean_inc(x_97); lean_dec(x_88); x_98 = l_Lean_IR_formatFnBody___main___closed__1; x_99 = lean_string_append(x_97, x_98); -x_100 = l_IO_println___rarg___closed__1; +x_100 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_101 = lean_string_append(x_99, x_100); x_102 = lean_box(0); x_103 = lean_alloc_ctor(0, 2, 0); @@ -10346,7 +10346,7 @@ lean_dec(x_3); lean_dec(x_1); x_107 = l_Lean_IR_EmitC_emitBlock___main___closed__2; x_108 = lean_string_append(x_4, x_107); -x_109 = l_IO_println___rarg___closed__1; +x_109 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_110 = lean_string_append(x_108, x_109); x_111 = lean_box(0); x_112 = lean_alloc_ctor(0, 2, 0); @@ -10387,7 +10387,7 @@ x_18 = lean_string_append(x_4, x_17); lean_dec(x_17); x_19 = l___private_Init_Util_1__mkPanicMessage___closed__2; x_20 = lean_string_append(x_18, x_19); -x_21 = l_IO_println___rarg___closed__1; +x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_22 = lean_string_append(x_20, x_21); lean_inc(x_1); lean_inc(x_3); @@ -10485,7 +10485,7 @@ _start: lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; x_4 = l_addParenHeuristic___closed__1; x_5 = lean_string_append(x_3, x_4); -x_6 = l_IO_println___rarg___closed__1; +x_6 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_7 = lean_string_append(x_5, x_6); x_8 = 0; lean_inc(x_1); @@ -10764,7 +10764,7 @@ x_24 = lean_string_append(x_22, x_23); lean_dec(x_23); x_25 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitDeclAux___spec__1___closed__3; x_26 = lean_string_append(x_24, x_25); -x_27 = l_IO_println___rarg___closed__1; +x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_28 = lean_string_append(x_26, x_27); x_3 = x_9; x_5 = x_28; @@ -11049,7 +11049,7 @@ block_105: lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; x_30 = l_Lean_IR_EmitC_emitDeclAux___closed__1; x_31 = lean_string_append(x_29, x_30); -x_32 = l_IO_println___rarg___closed__1; +x_32 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_33 = lean_string_append(x_31, x_32); x_34 = l_Lean_closureMaxArgs; x_35 = lean_nat_dec_lt(x_34, x_28); @@ -11426,7 +11426,7 @@ block_206: lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; uint8_t x_154; x_149 = l_Lean_IR_EmitC_emitDeclAux___closed__1; x_150 = lean_string_append(x_148, x_149); -x_151 = l_IO_println___rarg___closed__1; +x_151 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_152 = lean_string_append(x_150, x_151); x_153 = l_Lean_closureMaxArgs; x_154 = lean_nat_dec_lt(x_153, x_147); @@ -11915,7 +11915,7 @@ x_14 = lean_ctor_get(x_11, 0); lean_dec(x_14); x_15 = l_Lean_IR_EmitC_emitInc___closed__1; x_16 = lean_string_append(x_13, x_15); -x_17 = l_IO_println___rarg___closed__1; +x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_18 = lean_string_append(x_16, x_17); x_19 = lean_box(0); lean_ctor_set(x_11, 1, x_18); @@ -11930,7 +11930,7 @@ lean_inc(x_20); lean_dec(x_11); x_21 = l_Lean_IR_EmitC_emitInc___closed__1; x_22 = lean_string_append(x_20, x_21); -x_23 = l_IO_println___rarg___closed__1; +x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_box(0); x_26 = lean_alloc_ctor(0, 2, 0); @@ -12059,7 +12059,7 @@ lean_inc(x_21); lean_dec(x_20); x_22 = l_Lean_IR_EmitC_emitDeclInit___closed__1; x_23 = lean_string_append(x_21, x_22); -x_24 = l_IO_println___rarg___closed__1; +x_24 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_25 = lean_string_append(x_23, x_24); x_26 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_8, x_2, x_25); return x_26; @@ -12129,7 +12129,7 @@ lean_inc(x_39); lean_dec(x_38); x_40 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_41 = lean_string_append(x_39, x_40); -x_42 = l_IO_println___rarg___closed__1; +x_42 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_43 = lean_string_append(x_41, x_42); x_44 = l_Lean_IR_EmitC_emitDeclInit___closed__2; x_45 = lean_string_append(x_43, x_44); @@ -12273,7 +12273,7 @@ x_83 = lean_ctor_get(x_80, 0); lean_dec(x_83); x_84 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_85 = lean_string_append(x_82, x_84); -x_86 = l_IO_println___rarg___closed__1; +x_86 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_87 = lean_string_append(x_85, x_86); x_88 = l_Lean_IR_EmitC_emitDeclInit___closed__2; x_89 = lean_string_append(x_87, x_88); @@ -12294,7 +12294,7 @@ lean_inc(x_95); lean_dec(x_80); x_96 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_97 = lean_string_append(x_95, x_96); -x_98 = l_IO_println___rarg___closed__1; +x_98 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_99 = lean_string_append(x_97, x_98); x_100 = l_Lean_IR_EmitC_emitDeclInit___closed__2; x_101 = lean_string_append(x_99, x_100); @@ -12392,7 +12392,7 @@ lean_inc(x_128); lean_dec(x_127); x_129 = l_Lean_IR_EmitC_emitDeclInit___closed__1; x_130 = lean_string_append(x_128, x_129); -x_131 = l_IO_println___rarg___closed__1; +x_131 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_132 = lean_string_append(x_130, x_131); x_133 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_114, x_2, x_132); return x_133; @@ -12466,7 +12466,7 @@ lean_inc(x_146); lean_dec(x_145); x_147 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_148 = lean_string_append(x_146, x_147); -x_149 = l_IO_println___rarg___closed__1; +x_149 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_150 = lean_string_append(x_148, x_149); x_151 = l_Lean_IR_EmitC_emitDeclInit___closed__2; x_152 = lean_string_append(x_150, x_151); @@ -12610,7 +12610,7 @@ if (lean_is_exclusive(x_181)) { } x_184 = l_Lean_IR_EmitC_emitMainFn___closed__3; x_185 = lean_string_append(x_182, x_184); -x_186 = l_IO_println___rarg___closed__1; +x_186 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_187 = lean_string_append(x_185, x_186); x_188 = l_Lean_IR_EmitC_emitDeclInit___closed__2; x_189 = lean_string_append(x_187, x_188); @@ -12715,7 +12715,7 @@ x_15 = l_Array_forMAux___main___at_Lean_IR_EmitC_emitInitFn___spec__1___closed__ x_16 = lean_string_append(x_14, x_15); x_17 = lean_string_append(x_4, x_16); lean_dec(x_16); -x_18 = l_IO_println___rarg___closed__1; +x_18 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_19 = lean_string_append(x_17, x_18); x_20 = lean_unsigned_to_nat(1u); x_21 = lean_nat_add(x_2, x_20); diff --git a/stage0/stdlib/Init/Lean/Data/Format.c b/stage0/stdlib/Init/Lean/Data/Format.c index 5e7c90ffbb..b9e4ba4f0a 100644 --- a/stage0/stdlib/Init/Lean/Data/Format.c +++ b/stage0/stdlib/Init/Lean/Data/Format.c @@ -82,6 +82,7 @@ lean_object* l_Lean_Format_defWidth; lean_object* l_Lean_Format_joinSuffix(lean_object*); lean_object* l_Int_repr(lean_object*); lean_object* l_Lean_Format_repr___main___closed__13; +extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_Lean_Format_pretty___boxed(lean_object*, lean_object*); lean_object* l_Lean_Option_format(lean_object*); lean_object* l_Lean_Format_repr___main___closed__6; @@ -124,7 +125,6 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__2; lean_object* l_Lean_kvMapHasFormat___closed__1; extern lean_object* l_List_reprAux___main___rarg___closed__1; -extern lean_object* l_IO_println___rarg___closed__1; lean_object* l_Lean_formatKVMap(lean_object*); lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_prodHasFormat(lean_object*, lean_object*); @@ -868,7 +868,7 @@ lean_dec(x_4); x_10 = lean_ctor_get(x_5, 0); lean_inc(x_10); lean_dec(x_5); -x_11 = l_IO_println___rarg___closed__1; +x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_12 = lean_string_append(x_3, x_11); x_13 = 32; lean_inc(x_10); @@ -3498,7 +3498,7 @@ lean_object* l_String_toFormat(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_2 = l_IO_println___rarg___closed__1; +x_2 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_3 = l_String_splitOn(x_1, x_2); x_4 = lean_box(1); x_5 = l_Lean_Format_joinSep___main___at_String_toFormat___spec__1(x_3, x_4); diff --git a/stage0/stdlib/Init/Lean/Elab/Import.c b/stage0/stdlib/Init/Lean/Elab/Import.c index d86ec1d044..04dd6807cf 100644 --- a/stage0/stdlib/Init/Lean/Elab/Import.c +++ b/stage0/stdlib/Init/Lean/Elab/Import.c @@ -32,7 +32,6 @@ lean_object* l_Lean_Elab_parseImports___closed__1; lean_object* l_Lean_MessageLog_toList(lean_object*); lean_object* l_Lean_Elab_headerToImports___closed__3; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_processHeader___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_print_deps(lean_object*, lean_object*); @@ -48,6 +47,7 @@ lean_object* l_Lean_Syntax_getPos(lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_Elab_parseImports(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object*, lean_object*); lean_object* l_List_forM___main___at_Lean_Elab_printDeps___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); lean_object* l_Lean_Syntax_asNode(lean_object*); @@ -1049,7 +1049,7 @@ lean_inc(x_9); x_10 = lean_ctor_get(x_8, 1); lean_inc(x_10); lean_dec(x_8); -x_11 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_9, x_10); +x_11 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_9, x_10); lean_dec(x_9); if (lean_obj_tag(x_11) == 0) { diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index 5d065a62f0..d0acf7b1d4 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -25,6 +25,7 @@ lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(l lean_object* l_Lean_Elab_Tactic_getLocalInsts___boxed(lean_object*, lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6; uint8_t l_PersistentHashMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__4(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__3; extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__8; @@ -55,12 +56,14 @@ lean_object* l_Lean_Elab_Tactic_evalSkip(lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalTry___closed__2; extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2; lean_object* l_Lean_Elab_Tactic_reportUnsolvedGoals(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Tactic_try___elambda__1___closed__1; lean_object* l_Lean_Elab_Tactic_trace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_focus(lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__2; extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; +extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Lean_Elab_Tactic_evalTry___closed__1; lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -89,6 +92,7 @@ uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Parser_mkFreshKindAux lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntro(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSeq___closed__1; +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; lean_object* l_PersistentHashMap_findAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__3(lean_object*, size_t, lean_object*); lean_object* l_Lean_Elab_Tactic_evalCase___closed__3; lean_object* l_Lean_Meta_assumption___boxed(lean_object*, lean_object*, lean_object*); @@ -98,6 +102,7 @@ lean_object* l_Lean_Elab_Tactic_setGoals___boxed(lean_object*, lean_object*, lea uint8_t l_Lean_SMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__1(lean_object*, lean_object*); lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getMCtx___boxed(lean_object*); +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; lean_object* l_Lean_Elab_Tactic_getGoals___boxed(lean_object*); lean_object* l_PersistentArray_push___rarg(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__2; @@ -107,8 +112,10 @@ extern lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__2; lean_object* l_Lean_Elab_Tactic_withFreshMacroScope(lean_object*); lean_object* l_Lean_MetavarContext_renameMVar(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Elab_Tactic_evalTactic___main___spec__6___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__4; +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock___closed__2; size_t l_USize_shiftRight(size_t, size_t); lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen___rarg(uint8_t, lean_object*, lean_object*, lean_object*); @@ -130,14 +137,18 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_collectMVars___closed__1; lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__1; +lean_object* l_Lean_Elab_Tactic_evalRepeat___closed__1; lean_object* l_Lean_Elab_Tactic_getMainGoal___closed__2; +lean_object* l_Lean_Elab_Tactic_evalRepeat(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadLog___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; lean_object* l_Lean_Meta_intro(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_tagUntaggedGoals___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__45; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase___closed__2; +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3; lean_object* l_Lean_Syntax_getTailWithInfo___main(lean_object*); +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; lean_object* l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_isEqvAux___main___at_Lean_Elab_Tactic_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Tactic_evalTraceState___spec__2(lean_object*, lean_object*, lean_object*); @@ -230,6 +241,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSkip___closed__1; extern lean_object* l_Lean_Parser_Tactic_paren___elambda__1___closed__1; lean_object* l_Lean_Elab_Tactic_monadLog___closed__1; lean_object* l_Lean_Elab_Term_ensureHasType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1; lean_object* l_Lean_Elab_mkElabAttribute___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_save___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__5; @@ -256,6 +268,7 @@ extern lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__2; extern lean_object* l_Lean_nullKind___closed__2; lean_object* l_Lean_Elab_Tactic_monadLog___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ParametricAttribute_setParam___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2; lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__3; lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaTactic___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); @@ -264,6 +277,8 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalOrelse___closed__1; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption(lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__3; lean_object* l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1; +extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_Elab_Term_traceAtCmdPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_throwUnsupportedSyntax(lean_object*); @@ -275,6 +290,7 @@ lean_object* l_Lean_Elab_goalsToMessageData(lean_object*); lean_object* l_Lean_Elab_Term_liftMetaM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_MetavarContext_isAnonymousMVar(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___closed__4; +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__4; @@ -286,6 +302,7 @@ lean_object* l_Lean_Elab_Tactic_modifyMCtx___boxed(lean_object*, lean_object*, l lean_object* l_Lean_Elab_Tactic_evalParen(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaTactic(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__1; +extern lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__1; lean_object* l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_PersistentHashMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec__3; @@ -299,6 +316,7 @@ lean_object* l_Lean_nameToExprAux___main(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSkip___closed__3; lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__1; lean_object* l_Lean_Elab_Term_throwError___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l_Lean_Elab_Tactic_monadLog___closed__6; lean_object* l_Lean_Elab_Tactic_evalSeq(lean_object*, lean_object*, lean_object*); @@ -335,11 +353,13 @@ lean_object* l_Lean_SMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec lean_object* l_Lean_Elab_Tactic_addBuiltinTactic___closed__1; lean_object* l_Lean_Elab_Tactic_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__2; +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalParen___closed__1; lean_object* l_Lean_Elab_Tactic_ensureHasNoMVars(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_instantiateMVars___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_EStateM_Backtrackable___closed__1; +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; lean_object* l_Lean_SMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec__1___closed__2; lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftTermElabM___rarg(lean_object*, lean_object*, lean_object*); @@ -365,6 +385,7 @@ lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_ob lean_object* l_Lean_Elab_Tactic_evalTraceState___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_tacticElabAttribute___closed__3; lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock(lean_object*); lean_object* l_HashMapImp_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__2___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__3; @@ -13297,6 +13318,307 @@ x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Tactic_try___elambda__1___closed__1; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Prod_HasRepr___rarg___closed__1; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Option_HasRepr___rarg___closed__3; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(";"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__1; +x_3 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_69; uint8_t x_70; +x_69 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +lean_inc(x_1); +x_70 = l_Lean_Syntax_isOfKind(x_1, x_69); +if (x_70 == 0) +{ +uint8_t x_71; +x_71 = 0; +x_4 = x_71; +goto block_68; +} +else +{ +lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; +x_72 = l_Lean_Syntax_getArgs(x_1); +x_73 = lean_array_get_size(x_72); +lean_dec(x_72); +x_74 = lean_unsigned_to_nat(2u); +x_75 = lean_nat_dec_eq(x_73, x_74); +lean_dec(x_73); +x_4 = x_75; +goto block_68; +} +block_68: +{ +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) +{ +lean_object* x_6; +lean_dec(x_1); +x_6 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = lean_unsigned_to_nat(1u); +x_8 = l_Lean_Syntax_getArg(x_1, x_7); +lean_dec(x_1); +x_9 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_3); +lean_dec(x_2); +x_10 = !lean_is_exclusive(x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_11 = lean_ctor_get(x_9, 0); +lean_dec(x_11); +x_12 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +lean_inc(x_8); +x_13 = lean_array_push(x_12, x_8); +x_14 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; +x_15 = lean_array_push(x_13, x_14); +x_16 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_15); +x_18 = l_Array_empty___closed__1; +x_19 = lean_array_push(x_18, x_17); +x_20 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; +x_21 = lean_array_push(x_19, x_20); +x_22 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; +x_23 = lean_array_push(x_22, x_8); +x_24 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_23); +x_26 = lean_array_push(x_21, x_25); +x_27 = l_Lean_nullKind___closed__2; +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_array_push(x_18, x_28); +x_30 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = lean_array_push(x_12, x_31); +x_33 = lean_array_push(x_32, x_14); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_16); +lean_ctor_set(x_34, 1, x_33); +x_35 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; +x_36 = lean_array_push(x_35, x_34); +x_37 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +lean_ctor_set(x_9, 0, x_38); +return x_9; +} +else +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_39 = lean_ctor_get(x_9, 1); +lean_inc(x_39); +lean_dec(x_9); +x_40 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4; +lean_inc(x_8); +x_41 = lean_array_push(x_40, x_8); +x_42 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5; +x_43 = lean_array_push(x_41, x_42); +x_44 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1; +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_43); +x_46 = l_Array_empty___closed__1; +x_47 = lean_array_push(x_46, x_45); +x_48 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7; +x_49 = lean_array_push(x_47, x_48); +x_50 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9; +x_51 = lean_array_push(x_50, x_8); +x_52 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_51); +x_54 = lean_array_push(x_49, x_53); +x_55 = l_Lean_nullKind___closed__2; +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_54); +x_57 = lean_array_push(x_46, x_56); +x_58 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3; +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_58); +lean_ctor_set(x_59, 1, x_57); +x_60 = lean_array_push(x_40, x_59); +x_61 = lean_array_push(x_60, x_42); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_44); +lean_ctor_set(x_62, 1, x_61); +x_63 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2; +x_64 = lean_array_push(x_63, x_62); +x_65 = l_Lean_Parser_Tactic_try___elambda__1___closed__2; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_39); +return x_67; +} +} +} +} +} +lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRepeat___lambda__1), 3, 0); +return x_1; +} +} +lean_object* l_Lean_Elab_Tactic_evalRepeat(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Tactic_evalRepeat___closed__1; +x_5 = l_Lean_Elab_Tactic_adaptExpander(x_4, x_1, x_2, x_3); +return x_5; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("evalRepeat"); +return x_1; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Tactic_declareBuiltinTactic___closed__3; +x_2 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRepeat), 3, 0); +return x_1; +} +} +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2; +x_3 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2; +x_4 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3; +x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -14903,6 +15225,35 @@ lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalTry___closed__3); res = l___regBuiltinTactic_Lean_Elab_Tactic_evalTry(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8); +l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9); +l_Lean_Elab_Tactic_evalRepeat___closed__1 = _init_l_Lean_Elab_Tactic_evalRepeat___closed__1(); +lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___closed__1); +l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1); +l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2); +l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3); +res = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_Elab_Tactic_evalAssumption___closed__1 = _init_l_Lean_Elab_Tactic_evalAssumption___closed__1(); lean_mark_persistent(l_Lean_Elab_Tactic_evalAssumption___closed__1); l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Environment.c b/stage0/stdlib/Init/Lean/Environment.c index 257c669495..8c1c3ea391 100644 --- a/stage0/stdlib/Init/Lean/Environment.c +++ b/stage0/stdlib/Init/Lean/Environment.c @@ -17,6 +17,7 @@ lean_object* l_HashMapImp_find_x3f___at_Lean_Environment_getModuleIdxFor_x3f___s lean_object* l_List_reverse___rarg(lean_object*); extern lean_object* l_Lean_Name_toString___closed__1; lean_object* lean_get_extension(lean_object*, lean_object*); +lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_isNamespace___boxed(lean_object*, lean_object*); lean_object* l_PersistentHashMap_foldlMAux___main___at_Lean_mkModuleData___spec__3___boxed(lean_object*, lean_object*); @@ -24,10 +25,8 @@ size_t l_USize_add(size_t, size_t); lean_object* l_PersistentHashMap_containsAux___main___at_Lean_Environment_contains___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerPersistentEnvExtensionUnsafe___spec__2___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_displayStats___closed__2; -lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object*); lean_object* l_Lean_SimplePersistentEnvExtension_setState___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef; -lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(lean_object*); lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_PersistentHashMap_find_x3f___at_Lean_Environment_find_x3f___spec__4___boxed(lean_object*, lean_object*); lean_object* lean_nat_div(lean_object*, lean_object*); @@ -36,7 +35,9 @@ lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object* lean_display_stats(lean_object*, lean_object*); lean_object* l_Lean_namespacesExt___elambda__3(lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_setState(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_displayStats___closed__1; +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1; lean_object* l_Nat_foldAux___main___at_Lean_mkModuleData___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_uget(lean_object*, size_t); lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__10(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -58,7 +59,6 @@ uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_SimplePersistentEnvExtension_getState(lean_object*, lean_object*); lean_object* l_Lean_Environment_displayStats___closed__8; lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5___boxed(lean_object*); extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2; lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Environment_addAux___spec__3(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at_Lean_Environment_find_x3f___spec__2___boxed(lean_object*, lean_object*); @@ -70,6 +70,7 @@ lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkTagDeclarat uint8_t l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_mkTagDeclarationExtension___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_importModulesAux(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_environment_set_main_module(lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe(lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerCPPExtension___spec__1(lean_object*, lean_object*); @@ -117,7 +118,6 @@ lean_object* l_Lean_readModuleData___boxed(lean_object*, lean_object*); size_t l_USize_shiftRight(size_t, size_t); lean_object* l_Lean_Environment_compileDecl___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_foldlMAux___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(lean_object*); lean_object* l_Lean_regNamespacesExtension___lambda__2(lean_object*); lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Environment_addAux___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_contains___main___at_Lean_Environment_addAux___spec__7___boxed(lean_object*, lean_object*); @@ -138,10 +138,12 @@ lean_object* l_Lean_mkStateFromImportedEntries___rarg___lambda__1___boxed(lean_o lean_object* l_Lean_PersistentEnvExtension_setState(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_find_x3f___at_Lean_Environment_find_x3f___spec__4(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; +extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; uint8_t l_Lean_Environment_isConstructor(lean_object*, lean_object*); lean_object* l_Lean_Environment_displayStats___closed__7; lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_displayStats___closed__5; +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; lean_object* l_Lean_mkStateFromImportedEntries___at_Lean_regNamespacesExtension___spec__1(lean_object*, lean_object*); lean_object* l_AssocList_foldlM___main___at_Lean_importModules___spec__5(lean_object*, lean_object*); lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__2(lean_object*, lean_object*, lean_object*); @@ -153,6 +155,7 @@ lean_object* l_Lean_TagDeclarationExtension_Inhabited; extern lean_object* l_Array_HasRepr___rarg___closed__1; lean_object* l_Lean_SimplePersistentEnvExtension_getEntries(lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_modifyStateUnsafe___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(lean_object*); lean_object* l_PersistentHashMap_foldlM___at_Lean_mkModuleData___spec__2___boxed(lean_object*, lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__1(lean_object*, lean_object*, lean_object*); @@ -175,11 +178,11 @@ lean_object* l_Lean_EnvExtension_setStateUnsafe___rarg(lean_object*, lean_object lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Environment_11__finalizePersistentExtensions___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_setStateUnsafe(lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__4(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2; lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Environment_6__mkInitialExtensionStates___spec__1(lean_object*, lean_object*, lean_object*); -lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_mkTagDeclarationExtension___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkEmptyEnvironment___closed__1; lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__3(lean_object*, lean_object*); @@ -188,9 +191,7 @@ lean_object* l_Lean_ModuleData_inhabited___closed__1; lean_object* lean_set_extension(lean_object*, lean_object*, lean_object*); lean_object* l_Nat_foldAux___main___at_Lean_mkModuleData___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*); lean_object* l_Lean_SimplePersistentEnvExtension_modifyState___rarg___lambda__1(lean_object*, lean_object*); -lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3___boxed(lean_object*); lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__2___boxed(lean_object*); @@ -241,6 +242,7 @@ lean_object* l_Lean_performModifications___boxed(lean_object*, lean_object*, lea lean_object* l_Lean_Environment_Inhabited___closed__3; lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3___boxed(lean_object*, lean_object*); lean_object* l_AssocList_contains___main___at_Lean_importModules___spec__2___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Options_empty; extern lean_object* l_IO_Error_Inhabited___closed__1; @@ -248,6 +250,7 @@ lean_object* lean_environment_add(lean_object*, lean_object*); lean_object* lean_save_module_data(lean_object*, lean_object*, lean_object*); uint8_t l_AssocList_contains___main___at_Lean_importModules___spec__2(lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_getState___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object*); uint8_t lean_environment_quot_init(lean_object*); size_t lean_usize_modn(size_t, lean_object*); lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef; @@ -260,13 +263,12 @@ lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec_ lean_object* l_Lean_namespacesExt___elambda__1___boxed(lean_object*); lean_object* l_Array_qsortAux___main___at_Lean_mkTagDeclarationExtension___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_modListExtension___closed__1; +lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(lean_object*); uint8_t l_AssocList_contains___main___at_Lean_Environment_addAux___spec__7(lean_object*, lean_object*); -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3; lean_object* l_Lean_modListExtension___closed__2; lean_object* l_Lean_PersistentEnvExtension_modifyState(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Environment_find_x3f___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_ModuleIdx_inhabited; -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_getState___rarg___boxed(lean_object*, lean_object*); uint32_t lean_environment_trust_level(lean_object*); size_t l_USize_mul(size_t, size_t); @@ -276,6 +278,7 @@ lean_object* l_Lean_registerEnvExtension(lean_object*, lean_object*, lean_object lean_object* l_Lean_importModules___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_Inhabited___rarg(lean_object*); lean_object* l_mkHashMapImp___rarg(lean_object*); +lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5___boxed(lean_object*); lean_object* l_Lean_PersistentEnvExtension_getState(lean_object*, lean_object*, lean_object*); uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Environment_contains___spec__5(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_importModules___closed__1; @@ -283,7 +286,6 @@ lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtensi lean_object* l_Lean_Environment_addDecl___boxed(lean_object*, lean_object*); uint8_t l___private_Init_Lean_Environment_12__isNamespaceName___main(lean_object*); lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1; extern lean_object* l_NonScalar_Inhabited; lean_object* l_mkHashMap___at_Lean_Environment_Inhabited___spec__3(lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___lambda__1(lean_object*, lean_object*); @@ -292,11 +294,10 @@ lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3; lean_object* l_Lean_ModuleData_inhabited; lean_object* l___private_Init_Lean_Environment_12__isNamespaceName___main___boxed(lean_object*); extern lean_object* l_Id_Monad; +lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7___boxed(lean_object*); lean_object* l_Lean_SMap_find_x3f_x27___at_Lean_Environment_find_x3f___spec__1(lean_object*, lean_object*); lean_object* l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2___boxed(lean_object*, lean_object*); -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(lean_object*); lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*); size_t l_USize_land(size_t, size_t); lean_object* l_Lean_HasToString___closed__1; @@ -305,7 +306,6 @@ lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, l lean_object* l_Lean_mkStateFromImportedEntries___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkEmptyEnvironment___boxed(lean_object*, lean_object*); uint8_t l_PersistentHashMap_contains___at_Lean_Environment_contains___spec__3(lean_object*, lean_object*); -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_namespacesExt___elambda__2___boxed(lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3; lean_object* l_Array_anyRangeMAux___main___at_Lean_registerSimplePersistentEnvExtension___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -320,10 +320,12 @@ lean_object* lean_import_modules(lean_object*, uint32_t, lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1; lean_object* l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Environment_9__getEntriesFor(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4___boxed(lean_object*); lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Environment_find_x3f___spec__3(lean_object*, lean_object*); lean_object* lean_environment_main_module(lean_object*); lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___closed__2; +lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); uint8_t l_USize_decLe(size_t, size_t); lean_object* l_Array_iterateMAux___main___at_Lean_mkModuleData___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -346,11 +348,11 @@ lean_object* l_Array_iterateMAux___main___at_Lean_mkModuleData___spec__5___boxed lean_object* l_Lean_EnvExtension_setState___closed__1; lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__4; lean_object* l___private_Init_Lean_Environment_13__registerNamePrefixes___main(lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_EnvExtensionState_inhabited; lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9___closed__1; lean_object* l___private_Init_Lean_Environment_9__getEntriesFor___main(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3; lean_object* lean_io_ref_reset(lean_object*, lean_object*); lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___boxed(lean_object*); lean_object* l___private_Init_Lean_Environment_11__finalizePersistentExtensions(lean_object*, lean_object*); @@ -368,10 +370,10 @@ lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Environment_addAux__ lean_object* l_Lean_regNamespacesExtension___closed__5; lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6(lean_object*, lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Environment_9__getEntriesFor___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SMap_find_x3f_x27___at_Lean_Environment_find_x3f___spec__1___boxed(lean_object*, lean_object*); -lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4___boxed(lean_object*); lean_object* l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2(uint8_t, lean_object*); lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkTagDeclarationExtension(lean_object*, lean_object*); @@ -397,6 +399,7 @@ lean_object* lean_io_initializing(lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Lean_EnvExtension_getStateUnsafe___rarg(lean_object*, lean_object*); lean_object* l_Lean_mkStateFromImportedEntries___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__3(lean_object*, lean_object*, lean_object*, lean_object*); @@ -423,6 +426,7 @@ lean_object* lean_compile_decl(lean_object*, lean_object*, lean_object*); lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_modListExtension___elambda__1(lean_object*); extern lean_object* l_Nat_Inhabited; +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_foldlM___main___at_Lean_Environment_addAux___spec__10(lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -456,7 +460,6 @@ lean_object* lean_uint32_to_nat(uint32_t); lean_object* l_ExceptT_Monad___rarg___lambda__8___boxed(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; lean_object* l_Lean_mkTagDeclarationExtension___closed__3; -lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_regNamespacesExtension___lambda__1(lean_object*); lean_object* l_PersistentHashMap_contains___at_Lean_Environment_contains___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_regNamespacesExtension___closed__2; @@ -11311,7 +11314,46 @@ return x_8; } } } -lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(lean_object* x_1) { +lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +lean_dec(x_3); +x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1; +x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_3); +if (x_7 == 0) +{ +return x_3; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_3, 0); +x_9 = lean_ctor_get(x_3, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_3); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +} +} +} +lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; @@ -11323,7 +11365,7 @@ x_6 = lean_nat_add(x_5, x_4); return x_6; } } -lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(lean_object* x_1) { +lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; @@ -11339,7 +11381,7 @@ lean_ctor_set(x_6, 1, x_4); return x_6; } } -lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object* x_1) { +lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -11348,45 +11390,15 @@ x_3 = lean_array_get_size(x_2); return x_3; } } -lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(lean_object* x_1) { +lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; x_2 = lean_ctor_get(x_1, 0); -x_3 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_2); +x_3 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(x_2); return x_3; } } -lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; uint8_t x_7; -x_6 = lean_array_get_size(x_3); -x_7 = lean_nat_dec_lt(x_4, x_6); -lean_dec(x_6); -if (x_7 == 0) -{ -lean_dec(x_4); -return x_5; -} -else -{ -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; -x_8 = lean_array_fget(x_3, x_4); -x_9 = lean_array_get_size(x_8); -lean_dec(x_8); -x_10 = lean_nat_add(x_5, x_9); -lean_dec(x_9); -lean_dec(x_5); -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_add(x_4, x_11); -lean_dec(x_4); -x_4 = x_12; -x_5 = x_10; -goto _start; -} -} -} lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -11417,7 +11429,37 @@ goto _start; } } } -lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1() { +lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_array_get_size(x_3); +x_7 = lean_nat_dec_lt(x_4, x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +lean_dec(x_4); +return x_5; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_array_fget(x_3, x_4); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_nat_add(x_5, x_9); +lean_dec(x_9); +lean_dec(x_5); +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_4, x_11); +lean_dec(x_4); +x_4 = x_12; +x_5 = x_10; +goto _start; +} +} +} +lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1() { _start: { lean_object* x_1; @@ -11425,7 +11467,7 @@ x_1 = lean_mk_string("extension '"); return x_1; } } -lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2() { +lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2() { _start: { lean_object* x_1; @@ -11433,7 +11475,7 @@ x_1 = lean_mk_string(" "); return x_1; } } -lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3() { +lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3() { _start: { lean_object* x_1; @@ -11441,7 +11483,7 @@ x_1 = lean_mk_string(" number of imported entries: "); return x_1; } } -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; uint8_t x_6; @@ -11466,12 +11508,12 @@ x_10 = lean_ctor_get(x_9, 1); lean_inc(x_10); x_11 = l_Lean_Name_toString___closed__1; x_12 = l_Lean_Name_toStringWithSep___main(x_11, x_10); -x_13 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1; +x_13 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1; x_14 = lean_string_append(x_13, x_12); lean_dec(x_12); x_15 = l_Char_HasRepr___closed__1; x_16 = lean_string_append(x_14, x_15); -x_17 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_16, x_4); +x_17 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_16, x_4); lean_dec(x_16); if (lean_obj_tag(x_17) == 0) { @@ -11498,10 +11540,10 @@ lean_ctor_set(x_26, 0, x_25); lean_ctor_set(x_26, 1, x_23); x_27 = l_Lean_Options_empty; x_28 = l_Lean_Format_pretty(x_26, x_27); -x_29 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; +x_29 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; x_30 = lean_string_append(x_29, x_28); lean_dec(x_28); -x_31 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_30, x_18); +x_31 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_30, x_18); lean_dec(x_30); if (lean_obj_tag(x_31) == 0) { @@ -11513,14 +11555,14 @@ x_33 = lean_ctor_get(x_20, 0); lean_inc(x_33); lean_dec(x_20); x_34 = lean_unsigned_to_nat(0u); -x_35 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(x_1, x_9, x_33, x_34, x_34); +x_35 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(x_1, x_9, x_33, x_34, x_34); lean_dec(x_33); lean_dec(x_9); x_36 = l_Nat_repr(x_35); -x_37 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3; +x_37 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3; x_38 = lean_string_append(x_37, x_36); lean_dec(x_36); -x_39 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_38, x_32); +x_39 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_38, x_32); lean_dec(x_38); if (lean_obj_tag(x_39) == 0) { @@ -11593,14 +11635,14 @@ x_52 = lean_ctor_get(x_20, 0); lean_inc(x_52); lean_dec(x_20); x_53 = lean_unsigned_to_nat(0u); -x_54 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(x_1, x_9, x_52, x_53, x_53); +x_54 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_9, x_52, x_53, x_53); lean_dec(x_52); lean_dec(x_9); x_55 = l_Nat_repr(x_54); -x_56 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3; +x_56 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3; x_57 = lean_string_append(x_56, x_55); lean_dec(x_55); -x_58 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_57, x_18); +x_58 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_57, x_18); lean_dec(x_57); if (lean_obj_tag(x_58) == 0) { @@ -11771,7 +11813,7 @@ lean_dec(x_17); x_20 = l_Lean_Environment_displayStats___closed__1; x_21 = lean_string_append(x_20, x_19); lean_dec(x_19); -x_22 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_21, x_6); +x_22 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_21, x_6); lean_dec(x_21); if (lean_obj_tag(x_22) == 0) { @@ -11783,7 +11825,7 @@ x_24 = l_Nat_repr(x_13); x_25 = l_Lean_Environment_displayStats___closed__2; x_26 = lean_string_append(x_25, x_24); lean_dec(x_24); -x_27 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_26, x_23); +x_27 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_26, x_23); lean_dec(x_26); if (lean_obj_tag(x_27) == 0) { @@ -11793,12 +11835,12 @@ lean_inc(x_28); lean_dec(x_27); x_29 = lean_ctor_get(x_1, 1); lean_inc(x_29); -x_30 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(x_29); +x_30 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(x_29); x_31 = l_Nat_repr(x_30); x_32 = l_Lean_Environment_displayStats___closed__3; x_33 = lean_string_append(x_32, x_31); lean_dec(x_31); -x_34 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_33, x_28); +x_34 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_33, x_28); lean_dec(x_33); if (lean_obj_tag(x_34) == 0) { @@ -11806,14 +11848,14 @@ lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean x_35 = lean_ctor_get(x_34, 1); lean_inc(x_35); lean_dec(x_34); -x_36 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(x_29); +x_36 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(x_29); x_37 = lean_ctor_get(x_36, 0); lean_inc(x_37); x_38 = l_Nat_repr(x_37); x_39 = l_Lean_Environment_displayStats___closed__4; x_40 = lean_string_append(x_39, x_38); lean_dec(x_38); -x_41 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_40, x_35); +x_41 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_40, x_35); lean_dec(x_40); if (lean_obj_tag(x_41) == 0) { @@ -11828,7 +11870,7 @@ x_44 = l_Nat_repr(x_43); x_45 = l_Lean_Environment_displayStats___closed__5; x_46 = lean_string_append(x_45, x_44); lean_dec(x_44); -x_47 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_46, x_42); +x_47 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_46, x_42); lean_dec(x_46); if (lean_obj_tag(x_47) == 0) { @@ -11836,13 +11878,13 @@ lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean x_48 = lean_ctor_get(x_47, 1); lean_inc(x_48); lean_dec(x_47); -x_49 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(x_29); +x_49 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_29); lean_dec(x_29); x_50 = l_Nat_repr(x_49); x_51 = l_Lean_Environment_displayStats___closed__6; x_52 = lean_string_append(x_51, x_50); lean_dec(x_50); -x_53 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_52, x_48); +x_53 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_52, x_48); lean_dec(x_52); if (lean_obj_tag(x_53) == 0) { @@ -11857,7 +11899,7 @@ x_57 = l_Nat_repr(x_56); x_58 = l_Lean_Environment_displayStats___closed__7; x_59 = lean_string_append(x_58, x_57); lean_dec(x_57); -x_60 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_59, x_54); +x_60 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_59, x_54); lean_dec(x_59); if (lean_obj_tag(x_60) == 0) { @@ -11873,7 +11915,7 @@ x_64 = l_Nat_repr(x_63); x_65 = l_Lean_Environment_displayStats___closed__8; x_66 = lean_string_append(x_65, x_64); lean_dec(x_64); -x_67 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_66, x_61); +x_67 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_66, x_61); lean_dec(x_66); if (lean_obj_tag(x_67) == 0) { @@ -11881,7 +11923,7 @@ lean_object* x_68; lean_object* x_69; x_68 = lean_ctor_get(x_67, 1); lean_inc(x_68); lean_dec(x_67); -x_69 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_5, x_8, x_68); +x_69 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(x_1, x_5, x_8, x_68); lean_dec(x_5); lean_dec(x_1); if (lean_obj_tag(x_69) == 0) @@ -12179,53 +12221,51 @@ x_4 = l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2(x_3 return x_4; } } -lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3___boxed(lean_object* x_1) { +lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(x_1); +x_2 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4___boxed(lean_object* x_1) { +lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(x_1); +x_2 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object* x_1) { +lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_1); +x_2 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5___boxed(lean_object* x_1) { +lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(x_1); +x_2 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_6; -} -} lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -12237,11 +12277,22 @@ lean_dec(x_1); return x_6; } } -lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_2, x_3, x_4); +x_5 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(x_1, x_2, x_3, x_4); lean_dec(x_2); lean_dec(x_1); return x_5; @@ -12480,12 +12531,12 @@ if (lean_io_result_is_error(res)) return res; l_Lean_namespacesExt = lean_io_result_get_value(res); lean_mark_persistent(l_Lean_namespacesExt); lean_dec_ref(res); -l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1(); -lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1); -l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2(); -lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2); -l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3(); -lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3); +l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1(); +lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1); +l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2(); +lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2); +l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3(); +lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3); l_Lean_Environment_displayStats___closed__1 = _init_l_Lean_Environment_displayStats___closed__1(); lean_mark_persistent(l_Lean_Environment_displayStats___closed__1); l_Lean_Environment_displayStats___closed__2 = _init_l_Lean_Environment_displayStats___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Eval.c b/stage0/stdlib/Init/Lean/Eval.c index 651b907a2c..644b5e107c 100644 --- a/stage0/stdlib/Init/Lean/Eval.c +++ b/stage0/stdlib/Init/Lean/Eval.c @@ -13,15 +13,21 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Lean_MetaIO_monadIO___closed__3; +extern lean_object* l_EIO_Monad___closed__1; lean_object* l_Lean_MetaIO_getOptions(lean_object*, lean_object*); -lean_object* l_Lean_MetaIO_monadIO(lean_object*); -lean_object* l_Lean_MetaIO_monadIO___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_MetaIO_monadIO___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MetaIO_monadIO___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_IO_MonadIO; +lean_object* l_ReaderT_monadIO___rarg(lean_object*, lean_object*); +lean_object* l_Lean_MetaIO_monadIO; lean_object* l_Lean_MetaHasEvalOfHasEval(lean_object*); lean_object* l_Lean_MetaIO_getEnv___boxed(lean_object*, lean_object*); lean_object* l_Lean_MetaHasEvalOfHasEval___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MetaIO_monadIO___closed__1; +lean_object* l_Lean_MetaIO_monadIO___closed__2; lean_object* l_Lean_MetaHasEvalOfHasEval___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetaIO_metaHasEval(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MetaIO_monadIO___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetaIO_getOptions___boxed(lean_object*, lean_object*); lean_object* l_Lean_MetaIO_getEnv(lean_object*, lean_object*); lean_object* l_Lean_MetaHasEvalOfHasEval___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { @@ -103,29 +109,76 @@ x_6 = lean_apply_2(x_3, x_5, x_4); return x_6; } } -lean_object* l_Lean_MetaIO_monadIO___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_MetaIO_monadIO___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = lean_apply_1(x_1, x_3); -return x_4; +lean_object* x_5; +x_5 = lean_apply_1(x_2, x_4); +return x_5; } } -lean_object* l_Lean_MetaIO_monadIO(lean_object* x_1) { +lean_object* _init_l_Lean_MetaIO_monadIO___closed__1() { _start: { -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_MetaIO_monadIO___rarg___boxed), 3, 0); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_EIO_Monad___closed__1; +x_2 = l_IO_MonadIO; +x_3 = l_ReaderT_monadIO___rarg(x_1, x_2); +return x_3; } } -lean_object* l_Lean_MetaIO_monadIO___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* _init_l_Lean_MetaIO_monadIO___closed__2() { _start: { -lean_object* x_4; -x_4 = l_Lean_MetaIO_monadIO___rarg(x_1, x_2, x_3); -lean_dec(x_2); -return x_4; +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_MetaIO_monadIO___lambda__1___boxed), 4, 0); +return x_1; +} +} +lean_object* _init_l_Lean_MetaIO_monadIO___closed__3() { +_start: +{ +lean_object* x_1; uint8_t x_2; +x_1 = l_Lean_MetaIO_monadIO___closed__1; +x_2 = !lean_is_exclusive(x_1); +if (x_2 == 0) +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_1, 0); +lean_dec(x_3); +x_4 = l_Lean_MetaIO_monadIO___closed__2; +lean_ctor_set(x_1, 0, x_4); +return x_1; +} +else +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = l_Lean_MetaIO_monadIO___closed__2; +x_7 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_5); +return x_7; +} +} +} +lean_object* _init_l_Lean_MetaIO_monadIO() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_MetaIO_monadIO___closed__3; +return x_1; +} +} +lean_object* l_Lean_MetaIO_monadIO___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_MetaIO_monadIO___lambda__1(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; } } lean_object* initialize_Init_Control_Reader(lean_object*); @@ -145,6 +198,14 @@ lean_dec_ref(res); res = initialize_Init_Lean_Environment(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_MetaIO_monadIO___closed__1 = _init_l_Lean_MetaIO_monadIO___closed__1(); +lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__1); +l_Lean_MetaIO_monadIO___closed__2 = _init_l_Lean_MetaIO_monadIO___closed__2(); +lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__2); +l_Lean_MetaIO_monadIO___closed__3 = _init_l_Lean_MetaIO_monadIO___closed__3(); +lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__3); +l_Lean_MetaIO_monadIO = _init_l_Lean_MetaIO_monadIO(); +lean_mark_persistent(l_Lean_MetaIO_monadIO); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/Basic.c b/stage0/stdlib/Init/Lean/Meta/Basic.c index 5fc18bcc14..69628675ee 100644 --- a/stage0/stdlib/Init/Lean/Meta/Basic.c +++ b/stage0/stdlib/Init/Lean/Meta/Basic.c @@ -42,7 +42,6 @@ lean_object* l_Lean_Meta_throwBug(lean_object*); lean_object* l_Lean_Meta_whnfForall(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_instantiateMVars(lean_object*, lean_object*); lean_object* l_Lean_Meta_dbgTrace___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* lean_io_prim_put_str(lean_object*, lean_object*); lean_object* l_Lean_Meta_InfoCacheKey_Inhabited; lean_object* l_Lean_Meta_getEnv(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -139,6 +138,7 @@ lean_object* l_Lean_Meta_TransparencyMode_Hashable___closed__1; lean_object* l___private_Init_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getEnv___rarg(lean_object*); lean_object* l_Lean_MetavarContext_hasAssignableMVar___main(lean_object*, lean_object*); +extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_Lean_Meta_getConfig___boxed(lean_object*, lean_object*); uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*); @@ -218,7 +218,6 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Meta_metaExt___closed__1; lean_object* l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1(lean_object*); lean_object* l_Lean_Meta_InfoCacheKey_HasBeq___boxed(lean_object*, lean_object*); -extern lean_object* l_IO_println___rarg___closed__1; extern lean_object* l_PersistentArray_empty___closed__3; lean_object* l_Lean_Meta_lambdaMetaTelescope(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); @@ -406,6 +405,7 @@ lean_object* l_Lean_Meta_TransparencyMode_hash___boxed(lean_object*); lean_object* l_Lean_Meta_isReadOnlyOrSyntheticOpaqueExprMVar(lean_object*, lean_object*, lean_object*); lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Meta_getMCtx(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_2__getTraceState(lean_object*); @@ -47339,7 +47339,7 @@ _start: lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = l_Lean_Options_empty; x_4 = l_Lean_Format_pretty(x_1, x_3); -x_5 = lean_io_prim_put_str(x_4, x_2); +x_5 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_4, x_2); lean_dec(x_4); return x_5; } @@ -47355,8 +47355,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); lean_dec(x_3); -x_5 = l_IO_println___rarg___closed__1; -x_6 = lean_io_prim_put_str(x_5, x_4); +x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1; +x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4); return x_6; } else diff --git a/stage0/stdlib/Init/Lean/Parser/Module.c b/stage0/stdlib/Init/Lean/Parser/Module.c index 5ada23c068..8d3bf7a953 100644 --- a/stage0/stdlib/Init/Lean/Parser/Module.c +++ b/stage0/stdlib/Init/Lean/Parser/Module.c @@ -17,14 +17,15 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__5; extern lean_object* l_Lean_Parser_manyAux___main___closed__1; lean_object* l_IO_print___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__4(lean_object*, lean_object*); lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); +lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserContext(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___closed__8; +lean_object* lean_io_prim_handle_get_line(lean_object*, lean_object*); lean_object* lean_io_timeit(lean_object*, lean_object*, lean_object*); +lean_object* lean_io_prim_handle_is_eof(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___closed__4; lean_object* l_unreachable_x21___rarg(lean_object*); extern lean_object* l_Lean_nullKind; -lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object*, lean_object*); -lean_object* lean_io_prim_put_str(lean_object*, lean_object*); lean_object* l_Lean_Parser_parseHeader(lean_object*, lean_object*); lean_object* l_Lean_Parser_ModuleParserState_inhabited___closed__1; lean_object* l_Lean_Parser_testModuleParser___closed__2; @@ -59,6 +60,7 @@ extern lean_object* l_String_splitAux___main___closed__1; lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___main(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_header___elambda__1___closed__3; lean_object* l_Lean_Parser_parseFile(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(lean_object*, uint8_t, uint8_t, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_testModuleParser___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); @@ -68,9 +70,9 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__13; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Module_2__mkEOI(lean_object*); lean_object* l_Lean_Parser_Module_prelude___closed__4; -lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_header___elambda__1___closed__1; lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_Lean_Parser_initCacheForInput(lean_object*); lean_object* l_Lean_Parser_Module_import___elambda__1___closed__4; lean_object* l_Lean_Parser_parseFileAux___main___closed__2; @@ -88,6 +90,7 @@ lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___boxed( lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*); lean_object* l_PersistentArray_forM___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__6___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1(lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_Module_header___closed__1; lean_object* l_Lean_Parser_whitespace___main(lean_object*, lean_object*); lean_object* l_Lean_Parser_optionaInfo(lean_object*); @@ -97,6 +100,7 @@ lean_object* l_Lean_Syntax_updateLeading(lean_object*); lean_object* lean_io_realpath(lean_object*, lean_object*); lean_object* l_Lean_Parser_testModuleParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_parseCommand___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_Prim_fopenFlags(uint8_t, uint8_t); extern lean_object* l_Char_HasRepr___closed__1; lean_object* l_IO_print___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_header___closed__6; @@ -104,7 +108,6 @@ lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__10; lean_object* l_Lean_Parser_testModuleParser___closed__1; lean_object* lean_name_mk_string(lean_object*, lean_object*); -extern lean_object* l_IO_println___rarg___closed__1; extern lean_object* l_PersistentArray_empty___closed__3; lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__7; lean_object* l_Lean_Parser_addParserTokens(lean_object*, lean_object*); @@ -139,6 +142,7 @@ lean_object* l_Lean_Parser_Module_updateTokens(lean_object*); lean_object* l_Lean_Parser_Module_prelude___closed__3; lean_object* l_Lean_Parser_mergeOrElseErrors(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___closed__3; +lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_prelude___closed__1; lean_object* l_Lean_Parser_Module_header___closed__7; lean_object* l_Lean_Parser_Module_import___closed__7; @@ -152,8 +156,9 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__7; lean_object* l_Lean_Parser_Module_header___closed__3; lean_object* l_String_trim(lean_object*); lean_object* l___private_Init_Lean_Parser_Module_3__consumeInput(lean_object*, lean_object*); -lean_object* lean_io_prim_read_text_file(lean_object*, lean_object*); +lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); +lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___closed__5; lean_object* l_Lean_Parser_Module_prelude___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___elambda__1___closed__14; @@ -165,6 +170,7 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__10; uint8_t l_PersistentArray_anyM___at_Lean_MessageLog_hasErrors___spec__1(lean_object*); lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__3; lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___elambda__1___closed__9; lean_object* l_Array_forMAux___main___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__10(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Module_1__mkErrorMessage___boxed(lean_object*, lean_object*, lean_object*); @@ -172,10 +178,13 @@ lean_object* l_Lean_Parser_ParserState_mkUnexpectedError(lean_object*, lean_obje lean_object* l_EStateM_pure___rarg(lean_object*, lean_object*); lean_object* l_Lean_Message_toString(lean_object*); lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__8; +lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_parseFileAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_import___elambda__1___closed__3; uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); lean_object* lean_test_module_parser(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); +lean_object* lean_io_prim_handle_mk(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__4; lean_object* l_Lean_Parser_Module_import___elambda__1___closed__6; lean_object* l_Lean_Parser_parseCommand(lean_object*, lean_object*, lean_object*, lean_object*); @@ -1956,7 +1965,7 @@ x_4 = lean_unsigned_to_nat(0u); x_5 = l_Lean_Syntax_formatStxAux___main(x_3, x_4, x_1); x_6 = l_Lean_Options_empty; x_7 = l_Lean_Format_pretty(x_5, x_6); -x_8 = lean_io_prim_put_str(x_7, x_2); +x_8 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_7, x_2); lean_dec(x_7); return x_8; } @@ -1972,8 +1981,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); lean_dec(x_3); -x_5 = l_IO_println___rarg___closed__1; -x_6 = lean_io_prim_put_str(x_5, x_4); +x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1; +x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4); return x_6; } else @@ -2005,7 +2014,7 @@ _start: { lean_object* x_3; lean_object* x_4; x_3 = l_Lean_Message_toString(x_1); -x_4 = lean_io_prim_put_str(x_3, x_2); +x_4 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_3, x_2); lean_dec(x_3); return x_4; } @@ -2021,8 +2030,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); lean_dec(x_3); -x_5 = l_IO_println___rarg___closed__1; -x_6 = lean_io_prim_put_str(x_5, x_4); +x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1; +x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4); return x_6; } else @@ -2902,12 +2911,216 @@ x_7 = l_Lean_Parser_parseFileAux___main(x_1, x_2, x_3, x_4, x_5, x_6); return x_7; } } -lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(lean_object* x_1, uint8_t x_2, uint8_t x_3, lean_object* x_4) { _start: { -lean_object* x_3; -x_3 = lean_io_prim_read_text_file(x_1, x_2); -return x_3; +lean_object* x_5; lean_object* x_6; +x_5 = l_IO_Prim_fopenFlags(x_2, x_3); +x_6 = lean_io_prim_handle_mk(x_1, x_5, x_4); +lean_dec(x_5); +return x_6; +} +} +lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_io_prim_handle_is_eof(x_1, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_unbox(x_5); +lean_dec(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_4, 1); +lean_inc(x_7); +lean_dec(x_4); +x_8 = lean_io_prim_handle_get_line(x_1, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_string_append(x_2, x_9); +lean_dec(x_9); +x_2 = x_11; +x_3 = x_10; +goto _start; +} +else +{ +uint8_t x_13; +lean_dec(x_2); +x_13 = !lean_is_exclusive(x_8); +if (x_13 == 0) +{ +return x_8; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_8, 0); +x_15 = lean_ctor_get(x_8, 1); +lean_inc(x_15); +lean_inc(x_14); +lean_dec(x_8); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +return x_16; +} +} +} +else +{ +uint8_t x_17; +x_17 = !lean_is_exclusive(x_4); +if (x_17 == 0) +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_4, 0); +lean_dec(x_18); +lean_ctor_set(x_4, 0, x_2); +return x_4; +} +else +{ +lean_object* x_19; lean_object* x_20; +x_19 = lean_ctor_get(x_4, 1); +lean_inc(x_19); +lean_dec(x_4); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_2); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +else +{ +uint8_t x_21; +lean_dec(x_2); +x_21 = !lean_is_exclusive(x_4); +if (x_21 == 0) +{ +return x_4; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_4, 0); +x_23 = lean_ctor_get(x_4, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_4); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +} +lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = l_String_splitAux___main___closed__1; +x_4 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_1, x_3, x_2); +return x_4; +} +} +lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1(lean_object* x_1, uint8_t x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_5; +x_4 = 0; +x_5 = l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(x_1, x_4, x_2, x_3); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = lean_mk_string(""); +x_9 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_6, x_8, x_7); +lean_dec(x_6); +if (lean_obj_tag(x_9) == 0) +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_9); +if (x_10 == 0) +{ +return x_9; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_9, 0); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_9); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +else +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_9); +if (x_14 == 0) +{ +return x_9; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_9, 0); +x_16 = lean_ctor_get(x_9, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_9); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +else +{ +uint8_t x_18; +x_18 = !lean_is_exclusive(x_5); +if (x_18 == 0) +{ +return x_5; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_5, 0); +x_20 = lean_ctor_get(x_5, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_5); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +return x_21; +} +} } } lean_object* l_Lean_Parser_parseFile(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -2917,99 +3130,133 @@ lean_object* x_4; x_4 = lean_io_realpath(x_2, x_3); if (lean_obj_tag(x_4) == 0) { -lean_object* x_5; lean_object* x_6; lean_object* x_7; +lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); x_6 = lean_ctor_get(x_4, 1); lean_inc(x_6); lean_dec(x_4); -x_7 = lean_io_prim_read_text_file(x_5, x_6); -if (lean_obj_tag(x_7) == 0) +x_7 = 0; +x_8 = l_IO_readFile___at_Lean_Parser_parseFile___spec__1(x_5, x_7, x_6); +if (lean_obj_tag(x_8) == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_8 = lean_ctor_get(x_7, 0); -lean_inc(x_8); -x_9 = lean_ctor_get(x_7, 1); +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_9 = lean_ctor_get(x_8, 0); lean_inc(x_9); -lean_dec(x_7); -x_10 = l_Lean_Parser_mkInputContext(x_8, x_5); +x_10 = lean_ctor_get(x_8, 1); lean_inc(x_10); +lean_dec(x_8); +x_11 = l_Lean_Parser_mkInputContext(x_9, x_5); +lean_inc(x_11); lean_inc(x_1); -x_11 = l_Lean_Parser_parseHeader(x_1, x_10); -x_12 = lean_ctor_get(x_11, 1); -lean_inc(x_12); -x_13 = lean_ctor_get(x_11, 0); +x_12 = l_Lean_Parser_parseHeader(x_1, x_11); +x_13 = lean_ctor_get(x_12, 1); lean_inc(x_13); -lean_dec(x_11); x_14 = lean_ctor_get(x_12, 0); lean_inc(x_14); -x_15 = lean_ctor_get(x_12, 1); -lean_inc(x_15); lean_dec(x_12); -x_16 = l_Lean_mkOptionalNode___closed__2; -x_17 = lean_array_push(x_16, x_13); -x_18 = l_Lean_Parser_parseFileAux___main(x_1, x_10, x_14, x_15, x_17, x_9); -return x_18; +x_15 = lean_ctor_get(x_13, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_13, 1); +lean_inc(x_16); +lean_dec(x_13); +x_17 = l_Lean_mkOptionalNode___closed__2; +x_18 = lean_array_push(x_17, x_14); +x_19 = l_Lean_Parser_parseFileAux___main(x_1, x_11, x_15, x_16, x_18, x_10); +return x_19; } else { -uint8_t x_19; +uint8_t x_20; lean_dec(x_5); lean_dec(x_1); -x_19 = !lean_is_exclusive(x_7); -if (x_19 == 0) +x_20 = !lean_is_exclusive(x_8); +if (x_20 == 0) { -return x_7; +return x_8; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_20 = lean_ctor_get(x_7, 0); -x_21 = lean_ctor_get(x_7, 1); +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_8, 0); +x_22 = lean_ctor_get(x_8, 1); +lean_inc(x_22); lean_inc(x_21); -lean_inc(x_20); -lean_dec(x_7); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_20); -lean_ctor_set(x_22, 1, x_21); -return x_22; +lean_dec(x_8); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; } } } else { -uint8_t x_23; +uint8_t x_24; lean_dec(x_1); -x_23 = !lean_is_exclusive(x_4); -if (x_23 == 0) +x_24 = !lean_is_exclusive(x_4); +if (x_24 == 0) { return x_4; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_24 = lean_ctor_get(x_4, 0); -x_25 = lean_ctor_get(x_4, 1); +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_4, 0); +x_26 = lean_ctor_get(x_4, 1); +lean_inc(x_26); lean_inc(x_25); -lean_inc(x_24); lean_dec(x_4); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); -return x_26; +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; } } } } -lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; uint8_t x_6; lean_object* x_7; +x_5 = lean_unbox(x_2); +lean_dec(x_2); +x_6 = lean_unbox(x_3); +lean_dec(x_3); +x_7 = l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(x_1, x_5, x_6, x_4); +lean_dec(x_1); +return x_7; +} +} +lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(x_1, x_2); +x_3 = l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(x_1, x_2); lean_dec(x_1); return x_3; } } +lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_5; +x_4 = lean_unbox(x_2); +lean_dec(x_2); +x_5 = l_IO_readFile___at_Lean_Parser_parseFile___spec__1(x_1, x_4, x_3); +lean_dec(x_1); +return x_5; +} +} lean_object* initialize_Init_Lean_Message(lean_object*); lean_object* initialize_Init_Lean_Parser_Command(lean_object*); static bool _G_initialized = false; diff --git a/stage0/stdlib/Init/Lean/Parser/Transform.c b/stage0/stdlib/Init/Lean/Parser/Transform.c index 461b1006cd..571f08c7bb 100644 --- a/stage0/stdlib/Init/Lean/Parser/Transform.c +++ b/stage0/stdlib/Init/Lean/Parser/Transform.c @@ -23,6 +23,7 @@ lean_object* l_Lean_Syntax_setTailInfo(lean_object*, lean_object*); lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*); lean_object* lean_string_utf8_byte_size(lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); +extern lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; lean_object* lean_array_fget(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Syntax_removeParen___boxed(lean_object*); @@ -35,7 +36,6 @@ lean_object* l_Lean_SourceInfo_truncateTrailing(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__6; lean_object* l_Lean_Syntax_manyToSepBy(lean_object*, lean_object*); lean_object* l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(lean_object*); -extern lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; extern lean_object* l_Option_HasRepr___rarg___closed__3; extern lean_object* l_Lean_Syntax_inhabited; lean_object* l_Lean_Syntax_getNumArgs(lean_object*); @@ -342,7 +342,7 @@ x_31 = lean_string_utf8_extract(x_28, x_29, x_30); lean_dec(x_30); lean_dec(x_29); lean_dec(x_28); -x_32 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; +x_32 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; x_33 = lean_string_append(x_31, x_32); x_34 = !lean_is_exclusive(x_27); if (x_34 == 0) @@ -415,7 +415,7 @@ x_57 = lean_string_utf8_extract(x_54, x_55, x_56); lean_dec(x_56); lean_dec(x_55); lean_dec(x_54); -x_58 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; +x_58 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; x_59 = lean_string_append(x_57, x_58); x_60 = lean_ctor_get(x_53, 0); lean_inc(x_60); @@ -491,7 +491,7 @@ x_79 = lean_string_utf8_extract(x_76, x_77, x_78); lean_dec(x_78); lean_dec(x_77); lean_dec(x_76); -x_80 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2; +x_80 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2; x_81 = lean_string_append(x_79, x_80); x_82 = lean_ctor_get(x_75, 0); lean_inc(x_82); diff --git a/stage0/stdlib/Init/System/IO.c b/stage0/stdlib/Init/System/IO.c index ac98b62150..9aef735d34 100644 --- a/stage0/stdlib/Init/System/IO.c +++ b/stage0/stdlib/Init/System/IO.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.System.IO -// Imports: Init.Control.EState Init.Data.String.Basic Init.Data.ByteArray Init.System.IOError Init.System.FilePath +// Imports: Init.Control.EState Init.Control.Reader Init.Data.String.Basic Init.Data.ByteArray Init.System.IOError Init.System.FilePath #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13,80 +13,102 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_IO_readFile(lean_object*); +lean_object* l_IO_getStdin___rarg___closed__1; lean_object* l_IO_FS_Handle_putStrLn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_getStdout(lean_object*, lean_object*); +lean_object* l_IO_readFile___rarg(lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_IOUnit_HasEval(lean_object*, lean_object*); -lean_object* l___private_Init_System_IO_1__putStr(lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr(lean_object*); lean_object* l_allocprof___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_mkRef___boxed(lean_object*, lean_object*); +lean_object* lean_get_stdin(lean_object*); lean_object* l_IO_Ref_modify___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_appPath___rarg___closed__1; lean_object* lean_io_prim_handle_get_line(lean_object*, lean_object*); lean_object* lean_io_timeit(lean_object*, lean_object*, lean_object*); lean_object* lean_io_prim_handle_is_eof(lean_object*, lean_object*); +lean_object* lean_get_set_stdout(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___main(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___main___at_IO_FS_Handle_readToEnd___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Ref_set___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_chmod(lean_object*, uint32_t, lean_object*); lean_object* l_IO_Prim_getEnv___boxed(lean_object*, lean_object*); -lean_object* lean_io_prim_put_str(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___at_IO_FS_Handle_readToEnd___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_MonadExcept___rarg(lean_object*); lean_object* l_IO_println(lean_object*); +lean_object* l_IO_Prim_getStderr___boxed(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__12; lean_object* l_EIO_Monad___closed__1; lean_object* l_IO_FS_Handle_read___boxed(lean_object*, lean_object*); -lean_object* l_IO_FS_withFile___rarg(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_IO_FS_withFile___rarg(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* lean_io_is_dir(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putStr___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_Prim_readTextFile___boxed(lean_object*, lean_object*); lean_object* lean_io_prim_handle_put_str(lean_object*, lean_object*, lean_object*); lean_object* l_IO_getEnv___rarg(lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___rarg___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_FS_Handle_putStr___at_Lean_HasRepr_HasEval___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_getLine___rarg(lean_object*, lean_object*); +lean_object* l_IO_withStdout___boxed(lean_object*); +lean_object* l_IO_setStdin___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_mk___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putStrLn___boxed(lean_object*); lean_object* l_IO_Ref_ptrEq___boxed(lean_object*, lean_object*); -lean_object* l_IO_readTextFile___boxed(lean_object*, lean_object*); +lean_object* l_IO_Prim_getStdout___boxed(lean_object*); lean_object* lean_io_mk_ref(lean_object*, lean_object*); +lean_object* l_StateT_monadIO___rarg(lean_object*, lean_object*); +lean_object* l_hasMonadLiftTRefl___boxed(lean_object*, lean_object*); lean_object* l_unsafeIO___rarg(lean_object*); +lean_object* lean_get_stderr(lean_object*); uint32_t l_UInt32_shiftLeft(uint32_t, uint32_t); lean_object* l_IO_FS_Handle_write(lean_object*, lean_object*); lean_object* lean_io_ref_get(lean_object*, lean_object*); -lean_object* l_IO_print(lean_object*, lean_object*); +lean_object* l_IO_print(lean_object*); lean_object* l_IO_Prim_Ref_set___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_flush___rarg(lean_object*, lean_object*); lean_object* l_IO_Ref_get___boxed(lean_object*, lean_object*); lean_object* l_IO_Ref_modify___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_withStdin___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_Handle_mk___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_readToEnd(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_getLine___at_IO_FS_Handle_readToEnd___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_IO_readFile___rarg___lambda__1(lean_object*, lean_object*); lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_IO_fileExists___boxed(lean_object*, lean_object*); lean_object* l_IO_Ref_swap___boxed(lean_object*, lean_object*); lean_object* l_EIO_MonadExcept___closed__1; uint32_t l_IO_AccessRight_flags___closed__6; lean_object* l_IO_FS_Handle_readToEnd___rarg(lean_object*, lean_object*); +lean_object* l_IO_setStderr___boxed(lean_object*, lean_object*); extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_IO_isDir(lean_object*, lean_object*); lean_object* l_IO_Ref_swap___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_Prim_setStdout___boxed(lean_object*, lean_object*); lean_object* l_EIO_Inhabited(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putStr___boxed(lean_object*, lean_object*); +lean_object* l_IO_Prim_setStderr___boxed(lean_object*, lean_object*); lean_object* l_EIO_adaptExcept___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__11; lean_object* l_IO_FS_Handle_getByte(lean_object*, lean_object*); -lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__3___boxed(lean_object*, lean_object*); lean_object* lean_io_getenv(lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__13; lean_object* l_IO_FS_Handle_isEof___at_IO_FS_Handle_readToEnd___spec__1(lean_object*, lean_object*); lean_object* l_IO_setAccessRights(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Ref_get___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_HasRepr_HasEval(lean_object*); +lean_object* l_IO_setStdout(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___at_IO_FS_Handle_readToEnd___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putByte___rarg___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_readTextFile___rarg(lean_object*, lean_object*); +lean_object* l_IO_withStdin(lean_object*); +lean_object* l_ExceptT_monadFail___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_Handle_isEof___boxed(lean_object*, lean_object*); +lean_object* l_hasMonadLiftTTrans___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_setStderr(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_getLine___boxed(lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__8; lean_object* l_EIO_Inhabited___rarg(lean_object*); lean_object* l_IO_FS_Handle_putByte___boxed(lean_object*, lean_object*); +lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_IO_Prim_fopenFlags___closed__7; lean_object* l_EStateM_Inhabited___rarg(lean_object*, lean_object*); lean_object* l_IO_appDir___boxed(lean_object*); @@ -101,35 +123,42 @@ uint32_t l_IO_AccessRight_flags___closed__9; lean_object* l_IO_appPath___rarg(lean_object*); uint32_t l_IO_AccessRight_flags___closed__2; lean_object* l_IO_Ref_set___boxed(lean_object*, lean_object*); +lean_object* l_finally___rarg___lambda__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putByte(lean_object*, lean_object*); +lean_object* l_IO_MonadIO; lean_object* l_IO_println___boxed(lean_object*); +lean_object* lean_get_set_stderr(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_read___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_StateT_MonadExcept___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_liftIO___rarg(lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__4; +lean_object* l_IO_getStderr___rarg___closed__1; lean_object* l_EIO_MonadExcept(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__10; lean_object* l_IO_Ref_reset___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_write___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_IO_realPath___boxed(lean_object*, lean_object*); +lean_object* l_IO_getStderr___rarg(lean_object*); lean_object* lean_io_realpath(lean_object*, lean_object*); lean_object* l_System_FilePath_dirName(lean_object*); +lean_object* l_IO_getStdout___rarg(lean_object*); lean_object* l_IO_Prim_Ref_reset___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags(uint8_t, uint8_t); +lean_object* l_ReaderT_monadIO___rarg(lean_object*, lean_object*); lean_object* l_IO_Ref_modify___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Inhabited(lean_object*); lean_object* l_IO_Ref_modify___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_Handle_write___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_io_allocprof(lean_object*, lean_object*, lean_object*); lean_object* l_EIO_HasOrelse(lean_object*, lean_object*); +lean_object* l_ReaderT_monadIO(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_getLine(lean_object*, lean_object*); +lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__1___boxed(lean_object*, lean_object*); lean_object* l_IO_appPath___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_getByte___rarg(lean_object*, lean_object*); lean_object* l_IO_Prim_liftIO___boxed(lean_object*, lean_object*); -lean_object* l_IO_Prim_getLine___boxed(lean_object*); -lean_object* l_IO_println___rarg___closed__1; +lean_object* l_StateT_lift___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_initializing___boxed(lean_object*); -lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__3(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_io_prim_handle_write_byte(lean_object*, uint8_t, lean_object*); @@ -138,29 +167,39 @@ lean_object* l_IO_Prim_Handle_getLine___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_mk___rarg(lean_object*, lean_object*, uint8_t, uint8_t); lean_object* l_IO_println___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_EIO_adaptExcept(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_withStdin___boxed(lean_object*); +lean_object* l_IO_getStdout___rarg___closed__1; lean_object* l_IO_isDir___boxed(lean_object*, lean_object*); +lean_object* l_IO_getStdin___rarg(lean_object*); +lean_object* l_IO_MonadIO___closed__1; lean_object* l_IO_fileExists___rarg(lean_object*, lean_object*); +lean_object* l_StateT_monadIO(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_isEof(lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___main___at_IO_FS_Handle_readToEnd___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_realPath___rarg(lean_object*, lean_object*); lean_object* l_IO_Prim_Ref_get___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_readTextFile(lean_object*, lean_object*); +lean_object* l_IO_FS_withFile___boxed(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__6; lean_object* l_IO_Prim_appPath___boxed(lean_object*); +lean_object* l_IO_setStdin___rarg(lean_object*, lean_object*); lean_object* l_IO_FileRight_flags___boxed(lean_object*); uint32_t l_IO_AccessRight_flags___closed__11; -lean_object* l_IO_FS_readFile___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_monadIO___boxed(lean_object*, lean_object*); lean_object* l_IO_Ref_modify(lean_object*); lean_object* l_IO_FS_Handle_read(lean_object*, lean_object*); lean_object* l_EIO_catchExceptions(lean_object*, lean_object*); lean_object* l_IO_setAccessRights___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_ExceptT_monadFail(lean_object*, lean_object*); +lean_object* l_IO_readFile___boxed(lean_object*); size_t lean_usize_of_nat(lean_object*); -lean_object* l_IO_Prim_putStr___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putByte___rarg(lean_object*, lean_object*, uint8_t); +lean_object* l_IO_setStdout___rarg(lean_object*, lean_object*); +lean_object* l_StateT_monadIO___boxed(lean_object*, lean_object*); +lean_object* l_IO_MonadIO___closed__2; lean_object* l_IO_ofExcept___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_fileExists___boxed(lean_object*, lean_object*); -lean_object* l_IO_FS_readFile___boxed(lean_object*); -lean_object* l_IO_FS_readFile___rarg___lambda__1(lean_object*, lean_object*); +lean_object* l_ExceptT_monadFail___boxed(lean_object*, lean_object*); +lean_object* l_IO_withStderr___boxed(lean_object*); lean_object* l_IO_realPath(lean_object*, lean_object*); lean_object* lean_io_prim_handle_write(lean_object*, lean_object*, lean_object*); lean_object* l_EIO_HasOrelse___closed__1; @@ -168,39 +207,46 @@ lean_object* l_IO_ofExcept(lean_object*, lean_object*); lean_object* lean_io_file_exists(lean_object*, lean_object*); lean_object* l_Lean_IO_HasEval(lean_object*); lean_object* l_EStateM_nonBacktrackable(lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2___boxed(lean_object*, lean_object*); lean_object* l_IO_Prim_isDir___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putStr(lean_object*, lean_object*); lean_object* l_IO_Prim_setAccessRights___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_isDir___rarg(lean_object*, lean_object*); +lean_object* l_IO_getStdin___boxed(lean_object*, lean_object*); lean_object* l_IO_getEnv(lean_object*, lean_object*); +lean_object* l_IO_MonadIO___closed__3; lean_object* l_IO_Ref_modify___boxed(lean_object*); lean_object* l_IO_Prim_Handle_getByte___boxed(lean_object*, lean_object*); -lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*); lean_object* l_IO_lazyPure(lean_object*); lean_object* l_IO_FS_Handle_isEof___at_IO_FS_Handle_readToEnd___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_IO_setStderr___rarg(lean_object*, lean_object*); lean_object* l_EStateM_Monad(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_mk___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_MonadExcept_orelse___at_EIO_HasOrelse___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_io_ref_ptr_eq(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_write___boxed(lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__5; +lean_object* lean_get_stdout(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__14; -lean_object* l_IO_FS_readFile___rarg(lean_object*, lean_object*, lean_object*, uint8_t); +lean_object* l_IO_withStderr___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags(lean_object*); +lean_object* l_IO_getStdout___at_Lean_HasRepr_HasEval___spec__3(lean_object*); lean_object* l_unsafeIO(lean_object*); lean_object* lean_io_ref_reset(lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__3; lean_object* lean_io_ref_swap(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_readFile___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_getEnv___boxed(lean_object*, lean_object*); -lean_object* l_IO_print___boxed(lean_object*, lean_object*); -lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_IO_withStdin___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_print___boxed(lean_object*); lean_object* l_IO_Ref_swap(lean_object*, lean_object*); lean_object* l_IO_Ref_ptrEq(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_putStrLn(lean_object*); lean_object* l_IO_FS_Handle_getLine___at_IO_FS_Handle_readToEnd___spec__2(lean_object*, lean_object*); lean_object* l_IO_Prim_Ref_swap___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_get_set_stdin(lean_object*, lean_object*); lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*); lean_object* lean_io_prim_handle_read_byte(lean_object*, lean_object*); lean_object* l_IO_appDir___rarg___lambda__1(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_read___rarg(lean_object*, lean_object*, lean_object*); @@ -209,7 +255,6 @@ lean_object* l_EStateM_MonadExcept___rarg(lean_object*); lean_object* l_IO_Prim_Handle_putByte___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_HasRepr_HasEval___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_EIO_MonadExcept___closed__2; -lean_object* lean_io_prim_read_text_file(lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__10; lean_object* l_IO_FS_Handle_getByte___boxed(lean_object*, lean_object*); lean_object* lean_io_prim_handle_flush(lean_object*, lean_object*); @@ -219,52 +264,65 @@ lean_object* l_IO_appPath(lean_object*, lean_object*); lean_object* l_IO_Ref_set(lean_object*, lean_object*); lean_object* lean_io_initializing(lean_object*); lean_object* l_IO_FS_Handle_readToEnd___boxed(lean_object*, lean_object*); -lean_object* l_IO_FS_readFile(lean_object*); +lean_object* l_IO_withStderr(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__9; lean_object* l_IO_mkRef(lean_object*, lean_object*); lean_object* l_IO_Prim_Ref_ptrEq___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_MonadExcept_orelse___at_EIO_HasOrelse___spec__1(lean_object*, lean_object*); +lean_object* l_IO_getStderr(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_isEof___boxed(lean_object*, lean_object*); lean_object* l_IO_Ref_ptrEq___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_EIO_Monad(lean_object*); -lean_object* l___private_Init_System_IO_1__putStr___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___boxed(lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__8; lean_object* l_IO_Prim_Handle_putStr___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_withStdout(lean_object*); lean_object* l_Lean_IO_HasEval___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_timeit___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_io_app_dir(lean_object*); +lean_object* l_IO_FS_Handle_putStr___at_Lean_HasRepr_HasEval___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_IO_FS_Handle_isEof___rarg(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_flush(lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__12; lean_object* l_IO_Prim_fopenFlags___boxed(lean_object*, lean_object*); lean_object* l_IO_mkRef___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_getStdin(lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__1; lean_object* l_IO_Prim_mkRef___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_FS_withFile___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_getStderr___boxed(lean_object*, lean_object*); +lean_object* l_IO_FS_withFile___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_io_prim_handle_read(lean_object*, size_t, lean_object*); -lean_object* l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1(lean_object*, uint8_t, uint8_t, lean_object*); lean_object* l_IO_fileExists(lean_object*, lean_object*); -lean_object* l_IO_FS_readFile___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_getStdout___boxed(lean_object*, lean_object*); lean_object* l_IO_FS_Handle_flush___boxed(lean_object*, lean_object*); -lean_object* l_IO_print___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_withStderr___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_print___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__2; -lean_object* lean_io_prim_get_line(lean_object*); lean_object* l_IO_RefPointed(lean_object*); -lean_object* l___private_Init_System_IO_1__putStr___rarg(lean_object*, lean_object*); +lean_object* l___private_Init_System_IO_1__putStr___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_withStdout___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__5; +lean_object* l_IO_withStdout___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_io_prim_handle_mk(lean_object*, lean_object*, lean_object*); lean_object* l_IO_appDir___rarg(lean_object*, lean_object*); +lean_object* l_finally___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_IO_readFile___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_iterate___main___rarg(lean_object*, lean_object*, lean_object*); uint32_t l_IO_AccessRight_flags___closed__7; uint32_t l_IO_FileRight_flags(lean_object*); +lean_object* l_IO_setStdin(lean_object*, lean_object*); lean_object* l_EIO_catchExceptions___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_Prim_setStdin___boxed(lean_object*, lean_object*); lean_object* l_IO_Prim_Handle_read___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_Prim_fopenFlags___closed__13; uint32_t l_IO_AccessRight_flags___closed__3; lean_object* l_IO_FS_withFile(lean_object*); +lean_object* l_IO_Prim_getStdin___boxed(lean_object*); lean_object* l_IO_Prim_Handle_flush___boxed(lean_object*, lean_object*); lean_object* l_IO_Ref_reset(lean_object*, lean_object*); +lean_object* l_IO_setStdout___boxed(lean_object*, lean_object*); lean_object* l_EIO_adaptExcept___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -544,6 +602,153 @@ x_2 = lean_io_initializing(x_1); return x_2; } } +lean_object* _init_l_IO_MonadIO___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_hasMonadLiftTRefl___boxed), 2, 1); +lean_closure_set(x_1, 0, lean_box(0)); +return x_1; +} +} +lean_object* _init_l_IO_MonadIO___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = l_EIO_MonadExcept(lean_box(0)); +return x_1; +} +} +lean_object* _init_l_IO_MonadIO___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_IO_MonadIO___closed__1; +x_2 = l_IO_MonadIO___closed__2; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_IO_MonadIO() { +_start: +{ +lean_object* x_1; +x_1 = l_IO_MonadIO___closed__3; +return x_1; +} +} +lean_object* l_ExceptT_monadFail___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_alloc_ctor(18, 1, 0); +lean_ctor_set(x_5, 0, x_3); +x_6 = lean_apply_2(x_4, lean_box(0), x_5); +return x_6; +} +} +lean_object* l_ExceptT_monadFail(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_ExceptT_monadFail___rarg), 3, 0); +return x_3; +} +} +lean_object* l_ExceptT_monadFail___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_ExceptT_monadFail(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_ReaderT_monadIO___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_alloc_closure((void*)(l_ReaderT_lift___boxed), 4, 3); +lean_closure_set(x_3, 0, lean_box(0)); +lean_closure_set(x_3, 1, lean_box(0)); +lean_closure_set(x_3, 2, x_1); +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +x_5 = lean_alloc_closure((void*)(l_hasMonadLiftTTrans___rarg), 4, 2); +lean_closure_set(x_5, 0, x_3); +lean_closure_set(x_5, 1, x_4); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +lean_dec(x_2); +x_7 = l_ReaderT_MonadExcept___rarg(x_6); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_5); +lean_ctor_set(x_8, 1, x_7); +return x_8; +} +} +lean_object* l_ReaderT_monadIO(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_ReaderT_monadIO___rarg), 2, 0); +return x_3; +} +} +lean_object* l_ReaderT_monadIO___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_ReaderT_monadIO(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_StateT_monadIO___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_inc(x_1); +x_3 = lean_alloc_closure((void*)(l_StateT_lift___rarg), 4, 1); +lean_closure_set(x_3, 0, x_1); +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +x_5 = lean_alloc_closure((void*)(l_hasMonadLiftTTrans___rarg), 4, 2); +lean_closure_set(x_5, 0, x_3); +lean_closure_set(x_5, 1, x_4); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +lean_dec(x_2); +x_7 = l_StateT_MonadExcept___rarg(x_1, lean_box(0), x_6); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_5); +lean_ctor_set(x_8, 1, x_7); +return x_8; +} +} +lean_object* l_StateT_monadIO(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_StateT_monadIO___rarg), 2, 0); +return x_3; +} +} +lean_object* l_StateT_monadIO___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_StateT_monadIO(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} lean_object* l_IO_ofExcept___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -603,6 +808,54 @@ x_2 = lean_alloc_closure((void*)(l_IO_lazyPure___rarg), 2, 0); return x_2; } } +lean_object* l_IO_Prim_getStdin___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_get_stdin(x_1); +return x_2; +} +} +lean_object* l_IO_Prim_getStderr___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_get_stderr(x_1); +return x_2; +} +} +lean_object* l_IO_Prim_getStdout___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_get_stdout(x_1); +return x_2; +} +} +lean_object* l_IO_Prim_setStdin___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_get_set_stdin(x_1, x_2); +return x_3; +} +} +lean_object* l_IO_Prim_setStderr___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_get_set_stderr(x_1, x_2); +return x_3; +} +} +lean_object* l_IO_Prim_setStdout___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_get_set_stdout(x_1, x_2); +return x_3; +} +} lean_object* l_IO_Prim_iterate___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -915,32 +1168,6 @@ x_5 = l_IO_Prim_fopenFlags(x_3, x_4); return x_5; } } -lean_object* l_IO_Prim_putStr___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_io_prim_put_str(x_1, x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_Prim_readTextFile___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_io_prim_read_text_file(x_1, x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_Prim_getLine___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_io_prim_get_line(x_1); -return x_2; -} -} lean_object* l_IO_Prim_Handle_mk___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -1075,9 +1302,12 @@ return x_2; lean_object* l_IO_Prim_liftIO___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; -x_3 = lean_apply_2(x_1, lean_box(0), x_2); -return x_3; +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +lean_dec(x_1); +x_4 = lean_apply_2(x_3, lean_box(0), x_2); +return x_4; } } lean_object* l_IO_Prim_liftIO(lean_object* x_1, lean_object* x_2) { @@ -1097,331 +1327,19 @@ lean_dec(x_1); return x_3; } } -lean_object* l___private_Init_System_IO_1__putStr___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_putStr___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l___private_Init_System_IO_1__putStr(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l___private_Init_System_IO_1__putStr___rarg), 2, 0); -return x_3; -} -} -lean_object* l___private_Init_System_IO_1__putStr___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l___private_Init_System_IO_1__putStr(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_print___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -lean_object* x_5; lean_object* x_6; -x_5 = lean_apply_1(x_3, x_4); -x_6 = l___private_Init_System_IO_1__putStr___rarg(x_1, x_5); -return x_6; -} -} -lean_object* l_IO_print(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_print___rarg), 4, 0); -return x_3; -} -} -lean_object* l_IO_print___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_print(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* _init_l_IO_println___rarg___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("\n"); -return x_1; -} -} -lean_object* l_IO_println___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; -x_6 = lean_ctor_get(x_1, 0); -lean_inc(x_6); -lean_dec(x_1); -x_7 = lean_ctor_get(x_6, 4); -lean_inc(x_7); -lean_dec(x_6); -lean_inc(x_2); -x_8 = l_IO_print___rarg(x_2, lean_box(0), x_4, x_5); -x_9 = l_IO_println___rarg___closed__1; -x_10 = l___private_Init_System_IO_1__putStr___rarg(x_2, x_9); -x_11 = lean_apply_4(x_7, lean_box(0), lean_box(0), x_8, x_10); -return x_11; -} -} -lean_object* l_IO_println(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_IO_println___rarg), 5, 0); -return x_2; -} -} -lean_object* l_IO_println___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_IO_println(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_IO_readTextFile___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_readTextFile___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l_IO_readTextFile(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_readTextFile___rarg), 2, 0); -return x_3; -} -} -lean_object* l_IO_readTextFile___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_readTextFile(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_getEnv___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_getEnv___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l_IO_getEnv(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_getEnv___rarg), 2, 0); -return x_3; -} -} -lean_object* l_IO_getEnv___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_getEnv(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_realPath___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_realPath___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l_IO_realPath(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_realPath___rarg), 2, 0); -return x_3; -} -} -lean_object* l_IO_realPath___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_realPath(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_isDir___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_isDir___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l_IO_isDir(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_isDir___rarg), 2, 0); -return x_3; -} -} -lean_object* l_IO_isDir___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_isDir(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_fileExists___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = lean_alloc_closure((void*)(l_IO_Prim_fileExists___boxed), 2, 1); -lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; -} -} -lean_object* l_IO_fileExists(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_fileExists___rarg), 2, 0); -return x_3; -} -} -lean_object* l_IO_fileExists___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_fileExists(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* _init_l_IO_appPath___rarg___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_IO_Prim_appPath___boxed), 1, 0); -return x_1; -} -} -lean_object* l_IO_appPath___rarg(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = l_IO_appPath___rarg___closed__1; -x_3 = lean_apply_2(x_1, lean_box(0), x_2); -return x_3; -} -} -lean_object* l_IO_appPath(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_IO_appPath___rarg), 1, 0); -return x_3; -} -} -lean_object* l_IO_appPath___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_appPath(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_appDir___rarg___lambda__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = l_System_FilePath_dirName(x_2); -x_4 = l_IO_realPath___rarg(x_1, x_3); -return x_4; -} -} -lean_object* l_IO_appDir___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; -x_3 = lean_ctor_get(x_1, 1); -lean_inc(x_3); -lean_dec(x_1); -x_4 = l_IO_appPath___rarg___closed__1; -lean_inc(x_2); -x_5 = lean_apply_2(x_2, lean_box(0), x_4); -x_6 = lean_alloc_closure((void*)(l_IO_appDir___rarg___lambda__1), 2, 1); -lean_closure_set(x_6, 0, x_2); -x_7 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_5, x_6); -return x_7; -} -} -lean_object* l_IO_appDir(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_IO_appDir___rarg), 2, 0); -return x_2; -} -} -lean_object* l_IO_appDir___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_IO_appDir(x_1); -lean_dec(x_1); -return x_2; -} -} lean_object* l_IO_FS_Handle_mk___rarg(lean_object* x_1, lean_object* x_2, uint8_t x_3, uint8_t x_4) { _start: { -lean_object* x_5; lean_object* x_6; lean_object* x_7; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; x_5 = l_IO_Prim_fopenFlags(x_3, x_4); x_6 = lean_alloc_closure((void*)(l_IO_Prim_Handle_mk___boxed), 3, 2); lean_closure_set(x_6, 0, x_2); lean_closure_set(x_6, 1, x_5); -x_7 = lean_apply_2(x_1, lean_box(0), x_6); -return x_7; +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_apply_2(x_7, lean_box(0), x_6); +return x_8; } } lean_object* l_IO_FS_Handle_mk(lean_object* x_1, lean_object* x_2) { @@ -1454,98 +1372,57 @@ lean_dec(x_1); return x_3; } } -lean_object* l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1(lean_object* x_1, uint8_t x_2, uint8_t x_3, lean_object* x_4) { +lean_object* l_IO_FS_withFile___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, uint8_t x_5, lean_object* x_6) { _start: { -lean_object* x_5; lean_object* x_6; -x_5 = l_IO_Prim_fopenFlags(x_2, x_3); -x_6 = lean_io_prim_handle_mk(x_1, x_5, x_4); -lean_dec(x_5); -return x_6; -} -} -lean_object* l_IO_FS_withFile___rarg(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -uint8_t x_5; lean_object* x_6; -x_5 = 0; -x_6 = l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1(x_1, x_2, x_5, x_4); -if (lean_obj_tag(x_6) == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_ctor_get(x_6, 0); +lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_1, 1); lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -lean_dec(x_6); -x_9 = lean_apply_2(x_3, x_7, x_8); -return x_9; -} -else -{ -uint8_t x_10; -lean_dec(x_3); -x_10 = !lean_is_exclusive(x_6); -if (x_10 == 0) -{ -return x_6; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_11 = lean_ctor_get(x_6, 0); -x_12 = lean_ctor_get(x_6, 1); -lean_inc(x_12); -lean_inc(x_11); -lean_dec(x_6); -x_13 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_13, 0, x_11); -lean_ctor_set(x_13, 1, x_12); -return x_13; -} -} +lean_dec(x_1); +x_8 = 0; +x_9 = l_IO_FS_Handle_mk___rarg(x_2, x_4, x_5, x_8); +x_10 = lean_apply_4(x_7, lean_box(0), lean_box(0), x_9, x_6); +return x_10; } } lean_object* l_IO_FS_withFile(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_IO_FS_withFile___rarg___boxed), 4, 0); +x_2 = lean_alloc_closure((void*)(l_IO_FS_withFile___rarg___boxed), 6, 0); return x_2; } } -lean_object* l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_IO_FS_withFile___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { -uint8_t x_5; uint8_t x_6; lean_object* x_7; -x_5 = lean_unbox(x_2); -lean_dec(x_2); -x_6 = lean_unbox(x_3); -lean_dec(x_3); -x_7 = l_IO_FS_Handle_mk___at_IO_FS_withFile___spec__1(x_1, x_5, x_6, x_4); -lean_dec(x_1); -return x_7; +uint8_t x_7; lean_object* x_8; +x_7 = lean_unbox(x_5); +lean_dec(x_5); +x_8 = l_IO_FS_withFile___rarg(x_1, x_2, x_3, x_4, x_7, x_6); +return x_8; } } -lean_object* l_IO_FS_withFile___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_IO_FS_withFile___boxed(lean_object* x_1) { _start: { -uint8_t x_5; lean_object* x_6; -x_5 = lean_unbox(x_2); -lean_dec(x_2); -x_6 = l_IO_FS_withFile___rarg(x_1, x_5, x_3, x_4); +lean_object* x_2; +x_2 = l_IO_FS_withFile(x_1); lean_dec(x_1); -return x_6; +return x_2; } } lean_object* l_IO_FS_Handle_isEof___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; +lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_alloc_closure((void*)(l_IO_Prim_Handle_isEof___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; } } lean_object* l_IO_FS_Handle_isEof(lean_object* x_1, lean_object* x_2) { @@ -1569,11 +1446,14 @@ return x_3; lean_object* l_IO_FS_Handle_flush___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; +lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_alloc_closure((void*)(l_IO_Prim_Handle_flush___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; } } lean_object* l_IO_FS_Handle_flush(lean_object* x_1, lean_object* x_2) { @@ -1597,14 +1477,17 @@ return x_3; lean_object* l_IO_FS_Handle_read___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -size_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +size_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; x_4 = lean_usize_of_nat(x_3); x_5 = lean_box_usize(x_4); x_6 = lean_alloc_closure((void*)(l_IO_Prim_Handle_read___boxed), 3, 2); lean_closure_set(x_6, 0, x_2); lean_closure_set(x_6, 1, x_5); -x_7 = lean_apply_2(x_1, lean_box(0), x_6); -return x_7; +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_apply_2(x_7, lean_box(0), x_6); +return x_8; } } lean_object* l_IO_FS_Handle_read(lean_object* x_1, lean_object* x_2) { @@ -1637,12 +1520,15 @@ return x_3; lean_object* l_IO_FS_Handle_write___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; +lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_alloc_closure((void*)(l_IO_Prim_Handle_write___boxed), 3, 2); lean_closure_set(x_4, 0, x_2); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_FS_Handle_write(lean_object* x_1, lean_object* x_2) { @@ -1666,11 +1552,14 @@ return x_3; lean_object* l_IO_FS_Handle_getByte___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; +lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_alloc_closure((void*)(l_IO_Prim_Handle_getByte___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; } } lean_object* l_IO_FS_Handle_getByte(lean_object* x_1, lean_object* x_2) { @@ -1694,13 +1583,16 @@ return x_3; lean_object* l_IO_FS_Handle_putByte___rarg(lean_object* x_1, lean_object* x_2, uint8_t x_3) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; x_4 = lean_box(x_3); x_5 = lean_alloc_closure((void*)(l_IO_Prim_Handle_putByte___boxed), 3, 2); lean_closure_set(x_5, 0, x_2); lean_closure_set(x_5, 1, x_4); -x_6 = lean_apply_2(x_1, lean_box(0), x_5); -return x_6; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +lean_dec(x_1); +x_7 = lean_apply_2(x_6, lean_box(0), x_5); +return x_7; } } lean_object* l_IO_FS_Handle_putByte(lean_object* x_1, lean_object* x_2) { @@ -1734,11 +1626,14 @@ return x_3; lean_object* l_IO_FS_Handle_getLine___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; +lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_alloc_closure((void*)(l_IO_Prim_Handle_getLine___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = lean_apply_2(x_1, lean_box(0), x_3); -return x_4; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; } } lean_object* l_IO_FS_Handle_getLine(lean_object* x_1, lean_object* x_2) { @@ -1762,12 +1657,15 @@ return x_3; lean_object* l_IO_FS_Handle_putStr___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; +lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_alloc_closure((void*)(l_IO_Prim_Handle_putStr___boxed), 3, 2); lean_closure_set(x_4, 0, x_2); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_FS_Handle_putStr(lean_object* x_1, lean_object* x_2) { @@ -1788,6 +1686,14 @@ lean_dec(x_1); return x_3; } } +lean_object* _init_l_IO_FS_Handle_putStrLn___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("\n"); +return x_1; +} +} lean_object* l_IO_FS_Handle_putStrLn___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -1801,7 +1707,7 @@ lean_dec(x_5); lean_inc(x_3); lean_inc(x_2); x_7 = l_IO_FS_Handle_putStr___rarg(x_2, x_3, x_4); -x_8 = l_IO_println___rarg___closed__1; +x_8 = l_IO_FS_Handle_putStrLn___rarg___closed__1; x_9 = l_IO_FS_Handle_putStr___rarg(x_2, x_3, x_8); x_10 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_7, x_9); return x_10; @@ -1958,13 +1864,16 @@ return x_4; lean_object* l_IO_FS_Handle_readToEnd___rarg(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; lean_object* x_5; +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_3 = l_String_splitAux___main___closed__1; x_4 = lean_alloc_closure((void*)(l_IO_Prim_iterate___at_IO_FS_Handle_readToEnd___spec__3___boxed), 3, 2); lean_closure_set(x_4, 0, x_2); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_FS_Handle_readToEnd(lean_object* x_1, lean_object* x_2) { @@ -2021,7 +1930,699 @@ lean_dec(x_1); return x_3; } } -lean_object* l_IO_FS_readFile___rarg___lambda__1(lean_object* x_1, lean_object* x_2) { +lean_object* _init_l_IO_getStdout___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_IO_Prim_getStdout___boxed), 1, 0); +return x_1; +} +} +lean_object* l_IO_getStdout___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_IO_getStdout___rarg___closed__1; +x_4 = lean_apply_2(x_2, lean_box(0), x_3); +return x_4; +} +} +lean_object* l_IO_getStdout(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_getStdout___rarg), 1, 0); +return x_3; +} +} +lean_object* l_IO_getStdout___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_getStdout(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_IO_getStderr___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_IO_Prim_getStderr___boxed), 1, 0); +return x_1; +} +} +lean_object* l_IO_getStderr___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_IO_getStderr___rarg___closed__1; +x_4 = lean_apply_2(x_2, lean_box(0), x_3); +return x_4; +} +} +lean_object* l_IO_getStderr(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_getStderr___rarg), 1, 0); +return x_3; +} +} +lean_object* l_IO_getStderr___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_getStderr(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_IO_getStdin___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_IO_Prim_getStdin___boxed), 1, 0); +return x_1; +} +} +lean_object* l_IO_getStdin___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_IO_getStdin___rarg___closed__1; +x_4 = lean_apply_2(x_2, lean_box(0), x_3); +return x_4; +} +} +lean_object* l_IO_getStdin(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_getStdin___rarg), 1, 0); +return x_3; +} +} +lean_object* l_IO_getStdin___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_getStdin(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_setStdout___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_setStdout___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_setStdout(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_setStdout___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_setStdout___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_setStdout(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_setStderr___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_setStderr___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_setStderr(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_setStderr___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_setStderr___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_setStderr(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_setStdin___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_setStdin___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_setStdin(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_setStdin___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_setStdin___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_setStdin(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_withStderr___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +x_7 = l_IO_setStderr___rarg(x_1, x_5); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_3); +x_9 = lean_alloc_closure((void*)(l_finally___rarg___lambda__2), 4, 3); +lean_closure_set(x_9, 0, x_2); +lean_closure_set(x_9, 1, x_3); +lean_closure_set(x_9, 2, x_7); +lean_inc(x_3); +x_10 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_4, x_9); +x_11 = lean_alloc_closure((void*)(l_finally___rarg___lambda__4), 4, 3); +lean_closure_set(x_11, 0, x_6); +lean_closure_set(x_11, 1, x_3); +lean_closure_set(x_11, 2, x_7); +x_12 = lean_apply_3(x_8, lean_box(0), x_10, x_11); +return x_12; +} +} +lean_object* l_IO_withStderr___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +lean_inc(x_2); +x_7 = l_IO_setStderr___rarg(x_2, x_4); +lean_inc(x_6); +x_8 = lean_alloc_closure((void*)(l_IO_withStderr___rarg___lambda__1), 5, 4); +lean_closure_set(x_8, 0, x_2); +lean_closure_set(x_8, 1, x_1); +lean_closure_set(x_8, 2, x_6); +lean_closure_set(x_8, 3, x_5); +x_9 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_7, x_8); +return x_9; +} +} +lean_object* l_IO_withStderr(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_withStderr___rarg), 5, 0); +return x_2; +} +} +lean_object* l_IO_withStderr___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_withStderr(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_withStdout___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +x_7 = l_IO_setStdout___rarg(x_1, x_5); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_3); +x_9 = lean_alloc_closure((void*)(l_finally___rarg___lambda__2), 4, 3); +lean_closure_set(x_9, 0, x_2); +lean_closure_set(x_9, 1, x_3); +lean_closure_set(x_9, 2, x_7); +lean_inc(x_3); +x_10 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_4, x_9); +x_11 = lean_alloc_closure((void*)(l_finally___rarg___lambda__4), 4, 3); +lean_closure_set(x_11, 0, x_6); +lean_closure_set(x_11, 1, x_3); +lean_closure_set(x_11, 2, x_7); +x_12 = lean_apply_3(x_8, lean_box(0), x_10, x_11); +return x_12; +} +} +lean_object* l_IO_withStdout___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +lean_inc(x_2); +x_7 = l_IO_setStdout___rarg(x_2, x_4); +lean_inc(x_6); +x_8 = lean_alloc_closure((void*)(l_IO_withStdout___rarg___lambda__1), 5, 4); +lean_closure_set(x_8, 0, x_2); +lean_closure_set(x_8, 1, x_1); +lean_closure_set(x_8, 2, x_6); +lean_closure_set(x_8, 3, x_5); +x_9 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_7, x_8); +return x_9; +} +} +lean_object* l_IO_withStdout(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_withStdout___rarg), 5, 0); +return x_2; +} +} +lean_object* l_IO_withStdout___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_withStdout(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_withStdin___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +x_7 = l_IO_setStdin___rarg(x_1, x_5); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_3); +x_9 = lean_alloc_closure((void*)(l_finally___rarg___lambda__2), 4, 3); +lean_closure_set(x_9, 0, x_2); +lean_closure_set(x_9, 1, x_3); +lean_closure_set(x_9, 2, x_7); +lean_inc(x_3); +x_10 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_4, x_9); +x_11 = lean_alloc_closure((void*)(l_finally___rarg___lambda__4), 4, 3); +lean_closure_set(x_11, 0, x_6); +lean_closure_set(x_11, 1, x_3); +lean_closure_set(x_11, 2, x_7); +x_12 = lean_apply_3(x_8, lean_box(0), x_10, x_11); +return x_12; +} +} +lean_object* l_IO_withStdin___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +lean_inc(x_2); +x_7 = l_IO_setStdin___rarg(x_2, x_4); +lean_inc(x_6); +x_8 = lean_alloc_closure((void*)(l_IO_withStdin___rarg___lambda__1), 5, 4); +lean_closure_set(x_8, 0, x_2); +lean_closure_set(x_8, 1, x_1); +lean_closure_set(x_8, 2, x_6); +lean_closure_set(x_8, 3, x_5); +x_9 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_7, x_8); +return x_9; +} +} +lean_object* l_IO_withStdin(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_withStdin___rarg), 5, 0); +return x_2; +} +} +lean_object* l_IO_withStdin___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_withStdin(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l___private_Init_System_IO_1__putStr___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_IO_FS_Handle_putStr___rarg(x_1, x_3, x_2); +return x_4; +} +} +lean_object* l___private_Init_System_IO_1__putStr___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +lean_dec(x_1); +lean_inc(x_2); +x_5 = l_IO_getStdout___rarg(x_2); +x_6 = lean_alloc_closure((void*)(l___private_Init_System_IO_1__putStr___rarg___lambda__1), 3, 2); +lean_closure_set(x_6, 0, x_2); +lean_closure_set(x_6, 1, x_3); +x_7 = lean_apply_4(x_4, lean_box(0), lean_box(0), x_5, x_6); +return x_7; +} +} +lean_object* l___private_Init_System_IO_1__putStr(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_System_IO_1__putStr___rarg), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_System_IO_1__putStr___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l___private_Init_System_IO_1__putStr(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_print___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_apply_1(x_4, x_5); +x_7 = l___private_Init_System_IO_1__putStr___rarg(x_1, x_2, x_6); +return x_7; +} +} +lean_object* l_IO_print(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_print___rarg), 5, 0); +return x_2; +} +} +lean_object* l_IO_print___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_print(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_println___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_6, 4); +lean_inc(x_7); +lean_dec(x_6); +lean_inc(x_2); +lean_inc(x_1); +x_8 = l_IO_print___rarg(x_1, x_2, lean_box(0), x_4, x_5); +x_9 = l_IO_FS_Handle_putStrLn___rarg___closed__1; +x_10 = l___private_Init_System_IO_1__putStr___rarg(x_1, x_2, x_9); +x_11 = lean_apply_4(x_7, lean_box(0), lean_box(0), x_8, x_10); +return x_11; +} +} +lean_object* l_IO_println(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_println___rarg), 5, 0); +return x_2; +} +} +lean_object* l_IO_println___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_println(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_getEnv___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_getEnv___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_getEnv(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_getEnv___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_getEnv___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_getEnv(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_realPath___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_realPath___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_realPath(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_realPath___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_realPath___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_realPath(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_isDir___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_isDir___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_isDir(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_isDir___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_isDir___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_isDir(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_fileExists___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_alloc_closure((void*)(l_IO_Prim_fileExists___boxed), 2, 1); +lean_closure_set(x_3, 0, x_2); +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_apply_2(x_4, lean_box(0), x_3); +return x_5; +} +} +lean_object* l_IO_fileExists(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_fileExists___rarg), 2, 0); +return x_3; +} +} +lean_object* l_IO_fileExists___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_fileExists(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_IO_appPath___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_IO_Prim_appPath___boxed), 1, 0); +return x_1; +} +} +lean_object* l_IO_appPath___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_IO_appPath___rarg___closed__1; +x_4 = lean_apply_2(x_2, lean_box(0), x_3); +return x_4; +} +} +lean_object* l_IO_appPath(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_IO_appPath___rarg), 1, 0); +return x_3; +} +} +lean_object* l_IO_appPath___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_IO_appPath(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_IO_appDir___rarg___lambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = l_System_FilePath_dirName(x_2); +x_4 = l_IO_realPath___rarg(x_1, x_3); +return x_4; +} +} +lean_object* l_IO_appDir___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +lean_inc(x_2); +x_4 = l_IO_appPath___rarg(x_2); +x_5 = lean_alloc_closure((void*)(l_IO_appDir___rarg___lambda__1), 2, 1); +lean_closure_set(x_5, 0, x_2); +x_6 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_4, x_5); +return x_6; +} +} +lean_object* l_IO_appDir(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_IO_appDir___rarg), 2, 0); +return x_2; +} +} +lean_object* l_IO_appDir___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_IO_appDir(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_IO_readFile___rarg___lambda__1(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; @@ -2035,18 +2636,18 @@ x_5 = lean_apply_2(x_4, lean_box(0), x_2); return x_5; } } -lean_object* l_IO_FS_readFile___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_IO_readFile___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; lean_object* x_6; lean_object* x_7; x_5 = l_IO_FS_Handle_readToEnd___rarg(x_1, x_4); -x_6 = lean_alloc_closure((void*)(l_IO_FS_readFile___rarg___lambda__1), 2, 1); +x_6 = lean_alloc_closure((void*)(l_IO_readFile___rarg___lambda__1), 2, 1); lean_closure_set(x_6, 0, x_2); x_7 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_5, x_6); return x_7; } } -lean_object* l_IO_FS_readFile___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4) { +lean_object* l_IO_readFile___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4) { _start: { lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; @@ -2056,7 +2657,7 @@ x_6 = 0; lean_inc(x_2); x_7 = l_IO_FS_Handle_mk___rarg(x_2, x_3, x_6, x_4); lean_inc(x_5); -x_8 = lean_alloc_closure((void*)(l_IO_FS_readFile___rarg___lambda__2), 4, 3); +x_8 = lean_alloc_closure((void*)(l_IO_readFile___rarg___lambda__2), 4, 3); lean_closure_set(x_8, 0, x_2); lean_closure_set(x_8, 1, x_1); lean_closure_set(x_8, 2, x_5); @@ -2064,29 +2665,29 @@ x_9 = lean_apply_4(x_5, lean_box(0), lean_box(0), x_7, x_8); return x_9; } } -lean_object* l_IO_FS_readFile(lean_object* x_1) { +lean_object* l_IO_readFile(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_IO_FS_readFile___rarg___boxed), 4, 0); +x_2 = lean_alloc_closure((void*)(l_IO_readFile___rarg___boxed), 4, 0); return x_2; } } -lean_object* l_IO_FS_readFile___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_IO_readFile___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; lean_object* x_6; x_5 = lean_unbox(x_4); lean_dec(x_4); -x_6 = l_IO_FS_readFile___rarg(x_1, x_2, x_3, x_5); +x_6 = l_IO_readFile___rarg(x_1, x_2, x_3, x_5); return x_6; } } -lean_object* l_IO_FS_readFile___boxed(lean_object* x_1) { +lean_object* l_IO_readFile___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_IO_FS_readFile(x_1); +x_2 = l_IO_readFile(x_1); lean_dec(x_1); return x_2; } @@ -2447,12 +3048,15 @@ return x_5; lean_object* l_IO_mkRef___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; +lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_alloc_closure((void*)(l_IO_Prim_mkRef___boxed), 3, 2); lean_closure_set(x_4, 0, lean_box(0)); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_mkRef(lean_object* x_1, lean_object* x_2) { @@ -2476,12 +3080,15 @@ return x_3; lean_object* l_IO_Ref_get___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; +lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_alloc_closure((void*)(l_IO_Prim_Ref_get___boxed), 3, 2); lean_closure_set(x_4, 0, lean_box(0)); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_Ref_get(lean_object* x_1, lean_object* x_2) { @@ -2505,13 +3112,16 @@ return x_3; lean_object* l_IO_Ref_set___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; +lean_object* x_5; lean_object* x_6; lean_object* x_7; x_5 = lean_alloc_closure((void*)(l_IO_Prim_Ref_set___boxed), 4, 3); lean_closure_set(x_5, 0, lean_box(0)); lean_closure_set(x_5, 1, x_3); lean_closure_set(x_5, 2, x_4); -x_6 = lean_apply_2(x_1, lean_box(0), x_5); -return x_6; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +lean_dec(x_1); +x_7 = lean_apply_2(x_6, lean_box(0), x_5); +return x_7; } } lean_object* l_IO_Ref_set(lean_object* x_1, lean_object* x_2) { @@ -2535,13 +3145,16 @@ return x_3; lean_object* l_IO_Ref_swap___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; +lean_object* x_5; lean_object* x_6; lean_object* x_7; x_5 = lean_alloc_closure((void*)(l_IO_Prim_Ref_swap___boxed), 4, 3); lean_closure_set(x_5, 0, lean_box(0)); lean_closure_set(x_5, 1, x_3); lean_closure_set(x_5, 2, x_4); -x_6 = lean_apply_2(x_1, lean_box(0), x_5); -return x_6; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +lean_dec(x_1); +x_7 = lean_apply_2(x_6, lean_box(0), x_5); +return x_7; } } lean_object* l_IO_Ref_swap(lean_object* x_1, lean_object* x_2) { @@ -2565,12 +3178,15 @@ return x_3; lean_object* l_IO_Ref_reset___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; +lean_object* x_4; lean_object* x_5; lean_object* x_6; x_4 = lean_alloc_closure((void*)(l_IO_Prim_Ref_reset___boxed), 3, 2); lean_closure_set(x_4, 0, lean_box(0)); lean_closure_set(x_4, 1, x_3); -x_5 = lean_apply_2(x_1, lean_box(0), x_4); -return x_5; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_apply_2(x_5, lean_box(0), x_4); +return x_6; } } lean_object* l_IO_Ref_reset(lean_object* x_1, lean_object* x_2) { @@ -2594,13 +3210,16 @@ return x_3; lean_object* l_IO_Ref_ptrEq___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; +lean_object* x_5; lean_object* x_6; lean_object* x_7; x_5 = lean_alloc_closure((void*)(l_IO_Prim_Ref_ptrEq___boxed), 4, 3); lean_closure_set(x_5, 0, lean_box(0)); lean_closure_set(x_5, 1, x_3); lean_closure_set(x_5, 2, x_4); -x_6 = lean_apply_2(x_1, lean_box(0), x_5); -return x_6; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +lean_dec(x_1); +x_7 = lean_apply_2(x_6, lean_box(0), x_5); +return x_7; } } lean_object* l_IO_Ref_ptrEq(lean_object* x_1, lean_object* x_2) { @@ -2656,7 +3275,7 @@ return x_9; lean_object* l_IO_Ref_modify___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; x_6 = lean_ctor_get(x_1, 1); lean_inc(x_6); lean_dec(x_1); @@ -2664,16 +3283,19 @@ lean_inc(x_4); x_7 = lean_alloc_closure((void*)(l_IO_Prim_Ref_get___boxed), 3, 2); lean_closure_set(x_7, 0, lean_box(0)); lean_closure_set(x_7, 1, x_4); -lean_inc(x_2); -x_8 = lean_apply_2(x_2, lean_box(0), x_7); +x_8 = lean_ctor_get(x_2, 0); +lean_inc(x_8); +lean_dec(x_2); +lean_inc(x_8); +x_9 = lean_apply_2(x_8, lean_box(0), x_7); lean_inc(x_6); -x_9 = lean_alloc_closure((void*)(l_IO_Ref_modify___rarg___lambda__2), 5, 4); -lean_closure_set(x_9, 0, x_4); -lean_closure_set(x_9, 1, x_2); -lean_closure_set(x_9, 2, x_5); -lean_closure_set(x_9, 3, x_6); -x_10 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_8, x_9); -return x_10; +x_10 = lean_alloc_closure((void*)(l_IO_Ref_modify___rarg___lambda__2), 5, 4); +lean_closure_set(x_10, 0, x_4); +lean_closure_set(x_10, 1, x_8); +lean_closure_set(x_10, 2, x_5); +lean_closure_set(x_10, 3, x_6); +x_11 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_9, x_10); +return x_11; } } lean_object* l_IO_Ref_modify(lean_object* x_1) { @@ -2702,35 +3324,37 @@ lean_dec(x_1); return x_2; } } -lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__3(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_getStdout___at_Lean_HasRepr_HasEval___spec__3(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_get_stdout(x_1); +return x_2; +} +} +lean_object* l_IO_FS_Handle_putStr___at_Lean_HasRepr_HasEval___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_io_prim_handle_put_str(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = lean_io_prim_put_str(x_1, x_2); -return x_3; -} -} -lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__2(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_io_prim_put_str(x_1, x_2); -return x_3; -} -} -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_io_prim_put_str(x_1, x_2); +x_3 = lean_get_stdout(x_2); if (lean_obj_tag(x_3) == 0) { lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_4 = lean_ctor_get(x_3, 1); +x_4 = lean_ctor_get(x_3, 0); lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); lean_dec(x_3); -x_5 = l_IO_println___rarg___closed__1; -x_6 = lean_io_prim_put_str(x_5, x_4); +x_6 = lean_io_prim_handle_put_str(x_4, x_1, x_5); +lean_dec(x_4); return x_6; } else @@ -2757,12 +3381,20 @@ return x_10; } } } +lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_1, x_2); +return x_3; +} +} lean_object* l_Lean_HasRepr_HasEval___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; lean_object* x_5; x_4 = lean_apply_1(x_1, x_2); -x_5 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_4, x_3); +x_5 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_4, x_3); lean_dec(x_4); return x_5; } @@ -2775,29 +3407,30 @@ x_2 = lean_alloc_closure((void*)(l_Lean_HasRepr_HasEval___rarg), 3, 0); return x_2; } } -lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_FS_Handle_putStr___at_Lean_HasRepr_HasEval___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_IO_FS_Handle_putStr___at_Lean_HasRepr_HasEval___spec__4(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__3(x_1, x_2); +x_3 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_print___at_Lean_HasRepr_HasEval___spec__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_IO_print___at_Lean_HasRepr_HasEval___spec__2(x_1, x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_1, x_2); +x_3 = l_IO_print___at_Lean_HasRepr_HasEval___spec__1(x_1, x_2); lean_dec(x_1); return x_3; } @@ -2860,6 +3493,7 @@ return x_3; } } lean_object* initialize_Init_Control_EState(lean_object*); +lean_object* initialize_Init_Control_Reader(lean_object*); lean_object* initialize_Init_Data_String_Basic(lean_object*); lean_object* initialize_Init_Data_ByteArray(lean_object*); lean_object* initialize_Init_System_IOError(lean_object*); @@ -2872,6 +3506,9 @@ _G_initialized = true; res = initialize_Init_Control_EState(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Control_Reader(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Init_Data_String_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -2892,6 +3529,14 @@ l_EIO_MonadExcept___closed__2 = _init_l_EIO_MonadExcept___closed__2(); lean_mark_persistent(l_EIO_MonadExcept___closed__2); l_EIO_HasOrelse___closed__1 = _init_l_EIO_HasOrelse___closed__1(); lean_mark_persistent(l_EIO_HasOrelse___closed__1); +l_IO_MonadIO___closed__1 = _init_l_IO_MonadIO___closed__1(); +lean_mark_persistent(l_IO_MonadIO___closed__1); +l_IO_MonadIO___closed__2 = _init_l_IO_MonadIO___closed__2(); +lean_mark_persistent(l_IO_MonadIO___closed__2); +l_IO_MonadIO___closed__3 = _init_l_IO_MonadIO___closed__3(); +lean_mark_persistent(l_IO_MonadIO___closed__3); +l_IO_MonadIO = _init_l_IO_MonadIO(); +lean_mark_persistent(l_IO_MonadIO); l_IO_Prim_fopenFlags___closed__1 = _init_l_IO_Prim_fopenFlags___closed__1(); lean_mark_persistent(l_IO_Prim_fopenFlags___closed__1); l_IO_Prim_fopenFlags___closed__2 = _init_l_IO_Prim_fopenFlags___closed__2(); @@ -2920,8 +3565,14 @@ l_IO_Prim_fopenFlags___closed__13 = _init_l_IO_Prim_fopenFlags___closed__13(); lean_mark_persistent(l_IO_Prim_fopenFlags___closed__13); l_IO_Prim_fopenFlags___closed__14 = _init_l_IO_Prim_fopenFlags___closed__14(); lean_mark_persistent(l_IO_Prim_fopenFlags___closed__14); -l_IO_println___rarg___closed__1 = _init_l_IO_println___rarg___closed__1(); -lean_mark_persistent(l_IO_println___rarg___closed__1); +l_IO_FS_Handle_putStrLn___rarg___closed__1 = _init_l_IO_FS_Handle_putStrLn___rarg___closed__1(); +lean_mark_persistent(l_IO_FS_Handle_putStrLn___rarg___closed__1); +l_IO_getStdout___rarg___closed__1 = _init_l_IO_getStdout___rarg___closed__1(); +lean_mark_persistent(l_IO_getStdout___rarg___closed__1); +l_IO_getStderr___rarg___closed__1 = _init_l_IO_getStderr___rarg___closed__1(); +lean_mark_persistent(l_IO_getStderr___rarg___closed__1); +l_IO_getStdin___rarg___closed__1 = _init_l_IO_getStdin___rarg___closed__1(); +lean_mark_persistent(l_IO_getStdin___rarg___closed__1); l_IO_appPath___rarg___closed__1 = _init_l_IO_appPath___rarg___closed__1(); lean_mark_persistent(l_IO_appPath___rarg___closed__1); l_IO_AccessRight_flags___closed__1 = _init_l_IO_AccessRight_flags___closed__1();