Lines Matching defs:pVM
73 ficlSetenv(ficlVm *pVM)
79 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 4, 0);
81 names = ficlStackPopInteger(ficlVmGetDataStack(pVM));
82 namep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
83 values = ficlStackPopInteger(ficlVmGetDataStack(pVM));
84 valuep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
88 ficlVmThrowError(pVM, "Error: out of memory");
93 ficlVmThrowError(pVM, "Error: out of memory");
103 ficlSetenvq(ficlVm *pVM)
109 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 5, 0);
111 overwrite = ficlStackPopInteger(ficlVmGetDataStack(pVM));
112 names = ficlStackPopInteger(ficlVmGetDataStack(pVM));
113 namep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
114 values = ficlStackPopInteger(ficlVmGetDataStack(pVM));
115 valuep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
119 ficlVmThrowError(pVM, "Error: out of memory");
124 ficlVmThrowError(pVM, "Error: out of memory");
134 ficlGetenv(ficlVm *pVM)
140 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 2, 2);
142 names = ficlStackPopInteger(ficlVmGetDataStack(pVM));
143 namep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
147 ficlVmThrowError(pVM, "Error: out of memory");
155 ficlStackPushPointer(ficlVmGetDataStack(pVM), value);
156 ficlStackPushInteger(ficlVmGetDataStack(pVM), strlen(value));
158 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
162 ficlUnsetenv(ficlVm *pVM)
168 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 2, 0);
170 names = ficlStackPopInteger(ficlVmGetDataStack(pVM));
171 namep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
175 ficlVmThrowError(pVM, "Error: out of memory");
184 ficlCopyin(ficlVm *pVM)
192 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 0);
195 len = ficlStackPopInteger(ficlVmGetDataStack(pVM));
196 dest = ficlStackPopInteger(ficlVmGetDataStack(pVM));
197 src = ficlStackPopPointer(ficlVmGetDataStack(pVM));
200 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
201 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
202 (void) ficlStackPopPointer(ficlVmGetDataStack(pVM));
207 ficlCopyout(ficlVm *pVM)
215 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 0);
218 len = ficlStackPopInteger(ficlVmGetDataStack(pVM));
219 dest = ficlStackPopPointer(ficlVmGetDataStack(pVM));
220 src = ficlStackPopInteger(ficlVmGetDataStack(pVM));
223 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
224 (void) ficlStackPopPointer(ficlVmGetDataStack(pVM));
225 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
230 ficlFindfile(ficlVm *pVM)
239 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 4, 1);
242 types = ficlStackPopInteger(ficlVmGetDataStack(pVM));
243 typep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
244 names = ficlStackPopInteger(ficlVmGetDataStack(pVM));
245 namep = (char *)ficlStackPopPointer(ficlVmGetDataStack(pVM));
249 ficlVmThrowError(pVM, "Error: out of memory");
254 ficlVmThrowError(pVM, "Error: out of memory");
260 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
261 (void) ficlStackPopPointer(ficlVmGetDataStack(pVM));
262 (void) ficlStackPopInteger(ficlVmGetDataStack(pVM));
263 (void) ficlStackPopPointer(ficlVmGetDataStack(pVM));
267 ficlStackPushPointer(ficlVmGetDataStack(pVM), fp);
271 ficlCcall(ficlVm *pVM)
277 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 2, 0);
279 func = (int (*)(int, ...))ficlStackPopPointer(ficlVmGetDataStack(pVM));
280 nparam = ficlStackPopInteger(ficlVmGetDataStack(pVM));
282 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), nparam, 1);
285 p[i] = ficlStackPopInteger(ficlVmGetDataStack(pVM));
290 ficlStackPushInteger(ficlVmGetDataStack(pVM), result);
294 ficlUuidFromString(ficlVm *pVM)
306 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 2, 0);
308 uuid_size = ficlStackPopInteger(ficlVmGetDataStack(pVM));
309 uuid_ptr = ficlStackPopPointer(ficlVmGetDataStack(pVM));
313 ficlVmThrowError(pVM, "Error: out of memory");
333 ficlStackPushPointer(ficlVmGetDataStack(pVM), u);
337 ficlUuidToString(ficlVm *pVM)
345 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
347 u = ficlStackPopPointer(ficlVmGetDataStack(pVM));
351 ficlStackPushPointer(ficlVmGetDataStack(pVM), uuid);
352 ficlStackPushInteger(ficlVmGetDataStack(pVM), strlen(uuid));
358 ficlStackPushPointer(ficlVmGetDataStack(pVM), uuid);
359 ficlStackPushInteger(ficlVmGetDataStack(pVM), strlen(uuid));
362 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
373 ficlExecFD(ficlVm *pVM, int fd)
381 id = pVM->sourceId;
382 pVM->sourceId.i = fd+1; /* in loader we can get 0, there is no stdin */
403 rval = ficlVmExecuteString(pVM, s);
407 pVM->sourceId = id;
408 (void) ficlVmEvaluate(pVM, "");
412 pVM->sourceId = id;
418 (void) ficlVmEvaluate(pVM, "");
421 ficlVmThrow(pVM, FICL_VM_STATUS_USER_EXIT);
426 static void displayCellNoPad(ficlVm *pVM)
429 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
431 c = ficlStackPop(ficlVmGetDataStack(pVM));
432 ficlLtoa((c).i, pVM->pad, pVM->base);
433 ficlVmTextOut(pVM, pVM->pad);
442 isdirQuestion(ficlVm *pVM)
448 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 1);
450 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM));
461 ficlStackPushInteger(ficlVmGetDataStack(pVM), flag);
472 pfopen(ficlVm *pVM)
480 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 1);
482 mode = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get mode */
483 count = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get count */
484 ptr = ficlStackPopPointer(ficlVmGetDataStack(pVM)); /* get ptr */
487 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
504 ficlStackPushInteger(ficlVmGetDataStack(pVM), fd);
512 pfclose(ficlVm *pVM)
516 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
518 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get fd */
528 pfread(ficlVm *pVM)
533 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 1);
535 len = ficlStackPopInteger(ficlVmGetDataStack(pVM));
536 buf = ficlStackPopPointer(ficlVmGetDataStack(pVM)); /* get buffer */
537 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get fd */
539 ficlStackPushInteger(ficlVmGetDataStack(pVM),
542 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
550 static void pfopendir(ficlVm *pVM)
563 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 2, 1);
565 count = ficlStackPopInteger(ficlVmGetDataStack(pVM));
566 ptr = ficlStackPopPointer(ficlVmGetDataStack(pVM)); /* get ptr */
569 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
591 ficlStackPushInteger(ficlVmGetDataStack(pVM), fd);
592 ficlStackPushInteger(ficlVmGetDataStack(pVM), flag);
599 ficlStackPushInteger(ficlVmGetDataStack(pVM), flag);
605 ficlStackPushInteger(ficlVmGetDataStack(pVM), flag);
610 ficlStackPushPointer(ficlVmGetDataStack(pVM), dir);
611 ficlStackPushInteger(ficlVmGetDataStack(pVM), flag);
620 pfreaddir(ficlVm *pVM)
629 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 3);
635 dir = ficlStackPopPointer(ficlVmGetDataStack(pVM));
646 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM));
658 ficlStackPushPointer(ficlVmGetDataStack(pVM), d->d_name);
659 ficlStackPushInteger(ficlVmGetDataStack(pVM),
661 ficlStackPushInteger(ficlVmGetDataStack(pVM), FICL_TRUE);
663 ficlStackPushInteger(ficlVmGetDataStack(pVM), FICL_FALSE);
673 pfclosedir(ficlVm *pVM)
681 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
684 dir = ficlStackPopPointer(ficlVmGetDataStack(pVM)); /* get dir */
688 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get fd */
699 static void pfload(ficlVm *pVM)
703 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
705 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get fd */
707 ficlExecFD(pVM, fd);
716 pfwrite(ficlVm *pVM)
721 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 1);
723 len = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* bytes to read */
724 buf = ficlStackPopPointer(ficlVmGetDataStack(pVM)); /* get buffer */
725 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM)); /* get fd */
727 ficlStackPushInteger(ficlVmGetDataStack(pVM),
730 ficlStackPushInteger(ficlVmGetDataStack(pVM), -1);
739 pfseek(ficlVm *pVM)
743 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 3, 1);
745 whence = ficlStackPopInteger(ficlVmGetDataStack(pVM));
746 pos = ficlStackPopInteger(ficlVmGetDataStack(pVM));
747 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM));
748 ficlStackPushInteger(ficlVmGetDataStack(pVM), lseek(fd, pos, whence));
757 key(ficlVm *pVM)
759 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 0, 1);
761 ficlStackPushInteger(ficlVmGetDataStack(pVM), getchar());
769 keyQuestion(ficlVm *pVM)
777 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 0, 1);
792 ficlStackPushInteger(ficlVmGetDataStack(pVM),
795 ficlStackPushInteger(ficlVmGetDataStack(pVM),
811 pseconds(ficlVm *pVM)
813 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 0, 1);
815 ficlStackPushUnsigned(ficlVmGetDataStack(pVM),
824 ms(ficlVm *pVM)
826 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 0);
829 usleep(ficlStackPopUnsigned(ficlVmGetDataStack(pVM)) * 1000);
831 delay(ficlStackPopUnsigned(ficlVmGetDataStack(pVM)) * 1000);
840 fkey(ficlVm *pVM)
845 FICL_STACK_CHECK(ficlVmGetDataStack(pVM), 1, 1);
847 fd = ficlStackPopInteger(ficlVmGetDataStack(pVM));
849 ficlStackPushInteger(ficlVmGetDataStack(pVM), i > 0 ? ch : -1);
856 freeHeap(ficlVm *pVM)
858 ficlStackPushInteger(ficlVmGetDataStack(pVM),
859 ficlDictionaryCellsAvailable(ficlVmGetDictionary(pVM)));