home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 24 DOS / 24-DOS.zip / nicew35t.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  2000-07-25  |  1KB  |  59 lines
  1. /* Installation for Nice-Win V 3.5T */
  2. /* (c) Thomas Bohn, Germany */
  3.  
  4. '@Echo off'
  5. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. Call SysLoadFuncs
  7. Call SysCurState Off
  8. WINLOC=SysIni(, PM_INSTALL, WINOS2_LOCATION)
  9. WLen=length(WINLOC)-1
  10. WIN=left(WINLOC,WLen)
  11. WINSYS=left(WINLOC,WLen) || "\SYSTEM"
  12. ININEU=left(WINLOC,WLen) || "\WIN.INS"
  13. INIBAK=left(WINLOC,WLen) || "\WIN.NIC"
  14. NINI=left(WINLOC,WLen) || "\NICE_WIN.INI"
  15. "del "ININEU
  16. Call SysCls
  17. say;
  18. say "Installation for NICE-WIN"
  19. say "~~~~~~~~~~~~~~~~~~~~~~~~~"
  20. say;
  21. say "Win-OS/2 location is: " || WINLOC
  22. say;
  23. say "Press any key to begin installation or Ctrl-C to cancel..."
  24. taste=SysGetKey()
  25. say;
  26. say "Copying files..."
  27. "copy BC450RTL.DLL "WINSYS
  28. "copy WINSTART.EXE "WIN
  29. "copy NICE-WIN.EXE "WIN
  30. "copy NICE_WIN.DLL "WIN
  31. ok=SysFileTree(NINI,gef,'F')
  32. if gef.0 = 0 then "copy NICE_WIN.INI "WIN
  33. say;
  34. say "Make entry in WIN.INI..."
  35. INI=left(WINLOC,WLen) || "\WIN.INI"
  36. i=1
  37. DO WHILE LINES(INI)<>0
  38.  list.i=LineIn(INI)
  39.  if left(list.i,4)='load' then do
  40.   UPLIST=translate(list.i)
  41.   if pos("NICE-WIN.EXE", UPLIST) = 0 then list.i = list.i || " NICE-WIN.EXE"
  42.  END
  43.  i=i+1
  44. END
  45. call stream INI, "C", "CLOSE"
  46. j=1
  47. DO WHILE j<i
  48.  ok=LineOut(ININEU,list.j)
  49.  j=j+1
  50. END
  51. call stream ININEU, "C", "CLOSE"
  52. BAKDA=SysFileTree(INIBAK,gef,'F')
  53. if gef.0 = 0 then "ren "INI" WIN.NIC"
  54. else "del "INI
  55. "ren "ININEU" WIN.INI"
  56. say;
  57. say "Installation complete, press any key..."
  58. taste=SysGetKey()
  59.