/freebsd-11-stable/stand/ficl/ |
H A D | ficl.c | 83 static void ficlSetVersionEnv(FICL_SYSTEM *pSys); 101 FICL_SYSTEM *pSys = ficlMalloc(sizeof (FICL_SYSTEM)); local 103 assert(pSys); 106 memset(pSys, 0, sizeof (FICL_SYSTEM)); 116 pSys->dp = dictCreateHashed((unsigned)nDictCells, HASHSIZE); 117 pSys->dp->pForthWords->name = "forth-wordlist"; 119 pSys->envp = dictCreate((unsigned)nEnvCells); 120 pSys->envp->pForthWords->name = "environment"; 122 pSys->textOut = fsi->textOut; 123 pSys 194 ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW) argument 216 ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep) argument 231 FICL_SYSTEM *pSys = pVM->pSys; local 254 ficlNewVM(FICL_SYSTEM *pSys) argument 276 FICL_SYSTEM *pSys = pVM->pSys; local 315 ficlBuild(FICL_SYSTEM *pSys, char *name, FICL_CODE code, char flags) argument 370 FICL_SYSTEM *pSys = pVM->pSys; local 543 ficlLookup(FICL_SYSTEM *pSys, char *name) argument 555 ficlGetDict(FICL_SYSTEM *pSys) argument 565 ficlGetEnv(FICL_SYSTEM *pSys) argument 576 ficlSetEnv(FICL_SYSTEM *pSys, char *name, FICL_UNS value) argument 598 ficlSetEnvD(FICL_SYSTEM *pSys, char *name, FICL_UNS hi, FICL_UNS lo) argument 628 ficlGetLoc(FICL_SYSTEM *pSys) argument 657 ficlTermSystem(FICL_SYSTEM *pSys) argument 690 ficlSetVersionEnv(FICL_SYSTEM *pSys) argument [all...] |
H A D | testmain.c | 292 void buildTestInterface(FICL_SYSTEM *pSys) argument 294 ficlBuild(pSys, "break", ficlBreak, FW_DEFAULT); 295 ficlBuild(pSys, "clock", ficlClock, FW_DEFAULT); 296 ficlBuild(pSys, "cd", ficlChDir, FW_DEFAULT); 297 ficlBuild(pSys, "execxt", execxt, FW_DEFAULT); 298 ficlBuild(pSys, "load", ficlLoad, FW_DEFAULT); 299 ficlBuild(pSys, "pwd", ficlGetCWD, FW_DEFAULT); 300 ficlBuild(pSys, "system", ficlSystem, FW_DEFAULT); 301 ficlBuild(pSys, "spewhash", spewHash, FW_DEFAULT); 302 ficlBuild(pSys, "clock 313 FICL_SYSTEM *pSys; local [all...] |
H A D | 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 1603 FICL_SYSTEM *pSys; local 4857 ficlCompileCore(FICL_SYSTEM *pSys) argument [all...] |
H A D | prefix.c | 77 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); 158 void ficlCompilePrefix(FICL_SYSTEM *pSys) argument 160 FICL_DICT *dp = pSys->dp; 190 pFW = ficlLookup(pSys, "\\");
|
H A D | ficl.h | 477 FICL_SYSTEM *pSys; /* Which system this VM belongs to */ member in struct:vm 772 FICL_WORD *ficlLookupLoc (FICL_SYSTEM *pSys, STRINGINFO si); 810 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */ 811 void ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep); 933 void ficlTermSystem(FICL_SYSTEM *pSys); 989 FICL_VM *ficlNewVM(FICL_SYSTEM *pSys); 1012 FICL_WORD *ficlLookup(FICL_SYSTEM *pSys, char *name); 1019 FICL_DICT *ficlGetDict(FICL_SYSTEM *pSys); 1020 FICL_DICT *ficlGetEnv (FICL_SYSTEM *pSys); 1021 void ficlSetEnv (FICL_SYSTEM *pSys, cha [all...] |
H A D | tools.c | 87 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); 192 FICL_WORD *pSemiParen = ficlLookup(pVM->pSys, "(;)"); 398 vmSetBreak(pVM, &(pVM->pSys->bpStep)); 428 vmSetBreak(pVM, &(pVM->pSys->bpStep)); 445 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); 459 pVM->pSys->bpStep.address = pVM->ip + 1; 460 pVM->pSys->bpStep.origXT = pVM->ip[1]; 497 assert(pVM->pSys->bpStep.address); 498 assert(pVM->pSys->bpStep.origXT); 504 pVM->ip = (IPTYPE)(pVM->pSys 879 ficlCompileTools(FICL_SYSTEM *pSys) argument [all...] |
H A D | search.c | 355 void ficlCompileSearch(FICL_SYSTEM *pSys) argument 357 FICL_DICT *dp = pSys->dp; 383 ficlSetEnv(pSys, "search-order", FICL_TRUE); 384 ficlSetEnv(pSys, "search-order-ext", FICL_TRUE); 385 ficlSetEnv(pSys, "wordlists", FICL_DEFAULT_VOCS);
|
H A D | loader.c | 772 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys))); 792 void ficlCompilePlatform(FICL_SYSTEM *pSys) argument 795 FICL_DICT *dp = pSys->dp; 828 (*fnpp)(pSys); 831 ficlSetEnv(pSys, "arch-pc98", FICL_TRUE); 833 ficlSetEnv(pSys, "arch-i386", FICL_TRUE); 834 ficlSetEnv(pSys, "arch-powerpc", FICL_FALSE); 836 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); 837 ficlSetEnv(pSys, "arch-powerpc", FICL_TRUE);
|
H A D | fileaccess.c | 393 void ficlCompileFile(FICL_SYSTEM *pSys) argument 396 FICL_DICT *dp = pSys->dp; 419 ficlSetEnv(pSys, "file", FICL_TRUE); 420 ficlSetEnv(pSys, "file-ext", FICL_TRUE); 423 (void)pSys;
|
H A D | float.c | 662 FICL_WORD *pfLitParen = ficlLookup(pVM->pSys, "(fliteral)"); 990 ** pSys -- Pointer to the FICL sytem to add float words to. 992 void ficlCompileFloat(FICL_SYSTEM *pSys) argument 994 FICL_DICT *dp = pSys->dp; 1061 ficlSetEnv(pSys, "floating", FICL_FALSE); /* not all required words are present */ 1062 ficlSetEnv(pSys, "floating-ext", FICL_FALSE); 1063 ficlSetEnv(pSys, "floating-stack", FICL_DEFAULT_STACK);
|
H A D | dict.c | 587 FICL_WORD *ficlLookupLoc(FICL_SYSTEM *pSys, STRINGINFO si) argument 590 FICL_DICT *pDict = pSys->dp; 591 FICL_HASH *pHash = ficlGetLoc(pSys)->pForthWords;
|
H A D | vm.c | 257 return pVM->pSys->dp;
|
/freebsd-11-stable/stand/ficl/i386/ |
H A D | sysdep.c | 118 static void ficlCompileCpufunc(FICL_SYSTEM *pSys) argument 120 FICL_DICT *dp = pSys->dp;
|