home *** CD-ROM | disk | FTP | other *** search
/ ftp.uni-stuttgart.de/pub/systems/acorn/ / Acorn.tar / Acorn / acornet / dev / forth / forthmacs / tools1 / tools1~ / !Forthmacs.lib.blktools < prev    next >
Text File  |  1994-10-18  |  540b  |  17 lines
  1. \ Some F83 BLOCK management tools
  2.  
  3. forth definitions
  4. nuser block-input-file  0 block-input-file !
  5.  
  6. : !files    (s fcb -- )    dup block-fid !  block-input-file !  ;
  7. : default    (s -- )        0 !files  ;
  8. : file?        (s -- )        block-fid @ .file  ;
  9. : switch    (s -- )
  10.     block-fid @
  11.     block-input-file @  block-fid !
  12.     block-input-file ! ;
  13. : capacity    (s -- n )    block-fid @  file-size b/buf um/mod nip  ;
  14. : in-block    (s n -- a )    block-input-file @  file-block  ;
  15. : use-file    (s str -- )    [ sys ] open-block-file !files  ;
  16. : using        (s -- )        blword  use-file ; \ filename
  17.