/* Copyright (c) Oracle Corporation 1995-97.  All Rights Reserved */

/*******************************************************************************
NAME:	oisfp10.vrf
Modification Report:
This file is Generated by OIS
User Blocks can be typed in between END_OIS and next BEGIN_OIS
User Blocks will be preserved during the regeneration of the script by OIS
********************************************************************************/

{


	/*OIS_BEGIN,NLS_MESSAGE_BLOCK*/
                    instver_too_early1 = nls("instver_too_early1","The version of the Installer currently running is %%installer_version%%.The installation you have chosen requires version %%required_version%% or later.Please run version %%required_version%% or later in order to perform this installation.");
                           registering = nls("registering","Registering %%product_label%%...");
                        env_var_modify = nls("env_var_modify","Modifying %%product_label%% Environment Variables...");
                             unzip_msg = nls("unzip_msg","Unzipping %%product_label%%.zip - This might take some time...");
                             setup_msg = nls("setup_msg","Starting setup for %%product_label%%...");
                           no_sys_file = nls("no_sys_file","System file %sys_file% is not available. Installation cannot continue!");
                    instver_too_early2 = nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).");
                 unregistering_product = nls("unregistering_product","Unregistering %%registry_label%%...");
                               env_var = nls("env_var","Modifying %%registry_label%% Environment Variables...");
                         noprod_prompt = nls("noprod_prompt","This product does not have any deinstaller. Deinstallation cannot continue");
                  deinstall_unregister = nls("deinstall_unregister","Unregistering %%registry_label%%...");
              unreference_dependencies = nls("unreference_dependencies","Unreferencing %%registry_label%% Dependencies...");
                       install_product = nls("install_product","Where should %%product_label%% be installed?");
                    install_components = nls("install_components","Installing %%product_label%% Components...");
                  install_dependencies = nls("install_dependencies","Installing %%product_label%% Dependencies...");
                      install_register = nls("install_register","Registering %%product_label%%...");
                  install_loc_conflict = nls("install_loc_conflict","Another product is already installed at this location. Please specify a different location to install %%product_label%%.");
                     halt_installation = nls("halt_installation","Cancelled installation at user's request...");
                reference_dependencies = nls("reference_dependencies","Referencing %%product_label%% Dependencies...");
                      modify_variables = nls("modify_variables","Modifying %%product_label%% Environment Variables...");
                 display_product_label = nls("display_product_label","%%product_label%% %%display_version%%");
                       deinstall_which = nls("deinstall_which","Remove which %%registry_label%%?");
                    deinstall_location = nls("deinstall_location","%%registry_label%% is not found in this directory.  Do you wish to attempt to deinstall at this location anyway?");
                  deinstall_components = nls("deinstall_components","Deinstalling %%registry_label%% Components...");
		UserMsg37 = nls("UserMsg37","Installing %%product_label%% Template Scripts...");
		UserMsg39 = nls("UserMsg39","Installing %%product_label%% MFC dynamic link libraries...");
		UserMsg40 = nls("UserMsg40","Installing %%product_label%% Tools files...");

	/*END_OIS*/


	/*OIS_BEGIN,NLS_MESSAGE_BLOCK*/
                    installing_scripts = nls("installing_scripts","Installing %%product_label%% Installation Scripts...");
                      installing_execs = nls("installing_execs","Installing %%product_label%% executables...");
                       installing_dlls = nls("installing_dlls","Installing %%product_label%% dynamic link libraries...");
                       installing_help = nls("installing_help","Installing %%product_label%% help files...");
                        installing_res = nls("installing_res","Installing %%product_label%% resource files...");
                        installing_msg = nls("installing_msg","Installing %%product_label%% message files...");

	/*END_OIS*/


	/*OIS_BEGIN,VRF_FIRST_BLOCK*/

		directory_popup = false;
		/***********************************************************************
		Set the VRF-INS script ratchet
		***********************************************************************/
		vrf_ratchet = "1.0.0.0";
		{
			script_os = script_os;
		}
		['UNBOUND_VARIABLE:
			script_os = operating_system;
		]


		{
			platform_prefix = platform_prefix;
		}
		['UNBOUND_VARIABLE:
			platform_prefix = product_prefix;
		]

		{
			doit = execute("%INSTALLER_HOME%\%script_os%.vrf");
		}
		['UNBOUND_VARIABLE:
			{
 				instver_product = evaluate("%operating_system%instver");
			        required_version = product_version(instver_product);
				temp = explode(required_version,".");
				required_version = implode(list(first(temp),first(rest(temp)),first(rest(rest(temp))),first(rest(rest(rest(temp))))),".");
				signal('FAILURE, instantiate(instver_too_early1));
			}
		]

                windows_dir = windows_directory();
		if (directory_name(windows_dir) == windows_dir) 
	          windows_sys_dir = "%windows_dir%system32"; 
		else 
	          windows_sys_dir = "%windows_dir%\system32"; 
 
 	       if (operating_system == "win95") 
		{ 
	 	  if (directory_name(windows_dir) == windows_dir) 
        	    windows_sys_dir = "%windows_dir%system"; 
		  else 
        	    windows_sys_dir = "%windows_dir%\system"; 
		} 

		if (not(doit))
		{
			refresh_map_file = FALSE;
			return(0);
		}


		implode_explode_delimiter = ";";


		child_products = all_child_products(current_product);
		is_parent_product = true;
		if (empty(child_products))
			is_parent_product = false;
		is_child_product = true;
		{
			PARENT_PRODUCT  = product_parent(current_product);
		}
		['PARENT_NOT_FOUND:
			is_child_product = FALSE;
		]


		/************************************************
			Create a label with the product name, and version
		*************************************************/
		temp_ois_product_location = product_location(current_product);
		ois_product_location = "%product_home%\%temp_ois_product_location%";
		OIS_EXECUTE_SCRIPT = "CREATE_LABEL";
		{
			execute("%ois_product_location%\toolsois.vrf");
		}
		['FILE_NOT_FOUND:
			{
				sys_file = "toolsois.vrf";
				signal('FAILURE,instantiate(no_sys_file));
			}
		]
		/************************************************/

		if (is_parent_product)
		{
			/**********************************************************************
			parent_in_control = TRUE ==> the complete product needs to be installed
			parent_in_control = FALSE ==> PARENT called by one of the components
			***********************************************************************/
			parent_in_control = TRUE;
			if(not(member(selected_products, current_product)))
			{
				child_products = all_child_products(current_product);
				while(not(empty(child_products)))
				{
					next_child = first(child_products);
					child_products = rest(child_products);
					if(member(products_for_installation, next_child))		/* PARENT called by one of the components, no need to add PARENT to the list of products to be installed */
						parent_in_control = FALSE;
				}
			}
		}
		else
			parent_in_control = FALSE;


		if (is_child_product)
		{
			/******************************************************************
			child_in_control = TRUE ==> component product called explicitly
			child_in_control = FALSE ==> component product called by the PARENT
			*******************************************************************/
			child_in_control = TRUE;
			if( member(products_for_installation, product_parent(current_product) ))
				child_in_control = FALSE;
			/**********************************************************************/


			/*************************
			Set Product Name variables
			**************************/
			PARENT_PRODUCT  = product_parent(current_product);


			/*The following statements till else can be removed one parent - child is
			  redefined */
			/**************************
			Determine installation path
			***************************/
			install_variable = product_filename(PARENT_PRODUCT);
			CDE1_PRODUCT_EXISTS = FALSE;
			CALLED_BY_DBTABLES = FALSE;
			if (operating_system == "os2")
				section_heading = "=";
			else
				section_heading = product_filename(current_product);
		}
		else
		{
			child_in_control = FALSE;


			/**************************
			Determine installation path
			***************************/
			install_variable = product_filename(current_product);
			CDE1_PRODUCT_EXISTS = FALSE;
			CALLED_BY_DBTABLES = FALSE;
			if (operating_system == "os2")
				section_heading = "=";
			else
				section_heading = product_filename(current_product);
		}
		default_home = "%ORACLE_HOME%\oisfp10";
		if (directory_popup == true)
		{
			OIS_EXECUTE_SCRIPT = "DETERMINE_PRODUCT_LOCATION";
			PROD_HOME = execute("%ois_product_location%\toolsois.vrf");
		}
		else
		{
			PROD_HOME = default_home;
		}


		is_depend_exist = true;

	/*END_OIS*/


	/*OIS_BEGIN,VRF_BIND_VARIABLES_BLOCK*/

		file1 = ora_config;
		group1 = "oisfp10";
		varlist1  = list("oisfp","oisfp10","ois20api");
		vallist1  = list("%PROD_HOME%","%PROD_HOME%","%PROD_HOME%");
		append_list1  = list("false","false","false");
		append_delimiter_list1 = list(";",";",";");
		file = file1;
		group = group1;
		varlist = varlist1;
		vallist = vallist1;
		append_list = append_list1;
		append_delimiter_list = append_delimiter_list1;
		OLD_SECTION_HEADING_EXISTS = FALSE;
		OIS_EXECUTE_SCRIPT = "VERIFY_ENVIRONMENT_VARIABLES";
		execute("%ois_product_location%\toolsois.vrf");

		vallist1 = vallist;


	/*END_OIS*/

	/*OIS_BEGIN,VRF_DEPENDENCY_BLOCK*/
		if (operating_system == "nt")
			prefix = "nt";
		else
			prefix = "w95";
		install_product = evaluate("%prefix%install");
		install_version = product_version(install_product);
		dep_install_version = ">,%install_version%";
		dep_prod_list = list(install_product);
		dep_instal_cond = list(dep_install_version);
		if (is_depend_exist)
		{
			OIS_EXECUTE_SCRIPT = "VERIFY_DEPENDENCIES";
			execute(instantiate("%%ois_product_location%%\toolsois.vrf"));
		}
		/*********************************
		Verify PARENT if explicitly called
		**********************************/
		install_parent = FALSE;
		if(child_in_control)
		{
			OIS_EXECUTE_SCRIPT = "VERIFY_PARENT";
			install_parent = execute(instantiate("%%ois_product_location%%\toolsois.vrf"));
		}

	/*END_OIS*/

	/*OIS_BEGIN,VRF_CALCULATE_SUM_BLOCK*/

		sumall = 0;
		overwrite_mode = 'ALWAYS;
		sumall = sumall + sum(exe,others,deinstl,res,help,dll,"default");
		OVERWRITE_MODE = 'UPDATE;
		sumall = sumall + sum(dll,"mfc");
		sumall = sumall + sum(prodmsg,nls_abbreviation);
		/* calculate sum of sizes of all group for which the user has specified to write on the target */
		depsum = 0;
		if (is_depend_exist)
		{
			OIS_EXECUTE_SCRIPT = "SUM_DEPENDENCIES";
			depsum = execute("%ois_product_location%\toolsois.vrf");
		}
		total_sum = 0;
		/***********************************************************************
		Return total size of files depending upon which options were
		selected for installation...
		************************************************************************/
		if (is_child_product)
		{
			if(install_parent)
				total_sum = total_sum + verify(product_parent(current_product));
		}
		SUMALL = SUMALL + total_sum;


		if(parent_in_control)
		{
			OIS_EXECUTE_SCRIPT = "VERIFY_COMPONENTS";
			total_sum = total_sum + execute("%ois_product_location%\toolsois.vrf");
		}
		else
		{
			child_products = all_child_products(current_product);
			selected_components_list = list();
			size_component = 0;
			while(not(empty(child_products)))
			{
				next_child = first(child_products);
				if(member(selected_products, next_child))
				{
					if(not(member(products_for_installation, next_child)))
					{
						size_component = verify(next_child);
						if(size_component != 0)
						{
							add(selected_components_list, next_child);
							total_sum = total_sum + size_component;
						}
					}
				}
				child_products = rest(child_products);
			}
		}


		SUMALL = SUMALL + depsum;


		return (SUMALL);



	/*END_OIS*/


}