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