diff options
author | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-20 19:30:57 +0100 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-20 19:30:57 +0100 |
commit | 04664087ad66f5614f82a2cfba3ae4eda15e792b (patch) | |
tree | 332090b15fd2db1b93abf40dccf06211d9aba297 /vms | |
download | zip-04664087ad66f5614f82a2cfba3ae4eda15e792b.tar.gz |
Tarball conversion
Diffstat (limited to 'vms')
-rw-r--r-- | vms/NOTES.TXT | 382 | ||||
-rw-r--r-- | vms/VMS_ZIP.RNH | 1467 | ||||
-rw-r--r-- | vms/build_zip.com | 690 | ||||
-rw-r--r-- | vms/bzlib.h | 21 | ||||
-rw-r--r-- | vms/cmdline.c | 1802 | ||||
-rw-r--r-- | vms/collect_deps.com | 89 | ||||
-rw-r--r-- | vms/cvthelp.tpu | 182 | ||||
-rw-r--r-- | vms/descrip.mms | 358 | ||||
-rw-r--r-- | vms/descrip_deps.mms | 207 | ||||
-rw-r--r-- | vms/descrip_mkdeps.mms | 247 | ||||
-rw-r--r-- | vms/descrip_src.mms | 373 | ||||
-rw-r--r-- | vms/find_bzip2_lib.com | 71 | ||||
-rw-r--r-- | vms/hlp_lib_next.com | 17 | ||||
-rw-r--r-- | vms/install_vms.txt | 158 | ||||
-rw-r--r-- | vms/mod_dep.com | 33 | ||||
-rw-r--r-- | vms/osdep.h | 178 | ||||
-rw-r--r-- | vms/stream_lf.fdl | 3 | ||||
-rw-r--r-- | vms/unixio_gcc.h | 27 | ||||
-rw-r--r-- | vms/unixlib_gcc.h | 16 | ||||
-rw-r--r-- | vms/vms.c | 1007 | ||||
-rw-r--r-- | vms/vms.h | 354 | ||||
-rw-r--r-- | vms/vms_im.c | 926 | ||||
-rw-r--r-- | vms/vms_msg_gen.c | 91 | ||||
-rw-r--r-- | vms/vms_pk.c | 600 | ||||
-rw-r--r-- | vms/vmsdefs.h | 320 | ||||
-rw-r--r-- | vms/vmsmunch.c | 434 | ||||
-rw-r--r-- | vms/vmsmunch.h | 55 | ||||
-rw-r--r-- | vms/vmszip.c | 1444 | ||||
-rw-r--r-- | vms/zip.opt | 1 | ||||
-rw-r--r-- | vms/zip_cli.cld | 168 | ||||
-rw-r--r-- | vms/zip_cli.help | 1636 | ||||
-rw-r--r-- | vms/zip_msg.msg | 57 | ||||
-rw-r--r-- | vms/zipup.h | 56 |
33 files changed, 13470 insertions, 0 deletions
diff --git a/vms/NOTES.TXT b/vms/NOTES.TXT new file mode 100644 index 0000000..4f94ec3 --- /dev/null +++ b/vms/NOTES.TXT @@ -0,0 +1,382 @@ + VMS Notes for Info-ZIP Zip 3.0 and UnZip 6.0 + ============================================ + + This document describes some VMS-specific behavior and implementation +details of the Info-ZIP Zip and UnZip programs. + + Last modified: 2008-04-10. + + + Command-line Case + ----------------- + + Zip and UnZip now include code which can preserve the case of +command-line parameters and options, which obviates quoting upper-case +options like "-V" or "-Z". This works on non-VAX systems with a +sufficiently recent C RTL, and SET PROCESS /PARSE_STYLE = EXTENDED. +(Sufficiently recent here means __CRTL_VER >= 70301000, which includes +VMS V7.3-1 with a C Run Time Library ECO, or V7.3-2 or newer.) This +code uses the decc$feature_set_value() function to enable the +DECC$ARGV_PARSE_STYLE feature. There is a small range of C RTL versions +where this function is unavailable, but where manually setting the +logical name DECC$ARGV_PARSE_STYLE to "ENABLE" will work. HELP CRTL +leads to some additional information on these features. + + + File Name Case (ODS5) + --------------------- + + In general, Zip 3.0 and UnZip 6.0 should handle file name case (and +extended file names) in reasonable ways on ODS5 disks. + + Zip offers a variety of "-C" (/PRESERVE_CASE) options to control how +case is handled when adding files to an archive. The default settings +("-C2-", /PRESERVE_CASE = NOODS2, down-case ODS2 file names; "-C5", +/PRESERVE_CASE = ODS5, preserve case of ODS5 file names) should be +consistent with previous Zip versions for files on ODS2 disks, and +reasonable for files on ODS5 disks. + + UnZip should preserve case when it extracts to an ODS5 destination +disk (unless "-2" (/ODS2) is specified). (Note that previous UnZip +versions, including version 5.52, did not properly preserve case for +directories, which were always up-cased.) + + The Zip and UnZip builders should work properly on ODS2 and ODS5 +disks, with old (pre-ODS5) and new (case-conscious) versions of MMS (or +MMK). All testing was done with SET PROCESS /CASE_LOOKUP = BLIND. +Various problems may be expected with /CASE_LOOKUP = SENSITIVE. + + For consistency, the builders should always create product files +(.OBJ, .EXE, .HLB, and so on) with upper-case names, whether the build +is done on an ODS2 or ODS5 disk. Note, however, that in a world with +both ODS2 and ODS5 disks, and old and new Zip and UnZip versions, it's +possible to encounter lower-case product file names. For example, a VMS +binary kit could be created on an ODS2 disk, and a Zip archive created +from that (using Zip 2.x, or Zip 3.x with default settings). Such a Zip +archive would contain down-cased names for those product files, and +those lower-case names would then normally be preserved when UnZip was +used to extract that archive onto an ODS5 destination. Normally, things +will work regardless of such case changes, but there may be some +untested combinations of unexpected name cases and quirky MMS (or MMK) +behavior, where something goes wrong. Complaints are always welcome, +but it may not be possible to get everything to work as expected with +every version of VMS, MMS (or MMK), Zip, and UnZip, on every file +system. + + It might help matters if _all_ VMS binary kits were produced on ODS5 +disks, and packaged using (case-preserving) Zip version 3.x, but this +would certainly be different from the way things have been done before, +and maintaining control over this process is essentially impossible. + + + Symbolic Links (ODS5) + --------------------- + + VMS V8.3 offers support for symbolic links (symlinks) on ODS5 disks. +In previous Zip and UnZip versions, the generic code for symlinks was +disabled, and there was no VMS-specific code for symlinks. Now, by +default, Zip and UnZip attempt to support symlinks wherever the C +headers and C run-time library include the functions needed for symlink +support. This means non-VAX systems with __CRTL_VER >= 70301000, so +this includes VMS V7.3-1 and up, and thus symlink-capable Zip and UnZip +programs may be built on systems which do not themselves offer symlink +support. (Various run-time failures may be expected if symlinks are +encountered on pre-V8.3 systems, either in a file system or in a Zip +archive.) + + Symlink support can be disabled at build-time, if desired, by +defining the C macro NO_SYMLINKS. (See comments in the builder +regarding LOCAL_UNZIP or LOCAL_ZIP, as appropriate.) For example, using +MMS to build UnZip: + + MMS /DESCRIP = [.VMS] /MACRO = ("LOCAL_UNZIP=NO_SYMLINKS=1") + +or, using the command procedure to build Zip: + + LOCAL_ZIP == "NO_SYMLINKS=1" + @ [.VMS]BUILD_ZIP.COM + DELETE /SYMBOL /GLOBAL LOCAL_ZIP + + The Zip "-v" (/VERBOSE) report should include SYMLINK_SUPPORT in its +list of "Zip special compilation options" if Zip was built with symlink +support. Currently, UnZip is less convenient, but searching the UnZip +executable (or EXTRACT.OBJ) for "symlink" should fail if symlink support +is missing (or succeed if it's present): + + $ SEARCH /NOOUTPUT UNZIP.EXE SYMLINK ! No symlink support. + %SEARCH-I-NOMATCHES, no strings matched +or: + $ SEARCH /NOOUTPUT EXTRACT.OBJ SYMLINK ! Symlink support. + $ SHOW SYMBOL $STATUS + $STATUS == "%X00000001" + + + File I/O Performance + -------------------- + + When compiled using DEC/Compaq/HP C (not GNU C or VAX C), the Zip and +UnZip file I/O code now includes access callback functions which are +used to try to set some RMS parameters to non-default values, with the +intention of improving file I/O speed. This affects reading an archive +file in UnZip and writing one in Zip. (Reading and writing the +individual data files are handled in more exotic ways, making these +parameters less important for them.) + + Currently, the built-in default parameters enable read-ahead and +write-behind, using a multi-buffer count of 2, and a multi-block count +of 127 (the maximum). For writing the archive, the default extend +quantity is 16384 blocks (8MB), with truncation enabled. This +combination is believed to be, at worst, fairly harmless for most +situations, and, in most cases, to provide a substantial speed +improvement, especially with large archives. + + This code allows SET RMS_DEFAULT parameters to override the built-in +default values. On some old VMS versions, sys$getjpi() can not provide +the SET RMS_DEFAULT values, and in this situation, the callback function +will not try to use its improved parameter values. Users on such old +VMS versions who seek improved I/O speed may wish to bypass this check, +which requires changing the code in the get_rms_defaults() function in +[.VMS]VMS.C. The "-vv" (/VERBOSE = MORE) option on both programs +enables diagnostic messages which show the operation of the callback +function. A message showing a failure status from sys$getjpi() +indicates this problem. + + Sample results (UnZip shown, Zip similar): + + VMS VAX V5.4, VAX C. Callback code disabled, no messages: + WIMP $ unzip -tvv TESTMAKE.ZIP + Archive: SYS$SYSDEVICE:[UTILITY.SOURCE.ZIP.UNZIP60C]TESTMAKE.ZIP;1 + [...] + + VMS VAX V5.5-2, DEC C. SYS$GETJPI() fails (%SYSTEM-F-BADPARAM): + WEAK $ unzip -tvv TESTMAKE.ZIP + Get RMS defaults. getjpi sts = %x00000014. + Archive: DUA1:[UTILITY.SOURCE.ZIP.UNZIP60C]TESTMAKE.ZIP;1 + [...] + + VMS VAX V7.3, DEC/Compaq C. Callback code works: + WUSS $ unzip -tvv TESTMAKE.ZIP + Get RMS defaults. getjpi sts = %x00000001. + Default: deq = 0, mbc = 0, mbf = 0. + Open callback. ID = 1, deq = 16384, mbc = 127, mbf = 2. + Archive: ALP$DKA0:[UTILITY.SOURCE.ZIP.UNZIP60C]TESTMAKE.ZIP;1 + [...] + + VMSV5.5-2 is too old. V7.3 is new enough. Anyone with more precise +information is invited to contribute it. + + Users who find other parameter sets more beneficial, or who find +particular problems with this set are welcome to comment. + + In this version, as in previous versions, when UnZip expands a -V +archive, it allocates the entire extent of a data file before writing +any of its data. In some previous versions, this could cause the +destination disk to be locked for a considerable time (minutes), if +highwater marking was enabled on that disk. Now, the FAB SQO +("sequential access only") flag (or equivalent) is set, which prevents +this troublesome disk locking. + + In some previous versions, when UnZip expanded a non-V archive, it +did no pre-allocation, and used the default extension quantity. This +could slow file creation significantly for large files. Now, space for +extracted files is pre-allocated, and the same SQO ("sequential access +only") flag is set, as with a -V archive. + + + Changes to the "-V" (/VMS) Option + --------------------------------- + + The intent of the "-V" (/VMS) option was to store VMS file attributes +in a Zip archive, allowing UnZip to extract an exact copy of a file on a +VMS system, including all its VMS attributes. + + In Zip before version 2.31, using the "-V" (/VMS) option created an +archive which usually contained data from beyond the EOF (End-of-File) +marker in a data file, but generally not all the disk blocks allocated +for the file. When extracted on a VMS system, the result was usually +acceptable (because the data from beyond the EOF marker were usually +ignored). However, when extracted on a non-VMS system, the resulting +file was usually corrupted by being NUL-padded to the next larger 16KB +multiple in size. + + Now (Zip 2.31 and later), with "-V" (/VMS), Zip truncates a data file +at EOF, and portable-format files (Stream_LF, fixed-512) should be +extracted properly on a non-VMS system. On a VMS system, well-formed +files (that is, those with no valid data beyond EOF) should also be +restored correctly. + + With the new "-VV" (/VMS = ALL) option, the archive includes all +allocated blocks for the file (including those beyond EOF). When +extracted on a VMS system, the original file should be reproduced with +as much fidelity as possible, but on a non-VMS system, most files will +be seen as corrupt because of the data from beyond EOF. + + + Changes to Program Exit Status Values + ------------------------------------- + + Zip and UnZip exit with 32-bit VMS status values which are formed +from their internal OS-independent status values. In previous program +versions, this was done by converting the internal success code (0) into +%x00000001 (SS$_NORMAL), and converting the other internal warning and +error codes using an artificial control/facility code, 0x7FFF (which +includes some reserved bits), and a severity value which was determined +according to rules specified in the VMS-specific exit function. +Curiously, the internal status codes were left-shifted by 4 bits instead +of 3, so all the resulting VMS message codes (bits 13:3) were even. + + Zip and UnZip now have facility names and codes assigned by HP +(UnZip: IZ_UNZIP, 1954; Zip: IZ_ZIP, 1955). Now, by default, the +programs exit with standard 32-bit VMS status values which differ from +the old ones in several ways: The official facility code is used, and +the facility-specific bit is set. (For compatibility with older +versions, the internal status codes are still left-shifted by 4 bits. +This also makes it easier to extract the internal status code from a +hexadecimal representation of the VMS status code.) The builders also +create non-executable message files (UNZIP_MSG.EXE and ZIP_MSG.EXE) so +that, after a suitable SET MESSAGE command, the program messages will be +available from DCL. For example: + + $ SET MESSAGE dev:[dir]ZIP_MSG.EXE + $ ZIP FRED.ZIP no_such_file + zip warning: name not matched: no_such_file + + zip error: Nothing to do! + (dev:[dir]FRED.ZIP;) + + ALP $ WRITE SYS$OUTPUT F$MESSAGE( $STATUS) + %IZ_ZIP-W-NONE, Nothing to do + +The message files may be copied into SYS$MESSAGE to make them generally +available, although this could cause some confusion if multiple versions +of the programs are used on the system, and their error message source +files differ. Each different destination directory will get its own +UNZIP_MSG.EXE or ZIP_MSG.EXE ([.ALPHA], [.ALPHAL], [.VAX], and so on), +but all of the same-architecture files are equivalent to each other. +That is, on an Alpha system, any of the [.ALPHA*]ZIP_MSG.EXE files could +be used; on an IA64 system, any of the [.IA64*]ZIP_MSG.EXE files could +be used; and on a VAX system, any of the [.VAX*]ZIP_MSG.EXE files could +be used. (Similar for UNZIP_MSG.EXE, of course.) + + If desired, the programs may be built to use the old exit status values +by defining a C macro with the old facility value: +"CTL_FAC_IZ_UNZIP=0x7FFF" (UnZip) or "CTL_FAC_IZ_ZIP=0x7FFF" (Zip). +(See comments in the builder regarding LOCAL_UNZIP or LOCAL_ZIP, as +appropriate.) This will maintain compatibility with older program +versions, but will make the programs incompatible with the new error +message files. + + + VMS File Attribute Schemes + -------------------------- + + Zip's "-V" (/VMS) option causes VMS file attributes to be stored in +an archive. Since Zip version 2.2 (released in 1996), Zip has, by +default, stored VMS file attributes using a scheme ("PK") which is +compatible with the one used by PKWARE in their PKZIP product. Before +that, a different scheme ("IM") was used. UnZip versions before 5.2 +support only the older IM scheme, but since UnZip version 5.2, both +schemes have been supported by UnZip. + + The IM scheme has not been well tested recently, but it is still +available. Some problems were seen when the IM scheme was used with +symbolic links on VMS V8.3. Details on how build Zip to use the IM +scheme instead of the PK scheme are included in comments in the main +builder files. Look for VMS_IM_EXTRA in [.VMS]BUILD_ZIP.COM or IM in +[.VMS]DESCRIP.MMS. + + The "special compilation options" section of a "zip -v" ("zip +/verbose") report should show either VMS_PK_EXTRA or VMS_IM_EXTRA, +according to how Zip was built. + + + UTC Date-Times + -------------- + + Zip archives traditionally include local (MS-DOS compatible) +date-time information for files. Since Zip version 2.1, it has also +been possible to store UTC date-time information in the archive, and +since UnZip version 5.2, UnZip has been able to use this UTC date-time +information when extracting files. + + On VMS, support in the C run-time environment for UTC became +available with VMS V7.0. UTC support in Zip and UnZip is automatically +enabled at compile time, if it is available on the system where the code +is compiled (__CRTL_VER >= 70000000). It may be disabled at compile +time by defining the C macro NO_EF_UT_TIME. Details on how build Zip +and UnZip with additional C macros defined are included in comments in +the main builder files. Look for LOCAL_[UN]ZIP in +[.VMS]BUILD_[UN]ZIP.COM or in [.VMS]DESCRIP.MMS. For example, using MMS +to build UnZip: + + MMS /DESCRIP = [.VMS] /MACRO = ("LOCAL_UNZIP=NO_EF_UT_TIME=1") + +or, using the command procedure to build Zip: + + LOCAL_ZIP == "NO_EF_UT_TIME=1" + @ [.VMS]BUILD_ZIP.COM + DELETE /SYMBOL /GLOBAL LOCAL_ZIP + + The "special compilation options" section of a "zip -v" ("zip +/verbose") or "unzip -v" ("unzip /verbose") report should show +USE_EF_UT_TIME if the program was built with UTC support. + + + Building with the LIST option using MMK or MMS + ---------------------------------------------- + + Currently, building with MMK or MMS using the LIST option (as in +"/MACRO = LIST=1") may cause a failure for some old versions of the DEC +C compiler. The LIST option currently adds "/show = (all, nomessages)" +to the CC command line, and some old DEC C compilers do not support the +"nomessages" keyword. When VAX C is used, this keyword is omitted, but +the builder does not distinguish between the various DEC/Compaq/HP C +versions. The work-arounds are to use BUILD_[UN]ZIP.COM, or edit +[.VMS]DESCRIP_SRC.MMS to remove the troublesome keyword. + + + GNU C + ----- + + Zip and UnZip have been built using GNU C (VAX) version 2.3, mostly +for fun, but serious users are encouraged to report any interest in +continuing this activity. The GNU C 2.3 header files were missing some +things, including definitions of SEEK_CUR, SEEK_END, and SEEK_SET. The +VMS-specific code now expects to find unixio.h and unixlib.h, which were +absent from the GNU C 2.3 distribution. + + To work around these difficulties, the Zip and UnZip kits include +some emergency replacement unixio.h and unixlib.h files which appear to +work for these programs, at least. To install them, use commands like +the following: + + COPY [.VMS]UNIXIO_GCC.H GNU_CC_INCLUDE:[000000]UNIXIO.H + COPY [.VMS]UNIXLIB_GCC.H GNU_CC_INCLUDE:[000000]UNIXLIB.H + SET PROTECTION W:RE GNU_CC_INCLUDE:[000000]UNIXIO.H, UNIXLIB.H + + There may be an error in the GNU C header file ATRDEF.H which can +cause Zip to fail, when making a "-V" archive, with a spurious "could +not open for reading" error message, followed by more bad behavior. It +probably also causes trouble of some kind in UnZip. To check the +questionable macro definition, use a command like the following: + + SEARCH GNU_CC_INCLUDE:[000000]ATRDEF.H ATR$S_JOURNAL + +This should show something equivalent to this: + + #define ATR$S_JOURNAL 0x001 + +If you see "0x002" (or equivalent) instead of "0x001" (or equivalent), +then this value must be corrected in the file before building Zip or +UnZip. + + You may also see several warnings from the compiler caused by other +defects in the GNU C header files, such as: + +<various>: warning: passing arg 4 of `qsort' from incompatible pointer type + +[...]rab.h:134: warning: unnamed struct/union that defines no instances +[...]rab.h:143: warning: unnamed struct/union that defines no instances + +These warnings appear to be harmless. + diff --git a/vms/VMS_ZIP.RNH b/vms/VMS_ZIP.RNH new file mode 100644 index 0000000..183ceea --- /dev/null +++ b/vms/VMS_ZIP.RNH @@ -0,0 +1,1467 @@ +.! +.! File: ZIP.RNH +.! +.! Author: Hunter Goatley +.! +.! Date: October 22, 1991 +.! +.! Description: +.! +.! RUNOFF source file for portable ZIP on-line help for VMS. +.! Adapted from MANUAL, distributed with ZIP. +.! +.! To build: $ RUNOFF ZIP.RNH +.! $ LIBR/HELP/INSERT libr ZIP +.! +.! Modification history: +.! +.! Hunter Goatley 22-OCT-1991 20:45 +.! Genesis. +.! Jean-loup Gailly 25 March 92 +.! Adaptation to zip 1.6. +.! Igor Mandrichenko 9-JUN-1992 +.! Added explanation of -V option. +.! Jean-loup Gailly 14 June 92 +.! Adaptation to zip 1.8. +.! Jean-loup Gailly 20 Aug 92 +.! Adaptation to zip 1.9. +.! Jean-loup Gailly 31 Aug 93 +.! Adaptation to zip 2.0. +.! Christian Spieler 20 Sep 93 +.! Adaptation to zip 2.0 and OpenVMS completed. +.! Christian Spieler 05 Dec 95 +.! Adaptation to zip 2.1, new options. +.! Christian Spieler 20 Jan 96 +.! Changed -L and -v descriptions. +.! Christian Spieler 11 Feb 96 +.! Added -X option. +.! Onno van der Linden, +.! Christian Spieler 13 Mar 96 +.! Removed -ee option. +.! Christian Spieler 09 Feb 96 +.! Updated copyright notice, Zip version. +.! Christian Spieler 21 Jul 97 +.! Added -P, -R, -i@, -x@ and -tt options, modified for Zip 2.2. +.! Christian Spieler 14 Oct 97 +.! unified spelling of "Info-ZIP", final cleanups for 2.2. +.! Steven Schweda 10 May 2007 +.! General update for version 3.0. +.! Ed Gordon 12 May 2007 +.! Minor updates for version 3.0. +.! +.noflags +.lm4 .rm72 +.indent -4 +1 ZIP +.br +Zip is a compression and file packaging utility for several operating +systems, including UNIX, VMS, MSDOS, OS/2, Windows 9x/NT/XP, Minix, Atari, +Macintosh, Amiga, and Acorn RISC OS. It is analogous to a combination of +tar and compress and is compatible with PKZIP (Phil Katz's ZIP) for +MSDOS systems. +.sk +Zip is useful for packaging a set of files for distribution, for +archiving files, and for saving disk space by temporarily compressing +unused files or directories. A companion program, UnZip, unpacks Zip +archives. +.sk +For brief help on Zip or UnZip, run the program without specifying any +parameters on the command line. +.sk +This description covers the Zip program which uses a UNIX-style command +line. A separate program is available which provides a VMS-style CLI +command line, and it has its own documentation. Refer to the Zip +installation instructions for details. +.sk +Format +.sk;.lm+2;.literal +ZIP [-options] archive inpath inpath ... +.end literal;.lm-2 +.!------------------------------------------------------------------------------ +.indent -4 +2 Basic_Usage +.br +Format +.sk;.lm+2;.literal +ZIP [-options] archive inpath inpath ... +.end literal;.lm-2 +.sk +The default action of Zip is to add or replace entries in "archive" from +the list of "inpath" file specifications, which can include directories +and file names with VMS-style wildcards, or the special name -@ to read +file specifications from SYS$INPUT (stdin). +.sk +With SET PROCESS /PARSE_STYLE = EXTENDED (available on recent non-VAX +systems), Zip preserves the case of the command line. Otherwise, mixed- +or upper-case options and arguments must be quoted. For example, +"-V". Examples in this document generally do not show this quotation, +so VAX and /PARSE_STYLE = TRADITIONAL users (that is, troglodytes) will +need to add quotation where needed when working with these examples. +.sk +General +.sk +Zip reads one or more files, compresses the data (normally), and stores +the compressed information into a single Zip archive file, along with +information about each file (name, path, date and time of last +modification, protection, and check information to verify file +integrity). On a VMS system, Zip can also save VMS/RMS file attributes, +allowing UnZip to restore the files without loss of important file +attributes. Zip can pack an entire directory structure into a Zip +archive with a single command. +.sk +Compression +.sk +Compression ratios of 2:1 to 3:1 are common for text files. Zip has one +standard compression method ("deflate") and can also store files without +compression. Zip (and UnZip) may be built with optional support for the +bzip2 compression method. Then, the user may select bzip2 compression +instead of the default "deflate" method. Zip automatically chooses +simple storage over compression for a file, if the specified compression +method does not actually compress the data in that file. +.sk +Compatibility +.sk +Zip and UnZip can work with archives produced by PKZIP (supporting most +PKZIP features up to PKZIP version 4.6), and PKZIP and PKUNZIP can work +with archives produced by Zip (with some exceptions, notably streamed +archives, but recent changes in the .ZIP file standard may facilitate +better compatibility). Zip version 3.0 is compatible with PKZIP 2.04 +and also supports the Zip64 extensions of PKZIP 4.5 which allows +archives as well as files to exceed the previous 2 GB limit (4 GB in +some cases). Zip also supports bzip2 compression if the bzip2 library +is included when Zip is built. Note that PKUNZIP 1.10 cannot extract +files produced by PKZIP 2.04 or Zip 3.0. You must use PKUNZIP 2.04g or +UnZip 5.0p1 (or later versions) to extract them. +.sk +Large Archives and Zip64 +.sk +Where the operating system and C run-time support allow, Zip 3.0 and +UnZip 6.0 (and later versions) support large files (input and archive), +using the Zip64 extensions to the original .ZIP file format. On VMS, +this genarally means non-VAX systems with VMS V7.2 or later (perhaps +requiring a C RTL ECO before VMS V7.3-2). +.sk +Zip automatically uses the Zip64 extensions when a file larger than 2 GB +is added to an archive, an archive containing a Zip64 entry is updated +(if the resulting archive still needs Zip64), the size of the archive +will exceed 4 GB, or when the number of entries in the archive will +exceed about 64K. Zip64 is also used for archives streamed to a +non-seekable output device. You must use a 4.5 compatible UnZip to +extract files using the Zip64 extensions such as UnZip 6.0 or later. +.sk +In addition, streamed archives, entries encrypted with standard +encryption, or split archives created with the pause option may not be +compatible with PKZIP as data descriptors are used, and PKZIP at the +time of this writing does not support data descriptors (but recent +changes in the PKWare published .ZIP file standard now include some +support for the data descriptor format Zip uses). +.!------------------------------------------------------------------------------ +.indent -4 +2 More_Usage +.br +Here is a very simple example of Zip use: +.sk;.indent 10; +$ zip stuff.zip *.* +.sk +This will create the Zip archive "stuff.zip" (assuming it does not +already exist) and put all the (non-directory) files (";0") from the +current default directory into "stuff.zip" in a compressed form. The +archive is opened using a default file specification of +"SYS$DISK:[].zip", so specifying "stuff" as the archive name would also +create (or use an existing) "stuff.zip", but specifying "stuff.other" +would give you that name. In general, Zip doesn't care about the type +in the file specification, but for split archives (archives split over +multiple files), the user should normally specify a type-less name, +because Zip will normally generate sequentially numbered types ".z01", +".z02", and so on for the early splits, and then the required ".zip" for +the last split. These file types are required by the Zip standard for +split archives. +.sk +Standard VMS wildcard expansion ($SEARCH) is used to interpret the +"inpath" file and directory specifications, like the "*.*" in this +example. +.sk +On VMS, the most natural way to archive an entire directory tree is to +use a directory-depth wildcard ("[...]"). For example: +.sk;.indent 10 +zip foo [...]*.* +.sk +This will create the file "foo.zip" containing all the files (";0") and +directories in and below the current default directory. A more +UNIX-like way to do this would be to use the -r (--recurse-paths) +option: +.sk;.indent 10 +$ zip -r foo *.* +.sk +Zip avoids including its own output files when selecting files to +include in the archive, so it should be safe, as in this case, to create +the archive in the same drectory as the input files. +.sk +One or more specific files, directories, or subdirectories may also be +specified: +.lm +10;.literal +zip foo.zip readme.txt [www...]*.* [.ftp...]*.* - + [.src]*.h [.src]*.c +.end literal;.lm -10 +.sk +For security reasons, paths in Zip archives are always stored as +relative paths, so some care is needed when creating an archive so that +it will create the intended directory structure when UnZip is used to +unpack it. +.sk +To use -r with a specific directory, the name of the directory file +itself must be specified: +.sk;.indent 10 +zip -r foo.zip [000000]www.dir ftp.dir +.sk +You may want to make an archive that contains the files in [.foo], but not +record the directory name, "foo". You can use the -j (junk path) option +to leave off the path: +.sk;.indent 10 +$ zip -j foo [.foo]*.* +.sk +If you are short on disk space, you might not have enough room to hold +both the original directory and the corresponding compressed Zip +archive. In this case, you can create the archive in steps, and use the +-m option. For example, if [.foo] contains the subdirectories [.tom], +[.dick], and [.harry], you could: +.sk +.lm +10;.literal +zip -m foo [.foo.tom...]*.* +zip -m foo [.foo.dick...]*.* +zip -m foo [.foo.harry...]*.* +.end literal;.lm -10 +.sk +The first command would create foo.zip, and the next two would add to +it. The -m option means "move", and it will cause Zip to delete all +files added to the archive after making or updating foo.zip. No +deletions will be done until the Zip operation has completed with no +errors. This option is obviously dangerous and should be used with +care, but it does reduce the need for free disk space. When -m is +used, the -T option is recommended and will test the resulting archive +before deleting the input files. +.sk +If a file specification list is too long to fit conveniently on the Zip +command line, the -@ option can be used to cause Zip to read a list of +file specifications from SYS$INPUT (stdin). If a DCL command procedure +is used, the names can be specified in the procedure: +.sk; +.lm +10;.literal +$ zip foo -@ +$ deck +file_spec_1 +file_spec_2 +file_spec_3 +$ eod +.end literal;.lm -10 +.sk +The file specifications can also be put into a separate file, and fed +into Zip by explicitly defining SYS$INPUT, or by using PIPE. For +example, with the list in foo.zfl: +.sk; +.lm +10;.literal +$ define /user_mode sys$input foo.zfl +$ zip foo -@ +.end literal;.lm -10; +or: +.lm +10;.literal +$ pipe type foo.zfl | zip foo -@ +.end literal;.lm -10 +.sk +If Zip is not able to read a file, it issues a warning but continues. +See the -MM option for more on how Zip handles patterns that are not +matched and files that are not readable. If some files were skipped, a +warning is issued at the end of the Zip operation noting how many files +were read and how many skipped. +.!------------------------------------------------------------------------------ +.indent -4 +2 Comments +.br +One-line comments may be included in the archive for each file added, +using the -c (--entry-comments) option. File operations (adding, +updating) are done first, and the user is then prompted for a one-line +comment for each file added or updated. Enter the comment followed by +<Return>, or just <Return> for no comment. +.sk +A single multi-line comment may be included for the archive as a whole, +using the -z (--archive-comment) option. UnZip (including UnZip SFX) +will display this comment when it expands the archive. The comment is +read from SYS$INPUT (stdin), and is terminated by the usual end-of-file +character, CTRL/Z. As usual, in a DCL command procedure, these data can +be included in-line in the procedure, or a user may DEFINE SYS$INPUT to +a file to get the comment from that file. Where supported, the DCL PIPE +command can also be used to redirect SYS$INPUT from a file. +.sk +Note that -z (--archive-comment) and -@ (read file specifications from +SYS$INPUT (stdin)) can't be used together (successfully). +.!------------------------------------------------------------------------------ +.indent -4 +2 Compression +.br +Zip can archive files with or without compression. The standard +compression method ("deflate") is compatible with all UnZip versions +(except really old ones that only understand the "store" method). +Current Zip and UnZip versions may be built with optional support for +the bzip2 compression method. (The bzip2 method can compress better, +especially when compressing smaller files, but uses more CPU time, and +requires an UnZip which includes the optional bzip2 support. See the +installation instructions for details on adding bzip2 compression +support at build time.) +.sk +Numeric compression level options control the effort put into data +compression, with -1 being the fastest, and -9 giving the most +compression. +.sk +Compression control options: +.sk;.lm +10;.literal +-Z mthd use compress method "mthd", +--compression-method mthd "bzip2" or "deflate" (default) + +-0 (--store) no compression +-1 (--compress-1) compression level 1 +-2 (--compress-2) compression level 2 +-3 (--compress-3) compression level 3 +-4 (--compress-4) compression level 4 +-5 (--compress-5) compression level 5 +-6 (--compress-6) compression level 6 +-7 (--compress-7) compression level 7 +-8 (--compress-8) compression level 8 +-9 (--compress-9) compression level 9 +.end literal;.lm -10 +.sk +Normally, a file which is already compressed will not be compressed much +further (if at all) by Zip, and trying to do it can waste considerable +CPU time. Zip can suppress compression on files with particular types, +specified as a colon- or semi-colon-separated list of file types: +.sk;.indent 10 +-n type1[:type2[...]] (--suffixes type1[:type2[...]]) +.sk +For example: +.sk;.indent 10 +zip -n .bz2:.gz:.jpeg:.jpg:.mp3:.zip foo [.foo]*.* +.sk +will put everything (";0") from [.foo] into foo.zip, but will store any +files that end in .bz2, .gz, .jpeg, .jpg, .mp3, or .zip, without trying +to compress them. +.sk +The default type list is .Z:.zip:.zoo:.arc:.lzh:.arj, and the comparison +is case-insensitive. +.sk +-9 (--compress-9) will override -n (--suffixes), causing compression to +be attempted for all files. +.!------------------------------------------------------------------------------ +.indent -4 +2 Encryption +.br +Zip offers optional encryption, using a method which by modern standards +is generally considered to be weak. +.sk;.literal +-e --encrypt +.end literal;.br +Encrypt new or updated archive entries using a password which is +supplied by the user interactively on the terminal in response to a +prompt. (The password will not be echoed.) If SYS$COMMAND is not a +terminal, Zip will exit with an error. The password is verified before +being accepted. +.sk;.literal +-P password --password password +.end literal;.br +Use "password" to encrypt new or updated archive entries (if any). +USING -P IS INSECURE! Many multi-user operating systems provide ways +for any user (or a privileged user) to see the current command line of +any other user. Even on more secure systems, there is always the threat +of over-the-shoulder peeking. Storing the plaintext password as part of +a command line in a command procedure is even less secure. Whenever +possible, use the non-echoing, interactive password entry method. +.sk +Because standard Zip encryption is weak, where security is truly +important, use a strong encryption program, such as Pretty Good Privacy +(PGP) or GNU Privacy Guard (GnuPG), on an archive instead of standard +Zip encryption. A stronger encryption method, such as AES, is planned +for Zip 3.1. +.!------------------------------------------------------------------------------ +.indent -4 +2 Exit_Status +.br +On VMS, Zip's UNIX-style exit values are mapped into VMS-style status +codes with facility code 1955 = %x7A3, and with the inhibit-message +(%x10000000) and facility-specific (%x00008000) bits set: +.sk +.literal + %x17A38001 normal exit + %x17A38000+ 16* Zip_error_code warnings + %x17A38002+ 16* Zip_error_code normal errors + %x17A38004+ 16* Zip_error_code fatal errors +.end literal +.sk +Note that multiplying the UNIX-style Zip error code by 16 places it +conveniently in the hexadecimal representation of the VMS exit code, +"__" in %x17A38__s, where "s" is the severity code. For example, a +truncated archive might cause Zip error code 2, which would be +transformed into the VMS exit status %x17A38024. +.sk +The Zip VMS exit codes include severity values which approximate those +defined by PKWARE, as shown in the following table: +.literal + + VMS Zip err + severity code Error description + ----------+---------+---------------------------------------------- + Success 0 Normal; no errors or warnings detected. + Fatal 2 Unexpected end of archive. + Error 3 A generic error in the archive format was + detected. Processing may have completed + successfully anyway; some broken archives + created by other archivers have simple work- + arounds. + Fatal 4 Zip was unable to allocate memory for one or + more buffers during program initialization. + Fatal 5 A severe error in the archive format was + detected. Processing probably failed imme- + diately. + Error 6 Entry too large to be split with zipsplit. + Error 7 Invalid comment format. + Fatal 8 Zip -T failed or out of memory. + Error 9 The user aborted zip prematurely with con- + trol-C (or equivalent). + Fatal 10 Zip encountered an error while using a temp + file. + Fatal 11 Read or seek error. + Warning 12 Zip has nothing to do. + Error 13 Missing or empty zip file. + Fatal 14 Error writing to a file. + Fatal 15 Zip was unable to create a file to write to. + Error 16 Bad command line parameters. + Error 18 Zip could not open a specified file to read. + Fatal 19 Zip was built with options not supported on + this system + Fatal 20 Attempt to read unsupported Zip64 archive +.end literal +.!------------------------------------------------------------------------------ +.indent -4 +2 Extra_Fields +.br +The .ZIP file format allows some extra data to be stored with a file in +the archive. For example, where local time zone information is +available, Zip can store UTC date-time data for files. (Look for +USE_EF_UT_TIME in a "zip -v" report.) On VMS, with -V or -VV, Zip will +also store VMS-specific file attributes. These data are packaged as +"extra fields" in the archive. Some extra fields are specific to a +particular operating system (like VMS file attributes). Large files +(bigger than 4GB) on any OS require an extra field to hold their 64-bit +size data. Depending on the capabilities of the UnZip program used to +expand the archive, these extra fields may be used or ignored when files +are extracted from the archive. +.sk +Some extra fields, like UTC date-times or VMS file attributes, are +optional. Others, like the Zip64 extra field which holds 64-bit sizes +for a large file, are required. +.sk +The -X (--strip-extra) option suppresses the saving of any optional +extra fields in the archive. (Thus, -X conflicts with -V or -VV.) +.!------------------------------------------------------------------------------ +.indent -4 +2 Environment +.br +A user can specify default command-line options and arguments by +defining an "environment variable" (that is, a logical name or DCL +symbol), "ZIP_OPTS" or "ZIPOPT", to specify them. If both "ZIP_OPTS" and +"ZIPOPT" are specified, the definition of "ZIPOPT" prevails. +.sk +The C RTL function getenv() is used to sense these variables, so its +behavior determines what happens if both a logical name and a symbol are +defined. As of VMS V7.3, a logical name supercedes a symbol. +.sk +The "zip -v" report should show the perceived settings of these +variables. +.!------------------------------------------------------------------------------ +.indent -4 +2 File_Names +.br +Zip deals with file names in the system file system and with file names +in Zip archives. File names in a Zip archive are stored in a UNIX-like +path-name format. For example, a VMS file specification like this: +.sk;.indent 10 +[.zip30.vms]descrip.mms +.sk +could appear in a Zip archive as: +.sk;.indent 10 +zip30/vms/descrip.mms +.sk +For security reasons, paths in Zip archives are always stored as +relative paths, so an absolute VMS directory specification will be +transformed to a relative path in the archive (that is, no leading "/"). +For example, the following absolute directory specification would give +the same archive path as the previous (relative) example: +.sk;.indent 10 +[zip30.vms]descrip.mms +.sk +Also, device names are dropped, so the following file specification +would also give the same archive path: +.sk;.indent 10 +sys$sysdevice:[zip30.vms]descrip.mms +.sk +If an archive is intended for use with PKUNZIP under MSDOS, then the -k +(for "Katz", --DOS-names) option should be used to attempt to adjust the +names and paths to conform to MSDOS character-set and length +limitations, to store only the MSDOS file attributes (just the +owner:write attribute from VMS), and to mark the entry as made under +MSDOS (even though it wasn't). +.sk +Note that file specifications in the file system must be specified using +VMS notation, but file names in an archive must be specified using the +UNIX-like notation used in the archive. For example, where a BACKUP +command might look like this: +.sk.indent 10 +$ back [.zip30...]*.* /excl = [...vms]*.c stuff.bck /save +.sk +a corresponding Zip command might look like this: +.sk;.indent 10; +$ zip stuff.zip [.zip30...]*.* -x */vms/*.c +.sk +because the files to be added to the Zip archive are specified using VMS +file specifications, but the -x (--exclude) option excludes names based +on their archive path/file names. Options dealing with archive names +include -R (--recurse-patterns), -d (--delete), -i (--include), -x +(--exclude), and -U (--copy-entries). +.sk +Note: By default, on VMS, archive name pattern matching (-R, -d, -i, -x, +and -U) is case sensitive, even when the file system is not case +sensitive (or even case preserving). This allows accurate matching of +mixed-case names in an archive which may have been created on a system +with a case sensitive file system, but it can involve extra effort on +VMS, where it may be necessary to use unnatural case names (or the same +names in multiple cases, like "*.obj *.OBJ") for this kind of pattern +matching to give the desired behavior. If completely case-blind pattern +matching behavior is desired, specify the -ic (--ignore-case) option. +.!------------------------------------------------------------------------------ +.indent -4 +3 Case +.br +For better compatibility with UNIX-like systems, Zip, by default, +down-cases ODS2 file names. For example, the following file on an ODS2 +file system: +.sk;.indent 10 +[.ZIP30.VMS]DESCRIP.MMS +.sk +would appear in an archive as: +.sk;.indent 10 +zip30/vms/descrip.mms +.sk +Zip versions before 3.0 down-cased all VMS file names. Now, various +options give the user control over these conversions: +.sk +.lm +10;.literal +-C preserve case of all file names +-C- down-case all file names +-C2 preserve case of ODS2 names +-C2- down-case ODS2 file names (default) +-C5 preserve case of ODS5 names (default) +-C5- down-case ODS5 file names +.end literal;.lm -10 +.sk +Case is handled differently for archive member names, which the user +specifies with the -R, -d, -i, -x, and -U options. By default, on VMS, +archive name pattern matching is case sensitive, even when the file +system is not case sensitive (or even case preserving). This allows +accurate matching of mixed-case names in an archive which may have been +created on a system with a case sensitive file system, but it can +involve extra effort on VMS, where it may be necessary to use unnatural +case names (or the same names in multiple cases, like "*.obj *.OBJ") for +this kind of pattern matching to give the desired behavior. If +completely case-blind pattern matching behavior is desired, specify the +-ic (--ignore-case) option. +.!------------------------------------------------------------------------------ +.indent -4 +2 Fixing_Damage +.br +Two options can be used to fix a damaged Zip archive. +.sk;.literal +-F --fix +-FF --fixfix +.end literal;.sk +The -F (--fix) option can be used if some portions of the archive are +missing, but it requires a reasonably intact central directory. The +input archive is scanned as usual, but zip will ignore some problems. +The resulting archive should be valid, but any inconsistent entries +will be left out. +.sk +If the archive is too damaged or the end (where the central directory is +situated) has been truncated, you must use -FF (--fixfix). This is a +change from zip 2.32, where the -F option is able to read a truncated +archive. The -F option now more reliably fixes archives with minor +damage, and the -FF option is needed to fix archives where -F and -FF +was used before. +.sk +With -FF, the archive is scanned from the beginning and Zip scans for +special signatures to identify the limits between the archive members. +The -F option is more reliable if the archive is not too much damaged, +so try this option first. +.sk +Neither option will recover archives that have been incorrectly +transferred, such as by FTP in ASCII mode instead of binary. After the +repair, the -t option of UnZip may show that some files have a bad CRC. +Such files cannot be recovered; you can remove them from the archive +using the -d option of Zip. +.sk +Because of the uncertainty of the "fixing" process, it's required +to specify an output archive, rather than risking further damage to the +original damaged archive. For example, to fix the damaged archive +foo.zip, +.sk;.indent 10 +zip -F foo --out foo_fix +.sk +tries to read the entries normally, copying good entries to the new +archive foo_fix.zip. If this doesn't work, as when the archive is +truncated, or if some entries are missed because of bad central +directory entries, try -FF: +.sk;.indent 10 +zip -FF foo --out foo_fixfix +.sk +and compare the resulting archive to the archive created using -F. The +-FF option may create an inconsistent archive. Depending on what is +damaged, you can then use the -F option to fix that archive. +.sk +A split archive with missing split files can be fixed using -F if you +have the last split of the archive (the ".zip" file). If this file is +missing, you must use -FF to fix the archive, which will prompt you for +the splits you have. +.sk +Currently, the fix options can't recover an entry which has a bad +checksum or is otherwise damaged. +.!------------------------------------------------------------------------------ +.indent -4 +2 Log_File +.br +Zip normally sends messages to the user's terminal, but these may be +also directed to a log file. +.sk;.literal +-la --log-append +.end literal;.br +Append to an existing log file. Default is to create a new version. +.sk;.literal +-lf logfilepath --logfile-path logfilepath +.end literal;.br +Open a logfile at the given path. By default, a new version will be +created, but with the -la option an existing file will be opened and the +new log information appended to any existing information. Only +warnings and errors are written to the log unless the -li option is also +given, then all information messages are also written to the log. +.sk;.literal +-li --log-info +.end literal;.br +Include information messages, such as file names being zipped, in the +log. The default is to include only the command line, any warnings +and errors, and the final status. +.!------------------------------------------------------------------------------ +.indent -4 +2 Modes_of_Operation +.br +Zip supports two distinct types of command modes, external and +internal. The external modes (update, grow, and freshen) read files +from the file system (as well as from an existing archive) while the +internal modes (delete and copy) operate exclusively on entries in an +existing archive. +.sk;.literal +-u --update +.end literal;.br +Update existing entries and add new files. If the archive does not +exist, create it. This is the default mode, so -u is optional. +.sk;.literal +-g --grow +.end literal;.br +Grow (append to) the specified Zip archive, instead of creating a new +one. If this operation fails, Zip attempts to restore the archive to +its original state. If the restoration fails, the archive might become +corrupted. This option is ignored when there's no existing archive or +when at least one archive member must be updated or deleted. +.sk;.literal +-f --freshen +.end literal;.br +Update existing entries in an existing archive. Does not add new files +to the archive. +.sk;.literal +-d --delete +.end literal;.br +Delete entries from an existing archive. +.sk;.literal +-DF --difference-archive +.end literal;.br +Create an incremental backup-style archive, where the resulting archive +will contain all new and changed files since the original archive was +created. For this to work, the input file list and current directory +must be the same as during the original Zip operation. +.sk +For example, if the existing archive was created using +.sk;.indent 10 +zip foo_full.zip [.foo...]*.* +.sk +from just above the foo directory, then the command (also from just +above the foo directory): +.sk;.indent 10 +zip foo_full.zip [.foo...]*.* -DF -O foo_incr.zip +.sk +creates the archive foo_incr.zip with just the files not in foo_full.zip +and the files where the size or date-time of the files does not match +that in foo_full.zip. Note that in the "zip -DF" operation, the +original full archive is specified as the input archive, and the -O +(--output-file) option is used to specify the new (incremental) output +archive. +.sk;.literal +-FS --filesync +.end literal;.br +Delete entries in the archive that do not match files on the OS. +Normally when an archive is updated, new files are added and changed +files are updated but files that no longer exist on the OS are not +deleted from the archive. This option enables deleting of entries that +are not matched on the OS. Enabling this option should create archives +that are the same as new archives, but since existing entries are copied +instead of compressed, updating an existing archive with -FS can be much +faster than creating a new archive. If few files are being copied from +the old archive, it may be faster to create a new archive instead. +.sk +This option deletes files from the archive. If you need to preserve the +original archive, make a copy of the archive first, or use the -O +(--output) option to output the new archive to a new file. Even though +it's slower, creating a new archive with a new archive name is safer, +avoids mismatches between archive and OS paths, and is preferred. +.sk;.literal +-U --copy-entries +.end literal;.br +Select entries in an existing archive and copy them to a new archive. +Copy mode is like update mode, but entries in the existing archive are +selected by command line patterns rather than files from the file system +and it uses the -O (--output-file) option to write the resulting archive +to a new file rather than updating the existing archive, leaving the +original archive unchanged. +.sk +Normally, when updating an archive using relative file specifications +("[]", "[.xxx]", and so on), it helps to have the same default directory +as when the archive was created, but this is not a strict requirement. +.sk +Date-time information in a Zip archive may be influenced by time zone. +.!------------------------------------------------------------------------------ +.indent -4 +3 Examples +.br +When given the name of an existing archive, Zip will replace identically +named entries in the archive or add entries for new names. For example, +if foo.zip exists and contains foo/file1 and foo/file2, and the +directory [.foo] contains the files file1 and file3, then: +.sk;.indent 10 +$ zip foo [.foo...]*.* +.sk +will replace foo/file1 in foo.zip and add foo/file3 to foo.zip. After +this, foo.zip contains foo/file1, foo/file2, and foo/file3, with foo/file2 +unchanged from before. This is the default mode -u (update). +.sk +Update will add new entries to the archive and will replace +existing entries only if the modified date of the file is more recent than +the date recorded for that name in the archive. For example: +.sk;.indent 10 +$ zip -u stuff *.* +.sk +will add any new files in the current directory, and update any changed +files in the archive stuff.zip. Note that Zip will not try to pack +stuff.zip into itself when you do this. Zip avoids including its own +output files when selecting files to include in the archive, so it +should be safe, as in this case, to have the archive included in the +list of input files. +.sk +A second mode, -f (freshen), like update will only +replace entries with newer files. Unlike update, however, it will not +add files that are not already in the archive. For example: +.sk;.indent 10 +$ zip -f foo +.sk +Note that the -f option with no arguments freshens all the entries in the +archive. The same is true of -u, so "zip -u foo" and "zip -f foo" do +the same thing. +.sk +When these options are used, Zip should be run from the same directory +as when the original Zip command was run, so that the path names in the +archive will continue to agree with the path names in the file system. +Normally, it's also a good idea to keep the other options the same (-V, +-w, and the like), to keep the archive contents consistent. +.sk +The -t (--from-date) and -tt (--before-date) options can also be used +with adding, updating, or freshening to restrict further the files to be +included in the archive. For example: +.sk;.indent 10 +$ zip -rt 12071991 infamy [.FOO]*.* +.sk +will add all the files in [.FOO] and its subdirectories that were last +modified on December 7, 1991, or later to the achive infamy.zip. Dates +can be in format mmddyyyy or yyyy-mm-dd. +.sk +Also, files can be explicitly excluded using the -x option: +.sk;.indent 10 +$ zip -r foo [.FOO] -x *.obj +.sk +which will zip up the contents of [.FOO] into foo.zip but exclude all the +files that end in ".obj". +.sk +The -d (delete) mode will remove entries from an +archive. An example might be: +.sk;.indent 10 +$ zip -d foo foo/harry/*.* *.obj +.sk +which will remove all of the files that start with "foo/harry/" and all of +the files that end with ".obj" (in any path). +.sk +The last mode, -U (--copy-entries), selects entries from an existing +archive and copies them to a new archive. +.sk;.indent 10 +$ zip -U foo *.obj --out fooobj +.sk +will copy all .obj entries from foo.zip and put them in the new archive +fooobj.zip. +.sk +Note: By default, on VMS, archive name pattern matching (-R, -d, -i, -x, +and -U) is case sensitive, even when the file system is not case +sensitive (or even case preserving). This allows accurate matching of +mixed-case names in an archive which may have been created on a system +with a case sensitive file system, but it can involve extra effort on +VMS, where it may be necessary to use unnatural case names (or the same +names in multiple cases, like "*.obj *.OBJ") for this kind of pattern +matching to give the desired behavior. If completely case-blind pattern +matching behavior is desired, specify the -ic (--ignore-case) option. +.!------------------------------------------------------------------------------ +.indent -4 +2 Options_List +.br +"zip -h" provides a concise list of common command-line options. "zip +-h2" provides more details. "zip -so" provides a list of all available +options. "zip -v" shows the program version and available features. +(The list below was derived from a "zip -so" listing.) +.sk +Short-form options begin with a single hyphen ("-"). Long-form option +begin with a double hyphen ("--"), and may be abbreviated to any +unambiguous shorter string. For example: +.lm +10;.literal +-v +--verbose +--verb +.end literal;.lm -10 +.sk +To avoid confusion, if a negatable option contains an embedded hyphen +("-"), then avoid abbreviating it at the hyphen if you plan to negate +it. For example, if an option like --some-option were abbreviated to +--some-, the parser would consider that trailing hyphen to be part of +the option name, rather than as a negating trailing hyphen. This +behavior may change in the future, to interpret the trailing hyphen in +--some- to be negating. (So don't do it.) +.sk +Some options may be negated (or modified) by appending a "-": +.lm +10;.literal +-la- +--show-files- +.end literal;.lm -10 +.sk +Some options take a value, which may immediately follow the option, or +be separated by a space or "=". For example: +.lm +10;.literal +-ttmmddyyyy +-tt mmddyyyy +-tt=mmddyyyy +.end literal;.lm -10 +.sk +.lm -4;.literal + Sh Long Description +----+-------------------+-------------------------------------------------- + 0 store store (instead of compress) + 1 compress-1 compress faster (-2, -3, -4, ...) + 9 compress-9 compress better + ? show the Zip help screen + @ names-stdin read input file patterns from SYS$INPUT (1/line) + A adjust-sfx adjust self-extracting executable + b temp-path path use "path" directory for temporary files + C preserve-case preserve case of all file names added to archive + C- preserve-case- down-case all file names added to archive + C2 preserve-case-2 preserve case of ODS2 names added to archive + C2- preserve-case-2- down-case ODS2 file added to archive (default) + C5 preserve-case-5 preserve case of ODS5 names added to archive (dflt) + C5- preserve-case-5- down-case ODS5 names added to archive + c entry-comments add a comment for each entry added to archive + D no-dir-entries do not add archive entries for directories + DF difference-archive difference archive: add only changed or new files + d delete delete entries in archive + db display-bytes display running byte counts + dc display-counts display running file counts + dd display-dots display progress dots for files (dflt size = 10MB) + dg display-globaldots display progress dots for archive, not each file + ds dot-size size set progress dot interval to "size" (MB) + du display-usize display original uncompressed size for entries + dv display-volume display volume (disk) number as in_disk>out_disk + e encrypt encrypt entries, ask for password + F fix fix mostly intact archive (try F before FF) + FF fixfix salvage what can be salvaged (not as reliable) + FS filesync remove archive entries unmatched in file system + f freshen update existing entries (only changed files) + fd force-descriptors force data descriptors as if streaming + fz force-zip64 force use of Zip64 format + g grow grow existing archive (unless updating or deleting) + H show the Zip help screen + h help show the Zip help screen + h2 more-help show extended Zip help + i include pat1 [pat2 [...]] include only names matching the patterns + ic ignore-case ignore case (case-blind archive entry name matching) + J junk-sfx junk (remove) archive preamble (unzipsfx) + j junk-paths junk (don't store) directory names, only file names + k DOS-names simulate PKZIP-made archive (DOS 8.3 names) + L license show software license + l to-crlf translate end-of-lines (LF -> CRLF) + la log-append append to existing log file + lf logfile-path lfile log to log file at lfile (default: new version) + li log-info include informational messages in log + ll from-crlf translate end-of-lines (CRLF -> LF) + MM must-match input file spec must exist (wildcards must match) + m move delete files added to archive + n suffixes sfx1[:sfx2[...]] don't compress files with these suffixes + nw no-wild no wildcards during add or update + O output-file ozf use "ozf" as the output archive (dflt = inp archive) + o latest-time set archive date-time to match oldest entry + P password password encrypt with supplied "password" string + q quiet quiet operation (no info messages) + R recurse-patterns recurse into subdirs from cur dir, match names only + r recurse-paths recurse into directories from specified path pats + s split-size size split archive at "size" (K/MB) (0: don't split) + sb split-bell ring terminal bell at pause for split medium change + sc show-command show command line + sd show-debug show debug messages + sf show-files show files to process (only) + so show-options show list of all command-line options + sp split-pause pause to select split destination(s) + sv split-verbose be verbose about creating splits + T test test archive integrity (runs UnZip -T) + t from-date mmddyyyy only do files since (at or after) "mmddyyyy" + tt before-date mmddyyyy only do files before "mmddyyyy" + u update update changed files, add new files (default mode) + V VMS-portable save VMS file attributes + VV VMS-specific save VMS file attributes and all allocated blocks + v verbose verbose messages (print version info if only arg) + w VMS-versions save VMS version numbers in archive + ww VMS-dot-versions save VMS version numbers as ".nnn", not ";nnn" + X strip-extra strip all but critical extra fields + X- strip-extra- keep all extra fields + x exclude pat1 [pat2 [...]] exclude all names matching the patterns + Z compression-method mthd use compress method "mthd" (bzip2 or deflate) + z archive-comment ask for archive comment +.end literal;.lm +4 +.!------------------------------------------------------------------------------ +.indent -4 +2 Miscellaneous_Options +.sk;.literal +-D --no-dir-entries +.end literal;.br +Do not create entries in the archive for directories. By default, +directory entries are added to an archive, so that their attributes can +be saved in the archive. When an archive is created using -D, UnZip +will still create directories as needed (subject to user control), but +they will get the default attributes (date-time, permissions, ...) on +the destination system, rather than their original atributes. +.sk;.literal +-MM --must-match +.end literal;.br +All input patterns must match at least one file and all input files +found must be readable. Normally when an input pattern does not match +a file the "name not matched" warning is issued and when an input +file has been found but later is missing or not readable a "missing or +not readable" warning is issued. In either case Zip continues +creating the archive, with missing or unreadable new files being skipped +and files already in the archive remaining unchanged. After the +archive is created, if any files were not readable zip returns the OPEN +error code (18 on most systems) instead of the normal success return (0 +on most systems). With -MM, Zip exits as soon as an input pattern +is not matched (whenever the "name not matched" warning would be issued) +or when an input file is not readable. In either case Zip exits with +an OPEN error and no archive is created. +.sk +This option is useful when a known list of files is to be zipped so any +missing or unreadable files should result in an error. It may be less +useful when used with wildcards, but Zip will still exit with an error +if any input pattern doesn't match at least one file or if any +matched files are unreadable. If you want to create the archive anyway +and only need to know if files were skipped, then don't use -MM and just +check the exit status. Also, a log file (see -lf (--logfile-path)) +could be useful. +.sk;.literal +-O out_file --output-file out_file +.end literal;.br +Process the archive changes as usual, but instead of updating the +existing archive, send the output to a new archive, "out_file". The +output archive specified must be a different file from the input +archive. +.sk +This option can be used to create updated split archives. It can +also be used with -U to copy entries from an existing archive to +a new archive. See the EXAMPLES section below. +.sk +Another use is converting zip files from one split size to +another. For instance, to convert an archive with 700MB CD splits +to one with 2GB DVD splits, can use: +.sk;.indent 10 +zip -s 2g cd-split.zip --out dvd-split.zip +.sk +which uses copy mode. See -U below. Also: +.sk;.indent 10 +zip -s 0 split.zip --out unsplit.zip +.sk +will convert a split archive to a single-file archive. +.sk +Copy mode will convert stream entries (using data descriptors and which +may be incompatible with some unzip programs) to normal entries (which +should be compatible with all unzip programs), except if standard +encryption was used. For archives with encrypted entries, zipcloak +will decrypt the entries and convert them to normal entries. +.sk;.literal +-o --latest-time +.end literal;.br +Set the modification date-time of the Zip archive file to the latest +(newest) modification date-time found among the entries in the zip +archive. This can be used without any other operations, if +desired. For example: +.sk;.indent 10 +zip -o foo +.sk +will change the modification date-time of foo.zip to the latest time of +the entries in foo.zip. +.sk;.literal +-q --quiet +.end literal;.br +Quiet mode. Eliminates informational messages and comment prompts. +This mode may be useful in command procedures, or if the Zip operation +is being performed as a background task ("$ spawn/nowait zip -q foo +*.c"). +.sk +.sk;.literal +-T --test +.end literal;.br +Test the integrity of a zip archive (the new one, if -O (--output-file) +is specified). If the check fails, the old zip file is unchanged and +(with the -m option) no input files are removed. +.sk +Implementation +.br +"zip -T" actually runs an "unzip -t" command to do the testing, so UnZip +must be installed properly for this to work. +.sk;.literal +-TT unzip_cmd --unzip-command unzip_cmd +.end literal;.br +Specify the actual UnZip command, "unzip_cmd" (normally a DCL symbol) to +use for "zip -T". This can be useful if multiple versions of UnZip are +installed on a system, and the default DCL symbol "UNZIP" would run the +wrong one (or the logical name DCL$PATH would lead to the wrong one). +.sk +In "unzip_cmd", the string "{}" is replaced by the temporary name of the +archive to be tested, otherwise the name of the archive is appended +to the end of the command. The exit status is checked for success severity. +.sk;.literal +-v --verbose +.end literal;.br +Verbose mode or print diagnostic version info. +.sk +Normally, when applied to real operations, this option enables the +display of a progress indicator during compression (see -dd for more on +dots) and requests verbose diagnostic info about archive structure +oddities. +.sk +When -v is the only command line argument, a diagnostic report is +displayed, showing: +.lm +3;.br;.indent -2 +o Copyright and other legal notices +.br;.indent -2 +o Program name, version, and release date +.br;.indent -2 +o Pointers to Info-ZIP FTP and Web sites +.br;.indent -2 +o Program build information (compiler type and version, OS version, and +the compilation date +.br;.indent -2 +o Optional features enabled at compile-time +.br;.indent -2 +o Environment variable definitions (ZIP_OPTS, ZIPOPT) +.lm -3;.br +.sk +This information should be included in bug reports. +.sk;.literal +-y --symlinks +.end literal;.br +Store symbolic links as such in the Zip archive, instead of compressing +and storing the file referred to by the link. A symbolic link normally +requires less storage than the actual file, both in the archive, and on +the destination file system. +.sk +On VMS, symbolic links are supported on ODS5 disks where the C RTL +supports symbolic links. Full support for symbolic links seems to +require VMS V8.3, but a Zip program supporting symbolic links may be +built on VMS V7.3-2. +.!------------------------------------------------------------------------------ +.indent -4 +2 Progress_Display +.br +Various options control the display of progress messages during Zip +operation. +.sk;.literal +-db --display-bytes +.end literal;.br +Display running byte counts showing the bytes processed and the bytes to +go. +.sk;.literal +-dc --display-counts +.end literal;.br +Display running count of entries processed and entries to go. +.sk;.literal +-dd --display-dots +.end literal;.br +Display dots while each entry is processed (except on ports that have +their own progress indicator). See -ds below for setting dot size. The +default is a dot every 10 MB of input file processed. The -v +(--verbose) option also displays dots and used to at a higher rate than +this (at the same rate as in previous versions of Zip) but this rate has +been changed to the new 10 MB default, and is also controlled by -ds. +.sk;.literal +-dg --display-globaldots +.end literal;.br +Display progress dots for the archive instead of for each file. The +command +.sk;.indent 10 +zip -qdgds 10m +.sk +will turn off most output except dots every 10 MB. +.sk;.literal +-ds size --dot-size size +.end literal;.br +Set amount of input file processed for each dot displayed. See -dd to +enable displaying dots. Setting this option implies -dd. "size" is in +the format "nm" where n is a number and m is a multiplier. Currently +"m" can be k (KB), m (MB), g (GB), or t (TB), so if "n" is 100 and "m" +is k, "size" would be 100k which is 100KB. The default is 10MB. +.sk +The -v (--verbose) option also displays dots and used to default to a +higher rate than this (at the same rate as in previous versions of Zip) +but now the default is 10 MB and the -v dots are also controlled by this +option. A "size" of 0 turns dots off. +.sk +This option does not control the dots from the "Scanning files" message +as Zip scans for input files. The dot size for that is fixed at 2 +seconds or a fixed number of entries, whichever is longer. +.sk;.literal +-du --display-usize +.end literal;.br +Display the uncompressed size of each entry. +.sk;.literal +-dv --display-volume +.end literal;.br +Display the volume (disk) number each entry is being written to. +.!------------------------------------------------------------------------------ +.indent -4 +2 Self_Extracting_Archives +.br +A self-extracting archive (SFX) comprises a normal Zip archive appended +to a special UnZip program (such as UNZIPSFX.EXE) for the intended +target system. +.sk +The UnZip distribution includes a VMS command procedure, +[,vms]makesfx.com, which can be used directly or adapted to create an +SFX archive from a normal Zip archive. +.sk +The .ZIP file format includes offsets to data structures in the archive, +and these offsets are measured from the start of the archive file. +Appending an archive to an UnZip SFX executable effectively moves the +start of the archive file. That makes the original offsets wrong, and +that will cause the UnZip SFX program to emit warning messages when it +tries to unpack the archive. Zip -A can be used to adjust these offsets +in a self-extracting archive. For example, to adjust the offsets in +foo.sfx_exe: +.sk;.indent 10 +zip -A foo.sfx_exe +.sk +Similarly, the UnZip SFX program can be removed from a self-extracting +archive (and the offsets in the archive restored) using the -J +(--junk-sfx) option. For example: +.sk;.indent 10 +zip -J foo.sfx_exe +.sk +Note that a self-extracting archive contains a normal Zip archive, and a +normal UnZip program can be used to expand it in the normal way. You +may get a warning about extra bytes at the beginning of the archive (the +UnZip SFX program), but UnZip should work properly after that. This +allows data in a self-extracting archive to be accessed on any system, +not just the target system where its embedded UnZip SFX program runs. +.!------------------------------------------------------------------------------ +.indent -4 +2 Split_Archives +.br +Beginning with version 3.0, Zip supports split archives. A split +archive is one which is divided into multiple files, usually to allow it +to be stored on multiple storage media (floppy diskettes, CD-ROMs, or +the like) when a single medium would be too small to contain the whole +archive. (Note that split archives are not just unitary archives split +into pieces, as the .ZIP file format includes offsets to data structures +in the archive, and for a split archive these are based on the start of +each split, not on the start of the whole archive. Concatenating the +pieces will invalidate these offsets, but UnZip can usually deal with +it. Zip will usually refuse to process such a spliced archive unless +the -FF fix option is used to fix the offsets.) +.sk +For a split archive with, say, 20 split files, the files are typically +named ARCHIVE.z01, ARCHIVE.z02, ..., ARCHIVE.z19, ARCHIVE.zip, where +"ARCHIVE" is the archive name specified by the user on the Zip command +line. Note that the last split file is the ".zip" file. In contrast, +"spanned" archives are the original multi-disk archive generally +requiring floppy disks and using volume labels to store disk numbers. +Zip supports split archives but not spanned archives, though a procedure +exists for converting split archives of the right size to spanned +archives. The reverse is also true, where each file of a spanned +archive can be copied in order to files with the above names to create a +split archive. +.!------------------------------------------------------------------------------ +.indent -4 +3 Options +.br +Use "-s size" to create a split archive (and to set the split size). +The size is given as a number followed optionally by a multiplier suffix +of k (KB), m (MB, the default if no suffix is specified), g (GB), or t +(TB). (All are powers of 1024, not 1000). 64K is the minimum split +size. For example, the following command could be used to create a +split archive called "foo" from the contents of the "bar" directory with +splits of 670MB, which might be useful for burning on CDs: +.sk;.indent 10 +zip -s 670m foo [.bar...]*.* +.sk +Using -s without -sp as above creates all the splits in the directory +specified by "foo", in this case the current default directory. This +split mode updates the splits as the archive is being created, requiring +all splits to remain writable, but creates split archives that are +readable by any UnZip that supports split archives. See -sp below for +enabling split pause mode which allows splits to be written directly to +removable media. +.sk +The -sv option can be used to enable verbose splitting and display +details of how the splitting is being done. The -sb option can be used +to ring the terminal bell when Zip pauses for the next split +destination. +.sk +The -sp option can be used to pause Zip between splits to allow +changing removable media, for example, but read the descriptions and +warnings for both -s and -sp below. +.sk +Though Zip does not update split archives, Zip provides the option +-O (--output-file) to allow split archives to be updated and saved in a +new archive. For example: +.sk;.indent 10 +zip inarchive.zip foo.c bar.c -O outarchive.zip +.sk +reads archive inarchive.zip, even if split, adds the files foo.c and +bar.c, and writes the resulting archive to outarchive.zip. If +inarchive.zip is split, then outarchive.zip defaults to the same split +size. Be aware that outarchive.zip and any split files that are created +with it are always overwritten without warning. This may be changed in +the future. +.!------------------------------------------------------------------------------ +.indent -4 +2 Temporary_Files +.br +When creating a new archive or normally when changing an existing +archive, Zip will write a temporary file in the archive destination +directory ("ZIxxxxxxxx", where "xxxxxxxx" is the hexadecimal process ID) +with the new contents. Then, if and when the Zip job has completed with +no errors, it will rename the temporary file to the specified archive +name (replacing the old archive, if any). +.sk +You can use the -b (--temp-path) option to specify a different path +(device and/or directory) for the temporary file, but specifying a +different device will force Zip to copy the temporary file to its final +destination instead of simply renaming it, and that copying will take +more time than renaming, especially for a large archive. For example: +.sk;.indent 10 +$ zip -b disk$scratch:[tmp] stuff * +.sk +will cause Zip to put its temporary files in the directory +"disk$scratch:[tmp]", copying the temporary file back to the current +directory as stuff.zip when it's complete. +.!------------------------------------------------------------------------------ +.indent -4 +2 Text_Files +.br +Zip offers some options to help deal with line endings in text files. +These may have limited utility on VMS. +.sk;.literal +-l --to-crlf +.end literal;.br +Translate the UNIX end-of-line character LF (CR on MAC) into the MSDOS +convention CR-LF. This option should not be used on binary files. This +option can be used on UNIX if the Zip file is intended for PKUNZIP under +MSDOS. If the input files already contain CR-LF, this option adds an +extra CR. This ensure that "unzip -a" on Unix will get back an exact +copy of the original file, to undo the effect of "zip -l". See -ll +below for the binary checks. +.sk;.literal +-ll --from-crlf +.end literal;.br +Translate the MSDOS end-of-line CR LF into UNIX LF (CR on MAC). This +option should not be used on binary files. This option can be used on +MSDOS if the Zip archive is intended for UnZip under UNIX. +.sk +For both -l and -ll, if the file is converted and the file is later +determined to be binary, a warning is issued and the file is probably +corrupted. If Zip with -l or -ll detects binary (non-text) in the first +buffer read from a file, it issues a warning and skips line-ending +conversion on the file, avoiding corruption. This check seems to catch +all binary files tested, but the original check remains and if a +converted file is later determined to be binary, that warning is still +issued. The algorithm now being used for binary detection should allow +line-ending conversion of text files in UTF-8 and similar encodings. +.!------------------------------------------------------------------------------ +.indent -4 +2 VMS_Specifics +.br +VMS File Attributes +.sk;.literal +-V --VMS-portable +-VV --VMS-specific +.end literal;.br +The -V and -VV options cause Zip to store VMS file atributes (such as +file organization, record format, carriage control, and so on) in +VMS-specific "extra fields" in an archive along with the usual data. +These extra fields are ignored on non-VMS systems, but on a VMS system, +they allow UnZip to restore the files with their VMS attributes intact. +.sk +With -V, Zip ignores any data in the file after the end-of-file (EOF) +point (defined by FAT$L_EFBLK and FAT$W_FFBYTE), which works well for +well-formed files (that is, those with no valid data beyond EOF). +Portable-format files (Stream_LF, fixed-512) archived with -V should be +extracted properly on a non-VMS system. Files with more complex +structures, such as indexed files and files with embedded byte counts +or other such data may be of limited use on other systems. (UnZip on +non-VMS systems may be able to extract various VMS-format text files, +however.) +.sk +With -VV, Zip processes all allocated blocks for the file (including +those beyond EOF). When extracted on a VMS system, the original file +should be reproduced with as much fidelity as possible, but on a non-VMS +system, most files will be seen as corrupt because of the data from +beyond EOF. +.sk +VMS File Version Numbers +.sk;.literal +-w --VMS-versions +-ww --VMS-dot-versions +.end literal;.br +By default, for compatibility with non-VMS systems, Zip strips VMS file +version numbers from the names stored in an archive. The -w +(--VMS-versions) option causes Zip to retain file version numbers on +names in an archive. Without -w, a version number wildcard (";*") can +cause errors when multiple versions of a single file are treated as +multiple files with the same name. +.sk +For better compatibility with non-VMS systems where semi-colons are less +popular in file names, the -ww (--VMS-dot-versions) option stores the +file version numbers with a dot (".nnn") instead of a semi-colon +(";nnn"). +.!------------------------------------------------------------------------------ +.indent -4 +2 Copyright_and_License +.br +Zip has an option to display its copyright and license. +.sk;.literal +-L --license +.end literal;.br +The license is reproduced below. +.sk.lm +3 +This is version 2007-Mar-4 of the Info-ZIP license. The definitive +version of this document should be available at +ftp://ftp.info-zip.org/pub/infozip/license.html indefinitely and a copy +at http://www.info-zip.org/pub/infozip/license.html. +.lm -3;.sk +-------------------------------------------------------- +.sk +Copyright (c) 1990-2007 Info-ZIP. All rights reserved. +.sk +For the purposes of this copyright and license, "Info-ZIP" is defined as +the following set of individuals: +.sk;.lm +3 + Mark Adler, John Bush, Karl Davis, Harald Denker, Jean-Michel Dubois, + Jean-loup Gailly, Hunter Goatley, Ed Gordon, Ian Gorman, Chris Herborth, + Dirk Haase, Greg Hartwig, Robert Heath, Jonathan Hudson, Paul Kienitz, + David Kirschbaum, Johnny Lee, Onno van der Linden, Igor Mandrichenko, + Steve P. Miller, Sergio Monesi, Keith Owens, George Petrov, Greg Roelofs, + Kai Uwe Rommel, Steve Salisbury, Dave Smith, Steven M. Schweda, + Christian Spieler, Cosmin Truta, Antoine Verheijen, Paul von Behren, + Rich Wales, Mike White. +.lm -3;.sk +This software is provided "as is," without warranty of any kind, express +or implied. In no event shall Info-ZIP or its contributors be held +liable for any direct, indirect, incidental, special or consequential +damages arising out of the use of or inability to use this software. +.sk +Permission is granted to anyone to use this software for any purpose, +including commercial applications, and to alter it and redistribute it +freely, subject to the above disclaimer and the following restrictions: +.sk;.lm +7;.indent -4 + 1. Redistributions of source code (in whole or in part) must retain + the above copyright notice, definition, disclaimer, and this list + of conditions. +.sk;.indent -4 + 2. Redistributions in binary form (compiled executables and libraries) + must reproduce the above copyright notice, definition, disclaimer, + and this list of conditions in documentation and/or other materials + provided with the distribution. The sole exception to this condition + is redistribution of a standard UnZipSFX binary (including SFXWiz) as + part of a self-extracting archive; that is permitted without inclusion + of this license, as long as the normal SFX banner has not been removed + from the binary or disabled. +.sk;.indent -4 + 3. Altered versions -- including, but not limited to, ports to new operating + systems, existing ports with new graphical interfaces, versions with + modified or added functionality, and dynamic, shared, or static library + versions not from Info-ZIP -- must be plainly marked as such and must not + be misrepresented as being the original source or, if binaries, + compiled from the original source. Such altered versions also must not + be misrepresented as being Info-ZIP releases -- including, but not + limited to, labeling of the altered versions with the names "Info-ZIP" + (or any variation thereof, including, but not limited to, different + capitalizations), "Pocket UnZip," "WiZ" or "MacZip" without the + explicit permission of Info-ZIP. Such altered versions are further + prohibited from misrepresentative use of the Zip-Bugs or Info-ZIP + e-mail addresses or the Info-ZIP URL(s), such as to imply Info-ZIP + will provide support for the altered versions. +.sk;.indent -4 + 4. Info-ZIP retains the right to use the names "Info-ZIP", "Zip", + "UnZip", "UnZipSFX", "WiZ", "Pocket UnZip", "Pocket Zip", and + "MacZip" for its own source and binary releases. +.lm -7;.sk +.!------------------------------------------------------------------------------ +.indent -4 +2 Acknowledgements +.br + Thanks to R. P. Byrne for his Shrink.Pas program, which + inspired this project, and from which the shrink algorithm + was stolen; to Phil Katz for placing in the public domain + the zip file format, compression format, and .ZIP filename + extension, and for accepting minor changes to the file + format; to Steve Burg for clarifications on the deflate + format; to Haruhiko Okumura and Leonid Broukhis for providing + some useful ideas for the compression algorithm; to + Keith Petersen, Rich Wales, Hunter Goatley and Mark Adler + for providing a mailing list and ftp site for the Info-ZIP + group to use; and most importantly, to the Info-ZIP group + itself (listed in the file infozip.who) without whose + tireless testing and bug-fixing efforts a portable zip + would not have been possible. Finally we should thank + (blame) the first Info-ZIP moderator, David Kirschbaum, + for getting us into this mess in the first place. +.!------------------------------------------------------------------------------ +.indent -4 +2 Bugs +.br +All bug reports, patches, or suggestions should go to zip-bugs via the +web site contact form at http://www.Info-ZIP.org. Patches should be +sent as unified or context diffs only (diff -u or diff -c). +.sk +Any bug report should include the Zip version, any special compilation +options (see "zip -v" report), the host system type and operating system +version, and any other relevant information (compiler version, lunar +phase, ...). +.!------------------------------------------------------------------------------ diff --git a/vms/build_zip.com b/vms/build_zip.com new file mode 100644 index 0000000..7bbe13d --- /dev/null +++ b/vms/build_zip.com @@ -0,0 +1,690 @@ +$! BUILD_ZIP.COM +$! +$! Build procedure for VMS versions of Zip. +$! +$! last revised: 2007-03-15 SMS. +$! +$! Command arguments: +$! - suppress help file processing: "NOHELP" +$! - suppress message file processing: "NOMSG" +$! - select link-only: "LINK" +$! - select compiler environment: "VAXC", "DECC", "GNUC" +$! - select large-file support: "LARGE" +$! - select compiler listings: "LIST" Note that the whole argument +$! is added to the compiler command, so more elaborate options +$! like "LIST/SHOW=ALL" (quoted or space-free) may be specified. +$! - supply additional compiler options: "CCOPTS=xxx" Allows the +$! user to add compiler command options like /ARCHITECTURE or +$! /[NO]OPTIMIZE. For example, CCOPTS=/ARCH=HOST/OPTI=TUNE=HOST +$! or CCOPTS=/DEBUG/NOOPTI. These options must be quoted or +$! space-free. +$! - supply additional linker options: "LINKOPTS=xxx" Allows the +$! user to add linker command options like /DEBUG or /MAP. For +$! example: LINKOPTS=/DEBUG or LINKOPTS=/MAP/CROSS. These options +$! must be quoted or space-free. Default is +$! LINKOPTS=/NOTRACEBACK, but if the user specifies a LINKOPTS +$! string, /NOTRACEBACK will not be included unless specified by +$! the user. +$! - select installation of CLI interface version of zip: +$! "VMSCLI" or "CLI" +$! - force installation of UNIX interface version of zip +$! (override LOCAL_ZIP environment): "NOVMSCLI" or "NOCLI" +$! - select BZIP2 support: "IZ_BZIP2=dev:[dir]", where "dev:[dir]" +$! (or a suitable logical name) tells where to find "bzlib.h". +$! The BZIP2 object library (LIBBZ2_NS.OLB) is expected to be in +$! a "[.dest]" directory under that one ("dev:[dir.ALPHAL]", for +$! example), or in that directory itself. +$! +$! To specify additional options, define the global symbol +$! LOCAL_ZIP as a comma-separated list of the C macros to be +$! defined, and then run BUILD_ZIP.COM. For example: +$! +$! $ LOCAL_ZIP == "VMS_IM_EXTRA" +$! $ @ [.VMS]BUILD_ZIP.COM +$! +$! Valid VMS-specific options include VMS_PK_EXTRA and VMS_IM_EXTRA. +$! See the INSTALL file for other options. (VMS_PK_EXTRA is the +$! default.) +$! +$! If editing this procedure to set LOCAL_ZIP, be sure to use only +$! one "=", to avoid affecting other procedures. For example: +$! $ LOCAL_ZIP = "VMS_IM_EXTRA" +$! +$! Note: This command procedure always generates both the "default" +$! Zip having the UNIX style command interface and the "VMSCLI" Zip +$! having the CLI compatible command interface. There is no need to +$! add "VMSCLI" to the LOCAL_ZIP symbol. (The only effect of +$! "VMSCLI" now is the selection of the CLI style Zip executable in +$! the foreign command definition.) +$! +$! +$ on error then goto error +$ on control_y then goto error +$ OLD_VERIFY = f$verify( 0) +$! +$ edit := edit ! override customized edit commands +$ say := write sys$output +$! +$!##################### Read settings from environment ######################## +$! +$ if (f$type( LOCAL_ZIP) .eqs. "") +$ then +$ LOCAL_ZIP = "" +$ else ! Trim blanks and append comma if missing +$ LOCAL_ZIP = f$edit( LOCAL_ZIP, "TRIM") +$ if (f$extract( f$length( LOCAL_ZIP)- 1, 1, LOCAL_ZIP) .nes. ",") +$ then +$ LOCAL_ZIP = LOCAL_ZIP + "," +$ endif +$ endif +$! +$! Check for the presence of "VMSCLI" in LOCAL_ZIP. If yes, we will +$! define the foreign command for "zip" to use the executable +$! containing the CLI interface. +$! +$ len_local_zip = f$length( LOCAL_ZIP) +$! +$ pos_cli = f$locate( "VMSCLI", LOCAL_ZIP) +$ if (pos_cli .ne. len_local_zip) +$ then +$ CLI_IS_DEFAULT = 1 +$ ! Remove "VMSCLI" macro from LOCAL_ZIP. The Zip executable +$ ! including the CLI interface is now created unconditionally. +$ LOCAL_ZIP = f$extract( 0, pos_cli, LOCAL_ZIP)+ - + f$extract( pos_cli+7, len_local_zip- (pos_cli+ 7), LOCAL_ZIP) +$ else +$ CLI_IS_DEFAULT = 0 +$ endif +$ delete /symbol /local pos_cli +$! +$! Check for the presence of "VMS_IM_EXTRA" in LOCAL_ZIP. If yes, we +$! will (later) add "I" to the destination directory name. +$! +$ desti = "" +$ pos_im = f$locate( "VMS_IM_EXTRA", LOCAL_ZIP) +$ if (pos_im .ne. len_local_zip) +$ then +$ desti = "I" +$ endif +$! +$ delete /symbol /local len_local_zip +$! +$!##################### Customizing section ############################# +$! +$ zipx_unx = "ZIP" +$ zipx_cli = "ZIP_CLI" +$! +$ CCOPTS = "" +$ IZ_BZIP2 = "" +$ LINKOPTS = "/notraceback" +$ LINK_ONLY = 0 +$ LISTING = " /nolist" +$ LARGE_FILE = 0 +$ MAKE_HELP = 1 +$ MAKE_MSG = 1 +$ MAY_USE_DECC = 1 +$ MAY_USE_GNUC = 0 +$! +$! Process command line parameters requesting optional features. +$! +$ arg_cnt = 1 +$ argloop: +$ current_arg_name = "P''arg_cnt'" +$ curr_arg = f$edit( 'current_arg_name', "UPCASE") +$ if (curr_arg .eqs. "") then goto argloop_out +$! +$ if (f$extract( 0, 5, curr_arg) .eqs. "CCOPT") +$ then +$ opts = f$edit( curr_arg, "COLLAPSE") +$ eq = f$locate( "=", opts) +$ CCOPTS = f$extract( (eq+ 1), 1000, opts) +$ goto argloop_end +$ endif +$! +$ if f$extract( 0, 7, curr_arg) .eqs. "IZ_BZIP" +$ then +$ opts = f$edit( curr_arg, "COLLAPSE") +$ eq = f$locate( "=", opts) +$ IZ_BZIP2 = f$extract( (eq+ 1), 1000, opts) +$ goto argloop_end +$ endif +$! +$ if (f$extract( 0, 5, curr_arg) .eqs. "LARGE") +$ then +$ LARGE_FILE = 1 +$ goto argloop_end +$ endif +$! +$ if (f$extract( 0, 7, curr_arg) .eqs. "LINKOPT") +$ then +$ opts = f$edit( curr_arg, "COLLAPSE") +$ eq = f$locate( "=", opts) +$ LINKOPTS = f$extract( (eq+ 1), 1000, opts) +$ goto argloop_end +$ endif +$! +$! Note: LINK test must follow LINKOPTS test. +$! +$ if (f$extract( 0, 4, curr_arg) .eqs. "LINK") +$ then +$ LINK_ONLY = 1 +$ goto argloop_end +$ endif +$! +$ if (f$extract( 0, 4, curr_arg) .eqs. "LIST") +$ then +$ LISTING = "/''curr_arg'" ! But see below for mods. +$ goto argloop_end +$ endif +$! +$ if (curr_arg .eqs. "NOHELP") +$ then +$ MAKE_HELP = 0 +$ goto argloop_end +$ endif +$! +$ if (curr_arg .eqs. "NOMSG") +$ then +$ MAKE_MSG = 0 +$ goto argloop_end +$ endif +$! +$ if (curr_arg .eqs. "VAXC") +$ then +$ MAY_USE_DECC = 0 +$ MAY_USE_GNUC = 0 +$ goto argloop_end +$ endif +$! +$ if (curr_arg .eqs. "DECC") +$ then +$ MAY_USE_DECC = 1 +$ MAY_USE_GNUC = 0 +$ goto argloop_end +$ endif +$! +$ if (curr_arg .eqs. "GNUC") +$ then +$ MAY_USE_DECC = 0 +$ MAY_USE_GNUC = 1 +$ goto argloop_end +$ endif +$! +$ if ((curr_arg .eqs. "VMSCLI") .or. (curr_arg .eqs. "CLI")) +$ then +$ CLI_IS_DEFAULT = 1 +$ goto argloop_end +$ endif +$! +$ if ((curr_arg .eqs. "NOVMSCLI") .or. (curr_arg .eqs. "NOCLI")) +$ then +$ CLI_IS_DEFAULT = 0 +$ goto argloop_end +$ endif +$! +$ say "Unrecognized command-line option: ''curr_arg'" +$ goto error +$! +$ argloop_end: +$ arg_cnt = arg_cnt + 1 +$ goto argloop +$ argloop_out: +$! +$ if (CLI_IS_DEFAULT) +$ then +$ ZIPEXEC = zipx_cli +$ else +$ ZIPEXEC = zipx_unx +$ endif +$! +$!####################################################################### +$! +$! Find out current disk, directory, compiler and options +$! +$ workdir = f$environment( "default") +$ here = f$parse( workdir, , , "device")+ f$parse( workdir, , , "directory") +$! +$! Sense the host architecture (Alpha, Itanium, or VAX). +$! +$ if (f$getsyi( "HW_MODEL") .lt. 1024) +$ then +$ arch = "VAX" +$ else +$ if (f$getsyi( "ARCH_TYPE") .eq. 2) +$ then +$ arch = "ALPHA" +$ else +$ if (f$getsyi( "ARCH_TYPE") .eq. 3) +$ then +$ arch = "IA64" +$ else +$ arch = "unknown_arch" +$ endif +$ endif +$ endif +$! +$ dest = arch +$ cmpl = "DEC/Compaq/HP C" +$ opts = "" +$ if (arch .nes. "VAX") +$ then +$ HAVE_DECC_VAX = 0 +$ USE_DECC_VAX = 0 +$! +$ if (MAY_USE_GNUC) +$ then +$ say "GNU C is not supported for ''arch'." +$ say "You must use DEC/Compaq/HP C to build Zip." +$ goto error +$ endif +$! +$ if (.not. MAY_USE_DECC) +$ then +$ say "VAX C is not supported for ''arch'." +$ say "You must use DEC/Compaq/HP C to build Zip." +$ goto error +$ endif +$! +$ cc = "cc /standard = relax /prefix = all /ansi" +$ defs = "''LOCAL_ZIP' VMS" +$ if (LARGE_FILE .ne. 0) +$ then +$ defs = "LARGE_FILE_SUPPORT, ''defs'" +$ endif +$ else +$ if (LARGE_FILE .ne. 0) +$ then +$ say "LARGE_FILE_SUPPORT is not available on VAX." +$ LARGE_FILE = 0 +$ endif +$ HAVE_DECC_VAX = (f$search( "SYS$SYSTEM:DECC$COMPILER.EXE") .nes. "") +$ HAVE_VAXC_VAX = (f$search( "SYS$SYSTEM:VAXC.EXE") .nes. "") +$ MAY_HAVE_GNUC = (f$trnlnm( "GNU_CC") .nes. "") +$ if (HAVE_DECC_VAX .and. MAY_USE_DECC) +$ then +$ ! We use DECC: +$ USE_DECC_VAX = 1 +$ cc = "cc /decc /prefix = all" +$ defs = "''LOCAL_ZIP' VMS" +$ else +$ ! We use VAXC (or GNU C): +$ USE_DECC_VAX = 0 +$ defs = "''LOCAL_ZIP' VMS" +$ if ((.not. HAVE_VAXC_VAX .and. MAY_HAVE_GNUC) .or. MAY_USE_GNUC) +$ then +$ cc = "gcc" +$ opts = "GNU_CC:[000000]GCCLIB.OLB /LIBRARY," +$ dest = "''dest'G" +$ cmpl = "GNU C" +$ else +$ if (HAVE_DECC_VAX) +$ then +$ cc = "cc /vaxc" +$ else +$ cc = "cc" +$ endif +$ dest = "''dest'V" +$ cmpl = "VAC C" +$ endif +$ opts = "''opts' SYS$DISK:[.''dest']VAXCSHR.OPT /OPTIONS," +$ endif +$ endif +$! +$! Change the destination directory, according to the VMS_IM_EXTRA and +$! large-file options. Set the bzip2 directory. +$! +$ dest = dest+ desti +$ seek_bz = arch +$ if (LARGE_FILE .ne. 0) +$ then +$ dest = dest+ "L" +$ seek_bz = seek_bz+ "L" +$ endif +$! +$! If BZIP2 support was selected, find the object library. +$! Complain if things fail. +$! +$ cc_incl = "[]" +$ incl_bzip2_m = "" +$ lib_bzip2_opts = "" +$ if (IZ_BZIP2 .nes. "") +$ then +$ bz2_olb = "LIBBZ2_NS.OLB" +$ define incl_bzip2 'IZ_BZIP2' +$ defs = "''defs', BZIP2_SUPPORT" +$ @ [.VMS]FIND_BZIP2_LIB.COM 'IZ_BZIP2' 'seek_bz' 'bz2_olb' lib_bzip2 +$ if (f$trnlnm( "lib_bzip2") .eqs. "") +$ then +$ say "Can't find BZIP2 object library. Can't link." +$ goto error +$ else +$ say "BZIP2 dir = ''f$trnlnm( "lib_bzip2")'" +$ incl_bzip2_m = ", ZBZ2ERR" +$ lib_bzip2_opts = "lib_bzip2:''bz2_olb' /library, " +$ cc_incl = cc_incl+ ", [.VMS]" +$ endif +$ endif +$! +$! Reveal the plan. If compiling, set some compiler options. +$! +$ if (LINK_ONLY) +$ then +$ say "Linking on ''arch' for ''cmpl'." +$ else +$ say "Compiling on ''arch' using ''cmpl'." +$! +$ DEF_UNX = "/define = (''defs')" +$ DEF_CLI = "/define = (''defs', VMSCLI)" +$ DEF_UTIL = "/define = (''defs', UTIL)" +$ endif +$! +$! If [.'dest'] does not exist, either complain (link-only) or make it. +$! +$ if (f$search( "''dest'.DIR;1") .eqs. "") +$ then +$ if (LINK_ONLY) +$ then +$ say "Can't find directory ""[.''dest']"". Can't link." +$ goto error +$ else +$ create /directory [.'dest'] +$ endif +$ endif +$! +$ if (.not. LINK_ONLY) +$ then +$! +$! Arrange to get arch-specific list file placement, if LISTING, and if +$! the user didn't specify a particular "/LIST =" destination. +$! +$ L = f$edit( LISTING, "COLLAPSE") +$ if ((f$extract( 0, 5, L) .eqs. "/LIST") .and. - + (f$extract( 4, 1, L) .nes. "=")) +$ then +$ LISTING = " /LIST = [.''dest']"+ f$extract( 5, 1000, LISTING) +$ endif +$! +$! Define compiler command. +$! +$ cc = cc+ " /include = (''cc_incl')"+ LISTING+ CCOPTS +$! +$ endif +$! +$! Define linker command. +$! +$ link = "link ''LINKOPTS'" +$! +$! Make a VAXCRTL options file for GNU C or VAC C, if needed. +$! +$ if ((opts .nes. "") .and. - + (f$locate( "VAXCSHR", f$edit( opts, "UPCASE")) .lt. f$length( opts)) .and. - + (f$search( "[.''dest']VAXCSHR.OPT") .eqs. "")) +$ then +$ open /write opt_file_ln [.'dest']VAXCSHR.OPT +$ write opt_file_ln "SYS$SHARE:VAXCRTL.EXE /SHARE" +$ close opt_file_ln +$ endif +$! +$! Show interesting facts. +$! +$ say " architecture = ''arch' (destination = [.''dest'])" +$ if (.not. LINK_ONLY) +$ then +$ say " cc = ''cc'" +$ endif +$ say " link = ''link'" +$ if (.not. MAKE_HELP) +$ then +$ say " Not making new help files." +$ endif +$ say "" +$ if (.not. MAKE_MSG) +$ then +$ say " Not making new message files." +$ endif +$ say "" +$! +$ tmp = f$verify( 1) ! Turn echo on to see what's happening. +$! +$!-------------------------------- Zip section ------------------------------- +$! +$ if (.not. LINK_ONLY) +$ then +$! +$! Process the help file, if desired. +$! +$ if (MAKE_HELP) +$ then +$ runoff /out = ZIP.HLP [.VMS]VMS_ZIP.RNH +$ endif +$! +$! Process the message file, if desired. +$! +$ if (MAKE_MSG) +$ then +$! +$! Create the message source file first, if it's not found. +$! +$ if (f$search( "[.VMS]ZIP_MSG.MSG") .eqs. "") +$ then +$ cc /include = [] /object = [.'dest']VMS_MSG_GEN.OBJ - + [.VMS]VMS_MSG_GEN.C +$ link /executable = [.'dest']VMS_MSG_GEN.EXE - + [.'dest']VMS_MSG_GEN.OBJ +$ create /fdl = [.VMS]STREAM_LF.FDL [.VMS]ZIP_MSG.MSG +$ define /user_mode sys$output [.VMS]ZIP_MSG.MSG +$ run [.'dest']VMS_MSG_GEN.EXE +$ purge [.VMS]ZIP_MSG.MSG +$ delete [.'dest']VMS_MSG_GEN.EXE;*, - + [.'dest']VMS_MSG_GEN.OBJ;* +$ endif +$! +$ message /object = [.'dest']ZIP_MSG.OBJ /nosymbols - + [.VMS]ZIP_MSG.MSG +$ link /shareable = [.'dest']ZIP_MSG.EXE [.'dest']ZIP_MSG.OBJ +$ endif +$! +$! Compile the sources. +$! +$ cc 'DEF_UNX' /object = [.'dest']ZIP.OBJ ZIP.C +$ cc 'DEF_UNX' /object = [.'dest']CRC32.OBJ CRC32.C +$ cc 'DEF_UNX' /object = [.'dest']CRYPT.OBJ CRYPT.C +$ cc 'DEF_UNX' /object = [.'dest']DEFLATE.OBJ DEFLATE.C +$ cc 'DEF_UNX' /object = [.'dest']FILEIO.OBJ FILEIO.C +$ cc 'DEF_UNX' /object = [.'dest']GLOBALS.OBJ GLOBALS.C +$ cc 'DEF_UNX' /object = [.'dest']TREES.OBJ TREES.C +$ cc 'DEF_UNX' /object = [.'dest']TTYIO.OBJ TTYIO.C +$ cc 'DEF_UNX' /object = [.'dest']UTIL.OBJ UTIL.C +$ cc 'DEF_UNX' /object = [.'dest']ZBZ2ERR.OBJ ZBZ2ERR.C +$ cc 'DEF_UNX' /object = [.'dest']ZIPFILE.OBJ ZIPFILE.C +$ cc 'DEF_UNX' /object = [.'dest']ZIPUP.OBJ ZIPUP.C +$ cc /include = [] 'DEF_UNX' /object = [.'dest']VMS.OBJ - + [.VMS]VMS.C +$ cc /include = [] 'DEF_UNX' /object = [.'dest']VMSMUNCH.OBJ - + [.VMS]VMSMUNCH.C +$ cc /include = [] 'DEF_UNX' /object = [.'dest']VMSZIP.OBJ - + [.VMS]VMSZIP.C +$! +$! Create the object library. +$! +$ if (f$search( "[.''dest']ZIP.OLB") .eqs. "") then - + libr /object /create [.'dest']ZIP.OLB +$! +$ libr /object /replace [.'dest']ZIP.OLB - + [.'dest']CRC32.OBJ, - + [.'dest']CRYPT.OBJ, - + [.'dest']DEFLATE.OBJ, - + [.'dest']FILEIO.OBJ, - + [.'dest']GLOBALS.OBJ, - + [.'dest']TREES.OBJ, - + [.'dest']TTYIO.OBJ, - + [.'dest']UTIL.OBJ, - + [.'dest']ZBZ2ERR.OBJ, - + [.'dest']ZIPFILE.OBJ, - + [.'dest']ZIPUP.OBJ, - + [.'dest']VMS.OBJ, - + [.'dest']VMSMUNCH.OBJ, - + [.'dest']VMSZIP.OBJ +$! +$ endif +$! +$! Link the executable. +$! +$ link /executable = [.'dest']'ZIPX_UNX'.EXE - + [.'dest']ZIP.OBJ, - + [.'dest']ZIP.OLB /include = (GLOBALS 'incl_bzip2_m') /library, - + 'lib_bzip2_opts' - + 'opts' - + SYS$DISK:[.VMS]ZIP.OPT /options +$! +$!------------------------ Zip (CLI interface) section ----------------------- +$! +$ if (.not. LINK_ONLY) +$ then +$! +$! Process the CLI help file, if desired. +$! +$ if (MAKE_HELP) +$ then +$ set default [.VMS] +$ edit /tpu /nosection /nodisplay /command = cvthelp.tpu - + zip_cli.help +$ set default [-] +$ runoff /output = ZIP_CLI.HLP [.VMS]ZIP_CLI.RNH +$ endif +$! +$! Compile the CLI sources. +$! +$ cc 'DEF_CLI' /object = [.'dest']ZIPCLI.OBJ ZIP.C +$ cc /include = [] 'DEF_CLI' /object = [.'dest']CMDLINE.OBJ - + [.VMS]CMDLINE.C +$! +$! Create the command definition object file. +$! +$ set command /object = [.'dest']ZIP_CLI.OBJ [.VMS]ZIP_CLI.CLD +$! +$! Create the CLI object library. +$! +$ if (f$search( "[.''dest']ZIPCLI.OLB") .eqs. "") then - + libr /object /create [.'dest']ZIPCLI.OLB +$! +$ libr /object /replace [.'dest']ZIPCLI.OLB - + [.'dest']ZIPCLI.OBJ, - + [.'dest']CMDLINE.OBJ, - + [.'dest']ZIP_CLI.OBJ +$! +$ endif +$! +$! Link the CLI executable. +$! +$ link /executable = [.'dest']'ZIPX_CLI'.EXE - + [.'dest']ZIPCLI.OBJ, - + [.'dest']ZIPCLI.OLB /library, - + [.'dest']ZIP.OLB /include = (GLOBALS 'incl_bzip2_m') /library, - + 'lib_bzip2_opts' - + 'opts' - + SYS$DISK:[.VMS]ZIP.OPT /options +$! +$!--------------------------- Zip utilities section -------------------------- +$! +$ if (.not. LINK_ONLY) +$ then +$! +$! Compile the variant Zip utilities library sources. +$! +$ cc 'DEF_UTIL' /object = [.'dest']CRC32_.OBJ CRC32.C +$ cc 'DEF_UTIL' /object = [.'dest']CRYPT_.OBJ CRYPT.C +$ cc 'DEF_UTIL' /object = [.'dest']FILEIO_.OBJ FILEIO.C +$ cc 'DEF_UTIL' /object = [.'dest']UTIL_.OBJ UTIL.C +$ cc 'DEF_UTIL' /object = [.'dest']ZIPFILE_.OBJ ZIPFILE.C +$ cc 'DEF_UTIL' /include = [] /object = [.'dest']VMS_.OBJ [.VMS]VMS.C +$! +$! Create the Zip utilities object library. +$! +$ if f$search( "[.''dest']ZIPUTILS.OLB") .eqs. "" then - + libr /object /create [.'dest']ZIPUTILS.OLB +$! +$ libr /object /replace [.'dest']ZIPUTILS.OLB - + [.'dest']CRC32_.OBJ, - + [.'dest']CRYPT_.OBJ, - + [.'dest']FILEIO_.OBJ, - + [.'dest']GLOBALS.OBJ, - + [.'dest']TTYIO.OBJ, - + [.'dest']UTIL_.OBJ, - + [.'dest']ZIPFILE_.OBJ, - + [.'dest']VMS_.OBJ, - + [.'dest']VMSMUNCH.OBJ +$! +$! Compile the Zip utilities main program sources. +$! +$ cc 'DEF_UTIL' /object = [.'dest']ZIPCLOAK.OBJ ZIPCLOAK.C +$ cc 'DEF_UTIL' /object = [.'dest']ZIPNOTE.OBJ ZIPNOTE.C +$ cc 'DEF_UTIL' /object = [.'dest']ZIPSPLIT.OBJ ZIPSPLIT.C +$! +$ endif +$! +$! Link the Zip utilities executables. +$! +$ link /executable = [.'dest']ZIPCLOAK.EXE - + [.'dest']ZIPCLOAK.OBJ, - + [.'dest']ZIPUTILS.OLB /include = (GLOBALS) /library, - + 'opts' - + SYS$DISK:[.VMS]ZIP.OPT /options +$! +$ link /executable = [.'dest']ZIPNOTE.EXE - + [.'dest']ZIPNOTE.OBJ, - + [.'dest']ZIPUTILS.OLB /include = (GLOBALS) /library, - + 'opts' - + SYS$DISK:[.VMS]ZIP.OPT /OPTIONS +$! +$ LINK /EXECUTABLE = [.'DEST']ZIPSPLIT.EXE - + [.'DEST']ZIPSPLIT.OBJ, - + [.'DEST']ZIPUTILS.OLB /INCLUDE = (globals) /LIBRARY, - + 'opts' - + SYS$DISK:[.VMS]ZIP.OPT /options +$! +$!----------------------- Logical name removal section ----------------------- +$! +$ if (IZ_BZIP2 .nes. "") +$ then +$ if (f$trnlnm( "incl_bzip2", "LNM$PROCESS_TABLE") .nes. "") +$ then +$ deassign incl_bzip2 +$ endif +$ if (f$trnlnm( "lib_bzip2", "LNM$PROCESS_TABLE") .nes. "") +$ then +$ deassign lib_bzip2 +$ endif +$ endif +$! +$!------------------------------ Symbols section ----------------------------- +$! +$ there = here- "]"+ ".''dest']" +$! +$! Define the foreign command symbols. Similar commands may be useful +$! in SYS$MANAGER:SYLOGIN.COM and/or users' LOGIN.COM. +$! +$ zip == "$''there'''ZIPEXEC'.exe" +$ zipcloak == "$''there'zipcloak.exe" +$ zipnote == "$''there'zipnote.exe" +$ zipsplit == "$''there'zipsplit.exe" +$! +$! Restore the original default directory and DCL verify status. +$! +$ error: +$! +$ if (f$type( here) .nes. "") +$ then +$ if (here .nes. "") +$ then +$ set default 'here' +$ endif +$ endif +$! +$ if (f$type( OLD_VERIFY) .nes. "") +$ then +$ tmp = f$verify( OLD_VERIFY) +$ endif +$! +$ exit +$! diff --git a/vms/bzlib.h b/vms/bzlib.h new file mode 100644 index 0000000..20488ea --- /dev/null +++ b/vms/bzlib.h @@ -0,0 +1,21 @@ +/* 2007-01-13 SMS. + * VMS-specific BZLIB.H jacket header file to ensure compatibility with + * BZIP2 code compiled using /NAMES = AS_IS. + * + * The logical name INCL_BZIP2 must point to the BZIP2 source directory. + * + * A "names as_is" prototype for bz_internal_error() is included for the + * same reason. See bzip2 "bzlib_private.h". Note that this "names + * as_is" prototype must be the first to be read by the compiler, but + * one or more other prototypes (perhaps with the default "names" + * attributes) should cause no trouble. + */ + +#pragma names save +#pragma names as_is + +#include "INCL_BZIP2:BZLIB.H" + +extern void bz_internal_error ( int errcode ); + +#pragma names restore diff --git a/vms/cmdline.c b/vms/cmdline.c new file mode 100644 index 0000000..9816bd5 --- /dev/null +++ b/vms/cmdline.c @@ -0,0 +1,1802 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ + +/* + Test procedure: + + Compile and link (in [.VMS] directory): + + define vms SYS$DISK:[] + set command /object ZIP_CLI.CLD + cc /define = (TEST, VMSCLI) /include = [-] CMDLINE + link link CMDLINE.OBJ, ZIP_CLI.OBJ + + Run: + + exec*ute == "$SYS$DISK:[]'" + exec cmdline [options ...] + +*/ + +/* 2004-12-13 SMS. + * Disabled the module name macro to accommodate old GNU C which didn't + * obey the directive, and thus confused MMS/MMK where the object + * library dependencies need to have the correct module name. + */ +#if 0 +# define module_name VMS_ZIP_CMDLINE +# define module_ident "02-006" +#endif /* 0 */ + +/* +** +** Facility: ZIP +** +** Module: VMS_ZIP_CMDLINE +** +** Author: Hunter Goatley <goathunter@MadGoat.com> +** +** Date: July 30, 1993 +** +** Abstract: Routines to handle a VMS CLI interface for Zip. The CLI +** command line is parsed and a new argc/argv are built and +** returned to Zip. +** +** Modified by: +** +** 02-007 Steven Schweda 09-FEB-2005 +** Added /PRESERVE_CASE. +** 02-006 Onno van der Linden, +** Christian Spieler 07-JUL-1998 23:03 +** Support GNU CC 2.8 on Alpha AXP (vers-num unchanged). +** 02-006 Johnny Lee 25-JUN-1998 07:40 +** Fixed typo (superfluous ';') (vers-num unchanged). +** 02-006 Christian Spieler 12-SEP-1997 23:17 +** Fixed bugs in /BEFORE and /SINCE handlers (vers-num unchanged). +** 02-006 Christian Spieler 12-JUL-1997 02:05 +** Complete revision of the argv strings construction. +** Added handling of "-P pwd", "-R", "-i@file", "-x@file" options. +** 02-005 Patrick Ellis 09-MAY-1996 22:25 +** Show UNIX style help screen when UNIX style options are used. +** 02-004 Onno van der Linden, +** Christian Spieler 13-APR-1996 20:05 +** Removed /ENCRYPT=VERIFY ("-ee" option). +** 02-003 Christian Spieler 11-FEB-1996 23:05 +** Added handling of /EXTRAFIELDS qualifier ("-X" option). +** 02-002 Christian Spieler 09-JAN-1996 22:25 +** Added "#include crypt.h", corrected typo. +** 02-001 Christian Spieler 04-DEC-1995 16:00 +** Fixed compilation in DEC CC's ANSI mode. +** 02-000 Christian Spieler 10-OCT-1995 17:54 +** Modified for Zip v2.1, added several new options. +** 01-000 Hunter Goatley 30-JUL-1993 07:54 +** Original version (for Zip v1.9p1). +** +*/ + + +/* 2004-12-13 SMS. + * Disabled the module name macro to accommodate old GNU C which didn't + * obey the directive, and thus confused MMS/MMK where the object + * library dependencies need to have the correct module name. + */ +#if 0 +# if defined(__DECC) || defined(__GNUC__) +# pragma module module_name module_ident +# else +# module module_name module_ident +# endif +#endif /* 0 */ + +/* Accomodation for /NAMES = AS_IS with old header files. */ + +#define lib$establish LIB$ESTABLISH +#define lib$get_foreign LIB$GET_FOREIGN +#define lib$get_input LIB$GET_INPUT +#define lib$sig_to_ret LIB$SIG_TO_RET +#define ots$cvt_tu_l OTS$CVT_TU_L +#define str$concat STR$CONCAT +#define str$find_first_substring STR$FIND_FIRST_SUBSTRING +#define str$free1_dx STR$FREE1_DX + +#include "zip.h" +#ifndef TEST +#include "crypt.h" /* for VMSCLI_help() */ +#include "revision.h" /* for VMSCLI_help() */ +#endif /* !TEST */ + +#include <ssdef.h> +#include <descrip.h> +#include <climsgdef.h> +#include <clidef.h> +#include <lib$routines.h> +#include <ots$routines.h> +#include <str$routines.h> + +#ifndef CLI$_COMMA +globalvalue CLI$_COMMA; +#endif + +/* +** "Macro" to initialize a dynamic string descriptor. +*/ +#define init_dyndesc(dsc) {\ + dsc.dsc$w_length = 0;\ + dsc.dsc$b_dtype = DSC$K_DTYPE_T;\ + dsc.dsc$b_class = DSC$K_CLASS_D;\ + dsc.dsc$a_pointer = NULL;} + +/* +** Memory allocation step for argv string buffer. +*/ +#define ARGBSIZE_UNIT 256 + +/* +** Memory reallocation macro for argv string buffer. +*/ +#define CHECK_BUFFER_ALLOCATION(buf, reserved, requested) { \ + if ((requested) > (reserved)) { \ + char *save_buf = (buf); \ + (reserved) += ARGBSIZE_UNIT; \ + if (((buf) = (char *) realloc((buf), (reserved))) == NULL) { \ + if (save_buf != NULL) free(save_buf); \ + return (SS$_INSFMEM); \ + } \ + } \ +} + +/* +** Define descriptors for all of the CLI parameters and qualifiers. +*/ +$DESCRIPTOR(cli_delete, "DELETE"); /* -d */ +$DESCRIPTOR(cli_freshen, "FRESHEN"); /* -f */ +$DESCRIPTOR(cli_move, "MOVE"); /* -m */ +$DESCRIPTOR(cli_update, "UPDATE"); /* -u */ +$DESCRIPTOR(cli_exclude, "EXCLUDE"); /* -x */ +$DESCRIPTOR(cli_include, "INCLUDE"); /* -i */ +$DESCRIPTOR(cli_exlist, "EXLIST"); /* -x@ */ +$DESCRIPTOR(cli_inlist, "INLIST"); /* -i@ */ +$DESCRIPTOR(cli_adjust, "ADJUST_OFFSETS"); /* -A */ +$DESCRIPTOR(cli_append, "APPEND"); /* -g */ +$DESCRIPTOR(cli_batch, "BATCH"); /* -@ */ +$DESCRIPTOR(cli_before, "BEFORE"); /* -tt */ +$DESCRIPTOR(cli_comments, "COMMENTS"); /* -c,-z */ +$DESCRIPTOR(cli_comment_archive,"COMMENTS.ARCHIVE"); /* -z */ +$DESCRIPTOR(cli_comment_zipfile,"COMMENTS.ZIP_FILE"); /* -z */ +$DESCRIPTOR(cli_comment_files, "COMMENTS.FILES"); /* -c */ +$DESCRIPTOR(cli_compression, "COMPRESSION"); /* -Z */ +$DESCRIPTOR(cli_compression_b, "COMPRESSION.BZIP2"); /* -Zb */ +$DESCRIPTOR(cli_compression_d, "COMPRESSION.DEFLATE"); /* -Zd */ +$DESCRIPTOR(cli_compression_s, "COMPRESSION.STORE"); /* -Zs */ +$DESCRIPTOR(cli_copy_entries, "COPY_ENTRIES"); /* -U */ +$DESCRIPTOR(cli_descriptors, "DESCRIPTORS"); /* -fd */ +$DESCRIPTOR(cli_difference, "DIFFERENCE"); /* -DF */ +$DESCRIPTOR(cli_dirnames, "DIRNAMES"); /* -D */ +$DESCRIPTOR(cli_display, "DISPLAY"); /* -d? */ +$DESCRIPTOR(cli_display_bytes, "DISPLAY.BYTES"); /* -db */ +$DESCRIPTOR(cli_display_counts, "DISPLAY.COUNTS"); /* -dc */ +$DESCRIPTOR(cli_display_dots, "DISPLAY.DOTS"); /* -dd,-ds */ +$DESCRIPTOR(cli_display_globaldots, "DISPLAY.GLOBALDOTS"); /* -dg */ +$DESCRIPTOR(cli_display_usize, "DISPLAY.USIZE"); /* -du */ +$DESCRIPTOR(cli_display_volume, "DISPLAY.VOLUME"); /* -dv */ +$DESCRIPTOR(cli_dot_version, "DOT_VERSION"); /* -ww */ +$DESCRIPTOR(cli_encrypt, "ENCRYPT"); /* -e,-P */ +$DESCRIPTOR(cli_extra_fields, "EXTRA_FIELDS"); /* -X [/NO] */ +$DESCRIPTOR(cli_extra_fields_normal, "EXTRA_FIELDS.NORMAL"); /* no -X */ +$DESCRIPTOR(cli_extra_fields_keep, "EXTRA_FIELDS.KEEP_EXISTING"); /* -X- */ +$DESCRIPTOR(cli_filesync, "FILESYNC"); /* -FS */ +$DESCRIPTOR(cli_fix_archive, "FIX_ARCHIVE"); /* -F[F] */ +$DESCRIPTOR(cli_fix_normal, "FIX_ARCHIVE.NORMAL"); /* -F */ +$DESCRIPTOR(cli_fix_full, "FIX_ARCHIVE.FULL"); /* -FF */ +$DESCRIPTOR(cli_full_path, "FULL_PATH"); /* -p */ +$DESCRIPTOR(cli_grow, "GROW"); /* -g */ +$DESCRIPTOR(cli_help, "HELP"); /* -h */ +$DESCRIPTOR(cli_help_normal, "HELP.NORMAL"); /* -h */ +$DESCRIPTOR(cli_help_extended, "HELP.EXTENDED"); /* -h2 */ +$DESCRIPTOR(cli_junk, "JUNK"); /* -j */ +$DESCRIPTOR(cli_keep_version, "KEEP_VERSION"); /* -w */ +$DESCRIPTOR(cli_latest, "LATEST"); /* -o */ +$DESCRIPTOR(cli_level, "LEVEL"); /* -[0-9] */ +$DESCRIPTOR(cli_license, "LICENSE"); /* -L */ +$DESCRIPTOR(cli_log_file, "LOG_FILE"); /* -la,-lf,-li */ +$DESCRIPTOR(cli_log_file_append, "LOG_FILE.APPEND"); /* -la */ +$DESCRIPTOR(cli_log_file_file, "LOG_FILE.FILE"); /* -lf */ +$DESCRIPTOR(cli_log_file_info, "LOG_FILE.INFORMATIONAL"); /* -li */ +$DESCRIPTOR(cli_must_match, "MUST_MATCH"); /* -MM */ +$DESCRIPTOR(cli_output, "OUTPUT"); /* -O */ +$DESCRIPTOR(cli_patt_case, "PATTERN_CASE"); /* -ic[-] */ +$DESCRIPTOR(cli_patt_case_blind, "PATTERN_CASE.BLIND"); /* -ic */ +$DESCRIPTOR(cli_patt_case_sensitive, "PATTERN_CASE.SENSITIVE"); /* -ic- */ +$DESCRIPTOR(cli_pkzip, "PKZIP"); /* -k */ +$DESCRIPTOR(cli_pres_case, "PRESERVE_CASE"); /* -C */ +$DESCRIPTOR(cli_pres_case_no2, "PRESERVE_CASE.NOODS2");/* -C2- */ +$DESCRIPTOR(cli_pres_case_no5, "PRESERVE_CASE.NOODS5");/* -C5- */ +$DESCRIPTOR(cli_pres_case_ods2, "PRESERVE_CASE.ODS2"); /* -C2 */ +$DESCRIPTOR(cli_pres_case_ods5, "PRESERVE_CASE.ODS5"); /* -C5 */ +$DESCRIPTOR(cli_quiet, "QUIET"); /* -q */ +$DESCRIPTOR(cli_recurse, "RECURSE"); /* -r,-R */ +$DESCRIPTOR(cli_recurse_path, "RECURSE.PATH"); /* -r */ +$DESCRIPTOR(cli_recurse_fnames, "RECURSE.FILENAMES"); /* -R */ +$DESCRIPTOR(cli_show, "SHOW"); /* -s? */ +$DESCRIPTOR(cli_show_command, "SHOW.COMMAND"); /* -sc */ +$DESCRIPTOR(cli_show_debug, "SHOW.DEBUG"); /* -sd */ +$DESCRIPTOR(cli_show_files, "SHOW.FILES"); /* -sf */ +$DESCRIPTOR(cli_show_options, "SHOW.OPTIONS"); /* -so */ +$DESCRIPTOR(cli_since, "SINCE"); /* -t */ +$DESCRIPTOR(cli_split, "SPLIT"); /* -s,-sb,-sp,-sv */ +$DESCRIPTOR(cli_split_bell, "SPLIT.BELL"); /* -sb */ +$DESCRIPTOR(cli_split_pause, "SPLIT.PAUSE"); /* -sp */ +$DESCRIPTOR(cli_split_size, "SPLIT.SIZE"); /* -s */ +$DESCRIPTOR(cli_split_verbose, "SPLIT.VERBOSE"); /* -sv */ +$DESCRIPTOR(cli_store_types, "STORE_TYPES"); /* -n */ +$DESCRIPTOR(cli_sverbose, "SVERBOSE"); /* -sv */ +$DESCRIPTOR(cli_symlinks, "SYMLINKS"); /* -y */ +$DESCRIPTOR(cli_temp_path, "TEMP_PATH"); /* -b */ +$DESCRIPTOR(cli_test, "TEST"); /* -T */ +$DESCRIPTOR(cli_test_unzip, "TEST.UNZIP"); /* -TT */ +$DESCRIPTOR(cli_translate_eol, "TRANSLATE_EOL"); /* -l[l] */ +$DESCRIPTOR(cli_transl_eol_lf, "TRANSLATE_EOL.LF"); /* -l */ +$DESCRIPTOR(cli_transl_eol_crlf,"TRANSLATE_EOL.CRLF"); /* -ll */ +$DESCRIPTOR(cli_unsfx, "UNSFX"); /* -J */ +$DESCRIPTOR(cli_verbose, "VERBOSE"); /* -v (?) */ +$DESCRIPTOR(cli_verbose_normal, "VERBOSE.NORMAL"); /* -v */ +$DESCRIPTOR(cli_verbose_more, "VERBOSE.MORE"); /* -vv */ +$DESCRIPTOR(cli_verbose_debug, "VERBOSE.DEBUG"); /* -vvv */ +$DESCRIPTOR(cli_verbose_command,"VERBOSE.COMMAND"); /* (none) */ +$DESCRIPTOR(cli_vms, "VMS"); /* -V */ +$DESCRIPTOR(cli_vms_all, "VMS.ALL"); /* -VV */ +$DESCRIPTOR(cli_wildcard, "WILDCARD"); /* -nw */ +$DESCRIPTOR(cli_wildcard_nospan,"WILDCARD.NOSPAN"); /* -W */ + +$DESCRIPTOR(cli_yyz, "YYZ_ZIP"); + +$DESCRIPTOR(cli_zip64, "ZIP64"); /* -fz */ +$DESCRIPTOR(cli_zipfile, "ZIPFILE"); +$DESCRIPTOR(cli_infile, "INFILE"); +$DESCRIPTOR(zip_command, "zip "); + +static int show_VMSCLI_help; + +#if !defined(zip_clitable) +# define zip_clitable ZIP_CLITABLE +#endif +#if defined(__DECC) || defined(__GNUC__) +extern void *zip_clitable; +#else +globalref void *zip_clitable; +#endif + +/* extern unsigned long LIB$GET_INPUT(void), LIB$SIG_TO_RET(void); */ + +#ifndef __STARLET_LOADED +#ifndef sys$bintim +# define sys$bintim SYS$BINTIM +#endif +#ifndef sys$numtim +# define sys$numtim SYS$NUMTIM +#endif +extern int sys$bintim (); +extern int sys$numtim (); +#endif /* !__STARLET_LOADED */ +#ifndef cli$dcl_parse +# define cli$dcl_parse CLI$DCL_PARSE +#endif +#ifndef cli$present +# define cli$present CLI$PRESENT +#endif +#ifndef cli$get_value +# define cli$get_value CLI$GET_VALUE +#endif +extern unsigned long cli$dcl_parse (); +extern unsigned long cli$present (); +extern unsigned long cli$get_value (); + +unsigned long vms_zip_cmdline (int *, char ***); +static unsigned long get_list (struct dsc$descriptor_s *, + struct dsc$descriptor_d *, int, + char **, unsigned long *, unsigned long *); +static unsigned long get_time (struct dsc$descriptor_s *qual, char *timearg); +static unsigned long check_cli (struct dsc$descriptor_s *); +static int verbose_command = 0; + + +#ifdef TEST + +char errbuf[ FNMAX+ 81]; /* Error message buffer. */ + +void ziperr( int c, char *h) /* Error message display function. */ +{ +/* int c: error code from the ZE_ class */ +/* char *h: message about how it happened */ + +printf( "%d: %s\n", c, h); +} + +int +main(int argc, char **argv) /* Main program. */ +{ + return (vms_zip_cmdline(&argc, &argv)); +} + +#endif /* def TEST */ + + +unsigned long +vms_zip_cmdline (int *argc_p, char ***argv_p) +{ +/* +** Routine: vms_zip_cmdline +** +** Function: +** +** Parse the DCL command line and create a fake argv array to be +** handed off to Zip. +** +** NOTE: the argv[] is built as we go, so all the parameters are +** checked in the appropriate order!! +** +** Formal parameters: +** +** argc_p - Address of int to receive the new argc +** argv_p - Address of char ** to receive the argv address +** +** Calling sequence: +** +** status = vms_zip_cmdline (&argc, &argv); +** +** Returns: +** +** SS$_NORMAL - Success. +** SS$_INSFMEM - A malloc() or realloc() failed +** SS$_ABORT - Bad time value +** +*/ + register unsigned long status; + char options[ 64]; + char *the_cmd_line; /* buffer for argv strings */ + unsigned long cmdl_size; /* allocated size of buffer */ + unsigned long cmdl_len; /* used size of buffer */ + char *ptr; + int x, len; + + int new_argc; + char **new_argv; + + struct dsc$descriptor_d work_str; + struct dsc$descriptor_d foreign_cmdline; + + init_dyndesc(work_str); + init_dyndesc(foreign_cmdline); + + /* + ** See if the program was invoked by the CLI (SET COMMAND) or by + ** a foreign command definition. Check for /YYZ_ZIP, which is a + ** valid default qualifier solely for this test. + */ + show_VMSCLI_help = TRUE; + status = check_cli(&cli_yyz); + if (!(status & 1)) { + lib$get_foreign(&foreign_cmdline); + /* + ** If nothing was returned or the first character is a "-", then + ** assume it's a UNIX-style command and return. + */ + if (foreign_cmdline.dsc$w_length == 0) + return (SS$_NORMAL); + if ((*(foreign_cmdline.dsc$a_pointer) == '-') || + ((foreign_cmdline.dsc$w_length > 1) && + (*(foreign_cmdline.dsc$a_pointer) == '"') && + (*(foreign_cmdline.dsc$a_pointer + 1) == '-'))) { + show_VMSCLI_help = FALSE; + return (SS$_NORMAL); + } + + str$concat(&work_str, &zip_command, &foreign_cmdline); + status = cli$dcl_parse(&work_str, &zip_clitable, lib$get_input, + lib$get_input, 0); + if (!(status & 1)) return (status); + } + + /* + ** There's always going to be a new_argv[] because of the image name. + */ + if ((the_cmd_line = (char *) malloc(cmdl_size = ARGBSIZE_UNIT)) == NULL) + return (SS$_INSFMEM); + + strcpy(the_cmd_line, "zip"); + cmdl_len = sizeof("zip"); + + /* + ** First, check to see if any of the regular options were specified. + */ + + options[0] = '-'; + ptr = &options[1]; /* Point to temporary buffer */ + + /* + ** Copy entries. + */ + status = cli$present(&cli_copy_entries); + if (status & 1) + /* /COPY_ENTRIES */ + *ptr++ = 'U'; + + /* + ** Delete the specified files from the zip file? + */ + status = cli$present(&cli_delete); + if (status & 1) + /* /DELETE */ + *ptr++ = 'd'; + + /* + ** Freshen (only changed files). + */ + status = cli$present(&cli_freshen); + if (status & 1) + /* /FRESHEN */ + *ptr++ = 'f'; + + /* + ** Delete the files once they've been added to the zip file. + */ + status = cli$present(&cli_move); + if (status & 1) + /* /MOVE */ + *ptr++ = 'm'; + + /* + ** Add changed and new files. + */ + status = cli$present(&cli_update); + if (status & 1) + /* /UPDATE */ + *ptr++ = 'u'; + + /* + ** Check for the compression level (-0 through -9). + */ + status = cli$present(&cli_level); + if (status & 1) { + /* /LEVEL = value */ + + unsigned long binval; + + status = cli$get_value(&cli_level, &work_str); + status = ots$cvt_tu_l(&work_str, &binval); + if (!(status & 1) || (binval > 9)) { + return (SS$_ABORT); + } + *ptr++ = binval + '0'; + } + + /* + ** Adjust offsets of zip archive entries. + */ + status = cli$present(&cli_adjust); + if (status & 1) + /* /ADJUST_OFFSETS */ + *ptr++ = 'A'; + + /* + ** Add comments? + */ + status = cli$present(&cli_comments); + if (status & 1) + { + int archive_or_zip_file = 0; + + if ((status = cli$present(&cli_comment_archive)) & 1) + /* /COMMENTS = ARCHIVE */ + archive_or_zip_file = 1; + if ((status = cli$present(&cli_comment_zipfile)) & 1) + /* /COMMENTS = ZIP_FILE */ + archive_or_zip_file = 1; + if (archive_or_zip_file != 0) + /* /COMMENTS = ARCHIVE */ + *ptr++ = 'z'; + if ((status = cli$present(&cli_comment_files)) & 1) + /* /COMMENTS = FILES */ + *ptr++ = 'c'; + } + + /* + ** Preserve case in file names. + */ +#define OPT_C "-C" /* Preserve case all. */ +#define OPT_CN "-C-" /* Down-case all. */ +#define OPT_C2 "-C2" /* Preserve case ODS2. */ +#define OPT_C2N "-C2-" /* Down-case ODS2. */ +#define OPT_C5 "-C5" /* Preserve case ODS5. */ +#define OPT_C5N "-C5-" /* Down-case ODS5. */ + + status = cli$present( &cli_pres_case); + if ((status & 1) || (status == CLI$_NEGATED)) + { + /* /[NO]PRESERVE_CASE */ + char *opt; + int ods2 = 0; + int ods5 = 0; + + if (status == CLI$_NEGATED) + { + x = cmdl_len; + cmdl_len += strlen( OPT_CN)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_CN); + } + else + { + if (cli$present( &cli_pres_case_no2) & 1) + { + /* /PRESERVE_CASE = NOODS2 */ + ods2 = -1; + } + if (cli$present( &cli_pres_case_no5) & 1) + { + /* /PRESERVE_CASE = NOODS5 */ + ods5 = -1; + } + if (cli$present( &cli_pres_case_ods2) & 1) + { + /* /PRESERVE_CASE = ODS2 */ + ods2 = 1; + } + if (cli$present( &cli_pres_case_ods5) & 1) + { + /* /PRESERVE_CASE = ODS5 */ + ods5 = 1; + } + + if (ods2 == ods5) + { + /* Plain "-C[-]". */ + if (ods2 < 0) + opt = OPT_CN; + else + opt = OPT_C; + + x = cmdl_len; + cmdl_len += strlen( opt)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], opt); + } + else + { + if (ods2 != 0) + { + /* "-C2[-]". */ + if (ods2 < 0) + opt = OPT_C2N; + else + opt = OPT_C2; + + x = cmdl_len; + cmdl_len += strlen( opt)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], opt); + } + + if (ods5 != 0) + { + /* "-C5[-]". */ + if (ods5 < 0) + opt = OPT_C5N; + else + opt = OPT_C5; + + x = cmdl_len; + cmdl_len += strlen( opt)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], opt); + } + } + } + } + + /* + ** Pattern case sensitivity. + */ +#define OPT_IC "-ic" /* Case-insensitive pattern matching. */ +#define OPT_ICN "-ic-" /* Case-sensitive pattern matching. */ + + status = cli$present( &cli_patt_case); + if (status & 1) + { + if (cli$present( &cli_patt_case_blind) & 1) + { + /* "-ic". */ + x = cmdl_len; + cmdl_len += strlen( OPT_IC)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_IC); + } + else if (cli$present( &cli_patt_case_sensitive) & 1) + { + /* "-ic-". */ + x = cmdl_len; + cmdl_len += strlen( OPT_ICN)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_ICN); + } + } + + /* + ** Data descriptors. + */ +#define OPT_FD "-fd" + + status = cli$present( &cli_descriptors); + if (status & 1) + { + /* /DESCRIPTORS */ + x = cmdl_len; + cmdl_len += strlen( OPT_FD)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_FD); + } + + /* + ** Difference archive. Add only new or changed files. + */ +#define OPT_DF "-DF" /* Difference archive. */ + + if ((status = cli$present( &cli_difference)) & 1) + { + /* /DIFFERENCE */ + x = cmdl_len; + cmdl_len += strlen( OPT_DF)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DF); + } + + /* + ** Do not add/modify directory entries. + */ + status = cli$present(&cli_dirnames); + if (!(status & 1)) + /* /DIRNAMES */ + *ptr++ = 'D'; + + /* + ** Encrypt? + */ + status = cli$present(&cli_encrypt); + if (status & 1) + if ((status = cli$get_value(&cli_encrypt, &work_str)) & 1) { + /* /ENCRYPT = value */ + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 4; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-P"); + strncpy(&the_cmd_line[x+3], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } else { + /* /ENCRYPT */ + *ptr++ = 'e'; + } + + /* + ** Fix the zip archive structure. + */ + status = cli$present(&cli_fix_archive); + if (status & 1) { + *ptr++ = 'F'; + /* /FIX_ARCHIVE = NORMAL */ + if ((status = cli$present(&cli_fix_full)) & 1) { + /* /FIX_ARCHIVE = FULL */ + *ptr++ = 'F'; + } + } + + /* + ** Filesync. Delete archive entry if no such file. + */ +#define OPT_FS "-FS" /* Filesync. */ + + if ((status = cli$present( &cli_filesync)) & 1) + { + /* /FILESYNC */ + x = cmdl_len; + cmdl_len += strlen( OPT_FS)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_FS); + } + + /* + ** Append (allow growing of existing zip file). + */ + status = cli$present(&cli_append); + if (status & 1) + /* /APPEND */ + *ptr++ = 'g'; + + status = cli$present(&cli_grow); + if (status & 1) + /* /GROW */ + *ptr++ = 'g'; + + /* + ** Show the help. + */ +#define OPT_H2 "-h2" + + status = cli$present(&cli_help); + if (status & 1) + { + status = cli$present( &cli_help_normal); + if (status & 1) + { + /* /HELP [= NORMAL] */ + *ptr++ = 'h'; + } + status = cli$present( &cli_help_extended); + if (status & 1) + { + /* /HELP = EXTENDED */ + x = cmdl_len; + cmdl_len += strlen( OPT_H2)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_H2); + } + } + + /* + ** Junk path names (directory specs). + */ + status = cli$present(&cli_junk); + if (status & 1) + /* /JUNK */ + *ptr++ = 'j'; + + /* + ** Simulate zip file made by PKZIP. + */ + status = cli$present(&cli_pkzip); + if (status & 1) + /* /KEEP_VERSION */ + *ptr++ = 'k'; + + /* + ** Translate end-of-line. + */ + status = cli$present(&cli_translate_eol); + if (status & 1) { + /* /TRANSLATE_EOL [= LF]*/ + *ptr++ = 'l'; + if ((status = cli$present(&cli_transl_eol_crlf)) & 1) { + /* /TRANSLATE_EOL = CRLF */ + *ptr++ = 'l'; + } + } + + /* + ** Show the software license. + */ + status = cli$present(&cli_license); + if (status & 1) + /* /LICENSE */ + *ptr++ = 'L'; + + /* + ** Set zip file time to time of latest file in it. + */ + status = cli$present(&cli_latest); + if (status & 1) + /* /LATEST */ + *ptr++ = 'o'; + + /* + ** Store full path (default). + */ + status = cli$present(&cli_full_path); + if (status == CLI$_PRESENT) + /* /FULL_PATH */ + *ptr++ = 'p'; + else if (status == CLI$_NEGATED) + /* /NOFULL_PATH */ + *ptr++ = 'j'; + + /* + ** Junk Zipfile prefix (SFX stub etc.). + */ + status = cli$present(&cli_unsfx); + if (status & 1) + /* /UNSFX */ + *ptr++ = 'J'; + + /* + ** Recurse through subdirectories. + */ + status = cli$present(&cli_recurse); + if (status & 1) { + if ((status = cli$present(&cli_recurse_fnames)) & 1) + /* /RECURSE [= PATH] */ + *ptr++ = 'R'; + else + /* /RECURSE [= FILENAMES] */ + *ptr++ = 'r'; + } + + /* + ** Test Zipfile. + */ + status = cli$present(&cli_test); + if (status & 1) { + /* /TEST */ + *ptr++ = 'T'; + } + + /* + ** Be verbose. + */ + status = cli$present(&cli_verbose); + if (status & 1) { + int i; + int verbo = 0; + + /* /VERBOSE */ + if ((status = cli$present(&cli_verbose_command)) & 1) + { + /* /VERBOSE = COMMAND */ + verbose_command = 1; + } + + /* Note that any or all of the following options may be + specified, and the maximum one is used. + */ + if ((status = cli$present(&cli_verbose_normal)) & 1) + /* /VERBOSE [ = NORMAL ] */ + verbo = 1; + if ((status = cli$present(&cli_verbose_more)) & 1) + /* /VERBOSE = MORE */ + verbo = 2; + if ((status = cli$present(&cli_verbose_debug)) & 1) { + /* /VERBOSE = DEBUG */ + verbo = 3; + } + for (i = 0; i < verbo; i++) + *ptr++ = 'v'; + } + + /* + ** Quiet mode. + ** (Quiet mode is processed after verbose, because a "-v" modifier + ** resets "noisy" to 1.) + */ + status = cli$present(&cli_quiet); + if (status & 1) + /* /QUIET */ + *ptr++ = 'q'; + + /* + ** Save the VMS file attributes (and all allocated blocks?). + */ + status = cli$present(&cli_vms); + if (status & 1) { + /* /VMS */ + *ptr++ = 'V'; + if ((status = cli$present(&cli_vms_all)) & 1) { + /* /VMS = ALL */ + *ptr++ = 'V'; + } + } + + /* + ** Keep the VMS version number as part of the file name when stored. + */ + status = cli$present(&cli_keep_version); + if (status & 1) + /* /KEEP_VERSION */ + *ptr++ = 'w'; + + /* + ** Store symlinks as symlinks. + */ + status = cli$present(&cli_symlinks); + if (status & 1) + /* /SYMLINKS */ + *ptr++ = 'y'; + + /* + ** `Batch' processing: read filenames to archive from stdin + ** or the specified file. + */ + status = cli$present(&cli_batch); + if (status & 1) { + /* /BATCH */ + status = cli$get_value(&cli_batch, &work_str); + if (status & 1) { + /* /BATCH = value */ + work_str.dsc$a_pointer[work_str.dsc$w_length] = '\0'; + if ((stdin = freopen(work_str.dsc$a_pointer, "r", stdin)) == NULL) + { + sprintf(errbuf, "could not open list file: %s", + work_str.dsc$a_pointer); + ziperr(ZE_PARMS, errbuf); + } + } + *ptr++ = '@'; + } + + /* + ** Now copy the final options string to the_cmd_line. + */ + len = ptr - &options[0]; + if (len > 1) { + options[len] = '\0'; + x = cmdl_len; + cmdl_len += len + 1; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], options); + } + + /* + ** + ** OK. We've done all the regular options, so check for -b (temporary + ** file path), -n (special suffixes), -O (output atchive file), + ** -t (exclude before time), -Z (compression method), zipfile, + ** files to zip, and exclude list. + ** + */ + status = cli$present(&cli_temp_path); + if (status & 1) { + /* /TEMP_PATH = value */ + status = cli$get_value(&cli_temp_path, &work_str); + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 4; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-b"); + strncpy(&the_cmd_line[x+3], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + + status = cli$present(&cli_output); + if (status & 1) { + /* /OUTPUT = value */ + status = cli$get_value(&cli_output, &work_str); + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 4; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-O"); + strncpy(&the_cmd_line[x+3], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + + /* + ** Handle "-db", "-dc", "-dd", "-ds". + */ +#define OPT_DB "-db" +#define OPT_DC "-dc" +#define OPT_DD "-dd" +#define OPT_DG "-dg" +#define OPT_DS "-ds=" +#define OPT_DU "-du" +#define OPT_DV "-dv" + + status = cli$present( &cli_display); + if (status & 1) + { + if ((status = cli$present( &cli_display_bytes)) & 1) + { + /* /DISPLAY = BYTES */ + x = cmdl_len; + cmdl_len += strlen( OPT_DB)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DB); + } + + if ((status = cli$present( &cli_display_counts)) & 1) + { + /* /DISPLAY = COUNTS */ + x = cmdl_len; + cmdl_len += strlen( OPT_DC)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DC); + } + + if ((status = cli$present( &cli_display_dots)) & 1) + { + /* /DISPLAY = DOTS [= value] */ + status = cli$get_value( &cli_display_dots, &work_str); + + x = cmdl_len; + cmdl_len += strlen( OPT_DD)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DD); + + /* -dd[=value] now -dd -ds=value - 5/8/05 EG */ + if (work_str.dsc$w_length > 0) { + x = cmdl_len; + cmdl_len += strlen( OPT_DS); + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DS); + + x = cmdl_len; + cmdl_len += work_str.dsc$w_length+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strncpy( &the_cmd_line[ x], + work_str.dsc$a_pointer, work_str.dsc$w_length); + } + } + + if ((status = cli$present( &cli_display_globaldots)) & 1) + { + /* /DISPLAY = GLOBALDOTS */ + x = cmdl_len; + cmdl_len += strlen( OPT_DG)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DG); + } + + if ((status = cli$present( &cli_display_usize)) & 1) + { + /* /DISPLAY = USIZE */ + x = cmdl_len; + cmdl_len += strlen( OPT_DU)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DU); + } + + if ((status = cli$present( &cli_display_volume)) & 1) + { + /* /DISPLAY = VOLUME */ + x = cmdl_len; + cmdl_len += strlen( OPT_DV)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_DV); + } + } + + /* + ** Handle "-la", "-lf", "-li". + */ +#define OPT_LA "-la" +#define OPT_LF "-lf" +#define OPT_LI "-li" + + status = cli$present( &cli_log_file); + if (status & 1) + { + /* /SHOW */ + if ((status = cli$present( &cli_log_file_append)) & 1) + { + /* /LOG_FILE = APPEND */ + x = cmdl_len; + cmdl_len += strlen( OPT_LA)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_LA); + } + + status = cli$present(&cli_log_file_file); + if (status & 1) { + /* /LOG_FILE = FILE = file */ + status = cli$get_value(&cli_log_file_file, &work_str); + x = cmdl_len; + cmdl_len += strlen( OPT_LF)+ 2+ work_str.dsc$w_length; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], OPT_LF); + strncpy(&the_cmd_line[x+strlen( OPT_LF)+ 1], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + + if ((status = cli$present( &cli_log_file_info)) & 1) + { + /* /LOG = INFO */ + x = cmdl_len; + cmdl_len += strlen( OPT_LI)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_LI); + } + } + + /* + ** Handle "-s", "-sb", "-sp", "-sv". + */ +#define OPT_S "-s" +#define OPT_SB "-sb" +#define OPT_SP "-sp" +#define OPT_SV "-sv" + + status = cli$present( &cli_split); + if (status & 1) + { + status = cli$present( &cli_split_bell); + if (status & 1) + { + /* /SPLIT = BELL */ + x = cmdl_len; + cmdl_len += strlen( OPT_SB)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SB); + } + + status = cli$present( &cli_split_pause); + if (status & 1) + { + /* /SPLIT = PAUSE */ + x = cmdl_len; + cmdl_len += strlen( OPT_SP)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SP); + } + + status = cli$present( &cli_split_size); + if (status & 1) + { + /* /SPLIT = SIZE = size */ + status = cli$get_value( &cli_split_size, &work_str); + + x = cmdl_len; + cmdl_len += strlen( OPT_S)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_S); + + x = cmdl_len; + cmdl_len += work_str.dsc$w_length+ 1; + strncpy( &the_cmd_line[ x], + work_str.dsc$a_pointer, work_str.dsc$w_length); + } + + status = cli$present( &cli_split_verbose); + if (status & 1) + { + /* /SPLIT = VERBOSE */ + x = cmdl_len; + cmdl_len += strlen( OPT_SV)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SV); + } + } + + /* + ** Handle "-sc", "-sd", "-sf", "-so". + */ +#define OPT_SC "-sc" +#define OPT_SD "-sd" +#define OPT_SF "-sf" +#define OPT_SO "-so" + + status = cli$present( &cli_show); + if (status & 1) + { + /* /SHOW */ + if ((status = cli$present( &cli_show_command)) & 1) + { + /* /SHOW = COMMAND */ + x = cmdl_len; + cmdl_len += strlen( OPT_SC)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SC); + } + + if ((status = cli$present( &cli_show_debug)) & 1) + { + /* /SHOW = DEBUG */ + x = cmdl_len; + cmdl_len += strlen( OPT_SD)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SD); + } + + if ((status = cli$present( &cli_show_files)) & 1) + { + /* /SHOW = FILES */ + x = cmdl_len; + cmdl_len += strlen( OPT_SF)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SF); + } + + if ((status = cli$present( &cli_show_options)) & 1) + { + /* /SHOW = OPTIONS */ + x = cmdl_len; + cmdl_len += strlen( OPT_SO)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_SO); + } + } + + /* + ** Handle "-fz". + */ +#define OPT_FZ "-fz" + + status = cli$present( &cli_zip64); + if (status & 1) + { + /* /ZIP64 */ + x = cmdl_len; + cmdl_len += strlen( OPT_FZ)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_FZ); + } + + /* + ** Handle "-nw" and "-W". + */ +#define OPT_NW "-nw" +#define OPT_W "-W" + + status = cli$present( &cli_wildcard); + if (status & 1) + { + if ((status = cli$present( &cli_wildcard_nospan)) & 1) + { + /* /WILDCARD = NOSPAN */ + x = cmdl_len; + cmdl_len += strlen( OPT_W)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_W); + } + } + else if (status == CLI$_NEGATED) + { + /* /NOWILDCARD */ + x = cmdl_len; + cmdl_len += strlen( OPT_NW)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_NW); + } + + /* + ** Handle "-MM". + */ +#define OPT_MM "-MM" + + status = cli$present( &cli_must_match); + if (status & 1) + { + /* /MUST_MATCH */ + x = cmdl_len; + cmdl_len += strlen( OPT_MM)+ 1; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_MM); + } + + /* + ** UnZip command for archive test. + */ +#define OPT_TT "-TT" + + status = cli$present(&cli_test); + if (status & 1) { + /* /TEST */ + status = cli$present(&cli_test_unzip); + if (status & 1) { + /* /TEST = UNZIP = value */ + status = cli$get_value(&cli_test_unzip, &work_str); + x = cmdl_len; + cmdl_len += strlen( OPT_TT)+ 2+ work_str.dsc$w_length; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], OPT_TT); + strncpy(&the_cmd_line[x+strlen( OPT_TT)+ 1], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + } + + /* + ** Handle "-Z". + */ +#define OPT_ZB "-Zb" +#define OPT_ZD "-Zd" +#define OPT_ZS "-Zs" + + status = cli$present( &cli_compression); + if (status & 1) + { + if ((status = cli$present( &cli_compression_b)) & 1) + { + /* /COMPRESSION = BZIP2 */ + x = cmdl_len; + cmdl_len += strlen( OPT_ZB)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_ZB); + } + + if ((status = cli$present( &cli_compression_d)) & 1) + { + /* /COMPRESSION = DEFLATE */ + x = cmdl_len; + cmdl_len += strlen( OPT_ZD)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_ZD); + } + + if ((status = cli$present( &cli_compression_s)) & 1) + { + /* /COMPRESSION = STORE */ + x = cmdl_len; + cmdl_len += strlen( OPT_ZS)+ 1; + CHECK_BUFFER_ALLOCATION( the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_ZS); + } + } + + /* + ** Handle "-t mmddyyyy". + */ + status = cli$present(&cli_since); + if (status & 1) { + /* /SINCE = value */ + char since_time[9]; + + status = get_time(&cli_since, &since_time[0]); + if (!(status & 1)) return (status); + + /* + ** Now let's add the option "-t mmddyyyy" to the new command line. + */ + x = cmdl_len; + cmdl_len += (3 + 9); + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-t"); + strcpy(&the_cmd_line[x+3], since_time); + } + + /* + ** Handle "-tt mmddyyyy". + */ + status = cli$present(&cli_before); + if (status & 1) { + /* /BEFORE = value */ + char before_time[9]; + + status = get_time(&cli_before, &before_time[0]); + if (!(status & 1)) return (status); + + /* + ** Now let's add the option "-tt mmddyyyy" to the new command line. + */ + x = cmdl_len; + cmdl_len += (4 + 9); + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-tt"); + strcpy(&the_cmd_line[x+4], before_time); + } + + /* + ** Handle "-n suffix:suffix:...". (File types to store only.) + */ + status = cli$present(&cli_store_types); + if (status & 1) { + /* /STORE_TYPES = value_list */ + x = cmdl_len; + cmdl_len += 3; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-n"); + + status = get_list(&cli_store_types, &foreign_cmdline, ':', + &the_cmd_line, &cmdl_size, &cmdl_len); + if (!(status & 1)) return (status); + } + + /* + ** Handle "-X", keep or strip extra fields. + */ +#define OPT_X "-X" +#define OPT_XN "-X-" + + status = cli$present(&cli_extra_fields); + if (status & 1) { + /* /EXTRA_FIELDS */ + if ((status = cli$present( &cli_extra_fields_keep)) & 1) { + /* /EXTRA_FIELDS = KEEP_EXISTING */ + x = cmdl_len; + cmdl_len += strlen( OPT_XN)+ 1; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_XN); + } + } + else if (status == CLI$_NEGATED) { + /* /NOEXTRA_FIELDS */ + x = cmdl_len; + cmdl_len += strlen( OPT_X)+ 1; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy( &the_cmd_line[ x], OPT_X); + } + + /* + ** Now get the specified zip file name. + */ + status = cli$present(&cli_zipfile); + /* zipfile */ + if (status & 1) { + status = cli$get_value(&cli_zipfile, &work_str); + + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 1; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strncpy(&the_cmd_line[x], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + + } + + /* + ** Run through the list of input files. + */ + status = cli$present(&cli_infile); + if (status & 1) { + /* infile_list */ + status = get_list(&cli_infile, &foreign_cmdline, '\0', + &the_cmd_line, &cmdl_size, &cmdl_len); + if (!(status & 1)) return (status); + } + + /* + ** List file containing exclude patterns present? ("-x@exclude.lst") + */ + status = cli$present(&cli_exlist); + if (status & 1) { + /* /EXLIST = list */ + status = cli$get_value(&cli_exlist, &work_str); + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 4; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strncpy(&the_cmd_line[x], "-x@", 3); + strncpy(&the_cmd_line[x+3], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + + /* + ** Any files to exclude? ("-x file file") + */ + status = cli$present(&cli_exclude); + if (status & 1) { + /* /EXCLUDE = list */ + x = cmdl_len; + cmdl_len += 3; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-x"); + + status = get_list(&cli_exclude, &foreign_cmdline, '\0', + &the_cmd_line, &cmdl_size, &cmdl_len); + if (!(status & 1)) return (status); + } + + /* + ** List file containing include patterns present? ("-x@exclude.lst") + */ + status = cli$present(&cli_inlist); + if (status & 1) { + /* /INLIST = list */ + status = cli$get_value(&cli_inlist, &work_str); + x = cmdl_len; + cmdl_len += work_str.dsc$w_length + 4; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strncpy(&the_cmd_line[x], "-i@", 3); + strncpy(&the_cmd_line[x+3], work_str.dsc$a_pointer, + work_str.dsc$w_length); + the_cmd_line[cmdl_len-1] = '\0'; + } + + /* + ** Any files to include? ("-i file file") + */ + status = cli$present(&cli_include); + if (status & 1) { + /* /INCLUDE = list */ + x = cmdl_len; + cmdl_len += 3; + CHECK_BUFFER_ALLOCATION(the_cmd_line, cmdl_size, cmdl_len) + strcpy(&the_cmd_line[x], "-i"); + + status = get_list(&cli_exclude, &foreign_cmdline, '\0', + &the_cmd_line, &cmdl_size, &cmdl_len); + if (!(status & 1)) return (status); + } + + + /* + ** We have finished collecting the strings for the argv vector, + ** release unused space. + */ + if ((the_cmd_line = (char *) realloc(the_cmd_line, cmdl_len)) == NULL) + return (SS$_INSFMEM); + + /* + ** Now that we've built our new UNIX-like command line, count the + ** number of args and build an argv array. + */ + for (new_argc = 0, x = 0; x < cmdl_len; x++) + if (the_cmd_line[x] == '\0') + new_argc++; + + /* + ** Allocate memory for the new argv[]. The last element of argv[] + ** is supposed to be NULL, so allocate enough for new_argc+1. + */ + if ((new_argv = (char **) calloc(new_argc+1, sizeof(char *))) == NULL) + return (SS$_INSFMEM); + + /* + ** For each option, store the address in new_argv[] and convert the + ** separating blanks to nulls so each argv[] string is terminated. + */ + for (ptr = the_cmd_line, x = 0; x < new_argc; x++) { + new_argv[x] = ptr; + ptr += strlen(ptr) + 1; + } + new_argv[new_argc] = NULL; + +#if defined(TEST) || defined(DEBUG) + printf("new_argc = %d\n", new_argc); + for (x = 0; x < new_argc; x++) + printf("new_argv[%d] = %s\n", x, new_argv[x]); +#endif /* TEST || DEBUG */ + + /* Show the complete UNIX command line, if requested. */ + if (verbose_command != 0) + { + printf( " UNIX command line args (argc = %d):\n", new_argc); + for (x = 0; x < new_argc; x++) + printf( "%s\n", new_argv[ x]); + printf( "\n"); + } + + /* + ** All finished. Return the new argc and argv[] addresses to Zip. + */ + *argc_p = new_argc; + *argv_p = new_argv; + + return (SS$_NORMAL); +} + + + +static unsigned long +get_list (struct dsc$descriptor_s *qual, struct dsc$descriptor_d *rawtail, + int delim, char **p_str, unsigned long *p_size, unsigned long *p_end) +{ +/* +** Routine: get_list +** +** Function: This routine runs through a comma-separated CLI list +** and copies the strings to the argv buffer. The +** specified separation character is used to separate +** the strings in the argv buffer. +** +** All unquoted strings are converted to lower-case. +** +** Formal parameters: +** +** qual - Address of descriptor for the qualifier name +** rawtail - Address of descriptor for the full command line tail +** delim - Character to use to separate the list items +** p_str - Address of pointer pointing to output buffer (argv strings) +** p_size - Address of number containing allocated size for output string +** p_end - Address of number containing used length in output buf +** +*/ + + register unsigned long status; + struct dsc$descriptor_d work_str; + + init_dyndesc(work_str); + + status = cli$present(qual); + if (status & 1) { + + unsigned long len, old_len; + long ind, sind; + int keep_case; + char *src, *dst; int x; + + /* + ** Just in case the string doesn't exist yet, though it does. + */ + if (*p_str == NULL) { + *p_size = ARGBSIZE_UNIT; + if ((*p_str = (char *) malloc(*p_size)) == NULL) + return (SS$_INSFMEM); + len = 0; + } else { + len = *p_end; + } + + while ((status = cli$get_value(qual, &work_str)) & 1) { + old_len = len; + len += work_str.dsc$w_length + 1; + CHECK_BUFFER_ALLOCATION(*p_str, *p_size, len) + + /* + ** Look for the filename in the original foreign command + ** line to see if it was originally quoted. If so, then + ** don't convert it to lowercase. + */ + keep_case = FALSE; + str$find_first_substring(rawtail, &ind, &sind, &work_str); + if ((ind > 1 && *(rawtail->dsc$a_pointer + ind - 2) == '"') || + (ind == 0)) + keep_case = TRUE; + + /* + ** Copy the string to the buffer, converting to lowercase. + */ + src = work_str.dsc$a_pointer; + dst = *p_str+old_len; + for (x = 0; x < work_str.dsc$w_length; x++) { + if (!keep_case && ((*src >= 'A') && (*src <= 'Z'))) + *dst++ = *src++ + 32; + else + *dst++ = *src++; + } + if (status == CLI$_COMMA) + (*p_str)[len-1] = (char)delim; + else + (*p_str)[len-1] = '\0'; + } + *p_end = len; + } + + return (SS$_NORMAL); + +} + + +static unsigned long +get_time (struct dsc$descriptor_s *qual, char *timearg) +{ +/* +** Routine: get_time +** +** Function: This routine reads the argument string of the qualifier +** "qual" that should be a VMS syntax date-time string. The +** date-time string is converted into the standard format +** "mmddyyyy", specifying an absolute date. The converted +** string is written into the 9 bytes wide buffer "timearg". +** +** Formal parameters: +** +** qual - Address of descriptor for the qualifier name +** timearg - Address of a buffer carrying the 8-char time string returned +** +*/ + + register unsigned long status; + struct dsc$descriptor_d time_str; + struct quadword { + long high; + long low; + } bintimbuf = {0,0}; +#ifdef __DECC +#pragma member_alignment save +#pragma nomember_alignment +#endif /* __DECC */ + struct tim { + short year; + short month; + short day; + short hour; + short minute; + short second; + short hundred; + } numtimbuf; +#ifdef __DECC +#pragma member_alignment restore +#endif + + init_dyndesc(time_str); + + status = cli$get_value(qual, &time_str); + /* + ** If a date is given, convert it to 64-bit binary. + */ + if (time_str.dsc$w_length) { + status = sys$bintim(&time_str, &bintimbuf); + if (!(status & 1)) return (status); + str$free1_dx(&time_str); + } + /* + ** Now call $NUMTIM to get the month, day, and year. + */ + status = sys$numtim(&numtimbuf, (bintimbuf.low ? &bintimbuf : NULL)); + /* + ** Write the "mmddyyyy" string to the return buffer. + */ + if (!(status & 1)) { + *timearg = '\0'; + } else { + sprintf(timearg, "%02d%02d%04d", numtimbuf.month, + numtimbuf.day, numtimbuf.year); + } + return (status); +} + + +static unsigned long +check_cli (struct dsc$descriptor_s *qual) +{ +/* +** Routine: check_cli +** +** Function: Check to see if a CLD was used to invoke the program. +** +** Formal parameters: +** +** qual - Address of descriptor for qualifier name to check. +** +*/ + lib$establish(lib$sig_to_ret); /* Establish condition handler */ + return (cli$present(qual)); /* Just see if something was given */ +} + + +#ifndef TEST + +void VMSCLI_help(void) /* VMSCLI version */ +/* Print help (along with license info) to stdout. */ +{ + extent i; /* counter for help array */ + + /* help array */ + static char *text[] = { +"Zip %s (%s). Usage: (zip :== $ dev:[dir]zip_cli.exe)", +"zip archive[.zip] [list] [/EXCL=(xlist)] /options /modifiers", +" The default action is to add or replace archive entries from list, except", +" those in xlist. The include file list may contain the special name \"-\" to", +" compress standard input. If both archive and list are omitted, Zip", +" compresses stdin to stdout.", +" Type zip -h for Unix-style flags.", +" Major options include:", +" /COPY, /DELETE, /DIFFERENCE, /FILESYNC, /FRESHEN, /GROW, /MOVE, /UPDATE,", +" /ADJUST_OFFSETS, /FIX_ARCHIVE[={NORMAL|FULL}], /TEST[=UNZIP=cmd], /UNSFX,", +" Modifiers include:", +" /BATCH[=list_file], /BEFORE=creation_time, /COMMENTS[={ARCHIVE|FILES}],", +" /EXCLUDE=(file_list), /EXLIST=file, /INCLUDE=(file_list), /INLIST=file,", +" /LATEST, /OUTPUT=out_archive, /SINCE=creation_time, /TEMP_PATH=directory,", +" /LOG_FILE=(FILE=log_file[,APPEND][,INFORMATIONAL]), /MUST_MATCH,", +" /PATTERN_CASE={BLIND|SENSITIVE}, /NORECURSE|/RECURSE[={PATH|FILENAMES}],", +" /STORE_TYPES=(type_list),", +#if CRYPT +"\ + /QUIET, /VERBOSE[={MORE|DEBUG}], /[NO]DIRNAMES, /JUNK, /ENCRYPT[=\"pwd\"],\ +", +#else /* !CRYPT */ +" /QUIET, /VERBOSE[={MORE|DEBUG}], /[NO]DIRNAMES, /JUNK,", +#endif /* ?CRYPT */ +" /COMPRESSION = {BZIP2|DEFLATE|STORE}, /LEVEL=[0-9], /NOVMS|/VMS[=ALL],", +" /STORE_TYPES=(type_list), /[NO]PRESERVE_CASE[=([NO]ODS{2|5}[,...])],", +" /[NO]PKZIP, /[NO]KEEP_VERSION, /DOT_VERSION, /TRANSLATE_EOL[={LF|CRLF}],", +" /DISPLAY=([BYTES][,COUNTS][,DOTS=mb_per_dot][,GLOBALDOTS][,USIZE]", +" [,VOLUME]), /DESCRIPTORS, /[NO]EXTRA_FIELDS, /ZIP64,", +#ifdef S_IFLNK +" /SPLIT = (SIZE=ssize [,BELL] [,PAUSE] [,VERBOSE]), /SYMLINKS" +#else /* S_IFLNK */ +" /SPLIT = (SIZE=ssize [,BELL] [,PAUSE] [,VERBOSE])" +#endif /* S_IFLNK [else] */ + }; + + if (!show_VMSCLI_help) { + help(); + return; + } + + for (i = 0; i < sizeof(copyright)/sizeof(char *); i++) + { + printf(copyright[i], "zip"); + putchar('\n'); + } + for (i = 0; i < sizeof(text)/sizeof(char *); i++) + { + printf(text[i], VERSION, REVDATE); + putchar('\n'); + } +} /* end function VMSCLI_help() */ + +#endif /* !TEST */ diff --git a/vms/collect_deps.com b/vms/collect_deps.com new file mode 100644 index 0000000..349307c --- /dev/null +++ b/vms/collect_deps.com @@ -0,0 +1,89 @@ +$! 1 December 2006. SMS. +$! +$! Info-ZIP VMS accessory procedure. +$! +$! For the product named by P1, +$! collect all source file dependencies specified by P3, +$! and add P4 prefix. +$! Convert absolute dependencies to relative from one level above P5. +$! P2 = output file specification. +$! +$! MMS /EXTENDED_SYNTAX can't easily pass a macro invocation for P4, so +$! we remove any internal spaces which might have been added to prevent +$! immediate evaluation of a macro invocation. +$! +$ prefix = f$edit( p4, "COLLAPSE") +$! +$ dev_lose = f$edit( f$parse( p5, , , "DEVICE", "SYNTAX_ONLY"), "UPCASE") +$ dir_lose = f$edit( f$parse( p5, , , "DIRECTORY", "SYNTAX_ONLY"), "UPCASE") +$ suffix = ".VMS]" +$ suffix_loc = f$locate( suffix, dir_lose) +$ if (suffix_loc .lt f$length( dir_lose)) +$ then +$ dev_dir_lose = dev_lose+ dir_lose- suffix +$ else +$ dev_dir_lose = dev_lose+ dir_lose- "]" +$ endif +$! +$! For portability, make the output file record format Stream_LF. +$! +$ create /fdl = sys$input 'p2' +RECORD + Carriage_Control carriage_return + Format stream_lf +$! +$ open /read /write /error = end_main deps_out 'p2' +$ on error then goto loop_main_end +$! +$! Include proper-inclusion-check preface. +$! +$ incl_macro = "INCL_"+ f$parse( p2, , , "NAME", "SYNTAX_ONLY") +$ write deps_out "#" +$ write deps_out "# ''p1' for VMS - MMS (or MMK) Source Dependency File." +$ write deps_out "#" +$ write deps_out "" +$ write deps_out - + "# This description file is included by other description files. It is" +$ write deps_out - + "# not intended to be used alone. Verify proper inclusion." +$ write deps_out "" +$ write deps_out ".IFDEF ''incl_macro'" +$ write deps_out ".ELSE" +$ write deps_out - + "$$$$ THIS DESCRIPTION FILE IS NOT INTENDED TO BE USED THIS WAY." +$ write deps_out ".ENDIF" +$ write deps_out "" +$! +$! Actual dependencies from individual dependency files. +$! +$ loop_main_top: +$ file = f$search( p3) +$ if (file .eqs. "") then goto loop_main_end +$! +$ open /read /error = end_subs deps_in 'file' +$ loop_subs_top: +$ read /error = loop_subs_end deps_in line +$ line_reduced = f$edit( line, "COMPRESS, TRIM, UPCASE") +$ colon = f$locate( " : ", line_reduced) +$ d_d_l_loc = f$locate( dev_dir_lose, - + f$extract( (colon+ 3), 1000, line_reduced)) +$ if (d_d_l_loc .eq. 0) +$ then +$ front = f$extract( 0, (colon+ 3), line_reduced) +$ back = f$extract( (colon+ 3+ f$length( dev_dir_lose)), - + 1000, line_reduced) +$ line = front+ "["+ back +$ endif +$ write deps_out "''prefix'"+ "''line'" +$ goto loop_subs_top +$! +$ loop_subs_end: +$ close deps_in +$! +$ goto loop_main_top +$! +$ loop_main_end: +$ close deps_out +$! +$ end_main: +$! diff --git a/vms/cvthelp.tpu b/vms/cvthelp.tpu new file mode 100644 index 0000000..8c60369 --- /dev/null +++ b/vms/cvthelp.tpu @@ -0,0 +1,182 @@ +! TITLE CVTHELP.TPU +! IDENT 01-001 +! +!++ +! Copyright (c) 1990-2001 Info-ZIP. All rights reserved. +! +! See the accompanying file LICENSE, version 2000-Apr-09 or later +! (the contents of which are also included in zip.h) for terms of use. +! If, for some reason, all these files are missing, the Info-ZIP license +! also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +! +!++ +! +! Program: CVTHELP.TPU +! +! Author: Hunter Goatley +! +! Date: January 12, 1992 +! +! Purpose: Convert .HELP files to RUNOFF .RNH files. Substitutes +! RUNOFF commands for tags imbedded in the .HELP file. +! +! Calling sequence: +! +! $ EDIT/TPU/NOJOURNAL/NODISPLAY/COMMAND=CVTHELP file.HELP +! +! Modified by: +! +! 01-001 Hunter Goatley 7-FEB-2001 15:40 +! Added <NEXT> for qualifier separators. +! +! 01-000 Hunter Goatley 12-JAN-1992 15:15 +! Original version. +! +!-- +Procedure eve_convert_help +Local temp + ,x + ; + + qualifier_level := 0; + hg$substitute_topic(current_buffer, "<MAIN>", ".indent-3", "1"); + hg$substitute_topic(current_buffer, "<QUALIFIER>", ".sk;.indent-3", ""); + hg$substitute_topic(current_buffer, "<TOPIC>", ".indent-3", "2"); + hg$substitute_topic(current_buffer, "<SUBTOPIC>", ".indent-3", "3"); + hg$substitute_topic(current_buffer, "<SUBSUBTOPIC>", ".indent-3", "4"); + hg$substitute_comment(current_buffer,"<QUALIFIERS>",".indent-3;2 Qualifiers"); + hg$substitute_comment(current_buffer,"<PARAMETER>",".indent-2"); + hg$substitute_comment(current_buffer,"<PTEXT>",".lm+3"); + hg$substitute_comment(current_buffer,"<TXETP>",".lm-3"); + hg$substitute_comment(current_buffer,"<ETEXT>",".lm+4"); + hg$substitute_comment(current_buffer,"<TXETE>",".lm-4"); + hg$substitute_comment(current_buffer,"<INIT>",".noflags;.lm3;.rm70"); + hg$substitute_comment(current_buffer,"<LITERAL>",".lm+4;.literal"); + hg$substitute_comment(current_buffer,"<LARETIL>",".end literal;.lm-4"); + hg$substitute_comment(current_buffer,"<LITERAL0>",".literal"); + hg$substitute_comment(current_buffer,"<0LARETIL>",".end literal"); + hg$substitute_comment(current_buffer,"<DOT1LIST>",'.list 1,"o"'); + hg$substitute_comment(current_buffer,"<DOT0LIST>",'.list 0,"o"'); + hg$substitute_comment(current_buffer,"<ENTRY>",".le"); + hg$substitute_comment(current_buffer,"<TSIL>",".end list"); + hg$substitute_comment(current_buffer,"<CENTER>",".center"); + hg$substitute_comment(current_buffer,"<FORMAT>",".sk;.indent2"); + hg$substitute_comment(current_buffer,"<NOTE>",".note"); + hg$substitute_comment(current_buffer,"<ETON>",".end note"); + hg$substitute_comment(current_buffer, LINE_BEGIN & LINE_END,".sk"); + hg$substitute_comment(current_buffer, LINE_BEGIN & "|", ""); + hg$substitute_comment(current_buffer,"<NEXT>",".br"); + +EndProcedure; ! eve_convert_help + +Procedure hg$substitute_comment (the_buffer, target, new) +Local temp + ,save_pos + ,x + ; + on_error; + endon_error; + + save_pos := mark(none); + position(beginning_of(the_buffer)); + loop + x := search(target, forward); + exitif x = 0; + position (x); + erase_character(length(x)); + copy_text(new); + endloop; + + position(save_pos); + +EndProcedure; ! hg$substitute_comment + +Procedure hg$substitute_topic (the_buffer, target, new, level) +Local temp + ,save_pos + ,x + ; + on_error; + endon_error; + + save_pos := mark(none); + position(beginning_of(the_buffer)); + loop + x := search(target, forward); + exitif x = 0; + position (x); + erase_character(length(x)); + move_vertical(-1); + if (length(current_line) = 0) + then copy_text("|"); + endif; + move_vertical(1); + copy_text(".!------------------------------------------------------"); + split_line; + copy_text(new); + move_horizontal(-current_offset); + move_vertical(1); + if level <> "" then + copy_text(level + " "); +! else +! if qualifier_level = 0 +! then +! copy_text("2 Qualifiers"); +! split_line; split_line; +! copy_text(new); split_line; +! qualifier_level := 1; +! endif; + endif; + move_horizontal(-current_offset); + move_vertical(1); + if length(current_line) = 0 + then + if (target = "<MAIN>") OR (target = "<TOPIC>") + OR (target = "<SUBTOPIC>") or (target = "<SUBSUBTOPIC>") + then copy_text(".br"); + else copy_text(".sk"); + endif; + endif; + endloop; + + position(save_pos); + +EndProcedure; ! hg$substitute_topic + +!=============================================================================== +Procedure tpu$init_procedure +Local temp + ,orig_filespec + ,f + ; + + on_error + endon_error; + + !Prompt user for information + + orig_filespec := get_info(command_line, "file_name"); + if orig_filespec = "" + then + message("No .HELP file given"); + quit; + endif; + f := file_parse(orig_filespec, ".HELP"); !Add .LIS ending + + ! Create a buffer and window for editing + + main_buf := create_buffer ("MAIN",f); + set (eob_text, main_buf, "[End of buffer]"); + + position (beginning_of(main_buf)); + + eve_convert_help; + + f := file_parse(orig_filespec,"","",NAME); + + write_file (main_buf, f+".RNH"); + + quit; +EndProcedure; !TPU$INIT_PROCEDURE + +tpu$init_procedure; diff --git a/vms/descrip.mms b/vms/descrip.mms new file mode 100644 index 0000000..ae2bc04 --- /dev/null +++ b/vms/descrip.mms @@ -0,0 +1,358 @@ +# 23 February 2007. SMS. +# +# Zip 3.0 for VMS - MMS (or MMK) Description File. +# +# Usage: +# +# MMS /DESCRIP = [.VMS]DESCRIP.MMS [/MACRO = (<see_below>)] [target] +# +# Note that this description file must be used from the main +# distribution directory, not from the [.VMS] subdirectory. +# +# Optional macros: +# +# CCOPTS=xxx Compile with CC options xxx. For example: +# CCOPTS=/ARCH=HOST +# +# DBG=1 Compile with /DEBUG /NOOPTIMIZE. +# Link with /DEBUG /TRACEBACK. +# (Default is /NOTRACEBACK.) +# +# IM=1 Use the old "IM" scheme for storing VMS/RMS file +# atributes, instead of the newer "PK" scheme. +# +# IZ_BZIP2=dev:[dir] Add optional BZIP2 support. The valus of the +# MMS macro IZ_BZIP2 ("dev:[dir]", or a suitable +# logical name) tells where to find "bzlib.h". The +# BZIP2 object library (LIBBZ2_NS.OLB) is expected to +# be in a "[.dest]" directory under that one +# ("dev:[dir.ALPHAL]", for example), or in that +# directory itself. +# +# LARGE=1 Enable large-file (>2GB) support. Non-VAX only. +# +# LINKOPTS=xxx Link with LINK options xxx. For example: +# LINKOPTS=/NOINFO +# +# LIST=1 Compile with /LIST /SHOW = (ALL, NOMESSAGES). +# Link with /MAP /CROSS_REFERENCE /FULL. +# +# "LOCAL_ZIP=c_macro_1=value1 [, c_macro_2=value2 [...]]" +# Compile with these additional C macros defined. +# +# VAX-specific optional macros: +# +# VAXC=1 Use the VAX C compiler, assuming "CC" runs it. +# (That is, DEC C is not installed, or else DEC C is +# installed, but VAX C is the default.) +# +# FORCE_VAXC=1 Use the VAX C compiler, assuming "CC /VAXC" runs it. +# (That is, DEC C is installed, and it is the +# default, but you want VAX C anyway, you fool.) +# +# GNUC=1 Use the GNU C compiler. (Seriously under-tested.) +# +# +# The default target, ALL, builds the selected product executables and +# help files. +# +# Other targets: +# +# CLEAN deletes architecture-specific files, but leaves any +# individual source dependency files and the help files. +# +# CLEAN_ALL deletes all generated files, except the main (collected) +# source dependency file. +# +# CLEAN_EXE deletes only the architecture-specific executables. +# Handy if all you wish to do is re-link the executables. +# +# Example commands: +# +# To build the conventional small-file product using the DEC/Compaq/HP C +# compiler (Note: DESCRIP.MMS is the default description file name.): +# +# MMS /DESCRIP = [.VMS] +# +# To get the large-file executables (on a non-VAX system): +# +# MMS /DESCRIP = [.VMS] /MACRO = (LARGE=1) +# +# To delete the architecture-specific generated files for this system +# type: +# +# MMS /DESCRIP = [.VMS] /MACRO = (LARGE=1) CLEAN ! Large-file. +# or +# MMS /DESCRIP = [.VMS] CLEAN ! Small-file. +# +# To build a complete small-file product for debug with compiler +# listings and link maps: +# +# MMS /DESCRIP = [.VMS] CLEAN +# MMS /DESCRIP = [.VMS] /MACRO = (DBG=1, LIST=1) +# +######################################################################## + +# Include primary product description file. + +INCL_DESCRIP_SRC = 1 +.INCLUDE [.VMS]DESCRIP_SRC.MMS + +# Object library names. + +LIB_ZIP = [.$(DEST)]ZIP.OLB +LIB_ZIPCLI = [.$(DEST)]ZIPCLI.OLB +LIB_ZIPUTILS = [.$(DEST)]ZIPUTILS.OLB + +# Help file names. + +ZIP_HELP = ZIP.HLP ZIP_CLI.HLP + +# Message file names. + +ZIP_MSG_MSG = [.VMS]ZIP_MSG.MSG +ZIP_MSG_EXE = [.$(DEST)]ZIP_MSG.EXE +ZIP_MSG_OBJ = [.$(DEST)]ZIP_MSG.OBJ + + +# TARGETS. + +# Default target, ALL. Build All Zip executables, utility executables, +# and help files. + +ALL : $(ZIP) $(ZIP_CLI) $(ZIPUTILS) $(ZIP_HELP) $(ZIP_MSG_EXE) + @ write sys$output "Done." + +# CLEAN target. Delete the [.$(DEST)] directory and everything in it. + +CLEAN : + if (f$search( "[.$(DEST)]*.*") .nes. "") then - + delete /noconfirm [.$(DEST)]*.*;* + if (f$search( "$(DEST).DIR") .nes. "") then - + set protection = w:d $(DEST).DIR;* + if (f$search( "$(DEST).DIR") .nes. "") then - + delete /noconfirm $(DEST).DIR;* + +# CLEAN_ALL target. Delete: +# The [.$(DEST)] directories and everything in them. +# All help-related derived files, +# All individual C dependency files. +# Also mention: +# Comprehensive dependency file. + +CLEAN_ALL : + if (f$search( "[.ALPHA*]*.*") .nes. "") then - + delete /noconfirm [.ALPHA*]*.*;* + if (f$search( "ALPHA*.DIR", 1) .nes. "") then - + set protection = w:d ALPHA*.DIR;* + if (f$search( "ALPHA*.DIR", 2) .nes. "") then - + delete /noconfirm ALPHA*.DIR;* + if (f$search( "[.IA64*]*.*") .nes. "") then - + delete /noconfirm [.IA64*]*.*;* + if (f$search( "IA64*.DIR", 1) .nes. "") then - + set protection = w:d IA64*.DIR;* + if (f$search( "IA64*.DIR", 2) .nes. "") then - + delete /noconfirm IA64*.DIR;* + if (f$search( "[.VAX*]*.*") .nes. "") then - + delete /noconfirm [.VAX*]*.*;* + if (f$search( "VAX*.DIR", 1) .nes. "") then - + set protection = w:d VAX*.DIR;* + if (f$search( "VAX*.DIR", 2) .nes. "") then - + delete /noconfirm VAX*.DIR;* + if (f$search( "[.vms]ZIP_CLI.RNH") .nes. "") then - + delete /noconfirm [.vms]ZIP_CLI.RNH;* + if (f$search( "ZIP_CLI.HLP") .nes. "") then - + delete /noconfirm ZIP_CLI.HLP;* + if (f$search( "ZIP.HLP") .nes. "") then - + delete /noconfirm ZIP.HLP;* + if (f$search( "*.MMSD") .nes. "") then - + delete /noconfirm *.MMSD;* + if (f$search( "[.vms]*.MMSD") .nes. "") then - + delete /noconfirm [.vms]*.MMSD;* + @ write sys$output "" + @ write sys$output "Note: This procedure will not" + @ write sys$output " DELETE [.VMS]DESCRIP_DEPS.MMS;*" + @ write sys$output - + "You may choose to, but a recent version of MMS (V3.5 or newer?) is" + @ write sys$output - + "needed to regenerate it. (It may also be recovered from the original" + @ write sys$output - + "distribution kit.) See [.VMS]DESCRIP_MKDEPS.MMS for instructions on" + @ write sys$output - + "generating [.VMS]DESCRIP_DEPS.MMS." + @ write sys$output "" + @ write sys$output - + "It also does not delete the error message source file:" + @ write sys$output " DELETE [.VMS]ZIP_MSG.MSG;*" + @ write sys$output - + "but it can regenerate it if needed." + @ write sys$output "" + +# CLEAN_EXE target. Delete the executables in [.$(DEST)]. + +CLEAN_EXE : + if (f$search( "[.$(DEST)]*.EXE") .nes. "") then - + delete /noconfirm [.$(DEST)]*.EXE;* + + +# Object library module dependencies. + +$(LIB_ZIP) : $(LIB_ZIP)($(MODS_OBJS_LIB_ZIP)) + @ write sys$output "$(MMS$TARGET) updated." + +$(LIB_ZIPCLI) : $(LIB_ZIPCLI)($(MODS_OBJS_LIB_ZIPCLI)) + @ write sys$output "$(MMS$TARGET) updated." + +$(LIB_ZIPUTILS) : $(LIB_ZIPUTILS)($(MODS_OBJS_LIB_ZIPUTILS)) + @ write sys$output "$(MMS$TARGET) updated." + +# Module ID options file. + +OPT_ID = SYS$DISK:[.VMS]ZIP.OPT + +# Default C compile rule. + +.C.OBJ : + $(CC) $(CFLAGS) $(CDEFS_UNX) $(MMS$SOURCE) + + +# Normal sources in [.VMS]. + +[.$(DEST)]VMS.OBJ : [.VMS]VMS.C +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]VMSMUNCH.C +[.$(DEST)]VMSZIP.OBJ : [.VMS]VMSZIP.C + +# Command-line interface files. + +[.$(DEST)]CMDLINE.OBJ : [.VMS]CMDLINE.C + $(CC) $(CFLAGS) $(CDEFS_CLI) $(MMS$SOURCE) + +[.$(DEST)]ZIPCLI.OBJ : ZIP.C + $(CC) $(CFLAGS) $(CDEFS_CLI) $(MMS$SOURCE) + +[.$(DEST)]ZIP_CLI.OBJ : [.VMS]ZIP_CLI.CLD + +# Utility variant sources. + +[.$(DEST)]CRC32_.OBJ : CRC32.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]CRYPT_.OBJ : CRYPT.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]FILEIO_.OBJ : FILEIO.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]UTIL_.OBJ : UTIL.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]ZIPFILE_.OBJ : ZIPFILE.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]VMS_.OBJ : [.VMS]VMS.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +# Utility main sources. + +[.$(DEST)]ZIPCLOAK.OBJ : ZIPCLOAK.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]ZIPNOTE.OBJ : ZIPNOTE.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +[.$(DEST)]ZIPSPLIT.OBJ : ZIPSPLIT.C + $(CC) $(CFLAGS) $(CDEFS_UTIL) $(MMS$SOURCE) + +# VAX C LINK options file. + +.IFDEF OPT_FILE +$(OPT_FILE) : + open /write opt_file_ln $(OPT_FILE) + write opt_file_ln "SYS$SHARE:VAXCRTL.EXE /SHARE" + close opt_file_ln +.ENDIF + +# Normal Zip executable. + +$(ZIP) : [.$(DEST)]ZIP.OBJ $(LIB_ZIP) $(OPT_FILE) + $(LINK) $(LINKFLAGS) $(MMS$SOURCE), - + $(LIB_ZIP) /include = (GLOBALS $(INCL_BZIP2_M)) /library, - + $(LIB_BZIP2_OPTS) - + $(LFLAGS_ARCH) - + $(OPT_ID) /options + +# CLI Zip executable. + +$(ZIP_CLI) : [.$(DEST)]ZIPCLI.OBJ \ + $(LIB_ZIPCLI) $(OPT_ID) $(OPT_FILE) + $(LINK) $(LINKFLAGS) $(MMS$SOURCE), - + $(LIB_ZIPCLI) /library, - + $(LIB_ZIP) /include = (GLOBALS $(INCL_BZIP2_M)) /library, - + $(LIB_BZIP2_OPTS) - + $(LFLAGS_ARCH) - + $(OPT_ID) /options + +# Utility executables. + +[.$(DEST)]ZIPCLOAK.EXE : [.$(DEST)]ZIPCLOAK.OBJ \ + $(LIB_ZIPUTILS) \ + $(OPT_ID) $(OPT_FILE) + $(LINK) $(LINKFLAGS) $(MMS$SOURCE), - + $(LIB_ZIPUTILS) /include = (GLOBALS) /library, - + $(LFLAGS_ARCH) - + $(OPT_ID) /options + +[.$(DEST)]ZIPNOTE.EXE : [.$(DEST)]ZIPNOTE.OBJ \ + $(LIB_ZIPUTILS) \ + $(OPT_ID) $(OPT_FILE) + $(LINK) $(LINKFLAGS) $(MMS$SOURCE), - + $(LIB_ZIPUTILS) /include = (GLOBALS) /library, - + $(LFLAGS_ARCH) - + $(OPT_ID) /options + +[.$(DEST)]ZIPSPLIT.EXE : [.$(DEST)]ZIPSPLIT.OBJ \ + $(LIB_ZIPUTILS) \ + $(OPT_ID) $(OPT_FILE) + $(LINK) $(LINKFLAGS) $(MMS$SOURCE), - + $(LIB_ZIPUTILS) /include = (GLOBALS) /library, - + $(LFLAGS_ARCH) - + $(OPT_ID) /options + +# Help files. + +ZIP.HLP : [.VMS]VMS_ZIP.RNH + runoff /output = $(MMS$TARGET) $(MMS$SOURCE) + +ZIP_CLI.HLP : [.VMS]ZIP_CLI.HELP [.VMS]CVTHELP.TPU + edit := edit + edit /tpu /nosection /nodisplay /command = [.VMS]CVTHELP.TPU - + $(MMS$SOURCE) + rename /noconfirm ZIP_CLI.RNH; [.VMS]; + purge /noconfirm /nolog /keep = 1 [.VMS]ZIP_CLI.RNH + runoff /output = $(MMS$TARGET) [.VMS]ZIP_CLI.RNH + +# Message file. + +$(ZIP_MSG_EXE) : $(ZIP_MSG_OBJ) + link /shareable = $(MMS$TARGET) $(ZIP_MSG_OBJ) + +$(ZIP_MSG_OBJ) : $(ZIP_MSG_MSG) + message /object = $(MMS$TARGET) /nosymbols $(ZIP_MSG_MSG) + +$(ZIP_MSG_MSG) : ZIPERR.H [.VMS]STREAM_LF.FDL [.VMS]VMS_MSG_GEN.C + $(CC) /include = [] /object = [.$(DEST)]VMS_MSG_GEN.OBJ - + [.VMS]VMS_MSG_GEN.C + $(LINK) /executable = [.$(DEST)]VMS_MSG_GEN.EXE - + $(LFLAGS_ARCH) - + [.$(DEST)]VMS_MSG_GEN.OBJ + create /fdl = [.VMS]STREAM_LF.FDL $(MMS$TARGET) + define /user_mode sys$output $(MMS$TARGET) + run [.$(DEST)]VMS_MSG_GEN.EXE + purge $(MMS$TARGET) + delete [.$(DEST)]VMS_MSG_GEN.EXE;*, [.$(DEST)]VMS_MSG_GEN.OBJ;* + +# Include generated source dependencies. + +INCL_DESCRIP_DEPS = 1 +.INCLUDE [.VMS]DESCRIP_DEPS.MMS + diff --git a/vms/descrip_deps.mms b/vms/descrip_deps.mms new file mode 100644 index 0000000..cf8f9b1 --- /dev/null +++ b/vms/descrip_deps.mms @@ -0,0 +1,207 @@ +# +# Zip for VMS - MMS (or MMK) Source Dependency File. +# + +# This description file is included by other description files. It is +# not intended to be used alone. Verify proper inclusion. + +.IFDEF INCL_DESCRIP_DEPS +.ELSE +$$$$ THIS DESCRIPTION FILE IS NOT INTENDED TO BE USED THIS WAY. +.ENDIF + +[.$(DEST)]CRC32.OBJ : []CRC32.C +[.$(DEST)]CRC32.OBJ : []ZIP.H +[.$(DEST)]CRC32.OBJ : []TAILOR.H +[.$(DEST)]CRC32.OBJ : [.VMS]OSDEP.H +[.$(DEST)]CRC32.OBJ : []ZIPERR.H +[.$(DEST)]CRC32.OBJ : []CRC32.H +[.$(DEST)]CRC32_.OBJ : []CRC32.C +[.$(DEST)]CRC32_.OBJ : []ZIP.H +[.$(DEST)]CRC32_.OBJ : []TAILOR.H +[.$(DEST)]CRC32_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]CRC32_.OBJ : []ZIPERR.H +[.$(DEST)]CRC32_.OBJ : []CRC32.H +[.$(DEST)]CRYPT.OBJ : []CRYPT.C +[.$(DEST)]CRYPT.OBJ : []ZIP.H +[.$(DEST)]CRYPT.OBJ : []TAILOR.H +[.$(DEST)]CRYPT.OBJ : [.VMS]OSDEP.H +[.$(DEST)]CRYPT.OBJ : []ZIPERR.H +[.$(DEST)]CRYPT.OBJ : []CRYPT.H +[.$(DEST)]CRYPT.OBJ : []TTYIO.H +[.$(DEST)]CRYPT.OBJ : []CRC32.H +[.$(DEST)]CRYPT_.OBJ : []CRYPT.C +[.$(DEST)]CRYPT_.OBJ : []ZIP.H +[.$(DEST)]CRYPT_.OBJ : []TAILOR.H +[.$(DEST)]CRYPT_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]CRYPT_.OBJ : []ZIPERR.H +[.$(DEST)]CRYPT_.OBJ : []CRYPT.H +[.$(DEST)]CRYPT_.OBJ : []TTYIO.H +[.$(DEST)]CRYPT_.OBJ : []CRC32.H +[.$(DEST)]DEFLATE.OBJ : []DEFLATE.C +[.$(DEST)]DEFLATE.OBJ : []ZIP.H +[.$(DEST)]DEFLATE.OBJ : []TAILOR.H +[.$(DEST)]DEFLATE.OBJ : [.VMS]OSDEP.H +[.$(DEST)]DEFLATE.OBJ : []ZIPERR.H +[.$(DEST)]FILEIO.OBJ : []FILEIO.C +[.$(DEST)]FILEIO.OBJ : []ZIP.H +[.$(DEST)]FILEIO.OBJ : []TAILOR.H +[.$(DEST)]FILEIO.OBJ : [.VMS]OSDEP.H +[.$(DEST)]FILEIO.OBJ : []ZIPERR.H +[.$(DEST)]FILEIO.OBJ : []CRC32.H +[.$(DEST)]FILEIO.OBJ : [.VMS]VMS.H +[.$(DEST)]FILEIO_.OBJ : []FILEIO.C +[.$(DEST)]FILEIO_.OBJ : []ZIP.H +[.$(DEST)]FILEIO_.OBJ : []TAILOR.H +[.$(DEST)]FILEIO_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]FILEIO_.OBJ : []ZIPERR.H +[.$(DEST)]FILEIO_.OBJ : []CRC32.H +[.$(DEST)]FILEIO_.OBJ : [.VMS]VMS.H +[.$(DEST)]GLOBALS.OBJ : []GLOBALS.C +[.$(DEST)]GLOBALS.OBJ : []ZIP.H +[.$(DEST)]GLOBALS.OBJ : []TAILOR.H +[.$(DEST)]GLOBALS.OBJ : [.VMS]OSDEP.H +[.$(DEST)]GLOBALS.OBJ : []ZIPERR.H +[.$(DEST)]TREES.OBJ : []TREES.C +[.$(DEST)]TREES.OBJ : []ZIP.H +[.$(DEST)]TREES.OBJ : []TAILOR.H +[.$(DEST)]TREES.OBJ : [.VMS]OSDEP.H +[.$(DEST)]TREES.OBJ : []ZIPERR.H +[.$(DEST)]TTYIO.OBJ : []TTYIO.C +[.$(DEST)]TTYIO.OBJ : []ZIP.H +[.$(DEST)]TTYIO.OBJ : []TAILOR.H +[.$(DEST)]TTYIO.OBJ : [.VMS]OSDEP.H +[.$(DEST)]TTYIO.OBJ : []ZIPERR.H +[.$(DEST)]TTYIO.OBJ : []CRYPT.H +[.$(DEST)]TTYIO.OBJ : []TTYIO.H +[.$(DEST)]UTIL.OBJ : []UTIL.C +[.$(DEST)]UTIL.OBJ : []ZIP.H +[.$(DEST)]UTIL.OBJ : []TAILOR.H +[.$(DEST)]UTIL.OBJ : [.VMS]OSDEP.H +[.$(DEST)]UTIL.OBJ : []ZIPERR.H +[.$(DEST)]UTIL.OBJ : []EBCDIC.H +[.$(DEST)]UTIL_.OBJ : []UTIL.C +[.$(DEST)]UTIL_.OBJ : []ZIP.H +[.$(DEST)]UTIL_.OBJ : []TAILOR.H +[.$(DEST)]UTIL_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]UTIL_.OBJ : []ZIPERR.H +[.$(DEST)]UTIL_.OBJ : []EBCDIC.H +[.$(DEST)]ZBZ2ERR.OBJ : []ZBZ2ERR.C +[.$(DEST)]ZBZ2ERR.OBJ : []ZIP.H +[.$(DEST)]ZBZ2ERR.OBJ : []TAILOR.H +[.$(DEST)]ZBZ2ERR.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZBZ2ERR.OBJ : []ZIPERR.H +[.$(DEST)]ZIP.OBJ : []ZIP.C +[.$(DEST)]ZIP.OBJ : []ZIP.H +[.$(DEST)]ZIP.OBJ : []TAILOR.H +[.$(DEST)]ZIP.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIP.OBJ : []ZIPERR.H +[.$(DEST)]ZIP.OBJ : []REVISION.H +[.$(DEST)]ZIP.OBJ : []CRC32.H +[.$(DEST)]ZIP.OBJ : []CRYPT.H +[.$(DEST)]ZIP.OBJ : []TTYIO.H +[.$(DEST)]ZIP.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]ZIP.OBJ : [.VMS]VMS.H +[.$(DEST)]ZIPCLI.OBJ : []ZIP.C +[.$(DEST)]ZIPCLI.OBJ : []ZIP.H +[.$(DEST)]ZIPCLI.OBJ : []TAILOR.H +[.$(DEST)]ZIPCLI.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPCLI.OBJ : []ZIPERR.H +[.$(DEST)]ZIPCLI.OBJ : []REVISION.H +[.$(DEST)]ZIPCLI.OBJ : []CRC32.H +[.$(DEST)]ZIPCLI.OBJ : []CRYPT.H +[.$(DEST)]ZIPCLI.OBJ : []TTYIO.H +[.$(DEST)]ZIPCLI.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]ZIPCLI.OBJ : [.VMS]VMS.H +[.$(DEST)]ZIPCLOAK.OBJ : []ZIPCLOAK.C +[.$(DEST)]ZIPCLOAK.OBJ : []ZIP.H +[.$(DEST)]ZIPCLOAK.OBJ : []TAILOR.H +[.$(DEST)]ZIPCLOAK.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPCLOAK.OBJ : []ZIPERR.H +[.$(DEST)]ZIPCLOAK.OBJ : []REVISION.H +[.$(DEST)]ZIPCLOAK.OBJ : []CRC32.H +[.$(DEST)]ZIPCLOAK.OBJ : []CRYPT.H +[.$(DEST)]ZIPCLOAK.OBJ : []TTYIO.H +[.$(DEST)]ZIPFILE.OBJ : []ZIPFILE.C +[.$(DEST)]ZIPFILE.OBJ : []ZIP.H +[.$(DEST)]ZIPFILE.OBJ : []TAILOR.H +[.$(DEST)]ZIPFILE.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPFILE.OBJ : []ZIPERR.H +[.$(DEST)]ZIPFILE.OBJ : []REVISION.H +[.$(DEST)]ZIPFILE.OBJ : [.VMS]VMS.H +[.$(DEST)]ZIPFILE.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]ZIPFILE.OBJ : [.VMS]VMSDEFS.H +[.$(DEST)]ZIPFILE_.OBJ : []ZIPFILE.C +[.$(DEST)]ZIPFILE_.OBJ : []ZIP.H +[.$(DEST)]ZIPFILE_.OBJ : []TAILOR.H +[.$(DEST)]ZIPFILE_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPFILE_.OBJ : []ZIPERR.H +[.$(DEST)]ZIPFILE_.OBJ : []REVISION.H +[.$(DEST)]ZIPFILE_.OBJ : [.VMS]VMS.H +[.$(DEST)]ZIPFILE_.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]ZIPFILE_.OBJ : [.VMS]VMSDEFS.H +[.$(DEST)]ZIPNOTE.OBJ : []ZIPNOTE.C +[.$(DEST)]ZIPNOTE.OBJ : []ZIP.H +[.$(DEST)]ZIPNOTE.OBJ : []TAILOR.H +[.$(DEST)]ZIPNOTE.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPNOTE.OBJ : []ZIPERR.H +[.$(DEST)]ZIPNOTE.OBJ : []REVISION.H +[.$(DEST)]ZIPSPLIT.OBJ : []ZIPSPLIT.C +[.$(DEST)]ZIPSPLIT.OBJ : []ZIP.H +[.$(DEST)]ZIPSPLIT.OBJ : []TAILOR.H +[.$(DEST)]ZIPSPLIT.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPSPLIT.OBJ : []ZIPERR.H +[.$(DEST)]ZIPSPLIT.OBJ : []REVISION.H +[.$(DEST)]ZIPUP.OBJ : []ZIPUP.C +[.$(DEST)]ZIPUP.OBJ : []ZIP.H +[.$(DEST)]ZIPUP.OBJ : []TAILOR.H +[.$(DEST)]ZIPUP.OBJ : [.VMS]OSDEP.H +[.$(DEST)]ZIPUP.OBJ : []ZIPERR.H +[.$(DEST)]ZIPUP.OBJ : []REVISION.H +[.$(DEST)]ZIPUP.OBJ : []CRC32.H +[.$(DEST)]ZIPUP.OBJ : []CRYPT.H +[.$(DEST)]ZIPUP.OBJ : [.VMS]ZIPUP.H +[.$(DEST)]CMDLINE.OBJ : [.VMS]CMDLINE.C +[.$(DEST)]CMDLINE.OBJ : []ZIP.H +[.$(DEST)]CMDLINE.OBJ : []TAILOR.H +[.$(DEST)]CMDLINE.OBJ : [.VMS]OSDEP.H +[.$(DEST)]CMDLINE.OBJ : []ZIPERR.H +[.$(DEST)]CMDLINE.OBJ : []CRYPT.H +[.$(DEST)]CMDLINE.OBJ : []REVISION.H +[.$(DEST)]VMS.OBJ : [.VMS]VMS.C +[.$(DEST)]VMS.OBJ : []ZIP.H +[.$(DEST)]VMS.OBJ : []TAILOR.H +[.$(DEST)]VMS.OBJ : [.VMS]OSDEP.H +[.$(DEST)]VMS.OBJ : []ZIPERR.H +[.$(DEST)]VMS.OBJ : [.VMS]ZIPUP.H +[.$(DEST)]VMS.OBJ : [.VMS]VMS_PK.C +[.$(DEST)]VMS.OBJ : []CRC32.H +[.$(DEST)]VMS.OBJ : [.VMS]VMS.H +[.$(DEST)]VMS.OBJ : [.VMS]VMSDEFS.H +[.$(DEST)]VMS.OBJ : [.VMS]VMS_IM.C +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]VMSMUNCH.C +[.$(DEST)]VMSMUNCH.OBJ : []ZIP.H +[.$(DEST)]VMSMUNCH.OBJ : []TAILOR.H +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]OSDEP.H +[.$(DEST)]VMSMUNCH.OBJ : []ZIPERR.H +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]VMS.H +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]VMSMUNCH.OBJ : [.VMS]VMSDEFS.H +[.$(DEST)]VMSZIP.OBJ : [.VMS]VMSZIP.C +[.$(DEST)]VMSZIP.OBJ : []ZIP.H +[.$(DEST)]VMSZIP.OBJ : []TAILOR.H +[.$(DEST)]VMSZIP.OBJ : [.VMS]OSDEP.H +[.$(DEST)]VMSZIP.OBJ : []ZIPERR.H +[.$(DEST)]VMSZIP.OBJ : [.VMS]VMSMUNCH.H +[.$(DEST)]VMSZIP.OBJ : [.VMS]VMS.H +[.$(DEST)]VMS_.OBJ : [.VMS]VMS.C +[.$(DEST)]VMS_.OBJ : []ZIP.H +[.$(DEST)]VMS_.OBJ : []TAILOR.H +[.$(DEST)]VMS_.OBJ : [.VMS]OSDEP.H +[.$(DEST)]VMS_.OBJ : []ZIPERR.H +[.$(DEST)]VMS_.OBJ : [.VMS]ZIPUP.H +[.$(DEST)]VMS_.OBJ : [.VMS]VMS_PK.C +[.$(DEST)]VMS_.OBJ : []CRC32.H +[.$(DEST)]VMS_.OBJ : [.VMS]VMS.H +[.$(DEST)]VMS_.OBJ : [.VMS]VMSDEFS.H +[.$(DEST)]VMS_.OBJ : [.VMS]VMS_IM.C diff --git a/vms/descrip_mkdeps.mms b/vms/descrip_mkdeps.mms new file mode 100644 index 0000000..9bf5add --- /dev/null +++ b/vms/descrip_mkdeps.mms @@ -0,0 +1,247 @@ +# 1 February 2008. SMS. +# +# Zip 3.0 for VMS - MMS Dependency Description File. +# +# MMS /EXTENDED_SYNTAX description file to generate a C source +# dependencies file. Unsightly errors result when /EXTENDED_SYNTAX +# is not specified. Typical usage: +# +# $ MMS /EXTEND /DESCRIP = [.VMS]DESCRIP_MKDEPS.MMS /SKIP +# +# Note that this description file must be used from the main +# distribution directory, not from the [.VMS] subdirectory. +# +# This description file uses these command procedures: +# +# [.VMS]MOD_DEP.COM +# [.VMS]COLLECT_DEPS.COM +# +# MMK users without MMS will be unable to generate the dependencies file +# using this description file, however there should be one supplied in +# the kit. If this file has been deleted, users in this predicament +# will need to recover it from the original distribution kit. +# +# Note: This dependency generation scheme assumes that the dependencies +# do not depend on host architecture type or other such variables. +# Therefore, no "#include" directive in the C source itself should be +# conditional on such variables. +# +# The default target is the comprehensive source dependency file, +# DEPS_FILE = [.VMS]DESCRIP_DEPS.MMS. +# +# Other targets: +# +# CLEAN deletes the individual source dependency files, +# *.MMSD;*, but leaves the comprehensive source dependency +# file. +# +# CLEAN_ALL deletes all source dependency files, including the +# individual *.MMSD;* files and the comprehensive file, +# DESCRIP_DEPS.MMS.*. +# + +# Required command procedures. + +COMS = [.VMS]MOD_DEP.COM [.VMS]COLLECT_DEPS.COM + +# Include the source file lists (among other data). + +INCL_DESCRIP_SRC = 1 +.INCLUDE [.VMS]DESCRIP_SRC.MMS + +# The ultimate product, a comprehensive dependency list. + +DEPS_FILE = [.VMS]DESCRIP_DEPS.MMS + +# Detect valid qualifier and/or macro options. + +.IF $(FINDSTRING Skip, $(MMSQUALIFIERS)) .eq Skip +DELETE_MMSD = 1 +.ELSIF NOSKIP +PURGE_MMSD = 1 +.ELSE +UNK_MMSD = 1 +.ENDIF + +# Dependency suffixes and rules. +# +# .FIRST is assumed to be used already, so the MMS qualifier/macro check +# is included in each rule (one way or another). + +.SUFFIXES_BEFORE .C .MMSD + +.C.MMSD : +.IF UNK_MMSD + @ write sys$output - + " /SKIP_INTERMEDIATES is expected on the MMS command line." + @ write sys$output - + " For normal behavior (delete .MMSD files), specify ""/SKIP""." + @ write sys$output - + " To retain the .MMSD files, specify ""/MACRO = NOSKIP=1""." + @ exit %x00000004 +.ENDIF + $(CC) $(CFLAGS_INCL) $(MMS$SOURCE) /NOLIST /NOOBJECT - + /MMS_DEPENDENCIES = (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + +# List of MMS dependency files. + +# In case it's not obvious... +# To extract module name lists from object library module=object lists: +# 1. Transform "module=[.dest]name.OBJ" into "module=[.dest] name". +# 2. For [.VMS], add [.VMS] to name. +# 3. Delete "*]" words. +# +# A similar scheme works for executable lists. + +MODS_LIB_ZIP_N = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] *, $(MODS_OBJS_LIB_ZIP_N))) + +MODS_LIB_ZIP_V = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] [.VMS]*, $(MODS_OBJS_LIB_ZIP_V))) + +MODS_LIB_ZIPUTILS_N = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] *, $(MODS_OBJS_LIB_ZIPUTILS_N))) + +MODS_LIB_ZIPUTILS_N_V = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] [.VMS]*, $(MODS_OBJS_LIB_ZIPUTILS_N_V))) + +MODS_LIB_ZIPUTILS_U = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] *, $(MODS_OBJS_LIB_ZIPUTILS_U))) + +MODS_LIB_ZIPUTILS_U_V = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] [.VMS]*, $(MODS_OBJS_LIB_ZIPUTILS_U_V))) + +MODS_LIB_ZIPCLI_V = $(FILTER-OUT *], \ + $(PATSUBST *]*.OBJ, *] [.VMS]*, $(MODS_OBJS_LIB_ZIPCLI_C_V))) + +MODS_ZIP = $(FILTER-OUT *], \ + $(PATSUBST *]*.EXE, *] *, $(ZIP))) + +MODS_ZIPUTILS = $(FILTER-OUT *], \ + $(PATSUBST *]*.EXE, *] *, $(ZIPUTILS))) + +# Complete list of C object dependency file names. +# Note that the CLI Zip main program object file is a special case. + +DEPS = $(FOREACH NAME, \ + $(MODS_LIB_ZIP_N) $(MODS_LIB_ZIP_V) \ + $(MODS_ZIPUTILS_N) $(MODS_ZIPUTILS_N_V) \ + $(MODS_LIB_ZIPUTILS_U) $(MODS_LIB_ZIPUTILS_U_V) \ + $(MODS_LIB_ZIPCLI_V) \ + $(MODS_ZIP) ZIPCLI $(MODS_ZIPUTILS), \ + $(NAME).MMSD) + +# Default target is the comprehensive dependency list. + +$(DEPS_FILE) : $(DEPS) $(COMS) +.IF UNK_MMSD + @ write sys$output - + " /SKIP_INTERMEDIATES is expected on the MMS command line." + @ write sys$output - + " For normal behavior (delete individual .MMSD files), specify ""/SKIP""." + @ write sys$output - + " To retain the individual .MMSD files, specify ""/MACRO = NOSKIP=1""." + @ exit %x00000004 +.ENDIF +# +# Note that the space in P3, which prevents immediate macro +# expansion, is removed by COLLECT_DEPS.COM. +# + @[.VMS]COLLECT_DEPS.COM "Zip" - + "$(MMS$TARGET)" "[...]*.MMSD" "[.$ (DEST)]" $(MMSDESCRIPTION_FILE) + @ write sys$output - + "Created a new dependency file: $(MMS$TARGET)" +.IF DELETE_MMSD + @ write sys$output - + "Deleting intermediate .MMSD files..." + delete /log *.MMSD;*, [.VMS]*.MMSD;* +.ELSE + @ write sys$output - + "Purging intermediate .MMSD files..." + purge /log *.MMSD, [.VMS]*.MMSD +.ENDIF + +# CLEAN target. Delete the individual C dependency files. + +CLEAN : + if (f$search( "*.MMSD") .nes. "") then - + delete /log *.MMSD;* + if (f$search( "[.VMS]*.MMSD") .nes. "") then - + delete /log [.VMS]*.MMSD;* + +# CLEAN_ALL target. Delete: +# The individual C dependency files. +# The collected source dependency file. + +CLEAN_ALL : + if (f$search( "*.MMSD") .nes. "") then - + delete /log *.MMSD;* + if (f$search( "[.VMS]*.MMSD") .nes. "") then - + delete /log [.VMS]*.MMSD;* + if (f$search( "[.VMS]DESCRIP_DEPS.MMS") .nes. "") then - + delete /log [.VMS]DESCRIP_DEPS.MMS;* + +# Explicit dependencies and rules for utility variant modules. +# +# The extra dependency on the normal dependency file obviates including +# the /SKIP warning code in each rule here. + +CRC32_.MMSD : CRC32.C CRC32.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +CRYPT_.MMSD : CRYPT.C CRYPT.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +FILEIO_.MMSD : FILEIO.C FILEIO.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +UTIL_.MMSD : UTIL.C UTIL.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +ZIPFILE_.MMSD : ZIPFILE.C ZIPFILE.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +[.VMS]VMS_.MMSD : [.VMS]VMS.C [.VMS]VMS.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +ZIPCLI.MMSD : ZIP.C ZIP.MMSD + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + +# Special case. No normal (non-CLI) version. + +[.VMS]CMDLINE.MMSD : [.VMS]CMDLINE.C +.IF UNK_MMSD + @ write sys$output - + " /SKIP_INTERMEDIATES is expected on the MMS command line." + @ write sys$output - + " For normal behavior (delete .MMSD files), specify ""/SKIP""." + @ write sys$output - + " To retain the .MMSD files, specify ""/MACRO = NOSKIP=1""." + @ exit %x00000004 +.ENDIF + $(CC) $(CFLAGS_INCL) $(CFLAGS_CLI) $(MMS$SOURCE) - + /NOLIST /NOOBJECT /MMS_DEPENDENCIES = - + (FILE = $(MMS$TARGET), NOSYSTEM_INCLUDE_FILES) + @[.VMS]MOD_DEP.COM $(MMS$TARGET) $(MMS$TARGET_NAME).OBJ $(MMS$TARGET) + diff --git a/vms/descrip_src.mms b/vms/descrip_src.mms new file mode 100644 index 0000000..33f3281 --- /dev/null +++ b/vms/descrip_src.mms @@ -0,0 +1,373 @@ +# 23 February 2007. SMS. +# +# Zip 3.0 for VMS - MMS (or MMK) Source Description File. +# + +# This description file is included by other description files. It is +# not intended to be used alone. Verify proper inclusion. + +.IFDEF INCL_DESCRIP_SRC +.ELSE +$$$$ THIS DESCRIPTION FILE IS NOT INTENDED TO BE USED THIS WAY. +.ENDIF + + +# Define MMK architecture macros when using MMS. + +.IFDEF __MMK__ # __MMK__ +.ELSE # __MMK__ +ALPHA_X_ALPHA = 1 +IA64_X_IA64 = 1 +VAX_X_VAX = 1 +.IFDEF $(MMS$ARCH_NAME)_X_ALPHA # $(MMS$ARCH_NAME)_X_ALPHA +__ALPHA__ = 1 +.ENDIF # $(MMS$ARCH_NAME)_X_ALPHA +.IFDEF $(MMS$ARCH_NAME)_X_IA64 # $(MMS$ARCH_NAME)_X_IA64 +__IA64__ = 1 +.ENDIF # $(MMS$ARCH_NAME)_X_IA64 +.IFDEF $(MMS$ARCH_NAME)_X_VAX # $(MMS$ARCH_NAME)_X_VAX +__VAX__ = 1 +.ENDIF # $(MMS$ARCH_NAME)_X_VAX +.ENDIF # __MMK__ + +# Combine command-line VAX C compiler macros. + +.IFDEF VAXC # VAXC +VAXC_OR_FORCE_VAXC = 1 +.ELSE # VAXC +.IFDEF FORCE_VAXC # FORCE_VAXC +VAXC_OR_FORCE_VAXC = 1 +.ENDIF # FORCE_VAXC +.ENDIF # VAXC + +# Analyze architecture-related and option macros. + +.IFDEF __ALPHA__ # __ALPHA__ +DECC = 1 +DESTM = ALPHA +.ELSE # __ALPHA__ +.IFDEF __IA64__ # __IA64__ +DECC = 1 +DESTM = IA64 +.ELSE # __IA64__ +.IFDEF __VAX__ # __VAX__ +.IFDEF VAXC_OR_FORCE_VAXC # VAXC_OR_FORCE_VAXC +DESTM = VAXV +.ELSE # VAXC_OR_FORCE_VAXC +.IFDEF GNUC # GNUC +CC = GCC +DESTM = VAXG +.ELSE # GNUC +DECC = 1 +DESTM = VAX +.ENDIF # GNUC +.ENDIF # VAXC_OR_FORCE_VAXC +.ELSE # __VAX__ +DESTM = UNK +UNK_DEST = 1 +.ENDIF # __VAX__ +.ENDIF # __IA64__ +.ENDIF # __ALPHA__ + +.IFDEF IM # IM +DESTI = I +.ELSE # IM +DESTI = +.ENDIF # IM + +.IFDEF LARGE # LARGE +.IFDEF __VAX__ # __VAX__ +DESTL = +.ELSE # __VAX__ +DESTL = L +.ENDIF # __VAX__ +.ELSE # LARGE +DESTL = +.ENDIF # LARGE + +DEST = $(DESTM)$(DESTI)$(DESTL) +SEEK_BZ = $(DESTM)$(DESTL) + +# Library module name suffix for XXX_.OBJ with GNU C. + +.IFDEF GNUC # GNUC +GCC_ = _ +.ELSE # GNUC +GCC_ = +.ENDIF # GNUC + +# Check for option problems. + +.IFDEF __VAX__ # __VAX__ +.IFDEF LARGE # LARGE +LARGE_VAX = 1 +.ENDIF # LARGE +.IFDEF VAXC_OR_FORCE_VAXC # VAXC_OR_FORCE_VAXC +.IFDEF GNUC # GNUC +VAX_MULTI_CMPL = 1 +.ENDIF # GNUC +.ENDIF # VAXC_OR_FORCE_VAXC +.ELSE # __VAX__ +.IFDEF VAXC_OR_FORCE_VAXC # VAXC_OR_FORCE_VAXC +NON_VAX_CMPL = 1 +.ELSE # VAXC_OR_FORCE_VAXC +.IFDEF GNUC # GNUC +NON_VAX_CMPL = 1 +.ENDIF # GNUC +.ENDIF # VAXC_OR_FORCE_VAXC +.ENDIF # __VAX__ + +# Complain if warranted. Otherwise, show destination directory. +# Make the destination directory, if necessary. + +.IFDEF UNK_DEST # UNK_DEST +.FIRST + @ write sys$output - + " Unknown system architecture." +.IFDEF __MMK__ # __MMK__ + @ write sys$output - + " MMK on IA64? Try adding ""/MACRO = __IA64__""." +.ELSE # __MMK__ + @ write sys$output - + " MMS too old? Try adding ""/MACRO = MMS$ARCH_NAME=ALPHA""," + @ write sys$output - + " or ""/MACRO = MMS$ARCH_NAME=IA64"", or ""/MACRO = MMS$ARCH_NAME=VAX""," + @ write sys$output - + " as appropriate. (Or try a newer version of MMS.)" +.ENDIF # __MMK__ + @ write sys$output "" + I_WILL_DIE_NOW. /$$$$INVALID$$$$ +.ELSE # UNK_DEST +.IFDEF VAX_MULTI_CMPL # VAX_MULTI_CMPL +.FIRST + @ write sys$output - + " Macro ""GNUC"" is incompatible with ""VAXC"" or ""FORCE_VAXC""." + @ write sys$output "" + I_WILL_DIE_NOW. /$$$$INVALID$$$$ +.ELSE # VAX_MULTI_CMPL +.IFDEF NON_VAX_CMPL # NON_VAX_CMPL +.FIRST + @ write sys$output - + " Macros ""GNUC"", ""VAXC"", and ""FORCE_VAXC"" are valid only on VAX." + @ write sys$output "" + I_WILL_DIE_NOW. /$$$$INVALID$$$$ +.ELSE # NON_VAX_CMPL +.IFDEF LARGE_VAX # LARGE_VAX +.FIRST + @ write sys$output - + " Macro ""LARGE"" is invalid on VAX." + @ write sys$output "" + I_WILL_DIE_NOW. /$$$$INVALID$$$$ +.ELSE # LARGE_VAX +.IFDEF IZ_BZIP2 # IZ_BZIP2 +CDEFS_BZ = , BZIP2_SUPPORT +CFLAGS_INCL = /INCLUDE = ([], [.VMS]) +INCL_BZIP2_M = , ZBZ2ERR +LIB_BZIP2_OPTS = LIB_BZIP2:LIBBZ2_NS.OLB /library, +.FIRST + @ define incl_bzip2 $(IZ_BZIP2) + @ @[.VMS]FIND_BZIP2_LIB.COM $(IZ_BZIP2) $(SEEK_BZ) - + LIBBZ2_NS.OLB lib_bzip2 + @ write sys$output "" + @ if (f$trnlnm( "lib_bzip2") .nes. "") then - + write sys$output " BZIP2 dir: ''f$trnlnm( "lib_bzip2")'" + @ if (f$trnlnm( "lib_bzip2") .eqs. "") then - + write sys$output " Can not find BZIP2 object library." + @ write sys$output "" + @ if (f$trnlnm( "lib_bzip2") .eqs. "") then - + I_WILL_DIE_NOW. /$$$$INVALID$$$$ + @ write sys$output " Destination: [.$(DEST)]" + @ write sys$output "" + if (f$search( "$(DEST).DIR;1") .eqs. "") then - + create /directory [.$(DEST)] +.ELSE # IZ_BZIP2 +CDEFS_BZ = +CFLAGS_INCL = /include = [] +INCL_BZIP2_M = , ZBZ2ERR +LIB_BZIP2_OPTS = +.FIRST + @ write sys$output " Destination: [.$(DEST)]" + @ write sys$output "" + if (f$search( "$(DEST).DIR;1") .eqs. "") then - + create /directory [.$(DEST)] +.ENDIF # IZ_BZIP2 +.ENDIF # LARGE_VAX +.ENDIF # NON_VAX_CMPL +.ENDIF # VAX_MULTI_CMPL +.ENDIF # UNK_DEST + +# DBG options. + +.IFDEF DBG # DBG +CFLAGS_DBG = /debug /nooptimize +LINKFLAGS_DBG = /debug /traceback +.ELSE # DBG +CFLAGS_DBG = +LINKFLAGS_DBG = /notraceback +.ENDIF # DBG + +# "IM" scheme for storing VMS/RMS file attributes. + +.IFDEF IM # IM +CDEFS_IM = , VMS_IM_EXTRA +.ELSE # IM +CDEFS_IM = +.ENDIF # IM + +# Large-file options. + +.IFDEF LARGE # LARGE +CDEFS_LARGE = , LARGE_FILE_SUPPORT +.ELSE # LARGE +CDEFS_LARGE = +.ENDIF # LARGE + +# C compiler defines. + +.IFDEF LOCAL_ZIP +C_LOCAL_ZIP = , $(LOCAL_ZIP) +.ELSE +C_LOCAL_ZIP = +.ENDIF + +CDEFS = VMS $(CDEFS_BZ) $(CDEFS_IM) $(CDEFS_LARGE) $(C_LOCAL_ZIP) + +CDEFS_UNX = /define = ($(CDEFS)) + +CDEFS_CLI = /define = ($(CDEFS), VMSCLI) + +CDEFS_UTIL = /define = ($(CDEFS), UTIL) + +# Other C compiler options. + +.IFDEF DECC # DECC +CFLAGS_ARCH = /decc /prefix = (all) +.ELSE # DECC +.IFDEF FORCE_VAXC # FORCE_VAXC +CFLAGS_ARCH = /vaxc +.IFDEF VAXC # VAXC +.ELSE # VAXC +VAXC = 1 +.ENDIF # VAXC +.ELSE # FORCE_VAXC +CFLAGS_ARCH = +.ENDIF # FORCE_VAXC +.ENDIF # DECC + +.IFDEF VAXC_OR_FORCE_VAXC # VAXC_OR_FORCE_VAXC +OPT_FILE = [.$(DEST)]VAXCSHR.OPT +LFLAGS_ARCH = $(OPT_FILE) /options, +.ELSE # VAXC_OR_FORCE_VAXC +.IFDEF GNUC # GNUC +OPT_FILE = [.$(DEST)]VAXCSHR.OPT +LFLAGS_GNU = GNU_CC:[000000]GCCLIB.OLB /LIBRARY +LFLAGS_ARCH = $(LFLAGS_GNU), SYS$DISK:$(OPT_FILE) /options, +.ELSE # GNUC +OPT_FILE = +LFLAGS_ARCH = +.ENDIF # GNUC +.ENDIF # VAXC_OR_FORCE_VAXC + +# LIST options. + +.IFDEF LIST # LIST +.IFDEF DECC # DECC +CFLAGS_LIST = /list = $*.LIS /show = (all, nomessages) +.ELSE # DECC +CFLAGS_LIST = /list = $*.LIS /show = (all) +.ENDIF # DECC +LINKFLAGS_LIST = /map = $*.MAP /cross_reference /full +.ELSE # LIST +CFLAGS_LIST = +LINKFLAGS_LIST = +.ENDIF # LIST + +# Common CFLAGS and LINKFLAGS. + +CFLAGS = \ + $(CFLAGS_ARCH) $(CFLAGS_DBG) $(CFLAGS_INCL) $(CFLAGS_LIST) $(CCOPTS) \ + /object = $(MMS$TARGET) + +LINKFLAGS = \ + $(LINKFLAGS_DBG) $(LINKFLAGS_LIST) $(LINKOPTS) \ + /executable = $(MMS$TARGET) + +# Object library module=object lists. + +# Primary object library, []. + +MODS_OBJS_LIB_ZIP_N = \ + CRC32=[.$(DEST)]CRC32.OBJ \ + CRYPT=[.$(DEST)]CRYPT.OBJ \ + DEFLATE=[.$(DEST)]DEFLATE.OBJ \ + FILEIO=[.$(DEST)]FILEIO.OBJ \ + GLOBALS=[.$(DEST)]GLOBALS.OBJ \ + TREES=[.$(DEST)]TREES.OBJ \ + TTYIO=[.$(DEST)]TTYIO.OBJ \ + UTIL=[.$(DEST)]UTIL.OBJ \ + ZBZ2ERR=[.$(DEST)]ZBZ2ERR.OBJ \ + ZIPFILE=[.$(DEST)]ZIPFILE.OBJ \ + ZIPUP=[.$(DEST)]ZIPUP.OBJ + +# Primary object library, [.VMS]. + +MODS_OBJS_LIB_ZIP_V = \ + VMS=[.$(DEST)]VMS.OBJ \ + VMSMUNCH=[.$(DEST)]VMSMUNCH.OBJ \ + VMSZIP=[.$(DEST)]VMSZIP.OBJ + +MODS_OBJS_LIB_ZIP = $(MODS_OBJS_LIB_ZIP_N) $(MODS_OBJS_LIB_ZIP_V) + +# Utility object library, normal, []. + +MODS_OBJS_LIB_ZIPUTILS_N = \ + GLOBALS=[.$(DEST)]GLOBALS.OBJ \ + TTYIO=[.$(DEST)]TTYIO.OBJ + +# Utility object library, variant, []. + +MODS_OBJS_LIB_ZIPUTILS_U = \ + CRC32$(GCC_)=[.$(DEST)]CRC32_.OBJ \ + CRYPT$(GCC_)=[.$(DEST)]CRYPT_.OBJ \ + FILEIO$(GCC_)=[.$(DEST)]FILEIO_.OBJ \ + UTIL$(GCC_)=[.$(DEST)]UTIL_.OBJ \ + ZIPFILE$(GCC_)=[.$(DEST)]ZIPFILE_.OBJ + +# Utility object library, normal, [.VMS]. + +MODS_OBJS_LIB_ZIPUTILS_N_V = \ + VMSMUNCH=[.$(DEST)]VMSMUNCH.OBJ + +# Utility object library, variant, [.VMS]. + +MODS_OBJS_LIB_ZIPUTILS_U_V = \ + VMS$(GCC_)=[.$(DEST)]VMS_.OBJ + +MODS_OBJS_LIB_ZIPUTILS = $(MODS_OBJS_LIB_ZIPUTILS_N) \ + $(MODS_OBJS_LIB_ZIPUTILS_U) \ + $(MODS_OBJS_LIB_ZIPUTILS_N_V) \ + $(MODS_OBJS_LIB_ZIPUTILS_U_V) \ + +# CLI object library, [.VMS]. + +MODS_OBJS_LIB_ZIPCLI_C_V = \ + CMDLINE=[.$(DEST)]CMDLINE.OBJ + +MODS_OBJS_LIB_ZIPCLI_CLD_V = \ + ZIP_CLITABLE=[.$(DEST)]ZIP_CLI.OBJ + +MODS_OBJS_LIB_ZIPCLI = \ + $(MODS_OBJS_LIB_ZIPCLI_C_V) \ + $(MODS_OBJS_LIB_ZIPCLI_CLD_V) + +# Executables. + +ZIP = [.$(DEST)]ZIP.EXE + +ZIP_CLI = [.$(DEST)]ZIP_CLI.EXE + +ZIPUTILS = \ + [.$(DEST)]ZIPCLOAK.EXE \ + [.$(DEST)]ZIPNOTE.EXE \ + [.$(DEST)]ZIPSPLIT.EXE + diff --git a/vms/find_bzip2_lib.com b/vms/find_bzip2_lib.com new file mode 100644 index 0000000..21ebf7b --- /dev/null +++ b/vms/find_bzip2_lib.com @@ -0,0 +1,71 @@ +$! 28 December 2006. SMS. +$! +$! Info-ZIP VMS accessory procedure. +$! +$! Find the BZIP2 object library under P1, starting in the [.'P2'] +$! destination directory. (We assume, initially, that the BZIP2 +$! directory has a destination directory structure like ours.) +$! +$! Set the P4 logical name to the directory where it was found. +$! P5 and P6 may be used for qualifiers on the DEFINE command. +$! +$ bz_orig = p1 +$ dest = p2 +$ libbz2 = p3 +$! +$! Remove any trailing colon, to allow logical name translation. +$! +$ bz_dev_dir = "" +$ bz_base = bz_orig +$ if (f$extract( (f$length( bz_base)- 1), 1, bz_base) .eqs. ":") +$ then +$ bz_base = bz_base- ":" +$ endif +$! +$ bz_base_eqv = f$trnlnm( bz_base) +$ if (bz_base_eqv .nes. "") +$ then +$ bz_orig = bz_base_eqv +$ bz_base = bz_base_eqv +$ endif +$ bz_base = bz_base- "]" +$! +$! Candidate 1 = the actual analogue destination directory. +$! +$ bz_dev_dir_cand = bz_base+ "."+ dest+ "]" +$ lib_cand = bz_dev_dir_cand+ libbz2 +$ if (f$search( lib_cand) .nes. "") +$ then +$ bz_dev_dir = bz_dev_dir_cand +$ else +$! +$! Candidate 2 = the actual analogue destination directory + "L". +$! +$ bz_dev_dir_cand = bz_base+ "."+ dest+ "L]" +$ lib_cand = bz_dev_dir_cand+ libbz2 +$ if (f$search( lib_cand) .nes. "") +$ then +$ bz_dev_dir = bz_dev_dir_cand +$ else +$! +$! Candidate 3 = the actual user-specified directory. +$! +$ bz_dev_dir_cand = bz_orig +$ lib_cand = bz_dev_dir_cand+ libbz2 +$ if (f$search( lib_cand) .nes. "") +$ then +$ bz_dev_dir = bz_dev_dir_cand +$ endif +$ endif +$ endif +$! +$ if (bz_dev_dir .nes. "") +$ then +$ if (p4 .eqs. "") +$ then +$ write sys$output bz_dev_dir +$ else +$ define 'p5' 'p4' 'bz_dev_dir' 'p6' +$ endif +$ endif +$! diff --git a/vms/hlp_lib_next.com b/vms/hlp_lib_next.com new file mode 100644 index 0000000..f9b14a5 --- /dev/null +++ b/vms/hlp_lib_next.com @@ -0,0 +1,17 @@ +$! 21 November 2004. SMS. +$! +$! HLP_LIB_NEXT.COM +$! +$! Find the next available HLP$LIBRARY[_*] logical name. +$! +$ base = "HLP$LIBRARY" +$ candidate = base +$ i = 0 +$! +$ loop_top: +$ if (i .gt. 0) then candidate = base+ "_"+ f$string( i) +$ i = i+ 1 +$ if (f$trnlnm( candidate) .nes. "") then goto loop_top +$! +$ write sys$output candidate +$! diff --git a/vms/install_vms.txt b/vms/install_vms.txt new file mode 100644 index 0000000..47dfebb --- /dev/null +++ b/vms/install_vms.txt @@ -0,0 +1,158 @@ + + VMS (OpenVMS): + + Building: + + On VMS, two build methods are provided: a command procedure, and + description files for MMS or MMK. Both methods must be run from + the main directory, not the [.VMS] subdirectory. + + A simple build using the command procedure looks like this: + @ [.VMS]BUILD_ZIP.COM + + A simple build using MMS or MMK looks like this: + MMS /DESCRIP = [.VMS]DESCRIP.MMS ! Or, with MMK, ... + MMK /DESCRIP = [.VMS]DESCRIP.MMS + + Various options for each build method are explained in comments in + the main builder file, either BUILD_ZIP.COM or DESCRIP.MMS. + + Note that on non-VAX systems with VMS V7.2 or later (and with a + sufficiently new C compiler), Zip 3.0 can support files (both data + files and Zip archives) larger than 2GB. For the greatest + compatibility with previous Zip versions, the builders by default + create old-style small-file programs. The user must specify the + appropriate builder command-line option to create + large-file-capable programs. + + Here are some more complex build examples: + + o Build with the large-file option enabled (non-VAX only): + + @ [.VMS]BUILD_ZIP LARGE + or: + MMS /DESC = [.VMS] /MACRO = LARGE=1 + + o Re-link the executables (small-file and large-file): + + @ [.VMS]BUILD_ZIP LINK + @ [.VMS]BUILD_ZIP LARGE LINK + or + MMK /DESC = [.VMS] CLEAN_EXE ! Deletes existing executables. + MMK /DESC = [.VMS] ! Builds new executables. + MMK /DESC = [.VMS] /MACRO = LARGE=1 CLEAN_EXE + MMK /DESC = [.VMS] /MACRO = LARGE=1 + + o Build a large-file product from scratch, for debug, getting + compiler listings and link maps: + + MMS /DESC = [.VMS] CLEAN + MMS /DESC = [.VMS] /MACRO = (DBG=1, LARGE=1. LIST=1) + + On VAX, the builders attempt to cope with the various available C + compilers, DEC/Compaq/HP C, VAX C, or GNU C. If DEC/Compaq/HP C is + not available or not desired, comments in the relevant builder file + explain the command-line options used to select a different + compiler. + + By default, Zip uses the "deflate" compression method. To add + support for the optional "bzip2" compression method, first obtain + and build the bzip2 software (http://www.bzip.org/ or, for a more + VMS-friendly kit, http://antinode.info/dec/sw/bzip2.html). Then, + define the macro IZ_BZIP2 on the BUILD_ZIP.COM or MMS/MMK command + line to specify the directory where the bzip2 files may be found. + For example: + + @ [.VMS]BUILD_ZIP LARGE - + IZ_BZIP2=SYS$SYSDEVICE:[UTILITY.SOURCE.BZIP2.BZIP2-1_0_3C_VMS] + or: + MMS /DESC = [.VMS] /MACRO = (LARGE=1, - + IZ_BZIP2=SYS$SYSDEVICE:[UTILITY.SOURCE.BZIP2.BZIP2-1_0_3C_VMS]) + + Note that historically, Zip has been built with the default + compiler option, /NAMES = UPPERCASE, while bzip2 is normally built + with /NAMES = AS_IS, to avoid name collisions. With modern + compilers, the "#pragma names" directives in [.VMS]BZLIB.H will + handle these differences without user intervention. An old + compiler (for example, DEC C V4.0-000) will emit complaints + %CC-I-UNKNOWNPRAGMA, and will mishandle the bzip2 library function + names, which will cause the link to fail. To solve this problem, + either build the bzip2 BZ_NO_STDIO object library with /NAMES = + UPPERCASE, or else build Zip with /NAMES = AS_IS. For example: + + @ [.VMS]BUILD_ZIP LARGE "CCOPTS=/NAMES=AS_IS" - + IZ_BZIP2=SYS$SYSDEVICE:[UTILITY.SOURCE.BZIP2.BZIP2-1_0_3C_VMS] + or: + MMS /DESC = [.VMS] /MACRO = (LARGE=1, "CCOPTS=/NAMES=AS_IS", - + IZ_BZIP2=SYS$SYSDEVICE:[UTILITY.SOURCE.BZIP2.BZIP2-1_0_3C_VMS]) + + System-architecture-specific files (like objects and executables) + are placed in separate directories, such as [.ALPHA], [.IA64], or + [.VAX]. Large-file products get their own directories, [.ALPHAL] + or [.IA64L]. On VAX, VAX C products are placed in [.VAXV], GNU C + products in [.VAXG]. Each product builder announces what the + destination directory will be when it is run. + + Common files, such as the help libraries (ZIP.HLP for the default + UNIX-like command-line interface, ZIP_CLI.HLP for the VMS-like + command-line interface), are placed in the main directory. With a + mixed-architecture VMS cluster, the same main directory on a shared + disk may be used by all system types. (Using the NOHELP option + with BUILD_ZIP.COM can keep it from making the same help files + repeatedly.) Building the help files is detailed below. + + Completing installation: + + To complete the installation, the executables may be left in place, + or moved (or copied) to a convenient place. While other methods + (like DCL$PATH) exist, most users define symbols to make the Zip + executables available as foreign commands. These symbol definitions + may be placed in a user's SYS$LOGIN:LOGIN.COM, or in a more central + location, like SYS$MANAGER:SYLOGIN.COM. Typical symbol definitions + might look like these: + + ZIP :== $ dev:[dir]ZIP.EXE ! UNIX-like command line. + or: + ZIP :== $ dev:[dir]ZIP_CLI.EXE ! VMS-like command line. + + On a non-VAX system, different symbols could be defined for the + small-file and large-file programs. For example: + + ZIPS :== $ dev:[dir.ALPHA]ZIP.EXE ! ZIPS = small-file Zip. + ZIP*L :== $ dev:[dir.ALPHAL]ZIP.EXE ! ZIP[L] = large-file Zip. + + The builders create help text files, ZIP.HLP and ZIP_CLI.HLP. + These may be incorporated into an existing help library, or a separate + Zip help library may be created using commands like these, using + either ZIP.HLP (as shown) or ZIP_CLI.HLP: + + $ LIBRARY /HELP dev:[dir]existing_library.HLB ZIP.HLP + + $ LIBRARY /CREATE /HELP ZIP.HLB ZIP.HLP + + Zip help may then be accessed from a separate Zip help library + using a command like: + + $ HELP /LIBRARY = device:[directory]ZIP.HLB + + For greater ease, the user (or system manager) may define a + HLP$LIBRARY logical name to allow the HELP utility to find the Zip + help library automatically. See HELP HELP /USERLIBRARY for more + details. The command procedure HLP_LIB_NEXT.COM may be used to + determine the next available HLP$LIBRARY logical name, and could be + adapted to define a HLP$LIBRARY logical name for a Zip help library. + + The builders also create VMS message files, ZIP_MSG.EXE, in the + destination directory with the program executables. A user may + gain DCL access to the Zip error messages using a command like: + + $ SET MESSAGE device:[directory]ZIP_MSG.EXE + + For system-wide access, the system manager may move or copy this + file to SYS$MESSAGE, although this could cause some confusion if + multiple versions of Zip are used on the system, and their error + message source files differ. + + Some further information may be found in the files + [.VMS]00README.TXT and [.VMS]00BINARY.VMS, though much of what's + there is now obsolete. diff --git a/vms/mod_dep.com b/vms/mod_dep.com new file mode 100644 index 0000000..bbc6d2d --- /dev/null +++ b/vms/mod_dep.com @@ -0,0 +1,33 @@ +$! 3 March 2005. SMS. +$! +$! Info-ZIP VMS accessory procedure. +$! +$! Modify a dependencies file (P1), changing the object file name to +$! P2. +$! P3 = output file specification. +$! +$! +$ prefix = f$edit( p3, "COLLAPSE") +$! +$! Strip any device:[directory] from P2. +$! +$ obj_name = f$parse( P2, , , "NAME", "SYNTAX_ONLY")+ - + f$parse( P2, , , "TYPE", "SYNTAX_ONLY") +$! +$ open /read /error = end_main deps_in 'p1' +$ open /write /error = end_main deps_out 'p3' +$ on error then goto loop_main_end +$ loop_main_top: +$ read /error = loop_main_end deps_in line +$ line_reduced = f$edit( line, "COMPRESS, TRIM") +$ colon = f$locate( " : ", line_reduced) +$ line = obj_name+ f$extract( colon, 2000, line) +$ write deps_out "''line'" +$ goto loop_main_top +$! +$ loop_main_end: +$ close deps_in +$ close deps_out +$! +$ end_main: +$! diff --git a/vms/osdep.h b/vms/osdep.h new file mode 100644 index 0000000..d7a07a4 --- /dev/null +++ b/vms/osdep.h @@ -0,0 +1,178 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +#ifndef VMS +# define VMS 1 +#endif + +#if (defined(__VMS_VER) && !defined(__CRTL_VER)) +# define __CRTL_VER __VMS_VER +#endif + +#if (defined(__VMS_VERSION) && !defined(VMS_VERSION)) +# define VMS_VERSION __VMS_VERSION +#endif + +#if !(defined(__DECC) || defined(__DECCXX) || defined(__GNUC__)) + /* VAX C does not properly support the void keyword. (Only functions + are allowed to have the type "void".) */ +# ifndef NO_TYPEDEF_VOID +# define NO_TYPEDEF_VOID +# endif +# define NO_FCNTL_H /* VAXC does not supply fcntl.h. */ +#endif /* VAX C */ + +#define USE_CASE_MAP +#define PROCNAME(n) \ + (((action == ADD) || (action == UPDATE) || (action == FRESHEN)) ? \ + wild(n) : procname(n, filter_match_case)) + +/* 2004-11-09 SMS. + Large file support. +*/ +#ifdef LARGE_FILE_SUPPORT + +# define _LARGEFILE /* Define the pertinent macro. */ + +/* LARGE_FILE_SUPPORT implies ZIP64_SUPPORT, + unless explicitly disabled by NO_ZIP64_SUPPORT. +*/ +# ifdef NO_ZIP64_SUPPORT +# ifdef ZIP64_SUPPORT +# undef ZIP64_SUPPORT +# endif /* def ZIP64_SUPPORT */ +# else /* def NO_ZIP64_SUPPORT */ +# ifndef ZIP64_SUPPORT +# define ZIP64_SUPPORT +# endif /* ndef ZIP64_SUPPORT */ +# endif /* def NO_ZIP64_SUPPORT */ + +# define ZOFF_T_FORMAT_SIZE_PREFIX "ll" + +#else /* def LARGE_FILE_SUPPORT */ + +# define ZOFF_T_FORMAT_SIZE_PREFIX "l" + +#endif /* def LARGE_FILE_SUPPORT */ + +/* Need _LARGEFILE for types.h. */ + +#include <types.h> + +#ifdef __GNUC__ +#include <sys/types.h> +#endif /* def __GNUC__ */ + +/* Need types.h for off_t. */ + +#ifdef LARGE_FILE_SUPPORT + typedef off_t zoff_t; + typedef unsigned long long uzoff_t; +#else /* def LARGE_FILE_SUPPORT */ + typedef long zoff_t; + typedef unsigned long uzoff_t; +#endif /* def LARGE_FILE_SUPPORT */ + +#include <stat.h> + +typedef struct stat z_stat; + +#include <unixio.h> + +#if defined(__GNUC__) && !defined(ZCRYPT_INTERNAL) +# include <unixlib.h> /* ctermid() declaration needed in ttyio.c */ +#endif +#ifdef ZCRYPT_INTERNAL +# include <unixlib.h> /* getpid() declaration for srand seed */ +#endif + +#if defined(_MBCS) +# undef _MBCS /* Zip on VMS does not support MBCS */ +#endif + +/* VMS is run on little-endian processors with 4-byte ints: + * enable the optimized CRC-32 code */ +#ifdef IZ_CRC_BE_OPTIMIZ +# undef IZ_CRC_BE_OPTIMIZ +#endif +#if !defined(IZ_CRC_LE_OPTIMIZ) && !defined(NO_CRC_OPTIMIZ) +# define IZ_CRC_LE_OPTIMIZ +#endif +#if !defined(IZ_CRCOPTIM_UNFOLDTBL) && !defined(NO_CRC_OPTIMIZ) +# define IZ_CRCOPTIM_UNFOLDTBL +#endif + +#if !defined(NO_EF_UT_TIME) && !defined(USE_EF_UT_TIME) +# if (defined(__CRTL_VER) && (__CRTL_VER >= 70000000)) +# define USE_EF_UT_TIME +# endif +#endif + +#if defined(VMS_PK_EXTRA) && defined(VMS_IM_EXTRA) +# undef VMS_IM_EXTRA /* PK style takes precedence */ +#endif +#if !defined(VMS_PK_EXTRA) && !defined(VMS_IM_EXTRA) +# define VMS_PK_EXTRA 1 /* PK style VMS support is default */ +#endif + +/* 2007-02-22 SMS. + * <unistd.h> is needed for symbolic link functions, so use it when the + * symbolic link criteria are met. + */ +#if defined(__VAX) || __CRTL_VER < 70301000 +# define NO_UNISTD_H +# define NO_SYMLINKS +#endif /* defined(__VAX) || __CRTL_VER < 70301000 */ + +/* 2007-02-22 SMS. Use delete() when unlink() is not available. */ +#if defined(NO_UNISTD_H) || (__CRTL_VER < 70000000) +# define unlink delete +#endif /* defined(NO_UNISTD_H) || __CRTL_VER < 70000000) */ + +#define SSTAT vms_stat +#define EXIT(exit_code) vms_exit(exit_code) +#define RETURN(exit_code) return (vms_exit(exit_code), 1) + + +#ifdef __DECC + +/* File open callback ID values. */ + +# define FOPM_ID 1 +# define FOPR_ID 2 +# define FOPW_ID 3 + +/* File open callback ID storage. */ + +extern int fopm_id; +extern int fopr_id; +extern int fopw_id; + +/* File open callback ID function. */ + +extern int acc_cb(); + +/* Option macros for zfopen(). + * General: Stream access + * Output: fixed-length, 512-byte records. + * + * Callback function (DEC C only) sets deq, mbc, mbf, rah, wbh, ... + */ + +# define FOPM "r+b", "ctx=stm", "rfm=fix", "mrs=512", "acc", acc_cb, &fopm_id +# define FOPR "rb", "ctx=stm", "acc", acc_cb, &fopr_id +# define FOPW "wb", "ctx=stm", "rfm=fix", "mrs=512", "acc", acc_cb, &fopw_id + +#else /* def __DECC */ /* (So, GNU C, VAX C, ...)*/ + +# define FOPM "r+b", "ctx=stm", "rfm=fix", "mrs=512" +# define FOPR "rb", "ctx=stm" +# define FOPW "wb", "ctx=stm", "rfm=fix", "mrs=512" + +#endif /* def __DECC */ + diff --git a/vms/stream_lf.fdl b/vms/stream_lf.fdl new file mode 100644 index 0000000..ab0f907 --- /dev/null +++ b/vms/stream_lf.fdl @@ -0,0 +1,3 @@ +RECORD + Carriage_Control carriage_return + Format stream_lf diff --git a/vms/unixio_gcc.h b/vms/unixio_gcc.h new file mode 100644 index 0000000..05bc421 --- /dev/null +++ b/vms/unixio_gcc.h @@ -0,0 +1,27 @@ +/* 2004-12-12 SMS. + * + * Emergency replacement UNIXIO.H for GNU C, for use as needed. + * Install as GNU_CC_INCLUDE:[000000]UNIXIO.H + */ + +#ifndef __UNIXIO_LOADED +#define __UNIXIO_LOADED 1 + +#include <sys/types.h> + +#include <stdlib.h> + +#ifndef SEEK_SET +# define SEEK_SET 0 +#endif /* ndef SEEK_SET */ + +#ifndef SEEK_CUR +# define SEEK_CUR 1 +#endif /* ndef SEEK_CUR */ + +#ifndef SEEK_END +# define SEEK_END 2 +#endif /* ndef SEEK_END */ + +#endif /* ndef __UNIXIO_LOADED */ + diff --git a/vms/unixlib_gcc.h b/vms/unixlib_gcc.h new file mode 100644 index 0000000..eda4ed9 --- /dev/null +++ b/vms/unixlib_gcc.h @@ -0,0 +1,16 @@ +/* 2004-12-12 SMS. + * + * Emergency replacement UNIXLIB.H for GNU C, for use as needed. + * Install as GNU_CC_INCLUDE:[000000]UNIXLIB.H + */ + +#ifndef __UNIXLIB_LOADED +#define __UNIXLIB_LOADED 1 + +#include <sys/types.h> +#include <stdlib.h> + +typedef struct stat stat_t; + +#endif /* ndef __UNIXLIB_LOADED */ + diff --git a/vms/vms.c b/vms/vms.c new file mode 100644 index 0000000..1b194c6 --- /dev/null +++ b/vms/vms.c @@ -0,0 +1,1007 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +/* + * vms.c (zip) by Igor Mandrichenko Version 2.2-2 + * + * Revision history: + * ... + * 2.2-2 18-jan-1993 I.Mandrichenko + * vms_stat() added - version of stat() that handles special + * case when end-of-file-block == 0 + * + * 3.0 11-oct-2004 SMS + * It would be nice to know why vms_stat() is needed. If EOF can't + * be trusted for a zero-length file, why trust it for any file? + * Anyway, I removed the (int) cast on ->st_size, which may now be + * bigger than an int, just in case this code ever does get used. + * (A true zero-length file should still report zero length, even + * after the long fight with RMS.) + * Moved the VMS_PK_EXTRA test(s) into VMS_IM.C and VMS_PK.C to + * allow more general automatic dependency generation. + */ + +#ifdef VMS /* For VMS only ! */ + +#define NO_ZIPUP_H /* Prevent full inclusion of vms/zipup.h. */ + +#include "zip.h" +#include "zipup.h" /* Only partial. */ + +#include <stdio.h> +#include <string.h> + +#include <jpidef.h> +#include <fab.h> /* Needed only in old environments. */ +#include <nam.h> /* Needed only in old environments. */ +#include <starlet.h> +#include <ssdef.h> +#include <stsdef.h> + +/* On VAX, define Goofy VAX Type-Cast to obviate /standard = vaxc. + Otherwise, lame system headers on VAX cause compiler warnings. + (GNU C may define vax but not __VAX.) +*/ +#ifdef vax +# define __VAX 1 +#endif /* def vax */ + +#ifdef __VAX +# define GVTC (unsigned int) +#else /* def __VAX */ +# define GVTC +#endif /* def __VAX */ + + +#ifdef UTIL + +/* For utilities, include only vms.h, as either of the vms_XX.c files + * would do. + */ + +# include "vms.h" + +#else /* not UTIL */ + +/* Include the `VMS attributes' preserving file-io code. We distinguish + between two incompatible flavours of storing VMS attributes in the + Zip archive: + a) The "PKware" style follows the extra field specification for + PKware's VMS Zip. + b) The "IM (Info-ZIP)" flavour was defined from scratch by + Igor Mandrichenko. This version has be used in official Info-ZIP + releases for several years and is known to work well. + */ + +/* Note that only one of these #include directives will include any + * active code, depending on VMS_PK_EXTRA. Both are included here (and + * tested there) to allow more general automatic dependency generation. + */ + +#include "vms_pk.c" +#include "vms_im.c" + +#endif /* not UTIL [else] */ + +#ifndef ERR +#define ERR(x) (((x)&1)==0) +#endif + +#ifndef NULL +#define NULL (void*)(0L) +#endif + +int vms_stat( char *file, stat_t *s) +{ + int status; + int staterr; + struct FAB fab; + struct NAM_STRUCT nam; + struct XABFHC fhc; + + /* + * In simplest case when stat() returns "ok" and file size is + * nonzero or this is directory, finish with this + */ + + if( (staterr=stat(file,s)) == 0 + && ( s->st_size >= 0 /* Size - ok */ + || (s->st_mode & S_IFREG) == 0 /* Not a plain file */ + ) + ) return staterr; + + /* + * Get here to handle the special case when stat() returns + * invalid file size. Use RMS to compute the size. + * When EOF block is zero, set file size to its physical size. + * One more case to get here is when this is remote file accessed + * via DECnet. + */ + + fab = cc$rms_fab; + nam = CC_RMS_NAM; + fhc = cc$rms_xabfhc; + fab.FAB_NAM = &nam; + fab.fab$l_xab = (char*)(&fhc); + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = file; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( file); + + fab.fab$b_fac = FAB$M_GET; + + status = sys$open(&fab); + fab.fab$l_xab = (char*)0L; + sys$close(&fab); + + if( !ERR(status) ) + { + if( fhc.xab$l_ebk > 0 ) + s->st_size = ( fhc.xab$l_ebk-1 ) * 512 + fhc.xab$w_ffb; + else if( fab.fab$b_org == FAB$C_IDX + || fab.fab$b_org == FAB$C_REL + || fab.fab$b_org == FAB$C_HSH ) + /* Special case, when ebk=0: save entire allocated space */ + s->st_size = fhc.xab$l_hbk * 512; + else + s->st_size = fhc.xab$w_ffb; + return 0; /* stat() success code */ + } + else + return status; +} + + +/* + * 2007-01-29 SMS. + * + * VMS Status Code Summary (See STSDEF.H for details.) + * + * Bits: 31:28 27:16 15:3 2:0 + * Field: Control Facility Message Severity + * + * In the Control field, bits 31:29 are reserved. Bit 28 inhibits + * printing the message. In the Facility field, bit 27 means + * customer-defined (not HP-assigned, like us). In the Message field, + * bit 15 means facility-specific (which our messages are). The + * Severity codes are 0 = Warning, 1 = Success, 2 = Error, 3 = Info, + * 4 = Severe (fatal). + * + * Previous versions of Info-ZIP programs used a generic ("chosen (by + * experimentation)") Control+Facility code of 0x7FFF, which included + * some reserved control bits, the inhibit-printing bit, and the + * customer-defined bit. + * + * HP has now assigned official Facility names and corresponding + * Facility codes for the Info-ZIP products: + * + * Facility Name Facility Code + * IZ_UNZIP 1954 = 0x7A2 + * IZ_ZIP 1955 = 0x7A3 + * + * Now, unless the CTL_FAC_IZ_ZIP macro is defined at build-time, we + * will use the official Facility code. + * + */ + +/* Official HP-assigned Info-ZIP Zip Facility code. */ +#define FAC_IZ_ZIP 1955 /* 0x7A3 */ + +#ifndef CTL_FAC_IZ_ZIP + /* + * Default is inhibit-printing with the official Facility code. + */ +# define CTL_FAC_IZ_ZIP ((0x1 << 12)| FAC_IZ_ZIP) +# define MSG_FAC_SPEC 0x8000 /* Facility-specific code. */ +#else /* ndef CTL_FAC_IZ_ZIP */ + /* Use the user-supplied Control+Facility code for err or warn. */ +# define OLD_STATUS +# ifndef MSG_FAC_SPEC /* Old default is not Facility-specific. */ +# define MSG_FAC_SPEC 0x0 /* Facility-specific code. Or 0x8000. */ +# endif /* ndef MSG_FAC_SPEC */ +#endif /* ndef CTL_FAC_IZ_ZIP [else] */ + + +/* Return an intelligent status/severity code. */ + +void vms_exit(e) + int e; +{ + { +#ifndef OLD_STATUS + + /* + * Exit with code comprising Control, Facility, (facility-specific) + * Message, and Severity. + */ + exit( (CTL_FAC_IZ_ZIP << 16) | /* Facility */ + MSG_FAC_SPEC | /* Facility-specific */ + (e << 4) | /* Message code */ + (ziperrors[ e].severity & 0x07) /* Severity */ + ); + +#else /* ndef OLD_STATUS */ + + /* 2007-01-17 SMS. + * Defining OLD_STATUS provides the same behavior as in Zip versions + * before an official VMS Facility code had been assigned, which + * means that Success (ZE_OK) gives a status value of 1 (SS$_NORMAL) + * with no Facility code, while any error or warning gives a status + * value which includes a Facility code. (Curiously, under the old + * scheme, message codes were left-shifted by 4 instead of 3, + * resulting in all-even message codes.) I don't like this, but I + * was afraid to remove it, as someone, somewhere may be depending + * on it. Define CTL_FAC_IZ_ZIP as 0x7FFF to get the old behavior. + * Define only OLD_STATUS to get the old behavior for Success + * (ZE_OK), but using the official HP-assigned Facility code for an + * error or warning. Define MSG_FAC_SPEC to get the desired + * behavior. + * + * Exit with simple SS$_NORMAL for ZE_OK. Otherwise, exit with code + * comprising Control, Facility, Message, and Severity. + */ + exit( + (e == ZE_OK) ? SS$_NORMAL : /* Success (others below) */ + ((CTL_FAC_IZ_ZIP << 16) | /* Facility */ + MSG_FAC_SPEC | /* Facility-specific (?) */ + (e << 4) | /* Message code */ + (ziperrors[ e].severity & 0x07) /* Severity */ + ) + ); + +#endif /* ndef OLD_STATUS */ + } +} + + +/******************************/ +/* Function version_local() */ +/******************************/ + +void version_local() +{ + static ZCONST char CompiledWith[] = "Compiled with %s%s for %s%s%s%s.\n\n"; +#ifdef VMS_VERSION + char *chrp1; + char *chrp2; + char buf[40]; + char vms_vers[ 16]; + int ver_maj; +#endif +#ifdef __DECC_VER + char buf2[40]; + int vtyp; +#endif + +#ifdef VMS_VERSION + /* Truncate the version string at the first (trailing) space. */ + strncpy( vms_vers, VMS_VERSION, sizeof( vms_vers)); + chrp1 = strchr( vms_vers, ' '); + if (chrp1 != NULL) + *chrp1 = '\0'; + + /* Determine the major version number. */ + ver_maj = 0; + chrp1 = strchr( &vms_vers[ 1], '.'); + for (chrp2 = &vms_vers[ 1]; + chrp2 < chrp1; + ver_maj = ver_maj* 10+ *(chrp2++)- '0'); + +#endif /* def VMS_VERSION */ + +/* DEC C in ANSI mode does not like "#ifdef MACRO" inside another + macro when MACRO is equated to a value (by "#define MACRO 1"). */ + + printf(CompiledWith, + +#ifdef __GNUC__ + "gcc ", __VERSION__, +#else +# if defined(DECC) || defined(__DECC) || defined (__DECC__) + "DEC C", +# ifdef __DECC_VER + (sprintf(buf2, " %c%d.%d-%03d", + ((vtyp = (__DECC_VER / 10000) % 10) == 6 ? 'T' : + (vtyp == 8 ? 'S' : 'V')), + __DECC_VER / 10000000, + (__DECC_VER % 10000000) / 100000, __DECC_VER % 1000), buf2), +# else + "", +# endif +# else +# ifdef VAXC + "VAX C", "", +# else + "unknown compiler", "", +# endif +# endif +#endif + +#ifdef VMS_VERSION +# if defined( __alpha) + "OpenVMS", + (sprintf( buf, " (%s Alpha)", vms_vers), buf), +# elif defined( __ia64) /* defined( __alpha) */ + "OpenVMS", + (sprintf( buf, " (%s IA64)", vms_vers), buf), +# else /* defined( __alpha) */ + (ver_maj >= 6) ? "OpenVMS" : "VMS", + (sprintf( buf, " (%s VAX)", vms_vers), buf), +# endif /* defined( __alpha) */ +#else + "VMS", + "", +#endif /* def VMS_VERSION */ + +#ifdef __DATE__ + " on ", __DATE__ +#else + "", "" +#endif + ); + +} /* end function version_local() */ + +/* 2004-10-08 SMS. + * + * tempname() for VMS. + * + * Generate a temporary Zip archive file name, near the actual + * destination Zip archive file, or at "tempath", if specified. + * + * Using sys$parse() is probably more work than it's worth, but it + * should also be ODS5-safe. + * + * Note that the generic method using tmpnam() (in FILEIO.C) + * produces "ziXXXXXX", where "XXXXXX" is the low six digits of the + * decimal representation of the process ID. This method produces + * "ZIxxxxxxxx", where "xxxxxxxx" is the (whole) eight-digit + * hexadecimal representation of the process ID. More important, it + * actually uses the directory part of the argument or "tempath". + */ + + +char *tempname( char *zip) +/* char *zip; */ /* Path name of Zip archive. */ +{ + char *temp_name; /* Return value. */ + int sts; /* System service status. */ + + static int pid; /* Process ID. */ + static int pid_len; /* Returned size of process ID. */ + + struct /* Item list for GETJPIW. */ + { + short buf_len; /* Buffer length. */ + short itm_cod; /* Item code. */ + int *buf; /* Buffer address. */ + int *ret_len; /* Returned length. */ + int term; /* Item list terminator. */ + } jpi_itm_lst = { sizeof( pid), JPI$_PID, &pid, &pid_len }; + + /* ZI<UNIQUE> name storage. */ + static char zip_tmp_nam[ 16] = "ZI<unique>.;"; + + struct FAB fab; /* FAB structure. */ + struct NAM_STRUCT nam; /* NAM[L] structure. */ + + char exp_str[ NAM_MAXRSS+ 1]; /* Expanded name storage. */ + +#ifdef VMS_UNIQUE_TEMP_BY_TIME + + /* Use alternate time-based scheme to generate a unique temporary name. */ + sprintf( &zip_tmp_nam[ 2], "%08X", time( NULL)); + +#else /* def VMS_UNIQUE_TEMP_BY_TIME */ + + /* Use the process ID to generate a unique temporary name. */ + sts = sys$getjpiw( 0, 0, 0, &jpi_itm_lst, 0, 0, 0); + sprintf( &zip_tmp_nam[ 2], "%08X", pid); + +#endif /* def VMS_UNIQUE_TEMP_BY_TIME */ + + /* Smoosh the unique temporary name against the actual Zip archive + name (or "tempath") to create the full temporary path name. + (Truncate it at the file type to remove any file type.) + */ + if (tempath != NULL) /* Use "tempath", if it's been specified. */ + zip = tempath; + + /* Initialize the FAB and NAM[L], and link the NAM[L] to the FAB. */ + fab = cc$rms_fab; + nam = CC_RMS_NAM; + fab.FAB_NAM = &nam; + + /* Point the FAB/NAM[L] fields to the actual name and default name. */ + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + /* Default name = Zip archive name. */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNA = zip; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNS = strlen( zip); + + /* File name = "ZI<unique>,;". */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = zip_tmp_nam; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( zip_tmp_nam); + + nam.NAM_ESA = exp_str; /* Expanded name (result) storage. */ + nam.NAM_ESS = NAM_MAXRSS; /* Size of expanded name storage. */ + + nam.NAM_NOP = NAM_M_SYNCHK; /* Syntax-only analysis. */ + + temp_name = NULL; /* Prepare for failure (unlikely). */ + sts = sys$parse( &fab, 0, 0); /* Parse the name(s). */ + + if ((sts& STS$M_SEVERITY) == STS$M_SUCCESS) + { + /* Overlay any resulting file type (typically ".ZIP") with none. */ + strcpy( nam.NAM_L_TYPE, ".;"); + + /* Allocate temp name storage (as caller expects), and copy the + (truncated) temp name into the new location. + */ + temp_name = malloc( strlen( nam.NAM_ESA)+ 1); + + if (temp_name != NULL) + { + strcpy( temp_name, nam.NAM_ESA); + } + } + return temp_name; +} /* tempname() for VMS. */ + + +/* 2005-02-17 SMS. + * + * ziptyp() for VMS. + * + * Generate a real Zip archive file name (exact, if it exists), using + * a default file name. + * + * 2005-02-17 SMS. Moved to here from [-]ZIPFILE.C, to segregate + * better the RMS stuff. + * + * Before 2005-02-17, if sys$parse() failed, ziptyp() returned a null + * string ("&zero", where "static char zero = '\0';"). This + * typically caused Zip to proceed, but then the final rename() of + * the temporary archive would (silently) fail (null file name, after + * all), leaving only the temporary archive file, and providing no + * warning message to the victim. Now, when sys$parse() fails, + * ziptyp() returns the original string, so a later open() fails, and + * a relatively informative message is provided. (A VMS-specific + * message could also be provided here, if desired.) + * + * 2005-09-16 SMS. + * Changed name parsing in ziptyp() to solve a problem with a + * search-list logical name device-directory spec for the zipfile. + * Previously, when the zipfile did not exist (so sys$search() + * failed), the expanded name was used, but as it was + * post-sys$search(), it was based on the _last_ member of the search + * list instead of the first. Now, the expanded name from the + * original sys$parse() (pre-sys$search()) is retained, and it is + * used if sys$search() fails. This name is based on the first + * member of the search list, as a user might expect. + */ + +/* Default Zip archive file spec. */ +#define DEF_DEVDIRNAM "SYS$DISK:[].zip" + +char *ziptyp( char *s) +{ + int status; + int exp_len; + struct FAB fab; + struct NAM_STRUCT nam; + char result[ NAM_MAXRSS+ 1]; + char exp[ NAM_MAXRSS+ 1]; + char *p; + + fab = cc$rms_fab; /* Initialize FAB. */ + nam = CC_RMS_NAM; /* Initialize NAM[L]. */ + fab.FAB_NAM = &nam; /* FAB -> NAM[L] */ + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna =(char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + /* Argument file name and length. */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = s; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( s); + + /* Default file spec and length. */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNA = DEF_DEVDIRNAM; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNS = sizeof( DEF_DEVDIRNAM)- 1; + + nam.NAM_ESA = exp; /* Expanded name, */ + nam.NAM_ESS = NAM_MAXRSS; /* storage size. */ + nam.NAM_RSA = result; /* Resultant name, */ + nam.NAM_RSS = NAM_MAXRSS; /* storage size. */ + + status = sys$parse(&fab); + if ((status & 1) == 0) + { + /* Invalid file name. Return (re-allocated) original, and hope + for a later error message. + */ + if ((p = malloc( strlen( s)+ 1)) != NULL ) + { + strcpy( p, s); + } + return p; + } + + /* Save expanded name length from sys$parse(). */ + exp_len = nam.NAM_ESL; + + /* Leave expanded name as-is, in case of search failure. */ + nam.NAM_ESA = NULL; /* Expanded name, */ + nam.NAM_ESS = 0; /* storage size. */ + + status = sys$search(&fab); + if (status & 1) + { /* Zip file exists. Use resultant (complete, exact) name. */ + if ((p = malloc( nam.NAM_RSL+ 1)) != NULL ) + { + result[ nam.NAM_RSL] = '\0'; + strcpy( p, result); + } + } + else + { /* New Zip file. Use pre-search expanded name. */ + if ((p = malloc( exp_len+ 1)) != NULL ) + { + exp[ exp_len] = '\0'; + strcpy( p, exp); + } + } + return p; +} /* ziptyp() for VMS. */ + + +/* 2005-12-30 SMS. + * + * vms_file_version(). + * + * Return the ";version" part of a VMS file specification. + */ + +char *vms_file_version( char *s) +{ + int status; + struct FAB fab; + struct NAM_STRUCT nam; + char *p; + + static char exp[ NAM_MAXRSS+ 1]; /* Expanded name storage. */ + + + fab = cc$rms_fab; /* Initialize FAB. */ + nam = CC_RMS_NAM; /* Initialize NAM[L]. */ + fab.FAB_NAM = &nam; /* FAB -> NAM[L] */ + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna =(char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + /* Argument file name and length. */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = s; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( s); + + nam.NAM_ESA = exp; /* Expanded name, */ + nam.NAM_ESS = NAM_MAXRSS; /* storage size. */ + + nam.NAM_NOP = NAM_M_SYNCHK; /* Syntax-only analysis. */ + + status = sys$parse(&fab); + + if ((status & 1) == 0) + { + /* Invalid file name. Return "". */ + exp[ 0] = '\0'; + p = exp; + } + else + { + /* Success. NUL-terminate, and return a pointer to the ";" in + the expanded name storage buffer. + */ + p = nam.NAM_L_VER; + p[ nam.NAM_B_VER] = '\0'; + } + return p; +} /* vms_file_version(). */ + + +/* 2004-11-23 SMS. + * + * get_rms_defaults(). + * + * Get user-specified values from (DCL) SET RMS_DEFAULT. FAB/RAB + * items of particular interest are: + * + * fab$w_deq default extension quantity (blocks) (write). + * rab$b_mbc multi-block count. + * rab$b_mbf multi-buffer count (used with rah and wbh). + */ + +#define DIAG_FLAG (verbose >= 2) + +/* Default RMS parameter values. */ + +#define RMS_DEQ_DEFAULT 16384 /* About 1/4 the max (65535 blocks). */ +#define RMS_MBC_DEFAULT 127 /* The max, */ +#define RMS_MBF_DEFAULT 2 /* Enough to enable rah and wbh. */ + +/* GETJPI item descriptor structure. */ +typedef struct + { + short buf_len; + short itm_cod; + void *buf; + int *ret_len; + } jpi_item_t; + +/* Durable storage */ + +static int rms_defaults_known = 0; + +/* JPI item buffers. */ +static unsigned short rms_ext; +static char rms_mbc; +static unsigned char rms_mbf; + +/* Active RMS item values. */ +unsigned short rms_ext_active; +char rms_mbc_active; +unsigned char rms_mbf_active; + +/* GETJPI item lengths. */ +static int rms_ext_len; /* Should come back 2. */ +static int rms_mbc_len; /* Should come back 1. */ +static int rms_mbf_len; /* Should come back 1. */ + +/* Desperation attempts to define unknown macros. Probably doomed. + * If these get used, expect sys$getjpiw() to return %x00000014 = + * %SYSTEM-F-BADPARAM, bad parameter value. + * They keep compilers with old header files quiet, though. + */ +#ifndef JPI$_RMS_EXTEND_SIZE +# define JPI$_RMS_EXTEND_SIZE 542 +#endif /* ndef JPI$_RMS_EXTEND_SIZE */ + +#ifndef JPI$_RMS_DFMBC +# define JPI$_RMS_DFMBC 535 +#endif /* ndef JPI$_RMS_DFMBC */ + +#ifndef JPI$_RMS_DFMBFSDK +# define JPI$_RMS_DFMBFSDK 536 +#endif /* ndef JPI$_RMS_DFMBFSDK */ + +/* GETJPI item descriptor set. */ + +struct + { + jpi_item_t rms_ext_itm; + jpi_item_t rms_mbc_itm; + jpi_item_t rms_mbf_itm; + int term; + } jpi_itm_lst = + { { 2, JPI$_RMS_EXTEND_SIZE, &rms_ext, &rms_ext_len }, + { 1, JPI$_RMS_DFMBC, &rms_mbc, &rms_mbc_len }, + { 1, JPI$_RMS_DFMBFSDK, &rms_mbf, &rms_mbf_len }, + 0 + }; + +int get_rms_defaults() +{ +int sts; + +/* Get process RMS_DEFAULT values. */ + +sts = sys$getjpiw( 0, 0, 0, &jpi_itm_lst, 0, 0, 0); +if ((sts& STS$M_SEVERITY) != STS$M_SUCCESS) + { + /* Failed. Don't try again. */ + rms_defaults_known = -1; + } +else + { + /* Fine, but don't come back. */ + rms_defaults_known = 1; + } + +/* Limit the active values according to the RMS_DEFAULT values. */ + +if (rms_defaults_known > 0) + { + /* Set the default values. */ + + rms_ext_active = RMS_DEQ_DEFAULT; + rms_mbc_active = RMS_MBC_DEFAULT; + rms_mbf_active = RMS_MBF_DEFAULT; + + /* Default extend quantity. Use the user value, if set. */ + if (rms_ext > 0) + { + rms_ext_active = rms_ext; + } + + /* Default multi-block count. Use the user value, if set. */ + if (rms_mbc > 0) + { + rms_mbc_active = rms_mbc; + } + + /* Default multi-buffer count. Use the user value, if set. */ + if (rms_mbf > 0) + { + rms_mbf_active = rms_mbf; + } + } + +if (DIAG_FLAG) + { + fprintf( stderr, + "Get RMS defaults. getjpi sts = %%x%08x.\n", + sts); + + if (rms_defaults_known > 0) + { + fprintf( stderr, + " Default: deq = %6d, mbc = %3d, mbf = %3d.\n", + rms_ext, rms_mbc, rms_mbf); + } + } +return sts; +} + +#ifdef __DECC + +/* 2004-11-23 SMS. + * + * acc_cb(), access callback function for DEC C zfopen(). + * + * Set some RMS FAB/RAB items, with consideration of user-specified + * values from (DCL) SET RMS_DEFAULT. Items of particular interest are: + * + * fab$w_deq default extension quantity (blocks). + * rab$b_mbc multi-block count. + * rab$b_mbf multi-buffer count (used with rah and wbh). + * + * See also the FOP* macros in OSDEP.H. Currently, no notice is + * taken of the caller-ID value, but options could be set differently + * for read versus write access. (I assume that specifying fab$w_deq, + * for example, for a read-only file has no ill effects.) + */ + +/* Global storage. */ + +int fopm_id = FOPM_ID; /* Callback id storage, modify. */ +int fopr_id = FOPR_ID; /* Callback id storage, read. */ +int fopw_id = FOPW_ID; /* Callback id storage, write. */ + +int fhow_id = FHOW_ID; /* Callback id storage, in read. */ + +/* acc_cb() */ + +int acc_cb( int *id_arg, struct FAB *fab, struct RAB *rab) +{ +int sts; + +/* Get process RMS_DEFAULT values, if not already done. */ +if (rms_defaults_known == 0) + { + get_rms_defaults(); + } + +/* If RMS_DEFAULT (and adjusted active) values are available, then set + * the FAB/RAB parameters. If RMS_DEFAULT values are not available, + * suffer with the default parameters. + */ +if (rms_defaults_known > 0) + { + /* Set the FAB/RAB parameters accordingly. */ + fab-> fab$w_deq = rms_ext_active; + rab-> rab$b_mbc = rms_mbc_active; + rab-> rab$b_mbf = rms_mbf_active; + + /* Truncate at EOF on close, as we'll probably over-extend. */ + fab-> fab$v_tef = 1; + + /* If using multiple buffers, enable read-ahead and write-behind. */ + if (rms_mbf_active > 1) + { + rab-> rab$v_rah = 1; + rab-> rab$v_wbh = 1; + } + + if (DIAG_FLAG) + { + fprintf( mesg, + "Open callback. ID = %d, deq = %6d, mbc = %3d, mbf = %3d.\n", + *id_arg, fab-> fab$w_deq, rab-> rab$b_mbc, rab-> rab$b_mbf); + } + } + +/* Declare success. */ +return 0; +} + +#endif /* def __DECC */ + +/* + * 2004-09-19 SMS. + * + *---------------------------------------------------------------------- + * + * decc_init() + * + * On non-VAX systems, uses LIB$INITIALIZE to set a collection of C + * RTL features without using the DECC$* logical name method. + * + *---------------------------------------------------------------------- + */ + +#ifdef __DECC + +#ifdef __CRTL_VER + +#if !defined( __VAX) && (__CRTL_VER >= 70301000) + +#include <unixlib.h> + +/*--------------------------------------------------------------------*/ + +/* Global storage. */ + +/* Flag to sense if decc_init() was called. */ + +int decc_init_done = -1; + +/*--------------------------------------------------------------------*/ + +/* decc_init() + + Uses LIB$INITIALIZE to set a collection of C RTL features without + requiring the user to define the corresponding logical names. +*/ + +/* Structure to hold a DECC$* feature name and its desired value. */ + +typedef struct + { + char *name; + int value; + } decc_feat_t; + +/* Array of DECC$* feature names and their desired values. */ + +decc_feat_t decc_feat_array[] = { + + /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */ + { "DECC$ARGV_PARSE_STYLE", 1 }, + + /* Preserve case for file names on ODS5 disks. */ + { "DECC$EFS_CASE_PRESERVE", 1 }, + + /* Enable multiple dots (and most characters) in ODS5 file names, + while preserving VMS-ness of ";version". */ + { "DECC$EFS_CHARSET", 1 }, + + /* List terminator. */ + { (char *)NULL, 0 } }; + +/* LIB$INITIALIZE initialization function. */ + +static void decc_init( void) +{ +int feat_index; +int feat_value; +int feat_value_max; +int feat_value_min; +int i; +int sts; + +/* Set the global flag to indicate that LIB$INITIALIZE worked. */ + +decc_init_done = 1; + +/* Loop through all items in the decc_feat_array[]. */ + +for (i = 0; decc_feat_array[ i].name != NULL; i++) + { + /* Get the feature index. */ + feat_index = decc$feature_get_index( decc_feat_array[ i].name); + if (feat_index >= 0) + { + /* Valid item. Collect its properties. */ + feat_value = decc$feature_get_value( feat_index, 1); + feat_value_min = decc$feature_get_value( feat_index, 2); + feat_value_max = decc$feature_get_value( feat_index, 3); + + if ((decc_feat_array[ i].value >= feat_value_min) && + (decc_feat_array[ i].value <= feat_value_max)) + { + /* Valid value. Set it if necessary. */ + if (feat_value != decc_feat_array[ i].value) + { + sts = decc$feature_set_value( feat_index, + 1, + decc_feat_array[ i].value); + } + } + else + { + /* Invalid DECC feature value. */ + printf( " INVALID DECC FEATURE VALUE, %d: %d <= %s <= %d.\n", + feat_value, + feat_value_min, decc_feat_array[ i].name, feat_value_max); + } + } + else + { + /* Invalid DECC feature name. */ + printf( " UNKNOWN DECC FEATURE: %s.\n", decc_feat_array[ i].name); + } + } +} + +/* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */ + +#pragma nostandard + +/* Establish the LIB$INITIALIZE PSECTs, with proper alignment and + other attributes. Note that "nopic" is significant only on VAX. +*/ +#pragma extern_model save + +#pragma extern_model strict_refdef "LIB$INITIALIZ" 2, nopic, nowrt +const int spare[ 8] = { 0 }; + +#pragma extern_model strict_refdef "LIB$INITIALIZE" 2, nopic, nowrt +void (*const x_decc_init)() = decc_init; + +#pragma extern_model restore + +/* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */ + +#pragma extern_model save + +int LIB$INITIALIZE( void); + +#pragma extern_model strict_refdef +int dmy_lib$initialize = (int) LIB$INITIALIZE; + +#pragma extern_model restore + +#pragma standard + +#endif /* !defined( __VAX) && (__CRTL_VER >= 70301000) */ + +#endif /* def __CRTL_VER */ + +#endif /* def __DECC */ + +#endif /* VMS */ diff --git a/vms/vms.h b/vms/vms.h new file mode 100644 index 0000000..8685fdd --- /dev/null +++ b/vms/vms.h @@ -0,0 +1,354 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +/*--------------------------------------------------------------------------- + + vms.h + + Generic VMS header file for Info-ZIP's Zip and UnZip. + + ---------------------------------------------------------------------------*/ + +#ifndef __vms_h +#define __vms_h 1 + +#ifndef __DESCRIP_LOADED +#include <descrip.h> +#endif +#ifndef __STARLET_LOADED +#include <starlet.h> +#endif +#ifndef __SYIDEF_LOADED +#include <syidef.h> +#endif +#ifndef __ATRDEF_LOADED +#include <atrdef.h> +#endif +#ifndef __FIBDEF_LOADED +#include <fibdef.h> +#endif +#ifndef __IODEF_LOADED +#include <iodef.h> +#endif +#if !defined(_RMS_H) && !defined(__RMS_LOADED) +#include <rms.h> +#endif + +#define ERR(s) !((s) & 1) /* VMS system error */ + +#ifndef SYI$_VERSION +#define SYI$_VERSION 4096 /* VMS 5.4 definition */ +#endif + +/* + * Under Alpha (DEC C in VAXC mode) and under `good old' VAXC, the FIB unions + * are declared as variant_unions. DEC C (Alpha) in ANSI modes and third + * party compilers which do not support `variant_union' define preprocessor + * symbols to `hide' the "intermediate union/struct" names from the + * programmer's API. + * We check the presence of these defines and for DEC's FIBDEF.H defining + * __union as variant_union to make sure we access the structure correctly. + */ +#define variant_union 1 +#if defined(fib$w_did) || (defined(__union) && (__union == variant_union)) +# define FIB$W_DID fib$w_did +# define FIB$W_FID fib$w_fid +# define FIB$L_ACCTL fib$l_acctl +# define FIB$W_EXCTL fib$w_exctl +#else +# define FIB$W_DID fib$r_did_overlay.fib$w_did +# define FIB$W_FID fib$r_fid_overlay.fib$w_fid +# define FIB$L_ACCTL fib$r_acctl_overlay.fib$l_acctl +# define FIB$W_EXCTL fib$r_exctl_overlay.fib$w_exctl +#endif +#undef variant_union + + +/* 2005-02-08 SMS. Moved NAM[L] macros here from VMS.C. */ + +/* Define macros for use with either NAM or NAML. */ + +#ifdef NAML$C_MAXRSS /* NAML is available. Use it. */ + +# define NAM_STRUCT NAML + +# define FAB_OR_NAML( fab, nam) nam +# define FAB_OR_NAML_DNA naml$l_long_defname +# define FAB_OR_NAML_DNS naml$l_long_defname_size +# define FAB_OR_NAML_FNA naml$l_long_filename +# define FAB_OR_NAML_FNS naml$l_long_filename_size + +# define CC_RMS_NAM cc$rms_naml +# define FAB_NAM fab$l_naml +# define NAM_DID naml$w_did +# define NAM_DVI naml$t_dvi +# define NAM_ESA naml$l_long_expand +# define NAM_ESL naml$l_long_expand_size +# define NAM_ESS naml$l_long_expand_alloc +# define NAM_FID naml$w_fid +# define NAM_FNB naml$l_fnb +# define NAM_RSA naml$l_long_result +# define NAM_RSL naml$l_long_result_size +# define NAM_RSS naml$l_long_result_alloc +# define NAM_MAXRSS NAML$C_MAXRSS +# define NAM_NOP naml$b_nop +# define NAM_M_EXP_DEV NAML$M_EXP_DEV +# define NAM_M_SYNCHK NAML$M_SYNCHK +# define NAM_B_DEV naml$l_long_dev_size +# define NAM_L_DEV naml$l_long_dev +# define NAM_B_DIR naml$l_long_dir_size +# define NAM_L_DIR naml$l_long_dir +# define NAM_B_NAME naml$l_long_name_size +# define NAM_L_NAME naml$l_long_name +# define NAM_B_TYPE naml$l_long_type_size +# define NAM_L_TYPE naml$l_long_type +# define NAM_B_VER naml$l_long_ver_size +# define NAM_L_VER naml$l_long_ver + +#else /* def NAML$C_MAXRSS */ /* NAML is not available. Use NAM. */ + +# define NAM_STRUCT NAM + +# define FAB_OR_NAML( fab, nam) fab +# define FAB_OR_NAML_DNA fab$l_dna +# define FAB_OR_NAML_DNS fab$b_dns +# define FAB_OR_NAML_FNA fab$l_fna +# define FAB_OR_NAML_FNS fab$b_fns + +# define CC_RMS_NAM cc$rms_nam +# define FAB_NAM fab$l_nam +# define NAM_DID nam$w_did +# define NAM_DVI nam$t_dvi +# define NAM_ESA nam$l_esa +# define NAM_ESL nam$b_esl +# define NAM_ESS nam$b_ess +# define NAM_FID nam$w_fid +# define NAM_FNB nam$l_fnb +# define NAM_RSA nam$l_rsa +# define NAM_RSL nam$b_rsl +# define NAM_RSS nam$b_rss +# define NAM_MAXRSS NAM$C_MAXRSS +# define NAM_NOP nam$b_nop +# define NAM_M_EXP_DEV NAM$M_EXP_DEV +# define NAM_M_SYNCHK NAM$M_SYNCHK +# define NAM_B_DEV nam$b_dev +# define NAM_L_DEV nam$l_dev +# define NAM_B_DIR nam$b_dir +# define NAM_L_DIR nam$l_dir +# define NAM_B_NAME nam$b_name +# define NAM_L_NAME nam$l_name +# define NAM_B_TYPE nam$b_type +# define NAM_L_TYPE nam$l_type +# define NAM_B_VER nam$b_ver +# define NAM_L_VER nam$l_ver + +#endif /* def NAML$C_MAXRSS */ + + +struct EB_header /* Common header of extra block */ +{ ush tag; + ush size; + uch data[1]; +}; + +#ifndef EB_HEADSIZE +# define EB_HEADSIZE 4 +#endif + +/*------ Old style Info-ZIP extra field definitions -----*/ + +#if (!defined(VAXC) && !defined(_RMS_H) && !defined(__RMS_LOADED)) + +struct XAB { /* This definition may be skipped */ + unsigned char xab$b_cod; + unsigned char xab$b_bln; + short int xabdef$$_fill_1; + char *xab$l_nxt; +}; + +#endif /* !VAXC && !_RMS_H && !__RMS_LOADED */ + +#ifndef EB_IZVMS_BCMASK +# define EB_IZVMS_BCMASK 07 /* 3 bits for compression type */ +#endif +#ifndef EB_IZVMS_BCSTOR +# define EB_IZVMS_BCSTOR 0 /* Stored */ +#endif +#ifndef EB_IZVMS_BC00 +# define EB_IZVMS_BC00 1 /* 0byte -> 0bit compression */ +#endif +#ifndef EB_IZVMS_BCDEFL +# define EB_IZVMS_BCDEFL 2 /* Deflated */ +#endif + +/* + * Extra record format + * =================== + * signature (2 bytes) = 'I','M' + * size (2 bytes) + * block signature (4 bytes) + * flags (2 bytes) + * uncomprssed size(2 bytes) + * reserved (4 bytes) + * data ((size-12) bytes) + * .... + */ + +struct IZ_block /* Extra field block header structure */ +{ + ush sig; + ush size; + ulg bid; + ush flags; + ush length; + ulg reserved; + uch body[1]; /* The actual size is unknown */ +}; + +/* + * Extra field signature and block signatures + */ + +#define IZ_SIGNATURE "IM" +#define FABSIG "VFAB" +#define XALLSIG "VALL" +#define XFHCSIG "VFHC" +#define XDATSIG "VDAT" +#define XRDTSIG "VRDT" +#define XPROSIG "VPRO" +#define XKEYSIG "VKEY" +#define XNAMSIG "VNAM" +#define VERSIG "VMSV" + +/* + * Block sizes + */ + +#define FABL (cc$rms_fab.fab$b_bln) +#define RABL (cc$rms_rab.rab$b_bln) +#define XALLL (cc$rms_xaball.xab$b_bln) +#define XDATL (cc$rms_xabdat.xab$b_bln) +#define XFHCL (cc$rms_xabfhc.xab$b_bln) +#define XKEYL (cc$rms_xabkey.xab$b_bln) +#define XPROL (cc$rms_xabpro.xab$b_bln) +#define XRDTL (cc$rms_xabrdt.xab$b_bln) +#define XSUML (cc$rms_xabsum.xab$b_bln) +#define EXTBSL 4 /* Block signature length */ +#define RESL 8 /* Reserved 8 bytes */ +#define EXTHL (EB_HEADSIZE+EXTBSL+RESL) + +typedef unsigned char byte; + +struct iosb +{ + ush status; + ush count; + ulg spec; +}; + +/*------------ PKWARE extra block definitions ----------*/ + +/* Structure of PKWARE extra header */ + +#ifdef VMS_ZIP + +#if defined(__DECC) || defined(__DECCXX) +#pragma __nostandard +#endif /* __DECC || __DECCXX */ + +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __save +#pragma __nomember_alignment +#endif /* __DECC || __DECCXX */ + +#ifdef VMS_ORIGINAL_PK_LAYOUT +/* The original order of ATR fields in the PKZIP VMS-extra field leads + * to unaligned fields in the PK_info structure representing the + * extra field layout. When compiled for Alpha AXP, this results in + * some performance (and code size) penalty. It is not allowed to + * apply structure padding, since this is explicitely forbidden in + * the specification (APPNOTE.TXT) for the PK VMS extra field. + */ +typedef struct +{ + ush tag_ra; ush len_ra; byte ra[ATR$S_RECATTR]; + ush tag_uc; ush len_uc; byte uc[ATR$S_UCHAR]; + ush tag_jr; ush len_jr; byte jr[ATR$S_JOURNAL]; + ush tag_cd; ush len_cd; byte cd[ATR$S_CREDATE]; + ush tag_rd; ush len_rd; byte rd[ATR$S_REVDATE]; + ush tag_ed; ush len_ed; byte ed[ATR$S_EXPDATE]; + ush tag_bd; ush len_bd; byte bd[ATR$S_BAKDATE]; + ush tag_rn; ush len_rn; ush rn; + ush tag_ui; ush len_ui; byte ui[ATR$S_UIC]; + ush tag_fp; ush len_fp; byte fp[ATR$S_FPRO]; + ush tag_rp; ush len_rp; byte rp[ATR$S_RPRO]; +} PK_info_t; +#else /* !VMS_ORIGINAL_PK_LAYOUT */ +/* The Info-ZIP support for the PK VMS extra field uses a reordered + * field layout to achieve ``natural alignment'' of the PK_info structure + * members whenever possible. This rearrangement does not violate the + * PK's VMS extra field specification and should not break any ``well + * behaving'' (PK)Unzip utility. (`Well behaving' means that (PK)Unzip + * should use the field tag to identify the ATR$ field rather than + * assuming a fixed order of ATR$ fields in the PK VMS extra field.) + */ +typedef struct +{ + ush tag_ra; ush len_ra; byte ra[ATR$S_RECATTR]; + ush tag_uc; ush len_uc; byte uc[ATR$S_UCHAR]; + ush tag_cd; ush len_cd; byte cd[ATR$S_CREDATE]; + ush tag_rd; ush len_rd; byte rd[ATR$S_REVDATE]; + ush tag_ed; ush len_ed; byte ed[ATR$S_EXPDATE]; + ush tag_bd; ush len_bd; byte bd[ATR$S_BAKDATE]; + ush tag_rn; ush len_rn; ush rn; + ush tag_ui; ush len_ui; byte ui[ATR$S_UIC]; + ush tag_fp; ush len_fp; byte fp[ATR$S_FPRO]; + ush tag_rp; ush len_rp; byte rp[ATR$S_RPRO]; + ush tag_jr; ush len_jr; byte jr[ATR$S_JOURNAL]; +} PK_info_t; +#endif /* ?VMS_ORIGINAL_PK_LAYOUT */ + +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __restore +#endif /* __DECC || __DECCXX */ + +#if defined(__DECC) || defined(__DECCXX) +#pragma __standard +#endif /* __DECC || __DECCXX */ + +#endif /* VMS_ZIP */ + +/* PKWARE "VMS" tag */ +#define PK_SIGNATURE 0x000C + +/* Total number of attributes to be saved */ +#define VMS_ATTR_COUNT 11 +#define VMS_MAX_ATRCNT 20 + +struct PK_field +{ + ush tag; + ush size; + byte value[1]; +}; + +#define PK_FLDHDR_SIZE 4 + +struct PK_header +{ + ush tag; + ush size; + ulg crc32; + byte data[1]; +}; + +#define PK_HEADER_SIZE 8 + +char *vms_file_version( char *s); + +#endif /* !__vms_h */ diff --git a/vms/vms_im.c b/vms/vms_im.c new file mode 100644 index 0000000..001088b --- /dev/null +++ b/vms/vms_im.c @@ -0,0 +1,926 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +/* + * vms_im.c (zip) by Igor Mandrichenko Version 2.2-2 + * + * Revision history: + * ... + * 2.1-1 16-feb-1993 I.Mandrichenko + * Get file size from XABFHC and check bytes rest in file before + * reading. + * 2.1-2 2-mar-1993 I.Mandrichenko + * Make code more standard + * 2.2 21-jun-1993 I.Mandrichenko + * Free all allocated space, use more static storage. + * Use memcompress() from bits.c (deflation) for block compression. + * To revert to old compression method #define OLD_COMPRESS + * 2.2-2 28-sep-1995 C.Spieler + * Reorganized code for easier maintance of the two incompatible + * flavours (IM style and PK style) VMS attribute support. + * Generic functions (common to both flavours) are now collected + * in a `wrapper' source file that includes one of the VMS attribute + * handlers. + * 3.0 23-Oct-2004 Steven Schweda + * Changed to maintain compatibility with VMS_PK.C. Note that + * reading with sys$read() prevents getting any data past EOF, + * regardless of appearances. Moved the VMS_PK_EXTRA test into + * here from VMS.C to allow more general automatic dependency + * generation. + * 17-Feb-2005 Steven Schweda + * Added support for ODS5 extended names. + */ + +#ifdef VMS /* For VMS only ! */ + +#ifndef VMS_PK_EXTRA + +#define OLD_COMPRESS /*To use old compression method define it.*/ + +#ifdef VMS_ZIP +#undef VMS_ZIP /* do NOT include PK style Zip definitions */ +#endif + +#include "vms.h" + +#ifndef __LIB$ROUTINES_LOADED +#include <lib$routines.h> +#endif + +#ifndef UTIL + +#define RET_ERROR 1 +#define RET_SUCCESS 0 +#define RET_EOF 0 + +#define Kbyte 1024 + +typedef struct XAB *xabptr; + +/* + * Block sizes + */ + +#define EXTL0 ((FABL + EXTHL)+ \ + (XFHCL + EXTHL)+ \ + (XPROL + EXTHL)+ \ + (XDATL + EXTHL)+ \ + (XRDTL + EXTHL)) + +#ifdef OLD_COMPRESS +#define PAD sizeof(uch) +#else +#define PAD 10*sizeof(ush) /* Two extra bytes for compr. header */ +#endif + +#define PAD0 (5*PAD) /* Reserve space for the case when + * compression fails */ +static int _compress(uch *from, uch *to, int size); +#ifdef DEBUG +static void dump_rms_block(uch *p); +#endif /* DEBUG */ + +/******************************** + * Function set_extra_field * + ********************************/ +/* + | 2004-11-11 SMS. + | Changed to use separate storage for ->extra and ->cextra. Zip64 + | processing may move (reallocate) one and not the other. + */ + +static uch *_compress_block(register struct IZ_block *to, + uch *from, int size, char *sig); +static int get_vms_version(char *verbuf, int len); + +int set_extra_field(z, z_utim) + struct zlist far *z; + iztimes *z_utim; +/* + * Get file VMS file attributes and store them into extent fields. + * Store VMS version also. + * On error leave z intact. + */ +{ + int status; + uch *xtra; + uch *cxtra; + uch *scan; + extent extra_l; + static struct FAB fab; + static struct NAM_STRUCT nam; + static struct XABSUM xabsum; + static struct XABFHC xabfhc; + static struct XABDAT xabdat; + static struct XABPRO xabpro; + static struct XABRDT xabrdt; + xabptr x = (xabptr)NULL, xab_chain = (xabptr)NULL, last_xab = (xabptr)NULL; + int nk, na; + int i; + int rc=RET_ERROR; + char verbuf[80]; + int verlen = 0; + + if (!vms_native) + { +#ifdef USE_EF_UT_TIME + /* + * A `portable' zipfile entry is created. Create an "UT" extra block + * containing UNIX style modification time stamp in UTC, which helps + * maintaining the `real' "last modified" time when the archive is + * transfered across time zone boundaries. + */ +# ifdef IZ_CHECK_TZ + if (!zp_tz_is_valid) + return ZE_OK; /* skip silently if no valid TZ info */ +# endif + if ((xtra = (uch *) malloc( EB_HEADSIZE+ EB_UT_LEN( 1))) == NULL) + return ZE_MEM; + + if ((cxtra = (uch *) malloc( EB_HEADSIZE+ EB_UT_LEN( 1))) == NULL) + return ZE_MEM; + + /* Fill xtra[] with data. */ + xtra[ 0] = 'U'; + xtra[ 1] = 'T'; + xtra[ 2] = EB_UT_LEN(1); /* length of data part of e.f. */ + xtra[ 3] = 0; + xtra[ 4] = EB_UT_FL_MTIME; + xtra[ 5] = (uch) (z_utim->mtime); + xtra[ 6] = (uch) (z_utim->mtime >> 8); + xtra[ 7] = (uch) (z_utim->mtime >> 16); + xtra[ 8] = (uch) (z_utim->mtime >> 24); + + /* Copy xtra[] data into cxtra[]. */ + memcpy( cxtra, xtra, (EB_HEADSIZE+ EB_UT_LEN( 1))); + + /* Set sizes and pointers. */ + z->cext = z->ext = (EB_HEADSIZE+ EB_UT_LEN( 1)); + z->extra = (char *) xtra; + z->cextra = (char *) cxtra; + +#endif /* USE_EF_UT_TIME */ + + return RET_SUCCESS; + } + + /* + * Initialize RMS control blocks and link them + */ + + fab = cc$rms_fab; + nam = CC_RMS_NAM; + xabsum = cc$rms_xabsum; + xabdat = cc$rms_xabdat; + xabfhc = cc$rms_xabfhc; + xabpro = cc$rms_xabpro; + xabrdt = cc$rms_xabrdt; + + fab.FAB_NAM = &nam; + fab.fab$l_xab = (char*)&xabsum; + /* + * Open the file and read summary information. + */ + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = z->name; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( z->name); + +#ifdef NAML$M_OPEN_SPECIAL + /* 2007-02-28 SMS. + * If processing symlinks as symlinks ("-y"), then $OPEN the + * link, not the target file. + * + * (nam.naml$v_open_special gets us the symlink itself instead of + * its target. fab.fab$v_bio is necessary to allow sys$open() to + * work. Without it, you get status %x0001860c, "%RMS-F-ORG, + * invalid file organization value".) + */ + if (linkput) + { + nam.naml$v_open_special = 1; + fab.fab$v_bio = 1; + } +#endif /* def NAML$M_OPEN_SPECIAL */ + + status = sys$open(&fab); + if (ERR(status)) + { +#ifdef DEBUG + printf("set_extra_field: sys$open for file %s:\n error status = %d\n", + z->name, status); +#endif + goto err_exit; + } + + nk = xabsum.xab$b_nok; + na = xabsum.xab$b_noa; +#ifdef DEBUG + printf("%d keys, %d alls\n", nk, na); +#endif + + /* + * Allocate XABKEY and XABALL blocks and link them + */ + + xabfhc.xab$l_nxt = (char*)&xabdat; + xabdat.xab$l_nxt = (char*)&xabpro; + xabpro.xab$l_nxt = (char*)&xabrdt; + xabrdt.xab$l_nxt = NULL; + + xab_chain = (xabptr)(&xabfhc); + last_xab = (xabptr)(&xabrdt); + +#define INIT(ptr,size,type,init) \ + if ( (ptr = (type *)malloc(size)) == NULL ) \ + { \ + printf( "set_extra_field: Insufficient memory.\n" ); \ + goto err_exit; \ + } \ + *(ptr) = (init); + /* + * Allocate and initialize all needed XABKEYs and XABALLs + */ + for (i = 0; i < nk; i++) + { + struct XABKEY *k; + INIT(k, XKEYL, struct XABKEY, cc$rms_xabkey); + k->xab$b_ref = i; + if (last_xab != NULL) + last_xab->xab$l_nxt = (char*)k; + last_xab = (xabptr)k; + } + for (i = 0; i < na; i++) + { + struct XABALL *a; + INIT(a, XALLL, struct XABALL, cc$rms_xaball); + a->xab$b_aid = i; + if (last_xab != NULL) + last_xab->xab$l_nxt = (char*)a; + last_xab = (xabptr)a; + } + + fab.fab$l_xab = (char*)xab_chain; +#ifdef DEBUG + printf("Dump of XAB chain before $DISPLAY:\n"); + for (x = xab_chain; x != NULL; x = x->xab$l_nxt) + dump_rms_block((uch *)x); +#endif + /* + * Get information on the file structure etc. + */ + status = sys$display(&fab, 0, 0); + if (ERR(status)) + { +#ifdef DEBUG + printf("set_extra_field: sys$display for file %s:\n error status = %d\n", + z->name, status); +#endif + goto err_exit; + } + +#ifdef DEBUG + printf("\nDump of XAB chain after $DISPLAY:\n"); + for (x = xab_chain; x != NULL; x = x->xab$l_nxt) + dump_rms_block((uch *)x); +#endif + + fab.fab$l_xab = NULL; /* Keep XABs */ + status = sys$close(&fab); + if (ERR(status)) + { +#ifdef DEBUG + printf("set_extra_field: sys$close for file %s:\n error status = %d\n", + z->name, status); +#endif + goto err_exit; + } + + extra_l = EXTL0 + nk * (XKEYL + EXTHL) + na * (XALLL + EXTHL); +#ifndef OLD_COMPRESS + extra_l += PAD0 + (nk+na) * PAD; +#endif + + if ( (verlen = get_vms_version(verbuf, sizeof(verbuf))) > 0 ) + { + extra_l += verlen + EXTHL; +#ifndef OLD_COMPRESS + extra_l += PAD; +#endif + } + + if ((scan = xtra = (uch *) malloc( extra_l)) == (uch*)NULL) + { +#ifdef DEBUG + printf( + "set_extra_field: Insufficient memory to allocate extra L buffer\n"); +#endif + goto err_exit; + } + + if ((cxtra = (uch *) malloc( extra_l)) == (uch*)NULL) + { +#ifdef DEBUG + printf( + "set_extra_field: Insufficient memory to allocate extra C buffer\n"); +#endif + goto err_exit; + } + + if (verlen > 0) + scan = _compress_block((struct IZ_block *)scan, (uch *)verbuf, + verlen, VERSIG); + + /* + * Zero all unusable fields to improve compression + */ + fab.fab$b_fns = fab.fab$b_shr = fab.fab$b_dns = fab.fab$b_fac = 0; + fab.fab$w_ifi = 0; + fab.fab$l_stv = fab.fab$l_sts = fab.fab$l_ctx = 0; + fab.fab$l_dna = NULL; + fab.fab$l_fna = NULL; + fab.fab$l_nam = NULL; +#ifdef NAML$C_MAXRSS + fab.fab$l_naml = NULL; +#endif /* def NAML$C_MAXRSS */ + fab.fab$l_xab = NULL; + +#ifdef DEBUG + dump_rms_block( (uch *)&fab ); +#endif + scan = _compress_block((struct IZ_block *)scan, (uch *)&fab, FABL, FABSIG); + for (x = xab_chain; x != NULL;) + { + int bln; + char *sig; + xabptr next; + + next = (xabptr)(x->xab$l_nxt); + x->xab$l_nxt = 0; + + switch (x->xab$b_cod) + { + case XAB$C_ALL: + bln = XALLL; + sig = XALLSIG; + break; + case XAB$C_KEY: + bln = XKEYL; + sig = XKEYSIG; + break; + case XAB$C_PRO: + bln = XPROL; + sig = XPROSIG; + break; + case XAB$C_FHC: + bln = XFHCL; + sig = XFHCSIG; + break; + case XAB$C_DAT: + bln = XDATL; + sig = XDATSIG; + break; + case XAB$C_RDT: + bln = XRDTL; + sig = XRDTSIG; + break; + default: + bln = 0; + sig = 0L; + break; + } + if (bln > 0) + scan = _compress_block((struct IZ_block *)scan, (uch *)x, + bln, sig); + x = next; + } + + /* Copy xtra[] data into cxtra[]. */ + memcpy( cxtra, xtra, (scan- xtra)); + + /* Set sizes and pointers. */ + z->cext = z->ext = scan- xtra; + z->extra = (char*) xtra; + z->cextra = (char*) cxtra; + + rc = RET_SUCCESS; + +err_exit: + /* + * Give up all allocated blocks + */ + for (x = (struct XAB *)xab_chain; x != NULL; ) + { + struct XAB *next; + next = (xabptr)(x->xab$l_nxt); + if (x->xab$b_cod == XAB$C_ALL || x->xab$b_cod == XAB$C_KEY) + free(x); + x = next; + } + return rc; +} + +static int get_vms_version(verbuf, len) +char *verbuf; +int len; +{ + int i = SYI$_VERSION; + int verlen = 0; + struct dsc$descriptor version; + char *m; + + version.dsc$a_pointer = verbuf; + version.dsc$w_length = len - 1; + version.dsc$b_dtype = DSC$K_DTYPE_B; + version.dsc$b_class = DSC$K_CLASS_S; + + if (ERR(lib$getsyi(&i, 0, &version, &verlen, 0, 0)) || verlen == 0) + return 0; + + /* Cut out trailing spaces "V5.4-3 " -> "V5.4-3" */ + for (m = verbuf + verlen, i = verlen - 1; i > 0 && verbuf[i] == ' '; --i) + --m; + *m = 0; + + /* Cut out release number "V5.4-3" -> "V5.4" */ + if ((m = strrchr(verbuf, '-')) != NULL) + *m = 0; + return strlen(verbuf) + 1; /* Transmit ending 0 too */ +} + +#define CTXSIG ((ulg)('CtXx')) + +typedef struct user_context +{ + ulg sig; + struct FAB *fab; + struct NAM_STRUCT *nam; + struct RAB *rab; + uzoff_t size; + uzoff_t rest; + int status; +} Ctx, *Ctxptr; + +Ctx init_ctx = +{ + CTXSIG, + NULL, + NULL, + NULL, + 0L, + 0L, + 0 +}; + +#define CTXL sizeof(Ctx) +#define CHECK_RAB(_r) ( (_r) != NULL && \ + (_r) -> rab$b_bid == RAB$C_BID && \ + (_r) -> rab$b_bln == RAB$C_BLN && \ + (_r) -> rab$l_ctx != 0 && \ + (_r) -> rab$l_fab != NULL ) + + +#define BLOCK_BYTES 512 + +/************************** + * Function vms_open * + **************************/ +struct RAB *vms_open(name) + char *name; +{ + struct FAB *fab; + struct NAM_STRUCT *nam; + struct RAB *rab; + struct XABFHC *fhc; + Ctxptr ctx; + + if ((fab = (struct FAB *) malloc(FABL)) == NULL) + return NULL; + + if ((nam = + (struct NAM_STRUCT *) malloc( sizeof( struct NAM_STRUCT))) == NULL) + { + free(fab); + return NULL; + } + + if ((rab = (struct RAB *) malloc(RABL)) == NULL) + { + free(fab); + free(nam); + return NULL; + } + + if ((fhc = (struct XABFHC *) malloc(XFHCL)) == (struct XABFHC *)NULL) + { + free(fab); + free(nam); + free(rab); + return (struct RAB *)NULL; + } + if ((ctx = (Ctxptr) malloc(CTXL)) == (Ctxptr)NULL) + { + free(fab); + free(nam); + free(rab); + free(fhc); + return (struct RAB *)NULL; + } + *fab = cc$rms_fab; + *nam = CC_RMS_NAM; + *rab = cc$rms_rab; + *fhc = cc$rms_xabfhc; + + fab->FAB_NAM = nam; + +#ifdef NAML$C_MAXRSS + + fab->fab$l_dna = (char *) -1; /* Using NAML for default name. */ + fab->fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + FAB_OR_NAML( fab, nam)->FAB_OR_NAML_FNA = name; + FAB_OR_NAML( fab, nam)->FAB_OR_NAML_FNS = strlen( name); + + fab->fab$b_fac = FAB$M_GET | FAB$M_BIO; + fab->fab$l_xab = (char*)fhc; + +#ifdef NAML$M_OPEN_SPECIAL + /* 2007-02-28 SMS. + * If processing symlinks as symlinks ("-y"), then $OPEN the + * link, not the target file. (Note that here the required + * fab->fab$v_bio flag was set above.) + */ + if (linkput) + { + nam->naml$v_open_special = 1; + } +#endif /* def NAML$M_OPEN_SPECIAL */ + + if (ERR(sys$open(fab))) + { + sys$close(fab); + free(fab); + free(nam); + free(rab); + free(fhc); + free(ctx); + return (struct RAB *)NULL; + } + + rab->rab$l_fab = fab; + rab->rab$l_rop = RAB$M_BIO; + + if (ERR(sys$connect(rab))) + { + sys$close(fab); + free(fab); + free(nam); + free(rab); + free(ctx); + return (struct RAB *)NULL; + } + + *ctx = init_ctx; + ctx->fab = fab; + ctx->nam = nam; + ctx->rab = rab; + + if (fhc->xab$l_ebk == 0) + { + /* Only known size is all allocated blocks. + (This occurs with a zero-length file, for example.) + */ + ctx->size = + ctx->rest = ((uzoff_t) fhc->xab$l_hbk)* BLOCK_BYTES; + } + else + { + /* Store normal (used) size in ->size. + If only one -V, store normal (used) size in ->rest. + If -VV, store allocated-blocks size in ->rest. + */ + ctx->size = + (((uzoff_t) fhc->xab$l_ebk)- 1)* BLOCK_BYTES+ fhc->xab$w_ffb; + if (vms_native < 2) + ctx->rest = ctx->size; + else + ctx->rest = ((uzoff_t) fhc->xab$l_hbk)* BLOCK_BYTES; + } + + free(fhc); + fab->fab$l_xab = NULL; + rab->rab$l_ctx = (unsigned) ctx; + return rab; +} + +/************************** + * Function vms_close * + **************************/ +int vms_close(rab) + struct RAB *rab; +{ + struct FAB *fab; + struct NAM_STRUCT *nam; + Ctxptr ctx; + + if (!CHECK_RAB(rab)) + return RET_ERROR; + fab = (ctx = (Ctxptr)(rab->rab$l_ctx))->fab; + nam = (ctx = (Ctxptr)(rab->rab$l_ctx))->nam; + sys$close(fab); + + free(fab); + free(nam); + free(rab); + free(ctx); + + return RET_SUCCESS; +} + +/************************** + * Function vms_rewind * + **************************/ +int vms_rewind(rab) + struct RAB *rab; +{ + Ctxptr ctx; + + int status; + if (!CHECK_RAB(rab)) + return RET_ERROR; + + ctx = (Ctxptr) (rab->rab$l_ctx); + if (ERR(status = sys$rewind(rab))) + { + ctx->status = status; + return RET_ERROR; + } + + ctx->status = 0; + ctx->rest = ctx->size; + + return RET_SUCCESS; +} + + +#define KByte (2* BLOCK_BYTES) +#define MAX_READ_BYTES (32* KByte) + +/************************** + * Function vms_read * + **************************/ +size_t vms_read(rab, buf, size) +struct RAB *rab; +char *buf; +size_t size; +/* + * size must be greater or equal to 512 ! + */ +{ + int status; + Ctxptr ctx; + + ctx = (Ctxptr)rab->rab$l_ctx; + + if (!CHECK_RAB(rab)) + return 0; + + if (ctx -> rest == 0) + return 0; /* Eof */ + + /* If request is smaller than a whole block, fail. + This really should never happen. (assert()?) + */ + if (size < BLOCK_BYTES) + return 0; + + /* 2004-09-27 SMS. + Code here now resembles low-level QIO code in VMS_PK.C, but I + doubt that sys$read() will actually get past the official EOF. + */ + + /* Adjust request size as appropriate. */ + if (size > MAX_READ_BYTES) + { + /* Restrict request to MAX_READ_BYTES. */ + size = MAX_READ_BYTES; + } + else + { + /* Round odd-ball request up to the next whole block. + This really should never happen. (assert()?) + */ + size = (size+ BLOCK_BYTES- 1)& ~(BLOCK_BYTES- 1); + } + + /* Reduce "size" when next (last) read would overrun the EOF, + but never below one byte (so we'll always get a nice EOF). + */ + if (size > ctx->rest) + size = ctx->rest; + if (size == 0) + size = 1; + + rab->rab$l_ubf = buf; + rab->rab$w_usz = size; + status = sys$read(rab); + + if (!ERR(status) && rab->rab$w_rsz > 0) + { + ctx -> status = 0; + ctx -> rest -= rab->rab$w_rsz; + return rab->rab$w_rsz; + } + else + { + ctx->status = (status==RMS$_EOF ? 0:status); + if (status == RMS$_EOF) + ctx -> rest = 0; + return 0; + } +} + +/************************** + * Function vms_error * + **************************/ +int vms_error(rab) + struct RAB *rab; +{ + if (!CHECK_RAB(rab)) + return RET_ERROR; + return ((Ctxptr) (rab->rab$l_ctx))->status; +} + + +#ifdef DEBUG +static void dump_rms_block(p) + uch *p; +{ + uch bid, len; + int err; + char *type; + char buf[132]; + int i; + + err = 0; + bid = p[0]; + len = p[1]; + switch (bid) + { + case FAB$C_BID: + type = "FAB"; + break; + case XAB$C_ALL: + type = "xabALL"; + break; + case XAB$C_KEY: + type = "xabKEY"; + break; + case XAB$C_DAT: + type = "xabDAT"; + break; + case XAB$C_RDT: + type = "xabRDT"; + break; + case XAB$C_FHC: + type = "xabFHC"; + break; + case XAB$C_PRO: + type = "xabPRO"; + break; + default: + type = "Unknown"; + err = 1; + break; + } + printf("Block @%08X of type %s (%d).", p, type, bid); + if (err) + { + printf("\n"); + return; + } + printf(" Size = %d\n", len); + printf(" Offset - Hex - Dec\n"); + for (i = 0; i < len; i += 8) + { + int j; + + printf("%3d - ", i); + for (j = 0; j < 8; j++) + if (i + j < len) + printf("%02X ", p[i + j]); + else + printf(" "); + printf(" - "); + for (j = 0; j < 8; j++) + if (i + j < len) + printf("%03d ", p[i + j]); + else + printf(" "); + printf("\n"); + } +} +#endif /* DEBUG */ + +#ifdef OLD_COMPRESS +# define BC_METHOD EB_IZVMS_BC00 +# define COMP_BLK(to,tos,from,froms) _compress( from,to,froms ) +#else +# define BC_METHOD EB_IZVMS_BCDEFL +# define COMP_BLK(to,tos,from,froms) memcompress(to,tos,from,froms) +#endif + +static uch *_compress_block(to,from,size,sig) +register struct IZ_block *to; +uch *from; +int size; +char *sig; +{ + ulg cl; + to -> sig = *(ush*)IZ_SIGNATURE; + to -> bid = *(ulg*)(sig); + to -> flags = BC_METHOD; + to -> length = size; +#ifdef DEBUG + printf("\nmemcompr(%d,%d,%d,%d)\n",&(to->body[0]),size+PAD,from,size); +#endif + cl = COMP_BLK( &(to->body[0]), size+PAD, from, size ); +#ifdef DEBUG + printf("Compressed to %d\n",cl); +#endif + if (cl >= size) + { + memcpy(&(to->body[0]), from, size); + to->flags = EB_IZVMS_BCSTOR; + cl = size; +#ifdef DEBUG + printf("Storing block...\n"); +#endif + } + return (uch*)(to) + (to->size = cl + EXTBSL + RESL) + EB_HEADSIZE; +} + +#define NBITS 32 + +static int _compress(from,to,size) +uch *from,*to; +int size; +{ + int off=0; + ulg bitbuf=0; + int bitcnt=0; + int i; + +#define _BIT(val,len) { \ + if (bitcnt + (len) > NBITS) \ + while(bitcnt >= 8) \ + { \ + to[off++] = (uch)bitbuf; \ + bitbuf >>= 8; \ + bitcnt -= 8; \ + } \ + bitbuf |= ((ulg)(val))<<bitcnt; \ + bitcnt += len; \ + } + +#define _FLUSH { \ + while(bitcnt>0) \ + { \ + to[off++] = (uch)bitbuf; \ + bitbuf >>= 8; \ + bitcnt -= 8; \ + } \ + } + + for (i=0; i<size; i++) + { + if (from[i]) + { + _BIT(1,1); + _BIT(from[i],8); + } + else + _BIT(0,1); + } + _FLUSH; + return off; +} + +#endif /* !UTIL */ + +#endif /* ndef VMS_PK_EXTRA */ + +#endif /* VMS */ diff --git a/vms/vms_msg_gen.c b/vms/vms_msg_gen.c new file mode 100644 index 0000000..4599cb0 --- /dev/null +++ b/vms/vms_msg_gen.c @@ -0,0 +1,91 @@ +/* + * VMS Message Source File Generator. + * + * 2007-01-29 SMS. + * + * Generates a VMS error message source file from data in "ziperr.h". + * + * On a VMS system, the standard builders should do the work. On a + * non-VMS system: + * + * cc -I. vms/vms_msg_gen.c -o vms_msg_gen + * ./vms_msg_gen > vms/zip_msg.msg + * rm ./vms_msg_gen + */ + +#include <stdio.h> +#include <string.h> + +#define GLOBALS /* Include data for ziperrors[] in ziperr.h. */ +#include "ziperr.h" + +main() +{ + int base_prev; + int code_vms; + int code_zip; + int i; + + char *sev_str[ 8] = { + "/WARNING", + "/SUCCESS", + "/ERROR", + "/INFORMATIONAL", + "/FATAL", + "/??????", + "/???????", + "/????????" + }; + + char *text1[] = { +"! VMS Error Message Source File for Zip", +"!", +"! Because the facility code was formally assigned by HP, the .FACILITY", +"! directive below specifies /SYSTEM. Because the messages are, in", +"! general, specific to Zip, this file is not compiled with /SHARED.", +"! For example:", +"!", +"! MESSAGE /OBJECT = [.dest]ZIP_MSG.OBJ /NOSYMBOLS [.VMS]ZIP_MSG.MSG", +"!", +"! LINK /SHAREABLE = [.dest]ZIP_MSG.EXE [.dest]ZIP_MSG.OBJ", +"!", +"!-----------------------------------------------------------------------", +"", +".TITLE Info-ZIP Zip Error Messages", +".FACILITY IZ_ZIP, 1955 /SYSTEM", +NULL /* End-of-text marker. */ +}; + + /* Initialize the .BASE counter. */ + base_prev = -2; + + /* Put out the header text. */ + for (i = 0; text1[ i] != NULL; i++) + { + printf( "%s\n", text1[ i]); + } + printf( ".IDENT '%s'\n", VMS_MSG_IDENT); + printf( "\n"); + + /* Put out the error messages. */ + for (code_zip = 0; code_zip <= ZE_MAXERR; code_zip++) + { + if ((ziperrors[ code_zip].string != NULL) && + (strlen(ziperrors[ code_zip].string) != 0)) + { + code_vms = 2* code_zip; /* 4-bit left-shift, not 3. */ + if (code_vms != base_prev+ 1) + { + printf( ".BASE %d\n", code_vms); + } + printf( "%-7s %-13s <%s>\n", + ziperrors[ code_zip].name, + sev_str[ ziperrors[ code_zip].severity & 0x07], + ziperrors[ code_zip].string); + base_prev = code_vms; + } + } + /* Put out the .END directive. */ + printf( "\n"); + printf( ".END\n"); +} diff --git a/vms/vms_pk.c b/vms/vms_pk.c new file mode 100644 index 0000000..9aa203d --- /dev/null +++ b/vms/vms_pk.c @@ -0,0 +1,600 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +/* + * vms_pk.c by Igor Mandrichenko + * + * version 2.0 20-Mar-1993 + * Generates PKWARE version of VMS attributes + * extra field according to appnote 2.0. + * Uses low level QIO-ACP interface. + * version 2.0-1 10-Apr-1993 + * Save ACLs + * version 2.1 24-Aug-1993 + * By default produce 0x010C extra record ID instead of + * PKWARE's 0x000C. The format is mostly compatible with + * PKWARE. + * Incompatibility (?): zip produces multiple ACE + * fields. + * version 2.1-1 Clean extra fields in vms_get_attributes(). + * Fixed bug with EOF. + * version 2.1-2 15-Sep-1995, Chr. Spieler + * Removed extra fields cleanup from vms_get_attributes(). + * This is now done in zipup.c + * Modified (according to UnZip's vms.[ch]) the fib stuff + * for DEC C (AXP,VAX) support. + * version 2.2 28-Sep-1995, Chr. Spieler + * Reorganized code for easier maintance of the two + * incompatible flavours (IM style and PK style) VMS + * attribute support. Generic functions (common to + * both flavours) are now collected in a `wrapper' + * source file that includes one of the VMS attribute + * handlers. + * Made extra block header conforming to PKware's + * specification (extra block header has a length + * of four bytes, two bytes for a signature, and two + * bytes for the length of the block excluding this + * header. + * version 2.2-1 19-Oct-1995, Chr. Spieler + * Fixed bug in CRC calculation. + * Use official PK VMS extra field id. + * version 2.2-2 21-Nov-1997, Chr. Spieler + * Fixed bug in vms_get_attributes() for directory + * entries (access to uninitialized ioctx record). + * Removed unused second arg for vms_open(). + * version 2.2-3 04-Apr-1999, Chr. Spieler + * Changed calling interface of vms_get_attributes() + * to accept a void pointer as first argument. + * version 2.2-4 26-Jan-2002, Chr. Spieler + * Modified vms_read() to handle files larger than 2GByte + * (up to size limit of "unsigned long", resp. 4GByte). + * version 3.0 20-Oct-2004, Steven Schweda. + * Changed vms_read() to read all the allocated + * blocks in a file, for sure. Changed the default + * chunk size from 16K to 32K. Changed to use the + * new typedef for the ioctx structure. Moved the + * VMS_PK_EXTRA test into here from VMS.C to allow + * more general automatic dependency generation. + * 08-Feb-2005, SMS. + * Changed to accomodate ODS5 extended file names: + * NAM structure -> NAM[L], and so on. (VMS.H.) + * Added some should-never-appear error messages in + * vms_open(). + */ + +#ifdef VMS /* For VMS only ! */ + +#ifdef VMS_PK_EXTRA + +#include <ssdef.h> + +#ifndef VMS_ZIP +#define VMS_ZIP +#endif + +#include "crc32.h" +#include "vms.h" +#include "vmsdefs.h" + +#ifndef ERR +#define ERR(x) (((x)&1)==0) +#endif + +#ifndef NULL +#define NULL (void*)(0L) +#endif + +#ifndef UTIL + +static PK_info_t PK_def_info = +{ + ATR$C_RECATTR, ATR$S_RECATTR, {0}, + ATR$C_UCHAR, ATR$S_UCHAR, {0}, + ATR$C_CREDATE, ATR$S_CREDATE, {0}, + ATR$C_REVDATE, ATR$S_REVDATE, {0}, + ATR$C_EXPDATE, ATR$S_EXPDATE, {0}, + ATR$C_BAKDATE, ATR$S_BAKDATE, {0}, + ATR$C_ASCDATES, sizeof(ush), 0, + ATR$C_UIC, ATR$S_UIC, {0}, + ATR$C_FPRO, ATR$S_FPRO, {0}, + ATR$C_RPRO, ATR$S_RPRO, {0}, + ATR$C_JOURNAL, ATR$S_JOURNAL, {0} +}; + +/* File description structure for Zip low level I/O */ +typedef struct +{ + struct iosb iosb; + long vbn; + uzoff_t size; + uzoff_t rest; + int status; + ush chan; + ush chan_pad; /* alignment member */ + long acllen; + uch aclbuf[ATR$S_READACL]; + PK_info_t PKi; +} ioctx_t; + + +/* Forward declarations of public functions: */ +ioctx_t *vms_open(char *file); +unsigned int vms_read(register ioctx_t *ctx, + register char *buf, register unsigned int size); +int vms_error(ioctx_t *ctx); +int vms_rewind(ioctx_t *ctx); +int vms_get_attributes(ioctx_t *ctx, struct zlist far *z, + iztimes *z_utim); +int vms_close(ioctx_t *ctx); + + +#define BLOCK_BYTES 512 + + +/*---------------* + | vms_open() | + *---------------* + | This routine opens file for reading fetching its attributes. + | Returns pointer to file description structure. + */ + +ioctx_t *vms_open(file) +char *file; +{ + static struct atrdef Atr[VMS_MAX_ATRCNT+1]; + static struct NAM_STRUCT Nam; + static struct fibdef Fib; + static struct dsc$descriptor FibDesc = + {sizeof(Fib),DSC$K_DTYPE_Z,DSC$K_CLASS_S,(char *)&Fib}; + static struct dsc$descriptor_s DevDesc = + {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,&Nam.NAM_DVI[1]}; + static char EName[NAM_MAXRSS]; + static char RName[NAM_MAXRSS]; + + struct FAB Fab; + register ioctx_t *ctx; + register struct fatdef *fat; + int status; + int i; + ulg efblk; + ulg hiblk; + + if ( (ctx=(ioctx_t *)malloc(sizeof(ioctx_t))) == NULL ) + return NULL; + ctx -> PKi = PK_def_info; + +#define FILL_REQ(ix,id,b) { \ + Atr[ix].atr$l_addr = GVTC &(b); \ + Atr[ix].atr$w_type = (id); \ + Atr[ix].atr$w_size = sizeof(b); \ +} + + FILL_REQ(0, ATR$C_RECATTR, ctx->PKi.ra); + FILL_REQ(1, ATR$C_UCHAR, ctx->PKi.uc); + FILL_REQ(2, ATR$C_REVDATE, ctx->PKi.rd); + FILL_REQ(3, ATR$C_EXPDATE, ctx->PKi.ed); + FILL_REQ(4, ATR$C_CREDATE, ctx->PKi.cd); + FILL_REQ(5, ATR$C_BAKDATE, ctx->PKi.bd); + FILL_REQ(6, ATR$C_ASCDATES, ctx->PKi.rn); + FILL_REQ(7, ATR$C_JOURNAL, ctx->PKi.jr); + FILL_REQ(8, ATR$C_RPRO, ctx->PKi.rp); + FILL_REQ(9, ATR$C_FPRO, ctx->PKi.fp); + FILL_REQ(10,ATR$C_UIC, ctx->PKi.ui); + FILL_REQ(11,ATR$C_ACLLENGTH,ctx->acllen); + FILL_REQ(12,ATR$C_READACL, ctx->aclbuf); + + Atr[13].atr$w_type = 0; /* End of ATR list */ + Atr[13].atr$w_size = 0; + Atr[13].atr$l_addr = GVTC NULL; + + /* Initialize RMS structures. We need a NAM[L] to retrieve the FID. */ + Fab = cc$rms_fab; + Nam = CC_RMS_NAM; + Fab.FAB_NAM = &Nam; /* FAB has an associated NAM[L]. */ + +#ifdef NAML$C_MAXRSS + + Fab.fab$l_dna =(char *) -1; /* Using NAML for default name. */ + Fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + FAB_OR_NAML( Fab, Nam).FAB_OR_NAML_FNA = file ; /* File name. */ + FAB_OR_NAML( Fab, Nam).FAB_OR_NAML_FNS = strlen(file); + Nam.NAM_ESA = EName; /* expanded filename */ + Nam.NAM_ESS = sizeof(EName); + Nam.NAM_RSA = RName; /* resultant filename */ + Nam.NAM_RSS = sizeof(RName); + + /* Do $PARSE and $SEARCH here. */ + status = sys$parse(&Fab); + + if (!(status & 1)) + { + fprintf( stderr, + " vms_open(): $parse sts = %%x%08x.\n", status); + return NULL; + } + +#ifdef NAML$M_OPEN_SPECIAL + /* 2007-02-28 SMS. + * If processing symlinks as symlinks ("-y"), then $SEARCH for the + * link, not the target file. + */ + if (linkput) + { + Nam.naml$v_open_special = 1; + } +#endif /* def NAML$M_OPEN_SPECIAL */ + + /* Search for the first file. If none, signal error. */ + status = sys$search(&Fab); + + if (!(status & 1)) + { + fprintf( stderr, + " vms_open(): $search sts = %%x%08x.\n", status); + return NULL; + } + + /* Initialize Device name length. Note that this points into the + NAM[L] to get the device name filled in by the $PARSE, $SEARCH + services. + */ + DevDesc.dsc$w_length = Nam.NAM_DVI[0]; + + status = sys$assign(&DevDesc,&ctx->chan,0,0); + + if (!(status & 1)) + { + fprintf( stderr, + " vms_open(): $assign sts = %%x%08x.\n", status); + return NULL; + } + + /* Move the FID (and not the DID) into the FIB. + 2005=02-08 SMS. + Note that only the FID is needed, not the DID, and not the file + name. Setting these other items causes failures on ODS5. + */ + Fib.FIB$L_ACCTL = FIB$M_NOWRITE; + + for (i = 0; i < 3; i++) + { + Fib.FIB$W_FID[ i] = Nam.NAM_FID[ i]; + Fib.FIB$W_DID[ i] = 0; + } + + /* Use the IO$_ACCESS function to return info about the file. */ + status = sys$qiow( 0, ctx->chan, + (IO$_ACCESS| IO$M_ACCESS), &ctx->iosb, 0, 0, + &FibDesc, 0, 0, 0, Atr, 0); + + if (ERR(status) || ERR(status = ctx->iosb.status)) + { + vms_close(ctx); + fprintf( stderr, + " vms_open(): $qiow (access) sts = %%x%08x, iosb sts = %%x%08x.\n", + status, ctx->iosb.status); + return NULL; + } + + fat = (struct fatdef *)&(ctx -> PKi.ra); + +#define SWAPW(x) ( (((x)>>16)&0xFFFF) + ((x)<<16) ) + + efblk = SWAPW(fat->fat$l_efblk); + hiblk = SWAPW(fat->fat$l_hiblk); + + if (efblk == 0) + { + /* Only known size is all allocated blocks. + (This occurs with a zero-length file, for example.) + */ + ctx -> size = + ctx -> rest = ((uzoff_t) hiblk)* BLOCK_BYTES; + } + else + { + /* Store normal (used) size in ->size. + If only one -V, store normal (used) size in ->rest. + If multiple -V, store allocated-blocks size in ->rest. + */ + ctx -> size = + (((uzoff_t) efblk)- 1)* BLOCK_BYTES+ fat -> fat$w_ffbyte; + + if (vms_native < 2) + ctx -> rest = ctx -> size; + else + ctx -> rest = ((uzoff_t) hiblk)* BLOCK_BYTES; + } + + ctx -> status = SS$_NORMAL; + ctx -> vbn = 1; + return ctx; +} + + +#define KByte (2* BLOCK_BYTES) +#define MAX_READ_BYTES (32* KByte) + +/*----------------* + | vms_read() | + *----------------* + | Reads file in (multi-)block-sized chunks into the buffer. + | Stops on EOF. Returns number of bytes actually read. + | Note: This function makes no sense (and will error) if the buffer + | size ("size") is not a multiple of the disk block size (512). + */ + +size_t vms_read( ctx, buf, size) +ioctx_t *ctx; +char *buf; +size_t size; +{ + int act_cnt; + uzoff_t rest_rndup; + int status; + size_t bytes_read = 0; + + /* If previous read hit EOF, fail early. */ + if (ctx -> status == SS$_ENDOFFILE) + return 0; /* EOF. */ + + /* If no more expected to be read, fail early. */ + if (ctx -> rest == 0) + return 0; /* Effective EOF. */ + + /* If request is smaller than a whole block, fail. + This really should never happen. (assert()?) + */ + if (size < BLOCK_BYTES) + return 0; + + /* Note that on old VMS VAX versions (like V5.5-2), QIO[W] may fail + with status %x0000034c (= %SYSTEM-F-IVBUFLEN, invalid buffer + length) when size is not a multiple of 512. Thus the requested + size is boosted as needed, but the IOSB byte count returned is + reduced when it exceeds the actual bytes remaining (->rest). + */ + + /* Adjust request size as appropriate. */ + if (size > MAX_READ_BYTES) + { + /* Restrict request to MAX_READ_BYTES. */ + size = MAX_READ_BYTES; + } + else + { + /* Round odd-ball request up to the next whole block. + This really should never happen. (assert()?) + */ + size = (size+ BLOCK_BYTES- 1)& ~(BLOCK_BYTES- 1); + } + rest_rndup = (ctx -> rest+ BLOCK_BYTES- 1)& ~(BLOCK_BYTES- 1); + + /* Read (QIOW) until error or "size" bytes have been read. */ + do + { + /* Reduce "size" when next (last) read would overrun the EOF, + but never below one block (so we'll always get a nice EOF). + */ + if (size > rest_rndup) + size = rest_rndup; + + status = sys$qiow( 0, ctx->chan, IO$_READVBLK, + &ctx->iosb, 0, 0, + buf, size, ctx->vbn, 0, 0, 0); + + /* If initial status was good, use final status. */ + if ( !ERR(status) ) + status = ctx->iosb.status; + + if ( !ERR(status) || status == SS$_ENDOFFILE ) + { + act_cnt = ctx->iosb.count; + /* Ignore whole-block boost when remainder is smaller. */ + if (act_cnt > ctx->rest) + { + act_cnt = ctx->rest; + status = SS$_ENDOFFILE; + } + /* Adjust counters/pointers according to delivered bytes. */ + size -= act_cnt; + buf += act_cnt; + bytes_read += act_cnt; + ctx->vbn += ctx->iosb.count/ BLOCK_BYTES; + } + + } while ( !ERR(status) && (size > 0) ); + + if (!ERR(status)) + { + /* Record any successful status as SS$_NORMAL. */ + ctx -> status = SS$_NORMAL; + } + else if (status == SS$_ENDOFFILE) + { + /* Record EOF as SS$_ENDOFFILE. (Ignore error status codes?) */ + ctx -> status = SS$_ENDOFFILE; + } + + /* Decrement bytes-to-read. Return the total bytes read. */ + ctx -> rest -= bytes_read; + + return bytes_read; +} + +/*-----------------* + | vms_error() | + *-----------------* + | Returns whether last operation on the file caused an error + */ + +int vms_error(ctx) +ioctx_t *ctx; +{ /* EOF is not actual error */ + return ERR(ctx->status) && (ctx->status != SS$_ENDOFFILE); +} + +/*------------------* + | vms_rewind() | + *------------------* + | Rewinds file to the beginning for the next vms_read(). + */ + +int vms_rewind(ctx) +ioctx_t *ctx; +{ + ctx -> vbn = 1; + ctx -> rest = ctx -> size; + return 0; +} + +/*--------------------------* + | vms_get_attributes() | + *--------------------------* + | Malloc a PKWARE extra field and fill with file attributes. Returns + | error number of the ZE_??? class. + | If the passed ioctx record "FILE *" pointer is NULL, vms_open() is + | called to fetch the file attributes. + | When `vms_native' is not set, a generic "UT" type timestamp extra + | field is generated instead. + | + | 2004-11-11 SMS. + | Changed to use separate storage for ->extra and ->cextra. Zip64 + | processing may move (reallocate) one and not the other. + */ + +int vms_get_attributes(ctx, z, z_utim) +ioctx_t *ctx; /* Internal file control structure. */ +struct zlist far *z; /* Zip entry to compress. */ +iztimes *z_utim; +{ + byte *p; + byte *xtra; + byte *cxtra; + struct PK_header *h; + extent l; + int notopened; + + if ( !vms_native ) + { +#ifdef USE_EF_UT_TIME + /* + * A `portable' zipfile entry is created. Create an "UT" extra block + * containing UNIX style modification time stamp in UTC, which helps + * maintaining the `real' "last modified" time when the archive is + * transfered across time zone boundaries. + */ +# ifdef IZ_CHECK_TZ + if (!zp_tz_is_valid) + return ZE_OK; /* skip silently if no valid TZ info */ +# endif + + if ((xtra = (uch *) malloc( EB_HEADSIZE+ EB_UT_LEN( 1))) == NULL) + return ZE_MEM; + + if ((cxtra = (uch *) malloc( EB_HEADSIZE+ EB_UT_LEN( 1))) == NULL) + return ZE_MEM; + + /* Fill xtra[] with data. */ + xtra[ 0] = 'U'; + xtra[ 1] = 'T'; + xtra[ 2] = EB_UT_LEN(1); /* length of data part of e.f. */ + xtra[ 3] = 0; + xtra[ 4] = EB_UT_FL_MTIME; + xtra[ 5] = (byte) (z_utim->mtime); + xtra[ 6] = (byte) (z_utim->mtime >> 8); + xtra[ 7] = (byte) (z_utim->mtime >> 16); + xtra[ 8] = (byte) (z_utim->mtime >> 24); + + /* Copy xtra[] data into cxtra[]. */ + memcpy( cxtra, xtra, (EB_HEADSIZE+ EB_UT_LEN( 1))); + + /* Set sizes and pointers. */ + z->cext = z->ext = (EB_HEADSIZE+ EB_UT_LEN( 1)); + z->extra = (char*) xtra; + z->cextra = (char*) cxtra; + +#endif /* USE_EF_UT_TIME */ + + return ZE_OK; + } + + notopened = (ctx == NULL); + if ( notopened && ((ctx = vms_open(z->name)) == NULL) ) + return ZE_OPEN; + + l = PK_HEADER_SIZE + sizeof(ctx->PKi); + if (ctx->acllen > 0) + l += PK_FLDHDR_SIZE + ctx->acllen; + + if ((xtra = (uch *) malloc( l)) == NULL) + return ZE_MEM; + + if ((cxtra = (uch *) malloc( l)) == NULL) + return ZE_MEM; + + /* Fill xtra[] with data. */ + + h = (struct PK_header *) xtra; + h->tag = PK_SIGNATURE; + h->size = l - EB_HEADSIZE; + p = (h->data); + + /* Copy default set of attributes */ + memcpy(h->data, (char*)&(ctx->PKi), sizeof(ctx->PKi)); + p += sizeof(ctx->PKi); + + if ( ctx->acllen > 0 ) + { + struct PK_field *f; + + if (dosify) + zipwarn("file has ACL, may be incompatible with PKUNZIP",""); + + f = (struct PK_field *)p; + f->tag = ATR$C_ADDACLENT; + f->size = ctx->acllen; + memcpy((char *)&(f->value[0]), ctx->aclbuf, ctx->acllen); + p += PK_FLDHDR_SIZE + ctx->acllen; + } + + + h->crc32 = CRCVAL_INITIAL; /* Init CRC register */ + h->crc32 = crc32(h->crc32, (uch *)(h->data), l - PK_HEADER_SIZE); + + /* Copy xtra[] data into cxtra[]. */ + memcpy( cxtra, xtra, l); + + /* Set sizes and pointers. */ + z->ext = z->cext = l; + z->extra = (char *) xtra; + z->cextra = (char *) cxtra; + + if (notopened) /* close "ctx", if we have opened it here */ + vms_close(ctx); + + return ZE_OK; +} + + +int vms_close(ctx) +ioctx_t *ctx; +{ + sys$dassgn(ctx->chan); + free(ctx); + return 0; +} + +#endif /* !_UTIL */ + +#endif /* def VMS_PK_EXTRA */ + +#endif /* VMS */ diff --git a/vms/vmsdefs.h b/vms/vmsdefs.h new file mode 100644 index 0000000..73d013a --- /dev/null +++ b/vms/vmsdefs.h @@ -0,0 +1,320 @@ +/* + Copyright (c) 1990-2000 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2000-Apr-09 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ +/*--------------------------------------------------------------------------- + + vmsdefs.h + + Contents of three header files from Joe + Meadows' FILE program. Used by vmsmunch + + 06-Apr-1994 Jamie Hanrahan jeh@cmkrnl.com + Moved "contents of three header files" from + VMSmunch.h to VMSdefs.h . + + 16-Sep-1995 Christian Spieler + Added #pragma (no)member_alignment directives + to achieve compatibility with DEC C and Alpha AXP + + 05-Oct-1995 Christian Spieler + Revised fatdef, fchdef, fjndef to achieve closer + compatibility with DEC's system include header files + supplied with C version 4.0 and newer. + + 10-Oct-1995 Christian Spieler + Use lowercase filenames for vms specific sources + (VMSmunch.? -> vmsmunch.?, VMSdefs.h -> vmsdefs.h) + + 15-Dec-1995 Christian Spieler + Removed the last "tabs" from the source. + + 24-Jun-1997 Onno van der Linden / Chr. Spieler + Modifications to support the VMS port of GNU C 2.x. + + 27-Jul-1999 Chr. Spieler + Added Info-ZIP copyright note for identification. + + ---------------------------------------------------------------------------*/ + +#ifndef __vmsdefs_h +#define __vmsdefs_h 1 + +#if defined(__DECC) || defined(__DECCXX) +#pragma __nostandard +#endif /* __DECC || __DECCXX */ + +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __save +#pragma __nomember_alignment +#endif /* __DECC || __DECCXX */ + +#if !(defined(__VAXC) || defined(VAXC)) || defined(__GNUC__) +#define __struct struct +#define __union union +#else +#define __struct variant_struct +#define __union variant_union +#endif /* !(__VAXC || VAXC) || __GNUC__ */ + +#ifdef __cplusplus + extern "C" { +#endif + +/*--------------------------------------------------------------------------- + fatdef.h + ---------------------------------------------------------------------------*/ + +/* This header file was created by Joe Meadows, and is not copyrighted + in any way. No guarantee is made as to the accuracy of the contents + of this header file. This header file was last modified on Sep. 22th, + 1987. (Modified to include this statement) */ + +#define FAT$K_LENGTH 32 +#define FAT$C_LENGTH 32 +#define FAT$S_FATDEF 32 + +struct fatdef { + __union { + unsigned char fat$b_rtype; /* record type */ + __struct { + unsigned fat$v_rtype : 4; /* record type subfield */ + unsigned fat$v_fileorg : 4; /* file organization */ + } fat$r_rtype_bits; + } fat$r_rtype_overlay; +# define FAT$S_RTYPE 4 +# define FAT$V_RTYPE 0 +# define FAT$C_UNDEFINED 0 +# define FAT$C_FIXED 1 +# define FAT$C_VARIABLE 2 +# define FAT$C_VFC 3 +# define FAT$C_STREAM 4 +# define FAT$C_STREAMLF 5 +# define FAT$C_STREAMCR 6 +# define FAT$S_FILEORG 4 +# define FAT$V_FILEORG 4 +# define FAT$C_SEQUENTIAL 0 +# define FAT$C_RELATIVE 1 +# define FAT$C_INDEXED 2 +# define FAT$C_DIRECT 3 + __union { + unsigned char fat$b_rattrib; /* record attributes */ + __struct { + unsigned fat$v_fortrancc : 1; + unsigned fat$v_impliedcc : 1; + unsigned fat$v_printcc : 1; + unsigned fat$v_nospan : 1; + unsigned fat$v_msbrcw : 1; + } fat$r_rattrib_bits; + } fat$r_rattrib_overlay; +# define FAT$V_FORTRANCC 0 +# define FAT$M_FORTRANCC 1 +# define FAT$V_IMPLIEDCC 1 +# define FAT$M_IMPLIEDCC 2 +# define FAT$V_PRINTCC 2 +# define FAT$M_PRINTCC 4 +# define FAT$V_NOSPAN 3 +# define FAT$M_NOSPAN 8 +# define FAT$V_MSBRCW 4 +# define FAT$M_MSBRCW 16 + unsigned short int fat$w_rsize; /* record size in bytes */ + __union + { + unsigned long int fat$l_hiblk; /* highest allocated VBN */ + __struct + { + unsigned short int fat$w_hiblkh; /* high order word */ + unsigned short int fat$w_hiblkl; /* low order word */ + } fat$r_hiblk_fields; + } fat$r_hiblk_overlay; + __union + { + unsigned long int fat$l_efblk; /* end of file VBN */ + __struct + { + unsigned short int fat$w_efblkh; /* high order word */ + unsigned short int fat$w_efblkl; /* low order word */ + } fat$r_efblk_fields; + } fat$r_efblk_overlay; + unsigned short int fat$w_ffbyte; /* first free byte in EFBLK */ + unsigned char fat$b_bktsize; /* bucket size in blocks */ + unsigned char fat$b_vfcsize; /* # of control bytes in VFC record */ + unsigned short int fat$w_maxrec; /* maximum record size in bytes */ + unsigned short int fat$w_defext; /* default extend quantity */ + unsigned short int fat$w_gbc; /* global buffer count */ + char fat$fill[8]; + unsigned short int fat$w_versions; +}; + +#if !(defined(__VAXC) || defined(VAXC)) || defined(__GNUC__) +#define fat$b_rtype fat$r_rtype_overlay.fat$b_rtype +#define fat$v_rtype fat$r_rtype_overlay.fat$r_rtype_bits.fat$v_rtype +#define fat$v_fileorg fat$r_rtype_overlay.fat$r_rtype_bits.fat$v_fileorg +#define fat$b_rattrib fat$r_rattrib_overlay.fat$b_rattrib +#define fat$v_fortrancc fat$r_rattrib_overlay.fat$r_rattrib_bits.fat$v_fortrancc +#define fat$v_impliedcc fat$r_rattrib_overlay.fat$r_rattrib_bits.fat$v_impliedcc +#define fat$v_printcc fat$r_rattrib_overlay.fat$r_rattrib_bits.fat$v_printcc +#define fat$v_nospan fat$r_rattrib_overlay.fat$r_rattrib_bits.fat$v_nospan +#define fat$v_msbrcw fat$r_rattrib_overlay.fat$r_rattrib_bits.fat$v_msbrcw +#define fat$l_hiblk fat$r_hiblk_overlay.fat$l_hiblk +#define fat$w_hiblkh fat$r_hiblk_overlay.fat$r_hiblk_fields.fat$w_hiblkh +#define fat$w_hiblkl fat$r_hiblk_overlay.fat$r_hiblk_fields.fat$w_hiblkl +#define fat$l_efblk fat$r_efblk_overlay.fat$l_efblk +#define fat$w_efblkh fat$r_efblk_overlay.fat$r_efblk_fields.fat$w_efblkh +#define fat$w_efblkl fat$r_efblk_overlay.fat$r_efblk_fields.fat$w_efblkl +#endif /* !(__VAXC || VAXC) || __GNUC__ */ + +#define __FATDEF_LOADED 1 /* prevent inclusion of DECC's fatdef.h */ + +/*--------------------------------------------------------------------------- + fchdef.h + ---------------------------------------------------------------------------*/ + +/* This header file was created by Joe Meadows, and is not copyrighted + in any way. No guarantee is made as to the accuracy of the contents + of this header file. This header file was last modified on Sep. 22th, + 1987. (Modified to include this statement) */ + +#define FCH$V_BADACL 0x00B +#define FCH$M_BADACL (1 << FCH$V_BADACL) +#define FCH$V_BADBLOCK 0x00E +#define FCH$M_BADBLOCK (1 << FCH$V_BADBLOCK) +#define FCH$V_CONTIG 0x007 +#define FCH$M_CONTIG (1 << FCH$V_CONTIG) +#define FCH$V_CONTIGB 0x005 +#define FCH$M_CONTIGB (1 << FCH$V_CONTIGB) +#define FCH$V_DIRECTORY 0x00D +#define FCH$M_DIRECTORY (1 << FCH$V_DIRECTORY) +#define FCH$V_ERASE 0x011 +#define FCH$M_ERASE (1 << FCH$V_ERASE) +#define FCH$V_LOCKED 0x006 +#define FCH$M_LOCKED (1 << FCH$V_LOCKED) +#define FCH$V_MARKDEL 0x00F +#define FCH$M_MARKDEL (1 << FCH$V_MARKDEL) +#define FCH$V_NOBACKUP 0x001 +#define FCH$M_NOBACKUP (1 << FCH$V_NOBACKUP) +#define FCH$V_NOCHARGE 0x010 +#define FCH$M_NOCHARGE (1 << FCH$V_NOCHARGE) +#define FCH$V_READCHECK 0x003 +#define FCH$M_READCHECK (1 << FCH$V_READCHECK) +#define FCH$V_SPOOL 0x00C +#define FCH$M_SPOOL (1 << FCH$V_SPOOL) +#define FCH$V_WRITCHECK 0x004 +#define FCH$M_WRITCHECK (1 << FCH$V_WRITCHECK) +#define FCH$V_WRITEBACK 0x002 +#define FCH$M_WRITEBACK (1 << FCH$V_WRITEBACK) + +struct fchdef { + __union { + int fch$$_fill_1; + __struct { + unsigned fch$$_fill_31 : 8; + unsigned fch$v_vcc_state : 3; /* VCC state bits */ + unsigned fch$$_fill_32 : 7; + unsigned fch$$_alm_state : 2; + unsigned fch$v_associated : 1; /* ISO 9660 Associated file */ + unsigned fch$v_existence : 1; /* ISO 9660 Existence file */ + unsigned fch$v_fill_6 : 2; + } fch$r_fill_1_chunks; + __struct { + unsigned fch$v_wascontig : 1; + unsigned fch$v_nobackup : 1 ; + unsigned fch$v_writeback : 1; + unsigned fch$v_readcheck : 1; + unsigned fch$v_writcheck : 1; + unsigned fch$v_contigb : 1; + unsigned fch$v_locked : 1; + unsigned fch$v_contig : 1; + unsigned fch$$_fill_3 : 3; + unsigned fch$v_badacl : 1; + unsigned fch$v_spool : 1; + unsigned fch$v_directory : 1; + unsigned fch$v_badblock : 1; + unsigned fch$v_markdel : 1; + unsigned fch$v_nocharge : 1; + unsigned fch$v_erase : 1; + unsigned fch$$_fill_4 : 1; + unsigned fch$v_shelved : 1; + unsigned fch$v_scratch : 1; + unsigned fch$v_nomove : 1; + unsigned fch$v_noshelvable : 1; + } fch$r_fill_1_bits; + } fch$r_fch_union; +}; + +#if !(defined(__VAXC) || defined(VAXC)) || defined(__GNUC__) +#define fch$v_vcc_state fch$r_fch_union.fch$r_fill_1_chunks.fch$v_vcc_state +#define fch$v_associated fch$r_fch_union.fch$r_fill_1_chunks.fch$v_associated +#define fch$v_existence fch$r_fch_union.fch$r_fill_1_chunks.fch$v_existence +#define fch$v_wascontig fch$r_fch_union.fch$r_fill_1_bits.fch$v_wascontig +#define fch$v_nobackup fch$r_fch_union.fch$r_fill_1_bits.fch$v_nobackup +#define fch$v_writeback fch$r_fch_union.fch$r_fill_1_bits.fch$v_writeback +#define fch$v_readcheck fch$r_fch_union.fch$r_fill_1_bits.fch$v_readcheck +#define fch$v_writcheck fch$r_fch_union.fch$r_fill_1_bits.fch$v_writcheck +#define fch$v_contigb fch$r_fch_union.fch$r_fill_1_bits.fch$v_contigb +#define fch$v_locked fch$r_fch_union.fch$r_fill_1_bits.fch$v_locked +#define fch$v_contig fch$r_fch_union.fch$r_fill_1_bits.fch$v_contig +#define fch$v_badacl fch$r_fch_union.fch$r_fill_1_bits.fch$v_badacl +#define fch$v_spool fch$r_fch_union.fch$r_fill_1_bits.fch$v_spool +#define fch$v_directory fch$r_fch_union.fch$r_fill_1_bits.fch$v_directory +#define fch$v_badblock fch$r_fch_union.fch$r_fill_1_bits.fch$v_badblock +#define fch$v_markdel fch$r_fch_union.fch$r_fill_1_bits.fch$v_markdel +#define fch$v_nocharge fch$r_fch_union.fch$r_fill_1_bits.fch$v_nocharge +#define fch$v_erase fch$r_fch_union.fch$r_fill_1_bits.fch$v_erase +#define fch$v_shelved fch$r_fch_union.fch$r_fill_1_bits.fch$v_shelved +#define fch$v_scratch fch$r_fch_union.fch$r_fill_1_bits.fch$v_scratch +#define fch$v_nomove fch$r_fch_union.fch$r_fill_1_bits.fch$v_nomove +#define fch$v_noshelvable fch$r_fch_union.fch$r_fill_1_bits.fch$v_noshelvable +#endif /* !(__VAXC || VAXC) || __GNUC__ */ + +#define __FCHDEF_LOADED 1 /* prevent inclusion of DECC's fchdef.h */ + +/*--------------------------------------------------------------------------- + fjndef.h + ---------------------------------------------------------------------------*/ + +/* This header file was created by Joe Meadows, and is not copyrighted + in any way. No guarantee is made as to the accuracy of the contents + of this header file. This header file was last modified on Sep. 22th, + 1987. (Modified to include this statement) */ + +#define FJN$M_ONLY_RU 1 +#define FJN$M_RUJNL 2 +#define FJN$M_BIJNL 4 +#define FJN$M_AIJNL 8 +#define FJN$M_ATJNL 16 +#define FJN$M_NEVER_RU 32 +#define FJN$M_JOURNAL_FILE 64 +#define FJN$S_FJNDEF 1 +struct fjndef { + unsigned fjn$v_only_ru : 1; + unsigned fjn$v_rujnl : 1; + unsigned fjn$v_bijnl : 1; + unsigned fjn$v_aijnl : 1; + unsigned fjn$v_atjnl : 1; + unsigned fjn$v_never_ru : 1; + unsigned fjn$v_journal_file : 1; + unsigned fjn$v_fill_7 : 1; +} ; + +#define __FJNDEF_LOADED 1 /* prevent inclusion of DECC's fjndef.h */ + +/*---------------------------------------------------------------------------*/ + +#ifdef __cplusplus + } +#endif + +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __restore +#endif /* __DECC || __DECCXX */ + +#if defined(__DECC) || defined(__DECCXX) +#pragma __standard +#endif /* __DECC || __DECCXX */ + +#endif /* !__vmsdefs_h */ diff --git a/vms/vmsmunch.c b/vms/vmsmunch.c new file mode 100644 index 0000000..8140036 --- /dev/null +++ b/vms/vmsmunch.c @@ -0,0 +1,434 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ + +/* 2004-12-13 SMS. + * Disabled the module name macro to accommodate old GNU C which didn't + * obey the directive, and thus confused MMS/MMK where the object + * library dependencies need to have the correct module name. + */ +#if 0 +# define module_name VMSMUNCH +# define module_version "V1.3-4" +#endif /* 0 */ + +/* + * Modified by: + * + * v1.3.1 O.v.d.Linden, C. Spieler 04-JUL-1998 14:35 + * Modified check that decides on the type of definitions for + * FIB$W_FID etc. to support GNU C. + * + * v1.3 Hunter Goatley 14-SEP-1992 08:51 + * Added definitions of FIB$W_FID, FIB$W_DID, and + * FIB$L_ACCTL to allow for the fact that fibdef + * contains variant_unions under Alpha. + */ +/*--------------------------------------------------------------------------- + + vmsmunch.c version 1.2 28 Apr 1992 + + This routine is a blatant and unrepentent appropriation of all the nasty + and difficult-to-do and complicated VMS shenanigans which Joe Meadows has + so magnificently captured in his FILE utility. Not only that, it's even + allowed! (see below). But let it be clear at the outset that Joe did all + the work; yea, verily, he is truly a godlike unit. + + The appropriations and modifications herein were performed primarily by + him known as "Cave Newt," although the Info-ZIP working group probably had + their fingers in it somewhere along the line. The idea is to put the raw + power of Joe's original routine at the disposal of various routines used + by UnZip (and Zip, possibly), not least among them the utime() function. + Read on for details... + + 01-SEP-1994 Richard Levitte <levitte@e.kth.se> + If one of the fields given to VMSmunch are NULL, + do not update the corresponding daytime. + + 18-JUL-1994 Hunter Goatley <goathunter@WKU.EDU> + Fixed IO$_ACCESS call. + + 18-Jul-1994 Richard Levitte levitte@e.kth.se + Changed VMSmunch() to deassign the channel before + returning when an error has occured. + + 02-Apr-1994 Jamie Hanrahan jeh@cmkrnl.com + Moved definition of VMStimbuf struct from here + to vmsmunch.h + --------------------------------------------------------------------------- + + Usage (i.e., "interface," in geek-speak): + + int VMSmunch( char *filename, int action, char *ptr ); + + filename the name of the file on which to be operated, obviously + action an integer which specifies what action to take + ptr pointer to any extra item which may be needed (else NULL) + + The possible values for the action argument are as follows: + + GET_TIMES get the creation and revision dates of filename; ptr + must point to an empty VMStimbuf struct, as defined + in vmsmunch.h + (with room for at least 24 characters, including term.) + SET_TIMES set the creation and revision dates of filename (utime + option); ptr must point to a valid VMStimbuf struct, + as defined in vmsmunch.h + GET_RTYPE get the record type of filename; ptr must point to an + integer which, on return, is set to the type (as defined + in vmsdefs.h: FAT$C_* defines) + CHANGE_RTYPE change the record type to that specified by the integer + to which ptr points; save the old record type (later + saves overwrite earlier ones) + RESTORE_RTYPE restore the record type to the previously saved value; + or, if none, set it to "fixed-length, 512-byte" record + format (ptr not used) + + --------------------------------------------------------------------------- + + Comments from FILE.C, a utility to modify file characteristics: + + Written by Joe Meadows Jr, at the Fred Hutchinson Cancer Research Center + BITNET: JOE@FHCRCVAX + PHONE: (206) 467-4970 + + There are no restrictions on this code, you may sell it, include it + with any commercial package, or feed it to a whale.. However, I would + appreciate it if you kept this comment in the source code so that anyone + receiving this code knows who to contact in case of problems. Note that + I do not demand this condition.. + + ---------------------------------------------------------------------------*/ + + +/* 2004-12-13 SMS. + * Disabled the module name macro to accommodate old GNU C which didn't + * obey the directive, and thus confused MMS/MMK where the object + * library dependencies need to have the correct module name. + */ +#if 0 +# if defined(__DECC) || defined(__GNUC__) +# pragma module module_name module_version +# else +# module module_name module_version +# endif +#endif /* 0 */ + +/*****************************/ +/* Includes, Defines, etc. */ +/*****************************/ + +/* Accomodation for /NAMES = AS_IS with old header files. */ + +#define sys$asctim SYS$ASCTIM +#define sys$assign SYS$ASSIGN +#define sys$bintim SYS$BINTIM +#define sys$dassgn SYS$DASSGN +#define sys$parse SYS$PARSE +#define sys$qiow SYS$QIOW +#define sys$search SYS$SEARCH + +#include "zip.h" + +#include <stdio.h> +#include <string.h> +#include <iodef.h> +#include <starlet.h> +#include <fibdef.h> /* this gets created with the c3.0 compiler */ + +/* + * Under Alpha (DEC C in VAXC mode) and under `good old' VAXC, the FIB unions + * are declared as variant_unions. DEC C (Alpha) in ANSI modes and third + * party compilers which do not support `variant_union' define preprocessor + * symbols to `hide' the "intermediate union/struct" names from the + * programmer's API. + * We check the presence of these defines and for DEC's FIBDEF.H defining + * __union as variant_union to make sure we access the structure correctly. + */ +#if defined(fib$w_did) || (defined(__union) && (__union == variant_union)) +# define FIB$W_DID fib$w_did +# define FIB$W_FID fib$w_fid +# define FIB$L_ACCTL fib$l_acctl +#else +# define FIB$W_DID fib$r_did_overlay.fib$w_did +# define FIB$W_FID fib$r_fid_overlay.fib$w_fid +# define FIB$L_ACCTL fib$r_acctl_overlay.fib$l_acctl +#endif + +#include "vms.h" +#include "vmsmunch.h" /* GET/SET_TIMES, RTYPE, etc. */ +#include "vmsdefs.h" /* fatdef.h, etc. */ + +static void asctim(char *time, long int binval[2]); +static void bintim(char *time, long int binval[2]); + +/* from <ssdef.h> */ +#ifndef SS$_NORMAL +# define SS$_NORMAL 1 +# define SS$_BADPARAM 20 +#endif + + +/* On VAX, define Goofy VAX Type-Cast to obviate /standard = vaxc. + Otherwise, lame system headers on VAX cause compiler warnings. + (GNU C may define vax but not __VAX.) +*/ +#ifdef vax +# define __VAX 1 +#endif /* def vax */ + +#ifdef __VAX +# define GVTC (unsigned int) +#else /* def __VAX */ +# define GVTC +#endif /* def __VAX */ + + +/*************************/ +/* Function VMSmunch() */ +/*************************/ + +int VMSmunch( + char *filename, + int action, + char *ptr ) +{ + + /* original file.c variables */ + + static struct FAB Fab; + static struct NAM_STRUCT Nam; + static struct fibdef Fib; /* short fib */ + + static struct dsc$descriptor FibDesc = + {sizeof(Fib),DSC$K_DTYPE_Z,DSC$K_CLASS_S,(char *)&Fib}; + static struct dsc$descriptor_s DevDesc = + {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,&Nam.NAM_DVI[1]}; + static struct fatdef Fat; + static union { + struct fchdef fch; + long int dummy; + } uchar; + static struct fjndef jnl; + static long int Cdate[2],Rdate[2],Edate[2],Bdate[2]; + static short int revisions; + static unsigned long uic; +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __save +#pragma __nomember_alignment +#endif /* __DECC || __DECCXX */ + static union { + unsigned short int value; + struct { + unsigned system : 4; + unsigned owner : 4; + unsigned group : 4; + unsigned world : 4; + } bits; + } prot; +#if defined(__DECC) || defined(__DECCXX) +#pragma __member_alignment __restore +#endif /* __DECC || __DECCXX */ + + static struct atrdef Atr[] = { + {sizeof(Fat),ATR$C_RECATTR, GVTC &Fat}, /* record attributes */ + {sizeof(uchar),ATR$C_UCHAR, GVTC &uchar}, /* File characteristics */ + {sizeof(Cdate),ATR$C_CREDATE, GVTC &Cdate[0]}, /* Creation date */ + {sizeof(Rdate),ATR$C_REVDATE, GVTC &Rdate[0]}, /* Revision date */ + {sizeof(Edate),ATR$C_EXPDATE, GVTC &Edate[0]}, /* Expiration date */ + {sizeof(Bdate),ATR$C_BAKDATE, GVTC &Bdate[0]}, /* Backup date */ + {sizeof(revisions),ATR$C_ASCDATES, GVTC &revisions}, /* number of revs */ + {sizeof(prot),ATR$C_FPRO, GVTC &prot}, /* file protection */ + {sizeof(uic),ATR$C_UIC, GVTC &uic}, /* file owner */ + {sizeof(jnl),ATR$C_JOURNAL, GVTC &jnl}, /* journal flags */ + {0,0,0} + } ; + + static char EName[NAM_MAXRSS]; + static char RName[NAM_MAXRSS]; + static struct dsc$descriptor_s FileName = + {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,0}; + static struct dsc$descriptor_s string = {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,0}; + static short int DevChan; + static short int iosb[4]; + + static long int i,status; +/* static char *retval; */ + + + /* new VMSmunch variables */ + + static int old_rtype=FAT$C_FIXED; /* storage for record type */ + + + +/*--------------------------------------------------------------------------- + Initialize attribute blocks, parse filename, resolve any wildcards, and + get the file info. + ---------------------------------------------------------------------------*/ + + /* Initialize RMS structures. We need a NAM[L] to retrieve the FID. */ + Fab = cc$rms_fab; + Fab.fab$l_fna = filename; + Fab.fab$b_fns = strlen(filename); + Fab.FAB_NAM = &Nam; /* FAB has an associated NAM[L]. */ + Nam = CC_RMS_NAM; + Nam.NAM_ESA = EName; /* expanded filename */ + Nam.NAM_ESS = sizeof(EName); + Nam.NAM_RSA = RName; /* resultant filename */ + Nam.NAM_RSS = sizeof(RName); + + /* do $PARSE and $SEARCH here */ + status = sys$parse(&Fab); + if (!(status & 1)) return(status); + + /* search for the first file.. If none signal error */ + status = sys$search(&Fab); + if (!(status & 1)) return(status); + + while (status & 1) { + /* initialize Device name length, note that this points into the NAM[L] + to get the device name filled in by the $PARSE, $SEARCH services */ + DevDesc.dsc$w_length = Nam.NAM_DVI[0]; + + status = sys$assign(&DevDesc,&DevChan,0,0); + if (!(status & 1)) return(status); + + FileName.dsc$a_pointer = Nam.NAM_L_NAME; + FileName.dsc$w_length = Nam.NAM_B_NAME+Nam.NAM_B_TYPE+Nam.NAM_B_VER; + + /* Initialize the FIB */ + for (i=0;i<3;i++) { + Fib.FIB$W_FID[i]=Nam.NAM_FID[i]; + Fib.FIB$W_DID[i]=Nam.NAM_DID[i]; + } + + /* Use the IO$_ACCESS function to return info about the file */ + /* Note, used this way, the file is not opened, and the expiration */ + /* and revision dates are not modified */ + status = sys$qiow(0,DevChan,IO$_ACCESS,&iosb,0,0, + &FibDesc,&FileName,0,0,&Atr,0); + if (!(status & 1) || !((status = iosb[0]) & 1)) { + sys$dassgn(DevChan); + return(status); + } + + /*----------------------------------------------------------------------- + We have the current information from the file: now see what user + wants done with it. + -----------------------------------------------------------------------*/ + + switch (action) { + + case GET_TIMES: /* non-modifying */ + asctim(((struct VMStimbuf *)ptr)->modtime, Cdate); + asctim(((struct VMStimbuf *)ptr)->actime, Rdate); + sys$dassgn(DevChan); + return RMS$_NORMAL; /* return to user */ + break; + + case SET_TIMES: + if (((struct VMStimbuf *)ptr)->modtime != (char *)NULL) + bintim(((struct VMStimbuf *)ptr)->modtime, Cdate); + if (((struct VMStimbuf *)ptr)->actime != (char *)NULL) + bintim(((struct VMStimbuf *)ptr)->actime, Rdate); + break; + + case GET_RTYPE: /* non-modifying */ + *(int *)ptr = Fat.fat$v_rtype; + sys$dassgn(DevChan); + return RMS$_NORMAL; /* return to user */ + break; + + case CHANGE_RTYPE: + old_rtype = Fat.fat$v_rtype; /* save current one */ + if ((*(int *)ptr < FAT$C_UNDEFINED) || + (*(int *)ptr > FAT$C_STREAMCR)) + Fat.fat$v_rtype = FAT$C_STREAMLF; /* Unix I/O happy */ + else + Fat.fat$v_rtype = *(int *)ptr; + break; + + case RESTORE_RTYPE: + Fat.fat$v_rtype = old_rtype; + break; + + default: + sys$dassgn(DevChan); + return SS$_BADPARAM; /* anything better? */ + } + + /*----------------------------------------------------------------------- + Go back and write modified data to the file header. + -----------------------------------------------------------------------*/ + + /* note, part of the FIB was cleared by earlier QIOW, so reset it */ + Fib.FIB$L_ACCTL = FIB$M_NORECORD; + for (i=0;i<3;i++) { + Fib.FIB$W_FID[i]=Nam.NAM_FID[i]; + Fib.FIB$W_DID[i]=Nam.NAM_DID[i]; + } + + /* Use the IO$_MODIFY function to change info about the file */ + /* Note, used this way, the file is not opened, however this would */ + /* normally cause the expiration and revision dates to be modified. */ + /* Using FIB$M_NORECORD prohibits this from happening. */ + status = sys$qiow(0,DevChan,IO$_MODIFY,&iosb,0,0, + &FibDesc,&FileName,0,0,&Atr,0); + if (!(status & 1) || !((status = iosb[0]) & 1)) { + sys$dassgn(DevChan); + return(status); + } + + status = sys$dassgn(DevChan); + if (!(status & 1)) return(status); + + /* look for next file, if none, no big deal.. */ + status = sys$search(&Fab); + } + return(status); +} /* end function VMSmunch() */ + + + + + +/***********************/ +/* Function asctim() */ +/***********************/ + +static void asctim( /* convert 64-bit binval to string, put in time */ + char *time, + long int binval[2] ) +{ + static struct dsc$descriptor date_str={23,DSC$K_DTYPE_T,DSC$K_CLASS_S,0}; + /* dsc$w_length, dsc$b_dtype, dsc$b_class, dsc$a_pointer */ + + date_str.dsc$a_pointer = time; + sys$asctim(0, &date_str, binval, 0); + time[23] = '\0'; +} + + + + + +/***********************/ +/* Function bintim() */ +/***********************/ + +static void bintim( /* convert time string to 64 bits, put in binval */ + char *time, + long int binval[2] ) +{ + static struct dsc$descriptor date_str={0,DSC$K_DTYPE_T,DSC$K_CLASS_S,0}; + + date_str.dsc$w_length = strlen(time); + date_str.dsc$a_pointer = time; + sys$bintim(&date_str, binval); +} diff --git a/vms/vmsmunch.h b/vms/vmsmunch.h new file mode 100644 index 0000000..458ad78 --- /dev/null +++ b/vms/vmsmunch.h @@ -0,0 +1,55 @@ +/* + Copyright (c) 1990-1999 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 1999-Oct-05 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, both of these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.cdrom.com/pub/infozip/license.html +*/ +/*--------------------------------------------------------------------------- + + vmsmunch.h + + A few handy #defines, plus the contents of three header files from Joe + Meadows' FILE program. Used by VMSmunch and by various routines which + call VMSmunch (e.g., in Zip and UnZip). + + 02-Apr-1994 Jamie Hanrahan jeh@cmkrnl.com + Moved definition of VMStimbuf struct from vmsmunch.c + to here. + + 06-Apr-1994 Jamie Hanrahan jeh@cmkrnl.com + Moved "contents of three header files" (not needed by + callers of vmsmunch) to VMSdefs.h . + + 07-Apr-1994 Richard Levitte levitte@e.kth.se + Inserted a forward declaration of VMSmunch. + + 17-Sep-1995 Chr. Spieler spieler@linac.ikp.physik.th-darmstadt.de + Added wrapper to prevent multiple loading of this file. + + 10-Oct-1995 Chr. Spieler spieler@linac.ikp.physik.th-darmstadt.de + Use lowercase names for all VMS specific source files + + 15-Dec-1995 Chr. Spieler spieler@linac.ikp.physik.th-darmstadt.de + Removed ALL "tabs" from source file. + + ---------------------------------------------------------------------------*/ + +#ifndef __vmsmunch_h +#define __vmsmunch_h 1 + +#define GET_TIMES 4 +#define SET_TIMES 0 +#define GET_RTYPE 1 +#define CHANGE_RTYPE 2 +#define RESTORE_RTYPE 3 + +struct VMStimbuf { /* VMSmunch */ + char *actime; /* VMS revision date, ASCII format */ + char *modtime; /* VMS creation date, ASCII format */ +}; + +extern int VMSmunch(char *filename, int action, char *ptr); + +#endif /* !__vmsmunch_h */ diff --git a/vms/vmszip.c b/vms/vmszip.c new file mode 100644 index 0000000..2dae718 --- /dev/null +++ b/vms/vmszip.c @@ -0,0 +1,1444 @@ +/* + Copyright (c) 1990-2007 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2007-Mar-4 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ + +/* 2005-02-14 SMS. + Added some ODS5 support. + Use longer name structures in NAML, where available. + Locate special characters mindful of "^" escapes. + Replaced compile-time case preservation (VMS_PRESERVE_CASE macro) + with command-line-specified case preservation (vms_case_x + variables). + Prototyped all functions. + Removed "#ifndef UTIL", as no one should be compiling it that way. +*/ + +#include "zip.h" +#include "vmsmunch.h" +#include "vms.h" + +#include <ctype.h> +#include <time.h> +#include <unixlib.h> + +/* Judge availability of str[n]casecmp() in C RTL. + (Note: This must follow a "#include <decc$types.h>" in something to + ensure that __CRTL_VER is as defined as it will ever be. DEC C on + VAX may not define it itself.) +*/ +#ifdef __CRTL_VER +#if __CRTL_VER >= 70000000 +#define HAVE_STRCASECMP +#endif /* __CRTL_VER >= 70000000 */ +#endif /* def __CRTL_VER */ + +#ifdef HAVE_STRCASECMP +#include <strings.h> /* str[n]casecmp() */ +#endif /* def HAVE_STRCASECMP */ + +#include <dvidef.h> +#include <lib$routines.h> +#include <ssdef.h> +#include <stsdef.h> +#include <starlet.h> + +/* Directory file type with version, and its strlen(). */ +#define DIR_TYPE_VER ".DIR;1" +#define DIR_TYPE_VER_LEN (sizeof( DIR_TYPE_VER)- 1) + +/* Extra malloc() space in names for cutpath(). (May have to change + ".FOO]" to "]FOO.DIR;1".) +*/ +#define DIR_PAD (DIR_TYPE_VER_LEN- 1) + +/* Hex digit table. */ + +char hex_digit[ 16] = { + '0', '1', '2', '3', '4', '5', '6', '7', + '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' +}; + +/* Character property table for (re-)escaping ODS5 extended file names. + Note that this table ignore Unicode, and does not identify invalid + characters. + + ODS2 valid characters: 0-9 A-Z a-z $ - _ + + ODS5 Invalid characters: + C0 control codes (0x00 to 0x1F inclusive) + Asterisk (*) + Question mark (?) + + ODS5 Invalid characters only in VMS V7.2 (which no one runs, right?): + Double quotation marks (") + Backslash (\) + Colon (:) + Left angle bracket (<) + Right angle bracket (>) + Slash (/) + Vertical bar (|) + + Characters escaped by "^": + SP ! # % & ' ( ) + , . ; = @ [ ] ^ ` { } ~ + + Either "^_" or "^ " is accepted as a space. Period (.) is a special + case. Note that un-escaped < and > can also confuse a directory + spec. + + Characters put out as ^xx: + 7F (DEL) + 80-9F (C1 control characters) + A0 (nonbreaking space) + FF (Latin small letter y diaeresis) + + Other cases: + Unicode: "^Uxxxx", where "xxxx" is four hex digits. + + Property table values: + Normal escape: 1 + Space: 2 + Dot: 4 + Hex-hex escape: 8 + ------------------- + Hex digit: 64 +*/ + +unsigned char char_prop[ 256] = { + +/* NUL SOH STX ETX EOT ENQ ACK BEL BS HT LF VT FF CR SO SI */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + +/* DLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM SUB ESC FS GS RS US */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + +/* SP ! " # $ % & ' ( ) * + , - . / */ + 2, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 4, 0, + +/* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ + 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 1, 1, 1, 1, 1, + +/* @ A B C D E F G H I J K L M N O */ + 1, 64, 64, 64, 64, 64, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, + +/* P Q R S T U V W X Y Z [ \ ] ^ _ */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, + +/* ` a b c d e f g h i j k l m n o */ + 1, 64, 64, 64, 64, 64, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, + +/* p q r s t u v w x y z { | } ~ DEL */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 8, + + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 +}; + +/* The C RTL from OpenVMS 7.0 and newer supplies POSIX compatible versions of + * opendir() et al. Thus, we have to use other names in our private code for + * directory scanning to prevent symbol name conflicts at link time. + * For now, we do not use the library supplied "dirent.h" functions, since + * our private implementation provides some functionality which may not be + * present in the library versions. For example: + * ==> zopendir("DISK:[DIR.SUB1]SUB2.DIR") scans "DISK:[DIR.SUB1.SUB2]". + */ + +typedef struct zdirent { + int d_wild; /* flag for wildcard vs. non-wild */ + struct FAB fab; + struct NAM_STRUCT nam; + char d_qualwildname[ NAM_MAXRSS+ 1]; + char d_name[ NAM_MAXRSS+ 1]; +} zDIR; + +extern char *label; +local ulg label_time = 0; +local ulg label_mode = 0; +local time_t label_utim = 0; + +local int relative_dir_s = 0; /* Relative directory spec. */ + +/* Local functions */ +local void vms_wild OF((char *, zDIR *)); +local zDIR *zopendir OF((ZCONST char *)); +local char *readd OF((zDIR *)); +local char *strlower OF((char *)); +local char *strupper OF((char *)); + +/* 2004-09-25 SMS. + str[n]casecmp() replacement for old C RTL. + Assumes a prehistorically incompetent toupper(). +*/ +#ifndef HAVE_STRCASECMP + +int strncasecmp( char *s1, char *s2, size_t n) +{ + /* Initialization prepares for n == 0. */ + char c1 = '\0'; + char c2 = '\0'; + + while (n-- > 0) + { + /* Set c1 and c2. Convert lower-case characters to upper-case. */ + if (islower( c1 = *s1)) + c1 = toupper( c1); + + if (islower( c2 = *s2)) + c2 = toupper( c2); + + /* Quit at inequality or NUL. */ + if ((c1 != c2) || (c1 == '\0')) + break; + + s1++; + s2++; + } +return ((unsigned int) c1- (unsigned int) c2); +} + +#ifndef UINT_MAX +#define UINT_MAX 4294967295U +#endif + +#define strcasecmp( s1, s2) strncasecmp( s1, s2, UINT_MAX) + +#endif /* ndef HAVE_STRCASECMP */ + + +/* 2004-09-27 SMS. + eat_carets(). + + Delete ODS5 extended file name escape characters ("^") in the + original buffer. + Note that the current scheme does not handle all EFN cases, but it + could be made more complicated. +*/ + +local void eat_carets( char *str) +/* char *str; Source pointer. */ +{ + char *strd; /* Destination pointer. */ + char hdgt; + unsigned char uchr; + unsigned char prop; + + /* Skip ahead to the first "^", if any. */ + while ((*str != '\0') && (*str != '^')) + str++; + + /* If no caret was found, quit early. */ + if (*str != '\0') + { + /* Shift characters leftward as carets are found. */ + strd = str; + while (*str != '\0') + { + uchr = *str; + if (uchr == '^') + { + /* Found a caret. Skip it, and check the next character. */ + uchr = *(++str); + prop = char_prop[ uchr]; + if (prop& 64) + { + /* Hex digit. Get char code from this and next hex digit. */ + if (uchr <= '9') + { + hdgt = uchr- '0'; /* '0' - '9' -> 0 - 9. */ + } + else + { + hdgt = ((uchr- 'A')& 7)+ 10; /* [Aa] - [Ff] -> 10 - 15. */ + } + hdgt <<= 4; /* X16. */ + uchr = *(++str); /* Next char must be hex digit. */ + if (uchr <= '9') + { + uchr = hdgt+ uchr- '0'; + } + else + { + uchr = hdgt+ ((uchr- 'A')& 15)+ 10; + } + } + else if (uchr == '_') + { + /* Convert escaped "_" to " ". */ + uchr = ' '; + } + else if (uchr == '/') + { + /* Convert escaped "/" (invalid Zip) to "?" (invalid VMS). */ + uchr = '?'; + } + /* Else, not a hex digit. Must be a simple escaped character + (or Unicode, which is not yet handled here). + */ + } + /* Else, not a caret. Use as-is. */ + *strd = uchr; + + /* Advance destination and source pointers. */ + strd++; + str++; + } + /* Terminate the destination string. */ + *strd = '\0'; + } +} + + +/* 2007-05-22 SMS. + * explicit_dev(). + * + * Determine if an explicit device name is present in a (VMS) file + * specification. + */ +local int explicit_dev( char *file_spec) +{ + int sts; + struct FAB fab; /* FAB. */ + struct NAM_STRUCT nam; /* NAM[L]. */ + + /* Initialize the FAB and NAM[L], and link the NAM[L] to the FAB. */ + nam = CC_RMS_NAM; + fab = cc$rms_fab; + fab.FAB_NAM = &nam; + + /* Point the FAB/NAM[L] fields to the actual name and default name. */ + +#ifdef NAML$C_MAXRSS + + fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */ + fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + /* File name. */ + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = file_spec; + FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( file_spec); + + nam.NAM_NOP = NAM_M_SYNCHK; /* Syntax-only analysis. */ + sts = sys$parse( &fab, 0, 0); /* Parse the file spec. */ + + /* Device found = $PARSE success and "device was explicit" flag. */ + return (((sts& STS$M_SEVERITY) == STS$M_SUCCESS) && + ((nam.NAM_FNB& NAM_M_EXP_DEV) != 0)); +} + + +/* 2005-02-04 SMS. + find_dir(). + + Find directory boundaries in an ODS2 or ODS5 file spec. + Returns length (zero if no directory, negative if error), + and sets "start" argument to first character (typically "[") location. + + No one will care about the details, but the return values are: + + 0 No dir. + -2 [, no end. -3 <, no end. + -4 [, multiple start. -5 <, multiple start. + -8 ], no start. -9 >, no start. + -16 ], wrong end. -17 >, wrong end. + -32 ], multiple end. -33 >, multiple end. + + Note that the current scheme handles only simple EFN cases, but it + could be made more complicated. +*/ +int find_dir( char *file_spec, char **start) +{ + char *cp; + char chr; + + char *end_tmp = NULL; + char *start_tmp = NULL; + int lenth = 0; + + for (cp = file_spec; cp < file_spec+ strlen( file_spec); cp++) + { + chr = *cp; + if (chr == '^') + { + /* Skip ODS5 extended name escaped characters. */ + cp++; + /* If escaped char is a hex digit, skip the second hex digit, too. */ + if (char_prop[ (unsigned char) *cp]& 64) + cp++; + } + else if (chr == '[') + { + /* Found start. */ + if (start_tmp == NULL) + { + /* First time. Record start location. */ + start_tmp = cp; + /* Error if no end. */ + lenth = -2; + } + else + { + /* Multiple start characters. */ + lenth = -4; + break; + } + } + else if (chr == '<') + { + /* Found start. */ + if (start_tmp == NULL) + { + /* First time. Record start location. */ + start_tmp = cp; + /* Error if no end. */ + lenth = -3; + } + else + { + /* Multiple start characters. */ + lenth = -5; + break; + } + } + else if (chr == ']') + { + /* Found end. */ + if (end_tmp == NULL) + { + /* First time. */ + if (lenth == 0) + { + /* End without start. */ + lenth = -8; + break; + } + else if (lenth != -2) + { + /* Wrong kind of end. */ + lenth = -16; + break; + } + /* End ok. Record end location. */ + end_tmp = cp; + lenth = end_tmp+ 1- start_tmp; + /* Could break here, ignoring excessive end characters. */ + } + else + { + /* Multiple end characters. */ + lenth = -32; + break; + } + } + else if (chr == '>') + { + /* Found end. */ + if (end_tmp == NULL) + { + /* First time. */ + if (lenth == 0) + { + /* End without start. */ + lenth = -9; + break; + } + else if (lenth != -3) + { + /* Wrong kind of end. */ + lenth = -17; + break; + } + /* End ok. Record end location. */ + end_tmp = cp; + lenth = end_tmp+ 1- start_tmp; + /* Could break here, ignoring excessive end characters. */ + } + else + { + /* Multiple end characters. */ + lenth = -33; + break; + } + } + } + + /* If both start and end were found, + then set result pointer where safe. + */ + if (lenth > 0) + { + if (start != NULL) + { + *start = start_tmp; + } + } + return lenth; +} + + +/* 2005-02-08 SMS. + file_sys_type(). + + Determine the file system type for the (VMS) path name argument. +*/ +local int file_sys_type( char *path) +{ + int acp_code; + +#ifdef DVI$C_ACP_F11V5 + +/* Should know about ODS5 file system. Do actual check. + (This should be non-VAX with __CRTL_VER >= 70200000.) +*/ + + int sts; + + struct dsc$descriptor_s dev_descr = + { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0 }; + + /* Load path argument into device descriptor. */ + dev_descr.dsc$a_pointer = path; + dev_descr.dsc$w_length = strlen( dev_descr.dsc$a_pointer); + + /* Get filesystem type code. + (Text results for this item code have been unreliable.) + */ + sts = lib$getdvi( &((int) DVI$_ACPTYPE), 0, &dev_descr, &acp_code, 0, 0); + + if ((sts & STS$M_SUCCESS) != STS$K_SUCCESS) + { + acp_code = -1; + } + +#else /* def DVI$C_ACP_F11V5 */ + +/* Too old for ODS5 file system. Must be ODS2. */ + + acp_code = DVI$C_ACP_F11V2; + +#endif /* def DVI$C_ACP_F11V5 */ + + return acp_code; +} + +/*--------------------------------------------------------------------------- + + _vms_findfirst() and _vms_findnext(), based on public-domain DECUS C + fwild() and fnext() routines (originally written by Martin Minow, poss- + ibly modified by Jerry Leichter for bintnxvms.c), were written by Greg + Roelofs and are still in the public domain. Routines approximate the + behavior of MS-DOS (MSC and Turbo C) findfirst and findnext functions. + + 2005-01-04 SMS. + Changed to use NAML instead of NAM, where available. + + ---------------------------------------------------------------------------*/ + +static char wild_version_part[10]="\0"; + +local void vms_wild( char *p, zDIR *d) +{ + /* + * Do wildcard setup. + */ + /* Set up the FAB and NAM[L] blocks. */ + d->fab = cc$rms_fab; /* Initialize FAB. */ + d->nam = CC_RMS_NAM; /* Initialize NAM[L]. */ + + d->fab.FAB_NAM = &d->nam; /* FAB -> NAM[L] */ + +#ifdef NAML$C_MAXRSS + + d->fab.fab$l_dna =(char *) -1; /* Using NAML for default name. */ + d->fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */ + +#endif /* def NAML$C_MAXRSS */ + + /* Argument file name and length. */ + d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = p; + d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen(p); + +#define DEF_DEVDIR "SYS$DISK:[]" + + /* Default file spec and length. */ + d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNA = DEF_DEVDIR; + d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNS = sizeof( DEF_DEVDIR)- 1; + + d->nam.NAM_ESA = d->d_qualwildname; /* qualified wild name */ + d->nam.NAM_ESS = NAM_MAXRSS; /* max length */ + d->nam.NAM_RSA = d->d_name; /* matching file name */ + d->nam.NAM_RSS = NAM_MAXRSS; /* max length */ + + /* parse the file name */ + if (sys$parse(&d->fab) != RMS$_NORMAL) + return; + /* Does this replace d->fab.fab$l_fna with a new string in its own space? + I sure hope so, since p is free'ed before this routine returns. */ + + /* have qualified wild name (i.e., disk:[dir.subdir]*.*); null-terminate + * and set wild-flag */ + d->d_qualwildname[d->nam.NAM_ESL] = '\0'; + d->d_wild = (d->nam.NAM_FNB & NAM$M_WILDCARD)? 1 : 0; /* not used... */ +#ifdef DEBUG + fprintf(mesg, " incoming wildname: %s\n", p); + fprintf(mesg, " qualified wildname: %s\n", d->d_qualwildname); +#endif /* DEBUG */ +} + +local zDIR *zopendir( ZCONST char *n) +/* ZCONST char *n; directory to open */ +/* Start searching for files in the VMS directory n */ +{ + char *c; /* scans VMS path */ + zDIR *d; /* malloc'd return value */ + int m; /* length of name */ + char *p; /* malloc'd temporary string */ + + if ((d = (zDIR *)malloc(sizeof(zDIR))) == NULL || + (p = malloc((m = strlen(n)) + 4)) == NULL) { + if (d != NULL) free((zvoid *)d); + return NULL; + } + /* Directory may be in form "[DIR.SUB1.SUB2]" or "[DIR.SUB1]SUB2.DIR;1". + If latter, convert to former. + 2005-01-31 SMS. Changed to require ";1", as VMS does, which + simplified the code slightly, too. Note that ODS5 allows ".DIR" in + any case (upper, lower, mixed). + */ + if ((m > 0) && (*(c = strcpy(p,n)+m-1) != ']')) + { + if ((c- p < DIR_TYPE_VER_LEN) || + strcasecmp((c+ 1- DIR_TYPE_VER_LEN), DIR_TYPE_VER)) + { + free((zvoid *)d); free((zvoid *)p); + return NULL; + } + c -= 4; /* The "D". */ + *c-- = '\0'; /* terminate at "DIR;1" */ + *c = ']'; /* "." --> "]" */ + + /* Replace the formerly last "]" with ".". + For ODS5, ignore "^]". + */ + while ((c > p) && ((*--c != ']') || (*(c- 1) == '^'))) + ; + *c = '.'; /* "]" --> "." */ + } + strcat(p, "*.*"); + strcat(p, wild_version_part); + vms_wild(p, d); /* set up wildcard */ + free((zvoid *)p); + return d; +} + +local char *readd( zDIR *d) +/* zDIR *d; directory stream to read from */ +/* Return a pointer to the next name in the directory stream d, or NULL if + no more entries or an error occurs. */ +{ + int r; /* return code */ + + do { + d->fab.fab$w_ifi = 0; /* internal file index: what does this do? */ +/* + 2005-02-04 SMS. + + From the docs: + + Note that you must close the file before invoking the Search + service (FAB$W_IFI must be 0). + + The same is true for PARSE. Most likely, it's cleared by setting + "fab = cc$rms_fab", and left that way, so clearing it here may very + well be pointless. (I think it is, and I've never seen it explicitly + cleared elsewhere, but I haven't tested it everywhere either.) +*/ + /* get next match to possible wildcard */ + if ((r = sys$search(&d->fab)) == RMS$_NORMAL) + { + d->d_name[d->nam.NAM_RSL] = '\0'; /* null terminate */ + return (char *)d->d_name; /* OK */ + } + } while (r == RMS$_PRV); + return NULL; +} + + +int wild( char *p) +/* char *p; path/pattern to match */ +/* Expand the pattern based on the contents of the file system. + Return an error code in the ZE_ class. + Note that any command-line file argument may need wildcard expansion, + so all user-specified constituent file names pass through here. +*/ +{ + zDIR *d; /* stream for reading directory */ + char *e; /* name found in directory */ + int f; /* true if there was a match */ + + int dir_len; /* Length of the directory part of the name. */ + char *dir_start; /* First character of the directory part. */ + + /* special handling of stdin request */ + if (strcmp(p, "-") == 0) /* if compressing stdin */ + return newname(p, 0, 0); + + /* Determine whether this name has an absolute or relative directory + spec. It's relative if there is no directory, or if the directory + has a leading dot ("[."). + */ + dir_len = find_dir( p, &dir_start); + relative_dir_s = ((dir_len <= 0)? 1 : (dir_start[ 1] == '.')); + + /* Search given pattern for matching names */ + if ((d = (zDIR *)malloc(sizeof(zDIR))) == NULL) + return ZE_MEM; + vms_wild(p, d); /* pattern may be more than just directory name */ + + /* + * Save version specified by user to use in recursive drops into + * subdirectories. + */ + strncpy(wild_version_part, d->nam.NAM_L_VER, d->nam.NAM_B_VER); + wild_version_part[d->nam.NAM_B_VER] = '\0'; + + f = 0; + while ((e = readd(d)) != NULL) /* "dosmatch" is already built in */ + if (procname(e, 0) == ZE_OK) + f = 1; + free(d); + + /* Done */ + return f ? ZE_OK : ZE_MISS; +} + +int procname( char *n, int caseflag) +/* char *n; name to process */ +/* int caseflag; true to force case-sensitive match */ +/* Process a name or sh expression to operate on (or exclude). Return + an error code in the ZE_ class. */ +{ + zDIR *d; /* directory stream from zopendir() */ + char *e; /* pointer to name from readd() */ + int m; /* matched flag */ + char *p; /* path for recursion */ + struct stat s; /* result of stat() */ + struct zlist far *z; /* steps through zfiles list */ + + if (strcmp(n, "-") == 0) /* if compressing stdin */ + return newname(n, 0, caseflag); + else if (LSSTAT(n, &s) +#if defined(__TURBOC__) || defined(VMS) || defined(__WATCOMC__) + /* For these 3 compilers, stat() succeeds on wild card names! */ + || isshexp(n) +#endif + ) + { + /* Not a file or directory--search for shell expression in zip file */ + if (caseflag) { + p = malloc(strlen(n) + 1); + if (p != NULL) + strcpy(p, n); + } else + p = ex2in(n, 0, (int *)NULL); /* shouldn't affect matching chars */ + m = 1; + for (z = zfiles; z != NULL; z = z->nxt) { + if (MATCH(p, z->iname, caseflag)) + { + z->mark = pcount ? filter(z->zname, caseflag) : 1; + if (verbose) + fprintf(mesg, "zip diagnostic: %scluding %s\n", + z->mark ? "in" : "ex", z->name); + m = 0; + } + } + free((zvoid *)p); + return m ? ZE_MISS : ZE_OK; + } + + /* Live name--use if file, recurse if directory */ + if ((s.st_mode & S_IFDIR) == 0) + { + /* add or remove name of file */ + if ((m = newname(n, 0, caseflag)) != ZE_OK) + return m; + } else { + if (dirnames && (m = newname(n, 1, caseflag)) != ZE_OK) { + return m; + } + /* recurse into directory */ + if (recurse && (d = zopendir(n)) != NULL) + { + while ((e = readd(d)) != NULL) { + if ((m = procname(e, caseflag)) != ZE_OK) /* recurse on name */ + { + free(d); + return m; + } + } + free(d); + } + } /* (s.st_mode & S_IFDIR) == 0) */ + return ZE_OK; +} + +/* 2004-09-24 SMS. + Cuter strlower() and strupper() functions. +*/ + +local char *strlower( char *s) +/* Convert all uppercase letters to lowercase in string s */ +{ + for ( ; *s != '\0'; s++) + if (isupper( *s)) + *s = tolower( *s); + + return s; +} + +local char *strupper( char *s) +/* Convert all lowercase letters to uppercase in string s */ +{ + for ( ; *s != '\0'; s++) + if (islower( *s)) + *s = toupper( *s); + + return s; +} + +char *ex2in( char *x, int isdir, int *pdosflag) +/* char *x; external file name */ +/* int isdir; input: x is a directory */ +/* int *pdosflag; output: force MSDOS file attributes? */ + +/* Convert the external file name to a zip file name, returning the + malloc'ed string or NULL if not enough memory. + + 2005-02-09 SMS. + Added some ODS5 support. + + Note that if we were really clever, we'd save the truncated original + file name for later use as "iname", instead of running the de-escaped + product back through in2ex() to recover it later. + + 2005-11-13 SMS. + Changed to translate "[..." into enough "/" characters to cause + in2ex() to reconstruct it. This should not be needed, however, as + pattern matching really should avoid ex2in() and in2ex(). +*/ +{ + char *n; /* Internal file name (malloc'ed). */ + char *nn; /* Temporary "n"-like pointer. */ + char *ext_dir_and_name; /* External dir]name (less "dev:["). */ + char chr; /* Temporary character storage. */ + int dosflag; + int down_case; /* Resultant down-case flag. */ + int dir_len; /* Directory spec length. */ + int ods_level; /* File system type. */ + + dosflag = dosify; /* default for non-DOS and non-OS/2 */ + + /* Locate the directory part of the external name. */ + dir_len = find_dir( x, &ext_dir_and_name); + if (dir_len <= 0) + { + /* Directory not found. Use whole external name. */ + ext_dir_and_name = x; + } + else if (pathput) + { + /* Include directory. */ + if (ext_dir_and_name[ 1] == '.') + { + /* Relative path. If not a directory-depth wildcard, then drop + first "[." (or "<."). If "[..." (or "<..."), then preserve all + characters, including the first "[" (or "<") for special + handling below. + */ + if ((ext_dir_and_name[ 2] != '.') || (ext_dir_and_name[ 3] != '.')) + { + /* Normal relative path. Drop first "[." (or "<."). */ + dir_len -= 2; + ext_dir_and_name += 2; + } + } + else + { + /* Absolute path. Skip first "[" (or "<"). */ + dir_len -= 1; + ext_dir_and_name += 1; + + /* 2007-04-26 SMS. + Skip past "000000." or "000000]" (or "000000>"), which should + not be stored in the archive. This arises, for example, with + "zip -r archive [000000]foo.dir" + */ +#define MFD "000000" + + if ((strncmp( ext_dir_and_name, MFD, strlen( MFD)) == 0) && + ((ext_dir_and_name[ 6] == '.') || + (ext_dir_and_name[ 6] == ']') || + (ext_dir_and_name[ 6] == '>'))) + { + dir_len -= 7; + ext_dir_and_name += 7; + } + } + } + else + { + /* Junking paths. Skip the whole directory spec. */ + ext_dir_and_name += dir_len; + dir_len = 0; + } + + /* Malloc space for internal name and copy it. */ + if ((n = malloc(strlen( ext_dir_and_name)+ 1)) == NULL) + return NULL; + strcpy( n, ext_dir_and_name); + + /* Convert VMS directory separators (".") to "/". */ + if (dir_len > 0) + { + for (nn = n; nn < n+ dir_len; nn++) + { + chr = *nn; + if (chr == '^') + { + /* Skip ODS5 extended name escaped characters. */ + nn++; + /* If escaped char is a hex digit, skip the second hex digit, too. */ + if (char_prop[ (unsigned char) *nn]& 64) + nn++; + } + else if ((chr == '.') || ((nn == n) && ((chr == '[') || (chr == '<')))) + { + /* Convert VMS directory separator (".", or initial "[" or "<" + of "[..." or "<...") to "/". + */ + *nn = '/'; + } + } + /* Replace directory end character (typically "]") with "/". */ + n[ dir_len- 1] = '/'; + } + + /* If relative path, then strip off the current directory. */ + if (relative_dir_s) + { + char cwd[ NAM_MAXRSS+ 1]; + char *cwd_dir_only; + char *q; + int cwd_dir_only_len; + + q = getcwd( cwd, (sizeof( cwd)- 1)); + + /* 2004-09-24 SMS. + With SET PROCESSS /PARSE = EXTENDED, getcwd() can return a + mixed-case result, confounding the comparisons below with an + all-uppercase name in "n". Always use a case-insensitive + comparison around here. + */ + + /* Locate the directory part of the external name. */ + dir_len = find_dir( q, &cwd_dir_only); + if (dir_len > 0) + { + /* Skip first "[" (or "<"). */ + cwd_dir_only++; + /* Convert VMS directory separators (".") to "/". */ + for (q = cwd_dir_only; q < cwd_dir_only+ dir_len; q++) + { + chr = *q; + if (chr == '^') + { + /* Skip ODS5 extended name escaped characters. */ + q++; + /* If escaped char is a hex digit, skip the second hex digit, too. */ + if (char_prop[ (unsigned char) *q]& 64) + q++; + } + else if (chr == '.') + { + /* Convert VMS directory separator (".") to "/". */ + *q = '/'; + } + } + /* Replace directory end character (typically "]") with "/". */ + cwd_dir_only[ dir_len- 2] = '/'; + } + + /* If the slash-converted cwd matches the front of the internal + name, then shuffle the remainder of the internal name to the + beginning of the internal name storage. + + Because we already know that the path is relative, this test may + always succeed. + */ + cwd_dir_only_len = strlen( cwd_dir_only); + if (strncasecmp( n, cwd_dir_only, cwd_dir_only_len) == 0) + { + nn = n+ cwd_dir_only_len; + q = n; + while (*q++ = *nn++); + } + } /* (relative_dir_s) */ + + /* 2007-05-22 SMS. + * If a device name is present, assume that it's a real (VMS) file + * specification, and do down-casing according to the ODS2 or ODS5 + * down-casing policy. If no device name is present, assume that it's + * a pattern ("-i", ...), and do no down-casing here. (Case + * sensitivity in patterns is handled elsewhere.) + */ + if (explicit_dev( x)) + { + /* If ODS5 is possible, do complicated down-case check. + + Note that the test for ODS2/ODS5 is misleading and over-broad. + Here, "ODS2" includes anything from DVI$C_ACP_F11V1 (=1, ODS1) up + to (but not including) DVI$C_ACP_F11V5 (= 11, DVI$C_ACP_F11V5), + while "ODS5" includes anything from DVI$C_ACP_F11V5 on up. See + DVIDEF.H. + */ + +#if defined( DVI$C_ACP_F11V5) && defined( NAML$C_MAXRSS) + + /* Check options and/or ODS level for down-case or preserve case. */ + down_case = 0; /* Assume preserve case. */ + if ((vms_case_2 <= 0) && (vms_case_5 < 0)) + { + /* Always down-case. */ + down_case = 1; + } + else if ((vms_case_2 <= 0) || (vms_case_5 < 0)) + { + /* Down-case depending on ODS level. (Use (full) external name.) */ + ods_level = file_sys_type( x); + + if (ods_level > 0) + { + /* Valid ODS level. (Name (full) contains device.) + * Down-case accordingly. + */ + if (((ods_level < DVI$C_ACP_F11V5) && (vms_case_2 <= 0)) || + ((ods_level >= DVI$C_ACP_F11V5) && (vms_case_5 < 0))) + { + /* Down-case for this ODS level. */ + down_case = 1; + } + } + } + +#else /* defined( DVI$C_ACP_F11V5) && defined( NAML$C_MAXRSS) */ + +/* No case-preserved names are possible (VAX). Do simple down-case check. */ + + down_case = (vms_case_2 <= 0); + +#endif /* defined( DVI$C_ACP_F11V5) && defined( NAML$C_MAXRSS) [else] */ + + /* If down-casing, convert to lower case. */ + if (down_case != 0) + { + strlower( n); + } + } + + /* Remove simple ODS5 extended file name escape characters. */ + eat_carets( n); + + if (isdir) + { + if (strcasecmp( (nn = n+ strlen( n)- DIR_TYPE_VER_LEN), DIR_TYPE_VER)) + error("directory not version 1"); + else + if (pathput) + strcpy( nn, "/"); + else + *n = '\0'; /* directories are discarded with zip -rj */ + } + else if (vmsver == 0) + { + /* If not keeping version numbers, truncate the name at the ";". + (No escaped characters are expected in the version.) + */ + if ((ext_dir_and_name = strrchr( n, ';')) != NULL) + *ext_dir_and_name = '\0'; + } + else if (vmsver > 1) + { + /* Keeping version numbers, but as ".nnn", not ";nnn". */ + if ((ext_dir_and_name = strrchr( n, ';')) != NULL) + *ext_dir_and_name = '.'; + } + + /* Remove a type-less dot. */ + /* (Note that currently "name..ver" is not altered.) */ + if ((ext_dir_and_name = strrchr( n, '.')) != NULL) + { + if (ext_dir_and_name[ 1] == '\0') /* "name." -> "name" */ + *ext_dir_and_name = '\0'; + else if (ext_dir_and_name[ 1] == ';') /* "name.;ver" -> "name;ver" */ + { + char *f = ext_dir_and_name+ 1; + while (*ext_dir_and_name++ = *f++); + } + } + + if (dosify) + msname(n); + + /* Returned malloc'ed name */ + if (pdosflag) + *pdosflag = dosflag; + + return n; +} + + +char *in2ex( char *n) +/* char *n; internal file name */ +/* Convert the zip file name to an external file name, returning the malloc'ed + string or NULL if not enough memory. */ +{ + char *x; /* external file name */ + char *t; /* scans name */ + int i; + char chr; + char *endp; + char *last_slash; + char *versionp; + +#ifdef NAML$C_MAXRSS + + char buf[ NAML$C_MAXRSS+ 1]; + unsigned char prop; + unsigned char uchr; + char *last_dot; + +#endif /* def NAML$C_MAXRSS */ + + /* Locate the last slash. */ + last_slash = strrchr( n, '/'); + +/* If ODS5 is possible, replace escape carets in name. */ + +#ifdef NAML$C_MAXRSS + + endp = n+ strlen( n); + + /* Locate the version delimiter, if one is expected. */ + if (vmsver == 0) + { /* No version expected. */ + versionp = endp; + } + else + { + if (vmsver > 1) + { /* Expect a dot-version, ".nnn". Locate the version ".". + Temporarily terminate at this dot to allow the last-dot search + below to find the last non-version dot. + */ + versionp = strrchr( n, '.'); + if (versionp != NULL) /* Can't miss. */ + { + *versionp = '\0'; + } + } + else + { /* Expect a semi-colon-version, ";nnn". Locate the ";". */ + versionp = strrchr( n, ';'); + } + if ((versionp == NULL) || (versionp < last_slash)) + { /* If confused, and the version delimiter was not in the name, + then ignore it. + */ + versionp = endp; + } + } + + /* No escape needed for the last dot, if it's part of the file name. + All dots in a directory must be escaped. + */ + last_dot = strrchr( n, '.'); + + if ((last_dot != NULL) && (last_slash != NULL) && (last_dot < last_slash)) + { + last_dot = last_slash; + } + + /* Replace the version dot if necessary. */ + if ((vmsver > 1) && (versionp != NULL) && (versionp < endp)) + { + *versionp = '.'; + } + + /* Add ODS5 escape sequences. Leave "/" and "?" for later. + The name here looks (roughly) like: dir1/dir2/a.b + */ + t = n; + x = buf; + while (uchr = *t++) + { + /* Characters in the version do not need escaping. */ + if (t <= versionp) + { + prop = char_prop[ uchr]& 31; + if (prop) + { + if (prop& 4) + { /* Dot. */ + if (t < last_dot) + { + /* Dot which must be escaped. */ + *x++ = '^'; + } + } + else if (prop& 8) + { + /* Character needing hex-hex escape. */ + *x++ = '^'; + *x++ = hex_digit[ uchr>> 4]; + uchr = hex_digit[ uchr& 15]; + } + else + { + /* Non-dot character which must be escaped (and simple works). + "?" gains the caret but remains "?" until later. + ("/" remains (unescaped) "/".) + */ + *x++ = '^'; + if (prop& 2) + { + /* Escaped space (represented as "^_"). */ + uchr = '_'; + } + } + } + } + *x++ = uchr; + } + *x = '\0'; + + /* Point "n" to altered name buffer, and re-find the last slash. */ + n = buf; + last_slash = strrchr( n, '/'); + +#endif /* def NAML$C_MAXRSS */ + + if ((t = last_slash) == NULL) + { + if ((x = malloc(strlen(n) + 1 + DIR_PAD)) == NULL) + return NULL; + strcpy(x, n); + } + else + { + if ((x = malloc(strlen(n) + 3 + DIR_PAD)) == NULL) + return NULL; + + /* Begin with "[". */ + x[ 0] = '['; + i = 1; + if (*n != '/') + { + /* Relative path. Add ".". */ + x[ i++] = '.'; + } + else + { + /* Absolute path. Skip leading "/". */ + n++; + } + strcpy( (x+ i), n); + + /* Place the final ']'. Remember where the name starts. */ + *(t = x + i + (t - n)) = ']'; + last_slash = t; + + /* Replace "/" with ".", and "?" with (now escaped) "/", in the + directory part of the name. + */ + while (--t > x) + { + chr = *t; + if (chr == '/') + { + *t = '.'; + } + else if (chr == '?') + { + *t = '/'; + } + } + + /* Replace "?" with (now escaped) "/", in the non-directory part of + the name. + */ + while ((chr = *(++last_slash)) != '\0') + { + if (chr == '?') + { + *last_slash = '/'; + } + } + } + +/* If case preservation is impossible (VAX, say), and down-casing, then + up-case. If case preservation is possible and wasn't done, then + there's no way to ensure proper restoration of original case, so + don't try. This may differ from pre-3.0 behavior. +*/ +#ifndef NAML$C_MAXRSS + + if (vms_case_2 <= 0) + { + strupper( x); + } + +#endif /* ndef NAML$C_MAXRSS */ + + return x; +} + +void stamp( char *f, ulg d) +/* char *f; name of file to change */ +/* ulg d; dos-style time to change it to */ +/* Set last updated and accessed time of file f to the DOS time d. */ +{ + int tm_sec, tm_min, tm_hour, tm_mday, tm_mon, tm_year; + char timbuf[24]; + static ZCONST char *month[] = {"JAN", "FEB", "MAR", "APR", "MAY", "JUN", + "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"}; + struct VMStimbuf { + char *actime; /* VMS revision date, ASCII format */ + char *modtime; /* VMS creation date, ASCII format */ + } ascii_times; + + ascii_times.actime = ascii_times.modtime = timbuf; + + /* Convert DOS time to ASCII format for VMSmunch */ + tm_sec = (int)(d << 1) & 0x3e; + tm_min = (int)(d >> 5) & 0x3f; + tm_hour = (int)(d >> 11) & 0x1f; + tm_mday = (int)(d >> 16) & 0x1f; + tm_mon = ((int)(d >> 21) & 0xf) - 1; + tm_year = ((int)(d >> 25) & 0x7f) + 1980; + sprintf(timbuf, "%02d-%3s-%04d %02d:%02d:%02d.00", tm_mday, month[tm_mon], + tm_year, tm_hour, tm_min, tm_sec); + + /* Set updated and accessed times of f */ + if (VMSmunch(f, SET_TIMES, (char *)&ascii_times) != RMS$_NMF) + zipwarn("can't set zipfile time: ", f); +} + +ulg filetime( char *f, ulg *a, zoff_t *n, iztimes *t) +/* char *f; name of file to get info on */ +/* ulg *a; return value: file attributes */ +/* zoff_t *n; return value: file size */ +/* iztimes *t; return value: access, modific. and creation times */ +/* If file *f does not exist, return 0. Else, return the file's last + modified date and time as an MSDOS date and time. The date and + time is returned in a long with the date most significant to allow + unsigned integer comparison of absolute times. Also, if a is not + a NULL pointer, store the file attributes there, with the high two + bytes being the Unix attributes, and the low byte being a mapping + of that to DOS attributes. If n is not NULL, store the file size + there. If t is not NULL, the file's access, modification and creation + times are stored there as UNIX time_t values. + If f is "-", use standard input as the file. If f is a device, return + a file size of -1 */ +{ + struct stat s; /* results of stat() */ + /* convert to a malloc string dump FNMAX - 11/8/04 EG */ + char *name; + int len = strlen(f); + + if (f == label) { + if (a != NULL) + *a = label_mode; + if (n != NULL) + *n = -2; /* convention for a label name */ + if (t != NULL) + t->atime = t->mtime = t->ctime = label_utim; + return label_time; + } + if ((name = malloc(len + 1)) == NULL) { + ZIPERR(ZE_MEM, "filetime"); + } + strcpy(name, f); + if (name[len - 1] == '/') + name[len - 1] = '\0'; + /* not all systems allow stat'ing a file with / appended */ + + if (strcmp(f, "-") == 0) { + if (fstat(fileno(stdin), &s) != 0) { + free(name); + error("fstat(stdin)"); + } + } else if (LSSTAT(name, &s) != 0) { + /* Accept about any file kind including directories + * (stored with trailing / with -r option) + */ + free(name); + return 0; + } + free(name); + + if (a != NULL) { + *a = ((ulg)s.st_mode << 16) | !(s.st_mode & S_IWRITE); + if ((s.st_mode & S_IFDIR) != 0) { + *a |= MSDOS_DIR_ATTR; + } + } + if (n != NULL) + *n = (s.st_mode & S_IFMT) == S_IFREG ? s.st_size : -1; + if (t != NULL) { + t->atime = s.st_mtime; +#ifdef USE_MTIME + t->mtime = s.st_mtime; /* Use modification time in VMS */ +#else + t->mtime = s.st_ctime; /* Use creation time in VMS */ +#endif + t->ctime = s.st_ctime; + } + +#ifdef USE_MTIME + return unix2dostime((time_t *)&s.st_mtime); /* Use modification time in VMS */ +#else + return unix2dostime((time_t *)&s.st_ctime); /* Use creation time in VMS */ +#endif +} + +int deletedir( char *d) +/* char *d; directory to delete */ + +/* Delete the directory *d if it is empty, do nothing otherwise. + Return the result of rmdir(), delete(), or system(). + For VMS, d must be in format [x.y]z.dir;1 (not [x.y.z]). + */ +{ + /* code from Greg Roelofs, who horked it from Mark Edwards (unzip) */ + int r, len; + char *s; /* malloc'd string for system command */ + + len = strlen(d); + if ((s = malloc(len + 34)) == NULL) + return 127; + + system(strcat(strcpy(s, "set prot=(o:rwed) "), d)); + r = delete(d); + free(s); + return r; +} diff --git a/vms/zip.opt b/vms/zip.opt new file mode 100644 index 0000000..7a4a872 --- /dev/null +++ b/vms/zip.opt @@ -0,0 +1 @@ +Ident = "Zip 3.0" diff --git a/vms/zip_cli.cld b/vms/zip_cli.cld new file mode 100644 index 0000000..38fc421 --- /dev/null +++ b/vms/zip_cli.cld @@ -0,0 +1,168 @@ + Module ZIP_CLITABLE + Ident "03-001" + +Define Verb ZIP + Parameter P1, Label=ZIPFILE, Prompt="Zip file" + Parameter P2, Label=INFILE, VALUE(list), Prompt="Files to Zip" + Qualifier DELETE, NonNegatable + Qualifier FRESHEN, NonNegatable + Qualifier MOVE, NonNegatable + Qualifier UPDATE, NonNegatable + Qualifier EXCLUDE, NonNegatable, VALUE(required,list) + Qualifier INCLUDE, NonNegatable, VALUE(required,list) + Qualifier EXLIST, NonNegatable, VALUE(type=$FILE,required) + Qualifier INLIST, NonNegatable, VALUE(type=$FILE,required) + Qualifier ADJUST_OFFSETS, NonNegatable + Qualifier APPEND, NonNegatable + Qualifier BATCH, NonNegatable, VALUE(type=$FILE) + Qualifier BEFORE, NonNegatable, VALUE(type=$DATETIME) + Qualifier COMMENTS, NonNegatable, + VALUE(list,type=COMMENTS_KEYWORDS) + Qualifier COMPRESSION, NonNegatable, VALUE(type=COMPRESS_OPTS) + Qualifier COPY_ENTRIES, NonNegatable + Qualifier DESCRIPTORS, NonNegatable + Qualifier DIFFERENCE, NonNegatable + Qualifier DIRNAMES, Negatable, Default + Qualifier DISPLAY, NonNegatable, + VALUE(type=DISPLAY_KEYWORDS, required, list) + Qualifier DOT_VERSION, NonNegatable + Qualifier ENCRYPT, Negatable, VALUE + Qualifier EXTRA_FIELDS, Negatable, VALUE(type=EXTRA_OPTS) + Qualifier FILESYNC, NonNegatable + Qualifier FIX_ARCHIVE, NonNegatable, VALUE(type=FIX_OPTS) + Qualifier FULL_PATH, Negatable, Default + Qualifier GROW, NonNegatable + Qualifier HELP, NonNegatable, VALUE(type=HELP_OPTS) + Qualifier JUNK, NonNegatable + Qualifier KEEP_VERSION, Negatable + Qualifier LATEST, NonNegatable + Qualifier LEVEL, VALUE(type=$NUMBER,required) + Qualifier LICENSE, NonNegatable + Qualifier LOG_FILE, NonNegatable, + VALUE(list, required, type=LOG_OPTS) + Qualifier MUST_MATCH, NonNegatable + Qualifier OUTPUT, VALUE(required,type=$FILE) + Qualifier PATTERN_CASE, NonNegatable, VALUE(type=PATT_CASE_OPTS) + Qualifier PAUSE, Negatable + Qualifier PKZIP, Negatable + Qualifier PRESERVE_CASE, Negatable, + VALUE(type=PRES_CASE_OPTS, list) + Qualifier QUIET, NonNegatable + Qualifier RECURSE, Negatable, VALUE(type=RECURSE_OPTS) + Qualifier SHOW, NonNegatable, + VALUE(type=SHOW_KEYWORDS, required, list) + Qualifier SINCE, NonNegatable, VALUE(type=$DATETIME) + Qualifier SPLIT, NonNegatable, + VALUE(list, required, type=SPLIT_OPTS) + Qualifier STORE_TYPES, NonNegatable, VALUE(required,list) + Qualifier SYMLINKS, NonNegatable + Qualifier TEMP_PATH, VALUE(required,type=$FILE) + Qualifier TEST, NonNegatable, VALUE(type=TEST_OPTS) + Qualifier TRANSLATE_EOL, NonNegatable, + VALUE(type=EOL_KEYWORDS) + Qualifier UNSFX, NonNegatable + Qualifier VERBOSE, NonNegatable, + VALUE(type=VERBOSE_OPTS, list) + Qualifier VMS, NonNegatable, VALUE(type=VMS_OPTS) + Qualifier WILDCARD, VALUE(type=WILDCARD_OPTS) + Qualifier YYZ_ZIP, NonNegatable, Default + Qualifier ZIP64, NonNegatable + + Disallow COPY_ENTRIES and (DELETE or FRESHEN or UPDATE) + Disallow DELETE and (COPY_ENTRIES or FRESHEN or UPDATE) + Disallow FRESHEN and (COPY_ENTRIES or DELETE or UPDATE) + Disallow UPDATE and (COPY_ENTRIES or DELETE or FRESHEN) + Disallow DIFFERENCE and (neg OUTPUT) + Disallow DIFFERENCE and + (FIX_ARCHIVE.NORMAL or FIX_ARCHIVE.FULL or + COPY_ENTRIES or DELETE) + Disallow APPEND and GROW + Disallow FIX_ARCHIVE.NORMAL and FIX_ARCHIVE.FULL + Disallow (FIX_ARCHIVE.NORMAL or FIX_ARCHIVE.FULL) and + (neg OUTPUT) + Disallow TRANSLATE_EOL.LF and TRANSLATE_EOL.CRLF + Disallow FULL_PATH and JUNK + Disallow RECURSE.PATH and RECURSE.FILENAMES + Disallow (neg EXTRA_FIELDS) and + (KEEP_EXISTING or EXTRA_FIELDS.NORMAL) + +Define Type PATT_CASE_OPTS + Keyword BLIND + Keyword SENSITIVE, DEFAULT + +Define Type COMMENTS_KEYWORDS + Keyword ARCHIVE, DEFAULT + Keyword FILES + Keyword ZIP_FILE + +Define Type COMPRESS_OPTS + Keyword BZIP2 + Keyword DEFLATE, DEFAULT + Keyword STORE + +Define Type DISPLAY_KEYWORDS + Keyword BYTES + Keyword COUNTS + Keyword DOTS, VALUE + Keyword GLOBALDOTS + Keyword USIZE + Keyword VOLUME + +Define Type EOL_KEYWORDS + Keyword LF, DEFAULT + Keyword CRLF + +Define Type EXTRA_OPTS + Keyword NORMAL, DEFAULT + Keyword KEEP_EXISTING + +Define Type FIX_OPTS + Keyword NORMAL, DEFAULT + Keyword FULL + +Define Type HELP_OPTS + Keyword NORMAL, DEFAULT + Keyword EXTENDED + +Define Type LOG_OPTS + Keyword APPEND, Negatable + Keyword INFORMATIONAL, Negatable + Keyword FILE, NonNegatable, VALUE(required, type=$FILE) + +Define Type PRES_CASE_OPTS + Keyword NOODS2 + Keyword NOODS5 + Keyword ODS2 + Keyword ODS5 + +Define Type RECURSE_OPTS + Keyword PATH, DEFAULT + Keyword FILENAMES + +Define Type SHOW_KEYWORDS + Keyword COMMAND + Keyword DEBUG + Keyword FILES + Keyword OPTIONS + +Define Type SPLIT_OPTS + Keyword BELL, Negatable + Keyword PAUSE, Negatable + Keyword SIZE, VALUE(required) + Keyword VERBOSE, Negatable + +Define Type TEST_OPTS + Keyword UNZIP, VALUE(required) + +Define Type VERBOSE_OPTS + Keyword NORMAL, DEFAULT + Keyword MORE + Keyword DEBUG + Keyword COMMAND + +Define Type VMS_OPTS + Keyword ALL + +Define Type WILDCARD_OPTS + Keyword NOSPAN + diff --git a/vms/zip_cli.help b/vms/zip_cli.help new file mode 100644 index 0000000..1bb39c2 --- /dev/null +++ b/vms/zip_cli.help @@ -0,0 +1,1636 @@ +.! +.! File: ZIP_CLI.HELP +.! +.! Author: Christian Spieler +.! +.! Date: 05 Dec 95 (orig. ZIP.RNH, 22 Oct 91) +.! +.! Description: +.! +.! TPU-processable source file to produce VMS on-line help for +.! portable Zip. Adapted from ZIP.RNH, originally based on +.! ZIP.MAN (now MANUAL). +.! +.! To build: +.! $ EDIT /TPU/NOSECTION/NODISPLAY/COMMAND=CVTHELP.TPU ZIP_CLI.HELP +.! $ RUNOFF /OUT=ZIP_CLI.HLP ZIP_CLI.RNH +.! $ LIBR /HELP/INSERT libr ZIP_CLI +.! +.! Modification history: +.! +.! 01-001 Christian Spieler 05-DEC-1995 02:02 +.! Genesis. +.! 01-002 Christian Spieler 20-JAN-1996 03:09 +.! Modified /LICENSE and /VERBOSE descriptions. +.! 01-003 Christian Spieler 11-FEB-1996 23:09 +.! Added /[NO]EXTRA_FIELDS description. +.! 01-004 Christian Spieler 11-MAR-1996 20:08 +.! Removed /ENCRYPT=VERIFY option. +.! 01-005 Christian Spieler 11-MAY-1996 23:08 +.! Corrected/enhanced info about how to get help on UNIX options. +.! 01-006 Christian Spieler 21-JUL-1997 22:26 +.! Updated for new options of Zip 2.2. +.! 01-006 Christian Spieler 14-OCT-1997 22:04 +.! Cleanups for Zip 2.2 release (no version change). +.! 01-007 Steven Schweda 15-MAY-2007 +.! Zip 3.0. +.! 01-007 Ed Gordon 15-MAY-2007 +.! Minor updates to Zip 3.0 help. +.! +<INIT> +<MAIN> +ZIP + +Zip is a compression and file packaging utility for several operating +systems, including UNIX, VMS, MSDOS, OS/2, Windows 9x/NT/XP, Minix, +Atari, Macintosh, Amiga, and Acorn RISC OS. It is analogous to a +combination of tar and compress and is compatible with PKZIP (Phil +Katz's ZIP) for MSDOS systems. + +Zip is useful for packaging a set of files for distribution, for +archiving files, and for saving disk space by temporarily compressing +unused files or directories. A companion program, UnZip, unpacks Zip +archives. + +For brief help on Zip or UnZip, run the program without specifying any +parameters on the command line. + +This description covers the Zip program which uses a VMS-style CLI +command line. The VMS CLI Zip program also accepts UNIX-style "-opt" +options, but a separate Zip program is available which provides only a +UNIX-style command line, and it has its own documentation. Refer to +the Zip installation instructions for details. + +<FORMAT> +ZIP [/options] archive inpath, inpath ... + +.! + +<TOPIC> +Basic_Usage + +<FORMAT> +ZIP [/options] archive inpath, inpath ... + +The default action of Zip is to add or replace entries in "archive" from +the list of "inpath" file specifications, which can include directories +and file names with VMS-style wildcards. If /BATCH is specified, Zip +will read file specifications from a list file or from SYS$INPUT +(stdin). + +With SET PROCESS /PARSE_STYLE = EXTENDED (available on recent non-VAX +systems), Zip preserves the case of the command line. Otherwise, mixed- +or upper-case arguments (file names) must be quoted. Examples in this +document generally do not show this quotation, so VAX and /PARSE_STYLE = +TRADITIONAL users (that is, troglodytes) will need to add quotation +where needed when working with these examples. + +General + +Zip reads one or more files, compresses the data (normally), and stores +the compressed information into a single Zip archive file, along with +information about each file (name, path, date and time of last +modification, protection, and check information to verify file +integrity). On a VMS system, Zip can also save VMS/RMS file attributes, +allowing UnZip to restore the files without loss of important file +attributes. Zip can pack an entire directory structure into a Zip +archive with a single command. + +Compression + +Compression ratios of 2:1 to 3:1 are common for text files. Zip has one +standard compression method ("deflate") and can also store files without +compression. Zip (and UnZip) may be built with optional support for the +bzip2 compression method. Then, the user may select bzip2 compression +instead of the default "deflate" method. Zip automatically chooses +simple storage over compression for a file, if the specified compression +method does not actually compress the data in that file. + +Compatibility + +Zip and UnZip can work with archives produced by PKZIP (supporting most +PKZIP features up to PKZIP version 4.6), and PKZIP and PKUNZIP can work +with archives produced by Zip (with some exceptions, notably streamed +archives, but recent changes in the .ZIP file standard may facilitate +better compatibility). Zip version 3.0 is compatible with PKZIP 2.04 +and also supports the Zip64 extensions of PKZIP 4.5 which allows +archives as well as files to exceed the previous 2 GB limit (4 GB in +some cases). Zip also supports bzip2 compression if the bzip2 library +is included when Zip is built. Note that PKUNZIP 1.10 cannot extract +files produced by PKZIP 2.04 or Zip 3.0. You must use PKUNZIP 2.04g or +UnZip 5.0p1 (or later versions) to extract them. + +Large Archives and Zip64 + +Where the operating system and C run-time support allow, Zip 3.0 and +UnZip 6.0 (and later versions) support large files (input and archive), +using the Zip64 extensions to the original .ZIP file format. On VMS, +this genarally means non-VAX systems with VMS V7.2 or later (perhaps +requiring a C RTL ECO before VMS V7.3-2). + +Zip automatically uses the Zip64 extensions when a file 4 GB or larger +is added to an archive, an archive containing a Zip64 entry is updated +(if the resulting archive still needs Zip64), the size of the archive +will exceed 4 GB, or when the number of entries in the archive will +exceed about 64K. Zip64 is also used for archives streamed to a +non-seekable output device. You must use a 4.5 compatible UnZip to +extract files using the Zip64 extensions such as UnZip 6.0 or later. + +In addition, streamed archives, entries encrypted with standard +encryption, or split archives created with the pause option may not be +compatible with PKZIP as data descriptors are used, and PKZIP at the +time of this writing does not support data descriptors (but recent +changes in the PKWare published .ZIP file standard now include some +support for the data descriptor format Zip uses). + +<TOPIC> +More_Usage + +Here is a very simple example of Zip use: + +<LITERAL> +| zip stuff.zip *.* +<LARETIL> + +This will create the Zip archive "stuff.zip" (assuming it does not +already exist) and put all the (non-directory) files (";0") from the +current default directory into "stuff.zip" in a compressed form. The +archive is opened using a default file specification of +"SYS$DISK:[].zip", so specifying "stuff" as the archive name would also +create (or use an existing) "stuff.zip", but specifying "stuff.other" +would give you that name. In general, Zip doesn't care about the type +in the file specification, but for split archives (archives split over +multiple files), the user should normally specify a type-less name, +because Zip will normally generate sequentially numbered types ".z01", +".z02", and so on for the early splits, and then the required ".zip" for +the last split. These file types are required by the Zip standard for +split archives. + +Standard VMS wildcard expansion ($SEARCH) is used to interpret the +"inpath" file and directory specifications, like the "*.*" in this +example. + +On VMS, the most natural way to archive an entire directory tree is to +use a directory-depth wildcard ("[...]"). For example: + +<LITERAL> +| zip foo [...]*.* +<LARETIL> + +This will create the file "foo.zip" containing all the files (";0") and +directories in and below the current default directory. A more +UNIX-like way to do this would be to use the /RECURSE option: + +<LITERAL> +| zip /recurse foo *.* +<LARETIL> + +Zip avoids including its own output files when selecting files to +include in the archive, so it should be safe, as in this case, to create +the archive in the same drectory as the input files. + +One or more specific files, directories, or subdirectories may also be +specified: + +<LITERAL> +| zip foo.zip readme.txt, [www...]*.*, [.ftp...]*.*, - +| [.src]*.h, [.src]*.c +<LARETIL> + +For security reasons, paths in Zip archives are always stored as +relative paths, so some care is needed when creating an archive so that +it will create the intended directory structure when UnZip is used to +unpack it. + +To use /RECURSE with a specific directory, the name of the directory +file itself must be specified: + +<LITERAL> +| zip /recurse foo.zip [000000]www.dir, ftp.dir +<LARETIL> + +You may want to make an archive that contains the files in [.foo], but +not record the directory name, "foo". You can use the /JUNK (junk path) +option to leave off the path: + +<LITERAL> +| zip /junk foo [.foo]*.* +<LARETIL> + +If you are short on disk space, you might not have enough room to hold +both the original directory and the corresponding compressed Zip +archive. In this case, you can create the archive in steps, and use the +-m option. For example, if [.foo] contains the subdirectories [.tom], +[.dick], and [.harry], you could: + +<LITERAL> +| zip /move foo [.foo.tom...]*.* +| zip /move foo [.foo.dick...]*.* +| zip /move foo [.foo.harry...]*.* +<LARETIL> + +The first command would create foo.zip, and the next two would add to +it. The /MOVE option will cause Zip to delete all files added to the +archive after making or updating foo.zip. No deletions will be done +until the Zip operation has completed with no errors. This option is +obviously dangerous and should be used with care, but it does reduce the +need for free disk space. When /MOVE is used, the /TEST option is +recommended and will test the resulting archive before deleting the +input files. + +If a file specification list is too long to fit conveniently on the Zip +command line, the /BATCH option can be used to cause Zip to read a list +of file specifications from a file or from SYS$INPUT (stdin). If a DCL +command procedure is used, the names can be specified in the procedure: + +<LITERAL> +| $ zip foo /batch +| $ deck +| file_spec_1 +| file_spec_2 +| file_spec_3 +| $ eod +<LARETIL> + +The file specifications can also be put into a separate file, and fed +into Zip by specifying that file as "/BATCH = list_file", or by +explicitly defining SYS$INPUT, or by using PIPE. For example, with the +list in foo.zfl: +<LITERAL> +| zip foo /batch = foo.zfl +<LARETIL> +or: +<LITERAL> +| define /user_mode sys$input foo.zfl +| zip foo /batch +<LARETIL> +or: +<LITERAL> +| pipe type foo.zfl | zip foo /batch +<LARETIL> + +If Zip is not able to read a file, it issues a warning but continues. +See the /MUST_MATCH option for more on how Zip handles patterns that are +not matched and files that are not readable. If some files were +skipped, a warning is issued at the end of the Zip operation noting how +many files were read and how many skipped. +<TOPIC> +Environment + +A user can specify default command-line options and arguments by +defining an "environment variable" (that is, a logical name or DCL +symbol), "ZIP_OPTS" or "ZIPOPT", to specify them. If both "ZIP_OPTS" +and "ZIPOPT" are specified, the definition of "ZIPOPT" prevails. + +UNIX-style command-line options are required in these variables, even +for the VMS CLI Zip program. For details, see the help topic +UNIX_Options, or the separate Zip help for the UNIX-style command line. + +The C RTL function getenv() is used to sense these variables, so its +behavior determines what happens if both a logical name and a symbol are +defined. As of VMS V7.3, a logical name supercedes a symbol. + +The "zip /VERBOSE" report should show the perceived settings of these +variables. + +For example, the following will cause Zip to skip directories, include +VMS portable attribute information, and perform all operations at +quiet-level 1 by default: + +<LITERAL> +| $ define ZIP_OPTS "-qDV" +<LARETIL> + +Note that the quotation marks here are required to preserve lowercase +options (opposite of the command-line behavior). + +<TOPIC> +Exit_Status + +On VMS, Zip's UNIX-style exit values are mapped into VMS-style status +codes with facility code 1955 = %x7A3, and with the inhibit-message +(%x10000000) and facility-specific (%x00008000) bits set: + +<LITERAL> +| %x17A38001 normal exit +| %x17A38000+ 16* Zip_error_code warnings +| %x17A38002+ 16* Zip_error_code normal errors +| %x17A38004+ 16* Zip_error_code fatal errors +<LARETIL> + +Note that multiplying the UNIX-style Zip error code by 16 places it +conveniently in the hexadecimal representation of the VMS exit code, +"__" in %x17A38__s, where "s" is the severity code. For example, a +truncated archive might cause Zip error code 2, which would be +transformed into the VMS exit status %x17A38024. + +The Zip VMS exit codes include severity values which approximate those +defined by PKWARE, as shown in the following table: + +<LITERAL0> +| VMS Zip err +|severity code Error description +|---------+---------+---------------------------------------------- +|Success 0 (OK) Normal; no errors or warnings detected. +|Fatal 2 (EOF) Unexpected end of archive. +|Error 3 (FORM) A generic error in the archive format +| was detected. Processing may have completed +| successfully anyway; some broken archives +| created by other archivers have simple work- +| arounds. +|Fatal 4 (MEM) Zip was unable to allocate memory for +| one or more buffers during program initializ- +| ation. +|Fatal 5 (LOGIC) A severe error in the archive format +| was detected. Processing probably failed +| immediately. +|Error 6 (BIG) Entry too large to split, read, or +| write. +|Error 7 (NOTE) Invalid comment format. +|Fatal 8 (TEST) Zip -T failed or out of memory. +|Error 9 (ABORT) The user aborted zip prematurely +| with control-C (or equivalent). +|Fatal 10 (TEMP) Zip encountered an error while using +| a tempfile. +|Fatal 11 (READ) Read or seek error. +|Warning 12 (NONE) Zip has nothing to do. +|Error 13 (NAME) Missing or empty zip file. +|Fatal 14 (WRITE) Error writing to a file. +|Fatal 15 (CREAT) Zip was unable to create a file to +| write to. +|Error 16 (PARMS) Bad command line parameters. +|Error 18 (OPEN) Zip could not open a specified file +| to read. +|Fatal 19 (COMPERR) Zip was built with options not +| supported on this system. +|Fatal 20 (ZIP64) Attempt to read unsupported Zip64 +| archive. +<0LARETIL> + +<TOPIC> +File_Names + +Zip deals with file names in the system file system and with file names +in Zip archives. File names in a Zip archive are stored in a UNIX-like +path-name format. For example, a VMS file specification like this: + +<LITERAL> +[.zip30.vms]descrip.mms +<LARETIL> + +could appear in a Zip archive as: + +<LITERAL> +zip30/vms/descrip.mms +<LARETIL> + +For security reasons, paths in Zip archives are always stored as +relative paths, so an absolute VMS directory specification will be +transformed to a relative path in the archive (that is, no leading "/"). +For example, the following absolute directory specification would give +the same archive path as the previous (relative) example: + +<LITERAL> +[zip30.vms]descrip.mms +<LARETIL> + +Also, device names are dropped, so the following file specification +would also give the same archive path: + +<LITERAL> +sys$sysdevice:[zip30.vms]descrip.mms +<LARETIL> + +If an archive is intended for use with PKUNZIP under MSDOS, then the +/PKZIP option should be used to attempt to adjust the names and paths to +conform to MSDOS character-set and length limitations, to store only the +MSDOS file attributes (just the owner:write attribute from VMS), and to +mark the entry as made under MSDOS (even though it wasn't). + +Note that file specifications in the file system must be specified using +VMS notation, but file names in an archive must be specified using the +UNIX-like notation used in the archive. For example, where a BACKUP +command might look like this: + +<LITERAL> +$ back [.zip30...]*.* /excl = [...vms]*.c stuff.bck /save +<LARETIL> + +a corresponding Zip command might look like this: + +<LITERAL> +$ zip /exclude = "*/vms/*.c" stuff.zip [.zip30...]*.* +<LARETIL> + +because the files to be added to the Zip archive are specified using VMS +file specifications, but the /EXCLUDE option excludes names based +on their archive path/file names. Options dealing with archive names +include /COPY_ENTRIES, /DELETE, /EXCLUDE, /INCLUDE, and +/RECURSE=FILENAMES. + +Note that a UNIX-like path specification must be quoted, or else the +slashes ("/") will confuse the command-line interpreter, causing errors +like "%CLI-W-IVQUAL, unrecognized qualifier - check validity, spelling, +and placement". + +Note: By default, on VMS, archive name pattern matching (/COPY_ENTRIES, +/DELETE, /EXCLUDE, /INCLUDE, and /RECURSE=FILENAMES) is case sensitive, +even when the file system is not case sensitive (or even case +preserving). This allows accurate matching of mixed-case names in an +archive which may have been created on a system with a case sensitive +file system, but it can involve extra effort on VMS, where it may be +necessary to use unnatural case names (or the same names in multiple +cases, like "*.obj *.OBJ") for this kind of pattern matching to give the +desired behavior. If completely case-blind pattern matching behavior is +desired, specify the /PATTERN_CASE=BLIND option. +<TOPIC> +Modes_of_Operation + +Zip supports two distinct types of command modes, external and +internal. The external modes (update, grow, and freshen) read files +from the file system (as well as from an existing archive) while the +internal modes (delete and copy) operate exclusively on entries in an +existing archive. + +<LITERAL> + /UPDATE +<LARETIL> + +Update existing entries and add new files. If the archive does not +exist, create it. This is the default mode, so /UPDATE is optional. + +<LITERAL> + /GROW +<LARETIL> + +Grow (append to) the specified Zip archive, instead of creating a new +one. If this operation fails, Zip attempts to restore the archive to +its original state. If the restoration fails, the archive might become +corrupted. This option is ignored when there's no existing archive or +when at least one archive member must be updated or deleted. + +<LITERAL> + /FRESHEN +<LARETIL> + +Update existing entries in an existing archive. Does not add new files +to the archive. + +<LITERAL> + /DELETE +<LARETIL> + +Delete entries from an existing archive. + +<LITERAL> + /COPY_ENTRIES +<LARETIL> + +Select entries in an existing archive and copy them to a new archive. +Copy mode is like update mode, but entries in the existing archive are +selected by command line patterns rather than files from the file system +and it uses the /OUTPUT option to write the resulting archive to a new +file rather than updating the existing archive, leaving the original +archive unchanged. + +<LITERAL> + /DIFFERENCE +<LARETIL> + +Create an incremental backup-style archive, where the resulting archive +will contain all new and changed files since the original archive was +created. For this to work, the input file list and current directory +must be the same as during the original Zip operation. + +For example, if the existing archive was created using + +<LITERAL> +zip foo_full.zip [.foo...]*.* +<LARETIL> + +from just above the foo directory, then the command (also from just +above the foo directory): + +<LITERAL> +zip /difference /output = foo_incr.zip foo_full.zip [.foo...]*.* +<LARETIL> + +creates the archive foo_incr.zip with just the files not in foo_full.zip +and the files where the size or date-time of the files does not match +that in foo_full.zip. Note that in the "ZIP /DIFFERENCE" operation, the +original full archive is specified as the input archive, and the /OUTPUT +option is used to specify the new (incremental) output archive. + +<LITERAL> + /FILESYNC +<LARETIL> + +Delete entries in the archive that do not match files on the OS. +Normally files already in an archive that are not updated remain +in the archive unchanged. The /FILESYNC option deletes files in +the archive that are not matched during the directory scan, +resulting in the archive being updated having the same contents +as a new archive would. If much of the archive will remain +unchanged, this can be faster than creating a new archive as +copying entries is faster than compressing and adding new files. + +Normally, when updating an archive using relative file specifications +("[]", "[.xxx]", and so on), it helps to have the same default directory +as when the archive was created, but this is not a strict requirement. + +<TOPIC> +Self_Extracting_Archives + +A self-extracting archive (SFX) comprises a normal Zip archive appended +to a special UnZip program (such as UNZIPSFX_CLI.EXE) for the intended +target system. + +The UnZip distribution includes a VMS command procedure, +[,vms]makesfx.com, which can be used directly or adapted to create an +SFX archive from a normal Zip archive. + +The .ZIP file format includes offsets to data structures in the archive, +and these offsets are measured from the start of the archive file. +Appending an archive to an UnZip SFX executable effectively moves the +start of the archive file. That makes the original offsets wrong, and +that will cause the UnZip SFX program to emit warning messages when it +tries to unpack the archive. Zip /ADJUST_OFFSETS can be used to adjust +these offsets in a self-extracting archive. For example, to adjust the +offsets in foo.sfx_exe: + +<LITERAL> +| zip /adjust_offsets foo.sfx_exe +<LARETIL> + +Similarly, the UnZip SFX program can be removed from a self-extracting +archive (and the offsets in the archive restored) using the /UNSFX +option. For example: + +<LITERAL> +| zip /unsfx foo.sfx_exe +<LARETIL> + +Note that a self-extracting archive contains a normal Zip archive, and a +normal UnZip program can be used to expand it in the normal way. You +may get a warning about extra bytes at the beginning of the archive (the +UnZip SFX program), but UnZip should work properly after that. This +allows data in a self-extracting archive to be accessed on any system, +not just the target system where its embedded UnZip SFX program runs. + +<TOPIC> +Split_Archives + +Beginning with version 3.0, Zip supports split archives. A split +archive is one which is divided into multiple files, usually to allow it +to be stored on multiple storage media (floppy diskettes, CD-ROMs, or +the like) when a single medium would be too small to contain the whole +archive. (Note that split archives are not just unitary archives split +into pieces, as the .ZIP file format includes offsets to data structures +in the archive, and for a split archive these are based on the start of +each split, not on the start of the whole archive. Concatenating the +pieces will invalidate these offsets, but UnZip can usually deal with +it. Zip will usually refuse to process such a spliced archive unless +the /FIX = FULL option is used to fix the offsets.) + +For a split archive with, say, 20 split files, the files are typically +named ARCHIVE.z01, ARCHIVE.z02, ..., ARCHIVE.z19, ARCHIVE.zip, where +"ARCHIVE" is the archive name specified by the user on the Zip command +line. Note that the last split file is the ".zip" file. In contrast, +"spanned" archives are the original multi-disk archive generally +requiring floppy disks and using volume labels to store disk numbers. +Zip supports split archives but not spanned archives, though a procedure +exists for converting split archives of the right size to spanned +archives. The reverse is also true, where each file of a spanned +archive can be copied in order to files with the above names to create a +split archive. + +<QUALIFIERS> +<QUALIFIER> +/ADJUST_OFFSETS + +/ADJUST_OFFSETS + +Adjust internal offsets of the Zip archive members after some data +(e.g. a SFX executable stub) has been prepended to the archive file. +<QUALIFIER> +/APPEND + +/APPEND +/GROW + +Grow (append to) the specified Zip archive, instead of creating a new +one. If this operation fails, Zip attempts to restore the archive to +its original state. If the restoration fails, the archive might become +corrupted. This option is ignored when there's no existing archive or +when at least one archive member must be updated or deleted. + +See also /DELETE /DIFFERENCE, /FRESHEN, /UPDATE. +<QUALIFIER> +/BATCH + +/BATCH[=list_file] + +Read input file specifications (inpaths) from "list_file" (one per +line). The list_file defaults to SYS$INPUT. +<QUALIFIER> +/BEFORE + +/BEFORE=VMS_date_time + +Restricts the files by date-time when adding, updating, or freshening an +archive. Only files with modification date-times earlier than the +specified date-time are accepted. + +See also /SINCE. +<QUALIFIER> +/COMMENTS + +/COMMENTS[=KEYWORD[,KEYWORD]] + +Add comments to the Zip archive. + +<LITERAL> +| ARCHIVE Add/replace the multi-line archive comment. (default) +| FILES Add file comment to each updated/added archive member. +<LARETIL> + +The Zip program prompts for each comment to be added, which makes sense +only if Zip is run interactively. + +The one-line file (archive member) comments are terminated by typing +<Return>. To skip a file comment, just type <Return> without entering +any further characters. + +The Zip archive comment may be multi-line. The comment is ended by a +line containing just a period, or by an end-of-file character (CTRL/Z). +<QUALIFIER> +/COMPRESSION + +/COMPRESSION = {BZIP2|DEFLATE|STORE} + +Specify the compression method to be used when adding or updating files +in an archive. STORE disables compression (like /LEVEL = 0). Default: +/COMPRESSION = DEFLATE. + +Zip can archive files with or without compression. The standard +compression method ("deflate") is compatible with all UnZip versions +(except really old ones that only understand the "store" method). +Current Zip and UnZip versions may be built with optional support for +the bzip2 compression method. (The bzip2 method can compress better, +especially when compressing highly redundant files, but uses more CPU +time, and requires an UnZip which includes the optional bzip2 support. +See the installation instructions for details on adding bzip2 +compression support at build time.) +<QUALIFIER> +/COPY_ENTRIES + +/COPY_ENTRIES + +Select entries in an existing archive and copy them to a new archive. +Copy mode is like update mode, but entries in the existing archive are +selected by command line patterns rather than files from the file system +and it uses the /OUTPUT option to write the resulting archive to a new +file rather than updating the existing archive, leaving the original +archive unchanged. +<QUALIFIER> +/DELETE + +/DELETE + +Delete entries from archive. + +See also /DIFFERENCE, /FRESHEN, /GROW, /UPDATE. +<QUALIFIER> +/DIFFERENCE + +/DIFFERENCE + +Create an incremental backup-style archive, where the resulting archive +will contain all new and changed files since the original archive was +created. For this to work, the input file list and current directory +must be the same as during the original Zip operation. + +See also /DELETE, /FRESHEN, /GROW, /UPDATE. +<QUALIFIER> +/DIRNAMES + +/DIRNAMES (default) +/NODIRNAMES + +Store directory entries in the archive. +<QUALIFIER> +/DISPLAY + +/DISPLAY=(KEYWORD[,KEYWORD[...]]) + +Enable display of progress messages. +<LITERAL> +| BYTES Running count of bytes processed and bytes to go. +| COUNTS Running count of entries done and entries to go. +| DOTS = size Dots every <size> MB while processing files. +| (0: no dots.) +| GLOBALDOTS Progress dots reflect the whole archive instead of each +| file. +| USIZE Uncompressed size of each entry. +| VOLUME Display the volume (disk) number each entry is being +| written to. +<LARETIL> + +The default is a dot every 10 MB of input file processed. The /VERBOSE +option also displays dots and used to at a higher rate than this (at the +same rate as in previous versions of Zip) but this rate has been changed +to the new 10 MB default, and is also controlled by /DISPLAY=DOTS=size. +<QUALIFIER> +/DOT_VERSION + +/DOT_VERSION + +Directs Zip to retain VMS file version numbers on names in an archive, +but as ".nnn" instead of ";nnn". By default, for compatibility +with non-VMS systems, Zip strips VMS file version numbers from the names +stored in an archive. Thus, without /DOT_VERSION or /KEEP_VERSION, a +version number wildcard (";*") can cause errors when multiple versions +of a single file are treated as multiple files with the same name. + +See also /KEEP_VERSION. +<QUALIFIER> +/ENCRYPT + +/ENCRYPT[="password"] + +Encrypt new or updated archive entries using a password which is +supplied by the user interactively on the terminal in response to a +prompt. (The password will not be echoed.) If SYS$COMMAND is not a +terminal, Zip will exit with an error. The password is verified before +being accepted. + +You may specify the password on the command line, although we do not +recommend it because THIS IS INSECURE. Remember to enclose the password +string with quotation marks ("pass word"), to prevent automatic +conversion to upper case or misinterpretation of punctuation characters +by DCL. + +Because standard Zip encryption is weak, where security is truly +important, use a strong encryption program, such as Pretty Good Privacy +(PGP) or GNU Privacy Guard (GnuPG), on an archive instead of standard +Zip encryption. A stronger encryption method, such as AES, is planned +for Zip 3.1. +<QUALIFIER> +/EXCLUDE + +/EXCLUDE=(file[,...]) + +A comma-separated list of files to exclude when deleting, updating, or +adding files in the archive. If multiple files are specified, the list +should be enclosed in parentheses. +<QUALIFIER> +/EXLIST + +/EXLIST=list_file + +The files matching the filename patterns listed in "list_file" are +excluded when deleting, updating or adding files in the archive. +The "list_file" is a normal text file with one filename pattern entry per +line. The name pattern entries are recognized exactly as found in +"list_file", including leading, embedded, and trailing whitespace or most +control characters (with exception of LineFeed and probably CarriageReturn). +<QUALIFIER> +/EXTRA_FIELDS + +/EXTRA_FIELDS (default) +/NOEXTRA_FIELDS + +Allows (or suppresses) the saving of any optional extra fields in the +archive. (/NOEXTRA_FIELDS conflicts with /VMS[=ALL].) + +The .ZIP file format allows some extra data to be stored with a file in +the archive. For example, where local time zone information is +available, Zip can store UTC date-time data for files. (Look for +USE_EF_UT_TIME in a "zip -v" report.) On VMS, with /VMS[=ALL], Zip will +also store VMS-specific file attributes. These data are packaged as +"extra fields" in the archive. Some extra fields are specific to a +particular operating system (like VMS file attributes). Large files +(bigger than 4GB) on any OS require an extra field to hold their 64-bit +size data. Depending on the capabilities of the UnZip program used to +expand the archive, these extra fields may be used or ignored when files +are extracted from the archive. + +Some extra fields, like UTC date-times or VMS file attributes, are +optional. Others, like the Zip64 extra field which holds 64-bit sizes +for a large file, are required. +<QUALIFIER> +/FILESYNC + +/FILESYNC + +Delete entries in the archive that do not match files on the OS. +Normally when an archive is updated, new files are added and changed +files are updated but files that no longer exist on the OS are not +deleted from the archive. This option enables deleting of entries that +are not matched on the OS. Enabling this option should create archives +that are the same as new archives, but since existing entries are copied +instead of compressed, updating an existing archive with /FILESYNC can +be much faster than creating a new archive. If few files are being +copied from the old archive, it may be faster to create a new archive +instead. + +This option deletes files from the archive. If you need to preserve the +original archive, make a copy of the archive first, or use the /OUTPUT +option to output the new archive to a new file. Even though it's +slower, creating a new archive with a new archive name is safer, avoids +mismatches between archive and OS paths, and is preferred. +<QUALIFIER> +/FIX_ARCHIVE + +/FIX=_ARCHIVE={NORMAL|FULL} + +The /FIX_ARCHIVE=NORMAL option (NORMAL is the default) can be used if +some portions of the archive are missing, but it requires a reasonably +intact central directory. The input archive is scanned as usual, but +zip will ignore some problems. The resulting archive should be valid, +but any inconsistent entries will be left out. + +If the archive is too damaged or the end (where the central directory is +situated) has been truncated, you must use /FIX_ARCHIVE=FULL. This is +a change from zip 2.32, where the /FIX=NORMAL option was able to read a +truncated archive. The /FIX=NORMAL option now more reliably fixes +archives with minor damage, and the /FIX=FULL option is needed to fix +some archives where /FIX=NORMAL was sufficient before. + +With /FIX=FULL, the archive is scanned from the beginning and Zip scans +for special signatures to identify the limits between the archive +members. The /FIX=NORMAL option is more reliable if the archive is not +too much damaged, so try this option first. + +Neither option will recover archives that have been incorrectly +transferred, such as by FTP in ASCII mode instead of binary. After the +repair, the /TEST (-t) option of UnZip may show that some files have a +bad CRC. Such files cannot be recovered; you can remove them from the +archive using the /DELETE option of Zip. + +Because of the uncertainty of the "fixing" process, it's required +to specify an output archive, rather than risking further damage to the +original damaged archive. For example, to fix the damaged archive +foo.zip: + +<LITERAL> +zip /fix_archive /output=foo_fix foo +<LARETIL> + +tries to read the entries normally, copying good entries to the new +archive foo_fix.zip. If this doesn't work, as when the archive is +truncated, or if some entries are missed because of bad central +directory entries, try /FIX_ARCHIVE=FULL: + +<LITERAL> +zip /fix_archive=full /output=foo_fixfix foo +<LARETIL> + +and compare the resulting archive to the archive created using +/FIX=NORMAL. The /FIX=FULL option may create an inconsistent archive. +Depending on what is damaged, you can then use the /FIX=NORMAL option to +fix that archive. + +A split archive with missing split files can be fixed using /FIX=NORMAL +if you have the last split of the archive (the ".zip" file). If this +file is missing, you must use /FIX=FULL to fix the archive, which will +prompt you for the splits you have. + +Currently, the fix options can't recover an entry which has a bad +checksum or is otherwise damaged. +<QUALIFIER> +/FRESHEN + +/FRESHEN + +Update existing entries in an existing archive. Does not add new files +to the archive. + +See also /DELETE, /DIFFERENCE, /GROW, /UPDATE. +<QUALIFIER> +/FULL_PATH + +/FULL_PATH (default) +/NOFULL_PATH + +Directs Zip to store the directory part of the file names (relative to +the current working directory) in the Zip archive. With /NOFULL_PATH, +Zip stores only the file names, discarding any directory information. +<QUALIFIER> +/GROW + +/GROW +/APPEND + +Grow (append to) the specified Zip archive, instead of creating a new +one. If this operation fails, Zip attempts to restore the archive to +its original state. If the restoration fails, the archive might become +corrupted. This option is ignored when there's no existing archive or +when at least one archive member must be updated or deleted. + +See also /DELETE, /DIFFERENCE, /FRESHEN, /UPDATE. +<QUALIFIER> +/HELP + +/HELP[=EXTENDED] + +Display Zip's help screen, including the version message. With +/HELP=EXTENDED, more detailed (longer) help information is shown. +<QUALIFIER> +/INCLUDE + +/INCLUDE=(file[,...]) + +A comma-separated list of files to include when deleting, updating, or +adding files in the archive. If multiple files are specified, the list +should be enclosed in parentheses. +<QUALIFIER> +/INLIST + +/INLIST=list_file + +The files matching the filename patterns listed in "list_file" are +included when deleting, updating, or adding files in the archive. +The "list_file" is a normal text file with one filename pattern entry per +line. The name pattern entries are recognized exactly as found in +"list_file", including leading, embedded, and trailing whitespace or most +control characters (with exception of LineFeed and probably CarriageReturn). +<QUALIFIER> +/JUNK + +/JUNK +/NOJUNK (default) + +Junk (discard) the directory part of the file names for added entries +(do not not save the directory structure). The /JUNK qualifier is an +alias for /NOFULL_PATH. +<QUALIFIER> +/KEEP_VERSION + +/KEEP_VERSION +/NOKEEP_VERSION (default) + +Directs Zip to retain VMS file version numbers on names in an archive. +By default, for compatibility with non-VMS systems, Zip strips VMS +file version numbers from the names stored in an archive. Thus, without +/DOT_VERSION or /KEEP_VERSION, a version number wildcard (";*") can +cause errors when multiple versions of a single file are treated as +multiple files with the same name. + +See also /DOT_VERSION. +<QUALIFIER> +/LATEST + +/LATEST + +The archive's creation and modification time is set to the latest +modification time of all archive members. +<QUALIFIER> +/LEVEL + +/LEVEL=number + +Specifies the compression level: +<LITERAL> +| 0 Store +| 1 Fastest compression (Defl:F) +| ... +| 9 Best compression (Defl:X) +<LARETIL> + +The default level is 6. +<QUALIFIER> +/LICENSE + +/LICENSE + +Displays the Zip license. +<QUALIFIER> +/LOG_FILE + +/LOG_FILE=(FILE=log_file [, APPEND] [, INFORMATIONAL]) + +Zip normally sends messages to the user's terminal, but these may be +also directed to a log file. + +<LITERAL> + FILE=log_file +<LARETIL> + +Open a logfile at the given path. By default, a new version will be +created. + +<LITERAL> + APPEND +<LARETIL> + +Append to an existing log file. Default is to create a new version. + +<LITERAL> + INFORMATIONAL +<LARETIL> + +Only warnings and errors are written to the log unless the INFORMATIONAL +option is also specified, then all information messages are also written +to the log. +<QUALIFIER> +/MOVE + +/MOVE + +Move the specified files into the Zip archive. That is, Zip will delete +any files which are successfully added to or updated in the archive. No +deletions will be done until the Zip operation has completed with no +errors. This option is obviously dangerous and should be used with +care, but it does reduce the need for free disk space. It's recommended +that /TEST also be used to test the archive before the input files are +deleted. +<QUALIFIER> +/MUST_MATCH + +/MUST_MATCH + +All input patterns must match at least one file and all input files +found must be readable. Normally when an input pattern does not match +a file the "name not matched" warning is issued and when an input +file has been found but later is missing or not readable a "missing or +not readable" warning is issued. In either case Zip continues +creating the archive, with missing or unreadable new files being skipped +and files already in the archive remaining unchanged. After the +archive is created, if any files were not readable zip returns the OPEN +error code (18 on most systems) instead of the normal success return (0 +on most systems). With /MUST_MATCH, Zip exits as soon as an input +pattern is not matched (whenever the "name not matched" warning would be +issued) or when an input file is not readable. In either case Zip exits +with an OPEN error and no archive is created. + +This option is useful when a known list of files is to be zipped so any +missing or unreadable files should result in an error. It may be less +useful when used with wildcards, but Zip will still exit with an error +if any input pattern doesn't match at least one file or if any +matched files are unreadable. If you want to create the archive anyway +and only need to know if files were skipped, then don't use /MUST_MATCH +and just check the exit status. Also, a log file (see /LOG_FILE) could +be useful. +<QUALIFIER> +/PATTERN_CASE + +/PATTERN_CASE={BLIND|SENSITIVE} + +<LITERAL> +| BLIND Use case-blind pattern matching for archive entry names. +| SENSITIVE Use case-sensitive pattern matching for archive entry +| names. (Default.) +<LARETIL> + +By default, on VMS, archive name pattern matching (/COPY_ENTRIES, +/DELETE, /EXCLUDE, /INCLUDE, and /RECURSE=FILENAMES) is case sensitive, +even when the file system is not case sensitive (or even case +preserving). This allows accurate matching of mixed-case names in an +archive which may have been created on a system with a case sensitive +file system, but it can involve extra effort on VMS, where it may be +necessary to use unnatural case names (or the same names in multiple +cases, like "*.obj *.OBJ") for this kind of pattern matching to give the +desired behavior. If completely case-blind pattern matching behavior is +desired, specify the /PATTERN_CASE=BLIND option. +<QUALIFIER> +/PKZIP + +/PKZIP +/NOPKZIP (default) + +Create PKZIP-compatible archive entries. File names and paths are +adjusted to conform to MSDOS character-set and length +limitations, to store only the MSDOS file attributes (just the +owner:write attribute from VMS), and to mark the entry as made under +MSDOS (even though it wasn't). +<QUALIFIER> +/PRESERVE_CASE + +/NOPRESERVE_CASE +/PRESERVE_CASE[=(keyword[, ...])] + +Directs Zip to preserve the case of, or convert to lower-case, file names +in the archive. Optional keywords are: +<LITERAL> +| NOODS2 Down-case ODS2 file names (default). +| NOODS5 Down-case ODS5 file names. +| ODS2 Preserve case of ODS2 file names. +| ODS5 Preserve case of ODS5 file names (default). +<LARETIL> + +By default, file names from an ODS2 file system are converted to lower +case for storage in an archive, while the case of file names from an +ODS5 file system is preserved. + +/NOPRESERVE_CASE is equivalent to /PRESERVE_CASE = (NOODS2, NOODS5), +which causes all file names to be converted to lower-case. This is +equivalent to the behavior of Zip before version 3.0. + +/PRESERVE_CASE is equivalent to /PRESERVE_CASE = (ODS2, ODS5), which +preserves the case of all file names. +<QUALIFIER> +/QUIET + +/QUIET + +Quiet mode. Eliminates informational messages and comment prompts. +This mode may be useful in command procedures, or if the Zip operation +is being performed as a background task ("$ spawn/nowait zip /quiet foo +*.c"). +<QUALIFIER> +/RECURSE + +/RECURSE[=KEYWORD] +/NORECURSE (default) + +Directs Zip to recurse into subdirectories. +The optional keywords recognized are: +<LITERAL> +| PATH take patterns as full path specifiers (-r) (default) +| FILENAMES start from current dir; +| only use filename part of file patterns (-R) +<LARETIL> +The optional FILENAMES keyword modifies the recursion algorithm to be +(almost) compatible to PKZIP's behaviour on subdirectory recursion. + +On VMS, directory recursion can also be requested by using the +directory depth wildcard ("[...]") in an input file specification. +<QUALIFIER> +/SHOW + +/SHOW=(KEYWORD[,KEYWORD[...]]) + +Controls various diagnostic messages. + +The keywords recognized are: +<LITERAL> +| COMMAND Show command line arguments as processed (only, then exit). +| DEBUG Show Debug information. +| FILES Show files to process (only, then exit). +| OPTIONS Show all available command-line options on this system. +<LARETIL> +<QUALIFIER> +/SINCE + +/SINCE=VMS_date_time + +Restricts the files by date-time when adding, updating, or freshening an +archive. Only files with modification date-times at or later than the +specified date-time are accepted. + +See also /BEFORE. +<QUALIFIER> +/SPLIT + +/SPLIT = (SIZE=size [, PAUSE [, BELL]] [, VERBOSE]) + +Enables split archives, specifies the size of the splits, and controls +other related behavior. + +SIZE=size specifies the split size. The size is given as a number +followed optionally by a multiplier suffix of k (KB), m (MB, the default +if no suffix is specified), g (GB), or t (TB). (All are powers of 1024, +not 1000). 64K is the minimum split size. For example, the following +command could be used to create a split archive called "foo" from the +contents of the "bar" directory with splits of 670MB, which might be +useful for burning on CDs: + +<LITERAL> +| zip /split = size = 670m foo [.bar...]*.* +<LARETIL> + +Using /SPLIT without PAUSE as above creates all the splits in the +directory +specified by "foo", in this case the current default directory. This +split mode updates the splits as the archive is being created, requiring +all splits to remain writable, but creates split archives that are +readable by any UnZip that supports split archives. See PAUSE below for +enabling split pause mode which allows splits to be written directly to +removable media. + +PAUSE causes Zip to pause between splits to allow +changing removable media, for example. PAUSE uses stream mode to +write splits so unzips that can't read stream mode entries may not +be able to read some entries in the archive. Unless standard encryption +was used, copy mode using /COPY_ENTRIES can convert stream mode entries +to normal entries. + +BELL ring the terminal bell when Zip pauses for the next split +destination. + +VERBOSE enables verbose splitting and display details of how the +splitting is being done. + +Though Zip does not update split archives, Zip provides the option +/OUTPUT to allow split archives to be updated and saved in a new +archive. For example: + +<LITERAL> +| zip inarchive.zip foo.c bar.c /output = outarchive.zip +<LARETIL> + +reads archive inarchive.zip, even if split, adds the files foo.c and +bar.c, and writes the resulting archive to outarchive.zip. If +inarchive.zip is split, then outarchive.zip defaults to the same split +size. Be aware that outarchive.zip and any split files that are created +with it are always overwritten without warning. This may be changed in +the future. +<QUALIFIER> +/STORE_TYPES + +/STORE_TYPES=(.ext1,.ext2,... ) + +Normally, a file which is already compressed will not be compressed much +further (if at all) by Zip, and trying to do it can waste considerable +CPU time. Zip can suppress compression on files with particular types, +specified with /STORE_TYPES. The default list of types where +compression is suppressed is /STORE_TYPES=(.Z, .zip, .zoo, .arc, .lzh, + .arj), and the comparison is case-insensitive. + +/LEVEL=9 will override /STORE_TYPES, causing compression to be attempted +for all files. +<QUALIFIER> +/SYMLINKS + +/SYMLINKS + +Store symbolic links as such in the Zip archive, instead of compressing +and storing the file referred to by the link. A symbolic link normally +requires less storage than the actual file, both in the archive, and on +the destination file system. + +On VMS, symbolic links are supported on ODS5 disks where the C RTL +supports symbolic links. Full support for symbolic links seems to +require VMS V8.3, but a Zip program supporting symbolic links may be +built on VMS V7.3-2. +<QUALIFIER> +/TEMP_PATH + +/TEMP_PATH=temp_dir + +When creating a new archive or normally when changing an existing +archive, Zip will write a temporary file in the archive destination +directory ("ZIxxxxxxxx", where "xxxxxxxx" is the hexadecimal process ID) +with the new contents. Then, if and when the Zip job has completed with +no errors, it will rename the temporary file to the specified archive +name (replacing the old archive, if any). + +/TEMP_PATH=temp_dir specifies an alternate device:[directory], +"temp_dir", for the temporary file, but specifying a different device +will force Zip to copy the temporary file to its final destination +instead of simply renaming it, and that copying will take more time than +renaming, especially for a large archive. For example: + +<LITERAL> +| zip /temp_path = disk$scratch:[tmp] stuff * +<LARETIL> + +will cause Zip to put its temporary files in the directory +"disk$scratch:[tmp]", copying the temporary file back to the current +directory as stuff.zip when it's complete. +<QUALIFIER> +/TEST + +/TEST[=UNZIP=unzip_cmd] + +Test the integrity of a Zip archive (the new one, if /OUTPUT is +specified). If the check fails, the old archive is unchanged and +(with the /MOVE option) no input files are removed. + +Implementation +"zip /TEST" actually runs an "unzip -t" command to do the testing, so +UnZip must be installed properly for this to work. + +With UNZIP=unzip_cmd, Zip uses the UnZip command specified by +"unzip_cmd" (normally a DCL symbol), instead of the default command, +"unzip -t". This can be useful if multiple versions of UnZip are +installed on a system, and the default DCL symbol "UNZIP" would run the +wrong one (or the logical name DCL$PATH would lead to the wrong one). + +In "unzip_cmd", the string "{}" is replaced by the name of the +(temporary) archive to be tested, otherwise the name of the archive is +appended to the end of the command. The exit status is checked for +success severity. +<QUALIFIER> +/TRANSLATE_EOL + +/TRANSLATE_EOL[=KEYWORD] + +Selects conversion of the end-of-line markers in text files. This +option should be used on text files only. The optional keywords +recognized are: +<LITERAL> +| LF convert LF -> CRLF (UNIX to DOS) (default) +| CRLF convert CRLF -> LF, strip trailing CTRL-Z's (DOS to UNIX) +<LARETIL> + +The CRLF option may be useful when a DOS text file has been transfered +to a VMS disk in stream (or stream_lf) format. +<QUALIFIER> +/UNSFX + +/UNSFX + +Strip any prepended data from the Zip archive. ZIP /UNSFX is normally +used to convert a self-extracting archive to a normal archive by +removing the UnZip SFX executable from the beginning of the SFX archive. + +Note that a self-extracting archive contains a normal Zip archive, and a +normal UnZip program can be used to expand it in the normal way. You +may get a warning about extra bytes at the beginning of the archive (the +UnZip SFX program), but UnZip should work properly after that. This +allows data in a self-extracting archive to be accessed on any system, +not just the target system where its embedded UnZip SFX program runs. +<QUALIFIER> +/UPDATE + +/UPDATE + +Update existing archive entries and add new files. If the archive does +not exist, create it. This is the default mode, so /UPDATE is optional. + +See also /DELETE /DIFFERENCE, /GROW, /FRESHEN. +<QUALIFIER> +/VERBOSE + +/VERBOSE[=NORMAL|MORE|DEBUG] [, COMMAND]] + +Verbose mode or print diagnostic version info. + +Normally, when applied to real operations, this option enables the +display of a progress indicator during compression (see /DISPLAY=DOTS +for more on dots) and requests verbose diagnostic info about archive +structure oddities. + +/VERBOSE with no value is equivalent to /VERBOSE=NORMAL. MORE adds more +messages, and DEBUG adds still more messages. + +When /VERBOSE is the only command line argument, a diagnostic report is +displayed, showing: + +<LITERAL> +| o Copyright and other legal notices +| o Program name, version, and release date +| o Pointers to Info-ZIP FTP and Web sites +| o Program build information (compiler type and version, OS version, +| and the compilation date +| o Optional features enabled at compile-time +| o Environment variable definitions (ZIP_OPTS, ZIPOPT) +<LARETIL> + +This information should be included in bug reports. + +/VERBOSE=COMMAND causes Zip to display the UNIX-style command-line +argument vector which is generated from the VMS-style CLI command line +before executing the command. This is of primary interest to program +developers debugging the CLI. +<QUALIFIER> +/VMS + +/VMS[=ALL] + +The /VMS and /VMS=ALL options cause Zip to store VMS file atributes +(such as file organization, record format, carriage control, and so on) +in VMS-specific "extra fields" in an archive along with the usual data. +These extra fields are ignored on non-VMS systems, but on a VMS system, +they allow UnZip to restore the files with their VMS attributes intact. + +With /VMS, Zip ignores any data in the file after the end-of-file (EOF) +point (defined by FAT$L_EFBLK and FAT$W_FFBYTE), which works well for +well-formed files (that is, those with no valid data beyond EOF). +Portable-format files (Stream_LF, fixed-512) archived with /VMS should +be extracted properly on a non-VMS system. Files with more complex +structures, such as indexed files and files with embedded byte counts or +other such data may be of limited use on other systems. (UnZip on +non-VMS systems may be able to extract various VMS-format text files, +however.) + +With /VMS=ALL, Zip processes all allocated blocks for the file +(including those beyond EOF). When extracted on a VMS system, the +original file should be reproduced with as much fidelity as possible, +but on a non-VMS system, most files will be seen as corrupt because of +the data from beyond EOF. +<QUALIFIER> +/WILDCARD + +<LITERAL> +/NOWILDCARD +/WILDCARD=NOSPAN +<LARETIL> + +Controls wildcard processing. + +/NOWILDCARD Wildcard processing is disabled. + +/WILDCARD=NOSPAN Wildcards don't span directory boundaries in paths. +<QUALIFIER> +/ZIP64 + +/ZIP64 + +Forces use of Zip64 archive format, even for small files. This is +mainly for testing and should never be used. Zip will automatically +use Zip64 as needed without this option. +<TOPIC> +UNIX_Options + +"zip -h" provides a concise list of common command-line options. "zip +-h2" provides more details. "zip -so" provides a list of all available +options. "zip -v" shows the program version and available features. +(The list below was derived from a "zip -so" listing.) + +Short-form options begin with a single hyphen ("-"). Long-form option +begin with a double hyphen ("--"), and may be abbreviated to any +unambiguous shorter string. For example: + +<LITERAL> +| -v +| --verbose +| --verb +<LARETIL> + +To avoid confusion, if a negatable option contains an embedded hyphen +("-"), then avoid abbreviating it at the hyphen if you plan to negate +it. For example, if an option like --some-option were abbreviated to +--some-, the parser would consider that trailing hyphen to be part of +the option name, rather than as a negating trailing hyphen. This +behavior may change in the future, to interpret the trailing hyphen in +--some- to be negating. (So don't do it.) + +Some options may be negated (or modified) by appending a "-": + +<LITERAL> +| -la- +| --show-files- +<LARETIL> + +Some options take a value, which may immediately follow the option, or +be separated by a space or "=". For example: +<LITERAL> +| -ttmmddyyyy +| -tt mmddyyyy +| -tt=mmddyyyy +<LARETIL> + +<LITERAL0> +| Sh Long Description +|----+-------------------+------------------------------------------------ +| 0 store store (instead of compress) +| 1 compress-1 compress faster (-2, -3, -4, ...) +| 9 compress-9 compress better +| ? show the Zip help screen +| @ names-stdin read input file patterns from SYS$INPUT (1/line) +| A adjust-sfx adjust self-extracting executable +| b temp-path path use "path" directory for temporary files +| C preserve-case preserve case of all file names added to archive +| C- preserve-case- down-case all file names added to archive +| C2 preserve-case-2 preserve case of ODS2 names added to archive +| C2- preserve-case-2- down-case ODS2 file added to archive (default) +| C5 preserve-case-5 preserve case of ODS5 names added to arcv (dflt) +| C5- preserve-case-5- down-case ODS5 names added to archive +| c entry-comments add a comment for each entry added to archive +| D no-dir-entries do not add archive entries for directories +| DF difference-archive difference archive: add only changed/new files +| d delete delete entries in archive +| db display-bytes display running byte counts +| dc display-counts display running file counts +| dd display-dots display progress dots for files (dflt sz = 10MB) +| dg display-globaldots display progress dots for archive, not each file +| ds dot-size size set progress dot interval to "size" (MB) +| du display-usize display original uncompressed size for entries +| dv display-volume display volume (disk) number as in_disk>out_disk +| e encrypt encrypt entries, ask for password +| F fix fix mostly intact archive (try F before FF) +| FF fixfix salvage what can be salvaged (not as reliable) +| FS filesync remove archive entries unmatched in file system +| f freshen update existing entries (only changed files) +| fd force-descriptors force data descriptors as if streaming +| fz force-zip64 force use of Zip64 format +| g grow grow existing archive (unless update or delete) +| H show the Zip help screen +| h help show the Zip help screen +| h2 more-help show extended Zip help +| i include pat1 [pat2 [...]] include only names matching the patterns +| J junk-sfx junk (remove) archive preamble (unzipsfx) +| j junk-paths junk (don't store) dir names, only file names +| k DOS-names simulate PKZIP-made archive (DOS 8.3 names) +| L license show software license +| l to-crlf translate end-of-lines (LF -> CRLF) +| la log-append append to existing log file +| lf logfile-path lfile log to log file at lfile (default: new version) +| li log-info include informational messages in log +| ll from-crlf translate end-of-lines (CRLF -> LF) +| MM must-match input file spec must exist (wildcrds must match) +| m move delete files added to archive +| n suffixes sfx1[:sfx2[...]] don't compress files with these suffixes +| nw no-wild no wildcards during add or update +| O output-file ozf use "ozf" as the output archive (dflt = inp archv) +| o latest-time set archive date-time to match oldest entry +| P password password encrypt with supplied "password" string +| q quiet quiet operation (no info messages) +| R recurse-patterns recurse subdirs from cur dir, match names only +| r recurse-paths recurse directories from specified path pats +| s split-size size split archive at "size" (K/MB) (0: don't split) +| sb split-bell ring termnl bell at pause for split medium chng +| sc show-command show command line +| sd show-debug show debug messages +| sf show-files show files to process (only) +| so show-options show list of all command-line options +| sp split-pause pause to select split destination(s) +| sv split-verbose be verbose about creating splits +| T test test archive integrity (runs UnZip -T) +| t from-date mmddyyyy only do files since (at or after) "mmddyyyy" +| tt before-date mmddyyyy only do files before "mmddyyyy" +| u update update changed files, add new files (default) +| V VMS-portable save VMS file attributes +| VV VMS-specific save VMS file attributes and all allocated blks +| v verbose verbose messages (version info if only arg) +| w VMS-versions save VMS version numbers in archive +| ww VMS-dot-versions save VMS version numbers as ".nnn", not ";nnn" +| X strip-extra strip all but critical extra fields +| X- strip-extra- keep all extra fields +| x exclude pat1 [pat2 [...]] exclude all names matching the patterns +| Z compression-method mthd use cmprs method "mthd" (bzip2 or deflate) +| z archive-comment ask for archive comment +<0LARETIL> + +With SET PROCESS /PARSE_STYLE = EXTENDED (available on recent non-VAX +systems), Zip preserves the case of the command line. Otherwise, mixed- +or upper-case options and arguments must be quoted. For example, +"-V". Examples in this document generally do not show this quotation. +<TOPIC> +Copyright_and_License + +Zip has an option to display its copyright and license. + +<LITERAL> +| /LICENSE +<LARETIL> + +The license is reproduced below. + +This is version 2007-Mar-4 of the Info-ZIP license. The definitive +version of this document should be available at +ftp://ftp.info-zip.org/pub/infozip/license.html indefinitely and a copy +at http://www.info-zip.org/pub/infozip/license.html. + +-------------------------------------------------------- +<LITERAL0> +|Copyright (c) 1990-2007 Info-ZIP. All rights reserved. +| +|For the purposes of this copyright and license, "Info-ZIP" is defined as +|the following set of individuals: +| +|Mark Adler, John Bush, Karl Davis, Harald Denker, Jean-Michel Dubois, +|Jean-loup Gailly, Hunter Goatley, Ed Gordon, Ian Gorman, Chris Herborth, +|Dirk Haase, Greg Hartwig, Robert Heath, Jonathan Hudson, Paul Kienitz, +|David Kirschbaum, Johnny Lee, Onno van der Linden, Igor Mandrichenko, +|Steve P. Miller, Sergio Monesi, Keith Owens, George Petrov, Greg Roelofs, +|Kai Uwe Rommel, Steve Salisbury, Dave Smith, Steven M. Schweda, +|Christian Spieler, Cosmin Truta, Antoine Verheijen, Paul von Behren, +|Rich Wales, Mike White. +| +|This software is provided "as is," without warranty of any kind, express +|or implied. In no event shall Info-ZIP or its contributors be held +|liable for any direct, indirect, incidental, special or consequential +|damages arising out of the use of or inability to use this software. +| +|Permission is granted to anyone to use this software for any purpose, +|including commercial applications, and to alter it and redistribute it +|freely, subject to the above disclaimer and the following restrictions: +| +|1. Redistributions of source code (in whole or in part) must retain +| the above copyright notice, definition, disclaimer, and this list +| of conditions. +| +|2. Redistributions in binary form (compiled executables and libraries) +| must reproduce the above copyright notice, definition, disclaimer, +| and this list of conditions in documentation and/or other materials +| provided with the distribution. The sole exception to this condition +| is redistribution of a standard UnZipSFX binary (including SFXWiz) as +| part of a self-extracting archive; that is permitted without inclusion +| of this license, as long as the normal SFX banner has not been removed +| from the binary or disabled. +| +|3. Altered versions -- including, but not limited to, ports to new +| operating systems, existing ports with new graphical interfaces, +| versions with modified or added functionality, and dynamic, shared, +| or static library versions not from Info-ZIP -- must be plainly marked +| as such and must not be misrepresented as being the original source +| or, if binaries, compiled from the original source. Such altered +| versions also must not be misrepresented as being Info-ZIP releases -- +| including, but not limited to, labeling of the altered versions with +| the names "Info-ZIP" (or any variation thereof, including, but not +| limited to, different capitalizations), "Pocket UnZip," "WiZ" or +| "MacZip" without the explicit permission of Info-ZIP. Such altered +| versions are further prohibited from misrepresentative use of the +| Zip-Bugs or Info-ZIP e-mail addresses or the Info-ZIP URL(s), such as +| to imply Info-ZIP will provide support for the altered versions. +| +|4. Info-ZIP retains the right to use the names "Info-ZIP", "Zip", +| "UnZip", "UnZipSFX", "WiZ", "Pocket UnZip", "Pocket Zip", and +| "MacZip" for its own source and binary releases. +<0LARETIL> + +=== diff --git a/vms/zip_msg.msg b/vms/zip_msg.msg new file mode 100644 index 0000000..8654148 --- /dev/null +++ b/vms/zip_msg.msg @@ -0,0 +1,57 @@ +! VMS Error Message Source File for Zip +! +! Because the facility code was formally assigned by HP, the .FACILITY +! directive below specifies /SYSTEM. Because the messages are, in +! general, specific to Zip, this file is not compiled with /SHARED. +! For example: +! +! MESSAGE /OBJECT = [.dest]ZIP_MSG.OBJ /NOSYMBOLS [.VMS]ZIP_MSG.MSG +! +! LINK /SHAREABLE = [.dest]ZIP_MSG.EXE [.dest]ZIP_MSG.OBJ +! +!----------------------------------------------------------------------- + +.TITLE Info-ZIP Zip Error Messages +.FACILITY IZ_ZIP, 1955 /SYSTEM +.IDENT 'V3.0-000' + +.BASE 0 +OK /SUCCESS <Normal successful completion> +.BASE 4 +EOF /FATAL <Unexpected end of zip file> +.BASE 6 +FORM /ERROR <Zip file structure invalid> +.BASE 8 +MEM /FATAL <Out of memory> +.BASE 10 +LOGIC /FATAL <Internal logic error> +.BASE 12 +BIG /ERROR <Entry too big to split, read, or write> +.BASE 14 +NOTE /ERROR <Invalid comment format> +.BASE 16 +TEST /FATAL <Zip file invalid, could not spawn unzip, or wrong unzip> +.BASE 18 +ABORT /ERROR <Interrupted> +.BASE 20 +TEMP /FATAL <Temporary file failure> +.BASE 22 +READ /FATAL <Input file read failure> +.BASE 24 +NONE /WARNING <Nothing to do!> +.BASE 26 +NAME /ERROR <Missing or empty zip file> +.BASE 28 +WRITE /FATAL <Output file write failure> +.BASE 30 +CREAT /FATAL <Could not create output file> +.BASE 32 +PARMS /ERROR <Invalid command arguments> +.BASE 36 +OPEN /ERROR <File not found or no read permission> +.BASE 38 +COMPERR /FATAL <Not supported> +.BASE 40 +ZIP64 /FATAL <Attempt to read unsupported Zip64 archive> + +.END diff --git a/vms/zipup.h b/vms/zipup.h new file mode 100644 index 0000000..8fe757f --- /dev/null +++ b/vms/zipup.h @@ -0,0 +1,56 @@ +/* + Copyright (c) 1990-2005 Info-ZIP. All rights reserved. + + See the accompanying file LICENSE, version 2005-Feb-10 or later + (the contents of which are also included in zip.h) for terms of use. + If, for some reason, all these files are missing, the Info-ZIP license + also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html +*/ + +#ifndef __zipup_h +#define __zipup_h 1 + +#ifndef NO_ZIPUP_H + +#define fbad NULL +typedef void *ftype; +#define zopen(n,p) (vms_native?vms_open(n) :(ftype)fopen((n), p)) +#define zread(f,b,n) (vms_native?vms_read(f,b,n):fread((b),1,(n),(FILE*)(f))) +#define zclose(f) (vms_native?vms_close(f) :fclose((FILE*)(f))) +#define zerr(f) (vms_native?vms_error(f) :ferror((FILE*)(f))) +#define zstdin stdin + +ftype vms_open OF((char *)); +unsigned int vms_read OF((ftype, char *, unsigned int)); +int vms_close OF((ftype)); +int vms_error OF((ftype)); +#ifdef VMS_PK_EXTRA +int vms_get_attributes OF((ftype, struct zlist far *, iztimes *)); +#endif + +#endif /* !NO_ZIPUP_H */ +#endif /* !__zipup_h */ + + +#ifndef __zipup_cb_h +#define __zipup_cb_h 1 + +#ifdef __DECC + +/* File open callback ID values. (See also OSDEP.H.) */ + +# define FHOW_ID 4 + +/* File open callback ID storage. */ + +extern int fhow_id; + +#define fhow "r", "acc", acc_cb, &fhow_id + +#else /* def __DECC */ /* (So, GNU C, VAX C, ...)*/ + +#define fhow "r", "mbc=60" + +#endif /* def __DECC */ + +#endif /* ndef __zipup_cb_h */ |