Trurl-based/System/Mod/Log.txt

   1 MODULE Log;
   2
   3         (* THIS IS TEXT COPY OF BlackBox 1.6-rc6 System/Mod/Log.odc *)
   4         (* DO NOT EDIT *)
   5
   6         IMPORT Kernel;
   7
   8         TYPE
   9                 Hook* = POINTER TO ABSTRACT RECORD (Kernel.Hook) END;
  10
  11         VAR
  12                 synch*: BOOLEAN;        (* ~synch => output only on FlushBuf *)
  13                 force*: BOOLEAN;        (* force => every call causes a Views.Restore *)
  14
  15                 hook: Hook;
  16
  17         PROCEDURE (log: Hook) Guard* (o: ANYPTR): BOOLEAN, NEW, ABSTRACT;
  18
  19         PROCEDURE (log: Hook) ClearBuf*, NEW, ABSTRACT;
  20         PROCEDURE (log: Hook) FlushBuf*, NEW, ABSTRACT;
  21
  22         PROCEDURE (log: Hook) Beep*, NEW, ABSTRACT;
  23         PROCEDURE (log: Hook) Char* (ch: CHAR), NEW, ABSTRACT;
  24         PROCEDURE (log: Hook) Int* (n: INTEGER), NEW, ABSTRACT;
  25         PROCEDURE (log: Hook) Real* (x: REAL), NEW, ABSTRACT;
  26         PROCEDURE (log: Hook) String* (IN str: ARRAY OF CHAR), NEW, ABSTRACT;
  27         PROCEDURE (log: Hook) Bool* (x: BOOLEAN), NEW, ABSTRACT;
  28         PROCEDURE (log: Hook) Set* (x: SET), NEW, ABSTRACT;
  29         PROCEDURE (log: Hook) IntForm* (x: INTEGER; base, minWidth: INTEGER; fillCh: CHAR;
  30                                                                                                                 showBase: BOOLEAN), NEW, ABSTRACT;
  31         PROCEDURE (log: Hook) RealForm* (x: REAL; precision, minW, expW: INTEGER;
  32                                                                                                                                 fillCh: CHAR), NEW, ABSTRACT;
  33         PROCEDURE (log: Hook) Tab*, NEW, ABSTRACT;
  34         PROCEDURE (log: Hook) Ln*, NEW, ABSTRACT;
  35         PROCEDURE (log: Hook) Para*, NEW, ABSTRACT;
  36         PROCEDURE (log: Hook) View* (v: ANYPTR), NEW, ABSTRACT;
  37         PROCEDURE (log: Hook) ViewForm* (v: ANYPTR; w, h: INTEGER), NEW, ABSTRACT;
  38         PROCEDURE (log: Hook) ParamMsg* (IN s, p0, p1, p2: ARRAY OF CHAR), NEW, ABSTRACT;
  39
  40
  41         PROCEDURE SetHook*(h: Hook);
  42         BEGIN
  43                 hook := h
  44         END SetHook;
  45
  46         PROCEDURE ClearBuf*;
  47         BEGIN
  48                 IF hook # NIL THEN hook.ClearBuf END
  49         END ClearBuf;
  50
  51         PROCEDURE FlushBuf*;
  52         BEGIN
  53                 IF hook # NIL THEN hook.FlushBuf END
  54         END FlushBuf;
  55
  56         PROCEDURE Guard* (o: ANYPTR): BOOLEAN;
  57         BEGIN
  58                 RETURN (hook # NIL) & hook.Guard(o)
  59         END Guard;
  60
  61
  62         PROCEDURE Beep*;
  63         BEGIN
  64                 IF hook # NIL THEN hook.Beep() END
  65         END Beep;
  66
  67         PROCEDURE Char* (ch: CHAR);
  68         BEGIN
  69                 IF hook # NIL THEN hook.Char(ch) END
  70         END Char;
  71
  72         PROCEDURE Int* (n: INTEGER);
  73         BEGIN
  74                 IF hook # NIL THEN hook.Int(n) END
  75         END Int;
  76
  77         PROCEDURE Real* (x: REAL);
  78         BEGIN
  79                 IF hook # NIL THEN hook.Real(x) END
  80         END Real;
  81
  82         PROCEDURE String* (str: ARRAY OF CHAR);
  83         BEGIN
  84                 IF hook # NIL THEN hook.String(str) END
  85         END String;
  86
  87         PROCEDURE Bool* (x: BOOLEAN);
  88         BEGIN
  89                 IF hook # NIL THEN hook.Bool(x) END
  90         END Bool;
  91
  92         PROCEDURE Set* (x: SET);
  93         BEGIN
  94                 IF hook # NIL THEN hook.Set(x) END
  95         END Set;
  96
  97         PROCEDURE IntForm* (x: INTEGER; base, minWidth: INTEGER; fillCh: CHAR; showBase: BOOLEAN);
  98         BEGIN
  99                 IF hook # NIL THEN hook.IntForm(x, base, minWidth, fillCh, showBase) END
 100         END IntForm;
 101
 102         PROCEDURE RealForm* (x: REAL; precision, minW, expW: INTEGER; fillCh: CHAR);
 103         BEGIN
 104                 IF hook # NIL THEN hook.RealForm(x, precision, minW, expW, fillCh) END
 105         END RealForm;
 106
 107         PROCEDURE Tab*;
 108         BEGIN
 109                 IF hook # NIL THEN hook.Tab END
 110         END Tab;
 111
 112         PROCEDURE Ln*;
 113         BEGIN
 114                 IF hook # NIL THEN hook.Ln END
 115         END Ln;
 116
 117         PROCEDURE Para*;
 118         BEGIN
 119                 IF hook # NIL THEN hook.Para END
 120         END Para;
 121
 122         PROCEDURE View* (v: ANYPTR);
 123         BEGIN
 124                 IF hook # NIL THEN hook.View(v) END
 125         END View;
 126
 127         PROCEDURE ViewForm* (v: ANYPTR; w, h: INTEGER);
 128         BEGIN
 129                 IF hook # NIL THEN hook.ViewForm(v, w, h) END
 130         END ViewForm;
 131
 132         PROCEDURE ParamMsg* (s, p0, p1, p2: ARRAY OF CHAR);
 133         BEGIN
 134                 IF hook # NIL THEN hook.ParamMsg(s, p0, p1, p2) END
 135         END ParamMsg;
 136
 137         PROCEDURE Msg* (s: ARRAY OF CHAR);
 138         BEGIN
 139                 ParamMsg(s, "", "", "")
 140         END Msg;
 141
 142 BEGIN
 143         synch := TRUE; force := FALSE
 144 END Log.