mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-01-31 11:37:35 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
cosmopolitan/third_party/zip/unix.c
Justine Tunney b0df6c1fce
Implement proper time zone support 
Cosmopolitan now supports 104 time zones. They're embedded inside any
binary that links the localtime() function. Doing so adds about 100kb
to the binary size. This change also gets time zones working properly
on Windows for the first time. It's not needed to have /etc/localtime
exist on Windows, since we can get this information from WIN32. We're
also now updated to the latest version of Paul Eggert's TZ library.
2024-05-04 23:06:37 -07:00

1022 lines
28 KiB
C
Raw Blame History

/*
unix/unix.c - Zip 3
Copyright (c) 1990-2008 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
*/
#include "third_party/zip/osdep.h"
#include "third_party/zip/zip.h"
#ifndef UTIL /* the companion #endif is a bit of ways down ... */
#include "libc/calls/struct/timespec.h"
#include "libc/calls/struct/timeval.h"
#include "libc/calls/weirdtypes.h"
#include "libc/sysv/consts/clock.h"
#include "libc/sysv/consts/sched.h"
#include "libc/sysv/consts/timer.h"
#include "libc/time.h"
#if defined(MINIX) || defined(__mpexl)
# ifdef S_IWRITE
# undef S_IWRITE
# endif /* S_IWRITE */
# define S_IWRITE S_IWUSR
#endif /* MINIX */
#if (!defined(S_IWRITE) && defined(S_IWUSR))
# define S_IWRITE S_IWUSR
#endif
#if defined(HAVE_DIRENT_H) || defined(_POSIX_VERSION)
#include "libc/calls/calls.h"
#include "libc/calls/struct/dirent.h"
#include "libc/calls/weirdtypes.h"
#include "libc/sysv/consts/dt.h"
#else /* !HAVE_DIRENT_H */
# ifdef HAVE_NDIR_H
// MISSING #include <ndir.h>
# endif /* HAVE_NDIR_H */
# ifdef HAVE_SYS_NDIR_H
// MISSING #include <sys/ndir.h>
# endif /* HAVE_SYS_NDIR_H */
# ifdef HAVE_SYS_DIR_H
#include "libc/calls/calls.h"
#include "libc/sysv/consts/dt.h"
# endif /* HAVE_SYS_DIR_H */
# ifndef dirent
# define dirent direct
# endif
#endif /* HAVE_DIRENT_H || _POSIX_VERSION */
#define PAD 0
#define PATH_END '/'
/* Library functions not in (most) header files */
#ifdef _POSIX_VERSION
#include "libc/utime.h"
#else
int utime OF((char *, time_t *));
#endif
extern char *label;
local ulg label_time = 0;
local ulg label_mode = 0;
local time_t label_utim = 0;
/* Local functions */
local char *readd OF((DIR *));
local char *readd(d)
DIR *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. */
{
struct dirent *e;
e = readdir(d);
return e == NULL ? (char *) NULL : e->d_name;
}
int procname(n, 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. */
{
char *a; /* path and name for recursion */
DIR *d; /* directory stream from opendir() */
char *e; /* pointer to name from readd() */
int m; /* matched flag */
char *p; /* path for recursion */
z_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))
{
/* Not a file or directory--search for shell expression in zip file */
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 */
#ifdef OS390
if (S_ISREG(s.st_mode) || S_ISLNK(s.st_mode))
#else
# ifdef S_IFLNK
if ((s.st_mode & S_IFREG) == S_IFREG || (s.st_mode & S_IFLNK) == S_IFLNK)
# else
if ((s.st_mode & S_IFREG) == S_IFREG)
# endif
#endif
{
/* add or remove name of file */
if ((m = newname(n, 0, caseflag)) != ZE_OK)
return m;
}
#ifdef OS390
else if (S_ISDIR(s.st_mode))
#else
else if ((s.st_mode & S_IFDIR) == S_IFDIR)
#endif
{
/* Add trailing / to the directory name */
if ((p = malloc(strlen(n)+2)) == NULL)
return ZE_MEM;
if (strcmp(n, ".") == 0) {
*p = '\0'; /* avoid "./" prefix and do not create zip entry */
} else {
strcpy(p, n);
a = p + strlen(p);
if (a[-1] != '/')
strcpy(a, "/");
if (dirnames && (m = newname(p, 1, caseflag)) != ZE_OK) {
free((zvoid *)p);
return m;
}
}
/* recurse into directory */
if (recurse && (d = opendir(n)) != NULL)
{
while ((e = readd(d)) != NULL) {
if (strcmp(e, ".") && strcmp(e, ".."))
{
if ((a = malloc(strlen(p) + strlen(e) + 1)) == NULL)
{
closedir(d);
free((zvoid *)p);
return ZE_MEM;
}
strcat(strcpy(a, p), e);
if ((m = procname(a, caseflag)) != ZE_OK) /* recurse on name */
{
if (m == ZE_MISS)
zipwarn("name not matched: ", a);
else
ziperr(m, a);
}
free((zvoid *)a);
}
}
closedir(d);
}
free((zvoid *)p);
} /* (s.st_mode & S_IFDIR) */
#ifdef OS390
else if (S_ISFIFO(s.st_mode))
#else
else if ((s.st_mode & S_IFIFO) == S_IFIFO)
#endif
{
if (allow_fifo) {
/* FIFO (Named Pipe) - handle as normal file */
/* add or remove name of FIFO */
/* zip will stop if FIFO is open and wait for pipe to be fed and closed */
if (noisy) zipwarn("Reading FIFO (Named Pipe): ", n);
if ((m = newname(n, 0, caseflag)) != ZE_OK)
return m;
} else {
zipwarn("ignoring FIFO (Named Pipe) - use -FI to read: ", n);
return ZE_OK;
}
} /* S_IFIFO */
else
zipwarn("ignoring special file: ", n);
return ZE_OK;
}
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 = NULL; /* shortened name */
int dosflag;
dosflag = dosify; /* default for non-DOS and non-OS/2 */
/* Find starting point in name before doing malloc */
/* Strip "//host/share/" part of a UNC name */
if (!strncmp(x,"//",2) && (x[2] != '\0' && x[2] != '/')) {
n = x + 2;
while (*n != '\0' && *n != '/')
n++; /* strip host name */
if (*n != '\0') {
n++;
while (*n != '\0' && *n != '/')
n++; /* strip `share' name */
}
if (*n != '\0')
t = n + 1;
} else
t = x;
while (*t == '/')
t++; /* strip leading '/' chars to get a relative path */
while (*t == '.' && t[1] == '/')
t += 2; /* strip redundant leading "./" sections */
/* 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);
if (dosify)
msname(n);
#ifdef EBCDIC
strtoasc(n, n); /* here because msname() needs native coding */
#endif
/* Returned malloc'ed name */
if (pdosflag)
*pdosflag = dosflag;
if (isdir) return n; /* avoid warning on unused variable */
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;
#ifdef EBCDIC
strtoebc(x, n);
#else
strcpy(x, n);
#endif
return x;
}
/*
* XXX use ztimbuf in both POSIX and non POSIX cases ?
*/
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. */
{
#ifdef _POSIX_VERSION
struct utimbuf u; /* argument for utime() const ?? */
#else
time_t u[2]; /* argument for utime() */
#endif
/* Convert DOS time to time_t format in u */
#ifdef _POSIX_VERSION
u.actime = u.modtime = dos2unixtime(d);
utime(f, &u);
#else
u[0] = u[1] = dos2unixtime(d);
utime(f, u);
#endif
}
ulg filetime(f, a, n, 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 */
{
z_stat s; /* results of stat() */
/* converted to pointer from using FNMAX - 11/8/04 EG */
char *name;
int len = strlen(f);
if (f == label) {
if (a != NULL)
*a = label_mode;
if (n != NULL)
*n = -2L; /* 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 (zfstat(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) {
#ifndef OS390
*a = ((ulg)s.st_mode << 16) | !(s.st_mode & S_IWRITE);
#else
/*
** The following defines are copied from the unizip source and represent the
** legacy Unix mode flags. These fixed bit masks are no longer required
** by XOPEN standards - the S_IS### macros being the new recommended method.
** The approach here of setting the legacy flags by testing the macros should
** work under any _XOPEN_SOURCE environment (and will just rebuild the same bit
** mask), but is required if the legacy bit flags differ from legacy Unix.
*/
#define UNX_IFDIR 0040000 /* Unix directory */
#define UNX_IFREG 0100000 /* Unix regular file */
#define UNX_IFSOCK 0140000 /* Unix socket (BSD, not SysV or Amiga) */
#define UNX_IFLNK 0120000 /* Unix symbolic link (not SysV, Amiga) */
#define UNX_IFBLK 0060000 /* Unix block special (not Amiga) */
#define UNX_IFCHR 0020000 /* Unix character special (not Amiga) */
#define UNX_IFIFO 0010000 /* Unix fifo (BCC, not MSC or Amiga) */
{
mode_t legacy_modes;
/* Initialize with permission bits--which are not implementation-optional */
legacy_modes = s.st_mode & (S_IRWXU | S_IRWXG | S_IRWXO | S_ISUID | S_ISGID | S_ISVTX);
if (S_ISDIR(s.st_mode))
legacy_modes |= UNX_IFDIR;
if (S_ISREG(s.st_mode))
legacy_modes |= UNX_IFREG;
if (S_ISLNK(s.st_mode))
legacy_modes |= UNX_IFLNK;
if (S_ISBLK(s.st_mode))
legacy_modes |= UNX_IFBLK;
if (S_ISCHR(s.st_mode))
legacy_modes |= UNX_IFCHR;
if (S_ISFIFO(s.st_mode))
legacy_modes |= UNX_IFIFO;
if (S_ISSOCK(s.st_mode))
legacy_modes |= UNX_IFSOCK;
*a = ((ulg)legacy_modes << 16) | !(s.st_mode & S_IWRITE);
}
#endif
if ((s.st_mode & S_IFMT) == S_IFDIR) {
*a |= MSDOS_DIR_ATTR;
}
}
if (n != NULL)
*n = (s.st_mode & S_IFMT) == S_IFREG ? s.st_size : -1L;
if (t != NULL) {
t->atime = s.st_atime;
t->mtime = s.st_mtime;
t->ctime = t->mtime; /* best guess, (s.st_ctime: last status change!!) */
}
return unix2dostime(&s.st_mtime);
}
#ifndef QLZIP /* QLZIP Unix2QDOS cross-Zip supplies an extended variant */
int set_new_unix_extra_field(z, s)
struct zlist far *z;
z_stat *s;
/* New unix extra field.
Currently only UIDs and GIDs are stored. */
{
int uid_size;
int gid_size;
int ef_data_size;
char *extra;
char *cextra;
ulg id;
int b;
uid_size = sizeof(s->st_uid);
gid_size = sizeof(s->st_gid);
/* New extra field
tag (2 bytes)
size (2 bytes)
version (1 byte)
uid_size (1 byte - size in bytes)
uid (variable)
gid_size (1 byte - size in bytes)
gid (variable)
*/
ef_data_size = 1 + 1 + uid_size + 1 + gid_size;
if ((extra = (char *)malloc(z->ext + 4 + ef_data_size)) == NULL)
return ZE_MEM;
if ((cextra = (char *)malloc(z->ext + 4 + ef_data_size)) == NULL)
return ZE_MEM;
if (z->ext)
memcpy(extra, z->extra, z->ext);
if (z->cext)
memcpy(cextra, z->cextra, z->cext);
free(z->extra);
z->extra = extra;
free(z->cextra);
z->cextra = cextra;
z->extra[z->ext + 0] = 'u';
z->extra[z->ext + 1] = 'x';
z->extra[z->ext + 2] = (char)ef_data_size; /* length of data part */
z->extra[z->ext + 3] = 0;
z->extra[z->ext + 4] = 1; /* version */
/* UID */
z->extra[z->ext + 5] = (char)(uid_size); /* uid size in bytes */
b = 6;
id = (ulg)(s->st_uid);
z->extra[z->ext + b] = (char)(id & 0xFF);
if (uid_size > 1) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
if (uid_size > 2) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
if (uid_size == 8) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
}
}
}
/* GID */
b++;
z->extra[z->ext + b] = (char)(gid_size); /* gid size in bytes */
b++;
id = (ulg)(s->st_gid);
z->extra[z->ext + b] = (char)(id & 0xFF);
if (gid_size > 1) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
if (gid_size > 2) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
if (gid_size == 8) {
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
b++;
id = id >> 8;
z->extra[z->ext + b] = (char)(id & 0xFF);
}
}
}
/* copy local extra field to central directory extra field */
memcpy((z->cextra) + z->cext, (z->extra) + z->ext, 4 + ef_data_size);
z->ext = z->ext + 4 + ef_data_size;
z->cext = z->cext + 4 + ef_data_size;
return ZE_OK;
}
int set_extra_field(z, z_utim)
struct zlist far *z;
iztimes *z_utim;
/* store full data in local header but just modification time stamp info
in central header */
{
z_stat s;
char *name;
int len = strlen(z->name);
/* For the full sized UT local field including the UID/GID fields, we
* have to stat the file again. */
if ((name = malloc(len + 1)) == NULL) {
ZIPERR(ZE_MEM, "set_extra_field");
}
strcpy(name, z->name);
if (name[len - 1] == '/')
name[len - 1] = '\0';
/* not all systems allow stat'ing a file with / appended */
if (LSSTAT(name, &s)) {
free(name);
return ZE_OPEN;
}
free(name);
#define EB_L_UT_SIZE (EB_HEADSIZE + EB_UT_LEN(2))
#define EB_C_UT_SIZE (EB_HEADSIZE + EB_UT_LEN(1))
/* The flag UIDGID_NOT_16BIT should be set by the pre-compile configuration
script when it detects st_uid or st_gid sizes differing from 16-bit.
*/
#ifndef UIDGID_NOT_16BIT
/* The following "second-level" check for st_uid and st_gid members being
16-bit wide is only added as a safety precaution in case the "first-level"
check failed to define the UIDGID_NOT_16BIT symbol.
The first-level check should have been implemented in the automatic
compile configuration process.
*/
# ifdef UIDGID_ARE_16B
# undef UIDGID_ARE_16B
# endif
/* The following expression is a compile-time constant and should (hopefully)
get optimized away by any sufficiently intelligent compiler!
*/
# define UIDGID_ARE_16B (sizeof(s.st_uid) == 2 && sizeof(s.st_gid) == 2)
# define EB_L_UX2_SIZE (EB_HEADSIZE + EB_UX2_MINLEN)
# define EB_C_UX2_SIZE EB_HEADSIZE
# define EF_L_UNIX_SIZE (EB_L_UT_SIZE + (UIDGID_ARE_16B ? EB_L_UX2_SIZE : 0))
# define EF_C_UNIX_SIZE (EB_C_UT_SIZE + (UIDGID_ARE_16B ? EB_C_UX2_SIZE : 0))
#else
# define EF_L_UNIX_SIZE EB_L_UT_SIZE
# define EF_C_UNIX_SIZE EB_C_UT_SIZE
#endif /* !UIDGID_NOT_16BIT */
if ((z->extra = (char *)malloc(EF_L_UNIX_SIZE)) == NULL)
return ZE_MEM;
if ((z->cextra = (char *)malloc(EF_C_UNIX_SIZE)) == NULL)
return ZE_MEM;
z->extra[0] = 'U';
z->extra[1] = 'T';
z->extra[2] = (char)EB_UT_LEN(2); /* length of data part of local e.f. */
z->extra[3] = 0;
z->extra[4] = EB_UT_FL_MTIME | EB_UT_FL_ATIME; /* st_ctime != creation */
z->extra[5] = (char)(s.st_mtime);
z->extra[6] = (char)(s.st_mtime >> 8);
z->extra[7] = (char)(s.st_mtime >> 16);
z->extra[8] = (char)(s.st_mtime >> 24);
z->extra[9] = (char)(s.st_atime);
z->extra[10] = (char)(s.st_atime >> 8);
z->extra[11] = (char)(s.st_atime >> 16);
z->extra[12] = (char)(s.st_atime >> 24);
#ifndef UIDGID_NOT_16BIT
/* Only store the UID and GID in the old Ux extra field if the runtime
system provides them in 16-bit wide variables. */
if (UIDGID_ARE_16B) {
z->extra[13] = 'U';
z->extra[14] = 'x';
z->extra[15] = (char)EB_UX2_MINLEN; /* length of data part of local e.f. */
z->extra[16] = 0;
z->extra[17] = (char)(s.st_uid);
z->extra[18] = (char)(s.st_uid >> 8);
z->extra[19] = (char)(s.st_gid);
z->extra[20] = (char)(s.st_gid >> 8);
}
#endif /* !UIDGID_NOT_16BIT */
z->ext = EF_L_UNIX_SIZE;
memcpy(z->cextra, z->extra, EB_C_UT_SIZE);
z->cextra[EB_LEN] = (char)EB_UT_LEN(1);
#ifndef UIDGID_NOT_16BIT
if (UIDGID_ARE_16B) {
/* Copy header of Ux extra field from local to central */
memcpy(z->cextra+EB_C_UT_SIZE, z->extra+EB_L_UT_SIZE, EB_C_UX2_SIZE);
z->cextra[EB_LEN+EB_C_UT_SIZE] = 0;
}
#endif
z->cext = EF_C_UNIX_SIZE;
#if 0 /* UID/GID presence is now signaled by central EF_IZUNIX2 field ! */
/* lower-middle external-attribute byte (unused until now):
* high bit => (have GMT mod/acc times) >>> NO LONGER USED! <<<
* second-high bit => have Unix UID/GID info
* NOTE: The high bit was NEVER used in any official Info-ZIP release,
* but its future use should be avoided (if possible), since it
* was used as "GMT mod/acc times local extra field" flags in Zip beta
* versions 2.0j up to 2.0v, for about 1.5 years.
*/
z->atx |= 0x4000;
#endif /* never */
/* new unix extra field */
set_new_unix_extra_field(z, &s);
return ZE_OK;
}
#endif /* !QLZIP */
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]).
*/
{
# ifdef NO_RMDIR
/* 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;
sprintf(s, "IFS=\" \t\n\" /bin/rmdir %s 2>/dev/null", d);
r = system(s);
free(s);
return r;
# else /* !NO_RMDIR */
return rmdir(d);
# endif /* ?NO_RMDIR */
}
#endif /* !UTIL */
/******************************/
/* Function version_local() */
/******************************/
#if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__386BSD__) || \
defined(__OpenBSD__) || defined(__bsdi__)
#include "libc/calls/calls.h"
#include "libc/calls/struct/rlimit.h"
#include "libc/calls/struct/rusage.h"
#include "libc/stdio/sysparam.h"
#include "libc/calls/weirdtypes.h"
#include "libc/limits.h"
#include "libc/sysv/consts/endian.h"
#include "libc/sysv/consts/prio.h"
#include "libc/sysv/consts/rlim.h"
#include "libc/sysv/consts/rlimit.h"
#include "libc/sysv/consts/rusage.h" /* for the BSD define */
/* if we have something newer than NET/2 we'll use uname(3) */
#if (BSD > 199103)
#include "libc/calls/struct/utsname.h"
#endif /* BSD > 199103 */
#endif /* __{Net,Free,Open,386}BSD__ || __bsdi__ */
void version_local()
{
#ifdef __GNUC__
# ifdef NX_CURRENT_COMPILER_RELEASE
char compiler_name[80];
# endif
#else
# if (defined( __SUNPRO_C))
char compiler_name[33];
# else
# if (defined( __HP_cc) || defined( __IBMC__))
char compiler_name[33];
# else
# if (defined( __DECC_VER))
char compiler_name[33];
int compiler_typ;
# else
# if ((defined(CRAY) || defined(cray)) && defined(_RELEASE))
char compiler_name[40];
# endif
# endif
# endif
# endif
#endif
#ifdef BSD
# if (BSD > 199103)
struct utsname u;
char os_name[40];
# else
# if defined(__NETBSD__))
static ZCONST char *netbsd[] = { "_ALPHA", "", "A", "B" };
char os_name[40];
# endif /* __NETBSD__ */
# endif /* BSD > 199103 */
#else /* !BSD */
#if ((defined(CRAY) || defined(cray)) && defined(_UNICOS))
char os_name[40];
#endif /* (CRAY && defined(_UNICOS)) */
#endif /* ?BSD */
/* Define the compiler name and version string */
#ifdef __GNUC__
# ifdef NX_CURRENT_COMPILER_RELEASE
sprintf(compiler_name, "NeXT DevKit %d.%02d (gcc " __VERSION__ ")",
NX_CURRENT_COMPILER_RELEASE/100, NX_CURRENT_COMPILER_RELEASE%100);
# define COMPILER_NAME compiler_name
# else
# define COMPILER_NAME "gcc " __VERSION__
# endif
#else /* !__GNUC__ */
# if defined(__SUNPRO_C)
sprintf( compiler_name, "Sun C version %x", __SUNPRO_C);
# define COMPILER_NAME compiler_name
# else
# if (defined( __HP_cc))
if ((__HP_cc% 100) == 0)
{
sprintf( compiler_name, "HP C version A.%02d.%02d",
(__HP_cc/ 10000), ((__HP_cc% 10000)/ 100));
}
else
{
sprintf( compiler_name, "HP C version A.%02d.%02d.%02d",
(__HP_cc/ 10000), ((__HP_cc% 10000)/ 100), (__HP_cc% 100));
}
# define COMPILER_NAME compiler_name
# else
# if (defined( __DECC_VER))
sprintf( compiler_name, "DEC C version %c%d.%d-%03d",
((compiler_typ = (__DECC_VER / 10000) % 10) == 6 ? 'T' :
(compiler_typ == 8 ? 'S' : 'V')),
__DECC_VER / 10000000,
(__DECC_VER % 10000000) / 100000, __DECC_VER % 1000);
# define COMPILER_NAME compiler_name
# else
# if ((defined(CRAY) || defined(cray)) && defined(_RELEASE))
sprintf(compiler_name, "cc version %d", _RELEASE);
# define COMPILER_NAME compiler_name
# else
# ifdef __IBMC__
sprintf( compiler_name, "IBM C version %d.%d.%d",
(__IBMC__/ 100), ((__IBMC__/ 10)% 10), (__IBMC__% 10));
# define COMPILER_NAME compiler_name
# else
# ifdef __VERSION__
# define COMPILER_NAME "cc " __VERSION__
# else
# define COMPILER_NAME "cc "
# endif
# endif
# endif
# endif
# endif
# endif
#endif /* ?__GNUC__ */
/* Define the name to use for the OS we're compiling on */
#if defined(sgi) || defined(__sgi)
# define OS_NAME "Silicon Graphics IRIX"
#else
#ifdef sun
# ifdef sparc
# ifdef __SVR4
# define OS_NAME "Sun SPARC/Solaris"
# else /* may or may not be SunOS */
# define OS_NAME "Sun SPARC"
# endif
# else
# if defined(sun386) || defined(i386)
# define OS_NAME "Sun 386i"
# else
# if defined(mc68020) || defined(__mc68020__)
# define OS_NAME "Sun 3"
# else /* mc68010 or mc68000: Sun 2 or earlier */
# define OS_NAME "Sun 2"
# endif
# endif
# endif
#else
#ifdef __hpux
# define OS_NAME "HP-UX"
#else
#ifdef __osf__
# define OS_NAME "DEC OSF/1"
#else
#ifdef _AIX
# define OS_NAME "IBM AIX"
#else
#ifdef aiws
# define OS_NAME "IBM RT/AIX"
#else
#if defined(CRAY) || defined(cray)
# ifdef _UNICOS
sprintf(os_name, "Cray UNICOS release %d", _UNICOS);
# define OS_NAME os_name
# else
# define OS_NAME "Cray UNICOS"
# endif
#else
#if defined(uts) || defined(UTS)
# define OS_NAME "Amdahl UTS"
#else
#ifdef NeXT
# ifdef mc68000
# define OS_NAME "NeXTStep/black"
# else
# define OS_NAME "NeXTStep for Intel"
# endif
#else
#if defined(linux) || defined(__linux__)
# ifdef __ELF__
# define OS_NAME "Linux ELF"
# else
# define OS_NAME "Linux a.out"
# endif
#else
#ifdef MINIX
# define OS_NAME "Minix"
#else
#ifdef M_UNIX
# define OS_NAME "SCO Unix"
#else
#ifdef M_XENIX
# define OS_NAME "SCO Xenix"
#else
#ifdef BSD
# if (BSD > 199103)
# define OS_NAME os_name
uname(&u);
sprintf(os_name, "%s %s", u.sysname, u.release);
# else
# ifdef __NetBSD__
# define OS_NAME os_name
# ifdef NetBSD0_8
sprintf(os_name, "NetBSD 0.8%s", netbsd[NetBSD0_8]);
# else
# ifdef NetBSD0_9
sprintf(os_name, "NetBSD 0.9%s", netbsd[NetBSD0_9]);
# else
# ifdef NetBSD1_0
sprintf(os_name, "NetBSD 1.0%s", netbsd[NetBSD1_0]);
# endif /* NetBSD1_0 */
# endif /* NetBSD0_9 */
# endif /* NetBSD0_8 */
# else
# ifdef __FreeBSD__
# define OS_NAME "FreeBSD 1.x"
# else
# ifdef __bsdi__
# define OS_NAME "BSD/386 1.0"
# else
# ifdef __386BSD__
# define OS_NAME "386BSD"
# else
# define OS_NAME "Unknown BSD"
# endif /* __386BSD__ */
# endif /* __bsdi__ */
# endif /* FreeBSD */
# endif /* NetBSD */
# endif /* BSD > 199103 */
#else
#ifdef __CYGWIN__
# define OS_NAME "Cygwin"
#else
#if defined(i686) || defined(__i686) || defined(__i686__)
# define OS_NAME "Intel 686"
#else
#if defined(i586) || defined(__i586) || defined(__i586__)
# define OS_NAME "Intel 586"
#else
#if defined(i486) || defined(__i486) || defined(__i486__)
# define OS_NAME "Intel 486"
#else
#if defined(i386) || defined(__i386) || defined(__i386__)
# define OS_NAME "Intel 386"
#else
#ifdef pyr
# define OS_NAME "Pyramid"
#else
#if defined(ultrix) || defined(__ultrix)
# if defined(mips) || defined(__mips)
# define OS_NAME "DEC/MIPS"
# else
# if defined(vax) || defined(__vax)
# define OS_NAME "DEC/VAX"
# else /* __alpha? */
# define OS_NAME "DEC/Alpha"
# endif
# endif
#else
#ifdef gould
# define OS_NAME "Gould"
#else
#ifdef MTS
# define OS_NAME "MTS"
#else
#ifdef __convexc__
# define OS_NAME "Convex"
#else
#ifdef __QNX__
# define OS_NAME "QNX 4"
#else
#ifdef __QNXNTO__
# define OS_NAME "QNX Neutrino"
#else
#ifdef __APPLE__
# ifdef __i386__
# define OS_NAME "Mac OS X Intel"
# else /* __i386__ */
# ifdef __ppc__
# define OS_NAME "Mac OS X PowerPC"
# else /* __ppc__ */
# ifdef __ppc64__
# define OS_NAME "Mac OS X PowerPC64"
# else /* __ppc64__ */
# define OS_NAME "Mac OS X"
# endif /* __ppc64__ */
# endif /* __ppc__ */
# endif /* __i386__ */
#else
# define OS_NAME "Unknown"
#endif /* Apple */
#endif /* QNX Neutrino */
#endif /* QNX 4 */
#endif /* Convex */
#endif /* MTS */
#endif /* Gould */
#endif /* DEC */
#endif /* Pyramid */
#endif /* 386 */
#endif /* 486 */
#endif /* 586 */
#endif /* 686 */
#endif /* Cygwin */
#endif /* BSD */
#endif /* SCO Xenix */
#endif /* SCO Unix */
#endif /* Minix */
#endif /* Linux */
#endif /* NeXT */
#endif /* Amdahl */
#endif /* Cray */
#endif /* RT/AIX */
#endif /* AIX */
#endif /* OSF/1 */
#endif /* HP-UX */
#endif /* Sun */
#endif /* SGI */
/* Define the compile date string */
#ifdef __DATE__
# define COMPILE_DATE " on " __DATE__
#else
# define COMPILE_DATE ""
#endif
printf("Compiled with %s for Unix (%s)%s.\n\n",
COMPILER_NAME, OS_NAME, COMPILE_DATE);
} /* end function version_local() */
Reference in a new issue View git blame Copy permalink