src/Pure/library.ML
changeset 3063 963e3bf01799
parent 2978 83a4c4f79dcd
child 3246 7f783705c7a4
equal deleted inserted replaced
3062:be354f68d340 3063:963e3bf01799
   388   | is_quasi_letter "'" = true
   388   | is_quasi_letter "'" = true
   389   | is_quasi_letter ch = is_letter ch;
   389   | is_quasi_letter ch = is_letter ch;
   390 
   390 
   391 (*white space: blanks, tabs, newlines, formfeeds*)
   391 (*white space: blanks, tabs, newlines, formfeeds*)
   392 val is_blank : string -> bool =
   392 val is_blank : string -> bool =
   393   fn " " => true | "\t" => true | "\n" => true | "\^L" => true | _ => false;
   393   fn " " => true | "\t" => true | "\n" => true | "\^L" => true | "160" => true
       
   394     | _ => false;
   394 
   395 
   395 val is_letdig = is_quasi_letter orf is_digit;
   396 val is_letdig = is_quasi_letter orf is_digit;
   396 
   397 
   397 (*printable chars*)
   398 (*printable chars*)
   398 fun is_printable c = ord c > ord " " andalso ord c <= ord "~";
   399 fun is_printable c = ord c > ord " " andalso ord c <= ord "~";