summaryrefslogtreecommitdiff
path: root/systems/amiga/tpp/TPP410N/Install_D
blob: f13a9d4c1212aa9f67a36d97cbbae5c91d3dfad7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
;       $VER: Installation TPP V4.10 (17.01.93)

.BRA {
.KET }

; Vorgabewurzelverzeichnis

Set Vorgabe "work:tpp"

; Ein paar interne Flags
Set ARexxIstInstalliert Ja
Set PaxTeXIstInstalliert Ja
Set MakeIndexIstInstalliert Ja
Set Update Nein
Set LHAbin "c/LHA -q -m -a x"
Set LangArc TPPDeutsch.lha
Set GlobArc TPPGlobal.lha

Lab Anfang

; In welchem Verzeichnis soll `TeXt Plus Professional' landen?

Echo "TeXt Plus Professional V4.10*n"

Echo "Falls dies ein Update von 4.00 auf 4.10 ist,"
Echo "werden die *.Config und *.parse Dateien nicht"
Echo "überschrieben.*n"

Echo "Bitte wählen Sie das Verzeichnis  aus, in das"
Echo "TeXt Plus Professional installiert werden soll."
Echo "Schublade (<Return> = $Vorgabe) ? " NoLine

; Vorherigen Wert löschen

UnSet Schublade

; Zielschublade einlesen

Set >NIL: Schublade ?

; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet

If "$Schublade" EQ "*$Schublade"
        Set Schublade $Vorgabe
EndIf

; Den ursprünglichen Pfad bitte merken

Set Startpfad $Schublade

; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.

FailAt 21

Assign >NIL: ${Schublade} Exists

If FAIL
    FailAt 10

    ; Existiert die Schublade bereits?

    If NOT EXISTS $Schublade
        FailAt 21

        ; Versuchen wir, die Schublade anzulegen.

        MakeDir "$Schublade"

        ; Das war nichts ...

        If FAIL
            Echo "*NDie Schublade $Schublade konnte nicht angelegt werden!"

            FailAt 10

            ; Nochmal das ganze, bitte.

            Skip Back Anfang
        EndIf
    Else
        ; ein Update
        Set Update Ja
    EndIf

    ; Wir hängen dem Schubladennamen noch einen Schrägstrich an.

    Set Temp "$Schublade/"

    Set Schublade $Temp

    UnSet Temp
Else
    ; ein Update
    Set Update Ja
EndIf

; Zuerst werden die deutschen Programme installiert

; Das Hauptprogramm wird entpackt.

$LHAbin $LangArc bin/TeXtPlusProfessional(.info|%) "${Schublade}"

; Die Dokumentation wird entpackt.

$LHAbin $LangArc doc/#? "${Schublade}"

Set DocVorgabe "S:"

Lab DocAnfang

; In welchem Verzeichnis soll `TPP.guide' landen?

Echo "*NBitte wählen Sie das Verzeichnis  aus, in das"
Echo "die HyperText-Dokumentation installiert werden soll."
Echo "Schublade (<Return> = $DocVorgabe) ? " NoLine

; Vorherigen Wert löschen

UnSet DocSchublade

; Zielschublade einlesen

Set >NIL: DocSchublade ?

; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet

If "$DocSchublade" EQ "*$DocSchublade"
        Set DocSchublade $DocVorgabe
EndIf

; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.

FailAt 21

Assign >NIL: ${DocSchublade} Exists

If FAIL
    FailAt 10

    ; Existiert die Schublade bereits?

    If NOT EXISTS $DocSchublade
        FailAt 21

        ; Versuchen wir, die Schublade anzulegen.

        MakeDir "$DocSchublade"

        ; Das war nichts ...

        If FAIL
            Echo "*NDie Schublade $DocSchublade konnte nicht angelegt werden!"

            FailAt 10

            ; Nochmal das ganze, bitte.

            Skip Back DocAnfang
        EndIf
    EndIf
EndIf

; Die HyperText-Dokumentation wird kopiert
Copy ${Schublade}doc/TPP.guide(.info|%) $DocSchublade Clone Quiet
; und gelöscht
Delete >NIL: ${Schublade}doc/TPP.guide(.info|%)

; Der Handler wird entpackt
$LHAbin $LangArc l/TeXtPlus-Handler L:

; Die Configurationsdateien werden installiert
; Alte Configrationsdateien werden gerettet
If $Update EQ Ja
    If Exists ${Schublade}config
        Rename >NIL: ${Schublade}config ${Schublade}config.old
    Endif
Endif

; Installieren
$LHAbin $LangArc config/#? ${Schublade}

; ------------------------------------------------------------

; Installation der globalen Dateien

; Parsedateien installieren
; Alte Parsedateien retten
If $Update EQ Ja
    If Exists ${Schublade}parse
        Rename >NIL: ${Schublade}parse ${Schublade}parse.old
    Endif
Endif

; alles entpacken
$LHAbin $GlobArc #? ${Schublade}

; Das LiesMich-File wird kopiert
Copy LiesMich(.info|%) ${Schublade}doc Quiet Clone

; Das History-File wird kopiert
Copy History(.info|%) ${Schublade}doc Quiet Clone

; Die powerpacker.library (35.344) und die
; reqtools.library (38.961) von Nico François
; werden kopiert

FailAt 21

; Wenn eine neuere Version bereits installiert ist, wird die
; reqtools.library nicht überschrieben

Version >NIL: reqtools.library 38 961
If Warn
    Copy ${Schublade}libs/reqtools.library libs: Quiet Clone
endif

; Wenn eine neuere version bereits installiert ist, wird die
; powerpacker.library nicht überschrieben

Version >NIL: powerpacker.library 35 344
If Warn
    Copy ${Schublade}libs/powerpacker.library libs: Quiet Clone
endif

; und aufräumen
Delete >NIL: ${Schublade}libs All

; Hat unser User eine REXX:-Schublade?

If NOT EXISTS REXX:

    ; unser User ist leider eine Pappnase

    Echo "*NEs existiert kein REXX:-Verzeichnis!"
    Echo "Die ARexx-Makros von TPP werden nicht installiert."
    Echo "Um die Makros dennoch zu installieren, müssen Sie"
    Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
    Echo "NACHDEM Sie ARexx installiert haben!"
    Echo "Ohne ARexx ist ein sinnvolles Arbeiten mit TPP nicht"
    Echo "möglich!"

    Set ARexxIstInstalliert Nein

EndIf

; Pappnasen brauchen keine Makros

If NOT $ARexxIstInstalliert EQ Nein

    ; Die ARexx-Makros werden kopiert
    Copy ${Schublade}rexx/tpl rexx:tpl All Quiet Clone
    Copy ${Schublade}rexx/#?.tpl rexx: All Quiet Clone
    Copy ${Schublade}rexx/#?.sd rexx: All Quiet Clone

    ; und aufräumen
    Delete >NIL: ${Schublade}rexx All

EndIf


; Ist PaxTeX installiert?

IF NOT EXISTS TeX:macros

    ; Die Pappnase hat wieder zugeschlagen ...

    Echo "*NEs existiert kein Verzeichnis 'TeX:macros'!"
    Echo "Die TeX-Makros von TPP werden nicht installiert."
    Echo "Um die Makros dennoch zu installieren, müssen Sie"
    Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
    Echo "NACHDEM Sie PasTeX installiert haben!"
    Echo "Ohne die TeX-Makros können keine Dokumente kompiliert"
    Echo "oder ausgedruckt werden!"

    Set PasTeXIstInstalliert Nein

EndIf

; Ohne TeX haben wir leider verloren

If NOT $PasTeXIstInstalliert EQ Nein

    ; Die TeX-Makros werden kopiert
    Copy ${Schublade}tex/macros TeX:macros All Quiet Clone

    ; und aufraümen
    Delete >NIL: ${Schublade}tex/macros All

EndIf

; Kann MakeIndex installiert werden?

IF NOT EXISTS TeX:bin

    ; Die Pappnase sollte besser Gameboy spielen gehen.

    Echo "*NEs existiert kein Verzeichnis 'TeX:bin'!"
    Echo "MakeIndex wird nicht installiert."
    Echo "Um MakeIndex dennoch zu installieren, müssen Sie"
    Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
    Echo "NACHDEM Sie PasTeX installiert haben!"
    Echo "Ohne MakeIndex kann kein Index erstellt"
    Echo "werden!"

    Set MakeIndexIstInstalliert Nein

EndIf

; Schon wieder verloren?

If NOT $MakeIndexIstInstalliert EQ Nein

    ; MakeIndex wird kopiert
    Copy ${Schublade}tex/bin/MakeIndex TeX:bin Quiet Clone

    ; und aufraümen
    Delete >NIL: ${Schublade}tex/bin All

EndIf

; Schluß

Echo "*NDie Installation von TeXt Plus Professional ist"
Echo "abgeschlossen. Sie müssen nur noch folgende Zeile"
Echo "in Ihre S:Startup-Sequence oder S:User-Startup"
Echo "einfügen:"

Echo "*NAssign TPP: $Startpfad"

; zum Schluß nerven wir noch ein bißchen
IF $ARexxIstInstalliert EQ Nein

Echo "*NVergessen Sie nicht, die ARexx-Makros zu installieren!"

EndIf

IF $PasTeXIstInstalliert EQ Nein

Echo "*NVergessen Sie nicht, die PasTeX-Makros zu installieren!"

EndIf

IF $MakeIndexIstInstalliert EQ Nein

Echo "*NVergessen Sie nicht, MakeIndex zu installieren!"

EndIf

; Wir führen das benötigte Assign schon mal aus
Assign >NIL: TPP: "$Startpfad"

Echo "*NViel Spaß mit TeXt Plus Professional!"