Home
last modified time | relevance | path

Searched refs:pFW (Results 1 – 10 of 10) sorted by relevance

/freebsd-11-stable/stand/ficl/
HDdict.c84 FICL_WORD *pFW; in dictAbortDefinition() local
86 pFW = pDict->smudge; in dictAbortDefinition()
88 if (pFW->flags & FW_SMUDGE) in dictAbortDefinition()
89 pDict->here = (CELL *)pFW->name; in dictAbortDefinition()
241 FICL_WORD *pFW; in dictAppendWord2() local
250 pFW = (FICL_WORD *)pDict->here; in dictAppendWord2()
251 pDict->smudge = pFW; in dictAppendWord2()
252 pFW->hash = hashHashCode(si); in dictAppendWord2()
253 pFW->code = pCode; in dictAppendWord2()
254 pFW->flags = (UNS8)(flags | FW_SMUDGE); in dictAppendWord2()
[all …]
HDtools.c113 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW) in isAFiclWord() argument
116 if (!dictIncludes(pd, pFW)) in isAFiclWord()
119 if (!dictIncludes(pd, pFW->name)) in isAFiclWord()
122 if ((pFW->link != NULL) && !dictIncludes(pd, pFW->link)) in isAFiclWord()
125 if ((pFW->nName <= 0) || (pFW->name[pFW->nName] != '\0')) in isAFiclWord()
128 if (strlen(pFW->name) != pFW->nName) in isAFiclWord()
136 static int isPrimitive(FICL_WORD *pFW)
138 WORDKIND wk = ficlWordClassify(pFW);
156 FICL_WORD *pFW; in findEnclosingWord() local
165 pFW = (FICL_WORD *)(cp + 1 - (sizeof (FICL_WORD) / sizeof (CELL))); in findEnclosingWord()
[all …]
HDprefix.c77 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); in ficlParsePrefix() local
83 if (!pFW) in ficlParsePrefix()
86 pHash = (FICL_HASH *)(pFW->param[0].p); in ficlParsePrefix()
92 pFW = pHash->table[i]; in ficlParsePrefix()
93 while (pFW != NULL) in ficlParsePrefix()
96 n = pFW->nName; in ficlParsePrefix()
101 if (!strincmp(SI_PTR(si), pFW->name, (FICL_UNS)n)) in ficlParsePrefix()
105 vmExecute(pVM, pFW); in ficlParsePrefix()
109 pFW = pFW->link; in ficlParsePrefix()
164 FICL_WORD *pFW; in ficlCompilePrefix() local
[all …]
HDtestmain.c216 FICL_WORD *pFW; in spewHash() local
235 pFW = pHash->table[i]; in spewHash()
236 while (pFW) in spewHash()
239 pFW = pFW->link; in spewHash()
244 pFW = pHash->table[i]; in spewHash()
245 while (pFW) in spewHash()
247 fprintf(pOut, "\t%s", pFW->name); in spewHash()
248 pFW = pFW->link; in spewHash()
280 FICL_WORD *pFW; in execxt() local
285 pFW = stackPopPtr(pVM->pStack); in execxt()
[all …]
HDficl.c194 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW) in ficlAddParseStep() argument
201 pSys->parseList[i] = pFW; in ficlAddParseStep()
219 FICL_WORD *pFW = dictAppendWord(dp, name, parseStepParen, FW_DEFAULT); in ficlAddPrecompiledParseStep() local
221 ficlAddParseStep(pSys, pFW); in ficlAddPrecompiledParseStep()
579 FICL_WORD *pFW; in ficlSetEnv() local
583 pFW = dictLookup(envp, si); in ficlSetEnv()
585 if (pFW == NULL) in ficlSetEnv()
592 pFW->param[0] = LVALUEtoCELL(value); in ficlSetEnv()
600 FICL_WORD *pFW; in ficlSetEnvD() local
604 pFW = dictLookup(envp, si); in ficlSetEnvD()
[all …]
HDwords.c581 FICL_WORD *pFW = pVM->runningWord; in constantParen() local
585 stackPush(pVM->pStack, pFW->param[0]); in constantParen()
591 FICL_WORD *pFW = pVM->runningWord; in twoConstParen() local
595 stackPush(pVM->pStack, pFW->param[0]); /* lo */ in twoConstParen()
596 stackPush(pVM->pStack, pFW->param[1]); /* hi */ in twoConstParen()
1630 FICL_WORD *pFW = pSys->parseList[i]; in interpret() local
1632 if (pFW == NULL) in interpret()
1635 if (pFW->code == parseStepParen) in interpret()
1638 pStep = (FICL_PARSE_STEP)(pFW->param->fn); in interpret()
1646 ficlExecXT(pVM, pFW); in interpret()
[all …]
HDsearch.c140 FICL_WORD *pFW; in searchWordlist() local
148 pFW = hashLookup(pHash, si, hashCode); in searchWordlist()
151 if (pFW) in searchWordlist()
153 stackPushPtr(pVM->pStack, pFW); in searchWordlist()
154 stackPushINT(pVM->pStack, (wordIsImmediate(pFW) ? 1 : -1)); in searchWordlist()
HDvm.c587 int wordIsImmediate(FICL_WORD *pFW) in wordIsImmediate() argument
589 return ((pFW != NULL) && (pFW->flags & FW_IMMEDIATE)); in wordIsImmediate()
597 int wordIsCompileOnly(FICL_WORD *pFW) in wordIsCompileOnly() argument
599 return ((pFW != NULL) && (pFW->flags & FW_COMPILE)); in wordIsCompileOnly()
HDficl.h545 int wordIsImmediate(FICL_WORD *pFW);
546 int wordIsCompileOnly(FICL_WORD *pFW);
694 void hashInsertWord(FICL_HASH *pHash, FICL_WORD *pFW);
810 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */
1076 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW);
1104 WORDKIND ficlWordClassify(FICL_WORD *pFW);
HDfloat.c286 FICL_WORD *pFW = pVM->runningWord; in FconstantParen() local
292 PUSHFLOAT(pFW->param[0].f); in FconstantParen()