[r2002-11-15 22:40:12 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-15 22:40:12+00:00

driver/run.ml

@@ -27,7 +27,7 @@ let do_file s =
   let input = Stream.of_channel chan in
   let ok = Cduce.run ppf ppf_err input in
   if s <> "" then close_in chan;
-  if not ok then exit 1
+  if not ok then (Format.fprintf ppf_err "@."; exit 1)
 
   
 
@@ -60,5 +60,4 @@ let main () =
 
 
 
-
 let () = main ()

tests/notes.xml

 <doc>
 CDuce <note>Frisch, Castagna, Benzaken</note> is 
 an XML <note>a W3C standard</note>-friendly programming language.
-</doc>
\ No newline at end of file
+</doc>

tests/stress_opt_seq.cd

 type T = [ `A? `B? `C? `D? `E? `F? `G? `H? `I? `J?
            `K? `L? `M? `N? `O? `P? `Q? `R?  ];;
 
+let fun f (Any -> T) T & x -> x | x -> f x;;
 
 (*
 debug compile Any T;;
 *)
+
+(*
 debug compile T
 P1 where
   P1 = (`A & (a := 1), P2) | (a := 2) & P2 and
@@ -12,6 +15,7 @@ P1 where
   P3 = (`C & (c := 1), P4) | (c := 2) & P4 and
   P4 = (`D & (d := 1), P5) | (d := 2) & P5 and
   P5 = `nil;;
+*)
 
 (*
 match [ `A `B `C ] with (P1 where
@@ -20,4 +24,4 @@ match [ `A `B `C ] with (P1 where
   P3 = (`C & (c := 1), P4) | (c := 2) & P4 and
   P4 = (`D & (d := 1), P5) | (d := 2) & P5 and
   P5 = `nil) -> (a,b,c,d);;
-*)
+*)
\ No newline at end of file

types/types.ml

@@ -376,7 +376,7 @@ This version explodes when dealing with
 (t & t1, s - s1) | ... | (t & tn, s - sn) | (t - (t1|...|tn), s)
 
 *)
-
+(*
   let get_aux d =
     let accu = ref [] in
     let line (left,right) =
@@ -398,7 +398,7 @@ This version explodes when dealing with
     in
     List.iter line d;
     !accu
-
+*)
   let get ?(kind=`Normal) d = 
     match kind with
       | `Normal -> get_aux d.times