Return to high-level CVS log

Up to [gforth] / gforth

Annotation of gforth/high-level, revision 1.1.1.1

1.1       anton       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 */