Lines Matching +defs:name +defs:pos
38 * the name of M.I.T. not be used in advertising or publicity
84 static Tcl_Obj*NameInNamespaceObj(Tcl_Interp *interp, char *name, Tcl_Namespace *ns);
86 XOTCLINLINE static Tcl_Command NSFindCommand(Tcl_Interp *interp, char *name, Tcl_Namespace *ns);
156 static XOTclObject *XOTclpGetObject(Tcl_Interp *interp, char *name);
157 static XOTclClass *XOTclpGetClass(Tcl_Interp *interp, char *name);
432 varPtr->name = NULL;
741 fprintf(stderr, "RefCountIncr %p count=%d %s\n", obj, obj->refCount, obj->cmdName?ObjStr(obj->cmdName):"no name"); \
760 obj->cmdName, obj->cmdName->typePtr ? obj->cmdName->typePtr->name : "NULL",
771 /* search for tail of name */
911 fprintf(stderr," convert %s to XOTclObject\n", oldTypePtr->name);
942 objPtr->typePtr, objPtr->typePtr ? objPtr->typePtr->name : "");
1022 NewXOTclObjectObjName(register XOTclObject *obj, char *name, unsigned l)
1029 memcpy(objPtr->bytes, name, l);
1052 && !strcmp(cmdType->name,"cmdName")) {
1194 NameInNamespaceObj(Tcl_Interp *interp, char *name, Tcl_Namespace *ns) {
1199 /*fprintf(stderr,"NameInNamespaceObj %s (%p) ", name, ns);*/
1209 Tcl_AppendToObj(objName, name, -1);
1632 NSGetFreshNamespace(Tcl_Interp *interp, ClientData cd, char *name);
1688 * Tcl_Interp *interp, CONST char * name, Tcl_Namespace *context,
1692 varResolver(Tcl_Interp *interp, CONST char *name, Tcl_Namespace *ns, int flags, Tcl_Var *varPtr) {
1708 /*fprintf(stderr, "global-scoped var detected '%s' in NS '%s'\n", name, \
1733 /*fprintf(stderr, "proc-scoped var detected '%s' in NS '%s'\n", name,
1740 * make sure that the variable name does not contain any namespace qualifiers.
1744 if ((*name == ':' && *(name+1) == ':') || NSTail(name) != name) {
1749 *varPtr = (Tcl_Var)LookupVarFromTable(Tcl_Namespace_varTable(ns),name,NULL);
1757 key = Tcl_NewStringObj(name, -1);
1801 NSDeleteCmd(Tcl_Interp *interp, Tcl_Namespace *ns, char *name) {
1803 the same name, if the command is not existing, so
1807 if ((token = FindMethod(name, ns))) {
1851 Tcl_DString name;
1855 ALLOC_NAME_NS(&name, ns->fullName, oname);
1856 obj = XOTclpGetObject(interp, Tcl_DStringValue(&name));
1885 DSTRING_FREE(&name);
1895 NSRequireVariableOnObj(Tcl_Interp *interp, XOTclObject *obj, char *name, int flgs) {
1900 varPtr = TclLookupVar(interp, name, 0, flgs, "obj vwait",
1998 NSGetFreshNamespace(Tcl_Interp *interp, ClientData cd, char *name) {
1999 Tcl_Namespace *ns = Tcl_FindNamespace(interp, name, NULL, 0);
2004 name, ns->deleteProc, ns->clientData);
2009 ns = Tcl_CreateNamespace(interp, name, cd,
2021 NSCheckColons(char *name, unsigned l) {
2022 register char *n = name;
2023 if (*n == '\0') return 0; /* empty name */
2024 if (l == 0) l=strlen(name);
2025 if (*(n+l-1) == ':') return 0; /* name ends with : */
2026 if (*n == ':' && *(n+1) != ':') return 0; /* name begins with single : */
2029 return 0; /* more than 2 colons in series in a name */
2039 NSCheckForParent(Tcl_Interp *interp, char *name, unsigned l) {
2040 register char *n = name+l;
2044 while ((*n != ':' || *(n-1) != ':') && n-1 > name) {n--; }
2045 if (*n == ':' && n > name && *(n-1) == ':') {n--;}
2047 if ((n-name)>0) {
2052 Tcl_DStringAppend(dsp, name, (n-name));
2099 NSFindCommand(Tcl_Interp *interp, char *name, Tcl_Namespace *ns) {
2101 if ((cmd = Tcl_FindCommand(interp, name, ns, 0))) {
2117 XOTclGetObject(Tcl_Interp *interp, char *name) {
2118 return (XOTcl_Object*) XOTclpGetObject(interp, name);
2122 * Find an object using a char *name
2125 XOTclpGetObject(Tcl_Interp *interp, char *name) {
2127 assert(name);
2128 cmd = NSFindCommand(interp, name, NULL);
2132 name, Tcl_Command_objProc(cmd), XOTclObjDispatch);
2142 * Find a class using a char *name
2146 XOTclGetClass(Tcl_Interp *interp, char *name) {
2147 return (XOTcl_Class*)XOTclpGetClass(interp, name);
2151 XOTclpGetClass(Tcl_Interp *interp, char *name) {
2152 XOTclObject *obj = XOTclpGetObject(interp, name);
2208 AutonameIncr(Tcl_Interp *interp, Tcl_Obj *name, XOTclObject *obj,
2224 valueObject = Tcl_ObjGetVar2(interp, XOTclGlobalObjects[XOTE_AUTONAMES], name, flgs);
2235 Tcl_ObjSetVar2(interp, XOTclGlobalObjects[XOTE_AUTONAMES], name,
2240 Tcl_UnsetVar2(interp, XOTclGlobalStrings[XOTE_AUTONAMES], ObjStr(name), flgs);
2247 name, XOTclGlobalObjects[XOTE_ONE], flgs);
2251 nextChars = ObjStr(name);
2262 result = Tcl_DuplicateObj(name);
2265 fprintf(stderr,"*** copy %p %s = %p\n", name, ObjStr(name), result);
2781 CmdListFindNameInList(Tcl_Interp *interp, char *name, XOTclCmdList *l) {
2785 if (cmdName[0] == name[0] && !strcmp(cmdName, name))
2853 AssertionFindProcs(XOTclAssertionStore *aStore, char *name) {
2856 hPtr = XOTcl_FindHashEntry(&aStore->procs, name);
2862 AssertionRemoveProc(XOTclAssertionStore *aStore, char *name) {
2865 hPtr = XOTcl_FindHashEntry(&aStore->procs, name);
2878 AssertionAddProc(Tcl_Interp *interp, char *name, XOTclAssertionStore *aStore,
2884 AssertionRemoveProc(aStore, name);
2887 hPtr = Tcl_CreateHashEntry(&aStore->procs, name, &nw);
3261 MixinAdd(Tcl_Interp *interp, XOTclCmdList **mixinList, Tcl_Obj *name) {
3267 if (Tcl_ListObjGetElements(interp, name, &ocName, &ovName) == TCL_OK && ocName > 1) {
3269 name = ovName[0];
3271 /*fprintf(stderr,"mixinadd name = '%s', guard = '%s'\n", ObjStr(name), ObjStr(guard));*/
3272 } /*else return XOTclVarErrMsg(interp, "mixin registration '", ObjStr(name),
3276 if (GetXOTclClassFromObj(interp, name, &mixin, 1) != TCL_OK)
3277 return XOTclErrBadVal(interp, "mixin", "a class as mixin", ObjStr(name));
3296 AppendMatchingElement(Tcl_Interp *interp, Tcl_Obj *name, char *pattern) {
3297 char *string = ObjStr(name);
3951 MixinSearchMethodByName(Tcl_Interp *interp, XOTclCmdList *mixinList, char *name, XOTclClass **cl) {
3957 if (mcl && SearchCMethod(mcl, name, &cmd)) {
3972 * and instfilter: first a given name is interpreted as fully
3973 * qualified instproc name. If no instproc is found, a proc is
3974 * search with fully name. Otherwise the simple name is searched
3980 FilterSearch(Tcl_Interp *interp, char *name, XOTclObject *startingObj,
3997 if ((cmd = MixinSearchMethodByName(interp, opt->mixins, name, cl))) {
4009 if ((cmd = MixinSearchMethodByName(interp, opt->instmixins, name, cl))) {
4019 /*fprintf(stderr,"search filter %s as proc \n",name);*/
4020 if ((cmd = FindMethod(name, startingObj->nsPtr))) {
4030 *cl = SearchCMethod(startingCl, name, &cmd);
4035 *cl = SearchCMethod(startingCl->object.cl, name, &cmd);
4251 /* try to find simple name first */
4254 /* maybe it is a qualified name */
4277 FilterAdd(Tcl_Interp *interp, XOTclCmdList **filterList, Tcl_Obj *name,
4285 if (Tcl_ListObjGetElements(interp, name, &ocName, &ovName) == TCL_OK && ocName > 1) {
4287 name = ovName[0];
4292 if (!(cmd = FilterSearch(interp, ObjStr(name), startingObj, startingCl, &cl))) {
4296 ObjStr(name), (char *) NULL);
4300 ObjStr(name), (char *) NULL);
4303 /*fprintf(stderr, " +++ adding filter %s cl %p\n", ObjStr(name), cl);*/
5453 * non-pos-arg handling here as well.
6526 FindProc(Tcl_Interp *interp, Tcl_HashTable *table, char *name) {
6527 Tcl_HashEntry *hPtr = table ? XOTcl_FindHashEntry(table, name) : 0;
6542 ListProcArgs(Tcl_Interp *interp, Tcl_HashTable *table, char *name) {
6543 Proc *proc = FindProc(interp, table, name);
6549 Tcl_AppendElement(interp, args->name);
6554 return XOTclErrBadVal(interp, "info args", "a tcl method name", name);
6590 char *name, char *arg, Tcl_Obj **resultObj) {
6591 Proc *proc = FindProc(interp, table, name);
6597 if (strcmp(arg, ap->name) != 0) continue;
6640 char *name, char *arg, Tcl_Obj *var) {
6643 if (GetProcDefault(interp, table, name, arg, &defVal) == TCL_OK) {
6646 XOTclVarErrMsg(interp, "method '", name,
6696 ListProcBody(Tcl_Interp *interp, Tcl_HashTable *table, char *name) {
6697 Proc *proc = FindProc(interp, table, name);
6703 return XOTclErrBadVal(interp, "info body", "a tcl method name", name);
7304 unsetInAllNamespaces(Tcl_Interp *interp, Namespace *nsPtr, CONST char *name) {
7307 name, nsPtr ? nsPtr->fullName : "NULL");
7315 varPtr = (Tcl_Var *) Tcl_FindNamespaceVar(interp, name, (Tcl_Namespace *) nsPtr, 0);
7316 /*fprintf(stderr, "found %s in %s -> %p\n", name, nsPtr->fullName, varPtr);*/
7323 Tcl_DStringAppend(dsPtr, name, -1);
7340 rc |= unsetInAllNamespaces(interp, childNsPtr, name);
7386 XOTclUnsetTrace(ClientData cd, Tcl_Interp *interp, CONST84 char *name, CONST84 char *name2, int flags)
7392 /*fprintf(stderr,"XOTclUnsetTrace %s flags %x %x\n", name, flags,
7407 Tcl_UntraceVar(interp, name, flags, (Tcl_VarTraceProc*)XOTclUnsetTrace, (ClientData)o);
7424 /*fprintf(stderr, "omitting destroy on %s %p\n", name);*/
7646 PrimitiveOInit(void *mem, Tcl_Interp *interp, char *name, XOTclClass *cl) {
7655 fprintf(stderr, "OINIT %s = %p\n", name, obj);
7664 if (Tcl_FindNamespace(interp, name, NULL, 0)) {
7665 nsPtr = NSGetFreshNamespace(interp, (ClientData)obj, name);
7675 * Object creation: create object name (full name) and Tcl command
7678 PrimitiveOCreate(Tcl_Interp *interp, char *name, XOTclClass *cl) {
7682 /*fprintf(stderr, "CKALLOC Object %p %s\n", obj, name);*/
7684 fprintf(stderr, "CKALLOC Object %p %s\n", obj, name);
7693 assert(isAbsolutePath(name));
7695 length = strlen(name);
7696 if (!NSCheckForParent(interp, name, length)) {
7700 obj->id = Tcl_CreateObjCommand(interp, name, XOTclObjDispatch,
7703 PrimitiveOInit(obj, interp, name, cl);
7707 obj->cmdName = Tcl_NewStringObj(name, length);
7709 /*fprintf(stderr, "new command has name '%s'\n", ObjStr(obj->cmdName));*/
7711 obj->cmdName = NewXOTclObjectObjName(obj, name, length);
7972 PrimitiveCInit(XOTclClass *cl, Tcl_Interp *interp, char *name) {
7983 ns = NSGetFreshNamespace(interp, (ClientData)cl, name);
7991 * class create: creation of namespace + class full name
7995 PrimitiveCCreate(Tcl_Interp *interp, char *name, XOTclClass *class) {
8000 /*fprintf(stderr, "PrimitiveCCreate Class %p %s\n", cl, name);*/
8005 fprintf(stderr, " +++ CLS alloc: %s\n", name);
8007 assert(isAbsolutePath(name));
8008 length = strlen(name);
8010 fprintf(stderr,"Class alloc %p '%s'\n", cl, name);
8014 if (!NSCheckForParent(interp, name, length)) {
8018 obj->id = Tcl_CreateObjCommand(interp, name, XOTclObjDispatch,
8021 PrimitiveOInit(obj, interp, name, class);
8023 obj->cmdName = NewXOTclObjectObjName(obj, name, length);
8025 PrimitiveCInit(cl, interp, name+2);
8177 XOTclResolveCmd(Tcl_Interp *interp, char *name, Tcl_Namespace *contextNsPtr,
8186 /*fprintf(stderr, " ***%s->%s\n", contextNsPtr->fullName, name);*/
8201 TclGetNamespaceForQualName(interp, name, (Namespace *) contextNsPtr,flags,
8255 XOTclResolveVar(Tcl_Interp *interp, char *name, Tcl_Namespace *context,
8257 /*fprintf(stderr, "Resolving %s in %s\n", name, context->fullName);*/
8657 "info forward ?-definition name? ?pattern?");
8661 "info forward ?-definition name? ?pattern?");
8835 char *argStr, *bdyStr, *name;
8842 "proc name ?non-positional-args? args body ?preAssertion postAssertion?");
8850 name = ObjStr(objv[1 + incr]);
8855 AssertionRemoveProc(opt->assertions, name);
8857 NSDeleteCmd(interp, obj->nsPtr, name);
8891 Tcl_Obj *name, Tcl_Obj *value, int flgs) {
8892 return XOTclOSetInstVar2(obj, interp, name, (Tcl_Obj *)NULL, value, (flgs|TCL_PARSE_PART1));
8896 XOTclOGetInstVar(XOTcl_Object *obj, Tcl_Interp *interp, Tcl_Obj *name, int flgs) {
8897 return XOTclOGetInstVar2(obj, interp, name, (Tcl_Obj *)NULL, (flgs|TCL_PARSE_PART1));
8901 XOTclUnsetInstVar(XOTcl_Object *obj, Tcl_Interp *interp, char *name, int flgs) {
8902 return XOTclUnsetInstVar2 (obj, interp, name,(char *)NULL, flgs);
8906 XOTclCreateObject(Tcl_Interp *interp, Tcl_Obj *name, XOTcl_Class *cli) {
8909 INCR_REF_COUNT(name);
8911 XOTclGlobalObjects[XOTE_CREATE], name, 1, 0, 0);
8912 DECR_REF_COUNT(name);
8917 XOTclCreateClass(Tcl_Interp *interp, Tcl_Obj *name, XOTcl_Class *cli) {
8920 INCR_REF_COUNT(name);
8922 XOTclGlobalObjects[XOTE_CREATE], name, 1, 0, 0);
8923 DECR_REF_COUNT(name);
9000 * as target link name
9034 localPtr->name, localPtr->flags,
9038 char *localName = localPtr->name;
9078 /* We have already a variable with the same name imported
9126 XOTclInstVar(XOTcl_Object *obji, Tcl_Interp *interp, char *name, char *destName) {
9133 objv[1] = Tcl_NewStringObj(name, -1);
9192 setInstVar(Tcl_Interp *interp, XOTclObject *obj, Tcl_Obj *name, Tcl_Obj *value) {
9199 result = Tcl_ObjGetVar2(interp, name, NULL, flags);
9201 result = Tcl_ObjSetVar2(interp, name, NULL, value, flags);
9355 long pos;
9357 pos = strtol(element,&remainder, 0);
9358 /*fprintf(stderr,"strtol('%s) returned %ld '%s'\n", element, pos, remainder);*/
9360 pos = totalargs;
9363 if (element == remainder || abs(pos) > totalargs) {
9368 "' use: %@<pos> <cmd>",(char *) NULL);
9372 if (pos<0) pos = totalargs + pos;
9373 /*fprintf(stderr,"remainder = '%s' pos = %ld\n", remainder, pos);*/
9374 *mapvalue = pos;
9515 /* we have ony to replace the method name with the given cmd name */
9588 int pos = objvmap[j], i;
9589 if (pos == -1 || pos == j)
9592 if (j>pos) {
9593 for(i=j; i>pos; i--) {
9599 for(i=j; i<pos; i++) {
9605 /* fprintf(stderr,"...setting at %d -> %s\n", pos, ObjStr(tmp)); */
9606 ov[pos] = tmp;
9607 objvmap[pos] = -1;
9611 /* prepend a prefix for the subcommands to avoid name clashes */
9693 char *name2; /* Second part of variable name. */
9786 return XOTclObjErrArgCnt(interp, obj->cmdName, "autoname [-instance | -reset] name");
10257 * Searches for filter on [self] and returns fully qualified name
10269 if (objc < 2) return XOTclObjErrArgCnt(interp, obj->cmdName, "filtersearch name");
10310 if (objc < 2) return XOTclObjErrArgCnt(interp, obj->cmdName, "procsearch name");
10607 objv[1]->typePtr->name:"NULL",
10634 /*fprintf(stderr," **** name is '%s'\n", objName);*/
10689 * complete the name if it is not absolute
10694 /*fprintf(stderr," **** name is '%s'\n", objName);*/
10735 result = XOTclVarErrMsg(interp, "Cannot create object -- illegal name '",
11061 "info instforward ?-definition? ?name?");
11065 "info instforward ?-definition? ?name?");
11479 if (objc < 2) return XOTclObjErrArgCnt(interp, cl->object.cmdName, "instparametercmd name");
11490 if (objc < 2) return XOTclObjErrArgCnt(interp, obj->cmdName, "parametercmd name");
11567 char *name = ObjStr(tcd->cmdName);
11568 if (!isAbsolutePath(name)) {
11569 tcd->cmdName = NameInNamespaceObj(interp, name, callingNameSpace(interp));
11570 /*fprintf(stderr,"name %s not absolute, therefore qualifying %s\n", name,
11594 /*fprintf(stderr, "forward args = %p, name = '%s'\n", tcd->args, ObjStr(tcd->cmdName));*/
11625 "instforward method ?target? ?-default name? ?-objscope? ?-methodprefix string? ?args?");
11651 "forward method ?target? ?-default name? ?-objscope? ?-methodprefix string? ?args?");
11695 char *argStr, *bdyStr, *name;
11702 "instproc name ?non-positional-args? args body ?preAssertion postAssertion?");
11710 name = ObjStr(objv[1 + incr]);
11712 if ((cl == RUNTIME_STATE(interp)->theObject && isDestroyString(name)) ||
11713 (cl == RUNTIME_STATE(interp)->theClass && isInstDestroyString(name)) ||
11714 (cl == RUNTIME_STATE(interp)->theClass && isAllocString(name)) ||
11715 (cl == RUNTIME_STATE(interp)->theClass && isCreateString(name)))
11716 return XOTclVarErrMsg(interp, className(cl), " instproc: '", name, "' of ",
11724 AssertionRemoveProc(opt->assertions, name);
11725 rc = NSDeleteCmd(interp, cl->nsPtr, name);
11727 return XOTclVarErrMsg(interp, className(cl), " cannot delete instproc: '", name,
11850 char *newName, *oldName, *name;
11865 name = ObjStr(objv[1]);
11867 if (isClassName(name)) {
11868 cl = XOTclpGetClass(interp, NSCutXOTclClasses(name));
11873 obj = XOTclpGetObject(interp, name);
11893 name = Tcl_GetHashKey(cmdTable, hPtr);
11902 Tcl_AppendStringsToObj(newFullCmdName, "::", name, (char *) NULL);
11903 Tcl_AppendStringsToObj(oldFullCmdName, "::", name, (char *) NULL);
11954 nonposArgs = NonposArgsGet(nonposArgsTable, name);
11970 Tcl_Obj *defVal, *defStringObj = Tcl_NewStringObj(localPtr->name, -1);
11974 if ((GetProcDefault(interp, cmdTable, name,
11975 localPtr->name, &defVal) == TCL_OK) && defVal) {
11994 AssertionFindProcs(cl->opt->assertions, name) : 0;
12006 Tcl_DStringAppendElement(dsPtr, name);
12020 AssertionFindProcs(obj->opt->assertions, name) : 0;
12032 Tcl_DStringAppendElement(dsPtr, name);
12289 "::xotcl::nonposArgs boolean name ?value?");
12563 XOTclObjErrArgCnt(interp, NULL, "::xotcl::interp name ?args?");