diff options
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 8796df9a..6ed5c5ae 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -1,17 +1,18 @@ #! /usr/bin/env dbqn compile ← ⟨•path∾"../c.bqn"⋄"DGenFn"⟩ •EX •path∾"../dzref" -Symcomp ← ((<"runtime["∾⍕∾"]"˜)¨↕59)⊸Compile +Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕59)⊸Compile FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ Str ← "str("""∾∾⟜""")" Char ← "'"(∾∾⊣)(⟨"\t","\n","\'"⟩∾<)⊑˜("'"∾˜•UCS 9‿10)⊑∘⊐⊢ -Fmt ← ≡◶⟨(⊑⍋)∘(∾⟜∞)◶⟨0⊸≤◶⟨"-"∾FP∘|,FP⟩,Char⟩⋄Str⋄⊑⟩ +Fconst ← ≡◶⟨(⊑⍋)∘(∾⟜∞)◶⟨0⊸≤◶⟨"-"∾FP∘|,FP⟩,Char⟩⋄Str⋄⊑⟩ L ← "["∾"]"∾˜1↓·∾","⊸∾⟜⍕¨ -G ← ⟨L∾⟜25,L Fmt¨,L⟨⊑"fmd"⊸⊐,⊢,⊢,≠⟩⊸(L{𝕎𝕩}¨)¨⟩ {𝕎𝕩}¨ 0‿1‿3 ⊏ Symcomp -Gen ← L G -GenLong ← ∾ (1‿2/⟨" new Uint8Array("∾∾⟜")"⋄((•UCS 10)∾" ,")⊸∾⟩) {𝕎𝕩}¨ G +J ← ∾∾⟜(•UCS 10)¨ +Fout ← ⟨L∾⟜25,L Fconst¨,L⟨⊑"fmd"⊸⊐,⊢,⊢,≠⟩⊸(L{𝕎𝕩}¨)¨⟩ {𝕎𝕩}¨ 0‿1‿3 ⊏ ⊢ +Frun ← ("provide.concat("∾∾⟜")")⌾(1⊸⊑) Fout +Long ← ∾ (1‿2/⟨" new Uint8Array("∾∾⟜")"⋄((•UCS 10)∾" ,")⊸∾⟩) {𝕎𝕩}¨ ⊢ • ← (⊑"r"‿"c"⊐⊏)◶⟨ - {𝕩⋄GenLong •EX •path∾"pr.bqn"} - {𝕩⋄GenLong ∾∾⟜(•UCS 10)¨ •LNS •path∾"c.bqn"} - ∾·∾⟜(•UCS 10)¨ Gen¨ + {𝕩⋄Long Frun {𝕩⊸↓⌾(1⊸⊑)Comp𝕨}´ •EX •path∾"pr.bqn"} + {𝕩⋄Long Fout Comp J •LNS •path∾"c.bqn"} + J L∘Fout∘Comp¨ ⟩ •args |