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 TclOO
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 si:next_str abc
54        return
55    }
56
57    ## END of GENERATED CODE. DO NOT EDIT.
58    # # ## ### ###### ######## #############
59}
60
61# # ## ### ##### ######## ############# #####################
62## Ready
63
64package provide OO_PACKAGE 1
65return
66