169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
if {$type == "Tcl_Interp*"} {
continue
}
lappend args $var
}
set adefs_c [join $adefs_c {, }]
# Determine how to return in failure
if {$rtype != "void"} {
if {[info exists returnErrorValue]} {
set return_failure "return(${returnErrorValue})"
} else {
switch -- $rtype {
|
>
>
>
|
>
|
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
if {$type == "Tcl_Interp*"} {
continue
}
lappend args $var
}
if {[llength $adefs_c] == 0} {
set adefs_c "void"
} else {
set adefs_c [join $adefs_c {, }]
}
# Determine how to return in failure
if {$rtype != "void"} {
if {[info exists returnErrorValue]} {
set return_failure "return(${returnErrorValue})"
} else {
switch -- $rtype {
|