home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 500-599 / ff597.lzh / IconTools / source / arp / arp_support next >
Text File  |  1992-02-01  |  873b  |  45 lines
  1. \ arp_support
  2. \ general support for the arp.library
  3. \ 3/25/90
  4. \
  5. \ (c) Copyright 1989. 1990 by Richard Mazzarisi
  6. \      (rich@californium.cchem.berkeley.edu)
  7. \
  8. \ 11/24/89 original library functions and file requester
  9. \ 3/25/89  alternate open library function
  10.  
  11. ANEW task-arp_support
  12.  
  13. \ add arp.library to the system
  14.  
  15. :LIBRARY arp
  16.  
  17. : arp?    arp_name arp_lib LIB? ;
  18. : -arp    arp_lib -LIB ;
  19.  
  20.  
  21. : open.arp-lib        ( -- t/f )
  22. \ tries to open lib; returns success flag
  23. \ does NOT automatically quit as does ?arp
  24.     arp_lib DUP @ 0= IF
  25.         arp_name OPENLIB  DUP ROT !
  26.     ELSE
  27.         DROP TRUE   \ already open
  28.     THEN
  29. ;
  30.  
  31.  
  32. \ *** functions ***
  33.  
  34. \ file requester
  35.  
  36. : ArpAllocFreq()        ( -- filerequester )
  37. \ return a structure relative address for use in FileRequest()
  38.     CALL arp_lib ArpAllocFreq IF>REL
  39. ;
  40.  
  41.  
  42. : FileRequest()         ( filerequester -- filebuffer )
  43.     CALL>ABS arp_lib FileRequest IF>REL
  44. ;
  45.