From 74d780698e17b4fcc45a6b0c9b0b2dc3f3edc6e6 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sat, 12 Feb 2011 01:23:48 +0000 Subject: [PATCH] s_absolute_file_name/2 --- pl/boot.yap | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/pl/boot.yap b/pl/boot.yap index 5c1ad9afa..94a1175e2 100755 --- a/pl/boot.yap +++ b/pl/boot.yap @@ -1369,6 +1369,8 @@ file_directory_name(File, Dir) :- swi_file_directory_name(File, Dir). file_name_extension(File, Name, Extension) :- swi_file_name_extension(File, Name, Extension). +is_absolute_file_name(File) :- + swi_is_absolute_file_name(File). prolog_to_os_filename(Prolog, OS) :- swi_prolog_to_os_filename(Prolog, OS). time_file(File, Time) :- @@ -1376,3 +1378,7 @@ time_file(File, Time) :- working_directory(OLD, NEW) :- swi_working_directory(OLD, NEW). +cd(Dir) :- working_directory(_, NEW). + +getcwd(Dir) :- working_directory(OLD, OLD). +