Differences From Artifact [341f854450]:

• File tcc4tcl.tcl — part of check-in [9dea15950f] at 2014-06-23 01:45:05 on branch trunk — Updated to correctly define C functions that take no arguments (void) (user: rkeene, size: 10879) [annotate] [blame] [check-ins using]

To Artifact [f0b6dd4e2e]:

• File tcc4tcl.tcl — part of check-in [491d3ace1e] at 2014-06-23 01:45:56 on branch trunk — Updated to omit the #define for functions we are just wrapping (user: rkeene, size: 10855) [annotate] [blame] [check-ins using]

326
327
328
329
330
331
332
333
334
335
336
337
338
339
340

		} else {
			set cargs_str "void"
		}
		append code "static $rtype2 ${cname}($cargs_str) \{\n"
		append code $body
		append code "\}\n"
	} else {
		append code "#define $cname [namespace tail $name]" "\n"
	}

	# Create wrapper function
	## Supported input types
	##   Tcl_Interp*
	##   int
	##   long

|

326
327
328
329
330
331
332
333
334
335
336
337
338
339
340

		} else {
			set cargs_str "void"
		}
		append code "static $rtype2 ${cname}($cargs_str) \{\n"
		append code $body
		append code "\}\n"
	} else {
		set cname [namespace tail $name]
	}

	# Create wrapper function
	## Supported input types
	##   Tcl_Interp*
	##   int
	##   long