-
Notifications
You must be signed in to change notification settings - Fork 0
/
install
executable file
·293 lines (238 loc) · 6.75 KB
/
install
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
;
; PPT Installer script
;
; $Revision: 1.9 $
; $Date: 1999/02/21 21:08:53 $
;
(welcome "This is the PPT Installation utility."
"Thank you for choosing to test PPT.")
;
; Set defaults
;
(set ##installdir "Work:")
; Processor
(set ##use020 (not (patmatch "68000|68010" (database "cpu"))))
; FPU
(set ##use881 (not (patmatch "688|68040|68060" (database "cpu"))))
; If user-level is expert, ask which versions to install.
(if (= @user-level 2)
(set ##use020
(askbool
(prompt "\n"
"Do you wish to use the 68020+ optimized\n"
"versions of the BGUI library and PPT?")
(help (cat "It might be a good idea to install the version "
"that best suits your Amiga's processor." ))
(default ##use020)
)
)
)
(debug "Use020 : " ##use020)
(debug "Use881 : " ##use881)
;
; Ask the directory to be installed in
;
(set ##installdir
(askdir
(prompt "Choose the directory you wish to install\n"
"PPT in. A directory called 'PPT' will be\n"
"created for you in this directory"
)
(help (cat "Choose the top directory for PPT. Installer will "
"then create a directory called 'PPT' in the directory "
"you chose and copy all of the PPT software in that "
"directory.\n\n"
@askdir-help) )
(default ##installdir)
)
)
(debug "You chose" ##installdir)
;
; Tack on the dir name
;
(set @default-dest (tackon ##installdir "PPT"))
(debug "You chose" @default-dest)
;
; Remove old modules
;
(complete 20)
(if (exists @default-dest)
(delete
(tackon @default-dest "modules/#?")
(prompt "Deleting previous installation")
(help "Since PPT modules can change between releases, "
"for now the previous installation must be deleted "
"before the new one is installed.")
(confirm)
(all)
)
(debug "No previous installation")
)
;
; Copy main executables
;
(complete 30)
(copyfiles
(prompt "Installing PPT executable")
(source (if (= ##use020 1) "ppt020" "ppt" ) )
(dest @default-dest)
(newname "ppt")
(help @copyfiles-help)
)
;; Copy docs
(complete 40)
(copyfiles
(prompt "Installing documents")
(source "Docs")
(dest (tackon @default-dest "Docs") )
(help (cat "Choose which document files you want to install. "
"I really recommend you install them all.\n\n"
@copyfiles-help) )
(all)
(infos)
(confirm)
)
;; Copying image files
(complete 45)
(copyfiles
(prompt "Installing image files")
(source "Images")
(dest (tackon @default-dest "Images") )
(help (cat "Choose which images you wish to install. "
"You don't have to install them, if you don't want to.\n\n"
@copyfiles-help) )
(all)
(infos)
(confirm)
)
(complete 50)
(copyfiles
(prompt "Installing miscallaneous stuff")
(source "")
(choices "README" "HISTORY" "ReleaseNotes" "ppt.asc" "ModuleInfo" "GUI" "Contrib")
(dest @default-dest)
(help (cat "Choose which additional files you wish to install. "
"Again, I recommend you to install these all, as these "
"contain the release notes, the ModuleInfo utility, "
"the icons, and contributed stuff.\n\n"
@copyfiles-help) )
(infos)
(confirm)
)
(complete 60)
(copyfiles
(prompt "Installing REXX scripts")
(source "rexx")
(dest (tackon @default-dest "rexx") )
(help (cat "Here you can choose not to install all of the REXX scripts. "
"I really recommend that you install them all.\n\n"
@copyfiles-help) )
(all)
(infos)
(confirm)
)
;; PPT libraries
(complete 70)
(copyfiles
(prompt "Installing PPT external modules")
(source "modules")
(dest (tackon @default-dest "modules") )
(help (cat "Choose which external modules you'd like to install. "
"If you wish to save space, you can remove those modules "
"you think you're not going to need, such as the modules "
"which have not been compiled for your processor. However, "
"PPT can figure out which processor your machine has and "
"determine, which module is the best for you. So you don't "
"really need to remove any of these modules.\n\n"
@copyfiles-help) )
(confirm)
(all)
)
;(copyfiles
; (prompt "Copying PPT executables & modules")
; (source "")
; (dest @default-dest)
; (pattern "~(libs)")
; (help @copyfiles-help)
;)
(copyfiles
(prompt "Installing icons")
(source "")
(pattern "(PPT|README|Docs|ReleaseNotes|rexx|Images).info")
(dest @default-dest)
(help @copyfiles-help)
(infos)
)
(copyfiles
(prompt "Installing drawer icon")
(source "/PPT.info")
(dest (tackon @default-dest "/"))
(help @copyfiles-help)
(infos)
)
;
; Install libraries
;
(complete 80)
(copylib
(prompt "Copying BGUI library")
(confirm)
(source (if (= ##cpu020 1) ("libs/bgui.library_e") ("libs/bgui.library")))
(dest "libs:")
(newname "bgui.library")
(help @copylib-help)
)
(copylib
(prompt "Copying BGUI floating point gadget")
(confirm)
(source "libs/bgui_float.gadget")
(dest "SYS:Classes/Gadgets")
(help @copylib-help)
)
(copylib
(prompt "Copying BGUI bitmap gadget")
(confirm)
(source "libs/bgui_bitmap.image")
(dest "SYS:Classes/Gadgets")
(help @copylib-help)
)
(copylib
(prompt "Copying BGUI palette gadget")
(confirm)
(source "libs/bgui_palette.gadget")
(dest "SYS:Classes/Gadgets")
(help @copylib-help)
)
;
; Make assigns
;
(complete 90)
(set ##jpegdir
(askdir
(prompt "You must now choose a place for any "
"temporary JPEG files to be put in. "
"(See Help for more info)"
)
(help "The JPEG loader needs a JPEGTMP: assign "
"in order to handle really large progressive "
"or multi-scan files. If you already happen "
"to have this assign, just say 'Skip This Phase'. "
"If not, then you should pick up a hard drive "
"directory with plenty of space."
)
(default ##installdir)
)
)
(makeassign "JPEGTMP" ##jpegdir)
(set ##jpegassign ("Assign >NIL: JPEGTMP: %s" ##jpegdir))
(startup "PPT JPEG loader"
(prompt ( "\nI shall now add the following line\nto your S:User-Startup:\n\n%s"
##jpegassign)
)
(command ##jpegassign )
(help @startup-help)
)
;
; The END.
;
(complete 100)