Subversion Repositories Kolibri OS

: VOCS

        VOC-LIST

        BEGIN @ DUP WHILE

                DUP CELL+ VOC-NAME.

                DUP 3 CELLS + @ \ wid ïðåäêà

                ?DUP IF ."  defined in "  VOC-NAME.

                     ELSE ."  is the main vocabulary"

                     THEN CR

        REPEAT

        DROP

;

[IF] : NEAR_NFA ( addr -- NFA addr | 0 addr ) DUP  WordByAddr DROP 1- SWAP

        2DUP 1000 - U< IF NIP 0 SWAP THEN ;

[THEN]

 \ It does not take wordlists into account.

: NextNFA ( nfa1 -- nfa2 | 0 )

    NEAR_NFA SWAP >R

    BEGIN

      1+ NEAR_NFA ( nfa addr )

      OVER 0 >

      ROT R@ <> AND

      OVER R@ - MAX-WORD-SIZE > OR

    UNTIL

    IF DROP 0

    ELSE  NEAR_NFA DROP

    THEN

;

    @ \ last nfa

    BEGIN  ( nfa 'nfa )

      DUP

    WHILE

      2DUP = IF 2DROP TRUE EXIT THEN

      CDR

    REPEAT 2DROP 0

;

    VOC-LIST

    BEGIN @ DUP WHILE ( nfa voc )

           2DUP CELL+ NFAInVoc?

           IF

              NIP CELL+ EXIT

           THEN

    REPEAT

    2DROP 0

;