Resources.txt


\ 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." ;


  HTMLized by Forth2HTML