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
|
/**/
Parse Upper Arg target version .
If Wordpos(target,'DJG VCP EMX') = 0 Then Call Usage
Parse Value 'dos\go32 dos\emx os2\emx' With src.djg src.vcp src.emx
Parse Value 'libregna.a regina.a regina.a' With lib.djg lib.vcp lib.emx
Parse Value 'd:\djgpp\bin\go32.exe f:\emx\bin\emx.exe' With extra.djg extra.vcp extra.emx
'cd tmp'
'del *.*'
'copy ..\COPYING-LIB'
'copy ..\rexxsaa.h'
'copy ..\README.08?'
'copy ..\README.' || target 'README'
'copy ..\file_id.diz.' || target 'file_id.diz'
'copy ..\' || src.target || '\rexx.exe'
'copy ..\' || src.target || '\' || lib.target
If extra.target \= '' Then 'copy' extra.target
'mkdir demo'
'copy ..\demo\*.rexx demo\*.rex'
'zip -r RX' || version || target '*'
'del ..\RX' || version || target ||'.zip'
'move *.zip ..'
'cd ..'
Return 0
usage: Procedure
Say 'Usage: makezip target version'
Say 'where: target is one of emx, djg, vcp'
Say ' version is 08d etc'
Exit 0
|
