kolibrios/programs/fs/unzip60/tops20/tops20.c

330 lines
7.5 KiB
C
Raw Normal View History

/*
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;
}