/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    cgenh61.dei - V3.1.2 de-installation script for Oracle Designer/2000 MS Help Generator 1.0

  DESCRIPTION
    This script deinstalls Oracle Designer/2000 MS Help Generator 1.0

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason

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

{
  { doit = execute("%installer_home%\%operating_system%.dei"); }
  [
    'UNBOUND_VARIABLE: signal('failure,instantiate(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).")));
  ]

  /* unreference self so that product can be de-installed when last depending
     product is removed. Probably should be in de-installation script.
  */
  if (member(registration("selected_registries"),current_registry))
    {
    unreference(current_registry);
    }

  if (doit)
    {
      dei_ratchet = "7.2.96.5.6";

      EXECUTE_SCRIPT = "DES2_PRODUCT_NAMES.DEI";
      execute("%installer_home%\des2k_72.dei");

      /* now stored in registry
      deinstall_list = list(cgen72_product, sysdes61_product, repadm20_product, chelp72_product, creq72_product);
      */

      /**********************************************************************
         Bind all deinstall variables and de-reference products
       **********************************************************************/

      EXECUTE_SCRIPT = "DES2_REF.DEI";
      execute("%installer_home%\des2k_72.dei");

      case_registration_product = registry_name(current_registry);
      EXECUTE_SCRIPT = "DES2_REG.DEI";
      CGENH61 = execute("%installer_home%\des2k_72.dei");

      case_map_variables = list('DES2K_R61_BULLETINS);
      EXECUTE_SCRIPT = "DES2_MAP.DEI";
      execute("%installer_home%\des2k_72.dei");

      /**********************************************************************
         Bind all NLS deinstall strings here...
       **********************************************************************/

      unregistering             = nls("unregistering","Unregistering %%registry_label%%...");
      modify_config             = nls("modify_config","Modifying %%registry_label%% Environment Variables...");

      deinstalling_deinstl      = nls("deinstalling_deinstl","Deinstalling %%registry_label%% Deinstallation scripts...");
      deinstalling_msb          = nls("deinstalling_msb","Deinstalling %%registry_label%% Message files...");
      deinstalling_bin          = nls("deinstalling_bin","Deinstalling %%registry_label%% Executable files...");
      deinstalling_main         = nls("deinstalling_main","Deinstalling %%registry_label%% Product files...");

      deinstalling_cvhetc       = nls("deinstalling_cvhetc","Deinstalling %%registry_label%% Administration files...");

    }

  if (doit)
    {
      /**********************************************************************
         Deinstall children (the code tests to see if self is selected)
       **********************************************************************/

      EXECUTE_SCRIPT = "DEINSTALL_CHILDREN.DEI";
      execute("%installer_home%\des2k_72.dei");
    }

  if (doit)
    {
      /**********************************************************************
         Check to make sure all children have gone
       **********************************************************************/

      /* if children are explicitly referencecd by other products than they
         will not have removed themselves. So do not remove parent either.
         if children have gone then their registries will have gone as well.
      */

      if (empty(all_child_registrations(current_registry)))
        {

          /**********************************************************************
             Continue with the deinstallation of this product
           **********************************************************************/

          permit_retry_operations = TRUE;

          ui_action(instantiate(unregistering));
          unregister(current_registry);

          ui_action(instantiate(deinstalling_cvhetc));
          remove(cvhetc);

          ui_action(instantiate(deinstalling_main));
          remove(main);

          ui_action(instantiate(deinstalling_bin));
          remove(bin);
          remove(ldll);
          remove(ldll_ja);

          ui_action(instantiate(deinstalling_msb));
          remove(msb);

          ui_action(instantiate(deinstalling_deinstl));
          remove(deinstl);
          remove(product);

          permit_retry_operations = FALSE;

          ini_section = registry_filename(current_registry);
          case_modify_list = list();

          add(case_modify_list,list("CGENH61",                     "", ora_config, ini_section, 'INI_SECTION, 'TOP_LEVEL));

          add(case_modify_list,list("DES2K_R61_BULLETINS",             "", ora_config, ini_section));

          add(case_modify_list,list("SERVER_API_HELP_GEN61",       "", ora_config, ini_section));

          add(case_modify_list,list("DOM_HPG.GENERATE.FUNCTION",   "", ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
          add(case_modify_list,list("DOM_HPG.GENERATE.DLL",        "", ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

          add(case_modify_list,list("",                            "", ora_config, ini_section));

          EXECUTE_SCRIPT = "MODIFY_VARIABLES.CMN";
          execute("%installer_home%\des2k_72.dei");

        }
    }

  if (doit)
    {
      /**********************************************************************
         Continue with the deinstallation of dependent products
       **********************************************************************/

      EXECUTE_SCRIPT = "DEINSTALL_DEPENDENCIES.DEI";
      execute("%installer_home%\des2k_72.dei");

    }

}