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