home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / install / windows.pvf < prev    next >
Encoding:
Text File  |  1994-09-02  |  2.1 KB  |  63 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     windows.pvf - V3 post version analysis script for Windows products.
  5.  
  6.   DESCRIPTION
  7.     This script performs post version analysis functionality.  In particular,
  8.     it analyzes the 'products_for_installation' list so that the Installer
  9.     can report which products need to be implicitly installed as a consequence
  10.     of the user's current configuration and product selection. 
  11.  
  12.   OWNER
  13.     Dan Galatin
  14.  
  15.   MODIFIED    DD-MMM-YY  Reason
  16.     dgalatin  15-AUG-94  Fixed bug #231109.
  17.     dgalatin  24-JUL-94  Added 'prod_not_empty' boolean.
  18.     kjain     07-JUL-94  Added verbose mode support.
  19.     dgalatin  05-NOV-93  Created.
  20. *****************************************************************************/
  21.  
  22. {
  23.   if (user_action == 'install)
  24.     {
  25.       {
  26.         prod_not_empty = not(empty(products_for_installation));
  27.  
  28.         if (verbose)
  29.       {
  30.         extras = list();
  31.  
  32.         while (not(empty(products_for_installation)))
  33.           {
  34.         if (not(member(selected_products,
  35.                    first(products_for_installation))))
  36.           {
  37.             prodlab = product_interface_label(first(products_for_installation));
  38.             ver = product_version(first(products_for_installation));
  39.             add(extras,instantiate(version_string));
  40.           }
  41.         
  42.         products_for_installation = rest(products_for_installation);
  43.           }
  44.         
  45.         if (not(empty(extras)))
  46.           {
  47.         extrastring = implode(extras,", ");
  48.         
  49.         required_products_prompt = nls("required_products_prompt","The following product(s) are required and will be installed in addition to the ones you have chosen:%carriage_return%%carriage_return%%%extrastring%%");
  50.         required_products_content = nls("required_products_content","Required Products");
  51.         
  52.         information_dialog(instantiate(required_products_prompt),
  53.                    required_products_content,
  54.                    instantiate(required_products_prompt));
  55.           }
  56.       }
  57.     }
  58.       [ 'UNBOUND_VARIABLE: continue(); ]#; /* products_for_installation */
  59.                                                /* could possibly be unbound */
  60.     }
  61.   return(0);
  62. }
  63.