1open regexEMCML;
2
3structure regexExeMC :> regex =
4struct
5
6  open regexType;
7
8  fun match r s = regexEMCML.acceptCM (regexEMCML.CACHE_REG (regexEMCML.MARK_REG (mapToRegExe r))) (explode s);
9
10end
11
12