Implementing @(if)/@(elif)/@(else) in the pattern language.

Input side for now; output later.

* parser.y (if_clause, elif_clauses_opt, else_clause_opt): New nonterminals.
(IF, ELIF, ELSE): New tokens.
(yybadtoken): Handle IF, ELIF, ELSE.

* parser.l: Recognize and return new tokens IF, ELIF and ELSE.

* txr.1: Documented.

* genvim.txr: Updated with if, elsif and else directive keywords.

* txr.vim: Regenerated

1 files changed, 18 insertions, 0 deletions

diff --git a/parser.l b/parser.l
index 0e569980..3c4b7159 100644
--- a/parser.l
+++ b/parser.l
@@ -489,6 +489,24 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
   return FINALLY;
 }
 
+<SPECIAL>\({WS}if/{ID_END} {
+  yy_push_state(NESTED);
+  yylval.lineno = lineno;
+  return IF;
+}
+
+<SPECIAL>\({WS}elif/{ID_END} {
+  yy_push_state(NESTED);
+  yylval.lineno = lineno;
+  return ELIF;
+}
+
+<SPECIAL>\({WS}else{WS}\) {
+  yy_pop_state();
+  yylval.lineno = lineno;
+  return ELSE;
+}
+
 <SPECIAL>[{] {
   yy_push_state(BRACED);
   yylval.lineno = lineno;