\ resources 98.11.30 11:37 am NAB
\ Open resdb w/req'd resources:
needs DataMgr
needs ids
: OpenResDB
( creator-id. type. -- DbOpenRef. )
>r >r >r >r DmModeReadOnly
r> r> r> r>
DmOpenDatabaseByTypeCreator ;
: use-resources
( creator-id. type. -- )
OpenResDB or 0=
abort" Resource db not found." ;