home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pibterm / pibt41s1.arc / KDEBUG.MOD < prev    next >
Encoding:
Text File  |  1988-01-06  |  1.1 KB  |  49 lines
  1. {
  2. PROCEDURE Kermit_Debug_Write_Boolean( S : AnyStr; B: BOOLEAN );
  3.  
  4. BEGIN (* Kermit_Debug_Write_Boolean *)
  5.  
  6.    IF B THEN
  7.       Write_Log( 'Kermit debug: ' + S + ' = ON', FALSE, FALSE )
  8.    ELSE
  9.       Write_Log( 'Kermit debug: ' + S + ' = OFF', FALSE, FALSE );
  10.  
  11. END   (* Kermit_Debug_Write_Boolean *);
  12.  
  13. PROCEDURE Kermit_Debug_Write_String( S : AnyStr; S2 : AnyStr );
  14.  
  15. BEGIN (* Kermit_Debug_Write_String *)
  16.  
  17.    Write_Log( 'Kermit debug: ' + S + ' = <' +  S2  + '>', FALSE, FALSE );
  18.  
  19. END   (* Kermit_Debug_Write_String *);
  20.  
  21. PROCEDURE Kermit_Debug_Write_Char( S : AnyStr; Ch: CHAR );
  22.  
  23. BEGIN (* Kermit_Debug_Write_Char *)
  24.  
  25.    Write_Log( 'Kermit debug: ' + S + ' = <' + Ch  + '>', FALSE, FALSE );
  26.  
  27. END   (* Kermit_Debug_Write_Char *);
  28.  
  29. PROCEDURE Kermit_Debug_Write_Integer( S : AnyStr; B: INTEGER );
  30.  
  31. BEGIN (* Kermit_Debug_Write_Integer *)
  32.  
  33.    Write_Log( 'Kermit debug: ' + S + ' = ' + IToS( B ), FALSE, FALSE );
  34.  
  35. END   (* Kermit_Debug_Write_Integer *);
  36.  
  37. FUNCTION String_It( I: INTEGER ) : AnyStr;
  38.  
  39. VAR
  40.    S: STRING[10];
  41.  
  42. BEGIN (* String_It *)
  43.  
  44.    STR( I , S );
  45.  
  46.    String_It := S;
  47.  
  48. END   (* String_It *);
  49. }