ADDED: working_directory/2, addressing a remaining aspect of #511

2020-07-14 22:37:05 +02:00
parent 5134e64cae
commit 94e9e17c79
3 changed files with 38 additions and 1 deletions
--- a/src/lib/files.pl
+++ b/src/lib/files.pl
@@ -51,7 +51,8 @@
                  file_exists/1,
                  directory_exists/1,
                  delete_file/1,
-                  make_directory/1]).
+                  make_directory/1,
+                  working_directory/2]).

 :- use_module(library(error)).
 :- use_module(library(lists)).
@@ -85,3 +86,8 @@ make_directory(Directory) :-
 delete_file(File) :-
        list_of_chars(File),
        '$delete_file'(File).
+
+working_directory(Dir0, Dir) :-
+        can_be(list, Dir0),
+        can_be(list, Dir),
+        '$working_directory'(Dir0, Dir).