-- XFileIO.mesa
-- Created by Jeff Weinstein on  6-May-87 22:49:38

DIRECTORY
  CString,
  MFile,
  Stream;
  
XFileIO:DEFINITIONS =
  BEGIN

  FontPath:TYPE = LONG POINTER TO FontPathRec;
  FontPathRec:TYPE = RECORD[
                       npaths:INTEGER,
		       length:LONG POINTER TO ARRAY[0..0) OF INTEGER,
		       paths:LONG POINTER TO ARRAY[0..0) OF CString.CString
		       ];
  FiOpenForRead:PROCEDURE[name:CString.CString] RETURNS [fid:Stream.Handle];
  FiRead:PROCEDURE[buf:LONG POINTER, itemsize:CARDINAL, nitem:CARDINAL, fid:Stream.Handle] RETURNS[itemsRead:CARDINAL];
  FiClose:PROCEDURE[fid:Stream.Handle];
  
  SetDefaultFontPath:PROCEDURE[name:CString.CString];
  SetFontPath:PROCEDURE[path:FontPath];
  ExpandFontName:PROCEDURE[name:CString.CString, pathName:LONG POINTER TO CString.CString, zone:UNCOUNTED ZONE] RETURNS[nameLen:CARDINAL];
  ExpandFontNamePattern:PROCEDURE[pattern:CString.CString, maxNames:CARDINAL, zone:UNCOUNTED ZONE] RETURNS [paths:FontPath];
  END...