home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 04 / debg_mod / debugger.def next >
Encoding:
Modula Definition  |  1988-01-26  |  3.8 KB  |  83 lines
  1. DEFINITION MODULE Debugger;
  2. (*-------------------------------------------------------*
  3.  * Das Modul Debugger enthält Routinen zur Fehlersuche.  *
  4.  * Die implementierten Funktionen schreiben bei ihrem    *
  5.  * Aufruf Informationen in eine Debugger-Datei vom Typ   *
  6.  * Streams.Stream.                                       *
  7.  * (C) 1988 Frank F. Wachtmeister & PASCAL International *
  8.  *-------------------------------------------------------*)
  9.  
  10. FROM SYSTEM  IMPORT BYTE, WORD, LONGWORD, ADDRESS;
  11. FROM Streams IMPORT Stream;
  12.  
  13. CONST   ErrorText = 'ERRORS.TXT';
  14.  
  15. VAR     debug        : Stream;
  16.         stop         : BOOLEAN;
  17.  
  18. PROCEDURE Error (err: INTEGER);
  19. (*-------------------------------------------------------*
  20.  * Error gibt eine Fehlermeldung in Abhängigkeit von der *
  21.  * Fehlernummer in folgender Form aus:                   *
  22.  * 'Fehler Nr. <nr> in Zeile <xx> Spalte <yy>.           *
  23.  *  < Fehlerbeschreibung >                               *
  24.  * Die Ausgabe erfolgt in das zuvor definierte ErrorFile.*
  25.  * Die Fehlerbeschreibung befindet sich in der Datei     *
  26.  * ErrorText. Der Programmlauf wird beendet, wenn        *
  27.  * stop = TRUE.                                          *
  28.  *-------------------------------------------------------*)
  29.  
  30. PROCEDURE InitDebugger (VAR name: ARRAY OF CHAR);
  31. (*-------------------------------------------------------*
  32.  * InitDebugger initialisiert und aktiviert den Debugger.*
  33.  * Hier wird der Debug-Stream eröffnet und der normale   *
  34.  * ErrorProzessor des Moduls GEMX überschrieben.         *
  35.  * Die Variable name gibt den Dateinamen an.             *
  36.  *-------------------------------------------------------*)
  37.  
  38. PROCEDURE Activate (active: BOOLEAN);
  39. (*-------------------------------------------------------*
  40.  * Activate schaltet den Debugger-Modus ein (TRUE) oder  *
  41.  * aus (FALSE).                                          *
  42.  *-------------------------------------------------------*)
  43.  
  44. PROCEDURE Into (VAR WhatRoutine: ARRAY OF CHAR);
  45. (*-------------------------------------------------------*
  46.  * Zeigt den Eintritt in eine Prozedur an. Information   *
  47.  * der Form: "I: <WhatRoutine>"                          *
  48.  * wird in den Debug-Stream geschrieben.                 *
  49.  *-------------------------------------------------------*)
  50.  
  51. PROCEDURE Leaving (VAR WhatRoutine: ARRAY OF CHAR);
  52. (*-------------------------------------------------------*
  53.  * Zeigt den Austritt aus einer Prozedur an. Information *
  54.  * der Form: "L: <WhatRoutine>"                          *
  55.  * wird in den Debug-Stream geschrieben.                 *
  56.  *-------------------------------------------------------*)
  57.  
  58. PROCEDURE Message (VAR mess: ARRAY OF CHAR);
  59. (*-------------------------------------------------------*
  60.  * Ausgabe des Strings mess in den Debugger-Stream.      *
  61.  *-------------------------------------------------------*)
  62.  
  63. PROCEDURE ShowByte (VAR name: ARRAY OF CHAR; byte: BYTE);
  64. (*-------------------------------------------------------*
  65.  * Ausgabe von Name und Inhalt einer Variablen der Größe *
  66.  * von einem Byte: CHAR, BYTE, SET OF 0..7, BOOLEAN      *
  67.  *-------------------------------------------------------*)
  68.  
  69. PROCEDURE ShowWord (VAR name: ARRAY OF CHAR; word: WORD);
  70. (*-------------------------------------------------------*
  71.  * Ausgabe von Name und Inhalt einer Variablen der Größe *
  72.  * von einem Word: INTEGER, CARDINAL, WORD               *
  73.  *-------------------------------------------------------*)
  74.  
  75. PROCEDURE ShowLong (VAR name: ARRAY OF CHAR;
  76.                         long: LONGWORD);
  77. (*-------------------------------------------------------*
  78.  * Ausgabe von Name und Inhalt einer Variablen der Größe *
  79.  * von einem LONGWORD: LONGWORD, LONGINT, LONGCARD, REAL *
  80.  *-------------------------------------------------------*)
  81.  
  82. END Debugger.
  83.