module Extended_common:Pervasive functions.
val run_main :
(unit -> unit) -> 'a
val write_wrap :
?mode:[ `Append | `Atomic | `Atomic_update | `Clobber ] ->
f:(Pervasives.out_channel -> 'a) -> string -> 'a
write_wrap ~atomic ~f fnameRuns
`Atomic_updateis set all the changes will be written to a temporary file which will then be moved over
fnameotherwise we are writing straight to
`Clobber: clear the file on opening (this is the default value)
`Append: append to the file
`Atomic: replace the file atomically when we are done writing it
`Atomic_update: replace the file atomically when we are done writing it iff its content has been modified.