home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / PO7 / PO7.VRF < prev   
Encoding:
Text File  |  1995-10-03  |  2.5 KB  |  79 lines
  1. /* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     po7.vrf - V3 analysis/product configuration script for the
  6.           Windows 95 PO7 parent product
  7.  
  8.   DESCRIPTION
  9.     This script checks dependencies and environment settings for the
  10.     installation of the Windows 95 PO7 parent product
  11.     
  12.   OWNER
  13.     Bryan Sabol
  14.  
  15.   MODIFIED    MM/DD/YY    Reason
  16.     LMurphy 06/01/95    Modified for use with Windows 95 PO7
  17.     LMurphy 01/24/94        Modified for use with On-Line Help
  18.       bsabol    03/21/94    Created
  19. *****************************************************************************/
  20.  
  21. {
  22.     { doit = execute("%installer_home%\win95.vrf"); }
  23.     [
  24.     'UNBOUND_VARIABLE:
  25.     {
  26.         required_version = product_version(w95instver);
  27.         temp = explode(required_version,".");
  28.         required_version = implode(list(first(temp),first(rest(temp)),
  29.                                         first(rest(rest(temp))),
  30.                                         first(rest(rest(rest(temp))))),".");
  31.         signal('failure,instantiate(nls("instver_too_early1","The version of the Installer currently running is %%installer_version%%. The installation you have chosen requires version %%required_version%% or later. Please run version %%required_version%% or later in order to perform this installation.")));
  32.     }
  33.     ]
  34.  
  35.     if (doit)
  36.     {
  37.  
  38.  
  39.             /*****************************
  40.         Set the VRF-INS script ratchet
  41.         ******************************/
  42.  
  43.                 vrf_ratchet = "7.2.2.3.1";
  44.  
  45.         permit_retry_operations = FALSE;
  46.  
  47.         installing_scripts = nls("installing_scripts",
  48.                                "Installing %%product_label%% Scripts...");
  49.         installing_components = nls("installing_components",
  50.                                "Installing %%product_label%% Components...");
  51.         registering = nls("registering","Registering %%product_label%%...");
  52.         total_sum = 0;
  53.  
  54.         /***************************
  55.         Return appropriate file size
  56.         ****************************/
  57.  
  58.         child_products = all_child_products(current_product);
  59.  
  60.  
  61.                 if(member(selected_products, current_product)) 
  62.         {
  63.                         while(not(empty(child_products)))
  64.             {
  65.                 total_sum = total_sum + verify(first(child_products));
  66.                 child_products = rest(child_products);
  67.             }
  68.                 }
  69.                  
  70.         child_products = all_child_products(current_product);
  71.                 return(sum(deinst) + verify(w95hlpdoc72) + total_sum);
  72.     }
  73.     else
  74.     {
  75.         refresh_map_file = FALSE;
  76.         return(0);
  77.     }
  78. }
  79.