home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / td187src.lzh / MTRSC.D < prev    next >
Text File  |  1991-06-08  |  1KB  |  44 lines
  1. DEFINITION MODULE mtRsc;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4. FROM MagicSys   IMPORT  Byte, ByteSet,
  5.                         sWORD, sINTEGER, sCARDINAL, sBITSET,
  6.                         lWORD, lINTEGER, lCARDINAL, lBITSET,
  7.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  8.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15;
  9.  
  10.  
  11. TYPE    RESOURCE;
  12.  
  13. (* Dieses Modul ermöglicht es, verschiedene RSC-Files in einem Programm
  14.  * zu benutzen.  Dazu stellt das Modul alle Funktionen der AES-Resource-
  15.  * Routinen zur Verfügung.  Die original AES-Routinen arbeiten IMMER mit
  16.  * der zuletzt benutzten Resource.
  17.  *
  18.  * Alle über dieses Modul geladene Resourcen werden bei Aufruf von
  19.  * MagicAppl.ApplTerm automatisch freigegeben.
  20.  *)
  21.  
  22.  
  23. PROCEDURE LoadRsc (name: ARRAY OF CHAR; VAR rsc: RESOURCE): BOOLEAN;
  24. (* Lädt ein Resourcefile.  TRUE wenn erfolgreich *)
  25.  
  26. PROCEDURE FreeRsc (VAR rsc: RESOURCE);
  27. (* Gibt Resource wieder frei. *)
  28.  
  29. PROCEDURE FreeAll;
  30. (* Gibt alle Resourcen wieder frei. *)
  31.  
  32. PROCEDURE GaddrRsc (rsc: RESOURCE; type, item: sINTEGER): ADDRESS;
  33. (* Wie MagicAES.RsrcGaddr, jedoch mit der aktuellen Resource *)
  34.  
  35. PROCEDURE SaddrRsc (rsc: RESOURCE; type, item: sINTEGER; tree: ADDRESS);
  36. (* Wie MagicAES.RsrcSaddr, jedoch mit der aktuellen Resource *)
  37.  
  38. PROCEDURE ObfixRsc (rsc: RESOURCE; tree: ADDRESS; object: sINTEGER);
  39. (* Wie MagicAES.RsrcObfix, jedoch mit der aktuellen Resource *)
  40.  
  41.  
  42. END mtRsc.
  43.  
  44.