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

Merge branch 'master' of ../yap-6.2

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-11-22 18:23:27 +00:00
commit 7d595c2402
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/utils.yap
View File

@ -220,9 +220,17 @@ cd :-
ls :- ls :-
getcwd(X), getcwd(X),
system:directory_files(X, L), '$load_system_ls'(X,L),
'$do_print_files'(L). '$do_print_files'(L).
'$load_system_ls'(X,L) :-
'$undefined'(directory_files(X, L), operating_system_support),
load_files(library(system),[silent(true)]),
fail.
'$load_system_ls'(X,L) :-
operating_system_support:directory_files(X, L).
'$do_print_files'([]) :- '$do_print_files'([]) :-
nl. nl.
'$do_print_files'([F| Fs]) :- '$do_print_files'([F| Fs]) :-