TIP#72 implementation. See ChangeLog for details.

This version builds clean on Solaris/SPARC, with GCC and CC, both with and
without threads and both in 32-bit and 64-bit mode.

1 files changed, 94 insertions, 97 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 67bd6f7..912c596 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tclInt.decls,v 1.45 2002/01/27 11:09:30 das Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.46 2002/02/15 14:28:49 dkf Exp $
 
 library tcl
 
@@ -43,7 +43,7 @@ declare 3 generic {
 #      int TclChdir(Tcl_Interp *interp, char *dirName)
 #  }
 declare 5 {unix win} {
-    int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, \
+    int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr,
 	    Tcl_Channel errorChan)
 }
 declare 6 generic {
@@ -53,20 +53,20 @@ declare 7 generic {
     int TclCopyAndCollapse(int count, CONST char *src, char *dst)
 }
 declare 8 generic {
-    int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan, \
+    int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan,
 	    Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr)
 }
 
 # TclCreatePipeline unofficially exported for use by BLT.
 
 declare 9 {unix win} {
-    int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv, \
-	    Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, \
+    int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv,
+	    Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr,
 	    TclFile *errFilePtr)
 }
 declare 10 generic {
     int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, 
-            CONST char *procName,
+	    CONST char *procName,
 	    Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr)
 }
 declare 11 generic {
@@ -76,7 +76,7 @@ declare 12 generic {
     void TclDeleteVars(Interp *iPtr, Tcl_HashTable *tablePtr)
 }
 declare 13 generic {
-    int TclDoGlob(Tcl_Interp *interp, char *separators, \
+    int TclDoGlob(Tcl_Interp *interp, char *separators,
 	    Tcl_DString *headPtr, char *tail, Tcl_GlobTypeData *types)
 }
 declare 14 generic {
@@ -106,8 +106,8 @@ declare 16 generic {
 #    int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)
 #}
 declare 22 generic {
-    int TclFindElement(Tcl_Interp *interp, CONST char *listStr, \
-	    int listLength, CONST char **elementPtr, CONST char **nextPtr, \
+    int TclFindElement(Tcl_Interp *interp, CONST char *listStr,
+	    int listLength, CONST char **elementPtr, CONST char **nextPtr,
 	    int *sizePtr, int *bracePtr)
 }
 declare 23 generic {
@@ -124,14 +124,14 @@ declare 25 generic {
 #      char * TclGetCwd(Tcl_Interp *interp)
 #  }
 declare 27 generic {
-    int TclGetDate(char *p, unsigned long now, long zone, \
+    int TclGetDate(char *p, unsigned long now, long zone,
 	    unsigned long *timePtr)
 }
 declare 28 generic {
     Tcl_Channel TclpGetDefaultStdChannel(int type)
 }
 declare 29 generic {
-    Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \
+    Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp,
 	    int localIndex, Tcl_Obj *elemPtr, int flags)
 }
 # Replaced by char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1:
@@ -142,18 +142,18 @@ declare 31 generic {
     char * TclGetExtension(char *name)
 }
 declare 32 generic {
-    int TclGetFrame(Tcl_Interp *interp, CONST char *str, \
+    int TclGetFrame(Tcl_Interp *interp, CONST char *str,
 	    CallFrame **framePtrPtr)
 }
 declare 33 generic {
     TclCmdProcType TclGetInterpProc(void)
 }
 declare 34 generic {
-    int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+    int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr,
 	    int endValue, int *indexPtr)
 }
 declare 35 generic {
-    Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex, \
+    Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex,
 	    int flags)
 }
 declare 36 generic {
@@ -163,9 +163,9 @@ declare 37 generic {
     int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
 }
 declare 38 generic {
-    int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName, \
-	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \
-	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \
+    int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName,
+	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr,
+	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr,
 	    CONST char **simpleNamePtr)
 }
 declare 39 generic {
@@ -193,19 +193,19 @@ declare 46 generic {
     int TclInExit(void)
 }
 declare 47 generic {
-    Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp, \
+    Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp,
 	    int localIndex, Tcl_Obj *elemPtr, long incrAmount)
 }
 declare 48 generic {
-    Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex, \
+    Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex,
 	    long incrAmount)
 }
 declare 49 generic {
-    Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
+    Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
 	    Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed)
 }
 declare 50 generic {
-    void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr, \
+    void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr,
 	    Namespace *nsPtr)
 }
 declare 51 generic {
@@ -215,11 +215,11 @@ declare 52 generic {
     int TclInvoke(Tcl_Interp *interp, int argc, char **argv, int flags)
 }
 declare 53 generic {
-    int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, \
+    int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp,
 	    int argc, char **argv)
 }
 declare 54 generic {
-    int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp, \
+    int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp,
 	    int objc, Tcl_Obj *CONST objv[])
 }
 declare 55 generic {
@@ -227,8 +227,8 @@ declare 55 generic {
 }
 # Replaced with TclpLoadFile in 8.1:
 #  declare 56 generic {
-#      int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
-#  	    char *sym2, Tcl_PackageInitProc **proc1Ptr, \
+#      int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,
+#  	    char *sym2, Tcl_PackageInitProc **proc1Ptr,
 #  	    Tcl_PackageInitProc **proc2Ptr)
 #  }
 # Signature changed to take a length in 8.1:
@@ -236,13 +236,13 @@ declare 55 generic {
 #      int TclLooksLikeInt(char *p)
 #  }
 declare 58 generic {
-    Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \
-	    int flags, char *msg, int createPart1, int createPart2, \
+    Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2,
+	    int flags, char *msg, int createPart1, int createPart2,
 	    Var **arrayPtrPtr)
 }
 # Replaced by Tcl_FSMatchInDirectory in 8.4
 #declare 59 generic {
-#    int TclpMatchFiles(Tcl_Interp *interp, char *separators, \
+#    int TclpMatchFiles(Tcl_Interp *interp, char *separators,
 #	    Tcl_DString *dirPtr, char *pattern, char *tail)
 #}
 declare 60 generic {
@@ -255,15 +255,15 @@ declare 62 generic {
     int TclObjCommandComplete(Tcl_Obj *cmdPtr)
 }
 declare 63 generic {
-    int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp, \
+    int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp,
 	    int objc, Tcl_Obj *CONST objv[])
 }
 declare 64 generic {
-    int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \
+    int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
 	    int flags)
 }
 declare 65 generic {
-    int TclObjInvokeGlobal(Tcl_Interp *interp, int objc, \
+    int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,
 	    Tcl_Obj *CONST objv[], int flags)
 }
 declare 66 generic {
@@ -283,7 +283,7 @@ declare 69 generic {
 #    int TclpCopyFile(CONST char *source, CONST char *dest)
 #}
 #declare 71 generic {
-#    int TclpCopyDirectory(CONST char *source, CONST char *dest, \
+#    int TclpCopyDirectory(CONST char *source, CONST char *dest,
 #	    Tcl_DString *errorPtr)
 #}
 #declare 72 generic {
@@ -316,14 +316,14 @@ declare 78 generic {
 #}
 # Replaced by Tcl_FSOpenFileChannel in 8.4:
 #declare 80 generic {
-#    Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName, \
+#    Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName,
 #	    char *modeString, int permissions)
 #}
 declare 81 generic {
     char * TclpRealloc(char *ptr, unsigned int size)
 }
 #declare 82 generic {
-#    int TclpRemoveDirectory(CONST char *path, int recursive, \
+#    int TclpRemoveDirectory(CONST char *path, int recursive,
 #	    Tcl_DString *errorPtr)
 #}
 #declare 83 generic {
@@ -331,26 +331,26 @@ declare 81 generic {
 #}
 # Removed in 8.1:
 #  declare 84 generic {
-#      int TclParseBraces(Tcl_Interp *interp, char *str, char **termPtr, \
+#      int TclParseBraces(Tcl_Interp *interp, char *str, char **termPtr,
 #  	    ParseValue *pvPtr)
 #  }
 #  declare 85 generic {
-#      int TclParseNestedCmd(Tcl_Interp *interp, char *str, int flags, \
+#      int TclParseNestedCmd(Tcl_Interp *interp, char *str, int flags,
 #  	    char **termPtr, ParseValue *pvPtr)
 #  }
 #  declare 86 generic {
-#      int TclParseQuotes(Tcl_Interp *interp, char *str, int termChar, \
+#      int TclParseQuotes(Tcl_Interp *interp, char *str, int termChar,
 #  	    int flags, char **termPtr, ParseValue *pvPtr)
 #  }
 #  declare 87 generic {
 #      void TclPlatformInit(Tcl_Interp *interp)
 #  }
 declare 88 generic {
-    char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \
+    char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp,
 	    char *name1, char *name2, int flags)
 }
 declare 89 generic {
-    int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \
+    int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp,
 	    Tcl_Command cmd)
 }
 # Removed in 8.1 (only available if compiled with TCL_COMPILE_DEBUG):
@@ -361,20 +361,20 @@ declare 91 generic {
     void TclProcCleanupProc(Proc *procPtr)
 }
 declare 92 generic {
-    int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, \
-	    Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, \
+    int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
+	    Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description,
 	    CONST char *procName)
 }
 declare 93 generic {
     void TclProcDeleteProc(ClientData clientData)
 }
 declare 94 generic {
-    int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp, \
+    int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp,
 	    int argc, char **argv)
 }
 # Replaced by Tcl_FSStat in 8.4:
 #declare 95 generic {
-#    int TclpStat(CONST char *path, struct stat *buf)
+#    int TclpStat(CONST char *path, Tcl_StatBuf *buf)
 #}
 declare 96 generic {
     int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName)
@@ -386,11 +386,11 @@ declare 98 generic {
     int TclServiceIdle(void)
 }
 declare 99 generic {
-    Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, \
-	    int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int flags)
+    Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, int localIndex,
+	    Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int flags)
 }
 declare 100 generic {
-    Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \
+    Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex,
 	    Tcl_Obj *objPtr, int flags)
 }
 declare 101 {unix win} {
@@ -400,7 +400,7 @@ declare 102 generic {
     void TclSetupEnv(Tcl_Interp *interp)
 }
 declare 103 generic {
-    int TclSockGetPort(Tcl_Interp *interp, char *str, char *proto, \
+    int TclSockGetPort(Tcl_Interp *interp, char *str, char *proto,
 	    int *portPtr)
 }
 declare 104 {unix win} {
@@ -408,7 +408,7 @@ declare 104 {unix win} {
 }
 # Replaced by Tcl_FSStat in 8.4:
 #declare 105 generic {
-#    int TclStat(CONST char *path, struct stat *buf)
+#    int TclStat(CONST char *path, Tcl_StatBuf *buf)
 #}
 declare 106 generic {
     int TclStatDeleteProc(TclStatProc_ *proc)
@@ -431,54 +431,54 @@ declare 109 generic {
 # defined here instead of in tcl.decls since they are not stable yet.
 
 declare 111 generic {
-    void Tcl_AddInterpResolvers(Tcl_Interp *interp, CONST char *name, \
-	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \
+    void Tcl_AddInterpResolvers(Tcl_Interp *interp, CONST char *name,
+	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,
 	    Tcl_ResolveCompiledVarProc *compiledVarProc)
 }
 declare 112 generic {
-    int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
+    int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 	    Tcl_Obj *objPtr)
 }
 declare 113 generic {
-    Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name, \
+    Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name,
 	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
 }
 declare 114 generic {
     void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr)
 }
 declare 115 generic {
-    int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
+    int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 	    CONST char *pattern, int resetListFirst)
 }
 declare 116 generic {
-    Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, \
+    Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name,
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
 declare 117 generic {
-    Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name, \
+    Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name,
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
 declare 118 generic {
-    int Tcl_GetInterpResolvers(Tcl_Interp *interp, CONST char *name, \
+    int Tcl_GetInterpResolvers(Tcl_Interp *interp, CONST char *name,
 	    Tcl_ResolverInfo *resInfo)
 }
 declare 119 generic {
-    int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr, \
+    int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr,
 	    Tcl_ResolverInfo *resInfo)
 }
 declare 120 generic {
-    Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, \
+    Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name,
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
 declare 121 generic {
-    int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
+    int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 	    CONST char *pattern)
 }
 declare 122 generic {
     Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
 declare 123 generic {
-    void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, \
+    void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command,
 	    Tcl_Obj *objPtr)
 }
 declare 124 generic {
@@ -488,26 +488,26 @@ declare 125 generic {
     Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp)
 }
 declare 126 generic {
-    void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable, \
+    void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable,
 	    Tcl_Obj *objPtr)
 }
 declare 127 generic {
-    int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
+    int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 	    CONST char *pattern, int allowOverwrite)
 }
 declare 128 generic {
     void Tcl_PopCallFrame(Tcl_Interp* interp)
 }
 declare 129 generic {
-    int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr, \
+    int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr,
 	    Tcl_Namespace *nsPtr, int isProcCallFrame)
 } 
 declare 130 generic {
     int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name)
 }
 declare 131 generic {
-    void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \
-	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \
+    void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr,
+	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,
 	    Tcl_ResolveCompiledVarProc *compiledVarProc)
 }
 declare 132 generic {
@@ -517,7 +517,7 @@ declare 133 generic {
     struct tm *	TclpGetDate(TclpTime_t time, int useGMT)
 }
 declare 134 generic {
-    size_t TclpStrftime(char *s, size_t maxsize, CONST char *format, \
+    size_t TclpStrftime(char *s, size_t maxsize, CONST char *format,
 	    CONST struct tm *t)
 }
 declare 135 generic {
@@ -533,8 +533,8 @@ declare 138 generic {
     CONST char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr)
 }
 #declare 139 generic {
-#    int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
-#	    char *sym2, Tcl_PackageInitProc **proc1Ptr, \
+#    int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,
+#	    char *sym2, Tcl_PackageInitProc **proc1Ptr,
 #	    Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr)
 #}
 declare 140 generic {
@@ -545,15 +545,15 @@ declare 141 generic {
     CONST char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
 }
 declare 142 generic {
-    int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+    int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr,
 	    CompileHookProc *hookProc, ClientData clientData)
 }
 declare 143 generic {
-    int TclAddLiteralObj(struct CompileEnv *envPtr, Tcl_Obj *objPtr, \
+    int TclAddLiteralObj(struct CompileEnv *envPtr, Tcl_Obj *objPtr,
 	    LiteralEntry **litPtrPtr)
 }
 declare 144 generic {
-    void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr, \
+    void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr,
 	    int index)
 }
 declare 145 generic {
@@ -582,7 +582,7 @@ declare 150 generic {
     int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re)
 }
 declare 151 generic {
-    void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr, \
+    void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr,
 	    int *endPtr)
 }
 
@@ -599,12 +599,12 @@ declare 153 generic {
 #    Tcl_Interp *interp, int argc, char **argv)
 #}
 #declare 155 generic {
-#    int TclTestChannelEventCmd(ClientData clientData, \
+#    int TclTestChannelEventCmd(ClientData clientData,
 #	     Tcl_Interp *interp, int argc, char **argv)
 #}
 
 declare 156 generic {
-    void TclRegError (Tcl_Interp *interp, CONST char *msg, \
+    void TclRegError (Tcl_Interp *interp, CONST char *msg,
 	    int status)
 }
 declare 157 generic {
@@ -617,13 +617,13 @@ declare 159 generic {
     CONST char *TclGetStartupScriptFileName(void)
 }
 #declare 160 generic {
-#    int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators, \
+#    int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators,
 #	    Tcl_DString *dirPtr, char *pattern, char *tail, GlobTypeData *types)
 #}
 
 # new in 8.3.2/8.4a2
 declare 161 generic {
-    int TclChannelTransform(Tcl_Interp *interp, Tcl_Channel chan, \
+    int TclChannelTransform(Tcl_Interp *interp, Tcl_Channel chan,
 	    Tcl_Obj *cmdObjPtr)
 }
 declare 162 generic {
@@ -654,10 +654,8 @@ declare 165 generic {
 
 # New function due to TIP #33
 declare 166 generic {
-    int TclListObjSetElement( Tcl_Interp* interp,
-                               Tcl_Obj* listPtr, 
-                               int index,
-                               Tcl_Obj* valuePtr   )
+    int TclListObjSetElement(Tcl_Interp *interp, Tcl_Obj *listPtr, 
+	    int index, Tcl_Obj *valuePtr)
 }
 
 # VFS-aware versions of Tcl*StartupScriptFileName (158 and 159 above)
@@ -701,7 +699,7 @@ declare 5 mac {
     int FSpSetDefaultDir(FSSpecPtr theSpec)
 }
 declare 6 mac {
-    OSErr FSpFindFolder(short vRefNum, OSType folderType, \
+    OSErr FSpFindFolder(short vRefNum, OSType folderType,
 	    Boolean createFolder, FSSpec *spec)
 }
 declare 7 mac {
@@ -713,15 +711,15 @@ declare 7 mac {
 # however.  The first set are from the MoreFiles package.
 
 declare 8 mac {
-    pascal OSErr FSpGetDirectoryIDTcl(CONST FSSpec *spec, long *theDirID, \
+    pascal OSErr FSpGetDirectoryIDTcl(CONST FSSpec *spec, long *theDirID,
 	    Boolean *isDirectory)
 }
 declare 9 mac {
-    pascal short FSpOpenResFileCompatTcl(CONST FSSpec *spec, \
+    pascal short FSpOpenResFileCompatTcl(CONST FSSpec *spec,
 	    SignedByte permission)
 }
 declare 10 mac {
-    pascal void FSpCreateResFileCompatTcl(CONST FSSpec *spec, OSType creator, \
+    pascal void FSpCreateResFileCompatTcl(CONST FSSpec *spec, OSType creator,
 	    OSType fileType, ScriptCode scriptTag)
 }
 
@@ -732,7 +730,7 @@ declare 11 mac {
     int FSpLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec)
 }
 declare 12 mac {
-    OSErr FSpPathFromLocation(FSSpecPtr theSpec, int *length, \
+    OSErr FSpPathFromLocation(FSSpecPtr theSpec, int *length,
 	    Handle *fullPath)
 }
 
@@ -760,7 +758,7 @@ declare 19 mac {
     int TclMacTimerExpired(void *timerToken)
 }
 declare 20 mac {
-    int TclMacRegisterResourceFork(short fileRef, Tcl_Obj *tokenPtr, \
+    int TclMacRegisterResourceFork(short fileRef, Tcl_Obj *tokenPtr,
 	    int insert)
 }	
 declare 21 mac {
@@ -793,11 +791,11 @@ declare 1 win {
     void TclWinConvertWSAError(DWORD errCode)
 }
 declare 2 win {
-    struct servent * TclWinGetServByName(CONST char *nm, \
+    struct servent * TclWinGetServByName(CONST char *nm,
 	    CONST char *proto)
 }
 declare 3 win {
-    int TclWinGetSockOpt(SOCKET s, int level, int optname, \
+    int TclWinGetSockOpt(SOCKET s, int level, int optname,
 	    char FAR * optval, int FAR *optlen)
 }
 declare 4 win {
@@ -811,7 +809,7 @@ declare 6 win {
     u_short TclWinNToHS(u_short ns)
 }
 declare 7 win {
-    int TclWinSetSockOpt(SOCKET s, int level, int optname, \
+    int TclWinSetSockOpt(SOCKET s, int level, int optname,
 	    CONST char FAR * optval, int optlen)
 }
 declare 8 win {
@@ -834,15 +832,15 @@ declare 12 win {
     int TclpCloseFile(TclFile file)
 }
 declare 13 win {
-    Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \
+    Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
 	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
 }
 declare 14 win {
     int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
 }
 declare 15 win {
-    int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv, \
-	    TclFile inputFile, TclFile outputFile, TclFile errorFile, \
+    int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
+	    TclFile inputFile, TclFile outputFile, TclFile errorFile,
 	    Tcl_Pid *pidPtr)
 }
 # Signature changed in 8.1:
@@ -902,21 +900,20 @@ declare 1 unix {
     int TclpCloseFile(TclFile file)
 }
 declare 2 unix {
-    Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \
+    Tcl_Channel TclpCreateCommandChannel(TclFile readFile,
 	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
 }
 declare 3 unix {
     int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
 }
 declare 4 unix {
-    int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv, \
-	    TclFile inputFile, TclFile outputFile, TclFile errorFile, \
+    int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
+	    TclFile inputFile, TclFile outputFile, TclFile errorFile,
 	    Tcl_Pid *pidPtr)
 }
 # Signature changed in 8.1:
 #  declare 5 unix {
-#      TclFile TclpCreateTempFile(char *contents, 
-#      Tcl_DString *namePtr)
+#      TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)
 #  }
 declare 6 unix {
     TclFile TclpMakeFile(Tcl_Channel channel, int direction)