Updated to use ARGUMENTS_32 as client.

This commit is contained in:
2018-11-19 18:04:35 +01:00
parent e73302639d
commit f1e8dfa40b

View File

@@ -8,8 +8,6 @@ deferred class
WIZARD_APPLICATION
inherit
ARGUMENTS
SHARED_EXECUTION_ENVIRONMENT
feature {NONE} -- Initialization
@@ -18,23 +16,25 @@ feature {NONE} -- Initialization
-- Initialize `Current'.
local
i,n: INTEGER
s: READABLE_STRING_8
s: READABLE_STRING_32
wizard_directory_name: detachable PATH
callback_file_name: detachable PATH
args: ARGUMENTS_32
do
-- Usage
n := argument_count
args := execution_environment.arguments
n := args.argument_count
if n > 0 then
from
i := 1
until
i > n
loop
s := argument (i)
if s.same_string ("-callback") or s.same_string ("--callback") then
s := args.argument (i)
if s.same_string_general ("-callback") or s.same_string_general ("--callback") then
i := i + 1
if i <= n then
create callback_file_name.make_from_string (argument (i))
create callback_file_name.make_from_string (s)
end
elseif wizard_directory_name = Void then
create wizard_directory_name.make_from_string (s)