Oberon/ETH Oberon/2.3.7/PPPDebug.Mod

(* ETH Oberon, Copyright 1990-2003 Computer Systems Institute, ETH Zurich, CH-8092 Zurich.
Refer to the license.txt file provided with this distribution. *)

MODULE PPPDebug;	(** non-portable *)	(* rb, 1996 *)
(* $VCS   4, Edgar@EdgarSchwarz.de, 25 Apr :0, 10:31:10 $
Logging to kernel log. Interactive display with System.OpenKernelLog
    $Log$
$   4, Edgar@EdgarSchwarz.de, 25 Apr :0, 10:31:10
now writing to a Text: PPPDebug.Log
$   3, Edgar@EdgarSchwarz.de, 24 Apr :0, 12:3:18
problem with Kernel.WriteHex fixed
$   2, Edgar.Schwarz@z.zgs.de, 18 Aug 99, 21:31:56
using Kernel log stuff instead of own log buffer
$   1, Edgar.Schwarz@z.zgs.de, 28 Feb 99, 22:11:59
version for PPP 1.0.0
*)
	IMPORT SYSTEM, Texts;

	VAR
		HexChar: ARRAY 17 OF CHAR;
		W: Texts.Writer; Log*: Texts.Text;

	PROCEDURE String*(s: ARRAY OF CHAR);
	BEGIN Texts.WriteString(W, s); END String;
	
	PROCEDURE Int*(x, n:LONGINT);
	BEGIN Texts.WriteInt(W, x, n); END Int;
	
	PROCEDURE IntBin* (n:INTEGER);
	BEGIN String(" ");  Int(n, 1);  String(" ") END IntBin;
	
	PROCEDURE LIntBin* (n:LONGINT);
	BEGIN String(" ");  Int(n, 1);  String(" ") END LIntBin;
	
	PROCEDURE Hex*(n:LONGINT);
	BEGIN Texts.WriteHex(W, n); END Hex;
	
	PROCEDURE HexByte*(b: SYSTEM.BYTE);
	BEGIN
		Texts.Write(W, HexChar[(ORD(b) MOD 256) DIV 16]); 
		Texts.Write(W, HexChar[(ORD(b) MOD 256) MOD 16]); 
	END HexByte;
	
	PROCEDURE Char*(ch: CHAR);
	BEGIN Texts.Write(W, ch) END Char;
	
	PROCEDURE Ln*;
	BEGIN Texts.WriteLn(W); Texts.Append(Log, W.buf); END Ln;
	
	PROCEDURE LHex* (label: ARRAY OF CHAR; val: LONGINT);
	BEGIN String(label); String(": "); Hex(val); Ln END LHex;
	
	PROCEDURE Init * ();
	BEGIN
		HexChar := "0123456789ABCDEF";
		NEW(Log); Texts.Open(Log, "");
		Texts.OpenWriter(W);
		Texts.WriteString(W, "2.1/es/25.04.2000"); Texts.WriteLn(W);
		Texts.Append(Log, W.buf);
	END Init;	

BEGIN Init();
END PPPDebug.