summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--generic/tcl.decls72
-rw-r--r--generic/tclDecls.h222
-rw-r--r--generic/tclInt.decls11
-rw-r--r--generic/tclIntDecls.h36
-rw-r--r--generic/tclStubInit.c85
5 files changed, 339 insertions, 87 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls
index b8d8d7d..c1bc78a 100644
--- a/generic/tcl.decls
+++ b/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)
}
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 8d9f635..74d3631 100644
--- a/generic/tclDecls.h
+++ b/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
/*
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 18d1bdf..5d54e4e 100644
--- a/generic/tclInt.decls
+++ b/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)
}
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index 3bb9795..14879b5 100644
--- a/generic/tclIntDecls.h
+++ b/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 */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 85dfe1c..feae0e2 100644
--- a/generic/tclStubInit.c
+++ b/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 */
generated by cgit v0.12 at 2025-04-13 20:03:02 (GMT)