feat(library/init/lean/syntax): export helper functions for creating syntax in C++
This commit is contained in:
parent
df3b85490b
commit
d212abb9ee
5 changed files with 5405 additions and 13 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
16
src/stage0/init/lean/attributes.cpp
generated
16
src/stage0/init/lean/attributes.cpp
generated
|
|
@ -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();
|
||||
|
|
|
|||
371
src/stage0/init/lean/position.cpp
generated
371
src/stage0/init/lean/position.cpp
generated
|
|
@ -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
5014
src/stage0/init/lean/syntax.cpp
generated
Normal file
File diff suppressed because it is too large
Load diff
Loading…
Add table
Reference in a new issue