Lines Matching defs:env
41 push_ds(fcode_env_t *env, fstack_t d)
47 pop_ds(fcode_env_t *env)
53 push_rs(fcode_env_t *env, fstack_t d)
59 pop_rs(fcode_env_t *env)
68 push_a_string(fcode_env_t *env, char *str)
83 pop_a_string(fcode_env_t *env, int *lenp)
103 pop_a_duped_string(fcode_env_t *env, int *lenp)
107 str = pop_a_string(env, lenp);
117 push_double(fcode_env_t *env, dforth_t d)
131 pop_double(fcode_env_t *env)
144 peek_double(fcode_env_t *env)
148 a = pop_double(env);
149 push_double(env, a);
154 run_fcode(fcode_env_t *env, uchar_t *buff, int len)
170 byte_load(env);
174 fevaluate(env);
179 run_fcode_from_file(fcode_env_t *env, char *fname, int aout_flag)
184 push_a_string(env, fname);
185 load_file(env);
192 run_fcode(env, p, len);
198 fcode_env_t *env;
217 env = MALLOC(sizeof (fcode_env_t));
218 memcpy(env, src, sizeof (fcode_env_t));
221 env->table = MALLOC((MAX_FCODE + 1) * sizeof (fcode_token));
222 memcpy(env->table, src->table, (MAX_FCODE + 1) * sizeof (fcode_token));
228 env->base = MALLOC(dict_size);
229 memcpy(env->base, src->base, dict_size);
231 env->here = src->base - (uchar_t *)src + env->base;
234 env->ds0 = MALLOC(stack_size * sizeof (fstack_t));
235 memcpy(env->ds0, src->ds0, stack_size * sizeof (fstack_t));
236 env->ds = src->ds - src->ds0 + env->ds0;
238 env->rs0 = MALLOC(stack_size * sizeof (fstack_t));
239 memcpy(env->rs0, src->rs0, stack_size * sizeof (fstack_t));
240 env->rs = src->rs - src->rs0 + env->rs0;
242 env->order = MALLOC(MAX_ORDER * sizeof (token_t));
243 memcpy(env->order, src->order, MAX_ORDER * sizeof (token_t));
245 env->input = MALLOC(sizeof (input_typ));
247 env->catch_frame = 0;
251 return (env);
255 destroy_environment(fcode_env_t *env)
257 FREE(env->input);
258 FREE(env->order);
259 FREE(env->ds0);
260 FREE(env->rs0);
262 FREE(env->base);
263 FREE(env->table);
265 FREE(env);
267 if (env == initial_env) {