src/Pure/General/symbol.ML
changeset 69891 def3ec9cdb7e
parent 69592 a80d8ec6c998
child 71649 2acdbb6ee521
equal deleted inserted replaced
69890:cb643a1a5313 69891:def3ec9cdb7e
    16   val space: symbol
    16   val space: symbol
    17   val is_space: symbol -> bool
    17   val is_space: symbol -> bool
    18   val comment: symbol
    18   val comment: symbol
    19   val cancel: symbol
    19   val cancel: symbol
    20   val latex: symbol
    20   val latex: symbol
       
    21   val marker: symbol
    21   val is_char: symbol -> bool
    22   val is_char: symbol -> bool
    22   val is_utf8: symbol -> bool
    23   val is_utf8: symbol -> bool
    23   val is_symbolic: symbol -> bool
    24   val is_symbolic: symbol -> bool
    24   val is_symbolic_char: symbol -> bool
    25   val is_symbolic_char: symbol -> bool
    25   val is_printable: symbol -> bool
    26   val is_printable: symbol -> bool
   118 end;
   119 end;
   119 
   120 
   120 val comment = "\<comment>";
   121 val comment = "\<comment>";
   121 val cancel = "\<^cancel>";
   122 val cancel = "\<^cancel>";
   122 val latex = "\<^latex>";
   123 val latex = "\<^latex>";
       
   124 val marker = "\<^marker>";
   123 
   125 
   124 fun is_char s = size s = 1;
   126 fun is_char s = size s = 1;
   125 
   127 
   126 fun is_utf8 s = size s > 0 andalso forall_string (fn c => ord c >= 128) s;
   128 fun is_utf8 s = size s > 0 andalso forall_string (fn c => ord c >= 128) s;
   127 
   129