home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / perqa / kermiterror.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  2KB  |  93 lines
  1. MODULE KermitError ;
  2.  
  3.  
  4.  
  5. EXPORTS
  6.  
  7. IMPORTS KermitGlobals      FROM KermitGlobals ;
  8.  
  9.  
  10. PROCEDURE ErrorMsg(msg:MsgString ) ;
  11. PROCEDURE ErrorInt( msg:MsgString; n: Integer ) ;
  12. PROCEDURE ErrorStr( str: istring ) ;
  13. PROCEDURE DebugPacket(mes : MsgString;
  14.                       VAR p : Ppack);
  15. PROCEDURE Verbose(c:MsgString);
  16.  
  17.  
  18. PRIVATE
  19.  
  20. IMPORTS Screen          FROM Screen ;
  21.  
  22.  
  23. PROCEDURE ErrorMsg(msg:MsgString ) ;
  24.    (* output literal preceeded by NEWLINE *)
  25.    (* to the PERQ error window  -pt*)
  26.    BEGIN (*-ErrorMsg-*)
  27.       ChangeWindow( ErrorWindow ) ;
  28.       Writeln ;
  29.       Write( msg ) ;
  30.       ChangeWindow( KermitWindow )
  31.    END; (*-ErrorMsg-*)
  32.  
  33. PROCEDURE ErrorInt( msg:MsgString; n: Integer ) ;
  34.    (* Output a number preceeded by a message *)
  35.    (* to the PERQ error window  -pt*)
  36.    BEGIN (*-ErrorInt-*)
  37.       ChangeWindow( ErrorWindow ) ;
  38.       Writeln ;
  39.       Write( msg, n:1 ) ;
  40.       ChangeWindow( KermitWindow )
  41.    END; (*-ErrorInt-*)
  42.  
  43. PROCEDURE ErrorStr( str: istring ) ;
  44.    (* Output a "istring" to the error window *)
  45.    VAR i: Integer ;
  46.    BEGIN (*-ErrorStr-*)
  47.       ChangeWindow( ErrorWindow ) ;
  48.       i := 1 ;
  49.       WHILE str[i] <> ENDSTR DO
  50.         BEGIN
  51.            IF (str[i] = LF) THEN Writeln
  52.            ELSE Write(  Chr(str[i])  ) ;
  53.            i := i + 1
  54.         END ;
  55.       ChangeWindow( KermitWindow )
  56.    END ; (*-ErrorStr-*)
  57.  
  58.  
  59. PROCEDURE DebugPacket(mes : MsgString;
  60.                        VAR p : Ppack);
  61.    (* Print Debugging Info, into the error window -pt*)
  62.    VAR
  63.       i: Integer ;   (* index into data field -pt*)
  64.    BEGIN        (*-DebugPacket-*)
  65.       ChangeWindow( ErrorWindow ) ;  (* Print all this in error window -pt*)
  66.       Writeln ;
  67.       Write(mes);
  68.       WITH Buf[p] DO
  69.          BEGIN
  70.             Write( '(count:', count-#40:1 ) ; (* local "UnChar" *)
  71.             Write( ') (seq:', seq-#40:1 ) ;
  72.             Writeln( ') (type:',  Chr(ptype), ')' );
  73.             (* Write out the data field, straight to the screen -pt*)
  74.             i := 1 ;
  75.             WHILE (data[i] <> ENDSTR) DO
  76.                BEGIN
  77.                   Write( Chr(data[i]) ) ;
  78.                   i := i + 1
  79.                END ;
  80.             Writeln ;
  81.             (* done -pt*)
  82.          END;
  83.       ChangeWindow( KermitWindow )  (* back to kermit -pt*)
  84.    END;         (*-DebugPacket-*)
  85.  
  86.  
  87. PROCEDURE Verbose(c:MsgString);
  88.    (* Print writeln if verbosity *)
  89.    BEGIN
  90.       IF Verbosity THEN ErrorMsg(c);
  91.    END.
  92.  
  93.