src/Pure/General/yxml.ML
changeset 43777 22c87ff1b8a9
parent 43772 c825594fd0c1
child 43782 834de29572d5
equal deleted inserted replaced
43776:6dd13e111d30 43777:22c87ff1b8a9
    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