backup/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleaning in CMS_CONFIGURATION

Browse Source 
and added append_to_string (s: STRING)
This commit is contained in:
Jocelyn Fiat
2013-02-05 15:14:55 +01:00
parent 7028ce07f4
commit 993f1ad6b9
1 changed files with 76 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
draft/application/cms/src/cms_configuration.e
View File

@@ -47,6 +47,27 @@ feature -- Access
options: HASH_TABLE [STRING, STRING] options: HASH_TABLE [STRING, STRING]
feature -- Conversion
append_to_string (s: STRING)
do
s.append ("Options:%N")
across
options as c
loop
s.append (c.key)
s.append_character ('=')
s.append (c.key)
s.append_character ('%N')
end
s.append ("Specific:%N")
s.append ("root_location=" + root_location + "%N")
s.append ("var_location=" + var_location + "%N")
s.append ("files_location=" + files_location + "%N")
s.append ("themes_location=" + themes_location + "%N")
end
feature -- Element change feature -- Element change
set_option (a_name: READABLE_STRING_GENERAL; a_value: STRING) set_option (a_name: READABLE_STRING_GENERAL; a_value: STRING)
@@ -58,64 +79,12 @@ feature -- Access
var_location: READABLE_STRING_8 var_location: READABLE_STRING_8
get_var_location
local
res: STRING_32
do
if attached options.item ("var-dir") as s then
res := s
else
res := execution_environment.current_working_directory
end
if res.ends_with ("/") then
res.remove_tail (1)
end
var_location := res
end
root_location: READABLE_STRING_8 root_location: READABLE_STRING_8
get_root_location
local
res: STRING_32
do
if attached options.item ("root-dir") as s then
res := s
else
res := execution_environment.current_working_directory
end
if res.ends_with ("/") then
res.remove_tail (1)
end
root_location := res
end
files_location: STRING files_location: STRING
get_files_location
do
if attached options.item ("files-dir") as s then
files_location := s
else
files_location := "files"
end
end
themes_location: STRING themes_location: STRING
get_themes_location
local
dn: DIRECTORY_NAME
do
if attached options.item ("themes-dir") as s then
themes_location := s
else
create dn.make_from_string (root_location)
dn.extend ("themes")
themes_location := dn.string
end
end
theme_name (dft: detachable like theme_name): READABLE_STRING_8 theme_name (dft: detachable like theme_name): READABLE_STRING_8
do do
if attached options.item ("theme") as s then if attached options.item ("theme") as s then
@@ -175,6 +144,61 @@ feature -- Access
end end
end end
feature -- Change
get_var_location
local
res: STRING_32
do
if attached options.item ("var-dir") as s then
res := s
else
res := execution_environment.current_working_directory
end
if res.ends_with ("/") then
res.remove_tail (1)
end
var_location := res
end
get_root_location
local
res: STRING_32
do
if attached options.item ("root-dir") as s then
res := s
else
res := execution_environment.current_working_directory
end
if res.ends_with ("/") then
res.remove_tail (1)
end
root_location := res
end
get_files_location
do
if attached options.item ("files-dir") as s then
files_location := s
else
files_location := "files"
end
end
get_themes_location
local
dn: DIRECTORY_NAME
do
if attached options.item ("themes-dir") as s then
themes_location := s
else
create dn.make_from_string (root_location)
dn.extend ("themes")
themes_location := dn.string
end
end
feature {NONE} -- Implementation feature {NONE} -- Implementation
import (a_filename: READABLE_STRING_32) import (a_filename: READABLE_STRING_32)