diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-06 17:51:12 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-06 17:51:12 (GMT) |
commit | aa9f62da23ab5e38de116429abb7fcfcc0504c4c (patch) | |
tree | 582b3c47a3c3d3b321ee8e319415e761bec0114c /generic/tclInt.decls | |
parent | 9c05979998520bc1162e96cdd7a6de1011ff548c (diff) | |
download | tcl-aa9f62da23ab5e38de116429abb7fcfcc0504c4c.zip tcl-aa9f62da23ab5e38de116429abb7fcfcc0504c4c.tar.gz tcl-aa9f62da23ab5e38de116429abb7fcfcc0504c4c.tar.bz2 |
Expose some of the core variable access APIs.
dkf_expose_ptrgetvar_8_6
(Cherrypick from [b4dfc30083])
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 4e7e422..2a3d2a0 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -1011,6 +1011,32 @@ declare 251 { int TclRegisterLiteral(void *envPtr, 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) +} ############################################################################## |