101 lines
4.6 KiB
BQN
Executable File
101 lines
4.6 KiB
BQN
Executable File
#!/usr/bin/env bqn
|
||
# Modified version of https://github.com/mlochbaum/BQN/blob/master/src/cjs.bqn
|
||
|
||
args ← •args
|
||
"Usage: ./cc.bqn path/to/mlochbaum/BQN [-i] [-n name] <(r|r0|r1|r1x|c|cc|f|e|p) or an expression>"!2≤≠args
|
||
NextArg ← {𝕊: (args↓˜↩1) ⊢ ⊑args}
|
||
TryArg ← {𝕩≡⊑args? 1 ⊣ NextArg@; 0}
|
||
|
||
return ← TryArg 1
|
||
bqnpath ← (NextArg@) •file.At "src"
|
||
srcmap ← TryArg "-i"
|
||
name ← TryArg◶"(precompiled)"‿NextArg "-n"
|
||
|
||
Import ← {𝕨 •Import bqnpath •file.At 𝕩}
|
||
FChars ← {𝕨 •FChars bqnpath •file.At 𝕩}
|
||
FLines ← {𝕨 •FLines bqnpath •file.At 𝕩}
|
||
|
||
F ← •Repr # Format number
|
||
Join ← {(-≠𝕨)↓ ∾∾⟜𝕨¨ 𝕩}
|
||
|
||
FmtComp ← {
|
||
# Escape the special characters that appear in BQN sources.
|
||
Esc ← {
|
||
in ← (@+0‿9‿10‿13)∾"'""" # Null, Tab, LF, CR, and quotes
|
||
out ← "0tnr" # Whitespace characters changed to letters
|
||
i ← in⊐𝕩
|
||
𝕩 ↩ i ⊏⟜out⌾((i<≠out)⊸/) 𝕩 # Replace
|
||
∾(i<≠in) /⟜"\"⊸∾¨ 𝕩 # Insert \
|
||
}
|
||
|
||
U32Len ← (≠ - ·+´ ≥⟜55296 ∧ ≤⟜56319)-⟜@ # for dzaima/BQN; shouldn't break things in proper BQN impls, as surrogate values don't map to valid codepoints
|
||
|
||
CStr ← {"""" (∾∾⊣) Esc 𝕩}
|
||
|
||
OStr ← { # A BQN string
|
||
a←∧´𝕩<128+@
|
||
∾⟨a⊑"m_c32vec"‿"m_c8vec","(",a¬⊸⥊"U","",CStr𝕩,",",•Repr U32Len 𝕩,")"⟩
|
||
}
|
||
OChr ← {"m_c32(U'"∾(Esc⥊𝕩)∾"')"} # A BQN character
|
||
ONum ← {s←"-"/˜𝕩<0 ⋄ ∞⊸=∘|◶⟨"m_f64("∾")"∾˜s∾F∘| ⋄ "m_f64("∾s∾"1.0/0.0)"⟩𝕩} # Format number
|
||
OAny ← ≡◶⟨@⊸≤◶ONum‿OChr, OStr, ⊑⟩
|
||
|
||
List ← (0<≠)◶⟨"",1↓·∾","⊸∾¨⟩
|
||
ShortList ← {"m_lv"∾𝕨∾"_"∾(F≠𝕩)∾"("∾(List𝕩)∾")"}
|
||
LongList ← {"m_ca"∾𝕨∾"("∾(F≠𝕩)∾",("∾𝕨∾"[]){"∾(List𝕩)∾"})"}
|
||
ConstList ← {"m_ca"∾𝕨∾"("∾(F≠𝕩)∾",({static "∾𝕨∾" l_[]={"∾(List𝕩)∾"};l_;}))"}
|
||
_makeList ← {𝕨 (≠∘⊢>4˙)◶⟨ShortList,𝕗⊑LongList‿ConstList⟩ 𝕩}
|
||
Li ← {"i32" 1 _makeList F¨𝕩}
|
||
_Lo ← {"B" 0 _makeList 𝔽¨𝕩}
|
||
|
||
a ← ((≠𝕩)↑⟨Li ⋄ OAny¨ ⋄ =◶⟨ONum,Li¨⟩¨¨ ⋄ (Li 2⊸↑)¨ ⋄ Li¨ ⋄ OStr⟩) {𝕎𝕩}¨ 𝕩
|
||
a {2=•Type⊑𝕩? 𝕩; 𝕊_Lo 𝕩}¨↩
|
||
∾⟨
|
||
"load_importBlock", srcmap/"_src", "(", CStr name, ",", ⥊@+10,
|
||
(","∾@+10) Join a
|
||
⥊@+10
|
||
");"
|
||
⟩
|
||
}
|
||
|
||
primN ← ⟨
|
||
"add", "sub", "mul", "div", "pow", "root", "floor", "ceil", "stile", "not"
|
||
"and", "or", "lt", "gt", "ne", "eq", "le", "ge", "feq", "fne"
|
||
"ltack", "rtack", "shape", "join", "couple", "pair", "take", "drop", "ud", "shifta"
|
||
"shiftb", "reverse", "transp", "slash", "gradeUp", "gradeDown", "select", "pick", "indexOf", "count"
|
||
"memberOf", "find", "group", "asrt", "const", "swap", "cell", "each", "tbl", "undo"
|
||
"fold", "insert", "scan", "atop", "over", "before", "after", "under", "val", "cond"
|
||
"rank", "depth", "repeat", "catch"
|
||
⟩
|
||
primC ← "+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍⋈↑↓↕«»⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!˙˜˘¨⌜⁼´˝`∘○⊸⟜⌾⊘◶⎉⚇⍟⎊"
|
||
pre ← "+-=×↕≢≤⊑⊘⌊⌜⥊!<>`|¨´÷˙˜↑↓∘∾≠≥⊢⊣⊸⋆⋈⌈⍟⎊○◶⟜"
|
||
isFull ← ¬ primC ∊ "⁼⊏/⊔⌾⍷⚇˝"
|
||
fullC ← isFull/primC
|
||
extraC ← pre (¬∘∊˜/⊢) fullC
|
||
# •Out List "bi_"⊸∾¨ (primC∊extraC) / primN
|
||
|
||
glyphs ← Import "glyphs.bqn"
|
||
_getComp ← { (4+2×srcmap)↑ <∘⊢∾˜ 5↑ (𝕗 Import "c.bqn"){𝔽} }
|
||
Comp ← ((<"incG(runtime["∾F∾"])"˙)¨↕≠∾glyphs) glyphs _getComp ⊢
|
||
RT ← {
|
||
ext ← 2=≠𝕩
|
||
𝕩 ↩ ⊑𝕩
|
||
src‿need‿inputs←((ext⊑𝕩‿1) ∾ ext/⟨fullC, extraC⟩) Import "pr.bqn"
|
||
pr←"runtime_0"‿"provide"{(∾𝕨<⊸(<∘{∾"incG("‿𝕨‿"["‿𝕩‿"])"}⟜F¨)⟜(↕≠)¨𝕩)⊏˜(∾𝕩)⊐∾need}○((-1+1=𝕩)⊸↑)inputs
|
||
FmtComp pr need _getComp src
|
||
}
|
||
CArg ← {(@+10) Join (¯5⊸↓∾𝕩˙)⌾⊑ FLines "c.bqn"}
|
||
SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ FChars∘∾⟜".bqn"¨ "../svg"‿𝕩}
|
||
|
||
LFC ← FmtComp∘Comp
|
||
|
||
(@+10)∾˜ •Out⍟(¬return) (⊑"r"‿"r0"‿"r1"‿"r1x"‿"c"‿"cc"‿"f"‿"e"‿"eu"‿"p"⊐⊏)◶⟨
|
||
RT∘2, RT∘0, RT∘1, RT∘1‿'x'
|
||
{𝕩⋄LFC CArg "⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs}
|
||
{𝕩⋄LFC "{"∾"}"∾˜CArg"𝕩"}
|
||
{𝕩⋄LFC FChars "f.bqn"}
|
||
{𝕩⋄LFC SVG "e"}
|
||
{𝕩⋄LFC FChars "eu.bqn"}
|
||
{𝕩⋄LFC SVG "p"}
|
||
∾LFC¨
|
||
⟩ args |