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
cb22215d
Commit
cb22215d
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2002-11-13 22:47:46 by cvscast] Empty log message
Original author: cvscast Date: 2002-11-13 22:47:46+00:00
parent
2f8aca20
Changes
2
Hide whitespace changes
Inline
Side-by-side
runtime/print_xml.ml
View file @
cb22215d
...
@@ -38,7 +38,7 @@ let string_of_xml v=
...
@@ -38,7 +38,7 @@ let string_of_xml v=
and
text
s
=
wds
s
in
and
text
s
=
wds
s
in
let
rec
print_elt
=
function
let
rec
print_elt
=
function
|
Pair
(
Atom
tag
,
Pair
(
Record
attrs
,
content
))
->
|
Xml
(
Atom
tag
,
Pair
(
Record
attrs
,
content
))
->
let
tag
=
Types
.
AtomPool
.
value
tag
in
let
tag
=
Types
.
AtomPool
.
value
tag
in
element_start
tag
element_start
tag
(
List
.
map
(
fun
(
n
,
v
)
->
(
List
.
map
(
fun
(
n
,
v
)
->
...
...
tests/overloading.cd
View file @
cb22215d
...
@@ -20,7 +20,7 @@ let fun sort (MPerson -> Man ; FPerson -> Woman)
...
@@ -20,7 +20,7 @@ let fun sort (MPerson -> Man ; FPerson -> Woman)
;;
;;
let base : Person =
let base : Person =
<person gender="M">[
<person gender="M">[
<n
a
me>"Claude"
<nme>"Claude"
<children>[
<children>[
<person gender="F">[
<person gender="F">[
<name>"Vronique"
<name>"Vronique"
...
...
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