From 6efa2ebd0e44b758740120374d63874beda7ba6a Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Wed, 17 Feb 2016 13:11:58 +0100
Subject: simplified "lexer.test..." macros using the $$ return command

 * this is slightly more efficient than using repeated conditionals
 * the last :EN does not require a conditional, as its return
   value can simply be forwarded.
 * even without $$, this could have been done easier using
   a once-only loop and breaking out of the loop if :EN fails using :;.
   The last :EN result is still stored in QReg "_".
 * :EN could also be used to match header lines if lexer.tes would
   leave the first line (header line) in some Q-Reg, like the local
   .[header].
   However, repeated :ENs would be necessary as globbing currently
   does not support {...,...} expansions.
   Since sooner or later, the header line must be evaluated for some
   lexer.set macro, this is probably more efficient than the current
   solution using SciTECO patterns and [lexer.checkheader] could be removed
   as well.
---
 lib/lexers/pascal.tes | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/lexers/pascal.tes')

diff --git a/lib/lexers/pascal.tes b/lib/lexers/pascal.tes
index 20d1a51..e78f383 100644
--- a/lib/lexers/pascal.tes
+++ b/lib/lexers/pascal.tes
@@ -1,12 +1,12 @@
 ! AUTO-GENERATED FROM SCITE PROPERTY SET !
 
 @[lexer.test.pascal]{
-  :EN*.dprQ*U.r
-  Q.r"F :EN*.pasQ*U.r '
-  Q.r"F :EN*.dfmQ*U.r '
-  Q.r"F :EN*.incQ*U.r '
-  Q.r"F :EN*.ppQ*U.r '
-Q.r}
+  :EN*.dprQ*"S -1 '
+  :EN*.pasQ*"S -1 '
+  :EN*.dfmQ*"S -1 '
+  :EN*.incQ*"S -1 '
+  :EN*.ppQ*
+}
 
 @[lexer.set.pascal]{
   ESSETLEXERLANGUAGEpascal
-- 
cgit v1.2.3