diff --git a/stage0/src/Init/Lean/Path.lean b/stage0/src/Init/Lean/Path.lean index dee7bbce67..804404dc1c 100644 --- a/stage0/src/Init/Lean/Path.lean +++ b/stage0/src/Init/Lean/Path.lean @@ -45,7 +45,7 @@ def parseSearchPath (path : String) (sp : SearchPath := ∅) : IO SearchPath := def getBuiltinSearchPath : IO SearchPath := do appDir ← IO.appDir; - let libDir := appDir ++ pathSep ++ ".." ++ pathSep ++ "library" ++ pathSep ++ "Init"; + let libDir := appDir ++ pathSep ++ ".." ++ pathSep ++ "src" ++ pathSep ++ "Init"; libDirExists ← IO.isDir libDir; if libDirExists then do path ← realPathNormalized libDir; diff --git a/stage0/stdlib/Init/Lean/Path.c b/stage0/stdlib/Init/Lean/Path.c index 7a1eacb7c6..1154e4abaa 100644 --- a/stage0/stdlib/Init/Lean/Path.c +++ b/stage0/stdlib/Init/Lean/Path.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* lean_string_push(lean_object*, uint32_t); +lean_object* l_Lean_getBuiltinSearchPath___closed__6; lean_object* lean_array_uget(lean_object*, size_t); lean_object* l_HashMapImp_moveEntries___main___at_Lean_parseSearchPath___spec__4(lean_object*, lean_object*, lean_object*); lean_object* lean_io_is_dir(lean_object*, lean_object*); @@ -812,7 +813,7 @@ lean_object* _init_l_Lean_getBuiltinSearchPath___closed__2() { _start: { lean_object* x_1; -x_1 = lean_mk_string("library"); +x_1 = lean_mk_string("src"); return x_1; } } @@ -840,6 +841,14 @@ x_1 = lean_mk_string("lean"); return x_1; } } +lean_object* _init_l_Lean_getBuiltinSearchPath___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("library"); +return x_1; +} +} lean_object* l_Lean_getBuiltinSearchPath(lean_object* x_1) { _start: { @@ -874,7 +883,7 @@ x_17 = lean_unbox(x_16); lean_dec(x_16); if (x_17 == 0) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_dec(x_14); x_18 = lean_ctor_get(x_15, 1); lean_inc(x_18); @@ -885,234 +894,235 @@ x_21 = lean_string_append(x_20, x_5); x_22 = l_Lean_getBuiltinSearchPath___closed__5; x_23 = lean_string_append(x_21, x_22); x_24 = lean_string_append(x_23, x_5); -x_25 = lean_string_append(x_24, x_10); -x_26 = lean_string_append(x_25, x_5); -x_27 = lean_string_append(x_26, x_13); -x_28 = lean_io_is_dir(x_27, x_18); -if (lean_obj_tag(x_28) == 0) +x_25 = l_Lean_getBuiltinSearchPath___closed__6; +x_26 = lean_string_append(x_24, x_25); +x_27 = lean_string_append(x_26, x_5); +x_28 = lean_string_append(x_27, x_13); +x_29 = lean_io_is_dir(x_28, x_18); +if (lean_obj_tag(x_29) == 0) { -lean_object* x_29; uint8_t x_30; -x_29 = lean_ctor_get(x_28, 0); -lean_inc(x_29); -x_30 = lean_unbox(x_29); -lean_dec(x_29); -if (x_30 == 0) -{ -uint8_t x_31; -lean_dec(x_27); -x_31 = !lean_is_exclusive(x_28); +lean_object* x_30; uint8_t x_31; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_unbox(x_30); +lean_dec(x_30); if (x_31 == 0) { -lean_object* x_32; lean_object* x_33; -x_32 = lean_ctor_get(x_28, 0); -lean_dec(x_32); -x_33 = l_HashMap_Inhabited___closed__1; -lean_ctor_set(x_28, 0, x_33); -return x_28; -} -else -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_34 = lean_ctor_get(x_28, 1); -lean_inc(x_34); +uint8_t x_32; lean_dec(x_28); -x_35 = l_HashMap_Inhabited___closed__1; -x_36 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -return x_36; +x_32 = !lean_is_exclusive(x_29); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_29, 0); +lean_dec(x_33); +x_34 = l_HashMap_Inhabited___closed__1; +lean_ctor_set(x_29, 0, x_34); +return x_29; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_29, 1); +lean_inc(x_35); +lean_dec(x_29); +x_36 = l_HashMap_Inhabited___closed__1; +x_37 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_35); +return x_37; } } else { -lean_object* x_37; lean_object* x_38; -x_37 = lean_ctor_get(x_28, 1); -lean_inc(x_37); -lean_dec(x_28); -x_38 = l_Lean_realPathNormalized(x_27, x_37); -if (lean_obj_tag(x_38) == 0) +lean_object* x_38; lean_object* x_39; +x_38 = lean_ctor_get(x_29, 1); +lean_inc(x_38); +lean_dec(x_29); +x_39 = l_Lean_realPathNormalized(x_28, x_38); +if (lean_obj_tag(x_39) == 0) { -uint8_t x_39; -x_39 = !lean_is_exclusive(x_38); -if (x_39 == 0) +uint8_t x_40; +x_40 = !lean_is_exclusive(x_39); +if (x_40 == 0) { -lean_object* x_40; lean_object* x_41; lean_object* x_42; -x_40 = lean_ctor_get(x_38, 0); -x_41 = l_HashMap_Inhabited___closed__1; -x_42 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_41, x_13, x_40); -lean_ctor_set(x_38, 0, x_42); -return x_38; +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_39, 0); +x_42 = l_HashMap_Inhabited___closed__1; +x_43 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_42, x_13, x_41); +lean_ctor_set(x_39, 0, x_43); +return x_39; } else { -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_43 = lean_ctor_get(x_38, 0); -x_44 = lean_ctor_get(x_38, 1); +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_44 = lean_ctor_get(x_39, 0); +x_45 = lean_ctor_get(x_39, 1); +lean_inc(x_45); lean_inc(x_44); -lean_inc(x_43); -lean_dec(x_38); -x_45 = l_HashMap_Inhabited___closed__1; -x_46 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_45, x_13, x_43); -x_47 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_44); -return x_47; +lean_dec(x_39); +x_46 = l_HashMap_Inhabited___closed__1; +x_47 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_46, x_13, x_44); +x_48 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_45); +return x_48; } } else { -uint8_t x_48; -x_48 = !lean_is_exclusive(x_38); -if (x_48 == 0) +uint8_t x_49; +x_49 = !lean_is_exclusive(x_39); +if (x_49 == 0) { -return x_38; +return x_39; } else { -lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_49 = lean_ctor_get(x_38, 0); -x_50 = lean_ctor_get(x_38, 1); +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_39, 0); +x_51 = lean_ctor_get(x_39, 1); +lean_inc(x_51); lean_inc(x_50); -lean_inc(x_49); -lean_dec(x_38); -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_49); -lean_ctor_set(x_51, 1, x_50); -return x_51; +lean_dec(x_39); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +return x_52; } } } } else { -uint8_t x_52; -lean_dec(x_27); -x_52 = !lean_is_exclusive(x_28); -if (x_52 == 0) -{ -return x_28; -} -else -{ -lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_28, 0); -x_54 = lean_ctor_get(x_28, 1); -lean_inc(x_54); -lean_inc(x_53); +uint8_t x_53; lean_dec(x_28); -x_55 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_55, 0, x_53); -lean_ctor_set(x_55, 1, x_54); -return x_55; +x_53 = !lean_is_exclusive(x_29); +if (x_53 == 0) +{ +return x_29; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_29, 0); +x_55 = lean_ctor_get(x_29, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_29); +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +return x_56; } } } else { -lean_object* x_56; lean_object* x_57; +lean_object* x_57; lean_object* x_58; lean_dec(x_9); -x_56 = lean_ctor_get(x_15, 1); -lean_inc(x_56); +x_57 = lean_ctor_get(x_15, 1); +lean_inc(x_57); lean_dec(x_15); -x_57 = l_Lean_realPathNormalized(x_14, x_56); -if (lean_obj_tag(x_57) == 0) +x_58 = l_Lean_realPathNormalized(x_14, x_57); +if (lean_obj_tag(x_58) == 0) { -uint8_t x_58; -x_58 = !lean_is_exclusive(x_57); -if (x_58 == 0) +uint8_t x_59; +x_59 = !lean_is_exclusive(x_58); +if (x_59 == 0) { -lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_59 = lean_ctor_get(x_57, 0); -x_60 = l_HashMap_Inhabited___closed__1; -x_61 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_60, x_13, x_59); -lean_ctor_set(x_57, 0, x_61); -return x_57; +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_58, 0); +x_61 = l_HashMap_Inhabited___closed__1; +x_62 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_61, x_13, x_60); +lean_ctor_set(x_58, 0, x_62); +return x_58; } else { -lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_62 = lean_ctor_get(x_57, 0); -x_63 = lean_ctor_get(x_57, 1); +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_63 = lean_ctor_get(x_58, 0); +x_64 = lean_ctor_get(x_58, 1); +lean_inc(x_64); lean_inc(x_63); -lean_inc(x_62); -lean_dec(x_57); -x_64 = l_HashMap_Inhabited___closed__1; -x_65 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_64, x_13, x_62); -x_66 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_66, 0, x_65); -lean_ctor_set(x_66, 1, x_63); -return x_66; +lean_dec(x_58); +x_65 = l_HashMap_Inhabited___closed__1; +x_66 = l_HashMapImp_insert___at_Lean_parseSearchPath___spec__1(x_65, x_13, x_63); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_64); +return x_67; } } else { -uint8_t x_67; -x_67 = !lean_is_exclusive(x_57); -if (x_67 == 0) +uint8_t x_68; +x_68 = !lean_is_exclusive(x_58); +if (x_68 == 0) { -return x_57; +return x_58; } else { -lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_68 = lean_ctor_get(x_57, 0); -x_69 = lean_ctor_get(x_57, 1); +lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_58, 0); +x_70 = lean_ctor_get(x_58, 1); +lean_inc(x_70); lean_inc(x_69); -lean_inc(x_68); -lean_dec(x_57); -x_70 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_70, 0, x_68); -lean_ctor_set(x_70, 1, x_69); -return x_70; +lean_dec(x_58); +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set(x_71, 1, x_70); +return x_71; } } } } else { -uint8_t x_71; +uint8_t x_72; lean_dec(x_14); lean_dec(x_9); -x_71 = !lean_is_exclusive(x_15); -if (x_71 == 0) +x_72 = !lean_is_exclusive(x_15); +if (x_72 == 0) { return x_15; } else { -lean_object* x_72; lean_object* x_73; lean_object* x_74; -x_72 = lean_ctor_get(x_15, 0); -x_73 = lean_ctor_get(x_15, 1); +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_15, 0); +x_74 = lean_ctor_get(x_15, 1); +lean_inc(x_74); lean_inc(x_73); -lean_inc(x_72); lean_dec(x_15); -x_74 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_74, 0, x_72); -lean_ctor_set(x_74, 1, x_73); -return x_74; +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } } else { -uint8_t x_75; -x_75 = !lean_is_exclusive(x_2); -if (x_75 == 0) +uint8_t x_76; +x_76 = !lean_is_exclusive(x_2); +if (x_76 == 0) { return x_2; } else { -lean_object* x_76; lean_object* x_77; lean_object* x_78; -x_76 = lean_ctor_get(x_2, 0); -x_77 = lean_ctor_get(x_2, 1); +lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_77 = lean_ctor_get(x_2, 0); +x_78 = lean_ctor_get(x_2, 1); +lean_inc(x_78); lean_inc(x_77); -lean_inc(x_76); lean_dec(x_2); -x_78 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_78, 0, x_76); -lean_ctor_set(x_78, 1, x_77); -return x_78; +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +return x_79; } } } @@ -2667,6 +2677,8 @@ l_Lean_getBuiltinSearchPath___closed__4 = _init_l_Lean_getBuiltinSearchPath___cl lean_mark_persistent(l_Lean_getBuiltinSearchPath___closed__4); l_Lean_getBuiltinSearchPath___closed__5 = _init_l_Lean_getBuiltinSearchPath___closed__5(); lean_mark_persistent(l_Lean_getBuiltinSearchPath___closed__5); +l_Lean_getBuiltinSearchPath___closed__6 = _init_l_Lean_getBuiltinSearchPath___closed__6(); +lean_mark_persistent(l_Lean_getBuiltinSearchPath___closed__6); l_Lean_addSearchPathFromEnv___closed__1 = _init_l_Lean_addSearchPathFromEnv___closed__1(); lean_mark_persistent(l_Lean_addSearchPathFromEnv___closed__1); l_Lean_modPathToFilePath___main___closed__1 = _init_l_Lean_modPathToFilePath___main___closed__1();