src/Pure/section_utils.ML
changeset 1460 5a6f2aabd538
parent 1458 fd510875fb71
child 2863 d97f5f424b97
     1.1 --- a/src/Pure/section_utils.ML	Mon Jan 29 13:58:15 1996 +0100
     1.2 +++ b/src/Pure/section_utils.ML	Mon Jan 29 14:16:13 1996 +0100
     1.3 @@ -1,6 +1,6 @@
     1.4 -(*  Title:      Pure/section-utils
     1.5 +(*  Title: 	Pure/section-utils
     1.6      ID:         $Id$
     1.7 -    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     1.8 +    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
     1.9      Copyright   1994  University of Cambridge
    1.10  
    1.11  Utilities for writing new theory sections
    1.12 @@ -49,16 +49,16 @@
    1.13    Does not handle the \ddd form;  no error checking*)
    1.14  fun escape [] = []
    1.15    | escape cs = (case take_prefix (not o is_backslash) cs of
    1.16 -         (front, []) => front
    1.17 +	 (front, []) => front
    1.18         | (front, _::"n"::rest) => front @ ("\n" :: escape rest)
    1.19         | (front, _::"t"::rest) => front @ ("\t" :: escape rest)
    1.20         | (front, _::"^"::c::rest) => front @ (chr(ord(c)-64) :: escape rest)
    1.21         | (front, _::"\""::rest) => front @ ("\"" :: escape rest)
    1.22         | (front, _::"\\"::rest) => front @ ("\\" :: escape rest)
    1.23         | (front, b::c::rest) => 
    1.24 -           if is_blank c   (*remove any further blanks and the following \ *)
    1.25 -           then front @ escape (tl (snd (take_prefix is_blank rest)))
    1.26 -           else error ("Unrecognized string escape: " ^ implode(b::c::rest)));
    1.27 +	   if is_blank c   (*remove any further blanks and the following \ *)
    1.28 +	   then front @ escape (tl (snd (take_prefix is_blank rest)))
    1.29 +	   else error ("Unrecognized string escape: " ^ implode(b::c::rest)));
    1.30  
    1.31  (*Remove the first and last charaters -- presumed to be quotes*)
    1.32  val trim = implode o escape o rev o tl o rev o tl o explode;