diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-12-03 15:16:59 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-12-08 12:49:37 +1000 |
commit | d36b48f8e07b123658bd262709eb38dbf98a8e08 (patch) | |
tree | 19fba2bcf24a92eda32af4ab83387fafb05c1dee /jim.h | |
parent | 0723cbb8c984d0c7a96bb6714ede45e082a28111 (diff) | |
download | jimtcl-d36b48f8e07b123658bd262709eb38dbf98a8e08.zip jimtcl-d36b48f8e07b123658bd262709eb38dbf98a8e08.tar.gz jimtcl-d36b48f8e07b123658bd262709eb38dbf98a8e08.tar.bz2 |
Add support for tcl::prefix as an optional extension
Also adds Jim_ListGetIndex(), like Jim_ListIndex() but with a more convenient interface
Diffstat (limited to 'jim.h')
-rw-r--r-- | jim.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -719,6 +719,8 @@ JIM_EXPORT int Jim_CompareStringImmediate (Jim_Interp *interp, Jim_Obj *objPtr, const char *str); JIM_EXPORT int Jim_StringCompareObj(Jim_Interp *interp, Jim_Obj *firstObjPtr, Jim_Obj *secondObjPtr, int nocase); +JIM_EXPORT int Jim_StringCompareLenObj(Jim_Interp *interp, Jim_Obj *firstObjPtr, + Jim_Obj *secondObjPtr, int nocase); JIM_EXPORT int Jim_Utf8Length(Jim_Interp *interp, Jim_Obj *objPtr); /* reference object */ @@ -793,6 +795,7 @@ JIM_EXPORT void Jim_ListAppendList (Jim_Interp *interp, JIM_EXPORT int Jim_ListLength (Jim_Interp *interp, Jim_Obj *objPtr); JIM_EXPORT int Jim_ListIndex (Jim_Interp *interp, Jim_Obj *listPrt, int listindex, Jim_Obj **objPtrPtr, int seterr); +JIM_EXPORT Jim_Obj *Jim_ListGetIndex(Jim_Interp *interp, Jim_Obj *listPtr, int idx); JIM_EXPORT int Jim_SetListIndex (Jim_Interp *interp, Jim_Obj *varNamePtr, Jim_Obj *const *indexv, int indexc, Jim_Obj *newObjPtr); |