{ $Header: mf_ext.h,v 1.0 86/01/31 16:42:56 richards Released $ }

{ declarations for external C assist routines for MetaFont }

procedure exit(x : integer);
 external;

procedure closea(var f:text);
 external;

procedure closew(var f:wordfile);
 external;

procedure dateandtime(var minutes, day, month, year : integer);
    external;

procedure setpaths;
    external;

function testaccess(var nameoffile, realnameoffile: UNIXfilename;
		accessmode:integer; filepath:integer): boolean;
    external;

procedure calledit(var filename: ASCIIcode; fnlength, linenumber: integer);
    external;

function bopenout(var f: bytefile; var name: UNIXfilename): boolean;
    external;

procedure bclose(var f: bytefile);
    external;

procedure bgetname(var f: bytefile; var name: UNIXfilename);
    external;

procedure bwritebuf(var f: bytefile; var buf: gfbuftype;
		first, last: integer);
    external;

procedure bwritebyte(var f: bytefile; b: integer);
    external;

procedure bwrite2bytes(var f: bytefile; b: integer);
    external;

procedure bwrite4bytes(var f: bytefile; b: integer);
    external;

function makefraction(p, q: integer): fraction;
    external;

function takefraction(q: integer; f: fraction): integer;
    external;