home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d845 / textplus.lha / TextPlus / Install_D < prev    next >
Encoding:
Text File  |  1993-03-31  |  7.8 KB  |  355 lines
  1. ;       $VER: Installation TPP V4.10 (17.01.93)
  2.  
  3. .BRA {
  4. .KET }
  5.  
  6. ; Vorgabewurzelverzeichnis
  7.  
  8. Set Vorgabe "work:tpp"
  9.  
  10. ; Ein paar interne Flags
  11. Set ARexxIstInstalliert Ja
  12. Set PaxTeXIstInstalliert Ja
  13. Set MakeIndexIstInstalliert Ja
  14. Set Update Nein
  15. Set LHAbin "c/LHA -q -m -a x"
  16. Set LangArc TPPDeutsch.lha
  17. Set GlobArc TPPGlobal.lha
  18.  
  19. Lab Anfang
  20.  
  21. ; In welchem Verzeichnis soll `TeXt Plus Professional' landen?
  22.  
  23. Echo "TeXt Plus Professional V4.10*n"
  24.  
  25. Echo "Falls dies ein Update von 4.00 auf 4.10 ist,"
  26. Echo "werden die *.Config und *.parse Dateien nicht"
  27. Echo "überschrieben.*n"
  28.  
  29. Echo "Bitte wählen Sie das Verzeichnis  aus, in das"
  30. Echo "TeXt Plus Professional installiert werden soll."
  31. Echo "Schublade (<Return> = $Vorgabe) ? " NoLine
  32.  
  33. ; Vorherigen Wert löschen
  34.  
  35. UnSet Schublade
  36.  
  37. ; Zielschublade einlesen
  38.  
  39. Set >NIL: Schublade ?
  40.  
  41. ; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet
  42.  
  43. If "$Schublade" EQ "*$Schublade"
  44.         Set Schublade $Vorgabe
  45. EndIf
  46.  
  47. ; Den ursprünglichen Pfad bitte merken
  48.  
  49. Set Startpfad $Schublade
  50.  
  51. ; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
  52. ; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.
  53.  
  54. FailAt 21
  55.  
  56. Assign >NIL: ${Schublade} Exists
  57.  
  58. If FAIL
  59.     FailAt 10
  60.  
  61.     ; Existiert die Schublade bereits?
  62.  
  63.     If NOT EXISTS $Schublade
  64.         FailAt 21
  65.  
  66.         ; Versuchen wir, die Schublade anzulegen.
  67.  
  68.         MakeDir "$Schublade"
  69.  
  70.         ; Das war nichts ...
  71.  
  72.         If FAIL
  73.             Echo "*NDie Schublade $Schublade konnte nicht angelegt werden!"
  74.  
  75.             FailAt 10
  76.  
  77.             ; Nochmal das ganze, bitte.
  78.  
  79.             Skip Back Anfang
  80.         EndIf
  81.     Else
  82.         ; ein Update
  83.         Set Update Ja
  84.     EndIf
  85.  
  86.     ; Wir hängen dem Schubladennamen noch einen Schrägstrich an.
  87.  
  88.     Set Temp "$Schublade/"
  89.  
  90.     Set Schublade $Temp
  91.  
  92.     UnSet Temp
  93. Else
  94.     ; ein Update
  95.     Set Update Ja
  96. EndIf
  97.  
  98. ; Zuerst werden die deutschen Programme installiert
  99.  
  100. ; Das Hauptprogramm wird entpackt.
  101.  
  102. $LHAbin $LangArc bin/TeXtPlusProfessional(.info|%) "${Schublade}"
  103.  
  104. ; Die Dokumentation wird entpackt.
  105.  
  106. $LHAbin $LangArc doc/#? "${Schublade}"
  107.  
  108. Set DocVorgabe "S:"
  109.  
  110. Lab DocAnfang
  111.  
  112. ; In welchem Verzeichnis soll `TPP.guide' landen?
  113.  
  114. Echo "*NBitte wählen Sie das Verzeichnis  aus, in das"
  115. Echo "die HyperText-Dokumentation installiert werden soll."
  116. Echo "Schublade (<Return> = $DocVorgabe) ? " NoLine
  117.  
  118. ; Vorherigen Wert löschen
  119.  
  120. UnSet DocSchublade
  121.  
  122. ; Zielschublade einlesen
  123.  
  124. Set >NIL: DocSchublade ?
  125.  
  126. ; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet
  127.  
  128. If "$DocSchublade" EQ "*$DocSchublade"
  129.         Set DocSchublade $DocVorgabe
  130. EndIf
  131.  
  132. ; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
  133. ; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.
  134.  
  135. FailAt 21
  136.  
  137. Assign >NIL: ${DocSchublade} Exists
  138.  
  139. If FAIL
  140.     FailAt 10
  141.  
  142.     ; Existiert die Schublade bereits?
  143.  
  144.     If NOT EXISTS $DocSchublade
  145.         FailAt 21
  146.  
  147.         ; Versuchen wir, die Schublade anzulegen.
  148.  
  149.         MakeDir "$DocSchublade"
  150.  
  151.         ; Das war nichts ...
  152.  
  153.         If FAIL
  154.             Echo "*NDie Schublade $DocSchublade konnte nicht angelegt werden!"
  155.  
  156.             FailAt 10
  157.  
  158.             ; Nochmal das ganze, bitte.
  159.  
  160.             Skip Back DocAnfang
  161.         EndIf
  162.     EndIf
  163. EndIf
  164.  
  165. ; Die HyperText-Dokumentation wird kopiert
  166. Copy ${Schublade}doc/TPP.guide(.info|%) $DocSchublade Clone Quiet
  167. ; und gelöscht
  168. Delete >NIL: ${Schublade}doc/TPP.guide(.info|%)
  169.  
  170. ; Der Handler wird entpackt
  171. $LHAbin $LangArc TeXtPlus-Handler L:
  172.  
  173. ; Die Configurationsdateien werden installiert
  174. ; Alte Configrationsdateien werden gerettet
  175. If $Update EQ Ja
  176.     If Exists ${Schublade}config
  177.         Rename >NIL: ${Schublade}config ${Schublade}config.old
  178.     Endif
  179. Endif
  180.  
  181. ; Installieren
  182. $LHAbin $LangArc config/#? ${Schublade}
  183.  
  184. ; ------------------------------------------------------------
  185.  
  186. ; Installation der globalen Dateien
  187.  
  188. ; Parsedateien installieren
  189. ; Alte Parsedateien retten
  190. If $Update EQ Ja
  191.     If Exists ${Schublade}parse
  192.         Rename >NIL: ${Schublade}parse ${Schublade}parse.old
  193.     Endif
  194. Endif
  195.  
  196. ; alles entpacken
  197. $LHAbin $GlobArc #? ${Schublade}
  198.  
  199. ; Das LiesMich-File wird kopiert
  200. Copy LiesMich(.info|%) ${Schublade}doc Quiet Clone
  201.  
  202. ; Das History-File wird kopiert
  203. Copy History(.info|%) ${Schublade}doc Quiet Clone
  204.  
  205. ; Die powerpacker.library (35.344) und die
  206. ; reqtools.library (38.961) von Nico François
  207. ; werden kopiert
  208.  
  209. FailAt 21
  210.  
  211. ; Wenn eine neuere Version bereits installiert ist, wird die
  212. ; reqtools.library nicht überschrieben
  213.  
  214. Version >NIL: reqtools.library 38 961
  215. If Warn
  216.     Copy ${Schublade}libs/reqtools.library libs: Quiet Clone
  217. endif
  218.  
  219. ; Wenn eine neuere version bereits installiert ist, wird die
  220. ; powerpacker.library nicht überschrieben
  221.  
  222. Version >NIL: powerpacker.library 35 344
  223. If Warn
  224.     Copy ${Schublade}libs/powerpacker.library libs: Quiet Clone
  225. endif
  226.  
  227. ; und aufräumen
  228. Delete >NIL: ${Schublade}libs All
  229.  
  230. ; Hat unser User eine REXX:-Schublade?
  231.  
  232. If NOT EXISTS REXX:
  233.  
  234.     ; unser User ist leider eine Pappnase
  235.  
  236.     Echo "*NEs existiert kein REXX:-Verzeichnis!"
  237.     Echo "Die ARexx-Makros von TPP werden nicht installiert."
  238.     Echo "Um die Makros dennoch zu installieren, müssen Sie"
  239.     Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
  240.     Echo "NACHDEM Sie ARexx installiert haben!"
  241.     Echo "Ohne ARexx ist ein sinnvolles Arbeiten mit TPP nicht"
  242.     Echo "möglich!"
  243.  
  244.     Set ARexxIstInstalliert Nein
  245.  
  246. EndIf
  247.  
  248. ; Pappnasen brauchen keine Makros
  249.  
  250. If NOT $ARexxIstInstalliert EQ Nein
  251.  
  252.     ; Die ARexx-Makros werden kopiert
  253.     Copy ${Schublade}rexx/tpl rexx:tpl All Quiet Clone
  254.     Copy ${Schublade}rexx/#?.tpl rexx: All Quiet Clone
  255.     Copy ${Schublade}rexx/#?.sd rexx: All Quiet Clone
  256.  
  257.     ; und aufräumen
  258.     Delete >NIL: ${Schublade}rexx All
  259.  
  260. EndIf
  261.  
  262.  
  263. ; Ist PaxTeX installiert?
  264.  
  265. IF NOT EXISTS TeX:macros
  266.  
  267.     ; Die Pappnase hat wieder zugeschlagen ...
  268.  
  269.     Echo "*NEs existiert kein Verzeichnis 'TeX:macros'!"
  270.     Echo "Die TeX-Makros von TPP werden nicht installiert."
  271.     Echo "Um die Makros dennoch zu installieren, müssen Sie"
  272.     Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
  273.     Echo "NACHDEM Sie PasTeX installiert haben!"
  274.     Echo "Ohne die TeX-Makros können keine Dokumente kompiliert"
  275.     Echo "oder ausgedruckt werden!"
  276.  
  277.     Set PasTeXIstInstalliert Nein
  278.  
  279. EndIf
  280.  
  281. ; Ohne TeX haben wir leider verloren
  282.  
  283. If NOT $PasTeXIstInstalliert EQ Nein
  284.  
  285.     ; Die TeX-Makros werden kopiert
  286.     Copy ${Schublade}tex/macros TeX:macros All Quiet Clone
  287.  
  288.     ; und aufraümen
  289.     Delete >NIL: ${Schublade}tex/macros All
  290.  
  291. EndIf
  292.  
  293. ; Kann MakeIndex installiert werden?
  294.  
  295. IF NOT EXISTS TeX:bin
  296.  
  297.     ; Die Pappnase sollte besser Gameboy spielen gehen.
  298.  
  299.     Echo "*NEs existiert kein Verzeichnis 'TeX:bin'!"
  300.     Echo "MakeIndex wird nicht installiert."
  301.     Echo "Um MakeIndex dennoch zu installieren, müssen Sie"
  302.     Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
  303.     Echo "NACHDEM Sie PasTeX installiert haben!"
  304.     Echo "Ohne MakeIndex kann kein Index erstellt"
  305.     Echo "werden!"
  306.  
  307.     Set MakeIndexIstInstalliert Nein
  308.  
  309. EndIf
  310.  
  311. ; Schon wieder verloren?
  312.  
  313. If NOT $MakeIndexIstInstalliert EQ Nein
  314.  
  315.     ; MakeIndex wird kopiert
  316.     Copy ${Schublade}tex/bin/MakeIndex TeX:bin Quiet Clone
  317.  
  318.     ; und aufraümen
  319.     Delete >NIL: ${Schublade}tex/bin All
  320.  
  321. EndIf
  322.  
  323. ; Schluß
  324.  
  325. Echo "*NDie Installation von TeXt Plus Professional ist"
  326. Echo "abgeschlossen. Sie müssen nur noch folgende Zeile"
  327. Echo "in Ihre S:Startup-Sequence oder S:User-Startup"
  328. Echo "einfügen:"
  329.  
  330. Echo "*NAssign TPP: $Startpfad"
  331.  
  332. ; zum Schluß nerven wir noch ein bißchen
  333. IF $ARexxIstInstalliert EQ Nein
  334.  
  335. Echo "*NVergessen Sie nicht, die ARexx-Makros zu installieren!"
  336.  
  337. EndIf
  338.  
  339. IF $PasTeXIstInstalliert EQ Nein
  340.  
  341. Echo "*NVergessen Sie nicht, die PasTeX-Makros zu installieren!"
  342.  
  343. EndIf
  344.  
  345. IF $MakeIndexIstInstalliert EQ Nein
  346.  
  347. Echo "*NVergessen Sie nicht, MakeIndex zu installieren!"
  348.  
  349. EndIf
  350.  
  351. ; Wir führen das benötigte Assign schon mal aus
  352. Assign >NIL: TPP: "$Startpfad"
  353.  
  354. Echo "*NViel Spaß mit TeXt Plus Professional!"
  355.