/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */

/*****************************************************************************
  NAME
    fccsnd60.dei - V3 deinstallation script for Windows Oracle Forms 6.0 Cue
                   Card Sound Extensions

  DESCRIPTION
    This script removes Windows Oracle Forms 6.0 Cue Card Sound Extensions.

  OWNER
    Amanda Harrison

  MODIFIED      MM/DD/YY    Reason
    pgupta   11/07/97   Created
*****************************************************************************/

{
   /************************************************
   Set necessary variables for deinstallation
   *************************************************/
   EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
   execute("%installer_home%\d2kr2dei.usr");
   /************************************************/


   {doit = execute("%installer_home%%dir_separator%%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).")));
       ]

   if (doit)
   {
       /************************************************
       Create a label with the product name, and version
       *************************************************/
      EXECUTE_SCRIPT = "CREATE_LABEL";
      execute("%installer_home%%dir_separator%d2kr2dei.usr");
       /************************************************/

      /****************************
      Set up product name variables
      *****************************/
      PARENT_PRODUCT          = registry_parent(current_registry);
      PARENT_REGISTRY_NAME    = registry_name(PARENT_PRODUCT);
      DESIGNER_PRODUCT_STRING = "w32fdes60";
      doc60 = translate("doc60","$oracle");
      /****************************/

      /***************************
      Validate deinstallation path
      ****************************/
      deinstall_variable = "FORMS60";
      section_heading    = registry_filename(PARENT_PRODUCT);
      EXECUTE_SCRIPT = "GET_DEINSTALLATION_PATH";
      FORMS60 = execute("%installer_home%%dir_separator%d2kr2dei.usr");
      /***************************/

      permit_retry_operations  = TRUE;
      permit_ignore_operations = TRUE;
      permit_process_operations= TRUE;

      /*************************************************
      Unreference Cue Card Sound Extensions Dependencies
      **************************************************/
      ui_product(instantiate(display_registry_label));
      ui_action(instantiate(unreference_dependencies));

      {unreference(registration(DESIGNER_PRODUCT_STRING), current_registry);}        /* Unreference Designer */
      ['UNREGISTERED_PRODUCT: continue();]

      {unreference(registration(PARENT_REGISTRY_NAME), current_registry);}          /* Unreference Parent */
      ['UNREGISTERED_PRODUCT: continue();]
      /*************************************************/

      /*********************
      Unregister the product
      **********************/
      ui_product(instantiate(display_registry_label));
      ui_action(instantiate(deinstall_unregister));
      unregister(current_registry);
      /*********************/

      /************************************************
      Deinstall parent if no other child product exists
      *************************************************/
      EXECUTE_SCRIPT = "DEINSTALL_PARENT";
      execute("%installer_home%%dir_separator%d2kr2dei.usr");
      /************************************************/

      /********************
      Deinstall the product
      *********************/
      ui_product(instantiate(display_registry_label));

      ui_action(instantiate(deinstall_files));
      remove(forms);

      ui_action(instantiate(deinstall_files));
      remove(deinst);
      /********************/

      permit_retry_operations = FALSE;
   }
}