diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-04 18:43:56 -0400 |
| commit | cf072f50d2e1c600c788d37645721a94c55377c8 (patch) | |
| tree | 4db511aff5d7ae99838d23f5b0b1022a3fd28e71 /src/cjs.bqn | |
| parent | 399c717259ae8b310a3503d4098acec3b9b65486 (diff) | |
Let's never use •UCS again
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index aa69f4b0..e4f3ccf4 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -3,15 +3,15 @@ compile ← ⟨•path∾"../c.bqn"⋄"DGenFn"⟩ •EX •path∾"../dzref" Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕60)⊸Compile FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ -Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜•UCS 9‿10‿13)⊑∘⊐⊢ +Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜@+9‿10‿13)⊑∘⊐⊢ Str ← "str("""∾(∾Esc¨)∾""")"˜ Char ← "'"(∾∾⊣)Esc Fconst ← ≡◶⟨(⊑⍋)∘(∾⟜∞)◶⟨0⊸≤◶⟨"-"∾FP∘|,FP⟩,Char⟩⋄Str⋄⊑⟩ L ← "["∾"]"∾˜1↓·∾","⊸∾⟜⍕¨ -J ← ∾∾⟜(•UCS 10)¨ +J ← ∾∾⟜(@+10)¨ Fout ← ⟨L∾⟜25,L Fconst¨,L⟨⊑"fmd"⊸⊐,⊢,⊢,≠⟩⊸(L{𝕎𝕩}¨)¨⟩ {𝕎𝕩}¨ 0‿1‿3 ⊏ ⊢ Frun ← ("provide.concat("∾∾⟜")")⌾(1⊸⊑) Fout -Long ← ∾ (1‿2/⟨" new Uint8Array("∾∾⟜")"⋄((•UCS 10)∾" ,")⊸∾⟩) {𝕎𝕩}¨ ⊢ +Long ← ∾ (1‿2/⟨" new Uint8Array("∾∾⟜")"⋄((@+10)∾" ,")⊸∾⟩) {𝕎𝕩}¨ ⊢ • ← (⊑"r"‿"c"‿"fmt"⊐⊏)◶⟨ {𝕩⋄Long Frun {𝕩⊸↓⌾(1⊸⊑)Comp𝕨}´ •EX •path∾"pr.bqn"} {𝕩⋄Long Fout Comp J •LNS •path∾"c.bqn"} |