tcl.h   tcl.h 
skipping to change at line 15 skipping to change at line 15
* Tcl interpreter. * 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-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 of * See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES. * this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tcl.h,v 1.254.2.16 2010/08/04 17:02:39 dgp 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 63 skipping to change at line 61
* win/README (not patchlevel) (sections 0 and 2) * win/README (not patchlevel) (sections 0 and 2)
* unix/tcl.spec (1 LOC patch) * unix/tcl.spec (1 LOC patch)
* 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 5 #define TCL_MINOR_VERSION 5
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 9 #define TCL_RELEASE_SERIAL 10
#define TCL_VERSION "8.5" #define TCL_VERSION "8.5"
#define TCL_PATCH_LEVEL "8.5.9" #define TCL_PATCH_LEVEL "8.5.10"
/* /*
* The following definitions set up the proper options for Windows compiler s. * The following definitions set up the proper options for Windows compiler s.
* We use this method because there is no autoconf equivalent. * We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__)) # if defined(_WIN32) || defined(WIN32) || defined(__MINGW32__) || defined (__BORLANDC__) || (defined(__WATCOMC__) && defined(__WINDOWS_386__))
# define __WIN32__ # define __WIN32__
# ifndef WIN32 # ifndef WIN32
skipping to change at line 357 skipping to change at line 355
* *
* The following invariant should hold for any long value 'longVal': * The following invariant should hold for any long value 'longVal':
* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
* *
* Note on converting between Tcl_WideInt and strings. This implementation (in * Note on converting between Tcl_WideInt and strings. This implementation (in
* tclObj.c) depends on the function * tclObj.c) depends on the function
* sprintf(...,"%" TCL_LL_MODIFIER "d",...). * sprintf(...,"%" TCL_LL_MODIFIER "d",...).
*/ */
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG) #if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
# if defined(__GNUC__) # if defined(__WIN32__) && !defined(__CYGWIN__)
# define TCL_WIDE_INT_TYPE long long
# if defined(__WIN32__) && !defined(__CYGWIN__)
# define TCL_LL_MODIFIER "I64"
# else
# define TCL_LL_MODIFIER "ll"
# endif
typedef struct stat Tcl_StatBuf;
# 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"
# else /* __BORLANDC__ */ # else /* __BORLANDC__ */
# if _MSC_VER < 1400 || !defined(_M_IX86) # if defined(_WIN64)
typedef struct __stat64 Tcl_StatBuf;
# elif (defined(_MSC_VER) && (_MSC_VER < 1400))
typedef struct _stati64 Tcl_StatBuf; typedef struct _stati64 Tcl_StatBuf;
# else # else
typedef struct _stat64 Tcl_StatBuf; typedef struct _stat32i64 Tcl_StatBuf;
# endif /* _MSC_VER < 1400 */ # endif /* _MSC_VER < 1400 */
# define TCL_LL_MODIFIER "I64" # define TCL_LL_MODIFIER "I64"
# endif /* __BORLANDC__ */ # endif /* __BORLANDC__ */
# else /* __WIN32__ */ # elif defined(__GNUC__)
# define TCL_WIDE_INT_TYPE long long
# define TCL_LL_MODIFIER "ll"
# if defined(__WIN32__)
typedef struct _stat32i64 Tcl_StatBuf;
# else
typedef struct stat Tcl_StatBuf;
# endif
# else /* ! __WIN32__ && ! __GNUC__ */
/* /*
* Don't know what platform it is and configure hasn't discovered what is * Don't know what platform it is and configure hasn't discovered what is
* going on for us. Try to guess... * 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
# else /* !NO_LIMITS_H */ # else /* !NO_LIMITS_H */
# include <limits.h> # include <limits.h>
# if (INT_MAX < LONG_MAX) # if (INT_MAX < LONG_MAX)
# define TCL_WIDE_INT_IS_LONG 1 # define TCL_WIDE_INT_IS_LONG 1
skipping to change at line 959 skipping to change at line 959
#define TCL_INTEGER_SPACE 24 #define TCL_INTEGER_SPACE 24
/* /*
* Flag values passed to Tcl_ConvertElement. * Flag values passed to Tcl_ConvertElement.
* TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to * TCL_DONT_USE_BRACES forces it not to enclose the element in braces, but to
* use backslash quoting instead. * use backslash quoting instead.
* TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. I t * TCL_DONT_QUOTE_HASH disables the default quoting of the '#' character. I t
* is safe to leave the hash unquoted when the element is not the first * is safe to leave the hash unquoted when the element is not the first
* element of a list, and this flag can be used by the caller to indica te * element of a list, and this flag can be used by the caller to indica te
* that condition. * that condition.
* (Careful! If you change these flag values be sure to change the definiti
ons
* at the front of tclUtil.c).
*/ */
#define TCL_DONT_USE_BRACES 1 #define TCL_DONT_USE_BRACES 1
#define TCL_DONT_QUOTE_HASH 8 #define TCL_DONT_QUOTE_HASH 8
/* /*
* Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow * Flag that may be passed to Tcl_GetIndexFromObj to force it to disallow
* abbreviated strings. * abbreviated strings.
*/ */
 End of changes. 8 change blocks. 
19 lines changed or deleted 16 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.130.2.2 2010/02/07 22:16:54 nijtmans Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl #ifdef BUILD_tcl
# define TCL_STORAGE_CLASS DLLEXPORT # define TCL_STORAGE_CLASS DLLEXPORT
#else #else
# ifdef USE_TCL_STUBS # ifdef USE_TCL_STUBS
skipping to change at line 1317 skipping to change at line 1315
EXTERN void Tcl_Release(ClientData clientData); EXTERN void Tcl_Release(ClientData clientData);
#endif #endif
#ifndef Tcl_ResetResult_TCL_DECLARED #ifndef Tcl_ResetResult_TCL_DECLARED
#define Tcl_ResetResult_TCL_DECLARED #define Tcl_ResetResult_TCL_DECLARED
/* 217 */ /* 217 */
EXTERN void Tcl_ResetResult(Tcl_Interp *interp); EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
#endif #endif
#ifndef Tcl_ScanElement_TCL_DECLARED #ifndef Tcl_ScanElement_TCL_DECLARED
#define Tcl_ScanElement_TCL_DECLARED #define Tcl_ScanElement_TCL_DECLARED
/* 218 */ /* 218 */
EXTERN int Tcl_ScanElement(CONST char *str, int *flagPtr); EXTERN int Tcl_ScanElement(CONST char *src, int *flagPtr);
#endif #endif
#ifndef Tcl_ScanCountedElement_TCL_DECLARED #ifndef Tcl_ScanCountedElement_TCL_DECLARED
#define Tcl_ScanCountedElement_TCL_DECLARED #define Tcl_ScanCountedElement_TCL_DECLARED
/* 219 */ /* 219 */
EXTERN int Tcl_ScanCountedElement(CONST char *str, int length, EXTERN int Tcl_ScanCountedElement(CONST char *src, int length,
int *flagPtr); int *flagPtr);
#endif #endif
#ifndef Tcl_SeekOld_TCL_DECLARED #ifndef Tcl_SeekOld_TCL_DECLARED
#define Tcl_SeekOld_TCL_DECLARED #define Tcl_SeekOld_TCL_DECLARED
/* 220 */ /* 220 */
EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
#endif #endif
#ifndef Tcl_ServiceAll_TCL_DECLARED #ifndef Tcl_ServiceAll_TCL_DECLARED
#define Tcl_ServiceAll_TCL_DECLARED #define Tcl_ServiceAll_TCL_DECLARED
/* 221 */ /* 221 */
skipping to change at line 3437 skipping to change at line 3435
char * (*tcl_Alloc) (unsigned int size); /* 3 */ char * (*tcl_Alloc) (unsigned int size); /* 3 */
void (*tcl_Free) (char *ptr); /* 4 */ void (*tcl_Free) (char *ptr); /* 4 */
char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */ char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line) ; /* 6 */ char * (*tcl_DbCkalloc) (unsigned int size, CONST char *file, int line) ; /* 6 */
int (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */ int (*tcl_DbCkfree) (char *ptr, CONST char *file, int line); /* 7 */
char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *fi le, int line); /* 8 */ char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, CONST char *fi le, int line); /* 8 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ /* WIN */ #ifdef __WIN32__ /* WIN */
void *reserved9; VOID *reserved9;
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */ void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, Cl ientData clientData); /* 9 */
#endif /* MACOSX */ #endif /* MACOSX */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */ void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ /* WIN */ #ifdef __WIN32__ /* WIN */
void *reserved10; VOID *reserved10;
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */ void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* MACOSX */ #endif /* MACOSX */
void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */ void (*tcl_SetTimer) (Tcl_Time *timePtr); /* 11 */
void (*tcl_Sleep) (int ms); /* 12 */ void (*tcl_Sleep) (int ms); /* 12 */
int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */ int (*tcl_WaitForEvent) (Tcl_Time *timePtr); /* 13 */
int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */ int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */ void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length ); /* 16 */ void (*tcl_AppendToObj) (Tcl_Obj *objPtr, CONST char *bytes, int length ); /* 16 */
skipping to change at line 3611 skipping to change at line 3609
int (*tcl_GetErrno) (void); /* 161 */ int (*tcl_GetErrno) (void); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */ CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInter p); /* 163 */ int (*tcl_GetInterpPath) (Tcl_Interp *askInterp, Tcl_Interp *slaveInter p); /* 163 */
Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */ Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */ CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */ Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */ int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */
#endif /* UNIX */ #endif /* UNIX */
#ifdef __WIN32__ /* WIN */ #ifdef __WIN32__ /* WIN */
void *reserved167; VOID *reserved167;
#endif /* WIN */ #endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */ #ifdef MAC_OSX_TCL /* MACOSX */
int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */ int (*tcl_GetOpenFile) (Tcl_Interp *interp, CONST char *chanID, int for Writing, int checkUsage, ClientData *filePtr); /* 167 */
#endif /* MACOSX */ #endif /* MACOSX */
Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */ Tcl_PathType (*tcl_GetPathType) (CONST char *path); /* 168 */
int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */ int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */ int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
int (*tcl_GetServiceMode) (void); /* 171 */ int (*tcl_GetServiceMode) (void); /* 171 */
Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName ); /* 172 */ Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, CONST char *slaveName ); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */ Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
skipping to change at line 3636 skipping to change at line 3634
int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */ int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */ int (*tcl_HideCommand) (Tcl_Interp *interp, CONST char *cmdName, CONST char *hiddenCmdToken); /* 179 */
int (*tcl_Init) (Tcl_Interp *interp); /* 180 */ int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 18 1 */ void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 18 1 */
int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */ int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */ int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */ int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */ int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DStrin g *resultPtr); /* 186 */ char * (*tcl_JoinPath) (int argc, CONST84 char *CONST *argv, Tcl_DStrin g *resultPtr); /* 186 */
int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr , int type); /* 187 */ int (*tcl_LinkVar) (Tcl_Interp *interp, CONST char *varName, char *addr , int type); /* 187 */
void *reserved188; VOID *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 18 9 */ Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 18 9 */
int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */ int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */ Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */ char * (*tcl_Merge) (int argc, CONST84 char *CONST *argv); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 19 3 */ Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 19 3 */
void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */ void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, int flags); /* 195 */ Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, int flags); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */ Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl _Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CO NST84 char **argv, int flags); /* 197 */ Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CO NST84 char **argv, int flags); /* 197 */
Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fil eName, CONST char *modeString, int permissions); /* 198 */ Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, CONST char *fil eName, CONST char *modeString, int permissions); /* 198 */
skipping to change at line 3666 skipping to change at line 3664
int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flag s); /* 208 */ int (*tcl_RecordAndEval) (Tcl_Interp *interp, CONST char *cmd, int flag s); /* 208 */
int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int f lags); /* 209 */ int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int f lags); /* 209 */
void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */ void (*tcl_RegisterObjType) (Tcl_ObjType *typePtr); /* 211 */
Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *patter n); /* 212 */ Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, CONST char *patter n); /* 212 */
int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST cha r *text, CONST char *start); /* 213 */ int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, CONST cha r *text, CONST char *start); /* 213 */
int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST cha r *pattern); /* 214 */ int (*tcl_RegExpMatch) (Tcl_Interp *interp, CONST char *text, CONST cha r *pattern); /* 214 */
void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **s tartPtr, CONST84 char **endPtr); /* 215 */ void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **s tartPtr, CONST84 char **endPtr); /* 215 */
void (*tcl_Release) (ClientData clientData); /* 216 */ void (*tcl_Release) (ClientData clientData); /* 216 */
void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */ void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
int (*tcl_ScanElement) (CONST char *str, int *flagPtr); /* 218 */ int (*tcl_ScanElement) (CONST char *src, int *flagPtr); /* 218 */
int (*tcl_ScanCountedElement) (CONST char *str, int length, int *flagPt int (*tcl_ScanCountedElement) (CONST char *src, int length, int *flagPt
r); /* 219 */ r); /* 219 */
int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */ int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
int (*tcl_ServiceAll) (void); /* 221 */ int (*tcl_ServiceAll) (void); /* 221 */
int (*tcl_ServiceEvent) (int flags); /* 222 */ int (*tcl_ServiceEvent) (int flags); /* 222 */
void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_Int erpDeleteProc *proc, ClientData clientData); /* 223 */ void (*tcl_SetAssocData) (Tcl_Interp *interp, CONST char *name, Tcl_Int erpDeleteProc *proc, ClientData clientData); /* 223 */
void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */ void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONS T char *optionName, CONST char *newValue); /* 225 */ int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, CONS T char *optionName, CONST char *newValue); /* 225 */
int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CON ST Tcl_CmdInfo *infoPtr); /* 226 */ int (*tcl_SetCommandInfo) (Tcl_Interp *interp, CONST char *cmdName, CON ST Tcl_CmdInfo *infoPtr); /* 226 */
void (*tcl_SetErrno) (int err); /* 227 */ void (*tcl_SetErrno) (int err); /* 227 */
void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */ void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */ void (*tcl_SetMaxBlockTime) (Tcl_Time *timePtr); /* 229 */
skipping to change at line 3733 skipping to change at line 3731
void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 27 5 */ void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 27 5 */
int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */ int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */ Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */ void (*tcl_PanicVA) (CONST char *format, va_list argList); /* 278 */
void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *t ype); /* 279 */ void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *t ype); /* 279 */
void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */ void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *t ypePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */ Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, Tcl_ChannelType *t ypePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 28 2 */ int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 28 2 */
Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */ Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */ void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
void *reserved285; VOID *reserved285;
void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */ void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); / * 287 */ Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType *typePtr); / * 287 */
void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 288 */ void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 288 */
void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 289 */ void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData cli entData); /* 289 */
void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */ void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes , int flags); /* 291 */ int (*tcl_EvalEx) (Tcl_Interp *interp, CONST char *script, int numBytes , int flags); /* 291 */
int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[ ], int flags); /* 292 */ int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[ ], int flags); /* 292 */
int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */ int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
void (*tcl_ExitThread) (int status); /* 294 */ void (*tcl_ExitThread) (int status); /* 294 */
int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, CO NST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */ int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, CO NST char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *ds t, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
 End of changes. 9 change blocks. 
12 lines changed or deleted 10 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.27.2.2 2010/05/21 12:18:17 nijtmans Ex
p $
*/ */
#ifndef _TCLPLATDECLS #ifndef _TCLPLATDECLS
#define _TCLPLATDECLS #define _TCLPLATDECLS
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#ifdef BUILD_tcl #ifdef BUILD_tcl
# define TCL_STORAGE_CLASS DLLEXPORT # define TCL_STORAGE_CLASS DLLEXPORT
#else #else
# ifdef USE_TCL_STUBS # ifdef USE_TCL_STUBS
skipping to change at line 36 skipping to change at line 34
/* /*
* Pull in the typedef of TCHAR for windows. * Pull in the typedef of TCHAR for windows.
*/ */
#if defined(__WIN32__) && !defined(_TCHAR_DEFINED) #if defined(__WIN32__) && !defined(_TCHAR_DEFINED)
# include <tchar.h> # include <tchar.h>
# ifndef _TCHAR_DEFINED # ifndef _TCHAR_DEFINED
/* Borland seems to forget to set this. */ /* Borland seems to forget to set this. */
typedef _TCHAR TCHAR; typedef _TCHAR TCHAR;
# define _TCHAR_DEFINED # define _TCHAR_DEFINED
# endif # endif
# if defined(_MSC_VER) && defined(__STDC__)
/* VS2005 SP1 misses this. See [Bug #3110161] */
typedef _TCHAR TCHAR;
# endif
#endif #endif
/* !BEGIN!: Do not edit below this line. */ /* !BEGIN!: Do not edit below this line. */
/* /*
* Exported function declarations: * Exported function declarations:
*/ */
#ifdef __WIN32__ /* WIN */ #ifdef __WIN32__ /* WIN */
#ifndef Tcl_WinUtfToTChar_TCL_DECLARED #ifndef Tcl_WinUtfToTChar_TCL_DECLARED
 End of changes. 2 change blocks. 
3 lines changed or deleted 4 lines changed or added


 tclTomMath.h   tclTomMath.h 
skipping to change at line 834 skipping to change at line 834
#if defined(BUILD_tcl) || !defined(_WIN32) #if defined(BUILD_tcl) || !defined(_WIN32)
MODULE_SCOPE const char *mp_s_rmap; MODULE_SCOPE const char *mp_s_rmap;
#endif #endif
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif #endif
/* $Source: /cvsroot/tcl/tcl/generic/tclTomMath.h,v $ */
/* Based on Tom's version 1.8 */
/* $Revision: 1.10.4.1 $ */
/* $Date: 2009/10/06 16:30:39 $ */
 End of changes. 1 change blocks. 
0 lines changed or deleted 0 lines changed or added


 tclTomMathDecls.h   tclTomMathDecls.h 
skipping to change at line 13 skipping to change at line 13
* *
* tclTomMathDecls.h -- * tclTomMathDecls.h --
* *
* This file contains the declarations for the 'libtommath' * This file contains the declarations for the 'libtommath'
* functions that are exported by the Tcl library. * functions that are exported by the Tcl library.
* *
* Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. * Copyright (c) 2005 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: tclTomMathDecls.h,v 1.2.4.1 2010/02/07 22:16:54 nijtmans
Exp $
*/ */
#ifndef _TCLTOMMATHDECLS #ifndef _TCLTOMMATHDECLS
#define _TCLTOMMATHDECLS #define _TCLTOMMATHDECLS
#include "tcl.h" #include "tcl.h"
/* /*
* Define the version of the Stubs table that's exported for tommath * Define the version of the Stubs table that's exported for tommath
*/ */
skipping to change at line 82 skipping to change at line 80
#define mp_div_2d TclBN_mp_div_2d #define mp_div_2d TclBN_mp_div_2d
#define mp_div_3 TclBN_mp_div_3 #define mp_div_3 TclBN_mp_div_3
#define mp_div_d TclBN_mp_div_d #define mp_div_d TclBN_mp_div_d
#define mp_exch TclBN_mp_exch #define mp_exch TclBN_mp_exch
#define mp_expt_d TclBN_mp_expt_d #define mp_expt_d TclBN_mp_expt_d
#define mp_grow TclBN_mp_grow #define mp_grow TclBN_mp_grow
#define mp_init TclBN_mp_init #define mp_init TclBN_mp_init
#define mp_init_copy TclBN_mp_init_copy #define mp_init_copy TclBN_mp_init_copy
#define mp_init_multi TclBN_mp_init_multi #define mp_init_multi TclBN_mp_init_multi
#define mp_init_set TclBN_mp_init_set #define mp_init_set TclBN_mp_init_set
#define mp_init_set_int TclBN_mp_init_set_int
#define mp_init_size TclBN_mp_init_size #define mp_init_size TclBN_mp_init_size
#define mp_karatsuba_mul TclBN_mp_karatsuba_mul #define mp_karatsuba_mul TclBN_mp_karatsuba_mul
#define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr #define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr
#define mp_lshd TclBN_mp_lshd #define mp_lshd TclBN_mp_lshd
#define mp_mod TclBN_mp_mod #define mp_mod TclBN_mp_mod
#define mp_mod_2d TclBN_mp_mod_2d #define mp_mod_2d TclBN_mp_mod_2d
#define mp_mul TclBN_mp_mul #define mp_mul TclBN_mp_mul
#define mp_mul_2 TclBN_mp_mul_2 #define mp_mul_2 TclBN_mp_mul_2
#define mp_mul_2d TclBN_mp_mul_2d #define mp_mul_2d TclBN_mp_mul_2d
#define mp_mul_d TclBN_mp_mul_d #define mp_mul_d TclBN_mp_mul_d
#define mp_neg TclBN_mp_neg #define mp_neg TclBN_mp_neg
#define mp_or TclBN_mp_or #define mp_or TclBN_mp_or
#define mp_radix_size TclBN_mp_radix_size #define mp_radix_size TclBN_mp_radix_size
#define mp_read_radix TclBN_mp_read_radix #define mp_read_radix TclBN_mp_read_radix
#define mp_rshd TclBN_mp_rshd #define mp_rshd TclBN_mp_rshd
#define mp_s_rmap TclBNMpSRmap #define mp_s_rmap TclBNMpSRmap
#define mp_set TclBN_mp_set #define mp_set TclBN_mp_set
#define mp_set_int TclBN_mp_set_int
#define mp_shrink TclBN_mp_shrink #define mp_shrink TclBN_mp_shrink
#define mp_sqr TclBN_mp_sqr #define mp_sqr TclBN_mp_sqr
#define mp_sqrt TclBN_mp_sqrt #define mp_sqrt TclBN_mp_sqrt
#define mp_sub TclBN_mp_sub #define mp_sub TclBN_mp_sub
#define mp_sub_d TclBN_mp_sub_d #define mp_sub_d TclBN_mp_sub_d
#define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin #define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin
#define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n #define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n
#define mp_toom_mul TclBN_mp_toom_mul #define mp_toom_mul TclBN_mp_toom_mul
#define mp_toom_sqr TclBN_mp_toom_sqr #define mp_toom_sqr TclBN_mp_toom_sqr
#define mp_toradix_n TclBN_mp_toradix_n #define mp_toradix_n TclBN_mp_toradix_n
skipping to change at line 326 skipping to change at line 326
EXTERN int TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c);
#endif #endif
#ifndef TclBN_mp_radix_size_TCL_DECLARED #ifndef TclBN_mp_radix_size_TCL_DECLARED
#define TclBN_mp_radix_size_TCL_DECLARED #define TclBN_mp_radix_size_TCL_DECLARED
/* 35 */ /* 35 */
EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size) ; EXTERN int TclBN_mp_radix_size(mp_int *a, int radix, int *size) ;
#endif #endif
#ifndef TclBN_mp_read_radix_TCL_DECLARED #ifndef TclBN_mp_read_radix_TCL_DECLARED
#define TclBN_mp_read_radix_TCL_DECLARED #define TclBN_mp_read_radix_TCL_DECLARED
/* 36 */ /* 36 */
EXTERN int TclBN_mp_read_radix(mp_int *a, const char *str, EXTERN int TclBN_mp_read_radix(mp_int *a, CONST char *str,
int radix); int radix);
#endif #endif
#ifndef TclBN_mp_rshd_TCL_DECLARED #ifndef TclBN_mp_rshd_TCL_DECLARED
#define TclBN_mp_rshd_TCL_DECLARED #define TclBN_mp_rshd_TCL_DECLARED
/* 37 */ /* 37 */
EXTERN void TclBN_mp_rshd(mp_int *a, int shift); EXTERN void TclBN_mp_rshd(mp_int *a, int shift);
#endif #endif
#ifndef TclBN_mp_shrink_TCL_DECLARED #ifndef TclBN_mp_shrink_TCL_DECLARED
#define TclBN_mp_shrink_TCL_DECLARED #define TclBN_mp_shrink_TCL_DECLARED
/* 38 */ /* 38 */
skipping to change at line 454 skipping to change at line 454
#ifndef TclBN_s_mp_sqr_TCL_DECLARED #ifndef TclBN_s_mp_sqr_TCL_DECLARED
#define TclBN_s_mp_sqr_TCL_DECLARED #define TclBN_s_mp_sqr_TCL_DECLARED
/* 59 */ /* 59 */
EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b); EXTERN int TclBN_s_mp_sqr(mp_int *a, mp_int *b);
#endif #endif
#ifndef TclBN_s_mp_sub_TCL_DECLARED #ifndef TclBN_s_mp_sub_TCL_DECLARED
#define TclBN_s_mp_sub_TCL_DECLARED #define TclBN_s_mp_sub_TCL_DECLARED
/* 60 */ /* 60 */
EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c);
#endif #endif
#ifndef TclBN_mp_init_set_int_TCL_DECLARED
#define TclBN_mp_init_set_int_TCL_DECLARED
/* 61 */
EXTERN int TclBN_mp_init_set_int(mp_int*a, unsigned long i);
#endif
#ifndef TclBN_mp_set_int_TCL_DECLARED
#define TclBN_mp_set_int_TCL_DECLARED
/* 62 */
EXTERN int TclBN_mp_set_int(mp_int*a, unsigned long i);
#endif
typedef struct TclTomMathStubs { typedef struct TclTomMathStubs {
int magic; int magic;
struct TclTomMathStubHooks *hooks; struct TclTomMathStubHooks *hooks;
int (*tclBN_epoch) (void); /* 0 */ int (*tclBN_epoch) (void); /* 0 */
int (*tclBN_revision) (void); /* 1 */ int (*tclBN_revision) (void); /* 1 */
int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */ int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */
int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */ int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */
int (*tclBN_mp_and) (mp_int *a, mp_int *b, mp_int *c); /* 4 */ int (*tclBN_mp_and) (mp_int *a, mp_int *b, mp_int *c); /* 4 */
skipping to change at line 495 skipping to change at line 505
int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */
int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */ int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */
int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */ int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */
int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */ int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */
int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */ int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */
int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */ int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */
int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */ int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */
int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */ int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */
int (*tclBN_mp_or) (mp_int *a, mp_int *b, mp_int *c); /* 34 */ int (*tclBN_mp_or) (mp_int *a, mp_int *b, mp_int *c); /* 34 */
int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */ int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */
int (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */ int (*tclBN_mp_read_radix) (mp_int *a, CONST char *str, int radix); /* 36 */
void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */
int (*tclBN_mp_shrink) (mp_int *a); /* 38 */ int (*tclBN_mp_shrink) (mp_int *a); /* 38 */
void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */
int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */ int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */
int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */ int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */
int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */ int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */
int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */ int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */
int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */ int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */
int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigne d long *outlen); /* 45 */ int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigne d long *outlen); /* 45 */
int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen) ; /* 46 */ int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen) ; /* 46 */
skipping to change at line 520 skipping to change at line 530
int (*tclBN_fast_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int d igs); /* 51 */ int (*tclBN_fast_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int d igs); /* 51 */
int (*tclBN_fast_s_mp_sqr) (mp_int *a, mp_int *b); /* 52 */ int (*tclBN_fast_s_mp_sqr) (mp_int *a, mp_int *b); /* 52 */
int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */ int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */
int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */ int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */
int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */ int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */
int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */ int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */
int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */ int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */
int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */ int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */
int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */ int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */
int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */ int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */
int (*tclBN_mp_init_set_int) (mp_int*a, unsigned long i); /* 61 */
int (*tclBN_mp_set_int) (mp_int*a, unsigned long i); /* 62 */
} TclTomMathStubs; } TclTomMathStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclTomMathStubs *tclTomMathStubsPtr; extern TclTomMathStubs *tclTomMathStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 780 skipping to change at line 792
(tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */
#endif #endif
#ifndef TclBN_s_mp_sqr #ifndef TclBN_s_mp_sqr
#define TclBN_s_mp_sqr \ #define TclBN_s_mp_sqr \
(tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */
#endif #endif
#ifndef TclBN_s_mp_sub #ifndef TclBN_s_mp_sub
#define TclBN_s_mp_sub \ #define TclBN_s_mp_sub \
(tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */
#endif #endif
#ifndef TclBN_mp_init_set_int
#define TclBN_mp_init_set_int \
(tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */
#endif
#ifndef TclBN_mp_set_int
#define TclBN_mp_set_int \
(tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */
#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. */
#undef TCL_STORAGE_CLASS #undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT #define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TCLINTDECLS */ #endif /* _TCLINTDECLS */
 End of changes. 8 change blocks. 
5 lines changed or deleted 24 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/