1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(***********************************************************************)
(* *)
(* HEVEA *)
(* *)
(* Luc Maranget, projet Moscova, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* *)
(* $Id: esponja.ml,v 1.11 2007/02/09 14:44:28 maranget Exp $ *)
(***********************************************************************)
open Mysys
let arg = ref []
;;
Arg.parse
["-u", Arg.Set Esp.pess, "pessimize" ;
"-v", Arg.Unit (fun () -> incr Emisc.verbose),"be verbose" ;
"-n", Arg.Unit (fun () -> Esp.move := false ; incr Emisc.verbose),
"do not change files"]
(fun s -> arg := s :: !arg)
("Usage: esponja [option*] < infile > outfile,\n or esponja [option*] files+
options are:")
;;
let main () =
try
begin match !arg with
| [] ->
let ok = Esp.process None "" stdin stdout in
exit (if ok then 0 else 2)
| files ->
List.iter (fun f -> ignore (Esp.file f)) (List.rev files) ;
exit 0
end
with
| e ->
Printf.fprintf stderr "Unexpected exception: %s\n"
(Printexc.to_string e) ;
exit 2
;;
main ()
;;
|
