#!/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¨ ⋄ {0=⌈´=¨𝕩? Li 𝕩; =◶⟨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