Fixed source code for building and installing the ISE Wizard
This commit is contained in:
55
tools/ise_wizard/src/ewf_custom_wizard.e
Normal file
55
tools/ise_wizard/src/ewf_custom_wizard.e
Normal file
@@ -0,0 +1,55 @@
|
||||
note
|
||||
description : "Objects that ..."
|
||||
author : "$Author$"
|
||||
date : "$Date$"
|
||||
revision : "$Revision$"
|
||||
|
||||
class
|
||||
EWF_CUSTOM_WIZARD
|
||||
|
||||
inherit
|
||||
EWF_WIZARD
|
||||
redefine
|
||||
get_information,
|
||||
generate_project
|
||||
end
|
||||
|
||||
create
|
||||
make
|
||||
|
||||
feature -- Form
|
||||
|
||||
get_information
|
||||
do
|
||||
if attached string_question ("Location of EWF source code (by default $EWF_DIR)?", Void, Void, False) as pn then
|
||||
ewf_dir := pn.string
|
||||
else
|
||||
ewf_dir := "$EWF_DIR"
|
||||
end
|
||||
Precursor
|
||||
end
|
||||
|
||||
feature -- Generation
|
||||
|
||||
generate_project (a_layout: WIZARD_LAYOUT)
|
||||
do
|
||||
if attached ewf_dir as d then
|
||||
variables.force (d, "EWF_DIR")
|
||||
Precursor (a_layout)
|
||||
else
|
||||
die (-1)
|
||||
end
|
||||
end
|
||||
|
||||
feature -- Access
|
||||
|
||||
ewf_dir: detachable READABLE_STRING_8
|
||||
|
||||
feature -- Change
|
||||
|
||||
feature {NONE} -- Implementation
|
||||
|
||||
invariant
|
||||
-- invariant_clause: True
|
||||
|
||||
end
|
||||
@@ -25,8 +25,6 @@ feature {NONE} -- Initialization
|
||||
end
|
||||
end
|
||||
|
||||
feature -- Status
|
||||
|
||||
feature -- Access
|
||||
|
||||
project_directory_name: detachable READABLE_STRING_8
|
||||
@@ -65,7 +63,7 @@ feature -- Form
|
||||
projet_name := "ewf"
|
||||
end
|
||||
|
||||
if boolean_question ("Do you want to use router (Y|n) ? ", <<["y", True], ["Y", True]>>, "Y") then
|
||||
if boolean_question ("Do you want to use WSF_ROUTER (Y|n) ? ", <<["y", True], ["Y", True]>>, "Y") then
|
||||
use_router := True
|
||||
router_type := "uri-template"
|
||||
else
|
||||
@@ -131,13 +129,13 @@ feature -- Form
|
||||
d.recursive_create_dir
|
||||
end
|
||||
create tfn.make_from_string (dn.string)
|
||||
tfn.set_file_name ("ewb_application")
|
||||
tfn.set_file_name ("ewf_application")
|
||||
tfn.add_extension ("e")
|
||||
if attached router_type as rt then
|
||||
check rt.same_string ("uri-template") end
|
||||
copy_resource_template ("ewb_application-"+ rt +".e", tfn.string)
|
||||
copy_resource_template ("ewf_application-"+ rt +".e", tfn.string)
|
||||
else
|
||||
copy_resource_template ("ewb_application.e", tfn.string)
|
||||
copy_resource_template ("ewf_application.e", tfn.string)
|
||||
end
|
||||
|
||||
create tfn.make_from_string (dn.string)
|
||||
|
||||
Reference in New Issue
Block a user