diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 14:10:34 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 14:10:34 -0400 |
| commit | 6c3f798b272bc0e920791d6555ce66c7f958a5d6 (patch) | |
| tree | b0258b74fc35a18fcb8fd2c299258ac8aadf1e09 /src/cjs.bqn | |
| parent | 081237c27b912723438f498ffaa53a079a597b1b (diff) | |
Pass set of primitive glyphs into compiler as •args
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index e2e8b057..487740f0 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -18,7 +18,8 @@ F ← ⍕ # Format number FP ← ∞⊸=◶⟨F,"Infinity"⟩ # Format positive number Num ← 0⊸≤◶⟨"-"∾FP∘|,FP⟩ # Format number -compile ← •Import "c.bqn" +glyphs ← •Import "glyphs.bqn" +compile ← glyphs •Import "c.bqn" useInd ← "-i"≡⊑args←•args ⋄ args↓˜↩useInd Comp ← (3+useInd) ↑ ((<"runtime" Ind F)¨↕62)⊸Compile J ← ∾∾⟜(@+10)¨ @@ -29,7 +30,8 @@ Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩} SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩} •Out (⊑"r"‿"c"‿"f"‿"e"‿"p"⊐⊏)◶⟨ {𝕩⋄ref‿len←•Import"pr.bqn"⋄Long Frun len⊸↓⌾(1⊸⊑)Comp ref} - {𝕩⋄Long Fout Comp •FChars "c.bqn"} + {𝕩⋄g←"⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs + Long Fout Comp J (¯5⊸↓∾g˙)⌾⊑ •FLines "c.bqn"} {𝕩⋄Long Fout Comp •FChars "f.bqn"} {𝕩⋄Long Fout Comp SVG "e"} {𝕩⋄Long Fout Comp SVG "p"} |
