diff options
author | phk <phk@FreeBSD.org> | 1997-10-01 13:19:13 +0000 |
---|---|---|
committer | phk <phk@FreeBSD.org> | 1997-10-01 13:19:13 +0000 |
commit | 5b30c2fb530aac2933dce3197e33362c844d3039 (patch) | |
tree | bca582e352640f318b35228d0c250ddde3bd0e0b /contrib/tcl/unix | |
parent | 30db38624722a51670556ef9b2dd7ccf4fb57387 (diff) | |
download | FreeBSD-src-5b30c2fb530aac2933dce3197e33362c844d3039.zip FreeBSD-src-5b30c2fb530aac2933dce3197e33362c844d3039.tar.gz |
Upgrade to 8.0 release.
Diffstat (limited to 'contrib/tcl/unix')
-rw-r--r-- | contrib/tcl/unix/Makefile.in | 37 | ||||
-rwxr-xr-x | contrib/tcl/unix/configure | 246 | ||||
-rwxr-xr-x | contrib/tcl/unix/configure.in | 19 | ||||
-rwxr-xr-x | contrib/tcl/unix/mkLinks | 8 | ||||
-rw-r--r-- | contrib/tcl/unix/tclConfig.sh.in | 5 | ||||
-rw-r--r-- | contrib/tcl/unix/tclUnixFile.c | 16 | ||||
-rw-r--r-- | contrib/tcl/unix/tclUnixInit.c | 9 | ||||
-rw-r--r-- | contrib/tcl/unix/tclUnixNotfy.c | 4 | ||||
-rw-r--r-- | contrib/tcl/unix/tclUnixPort.h | 9 | ||||
-rw-r--r-- | contrib/tcl/unix/tclUnixSock.c | 27 |
10 files changed, 255 insertions, 125 deletions
diff --git a/contrib/tcl/unix/Makefile.in b/contrib/tcl/unix/Makefile.in index 3d992a1..8d2d7c8 100644 --- a/contrib/tcl/unix/Makefile.in +++ b/contrib/tcl/unix/Makefile.in @@ -5,7 +5,7 @@ # "autoconf" program (constructs like "@foo@" will get replaced in the # actual Makefile. # -# SCCS: @(#) Makefile.in 1.174 97/06/26 17:58:32 +# SCCS: @(#) Makefile.in 1.187 97/08/15 10:23:55 # Current Tcl version; used in various names. @@ -73,7 +73,12 @@ MANN_INSTALL_DIR = $(MAN_INSTALL_DIR)/mann # To change the compiler switches, for example to change from -O # to -g, change the following line: +# On systems where both getcwd(3) and getwd(3) exist, check the man +# page and if getcwd, like on Solaris, uses popen to pwd(1) +# add -DUSEGETWD to the flags so getwd will be used instead. CFLAGS = -O +# Solaris recommended: +#CFLAGS = -O -DUSEGETWD # To disable ANSI-C procedure prototypes reverse the comment characters # on the following lines: @@ -314,12 +319,23 @@ all: ${TCL_LIB_FILE} tclsh # The following target is configured by autoconf to generate either # a shared library or non-shared library for Tcl. - ${TCL_LIB_FILE}: ${OBJS} rm -f ${TCL_LIB_FILE} @MAKE_LIB@ $(RANLIB) ${TCL_LIB_FILE} +# Make target which outputs the list of the .o contained in the Tcl lib +# usefull to build a single big shared library containing Tcl and other +# extensions. used for the Tcl Plugin. -- dl +# The dependency on OBJS is not there because we just want the list +# of objects here, not actually building them +tclLibObjs: + @echo ${OBJS} +# This targets actually build the objects needed for the lib in the above +# case +objs: ${OBJS} + + tclsh: ${TCLSH_OBJS} ${TCL_LIB_FILE} ${CC} @LD_FLAGS@ ${TCLSH_OBJS} @TCL_BUILD_LIB_SPEC@ ${LIBS} \ @TCL_LD_SEARCH_FLAGS@ -o tclsh @@ -344,6 +360,12 @@ test: tcltest TCL_LIBRARY=${TOP_DIR}/library; export TCL_LIBRARY; \ ( echo cd $(TOP_DIR)/tests\; source all ) | ./tcltest +# Useful target to launch a built tcltest with the proper path,... +runtest: + LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; \ + TCL_LIBRARY=${TOP_DIR}/library; export TCL_LIBRARY; \ + ./tcltest + # The following target outputs the name of the top-level source directory # for Tcl (it is used by Tk's configure script, for example). The # .NO_PARALLEL line is needed to avoid problems under Sun's "pmake". @@ -423,7 +445,7 @@ install-libraries: else true; \ fi; \ done; - @for i in http1.0 ; \ + @for i in http2.0 http1.0 opt0.1; \ do \ if [ ! -d $(SCRIPT_INSTALL_DIR)/$$i ] ; then \ echo "Making directory $(SCRIPT_INSTALL_DIR)/$$i"; \ @@ -439,7 +461,7 @@ install-libraries: echo "Installing $$i"; \ $(INSTALL_DATA) $$i $(SCRIPT_INSTALL_DIR); \ done; - @for i in http1.0 ; \ + @for i in http2.0 http1.0 opt0.1; \ do \ for j in $(TOP_DIR)/library/$$i/*.tcl ; \ do \ @@ -826,7 +848,7 @@ dist: $(UNIX_DIR)/configure mkdir $(DISTDIR)/library cp -p $(TOP_DIR)/license.terms $(TOP_DIR)/library/*.tcl \ $(TOP_DIR)/library/tclIndex $(DISTDIR)/library - for i in http1.0; \ + for i in http2.0 http1.0 opt0.1; \ do \ mkdir $(DISTDIR)/library/$$i ;\ cp -p $(TOP_DIR)/library/$$i/*.tcl $(DISTDIR)/library/$$i; \ @@ -843,8 +865,6 @@ dist: $(UNIX_DIR)/configure cp -p $(TOP_DIR)/tests/*.test $(TOP_DIR)/tests/README \ $(TOP_DIR)/tests/all $(TOP_DIR)/tests/remote.tcl \ $(TOP_DIR)/tests/defs $(DISTDIR)/tests - cp -r -p $(TOP_DIR)/tests/policies $(DISTDIR)/tests/policies - find $(DISTDIR)/tests/policies -name SCCS -exec rm -rf {} \; mkdir $(DISTDIR)/win cp -p $(TOP_DIR)/win/*.c $(TOP_DIR)/win/*.h $(TOP_DIR)/win/*.rc \ $(DISTDIR)/win @@ -862,6 +882,7 @@ dist: $(UNIX_DIR)/configure cp -p $(TOP_DIR)/mac/porting.notes $(TOP_DIR)/mac/README $(DISTDIR)/mac cp -p $(TOP_DIR)/mac/*.exp $(TOP_DIR)/mac/*.pch $(DISTDIR)/mac cp -p $(TOP_DIR)/mac/*.doc $(DISTDIR)/mac + cp -p $(TOP_DIR)/mac/*.html $(DISTDIR)/mac cp -p $(TOP_DIR)/license.terms $(DISTDIR)/mac mkdir $(DISTDIR)/unix/dltest cp -p $(UNIX_DIR)/dltest/*.c $(UNIX_DIR)/dltest/Makefile.in \ @@ -874,7 +895,7 @@ alldist: dist /proj/tcl/dist/$(DISTNAME).tar.gz \ /proj/tcl/dist/$(ZIPNAME) cd /proj/tcl/dist; tar cf $(DISTNAME).tar $(DISTNAME); \ - gzip -c $(DISTNAME).tar > $(DISTNAME).tar.gz; \ + gzip -9 -c $(DISTNAME).tar > $(DISTNAME).tar.gz; \ compress $(DISTNAME).tar; zip -r8 $(ZIPNAME) $(DISTNAME) # diff --git a/contrib/tcl/unix/configure b/contrib/tcl/unix/configure index d2cc578..0609faf 100755 --- a/contrib/tcl/unix/configure +++ b/contrib/tcl/unix/configure @@ -404,12 +404,12 @@ else fi -# SCCS: @(#) configure.in 1.135 97/06/10 17:28:19 +# SCCS: @(#) configure.in 1.140 97/08/12 10:36:18 TCL_VERSION=8.0 TCL_MAJOR_VERSION=8 TCL_MINOR_VERSION=0 -TCL_PATCH_LEVEL=b2 +TCL_PATCH_LEVEL="" VERSION=${TCL_VERSION} if test "${prefix}" = "NONE"; then @@ -565,14 +565,73 @@ echo "$ac_t""$ac_cv_c_cross" 1>&6 # set flags so Tcl uses alternate procedures. #-------------------------------------------------------------------- -for ac_func in getcwd opendir strstr +# Check if Posix compliant getcwd exists, if not we'll use getwd. +for ac_func in getcwd do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 576 "configure" +#line 577 "configure" +#include "confdefs.h" +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $ac_func(); below. */ +#include <assert.h> +/* Override any gcc2 internal prototype to avoid an error. */ +char $ac_func(); + +int main() { return 0; } +int t() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +$ac_func(); +#endif + +; return 0; } +EOF +if eval $ac_link; then + rm -rf conftest* + eval "ac_cv_func_$ac_func=yes" +else + rm -rf conftest* + eval "ac_cv_func_$ac_func=no" +fi +rm -f conftest* + +fi +if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` + cat >> confdefs.h <<EOF +#define $ac_tr_func 1 +EOF + +else + echo "$ac_t""no" 1>&6 +cat >> confdefs.h <<\EOF +#define USEGETWD 1 +EOF + +fi +done + +# Nb: if getcwd uses popen and pwd(1) (like Solaris) we should really +# define USEGETWD even if the posix getcwd exists. Add a test ? + +for ac_func in opendir strstr +do +echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 +if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext <<EOF +#line 635 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -614,6 +673,7 @@ fi done + for ac_func in strtol tmpnam waitpid do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 @@ -621,7 +681,7 @@ if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 625 "configure" +#line 685 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -668,7 +728,7 @@ if eval "test \"`echo '$''{'ac_cv_func_strerror'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 672 "configure" +#line 732 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char strerror(); below. */ @@ -716,7 +776,7 @@ if eval "test \"`echo '$''{'ac_cv_func_getwd'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 720 "configure" +#line 780 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char getwd(); below. */ @@ -764,7 +824,7 @@ if eval "test \"`echo '$''{'ac_cv_func_wait3'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 768 "configure" +#line 828 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char wait3(); below. */ @@ -812,7 +872,7 @@ if eval "test \"`echo '$''{'ac_cv_func_uname'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 816 "configure" +#line 876 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char uname(); below. */ @@ -868,7 +928,7 @@ if eval "test \"`echo '$''{'ac_cv_func_sin'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 872 "configure" +#line 932 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char sin(); below. */ @@ -915,7 +975,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lieee $LIBS" cat > conftest.$ac_ext <<EOF -#line 919 "configure" +#line 979 "configure" #include "confdefs.h" int main() { return 0; } @@ -958,7 +1018,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lbsd $LIBS" cat > conftest.$ac_ext <<EOF -#line 962 "configure" +#line 1022 "configure" #include "confdefs.h" int main() { return 0; } @@ -1000,7 +1060,7 @@ fi echo $ac_n "checking dirent.h""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1004 "configure" +#line 1064 "configure" #include "confdefs.h" #include <sys/types.h> #include <dirent.h> @@ -1058,7 +1118,7 @@ else # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. cat > conftest.$ac_ext <<EOF -#line 1062 "configure" +#line 1122 "configure" #include "confdefs.h" #include <assert.h> Syntax Error @@ -1072,7 +1132,7 @@ else rm -rf conftest* CPP="${CC-cc} -E -traditional-cpp" cat > conftest.$ac_ext <<EOF -#line 1076 "configure" +#line 1136 "configure" #include "confdefs.h" #include <assert.h> Syntax Error @@ -1103,7 +1163,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1107 "configure" +#line 1167 "configure" #include "confdefs.h" #include <errno.h> EOF @@ -1136,7 +1196,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1140 "configure" +#line 1200 "configure" #include "confdefs.h" #include <float.h> EOF @@ -1169,7 +1229,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1173 "configure" +#line 1233 "configure" #include "confdefs.h" #include <values.h> EOF @@ -1202,7 +1262,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1206 "configure" +#line 1266 "configure" #include "confdefs.h" #include <limits.h> EOF @@ -1235,7 +1295,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1239 "configure" +#line 1299 "configure" #include "confdefs.h" #include <stdlib.h> EOF @@ -1260,7 +1320,7 @@ tcl_ok=0 fi cat > conftest.$ac_ext <<EOF -#line 1264 "configure" +#line 1324 "configure" #include "confdefs.h" #include <stdlib.h> EOF @@ -1274,7 +1334,7 @@ fi rm -f conftest* cat > conftest.$ac_ext <<EOF -#line 1278 "configure" +#line 1338 "configure" #include "confdefs.h" #include <stdlib.h> EOF @@ -1288,7 +1348,7 @@ fi rm -f conftest* cat > conftest.$ac_ext <<EOF -#line 1292 "configure" +#line 1352 "configure" #include "confdefs.h" #include <stdlib.h> EOF @@ -1313,7 +1373,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1317 "configure" +#line 1377 "configure" #include "confdefs.h" #include <string.h> EOF @@ -1338,7 +1398,7 @@ tcl_ok=0 fi cat > conftest.$ac_ext <<EOF -#line 1342 "configure" +#line 1402 "configure" #include "confdefs.h" #include <string.h> EOF @@ -1352,7 +1412,7 @@ fi rm -f conftest* cat > conftest.$ac_ext <<EOF -#line 1356 "configure" +#line 1416 "configure" #include "confdefs.h" #include <string.h> EOF @@ -1377,7 +1437,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1381 "configure" +#line 1441 "configure" #include "confdefs.h" #include <sys/wait.h> EOF @@ -1410,7 +1470,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1414 "configure" +#line 1474 "configure" #include "confdefs.h" #include <dlfcn.h> EOF @@ -1445,7 +1505,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1449 "configure" +#line 1509 "configure" #include "confdefs.h" #include <$ac_hdr> EOF @@ -1485,7 +1545,7 @@ if test "$cross_compiling" = yes; then tk_ok=no else cat > conftest.$ac_ext <<EOF -#line 1489 "configure" +#line 1549 "configure" #include "confdefs.h" #include <termios.h> @@ -1519,7 +1579,7 @@ if test "$cross_compiling" = yes; then tk_ok=no else cat > conftest.$ac_ext <<EOF -#line 1523 "configure" +#line 1583 "configure" #include "confdefs.h" #include <termio.h> @@ -1552,7 +1612,7 @@ if test "$cross_compiling" = yes; then tk_ok=none else cat > conftest.$ac_ext <<EOF -#line 1556 "configure" +#line 1616 "configure" #include "confdefs.h" #include <sgtty.h> @@ -1598,7 +1658,7 @@ echo "$ac_t""$tk_ok" 1>&6 echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1602 "configure" +#line 1662 "configure" #include "confdefs.h" #include <sys/types.h> int main() { return 0; } @@ -1617,7 +1677,7 @@ rm -f conftest* if test $tk_ok = no; then cat > conftest.$ac_ext <<EOF -#line 1621 "configure" +#line 1681 "configure" #include "confdefs.h" #include <sys/select.h> EOF @@ -1655,7 +1715,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1659 "configure" +#line 1719 "configure" #include "confdefs.h" #include <$ac_hdr> EOF @@ -1688,7 +1748,7 @@ if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1692 "configure" +#line 1752 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/time.h> @@ -1721,7 +1781,7 @@ if eval "test \"`echo '$''{'ac_cv_struct_tm'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1725 "configure" +#line 1785 "configure" #include "confdefs.h" #include <sys/types.h> #include <time.h> @@ -1753,7 +1813,7 @@ if eval "test \"`echo '$''{'ac_cv_struct_tm_zone'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1757 "configure" +#line 1817 "configure" #include "confdefs.h" #include <sys/types.h> #include <$ac_cv_struct_tm> @@ -1784,7 +1844,7 @@ if eval "test \"`echo '$''{'ac_cv_var_tzname'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1788 "configure" +#line 1848 "configure" #include "confdefs.h" #include <time.h> #ifndef tzname /* For SGI. */ @@ -1817,7 +1877,7 @@ fi echo $ac_n "checking tm_tzadj in struct tm""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1821 "configure" +#line 1881 "configure" #include "confdefs.h" #include <time.h> int main() { return 0; } @@ -1841,7 +1901,7 @@ rm -f conftest* echo $ac_n "checking tm_gmtoff in struct tm""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1845 "configure" +#line 1905 "configure" #include "confdefs.h" #include <time.h> int main() { return 0; } @@ -1870,7 +1930,7 @@ rm -f conftest* have_timezone=no echo $ac_n "checking long timezone variable""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1874 "configure" +#line 1934 "configure" #include "confdefs.h" #include <time.h> int main() { return 0; } @@ -1901,7 +1961,7 @@ rm -f conftest* if test "$have_timezone" = no; then echo $ac_n "checking time_t timezone variable""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 1905 "configure" +#line 1965 "configure" #include "confdefs.h" #include <time.h> int main() { return 0; } @@ -1949,7 +2009,7 @@ if test "$cross_compiling" = yes; then tcl_ok=no else cat > conftest.$ac_ext <<EOF -#line 1953 "configure" +#line 2013 "configure" #include "confdefs.h" extern int strstr(); @@ -1985,7 +2045,7 @@ if eval "test \"`echo '$''{'ac_cv_func_strtoul'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 1989 "configure" +#line 2049 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char strtoul(); below. */ @@ -2029,7 +2089,7 @@ if test "$cross_compiling" = yes; then tcl_ok=0 else cat > conftest.$ac_ext <<EOF -#line 2033 "configure" +#line 2093 "configure" #include "confdefs.h" extern int strtoul(); @@ -2068,7 +2128,7 @@ if eval "test \"`echo '$''{'ac_cv_func_strtod'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2072 "configure" +#line 2132 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char strtod(); below. */ @@ -2112,7 +2172,7 @@ if test "$cross_compiling" = yes; then tcl_ok=0 else cat > conftest.$ac_ext <<EOF -#line 2116 "configure" +#line 2176 "configure" #include "confdefs.h" extern double strtod(); @@ -2153,7 +2213,7 @@ if eval "test \"`echo '$''{'ac_cv_func_strtod'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2157 "configure" +#line 2217 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char strtod(); below. */ @@ -2199,7 +2259,7 @@ if test "$tcl_strtod" = 1; then tcl_ok=0 else cat > conftest.$ac_ext <<EOF -#line 2203 "configure" +#line 2263 "configure" #include "confdefs.h" extern double strtod(); @@ -2244,7 +2304,7 @@ if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2248 "configure" +#line 2308 "configure" #include "confdefs.h" #include <stdlib.h> #include <stdarg.h> @@ -2266,7 +2326,7 @@ rm -f conftest* if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat > conftest.$ac_ext <<EOF -#line 2270 "configure" +#line 2330 "configure" #include "confdefs.h" #include <string.h> EOF @@ -2284,7 +2344,7 @@ fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat > conftest.$ac_ext <<EOF -#line 2288 "configure" +#line 2348 "configure" #include "confdefs.h" #include <stdlib.h> EOF @@ -2305,7 +2365,7 @@ if test "$cross_compiling" = yes; then ac_cv_header_stdc=no else cat > conftest.$ac_ext <<EOF -#line 2309 "configure" +#line 2369 "configure" #include "confdefs.h" #include <ctype.h> #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') @@ -2339,7 +2399,7 @@ if eval "test \"`echo '$''{'ac_cv_type_mode_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2343 "configure" +#line 2403 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -2370,7 +2430,7 @@ if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2374 "configure" +#line 2434 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -2401,7 +2461,7 @@ if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2405 "configure" +#line 2465 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -2432,7 +2492,7 @@ if eval "test \"`echo '$''{'ac_cv_type_uid_t'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2436 "configure" +#line 2496 "configure" #include "confdefs.h" #include <sys/types.h> EOF @@ -2472,7 +2532,7 @@ if eval "test \"`echo '$''{'ac_cv_func_opendir'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2476 "configure" +#line 2536 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char opendir(); below. */ @@ -2526,7 +2586,7 @@ fi echo $ac_n "checking union wait""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 2530 "configure" +#line 2590 "configure" #include "confdefs.h" #include <sys/types.h> #include <sys/wait.h> @@ -2563,7 +2623,7 @@ fi echo $ac_n "checking matherr support""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 2567 "configure" +#line 2627 "configure" #include "confdefs.h" #include <math.h> int main() { return 0; } @@ -2605,7 +2665,7 @@ if eval "test \"`echo '$''{'ac_cv_func_vfork'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2609 "configure" +#line 2669 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char vfork(); below. */ @@ -2651,7 +2711,7 @@ if test "$tcl_ok" = 1; then tcl_ok=0 else cat > conftest.$ac_ext <<EOF -#line 2655 "configure" +#line 2715 "configure" #include "confdefs.h" #include <stdio.h> @@ -2712,7 +2772,7 @@ if eval "test \"`echo '$''{'ac_cv_func_strncasecmp'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2716 "configure" +#line 2776 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char strncasecmp(); below. */ @@ -2760,7 +2820,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lsocket $LIBS" cat > conftest.$ac_ext <<EOF -#line 2764 "configure" +#line 2824 "configure" #include "confdefs.h" int main() { return 0; } @@ -2796,7 +2856,7 @@ else ac_save_LIBS="$LIBS" LIBS="-linet $LIBS" cat > conftest.$ac_ext <<EOF -#line 2800 "configure" +#line 2860 "configure" #include "confdefs.h" int main() { return 0; } @@ -2844,7 +2904,7 @@ if eval "test \"`echo '$''{'ac_cv_func_BSDgettimeofday'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2848 "configure" +#line 2908 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char BSDgettimeofday(); below. */ @@ -2889,7 +2949,7 @@ if eval "test \"`echo '$''{'ac_cv_func_gettimeofday'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 2893 "configure" +#line 2953 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char gettimeofday(); below. */ @@ -2936,7 +2996,7 @@ fi echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 2940 "configure" +#line 3000 "configure" #include "confdefs.h" #include <sys/time.h> EOF @@ -2969,7 +3029,7 @@ else ac_save_LIBS="$LIBS" LIBS="-linet $LIBS" cat > conftest.$ac_ext <<EOF -#line 2973 "configure" +#line 3033 "configure" #include "confdefs.h" int main() { return 0; } @@ -3001,7 +3061,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3005 "configure" +#line 3065 "configure" #include "confdefs.h" #include <net/errno.h> EOF @@ -3041,7 +3101,7 @@ else if test "$GCC" = yes; then # GCC predefines this symbol on systems where it applies. cat > conftest.$ac_ext <<EOF -#line 3045 "configure" +#line 3105 "configure" #include "confdefs.h" #ifdef __CHAR_UNSIGNED__ yes @@ -3063,7 +3123,7 @@ if test "$cross_compiling" = yes; then { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; } else cat > conftest.$ac_ext <<EOF -#line 3067 "configure" +#line 3127 "configure" #include "confdefs.h" /* volatile prevents gcc2 from optimizing the test away on sparcs. */ #if !defined(__STDC__) || __STDC__ != 1 @@ -3093,7 +3153,7 @@ fi echo $ac_n "checking signed char declarations""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 3097 "configure" +#line 3157 "configure" #include "confdefs.h" int main() { return 0; } @@ -3145,7 +3205,7 @@ if eval "test \"`echo '$''{'ac_cv_func_connect'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3149 "configure" +#line 3209 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char connect(); below. */ @@ -3193,7 +3253,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lsocket $LIBS" cat > conftest.$ac_ext <<EOF -#line 3197 "configure" +#line 3257 "configure" #include "confdefs.h" int main() { return 0; } @@ -3229,7 +3289,7 @@ if eval "test \"`echo '$''{'ac_cv_func_accept'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3233 "configure" +#line 3293 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char accept(); below. */ @@ -3275,7 +3335,7 @@ if eval "test \"`echo '$''{'ac_cv_func_gethostbyname'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3279 "configure" +#line 3339 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char gethostbyname(); below. */ @@ -3319,7 +3379,7 @@ else ac_save_LIBS="$LIBS" LIBS="-lnsl $LIBS" cat > conftest.$ac_ext <<EOF -#line 3323 "configure" +#line 3383 "configure" #include "confdefs.h" int main() { return 0; } @@ -3435,7 +3495,7 @@ else ac_save_LIBS="$LIBS" LIBS="-ldl $LIBS" cat > conftest.$ac_ext <<EOF -#line 3439 "configure" +#line 3499 "configure" #include "confdefs.h" int main() { return 0; } @@ -3472,7 +3532,7 @@ TCL_LIB_VERSIONS_OK=ok case $system in AIX-4.[2-9]) SHLIB_CFLAGS="" - SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512" + SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" SHLIB_LD_LIBS='${LIBS}' SHLIB_SUFFIX=".so" DL_OBJS="tclLoadDl.o" @@ -3484,7 +3544,7 @@ case $system in ;; AIX-*) SHLIB_CFLAGS="" - SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512" + SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" SHLIB_LD_LIBS='${LIBS}' SHLIB_SUFFIX=".so" DL_OBJS="tclLoadDl.o tclLoadAix.o" @@ -3521,7 +3581,7 @@ else ac_save_LIBS="$LIBS" LIBS="-ldld $LIBS" cat > conftest.$ac_ext <<EOF -#line 3525 "configure" +#line 3585 "configure" #include "confdefs.h" int main() { return 0; } @@ -3607,7 +3667,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3611 "configure" +#line 3671 "configure" #include "confdefs.h" #include <dld.h> EOF @@ -3665,7 +3725,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 3669 "configure" +#line 3729 "configure" #include "confdefs.h" #include <dlfcn.h> EOF @@ -3848,7 +3908,7 @@ fi echo $ac_n "checking for ld accepts -Bexport flag""... $ac_c" 1>&6 LDFLAGS="${LDFLAGS} -Wl,-Bexport" cat > conftest.$ac_ext <<EOF -#line 3852 "configure" +#line 3912 "configure" #include "confdefs.h" int main() { return 0; } @@ -3898,7 +3958,7 @@ esac if test "x$DL_OBJS" = "xtclLoadAout.o" ; then echo $ac_n "checking sys/exec.h""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 3902 "configure" +#line 3962 "configure" #include "confdefs.h" #include <sys/exec.h> int main() { return 0; } @@ -3935,7 +3995,7 @@ EOF else echo $ac_n "checking a.out.h""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 3939 "configure" +#line 3999 "configure" #include "confdefs.h" #include <a.out.h> int main() { return 0; } @@ -3972,7 +4032,7 @@ EOF else echo $ac_n "checking sys/exec_aout.h""... $ac_c" 1>&6 cat > conftest.$ac_ext <<EOF -#line 3976 "configure" +#line 4036 "configure" #include "confdefs.h" #include <sys/exec_aout.h> int main() { return 0; } @@ -4083,7 +4143,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 4087 "configure" +#line 4147 "configure" #include "confdefs.h" #include <$ac_hdr> EOF @@ -4119,7 +4179,7 @@ if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <<EOF -#line 4123 "configure" +#line 4183 "configure" #include "confdefs.h" #include <$ac_hdr> EOF @@ -4219,6 +4279,7 @@ else fi if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" ; then + TCL_SHARED_BUILD=1 TCL_SHLIB_CFLAGS="${SHLIB_CFLAGS}" TCL_LD_SEARCH_FLAGS="${LD_SEARCH_FLAGS}" eval "TCL_LIB_FILE=libtcl${TCL_SHARED_LIB_SUFFIX}" @@ -4229,6 +4290,7 @@ if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" ; then RANLIB=":" fi else + TCL_SHARED_BUILD=0 case $system in BSD/OS*) ;; @@ -4297,6 +4359,7 @@ fi + trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure @@ -4435,6 +4498,7 @@ s%@TCL_MINOR_VERSION@%$TCL_MINOR_VERSION%g s%@TCL_PACKAGE_PATH@%$TCL_PACKAGE_PATH%g s%@TCL_PATCH_LEVEL@%$TCL_PATCH_LEVEL%g s%@TCL_SHARED_LIB_SUFFIX@%$TCL_SHARED_LIB_SUFFIX%g +s%@TCL_SHARED_BUILD@%$TCL_SHARED_BUILD%g s%@TCL_SHLIB_CFLAGS@%$TCL_SHLIB_CFLAGS%g s%@TCL_SRC_DIR@%$TCL_SRC_DIR%g s%@TCL_UNSHARED_LIB_SUFFIX@%$TCL_UNSHARED_LIB_SUFFIX%g diff --git a/contrib/tcl/unix/configure.in b/contrib/tcl/unix/configure.in index 61605dc..27fa8b1 100755 --- a/contrib/tcl/unix/configure.in +++ b/contrib/tcl/unix/configure.in @@ -2,12 +2,12 @@ dnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during Tcl installation dnl to configure the system for the local environment. AC_INIT(../generic/tcl.h) -# SCCS: @(#) configure.in 1.135 97/06/10 17:28:19 +# SCCS: @(#) configure.in 1.140 97/08/12 10:36:18 TCL_VERSION=8.0 TCL_MAJOR_VERSION=8 TCL_MINOR_VERSION=0 -TCL_PATCH_LEVEL=b2 +TCL_PATCH_LEVEL="" VERSION=${TCL_VERSION} if test "${prefix}" = "NONE"; then @@ -34,7 +34,13 @@ AC_C_CROSS # set flags so Tcl uses alternate procedures. #-------------------------------------------------------------------- -AC_REPLACE_FUNCS(getcwd opendir strstr) +# Check if Posix compliant getcwd exists, if not we'll use getwd. +AC_CHECK_FUNCS(getcwd, , AC_DEFINE(USEGETWD)) +# Nb: if getcwd uses popen and pwd(1) (like Solaris) we should really +# define USEGETWD even if the posix getcwd exists. Add a test ? + +AC_REPLACE_FUNCS(opendir strstr) + AC_REPLACE_FUNCS(strtol tmpnam waitpid) AC_CHECK_FUNC(strerror, , AC_DEFINE(NO_STRERROR)) AC_CHECK_FUNC(getwd, , AC_DEFINE(NO_GETWD)) @@ -646,7 +652,7 @@ TCL_LIB_VERSIONS_OK=ok case $system in AIX-4.[[2-9]]) SHLIB_CFLAGS="" - SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512" + SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" SHLIB_LD_LIBS='${LIBS}' SHLIB_SUFFIX=".so" DL_OBJS="tclLoadDl.o" @@ -658,7 +664,7 @@ case $system in ;; AIX-*) SHLIB_CFLAGS="" - SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512" + SHLIB_LD="$fullSrcDir/ldAix /bin/ld -bhalt:4 -bM:SRE -bE:lib.exp -H512 -T512 -bnoentry" SHLIB_LD_LIBS='${LIBS}' SHLIB_SUFFIX=".so" DL_OBJS="tclLoadDl.o tclLoadAix.o" @@ -1136,6 +1142,7 @@ AC_ARG_ENABLE(shared, [ --enable-shared build libtcl as a shared library], [tcl_ok=$enableval], [tcl_ok=no]) if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" ; then + TCL_SHARED_BUILD=1 TCL_SHLIB_CFLAGS="${SHLIB_CFLAGS}" TCL_LD_SEARCH_FLAGS="${LD_SEARCH_FLAGS}" eval "TCL_LIB_FILE=libtcl${TCL_SHARED_LIB_SUFFIX}" @@ -1146,6 +1153,7 @@ if test "$tcl_ok" = "yes" -a "${SHLIB_SUFFIX}" != "" ; then RANLIB=":" fi else + TCL_SHARED_BUILD=0 case $system in BSD/OS*) ;; @@ -1209,6 +1217,7 @@ AC_SUBST(TCL_MINOR_VERSION) AC_SUBST(TCL_PACKAGE_PATH) AC_SUBST(TCL_PATCH_LEVEL) AC_SUBST(TCL_SHARED_LIB_SUFFIX) +AC_SUBST(TCL_SHARED_BUILD) AC_SUBST(TCL_SHLIB_CFLAGS) AC_SUBST(TCL_SRC_DIR) AC_SUBST(TCL_UNSHARED_LIB_SUFFIX) diff --git a/contrib/tcl/unix/mkLinks b/contrib/tcl/unix/mkLinks index 21d9f1c..b4da360 100755 --- a/contrib/tcl/unix/mkLinks +++ b/contrib/tcl/unix/mkLinks @@ -27,6 +27,10 @@ rm xyzzyTe* if test "$x" != "xyzzyTestingAVeryLongFileName.foo"; then exit fi +if test -r safe.n; then + rm -f Base.n + ln safe.n Base.n +fi if test -r http.n; then rm -f Http.n ln http.n Http.n @@ -755,6 +759,10 @@ if test -r RecordEval.3; then rm -f Tcl_RecordAndEval.3 ln RecordEval.3 Tcl_RecordAndEval.3 fi +if test -r RecEvalObj.3; then + rm -f Tcl_RecordAndEvalObj.3 + ln RecEvalObj.3 Tcl_RecordAndEvalObj.3 +fi if test -r RegExp.3; then rm -f Tcl_RegExpCompile.3 ln RegExp.3 Tcl_RegExpCompile.3 diff --git a/contrib/tcl/unix/tclConfig.sh.in b/contrib/tcl/unix/tclConfig.sh.in index f75782e..905aa84 100644 --- a/contrib/tcl/unix/tclConfig.sh.in +++ b/contrib/tcl/unix/tclConfig.sh.in @@ -9,7 +9,7 @@ # # The information in this file is specific to a single platform. # -# SCCS: @(#) tclConfig.sh.in 1.19 96/12/17 09:08:29 +# SCCS: @(#) tclConfig.sh.in 1.20 97/07/01 11:40:19 # Tcl's version number. TCL_VERSION='@TCL_VERSION@' @@ -23,6 +23,9 @@ TCL_CC='@CC@' # -D flags for use with the C compiler. TCL_DEFS='@DEFS@' +# Flag, 1: we built a shared lib, 0 we didn't +TCL_SHARED_BUILD=@TCL_SHARED_BUILD@ + # The name of the Tcl library (may be either a .a file or a shared library): TCL_LIB_FILE=@TCL_LIB_FILE@ diff --git a/contrib/tcl/unix/tclUnixFile.c b/contrib/tcl/unix/tclUnixFile.c index 3819ed5..eb11006 100644 --- a/contrib/tcl/unix/tclUnixFile.c +++ b/contrib/tcl/unix/tclUnixFile.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclUnixFile.c 1.45 97/05/14 13:24:19 + * SCCS: @(#) tclUnixFile.c 1.48 97/07/07 16:38:11 */ #include "tclInt.h" @@ -169,6 +169,16 @@ TclGetCwd(interp) currentDirExitHandlerSet = 1; Tcl_CreateExitHandler(FreeCurrentDir, (ClientData) NULL); } +#ifdef USEGETWD + if ((int)getwd(buffer) == (int)NULL) { + if (interp != NULL) { + Tcl_AppendResult(interp, + "error getting working directory name: ", + buffer, (char *)NULL); + } + return NULL; + } +#else if (getcwd(buffer, MAXPATHLEN+1) == NULL) { if (interp != NULL) { if (errno == ERANGE) { @@ -183,6 +193,7 @@ TclGetCwd(interp) } return NULL; } +#endif currentDir = (char *) ckalloc((unsigned) (strlen(buffer) + 1)); strcpy(currentDir, buffer); } @@ -273,6 +284,9 @@ Tcl_FindExecutable(argv0) name = Tcl_DStringValue(&buffer); goto gotName; } + if (*p == 0) { + break; + } p++; } goto done; diff --git a/contrib/tcl/unix/tclUnixInit.c b/contrib/tcl/unix/tclUnixInit.c index 930568b..91d866f 100644 --- a/contrib/tcl/unix/tclUnixInit.c +++ b/contrib/tcl/unix/tclUnixInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclUnixInit.c 1.25 97/06/24 17:28:56 + * SCCS: @(#) tclUnixInit.c 1.26 97/08/05 20:09:25 */ #include "tclInt.h" @@ -74,12 +74,13 @@ static char initScript[] = lappend dirs $parentDir/library\n\ foreach i $dirs {\n\ set tcl_library $i\n\ - if {[file exists $i/init.tcl]} {\n\ + set tclfile [file join $i init.tcl]\n\ + if {[file exists $tclfile]} {\n\ lappend tcl_pkgPath [file dirname $i]\n\ - if ![catch {uplevel #0 source $i/init.tcl} msg] {\n\ + if ![catch {uplevel #0 [list source $tclfile]} msg] {\n\ return\n\ } else {\n\ - append errors \"$i/init.tcl: $msg\n$errorInfo\n\"\n\ + append errors \"$tclfile: $msg\n$errorInfo\n\"\n\ }\n\ }\n\ }\n\ diff --git a/contrib/tcl/unix/tclUnixNotfy.c b/contrib/tcl/unix/tclUnixNotfy.c index 74c0ffc..857454c 100644 --- a/contrib/tcl/unix/tclUnixNotfy.c +++ b/contrib/tcl/unix/tclUnixNotfy.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclUnixNotfy.c 1.41 97/06/02 16:45:24 + * SCCS: @(#) tclUnixNotfy.c 1.42 97/07/02 20:55:44 */ #include "tclInt.h" @@ -208,7 +208,7 @@ Tcl_CreateFileHandler(fd, mask, proc, clientData) } } if (filePtr == NULL) { - filePtr = (FileHandler*) ckalloc(sizeof(FileHandler)); + filePtr = (FileHandler*) ckalloc(sizeof(FileHandler)); /* MLK */ filePtr->fd = fd; filePtr->readyMask = 0; filePtr->nextPtr = notifier.firstFileHandlerPtr; diff --git a/contrib/tcl/unix/tclUnixPort.h b/contrib/tcl/unix/tclUnixPort.h index c0d590a..186de21 100644 --- a/contrib/tcl/unix/tclUnixPort.h +++ b/contrib/tcl/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclUnixPort.h 1.47 97/05/22 10:57:36 + * SCCS: @(#) tclUnixPort.h 1.49 97/07/30 14:11:59 */ #ifndef _TCLUNIXPORT @@ -429,13 +429,6 @@ EXTERN int gettimeofday _ANSI_ARGS_((struct timeval *tp, #define MASK_SIZE howmany(FD_SETSIZE, NFDBITS) /* - * The following function is declared in tclInt.h but doesn't do anything - * on Unix systems. - */ - -#define TclSetSystemEnv(a,b) - -/* * The following implements the Unix method for exiting the process. */ #define TclPlatformExit(status) exit(status) diff --git a/contrib/tcl/unix/tclUnixSock.c b/contrib/tcl/unix/tclUnixSock.c index 4301889..b917832 100644 --- a/contrib/tcl/unix/tclUnixSock.c +++ b/contrib/tcl/unix/tclUnixSock.c @@ -8,21 +8,38 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclUnixSock.c 1.6 96/08/08 08:48:51 + * SCCS: @(#) tclUnixSock.c 1.7 97/07/24 17:54:02 */ #include "tcl.h" #include "tclPort.h" /* - * The following variable holds the network name of this host. + * There is no portable macro for the maximum length + * of host names returned by gethostbyname(). We should only + * trust SYS_NMLN if it is at least 255 + 1 bytes to comply with DNS + * host name limits. + * + * Note: SYS_NMLN is a restriction on "uname" not on gethostbyname! + * + * For example HP-UX 10.20 has SYS_NMLN == 9, while gethostbyname() + * can return a fully qualified name from DNS of up to 255 bytes. + * + * Fix suggested by Viktor Dukhovni (viktor@esm.com) */ -#ifndef SYS_NMLN -# define SYS_NMLN 100 +#if defined(SYS_NMLN) && SYS_NMLEN >= 256 +#define TCL_HOSTNAME_LEN SYS_NMLEN +#else +#define TCL_HOSTNAME_LEN 256 #endif -static char hostname[SYS_NMLN + 1]; + +/* + * The following variable holds the network name of this host. + */ + +static char hostname[TCL_HOSTNAME_LEN + 1]; static int hostnameInited = 0; /* |