It now exits gracefully after an End-of-file.

diff --git a/helm/proofChecker/Makefile b/helm/proofChecker/Makefile
index 8cea8c8dc6dafcb895d26b3eb1dd5a371f32fda4..107d5699e4295fe025c1470fe18ace5aab84d55e 100644 (file)
--- a/helm/proofChecker/Makefile
+++ b/helm/proofChecker/Makefile
@@ -9,8 +9,8 @@ OCAMLDEP = ocamldep
 LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
 LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
 
-all: proofChecker
-opt: proofChecker.opt
+all: $(PROOFCHECKEROBJS) proofChecker
+opt: $(PROOFCHECKEROBJS:.cmo=.cmx) proofChecker.opt
 
 DEPOBJS = proofChecker.ml
 

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index 1c7245164147eb8227b4ffb1c86418a6a13cf867..d7cf692849933d6a51fb0ac07b1b73ee882f0129 100644 (file)
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/proofChecker/proofChecker.ml
@@ -39,18 +39,22 @@ List of options:"
       exit (-1)
      end
   ) usage_msg ;
-  while true do
-   begin
-    try
-     CicTypeChecker.typecheck (UriManager.uri_of_string (read_line ()))
-    with
-     e ->
-      print_newline() ;
-      flush stdout ;
-      raise e
-   end ;
-   print_endline "END"
-  done
+  try
+   while true do
+    begin
+     try
+      CicTypeChecker.typecheck (UriManager.uri_of_string (read_line ()))
+     with
+        End_of_file -> raise End_of_file
+      | e ->
+       print_newline() ;
+       flush stdout ;
+       raise e
+    end ;
+    print_endline "END"
+   done
+  with
+   End_of_file -> ()
 ;;
 
 CicCooking.init() ;