1 (** Утилита для ковертирования теггированного текста в ASCII и на оборот **)
2 (** TextV4.ToAscii <input file name> <output file name> **)
3 (** TextV4.ToText <input file name> <output file name> **)
4 (** TextV4.PrintText <input file name> **)
8 IMPORT Oberon
, Texts
, Files
, Out
;
19 Texts
.OpenScanner(s
, Oberon
.Par
.text
, Oberon
.Par
.pos
);
20 Texts
.Scan(s
); NEW(t
); Texts
.Open(t
, s
.s
); Texts
.OpenReader(r
, t
, 0);
21 Texts
.Scan(s
); f
:= Files
.New(s
.s
); Files
.Set(w
, f
, 0);
24 IF c
# 00X
THEN IF c
= 0DX
THEN c
:= 0AX
END; Files
.Write(w
, c
) END;
27 IF c
# 00X
THEN IF c
= 0DX
THEN c
:= 0AX
END; Files
.Write(w
, c
) END;
29 Files
.Register(f
); Files
.Close(f
);
38 Texts
.OpenScanner(s
, Oberon
.Par
.text
, Oberon
.Par
.pos
);
39 Texts
.Scan(s
); NEW(t
); Texts
.Open(t
, s
.s
);
40 Texts
.Scan(s
); Texts
.Close(t
, s
.s
);
50 Texts
.OpenScanner(s
, Oberon
.Par
.text
, Oberon
.Par
.pos
);
51 Texts
.Scan(s
); NEW(t
); Texts
.Open(t
, s
.s
); Texts
.OpenReader(r
, t
, 0);
55 IF c
# 00X
THEN IF c
= 0DX
THEN Out
.Ln
; END; Out
.Char(c
) END;
58 IF c
# 00X
THEN IF c
= 0DX
THEN Out
.Ln
; END; Out
.Char(c
) END;