home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d5xx
/
d597
/
icontools.lha
/
IconTools
/
source
/
util
/
asl_support
Wrap
Text File
|
1992-02-01
|
1KB
|
63 lines
\ $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
;