let loadscripts () =
let user = Wp_parameters.Script.get () in
if !scriptfile <> Some user then
begin
savescripts () ;
let file =
if user = "" then
let ftmp = choose 0 in
Wp_parameters.warning
"No script file specified.@\nYour proofs would be saved in '%s'@\nUse -wp-script '%s' to re-run them."
ftmp ftmp ;
Wp_parameters.Script.set ftmp ;
ftmp
else
user
in
scriptfile := Some file ;
if Sys.file_exists file then
begin
needback := true ;
try parse_scripts user ;
with e ->
Wp_parameters.abort
"Error in script file '%s':@\n%s" user
(Printexc.to_string e)
end
else
needback := false
end