home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / tools / prpdebug.doc < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.0 KB  |  43 lines
  1. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. --debugger.txt
  3. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. With Text_IO; Use Text_io;
  5. package DEBUGGER is
  6.    Procedure SAY (WHAT: in string);
  7. end DEBUGGER;
  8. Package body DEBUGGER is
  9. Procedure Say (WHAT: in string) is
  10. begin
  11.    Put(What);New_line;
  12. end SAY;
  13. end DEBUGGER; 
  14.  
  15.  
  16. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  17. --debugger2.txt
  18. --::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  19. With Text_IO; Use Text_io, integer_io, float_io;
  20. package DEBUGGER2 is
  21.    Procedure SAY (WHAT: in string);
  22.    Procedure SAY (WHAT: in float);
  23.    Procedure SAY (WHAT: in integer);
  24. end DEBUGGER2;
  25. Package body DEBUGGER2 is
  26.  
  27. Procedure Say (WHAT: in string) is
  28. begin
  29.    Put(What);New_line;
  30. end SAY;
  31.  
  32. Procedure Say (WHAT: in float) is
  33. begin
  34.    Put(What);New_line;
  35. end SAY;
  36.  
  37. Procedure Say (WHAT: in integer) is
  38. begin
  39.    Put(What);New_line;
  40. end SAY;
  41.  
  42. end DEBUGGER2; 
  43.