home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1994 October
/
SOFM_Oct1994.bin
/
pc
/
os2
/
fihlib
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-07-28
|
1KB
|
59 lines
/* Icon Heaven installation script */
/* (C)Copyright 1993-1994 by The Frobozz Magic Software Company */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
'@echo off'
app = 'IHeaven'
key = 'INSTDIR'
say 'Frobozz Icon Heaven Library installer'
say '(C)Copyright 1993-1994 by the Frobozz Magic Software Company'
say ''
res = SysIni(, app, key)
if res ='ERROR:' then do
say 'Icon Heaven is not installed on your system'
say 'this library set cannot be installed without Icon Heaven'
say 'PLease install Icon Heaven first'
exit
end
instdir=res
say 'installing libraries to directory ['instdir']'
'pause'
call SysFileTree '*.fim', 'file.', 'FO'
Do i=1 to file.0
targ = instdir'\'filespec('n',file.i)
'copy' file.i targ '>nul'
cookie1 = charin(targ)
cookie2 = charin(targ)
if cookie1 = 'L' & cookie2 = 'I' then do
dum = charin(targ,,8)
n = ''
c = charin(targ)
do until c2d(c) = 0
n = n''c
c= charin(targ)
end
retval = SysCreateObject('FIMFolder', n, '<FIM_ICONS>', 'ICONLIBRARY='targ, 'U')
call stream targ,'C','CLOSE'
end
else do
call stream targ,'C','CLOSE'
'del 'targ
end
End
Exit