-- File: PupPrint.mesa,  Last Edit: HGM  March 3, 1980  4:47 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  IODefs: FROM "IODefs" USING [CR, NewLine, WriteChar, WriteString, WriteOctal],
  PupDefs: FROM "PupDefs" USING [PupBuffer, GetPupContentsBytes, AppendPupAddress],
  PupTypes: FROM "PupTypes" USING [PupAddress];

PupPrint: PROGRAM
  IMPORTS IODefs, PupDefs
  EXPORTS PupDefs =
BEGIN


PrintErrorPup: PUBLIC PROCEDURE [b: PupDefs.PupBuffer] =
  BEGIN OPEN IODefs;
  i, len: CARDINAL;
  IF ~NewLine[] THEN WriteChar[CR];
  IF b.pupType=error THEN
    BEGIN
    WriteString["[Error Pup, code="L];
    WriteOctal[b.errorCode];
    WriteString[", from: "L];
    PrintPupAddress[b.source];
    WriteString["] "L];
    len _ PupDefs.GetPupContentsBytes[b];
    FOR i IN [0..len-2*(10+1+1)) DO WriteChar[b.errorText[i]]; ENDLOOP;
    END
  ELSE
    BEGIN
    WriteString["***** Funny PupType = "L];
    WriteOctal[b.pupType];
    WriteString[" *****"L];
    END;
  WriteChar[CR];
  END;

PrintPupAddress: PUBLIC PROCEDURE [a: PupTypes.PupAddress] =
  BEGIN
  buffer: STRING _ [50];
  PupDefs.AppendPupAddress[buffer,a];
  IODefs.WriteString[buffer];
  END;

-- initialization
END.(0,65535)(1,3528)(2,4057)(9,12347)\361b13B582b15B