1## -*- tcl -*- 2## 3## OO-based Tcl/PARAM implementation of the parsing 4## expression grammar 5## 6## TEMPLATE 7## 8## Generated from file TEST 9## for user unknown 10## 11# # ## ### ##### ######## ############# ##################### 12## Requirements 13 14package require Tcl 8.5 15package require OO 16package require pt::rde::oo ; # OO-based implementation of the 17 # PARAM virtual machine 18 # underlying the Tcl/PARAM code 19 # used below. 20 21# # ## ### ##### ######## ############# ##################### 22## 23 24oo::class create PARSER { 25 # # ## ### ##### ######## ############# 26 ## Public API 27 28 superclass pt::rde::oo ; # TODO - Define this class. 29 # Or can we inherit from a snit 30 # class too ? 31 32 method parse {channel} { 33 my reset $channel 34 my MAIN ; # Entrypoint for the generated code. 35 return [my complete] 36 } 37 38 method parset {text} { 39 my reset 40 my data $text 41 my MAIN ; # Entrypoint for the generated code. 42 return [my complete] 43 } 44 45 # # ## ### ###### ######## ############# 46 ## BEGIN of GENERATED CODE. DO NOT EDIT. 47 48 # 49 # Grammar Start Expression 50 # 51 52 method MAIN {} { 53 my poskleene_2 54 return 55 } 56 57 method poskleene_2 {} { 58 # + 59 # 'a' 60 61 my i_loc_push 62 my si:next_char a 63 my si:kleene_abort 64 while {1} { 65 my si:void2_state_push 66 my si:next_char a 67 my si:kleene_close 68 } 69 return 70 } 71 72 ## END of GENERATED CODE. DO NOT EDIT. 73 # # ## ### ###### ######## ############# 74} 75 76# # ## ### ##### ######## ############# ##################### 77## Ready 78 79package provide OO_PACKAGE 1 80return 81