/**************************************************************************
f i c l S e t V e r s i o n E n v
** Create a double ficlCell environment constant for the version ID
**************************************************************************/
static void ficlSystemSetVersion(ficlSystem *system)
{
int major = 0;
int minor = 0;
ficl2Integer combined;
ficlDictionary *environment = ficlSystemGetEnvironment(system);
sscanf(FICL_VERSION, "%d.%d", &major, &minor);
FICL_2INTEGER_SET(major, minor, combined);
ficlDictionarySet2Constant(environment, "ficl-version", combined);
ficlDictionarySetConstant(environment, "ficl-robust", FICL_ROBUST);
return;
}
ficlWord *
ficlDictionarySetConstantString(ficlDictionary *dictionary, char *name,
char *value)
{
ficlString s;
ficl2Integer valueAs2Integer;
FICL_2INTEGER_SET(strlen(value), (intptr_t)value, valueAs2Integer);
FICL_STRING_SET_FROM_CSTRING(s, name);
return (ficlDictionarySet2ConstantInstruction(dictionary, s,
ficlInstruction2ConstantParen, valueAs2Integer));
}
