DEFINITION MODULE DCLInterface;

(* Author:         Andrew Trevorrow
   Implementation: University of Hamburg Modula-2 under VAX/VMS version 4
   Date Started:   June, 1985

   Description:
   Exports the DVI file name and qualifier values given in the
   DVItoVDU command line.

   Revised:
   September, 1986
 - No longer export Translate routine.

   November, 1987 (while at The Open University)
 - Added tfmdir qualifier that indicates the default location of TFM files.
   This allows DVItoVDU to handle PostScript fonts.

   June--August, 1988 (while at Aston University)
 - Added psprefix qualifier that specifies the prefix in TFM file names
   for PostScript fonts.
 - Added hoffset and voffset qualifiers to allow shifting of page.
*)

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

VAR
   resolution,     (* /RESOLUTION value defines pixels per inch               *)
   mag,            (* /MAGNIFICATION value replaces DVI mag; 0 = use DVI mag  *)
   paperwd,        (* /XSIZE value is paper width in pixels                   *)
   paperht         (* /YSIZE value is paper height in pixels                  *)
      : CARDINAL;
   hoffset,        (* /HOFFSET value is horizontal shift in pixels            *)
   voffset         (* /VOFFSET value is vertical shift in pixels              *)
      : INTEGER;
   psprefix,       (* /PSPREFIX value defines TFM files for PostScript fonts  *)
   tfmdir,         (* /TFM_DIRECTORY value defines location of TFM files      *)
   fontdir,        (* /FONT_DIRECTORY value defines location of font files    *)
   dummyfont,      (* /DUMMY_FONT value defines dummy font file               *)
   helpname,       (* /HELP_FILE value defines help file read by ? command    *)
   vdu,            (* /VDU value tells DVItoVDU what terminal is being used   *)
   DVIname         (* DVI file specification                                  *)
      : stringvalue;

PROCEDURE Cap (ch : CHAR) : CHAR;
(* If ch is in 'a'..'z' then return capitalized version, else return ch. *)

END DCLInterface.
