/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    cgenv61.vrf - V3.1.2 version analysis/product configuration script
                  for Oracle Designer/2000 Generator for Visual Basic 1.0

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Oracle Designer/2000 Generator for Visual Basic 1.0

  OWNER
    Jeremy Williams

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

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

{
  filename = current_script;
  start_vrf_list = list(filename, 'DEBUG_CGENV61);
  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();

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

  if (doit)
    {

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

      /* verify_list = list(creq72_product, repadm61_product, sysdes61_product, chelp72_product); */
      verify_list               = cgenv61_dependency_list;

      home_variable             = "CGENV61";
      home_variable_default     = "%oracle_home%\CGENV61";

      /* required for file instantiation during copy (see *.vbp) */
      sys_loc = windows_system_directory();

      case_map_variables = list('DES2K_R61_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_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_etc            = nls("installing_etc","Installing %%product_label%% Administration files...");
      installing_tmpt           = nls("installing_tmpt","Installing %%product_label%% VB Template files...");
      installing_vblib          = nls("installing_vblib","Installing %%product_label%% VB Library files...");
      installing_tpl            = nls("installing_tpl","Installing %%product_label%% Code Template 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...");

      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(home_variable),instantiate(home_variable_default),instantiate(home_variable_prompt),case_accept_home_default);
      EXECUTE_SCRIPT = "DES2_HOME.VRF";
      CGENV61 = execute("%product_home%\des2k_72.vrf");

      /* lm.bas national language install */
      {
        LM_VB5_NLS_FILE = first(group_files(vb5msb,"%language_subgroup%"));
      }
      ['EMPTY_LIST: LM_VB5_NLS_FILE = "%CGENV61%\cvb5vblib\LMUS.BAS";]
      {
        LM_VB5_GENERIC_FILE = first(group_files(vb5msb,"generic"));
      }
      ['EMPTY_LIST: LM_VB5_GENERIC_FILE = "%CGENV61%\cvb5vblib\LM.BAS";]
      {
        LM_VB_NLS_FILE = first(group_files(vbmsb,"%language_subgroup%"));
      }
      ['EMPTY_LIST: LM_VB_NLS_FILE = "%CGENV61%\cvbvblib\LMUS.BAS";]
      {
        LM_VB_GENERIC_FILE = first(group_files(vbmsb,"generic"));
      }
      ['EMPTY_LIST: LM_VB_GENERIC_FILE = "%CGENV61%\cvbvblib\LM.BAS";]

/*****************************************************************************
   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,vbmsb,vb5msb,bin,ldll,language_subgroup,ldll_ja,language_subgroup,main,etc,tmpt1,tmpt2,tmptc,vblib,vb5tmpt1,vb5tmpt2,vb5tmptc,vb5vblib,tpl);
      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);
}