/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */

/*****************************************************************************
  NAME
    fdes60.vrf - V3 analysis/product configuration script for Oracle
                      Forms 6.0 Designer

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Oracle Forms 6.0 Designer.

  MODIFIED   MM/DD/YY   REASON
*****************************************************************************/

{
     SHARED_ORACLE_COMPLIANT = TRUE;

     {doit = execute("%installer_home%%dir_separator%%operating_system%.vrf");}
     [
          'UNBOUND_VARIABLE:
          {
              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(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.")));
          }
    ]                                                                                 /* This FAILURE will cause 3.0.x.x installer to exit gracefully. */

     /******************************************************************************************************
     START MAIN LOGIC
     ******************************************************************************************************/

     if (doit)
     {
          /****************************************************************
          Display the generic "Welcome to Oracle Developer"
          billboard if not already displayed, and if Developer release
          *****************************************************************/
          if(exists("%installer_home%%dir_separator%d2bb_01.bmp"))
          {
               if(DEVELOPER2000_RELEASE)
               {
                    if(not(DEV2K_BB01))
                    {
                         DEV2K_BB01 = TRUE;
                         ui_graphics("%installer_home%%dir_separator%d2bb_01.bmp");
                    }
               }
          }
          /****************************************************************/

          /*****************************
          Set the VRF-INS script ratchet
          ******************************/
          vrf_ratchet = "6.0.0.0.0";

         /************************************************
         Create a label with the product name, and version
         *************************************************/
          EXECUTE_SCRIPT = "CREATE_LABEL";
          execute("%product_home%%dir_separator%d2kr2vrf.usr");
         /************************************************/

          /******************************************************************
          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  = w32forms60;
          COMPONENT_PRODUCTS_list = list(w32frun60);                /*Component product - Reports Runtime */
          COMPONENT_products_to_install = list();
         all_prod_temp = list();
          all_prod_temp = all_products();


    {if (member(all_prod_temp,w32jdkav))
          {
          required_products_list = list(w32ge60,w32d2kqt60,w32d2kdoc60,w32brqry60,w32qb60,w32jdkav);
          required_products_to_install = list();
          }}
     
     /*[ 'UNBOUND_VARIABLE: 
         {

          
          required_products_list = list(w32ge60,w32d2kqt60,w32d2kdoc60,w32brqry60,w32qb60,w32jdkave);
          required_products_to_install = list();

          }
	]*/
          /*************************/

          /**************************
          Determine installation path
          ***************************/
          install_variable = "FORMS60";
          default_home      = "%oracle_home%%dir_separator%FORMS60";
          FORMS60 = execute("%product_home%%dir_separator%instloc.usr");
          TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
          DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";
          /**************************/

          /***************************************************************************
          Include the path ORACLE_HOME/jdk/bin to the path variable
          ***************************************************************************/
/*

          path_to_add = "%ORACLE_HOME%%dir_separator%jdk%dir_separator%bin";
          information_dialog(path_to_add);

          information_dialog("\HKEY_LOCAL_USER\ENVIRONEMENT\Path");
          modify("Path", "%path_to_add%", "\HKEY_CURRENT_USER\ENVIRONEMENT", "ENVIRONEMENT", 'SUBKEY);

*/
          /***************************************************************************
          Initialize total size of files
          ****************************************************************************/
          total_sum = 0;

          /*******************************************
          Check if Forms Runtime needs to be installed
          (no need to verify the PARENT because
           Runtime will be doing that anyway)
          ********************************************/
          while(not(empty(component_products_list)))
          {
            component_product = first(component_products_list);
            component_products_list = rest(component_products_list);
               if(child_in_control)
               {
                   EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT";
                   execute("%product_home%%dir_separator%d2kr2vrf.usr");

                   if(install_component)
                   {
                       add(component_products_to_install, COMPONENT_PRODUCT);
                       total_sum = total_sum  + verify(COMPONENT_PRODUCT);
                   }
                }
          }
        /*******************************************/

        /*************************************************
        Determine which of the required products specified
        in required_products_list need to be installed
        **************************************************/
        while(not(empty(required_products_list)))
        {
            REQUIRED_PRODUCT = first(required_products_list);
            required_products_list = rest(required_products_list);

            EXECUTE_SCRIPT     = "CHECK_REQUIRED_PRODUCT";
            install_required_product = execute("%product_home%%dir_separator%d2kr2vrf.usr");

            if (install_required_product)
            {
                total_sum = total_sum + verify(REQUIRED_PRODUCT);
                add(required_products_to_install, REQUIRED_PRODUCT);
            }
        }
        /*************************************************/
        /*************************************************/

        if(child_in_control)
        {
           if(not(member(products_for_installation, w32formsl60)))
           {
                    total_sum = total_sum + verify(w32formsl60);
                    add(products_for_installation, w32formsl60);

            }
         }
         /**************************************
          Return total size of files
          **************************************/
          total_sum = total_sum + sum(deinst, exe, dll, res, ue);

          return(total_sum);
          /***************************************************************************/
     }
     else
     {
          refresh_map_file = FALSE;
          return(0);
     }
}