Lines Matching defs:vm
15 ficlPrimitiveSystem(ficlVm *vm)
17 ficlCountedString *counted = (ficlCountedString *)vm->pad;
19 ficlVmGetString(vm, counted, '\n');
24 sprintf(vm->pad, "System call returned %d\n",
26 ficlVmTextOut(vm, vm->pad);
27 ficlVmThrow(vm, FICL_VM_STATUS_QUIT);
30 ficlVmTextOut(vm, "Warning (system): nothing happened\n");
43 ficlPrimitiveLoad(ficlVm *vm)
54 ficlVmGetString(vm, counted, '\n');
57 ficlVmTextOut(vm, "Warning (load): nothing happened\n");
67 ficlVmTextOut(vm, "Unable to open file ");
68 ficlVmTextOut(vm, FICL_COUNTED_STRING_GET_POINTER(*counted));
69 ficlVmTextOut(vm, "\n");
70 ficlVmThrow(vm, FICL_VM_STATUS_QUIT);
73 oldSourceId = vm->sourceId;
74 vm->sourceId.p = (void *)f;
89 result = ficlVmExecuteString(vm, s);
97 vm->sourceId = oldSourceId;
99 ficlVmThrowError(vm, "Error loading file <%s> line %d",
108 vm->sourceId.i = -1;
110 ficlVmExecuteString(vm, s);
112 vm->sourceId = oldSourceId;
117 ficlVmThrow(vm, FICL_VM_STATUS_USER_EXIT);
125 ficlPrimitiveSpewHash(ficlVm *vm)
127 ficlHash *hash = ficlVmGetDictionary(vm)->forthWordlist;
133 if (!ficlVmGetWordToPad(vm))
134 ficlVmThrow(vm, FICL_VM_STATUS_OUT_OF_TEXT);
136 f = fopen(vm->pad, "w");
138 ficlVmTextOut(vm, "unable to open file\n");
166 ficlPrimitiveBreak(ficlVm *vm)
168 vm->state = vm->state;