1/* 2 * -*- tcl -*- 3 * Parsing Expression Grammar 'TEMPLATE'. 4 * Generated for unknown, from file 'TEST' 5 */ 6 7/* 8 * Declaring the parse functions 9 */ 10 11<<attributes>> void <<ns>>kleene_2 (<<STATE>> <<state>>); 12 13/* 14 * Precomputed table of strings (symbols, error messages, etc.). 15 */ 16 17static char const* <<string-table>> [1] = { 18 /* 0 = */ "t a" 19}; 20 21/* 22 * Grammar Start Expression 23 */ 24 25<<attributes>> void <<ns>><<main>> (<<STATE>> <<state>>) { <<prelude>> 26 <<self>> <<ns>>kleene_2 (<<state>>); 27 return; 28} 29 30<<attributes>> void <<ns>>kleene_2 (<<STATE>> <<state>>) { <<prelude>> 31 /* 32 * * 33 * 'a' 34 */ 35 36 while (1) { 37 rde_param_i_state_push_2 (<<state>>); 38 rde_param_i_next_char (<<state>>, "a", 0); 39 if (rde_param_i_kleene_close(<<state>>)) return; 40 } 41 return; 42} 43 44/* 45 */ 46