diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-13 13:26:57 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-13 13:26:57 -0400 |
| commit | 28573f0dbc2338a2a7f29de0f8a9a9d531d6d29a (patch) | |
| tree | 2049f31715520247700f848f9f1818d4fe5e9b7a /src/cjs.bqn | |
| parent | 047bff85dd5094725b0898d8bdd5b8c32e5d766d (diff) | |
Pass VM-provided functionality through the objects array, not a function argument
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 |