Commit e0e5f79d authored by Pietro Abate's avatar Pietro Abate

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

Original author: cvscast
Date: 2002-10-26 18:00:27+00:00
parent 12f07d4c
......@@ -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' ];;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment