let init s = state := s
-let add_when_job _loc name e sh =
+let add_when_job _loc name cleanup e sh =
let e = expr_of_ast _loc e in
- let job = { job_loc = _loc; job_name = name;
+ let job = { job_loc = _loc; job_name = name; job_cleanup = cleanup;
job_cond = When_job e; job_script = sh } in
state := Whenstate.add_job !state job
-let add_every_job _loc name e sh =
- let job = { job_loc = _loc; job_name = name;
+let add_every_job _loc name cleanup e sh =
+ let job = { job_loc = _loc; job_name = name; job_cleanup = cleanup;
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