diff options
| -rw-r--r-- | generic/tcl.h | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index fb4cbdc..75975bf 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -1,4 +1,3 @@ - /* * tcl.h -- * @@ -14,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.294 2009/12/21 23:25:39 nijtmans Exp $ + * RCS: @(#) $Id: tcl.h,v 1.295 2009/12/23 20:12:39 dkf Exp $ */ #ifndef _TCL @@ -480,8 +479,8 @@ typedef struct Tcl_Interp { * Tcl_Eval must free it before executing next * command. */ #else - char* unused3; - void (*unused4) (char*); + char *unused3; + void (*unused4) (char *); #endif #ifdef USE_INTERP_ERRORLINE int errorLine; /* When TCL_ERROR is returned, this gives the @@ -632,13 +631,13 @@ typedef struct stat *Tcl_OldStat_; * interpreter's result is meaningless. */ -#define TCL_OK 0 -#define TCL_ERROR 1 -#define TCL_RETURN 2 -#define TCL_BREAK 3 -#define TCL_CONTINUE 4 +#define TCL_OK 0 +#define TCL_ERROR 1 +#define TCL_RETURN 2 +#define TCL_BREAK 3 +#define TCL_CONTINUE 4 -#define TCL_RESULT_SIZE 200 +#define TCL_RESULT_SIZE 200 /* * Flags to control what substitutions are performed by Tcl_SubstObj(): @@ -813,9 +812,9 @@ typedef struct Tcl_Obj { * to compute or has side effects. */ -void Tcl_IncrRefCount (Tcl_Obj *objPtr); -void Tcl_DecrRefCount (Tcl_Obj *objPtr); -int Tcl_IsShared (Tcl_Obj *objPtr); +void Tcl_IncrRefCount(Tcl_Obj *objPtr); +void Tcl_DecrRefCount(Tcl_Obj *objPtr); +int Tcl_IsShared(Tcl_Obj *objPtr); /* * The following structure contains the state needed by Tcl_SaveResult. No-one @@ -960,8 +959,8 @@ typedef struct Tcl_DString { * buffer space required by Tcl_PrintDouble. */ -#define TCL_MAX_PREC 17 -#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) +#define TCL_MAX_PREC 17 +#define TCL_DOUBLE_SPACE (TCL_MAX_PREC+10) /* * Definition for a number of bytes of buffer space sufficient to hold the @@ -1025,9 +1024,9 @@ typedef struct Tcl_DString { * page for details): */ -#define TCL_VOLATILE ((Tcl_FreeProc *) 1) -#define TCL_STATIC ((Tcl_FreeProc *) 0) -#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) +#define TCL_VOLATILE ((Tcl_FreeProc *) 1) +#define TCL_STATIC ((Tcl_FreeProc *) 0) +#define TCL_DYNAMIC ((Tcl_FreeProc *) 3) /* * Flag values passed to variable-related functions. @@ -1377,9 +1376,9 @@ typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData); * indicate what sorts of events are of interest: */ -#define TCL_READABLE (1<<1) -#define TCL_WRITABLE (1<<2) -#define TCL_EXCEPTION (1<<3) +#define TCL_READABLE (1<<1) +#define TCL_WRITABLE (1<<2) +#define TCL_EXCEPTION (1<<3) /* * Flag values to pass to Tcl_OpenCommandChannel to indicate the disposition @@ -1397,15 +1396,15 @@ typedef void (Tcl_ScaleTimeProc) (Tcl_Time *timebuf, ClientData clientData); * should be closed. */ -#define TCL_CLOSE_READ (1<<1) -#define TCL_CLOSE_WRITE (1<<2) +#define TCL_CLOSE_READ (1<<1) +#define TCL_CLOSE_WRITE (1<<2) /* * Value to use as the closeProc for a channel that supports the close2Proc * interface. */ -#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *)1) +#define TCL_CLOSE2PROC ((Tcl_DriverCloseProc *) 1) /* * Channel version tag. This was introduced in 8.3.2/8.4. @@ -2306,7 +2305,7 @@ typedef int (*Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp, * value since the stubs tables don't match. */ -#define TCL_STUB_MAGIC ((int)0xFCA3BACF) +#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) /* * The following function is required to be defined in all stubs aware @@ -2341,12 +2340,12 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] */ -EXTERN void Tcl_Main (int argc, char **argv, - Tcl_AppInitProc *appInitProc); -EXTERN const char * Tcl_PkgInitStubsCheck (Tcl_Interp *interp, - const char *version, int exact); +EXTERN void Tcl_Main(int argc, char **argv, + Tcl_AppInitProc *appInitProc); +EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, + const char *version, int exact); #if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) -EXTERN void Tcl_GetMemoryInfo (Tcl_DString *dsPtr); +EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); #endif @@ -2355,7 +2354,7 @@ EXTERN void Tcl_GetMemoryInfo (Tcl_DString *dsPtr); */ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, - int result); + int result); /* * Include the public function declarations that are accessible via the stubs @@ -2546,7 +2545,7 @@ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS -EXTERN int Tcl_AppInit (Tcl_Interp *interp); +EXTERN int Tcl_AppInit(Tcl_Interp *interp); #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT |