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
|
/**** REXX ******** ZIP2EXE.CMD ************** 01/04/96 *********\
|** This exec will prepend the Info Zip unzipsfx.exe file to an **|
|** existing ZIP file to create a self extracting zip. **|
|** **|
|** The exec requires 1 argument, the name of the zip file to be **|
|** acted upon. **|
|** **|
|** Put this exec into the path that contains your Info Zip **|
|** executables. **|
|** **|
\*********************************************************************/
rc = 0
/** Start Argument processing ** End Initialization **/
PARSE UPPER ARG zip_file
IF zip_file = ""
THEN
DO
SAY "You must specify the name of the file to be processed"
SAY "Please try again"
rc = 9
SIGNAL FINI
END
IF POS(".ZIP",zip_file) = 0
THEN
DO
sfx_file = zip_file||".EXE"
zip_file = zip_file||".ZIP"
END
ELSE
sfx_file = SUBSTR(zip_file,1,LASTPOS(".",zip_file))||"EXE"
zip_file = STREAM(zip_file,"C","QUERY EXISTS")
IF zip_file = ""
THEN
DO
SAY "The file "||ARG(1)||" Does not exist"
SAY "Processing terminated"
rc = 9
SIGNAL FINI
END
/** Start unzipsfx location ** End Argument processing **/
PARSE UPPER SOURCE . . command_file
unzipsfx = SUBSTR(command_file,1,LASTPOS("\",command_file))||,
"UNZIPSFX.EXE"
IF STREAM(unzipsfx,"C","QUERY EXISTS") = ""
THEN
DO
SAY "We are unable to locate the UNZIPSFX.EXE source"
SAY "Ensure that the ZIP2EXE command is in the directory",
"which contains UNZIPSFX.EXE"
rc = 9
SIGNAL FINI
END
/** Execute the command ** End Argument processing **/
ADDRESS CMD "@COPY /b "||unzipsfx||"+"||zip_file,
sfx_file||" > NUL"
IF rc = 0
THEN
SAY sfx_file||" successfully created"
ELSE
SAY sfx_file||" creation failed"
FINI:
EXIT rc
|
