diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

multiath & abs_file_name

Browse Source
This commit is contained in:
U-vsc-PC\vsc 2013-11-11 10:31:59 +00:00
parent 493f310b49
commit 80315e1be3
1 changed files with 10 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pl/consult.yap
View File

@ -945,9 +945,7 @@ absolute_file_name(File,Opts,TrueFileName) :-
( (
nonvar(RelTo) nonvar(RelTo)
-> ->
'$dir_separator'(D), ( is_absolute_file_name(File) ->
atom_codes(DA,[D]),
( sub_atom(File, 0, 1, _, DA) ->
ActualFile = File ActualFile = File
; ;
atom_concat([RelTo, DA, File], ActualFile) atom_concat([RelTo, DA, File], ActualFile)
@ -1035,7 +1033,8 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$continue_split_by_sep'(Let, Start, Next, Dirs, Sep, Dir). '$continue_split_by_sep'(Let, Start, Next, Dirs, Sep, Dir).
'$split_by_sep'(Start, Next, Dirs, _Sep, Dir) :- '$split_by_sep'(Start, Next, Dirs, _Sep, Dir) :-
Next > Start, Next > Start,
sub_atom(Dirs, Start, _, Next, Dir). Len is Next-Start,
sub_atom(Dirs, Start, Len, _, Dir).
% closed a directory % closed a directory
@ -1054,9 +1053,14 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$extend_path_directory'(_Name, D, File, _Opts, File, Call) :- '$extend_path_directory'(_Name, D, File, _Opts, File, Call) :-
sub_atom(File, 0, 1, _, D), !. is_absolute_file_name(File), !.
'$extend_path_directory'(Name, D, File, Opts, NewFile, Call) :- '$extend_path_directory'(Name, D, File, Opts, NewFile, Call) :-
user:file_search_path(Name, Dir), user:file_search_path(Name, IDirs),
( atom(IDirs) ->
'$split_by_sep'(0, 0, IDirs, Dir)
;
Dir = IDirs
),
'$extend_pathd'(Dir, D, File, Opts, NewFile, Call). '$extend_pathd'(Dir, D, File, Opts, NewFile, Call).
'$extend_pathd'(Dir, A, File, Opts, NewFile, Goal) :- '$extend_pathd'(Dir, A, File, Opts, NewFile, Goal) :-
@ -1274,18 +1278,3 @@ source_file_property( File0, Prop) :-
'$source_file_property'( F, module(M)) :- '$source_file_property'( F, module(M)) :-
recorded('$module','$module'(F,M,_),_). recorded('$module','$module'(F,M,_),_).
%% win_add_dll_directory(+AbsDir) is det.
%
% Add AbsDir to the directories where dependent DLLs are searched
% on Windows systems.
:- if(current_prolog_flag(windows, true)).
:- export(win_add_dll_directory/1).
win_add_dll_directory(Dir) :-
win_add_dll_directory(Dir, _), !.
win_add_dll_directory(Dir) :-
prolog_to_os_filename(Dir, OSDir),
getenv('PATH', Path0),
atomic_list_concat([Path0, OSDir], ';', Path),
setenv('PATH', Path).
:- endif.