112 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW)  in isAFiclWord()  argument
115     if (!dictIncludes(pd, pFW))  in isAFiclWord()
118     if (!dictIncludes(pd, pFW->name))  in isAFiclWord()
121 	if ((pFW->link != NULL) && !dictIncludes(pd, pFW->link))  in isAFiclWord()
124     if ((pFW->nName <= 0) || (pFW->name[pFW->nName] != '\0'))  in isAFiclWord()
127 	if (strlen(pFW->name) != pFW->nName)  in isAFiclWord()
135 static int isPrimitive(FICL_WORD *pFW)
137     WORDKIND wk = ficlWordClassify(pFW);
155     FICL_WORD *pFW;  in findEnclosingWord()  local
164         pFW = (FICL_WORD *)(cp + 1 - (sizeof (FICL_WORD) / sizeof (CELL)));  in findEnclosingWord()
165         if (isAFiclWord(pd, pFW))  in findEnclosingWord()
166             return pFW;  in findEnclosingWord()
196         FICL_WORD *pFW = (FICL_WORD *)(pc->p);  in seeColon()  local
205         if (isAFiclWord(pd, pFW))  in seeColon()
207             WORDKIND kind = ficlWordClassify(pFW);  in seeColon()
277                 sprintf(cp, "%.*s", pFW->nName, pFW->name);  in seeColon()
303     FICL_WORD *pFW;  in seeXT()  local
306     pFW = (FICL_WORD *)stackPopPtr(pVM->pStack);  in seeXT()
307     kind = ficlWordClassify(pFW);  in seeXT()
312         sprintf(pVM->pad, ": %.*s", pFW->nName, pFW->name);  in seeXT()
314         seeColon(pVM, pFW->param);  in seeXT()
319         seeColon(pVM, (CELL *)pFW->param->p);  in seeXT()
328             (long)pFW->param->i, (unsigned long)pFW->param->u);  in seeXT()
335             (long)pFW->param->i, (unsigned long)pFW->param->u);  in seeXT()
342             (long)pFW->param->i, (unsigned long)pFW->param->u);  in seeXT()
346         sprintf(pVM->pad, "%.*s is a primitive", pFW->nName, pFW->name);  in seeXT()
351     if (pFW->flags & FW_IMMEDIATE)  in seeXT()
356     if (pFW->flags & FW_COMPILE)  in seeXT()
442     FICL_WORD *pFW;  in stepOver()  local
447     pFW = *pVM->ip;  in stepOver()
448     kind = ficlWordClassify(pFW);  in stepOver()
491     FICL_WORD *pFW;  in stepBreak()  local
516         pFW = pVM->pSys->bpStep.origXT;  in stepBreak()
517         sprintf(pVM->pad, "next: %.*s", pFW->nName, pFW->name);  in stepBreak()
519         if (isPrimitive(pFW))  in stepBreak()
672                 FICL_WORD *pFW = findEnclosingWord(pVM, c.p);  in displayRStack()  local
673                 if (pFW)  in displayRStack()
675                     int offset = (CELL *)c.p - &pFW->param[0];  in displayRStack()
676                     sprintf(pVM->pad, "%s+%d ", pFW->name, offset);  in displayRStack()