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>>poskleene_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>>poskleene_2 (<<state>>); 27 return; 28} 29 30<<attributes>> void <<ns>>poskleene_2 (<<STATE>> <<state>>) { <<prelude>> 31 /* 32 * + 33 * 'a' 34 */ 35 36 rde_param_i_loc_push (<<state>>); 37 rde_param_i_next_char (<<state>>, "a", 0); 38 if (rde_param_i_kleene_abort(<<state>>)) return; 39 while (1) { 40 rde_param_i_state_push_2 (<<state>>); 41 rde_param_i_next_char (<<state>>, "a", 0); 42 if (rde_param_i_kleene_close(<<state>>)) return; 43 } 44 return; 45} 46 47/* 48 */ 49