gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.10, 1998/07/28 12:29:37	version 1.12, 1998/10/18 23:16:51
Line 1371 n=1;	Line 1371 n=1;

\+has? os [IF]	\+has? os [IF]

(key) -- n gforth paren_key	key-file wfileid -- n gforth paren_key_file
fflush(stdout);	fflush(stdout);
/* !! noecho */	n = key((FILE*)wfileid);
n = key();

key? -- n facility key_q	key?-file wfileid -- n facility key_q_file
fflush(stdout);	fflush(stdout);
n = key_query;	n = key_query((FILE*)wfileid);

	stdin -- wfileid gforth
	wfileid = (Cell)stdin;

stdout -- wfileid gforth	stdout -- wfileid gforth
wfileid = (Cell)stdout;	wfileid = (Cell)stdout;
Line 1980 f>l r -- gforth f_to_l	Line 1982 f>l r -- gforth f_to_l
lp -= sizeof(Float);	lp -= sizeof(Float);
(Float )lp = r;	(Float )lp = r;

	fpick u -- r gforth
	r = fp[u+1]; /* +1, because update of fp happens before this fragment */
	:
	floats fp@ + f@ ;

\+[THEN] [THEN] \ has? glocals	\+[THEN] [THEN] \ has? glocals

\+has? OS [IF]	\+has? OS [IF]