Commit 847b5f6a authored by Pietro Abate's avatar Pietro Abate

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

Original author: cvscast
Date: 2002-11-15 22:40:12+00:00
parent 76ab1ffc
......@@ -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 ()
<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>
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
......@@ -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
......
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