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.22 2006/03/07 05:30:24 dgp Exp $ * RCS: @(#) $Id: tcl.h,v 1.153.2.29 2006/10/05 21:24:56 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 13 #define TCL_RELEASE_SERIAL 14
#define TCL_VERSION "8.4" #define TCL_VERSION "8.4"
#define TCL_PATCH_LEVEL "8.4.13" #define TCL_PATCH_LEVEL "8.4.14"
/* /*
* 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 312 skipping to change at line 312
#ifndef NO_VOID #ifndef NO_VOID
# define VOID void # define VOID void
#else #else
# define VOID char # define VOID char
#endif #endif
/* /*
* Miscellaneous declarations. * Miscellaneous declarations.
*/ */
#ifndef NULL
# define NULL 0
#endif
#ifndef _CLIENTDATA #ifndef _CLIENTDATA
# ifndef NO_VOID # ifndef NO_VOID
typedef void *ClientData; typedef void *ClientData;
# else # else
typedef int *ClientData; typedef int *ClientData;
# endif # endif
# define _CLIENTDATA # define _CLIENTDATA
#endif #endif
skipping to change at line 338 skipping to change at line 335
*/ */
#ifdef __APPLE__ #ifdef __APPLE__
# ifdef __LP64__ # ifdef __LP64__
# undef TCL_WIDE_INT_TYPE # undef TCL_WIDE_INT_TYPE
# define TCL_WIDE_INT_IS_LONG 1 # define TCL_WIDE_INT_IS_LONG 1
# else /* !__LP64__ */ # else /* !__LP64__ */
# define TCL_WIDE_INT_TYPE long long # define TCL_WIDE_INT_TYPE long long
# undef TCL_WIDE_INT_IS_LONG # undef TCL_WIDE_INT_IS_LONG
# endif /* __LP64__ */ # endif /* __LP64__ */
# undef HAVE_STRUCT_STAT64
#endif /* __APPLE__ */ #endif /* __APPLE__ */
/* /*
* Define Tcl_WideInt to be a type that is (at least) 64-bits wide, * Define Tcl_WideInt to be a type that is (at least) 64-bits wide,
* and define Tcl_WideUInt to be the unsigned variant of that type * and define Tcl_WideUInt to be the unsigned variant of that type
* (assuming that where we have one, we can have the other.) * (assuming that where we have one, we can have the other.)
* *
* Also defines the following macros: * Also defines the following macros:
* TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on
* a real 64-bit system.) * a real 64-bit system.)
skipping to change at line 382 skipping to change at line 380
# define TCL_LL_MODIFIER_SIZE 1 # define TCL_LL_MODIFIER_SIZE 1
# endif # endif
typedef struct stat Tcl_StatBuf; typedef struct stat Tcl_StatBuf;
# elif defined(__WIN32__) # elif defined(__WIN32__)
# define TCL_WIDE_INT_TYPE __int64 # define TCL_WIDE_INT_TYPE __int64
# ifdef __BORLANDC__ # ifdef __BORLANDC__
typedef struct stati64 Tcl_StatBuf; typedef struct stati64 Tcl_StatBuf;
# define TCL_LL_MODIFIER "L" # define TCL_LL_MODIFIER "L"
# define TCL_LL_MODIFIER_SIZE 1 # define TCL_LL_MODIFIER_SIZE 1
# else /* __BORLANDC__ */ # else /* __BORLANDC__ */
# if _MSC_VER < 1400 || !defined(_M_IX86)
typedef struct _stati64 Tcl_StatBuf; typedef struct _stati64 Tcl_StatBuf;
# else
typedef struct _stat64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */
# define TCL_LL_MODIFIER "I64" # define TCL_LL_MODIFIER "I64"
# define TCL_LL_MODIFIER_SIZE 3 # define TCL_LL_MODIFIER_SIZE 3
# endif /* __BORLANDC__ */ # endif /* __BORLANDC__ */
# else /* __WIN32__ */ # else /* __WIN32__ */
/* /*
* Don't know what platform it is and configure hasn't discovered what * Don't know what platform it is and configure hasn't discovered what
* is going on for us. Try to guess... * is going on for us. Try to guess...
*/ */
# ifdef NO_LIMITS_H # ifdef NO_LIMITS_H
# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG # error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG
skipping to change at line 812 skipping to change at line 814
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_DecrRefCount(objPtr) \ # define Tcl_DecrRefCount(objPtr) \
Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_IsShared(objPtr) \ # define Tcl_IsShared(objPtr) \
Tcl_DbIsShared(objPtr, __FILE__, __LINE__) Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
#else #else
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
++(objPtr)->refCount ++(objPtr)->refCount
/*
* Use empty if ; else to handle use in unbraced outer if/else conditio
ns
*/
# define Tcl_DecrRefCount(objPtr) \ # define Tcl_DecrRefCount(objPtr) \
if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr) if (--(objPtr)->refCount > 0) ; else TclFreeObj(objPtr)
# define Tcl_IsShared(objPtr) \ # define Tcl_IsShared(objPtr) \
((objPtr)->refCount > 1) ((objPtr)->refCount > 1)
#endif #endif
/* /*
* Macros and definitions that help to debug the use of Tcl objects. * Macros and definitions that help to debug the use of Tcl objects.
* When TCL_MEM_DEBUG is defined, the Tcl_New declarations are * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are
* overridden to call debugging versions of the object creation procedures. * overridden to call debugging versions of the object creation procedures.
*/ */
skipping to change at line 2208 skipping to change at line 2213
#endif #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 #if TCL_UTF_MAX > 3
/* /*
* unsigned int isn't 100% accurate as it should be a strict 4-byte * 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 * value (perhaps wchar_t). 64-bit systems may have troubles. The
* size of this value must be reflected correctly in regcustom.h. * size of this value must be reflected correctly in regcustom.h and
* in tclEncoding.c.
* XXX: Tcl is currently UCS-2 and planning UTF-16 for the Unicode
* XXX: string rep that Tcl_UniChar represents. Changing the size
* XXX: of Tcl_UniChar is /not/ supported.
*/ */
typedef unsigned int Tcl_UniChar; typedef unsigned int Tcl_UniChar;
#else #else
typedef unsigned short Tcl_UniChar; typedef unsigned short Tcl_UniChar;
#endif #endif
/* /*
* Deprecated Tcl procedures: * Deprecated Tcl procedures:
*/ */
#ifndef TCL_NO_DEPRECATED #ifndef TCL_NO_DEPRECATED
 End of changes. 10 change blocks. 
8 lines changed or deleted 18 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.2.6 2005/01/27 22:53:30 andreas_kupries Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.93.2.7 2006/09/22 01:26:23 andreas_kupries 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 1630 skipping to change at line 1630
/* Slot 547 is reserved */ /* Slot 547 is reserved */
/* Slot 548 is reserved */ /* Slot 548 is reserved */
/* Slot 549 is reserved */ /* Slot 549 is reserved */
/* Slot 550 is reserved */ /* Slot 550 is reserved */
/* Slot 551 is reserved */ /* Slot 551 is reserved */
/* Slot 552 is reserved */ /* Slot 552 is reserved */
/* Slot 553 is reserved */ /* Slot 553 is reserved */
/* 554 */ /* 554 */
EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_ (( EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_ ((
Tcl_ChannelType * chanTypePtr)); Tcl_ChannelType * chanTypePtr));
/* Slot 555 is reserved */
/* Slot 556 is reserved */
/* Slot 557 is reserved */
/* Slot 558 is reserved */
/* Slot 559 is reserved */
/* Slot 560 is reserved */
/* Slot 561 is reserved */
/* Slot 562 is reserved */
/* Slot 563 is reserved */
/* Slot 564 is reserved */
/* Slot 565 is reserved */
/* Slot 566 is reserved */
/* Slot 567 is reserved */
/* Slot 568 is reserved */
/* Slot 569 is reserved */
/* Slot 570 is reserved */
/* Slot 571 is reserved */
/* Slot 572 is reserved */
/* 573 */
EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * name, int objc,
Tcl_Obj *CONST objv[],
ClientData * clientDataPtr));
typedef struct TclStubHooks { typedef struct TclStubHooks {
struct TclPlatStubs *tclPlatStubs; struct TclPlatStubs *tclPlatStubs;
struct TclIntStubs *tclIntStubs; struct TclIntStubs *tclIntStubs;
struct TclIntPlatStubs *tclIntPlatStubs; struct TclIntPlatStubs *tclIntPlatStubs;
} TclStubHooks; } TclStubHooks;
typedef struct TclStubs { typedef struct TclStubs {
int magic; int magic;
struct TclStubHooks *hooks; struct TclStubHooks *hooks;
skipping to change at line 2244 skipping to change at line 2267
void *reserved545; void *reserved545;
void *reserved546; void *reserved546;
void *reserved547; void *reserved547;
void *reserved548; void *reserved548;
void *reserved549; void *reserved549;
void *reserved550; void *reserved550;
void *reserved551; void *reserved551;
void *reserved552; void *reserved552;
void *reserved553; void *reserved553;
Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_ ((Tcl_ChannelType * chanTypePtr)); /* 554 */ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_ ((Tcl_ChannelType * chanTypePtr)); /* 554 */
void *reserved555;
void *reserved556;
void *reserved557;
void *reserved558;
void *reserved559;
void *reserved560;
void *reserved561;
void *reserved562;
void *reserved563;
void *reserved564;
void *reserved565;
void *reserved566;
void *reserved567;
void *reserved568;
void *reserved569;
void *reserved570;
void *reserved571;
void *reserved572;
int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char
* name, int objc, Tcl_Obj *CONST objv[], ClientData * clientDataPtr)); /* 5
73 */
} TclStubs; } TclStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclStubs *tclStubsPtr; extern TclStubs *tclStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 4324 skipping to change at line 4366
/* Slot 548 is reserved */ /* Slot 548 is reserved */
/* Slot 549 is reserved */ /* Slot 549 is reserved */
/* Slot 550 is reserved */ /* Slot 550 is reserved */
/* Slot 551 is reserved */ /* Slot 551 is reserved */
/* Slot 552 is reserved */ /* Slot 552 is reserved */
/* Slot 553 is reserved */ /* Slot 553 is reserved */
#ifndef Tcl_ChannelThreadActionProc #ifndef Tcl_ChannelThreadActionProc
#define Tcl_ChannelThreadActionProc \ #define Tcl_ChannelThreadActionProc \
(tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */ (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
#endif #endif
/* Slot 555 is reserved */
/* Slot 556 is reserved */
/* Slot 557 is reserved */
/* Slot 558 is reserved */
/* Slot 559 is reserved */
/* Slot 560 is reserved */
/* Slot 561 is reserved */
/* Slot 562 is reserved */
/* Slot 563 is reserved */
/* Slot 564 is reserved */
/* Slot 565 is reserved */
/* Slot 566 is reserved */
/* Slot 567 is reserved */
/* Slot 568 is reserved */
/* Slot 569 is reserved */
/* Slot 570 is reserved */
/* Slot 571 is reserved */
/* Slot 572 is reserved */
#ifndef Tcl_PkgRequireProc
#define Tcl_PkgRequireProc \
(tclStubsPtr->tcl_PkgRequireProc) /* 573 */
#endif
#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 /* _TCLDECLS */ #endif /* _TCLDECLS */
 End of changes. 4 change blocks. 
1 lines changed or deleted 67 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/