// Lean compiler output // Module: init.lean.parser.string_literal // Imports: init.lean.parser.parsec #include "runtime/object.h" #include "runtime/apply.h" typedef lean::object obj; typedef lean::usize usize; typedef lean::uint8 uint8; typedef lean::uint16 uint16; typedef lean::uint32 uint32; typedef lean::uint64 uint64; #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" #pragma clang diagnostic ignored "-Wunused-label" #elif defined(__GNUC__) && !defined(__CLANG__) #pragma GCC diagnostic ignored "-Wunused-parameter" #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1; obj* l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1; obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__4(obj*, obj*, obj*, obj*); namespace lean { obj* nat_add(obj*, obj*); } obj* l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1; obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_mjoin___rarg___closed__1; obj* l_lean_parser_parse__hex__digit___rarg___lambda__1___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_digit___rarg(obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__3(obj*, uint32); obj* l_lean_parser_parse__string__literal___boxed(obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__4___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___closed__1; obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg(obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__7(obj*, obj*, obj*, obj*, obj*, uint32); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); uint32 l_char_of__nat(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2(obj*, obj*, obj*); extern obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; obj* l_lean_parser_parse__hex__digit___rarg___lambda__2(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal__aux(obj*, obj*); obj* l_lean_parser_parse__quoted__char___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7(obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__6(obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__3___boxed(obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__1(obj*, uint32); namespace lean { uint32 string_iterator_curr(obj*); } namespace lean { obj* string_append(obj*, obj*); } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal(obj*, obj*); obj* l_lean_parser_parse__string__literal___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_any___rarg(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__5___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__5(obj*, uint32); obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, uint32); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); namespace lean { uint8 string_iterator_has_next(obj*); } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2(obj*, obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_char_has__repr___closed__1; obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_labels___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit(obj*, obj*); extern obj* l_lean_parser_monad__parsec_left__over___rarg___closed__1; obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___main___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8(obj*, obj*, obj*); namespace lean { obj* uint32_to_nat(uint32); } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__4(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__5(obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, uint32); obj* l_lean_parser_parse__string__literal__aux___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_monad__parsec_remaining___rarg___closed__1; obj* l_lean_parser_parse__string__literal__aux___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_satisfy___rarg___lambda__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal___rarg___lambda__2(obj*, obj*, obj*, obj*, uint32); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___boxed(obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char(obj*, obj*); obj* l_lean_parser_parse__hex__digit___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___boxed(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___boxed(obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___main(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_ch___rarg(obj*, obj*, uint32); namespace lean { uint32 uint32_of_nat(obj*); } namespace lean { obj* nat_mul(obj*, obj*); } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l___private_init_data_string_basic_4__to__nat__core___main___closed__1; namespace lean { obj* nat_sub(obj*, obj*); } obj* l_lean_parser_parse__quoted__char___rarg___lambda__8(obj*, obj*, obj*, obj*, obj*); namespace lean { obj* string_push(obj*, uint32); } obj* l_dlist_singleton___rarg(obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___boxed(obj*, obj*); obj* l_lean_parser_parse__string__literal__aux___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___boxed(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__string__literal___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__5___boxed(obj*, obj*, obj*); obj* l_char_quote__core(uint32); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parse__quoted__char___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__1(obj* x_0, uint32 x_1) { _start: { obj* x_2; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_12; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); x_5 = lean::cnstr_get(x_2, 1); lean::inc(x_5); lean::dec(x_2); x_8 = lean::uint32_to_nat(x_1); x_9 = l___private_init_data_string_basic_4__to__nat__core___main___closed__1; x_10 = lean::nat_sub(x_8, x_9); lean::dec(x_8); x_12 = lean::apply_2(x_5, lean::box(0), x_10); return x_12; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { uint8 x_4; x_4 = lean::string_iterator_has_next(x_3); if (x_4 == 0) { obj* x_7; obj* x_8; obj* x_9; obj* x_10; lean::dec(x_3); lean::dec(x_2); x_7 = lean::box(0); x_8 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg(x_1, lean::box(0), x_8, x_9, x_7, x_7); return x_10; } else { uint32 x_11; uint32 x_12; uint8 x_13; uint8 x_15; x_11 = lean::string_iterator_curr(x_3); x_12 = 97; x_15 = x_12 <= x_11; if (x_15 == 0) { obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_3); lean::dec(x_2); x_18 = l_char_quote__core(x_11); x_19 = l_char_has__repr___closed__1; x_20 = lean::string_append(x_19, x_18); lean::dec(x_18); x_22 = lean::string_append(x_20, x_19); x_23 = lean::box(0); x_24 = l_mjoin___rarg___closed__1; x_25 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg(x_1, lean::box(0), x_22, x_24, x_23, x_23); return x_25; } else { uint8 x_26; x_26 = 1; x_13 = x_26; goto lbl_14; } lbl_14: { uint32 x_27; uint8 x_28; x_27 = 102; x_28 = x_11 <= x_27; if (x_28 == 0) { obj* x_31; obj* x_32; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; lean::dec(x_3); lean::dec(x_2); x_31 = l_char_quote__core(x_11); x_32 = l_char_has__repr___closed__1; x_33 = lean::string_append(x_32, x_31); lean::dec(x_31); x_35 = lean::string_append(x_33, x_32); x_36 = lean::box(0); x_37 = l_mjoin___rarg___closed__1; x_38 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg(x_1, lean::box(0), x_35, x_37, x_36, x_36); return x_38; } else { if (x_13 == 0) { obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; lean::dec(x_3); lean::dec(x_2); x_41 = l_char_quote__core(x_11); x_42 = l_char_has__repr___closed__1; x_43 = lean::string_append(x_42, x_41); lean::dec(x_41); x_45 = lean::string_append(x_43, x_42); x_46 = lean::box(0); x_47 = l_mjoin___rarg___closed__1; x_48 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg(x_1, lean::box(0), x_45, x_47, x_46, x_46); return x_48; } else { obj* x_50; obj* x_51; obj* x_52; lean::dec(x_1); x_50 = lean::box_uint32(x_11); x_51 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_satisfy___rarg___lambda__1___boxed), 3, 2); lean::closure_set(x_51, 0, x_3); lean::closure_set(x_51, 1, x_50); x_52 = lean::apply_2(x_2, lean::box(0), x_51); return x_52; } } } } } } obj* _init_l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1() { _start: { uint32 x_0; obj* x_1; x_0 = 97; x_1 = lean::uint32_to_nat(x_0); return x_1; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__3(obj* x_0, uint32 x_1) { _start: { obj* x_2; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_15; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); x_5 = lean::cnstr_get(x_2, 1); lean::inc(x_5); lean::dec(x_2); x_8 = lean::uint32_to_nat(x_1); x_9 = l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1; x_10 = lean::nat_sub(x_8, x_9); lean::dec(x_8); x_12 = lean::mk_nat_obj(10u); x_13 = lean::nat_add(x_12, x_10); lean::dec(x_10); x_15 = lean::apply_2(x_5, lean::box(0), x_13); return x_15; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { uint8 x_4; x_4 = lean::string_iterator_has_next(x_3); if (x_4 == 0) { obj* x_7; obj* x_8; obj* x_9; obj* x_10; lean::dec(x_3); lean::dec(x_2); x_7 = lean::box(0); x_8 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg(x_1, lean::box(0), x_8, x_9, x_7, x_7); return x_10; } else { uint32 x_11; uint32 x_12; uint8 x_13; uint8 x_15; x_11 = lean::string_iterator_curr(x_3); x_12 = 65; x_15 = x_12 <= x_11; if (x_15 == 0) { obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_3); lean::dec(x_2); x_18 = l_char_quote__core(x_11); x_19 = l_char_has__repr___closed__1; x_20 = lean::string_append(x_19, x_18); lean::dec(x_18); x_22 = lean::string_append(x_20, x_19); x_23 = lean::box(0); x_24 = l_mjoin___rarg___closed__1; x_25 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg(x_1, lean::box(0), x_22, x_24, x_23, x_23); return x_25; } else { uint8 x_26; x_26 = 1; x_13 = x_26; goto lbl_14; } lbl_14: { uint32 x_27; uint8 x_28; x_27 = 70; x_28 = x_11 <= x_27; if (x_28 == 0) { obj* x_31; obj* x_32; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; lean::dec(x_3); lean::dec(x_2); x_31 = l_char_quote__core(x_11); x_32 = l_char_has__repr___closed__1; x_33 = lean::string_append(x_32, x_31); lean::dec(x_31); x_35 = lean::string_append(x_33, x_32); x_36 = lean::box(0); x_37 = l_mjoin___rarg___closed__1; x_38 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg(x_1, lean::box(0), x_35, x_37, x_36, x_36); return x_38; } else { if (x_13 == 0) { obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; lean::dec(x_3); lean::dec(x_2); x_41 = l_char_quote__core(x_11); x_42 = l_char_has__repr___closed__1; x_43 = lean::string_append(x_42, x_41); lean::dec(x_41); x_45 = lean::string_append(x_43, x_42); x_46 = lean::box(0); x_47 = l_mjoin___rarg___closed__1; x_48 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg(x_1, lean::box(0), x_45, x_47, x_46, x_46); return x_48; } else { obj* x_50; obj* x_51; obj* x_52; lean::dec(x_1); x_50 = lean::box_uint32(x_11); x_51 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_satisfy___rarg___lambda__1___boxed), 3, 2); lean::closure_set(x_51, 0, x_3); lean::closure_set(x_51, 1, x_50); x_52 = lean::apply_2(x_2, lean::box(0), x_51); return x_52; } } } } } } obj* _init_l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1() { _start: { uint32 x_0; obj* x_1; x_0 = 65; x_1 = lean::uint32_to_nat(x_0); return x_1; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__5(obj* x_0, uint32 x_1) { _start: { obj* x_2; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_15; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); x_5 = lean::cnstr_get(x_2, 1); lean::inc(x_5); lean::dec(x_2); x_8 = lean::uint32_to_nat(x_1); x_9 = l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1; x_10 = lean::nat_sub(x_8, x_9); lean::dec(x_8); x_12 = lean::mk_nat_obj(10u); x_13 = lean::nat_add(x_12, x_10); lean::dec(x_10); x_15 = lean::apply_2(x_5, lean::box(0), x_13); return x_15; } } obj* _init_l_lean_parser_parse__hex__digit___rarg___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("hexadecimal"); x_1 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_1, 0, x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_labels___rarg___lambda__1___boxed), 6, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* l_lean_parser_parse__hex__digit___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_5; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_18; obj* x_22; obj* x_25; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_42; obj* x_43; x_3 = lean::cnstr_get(x_2, 1); lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 1); lean::inc(x_5); lean::inc(x_1); lean::inc(x_0); x_9 = l_lean_parser_monad__parsec_digit___rarg(x_0, x_1); lean::inc(x_2); x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg___lambda__1___boxed), 2, 1); lean::closure_set(x_11, 0, x_2); lean::inc(x_5); x_13 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_9, x_11); x_14 = lean::cnstr_get(x_1, 0); lean::inc(x_14); x_16 = l_lean_parser_monad__parsec_left__over___rarg___closed__1; lean::inc(x_14); x_18 = lean::apply_2(x_14, lean::box(0), x_16); lean::inc(x_14); lean::inc(x_1); lean::inc(x_0); x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg___lambda__2___boxed), 4, 3); lean::closure_set(x_22, 0, x_0); lean::closure_set(x_22, 1, x_1); lean::closure_set(x_22, 2, x_14); lean::inc(x_18); lean::inc(x_5); x_25 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_18, x_22); lean::inc(x_2); x_27 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg___lambda__3___boxed), 2, 1); lean::closure_set(x_27, 0, x_2); lean::inc(x_5); x_29 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_25, x_27); lean::inc(x_1); x_31 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg___lambda__4___boxed), 4, 3); lean::closure_set(x_31, 0, x_0); lean::closure_set(x_31, 1, x_1); lean::closure_set(x_31, 2, x_14); lean::inc(x_5); x_33 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_18, x_31); x_34 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg___lambda__5___boxed), 2, 1); lean::closure_set(x_34, 0, x_2); x_35 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_33, x_34); lean::inc(x_3); x_37 = lean::apply_3(x_3, lean::box(0), x_29, x_35); x_38 = lean::apply_3(x_3, lean::box(0), x_13, x_37); x_39 = lean::cnstr_get(x_1, 1); lean::inc(x_39); lean::dec(x_1); x_42 = l_lean_parser_parse__hex__digit___rarg___closed__1; x_43 = lean::apply_3(x_39, lean::box(0), x_42, x_38); return x_43; } } obj* l_lean_parser_parse__hex__digit(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__hex__digit___rarg), 3, 0); return x_2; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__1(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__2(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__3(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__4(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__5(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__6(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__7(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__hex__digit___spec__8(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__1___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_1); x_3 = l_lean_parser_parse__hex__digit___rarg___lambda__1(x_0, x_2); return x_3; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; x_4 = l_lean_parser_parse__hex__digit___rarg___lambda__2(x_0, x_1, x_2, x_3); lean::dec(x_0); return x_4; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__3___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_1); x_3 = l_lean_parser_parse__hex__digit___rarg___lambda__3(x_0, x_2); return x_3; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; x_4 = l_lean_parser_parse__hex__digit___rarg___lambda__4(x_0, x_1, x_2, x_3); lean::dec(x_0); return x_4; } } obj* l_lean_parser_parse__hex__digit___rarg___lambda__5___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_1); x_3 = l_lean_parser_parse__hex__digit___rarg___lambda__5(x_0, x_2); return x_3; } } obj* l_lean_parser_parse__hex__digit___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_parse__hex__digit(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___rarg___lambda__1___boxed), 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_3); lean::closure_set(x_9, 3, x_5); x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg___boxed), 6, 0); return x_3; } } obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_5 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_5, 0, x_4); x_6 = lean::box(0); x_7 = l_mjoin___rarg___closed__1; x_8 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg(x_1, lean::box(0), x_3, x_7, x_5, x_6); return x_8; } } obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg___boxed), 5, 0); return x_2; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; uint32 x_23; obj* x_24; obj* x_25; x_5 = lean::cnstr_get(x_0, 0); lean::inc(x_5); lean::dec(x_0); x_8 = lean::cnstr_get(x_5, 1); lean::inc(x_8); lean::dec(x_5); x_11 = lean::mk_nat_obj(16u); x_12 = lean::nat_mul(x_11, x_1); x_13 = lean::nat_add(x_12, x_2); lean::dec(x_12); x_15 = lean::nat_mul(x_11, x_13); lean::dec(x_13); x_17 = lean::nat_add(x_15, x_3); lean::dec(x_15); x_19 = lean::nat_mul(x_11, x_17); lean::dec(x_17); x_21 = lean::nat_add(x_19, x_4); lean::dec(x_19); x_23 = l_char_of__nat(x_21); x_24 = lean::box_uint32(x_23); x_25 = lean::apply_2(x_8, lean::box(0), x_24); return x_25; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_7; x_6 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__1___boxed), 5, 4); lean::closure_set(x_6, 0, x_0); lean::closure_set(x_6, 1, x_1); lean::closure_set(x_6, 2, x_2); lean::closure_set(x_6, 3, x_5); x_7 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_4, x_6); return x_7; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_7; obj* x_8; lean::inc(x_3); lean::inc(x_2); x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__2), 6, 5); lean::closure_set(x_7, 0, x_0); lean::closure_set(x_7, 1, x_1); lean::closure_set(x_7, 2, x_4); lean::closure_set(x_7, 3, x_2); lean::closure_set(x_7, 4, x_3); x_8 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_3, x_7); return x_8; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_6; obj* x_7; lean::inc(x_2); lean::inc(x_1); x_6 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__3), 5, 4); lean::closure_set(x_6, 0, x_0); lean::closure_set(x_6, 1, x_3); lean::closure_set(x_6, 2, x_1); lean::closure_set(x_6, 3, x_2); x_7 = lean::apply_4(x_1, lean::box(0), lean::box(0), x_2, x_6); return x_7; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_6; obj* x_9; obj* x_10; obj* x_11; uint32 x_13; obj* x_14; obj* x_15; x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); lean::dec(x_0); x_6 = lean::cnstr_get(x_3, 1); lean::inc(x_6); lean::dec(x_3); x_9 = lean::mk_nat_obj(16u); x_10 = lean::nat_mul(x_9, x_1); x_11 = lean::nat_add(x_10, x_2); lean::dec(x_10); x_13 = l_char_of__nat(x_11); x_14 = lean::box_uint32(x_13); x_15 = lean::apply_2(x_6, lean::box(0), x_14); return x_15; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; obj* x_5; x_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__5___boxed), 3, 2); lean::closure_set(x_4, 0, x_0); lean::closure_set(x_4, 1, x_3); x_5 = lean::apply_4(x_1, lean::box(0), lean::box(0), x_2, x_4); return x_5; } } obj* _init_l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1() { _start: { obj* x_0; x_0 = lean::mk_string("quoted character"); return x_0; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, uint32 x_5) { _start: { obj* x_6; obj* x_8; obj* x_10; uint32 x_12; uint8 x_13; x_12 = 92; x_13 = x_5 == x_12; if (x_13 == 0) { obj* x_14; x_14 = lean::box(0); x_10 = x_14; goto lbl_11; } else { obj* x_19; obj* x_22; obj* x_25; obj* x_26; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); x_19 = lean::cnstr_get(x_3, 0); lean::inc(x_19); lean::dec(x_3); x_22 = lean::cnstr_get(x_19, 1); lean::inc(x_22); lean::dec(x_19); x_25 = lean::box_uint32(x_12); x_26 = lean::apply_2(x_22, lean::box(0), x_25); return x_26; } lbl_7: { uint32 x_28; uint8 x_29; lean::dec(x_6); x_28 = 117; x_29 = x_5 == x_28; if (x_29 == 0) { obj* x_32; obj* x_33; lean::dec(x_4); lean::dec(x_3); x_32 = l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1; x_33 = l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg(x_0, x_1, lean::box(0), x_32, x_2); lean::dec(x_0); return x_33; } else { obj* x_37; obj* x_40; obj* x_41; lean::dec(x_2); lean::inc(x_3); x_37 = l_lean_parser_parse__hex__digit___rarg(x_0, x_1, x_3); lean::inc(x_37); lean::inc(x_4); x_40 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__4), 4, 3); lean::closure_set(x_40, 0, x_3); lean::closure_set(x_40, 1, x_4); lean::closure_set(x_40, 2, x_37); x_41 = lean::apply_4(x_4, lean::box(0), lean::box(0), x_37, x_40); return x_41; } } lbl_9: { uint32 x_43; uint8 x_44; lean::dec(x_8); x_43 = 116; x_44 = x_5 == x_43; if (x_44 == 0) { uint32 x_45; uint8 x_46; x_45 = 120; x_46 = x_5 == x_45; if (x_46 == 0) { obj* x_47; x_47 = lean::box(0); x_6 = x_47; goto lbl_7; } else { obj* x_50; obj* x_53; obj* x_54; lean::dec(x_2); lean::inc(x_3); x_50 = l_lean_parser_parse__hex__digit___rarg(x_0, x_1, x_3); lean::inc(x_50); lean::inc(x_4); x_53 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__6), 4, 3); lean::closure_set(x_53, 0, x_3); lean::closure_set(x_53, 1, x_4); lean::closure_set(x_53, 2, x_50); x_54 = lean::apply_4(x_4, lean::box(0), lean::box(0), x_50, x_53); return x_54; } } else { obj* x_59; obj* x_62; uint32 x_65; obj* x_66; obj* x_67; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); x_59 = lean::cnstr_get(x_3, 0); lean::inc(x_59); lean::dec(x_3); x_62 = lean::cnstr_get(x_59, 1); lean::inc(x_62); lean::dec(x_59); x_65 = 9; x_66 = lean::box_uint32(x_65); x_67 = lean::apply_2(x_62, lean::box(0), x_66); return x_67; } } lbl_11: { uint32 x_69; uint8 x_70; lean::dec(x_10); x_69 = 34; x_70 = x_5 == x_69; if (x_70 == 0) { uint32 x_71; uint8 x_72; x_71 = 39; x_72 = x_5 == x_71; if (x_72 == 0) { uint32 x_73; uint8 x_74; x_73 = 110; x_74 = x_5 == x_73; if (x_74 == 0) { obj* x_75; x_75 = lean::box(0); x_8 = x_75; goto lbl_9; } else { obj* x_80; obj* x_83; uint32 x_86; obj* x_87; obj* x_88; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); x_80 = lean::cnstr_get(x_3, 0); lean::inc(x_80); lean::dec(x_3); x_83 = lean::cnstr_get(x_80, 1); lean::inc(x_83); lean::dec(x_80); x_86 = 10; x_87 = lean::box_uint32(x_86); x_88 = lean::apply_2(x_83, lean::box(0), x_87); return x_88; } } else { obj* x_93; obj* x_96; obj* x_99; obj* x_100; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); x_93 = lean::cnstr_get(x_3, 0); lean::inc(x_93); lean::dec(x_3); x_96 = lean::cnstr_get(x_93, 1); lean::inc(x_96); lean::dec(x_93); x_99 = lean::box_uint32(x_71); x_100 = lean::apply_2(x_96, lean::box(0), x_99); return x_100; } } else { obj* x_105; obj* x_108; obj* x_111; obj* x_112; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); x_105 = lean::cnstr_get(x_3, 0); lean::inc(x_105); lean::dec(x_3); x_108 = lean::cnstr_get(x_105, 1); lean::inc(x_108); lean::dec(x_105); x_111 = lean::box_uint32(x_69); x_112 = lean::apply_2(x_108, lean::box(0), x_111); return x_112; } } } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_7; obj* x_9; obj* x_10; lean::inc(x_1); lean::inc(x_0); x_7 = l_lean_parser_monad__parsec_any___rarg(x_0, x_1); lean::inc(x_3); x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__7___boxed), 6, 5); lean::closure_set(x_9, 0, x_0); lean::closure_set(x_9, 1, x_1); lean::closure_set(x_9, 2, x_4); lean::closure_set(x_9, 3, x_2); lean::closure_set(x_9, 4, x_3); x_10 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_7, x_9); return x_10; } } obj* l_lean_parser_parse__quoted__char___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_10; obj* x_11; x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 0); lean::inc(x_5); x_7 = l_lean_parser_monad__parsec_left__over___rarg___closed__1; x_8 = lean::apply_2(x_5, lean::box(0), x_7); lean::inc(x_3); x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg___lambda__8), 5, 4); lean::closure_set(x_10, 0, x_0); lean::closure_set(x_10, 1, x_1); lean::closure_set(x_10, 2, x_2); lean::closure_set(x_10, 3, x_3); x_11 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_8, x_10); return x_11; } } obj* l_lean_parser_parse__quoted__char(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__quoted__char___rarg), 3, 0); return x_2; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; x_6 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } obj* l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_monad__parsec_error___at_lean_parser_parse__quoted__char___spec__2(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; x_5 = l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); lean::dec(x_2); return x_5; } } obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_parse__quoted__char___spec__1(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; x_5 = l_lean_parser_parse__quoted__char___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4); lean::dec(x_1); lean::dec(x_2); lean::dec(x_3); lean::dec(x_4); return x_5; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__5___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_lean_parser_parse__quoted__char___rarg___lambda__5(x_0, x_1, x_2); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__7___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { uint32 x_6; obj* x_7; x_6 = lean::unbox_uint32(x_5); x_7 = l_lean_parser_parse__quoted__char___rarg___lambda__7(x_0, x_1, x_2, x_3, x_4, x_6); return x_7; } } obj* l_lean_parser_parse__quoted__char___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_parse__quoted__char(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, uint32 x_5) { _start: { obj* x_6; obj* x_7; x_6 = lean::string_push(x_0, x_5); x_7 = l_lean_parser_parse__string__literal__aux___main___rarg(x_1, x_2, x_3, x_4, x_6); return x_7; } } obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, uint32 x_6) { _start: { uint32 x_7; uint8 x_8; x_7 = 92; x_8 = x_6 == x_7; if (x_8 == 0) { uint32 x_10; uint8 x_11; lean::dec(x_5); x_10 = 34; x_11 = x_6 == x_10; if (x_11 == 0) { obj* x_12; obj* x_13; x_12 = lean::string_push(x_0, x_6); x_13 = l_lean_parser_parse__string__literal__aux___main___rarg(x_1, x_2, x_3, x_4, x_12); lean::dec(x_4); return x_13; } else { obj* x_18; obj* x_21; obj* x_24; lean::dec(x_4); lean::dec(x_1); lean::dec(x_2); x_18 = lean::cnstr_get(x_3, 0); lean::inc(x_18); lean::dec(x_3); x_21 = lean::cnstr_get(x_18, 1); lean::inc(x_21); lean::dec(x_18); x_24 = lean::apply_2(x_21, lean::box(0), x_0); return x_24; } } else { obj* x_28; obj* x_29; obj* x_30; lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); x_28 = l_lean_parser_parse__quoted__char___rarg(x_1, x_2, x_3); x_29 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1___boxed), 6, 5); lean::closure_set(x_29, 0, x_0); lean::closure_set(x_29, 1, x_1); lean::closure_set(x_29, 2, x_2); lean::closure_set(x_29, 3, x_3); lean::closure_set(x_29, 4, x_4); x_30 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_28, x_29); return x_30; } } } obj* l_lean_parser_parse__string__literal__aux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; uint8 x_6; x_5 = lean::mk_nat_obj(0u); x_6 = lean::nat_dec_eq(x_3, x_5); if (x_6 == 0) { obj* x_7; obj* x_8; obj* x_9; obj* x_13; obj* x_15; obj* x_16; x_7 = lean::mk_nat_obj(1u); x_8 = lean::nat_sub(x_3, x_7); x_9 = lean::cnstr_get(x_0, 1); lean::inc(x_9); lean::inc(x_1); lean::inc(x_0); x_13 = l_lean_parser_monad__parsec_any___rarg(x_0, x_1); lean::inc(x_9); x_15 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2___boxed), 7, 6); lean::closure_set(x_15, 0, x_4); lean::closure_set(x_15, 1, x_0); lean::closure_set(x_15, 2, x_1); lean::closure_set(x_15, 3, x_2); lean::closure_set(x_15, 4, x_8); lean::closure_set(x_15, 5, x_9); x_16 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_13, x_15); return x_16; } else { obj* x_17; obj* x_20; uint32 x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_28; x_17 = lean::cnstr_get(x_2, 0); lean::inc(x_17); lean::dec(x_2); x_20 = lean::cnstr_get(x_17, 4); lean::inc(x_20); x_22 = 34; x_23 = l_lean_parser_monad__parsec_ch___rarg(x_0, x_1, x_22); x_24 = lean::cnstr_get(x_17, 1); lean::inc(x_24); lean::dec(x_17); x_27 = lean::apply_2(x_24, lean::box(0), x_4); x_28 = lean::apply_4(x_20, lean::box(0), lean::box(0), x_23, x_27); return x_28; } } } obj* l_lean_parser_parse__string__literal__aux___main(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal__aux___main___rarg___boxed), 5, 0); return x_2; } } obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { uint32 x_6; obj* x_7; x_6 = lean::unbox_uint32(x_5); x_7 = l_lean_parser_parse__string__literal__aux___main___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_6); lean::dec(x_4); return x_7; } } obj* l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { uint32 x_7; obj* x_8; x_7 = lean::unbox_uint32(x_6); x_8 = l_lean_parser_parse__string__literal__aux___main___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_7); return x_8; } } obj* l_lean_parser_parse__string__literal__aux___main___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; x_5 = l_lean_parser_parse__string__literal__aux___main___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_3); return x_5; } } obj* l_lean_parser_parse__string__literal__aux___main___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_parse__string__literal__aux___main(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_lean_parser_parse__string__literal__aux___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; x_5 = l_lean_parser_parse__string__literal__aux___main___rarg(x_0, x_1, x_2, x_3, x_4); return x_5; } } obj* l_lean_parser_parse__string__literal__aux(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal__aux___rarg___boxed), 5, 0); return x_2; } } obj* l_lean_parser_parse__string__literal__aux___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; x_5 = l_lean_parser_parse__string__literal__aux___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_3); return x_5; } } obj* l_lean_parser_parse__string__literal__aux___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_parse__string__literal__aux(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_lean_parser_parse__string__literal___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; obj* x_5; x_4 = lean::mk_string(""); x_5 = l_lean_parser_parse__string__literal__aux___main___rarg(x_0, x_1, x_2, x_3, x_4); return x_5; } } obj* l_lean_parser_parse__string__literal___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, uint32 x_4) { _start: { obj* x_5; obj* x_7; obj* x_10; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; x_5 = lean::cnstr_get(x_0, 0); lean::inc(x_5); x_7 = lean::cnstr_get(x_5, 0); lean::inc(x_7); lean::dec(x_5); x_10 = lean::cnstr_get(x_7, 0); lean::inc(x_10); lean::dec(x_7); x_13 = lean::cnstr_get(x_1, 0); lean::inc(x_13); x_15 = l_lean_parser_monad__parsec_left__over___rarg___closed__1; x_16 = lean::apply_2(x_13, lean::box(0), x_15); x_17 = l_lean_parser_monad__parsec_remaining___rarg___closed__1; x_18 = lean::apply_4(x_10, lean::box(0), lean::box(0), x_17, x_16); x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal___rarg___lambda__1___boxed), 4, 3); lean::closure_set(x_19, 0, x_0); lean::closure_set(x_19, 1, x_1); lean::closure_set(x_19, 2, x_2); x_20 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_18, x_19); return x_20; } } obj* l_lean_parser_parse__string__literal___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint32 x_5; obj* x_8; obj* x_10; obj* x_11; x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); x_5 = 34; lean::inc(x_1); lean::inc(x_0); x_8 = l_lean_parser_monad__parsec_ch___rarg(x_0, x_1, x_5); lean::inc(x_3); x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal___rarg___lambda__2___boxed), 5, 4); lean::closure_set(x_10, 0, x_0); lean::closure_set(x_10, 1, x_1); lean::closure_set(x_10, 2, x_2); lean::closure_set(x_10, 3, x_3); x_11 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_8, x_10); return x_11; } } obj* l_lean_parser_parse__string__literal(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parse__string__literal___rarg), 3, 0); return x_2; } } obj* l_lean_parser_parse__string__literal___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; x_4 = l_lean_parser_parse__string__literal___rarg___lambda__1(x_0, x_1, x_2, x_3); lean::dec(x_3); return x_4; } } obj* l_lean_parser_parse__string__literal___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { uint32 x_5; obj* x_6; x_5 = lean::unbox_uint32(x_4); x_6 = l_lean_parser_parse__string__literal___rarg___lambda__2(x_0, x_1, x_2, x_3, x_5); return x_6; } } obj* l_lean_parser_parse__string__literal___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_lean_parser_parse__string__literal(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } void initialize_init_lean_parser_parsec(); static bool _G_initialized = false; void initialize_init_lean_parser_string__literal() { if (_G_initialized) return; _G_initialized = true; initialize_init_lean_parser_parsec(); l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1 = _init_l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1(); lean::mark_persistent(l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1); l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1 = _init_l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1(); lean::mark_persistent(l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1); l_lean_parser_parse__hex__digit___rarg___closed__1 = _init_l_lean_parser_parse__hex__digit___rarg___closed__1(); lean::mark_persistent(l_lean_parser_parse__hex__digit___rarg___closed__1); l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1 = _init_l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1(); lean::mark_persistent(l_lean_parser_parse__quoted__char___rarg___lambda__7___closed__1); }