Add make_directory_path/1 predicate to the files library

2021-05-18 00:21:11 +01:00
parent e7d6811948
commit bdebc7f32e
3 changed files with 19 additions and 0 deletions
--- a/src/lib/files.pl
+++ b/src/lib/files.pl
@@ -52,6 +52,7 @@
                  directory_exists/1,
                  delete_file/1,
                  make_directory/1,
+                  make_directory_path/1,
                  working_directory/2,
                  path_canonical/2,
                  path_segments/2,
@@ -90,6 +91,10 @@ make_directory(Directory) :-
        list_of_chars(Directory),
        '$make_directory'(Directory).

+make_directory_path(Directory) :-
+        list_of_chars(Directory),
+        '$make_directory_path'(Directory).
+
 delete_file(File) :-
        file_must_exist(File, delete_file/1),
        list_of_chars(File),