thanks for trying it. I’m not sure why the loader doesn’t find “Tgdbm_Init” because it’s there in tgdbm.c
Further discussion in email …

I finally have it to compile in my FreeBSD, I change the include and lib path
INCLUDES = -I/usr/local/include -I/usr/local/include/tcl8.4

# append the needed library-paths: -L/??
LIBS = -L. -L/usr/lib -L/usr/local/lib -lgdbm -ltclstub84

I got hte following warning when running make:
gcc -Wall -DUSE_TCL_STUBS -I/usr/local/include -I/usr/local/include/tcl8.4 -o tgdbm.o -c tgdbm.c
tgdbm.c: In function ‘copyResultNull’:
tgdbm.c:277: warning: cast from pointer to integer of different size
tgdbm.c:283: warning: cast from pointer to integer of different size
tgdbm.c: At top level:
tgdbm.c:44: warning: ‘rcsid’ defined but not used
gcc -shared -o tgdbm.so -L. -L/usr/lib -L/usr/local/lib -lgdbm -ltclstub84

And I try to load the lib (to test it)
[root@miniBeastie /opt1/temp/tclgdbm]# /usr/local/bin/tclsh8.4
% load ./tgdbm.so
couldn’t find procedure Tgdbm_Init
% pkg_mkIndex -verbose — . *.so
warning: error while loading tgdbm.so: couldn’t find procedure Tgdbm_Init
%

I try with tcl8.5 and got the same result.

Thank in advance for your help. I will be able to test it on FreeBSD, if you need a FreeBSD testbed, I am ready to help you.

FreeBSD:
FreeBSD miniBeastie 8.0-RELEASE-p2 FreeBSD 8.0-RELEASE-p2 #0: Wed Mar 31 22:02:56 EDT 2010 root@miniBeastie:/usr/obj/usr/src/sys/MINIBEASTIE3 i386

tcl: 8.4.19 and 8.5.8
contact me at: yvesguerin (at) yahoo (point) ca

Regards,

Yves

thanks for your interest. This thing is rather old, but nevertheless it works
The actual version of Tcl is 8.5. Maybe it’s enough to adapt the version-nummers?
Could you try it? I didn’t have a FreeBSD-system at hand.

Thanks and best regards
Stefan

I try to compile this package on FreeBSD:
FreeBSD miniBeastie 8.0-RELEASE-p2 FreeBSD 8.0-RELEASE-p2 #0: Wed Mar 31 22:02:56 EDT 2010 root@miniBeastie:/usr/obj/usr/src/sys/MINIBEASTIE3 i386

tgdbm: tgdbm0.5a.zip

gdbm: gdbm-1.8.3_3

I modified the Makefile to reflect the FreeBSD architecture: add /local to every path:
INCLUDES = -I/usr/local/include -I/usr/local/include/tcl8.4
LIBS = -L. -L/usr/local/lib -lgdbm -llibtclstub84

But I got the following error:

gcc -shared -o tgdbm.so -L. -L/usr/local/lib -lgdbm -llibtclstub84
/usr/bin/ld: cannot find -llibtclstub84
*** Error code 1

I got the tcl8.4: tcl-8.4.19_3,1
pkg_info -L tcl-8.4.19_3,1:/usr/local/lib/libtcl84.a
/usr/local/lib/libtcl84.so
/usr/local/lib/libtcl84.so.1
/usr/local/lib/libtclstub84.a

Could you help me ?

Regards,

Yves

array size returns 0 while array exists also returns 0.

The following is a workaround for this inconsistency;

#
# Note: fix for TGDBM problem: an empty array is NOT an array ?
#
if { ([array size $arrayVarName] == 0) && ([array exists $arrayVarName] == 0) } {
set ${arrayVarName}(DUMMY) dummyVal
unset ${arrayVarName}(DUMMY)
}

After this, array exists returns 1 and array size still returns 0.

Should be possible to fix in an upcoming release?

Thanks and regards Hermann

no, gdbm ist not thread safe due to static variables which e.g. holds the error-code (see also http://webauth.stanford.edu/manual/developer/thread_safety.html)

But thanks for looking for Tgdbm.

-john