-- Copyright (C) 1984  by Xerox Corporation. All rights reserved. 
-- TroubleNoDisk.mesa, HGM,  2-Sep-84  4:06:38

DIRECTORY
  Ascii USING [CR],
  Runtime USING [CallDebugger],
  String USING [AppendChar, AppendLongNumber, AppendString],
  Time USING [AppendCurrent],
  Window USING [Handle],
  Stats USING [StatUpdate],
  Trouble USING [];

TroubleNoDisk: MONITOR
  IMPORTS
    Runtime, String, Time,
    Stats
  EXPORTS Trouble =
  BEGIN

  Bug: PUBLIC PROCEDURE [e: LONG STRING] =
    BEGIN
    text: STRING = [200];
    Stats.StatUpdate[];
    String.AppendChar[text, Ascii.CR];
    Time.AppendCurrent[text];
    String.AppendString[text, "  ******  "L];
    String.AppendString[text, e];
    String.AppendChar[text, Ascii.CR];
    DO Runtime.CallDebugger[text]; ENDLOOP;
    END;

  SetUncaughtSignalTrap: PUBLIC PROCEDURE = BEGIN END;

  PupGlitchTrap: PUBLIC PROCEDURE [why: ERROR] =
    BEGIN
    e: STRING = [100];
    String.AppendString[e, "PupPackage Troubles, arg="L];
    String.AppendLongNumber[e, LOOPHOLE[why], 8];
    Bug[e];
    END;

  -- Dummys to keep binder happy
  ForceOutTypescriptFile: PUBLIC PROCEDURE =
    BEGIN
    END;

  WrapTypescriptFile: PUBLIC PROCEDURE [wh: Window.Handle, pages: CARDINAL] =
    BEGIN
    END;

  END.