/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    repico61.dei - V3.1.2 de-installation script for Oracle Repository Common Workbench Icons V1.0.4

  DESCRIPTION
    This script deinstalls Oracle Repository Common Workbench Icons V1.0.4

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    jewillia  03-JUL-95  Different oracle.ini groups for shared oracle
    jewillia  10-NOV-94  Created

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

{
  { 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(creq72_product, chelp72_product);
      */

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

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

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

      case_map_variables = list('REPOS_R10_GROUP, 'REPOS_R10_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_bin          = nls("deinstalling_bin","Deinstalling %%registry_label%% Executable files...");
      deinstalling_main         = nls("deinstalling_main","Deinstalling %%registry_label%% Product files...");
      deinstalling_icon         = nls("deinstalling_icon","Deinstalling %%registry_label%% Icon files...");

      deinstalling_registry     = nls("deinstalling_registry","Deinstalling %%registry_label%% Registry 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_main));
          remove(main);

          /* ui_action(instantiate(deinstalling_bin)); */
          /* remove(bin); */
          /* remove(ldll); */

          ui_action(instantiate(deinstalling_icon));
          remove(icons1);
          remove(icons2);
          remove(icons3);


          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("REPICO61",                           "", ora_config, ini_section, 'INI_SECTION, 'TOP_LEVEL));

          add(case_modify_list,list("REPOS_R10_GROUP",                        "", ora_config, ini_section));
          add(case_modify_list,list("REPOS_R10_BULLETINS",                    "", ora_config, ini_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");

    }

}