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!"
|