view release on metacpan or  search on metacpan

unzip-6.0/theos/_stat.c  view on Meta::CPAN

    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';

unzip-6.0/theos/_stat.c  view on Meta::CPAN

    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);
}