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 2003/02/15 02:16:29 hobbs Exp $ * RCS: @(#) $Id: tcl.h,v 1.153.2.3 2003/05/15 18:59:37 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 62 skipping to change at line 62
* 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 2 #define TCL_RELEASE_SERIAL 3
#define TCL_PREFIX_IDENT ""
#define TCL_DEBUG_IDENT TCL_DBGX
#define TCL_VERSION "8.4" #define TCL_VERSION "8.4"
#define TCL_PATCH_LEVEL "8.4.2" #define TCL_PATCH_LEVEL "8.4.3"
/* /*
* 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 625 skipping to change at line 622
#define TCL_SUBST_COMMANDS 001 #define TCL_SUBST_COMMANDS 001
#define TCL_SUBST_VARIABLES 002 #define TCL_SUBST_VARIABLES 002
#define TCL_SUBST_BACKSLASHES 004 #define TCL_SUBST_BACKSLASHES 004
#define TCL_SUBST_ALL 007 #define TCL_SUBST_ALL 007
/* /*
* Argument descriptors for math function callbacks in expressions: * Argument descriptors for math function callbacks in expressions:
*/ */
typedef enum { typedef enum {
TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT TCL_INT, TCL_DOUBLE, TCL_EITHER, TCL_WIDE_INT
#ifdef TCL_WIDE_INT_IS_LONG
= TCL_INT
#endif
} Tcl_ValueType; } Tcl_ValueType;
typedef struct Tcl_Value { typedef struct Tcl_Value {
Tcl_ValueType type; /* Indicates intValue or doubleValue is Tcl_ValueType type; /* Indicates intValue or doubleValue is
* valid, or both. */ * valid, or both. */
long intValue; /* Integer value. */ long intValue; /* Integer value. */
double doubleValue; /* Double-precision floating value. */ double doubleValue; /* Double-precision floating value. */
#ifndef TCL_WIDE_INT_IS_LONG
Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */ Tcl_WideInt wideValue; /* Wide (min. 64-bit) integer value. */
#endif
} Tcl_Value; } Tcl_Value;
/* /*
* Forward declaration of Tcl_Obj to prevent an error when the forward * Forward declaration of Tcl_Obj to prevent an error when the forward
* reference to Tcl_Obj is encountered in the procedure types declared * reference to Tcl_Obj is encountered in the procedure types declared
* below. * below.
*/ */
struct Tcl_Obj; struct Tcl_Obj;
/* /*
 End of changes. 6 change blocks. 
11 lines changed or deleted 3 lines changed or added


 tclDecls.h   tclDecls.h 
/* /*
* tclDecls.h -- * tclDecls.h --
* *
* Declarations of functions in the platform independent public Tcl API . * Declarations of functions in the platform independent public Tcl API .
* *
* Copyright (c) 1998-1999 by Scriptics Corporation. * Copyright (c) 1998-1999 by Scriptics Corporation.
* *
* 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: tclDecls.h,v 1.93 2002/08/05 15:01:04 dgp Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.93.2.1 2003/05/13 09:57:40 mistachkin Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
/* /*
* WARNING: This file is automatically generated by the tools/genStubs.tcl * WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made * script. Any modifications to the function declarations below should be made
* in the generic/tcl.decls script. * in the generic/tcl.decls script.
*/ */
skipping to change at line 1308 skipping to change at line 1308
/* 409 */ /* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_(( EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 410 */ /* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_(( EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 411 */ /* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_(( EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc _ANSI_ARGS_((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* 412 */ /* 412 */
EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId id, EXTERN int Tcl_JoinThread _ANSI_ARGS_((Tcl_ThreadId threadId,
int* result)); int* result));
/* 413 */ /* 413 */
EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel )); EXTERN int Tcl_IsChannelShared _ANSI_ARGS_((Tcl_Channel channel ));
/* 414 */ /* 414 */
EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_(( EXTERN int Tcl_IsChannelRegistered _ANSI_ARGS_((
Tcl_Interp* interp, Tcl_Channel channel)); Tcl_Interp* interp, Tcl_Channel channel));
/* 415 */ /* 415 */
EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel)); EXTERN void Tcl_CutChannel _ANSI_ARGS_((Tcl_Channel channel));
/* 416 */ /* 416 */
EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)) ; EXTERN void Tcl_SpliceChannel _ANSI_ARGS_((Tcl_Channel channel)) ;
skipping to change at line 2038 skipping to change at line 2038
Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 402 */ Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 402 */
Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 403 */ Tcl_DriverInputProc * (*tcl_ChannelInputProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 403 */
Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 404 */ Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) _ANSI_ARGS_((Tcl_Channe lType * chanTypePtr)); /* 404 */
Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp e * chanTypePtr)); /* 405 */ Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) _ANSI_ARGS_((Tcl_ChannelTyp e * chanTypePtr)); /* 405 */
Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 406 */ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 406 */
Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 407 */ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 407 */
Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 408 */ Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 408 */
Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 409 */ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) _ANSI_ARGS_((Tcl_ ChannelType * chanTypePtr)); /* 409 */
Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 410 */ Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) _ANSI_ARGS_((Tcl_ChannelT ype * chanTypePtr)); /* 410 */
Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan nelType * chanTypePtr)); /* 411 */ Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) _ANSI_ARGS_((Tcl_Chan nelType * chanTypePtr)); /* 411 */
int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId id, int* result)); /* 4 12 */ int (*tcl_JoinThread) _ANSI_ARGS_((Tcl_ThreadId threadId, int* result)) ; /* 412 */
int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 * / int (*tcl_IsChannelShared) _ANSI_ARGS_((Tcl_Channel channel)); /* 413 * /
int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Cha nnel channel)); /* 414 */ int (*tcl_IsChannelRegistered) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Cha nnel channel)); /* 414 */
void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */ void (*tcl_CutChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 415 */
void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */ void (*tcl_SpliceChannel) _ANSI_ARGS_((Tcl_Channel channel)); /* 416 */
void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */ void (*tcl_ClearChannelHandlers) _ANSI_ARGS_((Tcl_Channel channel)); /* 417 */
int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char* channelName)); /* 418 */ int (*tcl_IsChannelExisting) _ANSI_ARGS_((CONST char* channelName)); /* 418 */
int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST T cl_UniChar * ct, unsigned long n)); /* 419 */ int (*tcl_UniCharNcasecmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST T cl_UniChar * ct, unsigned long n)); /* 419 */
int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar * ustr, CONS T Tcl_UniChar * pattern, int nocase)); /* 420 */ int (*tcl_UniCharCaseMatch) _ANSI_ARGS_((CONST Tcl_UniChar * ustr, CONS T Tcl_UniChar * pattern, int nocase)); /* 420 */
Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable * table Ptr, CONST char * key)); /* 421 */ Tcl_HashEntry * (*tcl_FindHashEntry) _ANSI_ARGS_((Tcl_HashTable * table Ptr, CONST char * key)); /* 421 */
Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tab lePtr, CONST char * key, int * newPtr)); /* 422 */ Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tab lePtr, CONST char * key, int * newPtr)); /* 422 */
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added


 tclPlatDecls.h   tclPlatDecls.h 
/* /*
* tclPlatDecls.h -- * tclPlatDecls.h --
* *
* Declarations of platform specific Tcl APIs. * Declarations of platform specific Tcl APIs.
* *
* Copyright (c) 1998-1999 by Scriptics Corporation. * Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved. * All rights reserved.
* *
* RCS: @(#) $Id: tclPlatDecls.h,v 1.18 2002/09/27 00:50:10 hobbs Exp $ * RCS: @(#) $Id: tclPlatDecls.h,v 1.18.2.1 2003/05/13 08:41:26 das Exp $
*/ */
#ifndef _TCLPLATDECLS #ifndef _TCLPLATDECLS
#define _TCLPLATDECLS #define _TCLPLATDECLS
/* /*
* Pull in the typedef of TCHAR for windows. * Pull in the typedef of TCHAR for windows.
*/ */
#if defined(__CYGWIN__) #if defined(__CYGWIN__)
typedef char TCHAR; typedef char TCHAR;
skipping to change at line 85 skipping to change at line 85
/* 8 */ /* 8 */
EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2)); CONST char * s2));
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL #ifdef MAC_OSX_TCL
/* 0 */ /* 0 */
EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * bundleName , Tcl_Interp * interp, CONST char * bundleName ,
int hasResourceFile, int maxPathLen, int hasResourceFile, int maxPathLen,
char * libraryPath)); char * libraryPath));
/* 1 */
EXTERN int Tcl_MacOSXOpenVersionedBundleResources _ANSI_ARGS_((
Tcl_Interp * interp, CONST char * bundleName
,
CONST char * bundleVersion,
int hasResourceFile, int maxPathLen,
char * libraryPath));
#endif /* MAC_OSX_TCL */ #endif /* MAC_OSX_TCL */
typedef struct TclPlatStubs { typedef struct TclPlatStubs {
int magic; int magic;
struct TclPlatStubHooks *hooks; struct TclPlatStubHooks *hooks;
#ifdef __WIN32__ #ifdef __WIN32__
TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tc l_DString * dsPtr)); /* 0 */ TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * str, int len, Tc l_DString * dsPtr)); /* 0 */
char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tc l_DString * dsPtr)); /* 1 */ char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * str, int len, Tc l_DString * dsPtr)); /* 1 */
#endif /* __WIN32__ */ #endif /* __WIN32__ */
skipping to change at line 108 skipping to change at line 114
int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * resourceName, int resourceNumber, CONST char * fileName)); /* 2 */ int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * resourceName, int resourceNumber, CONST char * fileName)); /* 2 */
Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long re sourceType, CONST char * resourceName, int resourceNumber, CONST char * res FileRef, int * releaseIt)); /* 3 */ Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long re sourceType, CONST char * resourceName, int resourceNumber, CONST char * res FileRef, int * releaseIt)); /* 3 */
int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */ int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */
void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)) ; /* 5 */ void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)) ; /* 5 */
Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */ Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */
int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_ t n)); /* 7 */ int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_ t n)); /* 7 */
int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */ int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL #ifdef MAC_OSX_TCL
int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * librar yPath)); /* 0 */ int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * librar yPath)); /* 0 */
int (*tcl_MacOSXOpenVersionedBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, CONST char * bundleVersion, int hasResour ceFile, int maxPathLen, char * libraryPath)); /* 1 */
#endif /* MAC_OSX_TCL */ #endif /* MAC_OSX_TCL */
} TclPlatStubs; } TclPlatStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclPlatStubs *tclPlatStubsPtr; extern TclPlatStubs *tclPlatStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 178 skipping to change at line 185
#ifndef strcasecmp #ifndef strcasecmp
#define strcasecmp \ #define strcasecmp \
(tclPlatStubsPtr->strcasecmp) /* 8 */ (tclPlatStubsPtr->strcasecmp) /* 8 */
#endif #endif
#endif /* MAC_TCL */ #endif /* MAC_TCL */
#ifdef MAC_OSX_TCL #ifdef MAC_OSX_TCL
#ifndef Tcl_MacOSXOpenBundleResources #ifndef Tcl_MacOSXOpenBundleResources
#define Tcl_MacOSXOpenBundleResources \ #define Tcl_MacOSXOpenBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
#endif #endif
#ifndef Tcl_MacOSXOpenVersionedBundleResources
#define Tcl_MacOSXOpenVersionedBundleResources \
(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */
#endif
#endif /* MAC_OSX_TCL */ #endif /* MAC_OSX_TCL */
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#endif /* _TCLPLATDECLS */ #endif /* _TCLPLATDECLS */
 End of changes. 4 change blocks. 
1 lines changed or deleted 13 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/