104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
if {[info exists state(procs)] && [llength $state(procs)] > 0} {
foreach {procname cname} $state(procs) {
append state(code) " Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
}
}
append state(code) "Tcl_PkgProvide(interp, \"$state(package)\", \"0.0\");\n"
append state(code) " return(TCL_OK);\n"
append state(code) "\}"
}
}
# Generate output code
tcc4tcl $dir $state(type) tcc
|
>
>
>
>
>
>
|
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
if {[info exists state(procs)] && [llength $state(procs)] > 0} {
foreach {procname cname} $state(procs) {
append state(code) " Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
}
}
set packageName [lindex $state(package) 0]
set packageVersion [lindex $state(package) 1]
if {$packageVersion == ""} {
set packageVersion "0"
}
append state(code) "Tcl_PkgProvide(interp, \"$packageName\", \"$packageVersion\");\n"
append state(code) " return(TCL_OK);\n"
append state(code) "\}"
}
}
# Generate output code
tcc4tcl $dir $state(type) tcc
|