Posted to tcl by auriocus at Sat Jun 21 18:04:36 GMT 2014view pretty

cp /usr/include/i386/types.h /Users/chris/Sources/tcc4tcl-0ca36ca558fe0794/__TMP__/tcc4tcl-@@VERS@@/include/i386/types.h
cp /usr/include/mach/i386/_structs.h /Users/chris/Sources/tcc4tcl-0ca36ca558fe0794/__TMP__/tcc4tcl-@@VERS@@/include/mach/i386/_structs.h
./patch-headers.sh "/Users/chris/Sources/tcc4tcl-0ca36ca558fe0794/__TMP__/tcc4tcl-@@VERS@@/include"
if [ "@@VERS@@" = '@@VERS@@' ]; then cd __TMP__/* && ( \
		for file in tcc4tcl.tcl pkgIndex.tcl; do \
			sed 's/@@VERS@@/0.0/g' "${file}" > "${file}.new"; \
			cat "${file}.new" > "${file}"; \
			rm -f "${file}.new"; \
		done \
	); fi
tclsh ./test.tcl __TMP__
In file included from <string>:1:
In file included from __TMP__/tcc4tcl-@@VERS@@/include/tcl.h:141:
In file included from __TMP__/tcc4tcl-@@VERS@@/include/stdio.h:64:
__TMP__/tcc4tcl-@@VERS@@/include/sys/cdefs.h:81: warning: #warning "Unsupported compiler detected"
In file included from <string>:1:
In file included from __TMP__/tcc4tcl-@@VERS@@/include/tcl.h:386:
__TMP__/tcc4tcl-@@VERS@@/include/limits.h:37: error: function pointer expected
compilation failed
    while executing
"tcc compile $code"
    ("memory" arm line 2)
    invoked from within
"switch -- $state(type) {
			"memory" {
				tcc compile $code

				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
					foreach {procn..."
    (procedure "::tcc4tcl::_go" line 78)
    invoked from within
"::tcc4tcl::_go ::tcc4tcl::tcc_1 0"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args]"
    (procedure "::tcc4tcl::tcc_1" line 12)
    invoked from within
"$handle go"
    (procedure "tcc4tcl::cproc" line 4)
    invoked from within
"tcc4tcl::cproc test {int i} int { return(i+42); }"
    (file "./test.tcl" line 6)
make: *** [test] Error 1