home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 03 / rahmen / debug.dcl < prev    next >
Encoding:
Text File  |  1988-09-04  |  2.8 KB  |  64 lines
  1. (**********************************************************)
  2. (*                                                        *)
  3. (*   Filename DEBUG.DCL                                   *)
  4. (*                                                        *)
  5. (*   TOOLBOX-Spezial III Echtzeitverarbeitung             *)
  6. (*                                                        *)
  7. (*   (C) TOOLBOX und Thomas Lang 1988                     *)
  8. (*                                                        *)
  9. (*   Dieses File enthält die für den Debugger not-        *)
  10. (*   wendigen Deklarationen.                              *)
  11. (*                                                        *)
  12. (**********************************************************)
  13.  
  14. Var
  15.    SchirmLog,                 (* Flag, ob Logging auf *)
  16.                               (* Bildschirm geht *)
  17.  
  18.    DruckerLog,                (* ebenso für Drucker *)
  19.    DateiLog:Boolean;          (* und in Datei *)
  20.  
  21.    LogFileName:FileName;      (* Name des LogFiles, falls *)
  22.                               (* es benutzt wird *)
  23.  
  24.    LogFile:Text;              (* TextFile genügt hier *)
  25.  
  26.                               (* jetzt folgen Felder, *)
  27.                               (* die angeben, ob eine *)
  28.                               (* bestimmte Aufgabe mit *)
  29.                               (* geloggt werden soll oder *)
  30.                               (* nicht *)
  31.  
  32.    HochLog:Array[1..AnzahlHoch] Of Boolean;
  33.                               (* für Aufgaben mit hoher *)
  34.                               (* Priorität *)
  35.  
  36.    FifoLog:Array[1..VerschFifo] Of Boolean;
  37.                               (* für Aufgaben in Fifo *)
  38.  
  39.    PeriodicLog:Array[1..AnzahlPeriodic] Of Boolean;
  40.                               (* für periodische Aufgaben *)
  41.  
  42.                               (* Deklaration aller Pro- *)
  43.                               (* zeduren und Funktionen *)
  44.                               (* als sogenannte Forwards *)
  45.  
  46. Procedure InitDebug(Frage,Schirm,Drucker,Datei:Boolean;
  47.                     Name:FileName); Forward;
  48. Procedure PLogLn; Forward;
  49. Procedure PLogText(S:Str255); Forward;
  50. Procedure PLogInteger(I:Integer); Forward;
  51. Procedure PLogReal(R:Real); Forward;
  52. Procedure PLogHoch(Index:Byte); Forward;
  53. Procedure PLogFifo(FifoNr:Byte;Param:Integer); Forward;
  54. Procedure PLogPeriodic(Index:Byte); Forward;
  55. Procedure PLogSchedul; Forward;
  56. Procedure PLogPutHoch(HochNr:Byte); Forward;
  57. Procedure PLogPutFifo(FifoNr:Byte;Param:Integer); Forward;
  58. Procedure PLogPutPerAbs(PerNr:Byte;AbsZeit:Real); Forward;
  59. Procedure PLogPutPerDelta(PerNr:Byte;DeltaZeit:Real);
  60.                                                   Forward;
  61. Procedure PLogInhaltHoch(S:Str255); Forward;
  62. Procedure PLogInhaltFifo(S:Str255); Forward;
  63. Procedure PLogInhaltPer(S:Str255); Forward;
  64.