5987 lines
169 KiB
C++
5987 lines
169 KiB
C++
// 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"
|
|
#include "runtime/io.h"
|
|
#include "kernel/builtin.h"
|
|
typedef lean::object obj;
|
|
#if defined(__clang__)
|
|
#pragma clang diagnostic ignored "-Wunused-parameter"
|
|
#endif
|
|
obj* _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__16(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4_s7___boxed(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10_s7___boxed(obj*, obj*);
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__2;
|
|
obj* _l_s8_function_s4_comp_s6___rarg(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14(unsigned, obj*);
|
|
obj* _l_s6_string_s7_to__nat(obj*);
|
|
obj* _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12(unsigned, obj*);
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1;
|
|
obj* _l_s9___private_580269747__s8_str__aux_s6___main(obj*, obj*, obj*);
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__15(obj*, obj*, obj*);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s12_take__while1_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__3(obj*);
|
|
obj* _l_s4_char_s11_quote__core(unsigned);
|
|
obj* _l_s9___private_127590107__s9_take__aux_s6___main_s6___rarg(obj*, obj*, obj*);
|
|
obj* _l_s13_match__failed_s6___rarg_s11___closed__1;
|
|
obj* _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__17(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s4_name_s8_demangle(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(obj*, obj*);
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(obj*, obj*, obj*);
|
|
obj* _l_s2_id_s6___rarg(obj*);
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__7(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_num_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__2(obj*);
|
|
unsigned char _l_s4_char_s9_is__digit(unsigned);
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1_s7___boxed(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8_s7___boxed(obj*, obj*);
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__9(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(obj*, obj*, obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s4_name_s6_mangle(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s6___rarg_s11___lambda__1_s11___closed__1;
|
|
obj* _l_s6_option_s13_get__or__else_s6___main_s6___rarg(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6(unsigned, obj*);
|
|
unsigned char _l_s4_char_s9_is__alpha(unsigned);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__4(obj*);
|
|
obj* _l_s4_char_s9_has__repr_s11___closed__1;
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux(obj*, obj*, obj*);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3(obj*);
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__3;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8(unsigned, obj*);
|
|
obj* _l_s13_match__failed_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__19(obj*);
|
|
unsigned char _l_s6_string_s9_is__empty(obj*);
|
|
obj* _l_s3_nat_s11_digit__char(obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s4_take_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__18(obj*, obj*);
|
|
obj* _l_s4_lean_s6_string_s8_demangle_s11___closed__1;
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__5(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(unsigned, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10(unsigned, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6(obj*);
|
|
obj* _l_s6_string_s4_join_s11___closed__1;
|
|
obj* _l_s9___private_3162311557__s22_parse__mangled__string(obj*);
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__2;
|
|
obj* _l_s4_lean_s6_parser_s9_parsec__t_s11_monad__fail_s6___rarg_s11___closed__1;
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__13(obj*, obj*, obj*);
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__11(obj*, obj*, obj*);
|
|
obj* _l_s9___private_4217055689__s25_parse__mangled__name__aux(obj*, obj*, obj*);
|
|
obj* _l_s3_nat_s4_repr(obj*);
|
|
obj* _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(obj*);
|
|
obj* _l_s4_lean_s6_string_s6_mangle(obj*);
|
|
obj* _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14_s7___boxed(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s9_parsec__t_s3_run_s4___at_s4_lean_s6_parser_s6_parsec_s5_parse_s9___spec__1_s6___rarg(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
obj* _l_s9___private_74862231__s20_parse__mangled__name(obj*, obj*);
|
|
obj* _l_s4_lean_s6_string_s8_demangle(obj*);
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12_s7___boxed(obj*, obj*);
|
|
obj* _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(obj*, obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6_s7___boxed(obj*, obj*);
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux(obj*, obj*);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3;
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_alpha_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__5(obj*);
|
|
obj* _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(obj*, obj*);
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4(unsigned, obj*);
|
|
obj* _l_s6_string_s5_quote(obj*);
|
|
obj* _l_s5_dlist_s9_singleton_s6___rarg(obj*, obj*);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(obj*, obj*, obj*);
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
obj* x_6; obj* x_7; unsigned x_10; unsigned char x_11; unsigned char x_13; unsigned char x_15;
|
|
lean::dec(x_4);
|
|
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_15 = _l_s4_char_s9_is__alpha(x_10);
|
|
if (x_15 == 0)
|
|
{
|
|
unsigned char x_16;
|
|
x_16 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_16 == 0)
|
|
{
|
|
unsigned char x_17;
|
|
x_17 = 0;
|
|
x_13 = x_17;
|
|
goto lbl_14;
|
|
}
|
|
else
|
|
{
|
|
obj* x_19; obj* x_20; obj* x_21;
|
|
lean::dec(x_3);
|
|
x_19 = lean::string_iterator_next(x_1);
|
|
x_20 = lean::string_push(x_2, x_10);
|
|
x_21 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_7, x_19, x_20);
|
|
return x_21;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
|
|
if (x_15 == 0)
|
|
{
|
|
unsigned char x_22;
|
|
x_22 = 0;
|
|
x_13 = x_22;
|
|
goto lbl_14;
|
|
}
|
|
else
|
|
{
|
|
obj* x_24; obj* x_25; obj* x_26;
|
|
lean::dec(x_3);
|
|
x_24 = lean::string_iterator_next(x_1);
|
|
x_25 = lean::string_push(x_2, x_10);
|
|
x_26 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_7, x_24, x_25);
|
|
return x_26;
|
|
}
|
|
}
|
|
lbl_12:
|
|
{
|
|
obj* x_27; obj* x_28; obj* x_29;
|
|
x_27 = lean::mk_nat_obj(255u);
|
|
x_28 = lean::box_uint32(x_10);
|
|
x_29 = lean::nat_dec_lt(x_28, x_27);
|
|
lean::dec(x_27);
|
|
if (lean::obj_tag(x_29) == 0)
|
|
{
|
|
obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; unsigned x_37; obj* x_39; obj* x_40; obj* x_43; obj* x_44; obj* x_45; unsigned x_46; obj* x_48; obj* x_49; obj* x_52; obj* x_53; obj* x_54; unsigned x_55; obj* x_57; obj* x_58; obj* x_61; unsigned x_62; obj* x_64; obj* x_65; obj* x_66;
|
|
lean::dec(x_29);
|
|
x_32 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1;
|
|
x_33 = lean::string_append(x_2, x_32);
|
|
x_34 = lean::mk_nat_obj(4096u);
|
|
x_35 = lean::nat_div(x_28, x_34);
|
|
x_36 = _l_s3_nat_s11_digit__char(x_35);
|
|
x_37 = lean::unbox_uint32(x_36);
|
|
lean::dec(x_36);
|
|
x_39 = lean::string_push(x_33, x_37);
|
|
x_40 = lean::nat_mod(x_28, x_34);
|
|
lean::dec(x_34);
|
|
lean::dec(x_28);
|
|
x_43 = lean::mk_nat_obj(256u);
|
|
x_44 = lean::nat_div(x_40, x_43);
|
|
x_45 = _l_s3_nat_s11_digit__char(x_44);
|
|
x_46 = lean::unbox_uint32(x_45);
|
|
lean::dec(x_45);
|
|
x_48 = lean::string_push(x_39, x_46);
|
|
x_49 = lean::nat_mod(x_40, x_43);
|
|
lean::dec(x_43);
|
|
lean::dec(x_40);
|
|
x_52 = lean::mk_nat_obj(16u);
|
|
x_53 = lean::nat_div(x_49, x_52);
|
|
x_54 = _l_s3_nat_s11_digit__char(x_53);
|
|
x_55 = lean::unbox_uint32(x_54);
|
|
lean::dec(x_54);
|
|
x_57 = lean::string_push(x_48, x_55);
|
|
x_58 = lean::nat_mod(x_49, x_52);
|
|
lean::dec(x_52);
|
|
lean::dec(x_49);
|
|
x_61 = _l_s3_nat_s11_digit__char(x_58);
|
|
x_62 = lean::unbox_uint32(x_61);
|
|
lean::dec(x_61);
|
|
x_64 = lean::string_push(x_57, x_62);
|
|
x_65 = lean::string_iterator_next(x_1);
|
|
x_66 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_7, x_65, x_64);
|
|
return x_66;
|
|
}
|
|
else
|
|
{
|
|
obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; unsigned x_73; obj* x_75; obj* x_76; obj* x_79; unsigned x_80; obj* x_82; obj* x_83; obj* x_84;
|
|
lean::dec(x_29);
|
|
x_68 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2;
|
|
x_69 = lean::string_append(x_2, x_68);
|
|
x_70 = lean::mk_nat_obj(16u);
|
|
x_71 = lean::nat_div(x_28, x_70);
|
|
x_72 = _l_s3_nat_s11_digit__char(x_71);
|
|
x_73 = lean::unbox_uint32(x_72);
|
|
lean::dec(x_72);
|
|
x_75 = lean::string_push(x_69, x_73);
|
|
x_76 = lean::nat_mod(x_28, x_70);
|
|
lean::dec(x_70);
|
|
lean::dec(x_28);
|
|
x_79 = _l_s3_nat_s11_digit__char(x_76);
|
|
x_80 = lean::unbox_uint32(x_79);
|
|
lean::dec(x_79);
|
|
x_82 = lean::string_push(x_75, x_80);
|
|
x_83 = lean::string_iterator_next(x_1);
|
|
x_84 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_7, x_83, x_82);
|
|
return x_84;
|
|
}
|
|
}
|
|
lbl_14:
|
|
{
|
|
obj* x_85; obj* x_86; obj* x_87; unsigned x_89;
|
|
x_85 = lean::mk_nat_obj(95u);
|
|
x_86 = lean::mk_nat_obj(55296u);
|
|
x_87 = lean::nat_dec_lt(x_85, x_86);
|
|
lean::dec(x_86);
|
|
if (lean::obj_tag(x_87) == 0)
|
|
{
|
|
obj* x_92; obj* x_93;
|
|
lean::dec(x_87);
|
|
x_92 = lean::mk_nat_obj(57343u);
|
|
x_93 = lean::nat_dec_lt(x_92, x_85);
|
|
lean::dec(x_92);
|
|
if (lean::obj_tag(x_93) == 0)
|
|
{
|
|
unsigned x_97;
|
|
lean::dec(x_93);
|
|
lean::dec(x_85);
|
|
x_97 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_89 = x_97;
|
|
goto lbl_90;
|
|
}
|
|
else
|
|
{
|
|
obj* x_100; obj* x_101;
|
|
lean::dec(x_93);
|
|
x_100 = lean::mk_nat_obj(1114112u);
|
|
x_101 = lean::nat_dec_lt(x_85, x_100);
|
|
lean::dec(x_100);
|
|
if (lean::obj_tag(x_101) == 0)
|
|
{
|
|
unsigned x_105;
|
|
lean::dec(x_85);
|
|
lean::dec(x_101);
|
|
x_105 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_89 = x_105;
|
|
goto lbl_90;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_109;
|
|
lean::dec(x_3);
|
|
lean::dec(x_101);
|
|
x_109 = lean::unbox_uint32(x_85);
|
|
lean::dec(x_85);
|
|
x_89 = x_109;
|
|
goto lbl_90;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_113;
|
|
lean::dec(x_3);
|
|
lean::dec(x_87);
|
|
x_113 = lean::unbox_uint32(x_85);
|
|
lean::dec(x_85);
|
|
x_89 = x_113;
|
|
goto lbl_90;
|
|
}
|
|
lbl_90:
|
|
{
|
|
obj* x_115; obj* x_116; obj* x_117;
|
|
x_115 = lean::box_uint32(x_10);
|
|
x_116 = lean::box_uint32(x_89);
|
|
x_117 = lean::nat_dec_eq(x_115, x_116);
|
|
lean::dec(x_116);
|
|
lean::dec(x_115);
|
|
if (lean::obj_tag(x_117) == 0)
|
|
{
|
|
unsigned char x_121;
|
|
lean::dec(x_117);
|
|
x_121 = 0;
|
|
x_11 = x_121;
|
|
goto lbl_12;
|
|
}
|
|
else
|
|
{
|
|
obj* x_123; obj* x_124; obj* x_125; obj* x_126;
|
|
lean::dec(x_117);
|
|
x_123 = lean::string_iterator_next(x_1);
|
|
x_124 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3;
|
|
x_125 = lean::string_append(x_2, x_124);
|
|
x_126 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_7, x_123, x_125);
|
|
return x_126;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
return x_2;
|
|
}
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::mk_string("_u");
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::mk_string("_x");
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::mk_string("__");
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _l_s9___private_3255790009__s6_string_s11_mangle__aux(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3;
|
|
x_3 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_string_s6_mangle(obj* x_0) {
|
|
{
|
|
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_s6_string_s4_join_s11___closed__1;
|
|
lean::inc(x_3);
|
|
x_5 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main(x_1, x_2, x_3);
|
|
return x_5;
|
|
}
|
|
}
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
obj* x_6; obj* x_7; obj* x_10; obj* x_13;
|
|
lean::dec(x_4);
|
|
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_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___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_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___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_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_16, x_22);
|
|
x_10 = x_23;
|
|
goto lbl_11;
|
|
}
|
|
else
|
|
{
|
|
obj* x_24; unsigned char 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<unsigned char>(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_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
return x_10;
|
|
}
|
|
else
|
|
{
|
|
obj* x_34; unsigned char x_36; obj* x_37; obj* x_38; unsigned char x_39;
|
|
x_34 = lean::cnstr_get(x_10, 0);
|
|
lean::inc(x_34);
|
|
x_36 = lean::cnstr_get_scalar<unsigned char>(x_10, sizeof(void*)*1);
|
|
if (x_36 == 0)
|
|
{
|
|
obj* x_43;
|
|
lean::dec(x_10);
|
|
lean::inc(x_2);
|
|
x_43 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_alpha_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__5(x_2);
|
|
if (lean::obj_tag(x_43) == 0)
|
|
{
|
|
obj* x_44; obj* x_46; obj* x_48; unsigned x_51; obj* x_54; obj* x_56; obj* x_57;
|
|
x_44 = lean::cnstr_get(x_43, 0);
|
|
lean::inc(x_44);
|
|
x_46 = lean::cnstr_get(x_43, 1);
|
|
lean::inc(x_46);
|
|
x_48 = lean::cnstr_get(x_43, 2);
|
|
lean::inc(x_48);
|
|
lean::dec(x_43);
|
|
x_51 = lean::unbox_uint32(x_44);
|
|
lean::dec(x_44);
|
|
lean::inc(x_1);
|
|
x_54 = lean::string_push(x_1, x_51);
|
|
lean::inc(x_7);
|
|
x_56 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_54, x_46);
|
|
x_57 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_48, x_56);
|
|
if (lean::obj_tag(x_57) == 0)
|
|
{
|
|
obj* x_62;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_62 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_57);
|
|
return x_62;
|
|
}
|
|
else
|
|
{
|
|
obj* x_63; unsigned char x_65;
|
|
x_63 = lean::cnstr_get(x_57, 0);
|
|
lean::inc(x_63);
|
|
x_65 = lean::cnstr_get_scalar<unsigned char>(x_57, sizeof(void*)*1);
|
|
x_37 = x_57;
|
|
x_38 = x_63;
|
|
x_39 = x_65;
|
|
goto lbl_40;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_66; unsigned char x_68; obj* x_69; obj* x_71; obj* x_72;
|
|
x_66 = lean::cnstr_get(x_43, 0);
|
|
lean::inc(x_66);
|
|
x_68 = lean::cnstr_get_scalar<unsigned char>(x_43, sizeof(void*)*1);
|
|
if (lean::is_shared(x_43)) {
|
|
lean::dec(x_43);
|
|
x_69 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_43, 0);
|
|
x_69 = x_43;
|
|
}
|
|
lean::inc(x_66);
|
|
if (lean::is_scalar(x_69)) {
|
|
x_71 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_71 = x_69;
|
|
}
|
|
lean::cnstr_set(x_71, 0, x_66);
|
|
lean::cnstr_set_scalar(x_71, sizeof(void*)*1, x_68);
|
|
x_72 = x_71;
|
|
x_37 = x_72;
|
|
x_38 = x_66;
|
|
x_39 = x_68;
|
|
goto lbl_40;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_34);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
return x_10;
|
|
}
|
|
lbl_40:
|
|
{
|
|
obj* x_78; obj* x_79; unsigned char x_80;
|
|
if (x_39 == 0)
|
|
{
|
|
obj* x_84;
|
|
lean::dec(x_37);
|
|
lean::inc(x_2);
|
|
x_84 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__4(x_2);
|
|
if (lean::obj_tag(x_84) == 0)
|
|
{
|
|
obj* x_85; obj* x_87; obj* x_89; unsigned x_92; obj* x_95; obj* x_97; obj* x_98;
|
|
x_85 = lean::cnstr_get(x_84, 0);
|
|
lean::inc(x_85);
|
|
x_87 = lean::cnstr_get(x_84, 1);
|
|
lean::inc(x_87);
|
|
x_89 = lean::cnstr_get(x_84, 2);
|
|
lean::inc(x_89);
|
|
lean::dec(x_84);
|
|
x_92 = lean::unbox_uint32(x_85);
|
|
lean::dec(x_85);
|
|
lean::inc(x_1);
|
|
x_95 = lean::string_push(x_1, x_92);
|
|
lean::inc(x_7);
|
|
x_97 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_95, x_87);
|
|
x_98 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_89, x_97);
|
|
if (lean::obj_tag(x_98) == 0)
|
|
{
|
|
obj* x_103; obj* x_104;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_103 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_98);
|
|
x_104 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_103);
|
|
return x_104;
|
|
}
|
|
else
|
|
{
|
|
obj* x_105; unsigned char x_107;
|
|
x_105 = lean::cnstr_get(x_98, 0);
|
|
lean::inc(x_105);
|
|
x_107 = lean::cnstr_get_scalar<unsigned char>(x_98, sizeof(void*)*1);
|
|
x_78 = x_98;
|
|
x_79 = x_105;
|
|
x_80 = x_107;
|
|
goto lbl_81;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_108; unsigned char x_110; obj* x_111; obj* x_113; obj* x_114;
|
|
x_108 = lean::cnstr_get(x_84, 0);
|
|
lean::inc(x_108);
|
|
x_110 = lean::cnstr_get_scalar<unsigned char>(x_84, sizeof(void*)*1);
|
|
if (lean::is_shared(x_84)) {
|
|
lean::dec(x_84);
|
|
x_111 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_84, 0);
|
|
x_111 = x_84;
|
|
}
|
|
lean::inc(x_108);
|
|
if (lean::is_scalar(x_111)) {
|
|
x_113 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_113 = x_111;
|
|
}
|
|
lean::cnstr_set(x_113, 0, x_108);
|
|
lean::cnstr_set_scalar(x_113, sizeof(void*)*1, x_110);
|
|
x_114 = x_113;
|
|
x_78 = x_114;
|
|
x_79 = x_108;
|
|
x_80 = x_110;
|
|
goto lbl_81;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_120;
|
|
lean::dec(x_38);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_120 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_37);
|
|
return x_120;
|
|
}
|
|
lbl_81:
|
|
{
|
|
obj* x_121; obj* x_122; unsigned char x_123;
|
|
if (x_80 == 0)
|
|
{
|
|
obj* x_126; obj* x_127; obj* x_131;
|
|
lean::dec(x_78);
|
|
x_126 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3;
|
|
x_127 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__3;
|
|
lean::inc(x_2);
|
|
lean::inc(x_127);
|
|
lean::inc(x_126);
|
|
x_131 = _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(x_126, x_127, x_2);
|
|
if (lean::obj_tag(x_131) == 0)
|
|
{
|
|
obj* x_132; obj* x_134; obj* x_137; obj* x_138; obj* x_139;
|
|
x_132 = lean::cnstr_get(x_131, 1);
|
|
lean::inc(x_132);
|
|
x_134 = lean::cnstr_get(x_131, 2);
|
|
lean::inc(x_134);
|
|
lean::dec(x_131);
|
|
x_137 = lean::mk_nat_obj(95u);
|
|
x_138 = lean::mk_nat_obj(55296u);
|
|
x_139 = lean::nat_dec_lt(x_137, x_138);
|
|
lean::dec(x_138);
|
|
if (lean::obj_tag(x_139) == 0)
|
|
{
|
|
obj* x_142; obj* x_143;
|
|
lean::dec(x_139);
|
|
x_142 = lean::mk_nat_obj(57343u);
|
|
x_143 = lean::nat_dec_lt(x_142, x_137);
|
|
lean::dec(x_142);
|
|
if (lean::obj_tag(x_143) == 0)
|
|
{
|
|
unsigned x_147; obj* x_149; obj* x_151; obj* x_152;
|
|
lean::dec(x_143);
|
|
lean::dec(x_137);
|
|
x_147 = lean::unbox_uint32(x_3);
|
|
lean::inc(x_1);
|
|
x_149 = lean::string_push(x_1, x_147);
|
|
lean::inc(x_7);
|
|
x_151 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_149, x_132);
|
|
x_152 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_134, x_151);
|
|
if (lean::obj_tag(x_152) == 0)
|
|
{
|
|
obj* x_157; obj* x_158; obj* x_159;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_157 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_152);
|
|
x_158 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_157);
|
|
x_159 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_158);
|
|
return x_159;
|
|
}
|
|
else
|
|
{
|
|
obj* x_160; unsigned char x_162;
|
|
x_160 = lean::cnstr_get(x_152, 0);
|
|
lean::inc(x_160);
|
|
x_162 = lean::cnstr_get_scalar<unsigned char>(x_152, sizeof(void*)*1);
|
|
x_121 = x_152;
|
|
x_122 = x_160;
|
|
x_123 = x_162;
|
|
goto lbl_124;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_164; obj* x_165;
|
|
lean::dec(x_143);
|
|
x_164 = lean::mk_nat_obj(1114112u);
|
|
x_165 = lean::nat_dec_lt(x_137, x_164);
|
|
lean::dec(x_164);
|
|
if (lean::obj_tag(x_165) == 0)
|
|
{
|
|
unsigned x_169; obj* x_171; obj* x_173; obj* x_174;
|
|
lean::dec(x_137);
|
|
lean::dec(x_165);
|
|
x_169 = lean::unbox_uint32(x_3);
|
|
lean::inc(x_1);
|
|
x_171 = lean::string_push(x_1, x_169);
|
|
lean::inc(x_7);
|
|
x_173 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_171, x_132);
|
|
x_174 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_134, x_173);
|
|
if (lean::obj_tag(x_174) == 0)
|
|
{
|
|
obj* x_179; obj* x_180; obj* x_181;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_179 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_174);
|
|
x_180 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_179);
|
|
x_181 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_180);
|
|
return x_181;
|
|
}
|
|
else
|
|
{
|
|
obj* x_182; unsigned char x_184;
|
|
x_182 = lean::cnstr_get(x_174, 0);
|
|
lean::inc(x_182);
|
|
x_184 = lean::cnstr_get_scalar<unsigned char>(x_174, sizeof(void*)*1);
|
|
x_121 = x_174;
|
|
x_122 = x_182;
|
|
x_123 = x_184;
|
|
goto lbl_124;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_186; obj* x_189; obj* x_191; obj* x_192;
|
|
lean::dec(x_165);
|
|
x_186 = lean::unbox_uint32(x_137);
|
|
lean::dec(x_137);
|
|
lean::inc(x_1);
|
|
x_189 = lean::string_push(x_1, x_186);
|
|
lean::inc(x_7);
|
|
x_191 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_189, x_132);
|
|
x_192 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_134, x_191);
|
|
if (lean::obj_tag(x_192) == 0)
|
|
{
|
|
obj* x_197; obj* x_198; obj* x_199;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_197 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_192);
|
|
x_198 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_197);
|
|
x_199 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_198);
|
|
return x_199;
|
|
}
|
|
else
|
|
{
|
|
obj* x_200; unsigned char x_202;
|
|
x_200 = lean::cnstr_get(x_192, 0);
|
|
lean::inc(x_200);
|
|
x_202 = lean::cnstr_get_scalar<unsigned char>(x_192, sizeof(void*)*1);
|
|
x_121 = x_192;
|
|
x_122 = x_200;
|
|
x_123 = x_202;
|
|
goto lbl_124;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_204; obj* x_207; obj* x_209; obj* x_210;
|
|
lean::dec(x_139);
|
|
x_204 = lean::unbox_uint32(x_137);
|
|
lean::dec(x_137);
|
|
lean::inc(x_1);
|
|
x_207 = lean::string_push(x_1, x_204);
|
|
lean::inc(x_7);
|
|
x_209 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_207, x_132);
|
|
x_210 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_134, x_209);
|
|
if (lean::obj_tag(x_210) == 0)
|
|
{
|
|
obj* x_215; obj* x_216; obj* x_217;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_215 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_210);
|
|
x_216 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_215);
|
|
x_217 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_216);
|
|
return x_217;
|
|
}
|
|
else
|
|
{
|
|
obj* x_218; unsigned char x_220;
|
|
x_218 = lean::cnstr_get(x_210, 0);
|
|
lean::inc(x_218);
|
|
x_220 = lean::cnstr_get_scalar<unsigned char>(x_210, sizeof(void*)*1);
|
|
x_121 = x_210;
|
|
x_122 = x_218;
|
|
x_123 = x_220;
|
|
goto lbl_124;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_221; unsigned char x_223; obj* x_224; obj* x_226; obj* x_227;
|
|
x_221 = lean::cnstr_get(x_131, 0);
|
|
lean::inc(x_221);
|
|
x_223 = lean::cnstr_get_scalar<unsigned char>(x_131, sizeof(void*)*1);
|
|
if (lean::is_shared(x_131)) {
|
|
lean::dec(x_131);
|
|
x_224 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_131, 0);
|
|
x_224 = x_131;
|
|
}
|
|
lean::inc(x_221);
|
|
if (lean::is_scalar(x_224)) {
|
|
x_226 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_226 = x_224;
|
|
}
|
|
lean::cnstr_set(x_226, 0, x_221);
|
|
lean::cnstr_set_scalar(x_226, sizeof(void*)*1, x_223);
|
|
x_227 = x_226;
|
|
x_121 = x_227;
|
|
x_122 = x_221;
|
|
x_123 = x_223;
|
|
goto lbl_124;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_233; obj* x_234;
|
|
lean::dec(x_79);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_233 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_78);
|
|
x_234 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_233);
|
|
return x_234;
|
|
}
|
|
lbl_124:
|
|
{
|
|
obj* x_235; obj* x_236; unsigned char x_237;
|
|
if (x_123 == 0)
|
|
{
|
|
obj* x_240; obj* x_241; obj* x_245;
|
|
lean::dec(x_121);
|
|
x_240 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2;
|
|
x_241 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__2;
|
|
lean::inc(x_2);
|
|
lean::inc(x_241);
|
|
lean::inc(x_240);
|
|
x_245 = _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(x_240, x_241, x_2);
|
|
if (lean::obj_tag(x_245) == 0)
|
|
{
|
|
obj* x_246; obj* x_248; obj* x_251;
|
|
x_246 = lean::cnstr_get(x_245, 1);
|
|
lean::inc(x_246);
|
|
x_248 = lean::cnstr_get(x_245, 2);
|
|
lean::inc(x_248);
|
|
lean::dec(x_245);
|
|
x_251 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_246);
|
|
if (lean::obj_tag(x_251) == 0)
|
|
{
|
|
obj* x_252; obj* x_254; obj* x_256; obj* x_259;
|
|
x_252 = lean::cnstr_get(x_251, 0);
|
|
lean::inc(x_252);
|
|
x_254 = lean::cnstr_get(x_251, 1);
|
|
lean::inc(x_254);
|
|
x_256 = lean::cnstr_get(x_251, 2);
|
|
lean::inc(x_256);
|
|
lean::dec(x_251);
|
|
x_259 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_254);
|
|
if (lean::obj_tag(x_259) == 0)
|
|
{
|
|
obj* x_260; obj* x_262; obj* x_264; obj* x_267; obj* x_268; obj* x_271; obj* x_274; obj* x_275;
|
|
x_260 = lean::cnstr_get(x_259, 0);
|
|
lean::inc(x_260);
|
|
x_262 = lean::cnstr_get(x_259, 1);
|
|
lean::inc(x_262);
|
|
x_264 = lean::cnstr_get(x_259, 2);
|
|
lean::inc(x_264);
|
|
lean::dec(x_259);
|
|
x_267 = lean::mk_nat_obj(16u);
|
|
x_268 = lean::nat_mul(x_252, x_267);
|
|
lean::dec(x_267);
|
|
lean::dec(x_252);
|
|
x_271 = lean::nat_add(x_268, x_260);
|
|
lean::dec(x_260);
|
|
lean::dec(x_268);
|
|
x_274 = lean::mk_nat_obj(55296u);
|
|
x_275 = lean::nat_dec_lt(x_271, x_274);
|
|
lean::dec(x_274);
|
|
if (lean::obj_tag(x_275) == 0)
|
|
{
|
|
obj* x_278; obj* x_279;
|
|
lean::dec(x_275);
|
|
x_278 = lean::mk_nat_obj(57343u);
|
|
x_279 = lean::nat_dec_lt(x_278, x_271);
|
|
lean::dec(x_278);
|
|
if (lean::obj_tag(x_279) == 0)
|
|
{
|
|
unsigned x_283; obj* x_285; obj* x_287; obj* x_288; obj* x_289; obj* x_290;
|
|
lean::dec(x_279);
|
|
lean::dec(x_271);
|
|
x_283 = lean::unbox_uint32(x_3);
|
|
lean::inc(x_1);
|
|
x_285 = lean::string_push(x_1, x_283);
|
|
lean::inc(x_7);
|
|
x_287 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_285, x_262);
|
|
x_288 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_264, x_287);
|
|
x_289 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_256, x_288);
|
|
x_290 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_289);
|
|
if (lean::obj_tag(x_290) == 0)
|
|
{
|
|
obj* x_295; obj* x_296; obj* x_297; obj* x_298;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_295 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_290);
|
|
x_296 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_295);
|
|
x_297 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_296);
|
|
x_298 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_297);
|
|
return x_298;
|
|
}
|
|
else
|
|
{
|
|
obj* x_299; unsigned char x_301;
|
|
x_299 = lean::cnstr_get(x_290, 0);
|
|
lean::inc(x_299);
|
|
x_301 = lean::cnstr_get_scalar<unsigned char>(x_290, sizeof(void*)*1);
|
|
x_235 = x_290;
|
|
x_236 = x_299;
|
|
x_237 = x_301;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_303; obj* x_304;
|
|
lean::dec(x_279);
|
|
x_303 = lean::mk_nat_obj(1114112u);
|
|
x_304 = lean::nat_dec_lt(x_271, x_303);
|
|
lean::dec(x_303);
|
|
if (lean::obj_tag(x_304) == 0)
|
|
{
|
|
unsigned x_308; obj* x_310; obj* x_312; obj* x_313; obj* x_314; obj* x_315;
|
|
lean::dec(x_271);
|
|
lean::dec(x_304);
|
|
x_308 = lean::unbox_uint32(x_3);
|
|
lean::inc(x_1);
|
|
x_310 = lean::string_push(x_1, x_308);
|
|
lean::inc(x_7);
|
|
x_312 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_310, x_262);
|
|
x_313 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_264, x_312);
|
|
x_314 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_256, x_313);
|
|
x_315 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_314);
|
|
if (lean::obj_tag(x_315) == 0)
|
|
{
|
|
obj* x_320; obj* x_321; obj* x_322; obj* x_323;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_320 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_315);
|
|
x_321 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_320);
|
|
x_322 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_321);
|
|
x_323 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_322);
|
|
return x_323;
|
|
}
|
|
else
|
|
{
|
|
obj* x_324; unsigned char x_326;
|
|
x_324 = lean::cnstr_get(x_315, 0);
|
|
lean::inc(x_324);
|
|
x_326 = lean::cnstr_get_scalar<unsigned char>(x_315, sizeof(void*)*1);
|
|
x_235 = x_315;
|
|
x_236 = x_324;
|
|
x_237 = x_326;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_328; obj* x_331; obj* x_333; obj* x_334; obj* x_335; obj* x_336;
|
|
lean::dec(x_304);
|
|
x_328 = lean::unbox_uint32(x_271);
|
|
lean::dec(x_271);
|
|
lean::inc(x_1);
|
|
x_331 = lean::string_push(x_1, x_328);
|
|
lean::inc(x_7);
|
|
x_333 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_331, x_262);
|
|
x_334 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_264, x_333);
|
|
x_335 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_256, x_334);
|
|
x_336 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_335);
|
|
if (lean::obj_tag(x_336) == 0)
|
|
{
|
|
obj* x_341; obj* x_342; obj* x_343; obj* x_344;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_341 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_336);
|
|
x_342 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_341);
|
|
x_343 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_342);
|
|
x_344 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_343);
|
|
return x_344;
|
|
}
|
|
else
|
|
{
|
|
obj* x_345; unsigned char x_347;
|
|
x_345 = lean::cnstr_get(x_336, 0);
|
|
lean::inc(x_345);
|
|
x_347 = lean::cnstr_get_scalar<unsigned char>(x_336, sizeof(void*)*1);
|
|
x_235 = x_336;
|
|
x_236 = x_345;
|
|
x_237 = x_347;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_349; obj* x_352; obj* x_354; obj* x_355; obj* x_356; obj* x_357;
|
|
lean::dec(x_275);
|
|
x_349 = lean::unbox_uint32(x_271);
|
|
lean::dec(x_271);
|
|
lean::inc(x_1);
|
|
x_352 = lean::string_push(x_1, x_349);
|
|
lean::inc(x_7);
|
|
x_354 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_352, x_262);
|
|
x_355 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_264, x_354);
|
|
x_356 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_256, x_355);
|
|
x_357 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_356);
|
|
if (lean::obj_tag(x_357) == 0)
|
|
{
|
|
obj* x_362; obj* x_363; obj* x_364; obj* x_365;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_362 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_357);
|
|
x_363 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_362);
|
|
x_364 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_363);
|
|
x_365 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_364);
|
|
return x_365;
|
|
}
|
|
else
|
|
{
|
|
obj* x_366; unsigned char x_368;
|
|
x_366 = lean::cnstr_get(x_357, 0);
|
|
lean::inc(x_366);
|
|
x_368 = lean::cnstr_get_scalar<unsigned char>(x_357, sizeof(void*)*1);
|
|
x_235 = x_357;
|
|
x_236 = x_366;
|
|
x_237 = x_368;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_370; unsigned char x_372; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377;
|
|
lean::dec(x_252);
|
|
x_370 = lean::cnstr_get(x_259, 0);
|
|
lean::inc(x_370);
|
|
x_372 = lean::cnstr_get_scalar<unsigned char>(x_259, sizeof(void*)*1);
|
|
if (lean::is_shared(x_259)) {
|
|
lean::dec(x_259);
|
|
x_373 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_259, 0);
|
|
x_373 = x_259;
|
|
}
|
|
if (lean::is_scalar(x_373)) {
|
|
x_374 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_374 = x_373;
|
|
}
|
|
lean::cnstr_set(x_374, 0, x_370);
|
|
lean::cnstr_set_scalar(x_374, sizeof(void*)*1, x_372);
|
|
x_375 = x_374;
|
|
x_376 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_256, x_375);
|
|
x_377 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_376);
|
|
if (lean::obj_tag(x_377) == 0)
|
|
{
|
|
obj* x_382; obj* x_383; obj* x_384; obj* x_385;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_382 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_377);
|
|
x_383 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_382);
|
|
x_384 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_383);
|
|
x_385 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_384);
|
|
return x_385;
|
|
}
|
|
else
|
|
{
|
|
obj* x_386; unsigned char x_388;
|
|
x_386 = lean::cnstr_get(x_377, 0);
|
|
lean::inc(x_386);
|
|
x_388 = lean::cnstr_get_scalar<unsigned char>(x_377, sizeof(void*)*1);
|
|
x_235 = x_377;
|
|
x_236 = x_386;
|
|
x_237 = x_388;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_389; unsigned char x_391; obj* x_392; obj* x_393; obj* x_394; obj* x_395;
|
|
x_389 = lean::cnstr_get(x_251, 0);
|
|
lean::inc(x_389);
|
|
x_391 = lean::cnstr_get_scalar<unsigned char>(x_251, sizeof(void*)*1);
|
|
if (lean::is_shared(x_251)) {
|
|
lean::dec(x_251);
|
|
x_392 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_251, 0);
|
|
x_392 = x_251;
|
|
}
|
|
if (lean::is_scalar(x_392)) {
|
|
x_393 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_393 = x_392;
|
|
}
|
|
lean::cnstr_set(x_393, 0, x_389);
|
|
lean::cnstr_set_scalar(x_393, sizeof(void*)*1, x_391);
|
|
x_394 = x_393;
|
|
x_395 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_248, x_394);
|
|
if (lean::obj_tag(x_395) == 0)
|
|
{
|
|
obj* x_400; obj* x_401; obj* x_402; obj* x_403;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_400 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_395);
|
|
x_401 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_400);
|
|
x_402 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_401);
|
|
x_403 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_402);
|
|
return x_403;
|
|
}
|
|
else
|
|
{
|
|
obj* x_404; unsigned char x_406;
|
|
x_404 = lean::cnstr_get(x_395, 0);
|
|
lean::inc(x_404);
|
|
x_406 = lean::cnstr_get_scalar<unsigned char>(x_395, sizeof(void*)*1);
|
|
x_235 = x_395;
|
|
x_236 = x_404;
|
|
x_237 = x_406;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_407; unsigned char x_409; obj* x_410; obj* x_412; obj* x_413;
|
|
x_407 = lean::cnstr_get(x_245, 0);
|
|
lean::inc(x_407);
|
|
x_409 = lean::cnstr_get_scalar<unsigned char>(x_245, sizeof(void*)*1);
|
|
if (lean::is_shared(x_245)) {
|
|
lean::dec(x_245);
|
|
x_410 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_245, 0);
|
|
x_410 = x_245;
|
|
}
|
|
lean::inc(x_407);
|
|
if (lean::is_scalar(x_410)) {
|
|
x_412 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_412 = x_410;
|
|
}
|
|
lean::cnstr_set(x_412, 0, x_407);
|
|
lean::cnstr_set_scalar(x_412, sizeof(void*)*1, x_409);
|
|
x_413 = x_412;
|
|
x_235 = x_413;
|
|
x_236 = x_407;
|
|
x_237 = x_409;
|
|
goto lbl_238;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_419; obj* x_420; obj* x_421;
|
|
lean::dec(x_122);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_419 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_121);
|
|
x_420 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_419);
|
|
x_421 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_420);
|
|
return x_421;
|
|
}
|
|
lbl_238:
|
|
{
|
|
|
|
if (x_237 == 0)
|
|
{
|
|
obj* x_423; obj* x_424; obj* x_427;
|
|
lean::dec(x_235);
|
|
x_423 = _l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1;
|
|
x_424 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__1;
|
|
lean::inc(x_424);
|
|
lean::inc(x_423);
|
|
x_427 = _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(x_423, x_424, x_2);
|
|
if (lean::obj_tag(x_427) == 0)
|
|
{
|
|
obj* x_428; obj* x_430; obj* x_433;
|
|
x_428 = lean::cnstr_get(x_427, 1);
|
|
lean::inc(x_428);
|
|
x_430 = lean::cnstr_get(x_427, 2);
|
|
lean::inc(x_430);
|
|
lean::dec(x_427);
|
|
x_433 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_428);
|
|
if (lean::obj_tag(x_433) == 0)
|
|
{
|
|
obj* x_434; obj* x_436; obj* x_438; obj* x_441;
|
|
x_434 = lean::cnstr_get(x_433, 0);
|
|
lean::inc(x_434);
|
|
x_436 = lean::cnstr_get(x_433, 1);
|
|
lean::inc(x_436);
|
|
x_438 = lean::cnstr_get(x_433, 2);
|
|
lean::inc(x_438);
|
|
lean::dec(x_433);
|
|
x_441 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_436);
|
|
if (lean::obj_tag(x_441) == 0)
|
|
{
|
|
obj* x_442; obj* x_444; obj* x_446; obj* x_449;
|
|
x_442 = lean::cnstr_get(x_441, 0);
|
|
lean::inc(x_442);
|
|
x_444 = lean::cnstr_get(x_441, 1);
|
|
lean::inc(x_444);
|
|
x_446 = lean::cnstr_get(x_441, 2);
|
|
lean::inc(x_446);
|
|
lean::dec(x_441);
|
|
x_449 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_444);
|
|
if (lean::obj_tag(x_449) == 0)
|
|
{
|
|
obj* x_450; obj* x_452; obj* x_454; obj* x_457;
|
|
x_450 = lean::cnstr_get(x_449, 0);
|
|
lean::inc(x_450);
|
|
x_452 = lean::cnstr_get(x_449, 1);
|
|
lean::inc(x_452);
|
|
x_454 = lean::cnstr_get(x_449, 2);
|
|
lean::inc(x_454);
|
|
lean::dec(x_449);
|
|
x_457 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(x_452);
|
|
if (lean::obj_tag(x_457) == 0)
|
|
{
|
|
obj* x_458; obj* x_460; obj* x_462; obj* x_465; obj* x_466; obj* x_469; obj* x_470; obj* x_473; obj* x_476; obj* x_477; obj* x_480; obj* x_483; obj* x_486; obj* x_487;
|
|
x_458 = lean::cnstr_get(x_457, 0);
|
|
lean::inc(x_458);
|
|
x_460 = lean::cnstr_get(x_457, 1);
|
|
lean::inc(x_460);
|
|
x_462 = lean::cnstr_get(x_457, 2);
|
|
lean::inc(x_462);
|
|
lean::dec(x_457);
|
|
x_465 = lean::mk_nat_obj(4096u);
|
|
x_466 = lean::nat_mul(x_434, x_465);
|
|
lean::dec(x_465);
|
|
lean::dec(x_434);
|
|
x_469 = lean::mk_nat_obj(256u);
|
|
x_470 = lean::nat_mul(x_442, x_469);
|
|
lean::dec(x_469);
|
|
lean::dec(x_442);
|
|
x_473 = lean::nat_add(x_466, x_470);
|
|
lean::dec(x_470);
|
|
lean::dec(x_466);
|
|
x_476 = lean::mk_nat_obj(16u);
|
|
x_477 = lean::nat_mul(x_450, x_476);
|
|
lean::dec(x_476);
|
|
lean::dec(x_450);
|
|
x_480 = lean::nat_add(x_473, x_477);
|
|
lean::dec(x_477);
|
|
lean::dec(x_473);
|
|
x_483 = lean::nat_add(x_480, x_458);
|
|
lean::dec(x_458);
|
|
lean::dec(x_480);
|
|
x_486 = lean::mk_nat_obj(55296u);
|
|
x_487 = lean::nat_dec_lt(x_483, x_486);
|
|
lean::dec(x_486);
|
|
if (lean::obj_tag(x_487) == 0)
|
|
{
|
|
obj* x_490; obj* x_491;
|
|
lean::dec(x_487);
|
|
x_490 = lean::mk_nat_obj(57343u);
|
|
x_491 = lean::nat_dec_lt(x_490, x_483);
|
|
lean::dec(x_490);
|
|
if (lean::obj_tag(x_491) == 0)
|
|
{
|
|
unsigned x_495; obj* x_497; obj* x_498; obj* x_499; obj* x_500; obj* x_501; obj* x_502; obj* x_503; obj* x_504; obj* x_505; obj* x_506; obj* x_507; obj* x_508;
|
|
lean::dec(x_483);
|
|
lean::dec(x_491);
|
|
x_495 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_497 = lean::string_push(x_1, x_495);
|
|
x_498 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_497, x_460);
|
|
x_499 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_462, x_498);
|
|
x_500 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_454, x_499);
|
|
x_501 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_500);
|
|
x_502 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_501);
|
|
x_503 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_502);
|
|
x_504 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_503);
|
|
x_505 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_504);
|
|
x_506 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_505);
|
|
x_507 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_506);
|
|
x_508 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_507);
|
|
return x_508;
|
|
}
|
|
else
|
|
{
|
|
obj* x_510; obj* x_511;
|
|
lean::dec(x_491);
|
|
x_510 = lean::mk_nat_obj(1114112u);
|
|
x_511 = lean::nat_dec_lt(x_483, x_510);
|
|
lean::dec(x_510);
|
|
if (lean::obj_tag(x_511) == 0)
|
|
{
|
|
unsigned x_515; obj* x_517; obj* x_518; obj* x_519; obj* x_520; obj* x_521; obj* x_522; obj* x_523; obj* x_524; obj* x_525; obj* x_526; obj* x_527; obj* x_528;
|
|
lean::dec(x_483);
|
|
lean::dec(x_511);
|
|
x_515 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_517 = lean::string_push(x_1, x_515);
|
|
x_518 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_517, x_460);
|
|
x_519 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_462, x_518);
|
|
x_520 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_454, x_519);
|
|
x_521 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_520);
|
|
x_522 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_521);
|
|
x_523 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_522);
|
|
x_524 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_523);
|
|
x_525 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_524);
|
|
x_526 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_525);
|
|
x_527 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_526);
|
|
x_528 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_527);
|
|
return x_528;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_531; obj* x_533; obj* x_534; obj* x_535; obj* x_536; obj* x_537; obj* x_538; obj* x_539; obj* x_540; obj* x_541; obj* x_542; obj* x_543; obj* x_544;
|
|
lean::dec(x_511);
|
|
lean::dec(x_3);
|
|
x_531 = lean::unbox_uint32(x_483);
|
|
lean::dec(x_483);
|
|
x_533 = lean::string_push(x_1, x_531);
|
|
x_534 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_533, x_460);
|
|
x_535 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_462, x_534);
|
|
x_536 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_454, x_535);
|
|
x_537 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_536);
|
|
x_538 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_537);
|
|
x_539 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_538);
|
|
x_540 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_539);
|
|
x_541 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_540);
|
|
x_542 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_541);
|
|
x_543 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_542);
|
|
x_544 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_543);
|
|
return x_544;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_547; obj* x_549; obj* x_550; obj* x_551; obj* x_552; obj* x_553; obj* x_554; obj* x_555; obj* x_556; obj* x_557; obj* x_558; obj* x_559; obj* x_560;
|
|
lean::dec(x_487);
|
|
lean::dec(x_3);
|
|
x_547 = lean::unbox_uint32(x_483);
|
|
lean::dec(x_483);
|
|
x_549 = lean::string_push(x_1, x_547);
|
|
x_550 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_7, x_549, x_460);
|
|
x_551 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_462, x_550);
|
|
x_552 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_454, x_551);
|
|
x_553 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_552);
|
|
x_554 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_553);
|
|
x_555 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_554);
|
|
x_556 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_555);
|
|
x_557 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_556);
|
|
x_558 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_557);
|
|
x_559 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_558);
|
|
x_560 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_559);
|
|
return x_560;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_567; unsigned char x_569; obj* x_570; obj* x_571; obj* x_572; obj* x_573; obj* x_574; obj* x_575; obj* x_576; obj* x_577; obj* x_578; obj* x_579; obj* x_580; obj* x_581;
|
|
lean::dec(x_434);
|
|
lean::dec(x_442);
|
|
lean::dec(x_450);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
x_567 = lean::cnstr_get(x_457, 0);
|
|
lean::inc(x_567);
|
|
x_569 = lean::cnstr_get_scalar<unsigned char>(x_457, sizeof(void*)*1);
|
|
if (lean::is_shared(x_457)) {
|
|
lean::dec(x_457);
|
|
x_570 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_457, 0);
|
|
x_570 = x_457;
|
|
}
|
|
if (lean::is_scalar(x_570)) {
|
|
x_571 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_571 = x_570;
|
|
}
|
|
lean::cnstr_set(x_571, 0, x_567);
|
|
lean::cnstr_set_scalar(x_571, sizeof(void*)*1, x_569);
|
|
x_572 = x_571;
|
|
x_573 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_454, x_572);
|
|
x_574 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_573);
|
|
x_575 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_574);
|
|
x_576 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_575);
|
|
x_577 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_576);
|
|
x_578 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_577);
|
|
x_579 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_578);
|
|
x_580 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_579);
|
|
x_581 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_580);
|
|
return x_581;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_587; unsigned char x_589; obj* x_590; obj* x_591; obj* x_592; obj* x_593; obj* x_594; obj* x_595; obj* x_596; obj* x_597; obj* x_598; obj* x_599; obj* x_600;
|
|
lean::dec(x_434);
|
|
lean::dec(x_442);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
x_587 = lean::cnstr_get(x_449, 0);
|
|
lean::inc(x_587);
|
|
x_589 = lean::cnstr_get_scalar<unsigned char>(x_449, sizeof(void*)*1);
|
|
if (lean::is_shared(x_449)) {
|
|
lean::dec(x_449);
|
|
x_590 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_449, 0);
|
|
x_590 = x_449;
|
|
}
|
|
if (lean::is_scalar(x_590)) {
|
|
x_591 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_591 = x_590;
|
|
}
|
|
lean::cnstr_set(x_591, 0, x_587);
|
|
lean::cnstr_set_scalar(x_591, sizeof(void*)*1, x_589);
|
|
x_592 = x_591;
|
|
x_593 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_446, x_592);
|
|
x_594 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_593);
|
|
x_595 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_594);
|
|
x_596 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_595);
|
|
x_597 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_596);
|
|
x_598 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_597);
|
|
x_599 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_598);
|
|
x_600 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_599);
|
|
return x_600;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_605; unsigned char x_607; obj* x_608; obj* x_609; obj* x_610; obj* x_611; obj* x_612; obj* x_613; obj* x_614; obj* x_615; obj* x_616; obj* x_617;
|
|
lean::dec(x_434);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
x_605 = lean::cnstr_get(x_441, 0);
|
|
lean::inc(x_605);
|
|
x_607 = lean::cnstr_get_scalar<unsigned char>(x_441, sizeof(void*)*1);
|
|
if (lean::is_shared(x_441)) {
|
|
lean::dec(x_441);
|
|
x_608 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_441, 0);
|
|
x_608 = x_441;
|
|
}
|
|
if (lean::is_scalar(x_608)) {
|
|
x_609 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_609 = x_608;
|
|
}
|
|
lean::cnstr_set(x_609, 0, x_605);
|
|
lean::cnstr_set_scalar(x_609, sizeof(void*)*1, x_607);
|
|
x_610 = x_609;
|
|
x_611 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_438, x_610);
|
|
x_612 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_611);
|
|
x_613 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_612);
|
|
x_614 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_613);
|
|
x_615 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_614);
|
|
x_616 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_615);
|
|
x_617 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_616);
|
|
return x_617;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_621; unsigned char x_623; obj* x_624; obj* x_625; obj* x_626; obj* x_627; obj* x_628; obj* x_629; obj* x_630; obj* x_631; obj* x_632;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
x_621 = lean::cnstr_get(x_433, 0);
|
|
lean::inc(x_621);
|
|
x_623 = lean::cnstr_get_scalar<unsigned char>(x_433, sizeof(void*)*1);
|
|
if (lean::is_shared(x_433)) {
|
|
lean::dec(x_433);
|
|
x_624 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_433, 0);
|
|
x_624 = x_433;
|
|
}
|
|
if (lean::is_scalar(x_624)) {
|
|
x_625 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_625 = x_624;
|
|
}
|
|
lean::cnstr_set(x_625, 0, x_621);
|
|
lean::cnstr_set_scalar(x_625, sizeof(void*)*1, x_623);
|
|
x_626 = x_625;
|
|
x_627 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_430, x_626);
|
|
x_628 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_627);
|
|
x_629 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_628);
|
|
x_630 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_629);
|
|
x_631 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_630);
|
|
x_632 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_631);
|
|
return x_632;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_636; unsigned char x_638; obj* x_639; obj* x_640; obj* x_641; obj* x_642; obj* x_643; obj* x_644; obj* x_645; obj* x_646;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_3);
|
|
x_636 = lean::cnstr_get(x_427, 0);
|
|
lean::inc(x_636);
|
|
x_638 = lean::cnstr_get_scalar<unsigned char>(x_427, sizeof(void*)*1);
|
|
if (lean::is_shared(x_427)) {
|
|
lean::dec(x_427);
|
|
x_639 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_427, 0);
|
|
x_639 = x_427;
|
|
}
|
|
if (lean::is_scalar(x_639)) {
|
|
x_640 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_640 = x_639;
|
|
}
|
|
lean::cnstr_set(x_640, 0, x_636);
|
|
lean::cnstr_set_scalar(x_640, sizeof(void*)*1, x_638);
|
|
x_641 = x_640;
|
|
x_642 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_236, x_641);
|
|
x_643 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_642);
|
|
x_644 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_643);
|
|
x_645 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_644);
|
|
x_646 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_645);
|
|
return x_646;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_652; obj* x_653; obj* x_654; obj* x_655;
|
|
lean::dec(x_236);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
x_652 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_122, x_235);
|
|
x_653 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_79, x_652);
|
|
x_654 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_38, x_653);
|
|
x_655 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_34, x_654);
|
|
return x_655;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_659; obj* x_661;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
lean::dec(x_3);
|
|
x_659 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_659);
|
|
x_661 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_661, 0, x_1);
|
|
lean::cnstr_set(x_661, 1, x_2);
|
|
lean::cnstr_set(x_661, 2, x_659);
|
|
return x_661;
|
|
}
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__1() {
|
|
{
|
|
obj* x_0; obj* x_1; obj* x_2;
|
|
x_0 = lean::mk_string("_u");
|
|
x_1 = _l_s6_string_s5_quote(x_0);
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_2, 0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__2() {
|
|
{
|
|
obj* x_0; obj* x_1; obj* x_2;
|
|
x_0 = lean::mk_string("_x");
|
|
x_1 = _l_s6_string_s5_quote(x_0);
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_2, 0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__3() {
|
|
{
|
|
obj* x_0; obj* x_1; obj* x_2;
|
|
x_0 = lean::mk_string("__");
|
|
x_1 = _l_s6_string_s5_quote(x_0);
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_2, 0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
unsigned char x_4;
|
|
lean::inc(x_0);
|
|
x_4 = _l_s6_string_s9_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_s9___private_580269747__s8_str__aux_s6___main(x_5, x_7, x_2);
|
|
if (lean::obj_tag(x_9) == 0)
|
|
{
|
|
obj* x_12; obj* x_13; obj* x_15; unsigned char x_16; obj* x_17; obj* x_18;
|
|
lean::dec(x_9);
|
|
lean::dec(x_0);
|
|
x_12 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_13 = _l_s6_string_s4_join_s11___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::alloc_cnstr(0, 0, 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_0);
|
|
lean::dec(x_1);
|
|
x_28 = _l_s6_string_s4_join_s11___closed__1;
|
|
x_29 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___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_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
|
|
{
|
|
obj* x_5; obj* x_6; unsigned char x_7; obj* x_8; obj* x_9;
|
|
x_5 = _l_s6_option_s13_get__or__else_s6___main_s6___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_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3(obj* x_0) {
|
|
{
|
|
obj* x_2;
|
|
lean::dec(x_0);
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg), 5, 0);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__4(obj* x_0) {
|
|
{
|
|
unsigned char 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;
|
|
x_2 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_4 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_2);
|
|
lean::inc(x_4);
|
|
lean::inc(x_3);
|
|
x_8 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_3, x_4, x_2, x_2, x_0);
|
|
if (lean::obj_tag(x_8) == 0)
|
|
{
|
|
obj* x_9; obj* x_11; obj* x_13;
|
|
x_9 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_9);
|
|
x_11 = lean::cnstr_get(x_8, 1);
|
|
lean::inc(x_11);
|
|
x_13 = lean::cnstr_get(x_8, 2);
|
|
lean::inc(x_13);
|
|
if (lean::obj_tag(x_13) == 0)
|
|
{
|
|
|
|
lean::dec(x_13);
|
|
lean::dec(x_4);
|
|
lean::dec(x_9);
|
|
lean::dec(x_11);
|
|
return x_8;
|
|
}
|
|
else
|
|
{
|
|
obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_26;
|
|
lean::dec(x_8);
|
|
x_20 = lean::cnstr_get(x_13, 0);
|
|
lean::inc(x_20);
|
|
if (lean::is_shared(x_13)) {
|
|
lean::dec(x_13);
|
|
x_22 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_13, 0);
|
|
x_22 = x_13;
|
|
}
|
|
lean::inc(x_4);
|
|
x_24 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_24, 0, x_4);
|
|
lean::closure_set(x_24, 1, x_20);
|
|
if (lean::is_scalar(x_22)) {
|
|
x_25 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_25 = x_22;
|
|
}
|
|
lean::cnstr_set(x_25, 0, x_24);
|
|
x_26 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_26, 0, x_9);
|
|
lean::cnstr_set(x_26, 1, x_11);
|
|
lean::cnstr_set(x_26, 2, x_25);
|
|
return x_26;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_27; unsigned char x_29;
|
|
x_27 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_27);
|
|
x_29 = lean::cnstr_get_scalar<unsigned char>(x_8, sizeof(void*)*1);
|
|
if (x_29 == 0)
|
|
{
|
|
obj* x_31; obj* x_33; obj* x_35; obj* x_38; obj* x_39; obj* x_42; obj* x_43; obj* x_44;
|
|
lean::dec(x_8);
|
|
x_31 = lean::cnstr_get(x_27, 0);
|
|
lean::inc(x_31);
|
|
x_33 = lean::cnstr_get(x_27, 1);
|
|
lean::inc(x_33);
|
|
x_35 = lean::cnstr_get(x_27, 2);
|
|
lean::inc(x_35);
|
|
lean::inc(x_4);
|
|
x_38 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_38, 0, x_4);
|
|
lean::closure_set(x_38, 1, x_35);
|
|
x_39 = lean::cnstr_get(x_27, 3);
|
|
lean::inc(x_39);
|
|
lean::dec(x_27);
|
|
x_42 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_42, 0, x_31);
|
|
lean::cnstr_set(x_42, 1, x_33);
|
|
lean::cnstr_set(x_42, 2, x_38);
|
|
lean::cnstr_set(x_42, 3, x_39);
|
|
x_43 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_43, 0, x_42);
|
|
lean::cnstr_set_scalar(x_43, sizeof(void*)*1, x_29);
|
|
x_44 = x_43;
|
|
return x_44;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_4);
|
|
lean::dec(x_27);
|
|
return x_8;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_47; unsigned char x_48;
|
|
x_47 = lean::string_iterator_curr(x_0);
|
|
x_48 = _l_s4_char_s9_is__digit(x_47);
|
|
if (x_48 == 0)
|
|
{
|
|
obj* x_49; obj* x_50; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_59;
|
|
x_49 = _l_s4_char_s11_quote__core(x_47);
|
|
x_50 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_50);
|
|
x_52 = lean::string_append(x_50, x_49);
|
|
lean::dec(x_49);
|
|
x_54 = lean::string_append(x_52, x_50);
|
|
x_55 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_56 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_55);
|
|
lean::inc(x_56);
|
|
x_59 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_54, x_56, x_55, x_55, x_0);
|
|
if (lean::obj_tag(x_59) == 0)
|
|
{
|
|
obj* x_60; obj* x_62; obj* x_64;
|
|
x_60 = lean::cnstr_get(x_59, 0);
|
|
lean::inc(x_60);
|
|
x_62 = lean::cnstr_get(x_59, 1);
|
|
lean::inc(x_62);
|
|
x_64 = lean::cnstr_get(x_59, 2);
|
|
lean::inc(x_64);
|
|
if (lean::obj_tag(x_64) == 0)
|
|
{
|
|
|
|
lean::dec(x_56);
|
|
lean::dec(x_60);
|
|
lean::dec(x_62);
|
|
lean::dec(x_64);
|
|
return x_59;
|
|
}
|
|
else
|
|
{
|
|
obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77;
|
|
lean::dec(x_59);
|
|
x_71 = lean::cnstr_get(x_64, 0);
|
|
lean::inc(x_71);
|
|
if (lean::is_shared(x_64)) {
|
|
lean::dec(x_64);
|
|
x_73 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_64, 0);
|
|
x_73 = x_64;
|
|
}
|
|
lean::inc(x_56);
|
|
x_75 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_75, 0, x_56);
|
|
lean::closure_set(x_75, 1, x_71);
|
|
if (lean::is_scalar(x_73)) {
|
|
x_76 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_76 = x_73;
|
|
}
|
|
lean::cnstr_set(x_76, 0, x_75);
|
|
x_77 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_77, 0, x_60);
|
|
lean::cnstr_set(x_77, 1, x_62);
|
|
lean::cnstr_set(x_77, 2, x_76);
|
|
return x_77;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_78; unsigned char x_80;
|
|
x_78 = lean::cnstr_get(x_59, 0);
|
|
lean::inc(x_78);
|
|
x_80 = lean::cnstr_get_scalar<unsigned char>(x_59, sizeof(void*)*1);
|
|
if (x_80 == 0)
|
|
{
|
|
obj* x_82; obj* x_84; obj* x_86; obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95;
|
|
lean::dec(x_59);
|
|
x_82 = lean::cnstr_get(x_78, 0);
|
|
lean::inc(x_82);
|
|
x_84 = lean::cnstr_get(x_78, 1);
|
|
lean::inc(x_84);
|
|
x_86 = lean::cnstr_get(x_78, 2);
|
|
lean::inc(x_86);
|
|
lean::inc(x_56);
|
|
x_89 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_89, 0, x_56);
|
|
lean::closure_set(x_89, 1, x_86);
|
|
x_90 = lean::cnstr_get(x_78, 3);
|
|
lean::inc(x_90);
|
|
lean::dec(x_78);
|
|
x_93 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_93, 0, x_82);
|
|
lean::cnstr_set(x_93, 1, x_84);
|
|
lean::cnstr_set(x_93, 2, x_89);
|
|
lean::cnstr_set(x_93, 3, x_90);
|
|
x_94 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_94, 0, x_93);
|
|
lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_80);
|
|
x_95 = x_94;
|
|
return x_95;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_56);
|
|
lean::dec(x_78);
|
|
return x_59;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_98; obj* x_99; obj* x_100; obj* x_101;
|
|
x_98 = lean::string_iterator_next(x_0);
|
|
x_99 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_100 = lean::box_uint32(x_47);
|
|
x_101 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_101, 0, x_100);
|
|
lean::cnstr_set(x_101, 1, x_98);
|
|
lean::cnstr_set(x_101, 2, x_99);
|
|
return x_101;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2(obj* x_0) {
|
|
{
|
|
obj* x_1; obj* x_2; unsigned char x_3; obj* x_6;
|
|
lean::inc(x_0);
|
|
x_6 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__4(x_0);
|
|
if (lean::obj_tag(x_6) == 0)
|
|
{
|
|
obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16;
|
|
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::mk_nat_obj(48u);
|
|
x_15 = lean::mk_nat_obj(55296u);
|
|
x_16 = lean::nat_dec_lt(x_14, x_15);
|
|
lean::dec(x_15);
|
|
if (lean::obj_tag(x_16) == 0)
|
|
{
|
|
obj* x_19; obj* x_20;
|
|
lean::dec(x_16);
|
|
x_19 = lean::mk_nat_obj(57343u);
|
|
x_20 = lean::nat_dec_lt(x_19, x_14);
|
|
lean::dec(x_19);
|
|
if (lean::obj_tag(x_20) == 0)
|
|
{
|
|
obj* x_24; obj* x_25; obj* x_28; obj* x_30; obj* x_31;
|
|
lean::dec(x_20);
|
|
lean::dec(x_14);
|
|
x_24 = lean::mk_nat_obj(0u);
|
|
x_25 = lean::nat_sub(x_7, x_24);
|
|
lean::dec(x_24);
|
|
lean::dec(x_7);
|
|
x_28 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_28);
|
|
if (lean::is_scalar(x_13)) {
|
|
x_30 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_30 = x_13;
|
|
}
|
|
lean::cnstr_set(x_30, 0, x_25);
|
|
lean::cnstr_set(x_30, 1, x_9);
|
|
lean::cnstr_set(x_30, 2, x_28);
|
|
x_31 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_11, x_30);
|
|
if (lean::obj_tag(x_31) == 0)
|
|
{
|
|
obj* x_33; obj* x_35;
|
|
lean::dec(x_0);
|
|
x_33 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_33);
|
|
x_35 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_31, x_33);
|
|
return x_35;
|
|
}
|
|
else
|
|
{
|
|
obj* x_36; unsigned char x_38;
|
|
x_36 = lean::cnstr_get(x_31, 0);
|
|
lean::inc(x_36);
|
|
x_38 = lean::cnstr_get_scalar<unsigned char>(x_31, sizeof(void*)*1);
|
|
x_1 = x_31;
|
|
x_2 = x_36;
|
|
x_3 = x_38;
|
|
goto lbl_4;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_40; obj* x_41;
|
|
lean::dec(x_20);
|
|
x_40 = lean::mk_nat_obj(1114112u);
|
|
x_41 = lean::nat_dec_lt(x_14, x_40);
|
|
lean::dec(x_40);
|
|
if (lean::obj_tag(x_41) == 0)
|
|
{
|
|
obj* x_45; obj* x_46; obj* x_49; obj* x_51; obj* x_52;
|
|
lean::dec(x_41);
|
|
lean::dec(x_14);
|
|
x_45 = lean::mk_nat_obj(0u);
|
|
x_46 = lean::nat_sub(x_7, x_45);
|
|
lean::dec(x_45);
|
|
lean::dec(x_7);
|
|
x_49 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_49);
|
|
if (lean::is_scalar(x_13)) {
|
|
x_51 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_51 = x_13;
|
|
}
|
|
lean::cnstr_set(x_51, 0, x_46);
|
|
lean::cnstr_set(x_51, 1, x_9);
|
|
lean::cnstr_set(x_51, 2, x_49);
|
|
x_52 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_11, x_51);
|
|
if (lean::obj_tag(x_52) == 0)
|
|
{
|
|
obj* x_54; obj* x_56;
|
|
lean::dec(x_0);
|
|
x_54 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_54);
|
|
x_56 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_52, x_54);
|
|
return x_56;
|
|
}
|
|
else
|
|
{
|
|
obj* x_57; unsigned char x_59;
|
|
x_57 = lean::cnstr_get(x_52, 0);
|
|
lean::inc(x_57);
|
|
x_59 = lean::cnstr_get_scalar<unsigned char>(x_52, sizeof(void*)*1);
|
|
x_1 = x_52;
|
|
x_2 = x_57;
|
|
x_3 = x_59;
|
|
goto lbl_4;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_61; obj* x_64; obj* x_66; obj* x_67;
|
|
lean::dec(x_41);
|
|
x_61 = lean::nat_sub(x_7, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_7);
|
|
x_64 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_64);
|
|
if (lean::is_scalar(x_13)) {
|
|
x_66 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_66 = x_13;
|
|
}
|
|
lean::cnstr_set(x_66, 0, x_61);
|
|
lean::cnstr_set(x_66, 1, x_9);
|
|
lean::cnstr_set(x_66, 2, x_64);
|
|
x_67 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_11, x_66);
|
|
if (lean::obj_tag(x_67) == 0)
|
|
{
|
|
obj* x_69; obj* x_71;
|
|
lean::dec(x_0);
|
|
x_69 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_69);
|
|
x_71 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_67, x_69);
|
|
return x_71;
|
|
}
|
|
else
|
|
{
|
|
obj* x_72; unsigned char x_74;
|
|
x_72 = lean::cnstr_get(x_67, 0);
|
|
lean::inc(x_72);
|
|
x_74 = lean::cnstr_get_scalar<unsigned char>(x_67, sizeof(void*)*1);
|
|
x_1 = x_67;
|
|
x_2 = x_72;
|
|
x_3 = x_74;
|
|
goto lbl_4;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_76; obj* x_79; obj* x_81; obj* x_82;
|
|
lean::dec(x_16);
|
|
x_76 = lean::nat_sub(x_7, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_7);
|
|
x_79 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_79);
|
|
if (lean::is_scalar(x_13)) {
|
|
x_81 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_81 = x_13;
|
|
}
|
|
lean::cnstr_set(x_81, 0, x_76);
|
|
lean::cnstr_set(x_81, 1, x_9);
|
|
lean::cnstr_set(x_81, 2, x_79);
|
|
x_82 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_11, x_81);
|
|
if (lean::obj_tag(x_82) == 0)
|
|
{
|
|
obj* x_84; obj* x_86;
|
|
lean::dec(x_0);
|
|
x_84 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_84);
|
|
x_86 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_82, x_84);
|
|
return x_86;
|
|
}
|
|
else
|
|
{
|
|
obj* x_87; unsigned char x_89;
|
|
x_87 = lean::cnstr_get(x_82, 0);
|
|
lean::inc(x_87);
|
|
x_89 = lean::cnstr_get_scalar<unsigned char>(x_82, sizeof(void*)*1);
|
|
x_1 = x_82;
|
|
x_2 = x_87;
|
|
x_3 = x_89;
|
|
goto lbl_4;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_90; unsigned char x_92; obj* x_93; obj* x_95; obj* x_96;
|
|
x_90 = lean::cnstr_get(x_6, 0);
|
|
lean::inc(x_90);
|
|
x_92 = lean::cnstr_get_scalar<unsigned char>(x_6, sizeof(void*)*1);
|
|
if (lean::is_shared(x_6)) {
|
|
lean::dec(x_6);
|
|
x_93 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_6, 0);
|
|
x_93 = x_6;
|
|
}
|
|
lean::inc(x_90);
|
|
if (lean::is_scalar(x_93)) {
|
|
x_95 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_95 = x_93;
|
|
}
|
|
lean::cnstr_set(x_95, 0, x_90);
|
|
lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_92);
|
|
x_96 = x_95;
|
|
x_1 = x_96;
|
|
x_2 = x_90;
|
|
x_3 = x_92;
|
|
goto lbl_4;
|
|
}
|
|
lbl_4:
|
|
{
|
|
obj* x_97; obj* x_98; unsigned char x_99;
|
|
if (x_3 == 0)
|
|
{
|
|
obj* x_102; unsigned char x_104;
|
|
lean::dec(x_1);
|
|
x_104 = lean::string_iterator_has_next(x_0);
|
|
if (x_104 == 0)
|
|
{
|
|
obj* x_105; obj* x_106; obj* x_107; obj* x_112;
|
|
x_105 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_106 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_107 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_0);
|
|
lean::inc(x_105);
|
|
lean::inc(x_107);
|
|
lean::inc(x_106);
|
|
x_112 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_106, x_107, x_105, x_105, x_0);
|
|
x_102 = x_112;
|
|
goto lbl_103;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_113; unsigned char x_114; unsigned char x_116; obj* x_118; obj* x_119; obj* x_120; unsigned char x_121;
|
|
x_113 = lean::string_iterator_curr(x_0);
|
|
x_118 = lean::mk_nat_obj(97u);
|
|
x_119 = lean::mk_nat_obj(55296u);
|
|
x_120 = lean::nat_dec_lt(x_118, x_119);
|
|
if (lean::obj_tag(x_120) == 0)
|
|
{
|
|
obj* x_124; obj* x_125;
|
|
lean::dec(x_120);
|
|
x_124 = lean::mk_nat_obj(57343u);
|
|
x_125 = lean::nat_dec_lt(x_124, x_118);
|
|
lean::dec(x_124);
|
|
if (lean::obj_tag(x_125) == 0)
|
|
{
|
|
obj* x_129; obj* x_130; obj* x_131;
|
|
lean::dec(x_118);
|
|
lean::dec(x_125);
|
|
x_129 = lean::mk_nat_obj(0u);
|
|
x_130 = lean::box_uint32(x_113);
|
|
x_131 = lean::nat_dec_le(x_129, x_130);
|
|
lean::dec(x_130);
|
|
lean::dec(x_129);
|
|
if (lean::obj_tag(x_131) == 0)
|
|
{
|
|
unsigned char x_136;
|
|
lean::dec(x_119);
|
|
lean::dec(x_131);
|
|
x_136 = 0;
|
|
x_114 = x_136;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_138;
|
|
lean::dec(x_131);
|
|
x_138 = 1;
|
|
x_121 = x_138;
|
|
goto lbl_122;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_140; obj* x_141;
|
|
lean::dec(x_125);
|
|
x_140 = lean::mk_nat_obj(1114112u);
|
|
x_141 = lean::nat_dec_lt(x_118, x_140);
|
|
lean::dec(x_140);
|
|
if (lean::obj_tag(x_141) == 0)
|
|
{
|
|
obj* x_145; obj* x_146; obj* x_147;
|
|
lean::dec(x_118);
|
|
lean::dec(x_141);
|
|
x_145 = lean::mk_nat_obj(0u);
|
|
x_146 = lean::box_uint32(x_113);
|
|
x_147 = lean::nat_dec_le(x_145, x_146);
|
|
lean::dec(x_146);
|
|
lean::dec(x_145);
|
|
if (lean::obj_tag(x_147) == 0)
|
|
{
|
|
unsigned char x_152;
|
|
lean::dec(x_119);
|
|
lean::dec(x_147);
|
|
x_152 = 0;
|
|
x_114 = x_152;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_154;
|
|
lean::dec(x_147);
|
|
x_154 = 1;
|
|
x_121 = x_154;
|
|
goto lbl_122;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_156; obj* x_157;
|
|
lean::dec(x_141);
|
|
x_156 = lean::box_uint32(x_113);
|
|
x_157 = lean::nat_dec_le(x_118, x_156);
|
|
lean::dec(x_156);
|
|
lean::dec(x_118);
|
|
if (lean::obj_tag(x_157) == 0)
|
|
{
|
|
unsigned char x_162;
|
|
lean::dec(x_119);
|
|
lean::dec(x_157);
|
|
x_162 = 0;
|
|
x_114 = x_162;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_164;
|
|
lean::dec(x_157);
|
|
x_164 = 1;
|
|
x_121 = x_164;
|
|
goto lbl_122;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_166; obj* x_167;
|
|
lean::dec(x_120);
|
|
x_166 = lean::box_uint32(x_113);
|
|
x_167 = lean::nat_dec_le(x_118, x_166);
|
|
lean::dec(x_166);
|
|
lean::dec(x_118);
|
|
if (lean::obj_tag(x_167) == 0)
|
|
{
|
|
unsigned char x_172;
|
|
lean::dec(x_167);
|
|
lean::dec(x_119);
|
|
x_172 = 0;
|
|
x_114 = x_172;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_174;
|
|
lean::dec(x_167);
|
|
x_174 = 1;
|
|
x_121 = x_174;
|
|
goto lbl_122;
|
|
}
|
|
}
|
|
lbl_115:
|
|
{
|
|
obj* x_175; obj* x_176; obj* x_178; obj* x_180; obj* x_181; obj* x_182; obj* x_186;
|
|
x_175 = _l_s4_char_s11_quote__core(x_113);
|
|
x_176 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_176);
|
|
x_178 = lean::string_append(x_176, x_175);
|
|
lean::dec(x_175);
|
|
x_180 = lean::string_append(x_178, x_176);
|
|
x_181 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_182 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_0);
|
|
lean::inc(x_181);
|
|
lean::inc(x_182);
|
|
x_186 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_180, x_182, x_181, x_181, x_0);
|
|
x_102 = x_186;
|
|
goto lbl_103;
|
|
}
|
|
lbl_117:
|
|
{
|
|
obj* x_188; obj* x_189; obj* x_190; obj* x_191;
|
|
lean::inc(x_0);
|
|
x_188 = lean::string_iterator_next(x_0);
|
|
x_189 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_190 = lean::box_uint32(x_113);
|
|
x_191 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_191, 0, x_190);
|
|
lean::cnstr_set(x_191, 1, x_188);
|
|
lean::cnstr_set(x_191, 2, x_189);
|
|
x_102 = x_191;
|
|
goto lbl_103;
|
|
}
|
|
lbl_122:
|
|
{
|
|
obj* x_192; obj* x_193;
|
|
x_192 = lean::mk_nat_obj(102u);
|
|
x_193 = lean::nat_dec_lt(x_192, x_119);
|
|
lean::dec(x_119);
|
|
if (lean::obj_tag(x_193) == 0)
|
|
{
|
|
obj* x_196; obj* x_197;
|
|
lean::dec(x_193);
|
|
x_196 = lean::mk_nat_obj(57343u);
|
|
x_197 = lean::nat_dec_lt(x_196, x_192);
|
|
lean::dec(x_196);
|
|
if (lean::obj_tag(x_197) == 0)
|
|
{
|
|
obj* x_201; obj* x_202; obj* x_203;
|
|
lean::dec(x_197);
|
|
lean::dec(x_192);
|
|
x_201 = lean::mk_nat_obj(0u);
|
|
x_202 = lean::box_uint32(x_113);
|
|
x_203 = lean::nat_dec_le(x_202, x_201);
|
|
lean::dec(x_201);
|
|
lean::dec(x_202);
|
|
if (lean::obj_tag(x_203) == 0)
|
|
{
|
|
unsigned char x_207;
|
|
lean::dec(x_203);
|
|
x_207 = 0;
|
|
x_114 = x_207;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_203);
|
|
if (x_121 == 0)
|
|
{
|
|
unsigned char x_209;
|
|
x_209 = 0;
|
|
x_114 = x_209;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_210;
|
|
x_210 = 0;
|
|
x_116 = x_210;
|
|
goto lbl_117;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_212; obj* x_213;
|
|
lean::dec(x_197);
|
|
x_212 = lean::mk_nat_obj(1114112u);
|
|
x_213 = lean::nat_dec_lt(x_192, x_212);
|
|
lean::dec(x_212);
|
|
if (lean::obj_tag(x_213) == 0)
|
|
{
|
|
obj* x_217; obj* x_218; obj* x_219;
|
|
lean::dec(x_213);
|
|
lean::dec(x_192);
|
|
x_217 = lean::mk_nat_obj(0u);
|
|
x_218 = lean::box_uint32(x_113);
|
|
x_219 = lean::nat_dec_le(x_218, x_217);
|
|
lean::dec(x_217);
|
|
lean::dec(x_218);
|
|
if (lean::obj_tag(x_219) == 0)
|
|
{
|
|
unsigned char x_223;
|
|
lean::dec(x_219);
|
|
x_223 = 0;
|
|
x_114 = x_223;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_219);
|
|
if (x_121 == 0)
|
|
{
|
|
unsigned char x_225;
|
|
x_225 = 0;
|
|
x_114 = x_225;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_226;
|
|
x_226 = 0;
|
|
x_116 = x_226;
|
|
goto lbl_117;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_228; obj* x_229;
|
|
lean::dec(x_213);
|
|
x_228 = lean::box_uint32(x_113);
|
|
x_229 = lean::nat_dec_le(x_228, x_192);
|
|
lean::dec(x_192);
|
|
lean::dec(x_228);
|
|
if (lean::obj_tag(x_229) == 0)
|
|
{
|
|
unsigned char x_233;
|
|
lean::dec(x_229);
|
|
x_233 = 0;
|
|
x_114 = x_233;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_229);
|
|
if (x_121 == 0)
|
|
{
|
|
unsigned char x_235;
|
|
x_235 = 0;
|
|
x_114 = x_235;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_236;
|
|
x_236 = 0;
|
|
x_116 = x_236;
|
|
goto lbl_117;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_238; obj* x_239;
|
|
lean::dec(x_193);
|
|
x_238 = lean::box_uint32(x_113);
|
|
x_239 = lean::nat_dec_le(x_238, x_192);
|
|
lean::dec(x_192);
|
|
lean::dec(x_238);
|
|
if (lean::obj_tag(x_239) == 0)
|
|
{
|
|
unsigned char x_243;
|
|
lean::dec(x_239);
|
|
x_243 = 0;
|
|
x_114 = x_243;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_239);
|
|
if (x_121 == 0)
|
|
{
|
|
unsigned char x_245;
|
|
x_245 = 0;
|
|
x_114 = x_245;
|
|
goto lbl_115;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_246;
|
|
x_246 = 0;
|
|
x_116 = x_246;
|
|
goto lbl_117;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
lbl_103:
|
|
{
|
|
obj* x_247; obj* x_249;
|
|
x_247 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_247);
|
|
x_249 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_247, x_102);
|
|
if (lean::obj_tag(x_249) == 0)
|
|
{
|
|
obj* x_250; obj* x_252; obj* x_254; obj* x_256; obj* x_257; obj* x_258; obj* x_259;
|
|
x_250 = lean::cnstr_get(x_249, 0);
|
|
lean::inc(x_250);
|
|
x_252 = lean::cnstr_get(x_249, 1);
|
|
lean::inc(x_252);
|
|
x_254 = lean::cnstr_get(x_249, 2);
|
|
lean::inc(x_254);
|
|
if (lean::is_shared(x_249)) {
|
|
lean::dec(x_249);
|
|
x_256 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_249, 0);
|
|
lean::cnstr_release(x_249, 1);
|
|
lean::cnstr_release(x_249, 2);
|
|
x_256 = x_249;
|
|
}
|
|
x_257 = lean::mk_nat_obj(97u);
|
|
x_258 = lean::mk_nat_obj(55296u);
|
|
x_259 = lean::nat_dec_lt(x_257, x_258);
|
|
lean::dec(x_258);
|
|
if (lean::obj_tag(x_259) == 0)
|
|
{
|
|
obj* x_262; obj* x_263;
|
|
lean::dec(x_259);
|
|
x_262 = lean::mk_nat_obj(57343u);
|
|
x_263 = lean::nat_dec_lt(x_262, x_257);
|
|
lean::dec(x_262);
|
|
if (lean::obj_tag(x_263) == 0)
|
|
{
|
|
obj* x_267; obj* x_268; obj* x_271; obj* x_272; obj* x_276; obj* x_277;
|
|
lean::dec(x_263);
|
|
lean::dec(x_257);
|
|
x_267 = lean::mk_nat_obj(0u);
|
|
x_268 = lean::nat_sub(x_250, x_267);
|
|
lean::dec(x_267);
|
|
lean::dec(x_250);
|
|
x_271 = lean::mk_nat_obj(10u);
|
|
x_272 = lean::nat_add(x_271, x_268);
|
|
lean::dec(x_268);
|
|
lean::dec(x_271);
|
|
lean::inc(x_247);
|
|
if (lean::is_scalar(x_256)) {
|
|
x_276 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_276 = x_256;
|
|
}
|
|
lean::cnstr_set(x_276, 0, x_272);
|
|
lean::cnstr_set(x_276, 1, x_252);
|
|
lean::cnstr_set(x_276, 2, x_247);
|
|
x_277 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_254, x_276);
|
|
if (lean::obj_tag(x_277) == 0)
|
|
{
|
|
obj* x_279; obj* x_280; obj* x_282;
|
|
lean::dec(x_0);
|
|
x_279 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_277);
|
|
x_280 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_280);
|
|
x_282 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_279, x_280);
|
|
return x_282;
|
|
}
|
|
else
|
|
{
|
|
obj* x_283; unsigned char x_285;
|
|
x_283 = lean::cnstr_get(x_277, 0);
|
|
lean::inc(x_283);
|
|
x_285 = lean::cnstr_get_scalar<unsigned char>(x_277, sizeof(void*)*1);
|
|
x_97 = x_277;
|
|
x_98 = x_283;
|
|
x_99 = x_285;
|
|
goto lbl_100;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_287; obj* x_288;
|
|
lean::dec(x_263);
|
|
x_287 = lean::mk_nat_obj(1114112u);
|
|
x_288 = lean::nat_dec_lt(x_257, x_287);
|
|
lean::dec(x_287);
|
|
if (lean::obj_tag(x_288) == 0)
|
|
{
|
|
obj* x_292; obj* x_293; obj* x_296; obj* x_297; obj* x_301; obj* x_302;
|
|
lean::dec(x_257);
|
|
lean::dec(x_288);
|
|
x_292 = lean::mk_nat_obj(0u);
|
|
x_293 = lean::nat_sub(x_250, x_292);
|
|
lean::dec(x_292);
|
|
lean::dec(x_250);
|
|
x_296 = lean::mk_nat_obj(10u);
|
|
x_297 = lean::nat_add(x_296, x_293);
|
|
lean::dec(x_293);
|
|
lean::dec(x_296);
|
|
lean::inc(x_247);
|
|
if (lean::is_scalar(x_256)) {
|
|
x_301 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_301 = x_256;
|
|
}
|
|
lean::cnstr_set(x_301, 0, x_297);
|
|
lean::cnstr_set(x_301, 1, x_252);
|
|
lean::cnstr_set(x_301, 2, x_247);
|
|
x_302 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_254, x_301);
|
|
if (lean::obj_tag(x_302) == 0)
|
|
{
|
|
obj* x_304; obj* x_305; obj* x_307;
|
|
lean::dec(x_0);
|
|
x_304 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_302);
|
|
x_305 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_305);
|
|
x_307 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_304, x_305);
|
|
return x_307;
|
|
}
|
|
else
|
|
{
|
|
obj* x_308; unsigned char x_310;
|
|
x_308 = lean::cnstr_get(x_302, 0);
|
|
lean::inc(x_308);
|
|
x_310 = lean::cnstr_get_scalar<unsigned char>(x_302, sizeof(void*)*1);
|
|
x_97 = x_302;
|
|
x_98 = x_308;
|
|
x_99 = x_310;
|
|
goto lbl_100;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_312; obj* x_315; obj* x_316; obj* x_320; obj* x_321;
|
|
lean::dec(x_288);
|
|
x_312 = lean::nat_sub(x_250, x_257);
|
|
lean::dec(x_257);
|
|
lean::dec(x_250);
|
|
x_315 = lean::mk_nat_obj(10u);
|
|
x_316 = lean::nat_add(x_315, x_312);
|
|
lean::dec(x_312);
|
|
lean::dec(x_315);
|
|
lean::inc(x_247);
|
|
if (lean::is_scalar(x_256)) {
|
|
x_320 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_320 = x_256;
|
|
}
|
|
lean::cnstr_set(x_320, 0, x_316);
|
|
lean::cnstr_set(x_320, 1, x_252);
|
|
lean::cnstr_set(x_320, 2, x_247);
|
|
x_321 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_254, x_320);
|
|
if (lean::obj_tag(x_321) == 0)
|
|
{
|
|
obj* x_323; obj* x_324; obj* x_326;
|
|
lean::dec(x_0);
|
|
x_323 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_321);
|
|
x_324 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_324);
|
|
x_326 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_323, x_324);
|
|
return x_326;
|
|
}
|
|
else
|
|
{
|
|
obj* x_327; unsigned char x_329;
|
|
x_327 = lean::cnstr_get(x_321, 0);
|
|
lean::inc(x_327);
|
|
x_329 = lean::cnstr_get_scalar<unsigned char>(x_321, sizeof(void*)*1);
|
|
x_97 = x_321;
|
|
x_98 = x_327;
|
|
x_99 = x_329;
|
|
goto lbl_100;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_331; obj* x_334; obj* x_335; obj* x_339; obj* x_340;
|
|
lean::dec(x_259);
|
|
x_331 = lean::nat_sub(x_250, x_257);
|
|
lean::dec(x_257);
|
|
lean::dec(x_250);
|
|
x_334 = lean::mk_nat_obj(10u);
|
|
x_335 = lean::nat_add(x_334, x_331);
|
|
lean::dec(x_331);
|
|
lean::dec(x_334);
|
|
lean::inc(x_247);
|
|
if (lean::is_scalar(x_256)) {
|
|
x_339 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_339 = x_256;
|
|
}
|
|
lean::cnstr_set(x_339, 0, x_335);
|
|
lean::cnstr_set(x_339, 1, x_252);
|
|
lean::cnstr_set(x_339, 2, x_247);
|
|
x_340 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_254, x_339);
|
|
if (lean::obj_tag(x_340) == 0)
|
|
{
|
|
obj* x_342; obj* x_343; obj* x_345;
|
|
lean::dec(x_0);
|
|
x_342 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_340);
|
|
x_343 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_343);
|
|
x_345 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_342, x_343);
|
|
return x_345;
|
|
}
|
|
else
|
|
{
|
|
obj* x_346; unsigned char x_348;
|
|
x_346 = lean::cnstr_get(x_340, 0);
|
|
lean::inc(x_346);
|
|
x_348 = lean::cnstr_get_scalar<unsigned char>(x_340, sizeof(void*)*1);
|
|
x_97 = x_340;
|
|
x_98 = x_346;
|
|
x_99 = x_348;
|
|
goto lbl_100;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_350; unsigned char x_352; obj* x_353; obj* x_355; obj* x_356;
|
|
lean::dec(x_247);
|
|
x_350 = lean::cnstr_get(x_249, 0);
|
|
lean::inc(x_350);
|
|
x_352 = lean::cnstr_get_scalar<unsigned char>(x_249, sizeof(void*)*1);
|
|
if (lean::is_shared(x_249)) {
|
|
lean::dec(x_249);
|
|
x_353 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_249, 0);
|
|
x_353 = x_249;
|
|
}
|
|
lean::inc(x_350);
|
|
if (lean::is_scalar(x_353)) {
|
|
x_355 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_355 = x_353;
|
|
}
|
|
lean::cnstr_set(x_355, 0, x_350);
|
|
lean::cnstr_set_scalar(x_355, sizeof(void*)*1, x_352);
|
|
x_356 = x_355;
|
|
x_97 = x_356;
|
|
x_98 = x_350;
|
|
x_99 = x_352;
|
|
goto lbl_100;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_359; obj* x_361;
|
|
lean::dec(x_2);
|
|
lean::dec(x_0);
|
|
x_359 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_359);
|
|
x_361 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_1, x_359);
|
|
return x_361;
|
|
}
|
|
lbl_100:
|
|
{
|
|
|
|
if (x_99 == 0)
|
|
{
|
|
obj* x_363; unsigned char x_365;
|
|
lean::dec(x_97);
|
|
x_365 = lean::string_iterator_has_next(x_0);
|
|
if (x_365 == 0)
|
|
{
|
|
obj* x_366; obj* x_367; obj* x_368; obj* x_372;
|
|
x_366 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_367 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_368 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_366);
|
|
lean::inc(x_368);
|
|
lean::inc(x_367);
|
|
x_372 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_367, x_368, x_366, x_366, x_0);
|
|
x_363 = x_372;
|
|
goto lbl_364;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_373; unsigned char x_374; unsigned char x_376; obj* x_378; obj* x_379; obj* x_380; unsigned char x_381;
|
|
x_373 = lean::string_iterator_curr(x_0);
|
|
x_378 = lean::mk_nat_obj(65u);
|
|
x_379 = lean::mk_nat_obj(55296u);
|
|
x_380 = lean::nat_dec_lt(x_378, x_379);
|
|
if (lean::obj_tag(x_380) == 0)
|
|
{
|
|
obj* x_384; obj* x_385;
|
|
lean::dec(x_380);
|
|
x_384 = lean::mk_nat_obj(57343u);
|
|
x_385 = lean::nat_dec_lt(x_384, x_378);
|
|
lean::dec(x_384);
|
|
if (lean::obj_tag(x_385) == 0)
|
|
{
|
|
obj* x_389; obj* x_390; obj* x_391;
|
|
lean::dec(x_385);
|
|
lean::dec(x_378);
|
|
x_389 = lean::mk_nat_obj(0u);
|
|
x_390 = lean::box_uint32(x_373);
|
|
x_391 = lean::nat_dec_le(x_389, x_390);
|
|
lean::dec(x_390);
|
|
lean::dec(x_389);
|
|
if (lean::obj_tag(x_391) == 0)
|
|
{
|
|
unsigned char x_396;
|
|
lean::dec(x_391);
|
|
lean::dec(x_379);
|
|
x_396 = 0;
|
|
x_374 = x_396;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_398;
|
|
lean::dec(x_391);
|
|
x_398 = 1;
|
|
x_381 = x_398;
|
|
goto lbl_382;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_400; obj* x_401;
|
|
lean::dec(x_385);
|
|
x_400 = lean::mk_nat_obj(1114112u);
|
|
x_401 = lean::nat_dec_lt(x_378, x_400);
|
|
lean::dec(x_400);
|
|
if (lean::obj_tag(x_401) == 0)
|
|
{
|
|
obj* x_405; obj* x_406; obj* x_407;
|
|
lean::dec(x_401);
|
|
lean::dec(x_378);
|
|
x_405 = lean::mk_nat_obj(0u);
|
|
x_406 = lean::box_uint32(x_373);
|
|
x_407 = lean::nat_dec_le(x_405, x_406);
|
|
lean::dec(x_406);
|
|
lean::dec(x_405);
|
|
if (lean::obj_tag(x_407) == 0)
|
|
{
|
|
unsigned char x_412;
|
|
lean::dec(x_407);
|
|
lean::dec(x_379);
|
|
x_412 = 0;
|
|
x_374 = x_412;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_414;
|
|
lean::dec(x_407);
|
|
x_414 = 1;
|
|
x_381 = x_414;
|
|
goto lbl_382;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_416; obj* x_417;
|
|
lean::dec(x_401);
|
|
x_416 = lean::box_uint32(x_373);
|
|
x_417 = lean::nat_dec_le(x_378, x_416);
|
|
lean::dec(x_416);
|
|
lean::dec(x_378);
|
|
if (lean::obj_tag(x_417) == 0)
|
|
{
|
|
unsigned char x_422;
|
|
lean::dec(x_379);
|
|
lean::dec(x_417);
|
|
x_422 = 0;
|
|
x_374 = x_422;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_424;
|
|
lean::dec(x_417);
|
|
x_424 = 1;
|
|
x_381 = x_424;
|
|
goto lbl_382;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_426; obj* x_427;
|
|
lean::dec(x_380);
|
|
x_426 = lean::box_uint32(x_373);
|
|
x_427 = lean::nat_dec_le(x_378, x_426);
|
|
lean::dec(x_426);
|
|
lean::dec(x_378);
|
|
if (lean::obj_tag(x_427) == 0)
|
|
{
|
|
unsigned char x_432;
|
|
lean::dec(x_427);
|
|
lean::dec(x_379);
|
|
x_432 = 0;
|
|
x_374 = x_432;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_434;
|
|
lean::dec(x_427);
|
|
x_434 = 1;
|
|
x_381 = x_434;
|
|
goto lbl_382;
|
|
}
|
|
}
|
|
lbl_375:
|
|
{
|
|
obj* x_435; obj* x_436; obj* x_438; obj* x_440; obj* x_441; obj* x_442; obj* x_445;
|
|
x_435 = _l_s4_char_s11_quote__core(x_373);
|
|
x_436 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_436);
|
|
x_438 = lean::string_append(x_436, x_435);
|
|
lean::dec(x_435);
|
|
x_440 = lean::string_append(x_438, x_436);
|
|
x_441 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_442 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_441);
|
|
lean::inc(x_442);
|
|
x_445 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_440, x_442, x_441, x_441, x_0);
|
|
x_363 = x_445;
|
|
goto lbl_364;
|
|
}
|
|
lbl_377:
|
|
{
|
|
obj* x_446; obj* x_447; obj* x_448; obj* x_449;
|
|
x_446 = lean::string_iterator_next(x_0);
|
|
x_447 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_448 = lean::box_uint32(x_373);
|
|
x_449 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_449, 0, x_448);
|
|
lean::cnstr_set(x_449, 1, x_446);
|
|
lean::cnstr_set(x_449, 2, x_447);
|
|
x_363 = x_449;
|
|
goto lbl_364;
|
|
}
|
|
lbl_382:
|
|
{
|
|
obj* x_450; obj* x_451;
|
|
x_450 = lean::mk_nat_obj(70u);
|
|
x_451 = lean::nat_dec_lt(x_450, x_379);
|
|
lean::dec(x_379);
|
|
if (lean::obj_tag(x_451) == 0)
|
|
{
|
|
obj* x_454; obj* x_455;
|
|
lean::dec(x_451);
|
|
x_454 = lean::mk_nat_obj(57343u);
|
|
x_455 = lean::nat_dec_lt(x_454, x_450);
|
|
lean::dec(x_454);
|
|
if (lean::obj_tag(x_455) == 0)
|
|
{
|
|
obj* x_459; obj* x_460; obj* x_461;
|
|
lean::dec(x_450);
|
|
lean::dec(x_455);
|
|
x_459 = lean::mk_nat_obj(0u);
|
|
x_460 = lean::box_uint32(x_373);
|
|
x_461 = lean::nat_dec_le(x_460, x_459);
|
|
lean::dec(x_459);
|
|
lean::dec(x_460);
|
|
if (lean::obj_tag(x_461) == 0)
|
|
{
|
|
unsigned char x_465;
|
|
lean::dec(x_461);
|
|
x_465 = 0;
|
|
x_374 = x_465;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_461);
|
|
if (x_381 == 0)
|
|
{
|
|
unsigned char x_467;
|
|
x_467 = 0;
|
|
x_374 = x_467;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_468;
|
|
x_468 = 0;
|
|
x_376 = x_468;
|
|
goto lbl_377;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_470; obj* x_471;
|
|
lean::dec(x_455);
|
|
x_470 = lean::mk_nat_obj(1114112u);
|
|
x_471 = lean::nat_dec_lt(x_450, x_470);
|
|
lean::dec(x_470);
|
|
if (lean::obj_tag(x_471) == 0)
|
|
{
|
|
obj* x_475; obj* x_476; obj* x_477;
|
|
lean::dec(x_471);
|
|
lean::dec(x_450);
|
|
x_475 = lean::mk_nat_obj(0u);
|
|
x_476 = lean::box_uint32(x_373);
|
|
x_477 = lean::nat_dec_le(x_476, x_475);
|
|
lean::dec(x_475);
|
|
lean::dec(x_476);
|
|
if (lean::obj_tag(x_477) == 0)
|
|
{
|
|
unsigned char x_481;
|
|
lean::dec(x_477);
|
|
x_481 = 0;
|
|
x_374 = x_481;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_477);
|
|
if (x_381 == 0)
|
|
{
|
|
unsigned char x_483;
|
|
x_483 = 0;
|
|
x_374 = x_483;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_484;
|
|
x_484 = 0;
|
|
x_376 = x_484;
|
|
goto lbl_377;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_486; obj* x_487;
|
|
lean::dec(x_471);
|
|
x_486 = lean::box_uint32(x_373);
|
|
x_487 = lean::nat_dec_le(x_486, x_450);
|
|
lean::dec(x_450);
|
|
lean::dec(x_486);
|
|
if (lean::obj_tag(x_487) == 0)
|
|
{
|
|
unsigned char x_491;
|
|
lean::dec(x_487);
|
|
x_491 = 0;
|
|
x_374 = x_491;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_487);
|
|
if (x_381 == 0)
|
|
{
|
|
unsigned char x_493;
|
|
x_493 = 0;
|
|
x_374 = x_493;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_494;
|
|
x_494 = 0;
|
|
x_376 = x_494;
|
|
goto lbl_377;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_496; obj* x_497;
|
|
lean::dec(x_451);
|
|
x_496 = lean::box_uint32(x_373);
|
|
x_497 = lean::nat_dec_le(x_496, x_450);
|
|
lean::dec(x_450);
|
|
lean::dec(x_496);
|
|
if (lean::obj_tag(x_497) == 0)
|
|
{
|
|
unsigned char x_501;
|
|
lean::dec(x_497);
|
|
x_501 = 0;
|
|
x_374 = x_501;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_497);
|
|
if (x_381 == 0)
|
|
{
|
|
unsigned char x_503;
|
|
x_503 = 0;
|
|
x_374 = x_503;
|
|
goto lbl_375;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_504;
|
|
x_504 = 0;
|
|
x_376 = x_504;
|
|
goto lbl_377;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
lbl_364:
|
|
{
|
|
obj* x_505; obj* x_507;
|
|
x_505 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_505);
|
|
x_507 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_505, x_363);
|
|
if (lean::obj_tag(x_507) == 0)
|
|
{
|
|
obj* x_508; obj* x_510; obj* x_512; obj* x_514; obj* x_515; obj* x_516; obj* x_517;
|
|
x_508 = lean::cnstr_get(x_507, 0);
|
|
lean::inc(x_508);
|
|
x_510 = lean::cnstr_get(x_507, 1);
|
|
lean::inc(x_510);
|
|
x_512 = lean::cnstr_get(x_507, 2);
|
|
lean::inc(x_512);
|
|
if (lean::is_shared(x_507)) {
|
|
lean::dec(x_507);
|
|
x_514 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_507, 0);
|
|
lean::cnstr_release(x_507, 1);
|
|
lean::cnstr_release(x_507, 2);
|
|
x_514 = x_507;
|
|
}
|
|
x_515 = lean::mk_nat_obj(65u);
|
|
x_516 = lean::mk_nat_obj(55296u);
|
|
x_517 = lean::nat_dec_lt(x_515, x_516);
|
|
lean::dec(x_516);
|
|
if (lean::obj_tag(x_517) == 0)
|
|
{
|
|
obj* x_520; obj* x_521;
|
|
lean::dec(x_517);
|
|
x_520 = lean::mk_nat_obj(57343u);
|
|
x_521 = lean::nat_dec_lt(x_520, x_515);
|
|
lean::dec(x_520);
|
|
if (lean::obj_tag(x_521) == 0)
|
|
{
|
|
obj* x_525; obj* x_526; obj* x_529; obj* x_530; obj* x_534; obj* x_535; obj* x_536; obj* x_537; obj* x_538; obj* x_540;
|
|
lean::dec(x_515);
|
|
lean::dec(x_521);
|
|
x_525 = lean::mk_nat_obj(0u);
|
|
x_526 = lean::nat_sub(x_508, x_525);
|
|
lean::dec(x_525);
|
|
lean::dec(x_508);
|
|
x_529 = lean::mk_nat_obj(10u);
|
|
x_530 = lean::nat_add(x_529, x_526);
|
|
lean::dec(x_526);
|
|
lean::dec(x_529);
|
|
lean::inc(x_505);
|
|
if (lean::is_scalar(x_514)) {
|
|
x_534 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_534 = x_514;
|
|
}
|
|
lean::cnstr_set(x_534, 0, x_530);
|
|
lean::cnstr_set(x_534, 1, x_510);
|
|
lean::cnstr_set(x_534, 2, x_505);
|
|
x_535 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_512, x_534);
|
|
x_536 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_98, x_535);
|
|
x_537 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_536);
|
|
x_538 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_538);
|
|
x_540 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_537, x_538);
|
|
return x_540;
|
|
}
|
|
else
|
|
{
|
|
obj* x_542; obj* x_543;
|
|
lean::dec(x_521);
|
|
x_542 = lean::mk_nat_obj(1114112u);
|
|
x_543 = lean::nat_dec_lt(x_515, x_542);
|
|
lean::dec(x_542);
|
|
if (lean::obj_tag(x_543) == 0)
|
|
{
|
|
obj* x_547; obj* x_548; obj* x_551; obj* x_552; obj* x_556; obj* x_557; obj* x_558; obj* x_559; obj* x_560; obj* x_562;
|
|
lean::dec(x_543);
|
|
lean::dec(x_515);
|
|
x_547 = lean::mk_nat_obj(0u);
|
|
x_548 = lean::nat_sub(x_508, x_547);
|
|
lean::dec(x_547);
|
|
lean::dec(x_508);
|
|
x_551 = lean::mk_nat_obj(10u);
|
|
x_552 = lean::nat_add(x_551, x_548);
|
|
lean::dec(x_548);
|
|
lean::dec(x_551);
|
|
lean::inc(x_505);
|
|
if (lean::is_scalar(x_514)) {
|
|
x_556 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_556 = x_514;
|
|
}
|
|
lean::cnstr_set(x_556, 0, x_552);
|
|
lean::cnstr_set(x_556, 1, x_510);
|
|
lean::cnstr_set(x_556, 2, x_505);
|
|
x_557 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_512, x_556);
|
|
x_558 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_98, x_557);
|
|
x_559 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_558);
|
|
x_560 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_560);
|
|
x_562 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_559, x_560);
|
|
return x_562;
|
|
}
|
|
else
|
|
{
|
|
obj* x_564; obj* x_567; obj* x_568; obj* x_572; obj* x_573; obj* x_574; obj* x_575; obj* x_576; obj* x_578;
|
|
lean::dec(x_543);
|
|
x_564 = lean::nat_sub(x_508, x_515);
|
|
lean::dec(x_515);
|
|
lean::dec(x_508);
|
|
x_567 = lean::mk_nat_obj(10u);
|
|
x_568 = lean::nat_add(x_567, x_564);
|
|
lean::dec(x_564);
|
|
lean::dec(x_567);
|
|
lean::inc(x_505);
|
|
if (lean::is_scalar(x_514)) {
|
|
x_572 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_572 = x_514;
|
|
}
|
|
lean::cnstr_set(x_572, 0, x_568);
|
|
lean::cnstr_set(x_572, 1, x_510);
|
|
lean::cnstr_set(x_572, 2, x_505);
|
|
x_573 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_512, x_572);
|
|
x_574 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_98, x_573);
|
|
x_575 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_574);
|
|
x_576 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_576);
|
|
x_578 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_575, x_576);
|
|
return x_578;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_580; obj* x_583; obj* x_584; obj* x_588; obj* x_589; obj* x_590; obj* x_591; obj* x_592; obj* x_594;
|
|
lean::dec(x_517);
|
|
x_580 = lean::nat_sub(x_508, x_515);
|
|
lean::dec(x_515);
|
|
lean::dec(x_508);
|
|
x_583 = lean::mk_nat_obj(10u);
|
|
x_584 = lean::nat_add(x_583, x_580);
|
|
lean::dec(x_580);
|
|
lean::dec(x_583);
|
|
lean::inc(x_505);
|
|
if (lean::is_scalar(x_514)) {
|
|
x_588 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_588 = x_514;
|
|
}
|
|
lean::cnstr_set(x_588, 0, x_584);
|
|
lean::cnstr_set(x_588, 1, x_510);
|
|
lean::cnstr_set(x_588, 2, x_505);
|
|
x_589 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_512, x_588);
|
|
x_590 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_98, x_589);
|
|
x_591 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_590);
|
|
x_592 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_592);
|
|
x_594 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_591, x_592);
|
|
return x_594;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_596; unsigned char x_598; obj* x_599; obj* x_600; obj* x_601; obj* x_602; obj* x_603; obj* x_604; obj* x_606;
|
|
lean::dec(x_505);
|
|
x_596 = lean::cnstr_get(x_507, 0);
|
|
lean::inc(x_596);
|
|
x_598 = lean::cnstr_get_scalar<unsigned char>(x_507, sizeof(void*)*1);
|
|
if (lean::is_shared(x_507)) {
|
|
lean::dec(x_507);
|
|
x_599 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_507, 0);
|
|
x_599 = x_507;
|
|
}
|
|
if (lean::is_scalar(x_599)) {
|
|
x_600 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_600 = x_599;
|
|
}
|
|
lean::cnstr_set(x_600, 0, x_596);
|
|
lean::cnstr_set_scalar(x_600, sizeof(void*)*1, x_598);
|
|
x_601 = x_600;
|
|
x_602 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_98, x_601);
|
|
x_603 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_602);
|
|
x_604 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_604);
|
|
x_606 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_603, x_604);
|
|
return x_606;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_609; obj* x_610; obj* x_612;
|
|
lean::dec(x_0);
|
|
lean::dec(x_98);
|
|
x_609 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_2, x_97);
|
|
x_610 = _l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1;
|
|
lean::inc(x_610);
|
|
x_612 = _l_s4_lean_s6_parser_s9_parsec__t_s15_labels__mk__res_s6___rarg(x_609, x_610);
|
|
return x_612;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* _init__l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1() {
|
|
{
|
|
obj* x_0; obj* x_1;
|
|
x_0 = lean::mk_string("hexadecimal");
|
|
x_1 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_1, 0, x_0);
|
|
return x_1;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s5_alpha_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__5(obj* x_0) {
|
|
{
|
|
unsigned char 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;
|
|
x_2 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_4 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_2);
|
|
lean::inc(x_4);
|
|
lean::inc(x_3);
|
|
x_8 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_3, x_4, x_2, x_2, x_0);
|
|
if (lean::obj_tag(x_8) == 0)
|
|
{
|
|
obj* x_9; obj* x_11; obj* x_13;
|
|
x_9 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_9);
|
|
x_11 = lean::cnstr_get(x_8, 1);
|
|
lean::inc(x_11);
|
|
x_13 = lean::cnstr_get(x_8, 2);
|
|
lean::inc(x_13);
|
|
if (lean::obj_tag(x_13) == 0)
|
|
{
|
|
|
|
lean::dec(x_13);
|
|
lean::dec(x_4);
|
|
lean::dec(x_9);
|
|
lean::dec(x_11);
|
|
return x_8;
|
|
}
|
|
else
|
|
{
|
|
obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_26;
|
|
lean::dec(x_8);
|
|
x_20 = lean::cnstr_get(x_13, 0);
|
|
lean::inc(x_20);
|
|
if (lean::is_shared(x_13)) {
|
|
lean::dec(x_13);
|
|
x_22 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_13, 0);
|
|
x_22 = x_13;
|
|
}
|
|
lean::inc(x_4);
|
|
x_24 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_24, 0, x_4);
|
|
lean::closure_set(x_24, 1, x_20);
|
|
if (lean::is_scalar(x_22)) {
|
|
x_25 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_25 = x_22;
|
|
}
|
|
lean::cnstr_set(x_25, 0, x_24);
|
|
x_26 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_26, 0, x_9);
|
|
lean::cnstr_set(x_26, 1, x_11);
|
|
lean::cnstr_set(x_26, 2, x_25);
|
|
return x_26;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_27; unsigned char x_29;
|
|
x_27 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_27);
|
|
x_29 = lean::cnstr_get_scalar<unsigned char>(x_8, sizeof(void*)*1);
|
|
if (x_29 == 0)
|
|
{
|
|
obj* x_31; obj* x_33; obj* x_35; obj* x_38; obj* x_39; obj* x_42; obj* x_43; obj* x_44;
|
|
lean::dec(x_8);
|
|
x_31 = lean::cnstr_get(x_27, 0);
|
|
lean::inc(x_31);
|
|
x_33 = lean::cnstr_get(x_27, 1);
|
|
lean::inc(x_33);
|
|
x_35 = lean::cnstr_get(x_27, 2);
|
|
lean::inc(x_35);
|
|
lean::inc(x_4);
|
|
x_38 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_38, 0, x_4);
|
|
lean::closure_set(x_38, 1, x_35);
|
|
x_39 = lean::cnstr_get(x_27, 3);
|
|
lean::inc(x_39);
|
|
lean::dec(x_27);
|
|
x_42 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_42, 0, x_31);
|
|
lean::cnstr_set(x_42, 1, x_33);
|
|
lean::cnstr_set(x_42, 2, x_38);
|
|
lean::cnstr_set(x_42, 3, x_39);
|
|
x_43 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_43, 0, x_42);
|
|
lean::cnstr_set_scalar(x_43, sizeof(void*)*1, x_29);
|
|
x_44 = x_43;
|
|
return x_44;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_4);
|
|
lean::dec(x_27);
|
|
return x_8;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_47; unsigned char x_48;
|
|
x_47 = lean::string_iterator_curr(x_0);
|
|
x_48 = _l_s4_char_s9_is__alpha(x_47);
|
|
if (x_48 == 0)
|
|
{
|
|
obj* x_49; obj* x_50; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_59;
|
|
x_49 = _l_s4_char_s11_quote__core(x_47);
|
|
x_50 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_50);
|
|
x_52 = lean::string_append(x_50, x_49);
|
|
lean::dec(x_49);
|
|
x_54 = lean::string_append(x_52, x_50);
|
|
x_55 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_56 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_55);
|
|
lean::inc(x_56);
|
|
x_59 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_54, x_56, x_55, x_55, x_0);
|
|
if (lean::obj_tag(x_59) == 0)
|
|
{
|
|
obj* x_60; obj* x_62; obj* x_64;
|
|
x_60 = lean::cnstr_get(x_59, 0);
|
|
lean::inc(x_60);
|
|
x_62 = lean::cnstr_get(x_59, 1);
|
|
lean::inc(x_62);
|
|
x_64 = lean::cnstr_get(x_59, 2);
|
|
lean::inc(x_64);
|
|
if (lean::obj_tag(x_64) == 0)
|
|
{
|
|
|
|
lean::dec(x_56);
|
|
lean::dec(x_60);
|
|
lean::dec(x_62);
|
|
lean::dec(x_64);
|
|
return x_59;
|
|
}
|
|
else
|
|
{
|
|
obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77;
|
|
lean::dec(x_59);
|
|
x_71 = lean::cnstr_get(x_64, 0);
|
|
lean::inc(x_71);
|
|
if (lean::is_shared(x_64)) {
|
|
lean::dec(x_64);
|
|
x_73 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_64, 0);
|
|
x_73 = x_64;
|
|
}
|
|
lean::inc(x_56);
|
|
x_75 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_75, 0, x_56);
|
|
lean::closure_set(x_75, 1, x_71);
|
|
if (lean::is_scalar(x_73)) {
|
|
x_76 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_76 = x_73;
|
|
}
|
|
lean::cnstr_set(x_76, 0, x_75);
|
|
x_77 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_77, 0, x_60);
|
|
lean::cnstr_set(x_77, 1, x_62);
|
|
lean::cnstr_set(x_77, 2, x_76);
|
|
return x_77;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_78; unsigned char x_80;
|
|
x_78 = lean::cnstr_get(x_59, 0);
|
|
lean::inc(x_78);
|
|
x_80 = lean::cnstr_get_scalar<unsigned char>(x_59, sizeof(void*)*1);
|
|
if (x_80 == 0)
|
|
{
|
|
obj* x_82; obj* x_84; obj* x_86; obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95;
|
|
lean::dec(x_59);
|
|
x_82 = lean::cnstr_get(x_78, 0);
|
|
lean::inc(x_82);
|
|
x_84 = lean::cnstr_get(x_78, 1);
|
|
lean::inc(x_84);
|
|
x_86 = lean::cnstr_get(x_78, 2);
|
|
lean::inc(x_86);
|
|
lean::inc(x_56);
|
|
x_89 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_89, 0, x_56);
|
|
lean::closure_set(x_89, 1, x_86);
|
|
x_90 = lean::cnstr_get(x_78, 3);
|
|
lean::inc(x_90);
|
|
lean::dec(x_78);
|
|
x_93 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_93, 0, x_82);
|
|
lean::cnstr_set(x_93, 1, x_84);
|
|
lean::cnstr_set(x_93, 2, x_89);
|
|
lean::cnstr_set(x_93, 3, x_90);
|
|
x_94 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_94, 0, x_93);
|
|
lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_80);
|
|
x_95 = x_94;
|
|
return x_95;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_56);
|
|
lean::dec(x_78);
|
|
return x_59;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_98; obj* x_99; obj* x_100; obj* x_101;
|
|
x_98 = lean::string_iterator_next(x_0);
|
|
x_99 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_100 = lean::box_uint32(x_47);
|
|
x_101 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_101, 0, x_100);
|
|
lean::cnstr_set(x_101, 1, x_98);
|
|
lean::cnstr_set(x_101, 2, x_99);
|
|
return x_101;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6(obj* x_0) {
|
|
{
|
|
obj* x_1; obj* x_2; obj* 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 (lean::obj_tag(x_3) == 0)
|
|
{
|
|
unsigned x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_18;
|
|
lean::dec(x_3);
|
|
x_7 = lean::string_iterator_curr(x_0);
|
|
x_8 = _l_s4_char_s11_quote__core(x_7);
|
|
x_9 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_9);
|
|
x_11 = lean::string_append(x_9, x_8);
|
|
lean::dec(x_8);
|
|
x_13 = lean::string_append(x_11, x_9);
|
|
x_14 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_15 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s6___rarg_s11___lambda__1_s11___closed__1;
|
|
lean::inc(x_14);
|
|
lean::inc(x_15);
|
|
x_18 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_13, x_15, x_14, x_14, x_0);
|
|
if (lean::obj_tag(x_18) == 0)
|
|
{
|
|
obj* x_19; obj* x_21; obj* x_23;
|
|
x_19 = lean::cnstr_get(x_18, 0);
|
|
lean::inc(x_19);
|
|
x_21 = lean::cnstr_get(x_18, 1);
|
|
lean::inc(x_21);
|
|
x_23 = lean::cnstr_get(x_18, 2);
|
|
lean::inc(x_23);
|
|
if (lean::obj_tag(x_23) == 0)
|
|
{
|
|
|
|
lean::dec(x_19);
|
|
lean::dec(x_21);
|
|
lean::dec(x_23);
|
|
return x_18;
|
|
}
|
|
else
|
|
{
|
|
obj* x_29; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36;
|
|
lean::dec(x_18);
|
|
x_29 = lean::cnstr_get(x_23, 0);
|
|
lean::inc(x_29);
|
|
if (lean::is_shared(x_23)) {
|
|
lean::dec(x_23);
|
|
x_31 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_23, 0);
|
|
x_31 = x_23;
|
|
}
|
|
x_32 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_32);
|
|
x_34 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_34, 0, x_32);
|
|
lean::closure_set(x_34, 1, x_29);
|
|
if (lean::is_scalar(x_31)) {
|
|
x_35 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_35 = x_31;
|
|
}
|
|
lean::cnstr_set(x_35, 0, x_34);
|
|
x_36 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_36, 0, x_19);
|
|
lean::cnstr_set(x_36, 1, x_21);
|
|
lean::cnstr_set(x_36, 2, x_35);
|
|
return x_36;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_37; unsigned char x_39;
|
|
x_37 = lean::cnstr_get(x_18, 0);
|
|
lean::inc(x_37);
|
|
x_39 = lean::cnstr_get_scalar<unsigned char>(x_18, sizeof(void*)*1);
|
|
if (x_39 == 0)
|
|
{
|
|
obj* x_41; obj* x_43; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_53; obj* x_54; obj* x_55;
|
|
lean::dec(x_18);
|
|
x_41 = lean::cnstr_get(x_37, 0);
|
|
lean::inc(x_41);
|
|
x_43 = lean::cnstr_get(x_37, 1);
|
|
lean::inc(x_43);
|
|
x_45 = lean::cnstr_get(x_37, 2);
|
|
lean::inc(x_45);
|
|
x_47 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_47);
|
|
x_49 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_49, 0, x_47);
|
|
lean::closure_set(x_49, 1, x_45);
|
|
x_50 = lean::cnstr_get(x_37, 3);
|
|
lean::inc(x_50);
|
|
lean::dec(x_37);
|
|
x_53 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_53, 0, x_41);
|
|
lean::cnstr_set(x_53, 1, x_43);
|
|
lean::cnstr_set(x_53, 2, x_49);
|
|
lean::cnstr_set(x_53, 3, x_50);
|
|
x_54 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_54, 0, x_53);
|
|
lean::cnstr_set_scalar(x_54, sizeof(void*)*1, x_39);
|
|
x_55 = x_54;
|
|
return x_55;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_37);
|
|
return x_18;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_58; obj* x_59; obj* x_60; obj* x_62;
|
|
lean::dec(x_3);
|
|
x_58 = 0;
|
|
x_59 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1;
|
|
x_60 = lean::box(x_58);
|
|
lean::inc(x_59);
|
|
x_62 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_62, 0, x_60);
|
|
lean::cnstr_set(x_62, 1, x_0);
|
|
lean::cnstr_set(x_62, 2, x_59);
|
|
return x_62;
|
|
}
|
|
}
|
|
}
|
|
obj* _init__l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1() {
|
|
{
|
|
obj* x_0; obj* x_1; obj* x_2;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(_l_s2_id_s6___rarg), 1, 0);
|
|
x_1 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_1, 0, x_0);
|
|
lean::closure_set(x_1, 1, x_0);
|
|
x_2 = lean::alloc_cnstr(1, 1, 0);
|
|
lean::cnstr_set(x_2, 0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s9___private_1496486805__s27_parse__mangled__string__aux(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3;
|
|
x_3 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s9___private_3162311557__s22_parse__mangled__string(obj* x_0) {
|
|
{
|
|
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_s6_string_s4_join_s11___closed__1;
|
|
lean::inc(x_2);
|
|
x_4 = _l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main(x_1, x_2, x_0);
|
|
x_5 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1;
|
|
lean::inc(x_5);
|
|
x_7 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_5, x_4);
|
|
return x_7;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_string_s8_demangle(obj* x_0) {
|
|
{
|
|
obj* x_1; obj* x_2; obj* x_5;
|
|
x_1 = _l_s4_lean_s6_string_s8_demangle_s11___closed__1;
|
|
x_2 = _l_s6_string_s4_join_s11___closed__1;
|
|
lean::inc(x_2);
|
|
lean::inc(x_1);
|
|
x_5 = _l_s4_lean_s6_parser_s9_parsec__t_s3_run_s4___at_s4_lean_s6_parser_s6_parsec_s5_parse_s9___spec__1_s6___rarg(x_1, x_0, x_2);
|
|
if (lean::obj_tag(x_5) == 0)
|
|
{
|
|
obj* x_7;
|
|
lean::dec(x_5);
|
|
x_7 = lean::alloc_cnstr(0, 0, 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_s4_lean_s6_string_s8_demangle_s11___closed__1() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::alloc_closure(reinterpret_cast<void*>(_l_s9___private_3162311557__s22_parse__mangled__string), 1, 0);
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(obj* x_0, obj* x_1) {
|
|
{
|
|
|
|
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_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(x_0, x_3);
|
|
x_9 = _l_s4_lean_s6_string_s6_mangle(x_5);
|
|
x_10 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1;
|
|
x_11 = lean::string_append(x_8, x_10);
|
|
x_12 = lean::string_length(x_9);
|
|
x_13 = _l_s3_nat_s4_repr(x_12);
|
|
x_14 = lean::string_append(x_11, x_13);
|
|
lean::dec(x_13);
|
|
x_16 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___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_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(x_0, x_20);
|
|
x_26 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__2;
|
|
x_27 = lean::string_append(x_25, x_26);
|
|
x_28 = _l_s3_nat_s4_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* _init__l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::mk_string("_s");
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__2() {
|
|
{
|
|
obj* x_0;
|
|
x_0 = lean::mk_string("_");
|
|
return x_0;
|
|
}
|
|
}
|
|
obj* _l_s9___private_1205956357__s4_name_s11_mangle__aux(obj* x_0, obj* x_1) {
|
|
{
|
|
obj* x_2;
|
|
x_2 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(x_0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s4_name_s6_mangle(obj* x_0, obj* x_1) {
|
|
{
|
|
obj* x_2;
|
|
x_2 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main(x_1, x_0);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_15; unsigned x_16;
|
|
lean::dec(x_4);
|
|
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::mk_nat_obj(95u);
|
|
x_11 = lean::mk_nat_obj(55296u);
|
|
x_12 = lean::nat_dec_lt(x_10, x_11);
|
|
lean::dec(x_11);
|
|
lean::inc(x_2);
|
|
x_15 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6(x_2);
|
|
if (lean::obj_tag(x_12) == 0)
|
|
{
|
|
obj* x_18; obj* x_19;
|
|
x_18 = lean::mk_nat_obj(57343u);
|
|
x_19 = lean::nat_dec_lt(x_18, x_10);
|
|
lean::dec(x_18);
|
|
if (lean::obj_tag(x_19) == 0)
|
|
{
|
|
unsigned x_22;
|
|
lean::dec(x_19);
|
|
x_22 = lean::unbox_uint32(x_3);
|
|
x_16 = x_22;
|
|
goto lbl_17;
|
|
}
|
|
else
|
|
{
|
|
obj* x_24; obj* x_25;
|
|
lean::dec(x_19);
|
|
x_24 = lean::mk_nat_obj(1114112u);
|
|
x_25 = lean::nat_dec_lt(x_10, x_24);
|
|
lean::dec(x_24);
|
|
if (lean::obj_tag(x_25) == 0)
|
|
{
|
|
unsigned x_28;
|
|
lean::dec(x_25);
|
|
x_28 = lean::unbox_uint32(x_3);
|
|
x_16 = x_28;
|
|
goto lbl_17;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_30;
|
|
lean::dec(x_25);
|
|
x_30 = lean::unbox_uint32(x_10);
|
|
x_16 = x_30;
|
|
goto lbl_17;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_31;
|
|
x_31 = lean::unbox_uint32(x_10);
|
|
x_16 = x_31;
|
|
goto lbl_17;
|
|
}
|
|
lbl_17:
|
|
{
|
|
obj* x_32;
|
|
if (lean::obj_tag(x_15) == 0)
|
|
{
|
|
obj* x_34; obj* x_36; obj* x_38; obj* x_39; obj* x_42; obj* x_43;
|
|
x_34 = lean::cnstr_get(x_15, 1);
|
|
lean::inc(x_34);
|
|
x_36 = lean::cnstr_get(x_15, 2);
|
|
lean::inc(x_36);
|
|
if (lean::is_shared(x_15)) {
|
|
lean::dec(x_15);
|
|
x_38 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_15, 0);
|
|
lean::cnstr_release(x_15, 1);
|
|
lean::cnstr_release(x_15, 2);
|
|
x_38 = x_15;
|
|
}
|
|
x_39 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_39);
|
|
lean::inc(x_1);
|
|
if (lean::is_scalar(x_38)) {
|
|
x_42 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_42 = x_38;
|
|
}
|
|
lean::cnstr_set(x_42, 0, x_1);
|
|
lean::cnstr_set(x_42, 1, x_34);
|
|
lean::cnstr_set(x_42, 2, x_39);
|
|
x_43 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_36, x_42);
|
|
x_32 = x_43;
|
|
goto lbl_33;
|
|
}
|
|
else
|
|
{
|
|
obj* x_44; unsigned char x_46; obj* x_47; obj* x_48; obj* x_49;
|
|
x_44 = lean::cnstr_get(x_15, 0);
|
|
lean::inc(x_44);
|
|
x_46 = lean::cnstr_get_scalar<unsigned char>(x_15, sizeof(void*)*1);
|
|
if (lean::is_shared(x_15)) {
|
|
lean::dec(x_15);
|
|
x_47 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_15, 0);
|
|
x_47 = x_15;
|
|
}
|
|
if (lean::is_scalar(x_47)) {
|
|
x_48 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_48 = x_47;
|
|
}
|
|
lean::cnstr_set(x_48, 0, x_44);
|
|
lean::cnstr_set_scalar(x_48, sizeof(void*)*1, x_46);
|
|
x_49 = x_48;
|
|
x_32 = x_49;
|
|
goto lbl_33;
|
|
}
|
|
lbl_33:
|
|
{
|
|
|
|
if (lean::obj_tag(x_32) == 0)
|
|
{
|
|
|
|
lean::dec(x_12);
|
|
lean::dec(x_7);
|
|
lean::dec(x_10);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
return x_32;
|
|
}
|
|
else
|
|
{
|
|
obj* x_56; unsigned char x_58; obj* x_59; obj* x_60; unsigned char x_61;
|
|
x_56 = lean::cnstr_get(x_32, 0);
|
|
lean::inc(x_56);
|
|
x_58 = lean::cnstr_get_scalar<unsigned char>(x_32, sizeof(void*)*1);
|
|
if (x_58 == 0)
|
|
{
|
|
obj* x_64; obj* x_65; obj* x_69;
|
|
lean::dec(x_32);
|
|
x_64 = _l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1;
|
|
x_65 = _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s11___closed__1;
|
|
lean::inc(x_2);
|
|
lean::inc(x_65);
|
|
lean::inc(x_64);
|
|
x_69 = _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__1(x_64, x_65, x_2);
|
|
if (lean::obj_tag(x_69) == 0)
|
|
{
|
|
obj* x_70; obj* x_72; obj* x_74; obj* x_75;
|
|
x_70 = lean::cnstr_get(x_69, 1);
|
|
lean::inc(x_70);
|
|
x_72 = lean::cnstr_get(x_69, 2);
|
|
lean::inc(x_72);
|
|
if (lean::is_shared(x_69)) {
|
|
lean::dec(x_69);
|
|
x_74 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_69, 0);
|
|
lean::cnstr_release(x_69, 1);
|
|
lean::cnstr_release(x_69, 2);
|
|
x_74 = x_69;
|
|
}
|
|
x_75 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_num_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__2(x_70);
|
|
if (lean::obj_tag(x_75) == 0)
|
|
{
|
|
obj* x_76; obj* x_78; obj* x_80; unsigned x_83;
|
|
x_76 = lean::cnstr_get(x_75, 0);
|
|
lean::inc(x_76);
|
|
x_78 = lean::cnstr_get(x_75, 1);
|
|
lean::inc(x_78);
|
|
x_80 = lean::cnstr_get(x_75, 2);
|
|
lean::inc(x_80);
|
|
lean::dec(x_75);
|
|
if (lean::obj_tag(x_12) == 0)
|
|
{
|
|
obj* x_86; obj* x_87;
|
|
lean::dec(x_12);
|
|
x_86 = lean::mk_nat_obj(57343u);
|
|
x_87 = lean::nat_dec_lt(x_86, x_10);
|
|
lean::dec(x_86);
|
|
if (lean::obj_tag(x_87) == 0)
|
|
{
|
|
unsigned x_91;
|
|
lean::dec(x_87);
|
|
lean::dec(x_10);
|
|
x_91 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_83 = x_91;
|
|
goto lbl_84;
|
|
}
|
|
else
|
|
{
|
|
obj* x_94; obj* x_95;
|
|
lean::dec(x_87);
|
|
x_94 = lean::mk_nat_obj(1114112u);
|
|
x_95 = lean::nat_dec_lt(x_10, x_94);
|
|
lean::dec(x_94);
|
|
if (lean::obj_tag(x_95) == 0)
|
|
{
|
|
unsigned x_99;
|
|
lean::dec(x_95);
|
|
lean::dec(x_10);
|
|
x_99 = lean::unbox_uint32(x_3);
|
|
lean::dec(x_3);
|
|
x_83 = x_99;
|
|
goto lbl_84;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_103;
|
|
lean::dec(x_95);
|
|
lean::dec(x_3);
|
|
x_103 = lean::unbox_uint32(x_10);
|
|
lean::dec(x_10);
|
|
x_83 = x_103;
|
|
goto lbl_84;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_107;
|
|
lean::dec(x_12);
|
|
lean::dec(x_3);
|
|
x_107 = lean::unbox_uint32(x_10);
|
|
lean::dec(x_10);
|
|
x_83 = x_107;
|
|
goto lbl_84;
|
|
}
|
|
lbl_84:
|
|
{
|
|
obj* x_109;
|
|
x_109 = _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(x_83, x_78);
|
|
if (lean::obj_tag(x_109) == 0)
|
|
{
|
|
obj* x_110; obj* x_112; obj* x_115;
|
|
x_110 = lean::cnstr_get(x_109, 1);
|
|
lean::inc(x_110);
|
|
x_112 = lean::cnstr_get(x_109, 2);
|
|
lean::inc(x_112);
|
|
lean::dec(x_109);
|
|
x_115 = _l_s4_lean_s6_parser_s13_monad__parsec_s4_take_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__18(x_76, x_110);
|
|
if (lean::obj_tag(x_115) == 0)
|
|
{
|
|
obj* x_116; obj* x_118; obj* x_120; obj* x_123; obj* x_124; obj* x_126; obj* x_127;
|
|
x_116 = lean::cnstr_get(x_115, 0);
|
|
lean::inc(x_116);
|
|
x_118 = lean::cnstr_get(x_115, 1);
|
|
lean::inc(x_118);
|
|
x_120 = lean::cnstr_get(x_115, 2);
|
|
lean::inc(x_120);
|
|
lean::dec(x_115);
|
|
x_123 = _l_s4_lean_s6_string_s8_demangle(x_116);
|
|
x_124 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_124);
|
|
if (lean::is_scalar(x_74)) {
|
|
x_126 = lean::alloc_cnstr(0, 3, 0);
|
|
} else {
|
|
x_126 = x_74;
|
|
}
|
|
lean::cnstr_set(x_126, 0, x_123);
|
|
lean::cnstr_set(x_126, 1, x_118);
|
|
lean::cnstr_set(x_126, 2, x_124);
|
|
x_127 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_120, x_126);
|
|
if (lean::obj_tag(x_127) == 0)
|
|
{
|
|
obj* x_128; obj* x_130; obj* x_132;
|
|
x_128 = lean::cnstr_get(x_127, 0);
|
|
lean::inc(x_128);
|
|
x_130 = lean::cnstr_get(x_127, 1);
|
|
lean::inc(x_130);
|
|
x_132 = lean::cnstr_get(x_127, 2);
|
|
lean::inc(x_132);
|
|
lean::dec(x_127);
|
|
if (lean::obj_tag(x_128) == 0)
|
|
{
|
|
obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140;
|
|
lean::dec(x_128);
|
|
x_136 = _l_s13_match__failed_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__19(x_130);
|
|
x_137 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_132, x_136);
|
|
x_138 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_112, x_137);
|
|
x_139 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_80, x_138);
|
|
x_140 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_139);
|
|
if (lean::obj_tag(x_140) == 0)
|
|
{
|
|
obj* x_144;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_144 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_140);
|
|
return x_144;
|
|
}
|
|
else
|
|
{
|
|
obj* x_145; unsigned char x_147;
|
|
x_145 = lean::cnstr_get(x_140, 0);
|
|
lean::inc(x_145);
|
|
x_147 = lean::cnstr_get_scalar<unsigned char>(x_140, sizeof(void*)*1);
|
|
x_59 = x_140;
|
|
x_60 = x_145;
|
|
x_61 = x_147;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_148; obj* x_152; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158;
|
|
x_148 = lean::cnstr_get(x_128, 0);
|
|
lean::inc(x_148);
|
|
lean::dec(x_128);
|
|
lean::inc(x_1);
|
|
x_152 = lean::alloc_cnstr(1, 2, 0);
|
|
lean::cnstr_set(x_152, 0, x_1);
|
|
lean::cnstr_set(x_152, 1, x_148);
|
|
lean::inc(x_7);
|
|
x_154 = _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(x_7, x_152, x_130);
|
|
x_155 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_132, x_154);
|
|
x_156 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_112, x_155);
|
|
x_157 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_80, x_156);
|
|
x_158 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_157);
|
|
if (lean::obj_tag(x_158) == 0)
|
|
{
|
|
obj* x_162;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_162 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_158);
|
|
return x_162;
|
|
}
|
|
else
|
|
{
|
|
obj* x_163; unsigned char x_165;
|
|
x_163 = lean::cnstr_get(x_158, 0);
|
|
lean::inc(x_163);
|
|
x_165 = lean::cnstr_get_scalar<unsigned char>(x_158, sizeof(void*)*1);
|
|
x_59 = x_158;
|
|
x_60 = x_163;
|
|
x_61 = x_165;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_166; unsigned char x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174;
|
|
x_166 = lean::cnstr_get(x_127, 0);
|
|
lean::inc(x_166);
|
|
x_168 = lean::cnstr_get_scalar<unsigned char>(x_127, sizeof(void*)*1);
|
|
if (lean::is_shared(x_127)) {
|
|
lean::dec(x_127);
|
|
x_169 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_127, 0);
|
|
x_169 = x_127;
|
|
}
|
|
if (lean::is_scalar(x_169)) {
|
|
x_170 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_170 = x_169;
|
|
}
|
|
lean::cnstr_set(x_170, 0, x_166);
|
|
lean::cnstr_set_scalar(x_170, sizeof(void*)*1, x_168);
|
|
x_171 = x_170;
|
|
x_172 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_112, x_171);
|
|
x_173 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_80, x_172);
|
|
x_174 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_173);
|
|
if (lean::obj_tag(x_174) == 0)
|
|
{
|
|
obj* x_178;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_178 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_174);
|
|
return x_178;
|
|
}
|
|
else
|
|
{
|
|
obj* x_179; unsigned char x_181;
|
|
x_179 = lean::cnstr_get(x_174, 0);
|
|
lean::inc(x_179);
|
|
x_181 = lean::cnstr_get_scalar<unsigned char>(x_174, sizeof(void*)*1);
|
|
x_59 = x_174;
|
|
x_60 = x_179;
|
|
x_61 = x_181;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_183; unsigned char x_185; obj* x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_191;
|
|
lean::dec(x_74);
|
|
x_183 = lean::cnstr_get(x_115, 0);
|
|
lean::inc(x_183);
|
|
x_185 = lean::cnstr_get_scalar<unsigned char>(x_115, sizeof(void*)*1);
|
|
if (lean::is_shared(x_115)) {
|
|
lean::dec(x_115);
|
|
x_186 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_115, 0);
|
|
x_186 = x_115;
|
|
}
|
|
if (lean::is_scalar(x_186)) {
|
|
x_187 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_187 = x_186;
|
|
}
|
|
lean::cnstr_set(x_187, 0, x_183);
|
|
lean::cnstr_set_scalar(x_187, sizeof(void*)*1, x_185);
|
|
x_188 = x_187;
|
|
x_189 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_112, x_188);
|
|
x_190 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_80, x_189);
|
|
x_191 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_190);
|
|
if (lean::obj_tag(x_191) == 0)
|
|
{
|
|
obj* x_195;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_195 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_191);
|
|
return x_195;
|
|
}
|
|
else
|
|
{
|
|
obj* x_196; unsigned char x_198;
|
|
x_196 = lean::cnstr_get(x_191, 0);
|
|
lean::inc(x_196);
|
|
x_198 = lean::cnstr_get_scalar<unsigned char>(x_191, sizeof(void*)*1);
|
|
x_59 = x_191;
|
|
x_60 = x_196;
|
|
x_61 = x_198;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_201; unsigned char x_203; obj* x_204; obj* x_205; obj* x_206; obj* x_207; obj* x_208;
|
|
lean::dec(x_74);
|
|
lean::dec(x_76);
|
|
x_201 = lean::cnstr_get(x_109, 0);
|
|
lean::inc(x_201);
|
|
x_203 = lean::cnstr_get_scalar<unsigned char>(x_109, sizeof(void*)*1);
|
|
if (lean::is_shared(x_109)) {
|
|
lean::dec(x_109);
|
|
x_204 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_109, 0);
|
|
x_204 = x_109;
|
|
}
|
|
if (lean::is_scalar(x_204)) {
|
|
x_205 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_205 = x_204;
|
|
}
|
|
lean::cnstr_set(x_205, 0, x_201);
|
|
lean::cnstr_set_scalar(x_205, sizeof(void*)*1, x_203);
|
|
x_206 = x_205;
|
|
x_207 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_80, x_206);
|
|
x_208 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_207);
|
|
if (lean::obj_tag(x_208) == 0)
|
|
{
|
|
obj* x_212;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_212 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_208);
|
|
return x_212;
|
|
}
|
|
else
|
|
{
|
|
obj* x_213; unsigned char x_215;
|
|
x_213 = lean::cnstr_get(x_208, 0);
|
|
lean::inc(x_213);
|
|
x_215 = lean::cnstr_get_scalar<unsigned char>(x_208, sizeof(void*)*1);
|
|
x_59 = x_208;
|
|
x_60 = x_213;
|
|
x_61 = x_215;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_220; unsigned char x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226;
|
|
lean::dec(x_12);
|
|
lean::dec(x_74);
|
|
lean::dec(x_10);
|
|
lean::dec(x_3);
|
|
x_220 = lean::cnstr_get(x_75, 0);
|
|
lean::inc(x_220);
|
|
x_222 = lean::cnstr_get_scalar<unsigned char>(x_75, sizeof(void*)*1);
|
|
if (lean::is_shared(x_75)) {
|
|
lean::dec(x_75);
|
|
x_223 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_75, 0);
|
|
x_223 = x_75;
|
|
}
|
|
if (lean::is_scalar(x_223)) {
|
|
x_224 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_224 = x_223;
|
|
}
|
|
lean::cnstr_set(x_224, 0, x_220);
|
|
lean::cnstr_set_scalar(x_224, sizeof(void*)*1, x_222);
|
|
x_225 = x_224;
|
|
x_226 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_72, x_225);
|
|
if (lean::obj_tag(x_226) == 0)
|
|
{
|
|
obj* x_230;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_230 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_226);
|
|
return x_230;
|
|
}
|
|
else
|
|
{
|
|
obj* x_231; unsigned char x_233;
|
|
x_231 = lean::cnstr_get(x_226, 0);
|
|
lean::inc(x_231);
|
|
x_233 = lean::cnstr_get_scalar<unsigned char>(x_226, sizeof(void*)*1);
|
|
x_59 = x_226;
|
|
x_60 = x_231;
|
|
x_61 = x_233;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_237; unsigned char x_239; obj* x_240; obj* x_242; obj* x_243;
|
|
lean::dec(x_12);
|
|
lean::dec(x_10);
|
|
lean::dec(x_3);
|
|
x_237 = lean::cnstr_get(x_69, 0);
|
|
lean::inc(x_237);
|
|
x_239 = lean::cnstr_get_scalar<unsigned char>(x_69, sizeof(void*)*1);
|
|
if (lean::is_shared(x_69)) {
|
|
lean::dec(x_69);
|
|
x_240 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_69, 0);
|
|
x_240 = x_69;
|
|
}
|
|
lean::inc(x_237);
|
|
if (lean::is_scalar(x_240)) {
|
|
x_242 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_242 = x_240;
|
|
}
|
|
lean::cnstr_set(x_242, 0, x_237);
|
|
lean::cnstr_set_scalar(x_242, sizeof(void*)*1, x_239);
|
|
x_243 = x_242;
|
|
x_59 = x_243;
|
|
x_60 = x_237;
|
|
x_61 = x_239;
|
|
goto lbl_62;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_12);
|
|
lean::dec(x_7);
|
|
lean::dec(x_10);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
lean::dec(x_3);
|
|
lean::dec(x_56);
|
|
return x_32;
|
|
}
|
|
lbl_62:
|
|
{
|
|
|
|
if (x_61 == 0)
|
|
{
|
|
obj* x_252;
|
|
lean::dec(x_59);
|
|
x_252 = _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(x_16, x_2);
|
|
if (lean::obj_tag(x_252) == 0)
|
|
{
|
|
obj* x_253; obj* x_255; obj* x_258;
|
|
x_253 = lean::cnstr_get(x_252, 1);
|
|
lean::inc(x_253);
|
|
x_255 = lean::cnstr_get(x_252, 2);
|
|
lean::inc(x_255);
|
|
lean::dec(x_252);
|
|
x_258 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_num_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__2(x_253);
|
|
if (lean::obj_tag(x_258) == 0)
|
|
{
|
|
obj* x_259; obj* x_261; obj* x_263; obj* x_266;
|
|
x_259 = lean::cnstr_get(x_258, 0);
|
|
lean::inc(x_259);
|
|
x_261 = lean::cnstr_get(x_258, 1);
|
|
lean::inc(x_261);
|
|
x_263 = lean::cnstr_get(x_258, 2);
|
|
lean::inc(x_263);
|
|
lean::dec(x_258);
|
|
x_266 = _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(x_16, x_261);
|
|
if (lean::obj_tag(x_266) == 0)
|
|
{
|
|
obj* x_267; obj* x_269; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; obj* x_277; obj* x_278;
|
|
x_267 = lean::cnstr_get(x_266, 1);
|
|
lean::inc(x_267);
|
|
x_269 = lean::cnstr_get(x_266, 2);
|
|
lean::inc(x_269);
|
|
lean::dec(x_266);
|
|
x_272 = lean::alloc_cnstr(2, 2, 0);
|
|
lean::cnstr_set(x_272, 0, x_1);
|
|
lean::cnstr_set(x_272, 1, x_259);
|
|
x_273 = _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(x_7, x_272, x_267);
|
|
x_274 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_269, x_273);
|
|
x_275 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_263, x_274);
|
|
x_276 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_255, x_275);
|
|
x_277 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_60, x_276);
|
|
x_278 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_277);
|
|
return x_278;
|
|
}
|
|
else
|
|
{
|
|
obj* x_282; unsigned char x_284; obj* x_285; obj* x_286; obj* x_287; obj* x_288; obj* x_289; obj* x_290; obj* x_291;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_259);
|
|
x_282 = lean::cnstr_get(x_266, 0);
|
|
lean::inc(x_282);
|
|
x_284 = lean::cnstr_get_scalar<unsigned char>(x_266, sizeof(void*)*1);
|
|
if (lean::is_shared(x_266)) {
|
|
lean::dec(x_266);
|
|
x_285 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_266, 0);
|
|
x_285 = x_266;
|
|
}
|
|
if (lean::is_scalar(x_285)) {
|
|
x_286 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_286 = x_285;
|
|
}
|
|
lean::cnstr_set(x_286, 0, x_282);
|
|
lean::cnstr_set_scalar(x_286, sizeof(void*)*1, x_284);
|
|
x_287 = x_286;
|
|
x_288 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_263, x_287);
|
|
x_289 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_255, x_288);
|
|
x_290 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_60, x_289);
|
|
x_291 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_290);
|
|
return x_291;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_294; unsigned char x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; obj* x_302;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
x_294 = lean::cnstr_get(x_258, 0);
|
|
lean::inc(x_294);
|
|
x_296 = lean::cnstr_get_scalar<unsigned char>(x_258, sizeof(void*)*1);
|
|
if (lean::is_shared(x_258)) {
|
|
lean::dec(x_258);
|
|
x_297 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_258, 0);
|
|
x_297 = x_258;
|
|
}
|
|
if (lean::is_scalar(x_297)) {
|
|
x_298 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_298 = x_297;
|
|
}
|
|
lean::cnstr_set(x_298, 0, x_294);
|
|
lean::cnstr_set_scalar(x_298, sizeof(void*)*1, x_296);
|
|
x_299 = x_298;
|
|
x_300 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_255, x_299);
|
|
x_301 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_60, x_300);
|
|
x_302 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_301);
|
|
return x_302;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_305; unsigned char x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; obj* x_312;
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
x_305 = lean::cnstr_get(x_252, 0);
|
|
lean::inc(x_305);
|
|
x_307 = lean::cnstr_get_scalar<unsigned char>(x_252, sizeof(void*)*1);
|
|
if (lean::is_shared(x_252)) {
|
|
lean::dec(x_252);
|
|
x_308 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_252, 0);
|
|
x_308 = x_252;
|
|
}
|
|
if (lean::is_scalar(x_308)) {
|
|
x_309 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_309 = x_308;
|
|
}
|
|
lean::cnstr_set(x_309, 0, x_305);
|
|
lean::cnstr_set_scalar(x_309, sizeof(void*)*1, x_307);
|
|
x_310 = x_309;
|
|
x_311 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_60, x_310);
|
|
x_312 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_311);
|
|
return x_312;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_317;
|
|
lean::dec(x_60);
|
|
lean::dec(x_7);
|
|
lean::dec(x_1);
|
|
lean::dec(x_2);
|
|
x_317 = _l_s4_lean_s6_parser_s9_parsec__t_s15_orelse__mk__res_s6___rarg(x_56, x_59);
|
|
return x_317;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_321; obj* x_323;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
lean::dec(x_3);
|
|
x_321 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_321);
|
|
x_323 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_323, 0, x_1);
|
|
lean::cnstr_set(x_323, 1, x_2);
|
|
lean::cnstr_set(x_323, 2, x_321);
|
|
return x_323;
|
|
}
|
|
}
|
|
}
|
|
obj* _init__l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s11___closed__1() {
|
|
{
|
|
obj* x_0; obj* x_1; obj* x_2;
|
|
x_0 = lean::mk_string("_s");
|
|
x_1 = _l_s6_string_s5_quote(x_0);
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_2, 0, x_1);
|
|
return x_2;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(unsigned x_0, obj* x_1) {
|
|
{
|
|
unsigned char 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;
|
|
x_3 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_4 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_5 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_3);
|
|
lean::inc(x_5);
|
|
lean::inc(x_4);
|
|
x_9 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_4, x_5, x_3, x_3, x_1);
|
|
if (lean::obj_tag(x_9) == 0)
|
|
{
|
|
obj* x_10; obj* x_12; obj* x_14;
|
|
x_10 = lean::cnstr_get(x_9, 0);
|
|
lean::inc(x_10);
|
|
x_12 = lean::cnstr_get(x_9, 1);
|
|
lean::inc(x_12);
|
|
x_14 = lean::cnstr_get(x_9, 2);
|
|
lean::inc(x_14);
|
|
if (lean::obj_tag(x_14) == 0)
|
|
{
|
|
|
|
lean::dec(x_12);
|
|
lean::dec(x_14);
|
|
lean::dec(x_5);
|
|
lean::dec(x_10);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_27;
|
|
lean::dec(x_9);
|
|
x_21 = lean::cnstr_get(x_14, 0);
|
|
lean::inc(x_21);
|
|
if (lean::is_shared(x_14)) {
|
|
lean::dec(x_14);
|
|
x_23 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_14, 0);
|
|
x_23 = x_14;
|
|
}
|
|
lean::inc(x_5);
|
|
x_25 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_25, 0, x_5);
|
|
lean::closure_set(x_25, 1, x_21);
|
|
if (lean::is_scalar(x_23)) {
|
|
x_26 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_26 = x_23;
|
|
}
|
|
lean::cnstr_set(x_26, 0, x_25);
|
|
x_27 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_27, 0, x_10);
|
|
lean::cnstr_set(x_27, 1, x_12);
|
|
lean::cnstr_set(x_27, 2, x_26);
|
|
return x_27;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_28; unsigned char x_30;
|
|
x_28 = lean::cnstr_get(x_9, 0);
|
|
lean::inc(x_28);
|
|
x_30 = lean::cnstr_get_scalar<unsigned char>(x_9, sizeof(void*)*1);
|
|
if (x_30 == 0)
|
|
{
|
|
obj* x_32; obj* x_34; obj* x_36; obj* x_39; obj* x_40; obj* x_43; obj* x_44; obj* x_45;
|
|
lean::dec(x_9);
|
|
x_32 = lean::cnstr_get(x_28, 0);
|
|
lean::inc(x_32);
|
|
x_34 = lean::cnstr_get(x_28, 1);
|
|
lean::inc(x_34);
|
|
x_36 = lean::cnstr_get(x_28, 2);
|
|
lean::inc(x_36);
|
|
lean::inc(x_5);
|
|
x_39 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_39, 0, x_5);
|
|
lean::closure_set(x_39, 1, x_36);
|
|
x_40 = lean::cnstr_get(x_28, 3);
|
|
lean::inc(x_40);
|
|
lean::dec(x_28);
|
|
x_43 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_43, 0, x_32);
|
|
lean::cnstr_set(x_43, 1, x_34);
|
|
lean::cnstr_set(x_43, 2, x_39);
|
|
lean::cnstr_set(x_43, 3, x_40);
|
|
x_44 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_44, 0, x_43);
|
|
lean::cnstr_set_scalar(x_44, sizeof(void*)*1, x_30);
|
|
x_45 = x_44;
|
|
return x_45;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_5);
|
|
lean::dec(x_28);
|
|
return x_9;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_48; obj* x_49; obj* x_50; obj* x_51;
|
|
x_48 = lean::string_iterator_curr(x_1);
|
|
x_49 = lean::box_uint32(x_48);
|
|
x_50 = lean::box_uint32(x_0);
|
|
x_51 = lean::nat_dec_eq(x_49, x_50);
|
|
lean::dec(x_50);
|
|
if (lean::obj_tag(x_51) == 0)
|
|
{
|
|
obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_65;
|
|
lean::dec(x_49);
|
|
lean::dec(x_51);
|
|
x_55 = _l_s4_char_s11_quote__core(x_48);
|
|
x_56 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_56);
|
|
x_58 = lean::string_append(x_56, x_55);
|
|
lean::dec(x_55);
|
|
x_60 = lean::string_append(x_58, x_56);
|
|
x_61 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_62 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_61);
|
|
lean::inc(x_62);
|
|
x_65 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_60, x_62, x_61, x_61, x_1);
|
|
if (lean::obj_tag(x_65) == 0)
|
|
{
|
|
obj* x_66; obj* x_68; obj* x_70;
|
|
x_66 = lean::cnstr_get(x_65, 0);
|
|
lean::inc(x_66);
|
|
x_68 = lean::cnstr_get(x_65, 1);
|
|
lean::inc(x_68);
|
|
x_70 = lean::cnstr_get(x_65, 2);
|
|
lean::inc(x_70);
|
|
if (lean::obj_tag(x_70) == 0)
|
|
{
|
|
|
|
lean::dec(x_68);
|
|
lean::dec(x_70);
|
|
lean::dec(x_62);
|
|
lean::dec(x_66);
|
|
return x_65;
|
|
}
|
|
else
|
|
{
|
|
obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83;
|
|
lean::dec(x_65);
|
|
x_77 = lean::cnstr_get(x_70, 0);
|
|
lean::inc(x_77);
|
|
if (lean::is_shared(x_70)) {
|
|
lean::dec(x_70);
|
|
x_79 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_70, 0);
|
|
x_79 = x_70;
|
|
}
|
|
lean::inc(x_62);
|
|
x_81 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_81, 0, x_62);
|
|
lean::closure_set(x_81, 1, x_77);
|
|
if (lean::is_scalar(x_79)) {
|
|
x_82 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_82 = x_79;
|
|
}
|
|
lean::cnstr_set(x_82, 0, x_81);
|
|
x_83 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_83, 0, x_66);
|
|
lean::cnstr_set(x_83, 1, x_68);
|
|
lean::cnstr_set(x_83, 2, x_82);
|
|
return x_83;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_84; unsigned char x_86;
|
|
x_84 = lean::cnstr_get(x_65, 0);
|
|
lean::inc(x_84);
|
|
x_86 = lean::cnstr_get_scalar<unsigned char>(x_65, sizeof(void*)*1);
|
|
if (x_86 == 0)
|
|
{
|
|
obj* x_88; obj* x_90; obj* x_92; obj* x_95; obj* x_96; obj* x_99; obj* x_100; obj* x_101;
|
|
lean::dec(x_65);
|
|
x_88 = lean::cnstr_get(x_84, 0);
|
|
lean::inc(x_88);
|
|
x_90 = lean::cnstr_get(x_84, 1);
|
|
lean::inc(x_90);
|
|
x_92 = lean::cnstr_get(x_84, 2);
|
|
lean::inc(x_92);
|
|
lean::inc(x_62);
|
|
x_95 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_95, 0, x_62);
|
|
lean::closure_set(x_95, 1, x_92);
|
|
x_96 = lean::cnstr_get(x_84, 3);
|
|
lean::inc(x_96);
|
|
lean::dec(x_84);
|
|
x_99 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_99, 0, x_88);
|
|
lean::cnstr_set(x_99, 1, x_90);
|
|
lean::cnstr_set(x_99, 2, x_95);
|
|
lean::cnstr_set(x_99, 3, x_96);
|
|
x_100 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_100, 0, x_99);
|
|
lean::cnstr_set_scalar(x_100, sizeof(void*)*1, x_86);
|
|
x_101 = x_100;
|
|
return x_101;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_84);
|
|
lean::dec(x_62);
|
|
return x_65;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_105; obj* x_106; obj* x_107;
|
|
lean::dec(x_51);
|
|
x_105 = lean::string_iterator_next(x_1);
|
|
x_106 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_107 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_107, 0, x_49);
|
|
lean::cnstr_set(x_107, 1, x_105);
|
|
lean::cnstr_set(x_107, 2, x_106);
|
|
return x_107;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__5(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__5(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__5(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__7(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__7(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__7(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__9(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__9(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__9(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__11(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__11(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__11(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__13(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__13(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__13(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__15(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__15(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14(unsigned x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_4; obj* x_5; obj* x_6;
|
|
x_2 = _l_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__15(x_5, x_4, x_1);
|
|
return x_6;
|
|
}
|
|
}
|
|
obj* _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__17(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3; obj* x_4;
|
|
x_3 = lean::mk_nat_obj(0u);
|
|
x_4 = lean::nat_dec_eq(x_0, x_3);
|
|
lean::dec(x_3);
|
|
if (lean::obj_tag(x_4) == 0)
|
|
{
|
|
unsigned char x_7;
|
|
lean::dec(x_4);
|
|
x_7 = lean::string_iterator_has_next(x_2);
|
|
if (x_7 == 0)
|
|
{
|
|
obj* x_9;
|
|
lean::dec(x_0);
|
|
x_9 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_9;
|
|
}
|
|
else
|
|
{
|
|
unsigned x_10; unsigned char x_11;
|
|
x_10 = lean::string_iterator_curr(x_2);
|
|
x_11 = _l_s4_char_s9_is__digit(x_10);
|
|
if (x_11 == 0)
|
|
{
|
|
obj* x_13;
|
|
lean::dec(x_0);
|
|
x_13 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20;
|
|
x_14 = lean::mk_nat_obj(1u);
|
|
x_15 = lean::nat_sub(x_0, x_14);
|
|
lean::dec(x_14);
|
|
lean::dec(x_0);
|
|
x_18 = lean::string_push(x_1, x_10);
|
|
x_19 = lean::string_iterator_next(x_2);
|
|
x_20 = _l_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__17(x_15, x_18, x_19);
|
|
return x_20;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_23;
|
|
lean::dec(x_4);
|
|
lean::dec(x_0);
|
|
x_23 = _l_s9___private_2142412293__s18_mk__string__result_s6___rarg(x_1, x_2);
|
|
return x_23;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__16(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned 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_s6_string_s4_join_s11___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_s9___private_31565857__s16_take__while__aux_s6___main_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__17(x_7, x_6, x_1);
|
|
return x_8;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s12_take__while1_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__3(obj* x_0) {
|
|
{
|
|
unsigned char 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;
|
|
x_2 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s10_eoi__error_s6___rarg_s11___closed__1;
|
|
x_4 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_2);
|
|
lean::inc(x_4);
|
|
lean::inc(x_3);
|
|
x_8 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_3, x_4, x_2, x_2, x_0);
|
|
if (lean::obj_tag(x_8) == 0)
|
|
{
|
|
obj* x_9; obj* x_11; obj* x_13;
|
|
x_9 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_9);
|
|
x_11 = lean::cnstr_get(x_8, 1);
|
|
lean::inc(x_11);
|
|
x_13 = lean::cnstr_get(x_8, 2);
|
|
lean::inc(x_13);
|
|
if (lean::obj_tag(x_13) == 0)
|
|
{
|
|
|
|
lean::dec(x_4);
|
|
if (lean::obj_tag(x_8) == 0)
|
|
{
|
|
unsigned x_17; obj* x_19; obj* x_20;
|
|
lean::dec(x_8);
|
|
x_17 = lean::unbox_uint32(x_9);
|
|
lean::dec(x_9);
|
|
x_19 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4(x_17, x_11);
|
|
x_20 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_13, x_19);
|
|
return x_20;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_23; obj* x_24; obj* x_25; obj* x_26;
|
|
lean::dec(x_13);
|
|
lean::dec(x_11);
|
|
x_23 = lean::cnstr_get_scalar<unsigned char>(x_8, sizeof(void*)*1);
|
|
if (lean::is_shared(x_8)) {
|
|
lean::dec(x_8);
|
|
x_24 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_8, 0);
|
|
x_24 = x_8;
|
|
}
|
|
if (lean::is_scalar(x_24)) {
|
|
x_25 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_25 = x_24;
|
|
}
|
|
lean::cnstr_set(x_25, 0, x_9);
|
|
lean::cnstr_set_scalar(x_25, sizeof(void*)*1, x_23);
|
|
x_26 = x_25;
|
|
return x_26;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_28; obj* x_30; obj* x_32; obj* x_33; unsigned x_34; obj* x_36; obj* x_37;
|
|
lean::dec(x_8);
|
|
x_28 = lean::cnstr_get(x_13, 0);
|
|
lean::inc(x_28);
|
|
if (lean::is_shared(x_13)) {
|
|
lean::dec(x_13);
|
|
x_30 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_13, 0);
|
|
x_30 = x_13;
|
|
}
|
|
lean::inc(x_4);
|
|
x_32 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_32, 0, x_4);
|
|
lean::closure_set(x_32, 1, x_28);
|
|
if (lean::is_scalar(x_30)) {
|
|
x_33 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_33 = x_30;
|
|
}
|
|
lean::cnstr_set(x_33, 0, x_32);
|
|
x_34 = lean::unbox_uint32(x_9);
|
|
lean::dec(x_9);
|
|
x_36 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6(x_34, x_11);
|
|
x_37 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_33, x_36);
|
|
return x_37;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_38; unsigned char x_40;
|
|
x_38 = lean::cnstr_get(x_8, 0);
|
|
lean::inc(x_38);
|
|
x_40 = lean::cnstr_get_scalar<unsigned char>(x_8, sizeof(void*)*1);
|
|
if (x_40 == 0)
|
|
{
|
|
obj* x_42; obj* x_44; obj* x_46; obj* x_49; obj* x_50; obj* x_53; obj* x_54; obj* x_55;
|
|
lean::dec(x_8);
|
|
x_42 = lean::cnstr_get(x_38, 0);
|
|
lean::inc(x_42);
|
|
x_44 = lean::cnstr_get(x_38, 1);
|
|
lean::inc(x_44);
|
|
x_46 = lean::cnstr_get(x_38, 2);
|
|
lean::inc(x_46);
|
|
lean::inc(x_4);
|
|
x_49 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_49, 0, x_4);
|
|
lean::closure_set(x_49, 1, x_46);
|
|
x_50 = lean::cnstr_get(x_38, 3);
|
|
lean::inc(x_50);
|
|
lean::dec(x_38);
|
|
x_53 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_53, 0, x_42);
|
|
lean::cnstr_set(x_53, 1, x_44);
|
|
lean::cnstr_set(x_53, 2, x_49);
|
|
lean::cnstr_set(x_53, 3, x_50);
|
|
x_54 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_54, 0, x_53);
|
|
lean::cnstr_set_scalar(x_54, sizeof(void*)*1, x_40);
|
|
x_55 = x_54;
|
|
return x_55;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_4);
|
|
if (lean::obj_tag(x_8) == 0)
|
|
{
|
|
obj* x_57; obj* x_59; unsigned x_62; obj* x_64; obj* x_65;
|
|
x_57 = lean::cnstr_get(x_8, 1);
|
|
lean::inc(x_57);
|
|
x_59 = lean::cnstr_get(x_8, 2);
|
|
lean::inc(x_59);
|
|
lean::dec(x_8);
|
|
x_62 = lean::unbox_uint32(x_38);
|
|
lean::dec(x_38);
|
|
x_64 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8(x_62, x_57);
|
|
x_65 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_59, x_64);
|
|
return x_65;
|
|
}
|
|
else
|
|
{
|
|
obj* x_66; obj* x_67; obj* x_68;
|
|
if (lean::is_shared(x_8)) {
|
|
lean::dec(x_8);
|
|
x_66 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_8, 0);
|
|
x_66 = x_8;
|
|
}
|
|
if (lean::is_scalar(x_66)) {
|
|
x_67 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_67 = x_66;
|
|
}
|
|
lean::cnstr_set(x_67, 0, x_38);
|
|
lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_40);
|
|
x_68 = x_67;
|
|
return x_68;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
unsigned x_69; unsigned char x_70;
|
|
x_69 = lean::string_iterator_curr(x_0);
|
|
x_70 = _l_s4_char_s9_is__digit(x_69);
|
|
if (x_70 == 0)
|
|
{
|
|
obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_81;
|
|
x_71 = _l_s4_char_s11_quote__core(x_69);
|
|
x_72 = _l_s4_char_s9_has__repr_s11___closed__1;
|
|
lean::inc(x_72);
|
|
x_74 = lean::string_append(x_72, x_71);
|
|
lean::dec(x_71);
|
|
x_76 = lean::string_append(x_74, x_72);
|
|
x_77 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_78 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
lean::inc(x_77);
|
|
lean::inc(x_78);
|
|
x_81 = _l_s4_lean_s6_parser_s13_monad__parsec_s5_error_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__3_s6___rarg(x_76, x_78, x_77, x_77, x_0);
|
|
if (lean::obj_tag(x_81) == 0)
|
|
{
|
|
obj* x_82; obj* x_84; obj* x_86;
|
|
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);
|
|
if (lean::obj_tag(x_86) == 0)
|
|
{
|
|
|
|
lean::dec(x_78);
|
|
if (lean::obj_tag(x_81) == 0)
|
|
{
|
|
unsigned x_90; obj* x_92; obj* x_93;
|
|
lean::dec(x_81);
|
|
x_90 = lean::unbox_uint32(x_82);
|
|
lean::dec(x_82);
|
|
x_92 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10(x_90, x_84);
|
|
x_93 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_86, x_92);
|
|
return x_93;
|
|
}
|
|
else
|
|
{
|
|
unsigned char x_96; obj* x_97; obj* x_98; obj* x_99;
|
|
lean::dec(x_84);
|
|
lean::dec(x_86);
|
|
x_96 = lean::cnstr_get_scalar<unsigned char>(x_81, sizeof(void*)*1);
|
|
if (lean::is_shared(x_81)) {
|
|
lean::dec(x_81);
|
|
x_97 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_81, 0);
|
|
x_97 = x_81;
|
|
}
|
|
if (lean::is_scalar(x_97)) {
|
|
x_98 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_98 = x_97;
|
|
}
|
|
lean::cnstr_set(x_98, 0, x_82);
|
|
lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_96);
|
|
x_99 = x_98;
|
|
return x_99;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_101; obj* x_103; obj* x_105; obj* x_106; unsigned x_107; obj* x_109; obj* x_110;
|
|
lean::dec(x_81);
|
|
x_101 = lean::cnstr_get(x_86, 0);
|
|
lean::inc(x_101);
|
|
if (lean::is_shared(x_86)) {
|
|
lean::dec(x_86);
|
|
x_103 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_86, 0);
|
|
x_103 = x_86;
|
|
}
|
|
lean::inc(x_78);
|
|
x_105 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_105, 0, x_78);
|
|
lean::closure_set(x_105, 1, x_101);
|
|
if (lean::is_scalar(x_103)) {
|
|
x_106 = lean::alloc_cnstr(1, 1, 0);
|
|
} else {
|
|
x_106 = x_103;
|
|
}
|
|
lean::cnstr_set(x_106, 0, x_105);
|
|
x_107 = lean::unbox_uint32(x_82);
|
|
lean::dec(x_82);
|
|
x_109 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12(x_107, x_84);
|
|
x_110 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_106, x_109);
|
|
return x_110;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_111; unsigned char x_113;
|
|
x_111 = lean::cnstr_get(x_81, 0);
|
|
lean::inc(x_111);
|
|
x_113 = lean::cnstr_get_scalar<unsigned char>(x_81, sizeof(void*)*1);
|
|
if (x_113 == 0)
|
|
{
|
|
obj* x_115; obj* x_117; obj* x_119; obj* x_122; obj* x_123; obj* x_126; obj* x_127; obj* x_128;
|
|
lean::dec(x_81);
|
|
x_115 = lean::cnstr_get(x_111, 0);
|
|
lean::inc(x_115);
|
|
x_117 = lean::cnstr_get(x_111, 1);
|
|
lean::inc(x_117);
|
|
x_119 = lean::cnstr_get(x_111, 2);
|
|
lean::inc(x_119);
|
|
lean::inc(x_78);
|
|
x_122 = lean::alloc_closure(reinterpret_cast<void*>(_l_s8_function_s4_comp_s6___rarg), 3, 2);
|
|
lean::closure_set(x_122, 0, x_78);
|
|
lean::closure_set(x_122, 1, x_119);
|
|
x_123 = lean::cnstr_get(x_111, 3);
|
|
lean::inc(x_123);
|
|
lean::dec(x_111);
|
|
x_126 = lean::alloc_cnstr(0, 4, 0);
|
|
lean::cnstr_set(x_126, 0, x_115);
|
|
lean::cnstr_set(x_126, 1, x_117);
|
|
lean::cnstr_set(x_126, 2, x_122);
|
|
lean::cnstr_set(x_126, 3, x_123);
|
|
x_127 = lean::alloc_cnstr(1, 1, 1);
|
|
lean::cnstr_set(x_127, 0, x_126);
|
|
lean::cnstr_set_scalar(x_127, sizeof(void*)*1, x_113);
|
|
x_128 = x_127;
|
|
return x_128;
|
|
}
|
|
else
|
|
{
|
|
|
|
lean::dec(x_78);
|
|
if (lean::obj_tag(x_81) == 0)
|
|
{
|
|
obj* x_130; obj* x_132; unsigned x_135; obj* x_137; obj* x_138;
|
|
x_130 = lean::cnstr_get(x_81, 1);
|
|
lean::inc(x_130);
|
|
x_132 = lean::cnstr_get(x_81, 2);
|
|
lean::inc(x_132);
|
|
lean::dec(x_81);
|
|
x_135 = lean::unbox_uint32(x_111);
|
|
lean::dec(x_111);
|
|
x_137 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14(x_135, x_130);
|
|
x_138 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_132, x_137);
|
|
return x_138;
|
|
}
|
|
else
|
|
{
|
|
obj* x_139; obj* x_140; obj* x_141;
|
|
if (lean::is_shared(x_81)) {
|
|
lean::dec(x_81);
|
|
x_139 = lean::box(0);
|
|
} else {
|
|
lean::cnstr_release(x_81, 0);
|
|
x_139 = x_81;
|
|
}
|
|
if (lean::is_scalar(x_139)) {
|
|
x_140 = lean::alloc_cnstr(1, 1, 1);
|
|
} else {
|
|
x_140 = x_139;
|
|
}
|
|
lean::cnstr_set(x_140, 0, x_111);
|
|
lean::cnstr_set_scalar(x_140, sizeof(void*)*1, x_113);
|
|
x_141 = x_140;
|
|
return x_141;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
obj* x_143; obj* x_144; obj* x_145; obj* x_146;
|
|
lean::inc(x_0);
|
|
x_143 = lean::string_iterator_next(x_0);
|
|
x_144 = lean::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_145 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__16(x_0, x_143);
|
|
x_146 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_144, x_145);
|
|
return x_146;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s3_num_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__2(obj* x_0) {
|
|
{
|
|
obj* x_1;
|
|
x_1 = _l_s4_lean_s6_parser_s13_monad__parsec_s12_take__while1_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___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_s6_string_s7_to__nat(x_2);
|
|
x_10 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___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_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_6, x_12);
|
|
return x_13;
|
|
}
|
|
else
|
|
{
|
|
obj* x_14; unsigned char 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<unsigned char>(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_s4_lean_s6_parser_s13_monad__parsec_s4_take_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__18(obj* x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_3;
|
|
x_2 = lean::mk_nat_obj(0u);
|
|
x_3 = lean::nat_dec_eq(x_0, x_2);
|
|
lean::dec(x_2);
|
|
if (lean::obj_tag(x_3) == 0)
|
|
{
|
|
obj* x_6; obj* x_8;
|
|
lean::dec(x_3);
|
|
x_6 = _l_s6_string_s4_join_s11___closed__1;
|
|
lean::inc(x_6);
|
|
x_8 = _l_s9___private_127590107__s9_take__aux_s6___main_s6___rarg(x_0, x_6, x_1);
|
|
return x_8;
|
|
}
|
|
else
|
|
{
|
|
obj* x_11; obj* x_12; obj* x_15;
|
|
lean::dec(x_0);
|
|
lean::dec(x_3);
|
|
x_11 = _l_s6_string_s4_join_s11___closed__1;
|
|
x_12 = _l_s4_lean_s6_parser_s6_parsec_s6_result_s7_mk__eps_s6___rarg_s11___closed__1;
|
|
lean::inc(x_12);
|
|
lean::inc(x_11);
|
|
x_15 = lean::alloc_cnstr(0, 3, 0);
|
|
lean::cnstr_set(x_15, 0, x_11);
|
|
lean::cnstr_set(x_15, 1, x_1);
|
|
lean::cnstr_set(x_15, 2, x_12);
|
|
return x_15;
|
|
}
|
|
}
|
|
}
|
|
obj* _l_s13_match__failed_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__19(obj* x_0) {
|
|
{
|
|
obj* x_1; obj* x_2; obj* x_3; obj* x_7; unsigned char x_8; obj* x_9; obj* x_10;
|
|
x_1 = _l_s13_match__failed_s6___rarg_s11___closed__1;
|
|
x_2 = _l_s5_mjoin_s6___rarg_s11___closed__1;
|
|
x_3 = _l_s4_lean_s6_parser_s9_parsec__t_s11_monad__fail_s6___rarg_s11___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* _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s2_ch_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__1(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__4(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__6(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s9___spec__8(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__10(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__12(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14_s7___boxed(obj* x_0, obj* x_1) {
|
|
{
|
|
unsigned x_2; obj* x_3;
|
|
x_2 = lean::unbox_uint32(x_0);
|
|
x_3 = _l_s4_lean_s6_parser_s13_monad__parsec_s17_take__while__cont_s4___at_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s10___spec__14(x_2, x_1);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s9___private_4217055689__s25_parse__mangled__name__aux(obj* x_0, obj* x_1, obj* x_2) {
|
|
{
|
|
obj* x_3;
|
|
x_3 = _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(x_0, x_1, x_2);
|
|
return x_3;
|
|
}
|
|
}
|
|
obj* _l_s9___private_74862231__s20_parse__mangled__name(obj* x_0, obj* x_1) {
|
|
{
|
|
obj* x_3; obj* x_4; obj* x_5;
|
|
lean::inc(x_0);
|
|
x_3 = _l_s6_string_s5_quote(x_0);
|
|
x_4 = lean::alloc_closure(reinterpret_cast<void*>(_l_s5_dlist_s9_singleton_s6___rarg), 2, 1);
|
|
lean::closure_set(x_4, 0, x_3);
|
|
x_5 = _l_s4_lean_s6_parser_s13_monad__parsec_s9_str__core_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___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::alloc_cnstr(0, 0, 0);
|
|
;
|
|
x_13 = _l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main(x_11, x_12, x_6);
|
|
x_14 = _l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1;
|
|
lean::inc(x_14);
|
|
x_16 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_14, x_13);
|
|
x_17 = _l_s4_lean_s6_parser_s9_parsec__t_s13_bind__mk__res_s6___rarg(x_8, x_16);
|
|
return x_17;
|
|
}
|
|
else
|
|
{
|
|
obj* x_18; unsigned char 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<unsigned char>(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_s4_lean_s4_name_s8_demangle(obj* x_0, obj* x_1) {
|
|
{
|
|
obj* x_2; obj* x_3; obj* x_5;
|
|
x_2 = lean::alloc_closure(reinterpret_cast<void*>(_l_s9___private_74862231__s20_parse__mangled__name), 2, 1);
|
|
lean::closure_set(x_2, 0, x_1);
|
|
x_3 = _l_s6_string_s4_join_s11___closed__1;
|
|
lean::inc(x_3);
|
|
x_5 = _l_s4_lean_s6_parser_s9_parsec__t_s3_run_s4___at_s4_lean_s6_parser_s6_parsec_s5_parse_s9___spec__1_s6___rarg(x_2, x_0, x_3);
|
|
if (lean::obj_tag(x_5) == 0)
|
|
{
|
|
obj* x_7;
|
|
lean::dec(x_5);
|
|
x_7 = lean::alloc_cnstr(0, 0, 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 _l_initialize__l_s4_init_s4_lean_s4_name();
|
|
void _l_initialize__l_s4_init_s4_lean_s6_parser_s15_string__literal();
|
|
static bool _G_initialized = false;
|
|
void _l_initialize__l_s4_init_s4_lean_s14_name__mangling() {
|
|
if (_G_initialized) return;
|
|
_G_initialized = true;
|
|
_l_initialize__l_s4_init_s4_lean_s4_name();
|
|
_l_initialize__l_s4_init_s4_lean_s6_parser_s15_string__literal();
|
|
_l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1 = _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__1();
|
|
_l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2 = _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__2();
|
|
_l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3 = _init__l_s9___private_3255790009__s6_string_s11_mangle__aux_s6___main_s11___closed__3();
|
|
_l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__1 = _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__1();
|
|
_l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__2 = _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__2();
|
|
_l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__3 = _init__l_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s11___closed__3();
|
|
_l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1 = _init__l_s4_lean_s6_parser_s17_parse__hex__digit_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__2_s11___closed__1();
|
|
_l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1 = _init__l_s4_lean_s6_parser_s13_monad__parsec_s3_eoi_s4___at_s9___private_1496486805__s27_parse__mangled__string__aux_s6___main_s9___spec__6_s11___closed__1();
|
|
_l_s4_lean_s6_string_s8_demangle_s11___closed__1 = _init__l_s4_lean_s6_string_s8_demangle_s11___closed__1();
|
|
_l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1 = _init__l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__1();
|
|
_l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__2 = _init__l_s9___private_1205956357__s4_name_s11_mangle__aux_s6___main_s11___closed__2();
|
|
_l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s11___closed__1 = _init__l_s9___private_4217055689__s25_parse__mangled__name__aux_s6___main_s11___closed__1();
|
|
}
|