clarified YXML.embed_controls -- this is idempotent and cannot be nested;
authorwenzelm
Tue Jul 12 13:45:05 2011 +0200 (2011-07-12 ago)
changeset 43772c825594fd0c1
parent 43771 fc524449f511
child 43773 e8ba493027a3
clarified YXML.embed_controls -- this is idempotent and cannot be nested;
src/Pure/General/yxml.ML
src/Pure/System/isabelle_process.ML
     1.1 --- a/src/Pure/General/yxml.ML	Tue Jul 12 13:39:29 2011 +0200
     1.2 +++ b/src/Pure/General/yxml.ML	Tue Jul 12 13:45:05 2011 +0200
     1.3 @@ -15,7 +15,7 @@
     1.4  
     1.5  signature YXML =
     1.6  sig
     1.7 -  val escape_controls: string -> string
     1.8 +  val embed_controls: string -> string
     1.9    val detect: string -> bool
    1.10    val output_markup: Markup.T -> string * string
    1.11    val element: string -> XML.attributes -> string list -> string
    1.12 @@ -37,7 +37,7 @@
    1.13    then chr 192 ^ chr (128 + ord c)
    1.14    else c;
    1.15  
    1.16 -fun escape_controls str =
    1.17 +fun embed_controls str =
    1.18    if exists_string Symbol.is_ascii_control str
    1.19    then translate_string pseudo_utf8 str
    1.20    else str;
     2.1 --- a/src/Pure/System/isabelle_process.ML	Tue Jul 12 13:39:29 2011 +0200
     2.2 +++ b/src/Pure/System/isabelle_process.ML	Tue Jul 12 13:45:05 2011 +0200
     2.3 @@ -68,7 +68,7 @@
     2.4  
     2.5  fun message mbox ch raw_props body =
     2.6    let
     2.7 -    val robust_props = map (pairself YXML.escape_controls) raw_props;
     2.8 +    val robust_props = map (pairself YXML.embed_controls) raw_props;
     2.9      val header = YXML.string_of (XML.Elem ((ch, robust_props), []));
    2.10    in Mailbox.send mbox (chunk header @ chunk body) end;
    2.11