home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / TRACE.DEF < prev    next >
Text File  |  1996-09-30  |  2KB  |  53 lines
  1. DEFINITION MODULE Trace;
  2.  
  3.         (************************************************)
  4.         (*                                              *)
  5.         (*          Trace routines for Modula-2         *)
  6.         (*              program development.            *)
  7.         (*                                              *)
  8.         (*  Programmer:         P. Moylan               *)
  9.         (*  Last edited:        30 September 1996       *)
  10.         (*  Status:             Working                 *)
  11.         (*                                              *)
  12.         (************************************************)
  13.  
  14. FROM Windows IMPORT
  15.     (* type *)  RowRange, ColumnRange;
  16.  
  17. PROCEDURE NYI (name: ARRAY OF CHAR);
  18.  
  19.         (* Types a "not yet implemented" message.       *)
  20.  
  21. PROCEDURE Pause;
  22.  
  23.         (* "Press any key to continue."                 *)
  24.  
  25. PROCEDURE InTrace (name: ARRAY OF CHAR);
  26.  
  27.         (* Types "Entering 'name'".     *)
  28.  
  29. PROCEDURE OutTrace (name: ARRAY OF CHAR);
  30.  
  31.         (* Types "Leaving 'name'".      *)
  32.  
  33. PROCEDURE TraceOn (firstrow, lastrow: RowRange;
  34.                         firstcol, lastcol: ColumnRange;
  35.                         SlowDownFactor: CARDINAL);
  36.  
  37.         (* Turns on tracing.  The first four parameters specify the     *)
  38.         (* size of a screen window to be used for trace messages.  The  *)
  39.         (* size of the final parameter governs how slowly the program   *)
  40.         (* will run - it is needed because in many cases the trace      *)
  41.         (* messages appear on the screen faster than you can read them. *)
  42.  
  43. PROCEDURE TraceOff;
  44.  
  45.         (* Turns off tracing.           *)
  46.  
  47. PROCEDURE TraceStatus(): BOOLEAN;
  48.  
  49.         (* Says whether tracing is currently on.        *)
  50.  
  51. END Trace.
  52.  
  53.