fix directory handling?
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1939 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
65f093bdb7
commit
109b2a586f
@ -921,8 +921,8 @@ access_file(F,Mode) :-
|
|||||||
'$exists'(F,Mode).
|
'$exists'(F,Mode).
|
||||||
|
|
||||||
'$exists'(_,none) :- !.
|
'$exists'(_,none) :- !.
|
||||||
'$exists'(F,exists) :-
|
'$exists'(F,exist) :- !,
|
||||||
'$access'(F), !.
|
'$access'(F).
|
||||||
'$exists'(F,Mode) :-
|
'$exists'(F,Mode) :-
|
||||||
get_value(fileerrors,V),
|
get_value(fileerrors,V),
|
||||||
set_value(fileerrors,0),
|
set_value(fileerrors,0),
|
||||||
|
@ -561,7 +561,7 @@ absolute_file_name(V,Out) :- var(V), !,
|
|||||||
'$do_error'(instantiation_error, absolute_file_name(V, Out)).
|
'$do_error'(instantiation_error, absolute_file_name(V, Out)).
|
||||||
absolute_file_name(user,user) :- !.
|
absolute_file_name(user,user) :- !.
|
||||||
absolute_file_name(File0,File) :-
|
absolute_file_name(File0,File) :-
|
||||||
'$absolute_file_name'(File0,[access(read),file_type(source),file_errors(fail),solutions(first)],File,absolute_file_name(File0,File)).
|
'$absolute_file_name'(File0,[access(exist),file_type(source),file_errors(fail),solutions(first)],File,absolute_file_name(File0,File)).
|
||||||
|
|
||||||
'$find_in_path'(F0,F,G) :-
|
'$find_in_path'(F0,F,G) :-
|
||||||
'$absolute_file_name'(F0,[access(read),file_type(source),file_errors(fail),solutions(first)],F,G).
|
'$absolute_file_name'(F0,[access(read),file_type(source),file_errors(fail),solutions(first)],F,G).
|
||||||
|
Reference in New Issue
Block a user