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

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

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 ]

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 ]

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"