Commit f8f01058 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-10-20 20:01:53+00:00
parent ee13504e
DEBUG = -g
OCAMLC = ocamlcp -p a
OCAMLC = ocamlc
PARSER = parser/location.cmo parser/ast.cmo parser/parser.cmo
......
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 () =
......
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