equal
deleted
inserted
replaced
30 val number: string parser |
30 val number: string parser |
31 val float_number: string parser |
31 val float_number: string parser |
32 val string: string parser |
32 val string: string parser |
33 val alt_string: string parser |
33 val alt_string: string parser |
34 val verbatim: string parser |
34 val verbatim: string parser |
|
35 val cartouche: string parser |
35 val sync: string parser |
36 val sync: string parser |
36 val eof: string parser |
37 val eof: string parser |
37 val command_name: string -> string parser |
38 val command_name: string -> string parser |
38 val keyword_with: (string -> bool) -> string parser |
39 val keyword_with: (string -> bool) -> string parser |
39 val keyword_ident_or_symbolic: string parser |
40 val keyword_ident_or_symbolic: string parser |
183 val number = kind Token.Nat; |
184 val number = kind Token.Nat; |
184 val float_number = kind Token.Float; |
185 val float_number = kind Token.Float; |
185 val string = kind Token.String; |
186 val string = kind Token.String; |
186 val alt_string = kind Token.AltString; |
187 val alt_string = kind Token.AltString; |
187 val verbatim = kind Token.Verbatim; |
188 val verbatim = kind Token.Verbatim; |
|
189 val cartouche = kind Token.Cartouche; |
188 val sync = kind Token.Sync; |
190 val sync = kind Token.Sync; |
189 val eof = kind Token.EOF; |
191 val eof = kind Token.EOF; |
190 |
192 |
191 fun keyword_with pred = RESET_VALUE (Scan.one (Token.keyword_with pred) >> Token.content_of); |
193 fun keyword_with pred = RESET_VALUE (Scan.one (Token.keyword_with pred) >> Token.content_of); |
192 val keyword_ident_or_symbolic = keyword_with Token.ident_or_symbolic; |
194 val keyword_ident_or_symbolic = keyword_with Token.ident_or_symbolic; |