tcl.h | tcl.h | |||
---|---|---|---|---|
skipping to change at line 16 | skipping to change at line 16 | |||
* | * | |||
* Copyright (c) 1987-1994 The Regents of the University of California. | * Copyright (c) 1987-1994 The Regents of the University of California. | |||
* Copyright (c) 1993-1996 Lucent Technologies. | * Copyright (c) 1993-1996 Lucent Technologies. | |||
* Copyright (c) 1994-1998 Sun Microsystems, Inc. | * Copyright (c) 1994-1998 Sun Microsystems, Inc. | |||
* Copyright (c) 1998-2000 by Scriptics Corporation. | * Copyright (c) 1998-2000 by Scriptics Corporation. | |||
* Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. | * Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. | |||
* | * | |||
* See the file "license.terms" for information on usage and redistribution | * See the file "license.terms" for information on usage and redistribution | |||
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. | * of this file, and for a DISCLAIMER OF ALL WARRANTIES. | |||
* | * | |||
* RCS: @(#) $Id: tcl.h,v 1.153.2.3 2003/05/15 18:59:37 hobbs Exp $ | * RCS: @(#) $Id: tcl.h,v 1.153.2.6 2003/07/16 22:06:04 hobbs Exp $ | |||
*/ | */ | |||
#ifndef _TCL | #ifndef _TCL | |||
#define _TCL | #define _TCL | |||
/* | /* | |||
* For C++ compilers, use extern "C" | * For C++ compilers, use extern "C" | |||
*/ | */ | |||
#ifdef __cplusplus | #ifdef __cplusplus | |||
skipping to change at line 49 | skipping to change at line 49 | |||
* When version numbers change here, must also go into the following files | * When version numbers change here, must also go into the following files | |||
* and update the version numbers: | * and update the version numbers: | |||
* | * | |||
* library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC | * library/init.tcl (only if Major.minor changes, not patchlevel) 1 LOC | |||
* unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) | * unix/configure.in (2 LOC Major, 2 LOC minor, 1 LOC patch) | |||
* win/configure.in (as above) | * win/configure.in (as above) | |||
* win/tcl.m4 (not patchlevel) | * win/tcl.m4 (not patchlevel) | |||
* win/makefile.vc (not patchlevel) 2 LOC | * win/makefile.vc (not patchlevel) 2 LOC | |||
* README (sections 0 and 2) | * README (sections 0 and 2) | |||
* mac/README (2 LOC, not patchlevel) | * mac/README (2 LOC, not patchlevel) | |||
* macosx/Tcl.pbproj/project.pbxproj | * macosx/Tcl.pbproj/project.pbxproj (not patchlevel) 2 LOC | |||
* (7 LOC total, 2 LOC patch) | ||||
* win/README.binary (sections 0-4) | * win/README.binary (sections 0-4) | |||
* win/README (not patchlevel) (sections 0 and 2) | * win/README (not patchlevel) (sections 0 and 2) | |||
* unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) | * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) | |||
* tests/basic.test (1 LOC M/M, not patchlevel) | * tests/basic.test (1 LOC M/M, not patchlevel) | |||
* tools/tcl.hpj.in (not patchlevel, for windows installer) | * tools/tcl.hpj.in (not patchlevel, for windows installer) | |||
* tools/tcl.wse.in (for windows installer) | * tools/tcl.wse.in (for windows installer) | |||
* tools/tclSplash.bmp (not patchlevel) | * tools/tclSplash.bmp (not patchlevel) | |||
*/ | */ | |||
#define TCL_MAJOR_VERSION 8 | #define TCL_MAJOR_VERSION 8 | |||
#define TCL_MINOR_VERSION 4 | #define TCL_MINOR_VERSION 4 | |||
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE | #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE | |||
#define TCL_RELEASE_SERIAL 3 | #define TCL_RELEASE_SERIAL 4 | |||
#define TCL_VERSION "8.4" | #define TCL_VERSION "8.4" | |||
#define TCL_PATCH_LEVEL "8.4.3" | #define TCL_PATCH_LEVEL "8.4.4" | |||
/* | /* | |||
* The following definitions set up the proper options for Windows | * The following definitions set up the proper options for Windows | |||
* compilers. We use this method because there is no autoconf equivalent. | * compilers. We use this method because there is no autoconf equivalent. | |||
*/ | */ | |||
#ifndef __WIN32__ | #ifndef __WIN32__ | |||
# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) | # if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) | |||
# define __WIN32__ | # define __WIN32__ | |||
# ifndef WIN32 | # ifndef WIN32 | |||
skipping to change at line 2145 | skipping to change at line 2144 | |||
* encoding. This error is reported only if | * encoding. This error is reported only if | |||
* TCL_ENCODING_STOPONERROR was specified. | * TCL_ENCODING_STOPONERROR was specified. | |||
*/ | */ | |||
#define TCL_CONVERT_MULTIBYTE -1 | #define TCL_CONVERT_MULTIBYTE -1 | |||
#define TCL_CONVERT_SYNTAX -2 | #define TCL_CONVERT_SYNTAX -2 | |||
#define TCL_CONVERT_UNKNOWN -3 | #define TCL_CONVERT_UNKNOWN -3 | |||
#define TCL_CONVERT_NOSPACE -4 | #define TCL_CONVERT_NOSPACE -4 | |||
/* | /* | |||
* The maximum number of bytes that are necessary to represent a single | * The maximum number of bytes that are necessary to represent a single | |||
* Unicode character in UTF-8. | * Unicode character in UTF-8. The valid values should be 3 or 6 (or | |||
* perhaps 1 if we want to support a non-unicode enabled core). | ||||
* If 3, then Tcl_UniChar must be 2-bytes in size (UCS-2). (default) | ||||
* If 6, then Tcl_UniChar must be 4-bytes in size (UCS-4). | ||||
* At this time UCS-2 mode is the default and recommended mode. | ||||
* UCS-4 is experimental and not recommended. It works for the core, | ||||
* but most extensions expect UCS-2. | ||||
*/ | */ | |||
#ifndef TCL_UTF_MAX | ||||
#define TCL_UTF_MAX 3 | #define TCL_UTF_MAX 3 | |||
#endif | ||||
/* | /* | |||
* This represents a Unicode character. Any changes to this should | * This represents a Unicode character. Any changes to this should | |||
* also be reflected in regcustom.h. | * also be reflected in regcustom.h. | |||
*/ | */ | |||
#if TCL_UTF_MAX > 3 | ||||
/* | ||||
* unsigned int isn't 100% accurate as it should be a strict 4-byte | ||||
* value (perhaps wchar_t). 64-bit systems may have troubles. The | ||||
* size of this value must be reflected correctly in regcustom.h. | ||||
*/ | ||||
typedef unsigned int Tcl_UniChar; | ||||
#else | ||||
typedef unsigned short Tcl_UniChar; | typedef unsigned short Tcl_UniChar; | |||
#endif | ||||
/* | /* | |||
* Deprecated Tcl procedures: | * Deprecated Tcl procedures: | |||
*/ | */ | |||
#ifndef TCL_NO_DEPRECATED | #ifndef TCL_NO_DEPRECATED | |||
# define Tcl_EvalObj(interp,objPtr) \ | # define Tcl_EvalObj(interp,objPtr) \ | |||
Tcl_EvalObjEx((interp),(objPtr),0) | Tcl_EvalObjEx((interp),(objPtr),0) | |||
# define Tcl_GlobalEvalObj(interp,objPtr) \ | # define Tcl_GlobalEvalObj(interp,objPtr) \ | |||
Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) | Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) | |||
#endif | #endif | |||
End of changes. 9 change blocks. | ||||
6 lines changed or deleted | 22 lines changed or added | |||