/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    repcom61.vrf - V3.1.2 version analysis/product configuration script
                  for Oracle Repository Common Workbench 1.0

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Oracle Repository Common Workbench 1.0

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY Reason
    jewillia  03-NOV-94 Created

*****************************************************************************/

{
  filename = current_script;
  start_vrf_list = list(filename, 'DEBUG_REPCOM61);
  EXECUTE_SCRIPT = "START.VRF";
  if (perform_start_vrf) execute("%product_home%\des2k_72.vrf");

/*****************************************************************************
   Check Installer and Product version
*****************************************************************************/

  /* sets the doit flag and calls <os>.vrf */

  patch_installation            = PATCHSET_RELEASE;

  EXECUTE_SCRIPT = "INSTVER.VRF";
  execute("%product_home%\des2k_72.vrf");

/*****************************************************************************
   Local variables...
*****************************************************************************/

  /* local install flags and variables */

  total_size                    = 0;

  verify_list                   = list();
  reference_list                = list();
  install_list                  = list();
  children_install_list         = list();

  win_sys_dir = windows_system_directory();

  repadm_product_label = product_interface_label(repadm61_product);

  disable_jvm_merge_if_16_bit_character_set                          = false;
  disable_jvm_merge_if_japanese_nls_abbreviation                     = false;
  disable_jvm_merge_if_JA16SJIS_character_set                        = false;
  disable_jvm_merge_if_not_WE8ISO8859P1_character_set                = false;
  /* note that the installer can not set US7ASCII_or_AL24UTF so this condition is the same as if not we8iso in practice */
  disable_jvm_merge_if_not_WE8ISO_US7ASCII_or_AL24UTF_character_sets = false;

/*****************************************************************************
   Start main logic...
*****************************************************************************/

  if (doit)
    {

/*****************************************************************************
   Dependencies and configuration variables
*****************************************************************************/

      /* verify_list            = list(creq72_product, chelp72_product); */
      verify_list               = repcom61_dependency_list;

      repadm_variable           = "repadm61";
      repadm_variable_default   = "%oracle_home%\repadm61";

      home_variable             = "REPCOM61";
      home_variable_default     = "%%%repadm_variable%%%";

      case_map_variables = list('REPOS_R10_GROUP, 'REPOS_R10_BULLETINS);

/*****************************************************************************
   NLS Prompt strings...
*****************************************************************************/

      display_product_label = nls("ui_product", "%product_label% Version %display_version%");

      installing_product        = nls("installing_product","Starting Installation of %%product_label%%");
      installing_deinstl        = nls("installing_deinstl","Installing %%product_label%% Installation scripts...");
      installing_patchset       = nls("installing_patchset","Installing %%product_label%% patchset file...");
      installing_msb            = nls("installing_msb","Installing %%product_label%% Message files...");
      installing_ini            = nls("installing_ini","Installing %%product_label%% Configuration files...");
      installing_bin            = nls("installing_bin","Installing %%product_label%% Executable files...");
      installing_main           = nls("installing_main","Installing %%product_label%% Product files...");
      installing_patches        = nls("installing_patches","Installing %%product_label%% Patch files...");
      installing_icon           = nls("installing_icon","Installing %%product_label%% icon files...");

      installing_registry       = nls("installing_registry","Installing %%product_label%% Registry files...");

      removing_old              = nls("removing_old","Removing obsolete files from previous versions of %%product_label%%...");

      registering_product       = nls("registering_product","Registering %%product_label%%...");
      modify_environment        = nls("modify_environment","Modifying %%product_label%% Environment Variables...");

      analyze_variables         = nls("analyze_variables","Analyzing installed product %%analyze_variables_label%%...");
      analyze_verify            = nls("analyze_verify","Analyzing %%product_label%% dependent products...");
      analyze_children          = nls("analyze_children","Analyzing %%product_label%% child products...");
      analyze_paths             = nls("analyze_paths","Analyzing %%product_label%% Install Paths...");
      analyze_strategy          = nls("analyze_strategy","Analyzing %%product_label%% Install Strategy...");

      repadm_variable_prompt    = nls("repadm_variable_prompt","Enter the path for the %%repadm_product_label%% files");
      home_variable_prompt      = nls("home_variable_prompt","Enter the path for the %%product_label%% files");


/*****************************************************************************
   Set the VRF-INS script ratchet
*****************************************************************************/

      vrf_ratchet = "7.2.96.5.6";

/*****************************************************************************
  Verify parents and dependencies (except children)
*****************************************************************************/

      EXECUTE_SCRIPT = "VERIFY_DEPENDENCIES.VRF";
      execute("%product_home%\des2k_72.vrf");

/*****************************************************************************
   Install paths and configuration variables
*****************************************************************************/

      ui_product(product_label);
      ui_action(instantiate(analyze_paths));

      case_home_list = list(instantiate(repadm_variable),instantiate(repadm_variable_default),instantiate(repadm_variable_prompt),case_accept_home_default);
      EXECUTE_SCRIPT = "DES2_HOME.VRF";
      repadm61 = execute("%product_home%\des2k_72.vrf");

      /* accept the default */
      case_home_list = list(instantiate(home_variable),instantiate(home_variable_default),instantiate(home_variable_prompt),TRUE);
      EXECUTE_SCRIPT = "DES2_HOME.VRF";
      REPCOM61 = execute("%product_home%\des2k_72.vrf");

      {
        CWICON_OCX_FILE = first(group_files(bin,"icon"));
      }
      ['EMPTY_LIST: CWICON_OCX_FILE = "";]

      {
        REPCOM61_REGISTRY_FILE = first(group_files(regfile,"regfile"));
        REPCOM61_REG_PATH = replace(REPCOM61,"\","\\");
      }
      ['EMPTY_LIST: CGEN72_REGISTRY_FILE = "";]

      /* there is a possibility of data corruption in the java based tools
         if the character set is changed. These flags control when
         the jvm environment is not initialised.
         Note that any or all of these could be true.
           disable_jvm_merge_if_16_bit_character_set           = false;
           disable_jvm_merge_if_japanese_nls_abbreviation      = false;
           disable_jvm_merge_if_JA16SJIS_character_set         = false;
           disable_jvm_merge_if_not_WE8ISO8859P1_character_set = false;
      */
      jvm_merge_disabled = 0; /* enabled */

      if (disable_jvm_merge_if_16_bit_character_set)
        {
          /* by exploding nls_lang using the aplahbet as delimiters
             we should get a list of just the numeric bits
             so AMERICAN_AMERICA.WE8ISO8859P1 gives list(8,8859,1)
             the second item in the list is the bit length of the language byte
             e 8 or 16. If 16 then this is a multibyte language.
          */
          nls_exploded = explode(nls_language,".");
          nls_cs = first(rest(nls_exploded));
          nls_exploded2 = explode(nls_cs,"ABCDEFGHIJKLMNOPQRSTUVWXYZ");
          bit_length = first(nls_exploded2);
          if (bit_length == 16) jvm_merge_disabled = 1; /* disabled */
        }
      if (disable_jvm_merge_if_japanese_nls_abbreviation)
        {
          if (nls_abbreviation == "ja") jvm_merge_disabled = 1; /* disabled */
        }
      if (disable_jvm_merge_if_JA16SJIS_character_set)
        {
          nls_exploded = explode(nls_language,".");
          nls_cs = first(rest(nls_exploded));
          if (nls_cs == "JA16SJIS") jvm_merge_disabled = 1; /* disabled */
        }
      if (disable_jvm_merge_if_not_WE8ISO8859P1_character_set)
        {
          nls_exploded = explode(nls_language,".");
          nls_cs = first(rest(nls_exploded));
          if (not(nls_cs == "WE8ISO8859P1")) jvm_merge_disabled = 1; /* disabled */
        }
       if (disable_jvm_merge_if_not_WE8ISO_US7ASCII_or_AL24UTF_character_sets)
        {
          nls_exploded = explode(nls_language,".");
          nls_cs = first(rest(nls_exploded));
          if (not(
                  (nls_cs == "US7ASCII") ||
                  (nls_cs == "WE8ISO8859P1") ||
                  (nls_cs == "AL24UTFFSS")
              ))
            jvm_merge_disabled = 1; /* disabled */
        }

/*****************************************************************************
   Verify children
*****************************************************************************/

      EXECUTE_SCRIPT = "VERIFY_CHILDREN.VRF";
      if (not(empty(children_verify_list))) execute("%product_home%\des2k_72.vrf");

/*****************************************************************************
     Return sum including this prodct
*****************************************************************************/

      script_size = sum(deinstl,product);
      product_size = sum(msb, bin, ldll,language_subgroup, ldll_ja,language_subgroup, ldll_nls,nls_abbreviation, main, regfile, icon);
      patchset_size = sum(patchset,bin,ldll);
      install_size = 0;
      install_size = install_size + script_size;
      if (patch_installation)
        {
          install_size = install_size + patchset_size;
        }
      else if (not(case_registry_only_install))
        {
          install_size = install_size + product_size;
        }
      total_size = total_size + install_size;

      EXECUTE_SCRIPT = "END_VERIFY_DEPENDENCIES.VRF";
      execute("%product_home%\des2k_72.vrf");
    }

/*****************************************************************************
   End main logic...
*****************************************************************************/

  EXECUTE_SCRIPT = "END.VRF";
  if (perform_end_vrf) execute("%product_home%\des2k_72.vrf");

  return(total_size);
}