home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
perqa.zip
/
kermiterror.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-12-04
|
3KB
|
93 lines
MODULE KermitError ;
EXPORTS
IMPORTS KermitGlobals FROM KermitGlobals ;
PROCEDURE ErrorMsg(msg:MsgString ) ;
PROCEDURE ErrorInt( msg:MsgString; n: Integer ) ;
PROCEDURE ErrorStr( str: istring ) ;
PROCEDURE DebugPacket(mes : MsgString;
VAR p : Ppack);
PROCEDURE Verbose(c:MsgString);
PRIVATE
IMPORTS Screen FROM Screen ;
PROCEDURE ErrorMsg(msg:MsgString ) ;
(* output literal preceeded by NEWLINE *)
(* to the PERQ error window -pt*)
BEGIN (*-ErrorMsg-*)
ChangeWindow( ErrorWindow ) ;
Writeln ;
Write( msg ) ;
ChangeWindow( KermitWindow )
END; (*-ErrorMsg-*)
PROCEDURE ErrorInt( msg:MsgString; n: Integer ) ;
(* Output a number preceeded by a message *)
(* to the PERQ error window -pt*)
BEGIN (*-ErrorInt-*)
ChangeWindow( ErrorWindow ) ;
Writeln ;
Write( msg, n:1 ) ;
ChangeWindow( KermitWindow )
END; (*-ErrorInt-*)
PROCEDURE ErrorStr( str: istring ) ;
(* Output a "istring" to the error window *)
VAR i: Integer ;
BEGIN (*-ErrorStr-*)
ChangeWindow( ErrorWindow ) ;
i := 1 ;
WHILE str[i] <> ENDSTR DO
BEGIN
IF (str[i] = LF) THEN Writeln
ELSE Write( Chr(str[i]) ) ;
i := i + 1
END ;
ChangeWindow( KermitWindow )
END ; (*-ErrorStr-*)
PROCEDURE DebugPacket(mes : MsgString;
VAR p : Ppack);
(* Print Debugging Info, into the error window -pt*)
VAR
i: Integer ; (* index into data field -pt*)
BEGIN (*-DebugPacket-*)
ChangeWindow( ErrorWindow ) ; (* Print all this in error window -pt*)
Writeln ;
Write(mes);
WITH Buf[p] DO
BEGIN
Write( '(count:', count-#40:1 ) ; (* local "UnChar" *)
Write( ') (seq:', seq-#40:1 ) ;
Writeln( ') (type:', Chr(ptype), ')' );
(* Write out the data field, straight to the screen -pt*)
i := 1 ;
WHILE (data[i] <> ENDSTR) DO
BEGIN
Write( Chr(data[i]) ) ;
i := i + 1
END ;
Writeln ;
(* done -pt*)
END;
ChangeWindow( KermitWindow ) (* back to kermit -pt*)
END; (*-DebugPacket-*)
PROCEDURE Verbose(c:MsgString);
(* Print writeln if verbosity *)
BEGIN
IF Verbosity THEN ErrorMsg(c);
END.