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

suport /u/vitor/linux/bin:/u/vitor/bin:/usr/bin:/bin:/sbin:/usr/sbin:/ua/vitor/linux/bin:/usr/X11R6/bin:.:/usr/openwin/bin:/usr/local/bin:/ua/vitor/bin:/usr/bin:/bin:/ua/vitor/sw/bin:/opt/condor/bin:/s/bin in paths

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-02-26 09:33:02 -06:00
parent ddb14f97aa
commit 6e7742ce8b
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/init.yap
View File

@@ -270,6 +270,14 @@ file_search_path(yap, Home) :-
file_search_path(system, Dir) :-
prolog_flag(host_type, Dir).
file_search_path(foreign, yap('lib/Yap')).
file_search_path(path, C) :-
( getenv('PATH', A),
( current_prolog_flag(windows, true)
-> atomic_list_concat(B, ;, A)
; atomic_list_concat(B, :, A)
),
lists:member(C, B)
).
:- yap_flag(unknown,error).