Home
last modified time | relevance | path

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

/freebsd/stand/ficl/
H A Ddict.c83 FICL_WORD *pFW; in dictAbortDefinition() local
85 pFW = pDict->smudge; in dictAbortDefinition()
87 if (pFW->flags & FW_SMUDGE) in dictAbortDefinition()
88 pDict->here = (CELL *)pFW->name; in dictAbortDefinition()
240 FICL_WORD *pFW; in dictAppendWord2() local
249 pFW = (FICL_WORD *)pDict->here; in dictAppendWord2()
250 pDict->smudge = pFW; in dictAppendWord2()
251 pFW->hash = hashHashCode(si); in dictAppendWord2()
252 pFW->code = pCode; in dictAppendWord2()
253 pFW->flags = (UNS8)(flags | FW_SMUDGE); in dictAppendWord2()
[all …]
H A Dtools.c112 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW) in isAFiclWord() argument
115 if (!dictIncludes(pd, pFW)) in isAFiclWord()
118 if (!dictIncludes(pd, pFW->name)) in isAFiclWord()
121 if ((pFW->link != NULL) && !dictIncludes(pd, pFW->link)) in isAFiclWord()
124 if ((pFW->nName <= 0) || (pFW->name[pFW->nName] != '\0')) in isAFiclWord()
127 if (strlen(pFW->name) != pFW->nName) in isAFiclWord()
135 static int isPrimitive(FICL_WORD *pFW)
137 WORDKIND wk = ficlWordClassify(pFW);
155 FICL_WORD *pFW; in findEnclosingWord() local
164 pFW = (FICL_WORD *)(cp + 1 - (sizeof (FICL_WORD) / sizeof (CELL))); in findEnclosingWord()
[all …]
H A Dprefix.c76 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); in ficlParsePrefix() local
82 if (!pFW) in ficlParsePrefix()
85 pHash = (FICL_HASH *)(pFW->param[0].p); in ficlParsePrefix()
91 pFW = pHash->table[i]; in ficlParsePrefix()
92 while (pFW != NULL) in ficlParsePrefix()
95 n = pFW->nName; in ficlParsePrefix()
100 if (!strincmp(SI_PTR(si), pFW->name, (FICL_UNS)n)) in ficlParsePrefix()
104 vmExecute(pVM, pFW); in ficlParsePrefix()
108 pFW = pFW->link; in ficlParsePrefix()
163 FICL_WORD *pFW; in ficlCompilePrefix() local
[all …]
H A Dtestmain.c215 FICL_WORD *pFW; in spewHash() local
234 pFW = pHash->table[i]; in spewHash()
235 while (pFW) in spewHash()
238 pFW = pFW->link; in spewHash()
243 pFW = pHash->table[i]; in spewHash()
244 while (pFW) in spewHash()
246 fprintf(pOut, "\t%s", pFW->name); in spewHash()
247 pFW = pFW->link; in spewHash()
279 FICL_WORD *pFW; in execxt() local
284 pFW = stackPopPtr(pVM->pStack); in execxt()
[all …]
H A Dficl.c193 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW) in ficlAddParseStep() argument
200 pSys->parseList[i] = pFW; in ficlAddParseStep()
218 FICL_WORD *pFW = dictAppendWord(dp, name, parseStepParen, FW_DEFAULT); in ficlAddPrecompiledParseStep() local
220 ficlAddParseStep(pSys, pFW); in ficlAddPrecompiledParseStep()
578 FICL_WORD *pFW; in ficlSetEnv() local
582 pFW = dictLookup(envp, si); in ficlSetEnv()
584 if (pFW == NULL) in ficlSetEnv()
591 pFW->param[0] = LVALUEtoCELL(value); in ficlSetEnv()
599 FICL_WORD *pFW; in ficlSetEnvD() local
603 pFW = dictLookup(envp, si); in ficlSetEnvD()
[all …]
H A Dwords.c580 FICL_WORD *pFW = pVM->runningWord; in constantParen() local
584 stackPush(pVM->pStack, pFW->param[0]); in constantParen()
590 FICL_WORD *pFW = pVM->runningWord; in twoConstParen() local
594 stackPush(pVM->pStack, pFW->param[0]); /* lo */ in twoConstParen()
595 stackPush(pVM->pStack, pFW->param[1]); /* hi */ in twoConstParen()
1629 FICL_WORD *pFW = pSys->parseList[i]; in interpret() local
1631 if (pFW == NULL) in interpret()
1634 if (pFW->code == parseStepParen) in interpret()
1637 pStep = (FICL_PARSE_STEP)(pFW->param->fn); in interpret()
1645 ficlExecXT(pVM, pFW); in interpret()
[all …]
H A Dsearch.c139 FICL_WORD *pFW; in searchWordlist() local
147 pFW = hashLookup(pHash, si, hashCode); in searchWordlist()
150 if (pFW) in searchWordlist()
152 stackPushPtr(pVM->pStack, pFW); in searchWordlist()
153 stackPushINT(pVM->pStack, (wordIsImmediate(pFW) ? 1 : -1)); in searchWordlist()
H A Dvm.c586 int wordIsImmediate(FICL_WORD *pFW) in wordIsImmediate() argument
588 return ((pFW != NULL) && (pFW->flags & FW_IMMEDIATE)); in wordIsImmediate()
596 int wordIsCompileOnly(FICL_WORD *pFW) in wordIsCompileOnly() argument
598 return ((pFW != NULL) && (pFW->flags & FW_COMPILE)); in wordIsCompileOnly()
H A Dficl.h544 int wordIsImmediate(FICL_WORD *pFW);
545 int wordIsCompileOnly(FICL_WORD *pFW);
693 void hashInsertWord(FICL_HASH *pHash, FICL_WORD *pFW);
809 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */
1075 int isAFiclWord(FICL_DICT *pd, FICL_WORD *pFW);
1103 WORDKIND ficlWordClassify(FICL_WORD *pFW);
H A Dfloat.c285 FICL_WORD *pFW = pVM->runningWord; in FconstantParen() local
291 PUSHFLOAT(pFW->param[0].f); in FconstantParen()