home *** CD-ROM | disk | FTP | other *** search
- \ $VER: asl_support (12 Jan 1992 21:25)
- \ general support for the asl.library
- \
- \
- \ (c) Copyright 1992 by Richard Mazzarisi
- \ (rich@californium.cchem.berkeley.edu)
- \
-
- ANEW task-asl_support
-
- \ add asl.library to the system
-
- :LIBRARY asl
-
- : asl? asl_name asl_lib LIB? ;
- : -asl asl_lib -LIB ;
-
-
- : open.asl-lib ( -- t/f )
- \ tries to open lib; returns success flag
- \ does NOT automatically quit as does ?asl
- asl_lib DUP @ 0= IF
- asl_name OPENLIB DUP ROT !
- ELSE
- DROP TRUE \ already open
- THEN
- ;
-
-
- \ *** functions ***
- : AllocAslRequest() ( type taglist -- request )
- \ return a structure relative address for use in AslRequest()
- CALL>ABS asl_lib AllocAslRequest IF>REL
- ;
-
-
- : FreeAslRequest() ( request -- )
- CALLVOID>ABS asl_lib FreeAslRequest
- ;
-
-
- : AslRequest() ( request taglist -- t/f )
- CALL>ABS asl_lib AslRequest
- ;
-
-
- \ file requester
-
- : AllocFileRequest() ( -- request )
- \ return a structure relative address for use in RequestFile()
- CALL asl_lib AllocFileRequest IF>REL
- ;
-
-
- : RequestFile() ( request -- t/f )
- CALL>ABS asl_lib RequestFile
- ;
-
-
- : FreeFileRequest() ( request -- )
- CALLVOID>ABS asl_lib FreeFileRequest
- ;
-