https://github.com/EasyCrypt/easycrypt
Revision 42a7841bce710a4d5084ba035b6f4e537a19016f authored by Pierre-Yves Strub on 01 December 2023, 16:42:37 UTC, committed by Pierre-Yves Strub on 01 December 2023, 16:53:46 UTC
1 parent 15f0751
Tip revision: 42a7841bce710a4d5084ba035b6f4e537a19016f authored by Pierre-Yves Strub on 01 December 2023, 16:42:37 UTC
runtest: do not try to load pyyaml when reporting is disabled
runtest: do not try to load pyyaml when reporting is disabled
Tip revision: 42a7841
ecRelocate.ml
let myname = Filename.basename Sys.executable_name
let mydir = Filename.dirname Sys.executable_name
let eclocal =
let rex = EcRegexp.regexp "^ec\\.(?:native|byte|exe)$" in
EcRegexp.match_ (`C rex) myname
let sourceroot =
if eclocal then
if Filename.basename mydir = "src"
then Some (Filename.dirname mydir)
else Some mydir
else None
let resource name =
match eclocal with
| true ->
if Filename.basename mydir = "src" then
List.fold_left Filename.concat mydir
([Filename.parent_dir_name] @ name)
else
List.fold_left Filename.concat mydir name
| false ->
List.fold_left Filename.concat mydir
([Filename.parent_dir_name; "lib"; "easycrypt"] @ name)
module Sites = struct
let theories = [resource ["theories"]]
end
Computing file changes ...