/* * d i c t A p p e n d W o r d * Create a new word in the dictionary with the specified * name, code, and flags. Name must be NULL-terminated. */ ficlWord * ficlDictionaryAppendPrimitive(ficlDictionary *dictionary, char *name, ficlPrimitive code, ficlUnsigned8 flags) { ficlString s; FICL_STRING_SET_FROM_CSTRING(s, name); return (ficlDictionaryAppendWord(dictionary, s, code, flags)); }
ficlWord * ficlDictionaryAppendConstantInstruction(ficlDictionary *dictionary, ficlString name, ficlInstruction instruction, ficlInteger value) { ficlWord *word = ficlDictionaryAppendWord(dictionary, name, (ficlPrimitive)instruction, FICL_WORD_DEFAULT); if (word != NULL) ficlDictionaryAppendUnsigned(dictionary, value); return (word); }
ficlWord * ficlDictionaryAppend2ConstantInstruction(ficlDictionary *dictionary, ficlString name, ficlInstruction instruction, ficl2Integer value) { ficlWord *word = ficlDictionaryAppendWord(dictionary, name, (ficlPrimitive)instruction, FICL_WORD_DEFAULT); if (word != NULL) { ficlDictionaryAppendUnsigned(dictionary, FICL_2UNSIGNED_GET_HIGH(value)); ficlDictionaryAppendUnsigned(dictionary, FICL_2UNSIGNED_GET_LOW(value)); } return (word); }
FICL_PLATFORM_EXTERN ficlWord *dictAppendWord2(ficlDictionary *dictionary, ficlString name, ficlPrimitive code, ficlUnsigned8 flags) { return ficlDictionaryAppendWord(dictionary, name, code, flags); }