From ec510eda5f080d39906c396a36cba89188031640 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Tue, 20 Nov 2012 00:43:18 +0100
Subject: local Q-Register tables; :M command

 * munged files use the same local Q-Registers as commandline
 * :M calls macro without new set of local registers (local register names refer to the parent macro level)
 * only .x names accepted at the moment. for string building characters, this will like stay that way (cannot refer to extended/long names)
---
 teco.ini | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

(limited to 'teco.ini')

diff --git a/teco.ini b/teco.ini
index 97ae766..9b27a6c 100755
--- a/teco.ini
+++ b/teco.ini
@@ -5,33 +5,34 @@
 @0{
   Oadd,edit,close,quit
 
-!add! [f[r[0[1[2
-  EQ* HXf EQf
+!add!
+  EQ* HX.f EQ.f
 
-  r
-    U2U1U0 (Q0*256 + Q1)*256 + Q2
+  @.r{
+    U.2U.1U.0
+    (Q.0*256 + Q.1)*256 + Q.2
+  }
 
   ZJ -:S.[cpp,c,h]"S Z-."=
-    EBQf
+    EBQ.f
     3,4001ES
     0,4005ESbreak case continue default do else for goto if return switch while
-    0,255,0Mr,0,2051ES
-    0,255,0Mr,1,2051ES 0,255,0Mr,2,2051ES
-    255,255,0Mr,4,2051ES 255,0,0Mr,5,2051ES
-    255,0,255Mr,6,2051ES
-    Oadd.end
+    0,255,0:M.r,0,2051ES
+    0,255,0:M.r,1,2051ES 0,255,0:M.r,2,2051ES
+    255,255,0:M.r,4,2051ES 255,0,0:M.r,5,2051ES
+    255,0,255:M.r,6,2051ES
+    Oend
   ''
 
   ZJ -:Smakefile"S Z-."=
-    EBQf
+    EBQ.f
     11,4001ES
-    0,255,0Mr,1,2051ES
-    Oadd.end
+    0,255,0:M.r,1,2051ES
+    Oend
   ''
 
-  EBQf
-!add.end!
-  ]2]1]0]r]f Oend
+  EBQ.f
+  Oend
 
 !edit!
   Oend
@@ -46,7 +47,7 @@
 ED#32ED
 
 ! open all files specified on the commandline !
-[f
-  <:L;R 0Xf EBQf EB L>
-]f
+[.f
+  <:L;R 0X.f EBQ.f EB L>
+].f
 -EF
-- 
cgit v1.2.3