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