[r2002-10-20 20:01:53 by cvscast] Empty log message

Original author: cvscast
Date: 2002-10-20 20:01:53+00:00

Makefile

 DEBUG = -g
-OCAMLC = ocamlcp -p a
+OCAMLC = ocamlc
 
 PARSER = parser/location.cmo parser/ast.cmo parser/parser.cmo
 

driver/cduce.ml

 open Location
-open Sys
-exception Usage of unit
+exception Usage
 
 let () =
   List.iter 
@@ -8,10 +7,13 @@ let () =
     Builtin.types
 
 
-let input = if Array.length argv = 1 then (Stream.of_channel stdin) 
-            else if (Array.length argv > 2)  or
-               not (file_exists (Array.get argv 1)) then raise(Usage () )
-            else (Stream.of_channel (open_in (Array.get argv 1)))
+let input_channel = 
+  match Array.length Sys.argv with
+    | 1 -> stdin
+    | 2 -> open_in Sys.argv.(1)
+    | _ -> raise Usage
+
+let input = Stream.of_channel input_channel
 
 let ppf = Format.std_formatter
 let prog () =