Skip to content

GitLab

C
cduce
Commit a014f905 authored by Pietro Abate's avatar Pietro Abate
Browse files
Options

[r2003-06-07 17:17:13 by cvscast] Benchmarks 

Original author: cvscast
Date: 2003-06-07 17:17:13+00:00
parent 10e9d0d4
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 5 deletions
benchmarks/split1.cd
View file @ a014f905
type Person = FPerson | MPerson
type FPerson = <person gender = "F" >[ Name Children ]
type FPerson = <person gender="F" >[ Name Children ]
type MPerson = <person gender="M">[ Name Children ]
type Children = <children>[Person*]
type Name = <name>[ PCDATA ]
......
benchmarks/split2.cd
View file @ a014f905
type Person = FPerson | MPerson
type FPerson = <person gender = "F" >[ Name Children ]
type FPerson = <person gender="F" >[ Name Children ]
type MPerson = <person gender="M">[ Name Children ]
type Children = <children>[Person*]
type Name = <name>[ PCDATA ]
......
benchmarks/split3.cd
View file @ a014f905
type Person = FPerson | MPerson
type FPerson = <person gender = "F" >[ Name Children ]
type FPerson = <person gender="F" >[ Name Children ]
type MPerson = <person gender="M">[ Name Children ]
type Children = <children>[Person*]
type Name = <name>[ PCDATA ]
......@@ -24,7 +24,7 @@ let split_f (FPerson -> Woman)
match argv with
| [ f ] ->
(match load_xml f with
| <doc>(l & [Person*]) -> <doc>(map l with x & MPerson -> split_m x |
x & FPerson -> split_f x)
| <doc>(l & [Person*]) ->
<doc>(map l with x & MPerson -> split_m x | x & FPerson -> split_f x)
| _ -> raise "Invalid document")
| _ -> raise "Invalid command line"
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