Index: generic/nsfAPI.h =================================================================== diff -u -r183cd0a9a3d2a37133ac51bb86952e1b522dbf6f -rdadf28efd0707ae40076f49837e6b45ad5b2a989 --- generic/nsfAPI.h (.../nsfAPI.h) (revision 183cd0a9a3d2a37133ac51bb86952e1b522dbf6f) +++ generic/nsfAPI.h (.../nsfAPI.h) (revision dadf28efd0707ae40076f49837e6b45ad5b2a989) @@ -662,12 +662,12 @@ NSF_nonnull(1); static int NsfVarExistsCmd(Tcl_Interp *interp, int withArray, NsfObject *object, const char *varName) NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); -static int NsfVarGetCmd(Tcl_Interp *interp, int withArray, NsfObject *object, Tcl_Obj *varName) - NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); +static int NsfVarGetCmd(Tcl_Interp *interp, int withArray, int withNotrace, NsfObject *object, Tcl_Obj *varName) + NSF_nonnull(1) NSF_nonnull(4) NSF_nonnull(5); static int NsfVarImportCmd(Tcl_Interp *interp, NsfObject *object, int nobjc, Tcl_Obj *CONST* nobjv) NSF_nonnull(1) NSF_nonnull(2); -static int NsfVarSetCmd(Tcl_Interp *interp, int withArray, NsfObject *object, Tcl_Obj *varName, Tcl_Obj *value) - NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); +static int NsfVarSetCmd(Tcl_Interp *interp, int withArray, int withNotrace, NsfObject *object, Tcl_Obj *varName, Tcl_Obj *value) + NSF_nonnull(1) NSF_nonnull(4) NSF_nonnull(5); static int NsfVarUnsetCmd(Tcl_Interp *interp, int withNocomplain, NsfObject *object, Tcl_Obj *varName) NSF_nonnull(1) NSF_nonnull(3) NSF_nonnull(4); static int NsfOAutonameMethod(Tcl_Interp *interp, NsfObject *obj, int withInstance, int withReset, Tcl_Obj *name) @@ -2442,11 +2442,12 @@ method_definitions[NsfVarGetCmdIdx].nrParameters, 0, NSF_ARGPARSE_BUILTIN, &pc) == TCL_OK)) { int withArray = (int )PTR2INT(pc.clientData[0]); - NsfObject *object = (NsfObject *)pc.clientData[1]; - Tcl_Obj *varName = (Tcl_Obj *)pc.clientData[2]; + int withNotrace = (int )PTR2INT(pc.clientData[1]); + NsfObject *object = (NsfObject *)pc.clientData[2]; + Tcl_Obj *varName = (Tcl_Obj *)pc.clientData[3]; assert(pc.status == 0); - return NsfVarGetCmd(interp, withArray, object, varName); + return NsfVarGetCmd(interp, withArray, withNotrace, object, varName); } else { @@ -2484,12 +2485,13 @@ method_definitions[NsfVarSetCmdIdx].nrParameters, 0, NSF_ARGPARSE_BUILTIN, &pc) == TCL_OK)) { int withArray = (int )PTR2INT(pc.clientData[0]); - NsfObject *object = (NsfObject *)pc.clientData[1]; - Tcl_Obj *varName = (Tcl_Obj *)pc.clientData[2]; - Tcl_Obj *value = (Tcl_Obj *)pc.clientData[3]; + int withNotrace = (int )PTR2INT(pc.clientData[1]); + NsfObject *object = (NsfObject *)pc.clientData[2]; + Tcl_Obj *varName = (Tcl_Obj *)pc.clientData[3]; + Tcl_Obj *value = (Tcl_Obj *)pc.clientData[4]; assert(pc.status == 0); - return NsfVarSetCmd(interp, withArray, object, varName, value); + return NsfVarSetCmd(interp, withArray, withNotrace, object, varName, value); } else { @@ -3795,17 +3797,19 @@ {"object", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Object, NULL,NULL,"object",NULL,NULL,NULL,NULL,NULL}, {"varName", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_String, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}} }, -{"::nsf::var::get", NsfVarGetCmdStub, 3, { +{"::nsf::var::get", NsfVarGetCmdStub, 4, { {"-array", 0, 0, Nsf_ConvertTo_Boolean, NULL,NULL,"switch",NULL,NULL,NULL,NULL,NULL}, + {"-notrace", 0, 0, Nsf_ConvertTo_Boolean, NULL,NULL,"switch",NULL,NULL,NULL,NULL,NULL}, {"object", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Object, NULL,NULL,"object",NULL,NULL,NULL,NULL,NULL}, {"varName", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Tclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}} }, {"::nsf::var::import", NsfVarImportCmdStub, 2, { {"object", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Object, NULL,NULL,"object",NULL,NULL,NULL,NULL,NULL}, {"args", 0, 1, ConvertToNothing, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}} }, -{"::nsf::var::set", NsfVarSetCmdStub, 4, { +{"::nsf::var::set", NsfVarSetCmdStub, 5, { {"-array", 0, 0, Nsf_ConvertTo_Boolean, NULL,NULL,"switch",NULL,NULL,NULL,NULL,NULL}, + {"-notrace", 0, 0, Nsf_ConvertTo_Boolean, NULL,NULL,"switch",NULL,NULL,NULL,NULL,NULL}, {"object", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Object, NULL,NULL,"object",NULL,NULL,NULL,NULL,NULL}, {"varName", NSF_ARG_REQUIRED, 1, Nsf_ConvertTo_Tclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}, {"value", 0, 1, Nsf_ConvertTo_Tclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}}