-val init : unit -> unit
-(** "Initialize" the module. Clear the list of jobs and other
- internal variables so we are ready to parse a new file. *)
+val init : Whenstate.t -> unit
+(** "Initialize" the module. Pass in the initial state, ready for
+ parsing a new file. *)