/freebsd-13-stable/stand/ficl/ |
H A D | tools.c | 85 static void vmSetBreak(FICL_VM *pVM, FICL_BREAKPOINT *pBP) argument 87 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); 90 pBP->address = pVM->ip; 91 pBP->origXT = *pVM->ip; 92 *pVM->ip = pStep; 99 static void debugPrompt(FICL_VM *pVM) argument 101 vmTextOut(pVM, "dbg> ", 0); 154 static FICL_WORD *findEnclosingWord(FICL_VM *pVM, CELL *cp) argument 157 FICL_DICT *pd = vmGetDict(pVM); 187 static void seeColon(FICL_VM *pVM, CEL argument 302 seeXT(FICL_VM *pVM) argument 366 see(FICL_VM *pVM) argument 382 ficlDebugXT(FICL_VM *pVM) argument 416 stepIn(FICL_VM *pVM) argument 441 stepOver(FICL_VM *pVM) argument 489 stepBreak(FICL_VM *pVM) argument 611 bye(FICL_VM *pVM) argument 623 displayPStack(FICL_VM *pVM) argument 647 displayRStack(FICL_VM *pVM) argument 695 forgetWid(FICL_VM *pVM) argument 719 forget(FICL_VM *pVM) argument 739 listWords(FICL_VM *pVM) argument 816 listEnv(FICL_VM *pVM) argument 844 envConstant(FICL_VM *pVM) argument 858 env2Constant(FICL_VM *pVM) argument [all...] |
H A D | words.c | 58 static void colonParen(FICL_VM *pVM); 59 static void literalIm(FICL_VM *pVM); 60 static int ficlParseWord(FICL_VM *pVM, STRINGINFO si); 79 static void doLocalIm(FICL_VM *pVM); 80 static void do2LocalIm(FICL_VM *pVM); 90 static void markBranch(FICL_DICT *dp, FICL_VM *pVM, char *tag) argument 97 static void markControlTag(FICL_VM *pVM, char *tag) argument 103 static void matchControlTag(FICL_VM *pVM, char *tag) argument 107 vmCheckStack(pVM, 1, 0); 109 cp = (char *)stackPopPtr(pVM 126 resolveBackBranch(FICL_DICT *dp, FICL_VM *pVM, char *tag) argument 149 resolveForwardBranch(FICL_DICT *dp, FICL_VM *pVM, char *tag) argument 171 resolveAbsBranch(FICL_DICT *dp, FICL_VM *pVM, char *tag) argument 205 ficlParseNumber(FICL_VM *pVM, STRINGINFO si) argument 279 add(FICL_VM *pVM) argument 291 sub(FICL_VM *pVM) argument 303 mul(FICL_VM *pVM) argument 315 negate(FICL_VM *pVM) argument 326 ficlDiv(FICL_VM *pVM) argument 347 slashMod(FICL_VM *pVM) argument 366 onePlus(FICL_VM *pVM) argument 378 oneMinus(FICL_VM *pVM) argument 390 twoMul(FICL_VM *pVM) argument 402 twoDiv(FICL_VM *pVM) argument 414 mulDiv(FICL_VM *pVM) argument 433 mulDivRem(FICL_VM *pVM) argument 462 colon(FICL_VM *pVM) argument 491 colonParen(FICL_VM *pVM) argument 508 semiParen(FICL_VM *pVM) argument 515 semicolonCoIm(FICL_VM *pVM) argument 549 exitParen(FICL_VM *pVM) argument 555 exitCoIm(FICL_VM *pVM) argument 579 constantParen(FICL_VM *pVM) argument 589 twoConstParen(FICL_VM *pVM) argument 608 constant(FICL_VM *pVM) argument 622 twoConstant(FICL_VM *pVM) argument 645 displayCell(FICL_VM *pVM) argument 658 uDot(FICL_VM *pVM) argument 672 hexDot(FICL_VM *pVM) argument 726 ficlSprintf(FICL_VM *pVM) argument 857 depth(FICL_VM *pVM) argument 869 drop(FICL_VM *pVM) argument 879 twoDrop(FICL_VM *pVM) argument 889 dup(FICL_VM *pVM) argument 899 twoDup(FICL_VM *pVM) argument 910 over(FICL_VM *pVM) argument 919 twoOver(FICL_VM *pVM) argument 930 pick(FICL_VM *pVM) argument 941 questionDup(FICL_VM *pVM) argument 956 roll(FICL_VM *pVM) argument 968 minusRoll(FICL_VM *pVM) argument 980 rot(FICL_VM *pVM) argument 990 swap(FICL_VM *pVM) argument 1000 twoSwap(FICL_VM *pVM) argument 1016 emit(FICL_VM *pVM) argument 1032 cr(FICL_VM *pVM) argument 1039 commentLine(FICL_VM *pVM) argument 1078 commentHang(FICL_VM *pVM) argument 1090 fetch(FICL_VM *pVM) argument 1107 twoFetch(FICL_VM *pVM) argument 1124 store(FICL_VM *pVM) argument 1140 twoStore(FICL_VM *pVM) argument 1151 plusStore(FICL_VM *pVM) argument 1162 quadFetch(FICL_VM *pVM) argument 1173 quadStore(FICL_VM *pVM) argument 1183 wFetch(FICL_VM *pVM) argument 1194 wStore(FICL_VM *pVM) argument 1204 cFetch(FICL_VM *pVM) argument 1215 cStore(FICL_VM *pVM) argument 1233 branchParen(FICL_VM *pVM) argument 1246 branch0(FICL_VM *pVM) argument 1276 ifCoIm(FICL_VM *pVM) argument 1302 elseCoIm(FICL_VM *pVM) argument 1328 endifCoIm(FICL_VM *pVM) argument 1349 caseCoIm(FICL_VM *pVM) argument 1366 endcaseCoIm(FICL_VM *pVM) argument 1415 ofParen(FICL_VM *pVM) argument 1445 ofCoIm(FICL_VM *pVM) argument 1485 endofCoIm(FICL_VM *pVM) argument 1529 fallthroughCoIm(FICL_VM *pVM) argument 1570 hash(FICL_VM *pVM) argument 1599 interpret(FICL_VM *pVM) argument 1679 ficlParseWord(FICL_VM *pVM, STRINGINFO si) argument 1736 lookup(FICL_VM *pVM) argument 1754 parseStepParen(FICL_VM *pVM) argument 1769 addParseStep(FICL_VM *pVM) argument 1792 literalParen(FICL_VM *pVM) argument 1802 twoLitParen(FICL_VM *pVM) argument 1822 literalIm(FICL_VM *pVM) argument 1834 twoLiteralIm(FICL_VM *pVM) argument 1851 zeroEquals(FICL_VM *pVM) argument 1862 zeroLess(FICL_VM *pVM) argument 1873 zeroGreater(FICL_VM *pVM) argument 1884 isEqual(FICL_VM *pVM) argument 1897 isLess(FICL_VM *pVM) argument 1909 uIsLess(FICL_VM *pVM) argument 1921 isGreater(FICL_VM *pVM) argument 1933 uIsGreater(FICL_VM *pVM) argument 1945 bitwiseAnd(FICL_VM *pVM) argument 1957 bitwiseOr(FICL_VM *pVM) argument 1969 bitwiseXor(FICL_VM *pVM) argument 1981 bitwiseNot(FICL_VM *pVM) argument 2018 doCoIm(FICL_VM *pVM) argument 2040 doParen(FICL_VM *pVM) argument 2058 qDoCoIm(FICL_VM *pVM) argument 2080 qDoParen(FICL_VM *pVM) argument 2111 leaveCo(FICL_VM *pVM) argument 2121 unloopCo(FICL_VM *pVM) argument 2128 loopCoIm(FICL_VM *pVM) argument 2141 plusLoopCoIm(FICL_VM *pVM) argument 2154 loopParen(FICL_VM *pVM) argument 2176 plusLoopParen(FICL_VM *pVM) argument 2211 loopICo(FICL_VM *pVM) argument 2220 loopJCo(FICL_VM *pVM) argument 2229 loopKCo(FICL_VM *pVM) argument 2242 toRStack(FICL_VM *pVM) argument 2251 fromRStack(FICL_VM *pVM) argument 2260 fetchRStack(FICL_VM *pVM) argument 2269 twoToR(FICL_VM *pVM) argument 2280 twoRFrom(FICL_VM *pVM) argument 2291 twoRFetch(FICL_VM *pVM) argument 2307 variableParen(FICL_VM *pVM) argument 2319 variable(FICL_VM *pVM) argument 2330 twoVariable(FICL_VM *pVM) argument 2346 base(FICL_VM *pVM) argument 2359 decimal(FICL_VM *pVM) argument 2366 hex(FICL_VM *pVM) argument 2378 allot(FICL_VM *pVM) argument 2398 here(FICL_VM *pVM) argument 2410 comma(FICL_VM *pVM) argument 2424 cComma(FICL_VM *pVM) argument 2438 cells(FICL_VM *pVM) argument 2450 cellPlus(FICL_VM *pVM) argument 2471 ficlTick(FICL_VM *pVM) argument 2490 bracketTickCoIm(FICL_VM *pVM) argument 2506 postponeCoIm(FICL_VM *pVM) argument 2536 execute(FICL_VM *pVM) argument 2557 immediate(FICL_VM *pVM) argument 2565 compileOnly(FICL_VM *pVM) argument 2573 setObjectFlag(FICL_VM *pVM) argument 2580 isObject(FICL_VM *pVM) argument 2590 cstringLit(FICL_VM *pVM) argument 2604 cstringQuoteIm(FICL_VM *pVM) argument 2637 stringLit(FICL_VM *pVM) argument 2656 dotQuoteCoIm(FICL_VM *pVM) argument 2669 dotParen(FICL_VM *pVM) argument 2704 sLiteralCoIm(FICL_VM *pVM) argument 2738 state(FICL_VM *pVM) argument 2755 createParen(FICL_VM *pVM) argument 2769 create(FICL_VM *pVM) argument 2782 doDoes(FICL_VM *pVM) argument 2798 doesParen(FICL_VM *pVM) argument 2808 doesCoIm(FICL_VM *pVM) argument 2835 toBody(FICL_VM *pVM) argument 2853 fromBody(FICL_VM *pVM) argument 2871 toName(FICL_VM *pVM) argument 2885 getLastWord(FICL_VM *pVM) argument 2900 lbracketCoIm(FICL_VM *pVM) argument 2907 rbracket(FICL_VM *pVM) argument 2921 lessNumberSign(FICL_VM *pVM) argument 2936 numberSign(FICL_VM *pVM) argument 2959 numberSignGreater(FICL_VM *pVM) argument 2982 numberSignS(FICL_VM *pVM) argument 3010 hold(FICL_VM *pVM) argument 3030 sign(FICL_VM *pVM) argument 3060 toNumber(FICL_VM *pVM) argument 3119 quit(FICL_VM *pVM) argument 3126 ficlAbort(FICL_VM *pVM) argument 3153 accept(FICL_VM *pVM) argument 3191 align(FICL_VM *pVM) argument 3204 aligned(FICL_VM *pVM) argument 3226 beginCoIm(FICL_VM *pVM) argument 3233 untilCoIm(FICL_VM *pVM) argument 3244 whileCoIm(FICL_VM *pVM) argument 3257 repeatCoIm(FICL_VM *pVM) argument 3272 againCoIm(FICL_VM *pVM) argument 3299 ficlChar(FICL_VM *pVM) argument 3311 charCoIm(FICL_VM *pVM) argument 3323 charPlus(FICL_VM *pVM) argument 3345 ficlChars(FICL_VM *pVM) argument 3372 count(FICL_VM *pVM) argument 3398 environmentQ(FICL_VM *pVM) argument 3435 evaluate(FICL_VM *pVM) argument 3468 stringQuoteIm(FICL_VM *pVM) argument 3494 type(FICL_VM *pVM) argument 3531 ficlWord(FICL_VM *pVM) argument 3565 parseNoCopy(FICL_VM *pVM) argument 3588 parse(FICL_VM *pVM) argument 3612 fill(FICL_VM *pVM) argument 3643 do_find(FICL_VM *pVM, STRINGINFO si, void *returnForFailure) argument 3673 cFind(FICL_VM *pVM) argument 3693 sFind(FICL_VM *pVM) argument 3717 fmSlashMod(FICL_VM *pVM) argument 3743 smSlashRem(FICL_VM *pVM) argument 3761 ficlMod(FICL_VM *pVM) argument 3787 umSlashMod(FICL_VM *pVM) argument 3816 lshift(FICL_VM *pVM) argument 3831 rshift(FICL_VM *pVM) argument 3852 mStar(FICL_VM *pVM) argument 3870 umStar(FICL_VM *pVM) argument 3892 ficlMax(FICL_VM *pVM) argument 3907 ficlMin(FICL_VM *pVM) argument 3933 move(FICL_VM *pVM) argument 3973 recurseCoIm(FICL_VM *pVM) argument 3989 sToD(FICL_VM *pVM) argument 4011 source(FICL_VM *pVM) argument 4026 ficlVersion(FICL_VM *pVM) argument 4037 toIn(FICL_VM *pVM) argument 4053 colonNoName(FICL_VM *pVM) argument 4087 userParen(FICL_VM *pVM) argument 4095 userVariable(FICL_VM *pVM) argument 4122 toValue(FICL_VM *pVM) argument 4177 linkParen(FICL_VM *pVM) argument 4186 unlinkParen(FICL_VM *pVM) argument 4199 getLocalParen(FICL_VM *pVM) argument 4207 toLocalParen(FICL_VM *pVM) argument 4215 getLocal0(FICL_VM *pVM) argument 4222 toLocal0(FICL_VM *pVM) argument 4229 getLocal1(FICL_VM *pVM) argument 4236 toLocal1(FICL_VM *pVM) argument 4251 doLocalIm(FICL_VM *pVM) argument 4304 localParen(FICL_VM *pVM) argument 4357 get2LocalParen(FICL_VM *pVM) argument 4366 do2LocalIm(FICL_VM *pVM) argument 4385 to2LocalParen(FICL_VM *pVM) argument 4394 twoLocalParen(FICL_VM *pVM) argument 4449 compareInternal(FICL_VM *pVM, int caseInsensitive) argument 4487 compareString(FICL_VM *pVM) argument 4493 compareStringInsensitive(FICL_VM *pVM) argument 4505 pad(FICL_VM *pVM) argument 4522 sourceid(FICL_VM *pVM) argument 4542 refill(FICL_VM *pVM) argument 4574 ficlCatch(FICL_VM *pVM) argument 4672 ficlThrow(FICL_VM *pVM) argument 4687 ansAllocate(FICL_VM *pVM) argument 4706 ansFree(FICL_VM *pVM) argument 4720 ansResize(FICL_VM *pVM) argument 4745 ficlExitInner(FICL_VM *pVM) argument 4756 dnegate(FICL_VM *pVM) argument 4835 ficlRandom(FICL_VM *pVM) argument 4845 ficlSeedRandom(FICL_VM *pVM) argument [all...] |
H A D | vm.c | 70 void vmBranchRelative(FICL_VM *pVM, int offset) argument 72 pVM->ip += offset; 79 ** Creates a virtual machine either from scratch (if pVM is NULL on entry) 83 FICL_VM *vmCreate(FICL_VM *pVM, unsigned nPStack, unsigned nRStack) argument 85 if (pVM == NULL) 87 pVM = (FICL_VM *)ficlMalloc(sizeof (FICL_VM)); 88 assert (pVM); 89 memset(pVM, 0, sizeof (FICL_VM)); 92 if (pVM->pStack) 93 stackDelete(pVM 118 vmDelete(FICL_VM *pVM) argument 141 vmExecute(FICL_VM *pVM, FICL_WORD *pWord) argument 161 vmInnerLoop(FICL_VM *pVM) argument 254 vmGetDict(FICL_VM *pVM) argument 269 vmGetString(FICL_VM *pVM, FICL_STRING *spDest, char delimiter) argument 291 vmGetWord(FICL_VM *pVM) argument 313 vmGetWord0(FICL_VM *pVM) argument 360 vmGetWordToPad(FICL_VM *pVM) argument 385 vmParseString(FICL_VM *pVM, char delim) argument 390 vmParseStringEx(FICL_VM *pVM, char delim, char fSkipLeading) argument 428 vmPop(FICL_VM *pVM) argument 438 vmPush(FICL_VM *pVM, CELL c) argument 449 vmPopIP(FICL_VM *pVM) argument 460 vmPushIP(FICL_VM *pVM, IPTYPE newIP) argument 472 vmPushTib(FICL_VM *pVM, char *text, FICL_INT nChars, TIB *pSaveTib) argument 485 vmPopTib(FICL_VM *pVM, TIB *pTib) argument 499 vmQuit(FICL_VM *pVM) argument 519 vmReset(FICL_VM *pVM) argument 536 vmSetTextOut(FICL_VM *pVM, OUTFUNC textOut) argument 551 vmTextOut(FICL_VM *pVM, char *text, int fNewline) argument 565 vmThrow(FICL_VM *pVM, int except) argument 572 vmThrowErr(FICL_VM *pVM, char *fmt, ...) argument [all...] |
H A D | float.c | 59 static void Fadd(FICL_VM *pVM) argument 64 vmCheckFStack(pVM, 2, 1); 76 static void Fsub(FICL_VM *pVM) argument 81 vmCheckFStack(pVM, 2, 1); 93 static void Fmul(FICL_VM *pVM) argument 98 vmCheckFStack(pVM, 2, 1); 110 static void Fnegate(FICL_VM *pVM) argument 115 vmCheckFStack(pVM, 1, 1); 126 static void Fdiv(FICL_VM *pVM) argument 131 vmCheckFStack(pVM, 143 Faddi(FICL_VM *pVM) argument 161 Fsubi(FICL_VM *pVM) argument 179 Fmuli(FICL_VM *pVM) argument 197 Fdivi(FICL_VM *pVM) argument 215 isubf(FICL_VM *pVM) argument 233 idivf(FICL_VM *pVM) argument 251 itof(FICL_VM *pVM) argument 268 Ftoi(FICL_VM *pVM) argument 284 FconstantParen(FICL_VM *pVM) argument 299 Fconstant(FICL_VM *pVM) argument 316 FDot(FICL_VM *pVM) argument 333 EDot(FICL_VM *pVM) argument 351 displayFStack(FICL_VM *pVM) argument 383 Fdepth(FICL_VM *pVM) argument 399 Fdrop(FICL_VM *pVM) argument 412 FtwoDrop(FICL_VM *pVM) argument 425 Fdup(FICL_VM *pVM) argument 438 FtwoDup(FICL_VM *pVM) argument 452 Fover(FICL_VM *pVM) argument 465 FtwoOver(FICL_VM *pVM) argument 479 Fpick(FICL_VM *pVM) argument 494 FquestionDup(FICL_VM *pVM) argument 511 Froll(FICL_VM *pVM) argument 527 FminusRoll(FICL_VM *pVM) argument 543 Frot(FICL_VM *pVM) argument 556 Fminusrot(FICL_VM *pVM) argument 569 Fswap(FICL_VM *pVM) argument 582 FtwoSwap(FICL_VM *pVM) argument 596 Ffetch(FICL_VM *pVM) argument 613 Fstore(FICL_VM *pVM) argument 630 FplusStore(FICL_VM *pVM) argument 646 fliteralParen(FICL_VM *pVM) argument 659 fliteralIm(FICL_VM *pVM) argument 676 FzeroEquals(FICL_VM *pVM) argument 693 FzeroLess(FICL_VM *pVM) argument 710 FzeroGreater(FICL_VM *pVM) argument 727 FisEqual(FICL_VM *pVM) argument 745 FisLess(FICL_VM *pVM) argument 763 FisGreater(FICL_VM *pVM) argument 782 FFrom(FICL_VM *pVM) argument 796 ToF(FICL_VM *pVM) argument 834 ficlParseFloatNumber( FICL_VM *pVM, STRINGINFO si ) argument [all...] |
H A D | testmain.c | 57 static void ficlGetCWD(FICL_VM *pVM) argument 62 vmTextOut(pVM, cp, 1); 74 static void ficlChDir(FICL_VM *pVM) argument 76 FICL_STRING *pFS = (FICL_STRING *)pVM->pad; 77 vmGetString(pVM, pFS, '\n'); 83 vmTextOut(pVM, "Error: path not found", 1); 84 vmThrow(pVM, VM_QUIT); 89 vmTextOut(pVM, "Warning (chdir): nothing happened", 1); 102 static void ficlSystem(FICL_VM *pVM) argument 104 FICL_STRING *pFS = (FICL_STRING *)pVM 132 ficlLoad(FICL_VM *pVM) argument 213 spewHash(FICL_VM *pVM) argument 258 ficlBreak(FICL_VM *pVM) argument 264 ficlClock(FICL_VM *pVM) argument 271 clocksPerSec(FICL_VM *pVM) argument 278 execxt(FICL_VM *pVM) argument 312 FICL_VM *pVM; local [all...] |
H A D | fileaccess.c | 20 static void pushIor(FICL_VM *pVM, int success) argument 27 stackPushINT(pVM->pStack, ior); 32 static void ficlFopen(FICL_VM *pVM, char *writeMode) /* ( c-addr u fam -- fileid ior ) */ argument 34 int fam = stackPopINT(pVM->pStack); 35 int length = stackPopINT(pVM->pStack); 36 void *address = (void *)stackPopPtr(pVM->pStack); 49 stackPushPtr(pVM->pStack, NULL); 50 stackPushINT(pVM->pStack, EINVAL); 68 stackPushPtr(pVM->pStack, NULL); 74 stackPushPtr(pVM 90 ficlOpenFile(FICL_VM *pVM) argument 96 ficlCreateFile(FICL_VM *pVM) argument 109 ficlCloseFile(FICL_VM *pVM) argument 115 ficlDeleteFile(FICL_VM *pVM) argument 127 ficlRenameFile(FICL_VM *pVM) argument 150 ficlFileStatus(FICL_VM *pVM) argument 179 ficlFilePosition(FICL_VM *pVM) argument 200 ficlFileSize(FICL_VM *pVM) argument 211 ficlIncludeFile(FICL_VM *pVM) argument 282 ficlReadFile(FICL_VM *pVM) argument 298 ficlReadLine(FICL_VM *pVM) argument 339 ficlWriteFile(FICL_VM *pVM) argument 352 ficlWriteLine(FICL_VM *pVM) argument 366 ficlRepositionFile(FICL_VM *pVM) argument 376 ficlFlushFile(FICL_VM *pVM) argument 386 ficlResizeFile(FICL_VM *pVM) argument [all...] |
H A D | loader.c | 73 ficl_term_putimage(FICL_VM *pVM) argument 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, "Erro 124 ficl_fb_putimage(FICL_VM *pVM) argument 163 ficl_fb_setpixel(FICL_VM *pVM) argument 177 ficl_fb_line(FICL_VM *pVM) argument 194 ficl_fb_bezier(FICL_VM *pVM) argument 213 ficl_fb_drawrect(FICL_VM *pVM) argument 230 ficl_term_drawrect(FICL_VM *pVM) argument 247 ficlSetenv(FICL_VM *pVM) argument 284 ficlSetenvq(FICL_VM *pVM) argument 322 ficlGetenv(FICL_VM *pVM) argument 357 ficlUnsetenv(FICL_VM *pVM) argument 386 ficlCopyin(FICL_VM *pVM) argument 408 ficlCopyout(FICL_VM *pVM) argument 430 ficlFindfile(FICL_VM *pVM) argument 476 ficlIsvirtualizedQ(FICL_VM *pVM) argument 495 ficlCcall(FICL_VM *pVM) argument 524 ficlUuidFromString(FICL_VM *pVM) argument 566 ficlUuidToString(FICL_VM *pVM) argument 599 ficlExecFD(FICL_VM *pVM, int fd) argument 640 displayCellNoPad(FICL_VM *pVM) argument 656 isdirQuestion(FICL_VM *pVM) argument 684 pfopen(FICL_VM *pVM) argument 735 pfclose(FICL_VM *pVM) argument 752 pfread(FICL_VM *pVM) argument 774 pfreaddir(FICL_VM *pVM) argument 847 pfload(FICL_VM *pVM) argument 864 pfwrite(FICL_VM *pVM) argument 886 pfseek(FICL_VM *pVM) argument 904 key(FICL_VM *pVM) argument 917 keyQuestion(FICL_VM *pVM) argument 941 pseconds(FICL_VM *pVM) argument 955 ms(FICL_VM *pVM) argument 972 fkey(FICL_VM *pVM) argument 991 freeHeap(FICL_VM *pVM) argument 999 ficlDictThreshold(FICL_VM *pVM) argument 1004 ficlDictIncrease(FICL_VM *pVM) argument [all...] |
H A D | search.c | 58 static void definitions(FICL_VM *pVM) argument 60 FICL_DICT *pDict = vmGetDict(pVM); 65 vmThrowErr(pVM, "DEFINITIONS error - empty search order"); 80 static void forthWordlist(FICL_VM *pVM) argument 82 FICL_HASH *pHash = vmGetDict(pVM)->pForthWords; 83 stackPushPtr(pVM->pStack, pHash); 93 static void getCurrent(FICL_VM *pVM) argument 96 stackPushPtr(pVM->pStack, vmGetDict(pVM)->pCompile); 110 static void getOrder(FICL_VM *pVM) argument 136 searchWordlist(FICL_VM *pVM) argument 170 setCurrent(FICL_VM *pVM) argument 192 setOrder(FICL_VM *pVM) argument 238 ficlWordlist(FICL_VM *pVM) argument 259 searchPop(FICL_VM *pVM) argument 281 searchPush(FICL_VM *pVM) argument 301 widGetName(FICL_VM *pVM) argument 320 widSetName(FICL_VM *pVM) argument 336 setParentWid(FICL_VM *pVM) argument [all...] |
H A D | prefix.c | 73 int ficlParsePrefix(FICL_VM *pVM, STRINGINFO si) argument 77 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); 104 vmSetTibIndex(pVM, si.cp + n - pVM->tib.cp ); 105 vmExecute(pVM, pFW); 117 static void tempBase(FICL_VM *pVM, int base) argument 119 int oldbase = pVM->base; 120 STRINGINFO si = vmGetWord0(pVM); 122 pVM->base = base; 123 if (!ficlParseNumber(pVM, s 133 fTempBase(FICL_VM *pVM) argument 140 prefixHex(FICL_VM *pVM) argument 145 prefixTen(FICL_VM *pVM) argument [all...] |
H A D | ficl.h | 153 ** - Eliminate the need to pass the pVM parameter on the stack 400 #define PUSHPTR(p) stackPushPtr(pVM->pStack,p) 401 #define PUSHUNS(u) stackPushUNS(pVM->pStack,u) 402 #define PUSHINT(i) stackPushINT(pVM->pStack,i) 403 #define PUSHFLOAT(f) stackPushFloat(pVM->fStack,f) 404 #define PUSH(c) stackPush(pVM->pStack,c) 405 #define POPPTR() stackPopPtr(pVM->pStack) 406 #define POPUNS() stackPopUNS(pVM->pStack) 407 #define POPINT() stackPopINT(pVM->pStack) 408 #define POPFLOAT() stackPopFloat(pVM [all...] |
H A D | ficl.c | 228 void ficlListParseSteps(FICL_VM *pVM) argument 231 FICL_SYSTEM *pSys = pVM->pSys; 234 vmTextOut(pVM, "Parse steps:", 1); 235 vmTextOut(pVM, "lookup", 1); 241 vmTextOut(pVM, pSys->parseList[i]->name, 1); 256 FICL_VM *pVM = vmCreate(NULL, defaultStack, defaultStack); local 257 pVM->link = pSys->vmList; 258 pVM->pSys = pSys; 259 pVM->pExtend = pSys->pExtend; 260 vmSetTextOut(pVM, pSy 274 ficlFreeVM(FICL_VM *pVM) argument 334 ficlEvaluate(FICL_VM *pVM, char *pText) argument 363 ficlExec(FICL_VM *pVM, char *pText) argument 368 ficlExecC(FICL_VM *pVM, char *pText, FICL_INT size) argument 477 ficlExecXT(FICL_VM *pVM, FICL_WORD *pWord) argument 675 FICL_VM *pVM = pSys->vmList; local [all...] |
H A D | stack.c | 73 void vmCheckStack(FICL_VM *pVM, int popCells, int pushCells) argument 75 FICL_STACK *pStack = pVM->pStack; 80 vmThrowErr(pVM, "Error: stack underflow"); 85 vmThrowErr(pVM, "Error: stack overflow"); 92 void vmCheckFStack(FICL_VM *pVM, int popCells, int pushCells) argument 94 FICL_STACK *fStack = pVM->fStack; 99 vmThrowErr(pVM, "Error: float stack underflow"); 104 vmThrowErr(pVM, "Error: float stack overflow");
|
H A D | dict.c | 309 void dictCheck(FICL_DICT *pDict, FICL_VM *pVM, int n) argument 313 vmThrowErr(pVM, "Error: dictionary full"); 318 vmThrowErr(pVM, "Error: dictionary underflow"); 324 vmThrowErr(pVM, "Error: search order overflow"); 329 vmThrowErr(pVM, "Error: search order underflow"); 476 void dictHashSummary(FICL_VM *pVM) argument 478 FICL_DICT *dp = vmGetDict(pVM); 491 dictCheck(dp, pVM, 0); 527 sprintf(pVM->pad, 535 ficlTextOut(pVM, pV [all...] |
/freebsd-13-stable/stand/ficl/x86/ |
H A D | sysdep.c | 11 ficlOutb(FICL_VM *pVM) argument 16 port=stackPopUNS(pVM->pStack); 17 c=(u_char)stackPopINT(pVM->pStack); 26 ficlInb(FICL_VM *pVM) argument 31 port=stackPopUNS(pVM->pStack); 33 stackPushINT(pVM->pStack,c);
|
/freebsd-13-stable/stand/ficl/aarch64/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|
H A D | sysdep.h | 376 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd-13-stable/stand/ficl/amd64/ |
H A D | sysdep.c | 55 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 57 IGNORE(pVM);
|
H A D | sysdep.h | 388 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd-13-stable/stand/ficl/arm/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|
H A D | sysdep.h | 387 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd-13-stable/stand/ficl/i386/ |
H A D | sysdep.c | 55 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 57 IGNORE(pVM);
|
/freebsd-13-stable/stand/ficl/mips/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|
/freebsd-13-stable/stand/ficl/mips64/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|
/freebsd-13-stable/stand/ficl/powerpc/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|
/freebsd-13-stable/stand/ficl/riscv/ |
H A D | sysdep.c | 53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) argument 55 IGNORE(pVM);
|