home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / forthmacs / !Forthmacs / lib / blktools next >
Encoding:
Text File  |  1994-05-06  |  563 b   |  25 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.  
  8. : default (s -- )  0 !files  ;
  9.  
  10. : file?   (s -- )  block-fid @ .file  ;
  11. : switch  (s -- )
  12.    block-fid @
  13.    block-input-file @  block-fid !
  14.    block-input-file !
  15. ;
  16. : capacity  (s -- n )  block-fid @  file-size b/buf um/mod nip  ;
  17.  
  18. : in-block  (s n -- a )  block-input-file @  file-block  ;
  19.  
  20. : use-file  ( str -- )  [ sys ] open-block-file !files  ;
  21.  
  22. : using  \ filename  ( -- )
  23.    blword  use-file
  24. ;
  25.