home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
tstngn.zip
/
INSTALL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-08
|
5KB
|
123 lines
/* Version of 95/03/07 by Peter Kanis */
/************************************************************************
* Project : Test Engine/2 Date : 94/08/24 *
* Module : INSTALL DEMO *
* Filename : INSTALL.CMD Author : Peter Kanis *
*************************************************************************
* *
* Description: OS/2 Command interface launcher for Test Engine/2 *
* installation. *
* *
* Export: *
* *
* Intenal: *
* *
* Locals: none *
* *
* Revisions: none *
* *
*************************************************************************
* *
* (c) ADD Consulting All Rights Reserved *
* *
*************************************************************************/
'@echo off'
address cmd
/***** Load system functions ********************************************/
if RxFuncQuery( 'SysLoadFuncs') <> 0 then do
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs
end
parse arg rsp_file
/***** Get the install directory ****************************************/
parse source s1 s2 s3
s1 = filespec( 'D', s3)
s2 = filespec( 'P', s3)
p = pos( '\', s2)
lp = lastpos( '\', s2)
if lp <> p then
inst_path = s1 || substr( s2, 1, lp)
else
inst_path = s1 || s2
/***** Find the boot drive for installation *****************************/
set_path = VALUE( 'PATH', , 'OS2ENVIRONMENT');
bootdrive = substr( set_path, pos( '\OS2\SYSTEM', set_path ) -2, 2);
/***** Install 32 bit unzip freeware ************************************/
say 'copying installation files...'
'unpack' inst_path || 'unzip.ex@' bootdrive || '\os2\install'
/***** Check for VX-REXX in environment *********************************/
vxrexx = ''
vxrexx = VALUE( 'VXREXX',, 'OS2ENVIRONMENT');
/***** Check for VX-REXX from previous install **************************/
if (vxrexx = '') then
vxrexx = bootdrive || '\OS2\DLL'
vxrexxdll = vxrexx || "\VROBJ.DLL"
/***** Check file dates to ensure right version *************************/
if stream( vxrexxdll, 'c', 'query exists') <> '' then do
call SysFileTree vxrexxdll, 'file.', 'FT'
if word( file.1, 1) < '94/08/10/17/17' then do
say word( file.1, 1) '94/08/10/17/17'
say 'Copying VX-REXX run-time version 2.1 (c) WATCOM...'
'unzip -joqq' inst_path || 'disk1.zip vrobj.dll -d' vxrexx
end
end
/***** If no VX-REXX unpack runtime dll *********************************/
else do
say 'Copying VX-REXX run-time version 2.1 (c) WATCOM...'
'unzip -joqq' inst_path || 'disk1.zip vrobj.dll -d' vxrexx
end
/***** copy Install program help ***************************************/
say 'please be patient...'
'unzip -joqq' inst_path || 'disk1.zip qainst.inf -d' bootdrive || '\os2\book'
/***** copy installation program ***************************************/
'unzip -joqq' inst_path || 'disk1.zip toolbox.ico -d' bootdrive || '\os2\install'
'unzip -joqq' inst_path || 'disk1.zip tbopen.ico -d' bootdrive || '\os2\install'
say 'Install program will start in a moment...'
'unzip -joqq' inst_path || 'disk1.zip tstngen.ico -d' bootdrive || '\os2\install'
'unzip -joqq' inst_path || 'disk1.zip qainst.exe -d' bootdrive || '\os2\install'
/***** start the installation program ***********************************/
cmdstr = bootdrive || '\os2\install\qainst' inst_path rsp_file
cmdstr
exit
/************************************************************************/
/* */
/* (c) ADD Consulting 1994/5 */
/* */
/* END OF FILE. */
/* */
/************************************************************************/