-
Notifications
You must be signed in to change notification settings - Fork 2
/
Writers.cp
34 lines (28 loc) · 1.12 KB
/
Writers.cp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
MODULE XhtmlWriters;
(**
project = "BlackBox"
organization = "www.oberon.ch"
contributors = "Oberon microsystems"
version = "System/Rsrc/About"
copyright = "System/Rsrc/About"
license = "Docu/BB-License"
changes = ""
issues = ""
**)
CONST prettyPrint* = FALSE; preserve* = TRUE;
TYPE
Error* = POINTER TO RECORD
pos*: INTEGER;
msg*: ARRAY 80 OF CHAR
END;
Writer* = POINTER TO ABSTRACT RECORD END;
PROCEDURE (wr: Writer) Error* (): Error, NEW, ABSTRACT;
PROCEDURE (wr: Writer) Ln*, NEW, ABSTRACT;
PROCEDURE (wr: Writer) Comment* (IN comment: ARRAY OF CHAR), NEW, ABSTRACT;
PROCEDURE (wr: Writer) Instruction* (IN piTarget, instruction: ARRAY OF CHAR), NEW, ABSTRACT;
PROCEDURE (wr: Writer) DocType* (IN rootName, pubidLiteral, sysidLiteral: ARRAY OF CHAR), NEW, ABSTRACT;
PROCEDURE (wr: Writer) StartTag* (IN elem: ARRAY OF CHAR; preserve: BOOLEAN), NEW, ABSTRACT;
PROCEDURE (wr: Writer) Attr* (IN name, value: ARRAY OF CHAR), NEW, ABSTRACT;
PROCEDURE (wr: Writer) Data* (IN data: ARRAY OF CHAR), NEW, ABSTRACT;
PROCEDURE (wr: Writer) EndTag*, NEW, ABSTRACT;
END XhtmlWriters.