Lines Matching refs:pVM
73 ficl_term_putimage(FICL_VM *pVM)
83 vmCheckStack(pVM, 7, 1);
85 names = stackPopINT(pVM->pStack);
86 namep = (char *) stackPopPtr(pVM->pStack);
87 y2 = stackPopINT(pVM->pStack);
88 x2 = stackPopINT(pVM->pStack);
89 y1 = stackPopINT(pVM->pStack);
90 x1 = stackPopINT(pVM->pStack);
91 f = stackPopINT(pVM->pStack);
106 vmThrowErr(pVM, "Error: out of memory");
119 stackPushUNS(pVM->pStack, ret);
124 ficl_fb_putimage(FICL_VM *pVM)
134 vmCheckStack(pVM, 7, 1);
136 names = stackPopINT(pVM->pStack);
137 namep = (char *) stackPopPtr(pVM->pStack);
138 y2 = stackPopINT(pVM->pStack);
139 x2 = stackPopINT(pVM->pStack);
140 y1 = stackPopINT(pVM->pStack);
141 x1 = stackPopINT(pVM->pStack);
142 f = stackPopINT(pVM->pStack);
146 vmThrowErr(pVM, "Error: out of memory");
159 stackPushUNS(pVM->pStack, ret);
163 ficl_fb_setpixel(FICL_VM *pVM)
168 vmCheckStack(pVM, 2, 0);
171 y = stackPopUNS(pVM->pStack);
172 x = stackPopUNS(pVM->pStack);
177 ficl_fb_line(FICL_VM *pVM)
182 vmCheckStack(pVM, 5, 0);
185 wd = stackPopUNS(pVM->pStack);
186 y1 = stackPopUNS(pVM->pStack);
187 x1 = stackPopUNS(pVM->pStack);
188 y0 = stackPopUNS(pVM->pStack);
189 x0 = stackPopUNS(pVM->pStack);
194 ficl_fb_bezier(FICL_VM *pVM)
199 vmCheckStack(pVM, 7, 0);
202 width = stackPopUNS(pVM->pStack);
203 y2 = stackPopUNS(pVM->pStack);
204 x2 = stackPopUNS(pVM->pStack);
205 y1 = stackPopUNS(pVM->pStack);
206 x1 = stackPopUNS(pVM->pStack);
207 y0 = stackPopUNS(pVM->pStack);
208 x0 = stackPopUNS(pVM->pStack);
213 ficl_fb_drawrect(FICL_VM *pVM)
218 vmCheckStack(pVM, 5, 0);
221 fill = stackPopUNS(pVM->pStack);
222 y2 = stackPopUNS(pVM->pStack);
223 x2 = stackPopUNS(pVM->pStack);
224 y1 = stackPopUNS(pVM->pStack);
225 x1 = stackPopUNS(pVM->pStack);
230 ficl_term_drawrect(FICL_VM *pVM)
235 vmCheckStack(pVM, 4, 0);
238 y2 = stackPopUNS(pVM->pStack);
239 x2 = stackPopUNS(pVM->pStack);
240 y1 = stackPopUNS(pVM->pStack);
241 x1 = stackPopUNS(pVM->pStack);
247 ficlSetenv(FICL_VM *pVM)
256 vmCheckStack(pVM, 4, 0);
258 names = stackPopINT(pVM->pStack);
259 namep = (char*) stackPopPtr(pVM->pStack);
260 values = stackPopINT(pVM->pStack);
261 valuep = (char*) stackPopPtr(pVM->pStack);
266 vmThrowErr(pVM, "Error: out of memory");
271 vmThrowErr(pVM, "Error: out of memory");
284 ficlSetenvq(FICL_VM *pVM)
293 vmCheckStack(pVM, 5, 0);
295 overwrite = stackPopINT(pVM->pStack);
296 names = stackPopINT(pVM->pStack);
297 namep = (char*) stackPopPtr(pVM->pStack);
298 values = stackPopINT(pVM->pStack);
299 valuep = (char*) stackPopPtr(pVM->pStack);
304 vmThrowErr(pVM, "Error: out of memory");
309 vmThrowErr(pVM, "Error: out of memory");
322 ficlGetenv(FICL_VM *pVM)
331 vmCheckStack(pVM, 2, 2);
333 names = stackPopINT(pVM->pStack);
334 namep = (char*) stackPopPtr(pVM->pStack);
339 vmThrowErr(pVM, "Error: out of memory");
347 stackPushPtr(pVM->pStack, value);
348 stackPushINT(pVM->pStack, strlen(value));
351 stackPushINT(pVM->pStack, -1);
357 ficlUnsetenv(FICL_VM *pVM)
366 vmCheckStack(pVM, 2, 0);
368 names = stackPopINT(pVM->pStack);
369 namep = (char*) stackPopPtr(pVM->pStack);
374 vmThrowErr(pVM, "Error: out of memory");
386 ficlCopyin(FICL_VM *pVM)
393 vmCheckStack(pVM, 3, 0);
396 len = stackPopINT(pVM->pStack);
397 dest = stackPopINT(pVM->pStack);
398 src = stackPopPtr(pVM->pStack);
408 ficlCopyout(FICL_VM *pVM)
415 vmCheckStack(pVM, 3, 0);
418 len = stackPopINT(pVM->pStack);
419 dest = stackPopPtr(pVM->pStack);
420 src = stackPopINT(pVM->pStack);
430 ficlFindfile(FICL_VM *pVM)
440 vmCheckStack(pVM, 4, 1);
443 types = stackPopINT(pVM->pStack);
444 typep = (char*) stackPopPtr(pVM->pStack);
445 names = stackPopINT(pVM->pStack);
446 namep = (char*) stackPopPtr(pVM->pStack);
450 vmThrowErr(pVM, "Error: out of memory");
455 vmThrowErr(pVM, "Error: out of memory");
463 stackPushPtr(pVM->pStack, fp);
476 ficlIsvirtualizedQ(FICL_VM *pVM)
482 vmCheckStack(pVM, 0, 1);
489 stackPushINT(pVM->pStack, flag);
495 ficlCcall(FICL_VM *pVM)
502 vmCheckStack(pVM, 2, 0);
505 func = stackPopPtr(pVM->pStack);
506 nparam = stackPopINT(pVM->pStack);
509 vmCheckStack(pVM, nparam, 1);
513 p[i] = stackPopINT(pVM->pStack);
518 stackPushINT(pVM->pStack, result);
524 ficlUuidFromString(FICL_VM *pVM)
535 vmCheckStack(pVM, 2, 0);
538 uuids = stackPopINT(pVM->pStack);
539 uuidp = (char *) stackPopPtr(pVM->pStack);
544 vmThrowErr(pVM, "Error: out of memory");
559 stackPushPtr(pVM->pStack, u);
566 ficlUuidToString(FICL_VM *pVM)
575 vmCheckStack(pVM, 1, 0);
578 u = (uuid_t *)stackPopPtr(pVM->pStack);
583 stackPushPtr(pVM->pStack, uuid);
584 stackPushINT(pVM->pStack, strlen(uuid));
587 stackPushINT(pVM->pStack, -1);
599 int ficlExecFD(FICL_VM *pVM, int fd)
606 id = pVM->sourceID;
607 pVM->sourceID.i = fd;
622 rval = ficlExecC(pVM, cp, i);
625 pVM->sourceID = id;
633 pVM->sourceID.i = -1;
634 ficlExec(pVM, "");
636 pVM->sourceID = id;
640 static void displayCellNoPad(FICL_VM *pVM)
644 vmCheckStack(pVM, 1, 0);
646 c = stackPop(pVM->pStack);
647 ltoa((c).i, pVM->pad, pVM->base);
648 vmTextOut(pVM, pVM->pad, 0);
656 static void isdirQuestion(FICL_VM *pVM)
663 vmCheckStack(pVM, 1, 1);
666 fd = stackPopINT(pVM->pStack);
677 stackPushINT(pVM->pStack, flag);
684 static void pfopen(FICL_VM *pVM)
690 vmCheckStack(pVM, 3, 1);
693 mode = stackPopINT(pVM->pStack); /* get mode */
694 count = stackPopINT(pVM->pStack); /* get count */
695 ptr = stackPopPtr(pVM->pStack); /* get ptr */
698 stackPushINT(pVM->pStack, -1);
727 stackPushINT(pVM->pStack, fd);
735 static void pfclose(FICL_VM *pVM)
740 vmCheckStack(pVM, 1, 0);
742 fd = stackPopINT(pVM->pStack); /* get fd */
752 static void pfread(FICL_VM *pVM)
758 vmCheckStack(pVM, 3, 1);
760 len = stackPopINT(pVM->pStack); /* get number of bytes to read */
761 buf = stackPopPtr(pVM->pStack); /* get buffer */
762 fd = stackPopINT(pVM->pStack); /* get fd */
764 stackPushINT(pVM->pStack, read(fd, buf, len));
766 stackPushINT(pVM->pStack, -1);
774 static void pfreaddir(FICL_VM *pVM)
788 vmCheckStack(pVM, 1, 3);
791 fd = stackPopINT(pVM->pStack);
835 stackPushPtr(pVM->pStack, d->d_name);
836 stackPushINT(pVM->pStack, strlen(d->d_name));
837 stackPushINT(pVM->pStack, FICL_TRUE);
839 stackPushINT(pVM->pStack, FICL_FALSE);
847 static void pfload(FICL_VM *pVM)
852 vmCheckStack(pVM, 1, 0);
854 fd = stackPopINT(pVM->pStack); /* get fd */
856 ficlExecFD(pVM, fd);
864 static void pfwrite(FICL_VM *pVM)
870 vmCheckStack(pVM, 3, 1);
872 len = stackPopINT(pVM->pStack); /* get number of bytes to read */
873 buf = stackPopPtr(pVM->pStack); /* get buffer */
874 fd = stackPopINT(pVM->pStack); /* get fd */
876 stackPushINT(pVM->pStack, write(fd, buf, len));
878 stackPushINT(pVM->pStack, -1);
886 static void pfseek(FICL_VM *pVM)
891 vmCheckStack(pVM, 3, 1);
893 whence = stackPopINT(pVM->pStack);
894 pos = stackPopINT(pVM->pStack);
895 fd = stackPopINT(pVM->pStack);
896 stackPushINT(pVM->pStack, lseek(fd, pos, whence));
904 static void key(FICL_VM *pVM)
907 vmCheckStack(pVM, 0, 1);
909 stackPushINT(pVM->pStack, getchar());
917 static void keyQuestion(FICL_VM *pVM)
920 vmCheckStack(pVM, 0, 1);
924 stackPushINT(pVM->pStack, FICL_TRUE);
927 stackPushINT(pVM->pStack, ischar()? FICL_TRUE : FICL_FALSE);
941 static void pseconds(FICL_VM *pVM)
944 vmCheckStack(pVM,0,1);
946 stackPushUNS(pVM->pStack, (FICL_UNS) time(NULL));
955 static void ms(FICL_VM *pVM)
958 vmCheckStack(pVM,1,0);
961 usleep(stackPopUNS(pVM->pStack)*1000);
963 delay(stackPopUNS(pVM->pStack)*1000);
972 static void fkey(FICL_VM *pVM)
978 vmCheckStack(pVM, 1, 1);
980 fd = stackPopINT(pVM->pStack);
982 stackPushINT(pVM->pStack, i > 0 ? ch : -1);
991 static void freeHeap(FICL_VM *pVM)
993 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys)));
999 static void ficlDictThreshold(FICL_VM *pVM)
1001 stackPushPtr(pVM->pStack, &dictThreshold);
1004 static void ficlDictIncrease(FICL_VM *pVM)
1006 stackPushPtr(pVM->pStack, &dictIncrease);