home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFB.ZIP / FFUTILS.ARC / ZIMMER.ARC / FORWARD.SEQ < prev    next >
Encoding:
Text File  |  1987-10-27  |  977 b   |  34 lines
  1. \ FORWARD.SEQ   Forward reference resolution words      by Tom Zimmer
  2.  
  3. \ Concept borrowed from UR/Forth
  4.  
  5. : F:            ( --- )         \ Create a forward reference
  6.                 defer   ;
  7.  
  8.  
  9. : R:            ( name --- )    \ resolve the forward reference
  10.                 warning dup @ >r off    \ no redefinition message
  11.                 >in @ defined
  12.                 if      >r >in ! here >r :
  13.                         r> r> >is !
  14.                 else    ." No forward reference found on " count type
  15.                         drop
  16.                 then    r> warning ! ;
  17.  
  18. comment:
  19.  
  20.         FORWARD REFERENCE DEFINITION AND RESOLUTION EXAMPLE
  21.  
  22.         F: TEST                         \ Define a forward reference
  23.  
  24.         : TEST1 ... TEST ... ;          \ Use forward referenced word.
  25.  
  26.         : ... ;                         \ Other definitons
  27.         : ... ;
  28.  
  29.         R: TEST ... ;                   \ Resolve forward reference.
  30.  
  31. comment;
  32.  
  33.  
  34.