From 2214c609e2459c397dfa9431558e4770d4bde24c Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 29 Oct 2020 15:53:35 -0400
Subject: Add source indices to compiler output, but don't use them anywhere

---
 src/c.bqn   | 12 ++++++------
 src/cjs.bqn |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 29c7d752..2e5c8e63 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -179,11 +179,11 @@ Parse ← {r‿vn‿ind←𝕨⋄nv←≠vn
   ll←sll∾˜(¬lo/1«ps)+-⟜»1↓(lo∾1)/+`ls∾0
   dr←/ls<s⋄rt←/fo
 
-  or←⍋idor∾g⊏˜∾⟨cn,cn,bk,bk,dr,2/l,af/at,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy,rt⟩
+  or←⍋oi←idor∾g⊏˜∾⟨cn,cn,bk,bk,dr,2/l,af/at,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy,rt⟩
   bc←or⊏∾idbc∾⟨0¨cn,ob,15¨bk,1+↕≠bk,14¨dr,⥊⍉(3+l⊏aa)≍ll
                11⌈(11-1+⊑bG)+(af/ai)⊏ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏er,25¨rt⟩
-  bcl‿el←LEB bc∾25
-  ⟨bcl,u,⟨ft,¬fx,el/˜1∾or≥bc-○≠rt,lc+fsc⟩⟩
+  bcl‿el‿ol←LEB bc∾25
+  ⟨bcl,u,⟨ft,¬fx,el/˜1∾or≥bc-○≠rt,lc+fsc⟩, ol/(¯1∾˜or⊏oi)⊏¯1(⊢∾⊏)ind⟩
 }
 
 LEB←{
@@ -191,11 +191,11 @@ LEB←{
   s←+`»i←1+l←⌊b⋆⁼1⌈𝕩
   o←⍋⍋↕∘≠⊸-i/s
   v←o⊏l{f←×𝕨⋄(𝕨-1)(b⊸(×⟜f+|)∾𝕊⟜(⌊÷⟜b)○(f⊸/))⍟(∨´f)𝕩}𝕩
-  v‿s
+  v‿s‿i
 }
 
 Compile←{
   ⟨tok,role,val,ind⟩←Tokenize 𝕩
-  ⟨bc,prim,blk⟩←⟨role,⊑val,ind⟩ Parse tok
-  ⟨bc, ∾⟨prim⊏𝕨⟩∾1↓val, <˘⍉>blk⟩
+  ⟨bc,prim,blk,indb⟩←⟨role,⊑val,ind⟩ Parse tok
+  ⟨bc, ∾⟨prim⊏𝕨⟩∾1↓val, <˘⍉>blk, indb⟩
 }
diff --git a/src/cjs.bqn b/src/cjs.bqn
index 3e6aaabf..47e65d04 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -1,7 +1,7 @@
 #! /usr/bin/env dbqn
 
 compile ← •Import "c.bqn"
-Comp ← ((<"runtime["∾⍕∾"]"˙)¨↕62)⊸Compile
+Comp ← ¯1 ↓ ((<"runtime["∾⍕∾"]"˙)¨↕62)⊸Compile
 FP ← ∞⊸=◶⟨⍕,"Infinity"⟩
 Esc ← (⟨"\t","\n","\r","\'","\"""⟩∾<∘⥊)⊑˜("'"""∾˜@+9‿10‿13)⊑∘⊐⊢
 Str ← "str("""∾(∾Esc¨)∾""")"˜
-- 
cgit v1.2.3