home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / zkuste / Svet_OS2 / BIOGRAPH / BIOG12A.ZIP / INSTALL.CMD < prev    next >
Encoding:
Text File  |  1997-07-31  |  3.5 KB  |  133 lines
  1. /* Installation Script for BioGraph */
  2. SIGNAL ON ERROR NAME Fehler
  3.  
  4. SAY " "
  5.  
  6. /* REXXUTIL laden */
  7. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  8. CALL sysloadfuncs
  9.  
  10. /* Abfrage, in welchem Pfad wir sind */
  11. CALL SysFileTree 'BIO*.*', datei, 'FO'
  12. IF datei.0 < 3 THEN
  13. DO
  14.    SAY "BioGraph wurde noch nicht entpackt."
  15.    SAY "Bitte alle Dateien entpacken und nochmals probieren."
  16.    SAY " "
  17.    SAY "You haven't unpacked BioGraph yet."
  18.    SAY "Please unpack all filesand try again."
  19.    EXIT
  20. END
  21.  
  22. /* Den Pfad und die Platte extrahieren */
  23. pfad = FILESPEC("path",datei.1)
  24. disk = FILESPEC("drive",datei.1)
  25. path = OVERLAY(pfad,disk,3)
  26.  
  27. SAY "Installation of BioGraph for OS/2  (c) 1995 Uwe Schlenther Software"
  28. SAY "==================================================================="
  29. SAY " "
  30.  
  31. /* Ansonsten Daten erfragen */
  32. Abfrage:
  33. SAY "Welches Verzeichnis soll verwendet werden ?"
  34. SAY "Which directory shall be used ?"
  35.  
  36. SAY "(z.B. C:\BIOGRAPH)  "
  37. PARSE PULL pfad
  38. IF pfad = "" THEN pfad="C:\BIOGRAPH"
  39. SAY " "
  40. SAY "BioGraph wird im Verzeichnis " pfad " installiert."
  41. SAY "BioGraph will be installed in " pfad
  42. SAY " "
  43. SAY "Geben sie <return> für weiter ein, <K> für Korrektur oder <A> für Abbruch !"
  44. SAY "Press <return> to continue, <K> for corrections or <A> to cancel !"
  45. PULL antwort
  46.  
  47. /* Auswerten */
  48. IF antwort = "A" THEN SIGNAL Abbruch
  49. IF antwort = "K" THEN SIGNAL Abfrage
  50.  
  51. SAY "Thanks...."
  52.  
  53. weiter:
  54. /* Jetzt ggf. das Verzeichnis erzeugen */
  55. rc = SysMkDir(pfad)
  56.  
  57. /* und die dort nötigen Dateien hinverschieben */
  58. INTERPRET "'COPY BIO*.* 'pfad'\*.*'"
  59. INTERPRET "'COPY *.DLL 'pfad'\*.*'"
  60. INTERPRET "'COPY BMT* 'pfad'\*'"
  61.  
  62. /* Anlegen des Ordners auf der WPS */
  63. SAY " "
  64. SAY "Soll ein Programmobjekt für BioGraph erstellt werden ?"
  65. SAY "Shall we create a program object on your desktop ?"
  66. SAY " "
  67. SAY "Geben sie <J> oder <N> ein !"
  68. SAY "Please enter <J> for Yes or <N> for No !"
  69. PULL antwort
  70.  
  71. /* Auswerten */
  72. IF antwort = "N" THEN SIGNAL Ende
  73. SAY " "
  74. SAY "WPS-Objekte werden erzeugt..."
  75. SAY "WPS-Objects are being created..."
  76.  
  77. /* Den Ordner anlegen */
  78. klasse='WPFolder'
  79. titel='BioGraph'
  80. ort='<WP_DESKTOP>'
  81. param='OBJECTID=<BIO_ORDNER>;'
  82. mode='fail'
  83. rc = SysCreateObject(klasse,titel,ort,param,mode)
  84.  
  85. /* Das Programmobjekt anlegen */
  86. klasse='WPProgram'
  87. titel='BioGraph'
  88. ort='<BIO_ORDNER>'
  89. param='PROGTYPE=PM;EXENAME='pfad'\BIO.EXE;ICONFILE='pfad'\BIO.ICO;STARTUPDIR='pfad';'
  90. mode='fail'
  91. rc = SysCreateObject(klasse,titel,ort,param,mode)
  92.  
  93. /* Das Hilfeobjekt anlegen */
  94. klasse='WPProgram'
  95. titel='Hilfe zu BioGraph'
  96. ort='<BIO_ORDNER>'
  97. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='pfad';PARAMETERS='pfad'\BIO_GER.INF;'
  98. mode='fail'
  99. Location = "<WP_TEMPS>"
  100. Title = "Hilfedatei"
  101. rc = SysCreateObject(klasse,titel,ort,param,mode)
  102.  
  103. klasse='WPProgram'
  104. titel='BioGraph Help'
  105. ort='<BIO_ORDNER>'
  106. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='pfad';PARAMETERS='pfad'\BIO_ENG.INF;'
  107. mode='fail'
  108. Location="<WP_TEMPS>"
  109. Title="HelpFile"
  110. rc=SysCreateObject(klasse,titel,ort,param,mode)
  111.  
  112. /* Ende-Meldung */
  113. Ende:
  114. SAY " "
  115. SAY "BioGraph ist jetzt installiert !"
  116. SAY "BioGraph installation successful !"
  117. EXIT
  118.  
  119. /* Standard-Fehlerhandler */
  120. Fehler:
  121. SAY " "
  122. SAY "Es ist ein Fehler aufgetreten. Bitte versuchen Sie's nochmal !"
  123. SAY "An error has occured. Please try again !"
  124. EXIT
  125.  
  126. /* Abbruch des scripts */
  127. Abbruch:
  128. SAY " "
  129. SAY "Abbruch..."
  130. SAY "User break..."
  131. EXIT
  132.  
  133.