(* HELPERS *)
let resolve ~tptppath s =
let resolved_name =
+ if HExtlib.is_regular s then s else
if tptppath = "/" then s else
- if Filename.check_suffix s ".p" then
- (assert (String.length s > 5);
- let prefix = String.sub s 0 3 in
- tptppath ^ "/Problems/" ^ prefix ^ "/" ^ s)
- else
- tptppath ^ "/" ^ s
+ if Filename.check_suffix s ".p" then
+ (assert (String.length s > 5);
+ let prefix = String.sub s 0 3 in
+ tptppath ^ "/Problems/" ^ prefix ^ "/" ^ s)
+ else tptppath ^ "/" ^ s
in
if HExtlib.is_regular resolved_name then
resolved_name