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

fix rooted_path for win32 (patch from David Powers)

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-09-30 20:59:33 +01:00
parent 0c09447d00
commit f56cf4a737
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/load_foreign.yap
View File

@ -70,10 +70,8 @@ load_foreign_files(Objs,Libs,Entry) :-
'$checklib_prefix'(NewObjCodes,[0'l,0'i,0'b|NewObjCodes]). '$checklib_prefix'(NewObjCodes,[0'l,0'i,0'b|NewObjCodes]).
'$rooted_path'([C|_]) :- '$dir_separator'(C), !. '$rooted_path'([C|_]) :- '$dir_separator'(C), !.
'$rooted_path'(Cs) :- % windows drive z:\
% win32 machine '$rooted_path'([_,0':,0'\\|_]) .
'$dir_separator'(0'\\),
'$get_drive'(Cs).
'$get_drive'([0':|_]) :- !. '$get_drive'([0':|_]) :- !.
'$get_drive'([0'\\|_]) :- !, fail. '$get_drive'([0'\\|_]) :- !, fail.