s_absolute_file_name/2
This commit is contained in:
parent
efc65fdb28
commit
74d780698e
@ -1369,6 +1369,8 @@ file_directory_name(File, Dir) :-
|
|||||||
swi_file_directory_name(File, Dir).
|
swi_file_directory_name(File, Dir).
|
||||||
file_name_extension(File, Name, Extension) :-
|
file_name_extension(File, Name, Extension) :-
|
||||||
swi_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) :-
|
prolog_to_os_filename(Prolog, OS) :-
|
||||||
swi_prolog_to_os_filename(Prolog, OS).
|
swi_prolog_to_os_filename(Prolog, OS).
|
||||||
time_file(File, Time) :-
|
time_file(File, Time) :-
|
||||||
@ -1376,3 +1378,7 @@ time_file(File, Time) :-
|
|||||||
working_directory(OLD, NEW) :-
|
working_directory(OLD, NEW) :-
|
||||||
swi_working_directory(OLD, NEW).
|
swi_working_directory(OLD, NEW).
|
||||||
|
|
||||||
|
cd(Dir) :- working_directory(_, NEW).
|
||||||
|
|
||||||
|
getcwd(Dir) :- working_directory(OLD, OLD).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user