gforth: gforth/Attic/high-level

1 :	anton	1.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 */