Cross Reference: /illumos-gate/usr/src/lib/efcode/engine/fcode.c

Lines Matching defs:token
54 	ushort_t token = next_bytecode(env);
55 	if ((token) && (token < 0x10)) {
56 		token = (token << 8) | next_bytecode(env);
58 	env->last_fcode = token;
59 	return (token);
97 do_code(fcode_env_t *env, int token, char *name, void (*fn)(fcode_env_t *))
99 	env->table[token].name = name;
101 		env->table[token].apf = NULL;
102 		env->table[token].name = name;
105 		env->table[token].apf = (acf_t)HERE;
316 	int len, count, token;
332 	token = get_short(env);
333 	env->last_token = token;
335 	debug_msg(DEBUG_NEW_TOKEN, "Define %s token: '%s' (%x)\n",
336 	    (visible ? "named" : "headerless"), namebuff, token);
339 	env->table[token].flags = 0;
341 		env->table[token].name = MALLOC(len+1);
342 		strncpy(env->table[token].name, namebuff, len);
344 		env->table[token].name = NULL;
346 	env->last_token = token;
516 		int token;
526 		token = get_next_token(env);
528 		entry = &env->table[token];
537 		    env->last_fcode_ptr - env->fcode_buffer, token,
568 	int token = get_next_token(env);
570 	PUSH(DS, (fstack_t)env->table[token].apf);
611 get_token_name(fcode_env_t *env, int token, char **name, int *len)
613 	*name = env->table[token].name;
708 	CHECK_DEPTH(env, 1, "get-token");
723 	CHECK_DEPTH(env, 3, "set-token");
882 	log_message(MSG_ERROR, "Uniplemented FCODE token encountered %x\n",
885 	forth_abort(env, "Unimplemented FCODE token: 0x%x\n", env->last_fcode);
932 	FCODE(0x0b3, 0,		"set-token-table",	fc_historical);
934 	P1275(0x0b5, 0,		"new-token",		new_token);
935 	P1275(0x0b6, 0,		"named-token",		named_token);
953 	P1275(0x0ca, 0,		"external-token",	external_token);
957 	P1275(0x0da, 0,		"get-token",		get_token);
958 	P1275(0x0db, 0,		"set-token",		set_token);