summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tcl.h63
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