stand/ficl/words.c

473     pVM->pSys->nLocals = 0;
519     assert(pVM->pSys->pSemiParen);
523     assert(pVM->pSys->pUnLinkParen);
524     if (pVM->pSys->nLocals > 0)
526         FICL_DICT *pLoc = ficlGetLoc(pVM->pSys);
528         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen));
530     pVM->pSys->nLocals = 0;
533     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pSemiParen));
558     assert(pVM->pSys->pExitParen);
562     if (pVM->pSys->nLocals > 0)
564         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen));
567     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pExitParen));
1280     assert(pVM->pSys->pBranch0);
1282     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0));
1308     assert(pVM->pSys->pBranchParen);
1310     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen));
1373     assert(pVM->pSys->pDrop);
1403     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDrop));
1450     assert(pVM->pSys->pBranch0);
1466     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pOfParen));
1496     assert(pVM->pSys->pBranchParen);
1508     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen));
1550     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen));
1603     FICL_SYSTEM *pSys;
1607     pSys = pVM->pSys;
1630         FICL_WORD *pFW = pSys->parseList[i];
1690     if (pVM->pSys->nLocals > 0)
1692         tempFW = ficlLookupLoc(pVM->pSys, si);
1778         ficlAddParseStep(pVM->pSys, pStep);
1825     assert(pVM->pSys->pLitParen);
1827     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pLitParen));
1837     assert(pVM->pSys->pTwoLitParen);
1839     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pTwoLitParen));
2022     assert(pVM->pSys->pDoParen);
2024     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDoParen));
2062     assert(pVM->pSys->pQDoParen);
2064     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pQDoParen));
2132     assert(pVM->pSys->pLoopParen);
2134     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pLoopParen));
2145     assert(pVM->pSys->pPLoopParen);
2147     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pPLoopParen));
2510     FICL_WORD *pComma = ficlLookup(pVM->pSys, ",");
2618         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pCStringLit));
2659     FICL_WORD *pType = ficlLookup(pVM->pSys, "type");
2661     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit));
2718     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit));
2812     assert(pVM->pSys->pUnLinkParen);
2813     if (pVM->pSys->nLocals > 0)
2815         FICL_DICT *pLoc = ficlGetLoc(pVM->pSys);
2817         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen));
2820     pVM->pSys->nLocals = 0;
2824     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDoesParen));
3237     assert(pVM->pSys->pBranch0);
3239     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0));
3248     assert(pVM->pSys->pBranch0);
3250     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0));
3261     assert(pVM->pSys->pBranchParen);
3262     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen));
3276     assert(pVM->pSys->pBranchParen);
3277     dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen));
3407     envp = pVM->pSys->envp;
3481         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit));
4129     if ((pVM->pSys->nLocals > 0) && (pVM->state == COMPILE))
4131         FICL_DICT *pLoc = ficlGetLoc(pVM->pSys);
4135             dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pToLocalParen));
4141             dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pTo2LocalParen));
4148     assert(pVM->pSys->pStore);
4163         dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStore));
4265             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocal0));
4269             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocal1));
4273             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocalParen));
4318         FICL_DICT *pLoc = ficlGetLoc(pVM->pSys);
4319         if (pVM->pSys->nLocals >= FICL_MAX_LOCALS)
4325         dictAppendCell(pLoc,  LVALUEtoCELL(pVM->pSys->nLocals));
4327         if (pVM->pSys->nLocals == 0)
4329             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pLinkParen));
4331             pVM->pSys->pMarkLocals = pDict->here;
4332             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals));
4334             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocal0));
4336         else if (pVM->pSys->nLocals == 1)
4338             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocal1));
4342             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocalParen));
4343             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals));
4346         (pVM->pSys->nLocals)++;
4348     else if (pVM->pSys->nLocals > 0)
4350         *(FICL_INT *)(pVM->pSys->pMarkLocals) = pVM->pSys->nLocals;
4378         dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGet2LocalParen));
4403         FICL_DICT *pLoc = ficlGetLoc(pVM->pSys);
4404         if (pVM->pSys->nLocals >= FICL_MAX_LOCALS)
4410         dictAppendCell(pLoc,  LVALUEtoCELL(pVM->pSys->nLocals));
4412         if (pVM->pSys->nLocals == 0)
4414             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pLinkParen));
4416             pVM->pSys->pMarkLocals = pDict->here;
4417             dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals));
4420         dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pTo2LocalParen));
4421         dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals));
4423         pVM->pSys->nLocals += 2;
4425     else if (pVM->pSys->nLocals > 0)
4427         *(FICL_INT *)(pVM->pSys->pMarkLocals) = pVM->pSys->nLocals;
4584     assert(pVM->pSys->pExitInner);
4631         vmPushIP(pVM, &(pVM->pSys->pExitInner));          /* Open mouth, insert emetic */
4857 void ficlCompileCore(FICL_SYSTEM *pSys)
4859     FICL_DICT *dp = pSys->dp;
4867     pSys->pStore =
4935     pSys->pDrop =
5034     ficlSetEnv(pSys, "/counted-string",   FICL_STRING_MAX);
5035     ficlSetEnv(pSys, "/hold",             nPAD);
5036     ficlSetEnv(pSys, "/pad",              nPAD);
5037     ficlSetEnv(pSys, "address-unit-bits", 8);
5038     ficlSetEnv(pSys, "core",              FICL_TRUE);
5039     ficlSetEnv(pSys, "core-ext",          FICL_FALSE);
5040     ficlSetEnv(pSys, "floored",           FICL_FALSE);
5041     ficlSetEnv(pSys, "max-char",          UCHAR_MAX);
5042     ficlSetEnvD(pSys,"max-d",             0x7fffffff, 0xffffffff);
5043     ficlSetEnv(pSys, "max-n",             0x7fffffff);
5044     ficlSetEnv(pSys, "max-u",             0xffffffff);
5045     ficlSetEnvD(pSys,"max-ud",            0xffffffff, 0xffffffff);
5046     ficlSetEnv(pSys, "return-stack-cells",FICL_DEFAULT_STACK);
5047     ficlSetEnv(pSys, "stack-cells",       FICL_DEFAULT_STACK);
5064     ficlSetEnv(pSys, "exception",         FICL_TRUE);
5065     ficlSetEnv(pSys, "exception-ext",     FICL_TRUE);
5072     pSys->pLinkParen =
5074     pSys->pUnLinkParen =
5077     pSys->pGetLocalParen =
5079     pSys->pToLocalParen =
5081     pSys->pGetLocal0 =
5083     pSys->pToLocal0 =
5085     pSys->pGetLocal1 =
5087     pSys->pToLocal1 =
5091     pSys->pGet2LocalParen =
5093     pSys->pTo2LocalParen =
5097     ficlSetEnv(pSys, "locals",            FICL_TRUE);
5098     ficlSetEnv(pSys, "locals-ext",        FICL_TRUE);
5099     ficlSetEnv(pSys, "#locals",           FICL_MAX_LOCALS);
5110     ficlSetEnv(pSys, "memory-alloc",      FICL_TRUE);
5115     ficlCompileSearch(pSys);
5120     ficlCompileTools(pSys);
5126     ficlCompileFile(pSys);
5173     pSys->pExitParen =
5175     pSys->pSemiParen =
5177     pSys->pLitParen =
5179     pSys->pTwoLitParen =
5181     pSys->pStringLit =
5183     pSys->pCStringLit =
5185     pSys->pBranch0 =
5187     pSys->pBranchParen =
5189     pSys->pDoParen =
5191     pSys->pDoesParen =
5193     pSys->pQDoParen =
5195     pSys->pLoopParen =
5197     pSys->pPLoopParen =
5199     pSys->pInterpret =
5202     pSys->pOfParen =
5208 	pSys->pExitInner =
5214     pSys->pInterp[0] = pSys->pInterpret;
5215     pSys->pInterp[1] = pSys->pBranchParen;
5216     pSys->pInterp[2] = (FICL_WORD *)(void *)(-2);