diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-02 12:05:24 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-02 12:05:24 -0400 |
| commit | dac860740b56a580c0b71a83a5614f5a78e011f5 (patch) | |
| tree | c04814232c7a39ac3b16921aacfe68e4d3b48190 /src/cjs.bqn | |
| parent | d1355e96e069bdd600a85b34bf92b900623f8070 (diff) | |
Display C0 control codes with control pictures
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 78429169..b92c3c78 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -3,8 +3,9 @@ compile ← ⟨•path∾"../c.bqn"⋄"DGenFn"⟩ •EX •path∾"../dzref" Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕59)⊸Compile FP ← ∞⊸=◶⟨⍕,"Infinity"⟩ -Str ← "str("""∾∾⟜""")" -Char ← "'"(∾∾⊣)(⟨"\t","\n","\'"⟩∾<)⊑˜("'"∾˜•UCS 9‿10)⊑∘⊐⊢ +Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜•UCS 9‿10‿13)⊑∘⊐⊢ +Str ← "str("""∾(∾Esc¨)∾""")"˜ +Char ← "'"(∾∾⊣)Esc Fconst ← ≡◶⟨(⊑⍋)∘(∾⟜∞)◶⟨0⊸≤◶⟨"-"∾FP∘|,FP⟩,Char⟩⋄Str⋄⊑⟩ L ← "["∾"]"∾˜1↓·∾","⊸∾⟜⍕¨ J ← ∾∾⟜(•UCS 10)¨ |