[Xsb-commits] CVS: XSB/syslib shell.xwam,1.5,1.6 shell.P,1.15,1.16

[Luis C. <lfc...@us...>]

Update of /cvsroot/xsb/XSB/syslib
In directory sc8-pr-cvs1:/tmp/cvs-serv3862/syslib

Modified Files:
	shell.xwam shell.P 
Log Message:
* Make ls/0 work on Windows. Should it still call 'ls' on Cygwin?


Index: shell.xwam
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/shell.xwam,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
Binary files /tmp/cvsdyyhJd and /tmp/cvsAuxJeh differ

Index: shell.P
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/shell.P,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- shell.P	15 Mar 2002 09:19:48 -0000	1.15
+++ shell.P	25 Apr 2003 15:37:23 -0000	1.16
@@ -83,7 +83,12 @@
 
 rename(Old, New) :- sys_rename(Old, New, Res), Res =:= 0.
 
-ls :- shell('ls -F', Res), Res =:= 0.
+ls :-
+	(   xsb_configuration(host_os,windows)
+	->  shell('dir', Res)
+	;   shell('ls -F',Res)
+	),
+	Res =:= 0.
 
 rm(Name) :- sys_unlink(Name, Res), Res =:= 0.