diff options
| author | Steve Bennett <steveb@workware.net.au> | 2024-08-27 22:34:24 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2024-08-28 11:59:05 +1000 |
| commit | 2f6561e7e1b76841e735fa1860f5ce3d65e714a1 (patch) | |
| tree | b3b2c07eb6ba4685439ea83234f1fd4888f6aeb6 /jim.h | |
| parent | c5188c3323985a659cc03ed2d02eb98a2bfa68aa (diff) | |
| download | jimtcl-2f6561e7e1b76841e735fa1860f5ce3d65e714a1.zip jimtcl-2f6561e7e1b76841e735fa1860f5ce3d65e714a1.tar.gz jimtcl-2f6561e7e1b76841e735fa1860f5ce3d65e714a1.tar.bz2 | |
jim api: expose functions to get and set source info
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.h')
| -rw-r--r-- | jim.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -699,6 +699,14 @@ JIM_EXPORT int Jim_EvalNamespace(Jim_Interp *interp, Jim_Obj *scriptObj, Jim_Obj JIM_EXPORT int Jim_SubstObj (Jim_Interp *interp, Jim_Obj *substObjPtr, Jim_Obj **resObjPtrPtr, int flags); +/* source information */ +JIM_EXPORT Jim_Obj *Jim_GetSourceInfo(Jim_Interp *interp, Jim_Obj *objPtr, + int *lineptr); +/* may only be called on an unshared object */ +JIM_EXPORT void Jim_SetSourceInfo(Jim_Interp *interp, Jim_Obj *objPtr, + Jim_Obj *fileNameObj, int lineNumber); + + /* stack */ JIM_EXPORT void Jim_InitStack(Jim_Stack *stack); JIM_EXPORT void Jim_FreeStack(Jim_Stack *stack); |