Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
e0e5f79d
Commit
e0e5f79d
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[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
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/str.cd
View file @
e0e5f79d
...
...
@@ -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' ];;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment