home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 July / PCO_07_97.ISO / filesbbs / OS2 / OS2PNT20.ARJ / OS2PNT20.ZIP / op20inst.cmd < prev    next >
Encoding:
Text File  |  1996-01-10  |  2.7 KB  |  108 lines
  1. /* OS2POINT Installation / Extraction
  2.  * 30.12.95 Thomas Waldmann
  3.  */
  4.  
  5. version     = '20'
  6. opprefix    = 'op'||version
  7. header      = opprefix'inst.dat'
  8. headerlen   = 49845
  9. opcomppattc = opprefix||'????.opc'
  10. opcomppattu = opprefix||'????.opu'
  11. opcomppattf = opprefix||'????.opf'
  12.  
  13. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  14. call SysLoadFuncs
  15.  
  16. call SysCls
  17.  
  18. say 'OS2POINT Installation'
  19. say '====================='
  20. say ''
  21. say 'English:'
  22. say '1. Create a new directory on your hard disk (min. 20 MB free), e.g.'
  23. say '   X:\POINT\ - this is the installation directory for OS2POINT.'
  24. say '2. Copy *ALL* files of the point package (OP??*.* etc.) to this directory.'
  25. say '3. Change into the installation directory and start OP20INST.CMD.'
  26. say ''
  27. say 'Deutsch:'
  28. say '1. Neues Verzeichnis auf der Platte (mind. 20 MB frei) erstellen, z.B.'
  29. say '   X:\POINT\ - dies ist dann das Installationsverzeichnis fuer OS2POINT.'
  30. say '2. Alle Files des Pointpaketes (OP??*.* etc.) dort hineinkopieren.'
  31. say '3. Vom Installationsverzeichnis aus OP20INST.CMD starten.'
  32. say ''
  33. say '[0] I have not done this - abort! / Ich habe das noch nicht gemacht, abbrechen!'
  34. say '[1] All OK, continue! / Alles OK so, weitermachen!'
  35. say ''
  36.  
  37. pull answer
  38. if answer==0 then exit
  39.  
  40. say ''
  41.  
  42. call ExtrFilesC opcomppattc
  43. call ExtrFilesU opcomppattu
  44. call ExtrFilesU opcomppattf
  45.  
  46. '@move op20*.op? request\os2point >NUL'
  47. '@call op_instl'
  48. '@move op20inst.dat request\os2point'
  49. '@move op20inst.cmd request\os2point'
  50. exit
  51.  
  52. ExtrFilesC:
  53.   parse arg filespec
  54.   call SysFileTree filespec, 'file', 'FO'
  55.   if file.0<1 then return
  56.   do i=1 to file.0
  57.     call ExtractC file.i
  58.   end
  59.   return
  60.  
  61. ExtrFilesU:
  62.   parse arg filespec
  63.   call SysFileTree filespec, 'file', 'FO'
  64.   if file.0<1 then return
  65.   do i=1 to file.0
  66.     call ExtractU file.i
  67.   end
  68.   return
  69.  
  70. ExtractC:
  71.   parse arg fname
  72.   namein  = header
  73.   nameout = '$$TEMP$$.EXE'
  74.   data = charin(namein, 1, headerlen)
  75.   rc = stream(namein,'C','close')
  76.   rc = charout(nameout, data)
  77.   data = ''
  78.   namein  = fname
  79.   size = stream(namein,'C','query size')
  80.   desc80b = charin(namein, 1, 80)
  81.   say desc80b
  82.   data = charin(namein, 81, size-80)
  83.   data = translate(data, xrange('99'x,'98'x), xrange('00'x,'FF'x))
  84.   rc = stream(namein,'C','close')
  85.   rc = charout(nameout, data)
  86.   rc = stream(nameout,'C','close')
  87.   data = ''
  88.   '@$$TEMP$$.EXE >NUL'
  89.   if rc>0 then
  90.     do
  91.       say 'rc = 'rc
  92.       say fname' is defective! -- 'fname' ist defekt!'
  93.       exit
  94.     end
  95.   '@del $$TEMP$$.EXE >NUL'
  96.   return
  97.  
  98. ExtractU:
  99.   parse arg fname zipopt
  100.   '@bin\unzip -o 'fname' 'zipopt' >NUL'
  101.   if rc>0 then
  102.     do
  103.       say 'rc = 'rc
  104.       say fname' is defective! -- 'fname' ist defekt!'
  105.       exit
  106.     end
  107.   return
  108.