Lines Matching refs:env
42 value_fetch(fcode_env_t *env)
46 CHECK_DEPTH(env, 1, "value_fetch");
52 value_store(fcode_env_t *env)
56 CHECK_DEPTH(env, 1, "value_store");
62 get_internal_address(fcode_env_t *env)
66 CHECK_DEPTH(env, 1, "get_internal_address");
69 return ((uchar_t *)env + *ptr);
74 internal_env_fetch(fcode_env_t *env)
78 CHECK_DEPTH(env, 1, "internal_env_fetch");
79 iptr = (instance_t **)get_internal_address(env);
84 internal_env_store(fcode_env_t *env)
88 CHECK_DEPTH(env, 2, "internal_env_store");
89 iptr = (instance_t **)get_internal_address(env);
94 internal_env_addr(fcode_env_t *env)
98 CHECK_DEPTH(env, 1, "internal_env_addr");
99 d = (fstack_t)get_internal_address(env);
104 do_buffer_data(fcode_env_t *env, token_t *d, int instance)
113 buf = alloc_instance_data(env, UINIT_DATA, n, &off);
117 set_here(env, HERE + d[1], "do_buffer_data");
125 ibuffer_init(fcode_env_t *env)
129 d = get_instance_address(env);
130 do_buffer_data(env, d, 1);
134 buffer_init(fcode_env_t *env)
138 CHECK_DEPTH(env, 1, "buffer_init");
140 do_buffer_data(env, d, 0);
144 do_defer(fcode_env_t *env)
146 fetch(env);
147 execute(env);
166 run_action(fcode_env_t *env, acf_t acf, int action)
189 execute(env);
198 do_default_action(fcode_env_t *env)
202 CHECK_DEPTH(env, 1, "do_default_action");
204 (void) run_action(env, (a-1), 0);
208 do_set_action(fcode_env_t *env)
212 CHECK_DEPTH(env, 1, "do_set_action");
214 (void) run_action(env, a, 1);
218 action_colon(fcode_env_t *env)
220 token_roundup(env, "action_colon");
221 env->action_ptr[env->action_count] = (token_t)HERE;
223 env->action_count++;
224 env->state |= 1;
228 actions(fcode_env_t *env)
233 token_roundup(env, "actions");
238 env->num_actions = n;
239 env->action_count = 0;
240 env->action_ptr = d;
242 set_here(env, (uchar_t *)d, "actions");
246 install_actions(fcode_env_t *env, token_t *table)
251 dptr = (acf_t *)LINK_TO_ACF(env->lastlink);
258 use_actions(fcode_env_t *env)
260 if (env->state) {
263 install_actions(env, env->action_ptr);
268 perform_action(fcode_env_t *env)
273 CHECK_DEPTH(env, 2, "perform_action");
278 if (run_action(env, a, n)) {
279 system_message(env, "Bad Object action");
284 define_actions(fcode_env_t *env, int n, token_t *array)
289 actions(env);
293 action_colon(env);
295 env->state |= 8;
296 semi(env);
309 set_internal_value_actions(fcode_env_t *env)
312 install_actions(env, value_actions[2]);
316 set_value_actions(fcode_env_t *env, int which)
320 install_actions(env, value_actions[which]);
324 set_defer_actions(fcode_env_t *env, int which)
328 install_actions(env, value_actions[which+3]);
332 set_buffer_actions(fcode_env_t *env, int which)
336 install_actions(env, value_actions[which+5]);
342 do_get(fcode_env_t *env)
345 perform_action(env);
349 do_set(fcode_env_t *env)
352 perform_action(env);
356 do_addr(fcode_env_t *env)
359 perform_action(env);
363 dump_actions(fcode_env_t *env)
378 fcode_env_t *env = initial_env;
381 ASSERT(env);
385 define_actions(env, 3, value_defines[i]);
386 value_actions[i] = env->action_ptr;