From 46b80d891117b04ec032c3087c2271c4bc518840 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 22 Apr 2021 14:40:23 -0400
Subject: =?UTF-8?q?Implement=20=E2=80=A2ExtendedBQN=20to=20create=20sub-BQ?=
 =?UTF-8?q?Ns=20with=20added=20primitives?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/cjs.bqn | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/cjs.bqn b/src/cjs.bqn
index 487740f0..c15527a7 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -27,13 +27,17 @@ Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩
 Fout ← (≠↑⟨F,Fconst,L F¨,F⟩˙) {L𝕎¨𝕩}¨ ⊢
 Frun ← "provide"⊸Cat⌾(1⊸⊑) Fout
 Long ← ∾ (≠↑1‿3/⟨"  "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢
+LFC ← Long∘Fout∘Comp
+
 SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩}
-•Out (⊑"r"‿"c"‿"f"‿"e"‿"p"⊐⊏)◶⟨
+CArg ← {J (¯5⊸↓∾𝕩˙)⌾⊑ •FLines "c.bqn"}
+
+•Out (⊑"r"‿"c"‿"cc"‿"f"‿"e"‿"p"⊐⊏)◶⟨
   {𝕩⋄ref‿len←•Import"pr.bqn"⋄Long Frun len⊸↓⌾(1⊸⊑)Comp ref}
-  {𝕩⋄g←"⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs
-     Long Fout Comp J (¯5⊸↓∾g˙)⌾⊑ •FLines "c.bqn"}
-  {𝕩⋄Long Fout Comp •FChars "f.bqn"}
-  {𝕩⋄Long Fout Comp SVG "e"}
-  {𝕩⋄Long Fout Comp SVG "p"}
+  {𝕩⋄LFC CArg "⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs}
+  {𝕩⋄LFC "{"∾"}"∾˜CArg"𝕩"}
+  {𝕩⋄LFC •FChars "f.bqn"}
+  {𝕩⋄LFC SVG "e"}
+  {𝕩⋄LFC SVG "p"}
   ¯1 ↓ · J L∘Fout∘Comp¨
 ⟩ args
-- 
cgit v1.2.3