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

Original author: cvscast Date: 2003-06-07 17:17:13+00:00

[r2003-06-07 17:17:13 by cvscast] Benchmarks
Original author: cvscast Date: 2003-06-07 17:17:13+00:00
a014f905 · Pietro Abate · 10e9d0d4 · a014f905 · a014f905 · a014f905
Commit a014f905 authored Oct 05, 2007 by Pietro Abate
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

benchmarks/split1.cd benchmarks/split1.cd +1 -1

benchmarks/split2.cd benchmarks/split2.cd +1 -1

benchmarks/split3.cd benchmarks/split3.cd +3 -3

No files found.
--- a/benchmarks/split1.cd
+++ b/benchmarks/split1.cd
 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 ]

--- a/benchmarks/split2.cd
+++ b/benchmarks/split2.cd
 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 ]

--- a/benchmarks/split3.cd
+++ b/benchmarks/split3.cd
 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"