DEFINITION MODULE sysinterface;

(* Author:         Andrew Trevorrow
   Implementation: Modula-2 under VAX/UNIX 4.2 BSD
   Date Started:   June, 1986 (based on DCLInterface under VAX/VMS)

   Description:
   InitSysInterface gets the DVItoVDU command line and initializes
   the DVI file name and command option values.
*)

EXPORT QUALIFIED
   stringvalue,
   resolution, mag, paperwd, paperht, fontdir,
   dummyfont, helpname, vdu, DVIname,
   InitSysInterface;

TYPE
   stringvalue = ARRAY [0..79] OF CHAR;

VAR
   resolution,     (* -r value defines pixels per inch *)
   mag,            (* -m value replaces DVI mag; default = 0 = use DVI mag *)
   paperwd,        (* -x value defines paper width; converted to pixels *)
   paperht         (* -y value defines paper height; converted to pixels *)
      : CARDINAL;
   fontdir,        (* -f value defines directory containing PXL files *)
   dummyfont,      (* -d value defines dummy PXL file *)
   helpname,       (* -h value defines help file read by ? command *)
   vdu,            (* -v value tells DVItoVDU what terminal is being used *)
   DVIname         (* DVI file name *)
      : stringvalue;

PROCEDURE InitSysInterface;
   (* Initializes above parameters, either to default values or to values
      extracted from the command line.
   *)

END sysinterface.
