mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-27 15:52:28 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1
cosmopolitan/third_party/infozip/zip/cmsmvs/cmsmvs.c
ahgamut 4ce5664c4b added zip from Info-ZIP
2021-06-22 12:38:56 -07:00

442 lines
11 KiB
C
Raw Blame History

/*
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
*/
/*
* routines common to VM/CMS and MVS
*/
#include "zip.h"
#include <stdio.h>
#include <time.h>
#include <errno.h>
#ifndef MVS /* MVS has perfectly good definitions of the following */
int stat(const char *path, struct stat *buf)
{
if ((buf->fp = fopen(path, "r")) != NULL) {
fldata_t fdata;
if (fldata( buf->fp, buf->fname, &fdata ) == 0) {
buf->st_dev = fdata.__device;
buf->st_mode = *(short *)(&fdata);
}
strcpy( buf->fname, path );
fclose(buf->fp);
}
return (buf->fp != NULL ? 0 : 1);
}
#endif /* MVS */
#ifndef UTIL /* the companion #endif is a bit of ways down ... */
#define PAD 0
#define PATH_END '/'
/* Library functions not in (most) header files */
#ifdef USE_ZIPMAIN
int main OF((void));
#endif
int utime OF((char *, ztimbuf *));
extern char *label;
local ulg label_time = 0;
local ulg label_mode = 0;
local time_t label_utim = 0;
#ifndef MVS /* MVS has perfectly good definitions of the following */
int fstat(int fd, struct stat *buf)
{
fldata_t fdata;
if ((fd != -1) && (fldata( (FILE *)fd, buf->fname, &fdata ) == 0)) {
buf->st_dev = fdata.__device;
buf->st_mode = *(short *)(&fdata);
buf->fp = (FILE *)fd;
return 0;
}
return -1;
}
#endif /* MVS */
char *ex2in(x, isdir, 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. */
{
char *n; /* internal file name (malloc'ed) */
char *t; /* shortened name */
int dosflag;
char mem[10] = ""; /* member name */
char ext[10] = ""; /* extension name */
dosflag = dosify; /* default for non-DOS non-OS/2 */
/* Find starting point in name before doing malloc */
for (t = x; *t == '/'; t++)
;
/* Make changes, if any, to the copied name (leave original intact) */
if (!pathput)
t = last(t, PATH_END);
/* Malloc space for internal name and copy it */
if ((n = malloc(strlen(t) + 1)) == NULL)
return NULL;
strcpy(n, t);
#ifdef MVS
/* strip quotes from name, non-OE format */
if (*n == '\'' && (t = strrchr(n, '\'')) != n) {
if (!*(t+1)) {
/* yes, it is a quoted name */
int l = strlen(n) - 2;
memmove(n, n+1, l);
*(n+l) = '\0';
}
}
/* Change member names to fn.ext */
if (t = strrchr(n, '(')) {
*t = '\0';
strcpy(mem,t+1); /* Save member name */
if (t = strchr(mem, ')')) *t = '\0'; /* Set end of mbr */
/* Save extension */
if (t = strrchr(n, '.')) t++;
else t = n;
strcpy(ext,t);
/* Build name as "member.ext" */
strcpy(t,mem);
strcat(t,".");
strcat(t,ext);
}
/* Change all but the last '.' to '/' */
if (t = strrchr(n, '.')) {
while (--t > n)
if (*t == '.')
*t = '/';
}
#else
/* On CMS, remove the filemode (all past 2nd '.') */
if (t = strchr(n, '.'))
if (t = strchr(t+1, '.'))
*t = '\0';
t = n;
#endif
strcpy(n, t);
if (isdir == 42) return n; /* avoid warning on unused variable */
if (dosify)
msname(n); /* msname() needs string in native charset */
strtoasc(n, n);
/* Returned malloc'ed name */
if (pdosflag)
*pdosflag = dosflag;
return n;
}
char *in2ex(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 */
if ((x = malloc(strlen(n) + 1 + PAD)) == NULL)
return NULL;
strtoebc(x, n);
return x;
}
void stamp(f, 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. */
{
ztimbuf u; /* argument for utime() */
/* Convert DOS time to time_t format in u.actime and u.modtime */
u.actime = u.modtime = dos2unixtime(d);
utime(f, &u);
}
ulg filetime(f, a, n, t)
char *f; /* name of file to get info on */
ulg *a; /* return value: file attributes */
long *n; /* return value: file size */
iztimes *t; /* return value: access, modific. and creation times */
{
FILE *stream;
time_t ltime;
if (strcmp(f, "-") != 0) { /* if not compressing stdin */
Trace((mesg, "opening file '%s' with '%s'\n", f, FOPR));
if ((stream = fopen(f, FOPR)) == (FILE *)NULL) {
return 0;
} else {
if (n != NULL) {
/* With byteseek, this will work */
fseek(stream, 0L, SEEK_END);
*n = ftell(stream);
Trace((mesg, "file size = %lu\n", *((ulg *)n)));
}
fclose(stream);
}
}
else {
/* Reading from stdin */
if (n != NULL) {
*n = -1L;
}
}
/* Return current time for all the times -- for now */
time(&ltime);
if (t != NULL)
t->atime = t->mtime = t->ctime = ltime;
/* Set attributes (always a file) */
if (a != NULL)
*a = 0;
return unix2dostime(&ltime);
}
int set_extra_field(z, z_utim)
struct zlist far *z;
iztimes *z_utim;
/* create extra field and change z->att if desired */
{
fldata_t fdata;
FILE *stream;
char *eb_ptr;
#ifdef USE_EF_UT_TIME
extent ef_l_len = (EB_HEADSIZE+EB_UT_LEN(1));
#else /* !USE_EF_UT_TIME */
extent ef_l_len = 0;
#endif /* ?USE_EF_UT_TIME */
int set_cmsmvs_eb = 0;
/*translate_eol = 0;*/
if (aflag == ASCII) {
z->att = ASCII;
} else {
if (bflag)
z->att = BINARY;
else
z->att = __EBCDIC;
ef_l_len += sizeof(fdata)+EB_HEADSIZE;
set_cmsmvs_eb = 1;
}
if (ef_l_len > 0) {
z->extra = (char *)malloc(ef_l_len);
if (z->extra == NULL) {
printf("\nFLDATA : Unable to allocate memory !\n");
return ZE_MEM;
}
z->cext = z->ext = ef_l_len;
eb_ptr = z->cextra = z->extra;
if (set_cmsmvs_eb) {
if (bflag)
/*** stream = fopen(z->zname,"rb,type=record"); $RGH$ ***/
stream = fopen(z->name,"rb");
else
stream = fopen(z->name,"r");
if (stream == NULL) {
printf("\nFLDATA : Could not open file : %s !\n",z->name);
printf("Error %d: '%s'\n", errno, strerror(errno));
return ZE_NONE;
}
fldata(stream,z->name,&fdata);
/*put the system ID */
#ifdef VM_CMS
*(eb_ptr) = EF_VMCMS & 0xFF;
*(eb_ptr+1) = EF_VMCMS >> 8;
#else
*(eb_ptr) = EF_MVS & 0xFF;
*(eb_ptr+1) = EF_MVS >> 8;
#endif
*(eb_ptr+2) = sizeof(fdata) & 0xFF;
*(eb_ptr+3) = sizeof(fdata) >> 8;
memcpy(eb_ptr+EB_HEADSIZE,&fdata,sizeof(fdata));
fclose(stream);
#ifdef USE_EF_UT_TIME
eb_ptr += (sizeof(fdata)+EB_HEADSIZE);
#endif /* USE_EF_UT_TIME */
}
#ifdef USE_EF_UT_TIME
eb_ptr[0] = 0x55; /* ascii[(unsigned)('U')] */
eb_ptr[1] = 0x54; /* ascii[(unsigned)('T')] */
eb_ptr[2] = EB_UT_LEN(1); /* length of data part of e.f. */
eb_ptr[3] = 0;
eb_ptr[4] = EB_UT_FL_MTIME;
eb_ptr[5] = (char)(z_utim->mtime);
eb_ptr[6] = (char)(z_utim->mtime >> 8);
eb_ptr[7] = (char)(z_utim->mtime >> 16);
eb_ptr[8] = (char)(z_utim->mtime >> 24);
#endif /* USE_EF_UT_TIME */
}
return ZE_OK;
}
int deletedir(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]).
*/
{
return 0;
}
#ifdef USE_ZIPMAIN
/* This function is called as main() to parse arguments */
/* into argc and argv. This is required for stand-alone */
/* execution. This calls the "real" main() when done. */
int main(void)
{
int argc=0;
char *argv[50];
int iArgLen;
char argstr[256];
char **pEPLIST, *pCmdStart, *pArgStart, *pArgEnd;
/* Get address of extended parameter list from S/370 Register 0 */
pEPLIST = (char **)__xregs(0);
/* Null-terminate the argument string */
pCmdStart = *(pEPLIST+0);
pArgStart = *(pEPLIST+1);
pArgEnd = *(pEPLIST+2);
iArgLen = pArgEnd - pCmdStart + 1;
/* Make a copy of the command string */
memcpy(argstr, pCmdStart, iArgLen);
argstr[iArgLen] = '\0'; /* Null-terminate */
/* Store first token (cmd) */
argv[argc++] = strtok(argstr, " ");
/* Store the rest (args) */
while (argv[argc-1])
argv[argc++] = strtok(NULL, " ");
argc--; /* Back off last NULL entry */
/* Call "real" main() function */
return zipmain(argc, argv);
}
#endif /* USE_ZIPMAIN */
#endif /* !UTIL */
/******************************/
/* Function version_local() */
/******************************/
void version_local()
{
char liblvlmsg [50+1];
char *compiler = "?";
char *platform = "?";
char complevel[64];
/* Map the runtime library level information */
union {
unsigned int iVRM;
struct {
unsigned int pd:4; /* Product designation */
unsigned int vv:4; /* Version */
unsigned int rr:8; /* Release */
unsigned int mm:16; /* Modification level */
} xVRM;
} VRM;
/* Break down the runtime library level */
VRM.iVRM = __librel();
sprintf(liblvlmsg, "Using runtime library level %s V%dR%dM%d",
(VRM.xVRM.pd==1 ? "LE" : "CE"),
VRM.xVRM.vv, VRM.xVRM.rr, VRM.xVRM.mm);
/* Note: LE = Language Environment, CE = Common Env. (C/370). */
/* This refers ONLY to the current runtimes, not the compiler. */
#ifdef VM_CMS
platform = "VM/CMS";
#ifdef __IBMC__
compiler = "IBM C";
#else
compiler = "C/370";
#endif
#endif
#ifdef MVS
platform = "MVS";
#ifdef __IBMC__
compiler = "IBM C/C++";
#else
compiler = "C/370";
#endif
#endif
#ifdef __COMPILER_VER__
VRM.iVRM = __COMPILER_VER__;
sprintf(complevel," V%dR%dM%d",
VRM.xVRM.vv, VRM.xVRM.rr, VRM.xVRM.mm);
#else
#ifdef __IBMC__
sprintf(complevel," V%dR%d", __IBMC__ / 100, (__IBMC__ % 100)/10);
#else
complevel[0] = '\0';
#endif
#endif
printf("Compiled with %s%s for %s%s%s.\n\n",
/* Add compiler name and level */
compiler, complevel,
/* Add platform */
platform,
/* Add timestamp */
#ifdef __DATE__
" on " __DATE__
#ifdef __TIME__
" at " __TIME__
#endif
#endif
".\n",
liblvlmsg
);
} /* end function version_local() */
Reference in a new issue View git blame Copy permalink