merge core-8-4-branch

Add Tcl_GetStartupScript/Tcl_SetStartupScript stub entries as well.

generic/tcl.decls

@@ -1763,10 +1763,59 @@ declare 493 {
 	    Tcl_ChannelType *chanTypePtr)
 }
 
-# Slots 494 to 553 are taken already by 8.5
+# Slots 494 to 505 are taken already by 8.5
 # #111 - Dicts            (494 ... 504)
 #  #59 - Config           (505)
-# #139 - Namespace API    (506 ... 517)
+
+# TIP #139 (partial exposure of namespace API - transferred from tclInt.decls)
+# dkf, API by Brent Welch?
+declare 506 {
+    Tcl_Namespace *Tcl_CreateNamespace(Tcl_Interp *interp, const char *name,
+	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
+}
+declare 507 {
+    void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr)
+}
+declare 508 {
+    int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
+	    Tcl_Obj *objPtr)
+}
+declare 509 {
+    int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
+	    const char *pattern, int resetListFirst)
+}
+declare 510 {
+    int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
+	    const char *pattern, int allowOverwrite)
+}
+declare 511 {
+    int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
+	    const char *pattern)
+}
+declare 512 {
+    Tcl_Namespace *Tcl_GetCurrentNamespace(Tcl_Interp *interp)
+}
+declare 513 {
+    Tcl_Namespace *Tcl_GetGlobalNamespace(Tcl_Interp *interp)
+}
+declare 514 {
+    Tcl_Namespace *Tcl_FindNamespace(Tcl_Interp *interp, const char *name,
+	    Tcl_Namespace *contextNsPtr, int flags)
+}
+declare 515 {
+    Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
+	    Tcl_Namespace *contextNsPtr, int flags)
+}
+declare 516 {
+    Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
+}
+declare 517 {
+    void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command,
+	    Tcl_Obj *objPtr)
+}
+
+
+# Slots 518 to 553 are taken already by 8.5
 # #137 - source -encoding (518)
 # #121 - ExitProc         (519)
 # #121 - Resource Limits  (520 ... 534)
@@ -1795,6 +1844,25 @@ declare 573 {
 	    int objc, Tcl_Obj *const objv[], ClientData *clientDataPtr)
 }
 
+# Public in Tcl 8.6:
+declare 581 {
+    int TclCanceled(Tcl_Interp *interp, int flags)
+}
+declare 605 {
+    int TclGetErrorLine(Tcl_Interp *interp)
+}
+declare 606 {
+    void TclSetErrorLine(Tcl_Interp *interp, int lineNum)
+}
+declare 609 {
+    void TclBackgroundException(Tcl_Interp *interp, int code)
+}
+declare 622 {
+    void TclSetStartupScript(Tcl_Obj *path, const char *encoding)
+}
+declare 623 {
+    Tcl_Obj *TclGetStartupScript(const char **encodingPtr)
+}
 declare 630 {
     void TclUnusedStubEntry(void)
 }

generic/tclDecls.h

@@ -1555,18 +1555,48 @@ EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc _ANSI_ARGS_((
 /* Slot 503 is reserved */
 /* Slot 504 is reserved */
 /* Slot 505 is reserved */
-/* Slot 506 is reserved */
-/* Slot 507 is reserved */
-/* Slot 508 is reserved */
-/* Slot 509 is reserved */
-/* Slot 510 is reserved */
-/* Slot 511 is reserved */
-/* Slot 512 is reserved */
-/* Slot 513 is reserved */
-/* Slot 514 is reserved */
-/* Slot 515 is reserved */
-/* Slot 516 is reserved */
-/* Slot 517 is reserved */
+/* 506 */
+EXTERN Tcl_Namespace *	Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp,
+				CONST char *name, ClientData clientData,
+				Tcl_NamespaceDeleteProc *deleteProc));
+/* 507 */
+EXTERN void		Tcl_DeleteNamespace _ANSI_ARGS_((
+				Tcl_Namespace *nsPtr));
+/* 508 */
+EXTERN int		Tcl_AppendExportList _ANSI_ARGS_((Tcl_Interp *interp,
+				Tcl_Namespace *nsPtr, Tcl_Obj *objPtr));
+/* 509 */
+EXTERN int		Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp,
+				Tcl_Namespace *nsPtr, CONST char *pattern,
+				int resetListFirst));
+/* 510 */
+EXTERN int		Tcl_Import _ANSI_ARGS_((Tcl_Interp *interp,
+				Tcl_Namespace *nsPtr, CONST char *pattern,
+				int allowOverwrite));
+/* 511 */
+EXTERN int		Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp *interp,
+				Tcl_Namespace *nsPtr, CONST char *pattern));
+/* 512 */
+EXTERN Tcl_Namespace *	Tcl_GetCurrentNamespace _ANSI_ARGS_((
+				Tcl_Interp *interp));
+/* 513 */
+EXTERN Tcl_Namespace *	Tcl_GetGlobalNamespace _ANSI_ARGS_((
+				Tcl_Interp *interp));
+/* 514 */
+EXTERN Tcl_Namespace *	Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp *interp,
+				CONST char *name,
+				Tcl_Namespace *contextNsPtr, int flags));
+/* 515 */
+EXTERN Tcl_Command	Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,
+				CONST char *name,
+				Tcl_Namespace *contextNsPtr, int flags));
+/* 516 */
+EXTERN Tcl_Command	Tcl_GetCommandFromObj _ANSI_ARGS_((
+				Tcl_Interp *interp, Tcl_Obj *objPtr));
+/* 517 */
+EXTERN void		Tcl_GetCommandFullName _ANSI_ARGS_((
+				Tcl_Interp *interp, Tcl_Command command,
+				Tcl_Obj *objPtr));
 /* Slot 518 is reserved */
 /* Slot 519 is reserved */
 /* Slot 520 is reserved */
@@ -1636,7 +1666,9 @@ EXTERN int		Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp,
 /* Slot 578 is reserved */
 /* Slot 579 is reserved */
 /* Slot 580 is reserved */
-/* Slot 581 is reserved */
+/* 581 */
+EXTERN int		TclCanceled _ANSI_ARGS_((Tcl_Interp *interp,
+				int flags));
 /* Slot 582 is reserved */
 /* Slot 583 is reserved */
 /* Slot 584 is reserved */
@@ -1660,11 +1692,16 @@ EXTERN int		Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp,
 /* Slot 602 is reserved */
 /* Slot 603 is reserved */
 /* Slot 604 is reserved */
-/* Slot 605 is reserved */
-/* Slot 606 is reserved */
+/* 605 */
+EXTERN int		TclGetErrorLine _ANSI_ARGS_((Tcl_Interp *interp));
+/* 606 */
+EXTERN void		TclSetErrorLine _ANSI_ARGS_((Tcl_Interp *interp,
+				int lineNum));
 /* Slot 607 is reserved */
 /* Slot 608 is reserved */
-/* Slot 609 is reserved */
+/* 609 */
+EXTERN void		TclBackgroundException _ANSI_ARGS_((
+				Tcl_Interp *interp, int code));
 /* Slot 610 is reserved */
 /* Slot 611 is reserved */
 /* Slot 612 is reserved */
@@ -1677,8 +1714,12 @@ EXTERN int		Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp,
 /* Slot 619 is reserved */
 /* Slot 620 is reserved */
 /* Slot 621 is reserved */
-/* Slot 622 is reserved */
-/* Slot 623 is reserved */
+/* 622 */
+EXTERN void		TclSetStartupScript _ANSI_ARGS_((Tcl_Obj *path,
+				CONST char *encoding));
+/* 623 */
+EXTERN Tcl_Obj *	TclGetStartupScript _ANSI_ARGS_((
+				CONST char **encodingPtr));
 /* Slot 624 is reserved */
 /* Slot 625 is reserved */
 /* Slot 626 is reserved */
@@ -2228,18 +2269,18 @@ typedef struct TclStubs {
     VOID *reserved503;
     VOID *reserved504;
     VOID *reserved505;
-    VOID *reserved506;
-    VOID *reserved507;
-    VOID *reserved508;
-    VOID *reserved509;
-    VOID *reserved510;
-    VOID *reserved511;
-    VOID *reserved512;
-    VOID *reserved513;
-    VOID *reserved514;
-    VOID *reserved515;
-    VOID *reserved516;
-    VOID *reserved517;
+    Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)); /* 506 */
+    void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace *nsPtr)); /* 507 */
+    int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr)); /* 508 */
+    int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst)); /* 509 */
+    int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite)); /* 510 */
+    int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern)); /* 511 */
+    Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp *interp)); /* 512 */
+    Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp *interp)); /* 513 */
+    Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags)); /* 514 */
+    Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags)); /* 515 */
+    Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); /* 516 */
+    void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr)); /* 517 */
     VOID *reserved518;
     VOID *reserved519;
     VOID *reserved520;
@@ -2303,7 +2344,7 @@ typedef struct TclStubs {
     VOID *reserved578;
     VOID *reserved579;
     VOID *reserved580;
-    VOID *reserved581;
+    int (*tclCanceled) _ANSI_ARGS_((Tcl_Interp *interp, int flags)); /* 581 */
     VOID *reserved582;
     VOID *reserved583;
     VOID *reserved584;
@@ -2327,11 +2368,11 @@ typedef struct TclStubs {
     VOID *reserved602;
     VOID *reserved603;
     VOID *reserved604;
-    VOID *reserved605;
-    VOID *reserved606;
+    int (*tclGetErrorLine) _ANSI_ARGS_((Tcl_Interp *interp)); /* 605 */
+    void (*tclSetErrorLine) _ANSI_ARGS_((Tcl_Interp *interp, int lineNum)); /* 606 */
     VOID *reserved607;
     VOID *reserved608;
-    VOID *reserved609;
+    void (*tclBackgroundException) _ANSI_ARGS_((Tcl_Interp *interp, int code)); /* 609 */
     VOID *reserved610;
     VOID *reserved611;
     VOID *reserved612;
@@ -2344,8 +2385,8 @@ typedef struct TclStubs {
     VOID *reserved619;
     VOID *reserved620;
     VOID *reserved621;
-    VOID *reserved622;
-    VOID *reserved623;
+    void (*tclSetStartupScript) _ANSI_ARGS_((Tcl_Obj *path, CONST char *encoding)); /* 622 */
+    Tcl_Obj * (*tclGetStartupScript) _ANSI_ARGS_((CONST char **encodingPtr)); /* 623 */
     VOID *reserved624;
     VOID *reserved625;
     VOID *reserved626;
@@ -4375,18 +4416,54 @@ extern TclStubs *tclStubsPtr;
 /* Slot 503 is reserved */
 /* Slot 504 is reserved */
 /* Slot 505 is reserved */
-/* Slot 506 is reserved */
-/* Slot 507 is reserved */
-/* Slot 508 is reserved */
-/* Slot 509 is reserved */
-/* Slot 510 is reserved */
-/* Slot 511 is reserved */
-/* Slot 512 is reserved */
-/* Slot 513 is reserved */
-/* Slot 514 is reserved */
-/* Slot 515 is reserved */
-/* Slot 516 is reserved */
-/* Slot 517 is reserved */
+#ifndef Tcl_CreateNamespace
+#define Tcl_CreateNamespace \
+	(tclStubsPtr->tcl_CreateNamespace) /* 506 */
+#endif
+#ifndef Tcl_DeleteNamespace
+#define Tcl_DeleteNamespace \
+	(tclStubsPtr->tcl_DeleteNamespace) /* 507 */
+#endif
+#ifndef Tcl_AppendExportList
+#define Tcl_AppendExportList \
+	(tclStubsPtr->tcl_AppendExportList) /* 508 */
+#endif
+#ifndef Tcl_Export
+#define Tcl_Export \
+	(tclStubsPtr->tcl_Export) /* 509 */
+#endif
+#ifndef Tcl_Import
+#define Tcl_Import \
+	(tclStubsPtr->tcl_Import) /* 510 */
+#endif
+#ifndef Tcl_ForgetImport
+#define Tcl_ForgetImport \
+	(tclStubsPtr->tcl_ForgetImport) /* 511 */
+#endif
+#ifndef Tcl_GetCurrentNamespace
+#define Tcl_GetCurrentNamespace \
+	(tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
+#endif
+#ifndef Tcl_GetGlobalNamespace
+#define Tcl_GetGlobalNamespace \
+	(tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
+#endif
+#ifndef Tcl_FindNamespace
+#define Tcl_FindNamespace \
+	(tclStubsPtr->tcl_FindNamespace) /* 514 */
+#endif
+#ifndef Tcl_FindCommand
+#define Tcl_FindCommand \
+	(tclStubsPtr->tcl_FindCommand) /* 515 */
+#endif
+#ifndef Tcl_GetCommandFromObj
+#define Tcl_GetCommandFromObj \
+	(tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
+#endif
+#ifndef Tcl_GetCommandFullName
+#define Tcl_GetCommandFullName \
+	(tclStubsPtr->tcl_GetCommandFullName) /* 517 */
+#endif
 /* Slot 518 is reserved */
 /* Slot 519 is reserved */
 /* Slot 520 is reserved */
@@ -4456,7 +4533,10 @@ extern TclStubs *tclStubsPtr;
 /* Slot 578 is reserved */
 /* Slot 579 is reserved */
 /* Slot 580 is reserved */
-/* Slot 581 is reserved */
+#ifndef TclCanceled
+#define TclCanceled \
+	(tclStubsPtr->tclCanceled) /* 581 */
+#endif
 /* Slot 582 is reserved */
 /* Slot 583 is reserved */
 /* Slot 584 is reserved */
@@ -4480,11 +4560,20 @@ extern TclStubs *tclStubsPtr;
 /* Slot 602 is reserved */
 /* Slot 603 is reserved */
 /* Slot 604 is reserved */
-/* Slot 605 is reserved */
-/* Slot 606 is reserved */
+#ifndef TclGetErrorLine
+#define TclGetErrorLine \
+	(tclStubsPtr->tclGetErrorLine) /* 605 */
+#endif
+#ifndef TclSetErrorLine
+#define TclSetErrorLine \
+	(tclStubsPtr->tclSetErrorLine) /* 606 */
+#endif
 /* Slot 607 is reserved */
 /* Slot 608 is reserved */
-/* Slot 609 is reserved */
+#ifndef TclBackgroundException
+#define TclBackgroundException \
+	(tclStubsPtr->tclBackgroundException) /* 609 */
+#endif
 /* Slot 610 is reserved */
 /* Slot 611 is reserved */
 /* Slot 612 is reserved */
@@ -4497,8 +4586,14 @@ extern TclStubs *tclStubsPtr;
 /* Slot 619 is reserved */
 /* Slot 620 is reserved */
 /* Slot 621 is reserved */
-/* Slot 622 is reserved */
-/* Slot 623 is reserved */
+#ifndef TclSetStartupScript
+#define TclSetStartupScript \
+	(tclStubsPtr->tclSetStartupScript) /* 622 */
+#endif
+#ifndef TclGetStartupScript
+#define TclGetStartupScript \
+	(tclStubsPtr->tclGetStartupScript) /* 623 */
+#endif
 /* Slot 624 is reserved */
 /* Slot 625 is reserved */
 /* Slot 626 is reserved */
@@ -4514,6 +4609,25 @@ extern TclStubs *tclStubsPtr;
 
 /* !END!: Do not edit above this line. */
 
+#undef TclCanceled
+#undef TclBackgroundException
+#undef TclGetErrorLine
+#undef TclSetErrorLine
+#undef TclGetStartupScript
+#undef TclSetStartupScript
+
+#undef Tcl_CreateNamespace
+#undef Tcl_DeleteNamespace
+#undef Tcl_AppendExportList
+#undef Tcl_Export
+#undef Tcl_Import
+#undef Tcl_ForgetImport
+#undef Tcl_GetCurrentNamespace
+#undef Tcl_GetGlobalNamespace
+#undef Tcl_FindNamespace
+#undef Tcl_FindCommand
+#undef Tcl_GetCommandFromObj
+#undef Tcl_GetCommandFullName
 #undef TclUnusedStubEntry
 
 /*

generic/tclInt.decls

@@ -682,6 +682,12 @@ declare 173 {
     int TclUniCharMatch(const Tcl_UniChar *string, int strLen,
 	    const Tcl_UniChar *pattern, int ptnLen, int nocase)
 }
+declare 178 {
+    void TclSetStartupScript(Tcl_Obj *pathPtr, const char *encodingName)
+}
+declare 179 {
+    Tcl_Obj *TclGetStartupScript(const char **encodingNamePtr)
+}
 
 # TclpGmtime and TclpLocaltime promoted to the generic interface from unix
 
@@ -695,7 +701,10 @@ declare 183 {
 declare 199 {
     int TclMatchIsTrivial(const char *pattern)
 }
-
+# TIP 337 made this one public
+declare 236 {
+    void TclBackgroundException(Tcl_Interp *interp, int code)
+}
 declare 249 {
     void TclUnusedStubEntry(void)
 }

generic/tclIntDecls.h

@@ -480,8 +480,12 @@ EXTERN int		TclUniCharMatch _ANSI_ARGS_((
 /* Slot 175 is reserved */
 /* Slot 176 is reserved */
 /* Slot 177 is reserved */
-/* Slot 178 is reserved */
-/* Slot 179 is reserved */
+/* 178 */
+EXTERN void		TclSetStartupScript _ANSI_ARGS_((Tcl_Obj *pathPtr,
+				CONST char *encodingName));
+/* 179 */
+EXTERN Tcl_Obj *	TclGetStartupScript _ANSI_ARGS_((
+				CONST char **encodingNamePtr));
 /* Slot 180 is reserved */
 /* Slot 181 is reserved */
 /* 182 */
@@ -541,7 +545,9 @@ EXTERN int		TclMatchIsTrivial _ANSI_ARGS_((CONST char *pattern));
 /* Slot 233 is reserved */
 /* Slot 234 is reserved */
 /* Slot 235 is reserved */
-/* Slot 236 is reserved */
+/* 236 */
+EXTERN void		TclBackgroundException _ANSI_ARGS_((
+				Tcl_Interp *interp, int code));
 /* Slot 237 is reserved */
 /* Slot 238 is reserved */
 /* Slot 239 is reserved */
@@ -739,8 +745,8 @@ typedef struct TclIntStubs {
     VOID *reserved175;
     VOID *reserved176;
     VOID *reserved177;
-    VOID *reserved178;
-    VOID *reserved179;
+    void (*tclSetStartupScript) _ANSI_ARGS_((Tcl_Obj *pathPtr, CONST char *encodingName)); /* 178 */
+    Tcl_Obj * (*tclGetStartupScript) _ANSI_ARGS_((CONST char **encodingNamePtr)); /* 179 */
     VOID *reserved180;
     VOID *reserved181;
     struct tm * (*tclpLocaltime) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 182 */
@@ -797,7 +803,7 @@ typedef struct TclIntStubs {
     VOID *reserved233;
     VOID *reserved234;
     VOID *reserved235;
-    VOID *reserved236;
+    void (*tclBackgroundException) _ANSI_ARGS_((Tcl_Interp *interp, int code)); /* 236 */
     VOID *reserved237;
     VOID *reserved238;
     VOID *reserved239;
@@ -1404,8 +1410,14 @@ extern TclIntStubs *tclIntStubsPtr;
 /* Slot 175 is reserved */
 /* Slot 176 is reserved */
 /* Slot 177 is reserved */
-/* Slot 178 is reserved */
-/* Slot 179 is reserved */
+#ifndef TclSetStartupScript
+#define TclSetStartupScript \
+	(tclIntStubsPtr->tclSetStartupScript) /* 178 */
+#endif
+#ifndef TclGetStartupScript
+#define TclGetStartupScript \
+	(tclIntStubsPtr->tclGetStartupScript) /* 179 */
+#endif
 /* Slot 180 is reserved */
 /* Slot 181 is reserved */
 #ifndef TclpLocaltime
@@ -1471,7 +1483,10 @@ extern TclIntStubs *tclIntStubsPtr;
 /* Slot 233 is reserved */
 /* Slot 234 is reserved */
 /* Slot 235 is reserved */
-/* Slot 236 is reserved */
+#ifndef TclBackgroundException
+#define TclBackgroundException \
+	(tclIntStubsPtr->tclBackgroundException) /* 236 */
+#endif
 /* Slot 237 is reserved */
 /* Slot 238 is reserved */
 /* Slot 239 is reserved */
@@ -1499,5 +1514,8 @@ extern TclIntStubs *tclIntStubsPtr;
 #   define TclSockMinimumBuffers(a,b) TclSockMinimumBuffersOld((int)(a),b)
 #endif
 #undef TclUnusedStubEntry
+#undef TclBackgroundException
+#undef TclGetStartupScript
+#undef TclSetStartupScript
 
 #endif /* _TCLINTDECLS */

generic/tclStubInit.c

@@ -70,6 +70,49 @@ int TclSockMinimumBuffersOld(sock, size)
 }
 #endif
 
+#define TclBackgroundException backgroundException
+static void TclBackgroundException(interp, code)
+    Tcl_Interp *interp;
+    int code;
+{
+    if (code != TCL_OK) {
+	Tcl_BackgroundError(interp);
+    }
+}
+#define TclCanceled canceled
+static int TclCanceled(interp)
+    Tcl_Interp *interp;
+{
+    return TCL_OK;
+}
+#define TclGetErrorLine getErrorLine
+static int TclGetErrorLine(interp)
+    Tcl_Interp *interp;
+{
+    return interp->errorLine;
+}
+#define TclSetErrorLine setErrorLine
+static void TclSetErrorLine(interp, lineNum)
+    Tcl_Interp *interp;
+    int lineNum;
+{
+    interp->errorLine = lineNum;
+}
+#define TclSetStartupScript setStartupScript
+static void TclSetStartupScript(path, encoding)
+    Tcl_Obj *path;
+    CONST char *encoding;
+{
+    TclSetStartupScriptPath(path);
+}
+#define TclGetStartupScript getStartupScript
+static Tcl_Obj *TclGetStartupScript(encodingPtr)
+    CONST char **encodingPtr;
+{
+    if (encodingPtr) *encodingPtr = NULL;
+    return TclGetStartupScriptPath();
+}
+
 #ifdef __WIN32__
 #   define TclUnixWaitForFile 0
 #   define TclpReaddir 0
@@ -384,8 +427,8 @@ TclIntStubs tclIntStubs = {
     NULL, /* 175 */
     NULL, /* 176 */
     NULL, /* 177 */
-    NULL, /* 178 */
-    NULL, /* 179 */
+    TclSetStartupScript, /* 178 */
+    TclGetStartupScript, /* 179 */
     NULL, /* 180 */
     NULL, /* 181 */
     TclpLocaltime, /* 182 */
@@ -442,7 +485,7 @@ TclIntStubs tclIntStubs = {
     NULL, /* 233 */
     NULL, /* 234 */
     NULL, /* 235 */
-    NULL, /* 236 */
+    TclBackgroundException, /* 236 */
     NULL, /* 237 */
     NULL, /* 238 */
     NULL, /* 239 */
@@ -1111,18 +1154,18 @@ TclStubs tclStubs = {
     NULL, /* 503 */
     NULL, /* 504 */
     NULL, /* 505 */
-    NULL, /* 506 */
-    NULL, /* 507 */
-    NULL, /* 508 */
-    NULL, /* 509 */
-    NULL, /* 510 */
-    NULL, /* 511 */
-    NULL, /* 512 */
-    NULL, /* 513 */
-    NULL, /* 514 */
-    NULL, /* 515 */
-    NULL, /* 516 */
-    NULL, /* 517 */
+    Tcl_CreateNamespace, /* 506 */
+    Tcl_DeleteNamespace, /* 507 */
+    Tcl_AppendExportList, /* 508 */
+    Tcl_Export, /* 509 */
+    Tcl_Import, /* 510 */
+    Tcl_ForgetImport, /* 511 */
+    Tcl_GetCurrentNamespace, /* 512 */
+    Tcl_GetGlobalNamespace, /* 513 */
+    Tcl_FindNamespace, /* 514 */
+    Tcl_FindCommand, /* 515 */
+    Tcl_GetCommandFromObj, /* 516 */
+    Tcl_GetCommandFullName, /* 517 */
     NULL, /* 518 */
     NULL, /* 519 */
     NULL, /* 520 */
@@ -1186,7 +1229,7 @@ TclStubs tclStubs = {
     NULL, /* 578 */
     NULL, /* 579 */
     NULL, /* 580 */
-    NULL, /* 581 */
+    TclCanceled, /* 581 */
     NULL, /* 582 */
     NULL, /* 583 */
     NULL, /* 584 */
@@ -1210,11 +1253,11 @@ TclStubs tclStubs = {
     NULL, /* 602 */
     NULL, /* 603 */
     NULL, /* 604 */
-    NULL, /* 605 */
-    NULL, /* 606 */
+    TclGetErrorLine, /* 605 */
+    TclSetErrorLine, /* 606 */
     NULL, /* 607 */
     NULL, /* 608 */
-    NULL, /* 609 */
+    TclBackgroundException, /* 609 */
     NULL, /* 610 */
     NULL, /* 611 */
     NULL, /* 612 */
@@ -1227,8 +1270,8 @@ TclStubs tclStubs = {
     NULL, /* 619 */
     NULL, /* 620 */
     NULL, /* 621 */
-    NULL, /* 622 */
-    NULL, /* 623 */
+    TclSetStartupScript, /* 622 */
+    TclGetStartupScript, /* 623 */
     NULL, /* 624 */
     NULL, /* 625 */
     NULL, /* 626 */