Lines Matching refs:token_t
45 token_t bi_ptr;
50 struct bitab *lookup_builtin(token_t);
157 if ((acf_t)_ALIGN(acf, token_t) != acf) {
162 if (*acf != (token_t)(&do_colon)) {
197 order_to_dict_list(fcode_env_t *env, token_t *order[])
209 for (j = 0; j < norder && order[j] != (token_t *)&env->forth_voc_link;
213 order[norder++] = (token_t *)&env->forth_voc_link;
222 token_t *order[MAX_ORDER+1];
224 token_t *dptr;
229 for (dptr = (token_t *)(*dptr); dptr;
230 dptr = (token_t *)(*dptr))
247 get_name_or_acf(token_t *dptr)
260 token_t *dptr;
285 token_t *dptr;
400 token_t debug_low[MAX_DEBUG_STACK], debug_high[MAX_DEBUG_STACK];
412 token_t
416 if (*acf == (token_t)(&semi_ptr))
417 return ((token_t)acf);
429 debug_low[top] = (token_t)WA;
430 if (*WA == (token_t)(&do_colon)) {
450 } else if ((token_t)IP >= debug_low[top] &&
451 (token_t)IP <= debug_high[top]) {
465 if ((token_t)(IP - 1) == debug_high[top]) {
499 token_t *link;
568 token_t *dptr;
605 if (*(env->table[i].apf) != (token_t)(&f_error)) {
871 if ((bip = lookup_builtin((token_t)acf)) != NULL)
890 if (*acf == (token_t)(&do_colon)) {
894 } while (*acf++ != (token_t)(&semi_ptr));
910 if ((acf_t)_ALIGN(acf, token_t) == acf && within_dictionary(env, acf)) {
912 if (*nacf == (token_t)(&do_colon) ||
913 *nacf == (token_t)(&semi_ptr))
915 if (nacf >= (acf_t)env->base && *nacf == (token_t)(&do_colon) &&
1107 (token_t)("e_ptr), "\"", BI_QUOTE,
1108 (token_t)(&blit_ptr), "blit", BI_BLIT,
1109 (token_t)(&do_bdo_ptr), "do", BI_BDO,
1110 (token_t)(&do_bqdo_ptr), "?do", BI_QDO,
1111 (token_t)(&bbranch_ptrs[0]), "br", BI_BR,
1112 (token_t)(&bbranch_ptrs[1]), "qbr", BI_QBR,
1113 (token_t)(&bbranch_ptrs[2]), "bof", BI_BOF,
1114 (token_t)(&do_loop_ptr), "loop", BI_LOOP,
1115 (token_t)(&do_ploop_ptr), "+loop", BI_PLOOP,
1116 (token_t)(&to_ptr), "to", BI_NOOP,
1117 (token_t)(&semi_ptr), ";", BI_SEMI,
1118 (token_t)(&do_colon), ":", BI_COLON,
1119 (token_t)(&tlit_ptr), "[']", BI_NOOP,
1120 (token_t)(&do_leave_ptr), "leave", BI_NOTYET,
1121 (token_t)(&create_ptr), "create", BI_NOTYET,
1122 (token_t)(&does_ptr), "does>", BI_NOTYET,
1123 (token_t)(&value_defines[0][0]), "a.@", BI_NOTYET,
1124 (token_t)(&value_defines[0][1]), "a.!", BI_NOTYET,
1125 (token_t)(&value_defines[0][2]), "a.nop", BI_NOTYET,
1126 (token_t)(&value_defines[1][0]), "a.i@", BI_NOTYET,
1127 (token_t)(&value_defines[1][1]), "a.i!", BI_NOTYET,
1128 (token_t)(&value_defines[1][2]), "a.iad", BI_NOTYET,
1129 (token_t)(&value_defines[2][0]), "a.defer", BI_NOTYET,
1130 (token_t)(&value_defines[2][1]), "a.@", BI_NOTYET,
1131 (token_t)(&value_defines[2][2]), "a.nop", BI_NOTYET,
1132 (token_t)(&value_defines[3][0]), "a.defexec", BI_NOTYET,
1133 (token_t)(&value_defines[3][1]), "a.iset", BI_NOTYET,
1134 (token_t)(&value_defines[3][2]), "a.iad", BI_NOTYET,
1135 (token_t)(&value_defines[4][0]), "a.binit", BI_NOTYET,
1136 (token_t)(&value_defines[4][1]), "a.2drop", BI_NOTYET,
1137 (token_t)(&value_defines[4][2]), "a.nop", BI_NOTYET,
1138 (token_t)(&value_defines[5][0]), "a.ibinit", BI_NOTYET,
1139 (token_t)(&value_defines[5][1]), "a.2drop", BI_NOTYET,
1140 (token_t)(&value_defines[5][2]), "a.iad", BI_NOTYET,
1145 lookup_builtin(token_t builtin)
1161 token_t brtab[30], thentab[30], brstk[30];
1166 token_t last_lit = 0, case_lit = 0, endof_loc = 0, endcase_loc = 0;
1170 if (bip = lookup_builtin((token_t)acf))
1184 thentab[nthentab-1] == (token_t)acf;
1196 if ((token_t)acf == brtab[i]) {
1203 if (case_lit == (token_t)acf) {
1208 if (endof_loc == (token_t)acf) {
1213 if (endcase_loc == (token_t)acf) {
1219 if ((bip = lookup_builtin((token_t)*acf)) == 0) {
1220 last_lit = (token_t)acf;
1252 for (; ((token_t)(p)) & (sizeof (token_t) - 1);
1279 if (*acf < (token_t)acf) {
1300 if (*acf < (token_t)acf) {
1302 brtab[nbrtab++] = (token_t)acf;
1314 if (*acf < (token_t)acf) {
1340 } else if (*acf < (token_t)acf) {
1342 brtab[nbrtab++] = (token_t)acf;
1395 token_t *dptr = ACF_TO_LINK(acf);
1396 token_t *wptr = acf;
1398 if (*wptr == (token_t)(&do_colon)) {
1402 } while (*wptr++ != (token_t)(&semi_ptr));
1405 else if (wptr == (token_t *)cacf)