| 0,0 → 1,329 |
|---|
| /* |
| 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; |
| } |