This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/Logtalk/library/experimental/ciao/system.lgt
pmoura b25690af56 Logtalk 2.17.1 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1071 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-06-06 22:46:45 +00:00

125 lines
2.2 KiB
Plaintext

:- use_module(library(system)).
:- use_module(library(filenames)).
:- object(system,
implements(systemp)).
:- info([
version is 1.0,
author is 'Paulo Moura',
date is 2004/6/5,
comment is 'Operating system interface for CIAO.']).
make_directory(Directory) :-
{make_directory(Directory)}.
delete_directory(Directory) :-
{delete_directory(Directory)}.
change_directory(Directory) :-
{cd(Directory)}.
working_directory(Directory) :-
{working_directory(Directory, Directory)}.
directory_exists(Directory) :-
{fail}.
directory_files(Directory, Files) :-
{directory_files(Directory, Files)}.
absolute_file_name(File) :-
{absolute_file_name(File, File)}.
absolute_file_name(File, Full) :-
{absolute_file_name(File, Full)}.
file_base_name(File, Base) :-
{no_path_file_name_(File, Name),
file_name_extension(Name, Base, _)}.
file_name_extension(File, Extension) :-
{no_path_file_name_(File, Name),
file_name_extension(Name, _, Extension)}.
file_name_directory(File, Directory) :-
{no_path_file_name_(File, Name),
absolute_file_name(File, Full),
atom_concat(Directory, Name, Full)}.
file_exists(File) :-
{file_exists(File)}.
file_modification_time(File, Time) :-
{modif_time(File, Time)}.
file_size(File, Size) :-
{file_property(File, size(Size))}.
file_type(File, Type) :-
{file_property(File, type(Type))}.
file_permission(File, Permission) :-
{file_exists(File, Permission)}.
delete_file(File) :-
{delete_file(File)}.
rename_file(Old, New) :-
{rename_file(Old, New)}.
symbolic_link(File, Target) :-
{file_property(File, linkto(Target))}.
environment_variable(Variable, Value) :-
{getenvstr(Variable, Codes),
atom_codes(Value, Codes)}.
set_environment_variable(Variable, Value) :-
{atom_codes(Value, Codes),
setenvstr(Variable, Codes)}.
date_time(Year, Month, Day, Hours, Mins, Secs, 0) :-
{datime(datime(Year, Month, Day, Hours, Mins, Secs))}.
convert_time(Time, Year, Month, Day, Hours, Mins, Secs, Milisecs) :-
{datime(Time, Year, Month, Day, Hours, Mins, Secs, _, _)}.
cpu_time(Time) :-
{statistics(runtime, [Miliseconds| _]),
Time is Miliseconds/1000}.
host_name(Name) :-
{current_host(Name)}.
:- end_object.