tcl.h   tcl.h 
skipping to change at line 15 skipping to change at line 15
* of the Tcl interpreter. * of the Tcl interpreter.
* *
* 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-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: tcl.h,v 1.42 1999/04/21 21:50:23 rjohnson Exp $ * RCS: @(#) $Id: tcl.h,v 1.43.2.1 1999/05/19 23:27:09 redman Exp $
*/ */
#ifndef _TCL #ifndef _TCL
#define _TCL #define _TCL
/* /*
* For C++ compilers, use extern "C"
*/
#ifdef __cplusplus
extern "C" {
#endif
/*
* The following defines are used to indicate the various release levels. * The following defines are used to indicate the various release levels.
*/ */
#define TCL_ALPHA_RELEASE 0 #define TCL_ALPHA_RELEASE 0
#define TCL_BETA_RELEASE 1 #define TCL_BETA_RELEASE 1
#define TCL_FINAL_RELEASE 2 #define TCL_FINAL_RELEASE 2
/* /*
* 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:
skipping to change at line 48 skipping to change at line 56
* README * README
* mac/README * mac/README
* win/README.binary * win/README.binary
* win/README (only if major.minor changes, not patchlevel) * win/README (only if major.minor changes, not patchlevel)
* unix/README (only if major.minor changes, not patchlevel) * unix/README (only if major.minor changes, not patchlevel)
*/ */
#define TCL_MAJOR_VERSION 8 #define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 1 #define TCL_MINOR_VERSION 1
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 0 #define TCL_RELEASE_SERIAL 1
#define TCL_VERSION "8.1" #define TCL_VERSION "8.1"
#define TCL_PATCH_LEVEL "8.1.0" #define TCL_PATCH_LEVEL "8.1.1"
/* /*
* 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) # if defined(_WIN32) || defined(WIN32)
# define __WIN32__ # define __WIN32__
# endif # endif
skipping to change at line 1543 skipping to change at line 1551
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS
EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
#endif /* RESOURCE_INCLUDED */ #endif /* RESOURCE_INCLUDED */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
/*
* end block for C++
*/
#ifdef __cplusplus
}
#endif
#endif /* _TCL */ #endif /* _TCL */
 End of changes. 5 change blocks. 
3 lines changed or deleted 19 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.9.2.1 1999/04/27 18:45:41 stanton Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.12.2.1 1999/05/20 00:03:36 stanton 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 1072 skipping to change at line 1072
EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsLower _ANSI_ARGS_((int ch));
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch));
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch));
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch));
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen _ANSI_ARGS_((Tcl_UniChar * str)); EXTERN int Tcl_UniCharLen _ANSI_ARGS_((Tcl_UniChar * str));
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((const Tcl_UniChar * cs, EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs,
const Tcl_UniChar * ct, size_t n)); CONST Tcl_UniChar * ct, size_t n));
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_((
CONST Tcl_UniChar * string, int numChars, CONST Tcl_UniChar * string, int numChars,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_(( EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((
CONST char * string, int length, CONST char * string, int length,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 356 */ /* 356 */
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_(( EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((
skipping to change at line 1126 skipping to change at line 1126
/* 365 */ /* 365 */
EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp, EXTERN char * Tcl_GetCwd _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_DString * cwdPtr)); Tcl_DString * cwdPtr));
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName)); EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName));
/* 367 */ /* 367 */
EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) ); EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) );
/* 368 */ /* 368 */
EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path, EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path,
struct stat * bufPtr)); struct stat * bufPtr));
/* 369 */
EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n));
/* 370 */
EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n));
/* 371 */
EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char * str,
CONST char * pattern, int nocase));
/* 372 */
EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch));
/* 373 */
EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch));
/* 374 */
EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch));
/* 375 */
EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch));
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 1514 skipping to change at line 1531
void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */
void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */
int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */
int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */
int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */
int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */
int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */
int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */
int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */
int (*tcl_UniCharLen) _ANSI_ARGS_((Tcl_UniChar * str)); /* 352 */ int (*tcl_UniCharLen) _ANSI_ARGS_((Tcl_UniChar * str)); /* 352 */
int (*tcl_UniCharNcmp) _ANSI_ARGS_((const Tcl_UniChar * cs, const Tcl_U niChar * ct, size_t n)); /* 353 */ int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U niChar * ct, size_t n)); /* 353 */
char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */ char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */
Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */ Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */
Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */ Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */
Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */ Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */
void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */ void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */
void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * scr ipt, char * command, int length)); /* 359 */ void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * scr ipt, char * command, int length)); /* 359 */
int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 */ int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 */
int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */ int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */
int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, i nt numBytes, Tcl_Parse * parsePtr)); /* 362 */ int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, i nt numBytes, Tcl_Parse * parsePtr)); /* 362 */
int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, char * s tring, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); / * 363 */ int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, char * s tring, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); / * 363 */
int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */ int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */
char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */ char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */
int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */ int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */
int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */ int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */
int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */ int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */
int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_
t n)); /* 369 */
int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, s
ize_t n)); /* 370 */
int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char *
pattern, int nocase)); /* 371 */
int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */
int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */
int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */
int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */
} 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 3010 skipping to change at line 3034
(tclStubsPtr->tcl_Chdir) /* 366 */ (tclStubsPtr->tcl_Chdir) /* 366 */
#endif #endif
#ifndef Tcl_Access #ifndef Tcl_Access
#define Tcl_Access \ #define Tcl_Access \
(tclStubsPtr->tcl_Access) /* 367 */ (tclStubsPtr->tcl_Access) /* 367 */
#endif #endif
#ifndef Tcl_Stat #ifndef Tcl_Stat
#define Tcl_Stat \ #define Tcl_Stat \
(tclStubsPtr->tcl_Stat) /* 368 */ (tclStubsPtr->tcl_Stat) /* 368 */
#endif #endif
#ifndef Tcl_UtfNcmp
#define Tcl_UtfNcmp \
(tclStubsPtr->tcl_UtfNcmp) /* 369 */
#endif
#ifndef Tcl_UtfNcasecmp
#define Tcl_UtfNcasecmp \
(tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
#endif
#ifndef Tcl_StringCaseMatch
#define Tcl_StringCaseMatch \
(tclStubsPtr->tcl_StringCaseMatch) /* 371 */
#endif
#ifndef Tcl_UniCharIsControl
#define Tcl_UniCharIsControl \
(tclStubsPtr->tcl_UniCharIsControl) /* 372 */
#endif
#ifndef Tcl_UniCharIsGraph
#define Tcl_UniCharIsGraph \
(tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
#endif
#ifndef Tcl_UniCharIsPrint
#define Tcl_UniCharIsPrint \
(tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
#endif
#ifndef Tcl_UniCharIsPunct
#define Tcl_UniCharIsPunct \
(tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
#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. 6 change blocks. 
4 lines changed or deleted 59 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/