diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/cjs.bqn | 6 | ||||
| -rwxr-xr-x | src/pr.bqn | 6 |
2 files changed, 6 insertions, 6 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"} @@ -15,12 +15,12 @@ itr ← 0⥊˜≠chr init ← " "⊸∾¨(/⟜"_"¨nc/0‿1‿1)∾¨(nc/"FMD")∾¨(nc+´⊸↑⥊"ABC"∾⌜•a) post ← ∾⟜" "¨/⟜"_"¨nc/0‿0‿1 -names ← init∾¨(•UCS 48)∾¨post +names ← init∾¨'0'∾¨post Inc ← { i←⊑chr⊐𝕩 n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr - names↩((i⊑init)∾(•UCS 48+n)∾i⊑post)⌾(i⊑⊢)names + names↩((i⊑init)∾('0'+n)∾i⊑post)⌾(i⊑⊢)names } # Required functionality passed in as an argument @@ -43,5 +43,5 @@ E_redef ← { # handles [fmd] [←↩] (E_proc 1↑𝕩) ∾ "←" ∾ tail } -ref ← ∾∾⟜(•UCS 10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr +ref ← ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr ⟨ref, def+○≠keep⟩ |