X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=lib%2Fwhenfile.ml;h=d011dfce377b41ebb175ad5b7d9190beec665be8;hp=b109e667938f35bd9b7d23b065d8938f051ba497;hb=77707acb12b5424488757569f376e1d9b58e5a22;hpb=108dd86b36e82df2a2029dbd12700f9c83e501c1

diff --git a/lib/whenfile.ml b/lib/whenfile.ml
index b109e66..d011dfc 100644
--- a/lib/whenfile.ml
+++ b/lib/whenfile.ml
@@ -25,15 +25,20 @@ let state = ref Whenstate.empty
 
 let init s = state := s
 
-let add_when_job _loc name e sh =
+let add_when_job _loc name pre post e sh =
   let e = expr_of_ast _loc e in
   let job = { job_loc = _loc; job_name = name;
+              job_pre = pre; job_post = post;
               job_cond = When_job e; job_script = sh } in
   state := Whenstate.add_job !state job
 
-let add_every_job _loc name e sh =
+let add_every_job _loc name pre post e sh =
   let job = { job_loc = _loc; job_name = name;
+              job_pre = pre; job_post = post;
               job_cond = Every_job e; job_script = sh } in
   state := Whenstate.add_job !state job
 
+let set_variable name value =
+  state := Whenstate.set_variable !state name value
+
 let get_state () = !state