Lines Matching refs:system
79 ficlSystemSetVersion(ficlSystem *system) in ficlSystemSetVersion() argument
84 ficlDictionary *environment = ficlSystemGetEnvironment(system); in ficlSystemSetVersion()
109 ficlSystem *system; in ficlSystemCreate() local
122 callback.system = NULL; in ficlSystemCreate()
131 system = ficlMalloc(sizeof (ficlSystem)); in ficlSystemCreate()
133 FICL_ASSERT(&callback, system); in ficlSystemCreate()
135 memset(system, 0, sizeof (ficlSystem)); in ficlSystemCreate()
149 system->dictionary = ficlDictionaryCreateHashed(system, in ficlSystemCreate()
151 system->dictionary->forthWordlist->name = "forth-wordlist"; in ficlSystemCreate()
153 environment = ficlDictionaryCreate(system, (unsigned)environmentSize); in ficlSystemCreate()
154 system->environment = environment; in ficlSystemCreate()
155 system->environment->forthWordlist->name = "environment"; in ficlSystemCreate()
157 system->callback.textOut = fsi->textOut; in ficlSystemCreate()
158 system->callback.errorOut = fsi->errorOut; in ficlSystemCreate()
159 system->callback.context = fsi->context; in ficlSystemCreate()
160 system->callback.system = system; in ficlSystemCreate()
161 system->callback.vm = NULL; in ficlSystemCreate()
162 system->stackSize = stackSize; in ficlSystemCreate()
172 system->locals = ficlDictionaryCreate(system, in ficlSystemCreate()
182 ficlSystemCompileCore(system); in ficlSystemCreate()
183 ficlSystemCompilePrefix(system); in ficlSystemCreate()
186 ficlSystemCompileFloat(system); in ficlSystemCreate()
190 ficlSystemCompilePlatform(system); in ficlSystemCreate()
193 ficlSystemSetVersion(system); in ficlSystemCreate()
200 ficlSystemAddPrimitiveParseStep(system, "?word", ficlVmParseWord); in ficlSystemCreate()
201 ficlSystemAddPrimitiveParseStep(system, "?prefix", ficlVmParsePrefix); in ficlSystemCreate()
202 ficlSystemAddPrimitiveParseStep(system, "?number", ficlVmParseNumber); in ficlSystemCreate()
204 ficlSystemAddPrimitiveParseStep(system, "?float", in ficlSystemCreate()
216 (void) ficlSystemCreateVm(system); in ficlSystemCreate()
241 ficlSystemCompileSoftCore(system); in ficlSystemCreate()
242 ficlSystemDestroyVm(system->vmList); in ficlSystemCreate()
245 ficlSystemGlobal = system; in ficlSystemCreate()
247 return (system); in ficlSystemCreate()
256 ficlSystemDestroy(ficlSystem *system) in ficlSystemDestroy() argument
258 if (system->dictionary) in ficlSystemDestroy()
259 ficlDictionaryDestroy(system->dictionary); in ficlSystemDestroy()
260 system->dictionary = NULL; in ficlSystemDestroy()
262 if (system->environment) in ficlSystemDestroy()
263 ficlDictionaryDestroy(system->environment); in ficlSystemDestroy()
264 system->environment = NULL; in ficlSystemDestroy()
267 if (system->locals) in ficlSystemDestroy()
268 ficlDictionaryDestroy(system->locals); in ficlSystemDestroy()
269 system->locals = NULL; in ficlSystemDestroy()
272 while (system->vmList != NULL) { in ficlSystemDestroy()
273 ficlVm *vm = system->vmList; in ficlSystemDestroy()
274 system->vmList = system->vmList->link; in ficlSystemDestroy()
278 if (ficlSystemGlobal == system) in ficlSystemDestroy()
281 ficlFree(system); in ficlSystemDestroy()
282 system = NULL; in ficlSystemDestroy()
292 ficlSystemAddParseStep(ficlSystem *system, ficlWord *word) in ficlSystemAddParseStep() argument
296 if (system->parseList[i] == NULL) { in ficlSystemAddParseStep()
297 system->parseList[i] = word; in ficlSystemAddParseStep()
312 ficlSystemAddPrimitiveParseStep(ficlSystem *system, char *name, in ficlSystemAddPrimitiveParseStep() argument
315 ficlDictionary *dictionary = system->dictionary; in ficlSystemAddPrimitiveParseStep()
324 (void) ficlSystemAddParseStep(system, word); in ficlSystemAddPrimitiveParseStep()
333 ficlSystemCreateVm(ficlSystem *system) in ficlSystemCreateVm() argument
335 ficlVm *vm = ficlVmCreate(NULL, system->stackSize, system->stackSize); in ficlSystemCreateVm()
336 vm->link = system->vmList; in ficlSystemCreateVm()
338 memcpy(&(vm->callback), &(system->callback), sizeof (system->callback)); in ficlSystemCreateVm()
340 vm->callback.system = system; in ficlSystemCreateVm()
342 system->vmList = vm; in ficlSystemCreateVm()
356 ficlSystem *system = vm->callback.system; in ficlSystemDestroyVm() local
357 ficlVm *pList = system->vmList; in ficlSystemDestroyVm()
361 if (system->vmList == vm) { in ficlSystemDestroyVm()
362 system->vmList = system->vmList->link; in ficlSystemDestroyVm()
382 ficlSystemLookup(ficlSystem *system, char *name) in ficlSystemLookup() argument
386 return (ficlDictionaryLookup(system->dictionary, s)); in ficlSystemLookup()
394 ficlSystemGetDictionary(ficlSystem *system) in ficlSystemGetDictionary() argument
396 return (system->dictionary); in ficlSystemGetDictionary()
404 ficlSystemGetEnvironment(ficlSystem *system) in ficlSystemGetEnvironment() argument
406 return (system->environment); in ficlSystemGetEnvironment()
416 ficlSystemGetLocals(ficlSystem *system) in ficlSystemGetLocals() argument
418 return (system->locals); in ficlSystemGetLocals()
429 ficlSystemLookupLocal(ficlSystem *system, ficlString name) in ficlSystemLookupLocal() argument
432 ficlDictionary *dictionary = system->dictionary; in ficlSystemLookupLocal()
433 ficlHash *hash = ficlSystemGetLocals(system)->forthWordlist; in ficlSystemLookupLocal()
437 FICL_SYSTEM_ASSERT(system, hash); in ficlSystemLookupLocal()
438 FICL_SYSTEM_ASSERT(system, dictionary); in ficlSystemLookupLocal()