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

/*****************************************************************************
  NAME
    flang50.dei - V3 deinstallation script for Oracle
                 Forms Language Supplement

  DESCRIPTION
    This script removes Forms Language Supplement

  MODIFIED  MM/DD/YY        Reason
  pgupta    09/04/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).")));
    ]
    doit = TRUE;
    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);
          COMPONENT_PRODUCT_STRING        = "w32tul60";
         /****************************/
                                                                         /***************************************************************
         For some reason, if any of the variables written to REGISTRY at
         the time of installation is not there, set the variables to the
         default value.
        ****************************************************************/
        {
           DE60 = translate("DE60");
           if(not(exists(DE60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                DE60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
        ]

         {
           VGS60 = translate("VGS60");
           if(not(exists(VGS60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                VGS60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
        ]
         {
           DOC60 = translate("DOC60");
           if(not(exists(DOC60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                DOC60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
        ]
 {
            CA_GPREFS = translate("CA_GPREFS");
            set_ca_gprefs = FALSE;
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                CA_GPREFS = "%ORACLE_HOME%";
        ]

         /***************************
          Validate deinstallation path
         ****************************/

         section_heading    = registry_filename(PARENT_PRODUCT);
         EXECUTE_SCRIPT         = "GET_DEINSTALLATION_PATH";

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

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

        /*********************
        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_action(instantiate(deinstall_files));
          remove(tutil);
          remove(grppref);
          remove(deinst);

          /********************/
          permit_retry_operations = FALSE;
     }
}