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

/*****************************************************************************
  NAME
    graphl60.dei - V3 deinstallation script for Oracle
                 Graphics Language Supplement

  DESCRIPTION
    This script removes Graphics 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        = "w32grun60,w32gdes60";
         /****************************/
         /********************************************
          Validate Graphics Runtime deinstallation path
         ********************************************/
         deinstall_gdes       = TRUE;
         deinstall_grun       = TRUE;
         deinstall_deinst     = TRUE;
         /********************************************
          remove only if the product is selected to be
          remove AND if it already registered.
         **********************************************/

         graph_flag = FALSE;
         if (member(registration("selected_registries"),"w32graph60"))
         {
                graph_flag = TRUE;
         }

         selection_list = registration("selected_registries");
         productname = "string";
         if (not(graph_flag))
         {
           /* if not, the user has selected any of the individual sub
              components under reports. like, runtime, mts etc
              In this case we need to find out what was the product
              selected and remove the appropriate language files.
              If some product was not selected set it to FALSE.
            */
                if (not(empty(selection_list)))
                {
                        deinstall_gdes       = FALSE;
                        deinstall_grun       = FALSE;
                        deinstall_deinst     = FALSE;

                }
                while(not(empty(selection_list)))
                {
                   productname = (registry_name(first(selection_list)));

                   if (productname == "w32grun60")
                        deinstall_grun = TRUE;
                   if (productname == "w32gdes60")
                        deinstall_gdes = TRUE;
                   if (productname == "w32graphl60")
                        deinstall_deinst = TRUE;
                   if (productname == "w32graph60")
                   {
                        deinstall_gdes       = TRUE;
                        deinstall_grun       = TRUE;
                        deinstall_deinst     = TRUE;
                    }
                    selection_list= rest(selection_list);
                }
         }

	 /***************************************************************
         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.
        ****************************************************************/
        {
           OCL60 = translate("OCL60");
           if(not(exists(OCL60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR, 'INVALID_FILE_NAME,
                'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
                OCL60 = "%oracle_home%%dir_separator%GRAPHICS60";
        ]    



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

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

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

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

          /********************
          Deinstall the product
          *********************/
        if(deinstall_grun)

         {
            ui_action(instantiate(deinstall_files));
            remove(grun);
        }

          if(deinstall_gdes)

          {
            ui_action(instantiate(deinstall_files));
            remove(gdes);
        }

            if (deinstall_deinst)
            {
            /*********************
            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");
            /************************************************/
            ui_action(instantiate(deinstall_files));
            remove(deinst);
            }


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

          permit_retry_operations = FALSE;



     }
}