new cc.bqn

This commit is contained in:
dzaima 2021-04-22 22:05:44 +03:00
parent 70291dc060
commit b72edce148

22
cc.bqn
View File

@ -23,10 +23,12 @@ Num ← {s←"-"/˜𝕩<0 ⋄ ∞⊸=∘|◶⟨"m_f64("∾")"∾˜s∾⍕∘|
F # Format number
Import •Import path
FChars •FChars path
Import {𝕨•Import path𝕩}
FChars {𝕨•FChars path𝕩}
FLines {𝕨•FLines path𝕩}
compile Import "c.bqn"
glyphs Import "glyphs.bqn"
compile glyphs Import "c.bqn"
useInd "-i"args args˜useInd
Comp (3+useInd) ((<"inc(runtime[""])"˙)¨62)Compile
J \n¨
@ -35,10 +37,16 @@ prov ← {"inc("∾𝕩∾")"}¨"bi_type"‿"bi_fill"‿"bi_log"‿"bi_grLen"‿
Fout {((𝕩)LI F¨,L ·prov(𝕨0) Fconst¨,L (LI F¨)¨,L (L F¨)¨) {𝕎𝕩}¨ 𝕩}
Frun 1Fout
Long {¯2𝕩¨<","\n}
•Out(¬return) ("r""c""f""e")
LFC LongFoutComp
CArg {J (¯5𝕩˙) FLines "c.bqn"}
•Out(¬return) ("r""c""cc""f""e""p")
{𝕩reflenImport "pr.bqn"Long Frun len(1)Comp ref}
{𝕩Long Fout Comp FChars "c.bqn"}
{𝕩Long Fout Comp FChars "f.bqn"}
{𝕩Long Fout Comp "Modify←GetHighlights←⊢⋄" (FChars )".bqn"¨ "../svg""e"}
{𝕩LFC CArg "⟨""⟩"«","¨'"'(˜)¨glyphs}
{𝕩LFC "{""}"˜CArg"𝕩"}
{𝕩LFC FChars "f.bqn"}
{𝕩LFC SVG "e"}
{𝕩LFC SVG "p"}
¯1 · J LFoutComp¨
args