make precompiled.bqn run within CBQN

This commit is contained in:
dzaima 2021-10-30 12:05:38 +03:00
parent f9253a477e
commit 026b15977b
3 changed files with 8 additions and 4 deletions

View File

@ -11,12 +11,12 @@ tests ← •FLines path∾"/test/cases/prim.bqn"
{tests𝕩}(×) 2•args {tests𝕩}(×) 2•args
('#' · "#")@{ ('#' · "#")@{
'%'{𝕤 ('%'){𝕤
•Out 𝕩 •Out 𝕩
"src/gen/interp" •FChars 1,path,𝕩 •Import "cc.bqn" "src/gen/interp" •FChars 1,path,𝕩 •Import "cc.bqn"
(×)@{𝕤•Out "############ Failed to compile! ############" •Out¨1𝕩}{env<"PATH="envP}•SH"make""f=-DPRECOMP""t=precomp""c" (×)@{𝕤•Out "############ Failed to compile! ############" •Out¨1𝕩}{env<"PATH="envP}•SH"make""f=-DPRECOMP""t=precomp""c"
codeouterr•SH"./BQN" codeouterr•SH"./BQN"
•Out out •Out out
{𝕤•Out"exit code "(code) •Out err}(×code) err {𝕤•Out"exit code "(•Repr code) •Out err}(×code) err
} }
}¨tests }¨tests

View File

@ -8,7 +8,7 @@
/* sort.c*/A(gradeUp,"") A(gradeDown,"") \ /* sort.c*/A(gradeUp,"") A(gradeDown,"") \
/* everything before the definition of •Type is defined to be pure, and everything after is not */ \ /* everything before the definition of •Type is defined to be pure, and everything after is not */ \
/* sysfn.c*/M(type,"•Type") M(decp,"•Decompose") M(primInd,"•PrimInd") M(glyph,"•Glyph") A(fill,"•FillFn") M(sys,"•getsys") A(grLen,"•GroupLen") D(grOrd,"•GroupOrd") \ /* sysfn.c*/M(type,"•Type") M(decp,"•Decompose") M(primInd,"•PrimInd") M(glyph,"•Glyph") A(fill,"•FillFn") M(sys,"•getsys") A(grLen,"•GroupLen") D(grOrd,"•GroupOrd") \
/* sysfn.c*/M(repr,"•Repr") M(fmt,"•Fmt") A(asrt,"!") A(casrt,"!") M(out,"•Out") M(show,"•Show") A(bqn,"•BQN") M(sh,"•SH") M(fromUtf8,"•FromUTF8") \ /* sysfn.c*/M(repr,"•Repr") M(fmt,"•Fmt") A(asrt,"!") A(casrt,"!") M(out,"•Out") M(show,"•Show") A(bqn,"•BQN") A(sh,"•SH") M(fromUtf8,"•FromUTF8") \
/* sysfn.c*/D(cmp,"•Cmp") A(hash,"•Hash") M(unixTime,"•UnixTime") M(monoTime,"•MonoTime") M(delay,"•Delay") M(makeRand,"•MakeRand") M(reBQN,"•ReBQN") M(exit,"•Exit") M(getLine,"•GetLine") \ /* sysfn.c*/D(cmp,"•Cmp") A(hash,"•Hash") M(unixTime,"•UnixTime") M(monoTime,"•MonoTime") M(delay,"•Delay") M(makeRand,"•MakeRand") M(reBQN,"•ReBQN") M(exit,"•Exit") M(getLine,"•GetLine") \
/*internal.c*/M(itype,"•internal.Type") M(elType,"•internal.ElType") M(refc,"•internal.Refc") M(isPure,"•internal.IsPure") A(info,"•internal.Info") \ /*internal.c*/M(itype,"•internal.Type") M(elType,"•internal.ElType") M(refc,"•internal.Refc") M(isPure,"•internal.IsPure") A(info,"•internal.Info") \
/*internal.c*/M(squeeze,"•internal.Squeeze") M(deepSqueeze,"•internal.DeepSqueeze") \ /*internal.c*/M(squeeze,"•internal.Squeeze") M(deepSqueeze,"•internal.DeepSqueeze") \

View File

@ -758,6 +758,10 @@ B sh_c1(B t, B x) {
thrM("•SH: CBQN was built without <spawn.h>"); thrM("•SH: CBQN was built without <spawn.h>");
} }
#endif #endif
B sh_c2(B t, B w, B x) {
dec(w);
return sh_c1(t, x);
}
B getInternalNS(void); B getInternalNS(void);