// Lean compiler output // Module: init.lean.name_mangling // Imports: init.lean.name init.lean.parser.string_literal #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___private_init_lean_name__mangling_3__parse__mangled__string(obj*); obj* l_lean_string_demangle___closed__1; obj* l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___closed__1; uint32 l_nat_digit__char(obj*); obj* l_lean_parser_monad__parsec_take___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__10(obj*, obj*); obj* l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1___boxed(obj*, obj*); obj* l_lean_parser_parsec__t_bind__mk__res___rarg(obj*, obj*); extern obj* l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1; obj* l_lean_name_demangle(obj*, obj*); obj* l___private_init_lean_name__mangling_5__parse__mangled__name__aux(obj*, obj*, obj*); obj* l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; extern obj* l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1; obj* l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2; namespace lean { obj* nat_add(obj*, obj*); } obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1; extern obj* l_mjoin___rarg___closed__1; obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__3; namespace lean { obj* nat_mod(obj*, obj*); } obj* l___private_init_lean_name__mangling_1__string_mangle__aux___main(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_num___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__2(obj*); extern obj* l_lean_parser_monad__parsec_eoi___rarg___lambda__1___closed__1; extern "C" obj* lean_name_mk_string(obj*, obj*); uint8 l_char_is__digit(uint32); obj* l_lean_parser_parsec__t_labels__mk__res___rarg(obj*, obj*); uint32 l_char_of__nat(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__5(obj*, obj*, obj*); obj* l_string_quote(obj*); extern obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; obj* l_lean_parser_monad__parsec_take__while1___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__3(obj*); namespace lean { obj* string_iterator_next(obj*); } obj* l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_2__take__aux___main___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6(obj*); namespace lean { obj* string_length(obj*); } uint8 l_string_is__empty(obj*); obj* l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1; uint8 l_char_is__alpha(uint32); namespace lean { uint32 string_iterator_curr(obj*); } namespace lean { obj* string_append(obj*, obj*); } obj* l_function_comp___rarg(obj*, obj*, obj*); extern obj* l_lean_parser_parsec_result_mk__eps___rarg___closed__1; obj* l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(uint32, obj*); obj* l___private_init_lean_parser_parsec_1__str__aux___main(obj*, obj*, obj*); obj* l_lean_name_mangle(obj*, obj*); obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__2; obj* l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(obj*); obj* l_lean_string_mangle(obj*); obj* l_match__failed___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__11(obj*); obj* l_option_get__or__else___main___rarg(obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__8(obj*, obj*); obj* l_string_to__nat(obj*); obj* l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(obj*, obj*, obj*); namespace lean { uint8 string_iterator_has_next(obj*); } namespace lean { uint8 nat_dec_eq(obj*, obj*); } extern obj* l_char_has__repr___closed__1; obj* l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__4(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__9(obj*, obj*, obj*); obj* l___private_init_lean_name__mangling_4__name_mangle__aux(obj*, obj*); extern obj* l_string_join___closed__1; obj* l_id___rarg(obj*); namespace lean { obj* uint32_to_nat(uint32); } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6(uint32, obj*); obj* l_lean_parser_monad__parsec_alpha___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__5(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__7(obj*, obj*, obj*); namespace lean { obj* nat_div(obj*, obj*); } obj* l___private_init_lean_name__mangling_4__name_mangle__aux___main(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3(obj*); obj* l___private_init_lean_name__mangling_6__parse__mangled__name(obj*, obj*); obj* l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1; namespace lean { obj* string_iterator_remaining(obj*); } namespace lean { obj* string_mk_iterator(obj*); } obj* l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2; obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4(uint32, obj*); extern "C" obj* lean_name_mk_numeral(obj*, obj*); obj* l_nat_repr(obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4___boxed(obj*, obj*); extern obj* l_lean_parser_parsec__t_monad__fail___rarg___closed__1; namespace lean { uint32 uint32_of_nat(obj*); } namespace lean { obj* nat_mul(obj*, obj*); } obj* l___private_init_lean_parser_parsec_3__mk__string__result___rarg(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___private_init_lean_name__mangling_1__string_mangle__aux(obj*, obj*, obj*); obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux(obj*, obj*, obj*); namespace lean { obj* string_push(obj*, uint32); } obj* l_dlist_singleton___rarg(obj*, obj*); obj* l_lean_parser_parsec__t_orelse__mk__res___rarg(obj*, obj*); obj* l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3; extern obj* l_match__failed___rarg___closed__1; obj* l_lean_string_demangle(obj*); obj* l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1; obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6___boxed(obj*, obj*); obj* l_char_quote__core(uint32); namespace lean { uint8 nat_dec_lt(obj*, obj*); } obj* _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1() { _start: { obj* x_0; x_0 = lean::mk_string("_u"); return x_0; } } obj* _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2() { _start: { obj* x_0; x_0 = lean::mk_string("_x"); return x_0; } } obj* _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3() { _start: { obj* x_0; x_0 = lean::mk_string("__"); return x_0; } } obj* l___private_init_lean_name__mangling_1__string_mangle__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { obj* x_6; obj* x_7; uint32 x_10; obj* x_11; uint8 x_13; x_6 = lean::mk_nat_obj(1u); x_7 = lean::nat_sub(x_0, x_6); lean::dec(x_6); lean::dec(x_0); x_10 = lean::string_iterator_curr(x_1); x_13 = l_char_is__alpha(x_10); if (x_13 == 0) { uint8 x_14; x_14 = l_char_is__digit(x_10); if (x_14 == 0) { uint32 x_15; uint8 x_16; x_15 = 95; x_16 = x_10 == x_15; if (x_16 == 0) { obj* x_17; x_17 = lean::box(0); x_11 = x_17; goto lbl_12; } else { obj* x_18; obj* x_19; obj* x_20; x_18 = lean::string_iterator_next(x_1); x_19 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3; x_20 = lean::string_append(x_2, x_19); x_0 = x_7; x_1 = x_18; x_2 = x_20; goto _start; } } else { obj* x_22; obj* x_23; x_22 = lean::string_iterator_next(x_1); x_23 = lean::string_push(x_2, x_10); x_0 = x_7; x_1 = x_22; x_2 = x_23; goto _start; } } else { if (x_13 == 0) { uint32 x_25; uint8 x_26; x_25 = 95; x_26 = x_10 == x_25; if (x_26 == 0) { obj* x_27; x_27 = lean::box(0); x_11 = x_27; goto lbl_12; } else { obj* x_28; obj* x_29; obj* x_30; x_28 = lean::string_iterator_next(x_1); x_29 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3; x_30 = lean::string_append(x_2, x_29); x_0 = x_7; x_1 = x_28; x_2 = x_30; goto _start; } } else { obj* x_32; obj* x_33; x_32 = lean::string_iterator_next(x_1); x_33 = lean::string_push(x_2, x_10); x_0 = x_7; x_1 = x_32; x_2 = x_33; goto _start; } } lbl_12: { obj* x_36; obj* x_37; uint8 x_38; lean::dec(x_11); x_36 = lean::uint32_to_nat(x_10); x_37 = lean::mk_nat_obj(255u); x_38 = lean::nat_dec_lt(x_36, x_37); lean::dec(x_37); if (x_38 == 0) { obj* x_40; obj* x_41; obj* x_42; obj* x_43; uint32 x_44; obj* x_45; obj* x_46; obj* x_49; obj* x_50; uint32 x_51; obj* x_52; obj* x_53; obj* x_56; obj* x_57; uint32 x_58; obj* x_59; obj* x_60; uint32 x_63; obj* x_64; obj* x_65; x_40 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1; x_41 = lean::string_append(x_2, x_40); x_42 = lean::mk_nat_obj(4096u); x_43 = lean::nat_div(x_36, x_42); x_44 = l_nat_digit__char(x_43); x_45 = lean::string_push(x_41, x_44); x_46 = lean::nat_mod(x_36, x_42); lean::dec(x_42); lean::dec(x_36); x_49 = lean::mk_nat_obj(256u); x_50 = lean::nat_div(x_46, x_49); x_51 = l_nat_digit__char(x_50); x_52 = lean::string_push(x_45, x_51); x_53 = lean::nat_mod(x_46, x_49); lean::dec(x_49); lean::dec(x_46); x_56 = lean::mk_nat_obj(16u); x_57 = lean::nat_div(x_53, x_56); x_58 = l_nat_digit__char(x_57); x_59 = lean::string_push(x_52, x_58); x_60 = lean::nat_mod(x_53, x_56); lean::dec(x_56); lean::dec(x_53); x_63 = l_nat_digit__char(x_60); x_64 = lean::string_push(x_59, x_63); x_65 = lean::string_iterator_next(x_1); x_0 = x_7; x_1 = x_65; x_2 = x_64; goto _start; } else { obj* x_67; obj* x_68; obj* x_69; obj* x_70; uint32 x_71; obj* x_72; obj* x_73; uint32 x_76; obj* x_77; obj* x_78; x_67 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2; x_68 = lean::string_append(x_2, x_67); x_69 = lean::mk_nat_obj(16u); x_70 = lean::nat_div(x_36, x_69); x_71 = l_nat_digit__char(x_70); x_72 = lean::string_push(x_68, x_71); x_73 = lean::nat_mod(x_36, x_69); lean::dec(x_69); lean::dec(x_36); x_76 = l_nat_digit__char(x_73); x_77 = lean::string_push(x_72, x_76); x_78 = lean::string_iterator_next(x_1); x_0 = x_7; x_1 = x_78; x_2 = x_77; goto _start; } } } else { lean::dec(x_1); lean::dec(x_0); return x_2; } } } obj* l___private_init_lean_name__mangling_1__string_mangle__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_init_lean_name__mangling_1__string_mangle__aux___main(x_0, x_1, x_2); return x_3; } } obj* l_lean_string_mangle(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_3; obj* x_5; x_1 = lean::string_length(x_0); x_2 = lean::string_mk_iterator(x_0); x_3 = l_string_join___closed__1; lean::inc(x_3); x_5 = l___private_init_lean_name__mangling_1__string_mangle__aux___main(x_1, x_2, x_3); return x_5; } } obj* l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(obj* x_0, obj* x_1, obj* x_2) { _start: { uint8 x_4; lean::inc(x_0); x_4 = l_string_is__empty(x_0); if (x_4 == 0) { obj* x_5; obj* x_7; obj* x_9; x_5 = lean::string_length(x_0); lean::inc(x_0); x_7 = lean::string_mk_iterator(x_0); lean::inc(x_2); x_9 = l___private_init_lean_parser_parsec_1__str__aux___main(x_5, x_7, x_2); if (lean::obj_tag(x_9) == 0) { obj* x_12; obj* x_13; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; lean::dec(x_9); lean::dec(x_0); x_12 = lean::box(0); x_13 = l_string_join___closed__1; lean::inc(x_13); x_15 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_15, 0, x_2); lean::cnstr_set(x_15, 1, x_13); lean::cnstr_set(x_15, 2, x_1); lean::cnstr_set(x_15, 3, x_12); x_16 = 0; x_17 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_17, 0, x_15); lean::cnstr_set_scalar(x_17, sizeof(void*)*1, x_16); x_18 = x_17; return x_18; } else { obj* x_21; obj* x_24; obj* x_25; lean::dec(x_1); lean::dec(x_2); x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); x_24 = lean::box(0); x_25 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_25, 0, x_0); lean::cnstr_set(x_25, 1, x_21); lean::cnstr_set(x_25, 2, x_24); return x_25; } } else { obj* x_28; obj* x_29; obj* x_32; lean::dec(x_1); lean::dec(x_0); x_28 = l_string_join___closed__1; x_29 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_29); lean::inc(x_28); x_32 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_32, 0, x_28); lean::cnstr_set(x_32, 1, x_2); lean::cnstr_set(x_32, 2, x_29); return x_32; } } } obj* l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; x_5 = l_option_get__or__else___main___rarg(x_2, x_4); x_6 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_6, 0, x_5); lean::cnstr_set(x_6, 1, x_0); lean::cnstr_set(x_6, 2, x_1); lean::cnstr_set(x_6, 3, x_3); x_7 = 0; x_8 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_8, 0, x_6); lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); x_9 = x_8; return x_9; } } obj* l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3(obj* x_0) { _start: { obj* x_2; lean::dec(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg), 5, 0); return x_2; } } obj* l_lean_parser_monad__parsec_digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__4(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; obj* x_9; obj* x_11; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); x_9 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_9); x_11 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_9, x_8); return x_11; } else { uint32 x_12; uint8 x_13; x_12 = lean::string_iterator_curr(x_0); x_13 = l_char_is__digit(x_12); if (x_13 == 0) { obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_24; obj* x_25; obj* x_27; x_14 = l_char_quote__core(x_12); x_15 = l_char_has__repr___closed__1; lean::inc(x_15); x_17 = lean::string_append(x_15, x_14); lean::dec(x_14); x_19 = lean::string_append(x_17, x_15); x_20 = lean::box(0); x_21 = l_mjoin___rarg___closed__1; lean::inc(x_20); lean::inc(x_21); x_24 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_19, x_21, x_20, x_20, x_0); x_25 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_25); x_27 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_25, x_24); return x_27; } else { obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_28 = lean::string_iterator_next(x_0); x_29 = lean::box(0); x_30 = lean::box_uint32(x_12); x_31 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_31, 0, x_30); lean::cnstr_set(x_31, 1, x_28); lean::cnstr_set(x_31, 2, x_29); return x_31; } } } } obj* _init_l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1() { _start: { obj* x_0; obj* x_1; 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); return x_1; } } obj* l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(obj* x_0) { _start: { obj* x_1; obj* x_2; uint8 x_3; obj* x_6; lean::inc(x_0); x_6 = l_lean_parser_monad__parsec_digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__4(x_0); if (lean::obj_tag(x_6) == 0) { obj* x_7; obj* x_9; obj* x_11; obj* x_13; uint32 x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_22; obj* x_23; x_7 = lean::cnstr_get(x_6, 0); lean::inc(x_7); x_9 = lean::cnstr_get(x_6, 1); lean::inc(x_9); x_11 = lean::cnstr_get(x_6, 2); lean::inc(x_11); if (lean::is_shared(x_6)) { lean::dec(x_6); x_13 = lean::box(0); } else { lean::cnstr_release(x_6, 0); lean::cnstr_release(x_6, 1); lean::cnstr_release(x_6, 2); x_13 = x_6; } x_14 = lean::unbox_uint32(x_7); lean::dec(x_7); x_16 = lean::uint32_to_nat(x_14); x_17 = l___private_init_data_string_basic_4__to__nat__core___main___closed__1; x_18 = lean::nat_sub(x_16, x_17); lean::dec(x_16); x_20 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_20); if (lean::is_scalar(x_13)) { x_22 = lean::alloc_cnstr(0, 3, 0); } else { x_22 = x_13; } lean::cnstr_set(x_22, 0, x_18); lean::cnstr_set(x_22, 1, x_9); lean::cnstr_set(x_22, 2, x_20); x_23 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_11, x_22); if (lean::obj_tag(x_23) == 0) { obj* x_25; obj* x_27; lean::dec(x_0); x_25 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_25); x_27 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_23, x_25); return x_27; } else { obj* x_28; uint8 x_30; x_28 = lean::cnstr_get(x_23, 0); lean::inc(x_28); x_30 = lean::cnstr_get_scalar(x_23, sizeof(void*)*1); x_1 = x_23; x_2 = x_28; x_3 = x_30; goto lbl_4; } } else { obj* x_31; uint8 x_33; obj* x_34; obj* x_36; obj* x_37; x_31 = lean::cnstr_get(x_6, 0); lean::inc(x_31); x_33 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_shared(x_6)) { lean::dec(x_6); x_34 = lean::box(0); } else { lean::cnstr_release(x_6, 0); x_34 = x_6; } lean::inc(x_31); if (lean::is_scalar(x_34)) { x_36 = lean::alloc_cnstr(1, 1, 1); } else { x_36 = x_34; } lean::cnstr_set(x_36, 0, x_31); lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_33); x_37 = x_36; x_1 = x_37; x_2 = x_31; x_3 = x_33; goto lbl_4; } lbl_4: { obj* x_38; obj* x_39; uint8 x_40; if (x_3 == 0) { obj* x_43; uint8 x_45; lean::dec(x_1); x_45 = lean::string_iterator_has_next(x_0); if (x_45 == 0) { obj* x_46; obj* x_47; obj* x_48; obj* x_53; x_46 = lean::box(0); x_47 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_48 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_46); lean::inc(x_48); lean::inc(x_47); x_53 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_47, x_48, x_46, x_46, x_0); x_43 = x_53; goto lbl_44; } else { uint32 x_54; uint32 x_55; uint8 x_56; uint8 x_58; x_54 = lean::string_iterator_curr(x_0); x_55 = 97; x_58 = x_55 <= x_54; if (x_58 == 0) { obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_70; x_59 = l_char_quote__core(x_54); x_60 = l_char_has__repr___closed__1; lean::inc(x_60); x_62 = lean::string_append(x_60, x_59); lean::dec(x_59); x_64 = lean::string_append(x_62, x_60); x_65 = lean::box(0); x_66 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_65); lean::inc(x_66); x_70 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_64, x_66, x_65, x_65, x_0); x_43 = x_70; goto lbl_44; } else { uint8 x_71; x_71 = 1; x_56 = x_71; goto lbl_57; } lbl_57: { uint32 x_72; uint8 x_73; x_72 = 102; x_73 = x_54 <= x_72; if (x_73 == 0) { obj* x_74; obj* x_75; obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_85; x_74 = l_char_quote__core(x_54); x_75 = l_char_has__repr___closed__1; lean::inc(x_75); x_77 = lean::string_append(x_75, x_74); lean::dec(x_74); x_79 = lean::string_append(x_77, x_75); x_80 = lean::box(0); x_81 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_80); lean::inc(x_81); x_85 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_79, x_81, x_80, x_80, x_0); x_43 = x_85; goto lbl_44; } else { if (x_56 == 0) { obj* x_86; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_97; x_86 = l_char_quote__core(x_54); x_87 = l_char_has__repr___closed__1; lean::inc(x_87); x_89 = lean::string_append(x_87, x_86); lean::dec(x_86); x_91 = lean::string_append(x_89, x_87); x_92 = lean::box(0); x_93 = l_mjoin___rarg___closed__1; lean::inc(x_0); lean::inc(x_92); lean::inc(x_93); x_97 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_91, x_93, x_92, x_92, x_0); x_43 = x_97; goto lbl_44; } else { obj* x_99; obj* x_100; obj* x_101; obj* x_102; lean::inc(x_0); x_99 = lean::string_iterator_next(x_0); x_100 = lean::box(0); x_101 = lean::box_uint32(x_54); x_102 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_102, 0, x_101); lean::cnstr_set(x_102, 1, x_99); lean::cnstr_set(x_102, 2, x_100); x_43 = x_102; goto lbl_44; } } } } lbl_44: { obj* x_103; obj* x_105; x_103 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_103); x_105 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_103, x_43); if (lean::obj_tag(x_105) == 0) { obj* x_106; obj* x_108; obj* x_110; obj* x_112; uint32 x_113; obj* x_115; obj* x_116; obj* x_117; obj* x_119; obj* x_120; obj* x_124; obj* x_125; x_106 = lean::cnstr_get(x_105, 0); lean::inc(x_106); x_108 = lean::cnstr_get(x_105, 1); lean::inc(x_108); x_110 = lean::cnstr_get(x_105, 2); lean::inc(x_110); if (lean::is_shared(x_105)) { lean::dec(x_105); x_112 = lean::box(0); } else { lean::cnstr_release(x_105, 0); lean::cnstr_release(x_105, 1); lean::cnstr_release(x_105, 2); x_112 = x_105; } x_113 = lean::unbox_uint32(x_106); lean::dec(x_106); x_115 = lean::uint32_to_nat(x_113); x_116 = l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1; x_117 = lean::nat_sub(x_115, x_116); lean::dec(x_115); x_119 = lean::mk_nat_obj(10u); x_120 = lean::nat_add(x_119, x_117); lean::dec(x_117); lean::dec(x_119); lean::inc(x_103); if (lean::is_scalar(x_112)) { x_124 = lean::alloc_cnstr(0, 3, 0); } else { x_124 = x_112; } lean::cnstr_set(x_124, 0, x_120); lean::cnstr_set(x_124, 1, x_108); lean::cnstr_set(x_124, 2, x_103); x_125 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_110, x_124); if (lean::obj_tag(x_125) == 0) { obj* x_127; obj* x_128; obj* x_130; lean::dec(x_0); x_127 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_125); x_128 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_128); x_130 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_127, x_128); return x_130; } else { obj* x_131; uint8 x_133; x_131 = lean::cnstr_get(x_125, 0); lean::inc(x_131); x_133 = lean::cnstr_get_scalar(x_125, sizeof(void*)*1); x_38 = x_125; x_39 = x_131; x_40 = x_133; goto lbl_41; } } else { obj* x_134; uint8 x_136; obj* x_137; obj* x_139; obj* x_140; x_134 = lean::cnstr_get(x_105, 0); lean::inc(x_134); x_136 = lean::cnstr_get_scalar(x_105, sizeof(void*)*1); if (lean::is_shared(x_105)) { lean::dec(x_105); x_137 = lean::box(0); } else { lean::cnstr_release(x_105, 0); x_137 = x_105; } lean::inc(x_134); if (lean::is_scalar(x_137)) { x_139 = lean::alloc_cnstr(1, 1, 1); } else { x_139 = x_137; } lean::cnstr_set(x_139, 0, x_134); lean::cnstr_set_scalar(x_139, sizeof(void*)*1, x_136); x_140 = x_139; x_38 = x_140; x_39 = x_134; x_40 = x_136; goto lbl_41; } } } else { obj* x_143; obj* x_145; lean::dec(x_0); lean::dec(x_2); x_143 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_143); x_145 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_1, x_143); return x_145; } lbl_41: { if (x_40 == 0) { obj* x_147; uint8 x_149; lean::dec(x_38); x_149 = lean::string_iterator_has_next(x_0); if (x_149 == 0) { obj* x_150; obj* x_151; obj* x_152; obj* x_156; x_150 = lean::box(0); x_151 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_152 = l_mjoin___rarg___closed__1; lean::inc(x_150); lean::inc(x_152); lean::inc(x_151); x_156 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_151, x_152, x_150, x_150, x_0); x_147 = x_156; goto lbl_148; } else { uint32 x_157; uint32 x_158; uint8 x_159; uint8 x_161; x_157 = lean::string_iterator_curr(x_0); x_158 = 65; x_161 = x_158 <= x_157; if (x_161 == 0) { obj* x_162; obj* x_163; obj* x_165; obj* x_167; obj* x_168; obj* x_169; obj* x_172; x_162 = l_char_quote__core(x_157); x_163 = l_char_has__repr___closed__1; lean::inc(x_163); x_165 = lean::string_append(x_163, x_162); lean::dec(x_162); x_167 = lean::string_append(x_165, x_163); x_168 = lean::box(0); x_169 = l_mjoin___rarg___closed__1; lean::inc(x_168); lean::inc(x_169); x_172 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_167, x_169, x_168, x_168, x_0); x_147 = x_172; goto lbl_148; } else { uint8 x_173; x_173 = 1; x_159 = x_173; goto lbl_160; } lbl_160: { uint32 x_174; uint8 x_175; x_174 = 70; x_175 = x_157 <= x_174; if (x_175 == 0) { obj* x_176; obj* x_177; obj* x_179; obj* x_181; obj* x_182; obj* x_183; obj* x_186; x_176 = l_char_quote__core(x_157); x_177 = l_char_has__repr___closed__1; lean::inc(x_177); x_179 = lean::string_append(x_177, x_176); lean::dec(x_176); x_181 = lean::string_append(x_179, x_177); x_182 = lean::box(0); x_183 = l_mjoin___rarg___closed__1; lean::inc(x_182); lean::inc(x_183); x_186 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_181, x_183, x_182, x_182, x_0); x_147 = x_186; goto lbl_148; } else { if (x_159 == 0) { obj* x_187; obj* x_188; obj* x_190; obj* x_192; obj* x_193; obj* x_194; obj* x_197; x_187 = l_char_quote__core(x_157); x_188 = l_char_has__repr___closed__1; lean::inc(x_188); x_190 = lean::string_append(x_188, x_187); lean::dec(x_187); x_192 = lean::string_append(x_190, x_188); x_193 = lean::box(0); x_194 = l_mjoin___rarg___closed__1; lean::inc(x_193); lean::inc(x_194); x_197 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_192, x_194, x_193, x_193, x_0); x_147 = x_197; goto lbl_148; } else { obj* x_198; obj* x_199; obj* x_200; obj* x_201; x_198 = lean::string_iterator_next(x_0); x_199 = lean::box(0); x_200 = lean::box_uint32(x_157); x_201 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_201, 0, x_200); lean::cnstr_set(x_201, 1, x_198); lean::cnstr_set(x_201, 2, x_199); x_147 = x_201; goto lbl_148; } } } } lbl_148: { obj* x_202; obj* x_204; x_202 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_202); x_204 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_202, x_147); if (lean::obj_tag(x_204) == 0) { obj* x_205; obj* x_207; obj* x_209; obj* x_211; uint32 x_212; obj* x_214; obj* x_215; obj* x_216; obj* x_218; obj* x_219; obj* x_223; obj* x_224; obj* x_225; obj* x_226; obj* x_227; obj* x_229; x_205 = lean::cnstr_get(x_204, 0); lean::inc(x_205); x_207 = lean::cnstr_get(x_204, 1); lean::inc(x_207); x_209 = lean::cnstr_get(x_204, 2); lean::inc(x_209); if (lean::is_shared(x_204)) { lean::dec(x_204); x_211 = lean::box(0); } else { lean::cnstr_release(x_204, 0); lean::cnstr_release(x_204, 1); lean::cnstr_release(x_204, 2); x_211 = x_204; } x_212 = lean::unbox_uint32(x_205); lean::dec(x_205); x_214 = lean::uint32_to_nat(x_212); x_215 = l_lean_parser_parse__hex__digit___rarg___lambda__5___closed__1; x_216 = lean::nat_sub(x_214, x_215); lean::dec(x_214); x_218 = lean::mk_nat_obj(10u); x_219 = lean::nat_add(x_218, x_216); lean::dec(x_216); lean::dec(x_218); lean::inc(x_202); if (lean::is_scalar(x_211)) { x_223 = lean::alloc_cnstr(0, 3, 0); } else { x_223 = x_211; } lean::cnstr_set(x_223, 0, x_219); lean::cnstr_set(x_223, 1, x_207); lean::cnstr_set(x_223, 2, x_202); x_224 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_209, x_223); x_225 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_39, x_224); x_226 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_225); x_227 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_227); x_229 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_226, x_227); return x_229; } else { obj* x_230; uint8 x_232; obj* x_233; obj* x_234; obj* x_235; obj* x_236; obj* x_237; obj* x_238; obj* x_240; x_230 = lean::cnstr_get(x_204, 0); lean::inc(x_230); x_232 = lean::cnstr_get_scalar(x_204, sizeof(void*)*1); if (lean::is_shared(x_204)) { lean::dec(x_204); x_233 = lean::box(0); } else { lean::cnstr_release(x_204, 0); x_233 = x_204; } if (lean::is_scalar(x_233)) { x_234 = lean::alloc_cnstr(1, 1, 1); } else { x_234 = x_233; } lean::cnstr_set(x_234, 0, x_230); lean::cnstr_set_scalar(x_234, sizeof(void*)*1, x_232); x_235 = x_234; x_236 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_39, x_235); x_237 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_236); x_238 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_238); x_240 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_237, x_238); return x_240; } } } else { obj* x_243; obj* x_244; obj* x_246; lean::dec(x_0); lean::dec(x_39); x_243 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_2, x_38); x_244 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1; lean::inc(x_244); x_246 = l_lean_parser_parsec__t_labels__mk__res___rarg(x_243, x_244); return x_246; } } } } } obj* l_lean_parser_monad__parsec_alpha___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__5(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; obj* x_9; obj* x_11; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); x_9 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_9); x_11 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_9, x_8); return x_11; } else { uint32 x_12; uint8 x_13; x_12 = lean::string_iterator_curr(x_0); x_13 = l_char_is__alpha(x_12); if (x_13 == 0) { obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_24; obj* x_25; obj* x_27; x_14 = l_char_quote__core(x_12); x_15 = l_char_has__repr___closed__1; lean::inc(x_15); x_17 = lean::string_append(x_15, x_14); lean::dec(x_14); x_19 = lean::string_append(x_17, x_15); x_20 = lean::box(0); x_21 = l_mjoin___rarg___closed__1; lean::inc(x_20); lean::inc(x_21); x_24 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_19, x_21, x_20, x_20, x_0); x_25 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_25); x_27 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_25, x_24); return x_27; } else { obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_28 = lean::string_iterator_next(x_0); x_29 = lean::box(0); x_30 = lean::box_uint32(x_12); x_31 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_31, 0, x_30); lean::cnstr_set(x_31, 1, x_28); lean::cnstr_set(x_31, 2, x_29); return x_31; } } } } obj* _init_l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1() { _start: { obj* x_0; obj* x_2; obj* x_3; x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_2, 0, x_0); lean::closure_set(x_2, 1, x_0); x_3 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_3, 0, x_2); return x_3; } } obj* l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6(obj* x_0) { _start: { obj* x_1; obj* x_2; uint8 x_3; x_1 = lean::string_iterator_remaining(x_0); x_2 = lean::mk_nat_obj(0u); x_3 = lean::nat_dec_eq(x_1, x_2); lean::dec(x_2); lean::dec(x_1); if (x_3 == 0) { uint32 x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_20; x_6 = lean::string_iterator_curr(x_0); x_7 = l_char_quote__core(x_6); x_8 = l_char_has__repr___closed__1; lean::inc(x_8); x_10 = lean::string_append(x_8, x_7); lean::dec(x_7); x_12 = lean::string_append(x_10, x_8); x_13 = lean::box(0); x_14 = l_lean_parser_monad__parsec_eoi___rarg___lambda__1___closed__1; lean::inc(x_13); lean::inc(x_14); x_17 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_12, x_14, x_13, x_13, x_0); x_18 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_18); x_20 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_18, x_17); return x_20; } else { obj* x_21; obj* x_22; obj* x_24; x_21 = lean::box(0); x_22 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_22); x_24 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_24, 0, x_21); lean::cnstr_set(x_24, 1, x_0); lean::cnstr_set(x_24, 2, x_22); return x_24; } } } obj* _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_u"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__2() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_x"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__3() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("__"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { obj* x_6; obj* x_7; obj* x_10; obj* x_13; x_6 = lean::mk_nat_obj(1u); x_7 = lean::nat_sub(x_0, x_6); lean::dec(x_6); lean::dec(x_0); lean::inc(x_2); x_13 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6(x_2); if (lean::obj_tag(x_13) == 0) { obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_22; obj* x_23; x_14 = lean::cnstr_get(x_13, 1); lean::inc(x_14); x_16 = lean::cnstr_get(x_13, 2); lean::inc(x_16); if (lean::is_shared(x_13)) { lean::dec(x_13); x_18 = lean::box(0); } else { lean::cnstr_release(x_13, 0); lean::cnstr_release(x_13, 1); lean::cnstr_release(x_13, 2); x_18 = x_13; } x_19 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_19); lean::inc(x_1); if (lean::is_scalar(x_18)) { x_22 = lean::alloc_cnstr(0, 3, 0); } else { x_22 = x_18; } lean::cnstr_set(x_22, 0, x_1); lean::cnstr_set(x_22, 1, x_14); lean::cnstr_set(x_22, 2, x_19); x_23 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_16, x_22); x_10 = x_23; goto lbl_11; } else { obj* x_24; uint8 x_26; obj* x_27; obj* x_28; obj* x_29; x_24 = lean::cnstr_get(x_13, 0); lean::inc(x_24); x_26 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); if (lean::is_shared(x_13)) { lean::dec(x_13); x_27 = lean::box(0); } else { lean::cnstr_release(x_13, 0); x_27 = x_13; } if (lean::is_scalar(x_27)) { x_28 = lean::alloc_cnstr(1, 1, 1); } else { x_28 = x_27; } lean::cnstr_set(x_28, 0, x_24); lean::cnstr_set_scalar(x_28, sizeof(void*)*1, x_26); x_29 = x_28; x_10 = x_29; goto lbl_11; } lbl_11: { if (lean::obj_tag(x_10) == 0) { lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); return x_10; } else { obj* x_33; uint8 x_35; obj* x_36; obj* x_37; uint8 x_38; x_33 = lean::cnstr_get(x_10, 0); lean::inc(x_33); x_35 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (x_35 == 0) { obj* x_42; lean::dec(x_10); lean::inc(x_2); x_42 = l_lean_parser_monad__parsec_alpha___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__5(x_2); if (lean::obj_tag(x_42) == 0) { obj* x_43; obj* x_45; obj* x_47; uint32 x_50; obj* x_53; obj* x_55; obj* x_56; x_43 = lean::cnstr_get(x_42, 0); lean::inc(x_43); x_45 = lean::cnstr_get(x_42, 1); lean::inc(x_45); x_47 = lean::cnstr_get(x_42, 2); lean::inc(x_47); lean::dec(x_42); x_50 = lean::unbox_uint32(x_43); lean::dec(x_43); lean::inc(x_1); x_53 = lean::string_push(x_1, x_50); lean::inc(x_7); x_55 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_7, x_53, x_45); x_56 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_47, x_55); if (lean::obj_tag(x_56) == 0) { obj* x_60; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_60 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_56); return x_60; } else { obj* x_61; uint8 x_63; x_61 = lean::cnstr_get(x_56, 0); lean::inc(x_61); x_63 = lean::cnstr_get_scalar(x_56, sizeof(void*)*1); x_36 = x_56; x_37 = x_61; x_38 = x_63; goto lbl_39; } } else { obj* x_64; uint8 x_66; obj* x_67; obj* x_69; obj* x_70; x_64 = lean::cnstr_get(x_42, 0); lean::inc(x_64); x_66 = lean::cnstr_get_scalar(x_42, sizeof(void*)*1); if (lean::is_shared(x_42)) { lean::dec(x_42); x_67 = lean::box(0); } else { lean::cnstr_release(x_42, 0); x_67 = x_42; } lean::inc(x_64); if (lean::is_scalar(x_67)) { x_69 = lean::alloc_cnstr(1, 1, 1); } else { x_69 = x_67; } lean::cnstr_set(x_69, 0, x_64); lean::cnstr_set_scalar(x_69, sizeof(void*)*1, x_66); x_70 = x_69; x_36 = x_70; x_37 = x_64; x_38 = x_66; goto lbl_39; } } else { lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_33); return x_10; } lbl_39: { obj* x_75; obj* x_76; uint8 x_77; if (x_38 == 0) { obj* x_81; lean::dec(x_36); lean::inc(x_2); x_81 = l_lean_parser_monad__parsec_digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__4(x_2); if (lean::obj_tag(x_81) == 0) { obj* x_82; obj* x_84; obj* x_86; uint32 x_89; obj* x_92; obj* x_94; obj* x_95; x_82 = lean::cnstr_get(x_81, 0); lean::inc(x_82); x_84 = lean::cnstr_get(x_81, 1); lean::inc(x_84); x_86 = lean::cnstr_get(x_81, 2); lean::inc(x_86); lean::dec(x_81); x_89 = lean::unbox_uint32(x_82); lean::dec(x_82); lean::inc(x_1); x_92 = lean::string_push(x_1, x_89); lean::inc(x_7); x_94 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_7, x_92, x_84); x_95 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_86, x_94); if (lean::obj_tag(x_95) == 0) { obj* x_99; obj* x_100; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_99 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_95); x_100 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_99); return x_100; } else { obj* x_101; uint8 x_103; x_101 = lean::cnstr_get(x_95, 0); lean::inc(x_101); x_103 = lean::cnstr_get_scalar(x_95, sizeof(void*)*1); x_75 = x_95; x_76 = x_101; x_77 = x_103; goto lbl_78; } } else { obj* x_104; uint8 x_106; obj* x_107; obj* x_109; obj* x_110; x_104 = lean::cnstr_get(x_81, 0); lean::inc(x_104); x_106 = lean::cnstr_get_scalar(x_81, sizeof(void*)*1); if (lean::is_shared(x_81)) { lean::dec(x_81); x_107 = lean::box(0); } else { lean::cnstr_release(x_81, 0); x_107 = x_81; } lean::inc(x_104); if (lean::is_scalar(x_107)) { x_109 = lean::alloc_cnstr(1, 1, 1); } else { x_109 = x_107; } lean::cnstr_set(x_109, 0, x_104); lean::cnstr_set_scalar(x_109, sizeof(void*)*1, x_106); x_110 = x_109; x_75 = x_110; x_76 = x_104; x_77 = x_106; goto lbl_78; } } else { obj* x_115; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_37); x_115 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_36); return x_115; } lbl_78: { obj* x_116; obj* x_117; uint8 x_118; if (x_77 == 0) { obj* x_121; obj* x_122; obj* x_126; lean::dec(x_75); x_121 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3; x_122 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__3; lean::inc(x_2); lean::inc(x_122); lean::inc(x_121); x_126 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_121, x_122, x_2); if (lean::obj_tag(x_126) == 0) { obj* x_127; obj* x_129; uint32 x_132; obj* x_134; obj* x_136; obj* x_137; x_127 = lean::cnstr_get(x_126, 1); lean::inc(x_127); x_129 = lean::cnstr_get(x_126, 2); lean::inc(x_129); lean::dec(x_126); x_132 = 95; lean::inc(x_1); x_134 = lean::string_push(x_1, x_132); lean::inc(x_7); x_136 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_7, x_134, x_127); x_137 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_129, x_136); if (lean::obj_tag(x_137) == 0) { obj* x_141; obj* x_142; obj* x_143; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_141 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_137); x_142 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_141); x_143 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_142); return x_143; } else { obj* x_144; uint8 x_146; x_144 = lean::cnstr_get(x_137, 0); lean::inc(x_144); x_146 = lean::cnstr_get_scalar(x_137, sizeof(void*)*1); x_116 = x_137; x_117 = x_144; x_118 = x_146; goto lbl_119; } } else { obj* x_147; uint8 x_149; obj* x_150; obj* x_152; obj* x_153; x_147 = lean::cnstr_get(x_126, 0); lean::inc(x_147); x_149 = lean::cnstr_get_scalar(x_126, sizeof(void*)*1); if (lean::is_shared(x_126)) { lean::dec(x_126); x_150 = lean::box(0); } else { lean::cnstr_release(x_126, 0); x_150 = x_126; } lean::inc(x_147); if (lean::is_scalar(x_150)) { x_152 = lean::alloc_cnstr(1, 1, 1); } else { x_152 = x_150; } lean::cnstr_set(x_152, 0, x_147); lean::cnstr_set_scalar(x_152, sizeof(void*)*1, x_149); x_153 = x_152; x_116 = x_153; x_117 = x_147; x_118 = x_149; goto lbl_119; } } else { obj* x_158; obj* x_159; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_76); x_158 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_75); x_159 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_158); return x_159; } lbl_119: { obj* x_160; obj* x_161; uint8 x_162; if (x_118 == 0) { obj* x_165; obj* x_166; obj* x_170; lean::dec(x_116); x_165 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2; x_166 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__2; lean::inc(x_2); lean::inc(x_166); lean::inc(x_165); x_170 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_165, x_166, x_2); if (lean::obj_tag(x_170) == 0) { obj* x_171; obj* x_173; obj* x_176; x_171 = lean::cnstr_get(x_170, 1); lean::inc(x_171); x_173 = lean::cnstr_get(x_170, 2); lean::inc(x_173); lean::dec(x_170); x_176 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_171); if (lean::obj_tag(x_176) == 0) { obj* x_177; obj* x_179; obj* x_181; obj* x_184; x_177 = lean::cnstr_get(x_176, 0); lean::inc(x_177); x_179 = lean::cnstr_get(x_176, 1); lean::inc(x_179); x_181 = lean::cnstr_get(x_176, 2); lean::inc(x_181); lean::dec(x_176); x_184 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_179); if (lean::obj_tag(x_184) == 0) { obj* x_185; obj* x_187; obj* x_189; obj* x_192; obj* x_193; obj* x_196; uint32 x_199; obj* x_201; obj* x_203; obj* x_204; obj* x_205; obj* x_206; x_185 = lean::cnstr_get(x_184, 0); lean::inc(x_185); x_187 = lean::cnstr_get(x_184, 1); lean::inc(x_187); x_189 = lean::cnstr_get(x_184, 2); lean::inc(x_189); lean::dec(x_184); x_192 = lean::mk_nat_obj(16u); x_193 = lean::nat_mul(x_177, x_192); lean::dec(x_192); lean::dec(x_177); x_196 = lean::nat_add(x_193, x_185); lean::dec(x_185); lean::dec(x_193); x_199 = l_char_of__nat(x_196); lean::inc(x_1); x_201 = lean::string_push(x_1, x_199); lean::inc(x_7); x_203 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_7, x_201, x_187); x_204 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_189, x_203); x_205 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_181, x_204); x_206 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_173, x_205); if (lean::obj_tag(x_206) == 0) { obj* x_210; obj* x_211; obj* x_212; obj* x_213; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_210 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_206); x_211 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_210); x_212 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_211); x_213 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_212); return x_213; } else { obj* x_214; uint8 x_216; x_214 = lean::cnstr_get(x_206, 0); lean::inc(x_214); x_216 = lean::cnstr_get_scalar(x_206, sizeof(void*)*1); x_160 = x_206; x_161 = x_214; x_162 = x_216; goto lbl_163; } } else { obj* x_218; uint8 x_220; obj* x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; lean::dec(x_177); x_218 = lean::cnstr_get(x_184, 0); lean::inc(x_218); x_220 = lean::cnstr_get_scalar(x_184, sizeof(void*)*1); if (lean::is_shared(x_184)) { lean::dec(x_184); x_221 = lean::box(0); } else { lean::cnstr_release(x_184, 0); x_221 = x_184; } if (lean::is_scalar(x_221)) { x_222 = lean::alloc_cnstr(1, 1, 1); } else { x_222 = x_221; } lean::cnstr_set(x_222, 0, x_218); lean::cnstr_set_scalar(x_222, sizeof(void*)*1, x_220); x_223 = x_222; x_224 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_181, x_223); x_225 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_173, x_224); if (lean::obj_tag(x_225) == 0) { obj* x_229; obj* x_230; obj* x_231; obj* x_232; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_229 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_225); x_230 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_229); x_231 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_230); x_232 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_231); return x_232; } else { obj* x_233; uint8 x_235; x_233 = lean::cnstr_get(x_225, 0); lean::inc(x_233); x_235 = lean::cnstr_get_scalar(x_225, sizeof(void*)*1); x_160 = x_225; x_161 = x_233; x_162 = x_235; goto lbl_163; } } } else { obj* x_236; uint8 x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; x_236 = lean::cnstr_get(x_176, 0); lean::inc(x_236); x_238 = lean::cnstr_get_scalar(x_176, sizeof(void*)*1); if (lean::is_shared(x_176)) { lean::dec(x_176); x_239 = lean::box(0); } else { lean::cnstr_release(x_176, 0); x_239 = x_176; } if (lean::is_scalar(x_239)) { x_240 = lean::alloc_cnstr(1, 1, 1); } else { x_240 = x_239; } lean::cnstr_set(x_240, 0, x_236); lean::cnstr_set_scalar(x_240, sizeof(void*)*1, x_238); x_241 = x_240; x_242 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_173, x_241); if (lean::obj_tag(x_242) == 0) { obj* x_246; obj* x_247; obj* x_248; obj* x_249; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_246 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_242); x_247 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_246); x_248 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_247); x_249 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_248); return x_249; } else { obj* x_250; uint8 x_252; x_250 = lean::cnstr_get(x_242, 0); lean::inc(x_250); x_252 = lean::cnstr_get_scalar(x_242, sizeof(void*)*1); x_160 = x_242; x_161 = x_250; x_162 = x_252; goto lbl_163; } } } else { obj* x_253; uint8 x_255; obj* x_256; obj* x_258; obj* x_259; x_253 = lean::cnstr_get(x_170, 0); lean::inc(x_253); x_255 = lean::cnstr_get_scalar(x_170, sizeof(void*)*1); if (lean::is_shared(x_170)) { lean::dec(x_170); x_256 = lean::box(0); } else { lean::cnstr_release(x_170, 0); x_256 = x_170; } lean::inc(x_253); if (lean::is_scalar(x_256)) { x_258 = lean::alloc_cnstr(1, 1, 1); } else { x_258 = x_256; } lean::cnstr_set(x_258, 0, x_253); lean::cnstr_set_scalar(x_258, sizeof(void*)*1, x_255); x_259 = x_258; x_160 = x_259; x_161 = x_253; x_162 = x_255; goto lbl_163; } } else { obj* x_264; obj* x_265; obj* x_266; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_117); x_264 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_116); x_265 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_264); x_266 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_265); return x_266; } lbl_163: { if (x_162 == 0) { obj* x_268; obj* x_269; obj* x_272; lean::dec(x_160); x_268 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1; x_269 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1; lean::inc(x_269); lean::inc(x_268); x_272 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_268, x_269, x_2); if (lean::obj_tag(x_272) == 0) { obj* x_273; obj* x_275; obj* x_278; x_273 = lean::cnstr_get(x_272, 1); lean::inc(x_273); x_275 = lean::cnstr_get(x_272, 2); lean::inc(x_275); lean::dec(x_272); x_278 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_273); if (lean::obj_tag(x_278) == 0) { obj* x_279; obj* x_281; obj* x_283; obj* x_286; x_279 = lean::cnstr_get(x_278, 0); lean::inc(x_279); x_281 = lean::cnstr_get(x_278, 1); lean::inc(x_281); x_283 = lean::cnstr_get(x_278, 2); lean::inc(x_283); lean::dec(x_278); x_286 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_281); if (lean::obj_tag(x_286) == 0) { obj* x_287; obj* x_289; obj* x_291; obj* x_294; x_287 = lean::cnstr_get(x_286, 0); lean::inc(x_287); x_289 = lean::cnstr_get(x_286, 1); lean::inc(x_289); x_291 = lean::cnstr_get(x_286, 2); lean::inc(x_291); lean::dec(x_286); x_294 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_289); if (lean::obj_tag(x_294) == 0) { obj* x_295; obj* x_297; obj* x_299; obj* x_302; x_295 = lean::cnstr_get(x_294, 0); lean::inc(x_295); x_297 = lean::cnstr_get(x_294, 1); lean::inc(x_297); x_299 = lean::cnstr_get(x_294, 2); lean::inc(x_299); lean::dec(x_294); x_302 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_297); if (lean::obj_tag(x_302) == 0) { obj* x_303; obj* x_305; obj* x_307; obj* x_310; obj* x_311; obj* x_314; obj* x_315; obj* x_318; obj* x_321; obj* x_322; obj* x_325; obj* x_328; uint32 x_331; obj* x_332; obj* x_333; obj* x_334; obj* x_335; obj* x_336; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_341; obj* x_342; obj* x_343; x_303 = lean::cnstr_get(x_302, 0); lean::inc(x_303); x_305 = lean::cnstr_get(x_302, 1); lean::inc(x_305); x_307 = lean::cnstr_get(x_302, 2); lean::inc(x_307); lean::dec(x_302); x_310 = lean::mk_nat_obj(4096u); x_311 = lean::nat_mul(x_279, x_310); lean::dec(x_310); lean::dec(x_279); x_314 = lean::mk_nat_obj(256u); x_315 = lean::nat_mul(x_287, x_314); lean::dec(x_314); lean::dec(x_287); x_318 = lean::nat_add(x_311, x_315); lean::dec(x_315); lean::dec(x_311); x_321 = lean::mk_nat_obj(16u); x_322 = lean::nat_mul(x_295, x_321); lean::dec(x_321); lean::dec(x_295); x_325 = lean::nat_add(x_318, x_322); lean::dec(x_322); lean::dec(x_318); x_328 = lean::nat_add(x_325, x_303); lean::dec(x_303); lean::dec(x_325); x_331 = l_char_of__nat(x_328); x_332 = lean::string_push(x_1, x_331); x_333 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_7, x_332, x_305); x_334 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_307, x_333); x_335 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_299, x_334); x_336 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_291, x_335); x_337 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_336); x_338 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_337); x_339 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_338); x_340 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_339); x_341 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_340); x_342 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_341); x_343 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_342); return x_343; } else { obj* x_349; uint8 x_351; obj* x_352; obj* x_353; obj* x_354; obj* x_355; obj* x_356; obj* x_357; obj* x_358; obj* x_359; obj* x_360; obj* x_361; obj* x_362; obj* x_363; lean::dec(x_279); lean::dec(x_1); lean::dec(x_7); lean::dec(x_287); lean::dec(x_295); x_349 = lean::cnstr_get(x_302, 0); lean::inc(x_349); x_351 = lean::cnstr_get_scalar(x_302, sizeof(void*)*1); if (lean::is_shared(x_302)) { lean::dec(x_302); x_352 = lean::box(0); } else { lean::cnstr_release(x_302, 0); x_352 = x_302; } if (lean::is_scalar(x_352)) { x_353 = lean::alloc_cnstr(1, 1, 1); } else { x_353 = x_352; } lean::cnstr_set(x_353, 0, x_349); lean::cnstr_set_scalar(x_353, sizeof(void*)*1, x_351); x_354 = x_353; x_355 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_299, x_354); x_356 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_291, x_355); x_357 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_356); x_358 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_357); x_359 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_358); x_360 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_359); x_361 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_360); x_362 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_361); x_363 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_362); return x_363; } } else { obj* x_368; uint8 x_370; obj* x_371; obj* x_372; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377; obj* x_378; obj* x_379; obj* x_380; obj* x_381; lean::dec(x_279); lean::dec(x_1); lean::dec(x_7); lean::dec(x_287); x_368 = lean::cnstr_get(x_294, 0); lean::inc(x_368); x_370 = lean::cnstr_get_scalar(x_294, sizeof(void*)*1); if (lean::is_shared(x_294)) { lean::dec(x_294); x_371 = lean::box(0); } else { lean::cnstr_release(x_294, 0); x_371 = x_294; } if (lean::is_scalar(x_371)) { x_372 = lean::alloc_cnstr(1, 1, 1); } else { x_372 = x_371; } lean::cnstr_set(x_372, 0, x_368); lean::cnstr_set_scalar(x_372, sizeof(void*)*1, x_370); x_373 = x_372; x_374 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_291, x_373); x_375 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_374); x_376 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_375); x_377 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_376); x_378 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_377); x_379 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_378); x_380 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_379); x_381 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_380); return x_381; } } else { obj* x_385; uint8 x_387; obj* x_388; obj* x_389; obj* x_390; obj* x_391; obj* x_392; obj* x_393; obj* x_394; obj* x_395; obj* x_396; obj* x_397; lean::dec(x_279); lean::dec(x_1); lean::dec(x_7); x_385 = lean::cnstr_get(x_286, 0); lean::inc(x_385); x_387 = lean::cnstr_get_scalar(x_286, sizeof(void*)*1); if (lean::is_shared(x_286)) { lean::dec(x_286); x_388 = lean::box(0); } else { lean::cnstr_release(x_286, 0); x_388 = x_286; } if (lean::is_scalar(x_388)) { x_389 = lean::alloc_cnstr(1, 1, 1); } else { x_389 = x_388; } lean::cnstr_set(x_389, 0, x_385); lean::cnstr_set_scalar(x_389, sizeof(void*)*1, x_387); x_390 = x_389; x_391 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_390); x_392 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_391); x_393 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_392); x_394 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_393); x_395 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_394); x_396 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_395); x_397 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_396); return x_397; } } else { obj* x_400; uint8 x_402; obj* x_403; obj* x_404; obj* x_405; obj* x_406; obj* x_407; obj* x_408; obj* x_409; obj* x_410; obj* x_411; lean::dec(x_1); lean::dec(x_7); x_400 = lean::cnstr_get(x_278, 0); lean::inc(x_400); x_402 = lean::cnstr_get_scalar(x_278, sizeof(void*)*1); if (lean::is_shared(x_278)) { lean::dec(x_278); x_403 = lean::box(0); } else { lean::cnstr_release(x_278, 0); x_403 = x_278; } if (lean::is_scalar(x_403)) { x_404 = lean::alloc_cnstr(1, 1, 1); } else { x_404 = x_403; } lean::cnstr_set(x_404, 0, x_400); lean::cnstr_set_scalar(x_404, sizeof(void*)*1, x_402); x_405 = x_404; x_406 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_405); x_407 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_406); x_408 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_407); x_409 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_408); x_410 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_409); x_411 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_410); return x_411; } } else { obj* x_414; uint8 x_416; obj* x_417; obj* x_418; obj* x_419; obj* x_420; obj* x_421; obj* x_422; obj* x_423; obj* x_424; lean::dec(x_1); lean::dec(x_7); x_414 = lean::cnstr_get(x_272, 0); lean::inc(x_414); x_416 = lean::cnstr_get_scalar(x_272, sizeof(void*)*1); if (lean::is_shared(x_272)) { lean::dec(x_272); x_417 = lean::box(0); } else { lean::cnstr_release(x_272, 0); x_417 = x_272; } if (lean::is_scalar(x_417)) { x_418 = lean::alloc_cnstr(1, 1, 1); } else { x_418 = x_417; } lean::cnstr_set(x_418, 0, x_414); lean::cnstr_set_scalar(x_418, sizeof(void*)*1, x_416); x_419 = x_418; x_420 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_161, x_419); x_421 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_420); x_422 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_421); x_423 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_422); x_424 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_423); return x_424; } } else { obj* x_429; obj* x_430; obj* x_431; obj* x_432; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_161); x_429 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_117, x_160); x_430 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_76, x_429); x_431 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_37, x_430); x_432 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_431); return x_432; } } } } } } } } else { obj* x_434; obj* x_436; lean::dec(x_0); x_434 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_434); x_436 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_436, 0, x_1); lean::cnstr_set(x_436, 1, x_2); lean::cnstr_set(x_436, 2, x_434); return x_436; } } } obj* l___private_init_lean_name__mangling_2__parse__mangled__string__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_0, x_1, x_2); return x_3; } } obj* l___private_init_lean_name__mangling_3__parse__mangled__string(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_7; x_1 = lean::string_iterator_remaining(x_0); x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_1, x_2, x_0); x_5 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_5); x_7 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_5, x_4); return x_7; } } obj* _init_l_lean_string_demangle___closed__1() { _start: { obj* x_0; x_0 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_name__mangling_3__parse__mangled__string), 1, 0); return x_0; } } obj* l_lean_string_demangle(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_5; x_1 = l_lean_string_demangle___closed__1; x_2 = l_string_join___closed__1; lean::inc(x_2); lean::inc(x_1); x_5 = l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(x_1, x_0, x_2); if (lean::obj_tag(x_5) == 0) { obj* x_7; lean::dec(x_5); x_7 = lean::box(0); return x_7; } else { obj* x_8; obj* x_11; x_8 = lean::cnstr_get(x_5, 0); lean::inc(x_8); lean::dec(x_5); x_11 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_11, 0, x_8); return x_11; } } } obj* _init_l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1() { _start: { obj* x_0; x_0 = lean::mk_string("_s"); return x_0; } } obj* _init_l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2() { _start: { obj* x_0; x_0 = lean::mk_string("_"); return x_0; } } obj* l___private_init_lean_name__mangling_4__name_mangle__aux___main(obj* x_0, obj* x_1) { _start: { switch (lean::obj_tag(x_1)) { case 0: { lean::dec(x_1); return x_0; } case 1: { obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; x_3 = lean::cnstr_get(x_1, 0); lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 1); lean::inc(x_5); lean::dec(x_1); x_8 = l___private_init_lean_name__mangling_4__name_mangle__aux___main(x_0, x_3); x_9 = l_lean_string_mangle(x_5); x_10 = l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1; x_11 = lean::string_append(x_8, x_10); x_12 = lean::string_length(x_9); x_13 = l_nat_repr(x_12); x_14 = lean::string_append(x_11, x_13); lean::dec(x_13); x_16 = l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2; x_17 = lean::string_append(x_14, x_16); x_18 = lean::string_append(x_17, x_9); lean::dec(x_9); return x_18; } default: { obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; x_20 = lean::cnstr_get(x_1, 0); lean::inc(x_20); x_22 = lean::cnstr_get(x_1, 1); lean::inc(x_22); lean::dec(x_1); x_25 = l___private_init_lean_name__mangling_4__name_mangle__aux___main(x_0, x_20); x_26 = l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2; x_27 = lean::string_append(x_25, x_26); x_28 = l_nat_repr(x_22); x_29 = lean::string_append(x_27, x_28); lean::dec(x_28); x_31 = lean::string_append(x_29, x_26); return x_31; } } } } obj* l___private_init_lean_name__mangling_4__name_mangle__aux(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l___private_init_lean_name__mangling_4__name_mangle__aux___main(x_0, x_1); return x_2; } } obj* l_lean_name_mangle(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l___private_init_lean_name__mangling_4__name_mangle__aux___main(x_1, x_0); return x_2; } } obj* l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(uint32 x_0, obj* x_1) { _start: { uint8 x_2; x_2 = lean::string_iterator_has_next(x_1); if (x_2 == 0) { obj* x_3; obj* x_4; obj* x_5; obj* x_9; obj* x_10; obj* x_12; x_3 = lean::box(0); x_4 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_5 = l_mjoin___rarg___closed__1; lean::inc(x_3); lean::inc(x_5); lean::inc(x_4); x_9 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_4, x_5, x_3, x_3, x_1); x_10 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_10); x_12 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_10, x_9); return x_12; } else { uint32 x_13; uint8 x_14; x_13 = lean::string_iterator_curr(x_1); x_14 = x_13 == x_0; if (x_14 == 0) { obj* x_15; obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_25; obj* x_26; obj* x_28; x_15 = l_char_quote__core(x_13); x_16 = l_char_has__repr___closed__1; lean::inc(x_16); x_18 = lean::string_append(x_16, x_15); lean::dec(x_15); x_20 = lean::string_append(x_18, x_16); x_21 = lean::box(0); x_22 = l_mjoin___rarg___closed__1; lean::inc(x_21); lean::inc(x_22); x_25 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_20, x_22, x_21, x_21, x_1); x_26 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_26); x_28 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_26, x_25); return x_28; } else { obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_29 = lean::string_iterator_next(x_1); x_30 = lean::box(0); x_31 = lean::box_uint32(x_13); x_32 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_32, 0, x_31); lean::cnstr_set(x_32, 1, x_29); lean::cnstr_set(x_32, 2, x_30); return x_32; } } } } obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__5(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__5(x_5, x_4, x_1); return x_6; } } obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__7(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6(uint32 x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_6; x_2 = l_string_join___closed__1; lean::inc(x_2); x_4 = lean::string_push(x_2, x_0); x_5 = lean::string_iterator_remaining(x_1); x_6 = l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__7(x_5, x_4, x_1); return x_6; } } obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__9(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { uint8 x_6; x_6 = lean::string_iterator_has_next(x_2); if (x_6 == 0) { obj* x_8; lean::dec(x_0); x_8 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_8; } else { uint32 x_9; uint8 x_10; x_9 = lean::string_iterator_curr(x_2); x_10 = l_char_is__digit(x_9); if (x_10 == 0) { obj* x_12; lean::dec(x_0); x_12 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_12; } else { obj* x_13; obj* x_14; obj* x_17; obj* x_18; x_13 = lean::mk_nat_obj(1u); x_14 = lean::nat_sub(x_0, x_13); lean::dec(x_13); lean::dec(x_0); x_17 = lean::string_push(x_1, x_9); x_18 = lean::string_iterator_next(x_2); x_0 = x_14; x_1 = x_17; x_2 = x_18; goto _start; } } } else { obj* x_21; lean::dec(x_0); x_21 = l___private_init_lean_parser_parsec_3__mk__string__result___rarg(x_1, x_2); return x_21; } } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__8(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; x_2 = lean::string_iterator_curr(x_0); lean::dec(x_0); x_4 = l_string_join___closed__1; lean::inc(x_4); x_6 = lean::string_push(x_4, x_2); x_7 = lean::string_iterator_remaining(x_1); x_8 = l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__9(x_7, x_6, x_1); return x_8; } } obj* l_lean_parser_monad__parsec_take__while1___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__3(obj* x_0) { _start: { uint8 x_1; x_1 = lean::string_iterator_has_next(x_0); if (x_1 == 0) { obj* x_2; obj* x_3; obj* x_4; obj* x_8; obj* x_9; obj* x_11; x_2 = lean::box(0); x_3 = l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; lean::inc(x_2); lean::inc(x_4); lean::inc(x_3); x_8 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); x_9 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_9); x_11 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_9, x_8); if (lean::obj_tag(x_11) == 0) { obj* x_12; obj* x_14; obj* x_16; uint32 x_19; obj* x_21; obj* x_22; x_12 = lean::cnstr_get(x_11, 0); lean::inc(x_12); x_14 = lean::cnstr_get(x_11, 1); lean::inc(x_14); x_16 = lean::cnstr_get(x_11, 2); lean::inc(x_16); lean::dec(x_11); x_19 = lean::unbox_uint32(x_12); lean::dec(x_12); x_21 = l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4(x_19, x_14); x_22 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_16, x_21); return x_22; } else { obj* x_23; uint8 x_25; obj* x_26; obj* x_27; obj* x_28; x_23 = lean::cnstr_get(x_11, 0); lean::inc(x_23); x_25 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_shared(x_11)) { lean::dec(x_11); x_26 = lean::box(0); } else { lean::cnstr_release(x_11, 0); x_26 = x_11; } if (lean::is_scalar(x_26)) { x_27 = lean::alloc_cnstr(1, 1, 1); } else { x_27 = x_26; } lean::cnstr_set(x_27, 0, x_23); lean::cnstr_set_scalar(x_27, sizeof(void*)*1, x_25); x_28 = x_27; return x_28; } } else { uint32 x_29; uint8 x_30; x_29 = lean::string_iterator_curr(x_0); x_30 = l_char_is__digit(x_29); if (x_30 == 0) { obj* x_31; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_41; obj* x_42; obj* x_44; x_31 = l_char_quote__core(x_29); x_32 = l_char_has__repr___closed__1; lean::inc(x_32); x_34 = lean::string_append(x_32, x_31); lean::dec(x_31); x_36 = lean::string_append(x_34, x_32); x_37 = lean::box(0); x_38 = l_mjoin___rarg___closed__1; lean::inc(x_37); lean::inc(x_38); x_41 = l_lean_parser_monad__parsec_error___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__3___rarg(x_36, x_38, x_37, x_37, x_0); x_42 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_42); x_44 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_42, x_41); if (lean::obj_tag(x_44) == 0) { obj* x_45; obj* x_47; obj* x_49; uint32 x_52; obj* x_54; obj* x_55; x_45 = lean::cnstr_get(x_44, 0); lean::inc(x_45); x_47 = lean::cnstr_get(x_44, 1); lean::inc(x_47); x_49 = lean::cnstr_get(x_44, 2); lean::inc(x_49); lean::dec(x_44); x_52 = lean::unbox_uint32(x_45); lean::dec(x_45); x_54 = l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6(x_52, x_47); x_55 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_49, x_54); return x_55; } else { obj* x_56; uint8 x_58; obj* x_59; obj* x_60; obj* x_61; x_56 = lean::cnstr_get(x_44, 0); lean::inc(x_56); x_58 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); if (lean::is_shared(x_44)) { lean::dec(x_44); x_59 = lean::box(0); } else { lean::cnstr_release(x_44, 0); x_59 = x_44; } if (lean::is_scalar(x_59)) { x_60 = lean::alloc_cnstr(1, 1, 1); } else { x_60 = x_59; } lean::cnstr_set(x_60, 0, x_56); lean::cnstr_set_scalar(x_60, sizeof(void*)*1, x_58); x_61 = x_60; return x_61; } } else { obj* x_63; obj* x_64; obj* x_65; obj* x_66; lean::inc(x_0); x_63 = lean::string_iterator_next(x_0); x_64 = lean::box(0); x_65 = l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__8(x_0, x_63); x_66 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_64, x_65); return x_66; } } } } obj* l_lean_parser_monad__parsec_num___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__2(obj* x_0) { _start: { obj* x_1; x_1 = l_lean_parser_monad__parsec_take__while1___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__3(x_0); if (lean::obj_tag(x_1) == 0) { obj* x_2; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); x_6 = lean::cnstr_get(x_1, 2); lean::inc(x_6); if (lean::is_shared(x_1)) { lean::dec(x_1); x_8 = lean::box(0); } else { lean::cnstr_release(x_1, 0); lean::cnstr_release(x_1, 1); lean::cnstr_release(x_1, 2); x_8 = x_1; } x_9 = l_string_to__nat(x_2); x_10 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_10); if (lean::is_scalar(x_8)) { x_12 = lean::alloc_cnstr(0, 3, 0); } else { x_12 = x_8; } lean::cnstr_set(x_12, 0, x_9); lean::cnstr_set(x_12, 1, x_4); lean::cnstr_set(x_12, 2, x_10); x_13 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_6, x_12); return x_13; } else { obj* x_14; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; x_14 = lean::cnstr_get(x_1, 0); lean::inc(x_14); x_16 = lean::cnstr_get_scalar(x_1, sizeof(void*)*1); if (lean::is_shared(x_1)) { lean::dec(x_1); x_17 = lean::box(0); } else { lean::cnstr_release(x_1, 0); x_17 = x_1; } if (lean::is_scalar(x_17)) { x_18 = lean::alloc_cnstr(1, 1, 1); } else { x_18 = x_17; } lean::cnstr_set(x_18, 0, x_14); lean::cnstr_set_scalar(x_18, sizeof(void*)*1, x_16); x_19 = x_18; return x_19; } } } obj* l_lean_parser_monad__parsec_take___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__10(obj* x_0, obj* x_1) { _start: { obj* x_2; uint8 x_3; x_2 = lean::mk_nat_obj(0u); x_3 = lean::nat_dec_eq(x_0, x_2); lean::dec(x_2); if (x_3 == 0) { obj* x_5; obj* x_7; x_5 = l_string_join___closed__1; lean::inc(x_5); x_7 = l___private_init_lean_parser_parsec_2__take__aux___main___rarg(x_0, x_5, x_1); return x_7; } else { obj* x_9; obj* x_10; obj* x_13; lean::dec(x_0); x_9 = l_string_join___closed__1; x_10 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_10); lean::inc(x_9); x_13 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_13, 0, x_9); lean::cnstr_set(x_13, 1, x_1); lean::cnstr_set(x_13, 2, x_10); return x_13; } } } obj* l_match__failed___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__11(obj* x_0) { _start: { obj* x_1; obj* x_2; obj* x_3; obj* x_7; uint8 x_8; obj* x_9; obj* x_10; x_1 = l_match__failed___rarg___closed__1; x_2 = l_mjoin___rarg___closed__1; x_3 = l_lean_parser_parsec__t_monad__fail___rarg___closed__1; lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); x_7 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_7, 0, x_0); lean::cnstr_set(x_7, 1, x_1); lean::cnstr_set(x_7, 2, x_2); lean::cnstr_set(x_7, 3, x_3); x_8 = 0; x_9 = lean::alloc_cnstr(1, 1, 1); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set_scalar(x_9, sizeof(void*)*1, x_8); x_10 = x_9; return x_10; } } obj* _init_l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("_s"); x_1 = l_string_quote(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_2, 0, x_1); return x_2; } } obj* l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; uint8 x_4; x_3 = lean::mk_nat_obj(0u); x_4 = lean::nat_dec_eq(x_0, x_3); lean::dec(x_3); if (x_4 == 0) { obj* x_6; obj* x_7; uint32 x_10; obj* x_11; obj* x_14; x_6 = lean::mk_nat_obj(1u); x_7 = lean::nat_sub(x_0, x_6); lean::dec(x_6); lean::dec(x_0); x_10 = 95; lean::inc(x_2); x_14 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6(x_2); if (lean::obj_tag(x_14) == 0) { obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_23; obj* x_24; x_15 = lean::cnstr_get(x_14, 1); lean::inc(x_15); x_17 = lean::cnstr_get(x_14, 2); lean::inc(x_17); if (lean::is_shared(x_14)) { lean::dec(x_14); x_19 = lean::box(0); } else { lean::cnstr_release(x_14, 0); lean::cnstr_release(x_14, 1); lean::cnstr_release(x_14, 2); x_19 = x_14; } x_20 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_20); lean::inc(x_1); if (lean::is_scalar(x_19)) { x_23 = lean::alloc_cnstr(0, 3, 0); } else { x_23 = x_19; } lean::cnstr_set(x_23, 0, x_1); lean::cnstr_set(x_23, 1, x_15); lean::cnstr_set(x_23, 2, x_20); x_24 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_17, x_23); x_11 = x_24; goto lbl_12; } else { obj* x_25; uint8 x_27; obj* x_28; obj* x_29; obj* x_30; x_25 = lean::cnstr_get(x_14, 0); lean::inc(x_25); x_27 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); if (lean::is_shared(x_14)) { lean::dec(x_14); x_28 = lean::box(0); } else { lean::cnstr_release(x_14, 0); x_28 = x_14; } if (lean::is_scalar(x_28)) { x_29 = lean::alloc_cnstr(1, 1, 1); } else { x_29 = x_28; } lean::cnstr_set(x_29, 0, x_25); lean::cnstr_set_scalar(x_29, sizeof(void*)*1, x_27); x_30 = x_29; x_11 = x_30; goto lbl_12; } lbl_12: { if (lean::obj_tag(x_11) == 0) { lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); return x_11; } else { obj* x_34; uint8 x_36; obj* x_37; obj* x_38; uint8 x_39; x_34 = lean::cnstr_get(x_11, 0); lean::inc(x_34); x_36 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (x_36 == 0) { obj* x_42; obj* x_43; obj* x_47; lean::dec(x_11); x_42 = l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1; x_43 = l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___closed__1; lean::inc(x_2); lean::inc(x_43); lean::inc(x_42); x_47 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_42, x_43, x_2); if (lean::obj_tag(x_47) == 0) { obj* x_48; obj* x_50; obj* x_52; obj* x_53; x_48 = lean::cnstr_get(x_47, 1); lean::inc(x_48); x_50 = lean::cnstr_get(x_47, 2); lean::inc(x_50); if (lean::is_shared(x_47)) { lean::dec(x_47); x_52 = lean::box(0); } else { lean::cnstr_release(x_47, 0); lean::cnstr_release(x_47, 1); lean::cnstr_release(x_47, 2); x_52 = x_47; } x_53 = l_lean_parser_monad__parsec_num___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__2(x_48); if (lean::obj_tag(x_53) == 0) { obj* x_54; obj* x_56; obj* x_58; obj* x_61; x_54 = lean::cnstr_get(x_53, 0); lean::inc(x_54); x_56 = lean::cnstr_get(x_53, 1); lean::inc(x_56); x_58 = lean::cnstr_get(x_53, 2); lean::inc(x_58); lean::dec(x_53); x_61 = l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(x_10, x_56); if (lean::obj_tag(x_61) == 0) { obj* x_62; obj* x_64; obj* x_67; x_62 = lean::cnstr_get(x_61, 1); lean::inc(x_62); x_64 = lean::cnstr_get(x_61, 2); lean::inc(x_64); lean::dec(x_61); x_67 = l_lean_parser_monad__parsec_take___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__10(x_54, x_62); if (lean::obj_tag(x_67) == 0) { obj* x_68; obj* x_70; obj* x_72; obj* x_75; obj* x_76; obj* x_78; obj* x_79; x_68 = lean::cnstr_get(x_67, 0); lean::inc(x_68); x_70 = lean::cnstr_get(x_67, 1); lean::inc(x_70); x_72 = lean::cnstr_get(x_67, 2); lean::inc(x_72); lean::dec(x_67); x_75 = l_lean_string_demangle(x_68); x_76 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_76); if (lean::is_scalar(x_52)) { x_78 = lean::alloc_cnstr(0, 3, 0); } else { x_78 = x_52; } lean::cnstr_set(x_78, 0, x_75); lean::cnstr_set(x_78, 1, x_70); lean::cnstr_set(x_78, 2, x_76); x_79 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_72, x_78); if (lean::obj_tag(x_79) == 0) { obj* x_80; obj* x_82; obj* x_84; x_80 = lean::cnstr_get(x_79, 0); lean::inc(x_80); x_82 = lean::cnstr_get(x_79, 1); lean::inc(x_82); x_84 = lean::cnstr_get(x_79, 2); lean::inc(x_84); lean::dec(x_79); if (lean::obj_tag(x_80) == 0) { obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; lean::dec(x_80); x_88 = l_match__failed___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__11(x_82); x_89 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_84, x_88); x_90 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_64, x_89); x_91 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_58, x_90); x_92 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_91); if (lean::obj_tag(x_92) == 0) { obj* x_96; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_96 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_92); return x_96; } else { obj* x_97; uint8 x_99; x_97 = lean::cnstr_get(x_92, 0); lean::inc(x_97); x_99 = lean::cnstr_get_scalar(x_92, sizeof(void*)*1); x_37 = x_92; x_38 = x_97; x_39 = x_99; goto lbl_40; } } else { obj* x_100; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; x_100 = lean::cnstr_get(x_80, 0); lean::inc(x_100); lean::dec(x_80); lean::inc(x_1); x_104 = lean_name_mk_string(x_1, x_100); lean::inc(x_7); x_106 = l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(x_7, x_104, x_82); x_107 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_84, x_106); x_108 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_64, x_107); x_109 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_58, x_108); x_110 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_109); if (lean::obj_tag(x_110) == 0) { obj* x_114; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_114 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_110); return x_114; } else { obj* x_115; uint8 x_117; x_115 = lean::cnstr_get(x_110, 0); lean::inc(x_115); x_117 = lean::cnstr_get_scalar(x_110, sizeof(void*)*1); x_37 = x_110; x_38 = x_115; x_39 = x_117; goto lbl_40; } } } else { obj* x_118; uint8 x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; x_118 = lean::cnstr_get(x_79, 0); lean::inc(x_118); x_120 = lean::cnstr_get_scalar(x_79, sizeof(void*)*1); if (lean::is_shared(x_79)) { lean::dec(x_79); x_121 = lean::box(0); } else { lean::cnstr_release(x_79, 0); x_121 = x_79; } if (lean::is_scalar(x_121)) { x_122 = lean::alloc_cnstr(1, 1, 1); } else { x_122 = x_121; } lean::cnstr_set(x_122, 0, x_118); lean::cnstr_set_scalar(x_122, sizeof(void*)*1, x_120); x_123 = x_122; x_124 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_64, x_123); x_125 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_58, x_124); x_126 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_125); if (lean::obj_tag(x_126) == 0) { obj* x_130; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_130 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_126); return x_130; } else { obj* x_131; uint8 x_133; x_131 = lean::cnstr_get(x_126, 0); lean::inc(x_131); x_133 = lean::cnstr_get_scalar(x_126, sizeof(void*)*1); x_37 = x_126; x_38 = x_131; x_39 = x_133; goto lbl_40; } } } else { obj* x_135; uint8 x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; lean::dec(x_52); x_135 = lean::cnstr_get(x_67, 0); lean::inc(x_135); x_137 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); if (lean::is_shared(x_67)) { lean::dec(x_67); x_138 = lean::box(0); } else { lean::cnstr_release(x_67, 0); x_138 = x_67; } if (lean::is_scalar(x_138)) { x_139 = lean::alloc_cnstr(1, 1, 1); } else { x_139 = x_138; } lean::cnstr_set(x_139, 0, x_135); lean::cnstr_set_scalar(x_139, sizeof(void*)*1, x_137); x_140 = x_139; x_141 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_64, x_140); x_142 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_58, x_141); x_143 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_142); if (lean::obj_tag(x_143) == 0) { obj* x_147; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_147 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_143); return x_147; } else { obj* x_148; uint8 x_150; x_148 = lean::cnstr_get(x_143, 0); lean::inc(x_148); x_150 = lean::cnstr_get_scalar(x_143, sizeof(void*)*1); x_37 = x_143; x_38 = x_148; x_39 = x_150; goto lbl_40; } } } else { obj* x_153; uint8 x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; lean::dec(x_52); lean::dec(x_54); x_153 = lean::cnstr_get(x_61, 0); lean::inc(x_153); x_155 = lean::cnstr_get_scalar(x_61, sizeof(void*)*1); if (lean::is_shared(x_61)) { lean::dec(x_61); x_156 = lean::box(0); } else { lean::cnstr_release(x_61, 0); x_156 = x_61; } if (lean::is_scalar(x_156)) { x_157 = lean::alloc_cnstr(1, 1, 1); } else { x_157 = x_156; } lean::cnstr_set(x_157, 0, x_153); lean::cnstr_set_scalar(x_157, sizeof(void*)*1, x_155); x_158 = x_157; x_159 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_58, x_158); x_160 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_159); if (lean::obj_tag(x_160) == 0) { obj* x_164; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_164 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_160); return x_164; } else { obj* x_165; uint8 x_167; x_165 = lean::cnstr_get(x_160, 0); lean::inc(x_165); x_167 = lean::cnstr_get_scalar(x_160, sizeof(void*)*1); x_37 = x_160; x_38 = x_165; x_39 = x_167; goto lbl_40; } } } else { obj* x_169; uint8 x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; lean::dec(x_52); x_169 = lean::cnstr_get(x_53, 0); lean::inc(x_169); x_171 = lean::cnstr_get_scalar(x_53, sizeof(void*)*1); if (lean::is_shared(x_53)) { lean::dec(x_53); x_172 = lean::box(0); } else { lean::cnstr_release(x_53, 0); x_172 = x_53; } if (lean::is_scalar(x_172)) { x_173 = lean::alloc_cnstr(1, 1, 1); } else { x_173 = x_172; } lean::cnstr_set(x_173, 0, x_169); lean::cnstr_set_scalar(x_173, sizeof(void*)*1, x_171); x_174 = x_173; x_175 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_50, x_174); if (lean::obj_tag(x_175) == 0) { obj* x_179; lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_179 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_175); return x_179; } else { obj* x_180; uint8 x_182; x_180 = lean::cnstr_get(x_175, 0); lean::inc(x_180); x_182 = lean::cnstr_get_scalar(x_175, sizeof(void*)*1); x_37 = x_175; x_38 = x_180; x_39 = x_182; goto lbl_40; } } } else { obj* x_183; uint8 x_185; obj* x_186; obj* x_188; obj* x_189; x_183 = lean::cnstr_get(x_47, 0); lean::inc(x_183); x_185 = lean::cnstr_get_scalar(x_47, sizeof(void*)*1); if (lean::is_shared(x_47)) { lean::dec(x_47); x_186 = lean::box(0); } else { lean::cnstr_release(x_47, 0); x_186 = x_47; } lean::inc(x_183); if (lean::is_scalar(x_186)) { x_188 = lean::alloc_cnstr(1, 1, 1); } else { x_188 = x_186; } lean::cnstr_set(x_188, 0, x_183); lean::cnstr_set_scalar(x_188, sizeof(void*)*1, x_185); x_189 = x_188; x_37 = x_189; x_38 = x_183; x_39 = x_185; goto lbl_40; } } else { lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); lean::dec(x_34); return x_11; } lbl_40: { if (x_39 == 0) { obj* x_195; lean::dec(x_37); x_195 = l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(x_10, x_2); if (lean::obj_tag(x_195) == 0) { obj* x_196; obj* x_198; obj* x_201; x_196 = lean::cnstr_get(x_195, 1); lean::inc(x_196); x_198 = lean::cnstr_get(x_195, 2); lean::inc(x_198); lean::dec(x_195); x_201 = l_lean_parser_monad__parsec_num___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__2(x_196); if (lean::obj_tag(x_201) == 0) { obj* x_202; obj* x_204; obj* x_206; obj* x_209; x_202 = lean::cnstr_get(x_201, 0); lean::inc(x_202); x_204 = lean::cnstr_get(x_201, 1); lean::inc(x_204); x_206 = lean::cnstr_get(x_201, 2); lean::inc(x_206); lean::dec(x_201); x_209 = l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(x_10, x_204); if (lean::obj_tag(x_209) == 0) { obj* x_210; obj* x_212; obj* x_215; obj* x_216; obj* x_217; obj* x_218; obj* x_219; obj* x_220; obj* x_221; x_210 = lean::cnstr_get(x_209, 1); lean::inc(x_210); x_212 = lean::cnstr_get(x_209, 2); lean::inc(x_212); lean::dec(x_209); x_215 = lean_name_mk_numeral(x_1, x_202); x_216 = l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(x_7, x_215, x_210); x_217 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_212, x_216); x_218 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_206, x_217); x_219 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_198, x_218); x_220 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_38, x_219); x_221 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_220); return x_221; } else { obj* x_225; uint8 x_227; obj* x_228; obj* x_229; obj* x_230; obj* x_231; obj* x_232; obj* x_233; obj* x_234; lean::dec(x_202); lean::dec(x_1); lean::dec(x_7); x_225 = lean::cnstr_get(x_209, 0); lean::inc(x_225); x_227 = lean::cnstr_get_scalar(x_209, sizeof(void*)*1); if (lean::is_shared(x_209)) { lean::dec(x_209); x_228 = lean::box(0); } else { lean::cnstr_release(x_209, 0); x_228 = x_209; } if (lean::is_scalar(x_228)) { x_229 = lean::alloc_cnstr(1, 1, 1); } else { x_229 = x_228; } lean::cnstr_set(x_229, 0, x_225); lean::cnstr_set_scalar(x_229, sizeof(void*)*1, x_227); x_230 = x_229; x_231 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_206, x_230); x_232 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_198, x_231); x_233 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_38, x_232); x_234 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_233); return x_234; } } else { obj* x_237; uint8 x_239; obj* x_240; obj* x_241; obj* x_242; obj* x_243; obj* x_244; obj* x_245; lean::dec(x_1); lean::dec(x_7); x_237 = lean::cnstr_get(x_201, 0); lean::inc(x_237); x_239 = lean::cnstr_get_scalar(x_201, sizeof(void*)*1); if (lean::is_shared(x_201)) { lean::dec(x_201); x_240 = lean::box(0); } else { lean::cnstr_release(x_201, 0); x_240 = x_201; } if (lean::is_scalar(x_240)) { x_241 = lean::alloc_cnstr(1, 1, 1); } else { x_241 = x_240; } lean::cnstr_set(x_241, 0, x_237); lean::cnstr_set_scalar(x_241, sizeof(void*)*1, x_239); x_242 = x_241; x_243 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_198, x_242); x_244 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_38, x_243); x_245 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_244); return x_245; } } else { obj* x_248; uint8 x_250; obj* x_251; obj* x_252; obj* x_253; obj* x_254; obj* x_255; lean::dec(x_1); lean::dec(x_7); x_248 = lean::cnstr_get(x_195, 0); lean::inc(x_248); x_250 = lean::cnstr_get_scalar(x_195, sizeof(void*)*1); if (lean::is_shared(x_195)) { lean::dec(x_195); x_251 = lean::box(0); } else { lean::cnstr_release(x_195, 0); x_251 = x_195; } if (lean::is_scalar(x_251)) { x_252 = lean::alloc_cnstr(1, 1, 1); } else { x_252 = x_251; } lean::cnstr_set(x_252, 0, x_248); lean::cnstr_set_scalar(x_252, sizeof(void*)*1, x_250); x_253 = x_252; x_254 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_38, x_253); x_255 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_254); return x_255; } } else { obj* x_260; lean::dec(x_38); lean::dec(x_1); lean::dec(x_7); lean::dec(x_2); x_260 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_34, x_37); return x_260; } } } } } else { obj* x_262; obj* x_264; lean::dec(x_0); x_262 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_262); x_264 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_264, 0, x_1); lean::cnstr_set(x_264, 1, x_2); lean::cnstr_set(x_264, 2, x_262); return x_264; } } } obj* l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_ch___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__1(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__4(x_2, x_1); return x_3; } } obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6___boxed(obj* x_0, obj* x_1) { _start: { uint32 x_2; obj* x_3; x_2 = lean::unbox_uint32(x_0); x_3 = l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__6(x_2, x_1); return x_3; } } obj* l___private_init_lean_name__mangling_5__parse__mangled__name__aux(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(x_0, x_1, x_2); return x_3; } } obj* l___private_init_lean_name__mangling_6__parse__mangled__name(obj* x_0, obj* x_1) { _start: { obj* x_3; obj* x_4; obj* x_5; lean::inc(x_0); x_3 = l_string_quote(x_0); x_4 = lean::alloc_closure(reinterpret_cast(l_dlist_singleton___rarg), 2, 1); lean::closure_set(x_4, 0, x_3); x_5 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_0, x_4, x_1); if (lean::obj_tag(x_5) == 0) { obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; x_6 = lean::cnstr_get(x_5, 1); lean::inc(x_6); x_8 = lean::cnstr_get(x_5, 2); lean::inc(x_8); lean::dec(x_5); x_11 = lean::string_iterator_remaining(x_6); x_12 = lean::box(0); x_13 = l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main(x_11, x_12, x_6); x_14 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1; lean::inc(x_14); x_16 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_13); x_17 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_8, x_16); return x_17; } else { obj* x_18; uint8 x_20; obj* x_21; obj* x_22; obj* x_23; x_18 = lean::cnstr_get(x_5, 0); lean::inc(x_18); x_20 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_shared(x_5)) { lean::dec(x_5); x_21 = lean::box(0); } else { lean::cnstr_release(x_5, 0); x_21 = x_5; } if (lean::is_scalar(x_21)) { x_22 = lean::alloc_cnstr(1, 1, 1); } else { x_22 = x_21; } lean::cnstr_set(x_22, 0, x_18); lean::cnstr_set_scalar(x_22, sizeof(void*)*1, x_20); x_23 = x_22; return x_23; } } } obj* l_lean_name_demangle(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_3; obj* x_5; x_2 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_name__mangling_6__parse__mangled__name), 2, 1); lean::closure_set(x_2, 0, x_1); x_3 = l_string_join___closed__1; lean::inc(x_3); x_5 = l_lean_parser_parsec__t_run___at_lean_parser_parsec_parse___spec__1___rarg(x_2, x_0, x_3); if (lean::obj_tag(x_5) == 0) { obj* x_7; lean::dec(x_5); x_7 = lean::box(0); return x_7; } else { obj* x_8; obj* x_11; x_8 = lean::cnstr_get(x_5, 0); lean::inc(x_8); lean::dec(x_5); x_11 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_11, 0, x_8); return x_11; } } } void initialize_init_lean_name(); void initialize_init_lean_parser_string__literal(); static bool _G_initialized = false; void initialize_init_lean_name__mangling() { if (_G_initialized) return; _G_initialized = true; initialize_init_lean_name(); initialize_init_lean_parser_string__literal(); l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1 = _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1(); l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2 = _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__2(); l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3 = _init_l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__3(); l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1 = _init_l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2___closed__1(); l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1 = _init_l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__6___closed__1(); l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1 = _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1(); l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__2 = _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__2(); l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__3 = _init_l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__3(); l_lean_string_demangle___closed__1 = _init_l_lean_string_demangle___closed__1(); l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1 = _init_l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__1(); l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2 = _init_l___private_init_lean_name__mangling_4__name_mangle__aux___main___closed__2(); l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___closed__1 = _init_l___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___closed__1(); }