-- second definitions module for silicon (pretty picture) program
-- last modified by McCreight, March 29, 1983  12:07 PM

DIRECTORY
  StreamDefs,
  ppdefs;
ppoutdefs: DEFINITIONS IMPORTS ppdefs =
  BEGIN OPEN StreamDefs, ppdefs;

  -- **** exports from ppout:

  contTypALen: CARDINAL = 12;
  contTypA: ARRAY [1..contTypALen] OF contType =
    [mDif, mPol, butt,burr, mm2, mDif,mDif,mm2,mm2,mm2,mm2,difShort];

  cellNameA: LONG DESCRIPTOR FOR ARRAY OF LONG POINTER TO cell object;

  codeWordForDataFile: CARDINAL = 123751B;

  oCnt, cCnt: CARDINAL;

  writeAll: PROCEDURE [put: PROC [UNSPECIFIED]];
  openOfile: PROCEDURE [fname: STRING, existOK: BOOLEAN]
    RETURNS [StreamDefs.DiskHandle];

  BackupDemonProcess, EnableBackup, DisableBackup: PROC[];
  backupPass: LONG CARDINAL;

  END.