Lines Matching refs:word
117 isPrimitive(ficlWord *word)
119 ficlWordKind wk = ficlWordClassify(word);
144 ficlWord *word; in ficlPrimitiveHashSummary() local
162 word = hash[i]; in ficlPrimitiveHashSummary()
164 while (word) { in ficlPrimitiveHashSummary()
167 word = word->link; in ficlPrimitiveHashSummary()
207 ficlWord *word; in ficlPrimitiveSeeXT() local
210 word = (ficlWord *)ficlStackPopPointer(vm->dataStack); in ficlPrimitiveSeeXT()
211 kind = ficlWordClassify(word); in ficlPrimitiveSeeXT()
215 (void) sprintf(vm->pad, ": %.*s\n", word->length, word->name); in ficlPrimitiveSeeXT()
217 ficlDictionarySee(ficlVmGetDictionary(vm), word, in ficlPrimitiveSeeXT()
223 (ficlWord *)word->param->p, &(vm->callback)); in ficlPrimitiveSeeXT()
230 (long)word->param->i, (long unsigned)word->param->u); in ficlPrimitiveSeeXT()
236 (long)word->param->i, (long unsigned)word->param->u); in ficlPrimitiveSeeXT()
242 (long)word->param->i, (long unsigned)word->param->u); in ficlPrimitiveSeeXT()
247 (long)word->param[1].i, (long)word->param->i, in ficlPrimitiveSeeXT()
248 (long unsigned)word->param[1].u, in ficlPrimitiveSeeXT()
249 (long unsigned)word->param->u); in ficlPrimitiveSeeXT()
254 (void) sprintf(vm->pad, "%.*s is a primitive\n", word->length, in ficlPrimitiveSeeXT()
255 word->name); in ficlPrimitiveSeeXT()
260 if (word->flags & FICL_WORD_IMMEDIATE) { in ficlPrimitiveSeeXT()
264 if (word->flags & FICL_WORD_COMPILE_ONLY) { in ficlPrimitiveSeeXT()
339 ficlWord *word; in ficlPrimitiveStepOver() local
344 word = *vm->ip; in ficlPrimitiveStepOver()
345 kind = ficlWordClassify(word); in ficlPrimitiveStepOver()
387 ficlWord *word; in ficlPrimitiveStepBreak() local
413 word = vm->callback.system->breakpoint.oldXT; in ficlPrimitiveStepBreak()
415 if ((((ficlInstruction)word) > ficlInstructionInvalid) && in ficlPrimitiveStepBreak()
416 (((ficlInstruction)word) < ficlInstructionLast)) in ficlPrimitiveStepBreak()
418 ficlDictionaryInstructionNames[(long)word], in ficlPrimitiveStepBreak()
419 (long)word); in ficlPrimitiveStepBreak()
421 (void) sprintf(vm->pad, "next: %s\n", word->name); in ficlPrimitiveStepBreak()
422 if (strcmp(word->name, "interpret") == 0) in ficlPrimitiveStepBreak()
649 ficlWord *word; in ficlReturnStackDisplayCallback() local
650 word = ficlDictionaryFindEnclosingWord(context->dictionary, in ficlReturnStackDisplayCallback()
652 if (word) { in ficlReturnStackDisplayCallback()
653 int offset = (ficlCell *)cell->p - &word->param[0]; in ficlReturnStackDisplayCallback()
655 word->name, offset); in ficlReturnStackDisplayCallback()
845 ficlWord *word; in ficlPrimitiveListEnv() local
851 for (word = hash->table[i]; word != NULL; in ficlPrimitiveListEnv()
852 word = word->link, counter++) { in ficlPrimitiveListEnv()
853 (void) sprintf(vm->pad, "%s\n", word->name); in ficlPrimitiveListEnv()