forked from KolibriOS/kolibrios
330 lines
7.5 KiB
C
330 lines
7.5 KiB
C
/*
|
|
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;
|
|
}
|