Lines Matching defs:env
43 do_verbose_emit(fcode_env_t *env)
54 do_emit(fcode_env_t *env, uchar_t c)
60 env->output_column = 0;
61 env->output_line++;
63 env->output_column = 0;
65 env->output_column++;
80 system_message(fcode_env_t *env, char *msg)
82 throw_from_fclib(env, 1, msg);
86 emit(fcode_env_t *env)
90 CHECK_DEPTH(env, 1, "emit");
92 do_emit(env, d);
101 keyquestion(fcode_env_t *env)
118 forth_abort(env, "'key?' called in non-interactive mode");
125 key(fcode_env_t *env)
133 forth_abort(env, "'key' called in non-interactive mode");
137 type(fcode_env_t *env)
142 CHECK_DEPTH(env, 2, "type");
143 ptr = pop_a_string(env, &len);
145 do_emit(env, *ptr++);
149 paren_cr(fcode_env_t *env)
151 do_emit(env, '\r');
155 fc_crlf(fcode_env_t *env)
157 do_emit(env, '\n');
161 fc_num_out(fcode_env_t *env)
163 PUSH(DS, (fstack_t)(&env->output_column));
167 fc_num_line(fcode_env_t *env)
169 PUSH(DS, (fstack_t)(&env->output_line));
173 expect(fcode_env_t *env)
178 CHECK_DEPTH(env, 2, "expect");
179 buf = pop_a_string(env, &len);
180 read_line(env);
181 rbuf = pop_a_string(env, NULL);
184 env->span = strlen(buf);
186 env->span = 0;
190 span(fcode_env_t *env)
192 PUSH(DS, (fstack_t)&env->span);
196 do_ms(fcode_env_t *env)
201 CHECK_DEPTH(env, 1, "ms");
211 do_get_msecs(fcode_env_t *env)
394 fmt_args(fcode_env_t *env, int cw, int fw, char format, long *arg,
514 * env - pointer to caller's fcode environment
530 fmt_str(fcode_env_t *env, char *fmt, char *fmtbuf, int bsize)
592 fmt_str(env, pct+abs(fw), (tbuf + strlen(tbuf)),
597 fmt_args(env, cw, fw, *fmptr, &arg, &llarg);
638 fc_cmn_append(fcode_env_t *env)
653 fmt_str(env, str, root->buf+root->len, CMN_MSG_SIZE -
676 fc_cmn_end(fcode_env_t *env)
685 fc_cmn_append(env);
710 * env - pointer to caller's fcode environment
715 fc_cmn_start(fcode_env_t *env, char *head, int path)
726 if (path && env->current_device) {
727 dpath = get_path(env, env->current_device);
748 fc_cmn_type(fcode_env_t *env)
751 fc_cmn_start(env, "", 0);
763 fc_cmn_msg(fcode_env_t *env)
767 fc_cmn_start(env, "", 1);
779 fc_cmn_note(fcode_env_t *env)
782 fc_cmn_start(env, "NOTICE: ", 1);
794 fc_cmn_warn(fcode_env_t *env)
797 fc_cmn_start(env, "WARNING: ", 1);
809 fc_cmn_error(fcode_env_t *env)
812 fc_cmn_start(env, "ERROR: ", 1);
824 fc_cmn_fatal(fcode_env_t *env)
827 fc_cmn_start(env, "FATAL: ", 1);
835 fcode_env_t *env = initial_env;
836 ASSERT(env);