Overview
| Comment: | Corrected issue with checking for variables |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
37f218e27288dcbbd1c44378c3f5d0f9 |
| User & Date: | rkeene on 2014-07-16 16:15:56 |
| Other Links: | manifest | tags |
Context
|
2014-07-16
| ||
| 16:26 | Cleaned up some return code handling, and added test for binary blobs check-in: 1c563bb769 user: rkeene tags: trunk | |
| 16:15 | Corrected issue with checking for variables check-in: 37f218e272 user: rkeene tags: trunk | |
| 16:09 | Added syntaxes for byte arrays check-in: 17b2b81a02 user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [2aaf108bbf] to [f995e1562e].
| ︙ | ︙ | |||
259 260 261 262 263 264 265 |
}
}
_ccode $handle " _$arg = Tcl_New${convCmd}Obj($arg);"
_ccode $handle " if (!_$arg) $return_failure;"
}
char* {
| | | | 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 |
}
}
_ccode $handle " _$arg = Tcl_New${convCmd}Obj($arg);"
_ccode $handle " if (!_$arg) $return_failure;"
}
char* {
if {[info exists types(${arg}_MemberCount)] && [info exists types(${arg}_MemberLength)]} {
_ccode $handle " _$arg = Tcl_NewByteArrayObj($arg, ${arg}_MemberCount * ${arg}_MemberLength);"
} elseif {[info exists types(${arg}_Length)]} {
_ccode $handle " _$arg = Tcl_NewByteArrayObj($arg, ${arg}_Length);"
} else {
_ccode $handle " _$arg = Tcl_NewStringObj($arg, -1);"
}
}
Tcl_Obj* {
_ccode $handle " _$arg = $arg;"
|
| ︙ | ︙ |
Modified test.tcl from [907e91664c] to [635afa0e0c].
| ︙ | ︙ | |||
164 165 166 167 168 169 170 |
set handle [tcc4tcl::new]
$handle proc callToTcl1 {int x} float {
return 0.1
}
$handle cwrap callToTcl1 {int x} float
$handle go
puts [callToTcl1 3]
| > > > > > | 164 165 166 167 168 169 170 171 172 173 174 175 |
set handle [tcc4tcl::new]
$handle proc callToTcl1 {int x} float {
return 0.1
}
$handle cwrap callToTcl1 {int x} float
$handle go
puts [callToTcl1 3]
set handle [tcc4tcl::new]
$handle proc callToTclBinary {char* blob int blob_Length} ok {
puts "Blob: $blob"
}
|