|
functor ParamPatternLrValsFun(structure Token : TOKEN) : sig
signature ParserData =
PARSER_DATA
signature Tokens =
ParamPattern_TOKENS
end =
struct
structure ParserData = struct end
structure Tokens : ParamPattern_TOKENS =
struct
type svalue = ParserData.svalue
type ('a, 'b) token = ('a, 'b) Token.token
val EOF : 'a * 'a -> (svalue, 'a) token
val ID : string * 'a * 'a -> (svalue, 'a) token
val DOT : 'a * 'a -> (svalue, 'a) token
val EQUALOP : 'a * 'a -> (svalue, 'a) token
val ASTERISK : 'a * 'a -> (svalue, 'a) token
val COLON : 'a * 'a -> (svalue, 'a) token
val COMMA : 'a * 'a -> (svalue, 'a) token
val LBRACE : 'a * 'a -> (svalue, 'a) token
val LPAREN : 'a * 'a -> (svalue, 'a) token
val RBRACE : 'a * 'a -> (svalue, 'a) token
val RPAREN : 'a * 'a -> (svalue, 'a) token
end
end
|