File:  [gforth] / gforth / Attic / high-level
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Fri Feb 11 16:30:47 1994 UTC (27 years, 7 months ago) by anton
Branches: no-vendor
CVS tags: v0-3-0, v0-2-1, v0-2-0, gforth-0_1beta, alpha
The GNU Forth Project

    1: These are the words which I have not (yet) done as primitives. They
    2: probably should be done in high-level
    3: 
    4: */	n1 n2 n3 -- n4		core	star_slash
    5: */mode	n1 n2 n3 -- n4 n5	core	star_slash_mod
    6: phrases in the standard document
    7: m*/	d1 n1 +n2 -- d2		double	m_star_slash
    8: 
    9: aligned	c_addr -- a_addr	core
   10: here	-- addr		core
   11: unloop	--		core
   12: 2>r	w1 w2 --	core-ext
   13: 2r>	w1 -- w2	core-ext
   14: 2r@	-- w1 w2	core-ext
   15: do2con	-- w1 w2	new (double)
   16: 2lit	-- w1 w2	new (double)
   17: /* implement as lit lit ? */
   18: date	-- n1 n2 n3 n4 n5 n6	core-ext
   19: ms	u --		core-ext
   20: roll	u --		core-ext
   21: 
   22: leave	--		fig
   23: /* new meaning in ANSI Forth */
   24: 
   25: (find)	...	pfind
   26: 
   27: enclose	...
   28: 
   29: ?terminal	...
   30: 
   31: write-line	c_addr u1 wfileid -- u2 wior	file
   32: 
   33: falog	r1 -- r2	float-ext
   34: f~		r1 r2 r3 -- flag	float-ext	f-proximate
   35: /* we should do primitives for the sub-functions */
   36: 
   37: ekey	-- char		toolkit-ext
   38: emit?	-- flag		toolkit-ext
   39: key?	-- flag		toolkit-ext
   40: 
   41: lex	c_addr1 u1 c_addr2 u2 -- ...	string-ext
   42: 
   43: available	-- u	memory-ext
   44: /* there is no way to make that one without implementing our own
   45:    allocation package */

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>