forked from KolibriOS/kolibrios
63 lines
2.1 KiB
Batchfile
63 lines
2.1 KiB
Batchfile
/**** 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
|