home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Desktop Improver / IconTools / source / util / asl_support
Encoding:
Text File  |  1996-09-27  |  1.1 KB  |  63 lines
  1. \ $VER: asl_support  (12 Jan 1992 21:25)
  2. \ general support for the asl.library
  3. \
  4. \
  5. \ (c) Copyright 1992 by Richard Mazzarisi
  6. \      (rich@californium.cchem.berkeley.edu)
  7. \
  8.  
  9. ANEW task-asl_support
  10.  
  11. \ add asl.library to the system
  12.  
  13. :LIBRARY asl
  14.  
  15. : asl?    asl_name asl_lib LIB? ;
  16. : -asl    asl_lib -LIB ;
  17.  
  18.  
  19. : open.asl-lib        ( -- t/f )
  20. \ tries to open lib; returns success flag
  21. \ does NOT automatically quit as does ?asl
  22.     asl_lib DUP @ 0= IF
  23.         asl_name OPENLIB  DUP ROT !
  24.     ELSE
  25.         DROP TRUE   \ already open
  26.     THEN
  27. ;
  28.  
  29.  
  30. \ *** functions ***
  31. : AllocAslRequest()     ( type taglist -- request )
  32. \ return a structure relative address for use in AslRequest()
  33.     CALL>ABS asl_lib AllocAslRequest IF>REL
  34. ;
  35.  
  36.  
  37. : FreeAslRequest()      ( request -- )
  38.     CALLVOID>ABS asl_lib FreeAslRequest
  39. ;
  40.  
  41.  
  42. : AslRequest()        ( request taglist -- t/f )
  43.     CALL>ABS asl_lib AslRequest
  44. ;
  45.  
  46.  
  47. \ file requester
  48.  
  49. : AllocFileRequest()    ( -- request )
  50. \ return a structure relative address for use in RequestFile()
  51.     CALL asl_lib AllocFileRequest IF>REL
  52. ;
  53.  
  54.  
  55. : RequestFile()         ( request -- t/f )
  56.     CALL>ABS asl_lib RequestFile
  57. ;
  58.  
  59.  
  60. : FreeFileRequest()    ( request -- )
  61.     CALLVOID>ABS asl_lib FreeFileRequest
  62. ;
  63.