equal
deleted
inserted
replaced
13 X Y X |
13 X Y X |
14 *) |
14 *) |
15 |
15 |
16 signature YXML = |
16 signature YXML = |
17 sig |
17 sig |
|
18 val X: Symbol.symbol |
|
19 val Y: Symbol.symbol |
18 val embed_controls: string -> string |
20 val embed_controls: string -> string |
19 val detect: string -> bool |
21 val detect: string -> bool |
20 val output_markup: Markup.T -> string * string |
22 val output_markup: Markup.T -> string * string |
21 val element: string -> XML.attributes -> string list -> string |
23 val element: string -> XML.attributes -> string list -> string |
22 val string_of_body: XML.body -> string |
24 val string_of_body: XML.body -> string |
43 else str; |
45 else str; |
44 |
46 |
45 |
47 |
46 (* markers *) |
48 (* markers *) |
47 |
49 |
48 val X = Symbol.ENQ; |
50 val X = chr 5; |
49 val Y = Symbol.ACK; |
51 val Y = chr 6; |
50 val XY = X ^ Y; |
52 val XY = X ^ Y; |
51 val XYX = XY ^ X; |
53 val XYX = XY ^ X; |
52 |
54 |
53 val detect = exists_string (fn s => s = X); |
55 val detect = exists_string (fn s => s = X); |
54 |
56 |