home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / mdebug / install.bat < prev    next >
Encoding:
DOS Batch File  |  1992-06-30  |  14.9 KB  |  464 lines
  1. @ECHO OFF
  2. REM -----------------------------------------------
  3. REM INSTALL V2.00 - Installierungs-Datei für MDEBUG
  4. REM (c) Bernd Schemmer 1992
  5. REM -----------------------------------------------
  6. REM Für 4DOS ab Version 3 auf BTM umschalten!
  7. IF  %@eval[2+2]  ==  4 LOADBTM ON 
  8. BREAK ON
  9. CLS
  10. SET VERSION=V2.00
  11. IF NOT "%VERSION%" == "V2.00" GOTO EnvError
  12. ECHO. ┌─────────────────────────────────────────────────────────────────────┐
  13. ECHO. │ INSTALL.BAT - Batchdatei zum Entpacken der Archive von MDEBUG %VERSION% │
  14. ECHO. └─────────────────────────────────────────────────────────────────────┘
  15. ECHO.
  16. REM -----: Testen, ob die Datei von der richtigen Diskette gestartet wurde
  17. IF EXIST START.DOC GOTO DiskOk
  18. ECHO. ***** INSTALL fataler Fehler: Falsche Start-Diskette benutzt!
  19. ECHO.
  20. ECHO. ***** INSTALL.BAT kann nur von der Original-Diskette der Shareware-
  21. ECHO. ***** Version oder der ERSTEN (und evtl. einzigen) Diskette der 
  22. ECHO. ***** Vollversion (bzw. einer Kopie einer dieser beiden Disketten) 
  23. ECHO. ***** gestartet werden!
  24. ECHO. *****
  25. ECHO. ***** Beende INSTALL
  26. ECHO.
  27. GOTO ENDE
  28. :DiskOk
  29. ECHO. Initialisiere die Variablen. Bitte warten, das dauert etwas ...
  30. ECHO. [evtl. Fehlermeldungen wie 'Kein Platz mehr im Umgebungsbereich' können
  31. ECHO. ignoriert werden, da sie von INSTALL behandelt werden!]
  32. ECHO.
  33. REM -----: Environment-Variablen vorbelegen
  34. SET  RETADR=xxxxxxxxxxxx
  35. SET RETADR1=xxxxxxxxxxxx
  36. SET    FILE=xxxxxxxxxxxx
  37. SET     EXT=xxxxxxxxxxxx
  38. SET IGNOREERROR=xxx
  39. SET art=SHARE
  40. SET Z_LW=C:
  41. SET Q_LW=A:
  42. SET MKDIRS=+
  43. REM -----: Auswerten der Parameter
  44. IF %1. == ?.  GOTO HELP
  45. IF %1. == /?. GOTO HELP
  46. IF %1. == -?. GOTO HELP
  47. IF NOT %1. == . SET Z_LW=%1
  48. IF NOT %2. == . SET Q_LW=%2
  49. IF NOT %3. == . SET MKDIRS=%3
  50. REM -----: Testen, ob die Environment-Variablen erstellt werden konnten
  51. SET TESTFILE=****TESTFILE****
  52. IF NOT %TESTFILE%. == ****TESTFILE****. GOTO EnvError
  53.  
  54. REM -----: Parameter überprüfen
  55. IF %4. == X. GOTO LW_OK2
  56. IF %4. == x. GOTO LW_OK2
  57. IF NOT %4. == . GOTO Switch1Error
  58.  
  59. IF %Z_LW%. == C:. GOTO LW_OK1
  60. IF %Z_LW%. == c:. GOTO LW_OK1
  61. IF %Z_LW%. == D:. GOTO LW_OK1
  62. IF %Z_LW%. == d:. GOTO LW_OK1
  63. GOTO TargetError
  64. :LW_OK1
  65. IF %Q_LW%. == A:. GOTO LW_OK2
  66. IF %Q_LW%. == a:. GOTO LW_OK2
  67. IF %Q_LW%. == B:. GOTO LW_OK2
  68. IF %Q_LW%. == b:. GOTO LW_OK2
  69. GOTO SourceError
  70. :LW_OK2
  71. IF %MKDIRS%. == +. GOTO SwitchOkay
  72. IF NOT %MKDIRS%. == -. GOTO SwitchError
  73. :SwitchOkay
  74. CLS
  75. ECHO. ┌─────────────────────────────────────────────────────────────────────┐
  76. ECHO. │ INSTALL.BAT - Batchdatei zum Entpacken der Archive von MDEBUG %VERSION% │
  77. ECHO. └─────────────────────────────────────────────────────────────────────┘
  78. ECHO.
  79. IF %MKDIRS%. == -. GOTO SKIP1
  80. ECHO. INSTALL erstellt im aktuellen Verzeichnis von %Z_LW% folgende Directorys:
  81. ECHO.
  82. ECHO.    akt. Directory
  83. ECHO.    ─────────────┐
  84. ECHO.                 │
  85. ECHO.                 ├──\MDEBUG  Inhalt: Das Hauptprogramm und die Utils
  86. ECHO.                 │
  87. ECHO.                 ├──\SOURCE  Inhalt: Die Quelltexte der Utils
  88. ECHO.                 │
  89. ECHO.                 └──\DOC     Inhalt: Die Dokumentation zu MDEBUG %VERSION%
  90. GOTO SKIP2
  91. :SKIP1
  92. ECHO. Die Directorys MDEBUG, SOURCE und DOC existieren bereits im akt. Directory
  93. ECHO. des Laufwerks %Z_LW%.
  94. :SKIP2
  95. ECHO.
  96. ECHO.                                       ┌────┐                  ┌────┐
  97. ECHO. Installiere MDEBUG %VERSION% vom Laufwerk │ %Q_LW% │ aus ins Laufwerk │ %Z_LW% │.
  98. ECHO.                                       └────┘                  └────┘
  99. ECHO.
  100. ECHO. Das aktuelle Directory von %Z_LW% ist:
  101. CD %Z_LW%
  102. ECHO.
  103. ECHO. Soll ich fortfahren [CTRL-C für Abbruch, sonst: fortfahren]?
  104. ECHO. (INSTALL ? [RETURN] für Hilfe)
  105. PAUSE >NUL
  106. CLS
  107. ECHO. Installiere MDEBUG %VERSION% im akt. Directory des Laufwerks %Z_LW% ...
  108. ECHO.
  109.  
  110. %Z_LW%
  111. IF %MKDIRS%. == -. GOTO DirsExist
  112. ECHO.
  113. ECHO. ***** Erstelle die Directorys MDEBUG, SOURCE und DOC ...
  114. MD MDEBUG >NUL
  115. MD SOURCE >NUL
  116. MD DOC >NUL
  117. :DirsExist
  118.  
  119. REM -----: Testen, ob die Directorys existieren
  120. IF NOT EXIST %Z_LW%DOC\CON    GOTO DirectoryError
  121. IF NOT EXIST %Z_LW%SOURCE\CON GOTO DirectoryError
  122. IF NOT EXIST %Z_LW%MDEBUG\CON GOTO DirectoryError
  123.  
  124. ECHO. ***** Installiere MDEBUG %VERSION% ...
  125. copy %Q_LW%*.doc doc\*.* >NUL
  126. IF EXIST %Q_LW%show.* copy %Q_LW%show.* doc\*.* >NUL
  127.  
  128. REM -----: Entpacken des Archivs MDEBUG1.EXE
  129. cd MDEBUG
  130. SET FILE=MDEBUG1
  131. SET TESTFILE=MDDISDRV.COM
  132. SET EXT=.EXE
  133. SET RETADR1=LABEL1
  134. GOTO InstallArchiv
  135. :LABEL1
  136. IF NOT %IGNOREERROR%. == . GOTO ErrorIgnored1
  137. ECHO. ***** Verteile die Dateien auf die Directorys ...
  138. copy *.a86 ..\source\*.* >NUL
  139. copy *.obj ..\source\*.* >NUL
  140. copy testmd.* ..\source\*.* >NUL
  141. del *.a86 >NUL
  142. del *.obj >NUL
  143. del testmd.* >NUL
  144.  
  145. :ErrorIgnored1
  146. REM -----: Entpacken der Dokumentation zu MDEBUG (Teil 1)
  147. cd ..\doc
  148. SET FILE=MDEBUG21
  149. SET TESTFILE=MDEBUG.PRT
  150. SET EXT=.EXE
  151. SET RETADR1=LABEL2
  152. REM Unterroutine aufrufen
  153. GOTO InstallArchiv
  154. :LABEL2
  155.  
  156. REM -----: Entpacken der Dokumentation (Teil 2)
  157. SET FILE=MDEBUG22
  158. SET TESTFILE=WHATS.NEW
  159. SET EXT=.EXE
  160. SET RETADR1=LABEL3
  161. GOTO InstallArchiv
  162. :LABEL3
  163.  
  164. REM -----: Entpacken der zusätzlichen Utils aus der Vollversion
  165. IF NOT EXIST %Q_LW%MDEBUG.REG GOTO LABEL4
  166. IF EXIST %Q_LW%MDEBUG3.EXE GOTO LABEL41
  167. ECHO. ***** Bitte die Diskette 2 ins Laufwerk %Q_LW% einlegen und
  168. ECHO. ***** eine Taste drücken [CTRL-C für Abbruch] ...
  169. PAUSE >NUL
  170. :LABEL41
  171. SET art=VOLL
  172. cd ..\MDEBUG
  173. SET FILE=MDEBUG3
  174. SET TESTFILE=SETREGNR.EXE
  175. SET EXT=.EXE
  176. SET RETADR1=LABEL4
  177. GOTO InstallArchiv
  178.  
  179. :LABEL4
  180. IF NOT %IGNOREERROR%. == . GOTO LABEL42
  181. ECHO. ***** Verteile die Dateien auf die Directorys ...
  182. copy *.asm  ..\source >NUL
  183. copy *.in?  ..\source >NUL
  184. del *.asm >NUL
  185. del *.in? >NUL
  186. :LABEL42
  187.  
  188. REM -----: Entpacken der Dokumentation zu MDEBUG (Teil 3)
  189. REM
  190. IF NOT EXIST %Q_LW%MDEBUG23.EXE GOTO LABEL5
  191. cd ..\doc
  192. SET FILE=MDEBUG23
  193. SET TESTFILE=HISTORY.DOC
  194. SET EXT=.EXE
  195. SET RETADR1=LABEL5
  196. GOTO InstallArchiv
  197. :LABEL5
  198.  
  199. REM Hilfsvariablen Löschen
  200. SET RETADR=
  201. SET RETADR1=
  202. SET FILE=
  203. SET EXT=
  204. SET Z_LW=
  205. SET Q_LW=
  206. SET MKDIRS=
  207. SET TESTFILE=
  208. cd ..\doc
  209. CLS
  210. ECHO.
  211. ECHO. ================ Installation von MDEBUG beendet =============================
  212. ECHO.
  213. ECHO.    MDEBUG %VERSION% ist nun installiert.
  214. ECHO.
  215. ECHO.    Bitte lesen Sie sich vor der ersten Nutzung von MDEBUG die Dokumentation
  216. ECHO.    im Directory DOC durch!
  217. ECHO.    Vergessen Sie nicht Ihren Drucker vor dem Ausdruck der Dokumentation in
  218. ECHO.    einen Modus mit mindestens 100 Zeichen pro Zeile zu schalten!
  219. ECHO.
  220. IF "%art%" == "SHARE" GOTO LABEL6
  221. ECHO. ------------------- Nur für Besitzer der Vollversion: ------------------------
  222. ECHO.
  223. ECHO.    Beachten Sie bitte, daß Sie das Archiv PD_1.EXE noch manuell über den
  224. ECHO.    Aufruf
  225. ECHO.
  226. ECHO.        PD_1 [RETURN]
  227. ECHO.
  228. ECHO.    entpacken müssen!
  229. ECHO.    Am besten richten Sie auch für dieses Archiv ein eigenes Directory ein.
  230. ECHO.
  231. :LABEL6
  232. ECHO. ==============================================================================
  233. ECHO.
  234. GOTO ENDE
  235.  
  236. REM --------------------------
  237. REM Unterroutine zum Entpacken der Archive
  238. REM Eingabe: %FILE%       = Name des Archivs
  239. REM          %EXT%        = Extension des Archivs
  240. REM          %RETADR1%    = Marke, an der die Programmausführung nach dem
  241. REM                         Ende der Routine fortgeführt werden soll
  242. REM          %TESTFILE%   = Datei, die nach dem Entpacken vorhanden sein muß
  243. REM
  244. :INSTALLARCHIV
  245. SET RETADR=INSTALLArchiv
  246. IF NOT EXIST %Q_LW%%FILE%%EXT%  GOTO PromptUser1
  247. ECHO.
  248. ECHO. ***** Entpacke das Archiv %FILE%%EXT% ...
  249. SET IgnoreError=
  250. %Q_LW%%FILE%%EXT%
  251. IF ERRORLEVEL == 1 GOTO ArchivERROR
  252. IF NOT EXIST %TESTFILE% GOTO ArchivError
  253. ECHO.
  254. ECHO. ***** %FILE%%EXT% entpackt.
  255. GOTO %RETADR1%
  256.  
  257. REM --------------------------
  258. REM
  259. REM Eingabe: %RETADR1%    = Marke, an der die Programmausführung nach dem
  260. REM                         Ende der Routine fortgeführt werden soll
  261. REM
  262. :ArchivERROR
  263. ECHO.
  264. ECHO. ***** Fehler beim Entpacken des Archivs %Q_LW%%FILE%%EXT% aufgetreten!
  265. ECHO.       (z.B. Disk %Z_LW% ist voll oder CTRL-C wurde gedrückt)
  266. ECHO.
  267. ECHO. ***** Bitte eine Taste zur Fortsetzung der Installation drücken
  268. ECHO. ***** [CTRL-C für Abbruch] ...
  269. SET IgnoreError=YES
  270. PAUSE >NUL
  271. ECHO. ***** Installation wird fortgesetzt ...
  272. GOTO %RETADR1%
  273.  
  274. REM --------------------------
  275. :EnvError
  276. CLS
  277. ECHO. ***** INSTALL Fehler: Nicht genügend Platz im Umgebungsbereich *****
  278. ECHO. ******                                        (= Environment)  *****
  279. ECHO.
  280. ECHO. Zur Ausführung dieser Datei müssen Sie den Platz im Environment erhöhen.
  281. ECHO. Falls Ihr Kommando-Interpreter der COMMAND.COM ist müssen Sie hierzu in
  282. ECHO. der Datei CONFIG.SYS die Zeile
  283. ECHO.
  284. ECHO.      SHELL=d:\COMMAND.COM /e:nnnnn /p
  285. ECHO.
  286. ECHO. einfügen oder editieren und den Computer neustarten.
  287. ECHO. Hierbei ist 'd:' das Verzeichnis, in dem der COMMAND.COM steht und 
  288. ECHO. 'nnnnn' die Größe des Environments in Byte. (siehe auch DOS-Handbuch)
  289. ECHO.
  290. ECHO. Falls Sie diese Änderung des Systems nicht wünschen, können Sie INSTALL
  291. ECHO. auch folgendermaßen aufrufen:
  292. ECHO.
  293. ECHO.      COMMAND /e:2048 /C install.bat {parameter für install}
  294. ECHO.
  295. IF %COMSPEC%. == . GOTO ENDE
  296. ECHO. Drücken Sie eine Taste zur Ausführung dieser Datei über den Befehl
  297. ECHO.
  298. ECHO.      %COMSPEC% /e:2048 /C install.bat %1 %2 %3
  299. ECHO.
  300. ECHO. oder CTRL-C für Abbruch ...
  301. PAUSE >NUL
  302. ECHO.
  303. ECHO. -----------------------------------------------------------------------
  304. ECHO.
  305. ECHO. ***** Starte INSTALL.BAT neu über eine temporäre Kopie des Kommando-
  306. ECHO. ***** Interpreters %COMSPEC% mit vergrößerten Environment ...
  307. ECHO.
  308. %COMSPEC% /e:2048 /C install.bat %1 %2 %3 %4 %5 %6
  309. GOTO Ende
  310.  
  311. REM --------------------------
  312. :SourceError
  313. ECHO.
  314. ECHO. ***** INSTALL Fehler: Als zweiter Parameter [Quellaufwerk] (%2%)
  315. ECHO. ***** ist nur A: oder B: erlaubt!
  316. ECHO.
  317. ECHO. ***** Verwenden Sie die Form
  318. ECHO.
  319. ECHO.       INSTALL ziellaufwerk quellaufwerk {-│+} X
  320. ECHO.
  321. ECHO  ***** falls Sie ein anderes Laufwerk als A: oder B: als Quellaufwerk
  322. ECHO. ***** angeben möchten.
  323. GOTO EEnde
  324.  
  325. REM --------------------------
  326. :TargetError
  327. ECHO.
  328. ECHO. ***** INSTALL Fehler: Als erster Parameter [Ziellaufwerk] (%1%)
  329. ECHO. ***** ist nur D: oder C: erlaubt!
  330. ECHO.
  331. ECHO. ***** Verwenden Sie die Form
  332. ECHO.
  333. ECHO.       INSTALL ziellaufwerk quellaufwerk {-│+} X
  334. ECHO.
  335. ECHO  ***** falls Sie ein anderes Laufwerk als C: oder D: als Ziellaufwerk
  336. ECHO. ***** angeben möchten.
  337. GOTO EEnde
  338.  
  339. REM --------------------------
  340. :SwitchError
  341. ECHO.
  342. ECHO. ***** INSTALL Fehler: Als dritter Parameter (%3) ist nur + [Directorys
  343. ECHO. ***** erstellen] oder - [Directorys existieren bereits] erlaubt!
  344. GOTO EEnde
  345.  
  346. REM --------------------------
  347. :Switch1Error
  348. ECHO.
  349. ECHO. ***** INSTALL Fehler: Zuviele Parameter angegeben!
  350. GOTO EEnde
  351.  
  352. REM --------------------------
  353. :DirectoryError
  354. ECHO.
  355. ECHO. ***** INSTALL Fehler: Mindestens ein Ziel-Directory existiert nicht!
  356. ECHO.
  357. ECHO. ***** Verwenden Sie die Form
  358. ECHO.
  359. ECHO.       INSTALL ziellaufwerk quellaufwerk
  360. ECHO.
  361. ECHO. ***** und ignorieren Sie die DOS-Fehlermeldung 'Zugriff abgelehnt' bzw.
  362. ECHO. ***** 'Access denied' 
  363. GOTO EEnde
  364.  
  365. REM --------------------------
  366. REM Unterroutine zur Ausgabe einer Fehlermeldung und zum Lesen einer Taste
  367. REM Eingabe:  %FILE%      = Name des Archivs
  368. REM           %EXT%       = Extension des Archivs
  369. REM           %RETADR%    = Marke, an der die Programmausführung fort-
  370. REM                         geführt werden soll.
  371. REM
  372. :PromptUser1
  373. ECHO.
  374. ECHO. ***** INSTALL - Fehler bei der Installierung von MDEBUG %VERSION% *****
  375. ECHO.
  376. ECHO. ***** Fehler: Kann die Datei %FILE%%EXT% im Laufwerk %Q_LW% nicht finden.
  377. ECHO.
  378. ECHO. ***** Bitte die richtige Diskette ins Laufwerk %Q_LW% einlegen
  379. ECHO. ***** und eine Taste drücken [CTRL-C für Abbruch] ...
  380. PAUSE >NUL
  381. ECHO.
  382. ECHO. ***** Neuer Versuch die Datei %FILE%%EXT% zu finden ...
  383. GOTO %RETADR%
  384.  
  385. REM --------------------------
  386. REM Programmteil zur Ausgabe der Aufruf-Syntax
  387. :HELP
  388. CLS
  389. ECHO. ┌─────────────────────────────────────────────────────────────────────┐
  390. ECHO. │ INSTALL.BAT - Batchdatei zum Entpacken der Archive von MDEBUG %VERSION% │
  391. ECHO. └─────────────────────────────────────────────────────────────────────┘
  392. ECHO.
  393. ECHO. Aufruf:  INSTALL {ziellaufwerk} {quellaufwerk} {+ ODER -} {X}
  394. ECHO.
  395. ECHO.          mit: Ziellaufwerk  = Laufwerk, auf dem die Dateien entpackt
  396. ECHO.                               werden sollen (Voreinstellung: %Z_LW%,
  397. ECHO.                               mögliche Angaben: C: oder D:)
  398. ECHO.                Quellaufwerk = Laufwerk, in dem die Archive von MDEBUG
  399. ECHO.                               sind (Voreinstellung: %Q_LW%,
  400. ECHO.                               mögliche Angaben: A: oder B:)
  401. ECHO.               -             = Directorys nicht erstellen, da sie schon
  402. ECHO.                               vorhanden sind.
  403. ECHO.        ODER   +             = Directorys erstellen, da sie noch nicht
  404. ECHO.                               vorhanden sind. (Voreinstellung: %MKDIRS%)
  405. ECHO.                               (INSTALL verteilt die Dateien auf mehrere
  406. ECHO.                                Subdirectorys im Ziellaufwerk)
  407. ECHO.               X             = Ziel- und Quellaufwerk nicht überprüfen,
  408. ECHO.                               d.h. es sind beliebige Angaben für das
  409. ECHO.                               Ziel- und das Quellaufwerk möglich.
  410. ECHO.
  411. ECHO. ***** Bitte eine Taste zur Ausgabe der Beispiele drücken [CTRL-C für Abbruch]
  412. PAUSE >NUL
  413. CLS
  414. ECHO. ┌─────────────────────────────────────────────────────────────────────┐
  415. ECHO. │ INSTALL.BAT - Batchdatei zum Entpacken der Archive von MDEBUG %VERSION% │
  416. ECHO. └─────────────────────────────────────────────────────────────────────┘
  417. ECHO.
  418. ECHO.                -- Fortsetzung der Syntaxhilfe --
  419. ECHO.
  420. ECHO. Beispiel:  INSTALL D: B: +
  421. ECHO.              - Installieren von MDEBUG im akt. Directory des Laufwerks
  422. ECHO.                D:, wobei die Diskette mit den Archiven im Laufwerk B:
  423. ECHO.                liegt. Die Directorys werden explizit erstellt.
  424. ECHO.                Sie müssen vorher mit dem CD-Befehl im Ziellaufwerk in
  425. ECHO.                das Directory in das MDEBUG installiert werden soll
  426. ECHO.                wechseln.
  427. ECHO.
  428. ECHO. Beispiel:  INSTALL B: A: + X
  429. ECHO.              - Installieren von MDEBUG im akt. Directory des Laufwerks
  430. ECHO.                B:, wobei die Diskette mit den Archiven im Laufwerk A:
  431. ECHO.                liegt. Die Directorys werden explizit erstellt.
  432. ECHO.                Auf dem Laufwerk B: muß noch genügend freier Platz sein!
  433. ECHO.
  434. ECHO.                    -- Ende der Syntaxhilfe --
  435. GOTO ENDE
  436.  
  437. REM --------------------------
  438. REM Programm-Ende
  439. :EENDE
  440. ECHO.
  441. ECHO. Verwenden Sie den Befehl
  442. ECHO.
  443. ECHO.       INSTALL ? [RETURN] 
  444. ECHO.
  445. ECHO. zur Ausgabe einer Syntaxhilfe für INSTALL.BAT .
  446. ECHO.
  447. ECHO. Beende die Ausführung von INSTALL.
  448. ECHO.
  449. :ENDE
  450. REM --------------------------
  451. REM Löschen der verwendeten Environment-Variablen
  452. SET RETADR=
  453. SET RETADR1=
  454. SET FILE=
  455. SET EXT=
  456. SET Z_LW=
  457. SET Q_LW=
  458. SET MKDIRS=
  459. SET TESTFILE=
  460. SET IgnoreError=
  461. SET VERSION=
  462. SET ART=
  463.  
  464.