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
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