Updated roc tools, and associated scripts.

Also include Eiffel Store ODBC persistence.
This commit is contained in:
2015-10-20 11:29:16 +02:00
parent 782e9397a3
commit 3f4e70b98c
4 changed files with 20 additions and 3 deletions

View File

@@ -170,6 +170,8 @@ feature -- Execution
print ("%NCheck the module elements at ")
print (l_dest_dir.path.name)
print (".%N")
print ("Copied " + directories_count.out + " directories.%N")
print ("Copied " + files_count.out + " files.%N")
else
print ({STRING_32} "The CMS Application located at " + l_cms_path.name + "does not have the site or modules folders.%N")
end
@@ -202,9 +204,17 @@ feature -- Execution
if not l_dest_dir.exists then
l_dest_dir.create_dir
end
files_count := 0
directories_count := -1
copy_directory (l_src_dir, l_dest_dir, True)
end
files_count: INTEGER
-- Number of copied files during installation.
directories_count: INTEGER
-- Number of copied directories during installation.
feature {NONE} -- System/copy files
copy_directory (a_src: DIRECTORY; a_dest: DIRECTORY; is_recursive: BOOLEAN)
@@ -217,6 +227,7 @@ feature {NONE} -- System/copy files
l_file: FILE
ut: FILE_UTILITIES
do
directories_count := directories_count + 1
across
a_src.entries as ic
loop
@@ -259,6 +270,7 @@ feature {NONE} -- System/copy files
a_file.copy_to (l_dest)
a_file.close
l_dest.close
files_count := files_count + 1
end
end
end