From dac860740b56a580c0b71a83a5614f5a78e011f5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 2 Sep 2020 12:05:24 -0400
Subject: Display C0 control codes with control pictures

---
 src/cjs.bqn |   5 +++--
 src/fmt.bqn | Bin 2245 -> 2549 bytes
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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)¨
diff --git a/src/fmt.bqn b/src/fmt.bqn
index d5b3d355..ac5d3025 100644
Binary files a/src/fmt.bqn and b/src/fmt.bqn differ
-- 
cgit v1.2.3