Logtalk 2.17.1 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1071 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/library/experimental/eclipse/system.lgt

@@ -0,0 +1,129 @@
+
+:-  use_module(library(calendar)).
+
+
+:- object(system,
+	implements(systemp)).
+
+
+	:- info([
+		version is 1.0,
+		author is 'Paulo Moura',
+		date is 2004/6/5,
+		comment is 'Operating system interface for ECLiPSe.']).
+
+
+	make_directory(Directory) :-
+		{mkdir(Directory)}.
+
+
+	delete_directory(Directory) :-
+		{delete(Directory)}.
+
+
+	change_directory(Directory) :-
+		{cd(Directory)}.
+
+
+	working_directory(Directory) :-
+		{getcwd(Directory)}.
+
+
+	directory_exists(Directory) :-
+		{fail}.
+
+
+	directory_files(Directory, Files) :-
+		{read_directory(Directory, "*", _, Files)}.
+
+
+	absolute_file_name(File) :-
+		absolute_file_name(File, File).
+
+
+	absolute_file_name(File, Full) :-
+		{Rel == user ->
+			Abs == user  % treat user specially
+          ; get_flag(prolog_suffix, Sufs),
+          (existing_file(Rel, Sufs, [], ExtRel) -> true ; ExtRel = Rel),
+          canonical_path_name(ExtRel, Abs)}.
+
+
+	file_base_name(File, Base) :-
+		{pathname(File, _, Base, _)}.
+
+
+	file_name_extension(File, Extension) :-
+		{pathname(File, _, _, Extension)}.
+
+
+	file_name_directory(File, Directory) :-
+		{pathname(File, Directory, _, _)}.
+
+
+	file_exists(File) :-
+		{exists(File)}.
+
+
+	file_modification_time(File, Time) :-
+		{get_file_info(File, mtime, Time)}.
+
+
+	file_size(File, Size) :-
+		{get_file_info(File, size, Size)}.
+
+
+	file_type(File, Type) :-
+		{get_file_info(File, mode, Mode)},
+		Mode /\ 8'170000 =:= Result,
+		file_mode_type(Result, Type).
+
+	file_mode_type(8'100000, regular) :- !.
+	file_mode_type(8'040000, directory) :- !.
+	file_mode_type(8'140000, socket) :- !.
+	file_mode_type(8'120000, symlink) :- !.
+	file_mode_type(_, unknown).
+
+
+	delete_file(File) :-
+		{delete(File)}.
+
+
+	rename_file(Old, New) :-
+		{rename(Old, New)}.
+
+
+	symbolic_link(File, Target) :-
+		{fail}.
+
+
+	environment_variable(Variable, Value) :-
+		{getenv(Variable, Value)}.
+
+
+	set_environment_variable(Variable, Value) :-
+		{fail}.
+
+
+	date_time(Year, Month, Day, Hours, Mins, Secs, 0) :-
+		{mjd_now(MJD),
+		 mjd_to_date(MJD, Day/Month/Year),
+		 mjd_to_time(MJD, Hours:Mins:Secs)}.
+
+
+	convert_time(Time, Year, Month, Day, Hours, Mins, Secs, _) :-
+		{unix_to_mjd(Time, MJD),
+		 mjd_to_date(MJD, Day/Month/Year),
+		 mjd_to_time(MJD, Hours:Mins:Secs)}.
+
+
+	cpu_time(Time) :-
+		{cputime(Time)}.
+
+
+	host_name(Name) :-
+		{get_flag(hostname, String),
+		 atom_string(Name, String)}.
+
+
+:- end_object.