programs: command line option -L instead of -I to be consistent with why

Makefile.in

@@ -241,7 +241,7 @@ clean::
 # test target
 
 %: %.mlw bin/whyml.byte
-	bin/whyml.byte -I theories $*.mlw
+	bin/whyml.byte -L theories $*.mlw
 
 ###############
 # proof manager
@@ -474,7 +474,7 @@ clean::
 bench:: bin/why.@OCAMLBEST@ bin/whyml.@OCAMLBEST@
 	sh bench/bench \
 	    "bin/why.@OCAMLBEST@" \
-	    "bin/whyml.@OCAMLBEST@ -I theories"
+	    "bin/whyml.@OCAMLBEST@ -L theories"
 
 BENCH_PLUGINS_CMO := helloworld.cmo simplify_array.cmo
 BENCH_PLUGINS_CMO := $(addprefix bench/plugins/,$(BENCH_PLUGINS_CMO))
@@ -515,7 +515,7 @@ test: bin/why.byte $(TOOLS)
 	@for i in output_coq/*.v; do printf "coq $$i\\n" && coqc $$i ; done
 
 testl: bin/whyml.byte
-	ocamlrun -bt bin/whyml.byte -I theories/ tests/test-pgm-jcf.mlw
+	ocamlrun -bt bin/whyml.byte -L theories/ tests/test-pgm-jcf.mlw
 
 ###############
 # installation

src/programs/pgm_main.ml

@@ -27,14 +27,17 @@ let parse_only = ref false
 let type_only = ref false
 let debug = ref false
 let loadpath = ref []
+let prover = ref None
 
 let () = 
   Arg.parse 
     ["--parse-only", Arg.Set parse_only, "stops after parsing";
      "--type-only", Arg.Set type_only, "stops after type-checking";
      "--debug", Arg.Set debug, "sets the debug flag";
-     "-I", Arg.String (fun s -> loadpath := s :: !loadpath), 
+     "-L", Arg.String (fun s -> loadpath := s :: !loadpath), 
        "<dir>  adds dir to the loadpath";
+     "-P", Arg.String (fun s -> prover := Some s),
+       "<prover> proves the verification conditions";
     ]
     (fun f -> files := f :: !files)
     "usage: whyl [options] files..."

src/programs/pgm_wp.ml

 
 open Why
+open Ident
+open Term
+open Decl
+open Theory
+open Pgm_ttree
 
-let file uc _dl =
+let wp _l _e = f_true (* TODO *)
+
+let wp_recfun _l _def = f_true (* TODO *)
+
+let add_wp_decl uc l f =
+  let pr = create_prsymbol (id_fresh ("WP_" ^ l.ls_name.id_string)) in
+  let d = create_prop_decl Pgoal pr f in
+  add_decl uc d
+
+let decl uc = function
+  | Dlet (l, e) ->
+      let f = wp l e in
+      add_wp_decl uc l f
+  | Dletrec dl ->
+      let add_one uc (l, def) = let f = wp_recfun l def in add_wp_decl uc l f in
+      List.fold_left add_one uc dl
+  | Dparam _ ->
+      uc
+
+let file uc dl =
+  let uc = List.fold_left decl uc dl in
   Theory.close_theory uc

src/programs/pgm_wp.mli

@@ -3,3 +3,6 @@ open Why
 open Theory
 
 val file : theory_uc -> Pgm_ttree.file -> theory
+  (** takes as input the result of [Pgm_typing.file] and produces
+      a theory containing the verification conditions as goals,
+      one for each function *)