Lines Matching defs:vm
12 pushIor(ficlVm *vm, int success)
19 ficlStackPushInteger(vm->dataStack, ior);
24 ficlFileOpen(ficlVm *vm, char *writeMode)
26 int fam = ficlStackPopInteger(vm->dataStack);
27 int length = ficlStackPopInteger(vm->dataStack);
28 void *address = (void *)ficlStackPopPointer(vm->dataStack);
39 ficlStackPushPointer(vm->dataStack, NULL);
40 ficlStackPushInteger(vm->dataStack, EINVAL);
58 ficlStackPushPointer(vm->dataStack, NULL);
63 ficlStackPushPointer(vm->dataStack, ff);
67 pushIor(vm, f != NULL);
75 ficlPrimitiveOpenFile(ficlVm *vm)
77 ficlFileOpen(vm, "a");
82 ficlPrimitiveCreateFile(ficlVm *vm)
84 ficlFileOpen(vm, "w");
98 ficlPrimitiveCloseFile(ficlVm *vm)
100 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
101 pushIor(vm, ficlFileClose(ff));
106 ficlPrimitiveDeleteFile(ficlVm *vm)
108 int length = ficlStackPopInteger(vm->dataStack);
109 void *address = (void *)ficlStackPopPointer(vm->dataStack);
115 pushIor(vm, !unlink(filename));
121 ficlPrimitiveRenameFile(ficlVm *vm)
128 length = ficlStackPopInteger(vm->dataStack);
129 address = (void *)ficlStackPopPointer(vm->dataStack);
134 length = ficlStackPopInteger(vm->dataStack);
135 address = (void *)ficlStackPopPointer(vm->dataStack);
141 pushIor(vm, !rename(from, to));
149 ficlPrimitiveFileStatus(ficlVm *vm)
154 int length = ficlStackPopInteger(vm->dataStack);
155 void *address = (void *)ficlStackPopPointer(vm->dataStack);
164 ficlStackPushInteger(vm->dataStack, status);
165 ficlStackPushInteger(vm->dataStack, ior);
170 ficlPrimitiveFilePosition(ficlVm *vm)
172 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
174 ficlStackPushInteger(vm->dataStack, ud);
175 pushIor(vm, ud != -1);
180 ficlPrimitiveFileSize(ficlVm *vm)
182 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
184 ficlStackPushInteger(vm->dataStack, ud);
185 pushIor(vm, ud != -1);
191 ficlPrimitiveIncludeFile(ficlVm *vm)
193 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
194 ficlCell id = vm->sourceId;
199 vm->sourceId.p = (void *)ff;
211 except = ficlVmExecuteString(vm, s);
216 ficlVmThrow(vm, except);
222 vm->sourceId.i = -1;
224 ficlVmExecuteString(vm, s);
226 vm->sourceId = id;
232 ficlPrimitiveReadFile(ficlVm *vm)
234 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
235 int length = ficlStackPopInteger(vm->dataStack);
236 void *address = (void *)ficlStackPopPointer(vm->dataStack);
242 ficlStackPushInteger(vm->dataStack, result);
243 pushIor(vm, ferror(ff->f) == 0);
248 ficlPrimitiveReadLine(ficlVm *vm)
250 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
251 int length = ficlStackPopInteger(vm->dataStack);
252 char *address = (char *)ficlStackPopPointer(vm->dataStack);
257 ficlStackPushInteger(vm->dataStack, -1);
258 ficlStackPushInteger(vm->dataStack, 0);
259 ficlStackPushInteger(vm->dataStack, 0);
269 ficlStackPushInteger(vm->dataStack, -1);
270 ficlStackPushInteger(vm->dataStack, 0);
271 ficlStackPushInteger(vm->dataStack, error);
281 ficlStackPushInteger(vm->dataStack, length);
282 ficlStackPushInteger(vm->dataStack, flag);
283 ficlStackPushInteger(vm->dataStack, 0); /* ior */
288 ficlPrimitiveWriteFile(ficlVm *vm)
290 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
291 int length = ficlStackPopInteger(vm->dataStack);
292 void *address = (void *)ficlStackPopPointer(vm->dataStack);
296 pushIor(vm, ferror(ff->f) == 0);
301 ficlPrimitiveWriteLine(ficlVm *vm)
303 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
304 size_t length = (size_t)ficlStackPopInteger(vm->dataStack);
305 void *address = (void *)ficlStackPopPointer(vm->dataStack);
310 pushIor(vm, ferror(ff->f) == 0);
315 ficlPrimitiveRepositionFile(ficlVm *vm)
317 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
318 size_t ud = (size_t)ficlStackPopInteger(vm->dataStack);
320 pushIor(vm, fseek(ff->f, ud, SEEK_SET) == 0);
325 ficlPrimitiveFlushFile(ficlVm *vm)
327 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
328 pushIor(vm, fflush(ff->f) == 0);
334 ficlPrimitiveResizeFile(ficlVm *vm)
336 ficlFile *ff = (ficlFile *)ficlStackPopPointer(vm->dataStack);
337 size_t ud = (size_t)ficlStackPopInteger(vm->dataStack);
339 pushIor(vm, ficlFileTruncate(ff, ud) == 0);