equal
deleted
inserted
replaced
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 "~"; |