[r2002-10-26 18:00:27 by cvscast] Empty log message

Original author: cvscast
Date: 2002-10-26 18:00:27+00:00

tests/str.cd

@@ -8,3 +8,14 @@ in
 (check "Giuseppe Castagna",
  check "Alain Frisch"
 );;
+
+
+let fun extr (Str -> Str)  [ (('a' x::_) | _)* ] -> x
+in
+extr "abcaxy";;
+
+
+type Text = [ (String | <comment>[String])* ];;
+let fun extr (Text -> Str) [ (x::String | _)* ] -> x
+in
+extr [ 'abc' 'def' <comment>['Blabla'] 'xyz' ];;