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

  DESCRIPTION
    This script deinstalls Oracle Designer/2000 Help 6.0.8.0.0

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    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();
      */

      /**********************************************************************
         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";
      CHELP72 = execute("%installer_home%\des2k_72.dei");

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

      /**********************************************************************
        Ensure that the necessary additional environment variables are bound
      **********************************************************************/

      /**********************************************************************
         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_help         = nls("deinstalling_help","Deinstalling %%registry_label%% Data files...");
      deinstalling_cuecards     = nls("deinstalling_cuecards","Deinstalling %%registry_label%% CueCards files...");
      deinstalling_cnt          = nls("deinstalling_cnt","Deinstalling %%registry_label%% CNT files...");
      deinstalling_main         = nls("deinstalling_main","Deinstalling %%registry_label%% Product 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_cnt));
          remove(cnt);

          ui_action(instantiate(deinstalling_cuecards));
          remove(cuecards);

          ui_action(instantiate(deinstalling_help));
          remove(help);

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

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

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

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

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

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

          {
            help_engine_list = group_files(help);
            while(not(empty(help_engine_list)))
              {
                next_help_file = first(help_engine_list);
                help_engine_list = rest(help_engine_list);

                modify_key = "HKEY_LOCAL_MACHINE";
                modify_subkey = "SOFTWARE\Microsoft\Windows\Help";
                modify_variable = file_name(next_help_file);
                modify_value = next_help_file;

                {
                  /* delete the key */
                  modify_subkey = "%modify_subkey%\%modify_variable%";
                  win32_delete_key(modify_key, modify_subkey);
                }
                ['FILE_NOT_FOUND(A,B,C,D): continue();
                 'PERMISSION_DENIED: continue();
                ]
              }
          }
        }
    }

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

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

    }

}