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

added WSF_SUPPORT.environment_item

Browse Source
This commit is contained in:
Jocelyn Fiat
2012-12-20 18:37:13 +01:00
parent e4270b6297
commit facdfd0b4a
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
library/server/ewf_support/src/before_72/wsf_support.e
View File

@@ -26,4 +26,11 @@ feature -- Access: environment
Result := execution_environment.starting_environment_variables Result := execution_environment.starting_environment_variables
end end
environment_item (a_name: READABLE_STRING_GENERAL): detachable STRING_32
do
if attached execution_environment.get (a_name.to_string_8) as v then
Result := v.to_string_32
end
end
end end

5
library/server/ewf_support/src/greater_or_72/wsf_support.e
View File

@@ -26,4 +26,9 @@ feature -- Access: environment
Result := execution_environment.starting_environment Result := execution_environment.starting_environment
end end
environment_item (a_name: READABLE_STRING_GENERAL): detachable STRING_32
do
Result := execution_environment.item (a_name)
end
end end