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.

1 files changed, 6 insertions, 6 deletions

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