/freebsd-current/stand/ficl/ |
H A D | ficl.c | 82 static void ficlSetVersionEnv(FICL_SYSTEM *pSys); 100 FICL_SYSTEM *pSys = ficlMalloc(sizeof (FICL_SYSTEM)); local 102 assert(pSys); 105 memset(pSys, 0, sizeof (FICL_SYSTEM)); 115 pSys->dp = dictCreateHashed((unsigned)nDictCells, HASHSIZE); 116 pSys->dp->pForthWords->name = "forth-wordlist"; 118 pSys->envp = dictCreate((unsigned)nEnvCells); 119 pSys->envp->pForthWords->name = "environment"; 121 pSys->textOut = fsi->textOut; 122 pSys 193 ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW) argument 215 ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep) argument 230 FICL_SYSTEM *pSys = pVM->pSys; local 253 ficlNewVM(FICL_SYSTEM *pSys) argument 275 FICL_SYSTEM *pSys = pVM->pSys; local 314 ficlBuild(FICL_SYSTEM *pSys, char *name, FICL_CODE code, char flags) argument 369 FICL_SYSTEM *pSys = pVM->pSys; local 542 ficlLookup(FICL_SYSTEM *pSys, char *name) argument 554 ficlGetDict(FICL_SYSTEM *pSys) argument 564 ficlGetEnv(FICL_SYSTEM *pSys) argument 575 ficlSetEnv(FICL_SYSTEM *pSys, char *name, FICL_UNS value) argument 597 ficlSetEnvD(FICL_SYSTEM *pSys, char *name, FICL_UNS hi, FICL_UNS lo) argument 627 ficlGetLoc(FICL_SYSTEM *pSys) argument 656 ficlTermSystem(FICL_SYSTEM *pSys) argument 689 ficlSetVersionEnv(FICL_SYSTEM *pSys) argument [all...] |
H A D | testmain.c | 291 void buildTestInterface(FICL_SYSTEM *pSys) argument 293 ficlBuild(pSys, "break", ficlBreak, FW_DEFAULT); 294 ficlBuild(pSys, "clock", ficlClock, FW_DEFAULT); 295 ficlBuild(pSys, "cd", ficlChDir, FW_DEFAULT); 296 ficlBuild(pSys, "execxt", execxt, FW_DEFAULT); 297 ficlBuild(pSys, "load", ficlLoad, FW_DEFAULT); 298 ficlBuild(pSys, "pwd", ficlGetCWD, FW_DEFAULT); 299 ficlBuild(pSys, "system", ficlSystem, FW_DEFAULT); 300 ficlBuild(pSys, "spewhash", spewHash, FW_DEFAULT); 301 ficlBuild(pSys, "clock 312 FICL_SYSTEM *pSys; local [all...] |
H A D | words.c | 472 pVM->pSys->nLocals = 0; 518 assert(pVM->pSys->pSemiParen); 522 assert(pVM->pSys->pUnLinkParen); 523 if (pVM->pSys->nLocals > 0) 525 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); 527 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen)); 529 pVM->pSys->nLocals = 0; 532 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pSemiParen)); 557 assert(pVM->pSys->pExitParen); 561 if (pVM->pSys 1602 FICL_SYSTEM *pSys; local 4856 ficlCompileCore(FICL_SYSTEM *pSys) argument [all...] |
H A D | prefix.c | 76 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); 157 void ficlCompilePrefix(FICL_SYSTEM *pSys) argument 159 FICL_DICT *dp = pSys->dp; 189 pFW = ficlLookup(pSys, "\\");
|
H A D | ficl.h | 476 FICL_SYSTEM *pSys; /* Which system this VM belongs to */ member in struct:vm 771 FICL_WORD *ficlLookupLoc (FICL_SYSTEM *pSys, STRINGINFO si); 809 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */ 810 void ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep); 932 void ficlTermSystem(FICL_SYSTEM *pSys); 988 FICL_VM *ficlNewVM(FICL_SYSTEM *pSys); 1011 FICL_WORD *ficlLookup(FICL_SYSTEM *pSys, char *name); 1018 FICL_DICT *ficlGetDict(FICL_SYSTEM *pSys); 1019 FICL_DICT *ficlGetEnv (FICL_SYSTEM *pSys); 1020 void ficlSetEnv (FICL_SYSTEM *pSys, cha [all...] |
H A D | tools.c | 86 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); 191 FICL_WORD *pSemiParen = ficlLookup(pVM->pSys, "(;)"); 397 vmSetBreak(pVM, &(pVM->pSys->bpStep)); 427 vmSetBreak(pVM, &(pVM->pSys->bpStep)); 444 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); 458 pVM->pSys->bpStep.address = pVM->ip + 1; 459 pVM->pSys->bpStep.origXT = pVM->ip[1]; 496 assert(pVM->pSys->bpStep.address); 497 assert(pVM->pSys->bpStep.origXT); 503 pVM->ip = (IPTYPE)(pVM->pSys 878 ficlCompileTools(FICL_SYSTEM *pSys) argument [all...] |
H A D | search.c | 354 void ficlCompileSearch(FICL_SYSTEM *pSys) argument 356 FICL_DICT *dp = pSys->dp; 382 ficlSetEnv(pSys, "search-order", FICL_TRUE); 383 ficlSetEnv(pSys, "search-order-ext", FICL_TRUE); 384 ficlSetEnv(pSys, "wordlists", FICL_DEFAULT_VOCS);
|
H A D | loader.c | 813 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys))); 833 void ficlCompilePlatform(FICL_SYSTEM *pSys) argument 836 FICL_DICT *dp = pSys->dp; 869 (*fnpp)(pSys); 872 ficlSetEnv(pSys, "arch-i386", FICL_TRUE); 873 ficlSetEnv(pSys, "arch-powerpc", FICL_FALSE); 875 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); 876 ficlSetEnv(pSys, "arch-powerpc", FICL_TRUE);
|
H A D | fileaccess.c | 399 void ficlCompileFile(FICL_SYSTEM *pSys) argument 402 FICL_DICT *dp = pSys->dp; 425 ficlSetEnv(pSys, "file", FICL_TRUE); 426 ficlSetEnv(pSys, "file-ext", FICL_TRUE); 429 (void)pSys;
|
H A D | float.c | 661 FICL_WORD *pfLitParen = ficlLookup(pVM->pSys, "(fliteral)"); 989 ** pSys -- Pointer to the FICL sytem to add float words to. 991 void ficlCompileFloat(FICL_SYSTEM *pSys) argument 993 FICL_DICT *dp = pSys->dp; 1060 ficlSetEnv(pSys, "floating", FICL_FALSE); /* not all required words are present */ 1061 ficlSetEnv(pSys, "floating-ext", FICL_FALSE); 1062 ficlSetEnv(pSys, "floating-stack", FICL_DEFAULT_STACK);
|
H A D | gfx_loader.c | 238 static void ficlCompileGfx(FICL_SYSTEM *pSys) argument 241 FICL_DICT *dp = pSys->dp;
|
H A D | dict.c | 586 FICL_WORD *ficlLookupLoc(FICL_SYSTEM *pSys, STRINGINFO si) argument 589 FICL_DICT *pDict = pSys->dp; 590 FICL_HASH *pHash = ficlGetLoc(pSys)->pForthWords;
|
H A D | vm.c | 256 return pVM->pSys->dp;
|
/freebsd-current/stand/ficl/x86/ |
H A D | sysdep.c | 39 static void ficlCompileCpufunc(FICL_SYSTEM *pSys) argument 41 FICL_DICT *dp = pSys->dp;
|