diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-08 20:49:51 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-08 20:49:51 (GMT) |
commit | 6e4aac3d59436016f5fe349d8e8c7e141640c425 (patch) | |
tree | 6ce62fb115b38baad8c346645a78418ca0182597 /generic/tclInt.decls | |
parent | 381ed7be7a4f2a552dd98af85e52f489f1f077ba (diff) | |
parent | f019737860823b97cfde68d64a5175fa21c3a967 (diff) | |
download | tcl-6e4aac3d59436016f5fe349d8e8c7e141640c425.zip tcl-6e4aac3d59436016f5fe349d8e8c7e141640c425.tar.gz tcl-6e4aac3d59436016f5fe349d8e8c7e141640c425.tar.bz2 |
Make read and write operations on Tcl_Var handles available in tclInt API.
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 8314925..dea698c 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -1011,6 +1011,32 @@ declare 251 { int TclRegisterLiteral(void *envPtr, const char *bytes, int length, int flags) } + +# Exporting of the internal API to variables. + +declare 252 { + Tcl_Obj *TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr, + Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, + const int flags) +} +declare 253 { + Tcl_Obj *TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr, + Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, + Tcl_Obj *newValuePtr, const int flags) +} +declare 254 { + Tcl_Obj *TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr, + Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, + Tcl_Obj *incrPtr, const int flags) +} +declare 255 { + int TclPtrObjMakeUpvar(Tcl_Interp *interp, Tcl_Var otherPtr, + Tcl_Obj *myNamePtr, int myFlags) +} +declare 256 { + int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, + Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags) +} ############################################################################## |