home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / KTRACE.DEF < prev    next >
Text File  |  1989-01-21  |  1KB  |  48 lines
  1. DEFINITION MODULE KTrace;
  2.  
  3.     (****************************************************************)
  4.     (*                                *)
  5.     (*    Trace routines for Modula 2 program development.    *)
  6.     (*                                *)
  7.     (*  This is the version which does NOT use windows.  It is    *)
  8.     (*  intended for low-level tracing of the kernel, where a    *)
  9.     (*  window-based tracing facility would be unsuitable because    *)
  10.     (*  of critical section problems.  However, it is quite        *)
  11.     (*  adequate for any application where we don't care too much    *)
  12.     (*  about a pretty screen layout.                *)
  13.     (*                                *)
  14.     (*  Note, however, that this module is missing the "Press any    *)
  15.     (*  key to continue" option which my other trace modules have.    *)
  16.     (*                                *)
  17.     (*  Programmer:        P. Moylan                *)
  18.     (*  Last edited:    21 January 1989                *)
  19.     (*  Status:        OK                    *)
  20.     (*                                *)
  21.     (****************************************************************)
  22.  
  23. PROCEDURE NYI (name: ARRAY OF CHAR);
  24.  
  25.     (* Types a "not yet implemented" message.    *)
  26.  
  27. PROCEDURE InTrace (name: ARRAY OF CHAR);
  28.  
  29.     (* Types "Entering 'name'".    *)
  30.  
  31. PROCEDURE OutTrace (name: ARRAY OF CHAR);
  32.  
  33.     (* Types "Leaving 'name'".    *)
  34.  
  35. PROCEDURE TraceOn;
  36.  
  37.     (* Turns on tracing.    *)
  38.  
  39. PROCEDURE TraceOff;
  40.  
  41.     (* Turns off tracing.        *)
  42.  
  43. PROCEDURE TraceStatus(): BOOLEAN;
  44.  
  45.     (* Says whether tracing is currently on.    *)
  46.  
  47. END KTrace.
  48.