Subversion Repositories Kolibri OS

/*

  Copyright (c) 1990-2007 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

*/

/*---------------------------------------------------------------------------

  tops20.c

  TOPS20-specific routines for use with Info-ZIP's UnZip 5.1 and later.

  Contains:  mapattr()

             close_outfile()

             version()

             upper()

             enquote()

             dequote()

             fnlegal()

  (not yet ported:  do_wild(), mapname(), checkdir(), ...)

  ---------------------------------------------------------------------------*/

#define UNZIP_INTERNAL

#include "unzip.h"

/**********************/

/* Function mapattr() */

/**********************/

int mapattr(__G)        /* just like Unix except no umask() */

    __GDEF

{

    ulg  tmp = G.crec.external_file_attributes;

    switch (G.pInfo->hostnum) {

        case UNIX_:

        case VMS_:

        case ACORN_:

        case ATARI_:

        case ATHEOS_:

        case BEOS_:

        case QDOS_:

            G.pInfo->file_attr = (unsigned)(tmp >> 16);

            break;

        case AMIGA_:

            tmp = (unsigned)(tmp>>1 & 7);   /* Amiga RWE bits */

            G.pInfo->file_attr = (unsigned)(tmp<<6 | tmp<<3 | tmp);

            break;

        case FS_FAT_:   /* MSDOS half of attributes should always be correct */

        case FS_HPFS_:

        case FS_NTFS_:

        case MAC_:

        case TOPS20_:

        default:

            tmp = !(tmp & 1) << 1;   /* read-only bit --> write perms bits */

            G.pInfo->file_attr = (unsigned)(0444 | tmp<<6 | tmp<<3 | tmp);

            break;

#if 0

        case ATARI_:

        case TOPS20_:

        default:

            G.pInfo->file_attr = 0666;

            break;

#endif

    } /* end switch (host-OS-created-by) */

    return 0;

} /* end function mapattr() */

/****************************/

/* Function close_outfile() */

/****************************/

void close_outfile(__G)

    __GDEF

{

#   define JSYS_CLASS           0070000000000

#   define FLD(val,mask)        (((unsigned)(val)*((mask)&(-(mask))))&(mask))

#   define _DEFJS(name,class)   (FLD(class,JSYS_CLASS) | (monsym(name)&0777777))

#   define IDTIM                _DEFJS("IDTIM%", 1)

#   define SFTAD                _DEFJS("SFTAD%", 0)

#   define YRBASE               1900

    int ablock[5], tblock[2];

    int yr, mo, dy, hh, mm, ss;

    char temp[100];

    unsigned tad;

#ifdef USE_EF_UT_TIME

    iztimes z_utime;

    struct tm *t;

    /* skip restoring time stamps on user's request */

    if (uO.D_flag <= 1) {

        if (G.extra_field &&

#ifdef IZ_CHECK_TZ

            G.tz_is_valid &&

#endif

            (ef_scan_for_izux(G.extra_field, G.lrec.extra_field_length, 0,

                              G.lrec.last_mod_dos_date, &z_utime, NULL)

             & EB_UT_FL_MTIME))

            t = localtime(&(z_utime.mtime));

        else

            t = (struct tm *)NULL;

        if (t != (struct tm *)NULL)

        {

            yr = t->tm_year + 1900;

            mo = t->tm_mon;

            dy = t->tm_mday;

            hh = t->tm_hour;

            mm = t->tm_min;

            ss = t->tm_sec;

        }

        else

        {

            /* dissect the date */

            yr = ((G.lrec.last_mod_dos_date >> 9) & 0x7f) + 1980;

            mo = ((G.lrec.last_mod_dos_date >> 5) & 0x0f) - 1;

            dy = (G.lrec.last_mod_dos_date & 0x1f);

            /* dissect the time */

            hh = (G.lrec.last_mod_dos_time >> 11) & 0x1f;

            mm = (G.lrec.last_mod_dos_time >> 5) & 0x3f;

            ss = (G.lrec.last_mod_dos_time & 0x1f) * 2;

        }

#else /* !USE_EF_UT_TIME */

        /* dissect the date */

        yr = ((G.lrec.last_mod_dos_datetime >> 25) & 0x7f) + (1980 - YRBASE);

        mo = (G.lrec.last_mod_dos_datetime >> 21) & 0x0f;

        dy = (G.lrec.last_mod_dos_datetime >> 16) & 0x1f;

        /* dissect the time */

        hh = (G.lrec.last_mod_dos_datetime >> 11) & 0x1f;

        mm = (G.lrec.last_mod_dos_datetime >> 5) & 0x3f;

        ss = (G.lrec.last_mod_dos_datetime << 1) & 0x1f;

#endif /* ?USE_EF_UT_TIME */

        sprintf(temp, "%02d/%02d/%02d %02d:%02d:%02d", mo, dy, yr, hh, mm, ss);

        ablock[1] = (int)(temp - 1);

        ablock[2] = 0;

        if (!jsys(IDTIM, ablock)) {

            Info(slide, 1, ((char *)slide, "error:  IDTIM failure for %s\n",

              G.filename));

            fclose(G.outfile);

            return;

        }

        tad = ablock[2];

        tblock[0] = tad;

        tblock[1] = tad;

        tblock[2] = -1;

        ablock[1] = fcntl(fileno(G.outfile), F_GETSYSFD, 0);

                                                    /* _uffd[outfd]->uf_ch */

        ablock[2] = (int) tblock;

        ablock[3] = 3;

        if (!jsys(SFTAD, ablock))

            Info(slide, 1,((char *)slide,

              "error:  cannot set the time for %s\n", G.filename));

    } /* if (uO.D_flag <= 1) */

    fclose(G.outfile);

} /* end function close_outfile() */

#ifndef SFX

/************************/

/*  Function version()  */

/************************/

void version(__G)

    __GDEF

{

#if 0

    char buf[40];

#endif

    sprintf((char *)slide, LoadFarString(CompiledWith),

#ifdef __GNUC__

      "gcc ", __VERSION__,

#else

#  if 0

      "cc ", (sprintf(buf, " version %d", _RELEASE), buf),

#  else

#  ifdef __COMPILER_KCC__

      "KCC", "",

#  else

      "unknown compiler", "",

#  endif

#  endif

#endif

      "TOPS-20",

#if defined(foobar) || defined(FOOBAR)

      " (Foo BAR)",   /* OS version or hardware */

#else

      "",

#endif /* Foo BAR */

#ifdef __DATE__

      " on ", __DATE__

#else

      "", ""

#endif

    );

    (*G.message)((zvoid *)&G, slide, (ulg)strlen((char *)slide), 0);

} /* end function version() */

#endif /* !SFX */

/**********************/

/*  Function upper()  */

/**********************/

int upper(s)        /* returns s in uppercase */

    char *s;        /* string to be uppercased */

{

    for (;  *s;  ++s)

        *s = toupper(*s);

}

/************************/

/*  Function enquote()  */

/************************/

int enquote(s)      /* calls dequote(s) to normalize string, then */

    char *s;        /*  inserts ^Vs before otherwise illegal characters */

{                   /*  in s, assuming that s is a TOPS-20 filename */

    char d[100];

    char *p, *q;

    char c;

    if (s && *s) {

        dequote(s);

        p = s - 1;

        q = d - 1;

        while (c = *++p) {

            if (!fnlegal(c))

                *++q = '\026';

            *++q = c;

        }

        *++q = '\0';

        strcpy(s, d);

    }

    return 0;

}

/************************/

/*  Function dequote()  */

/************************/

int dequote(s)        /* returns s without ^Vs */

    char *s;          /* string to be dequoted */

{

    char d[100];

    char *p, *q;

    int c;

    if (s && *s) {

        p = s - 1;

        q = d - 1;

        while (c = *++p)

            if (c != '\026')

                *++q = c;

        *++q = '\0';

        strcpy(s, d);

    }

    return 0;

}

/************************/

/*  Function fnlegal()  */

/************************/

int fnlegal(c)         /* returns TRUE if c is a member of the */

    char c;            /*  legal character set for filenames */

{

    char *q;

    static char *legals = {"$%**-<>>AZ[[]]__az"};

    q = legals;

    while (*q)

        if (c < *q++)

            break;

        else if (c <= *q++)

            return TRUE;

    return FALSE;

}