deferred class
	EL_MULTI_APPLICATION_ROOT [B -> EL_BUILD_INFO create make end, APPLICATION_TYPES -> TUPLE create default_create end]

inherit
	ANY

	EL_FACTORY_CLIENT

	EL_MODULE_ASCII; EL_MODULE_ARGS; EL_MODULE_ENVIRONMENT; EL_MODULE_EXECUTABLE

	EL_MODULE_LIO
		rename
			Lio as Later_lio,
			new_lio as new_temporary_lio
		end

feature {NONE} -- Initialization

	make
			--
		local
			list: EL_APPLICATION_LIST; lio: EL_LOGGABLE; exit_code: INTEGER
		do
			create_singletons
			if {PLATFORM}.is_windows and then not Base_option.silent then
			-- Force console creation. Needed to set `{EL_EXECUTION_ENVIRONMENT_I}.last_codepage'
				io.put_character (ASCII.back_space.to_character_8)

--				Environment.Execution.set_utf_8_console_output
					-- Only has effect in Windows command console
			end
			-- Must be called before current_working_directory changes
			if Executable.path.is_file then
			end
			lio := new_temporary_lio -- until the logging is initialized in `EL_APPLICATION'

--			Environment.Execution.restore_last_code_page
--			FOR WINDOWS
--			If the original code page is not restored after changing to 65001 (utf-8)
--			this could effect subsequent programs that run in the same shell.
--			Python for example might give a "LookupError: unknown encoding: cp65001" error.

			create list.make (new_type_list (new_application_types))

			if attached new_platform_types as extra_types and then extra_types.count > 0 then
			-- platform specific
				list.append_types (new_type_list (extra_types))
			end
			list.extend (create {EL_VERSION_APP})

			list.find (lio, Args.option_name (1))
			if list.found and then attached list.item as app then
				app.set_switched
				app.make -- Initialize and run sub-application

				exit_code := app.exit_code

				lio.put_new_line
				lio.put_new_line
			end

			list.make_empty -- Allow GC collect on applications in `list.installable_list'

		-- Can cause a crash on multi-threaded applications if implementation of `dispose' has errors
			{MEMORY}.full_collect

			if exit_code > 0 then
				Execution_environment.exit (exit_code)
			end
		end

feature {NONE} -- Implementation

	create_singletons
		-- create shared objects conforming to `EL_SOLITARY'
		local
			shared_build_info: B
		do
			create shared_build_info.make
		end

	new_application_types: APPLICATION_TYPES
		-- TUPLE containing all sub-application types
		do
			create Result
		ensure
			all_conform_to_EL_APPLICATION: new_type_list (Result).all_conform
		end

	new_platform_types: TUPLE
		-- extra platform specific types to supplement `new_application_types'
		do
			create Result
		ensure
			all_conform_to_EL_APPLICATION: new_type_list (Result).all_conform
		end

	new_type_list (type_tuple: TUPLE): EL_TUPLE_TYPE_LIST [EL_APPLICATION]
		-- list of types in `type_tuple' conforming to `EL_APPLICATION'
		do
			create Result.make_from_tuple (type_tuple)
		end

end