gpcp/DiagHelper.cp

   1 (* ============================================================ *)
   2 (*                                                              *)
   3 (*         Gardens Point Component Pascal Library Module.       *)
   4 (*         Copyright (c) K John Gough 1999, 2000                *)
   5 (*         Created : 26 December 1999 kjg                       *)
   6 (*                                                              *)
   7 (* ============================================================ *)
   8 MODULE DiagHelper;
   9
  10   IMPORT
  11         GPCPcopyright,
  12         RTS,
  13         Console;
  14
  15   PROCEDURE Indent*(j : INTEGER);
  16     VAR i : INTEGER;
  17   BEGIN
  18     Console.WriteString("D:");
  19     FOR i := 0 TO j-1 DO Console.Write(" ") END;
  20   END Indent;
  21
  22   PROCEDURE Class*(IN str : ARRAY OF CHAR; o : ANYPTR; i : INTEGER);
  23   BEGIN
  24     Indent(i);
  25     Console.WriteString(str);
  26     Console.WriteString(" RTSclass ");
  27     RTS.ClassMarker(o);
  28     Console.WriteLn;
  29   END Class;
  30
  31 END DiagHelper.