feat(library/init/lean/syntax): export helper functions for creating syntax in C++

This commit is contained in:
Leonardo de Moura 2019-06-05 16:49:58 -07:00
parent df3b85490b
commit d212abb9ee
5 changed files with 5405 additions and 13 deletions

View file

@ -251,5 +251,20 @@ protected partial def formatStx : Syntax → Format
instance : HasFormat Syntax := ⟨Syntax.formatStx⟩
instance : HasToString Syntax := ⟨toString ∘ format⟩
/- Helper functions for creating Syntax objects using C++ -/
@[export lean.mk_syntax_atom_core]
def mkSimpleAtom (val : String) : Syntax :=
atom none val
@[export lean.mk_syntax_ident_core]
def mkSimpleIdent (val : Name) : Syntax :=
ident none (toString val).toSubstring val [] []
@[export lean.mk_syntax_list_core]
def mkListNode (args : Array Syntax) : Syntax :=
node nullKind args []
end Syntax
end Lean

View file

@ -1 +1 @@
add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/persistentarray/basic.cpp ./init/data/persistentarray/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/attributes.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/export.cpp ./init/lean/compiler/initattr.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/expandresetreuse.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/environment.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/position.cpp ./init/lean/runtime.cpp ./init/lean/smap.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)
add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/persistentarray/basic.cpp ./init/data/persistentarray/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/attributes.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/export.cpp ./init/lean/compiler/initattr.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/expandresetreuse.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/environment.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/position.cpp ./init/lean/runtime.cpp ./init/lean/smap.cpp ./init/lean/syntax.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)

View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.lean.attributes
// Imports: init.lean.environment
// Imports: init.lean.environment init.lean.syntax
#include "runtime/object.h"
#include "runtime/apply.h"
typedef lean::object obj; typedef lean::usize usize;
@ -166,7 +166,6 @@ obj* l_Lean_Environment_pushScopeCore(obj*, obj*, uint8);
obj* l_AssocList_replace___main___at_Lean_registerAttribute___spec__7(obj*, obj*, obj*);
obj* l_Lean_Environment_isNamespace___boxed(obj*, obj*);
obj* l_Array_miterateAux___main___at_Lean_Environment_getAttributeNames___spec__2___boxed(obj*, obj*, obj*, obj*);
obj* l_Lean_Syntax_missing;
obj* l_Lean_attributeMapRef;
obj* l_Lean_Environment_hasOpenScopes___boxed(obj*);
namespace lean {
@ -187,14 +186,6 @@ obj* l_Lean_Environment_eraseAttribute___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Environment_isAttribute(obj*);
obj* l_Lean_regScopeManagerExtension___lambda__3(obj*);
obj* l_Array_miterateAux___main___at_Lean_Environment_getAttributeNames___spec__2(obj*, obj*, obj*, obj*);
obj* _init_l_Lean_Syntax_missing() {
_start:
{
obj* x_1;
x_1 = lean::box(0);
return x_1;
}
}
obj* _init_l_Lean_ScopeManagerState_Inhabited() {
_start:
{
@ -4417,6 +4408,7 @@ return x_6;
}
}
obj* initialize_init_lean_environment(obj*);
obj* initialize_init_lean_syntax(obj*);
static bool _G_initialized = false;
obj* initialize_init_lean_attributes(obj* w) {
if (_G_initialized) return w;
@ -4424,8 +4416,8 @@ _G_initialized = true;
if (io_result_is_error(w)) return w;
w = initialize_init_lean_environment(w);
if (io_result_is_error(w)) return w;
l_Lean_Syntax_missing = _init_l_Lean_Syntax_missing();
lean::mark_persistent(l_Lean_Syntax_missing);
w = initialize_init_lean_syntax(w);
if (io_result_is_error(w)) return w;
l_Lean_ScopeManagerState_Inhabited = _init_l_Lean_ScopeManagerState_Inhabited();
lean::mark_persistent(l_Lean_ScopeManagerState_Inhabited);
l_Lean_regScopeManagerExtension___lambda__2___closed__1 = _init_l_Lean_regScopeManagerExtension___lambda__2___closed__1();

View file

@ -15,26 +15,72 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
uint8 l_Lean_Position_lt(obj*, obj*);
extern obj* l_Nat_Inhabited;
obj* l_Lean_FileMap_toPosition___main(obj*, obj*);
namespace lean {
obj* nat_sub(obj*, obj*);
}
obj* l_Lean_Position_DecidableEq___boxed(obj*, obj*);
obj* l_Lean_Position_Lean_HasFormat(obj*);
obj* l_Lean_FileMap_ofString___closed__2;
obj* l___private_init_lean_position_1__ofStringAux___main(obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_position_2__toColumnAux___main(obj*, obj*, obj*, obj*);
obj* l_Lean_Position_Lean_HasFormat___closed__1;
obj* l_Lean_FileMap_Inhabited;
obj* l___private_init_lean_position_3__toPositionAux(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l___private_init_lean_position_2__toColumnAux___main___boxed(obj*, obj*, obj*, obj*);
obj* l_Nat_decEq___boxed(obj*, obj*);
obj* l_Array_mkEmpty(obj*, obj*);
obj* l_Lean_FileMap_toPosition___main___boxed(obj*, obj*);
obj* l_Lean_Position_Inhabited;
obj* l_Lean_Position_lt___boxed(obj*, obj*);
obj* l_Lean_Position_lt___main___boxed(obj*, obj*);
obj* l_Nat_repr(obj*);
obj* l_Lean_Position_Lean_HasFormat___closed__2;
namespace lean {
uint8 string_utf8_at_end(obj*, obj*);
}
namespace lean {
uint8 nat_dec_lt(obj*, obj*);
}
obj* l_Lean_Position_lt___main___closed__1;
namespace lean {
obj* nat_add(obj*, obj*);
}
obj* l___private_init_lean_position_3__toPositionAux___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
obj* l_Array_push(obj*, obj*, obj*);
namespace lean {
uint32 string_utf8_get(obj*, obj*);
}
obj* l___private_init_lean_position_3__toPositionAux___main(obj*, obj*, obj*, obj*, obj*, obj*);
uint8 l_UInt32_decEq(uint32, uint32);
uint8 l_Lean_Position_DecidableEq(obj*, obj*);
obj* l___private_init_lean_position_2__toColumnAux___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Position_lt___main___closed__2;
obj* l_Nat_decLt___boxed(obj*, obj*);
extern obj* l_Lean_formatKVMap___closed__1;
uint8 l_Lean_Position_lt___main(obj*, obj*);
obj* l___private_init_lean_position_1__ofStringAux(obj*, obj*, obj*, obj*, obj*);
obj* l_Array_size(obj*, obj*);
obj* l_Lean_FileMap_ofString___closed__1;
obj* l_Array_get(obj*, obj*, obj*, obj*);
obj* l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(obj*);
namespace lean {
obj* string_utf8_next(obj*, obj*);
}
uint8 l_prodHasDecidableLt___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
namespace lean {
obj* nat_div(obj*, obj*);
}
obj* l_Lean_FileMap_toPosition(obj*, obj*);
obj* l___private_init_lean_position_3__toPositionAux___main___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_FileMap_ofString(obj*);
obj* l_Lean_FileMap_toPosition___boxed(obj*, obj*);
obj* l___private_init_lean_position_2__toColumnAux(obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_String_toFileMap(obj*);
uint8 l_Lean_Position_DecidableEq(obj* x_1, obj* x_2) {
_start:
{
@ -226,6 +272,325 @@ lean::cnstr_set(x_3, 1, x_2);
return x_3;
}
}
obj* _init_l_Lean_FileMap_Inhabited() {
_start:
{
obj* x_1; obj* x_2; obj* x_3; obj* x_4;
x_1 = lean::mk_nat_obj(0u);
x_2 = lean::mk_empty_array(x_1);
x_3 = lean::mk_string("");
lean::inc(x_2);
x_4 = lean::alloc_cnstr(0, 3, 0);
lean::cnstr_set(x_4, 0, x_3);
lean::cnstr_set(x_4, 1, x_2);
lean::cnstr_set(x_4, 2, x_2);
return x_4;
}
}
obj* l___private_init_lean_position_1__ofStringAux___main(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
uint8 x_6;
x_6 = lean::string_utf8_at_end(x_1, x_2);
if (x_6 == 0)
{
uint32 x_7; obj* x_8; uint32 x_9; uint8 x_10;
x_7 = lean::string_utf8_get(x_1, x_2);
x_8 = lean::string_utf8_next(x_1, x_2);
lean::dec(x_2);
x_9 = 10;
x_10 = x_7 == x_9;
if (x_10 == 0)
{
x_2 = x_8;
goto _start;
}
else
{
obj* x_12; obj* x_13; obj* x_14; obj* x_15;
x_12 = lean::mk_nat_obj(1u);
x_13 = lean::nat_add(x_3, x_12);
lean::dec(x_3);
lean::inc(x_8);
x_14 = lean::array_push(x_4, x_8);
lean::inc(x_13);
x_15 = lean::array_push(x_5, x_13);
x_2 = x_8;
x_3 = x_13;
x_4 = x_14;
x_5 = x_15;
goto _start;
}
}
else
{
obj* x_17; obj* x_18; obj* x_19;
x_17 = lean::array_push(x_4, x_2);
x_18 = lean::array_push(x_5, x_3);
x_19 = lean::alloc_cnstr(0, 3, 0);
lean::cnstr_set(x_19, 0, x_1);
lean::cnstr_set(x_19, 1, x_17);
lean::cnstr_set(x_19, 2, x_18);
return x_19;
}
}
}
obj* l___private_init_lean_position_1__ofStringAux(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l___private_init_lean_position_1__ofStringAux___main(x_1, x_2, x_3, x_4, x_5);
return x_6;
}
}
obj* _init_l_Lean_FileMap_ofString___closed__1() {
_start:
{
obj* x_1; obj* x_2; obj* x_3;
x_1 = lean::mk_nat_obj(0u);
x_2 = lean::mk_empty_array(x_1);
x_3 = lean::array_push(x_2, x_1);
return x_3;
}
}
obj* _init_l_Lean_FileMap_ofString___closed__2() {
_start:
{
obj* x_1; obj* x_2; obj* x_3; obj* x_4;
x_1 = lean::mk_nat_obj(0u);
x_2 = lean::mk_empty_array(x_1);
x_3 = lean::mk_nat_obj(1u);
x_4 = lean::array_push(x_2, x_3);
return x_4;
}
}
obj* l_Lean_FileMap_ofString(obj* x_1) {
_start:
{
obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6;
x_2 = lean::mk_nat_obj(0u);
x_3 = lean::mk_nat_obj(1u);
x_4 = l_Lean_FileMap_ofString___closed__1;
x_5 = l_Lean_FileMap_ofString___closed__2;
x_6 = l___private_init_lean_position_1__ofStringAux___main(x_1, x_2, x_3, x_4, x_5);
return x_6;
}
}
obj* l___private_init_lean_position_2__toColumnAux___main(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
uint8 x_5;
x_5 = lean::nat_dec_eq(x_3, x_2);
if (x_5 == 0)
{
uint8 x_6;
x_6 = lean::string_utf8_at_end(x_1, x_3);
if (x_6 == 0)
{
obj* x_7; obj* x_8; obj* x_9;
x_7 = lean::string_utf8_next(x_1, x_3);
lean::dec(x_3);
x_8 = lean::mk_nat_obj(1u);
x_9 = lean::nat_add(x_4, x_8);
lean::dec(x_4);
x_3 = x_7;
x_4 = x_9;
goto _start;
}
else
{
lean::dec(x_3);
return x_4;
}
}
else
{
lean::dec(x_3);
return x_4;
}
}
}
obj* l___private_init_lean_position_2__toColumnAux___main___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
_start:
{
obj* x_5;
x_5 = l___private_init_lean_position_2__toColumnAux___main(x_1, x_2, x_3, x_4);
lean::dec(x_2);
lean::dec(x_1);
return x_5;
}
}
obj* l___private_init_lean_position_2__toColumnAux(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l___private_init_lean_position_2__toColumnAux___main(x_1, x_3, x_4, x_5);
return x_6;
}
}
obj* l___private_init_lean_position_2__toColumnAux___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
_start:
{
obj* x_6;
x_6 = l___private_init_lean_position_2__toColumnAux(x_1, x_2, x_3, x_4, x_5);
lean::dec(x_3);
lean::dec(x_2);
lean::dec(x_1);
return x_6;
}
}
obj* l___private_init_lean_position_3__toPositionAux___main(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7; obj* x_8; obj* x_9; obj* x_10; uint8 x_11;
x_7 = l_Nat_Inhabited;
x_8 = lean::array_get(x_7, x_2, x_5);
x_9 = lean::mk_nat_obj(1u);
x_10 = lean::nat_add(x_5, x_9);
x_11 = lean::nat_dec_eq(x_6, x_10);
lean::dec(x_10);
if (x_11 == 0)
{
obj* x_12; obj* x_13; obj* x_14; obj* x_15; uint8 x_16;
lean::dec(x_8);
x_12 = lean::nat_add(x_5, x_6);
x_13 = lean::mk_nat_obj(2u);
x_14 = lean::nat_div(x_12, x_13);
lean::dec(x_12);
x_15 = lean::array_get(x_7, x_2, x_14);
x_16 = lean::nat_dec_eq(x_4, x_15);
if (x_16 == 0)
{
uint8 x_17;
x_17 = lean::nat_dec_lt(x_15, x_4);
lean::dec(x_15);
if (x_17 == 0)
{
lean::dec(x_6);
x_6 = x_14;
goto _start;
}
else
{
lean::dec(x_5);
x_5 = x_14;
goto _start;
}
}
else
{
obj* x_20; obj* x_21; obj* x_22;
lean::dec(x_15);
lean::dec(x_6);
lean::dec(x_5);
x_20 = lean::array_get(x_7, x_3, x_14);
lean::dec(x_14);
x_21 = lean::mk_nat_obj(0u);
x_22 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_22, 0, x_20);
lean::cnstr_set(x_22, 1, x_21);
return x_22;
}
}
else
{
obj* x_23; obj* x_24; obj* x_25; obj* x_26;
lean::dec(x_6);
x_23 = lean::array_get(x_7, x_3, x_5);
lean::dec(x_5);
x_24 = lean::mk_nat_obj(0u);
x_25 = l___private_init_lean_position_2__toColumnAux___main(x_1, x_4, x_8, x_24);
x_26 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_26, 0, x_23);
lean::cnstr_set(x_26, 1, x_25);
return x_26;
}
}
}
obj* l___private_init_lean_position_3__toPositionAux___main___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7;
x_7 = l___private_init_lean_position_3__toPositionAux___main(x_1, x_2, x_3, x_4, x_5, x_6);
lean::dec(x_4);
lean::dec(x_3);
lean::dec(x_2);
lean::dec(x_1);
return x_7;
}
}
obj* l___private_init_lean_position_3__toPositionAux(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7;
x_7 = l___private_init_lean_position_3__toPositionAux___main(x_1, x_2, x_3, x_4, x_5, x_6);
return x_7;
}
}
obj* l___private_init_lean_position_3__toPositionAux___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
_start:
{
obj* x_7;
x_7 = l___private_init_lean_position_3__toPositionAux(x_1, x_2, x_3, x_4, x_5, x_6);
lean::dec(x_4);
lean::dec(x_3);
lean::dec(x_2);
lean::dec(x_1);
return x_7;
}
}
obj* l_Lean_FileMap_toPosition___main(obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10;
x_3 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_1, 1);
x_5 = lean::cnstr_get(x_1, 2);
x_6 = lean::array_get_size(x_4);
x_7 = lean::mk_nat_obj(1u);
x_8 = lean::nat_sub(x_6, x_7);
lean::dec(x_6);
x_9 = lean::mk_nat_obj(0u);
x_10 = l___private_init_lean_position_3__toPositionAux___main(x_3, x_4, x_5, x_2, x_9, x_8);
return x_10;
}
}
obj* l_Lean_FileMap_toPosition___main___boxed(obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_FileMap_toPosition___main(x_1, x_2);
lean::dec(x_2);
lean::dec(x_1);
return x_3;
}
}
obj* l_Lean_FileMap_toPosition(obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_FileMap_toPosition___main(x_1, x_2);
return x_3;
}
}
obj* l_Lean_FileMap_toPosition___boxed(obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_FileMap_toPosition(x_1, x_2);
lean::dec(x_2);
lean::dec(x_1);
return x_3;
}
}
obj* l_Lean_String_toFileMap(obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_FileMap_ofString(x_1);
return x_2;
}
}
obj* initialize_init_data_nat_default(obj*);
obj* initialize_init_data_rbmap_default(obj*);
obj* initialize_init_lean_format(obj*);
@ -250,5 +615,11 @@ l_Lean_Position_Lean_HasFormat___closed__2 = _init_l_Lean_Position_Lean_HasForma
lean::mark_persistent(l_Lean_Position_Lean_HasFormat___closed__2);
l_Lean_Position_Inhabited = _init_l_Lean_Position_Inhabited();
lean::mark_persistent(l_Lean_Position_Inhabited);
l_Lean_FileMap_Inhabited = _init_l_Lean_FileMap_Inhabited();
lean::mark_persistent(l_Lean_FileMap_Inhabited);
l_Lean_FileMap_ofString___closed__1 = _init_l_Lean_FileMap_ofString___closed__1();
lean::mark_persistent(l_Lean_FileMap_ofString___closed__1);
l_Lean_FileMap_ofString___closed__2 = _init_l_Lean_FileMap_ofString___closed__2();
lean::mark_persistent(l_Lean_FileMap_ofString___closed__2);
return w;
}

5014
src/stage0/init/lean/syntax.cpp generated Normal file

File diff suppressed because it is too large Load diff