Task #11581

* match.c (gather_s): New keyword variable.
(v_gather): New function.
(syms_init): gather_s initialized.
(dir_tables_init): v_gather entered into table.

* match.h (gather_s): Declared.

* parser.l: GATHER token scanning added.

* parser.y: GATHER token added. gather_clause nonterminal added.

* txr.1: New directive documented.

* txr.vim: gather keyword introduced.

1 files changed, 4 insertions, 0 deletions

diff --git a/parser.l b/parser.l
index af6da051..2a36a05b 100644
--- a/parser.l
+++ b/parser.l
@@ -240,6 +240,10 @@ UONLY   {U2}{U}|{U3}{U}{U}|{U4}{U}{U}{U}
                                   return CHOOSE;
                                 }
 
+<SPECIAL>\({WS}gather/{ID_END}  {
+                                  yy_push_state(NESTED);
+                                  return GATHER;
+                                }
 
 <SPECIAL>\({WS}and{WS}\)        {
                                   yy_pop_state();