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

/*****************************************************************************
  NAME
    fdes60.dei - V3 deinstallation script for Oracle Forms 6.0 Designer

  DESCRIPTION
    This script removes Oracle Forms 6.0 Designer.

  MODIFIED      MM/DD/YY    Reason
*****************************************************************************/

{
     /************************************************
     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);
          RUNTIME_PRODUCT_STRING  = "w32frun60";
          REQUIRED_PRODUCT_STRING = "w32ge60";
          REQUIRED_PRODUCT_STRING2 = "w32d2kqt60";
          REQUIRED_PRODUCT_STRING3 = "w32d2kdoc60";
          QUICK_TOUR_STRING = "W32D2DH60";
          GRAPHICS_PRODUCT_STRING = "w32graph60";
          /****************************/

          /***************************
          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");
          doc60 = translate("doc60","$oracle");
          /***************************/

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

          /********************************
          Unreference Designer Dependencies
          *********************************/
          ui_product(instantiate(display_registry_label));
          ui_action(instantiate(unreference_dependencies));

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

         {unreference(registration(REQUIRED_PRODUCT_STRING), current_registry);} /* Unreference Chart Wizard */
          ['UNREGISTERED_PRODUCT: continue();]

         {unreference(registration(GRAPHICS_PRODUCT_STRING), current_registry);} /* Unreference parent of Chart Wizard */
          ['UNREGISTERED_PRODUCT: continue();]

         {unreference(registration(REQUIRED_PRODUCT_STRING2), current_registry);} /* Unreference QUICK TOUR */
          ['UNREGISTERED_PRODUCT: continue();]

         {unreference(registration(REQUIRED_PRODUCT_STRING3), current_registry);} /* Unreference QUICK TOUR */
          ['UNREGISTERED_PRODUCT: continue();]

         {unreference(registration(QUICK_TOUR_STRING), current_registry);} /* Unreference parent of QUICK TOUR */
          ['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(res);
          remove(ue);

          ui_action(instantiate(deinstall_dll));
          remove(dll);

          ui_action(instantiate(deinstall_exe));
          remove(exe);

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

          permit_retry_operations = FALSE;

     }
}