/*  Copyright (c) 1990-2002 Info-ZIP.  All rights reserved.  See the accompanying file LICENSE, version 2000-Apr-09 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*//* Low-level Amiga routines shared between Zip and UnZip. * * Contains:  FileDate() *            getenv()          [replaces inadequate standard library version] *            setenv()          [SAS/C only, replaces standard library version] *            set_TZ()          [SAS/C only] *            GetPlatformLocalTimezone() [callback from timezone.c tzset()] *            time() *            sendpkt() *            Agetch() * * The first five are used by most Info-ZIP programs except fUnZip. * The last two are used by all except the non-CRYPT version of fUnZip. * Probably some of the stuff in here is unused by ZipNote and ZipSplit too... * sendpkt() is used by Agetch() and FileDate(), and by screensize() in * amiga/amiga.c (UnZip); time() is used only by Zip. *//* HISTORY/CHANGES *  2 Sep 92, Greg Roelofs, Original coding. *  6 Sep 92, John Bush, Incorporated into UnZip 5.1 *  6 Sep 92, John Bush, Interlude "FileDate()" defined, which calls or *            redefines SetFileDate() depending upon AMIGADOS2 definition. * 11 Oct 92, John Bush, Eliminated AMIGADOS2 switch by determining *            revision via OpenLibrary() call.  Now only one version of *            the program runs on both platforms (1.3.x vs. 2.x) * 11 Oct 92, John Bush, Merged with Zip version and changed arg passing *            to take time_t input instead of struct DateStamp. *            Arg passing made to conform with utime(). * 22 Nov 92, Paul Kienitz, fixed includes for Aztec and cleaned up some *            lint-ish errors; simplified test for AmigaDOS version. * 11 Nov 95, Paul Kienitz, added Agetch() for crypt password input and *            UnZip's "More" prompt -- simplifies crypt.h and avoids *            use of library code redundant with sendpkt().  Made it *            available to fUnZip, which does not use FileDate(). * 22 Nov 95, Paul Kienitz, created a new tzset() that gets the current *            timezone from the Locale preferences.  These exist only under *            AmigaDOS 2.1 and up, but it is probably correctly set on more *            Amigas than the TZ environment variable is.  We check that *            only if TZ is not validly set.  We do not parse daylight *            savings syntax except to check for presence vs. absence of a *            DST part; United States rules are assumed.  This is better *            than the tzset()s in the Amiga compilers' libraries do. * 15 Jan 96, Chr. Spieler, corrected the logic when to select low level *            sendpkt() (when FileDate(), Agetch() or windowheight() is used), *            and AMIGA's Agetch() (CRYPT, and UnZip(SFX)'s UzpMorePause()). * 10 Feb 96, Paul Kienitz, re-fiddled that selection logic again, moved *            stuff around for clarity. * 16 Mar 96, Paul Kienitz, created a replacement localtime() to go with the *            new tzset(), because Aztec's is hopelessly broken.  Also *            gmtime(), which localtime() calls. * 12 Apr 96, Paul Kienitz, daylight savings was being handled incorrectly. * 21 Apr 96, Paul Kienitz, had to replace time() as well, Aztec's returns *            local time instead of GMT.  That's why their localtime() was bad, *            because it assumed time_t was already local, and gmtime() was *            the one that checked TZ. * 23 Apr 96, Chr. Spieler, deactivated time() replacement for UnZip stuff. *            Currently, the UnZip sources do not make use of time() (and do *            not supply the working mktime() replacement, either!). * 29 Apr 96, Paul Kienitz, created a replacement getenv() out of code that *            was previously embedded in tzset(), for reliable global test *            of whether TZ is set or not. * 19 Jun 96, Haidinger Walter, re-adapted for current SAS/C compiler. *  7 Jul 96, Paul Kienitz, smoothed together compiler-related changes. *  4 Feb 97, Haidinger Walter, added set_TZ() for SAS/C. * 23 Apr 97, Paul Kienitz, corrected Unix->Amiga DST error by adding *            mkgmtime() so localtime() could be used. * 28 Apr 97, Christian Spieler, deactivated mkgmtime() definition for ZIP; *            the Zip sources supply this function as part of util.c. * 24 May 97, Haidinger Walter, added time_lib support for SAS/C and moved *            set_TZ() to time_lib.c. * 12 Jul 97, Paul Kienitz, adapted time_lib stuff for Aztec. * 26 Jul 97, Chr. Spieler, old mkgmtime() fixed (ydays[] def, sign vs unsign). * 30 Dec 97, Haidinger Walter, adaptation for SAS/C using z-stat.h functions. * 19 Feb 98, Haidinger Walter, removed alloc_remember, more SAS.C fixes. * 23 Apr 98, Chr. Spieler, removed mkgmtime(), changed FileDate to convert to *            Amiga file-time directly. * 24 Apr 98, Paul Kienitz, clip Unix dates earlier than 1978 in FileDate(). * 02 Sep 98, Paul Kienitz, C. Spieler, always include zip.h to get a defined *            header inclusion sequence that resolves all header dependencies. * 06 Jun 00, Paul Kienitz, removed time_lib.c due to its incompatible license, *            moved set_TZ() back here, replaced minimal tzset() and localtime() *            with new versions derived from GNU glibc source.  Gave locale_TZ() *            reasonable European defaults for daylight savings. * 17 Jun 00, Paul Kienitz, threw out GNU code because of objections to the GPL *            virus, replaced with similar functions based on the public domain *            timezone code at ftp://elsie.nci.nih.gov/pub.  As with the GNU *            stuff, support for timezone files and leap seconds was removed. * 23 Aug 00, Paul Kienitz, moved timezone code out from here into separate *            platform-independent module 'timezone.c'. * 31 Dec 00, Christian Spieler, moved system-specific timezone help funcions *            back in here, from 'timezone.c'. * 07 Jan 01, Paul Kienitz, Chr. Spieler, added missing #include "timezone.h" *            and "symbolic" preprocessor constants for time calculations. * 15 Jan 02, Paul Kienitz, excluded all time handling code from compilation *            for Zip utilities (when "defined(UTIL)") */#ifndef __amiga_filedate_c#define __amiga_filedate_c#include "zip.h"#include <ctype.h>#include <errno.h>#include <exec/types.h>#include <exec/execbase.h>#include <exec/memory.h>#include <dos/dosextens.h>#ifdef AZTEC_C#  include <libraries/dos.h>#  include <libraries/dosextens.h>#  include <clib/exec_protos.h>#  include <clib/dos_protos.h>#  include <clib/locale_protos.h>#  include <pragmas/exec_lib.h>#  include <pragmas/dos_lib.h>#  include <pragmas/locale_lib.h>#  define ESRCH  ENOENT#  define EOSERR EIO#endif#ifdef __SASC#  include <stdlib.h>#  if (defined(_M68020) && (!defined(__USE_SYSBASE)))                            /* on 68020 or higher processors it is faster   */#    define __USE_SYSBASE   /* to use the pragma libcall instead of syscall */#  endif                    /* to access functions of the exec.library      */#  include <proto/exec.h>   /* see SAS/C manual:part 2,chapter 2,pages 6-7  */#  include <proto/dos.h>#  include <proto/locale.h>#  ifdef DEBUG#     include <sprof.h>#  endif#  ifdef MWDEBUG#    include <stdio.h>      /* include both before memwatch.h again just */#    include <stdlib.h>     /* to be safe */#    include "memwatch.h"#  endif /* MWDEBUG */#endif /* __SASC */#include "crypt.h"            /* just so we can tell if CRYPT is supported */#if (!defined(FUNZIP) && !defined(UTIL))#include "timezone.h"         /* for AMIGA-specific timezone callbacks */#ifndef SUCCESS#  define SUCCESS (-1L)#  define FAILURE 0L#endif#define ReqVers 36L        /* required library version for SetFileDate() */#define ENVSIZE 100        /* max space allowed for an environment var   */extern struct ExecBase *SysBase;#ifndef min#  define min(a, b)  ((a) < (b) ? (a) : (b))#  define max(a, b)  ((a) < (b) ? (b) : (a))#endif#if defined(ZIP) || defined(HAVE_MKTIME)static const unsigned short ydays[] =    { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 };#elseextern const unsigned short ydays[];  /* in unzip's fileio.c */#endif#define LEAP(y)     (((y) % 4 == 0 && (y) % 100 != 0) || (y) % 400 == 0)#define YDAYS(m, y) (ydays[m] + (m > 1 && LEAP(y)))/* Number of leap years from 1978 to `y' (not including `y' itself). */#define ANLEAP(y)   (((y) - 1977) / 4 - ((y) - 1901) / 100 + ((y) - 1601) / 400)#define SECSPERMIN  60#define MINSPERHOUR 60#define SECSPERHOUR (SECSPERMIN * MINSPERHOUR)#define SECSPERDAY  86400L/* prototypes */char *getenv(const char *var);#ifdef __SASC/*  XXX !!  We have really got to find a way to operate without these. */int setenv(const char *var, const char *value, int overwrite);void set_TZ(long time_zone, int day_light);#endifLONG FileDate(char *filename, time_t u[]);LONG sendpkt(struct MsgPort *pid, LONG action, LONG *args, LONG nargs);int Agetch(void);/* =============================================================== *//***********************//* Function filedate() *//***********************//*  FileDate() (originally utime.c), by Paul Wells.  Modified by John Bush *  and others (see also sendpkt() comments, below); NewtWare SetFileDate() *  clone cheaply ripped off from utime(). *//* DESCRIPTION * This routine chooses between 2 methods to set the file date on AMIGA. * Since AmigaDOS 2.x came out, SetFileDate() was available in ROM (v.36 * and higher).  Under AmigaDOS 1.3.x (less than v.36 ROM), SetFileDate() * must be accomplished by constructing a message packet and sending it * to the file system handler of the file to be stamped. * * The system's ROM version is extracted from the external system Library * base. * * NOTE:  although argument passing conforms with utime(), note the *        following differences: *          - Return value is boolean success/failure. *          - If a structure or array is passed, only the first value *            is used, which *may* correspond to date accessed and not *            date modified. */LONG FileDate(filename, u)    char *filename;    time_t u[];{    LONG SetFileDate(UBYTE *filename, struct DateStamp *pDate);    LONG sendpkt(struct MsgPort *pid, LONG action, LONG *args, LONG nargs);    struct MsgPort *taskport;    BPTR dirlock, lock;    struct FileInfoBlock *fib;    LONG pktargs[4];    UBYTE *ptr;    long ret;    struct DateStamp pDate;    struct tm *ltm;    int years;    tzset();    /* Amiga file date is based on 01-Jan-1978 00:00:00 (local time):     * 8 years and 2 leapdays difference from Unix time.     */    ltm = localtime(&u[0]);    years = ltm->tm_year + 1900;    if (years < 1978)        pDate.ds_Days = pDate.ds_Minute = pDate.ds_Tick = 0;    else {        pDate.ds_Days = (years - 1978) * 365L + (ANLEAP(years)) +                        YDAYS(ltm->tm_mon, years) + (ltm->tm_mday - 1);        pDate.ds_Minute = ltm->tm_hour * 60 + ltm->tm_min;        pDate.ds_Tick = ltm->tm_sec * TICKS_PER_SECOND;    }    if (SysBase->LibNode.lib_Version >= ReqVers)    {        return (SetFileDate(filename,&pDate));  /* native routine at 2.0+ */    }    else  /* !(SysBase->lib_Version >=ReqVers) */    {        if( !(taskport = (struct MsgPort *)DeviceProc(filename)) )        {            errno = ESRCH;          /* no such process */            return FAILURE;        }        if( !(lock = Lock(filename,SHARED_LOCK)) )        {            errno = ENOENT;         /* no such file */            return FAILURE;        }        if( !(fib = (struct FileInfoBlock *)AllocMem(            (long)sizeof(struct FileInfoBlock),MEMF_PUBLIC|MEMF_CLEAR)) )        {            errno = ENOMEM;         /* insufficient memory */            UnLock(lock);            return FAILURE;        }        if( Examine(lock,fib)==FAILURE )        {            errno = EOSERR;         /* operating system error */            UnLock(lock);            FreeMem(fib,(long)sizeof(*fib));            return FAILURE;        }        dirlock = ParentDir(lock);        ptr = (UBYTE *)AllocMem(64L,MEMF_PUBLIC);        strcpy((ptr+1),fib->fib_FileName);