Lines Matching defs:word
4 * ANS Forth CORE word-set written in C
161 ficlVmTextOut(vm, "Warning -- Unmatched control word: ");
174 * new word whose name is the next word in the input stream
541 * Parse ccc delimited by ) (right parenthesis). ( is an immediate word.
818 * Copy next word into the pad (ficlVmGetWord)
819 * Attempt to find the word in the dictionary (ficlDictionaryLookup)
820 * If successful, execute the word.
821 * Otherwise, attempt to convert the word to a number (isNumber)
845 * Get next word...if out of text, we're done.
856 ficlWord *word = system->parseList[i];
858 if (word == NULL)
861 if (word->code == ficlPrimitiveParseStepParen) {
863 pStep = (ficlParseStep)(word->param->fn);
871 ficlVmExecuteXT(vm, word);
906 ficlWord *word = vm->runningWord;
907 ficlParseStep pStep = (ficlParseStep)(word->param->fn);
1176 ficlWord *word = NULL;
1181 word = ficlDictionaryLookup(ficlVmGetDictionary(vm), name);
1182 if (!word)
1186 ficlStackPushPointer(vm->dataStack, word);
1198 * Lookup the next word in the input stream and FICL_VM_STATE_COMPILE code to
1199 * insert it into definitions created by the resulting word
1206 ficlWord *word;
1213 word = ficlStackGetTop(vm->dataStack).p;
1214 if (ficlWordIsImmediate(word)) {
1226 * Pop an execution token (pointer to a word) off the stack and
1232 ficlWord *word;
1236 word = ficlStackPopPointer(vm->dataStack);
1237 ficlVmExecuteWord(vm, word);
1242 * Make the most recently compiled word IMMEDIATE -- it executes even
1271 ficlWord *word = (ficlWord *)ficlStackPopPointer(vm->dataStack);
1273 flag = ((word != NULL) && (word->flags & FICL_WORD_OBJECT))?
1308 * IMMEDIATE word that compiles a string literal for later display
1357 * Interpretation: Interpretation semantics for this word are undefined.
1404 * Make a new word in the dictionary with the run-time effect of
1443 * condition exists if xt is not for a word defined via CREATE.
1448 ficlWord *word;
1451 word = ficlStackPopPointer(vm->dataStack);
1452 ficlStackPushPointer(vm->dataStack, word->param + 1);
1471 * Push the address and length of a word's name given its address
1477 ficlWord *word;
1481 word = ficlStackPopPointer(vm->dataStack);
1482 ficlStackPushPointer(vm->dataStack, word->name);
1483 ficlStackPushUnsigned(vm->dataStack, word->length);
1863 * Interpretation: Interpretation semantics for this word are undefined.
1958 * queries or the optional word sets to be checked for correspondence
1968 ficlWord *word;
1977 word = ficlDictionaryLookup(environment, name);
1979 if (word != NULL) {
1980 ficlVmExecuteWord(vm, word);
2083 * word CORE ( char "<chars>ccc<char>" -- c-addr )
2088 * c-addr is the address of a transient region containing the parsed word
2180 ficlWord *word;
2182 word = ficlDictionaryLookup(ficlVmGetDictionary(vm), name);
2183 if (word) {
2184 ficlStackPushPointer(vm->dataStack, word);
2186 (ficlWordIsImmediate(word) ? 1 : -1));
2295 ficlWord *word;
2302 word = ficlDictionaryAppendWord(dictionary, name,
2306 ficlStackPushPointer(vm->dataStack, word);
2323 * (also in softcore) of "user" that defines a user word and increments
2348 * word that does doLocalIm at runtime. DoLocalIm compiles code
2438 * Interpretation: Interpretation semantics for this word are undefined.
2565 ficlWord *word;
2581 word = ficlDictionaryLookup(locals, name);
2582 if (!word)
2585 if (word->code == ficlPrimitiveDoLocalIm) {
2588 } else if (word->code == ficlPrimitiveDo2LocalIm) {
2594 else if (word->code == ficlPrimitiveDoFLocalIm) {
2598 } else if (word->code == ficlPrimitiveDoF2LocalIm) {
2611 nLocal = word->param[0].i;
2640 word = ficlDictionaryLookup(dictionary, name);
2641 if (!word)
2646 switch ((ficlInstruction)word->code) {
2678 word->param[0] = ficlStackPop(stack);
2680 word->param[1] = ficlStackPop(stack);
2682 /* FICL_VM_STATE_COMPILE code to store to word's param */
2683 ficlStackPushPointer(vm->dataStack, &word->param[0]);
2886 * the word in ToS. If an exception happens, restore the state to what
2896 * inner thread modus operandi, one would have to fix this word.
2911 ficlWord *word;
2925 word = ficlStackPopPointer(vm->dataStack);
2962 ficlVmExecuteWord(vm, word);
3113 * The Core word set
3256 ficlDictionarySetPrimitive(dictionary, "word", ficlPrimitiveWord,
3267 * The Core Extensions word set...
3305 * Environment query values for the Core word set
3338 * The optional Double-Number word set (partial)
3362 * The optional Exception and Exception Extensions word set
3373 * The optional Locals and Locals Extensions word set
3390 * The optional Memory-Allocation word set
3403 * The optional Search-Order word set
3409 * Extensions word set
3414 * The optional File-Access and File-Access Extensions word set
3435 ficlDictionarySetPrimitive(dictionary, "last-word",
3443 ficlDictionarySetPrimitive(dictionary, "parse-word",