} 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"
		set cname [namespace tail $name]
	}

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