home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / Bullet.mod < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.6 KB  |  48 lines
  1. (*
  2. (*  $VER: Bullet.mod 39.108 (22.05.93)
  3. **      derived from
  4. **        bullet_protos.h 38.0 (19.06.92)
  5. **      (Includes Release 39.108)
  6. **
  7. **      (C) Copyright 1991-1992 Commodore-Amiga, Inc.
  8. **          All Rights Reserved
  9. **
  10. **      (C) Copyright Oberon Interface 1993 by hartmut Goebel
  11. *)          All Rights Reserved
  12. *)
  13. MODULE Bullet;
  14.  
  15. IMPORT
  16.   e  * := Exec,
  17.   df * := DiskFont,
  18.   u  *:= Utility;
  19.  
  20. CONST
  21.   bulletName * = "bullet.library";
  22.  
  23. VAR
  24.   base * : e.LibraryPtr;
  25.  
  26. PROCEDURE OpenEngine     *{base,-01EH}(): df.GlyphEnginePtr;
  27. PROCEDURE CloseEngine    *{base,-024H}(glyphEngine{8} : df.GlyphEnginePtr);
  28. PROCEDURE SetInfoA       *{base,-02AH}(glyphEngine{8} : df.GlyphEnginePtr;
  29.                                        tagList{9}     : ARRAY OF u.TagItem): BOOLEAN;
  30. PROCEDURE SetInfo        *{base,-02AH}(glyphEngine{8} : df.GlyphEnginePtr;
  31.                                        tag1{9}..      : u.Tag): BOOLEAN;
  32. PROCEDURE ObtainInfoA    *{base,-030H}(glyphEngine{8} : df.GlyphEnginePtr;
  33.                                        tagList{9}     : ARRAY OF u.TagItem): BOOLEAN;
  34. PROCEDURE ObtainInfo     *{base,-030H}(glyphEngine{8} : df.GlyphEnginePtr;
  35.                                        tag1{9}..      : u.Tag): BOOLEAN;
  36. PROCEDURE ReleaseInfoA   *{base,-036H}(glyphEngine{8} : df.GlyphEnginePtr;
  37.                                        tagList{8}     : ARRAY OF u.TagItem): BOOLEAN;
  38. PROCEDURE ReleaseInfo    *{base,-036H}(glyphEngine{8} : df.GlyphEnginePtr;
  39.                                        tag1{9}..      : u.Tag): BOOLEAN;
  40.  
  41. BEGIN
  42.   base := e.OpenLibrary (bulletName, 38);
  43. CLOSE
  44.   IF base # NIL THEN e.CloseLibrary(base) END;
  45.  
  46. END Bullet.
  47.  
  48.