diff options
38 files changed, 71 insertions, 62 deletions
@@ -3,7 +3,7 @@ README: Tcl Tcl is maintained, enhanced, and distributed freely as a service to the Tcl community by Scriptics Corporation. -RCS: @(#) $Id: README,v 1.16 1999/04/16 00:46:29 stanton Exp $ +RCS: @(#) $Id: README,v 1.17 1999/04/21 21:50:22 rjohnson Exp $ Contents -------- @@ -31,20 +31,16 @@ variety of web-related tasks and for creating powerful command languages for applications. This directory contains the sources and documentation for Tcl. The -information here corresponds to release 8.1b3, which is the third -beta release for Tcl 8.1. This release is mostly feature complete but -may have bugs and be missing some minor features. This release is for -early adopters who are willing to help us find and fix problems. -Please let us know about any problems you uncover. +information here corresponds to release 8.1.0. Tcl 8.1 includes four major new features: Unicode support (all internal strings are now stored in UTF-8 form), a new regular expression matcher -with most of the Perl features, support for multithreading, and a new -message catalog package. For details on features, incompatibilities, and -potential problems with this release, see the Tcl/Tk 8.1 Web page at -http://www.scriptics.com/software/8.1.html or refer to the "changes" file -in this directory, which contains a historical record of all changes to -Tcl. +which surpass the features of Perl, support for multithreading, and a +new message catalog package. For details on features, +incompatibilities, and potential problems with this release, see the +Tcl/Tk 8.1 Web page at http://www.scriptics.com/software/8.1.html or +refer to the "changes" file in this directory, which contains a +historical record of all changes to Tcl. Tcl is a freely available open source package. You can do virtually anything you like with it, such as modifying it, redistributing it, diff --git a/doc/DString.3 b/doc/DString.3 index e03f1f0..42890a5 100644 --- a/doc/DString.3 +++ b/doc/DString.3 @@ -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. '\" -'\" RCS: @(#) $Id: DString.3,v 1.3 1999/04/16 22:53:43 hershey Exp $ +'\" RCS: @(#) $Id: DString.3,v 1.4 1999/04/21 21:50:22 rjohnson Exp $ '\" .so man.macros .TH Tcl_DString 3 7.4 Tcl "Tcl Library Procedures" diff --git a/doc/Notifier.3 b/doc/Notifier.3 index c92b3cb..fd1adfd 100644 --- a/doc/Notifier.3 +++ b/doc/Notifier.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: Notifier.3,v 1.3 1999/04/16 22:53:43 hershey Exp $ +'\" RCS: @(#) $Id: Notifier.3,v 1.4 1999/04/21 21:50:22 rjohnson Exp $ '\" .so man.macros .TH Notifier 3 8.0 Tcl "Tcl Library Procedures" diff --git a/doc/Thread.3 b/doc/Thread.3 index 733bb52..b5321c4 100644 --- a/doc/Thread.3 +++ b/doc/Thread.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: Thread.3,v 1.3 1999/04/16 22:53:43 hershey Exp $ +'\" RCS: @(#) $Id: Thread.3,v 1.4 1999/04/21 21:50:22 rjohnson Exp $ '\" .so man.macros .TH Tcl_ConditionNotify 3 "8.1" Tcl "Tcl Library Procedures" diff --git a/generic/tcl.decls b/generic/tcl.decls index b7f87d7..92d2bb2 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.9 1999/04/17 00:32:27 hershey Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.10 1999/04/21 21:50:23 rjohnson Exp $ library tcl diff --git a/generic/tcl.h b/generic/tcl.h index 895d34e..b886f3c 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.41 1999/04/21 18:16:45 surles Exp $ + * RCS: @(#) $Id: tcl.h,v 1.42 1999/04/21 21:50:23 rjohnson Exp $ */ #ifndef _TCL @@ -44,11 +44,11 @@ #define TCL_MAJOR_VERSION 8 #define TCL_MINOR_VERSION 1 -#define TCL_RELEASE_LEVEL TCL_BETA_RELEASE -#define TCL_RELEASE_SERIAL 3 +#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TCL_RELEASE_SERIAL 0 #define TCL_VERSION "8.1" -#define TCL_PATCH_LEVEL "8.1b3" +#define TCL_PATCH_LEVEL "8.1.0" /* * The following definitions set up the proper options for Windows diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 78730df..cb40ff3 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -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. * - * RCS: @(#) $Id: tclDecls.h,v 1.8 1999/04/17 00:32:28 hershey Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.9 1999/04/21 21:50:25 rjohnson Exp $ */ #ifndef _TCLDECLS diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index b69358b..32c7186 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.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. * - * RCS: @(#) $Id: tclFCmd.c,v 1.4 1999/04/16 00:46:46 stanton Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.5 1999/04/21 21:50:25 rjohnson Exp $ */ #include "tclInt.h" @@ -172,7 +172,7 @@ FileCopyRename(interp, argc, argv, copyFlag) * Move each source file into target directory. Extract the basename * from each source, and append it to the end of the target path. */ - + for ( ; i < argc - 1; i++) { char *jargv[2]; char *source, *newFileName; @@ -432,7 +432,7 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) Tcl_DString sourcePath, targetPath, errorBuffer; char *targetName, *sourceName, *errfile; struct stat sourceStatBuf, targetStatBuf; - + sourceName = Tcl_TranslateFileName(interp, source, &sourcePath); if (sourceName == NULL) { return TCL_ERROR; diff --git a/generic/tclIO.c b/generic/tclIO.c index 32c844e..3e9ae4d 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.6 1999/04/16 00:46:47 stanton Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.7 1999/04/21 21:50:25 rjohnson Exp $ */ #include "tclInt.h" diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index a8f2427..9f9969a 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.7 1999/04/17 00:32:29 hershey Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.8 1999/04/21 21:50:26 rjohnson Exp $ */ #include "tclInt.h" diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 9d9cdd2..a643e81 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.7 1999/04/17 00:32:29 hershey Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.8 1999/04/21 21:50:26 rjohnson Exp $ library tcl diff --git a/generic/tclInt.h b/generic/tclInt.h index 734cdbf..dfc28fc 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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. * - * RCS: @(#) $Id: tclInt.h,v 1.26 1999/04/17 00:32:29 hershey Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.27 1999/04/21 21:50:26 rjohnson Exp $ */ #ifndef _TCLINT diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 6e49d84..837ff62 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -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. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.6 1999/04/17 00:32:30 hershey Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.7 1999/04/21 21:50:27 rjohnson Exp $ */ #ifndef _TCLINTDECLS diff --git a/generic/tclParse.c b/generic/tclParse.c index ba1b837..0792e6e 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParse.c,v 1.4 1999/04/21 18:16:45 surles Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.5 1999/04/21 21:50:27 rjohnson Exp $ */ #include "tclInt.h" diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c index fdbeaae..819628c 100644 --- a/generic/tclParseExpr.c +++ b/generic/tclParseExpr.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. * - * RCS: @(#) $Id: tclParseExpr.c,v 1.3 1999/04/21 18:16:46 surles Exp $ + * RCS: @(#) $Id: tclParseExpr.c,v 1.4 1999/04/21 21:50:28 rjohnson Exp $ */ #include "tclInt.h" diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a213fc7..321c16a 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.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. * - * RCS: @(#) $Id: tclStubInit.c,v 1.9 1999/04/17 00:32:30 hershey Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.10 1999/04/21 21:50:28 rjohnson Exp $ */ #include "tclInt.h" diff --git a/generic/tclTest.c b/generic/tclTest.c index ab6ac81..6506285 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.11 1999/04/17 00:32:31 hershey Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.12 1999/04/21 21:50:28 rjohnson Exp $ */ #define TCL_TEST diff --git a/generic/tclUtil.c b/generic/tclUtil.c index dfbdb08..095100f 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.7 1999/04/17 01:36:32 hershey Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.8 1999/04/21 21:50:29 rjohnson Exp $ */ #include "tclInt.h" diff --git a/library/package.tcl b/library/package.tcl index 4fa50c3..29b7627 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -3,7 +3,7 @@ # utility procs formerly in init.tcl which can be loaded on demand # for package management. # -# RCS: @(#) $Id: package.tcl,v 1.4 1999/04/20 02:20:41 surles Exp $ +# RCS: @(#) $Id: package.tcl,v 1.5 1999/04/21 21:50:29 rjohnson Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. diff --git a/tests/README b/tests/README index 3b22393..e8fb992 100644 --- a/tests/README +++ b/tests/README @@ -1,6 +1,6 @@ README -- Tcl test suite design document. -RCS: @(#) $Id: README,v 1.4 1999/04/20 18:12:18 hershey Exp $ +RCS: @(#) $Id: README,v 1.5 1999/04/21 21:50:29 rjohnson Exp $ Contents: --------- diff --git a/tests/all.tcl b/tests/all.tcl index 099e3ad..d6d898c 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.3 1999/04/17 00:32:32 hershey Exp $ +# RCS: @(#) $Id: all.tcl,v 1.4 1999/04/21 21:50:30 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] diff --git a/tests/defs.tcl b/tests/defs.tcl index 999c9a9..d5a6913 100644 --- a/tests/defs.tcl +++ b/tests/defs.tcl @@ -11,7 +11,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: defs.tcl,v 1.4 1999/04/20 19:19:35 hershey Exp $ +# RCS: @(#) $Id: defs.tcl,v 1.5 1999/04/21 21:50:30 rjohnson Exp $ # Initialize wish shell diff --git a/tests/event.test b/tests/event.test index d398b5e..e6667ab 100644 --- a/tests/event.test +++ b/tests/event.test @@ -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. # -# RCS: @(#) $Id: event.test,v 1.5 1999/04/20 19:19:35 hershey Exp $ +# RCS: @(#) $Id: event.test,v 1.6 1999/04/21 21:50:30 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] diff --git a/tests/msgcat.test b/tests/msgcat.test index 9dda28b..1d000a3 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgcat.test,v 1.3 1999/04/19 20:23:41 hershey Exp $ +# RCS: @(#) $Id: msgcat.test,v 1.4 1999/04/21 21:50:30 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test index daad69b..ce9d00a 100644 --- a/tests/pkgMkIndex.test +++ b/tests/pkgMkIndex.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: pkgMkIndex.test,v 1.7 1999/04/19 20:23:41 hershey Exp $ +# RCS: @(#) $Id: pkgMkIndex.test,v 1.8 1999/04/21 21:50:31 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] diff --git a/tests/socket.test b/tests/socket.test index 8ca46ff..dc8331c 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: socket.test,v 1.8 1999/04/20 18:12:18 hershey Exp $ +# RCS: @(#) $Id: socket.test,v 1.9 1999/04/21 21:50:31 rjohnson Exp $ # Running socket tests with a remote server: # ------------------------------------------ diff --git a/tests/thread.test b/tests/thread.test index 0780e7a..14ecab8 100644 --- a/tests/thread.test +++ b/tests/thread.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: thread.test,v 1.3 1999/04/20 18:12:19 hershey Exp $ +# RCS: @(#) $Id: thread.test,v 1.4 1999/04/21 21:50:31 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] diff --git a/tests/unixInit.test b/tests/unixInit.test index 747907f..7ed56b7 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixInit.test,v 1.3 1999/04/19 20:23:42 hershey Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.4 1999/04/21 21:50:31 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -139,7 +139,7 @@ test unixInit-2.6 {TclpInitLibraryPath: executable relative} \ set x [lrange [getlibpath /tmp/sparkly/bin/tcltest] 0 1] file delete -force /tmp/sparkly set x -} [list /tmp/sparkly/lib/tcl[info tclversion] /tmp/tcl[info patchlevel]/library] +} [list /tmp/sparkly/lib/tcl[info tclversion] /tmp/tcl[info tclversion]/library] test unixInit-2.7 {TclpInitLibraryPath: compiled-in library path} \ {emptyTest unixOnly} { # would need test command to get defaultLibDir and compare it to diff --git a/tests/winFile.test b/tests/winFile.test index 677150d..c343141 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: winFile.test,v 1.2 1999/04/16 00:47:37 stanton Exp $ +# RCS: @(#) $Id: winFile.test,v 1.3 1999/04/21 21:50:32 rjohnson Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -47,6 +47,20 @@ test winFile-1.3 {TclpGetUserHome} {nt nonPortable} { catch {glob ~stanton@workgroup} } {0} +test winFile-2.1 {TclpMatchFiles: case sensitivity} {pcOnly} { + makeFile {} GlobCapS + set result [list [glob -nocomplain GlobC*] [glob -nocomplain globc*]] + removeFile GlobCapS + set result +} {GlobCapS GlobCapS} + +test winFile-2.2 {TclpMatchFiles: case sensitivity} {pcOnly} { + makeFile {} globlower + set result [list [glob -nocomplain globl*] [glob -nocomplain gLOBl*]] + removeFile globlower + set result +} {globlower globlower} + # cleanup ::tcltest::cleanupTests return diff --git a/tools/checkLibraryDoc.tcl b/tools/checkLibraryDoc.tcl index 527dd2c..290f7a6 100755 --- a/tools/checkLibraryDoc.tcl +++ b/tools/checkLibraryDoc.tcl @@ -19,7 +19,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: checkLibraryDoc.tcl,v 1.4 1999/04/17 00:18:26 surles Exp $ +# RCS: @(#) $Id: checkLibraryDoc.tcl,v 1.5 1999/04/21 21:50:32 rjohnson Exp $ lappend auto_path "c:/program\ files/tclpro1.2/win32-ix86/bin" diff --git a/unix/Makefile.in b/unix/Makefile.in index 7bbb386..0992aa9 100644 --- a/unix/Makefile.in +++ b/unix/Makefile.in @@ -5,7 +5,7 @@ # "autoconf" program (constructs like "@foo@" will get replaced in the # actual Makefile. # -# RCS: @(#) $Id: Makefile.in,v 1.23 1999/04/20 01:48:40 surles Exp $ +# RCS: @(#) $Id: Makefile.in,v 1.24 1999/04/21 21:50:32 rjohnson Exp $ # Current Tcl version; used in various names. diff --git a/unix/configure.in b/unix/configure.in index 1e339a4..711863f 100644 --- a/unix/configure.in +++ b/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) -# RCS: @(#) $Id: configure.in,v 1.31 1999/04/16 00:48:03 stanton Exp $ +# RCS: @(#) $Id: configure.in,v 1.32 1999/04/21 21:50:33 rjohnson Exp $ TCL_VERSION=8.1 TCL_MAJOR_VERSION=8 TCL_MINOR_VERSION=1 -TCL_PATCH_LEVEL=b3 +TCL_PATCH_LEVEL=0 VERSION=${TCL_VERSION} if test "${prefix}" = "NONE"; then diff --git a/win/README.binary b/win/README.binary index 1112ef1..8a181f3 100644 --- a/win/README.binary +++ b/win/README.binary @@ -1,14 +1,14 @@ -Tcl/Tk 8.1b3 for Windows, Binary Distribution +Tcl/Tk 8.1 for Windows, Binary Distribution -RCS: @(#) $Id: README.binary,v 1.4 1999/04/16 00:48:06 stanton Exp $ +RCS: @(#) $Id: README.binary,v 1.5 1999/04/21 21:50:33 rjohnson Exp $ 1. Introduction --------------- -This directory contains the binary distribution of Tcl/Tk 8.1b3 for +This directory contains the binary distribution of Tcl/Tk 8.1.0 for Windows. It was compiled with Microsoft Visual C++ 5.0 using Win32 API, so that it will run under Windows NT and Windows 95. The -information here corresponds to the second beta release of 8.1. +information here corresponds to the first release of 8.1. 2. Documentation ---------------- diff --git a/win/makefile.vc b/win/makefile.vc index 984fa5a..bd3dec9 100644 --- a/win/makefile.vc +++ b/win/makefile.vc @@ -6,7 +6,7 @@ # Copyright (c) 1995-1996 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics Corporation. # -# RCS: @(#) $Id: makefile.vc,v 1.29 1999/04/21 18:16:46 surles Exp $ +# RCS: @(#) $Id: makefile.vc,v 1.30 1999/04/21 21:50:33 rjohnson Exp $ # Does not depend on the presence of any environment variables in # order to compile tcl; all needed information is derived from diff --git a/win/stub16.c b/win/stub16.c index b4d53ef..7114d4e 100644 --- a/win/stub16.c +++ b/win/stub16.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. * - * RCS: @(#) $Id: stub16.c,v 1.3 1999/04/21 20:10:09 redman Exp $ + * RCS: @(#) $Id: stub16.c,v 1.4 1999/04/21 21:50:34 rjohnson Exp $ */ #define STRICT diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index d7d990e..c4e25ae 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.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. * - * RCS: @(#) $Id: tclWinFCmd.c,v 1.4 1999/04/21 20:09:17 redman Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.5 1999/04/21 21:50:34 rjohnson Exp $ */ #include "tclWinInt.h" diff --git a/win/tclWinFile.c b/win/tclWinFile.c index e7dce3f..3a04a46 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.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. * - * RCS: @(#) $Id: tclWinFile.c,v 1.5 1999/04/16 00:48:08 stanton Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.6 1999/04/21 21:50:34 rjohnson Exp $ */ #include "tclWinInt.h" @@ -224,9 +224,7 @@ TclpMatchFiles(interp, separators, dirPtr, pattern, tail) Tcl_DStringInit(&patternString); newPattern = Tcl_DStringAppend(&patternString, pattern, tail - pattern); - if ((volFlags & FS_CASE_SENSITIVE) == 0) { - Tcl_UtfToLower(newPattern); - } + Tcl_UtfToLower(newPattern); /* * We need to check all files in the directory, so append a *.* @@ -306,6 +304,7 @@ TclpMatchFiles(interp, separators, dirPtr, pattern, tail) nativeMatchResult = nativeName; } Tcl_DStringFree(&ds); + if (nativeMatchResult == NULL) { continue; } diff --git a/win/tclWinSerial.c b/win/tclWinSerial.c index a96f908..35bc13c 100644 --- a/win/tclWinSerial.c +++ b/win/tclWinSerial.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. * - * RCS: @(#) $Id: tclWinSerial.c,v 1.3 1999/04/21 20:08:17 redman Exp $ + * RCS: @(#) $Id: tclWinSerial.c,v 1.4 1999/04/21 21:50:34 rjohnson Exp $ */ #include "tclWinInt.h" |