1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
# -*- tcl -*-
# Copyright (c) 2009-2014 Andreas Kupries <andreas_kupries@sourceforge.net>
# Canned configuration for the converter to Tcl/PARAM representation,
# causing generation of a proper TclOO class.
# The requirements of the embedded template are not our requirements.
# @mdgen NODEP: TclOO
# @mdgen NODEP: pt::rde::oo
# # ## ### ##### ######## ############# #####################
## Requirements
package require Tcl 8.5 ; # Required runtime.
# # ## ### ##### ######## ############# #####################
##
namespace eval ::pt::tclparam::configuration::tcloo {
namespace export def
namespace ensemble create
}
# # ## ### ##### ######## #############
## Public API
# Check that the proposed serialization of an abstract syntax tree is
# indeed such.
proc ::pt::tclparam::configuration::tcloo::def {class pkg version cmd} {
# TODO :: See if we can consolidate the API for converters,
# TODO :: plugins, export manager, and container in some way.
# TODO :: Container may make exporter manager available through
# TODO :: public method.
lappend map @@PKG@@ $pkg
lappend map @@VERSION@@ $version
lappend map @@CLASS@@ $class
lappend map \n\t \n ;# undent the template
{*}$cmd -runtime-command my
{*}$cmd -self-command my
{*}$cmd -proc-command method
{*}$cmd -prelude {}
{*}$cmd -namespace {}
{*}$cmd -main MAIN
{*}$cmd -indent 4
{*}$cmd -template [string trim \
[string map $map {
## -*- tcl -*-
##
## OO-based Tcl/PARAM implementation of the parsing
## expression grammar
##
## @name@
##
## Generated from file @file@
## for user @user@
##
# # ## ### ##### ######## ############# #####################
## Requirements
package require Tcl 8.5
package require TclOO
package require pt::rde::oo ; # OO-based implementation of the
# PARAM virtual machine
# underlying the Tcl/PARAM code
# used below.
# # ## ### ##### ######## ############# #####################
##
oo::class create @@CLASS@@ {
# # ## ### ##### ######## #############
## Public API
superclass pt::rde::oo ; # TODO - Define this class.
# Or can we inherit from a snit
# class too ?
method parse {channel} {
my reset $channel
my MAIN ; # Entrypoint for the generated code.
return [my complete]
}
method parset {text} {
my reset {}
my data $text
my MAIN ; # Entrypoint for the generated code.
return [my complete]
}
# # ## ### ###### ######## #############
## BEGIN of GENERATED CODE. DO NOT EDIT.
@code@
## END of GENERATED CODE. DO NOT EDIT.
# # ## ### ###### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide @@PKG@@ @@VERSION@@
return
}]]
return
}
# # ## ### ##### ######## #############
namespace eval ::pt::tclparam::configuration::tcloo {}
# # ## ### ##### ######## ############# #####################
## Ready
package provide pt::tclparam::configuration::tcloo 1.0.4
return
|
