stand/ficl/tools.c

113 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW)
116     if (!dictIncludes(pd, pFW))
119     if (!dictIncludes(pd, pFW->name))
122 	if ((pFW->link != NULL) && !dictIncludes(pd, pFW->link))
125     if ((pFW->nName <= 0) || (pFW->name[pFW->nName] != '\0'))
128 	if (strlen(pFW->name) != pFW->nName)
136 static int isPrimitive(FICL_WORD *pFW)
138     WORDKIND wk = ficlWordClassify(pFW);
156     FICL_WORD *pFW;
165         pFW = (FICL_WORD *)(cp + 1 - (sizeof (FICL_WORD) / sizeof (CELL)));
166         if (isAFiclWord(pd, pFW))
167             return pFW;
197         FICL_WORD *pFW = (FICL_WORD *)(pc->p);
206         if (isAFiclWord(pd, pFW))
208             WORDKIND kind = ficlWordClassify(pFW);
278                 sprintf(cp, "%.*s", pFW->nName, pFW->name);
304     FICL_WORD *pFW;
307     pFW = (FICL_WORD *)stackPopPtr(pVM->pStack);
308     kind = ficlWordClassify(pFW);
313         sprintf(pVM->pad, ": %.*s", pFW->nName, pFW->name);
315         seeColon(pVM, pFW->param);
320         seeColon(pVM, (CELL *)pFW->param->p);
329             (long)pFW->param->i, (unsigned long)pFW->param->u);
336             (long)pFW->param->i, (unsigned long)pFW->param->u);
343             (long)pFW->param->i, (unsigned long)pFW->param->u);
347         sprintf(pVM->pad, "%.*s is a primitive", pFW->nName, pFW->name);
352     if (pFW->flags & FW_IMMEDIATE)
357     if (pFW->flags & FW_COMPILE)
443     FICL_WORD *pFW;
448     pFW = *pVM->ip;
449     kind = ficlWordClassify(pFW);
492     FICL_WORD *pFW;
517         pFW = pVM->pSys->bpStep.origXT;
518         sprintf(pVM->pad, "next: %.*s", pFW->nName, pFW->name);
520         if (isPrimitive(pFW))
673                 FICL_WORD *pFW = findEnclosingWord(pVM, c.p);
674                 if (pFW)
676                     int offset = (CELL *)c.p - &pFW->param[0];
677                     sprintf(pVM->pad, "%s+%d ", pFW->name, offset);