kolibrios/programs/fs/unzip60/vms/makesfx.com
siemargl e9b1c1bac6 unzip initial commit
git-svn-id: svn://kolibrios.org@6725 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-11-18 13:40:05 +00:00

73 lines
2.2 KiB
Plaintext

$!
$! MAKESFX.COM: command-procedure to create self-extracting ZIP archives
$! usage: @MAKESFX foo (foo.zip -> foo.exe)
$!
$! Change history:
$!
$! Date Who What
$! -------- ---- -----------------------------------------------------------
$! 19940804 MPJZ Created
$! 19940810 GRR Removed superflous creation of name symbol
$! 20000113 MPJZ Better symbol check, fixed bug in zip "-A" check
$!
$! MPJZ: Martin P.J. Zinser
$!
$! For this to work a symbol unzipsfx has to be defined which contains the
$! location of the unzip stub (e.g., unzipsfx:== device:[dir]unzipsfx.exe)
$!
$! The zipfile given in p1 will be concatenated with unzipsfx and given a
$! filename extension of .exe. The default file extension for p1 is .zip
$!
$! Use at your own risk, there is no guarantee here. If it doesn't work,
$! blame me (zinser@decus.de), not the people from Info-ZIP.
$!
$!-----------------------------------------------------------------------------
$!
$! First check stub related stuff
$!
$ if (f$type(unzipsfx).nes."STRING")
$ then
$ type sys$input
You need to define the symbol "unzipsfx" to point to the location of the
unzipsfx stub before invoking this procedure.
Exiting now...
$ exit 2
$ endif
$ usfx = f$parse(unzipsfx) - ";"
$ if (f$search(usfx).eqs."")
$ then
$ write sys$output "The unzipsfx stub can not be found on the location"
$ write sys$output "pointed to by the unzipsfx symbol -- ''usfx'"
$ write sys$output "Exiting now"
$ exit 2
$ endif
$!
$! Now check the input file
$!
$ if (p1.eqs."")
$ then
$ type sys$input
Required parameter input-file missing
Exiting now...
$ exit 2
$ endif
$ inf = p1
$ file = f$parse(inf,,,"DEVICE") + f$parse(inf,,,"DIRECTORY") + -
f$parse(inf,,,"NAME")
$ finf = file + f$parse(inf,".ZIP",,"TYPE") + f$parse(inf,,,"VERSION")
$ if (f$search(finf).eqs."")
$ then
$ write sys$output "Input file ''finf' does not exist"
$ exit 2
$ endif
$!
$! Finally create the self-extracting archive
$!
$ copy 'usfx','finf' 'file'.exe
$!
$! Zip "-A" will make the resulting archive compatible with other
$! unzip programs, but is not essential for running the exe.
$!
$ if (f$type(zip).eqs."STRING") then zip "-A" 'file'.exe
$ exit