home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / object10.ins < prev    next >
Encoding:
Text File  |  1995-04-13  |  5.4 KB  |  185 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2.  
  3. /**************************************************************************** 
  4.   NAME
  5.     object10.ins - Windows V3 installation script for the
  6.           Oracle Object for Windows.
  7.  
  8.   DESCRIPTION
  9.     This script installs the OO4W by copying the appropriate files.
  10.  
  11.   OWNER
  12.     Biju Albert
  13.  
  14.   MODIFIED    DD-MMM-YY Reason
  15.     balbert  01-DEC-94 Created.
  16. *****************************************************************************/
  17. {
  18.   /************************************************************************** 
  19.         Start main logic...                               
  20.    **************************************************************************/
  21.   if (doit)
  22.     {
  23.       ins_ratchet = "1.0.55.0.0";
  24.  
  25.       execute("%installer_home%\windows.ins");
  26.  
  27.       install(winrsf71);
  28.       /*install(win32rsf71);*/
  29.  
  30.       ui_product(product_label);             
  31.  
  32.       permit_retry_operations = TRUE;        
  33.  
  34.       ui_action(instantiate(installing_scripts));
  35.       copy(deinstl);
  36.  
  37.       ui_action(instantiate(installing_class_library));    
  38.       copy (CPPBMFCEMPEDIT);
  39.       copy (CPPBMFCEMPEDITRES);
  40.       copy (CPPBMFCH);
  41.       copy (CPPBMFCLIB);
  42.       copy (CPPBMFCLIBD);
  43.       copy (CPPBMFCSRC);
  44.       copy (CPPBOWL);
  45.       copy (CPPBOWLEMPEDIT);
  46.       copy (CPPBOWLH);
  47.       copy (CPPBOWLLIB);
  48.       copy (CPPBOWLLIBD);
  49.       copy (CPPBOWLSRC);
  50.       copy (CPPDOC);
  51.       copy (CPPH);
  52.       copy (CPPMFCBIN);
  53.       copy (CPPMFCBIND);
  54.       copy (CPPMFCLIB);
  55.       copy (CPPOWLBIN);
  56.       copy (CPPOWLBIND);
  57.       copy (CPPOWLLIB);
  58.       copy (CPPSRC);
  59.       copy (CPPWORK);
  60.       copy (CPPWORKBOUNDVAL);
  61.       copy (CPPWORKEMPEDT);
  62.       copy (CPPWORKEMPEDTRES);
  63.       copy (CPPWORKLOGDLG);
  64.       copy (CPPWORKPOSADV);
  65.       copy (CPPDEMOSQL);
  66. /*      copy (Files); */
  67.       ui_action(instantiate(installing_object_server));    
  68.       copy (OIPBIN);
  69.       {
  70.       if (web_install) copy (OIPSRVWEB);
  71.       else copy (OIPSRV);
  72.       }
  73.       ['UNBOUND_VARIABLE: {copy (OIPSRV); continue();}]
  74.       copy (OIPDOC);
  75.       copy (OO4W);
  76.       copy (OO4WREL);
  77.       ui_action(instantiate(installing_ole_libraries));    
  78. /*      copy (OLEBIN);
  79.       copy (OLEREG);*/
  80.  
  81.       system_files = group_files(OLEBIN);
  82.       product_directory = implode(list(product_home,
  83.                                        product_location(current_product)),"\");
  84.       pathify(product_directory);
  85.  
  86.       while (not (empty(system_files)))
  87.       {
  88.          /* Set up the filenames and versions */
  89.          current_destination_file = first(system_files);
  90.          current_source_file = implode(list(product_directory,
  91.                                             file_name(current_destination_file)),
  92.                                        "\");
  93.          pathify(current_source_file);
  94.  
  95.          source_file_version = windows_file_version(current_source_file);
  96.          {
  97.            if ((not(exists(current_destination_file)))
  98.             || (windows_earlier_version(current_destination_file,
  99.                                         source_file_version)))
  100.              signal('FILE_NOT_FOUND);
  101.           } ['default: copy_file(current_source_file,current_destination_file); ]
  102.  
  103.          system_files = rest(system_files);
  104.  
  105.       }
  106.  
  107.       system_files = group_files(OLEREG);
  108.       product_directory = implode(list(product_home,
  109.                                        product_location(current_product)),"\");
  110.       pathify(product_directory);
  111.  
  112.       while (not (empty(system_files)))
  113.       {
  114.          /* Set up the filenames and versions */
  115.          current_destination_file = first(system_files);
  116.          current_source_file = implode(list(product_directory,
  117.                                             file_name(current_destination_file)),
  118.                                        "\");
  119.          pathify(current_source_file);
  120.  
  121.          {
  122.            if (not(exists(current_destination_file)))
  123.              signal('FILE_NOT_FOUND);
  124.           } ['default: copy_file(current_source_file,current_destination_file); ]
  125.  
  126.          system_files = rest(system_files);
  127.  
  128.       }
  129.  
  130.       ui_action(instantiate(installing_vb_vba));    
  131.       copy (VBBIN);
  132.       copy (VBDEPT);
  133.       copy (VBEMP);
  134.       copy (VBLOGIN);
  135.       copy (VBMSG);
  136.       copy (VBOBJ);
  137.       copy (VBPARM);
  138.       copy (VBQUOTE);
  139.       copy (VBRAISE);
  140.       copy (VBSQL);
  141.       copy (XSAMP);
  142.        
  143. /*
  144.       if (set_mshelp)
  145.       {
  146.     ui_action(instantiate(modifying_config));
  147.     modify("MSHELP",mshelp,ora_config,"Oracle");
  148.       }
  149.      if (install_plsql)
  150.      {
  151.       if (set_plsql21)
  152.       {
  153.     ui_action(instantiate(modifying_config));
  154.     modify("PLSQL21",plsql21,ora_config,"Oracle");
  155.       }
  156.      }
  157.     {
  158.     spawn("%ORACLE_HOME%\bin\vsdpw.exe PASSWORD=%dba_password%", 'MINIMIZE);
  159.     }
  160.     [ 'NO_RESPONSE: continue();
  161.       'INVALID_FILE_NAME, 'OS_ERROR: information_dialog(pwmerr);
  162.     ]
  163. */
  164.  
  165.       permit_retry_operations = FALSE;
  166.       ui_action(instantiate(registering));
  167.       {
  168.       spawn("%WINDIR%\REGEDIT.EXE /s %WINSYS%\OLE2.REG");
  169.       }
  170.       ['UNKNOWN_ERROR, 'NO_RESPONSE: continue();]
  171.       {
  172.       spawn("%WINDIR%\REGEDIT.EXE /s %WINSYS%\ORAIPSRV.REG");
  173.       }
  174.       ['UNKNOWN_ERROR, 'NO_RESPONSE: continue();]
  175.       register(current_product);
  176.       if (member(selected_products,current_product))
  177.     reference(current_product);
  178.  
  179.       reference(winrsf71, current_product);
  180.  
  181.       permit_retry_operations = FALSE;
  182.     }
  183. }
  184. 
  185.