From 9e4af856e3bd93571f384c4b8a03d9a079dce1dc Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Sat, 22 Nov 2014 23:39:56 +0100
Subject: updated lexer and session libraries using new EU, [* and ]* commands

---
 lib/lexer.tes | 31 ++++++++++++++-----------------
 1 file changed, 14 insertions(+), 17 deletions(-)

(limited to 'lib/lexer.tes')

diff --git a/lib/lexer.tes b/lib/lexer.tes
index 0a4622c..bf6b475 100644
--- a/lib/lexer.tes
+++ b/lib/lexer.tes
@@ -4,13 +4,12 @@
 @[lexer.checkheader]{
   .h

   0,0,1ESPOSITIONFROMLINE:X.h
-  EQ.h :S
Q_ Q*EB
+  [* EQ.h :S
Q_ ]*
 }
 
 ! Match Q-Reg "_" against end of current doc's file name !
 @[lexer.checkname]{
-  EQ* ZJ I
 H:SQ_

-  Q*EB
+  [* EQ* ZJ I
 H:SQ_
 ]*
 }
 
 @[lexer.auto]{
@@ -19,19 +18,17 @@
   :M[color.error],35M[color.set]
 }
 
-! Automatically mung all the lexers and them to "lexer.auto" !
-Q*U.#cd EQ.[lexers]
-ENQ[$SCITECOPATH]/lexers/*.tes J
-<:L;R
-  0X.[filename] .-4U.p -S/ .,Q.pX.[name]
-  EMQ.[filename]
-  EQ[lexer.auto] ZJ
-  @I{
-    :M[lexer.test.Q.[name]]"S :M[lexer.set.Q.[name]] Oend '
-  }
-  EQ.[lexers]
-L>
-Q.#cdEB
+! Automatically mung all the lexers and add them to "lexer.auto" !
+[*
+  EQ.[lexers] ENQ[$SCITECOPATH]/lexers/*.tes J
+  <:L;R
+    0X.[filename] 4R .U.p <-A-^^/"= 1; ':R;> .,Q.pX.[name]
+    EMQ.[filename]
+    :@EU[lexer.auto]{
+      :M[lexer.test.Q.[name]]"S :M[lexer.set.Q.[name]] Oend '
+    }
+  L>
+]*
 
-! append an "end" label !
+! append "end" label to "lexer.auto" !
 :[lexer.auto]!end!
-- 
cgit v1.2.3