Check-in [37f218e272]
Overview
Comment:Corrected issue with checking for variables
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 37f218e27288dcbbd1c44378c3f5d0f98b1d01c7
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
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;"







|

|







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"
}