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>>notahead_3 (<<STATE>> <<state>>); 12<<attributes>> void <<ns>>sequence_6 (<<STATE>> <<state>>); 13<<attributes>> void <<ns>>sym_TEST (<<STATE>> <<state>>); 14 15/* 16 * Precomputed table of strings (symbols, error messages, etc.). 17 */ 18 19static char const* <<string-table>> [3] = { 20 /* 0 = */ "t a", 21 /* 1 = */ "n TEST", 22 /* 2 = */ "TEST" 23}; 24 25/* 26 * Grammar Start Expression 27 */ 28 29<<attributes>> void <<ns>><<main>> (<<STATE>> <<state>>) { <<prelude>> 30 <<self>> <<ns>>sym_TEST (<<state>>); 31 return; 32} 33 34/* 35 * value Symbol 'TEST' 36 */ 37 38<<attributes>> void <<ns>>sym_TEST (<<STATE>> <<state>>) { <<prelude>> 39 /* 40 * x 41 * ! 42 * 'a' 43 * (IDENTIFIER) 44 */ 45 46 if (rde_param_i_symbol_start (<<state>>, 2)) return ; 47 <<self>> <<ns>>sequence_6 (<<state>>); 48 rde_param_i_symbol_done_leaf (<<state>>, 2, 1); 49 return; 50} 51 52<<attributes>> void <<ns>>sequence_6 (<<STATE>> <<state>>) { <<prelude>> 53 /* 54 * x 55 * ! 56 * 'a' 57 * (IDENTIFIER) 58 */ 59 60 rde_param_i_state_push_void (<<state>>); 61 <<self>> <<ns>>notahead_3 (<<state>>); 62 if (rde_param_i_seq_void2void(<<state>>)) return; 63 /* Undefined symbol 'IDENTIFIER' */; 64 rde_param_i_status_fail (<<state>>); 65 rde_param_i_state_merge_void (<<state>>); 66 return; 67} 68 69<<attributes>> void <<ns>>notahead_3 (<<STATE>> <<state>>) { <<prelude>> 70 /* 71 * ! 72 * 'a' 73 */ 74 75 rde_param_i_loc_push (<<state>>); 76 rde_param_i_next_char (<<state>>, "a", 0); 77 rde_param_i_notahead_exit (<<state>>); 78 return; 79} 80 81/* 82 */ 83