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
|
# -*- tcl -*-
# Copyright (c) 2009-2014 Andreas Kupries <andreas_kupries@sourceforge.net>
# Copyright (c) 2016 Stefan Sobernig <stefan.sobernig@wu.ac.at>
# Canned configuration for the converter to Tcl/PARAM representation,
# causing generation of a proper NX class.
# The requirements of the embedded template are not our requirements.
# @mdgen NODEP: nx
# @mdgen NODEP: pt::rde::nx
# # ## ### ##### ######## ############# #####################
## Requirements
package require Tcl 8.5 9 ; # Required runtime.
# # ## ### ##### ######## ############# #####################
##
namespace eval ::pt::tclparam::configuration::nx {
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::nx::def {class pkg version cmd} {
lappend map @@PKG@@ $pkg
lappend map @@VERSION@@ $version
lappend map @@CLASS@@ $class
lappend map \n\t \n ;# undent the template
{*}$cmd -runtime-command :
{*}$cmd -self-command :
{*}$cmd -proc-command :method
{*}$cmd -prelude {}
{*}$cmd -namespace {}
{*}$cmd -main MAIN
{*}$cmd -indent 4
{*}$cmd -template [string trim \
[string map $map {
## -*- tcl -*-
##
## NX-based Tcl/PARAM implementation of the parsing
## expression grammar
##
## @name@
##
## Generated from file @file@
## for user @user@
##
# # ## ### ##### ######## ############# #####################
## Requirements
package require Tcl 8.5 9
package require nx
package require pt::rde::nx ; # NX-based implementation of the
# PARAM virtual machine
# underlying the Tcl/PARAM code
# used below.
# # ## ### ##### ######## ############# #####################
##
nx::Class create @@CLASS@@ -superclasses pt::rde::nx {
# # ## ### ##### ######## #############
## Public API
:public method parse {channel} {
:reset $channel
:MAIN ; # Entrypoint for the generated code.
return [:complete]
}
:public method parset {text} {
:reset {}
:data $text
:MAIN ; # Entrypoint for the generated code.
return [: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::nx {}
# # ## ### ##### ######## ############# #####################
## Ready
package provide pt::tclparam::configuration::nx 1.0.2
return
|
