source: trunk/test/INSTall.CMD@ 9

Last change on this file since 9 was 2, checked in by stevenhl, 8 years ago

Import sources from cwmm-full.zip dated 2005-03-21
File size: 7.2 KB
Line 
1/**************************************************************************/
2/* instmmvw.cmd */
3/* */
4/* This REXX command file will install the MMParts Heirarchy. Use -R as an */
5/* argument to instmmvw to remove the MMView Heirarchy. */
6/* */
7/* Example: */
8/* instmmvw (installs) */
9/* instmmvw -r (removes) */
10/**************************************************************************/
11
12/**** !!! Adapt this !!! ****/
13bootDrv='d:'
14
15theDLL=DIRECTORY()||"\cwmm-0_2_4-eng\cwmm.dll"
16SAY theDLL
17
18mfldrDLL=DIRECTORY()||"\CWMFldr-0_2_4-eng\bin\mediafld.dll"
19SAY mfldrDLL
20
21progDLL=DIRECTORY()||"\CWMFldr-0_2_4-eng\DLL\progfldr.dll"
22SAY progDLL
23
24targetDLL=bootdrv||"\os2\dll\progfldr.dll"
25SAY targetDLL
26
27EXIT
28
29arg deinstalling
30
31/* Load all the Rexx Util functions */
32call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
33call SysLoadFuncs
34call RxFuncAdd 'RxWinReplaceObjectClass', 'mmparts', 'RxWinReplaceObjectClass'
35
36if deinstalling = "-R" then
37 say "Removing MM classes"
38else DO
39 say "Installing MM classes"
40
41 /* uninstall IBM classes */
42 call uninstallIBM
43END
44
45
46
47MMClasses. = ''
48MMClasses.1 = 'MMDataFile'
49MMClasses.2 = 'MMImage'
50MMClasses.3 = 'MMAudio'
51MMClasses.4 = 'MMVideo'
52MMClasses.5 = 'MMMIDI'
53MMClasses.6 = 'MMTarga'
54MMClasses.7 = 'MMTIFF'
55MMClasses.8 = 'MMGIF'
56MMClasses.9 = 'MMPCX'
57MMClasses.10 = 'MMPhotoCD'
58MMClasses.11 = 'MMAVC'
59MMClasses.12 = 'MMMMotion'
60MMClasses.13 = 'MMDIB'
61MMClasses.14 = 'MMCDTrack'
62MMClasses.15 = 'MMAudioStream'
63MMClasses.16 = 'MMVOC'
64MMClasses.17 = 'MM_AU'
65MMClasses.18 = 'MMAU'
66MMClasses.19 = 'MMAIF'
67MMClasses.20 = 'MMIFF'
68MMClasses.21 = 'MMSNDF'
69MMClasses.22 = 'MMAVI'
70MMClasses.23 = 'MMFLI'
71MMClasses.24 = 'MMMPG'
72MMClasses.25 = 'MMJPG'
73MMClasses.26 = 'MMWAV'
74MMClasses.27 = 'MMMOV'
75MMClasses.28 = 'MMFolder'
76MMClasses.29 = 'MMM3U'
77MMClasses.0=29
78x = 1;
79
80do while MMClasses.x <> '' /* loop until no more classes */
81 if deinstalling = '-R' then
82 if SysDeregisterObjectClass(MMClasses.x) then
83 say MMClasses.x 'class deregistration successful'
84 else
85 say MMClasses.x 'class deregistration failed'
86 else
87 if SysRegisterObjectClass(MMClasses.x, "D:\OS2\APPS\CWMMOS2\CWMM\cwmm.dll") then
88 say MMClasses.x 'class registration successful'
89 else
90 say MMClasses.x 'class registration failed'
91 x = x + 1
92end
93
94/* Do MMBitmap Replacement Class */
95
96if deinstalling = '-R' then
97 do
98 if RxWinReplaceObjectClass('WPBitmap','MMBitmap', '0') then
99 say 'UnReplace MMBitmap successful'
100 else
101 say 'UnReplace MMBitmap failed'
102
103 if SysDeregisterObjectClass('MMBitmap') then
104 say 'MMBitmap class deregistration successful'
105 else
106 say 'MMBitmap class deregistration failed'
107
108 end
109else
110 do
111 if SysRegisterObjectClass('MMBitmap', DIRECTORY()"\cwmm.dll") then
112 say 'MMBitmap class registration successful'
113 else
114 say 'MMBitmap class registration failed'
115
116 res = SysIni(, 'PM_InstallClassReplacement', 'WPBitmap', 'MMBitmap'x2c('0') )
117 say 'Replacing WPBitmap with MMBitmap successful (res=' res ')'
118 end
119
120/* Do MMShadow Replacement Class */
121
122if deinstalling = '-R' then
123 do
124 if RxWinReplaceObjectClass('WPShadow','MMShadow', '0') then
125 say 'UnReplace MMShadow successful'
126 else
127 say 'UnReplace MMShadow failed'
128
129 if SysDeregisterObjectClass('MMShadow') then
130 say 'MMShadow class deregistration successful'
131 else
132 say 'MMShadow class deregistration failed'
133
134 end
135else
136 do
137 if SysRegisterObjectClass('MMShadow', 'MMSHD') then
138 say 'MMShadow class registration successful'
139 else
140 say 'MMShadow class registration failed'
141
142 res = SysIni(, 'PM_InstallClassReplacement', 'WPShadow', 'MMShadow'x2c('0') )
143 say 'Replacing WPShadow with MMShadow successful (res=' res ')'
144 end
145
146
147/* Now install mediafolder */
148'copy 'progDLL' 'targetDLL
149
150
151exit
152
153
154
155
156uninstallIBM:
157
158deinstalling = '-R'
159
160
161MMClasses. = ''
162MMClasses.1 = 'MMDataFile'
163MMClasses.2 = 'MMImage'
164MMClasses.3 = 'MMAudio'
165MMClasses.4 = 'MMVideo'
166MMClasses.5 = 'MMMIDI'
167MMClasses.6 = 'MMTarga'
168MMClasses.7 = 'MMTIFF'
169MMClasses.8 = 'MMGIF'
170MMClasses.9 = 'MMPCX'
171MMClasses.10 = 'MMPhotoCD'
172MMClasses.11 = 'MMAVC'
173MMClasses.12 = 'MMMMotion'
174MMClasses.13 = 'MMDIB'
175MMClasses.14 = 'MMDevice'
176MMClasses.15 = 'MMCDDevice'
177MMClasses.16 = 'MMLVDDevice'
178MMClasses.17 = 'MMVolume'
179MMClasses.18 = 'MMVOC'
180MMClasses.19 = 'MM_AU'
181MMClasses.20 = 'MMAU'
182MMClasses.21 = 'MMAIF'
183MMClasses.22 = 'MMIFF'
184MMClasses.23 = 'MMSNDF'
185MMClasses.24 = 'MMAVI'
186MMClasses.25 = 'MMFLI'
187MMClasses.26 = 'MMMPG'
188MMClasses.27 = 'MMJPG'
189MMClasses.28 = 'MMWAV'
190MMClasses.29 = 'MMMOV'
191MMClasses.30 = 'MMFolder'
192MMClasses.31 = 'MMFinder'
193
194x = 1;
195
196do while MMClasses.x <> '' /* loop until no more classes */
197 if deinstalling = '-R' then
198 if SysDeregisterObjectClass(MMClasses.x) then
199 say MMClasses.x 'class deregistration successful'
200 else
201 say MMClasses.x 'class deregistration failed'
202 else
203 if SysRegisterObjectClass(MMClasses.x, "mmparts") then
204 say MMClasses.x 'class registration successful'
205 else
206 say MMClasses.x 'class registration failed'
207 x = x + 1
208end
209
210/* Do MMBitmap Replacement Class */
211
212if deinstalling = '-R' then
213 do
214 if RxWinReplaceObjectClass('WPBitmap','MMBitmap', '0') then
215 say 'UnReplace MMBitmap successful'
216 else
217 say 'UnReplace MMBitmap failed'
218
219 if SysDeregisterObjectClass('MMBitmap') then
220 say 'MMBitmap class deregistration successful'
221 else
222 say 'MMBitmap class deregistration failed'
223
224 end
225else
226 do
227 if SysRegisterObjectClass('MMBitmap', 'MMBIT') then
228 say 'MMBitmap class registration successful'
229 else
230 say 'MMBitmap class registration failed'
231
232 res = SysIni(, 'PM_InstallClassReplacement', 'WPBitmap', 'MMBitmap'x2c('0') )
233 say 'Replacing WPBitmap with MMBitmap successful (res=' res ')'
234 end
235
236/* Do MMShadow Replacement Class */
237
238if deinstalling = '-R' then
239 do
240 if RxWinReplaceObjectClass('WPShadow','MMShadow', '0') then
241 say 'UnReplace MMShadow successful'
242 else
243 say 'UnReplace MMShadow failed'
244
245 if SysDeregisterObjectClass('MMShadow') then
246 say 'MMShadow class deregistration successful'
247 else
248 say 'MMShadow class deregistration failed'
249
250 end
251else
252 do
253 if SysRegisterObjectClass('MMShadow', 'MMSHD') then
254 say 'MMShadow class registration successful'
255 else
256 say 'MMShadow class registration failed'
257
258 res = SysIni(, 'PM_InstallClassReplacement', 'WPShadow', 'MMShadow'x2c('0') )
259 say 'Replacing WPShadow with MMShadow successful (res=' res ')'
260 end
261
262
263return
Note: See TracBrowser for help on using the repository browser.