Index: generic/tclAPI.h =================================================================== diff -u -r28fd214e129bc6c2384a2ef587a2be8b480c7248 -r7f1ad54528440269c6a26b63c1cb0f0d35001e9c --- generic/tclAPI.h (.../tclAPI.h) (revision 28fd214e129bc6c2384a2ef587a2be8b480c7248) +++ generic/tclAPI.h (.../tclAPI.h) (revision 7f1ad54528440269c6a26b63c1cb0f0d35001e9c) @@ -241,6 +241,9 @@ static int NsfNSCopyVarsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int NsfNextCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int NsfProcCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); +static int NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); +static int NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); +static int NsfProfilePrintDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int NsfQualifyObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int NsfRelationCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int NsfSelfCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); @@ -324,6 +327,9 @@ static int NsfNSCopyVarsCmd(Tcl_Interp *interp, Tcl_Obj *fromNs, Tcl_Obj *toNs); static int NsfNextCmd(Tcl_Interp *interp, Tcl_Obj *arguments); static int NsfProcCmd(Tcl_Interp *interp, int withAd, Tcl_Obj *procName, Tcl_Obj *arguments, Tcl_Obj *body); +static int NsfProfileClearDataStub(Tcl_Interp *interp); +static int NsfProfileGetDataStub(Tcl_Interp *interp); +static int NsfProfilePrintDataStub(Tcl_Interp *interp); static int NsfQualifyObjCmd(Tcl_Interp *interp, Tcl_Obj *objectName); static int NsfRelationCmd(Tcl_Interp *interp, NsfObject *object, int relationtype, Tcl_Obj *value); static int NsfSelfCmd(Tcl_Interp *interp); @@ -408,6 +414,9 @@ NsfNSCopyVarsCmdIdx, NsfNextCmdIdx, NsfProcCmdIdx, + NsfProfileClearDataStubIdx, + NsfProfileGetDataStubIdx, + NsfProfilePrintDataStubIdx, NsfQualifyObjCmdIdx, NsfRelationCmdIdx, NsfSelfCmdIdx, @@ -1336,6 +1345,54 @@ } static int +NsfProfileClearDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + (void)clientData; + + + + if (objc != 1) { + return ArgumentError(interp, "too many arguments:", + method_definitions[NsfProfileClearDataStubIdx].paramDefs, + NULL, objv[0]); + } + + return NsfProfileClearDataStub(interp); + +} + +static int +NsfProfileGetDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + (void)clientData; + + + + if (objc != 1) { + return ArgumentError(interp, "too many arguments:", + method_definitions[NsfProfileGetDataStubIdx].paramDefs, + NULL, objv[0]); + } + + return NsfProfileGetDataStub(interp); + +} + +static int +NsfProfilePrintDataStubStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + (void)clientData; + + + + if (objc != 1) { + return ArgumentError(interp, "too many arguments:", + method_definitions[NsfProfilePrintDataStubIdx].paramDefs, + NULL, objv[0]); + } + + return NsfProfilePrintDataStub(interp); + +} + +static int NsfQualifyObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { (void)clientData; @@ -2249,6 +2306,15 @@ {"arguments", NSF_ARG_REQUIRED, 0, ConvertToTclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL}, {"body", NSF_ARG_REQUIRED, 0, ConvertToTclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL}} }, +{"::nsf::__profile_clear", NsfProfileClearDataStubStub, 0, { + {NULL, 0, 0, NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL}} +}, +{"::nsf::__profile_get", NsfProfileGetDataStubStub, 0, { + {NULL, 0, 0, NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL}} +}, +{"::nsf::__profile_print", NsfProfilePrintDataStubStub, 0, { + {NULL, 0, 0, NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL}} +}, {"::nsf::qualify", NsfQualifyObjCmdStub, 1, { {"objectName", NSF_ARG_REQUIRED, 0, ConvertToTclobj, NULL,NULL,NULL,NULL,NULL,NULL,NULL}} },