home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / DiskFont.def < prev    next >
Encoding:
Modula Definition  |  1988-12-05  |  1.3 KB  |  61 lines
  1. DEFINITION MODULE DiskFont{"diskfont.library",33};
  2.  
  3. FROM SYSTEM IMPORT
  4.  ADDRESS,BPTR;
  5. FROM Exec IMPORT
  6.  Node;
  7. FROM Graphics IMPORT
  8.  FontFlagSet,FontStyleSet,TextAttr,TextAttrPtr,TextFont
  9.  ,TextFontPtr;
  10.  
  11. CONST
  12.  maxFontPath=256;
  13.  maxFontName=32;
  14.  fchId=0F00H;
  15.  dfhId=0F80H;
  16.  
  17. TYPE
  18.  AvailFontTypes=(
  19.   memory,disk,af2,af3,af4,af5,af6,af7,
  20.   af8,af9,af10,af11,af12,af13,af14,a15
  21.  );
  22.  AvailFontTypeSet=SET OF AvailFontTypes;
  23.  FontContents=RECORD
  24.   fileName: ARRAY [0..maxFontPath-1] OF CHAR;
  25.   ySize: CARDINAL;
  26.   style: FontStyleSet;
  27.   flags: FontFlagSet;
  28.  END;
  29.  FontContentsHeader=RECORD
  30.   fileId: CARDINAL;
  31.   numEntries: CARDINAL;
  32. (*fc: ARRAY [0..numEntries-1] OF FontContents *)
  33.  END;
  34.  FontContentsHeaderPtr=POINTER TO FontContentsHeader;
  35.  DiskFontHeader=RECORD
  36.   df: Node;
  37.   fileId: CARDINAL;
  38.   revision: CARDINAL;
  39.   segment: BPTR;
  40.   name: ARRAY [0..maxFontName-1] OF CHAR;
  41.   tf: TextFont
  42.  END;
  43.  AvailFont=RECORD
  44.   type: AvailFontTypeSet;
  45.   attr: TextAttr;
  46.  END;
  47.  AvailFontHeader=RECORD
  48.   numEntries: CARDINAL;
  49. (*af: ARRAY [0..numEntries-1] OF AvailFont;*)
  50.  END;
  51.  AvailFontHeaderPtr=POINTER TO AvailFontHeader;
  52.  
  53. PROCEDURE AvailFonts(
  54.            buffer{8}: ADDRESS;
  55.            bufBytes{0}: LONGINT;
  56.            types{1}: AvailFontTypeSet):LONGINT; CODE -36;
  57. PROCEDURE OpenDiskFont(
  58.            textAttr{8}: TextAttrPtr): TextFontPtr; CODE -30;
  59.  
  60. END DiskFont.
  61.