home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / install / windows.dei < prev    next >
Text File  |  1994-09-02  |  2KB  |  52 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     windows.dei - V3 common deinstallation script for Windows products
  5.  
  6.   DESCRIPTION
  7.     This script performs common version analysis functionality across product
  8.     DEI scripts.  It returns the variable 'doit', indictating whether the
  9.     deinstallation is to proceed.
  10.  
  11.   OWNER
  12.     Dan Galatin
  13.  
  14.   MODIFIED    DD-MMM-YY  Reason
  15.     dgalatin  05-NOV-93  Created from unix.dei.
  16. *****************************************************************************/
  17.  
  18. {
  19.   registry_label = registry_interface_label(current_registry);
  20.  
  21.   ui_product(registry_label);
  22.   ui_action(instantiate(nls("analyze_deinstall_depend",
  23.                             "Analyzing %%registry_label%% Dependencies...")));
  24.  
  25.   doit = FALSE;
  26.  
  27.   if (unreferenced(current_registry))
  28.     doit = TRUE;
  29.   else if (member(registration("selected_registries"),current_registry))
  30.     if (uniquely_self_referenced(current_registry))
  31.       doit = TRUE;
  32.     else
  33.       {
  34.     templist = registry_references(current_registry);
  35.  
  36.     extract(templist,current_registry);
  37.     subtract(templist,registration("selected_registries"));
  38.         subtract(templist,all_child_registrations(current_registry));
  39.  
  40.     if (not(empty(templist))) 
  41.       doit = yesno_dialog(instantiate(deinstall_prompt01),FALSE,
  42.                   instantiate(deinstall_content01),
  43.                   instantiate(deinstall_help01));
  44.     else
  45.       doit = TRUE;
  46.       } 
  47.  
  48.   return(doit);
  49. }
  50.  
  51.   
  52.