Return to high-level CVS log

Up to [gforth] / gforth

Annotation of gforth/high-level, revision 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 */