1## -*- tcl -*- 2## 3## NX-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 nx 16package require pt::rde::nx ; # NX-based implementation of the 17 # PARAM virtual machine 18 # underlying the Tcl/PARAM code 19 # used below. 20 21# # ## ### ##### ######## ############# ##################### 22## 23 24nx::Class create PARSER -superclasses pt::rde::nx { 25 # # ## ### ##### ######## ############# 26 ## Public API 27 28 :public method parse {channel} { 29 :reset $channel 30 :MAIN ; # Entrypoint for the generated code. 31 return [:complete] 32 } 33 34 :public method parset {text} { 35 :reset {} 36 :data $text 37 :MAIN ; # Entrypoint for the generated code. 38 return [:complete] 39 } 40 41 # # ## ### ###### ######## ############# 42 ## BEGIN of GENERATED CODE. DO NOT EDIT. 43 44 # 45 # Grammar Start Expression 46 # 47 48 :method MAIN {} { 49 : si:next_class abc 50 return 51 } 52 53 ## END of GENERATED CODE. DO NOT EDIT. 54 # # ## ### ###### ######## ############# 55} 56 57# # ## ### ##### ######## ############# ##################### 58## Ready 59 60package provide NX_PACKAGE 1 61return 62