DEFINITION MODULE DiskFontL{"diskfont.library",33};

FROM SYSTEM IMPORT ADDRESS;

FROM DosD IMPORT
 FileLockPtr;

FROM GraphicsD IMPORT
 TextFontPtr,TTextAttrPtr;

IMPORT
 d:DiskFontD,R,ExecD;

VAR
 diskfontVersion:INTEGER;
 diskfontBase:ExecD.LibraryPtr;

CONST
 diskfontMinVersion=33;
 diskfontName="diskfont.library";

PROCEDURE AvailFonts(
           buffer{R.A0}:ADDRESS;
           bufBytes{R.D0}:LONGINT;
           flags{R.D1}:d.AvailFontsSet):LONGINT; CODE -36;

PROCEDURE (*34*)DisposeFontContents(
                 fontContHdr{R.A1}:d.FontContentsHeaderPtr); CODE -48;

PROCEDURE (*34*)NewFontContents(
                 fontsLock{R.A0}:FileLockPtr;
                 fontName{R.A1}:ADDRESS
                ):d.FontContentsHeaderPtr; CODE -42;

PROCEDURE (*36*)NewScaledDiskFont(
                 sourceFont{R.A0}:TextFontPtr;
                 destTextAttr{R.A1}:TTextAttrPtr
                ):d.DiskFontHeaderPtr; CODE -54;

PROCEDURE OpenDiskFont(
           textAttr{R.A0}:ADDRESS):TextFontPtr; CODE -30;

END DiskFontL.lib33
