[tcl] add

[emitrax]

tcl is needed to run sqlite tests, which in turn is both usefull to test the robustnees of the BFS file system, and it is needed for the webkit port.

[scottmc]

Port-Log:
http://ports.haiku-files.org/wiki/dev-lang/tcl

Some previous BeOS port diffs:

 http://osdir.com/ml/lang.tcl.core/2002-12/msg00031.html

[haiqu]

tcl8.5.7 in progress. Notes follow:

CFLAGS="-O2" CXXFLAGS="-O2" ./configure --prefix=/boot/common --disable-nls --enable-shared=yes --enable-threads=yes


In Makefile, remove -DHAVE_TERMIOS from AC_FLAGS

and add -lnetwork here (and about 3 or 4 similar places):

tclsh: ${TCLSH_OBJS} ${TCL_LIB_FILE}
	${CC} ${CFLAGS} ${LDFLAGS} ${TCLSH_OBJS} -L/boot/home/projects/tcl8.5.7/unix -lnetwork -ltcl8.5 ${LIBS}  \
		${CC_SEARCH_FLAGS} -o tclsh



generic/tclPosixStr.c

#if defined SIGBUS && !defined __BEOS__ && !defined __HAIKU__
    case SIGBUS: return "SIGBUS";
#endif

#if defined SIGBUS && !defined __BEOS__ && !defined __HAIKU__
    case SIGBUS: return "bus error";
#endif


Tests:

Tests began at Sat May 02 02:06:17 +0000 2009
append.test
appendComp.test
apply.test
assocd.test
async.test


==== async-4.3 async interrupting loop-less bytecode sequence FAILED
==== Contents of test case:

    hang3 $hm

---- Result was:
Async event not delivered
---- Result should have been (exact matching):
test pattern
==== async-4.3 FAILED

autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test
clock.test
cmdAH.test


==== cmdAH-16.3 Tcl_FileObjCmd: readable FAILED
==== Contents of test case:
file reada $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-16.3 FAILED



==== cmdAH-17.2 Tcl_FileObjCmd: writable FAILED
==== Contents of test case:
file writable $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-17.2 FAILED



==== cmdAH-19.11 Tcl_FileObjCmd: exists FAILED
==== Contents of test case:

    file delete -force /tmp/tcl.foo.dir/file
    file delete -force /tmp/tcl.foo.dir
    makeDirectory /tmp/tcl.foo.dir
    makeFile 12345 /tmp/tcl.foo.dir/file
    file attributes /tmp/tcl.foo.dir -permissions 0000

    set result [file exists /tmp/tcl.foo.dir/file]

    file attributes /tmp/tcl.foo.dir -permissions 0775
    removeFile /tmp/tcl.foo.dir/file
    removeDirectory /tmp/tcl.foo.dir
    set result

---- Result was:
1
---- Result should have been (exact matching)ELF

[michaelvoliveira]

I've tried to do that.. compiles... but I got several errors on final tests.. .

[scottmc]

Here's another dev who has done some porting work on tcl to BeOS:
 http://habilis.net/betcl/
Might be something useful is his work.

[augiedoggie]

tcl already functions fine on Haiku. One of the upstream developers added support a while ago. It just needs some tweaks to the test suite to account for some Haiku-isms. I have this work partially completed.

[augiedoggie]

Replying to augiedoggie:

tcl already functions fine on Haiku. One of the upstream developers added support a while ago. It just needs some tweaks to the test suite to account for some Haiku-isms. I have this work partially completed.

Seems I lost the work on the test suite when my computer had a meltdown. It fried the hard drive that held a lot of the work I had done on ports that aren't in the repo yet :(

I think it would be fairly safe to add it as is and work on the test suite when someone is motivated to do so.

[augiedoggie]

Added in r1591