QRegister push-down stack: [x and ]x commands

 * rubout is quite tricky but ensures minimal memory copying

1 files changed, 26 insertions, 23 deletions

diff --git a/teco.ini b/teco.ini
index a104968..6f81323 100755
--- a/teco.ini
+++ b/teco.ini
@@ -2,41 +2,42 @@
 
 ! TECO.INI !
 
-@R/
-  U3U2U1
-  (Q1*256 + Q2)*256 + Q3
-/
-
 @0/
   @O"add,edit,close,quit"
 
-!add!
+!add! [f[r[0[1[2
   f^QQ* EQf
 
-  ZJ -:@S".^Q^E[cpp,c,h]""S Z-."= @EB"^Q^EQf"
-    3,4001ES^[
-    0,4005@ES"break case continue default do else for goto if return switch while"^[
-    0,255,0MR,0,2051@ES""^[
-    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^[
-    Oend
+  r
+     U2U1U0 (Q0*256 + Q1)*256 + Q2
+
+  ZJ -:@S".^Q^E[cpp,c,h]""S Z-."=
+    EB^QQf
+    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
   ''
 
-  ZJ -:Smakefile"S Z-."= @EB"^Q^EQf"
-    11,4001ES^[
-    0,255,0MR,1,2051ES^[
-    Oend
+  ZJ -:Smakefile"S Z-."=
+    EB^QQf
+    11,4001ES
+    0,255,0Mr,1,2051ES
+    Oadd.end
   ''
 
-  @EB"^Q^EQf"
-  @O"end"
+  EB^QQf
+!add.end!
+  ]2]1]0]r]f Oend
 
 !edit!
-  @O"end"
+  Oend
 
 !close!
-  @O"end"
+  Oend
 
 !quit!
   ! fall through !
@@ -45,5 +46,7 @@
 ED#32ED
 
 ! open all files specified on the commandline !
-<:L;R 0Xf EBQf EB L>
+[f
+  <:L;R 0Xf EBQf EB L>
+]f
 -EF