let eval_ocaml args =
let len = Array.length args in
if len < 1 then
Cam_commands.eval_command "prompt_eval"
else
(
let code = args.(0) in
(* use a temporary file to use the Toploop.use_file function
instead of parsing the phrase, then exectuing it, because
we don't want to depend on whether we have the compiled
sources of ocaml (the needed modules to analyse the parse
exceptions are not installed (Errors, ...).
*)
let tmp_file = Filename.temp_file Ed_messages.software "ml" in
Ed_misc.file_of_string ~file: tmp_file code;
eval_file [| tmp_file |];
Ed_misc.safe_remove_file tmp_file;
)