3 IMPORT Args
, Texts
, Out
;
6 ParList
* = POINTER TO ParRec
;
20 PROCEDURE GetClock* (VAR t, d: LONGINT);
22 PROCEDURE Time* (): LONGINT;
25 PROCEDURE PopulateParams
;
26 VAR W
: Texts
.Writer
; i
: INTEGER; str
: ARRAY 256 OF CHAR;
30 WHILE i
< Args
.count
DO
31 Args
.GetArg(i
, str
); Texts
.WriteString(W
, str
); Texts
.Write(W
, " ");
34 Texts
.Append(Par
.text
, W
.buf
);
37 PROCEDURE GetSelection
*(VAR text
: Texts
.Text
; VAR beg
, end
, time
: LONGINT);
38 BEGIN text
:= NIL; beg
:= 0; end
:= 0; time
:= 0
41 (* --- Notifier for echoing to the comsole all text appended to the log. --- *)
42 PROCEDURE LogNotifier(Log
: Texts
.Text
; op
: INTEGER; beg
, end
: LONGINT);
45 Texts
.OpenReader(R
, Log
, beg
);
46 WHILE ~R
.eot
& (beg
< end
) DO
48 IF ch
= 0DX
THEN Out
.Ln
ELSE Out
.Char(ch
) END;
57 Texts
.Open(Par
.text
, "");
61 Log
.notify
:= LogNotifier
;