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>