diff --git a/contrib/tcl/FREEBSD-upgrade b/contrib/tcl/FREEBSD-upgrade index e5954af27493..39461b982ae0 100644 --- a/contrib/tcl/FREEBSD-upgrade +++ b/contrib/tcl/FREEBSD-upgrade @@ -18,3 +18,11 @@ Tcl 8.0 beta 2 cd tcl8.0b2 rm -rf win mac compat cvs import src/contrib/tcl TCL tcl8_0_b2 + +Tcl 8.0 patch 2 + Imported with the commands: + + tar zxvf tcl8.0p2.tar.gz + cd tcl8.0p2 + rm -rf win mac compat + cvs import src/contrib/tcl TCL tcl8_0_p2 diff --git a/contrib/tcl/README.FreeBSD b/contrib/tcl/README.FreeBSD index e5954af27493..39461b982ae0 100644 --- a/contrib/tcl/README.FreeBSD +++ b/contrib/tcl/README.FreeBSD @@ -18,3 +18,11 @@ Tcl 8.0 beta 2 cd tcl8.0b2 rm -rf win mac compat cvs import src/contrib/tcl TCL tcl8_0_b2 + +Tcl 8.0 patch 2 + Imported with the commands: + + tar zxvf tcl8.0p2.tar.gz + cd tcl8.0p2 + rm -rf win mac compat + cvs import src/contrib/tcl TCL tcl8_0_p2 diff --git a/contrib/tcl/doc/expr.n b/contrib/tcl/doc/expr.n index f4532cc18a7a..f0969ceda161 100644 --- a/contrib/tcl/doc/expr.n +++ b/contrib/tcl/doc/expr.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" SCCS: @(#) expr.n 1.27 97/08/12 11:31:30 +'\" SCCS: @(#) expr.n 1.28 97/09/18 18:21:30 '\" .so man.macros .TH expr n 8.0 Tcl "Tcl Built-In Commands" @@ -144,12 +144,13 @@ Bit-wise exclusive OR. Valid for integer operands only. Bit-wise OR. Valid for integer operands only. .TP 20 \fB&&\fR -Logical AND. Produces a 1 result if both operands are non-zero, 0 otherwise. -Valid for numeric operands only (integers or floating-point). +Logical AND. Produces a 1 result if both operands are non-zero, +0 otherwise. +Valid for boolean and numeric (integers or floating-point) operands only. .TP 20 \fB||\fR Logical OR. Produces a 0 result if both operands are zero, 1 otherwise. -Valid for numeric operands only (integers or floating-point). +Valid for boolean and numeric (integers or floating-point) operands only. .TP 20 \fIx\fB?\fIy\fB:\fIz\fR If-then-else, as in C. If \fIx\fR diff --git a/contrib/tcl/unix/configure b/contrib/tcl/unix/configure index 0609faf99472..35cee45363c1 100755 --- a/contrib/tcl/unix/configure +++ b/contrib/tcl/unix/configure @@ -404,12 +404,12 @@ else fi -# SCCS: @(#) configure.in 1.140 97/08/12 10:36:18 +# SCCS: @(#) configure.in 1.144 97/11/20 12:39:44 TCL_VERSION=8.0 TCL_MAJOR_VERSION=8 TCL_MINOR_VERSION=0 -TCL_PATCH_LEVEL="" +TCL_PATCH_LEVEL="p2" VERSION=${TCL_VERSION} if test "${prefix}" = "NONE"; then @@ -621,7 +621,7 @@ EOF fi done -# Nb: if getcwd uses popen and pwd(1) (like Solaris) we should really +# Nb: if getcwd uses popen and pwd(1) (like SunOS 4) we should really # define USEGETWD even if the posix getcwd exists. Add a test ? for ac_func in opendir strstr @@ -1999,6 +1999,43 @@ EOF fi +#-------------------------------------------------------------------- +# Some systems (e.g., IRIX 4.0.5) lack the st_blksize field +# in struct stat. +#-------------------------------------------------------------------- +echo $ac_n "checking for st_blksize in struct stat""... $ac_c" 1>&6 +if eval "test \"`echo '$''{'ac_cv_struct_st_blksize'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#include +int main() { return 0; } +int t() { +struct stat s; s.st_blksize; +; return 0; } +EOF +if eval $ac_compile; then + rm -rf conftest* + ac_cv_struct_st_blksize=yes +else + rm -rf conftest* + ac_cv_struct_st_blksize=no +fi +rm -f conftest* + +fi +echo "$ac_t""$ac_cv_struct_st_blksize" 1>&6 +if test $ac_cv_struct_st_blksize = yes; then + cat >> confdefs.h <<\EOF +#define HAVE_ST_BLKSIZE 1 +EOF + +fi + + #-------------------------------------------------------------------- # On some systems strstr is broken: it returns a pointer even # even if the original string is empty. @@ -2009,7 +2046,7 @@ if test "$cross_compiling" = yes; then tcl_ok=no else cat > conftest.$ac_ext <&6 else cat > conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext < #include @@ -2326,7 +2363,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 @@ -2344,7 +2381,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 @@ -2365,7 +2402,7 @@ if test "$cross_compiling" = yes; then ac_cv_header_stdc=no else cat > conftest.$ac_ext < #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') @@ -2399,7 +2436,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 < #if STDC_HEADERS @@ -2430,7 +2467,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 < #if STDC_HEADERS @@ -2461,7 +2498,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 < #if STDC_HEADERS @@ -2492,7 +2529,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 @@ -2532,7 +2569,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 <&6 cat > conftest.$ac_ext < #include @@ -2623,7 +2660,7 @@ fi echo $ac_n "checking matherr support""... $ac_c" 1>&6 cat > conftest.$ac_ext < int main() { return 0; } @@ -2665,7 +2702,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 < conftest.$ac_ext < @@ -2772,7 +2809,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 < conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext <&6 else cat > conftest.$ac_ext <&6 cat > conftest.$ac_ext < EOF @@ -3029,7 +3066,7 @@ else ac_save_LIBS="$LIBS" LIBS="-linet $LIBS" cat > conftest.$ac_ext <&6 else cat > conftest.$ac_ext < EOF @@ -3101,7 +3138,7 @@ else if test "$GCC" = yes; then # GCC predefines this symbol on systems where it applies. cat > conftest.$ac_ext <&2; exit 1; } else cat > conftest.$ac_ext <&6 cat > conftest.$ac_ext <&6 else cat > conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext <&6 else cat > conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext <&6 else cat > conftest.$ac_ext < EOF @@ -3725,7 +3762,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 @@ -3908,7 +3945,7 @@ fi echo $ac_n "checking for ld accepts -Bexport flag""... $ac_c" 1>&6 LDFLAGS="${LDFLAGS} -Wl,-Bexport" cat > conftest.$ac_ext <&6 cat > conftest.$ac_ext < int main() { return 0; } @@ -3995,7 +4032,7 @@ EOF else echo $ac_n "checking a.out.h""... $ac_c" 1>&6 cat > conftest.$ac_ext < int main() { return 0; } @@ -4032,7 +4069,7 @@ EOF else echo $ac_n "checking sys/exec_aout.h""... $ac_c" 1>&6 cat > conftest.$ac_ext < int main() { return 0; } @@ -4143,7 +4180,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 @@ -4179,7 +4216,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 diff --git a/contrib/tcl/unix/tclUnixTime.c b/contrib/tcl/unix/tclUnixTime.c index 03a7315d6ccc..ba8d984f3119 100644 --- a/contrib/tcl/unix/tclUnixTime.c +++ b/contrib/tcl/unix/tclUnixTime.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: @(#) tclUnixTime.c 1.12 97/01/08 17:38:15 + * SCCS: @(#) tclUnixTime.c 1.13 97/10/31 15:04:58 */ #include "tclInt.h"