37 to_digit(fcode_env_t *env)  in to_digit()  argument
39 	CHECK_DEPTH(env, 1, ">digit");  in to_digit()
44 pic_hold(fcode_env_t *env)  in pic_hold()  argument
46 	CHECK_DEPTH(env, 1, "hold");  in pic_hold()
47 	*(--env->picturebufpos) = (char) POP(DS);  in pic_hold()
51 pic_start(fcode_env_t *env)  in pic_start()  argument
53 	env->picturebufpos = env->picturebuf + env->picturebuflen - 1;  in pic_start()
54 	*env->picturebufpos = 0;  in pic_start()
58 pic_ustop(fcode_env_t *env)  in pic_ustop()  argument
60 	CHECK_DEPTH(env, 1, "u#>");  in pic_ustop()
62 	push_string(env, env->picturebufpos, strlen(env->picturebufpos));  in pic_ustop()
66 pic_unsigned(fcode_env_t *env)  in pic_unsigned()  argument
70 	CHECK_DEPTH(env, 1, "u#");  in pic_unsigned()
72 	b = a % env->num_base;  in pic_unsigned()
73 	TOS = (fstack_t) (a / env->num_base);  in pic_unsigned()
74 	*(--env->picturebufpos) = DIGIT(b);  in pic_unsigned()
78 pic_sign(fcode_env_t *env)  in pic_sign()  argument
82 	CHECK_DEPTH(env, 1, "sign");  in pic_sign()
86 		pic_hold(env);  in pic_sign()
91 pic_uremainder(fcode_env_t *env)  in pic_uremainder()  argument
93 	CHECK_DEPTH(env, 1, "u#s");  in pic_uremainder()
95 		pic_unsigned(env);  in pic_uremainder()
100 format_number(fcode_env_t *env, int neg, int width)  in format_number()  argument
102 	pic_start(env);  in format_number()
105 		pic_hold(env);  in format_number()
107 	pic_uremainder(env);  in format_number()
108 	if (env->num_base == 10 && neg) {  in format_number()
110 		pic_hold(env);  in format_number()
112 	width -= strlen(env->picturebufpos);  in format_number()
115 		pic_hold(env);  in format_number()
118 	pic_ustop(env);  in format_number()
122 convert_num(fcode_env_t *env)  in convert_num()  argument
126 	CHECK_DEPTH(env, 1, "(.)");  in convert_num()
128 	if (env->num_base == 10 && TOS < 0) {  in convert_num()
132 	format_number(env, n, 0);  in convert_num()
136 do_dot_r(fcode_env_t *env)  in do_dot_r()  argument
140 	CHECK_DEPTH(env, 2, ".r");  in do_dot_r()
143 	if (env->num_base == 10 && TOS < 0) {  in do_dot_r()
147 	format_number(env, n, w);  in do_dot_r()
148 	type(env);  in do_dot_r()
152 do_udot_r(fcode_env_t *env)  in do_udot_r()  argument
156 	CHECK_DEPTH(env, 2, "u.r");  in do_udot_r()
158 	format_number(env, 0, w);  in do_udot_r()
159 	type(env);  in do_udot_r()
163 do_dot(fcode_env_t *env)  in do_dot()  argument
165 	CHECK_DEPTH(env, 1, ".");  in do_dot()
167 	do_dot_r(env);  in do_dot()
171 do_dot_d(fcode_env_t *env)  in do_dot_d()  argument
175 	CHECK_DEPTH(env, 1, ".d");  in do_dot_d()
176 	base = env->num_base;  in do_dot_d()
177 	env->num_base = 10;  in do_dot_d()
178 	do_dot(env);  in do_dot_d()
179 	env->num_base = base;  in do_dot_d()
183 do_dot_x(fcode_env_t *env)  in do_dot_x()  argument
187 	CHECK_DEPTH(env, 1, ".x");  in do_dot_x()
188 	base = env->num_base;  in do_dot_x()
189 	env->num_base = 16;  in do_dot_x()
190 	do_dot(env);  in do_dot_x()
191 	env->num_base = base;  in do_dot_x()
195 do_udot(fcode_env_t *env)  in do_udot()  argument
197 	CHECK_DEPTH(env, 1, "u.");  in do_udot()
199 	do_udot_r(env);  in do_udot()
203 pic_dunsigned(fcode_env_t *env)  in pic_dunsigned()  argument
208 	CHECK_DEPTH(env, 2, "#");  in pic_dunsigned()
209 	a = pop_double(env);  in pic_dunsigned()
210 	b = a % env->num_base;  in pic_dunsigned()
211 	a /= env->num_base;  in pic_dunsigned()
212 	push_double(env, a);  in pic_dunsigned()
213 	*(--env->picturebufpos) = DIGIT(b);  in pic_dunsigned()
217 pic_dremainder(fcode_env_t *env)  in pic_dremainder()  argument
219 	CHECK_DEPTH(env, 2, "#s");  in pic_dremainder()
221 		pic_dunsigned(env);  in pic_dremainder()
222 	} while (peek_double(env));  in pic_dremainder()
226 pic_dstop(fcode_env_t *env)  in pic_dstop()  argument
228 	CHECK_DEPTH(env, 2, "#>");  in pic_dstop()
229 	(void) pop_double(env);  in pic_dstop()
230 	push_string(env, env->picturebufpos, strlen(env->picturebufpos));  in pic_dstop()
239 	fcode_env_t *env = initial_env;  in _init()  local
240 	ASSERT(env);  in _init()
243 	env->picturebuflen = 0x100;  in _init()
244 	env->picturebuf = MALLOC(env->picturebuflen);  in _init()