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

354 lines
9.0 KiB
C

/*
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 unzip.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
*/
#pragma library
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include <sc.h>
#include <peek.h>
#include <lub.h>
#include <fdb.h>
#include <fsa.h>
#include "theos/stat.h"
/* replacement for standard library functions stat and fstat */
int _stat_(struct stat* st, struct fdb* fdb);
int _dstat_(struct stat* st);
#define peekucb() peeknuc()
/* map THEOS protection code to Unix modes */
unsigned short _tm2um_(char protect)
{
unsigned short umask = 0;
if (!(protect & _FDB_READ_PROTECT))
umask = S_IRUSR|S_IRGRP;
if (!(protect & _FDB_WRITE_PROTECT))
umask |= S_IWUSR|S_IWGRP;
if (!(protect & _FDB_EXECUTE_PROTECT))
umask |= S_IXUSR|S_IXGRP;
if (!(protect & _FDB_ERASE_PROTECT))
umask |= S_IEUSR|S_IEGRP;
if (!(protect & _FDB_SHARED_READ_PROTECT)) {
if (_osmajor > 3)
umask |= S_IROTH|S_IXOTH;
else
umask |= S_IROTH;
}
if (!(protect & _FDB_SHARED_WRITE_PROTECT))
umask |= S_IWOTH;
if (!(protect & _FDB_MODIFIED)) {
if (_osmajor > 3)
umask |= S_IMODF;
else
umask |= S_IXOTH;
}
if (protect & _FDB_NOT_HIDDEN)
umask |= S_INHID;
return umask;
}
/* map Unix modes to THEOS protections */
char _um2tm_(unsigned short mask)
{
char protect = 0;
if (!(mask & (S_IRUSR|S_IRGRP)))
protect |= _FDB_READ_PROTECT;
if (!(mask & (S_IWUSR|S_IWGRP)))
protect |= _FDB_WRITE_PROTECT;
if (!(mask & (S_IXUSR|S_IXGRP)))
protect |= _FDB_EXECUTE_PROTECT;
if (!(mask & (S_IEUSR|S_IEGRP)))
protect |= _FDB_ERASE_PROTECT;
if (_osmajor < 4) {
if (!(mask & S_IROTH))
protect |= _FDB_SHARED_READ_PROTECT;
} else {
if (!(mask & (S_IROTH|S_IXOTH)))
protect |= _FDB_SHARED_READ_PROTECT;
}
if (!(mask & S_IWOTH))
protect |= _FDB_SHARED_WRITE_PROTECT;
if (mask & S_IMODF && _osmajor > 3)
protect |= _FDB_MODIFIED;
if (mask & S_INHID && _osmajor > 3)
protect |= _FDB_NOT_HIDDEN;
return protect;
}
/* root directory stat */
static int rdirstat(char* fn, struct stat *st)
{
register char* p = strchr(fn, ':');
char drive;
drive = p ? p[1] : 'S';
if (drive >= 'a' && drive <= 'Z')
drive -= 0x40;
memset(st, 0, sizeof(struct stat));
if (getlub(drive - 'A') != 255) {
st->st_org = _FDB_STAT_DIRECTORY;
st->st_mode = S_IFDIR|S_IRUSR|S_IWUSR|S_IROTH|S_IWOTH;
st->st_nlink = 1;
st->st_dev = st->st_rdev = drive - 'A';
st->st_uid = st->st_gid = getuid();
st->st_protect = _FDB_ERASE_PROTECT;
return 0;
}
errno = _errnum = ENOENT;
_errarg = fn;
return -1;
}
/* file stat */
int _stat(const char *fn, struct stat *st)
{
char buf[256], buf2[256];
char *ifn;
register struct fdb *fdb;
register char *p;
if ((ifn = (char *)malloc(strlen(fn)+1)) == NULL) {
errno = _errnum = ENOMEM;
return -1;
}
if (p = strrchr(ifn, ':'))
*p = 0;
/* on current drive ./:d and .:m point to current dir
* on another drive to root directory */
if (! strcmp(ifn, "/") || ! strcmp(ifn, ".") || ! strcmp(ifn, "./")) {
if (p == NULL) {
free(ifn);
/* current dir on current drive */
ifn = getcwd(buf2, 256);
/* getcwd returns NULL on root dir on drive S */
if (ifn == NULL)
strcpy(ifn = buf2, "/:S");
/* getcwd returns /:d on root dir on any other drive */
if (ifn[1] == ':')
return rdirstat(ifn, st);
} else {
int rstat;
*p = ':';
rstat = rdirstat(ifn, st);
free(ifn);
return rstat;
}
}
if (p)
*p = ':';
strcpy(buf2, ifn);
/* remove trailing slash before optional disk name */
if (p = strrchr(buf2, '/')) {
if (p[1] == ':') {
*p = p[1];
p[1] = p[2];
p[2] = p[3];
} else if (p[1] == '\0')
*p = '\0';
}
/* if ifn is a file get file directory block structure and device */
if (fdb = _locate(buf2, buf, &st->st_dev)) {
/* is it a file from another user... */
if (strchr(buf2, '\\')
/* a public system file */
|| fdb->fileowner == 0
/* or a file from the current user account ? */
|| fdb->fileowner == getuid()) {
/* yes, return stat */
return _stat_(st, fdb);
} else {
/* no, say file doesn't exist */
errno = _errnum = ENOENT;
_errarg = fn;
return -1;
}
}
/* else should be a device */
st->st_rdev = st->st_dev = _lub_name(*ifn == ':' ? ifn+1 : ifn);
free(ifn);
if (st->st_dev != -1 && getlub(st->st_dev) != 255)
return _dstat_(st);
errno = _errnum = ENOENT;
_errarg = fn;
return -1;
}
int _fstat(int fd, struct stat *st)
{
unsigned short fsanum;
struct fsa fsa;
register FILE *fp;
int status;
register int i;
register char *p;
if (fd < FOPEN_MAX) {
fp = &stdin[fd];
if (_fcntl(fp,1,0) & 0x80) {
fsanum = (unsigned short) _fcntl(fp,83,0);
st->st_dev = (unsigned short) _fcntl(fp,5,0);
if (st->st_dev >= A_DISK && st->st_dev <= Z_DISK) {
for (i = 0, fsanum *= sizeof(fsa), p = (char *) &fsa;
i < (sizeof(fsa));
i++, fsanum++, p++)
*p = _peekfsa((char *) fsanum);
status = _stat_(st, (struct fdb*) &fsa);
if ((st->st_blksize = _fcntl(fp,817,0)) == 0)
st->st_blksize = BUFSIZ;
return status;
}
return _dstat_(st);
}
}
errno = _errnum = EBADF;
return -1;
}
static int _isprt(int dev)
{
return IS_PRT_LUB(dev);
}
/* device stat */
int _dstat_(st)
register struct stat* st;
{
register struct ucb* ucb;
ucb = getucb(st->st_dev);
st->st_ino = 0;
if (st->st_dev <= Z_DISK
|| (st->st_dev >= TAPE1 && st->st_dev <= TAPE4)) {
st->st_mode = S_IFBLK | S_IWUSR | S_IRUSR;
if (peekucb(&ucb->devowner) == 255)
st->st_mode |= S_IWGRP | S_IWOTH | S_IRGRP | S_IROTH;
} else {
st->st_mode = S_IFCHR | S_IWUSR;
if (_isprt(st->st_dev))
st->st_mode |= S_IRUSR;
if (peekucb(&ucb->devowner) == 255) {
st->st_mode |= S_IWGRP | S_IWOTH;
if (_isprt(st->st_dev))
st->st_mode |= S_IRGRP | S_IROTH;
}
}
st->st_nlink = 1;
st->st_uid = st->st_gid = getuid();
st->st_size = 0;
st->st_atime = st->st_mtime = st->st_ctime = 0;
st->st_rlen = 0;
st->st_klen = 0;
st->st_grow = 0;
st->st_blksize = 0;
return 0;
}
/* regular file stat */
int _stat_(st, fdb)
register struct stat* st;
register struct fdb* fdb;
{
st->st_rdev = st->st_dev;
st->st_ino = 0;
st->st_org = fdb->filestat;
switch (fdb->filestat) {
case _FDB_STAT_LIBRARY: st->st_mode = S_IFLIB; break;
case _FDB_STAT_DIRECTORY: st->st_mode = S_IFDIR; break;
case _FDB_STAT_STREAM: st->st_mode = S_IFREG; break;
case _FDB_STAT_RELATIVE: st->st_mode = S_IFREL; break;
case _FDB_STAT_KEYED: st->st_mode = S_IFKEY; break;
case _FDB_STAT_INDEXED: st->st_mode = S_IFIND; break;
case _FDB_STAT_RANDOM: st->st_mode = S_IFRND; break;
case _FDB_STAT_PROGRAM: st->st_mode = S_IFR16; break;
case _FDB_STAT_16_BIT_PROGRAM: st->st_mode = S_IFP16; break;
case _FDB_STAT_32_BIT_PROGRAM: st->st_mode = S_IFP32; break;
}
st->st_mode |= _tm2um_(st->st_protect = fdb->protect);
st->st_nlink = 1;
st->st_uid = st->st_gid = fdb->fileowner;
st->st_size = fdb->filesize;
st->st_atime = st->st_mtime = st->st_ctime = getfiledate(fdb);
st->st_rlen = fdb->reclen;
st->st_klen = fdb->keylen;
st->st_grow = fdb->filegrow;
st->st_blksize = 0;
return 0;
}
#include <direct.h>
struct dirent* _opendir(const char* dirpath)
{
int l;
char *p;
struct dirent* dir;
char *mypath = NULL;
if (dirpath != NULL &&
(mypath = (char *)malloc(strlen(dirpath)+1)) == NULL) {
errno = _errnum = ENOMEM;
return NULL;
}
if (mypath) {
l = strlen(mypath);
if (l) {
p = dirpath + l - 1;
if (*p == '/') {
*p = '\0';
dir = opendir(dirpath);
*p = '/';
return dir;
}
}
}
return opendir(mypath);
}