Lines Matching defs:procs
1783 * acquiring the namespace. Works for object-scoped commands/procs
1920 * delete all vars & procs in a namespace
1937 * Delete all user-defined procs in the namespace
2825 AssertionAppendPrePost(Tcl_Interp *interp, Tcl_DString *dsPtr, XOTclProcAssertion *procs) {
2826 if (procs) {
2827 Tcl_Obj *preAss = AssertionList(interp, procs->pre);
2828 Tcl_Obj *postAss = AssertionList(interp, procs->post);
2856 hPtr = XOTcl_FindHashEntry(&aStore->procs, name);
2865 hPtr = XOTcl_FindHashEntry(&aStore->procs, name);
2882 XOTclProcAssertion *procs = NEW(XOTclProcAssertion);
2885 procs->pre = AssertionNewList(interp, pre);
2886 procs->post = AssertionNewList(interp, post);
2887 hPtr = Tcl_CreateHashEntry(&aStore->procs, name, &nw);
2888 if (nw) Tcl_SetHashValue(hPtr, (ClientData)procs);
2895 Tcl_InitHashTable(&aStore->procs, TCL_STRING_KEYS);
2896 MEM_COUNT_ALLOC("Tcl_InitHashTable",&aStore->procs);
2906 for (hPtr = Tcl_FirstHashEntry(&aStore->procs, &hSrch); hPtr;
2907 hPtr = Tcl_FirstHashEntry(&aStore->procs, &hSrch)) {
2912 AssertionRemoveProc(aStore, Tcl_GetHashKey(&aStore->procs, hPtr));
2914 Tcl_DeleteHashTable(&aStore->procs);
2915 MEM_COUNT_FREE("Tcl_InitHashTable",&aStore->procs);
3057 XOTclProcAssertion *procs;
3069 procs = AssertionFindProcs(aStore, method);
3070 if (procs) {
3073 result = AssertionCheckList(interp, obj, procs->pre, method);
3076 result = AssertionCheckList(interp, obj, procs->post, method);
4016 * seach for object procs that are used as filters
6160 Tcl_AppendElement(interp, "procs"); Tcl_AppendElement(interp, "commands");
8767 if (!strcmp(cmd, "procs")) {
8769 return XOTclObjErrArgCnt(interp, obj->cmdName, "info procs ?pattern?");
8781 XOTclProcAssertion *procs;
8785 procs = AssertionFindProcs(opt->assertions, ObjStr(objv[2]));
8786 if (procs) Tcl_SetObjResult(interp, AssertionList(interp, procs->pre));
8790 XOTclProcAssertion *procs;
8794 procs = AssertionFindProcs(opt->assertions, ObjStr(objv[2]));
8795 if (procs) Tcl_SetObjResult(interp, AssertionList(interp, procs->post));
10099 * since mixin procs may be used as filters -> we have to invalidate
10153 * since mixin procs may be used as filters -> we have to invalidate
11190 if (!strcmp(cmdTail, "procs")) {
11196 XOTclProcAssertion *procs;
11201 procs = AssertionFindProcs(opt->assertions, ObjStr(objv[2]));
11202 if (procs) Tcl_SetObjResult(interp, AssertionList(interp, procs->pre));
11206 XOTclProcAssertion *procs;
11211 procs = AssertionFindProcs(opt->assertions, ObjStr(objv[2]));
11212 if (procs) Tcl_SetObjResult(interp, AssertionList(interp, procs->post));
11583 || tcd->objProc == TclObjInterpProc /* don't do direct invoke on tcl procs */
11888 * copy all procs & commands in the ns
11990 XOTclProcAssertion *procs;
11993 procs = cl->opt ?
12009 if (procs) {
12011 AssertionAppendPrePost(interp, dsPtr, procs);
12017 XOTclProcAssertion *procs;
12019 procs = obj->opt ?
12035 if (procs) {
12037 AssertionAppendPrePost(interp, dsPtr, procs);
12632 /* delete global variables and procs */
13363 * with some methods and library procs in tcl - they could go in a