开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 压缩解压 > 查看源码
tops20.c
资源名称：unzip540.zip　[点击查看]
上传用户：andy_li
上传日期：2007-01-06
资源大小：1019k
文件大小：7k
源码类别：

压缩解压

开发平台：

MultiPlatform

tops20.c：源码内容
  1. /*---------------------------------------------------------------------------
  3.   tops20.c
  5.   TOPS20-specific routines for use with Info-ZIP's UnZip 5.1 and later.
  7.   Contains:  mapattr()
  8.              close_outfile()
  9.              version()
  10.              upper()
  11.              enquote()
  12.              dequote()
  13.              fnlegal()
  15.   (not yet ported:  do_wild(), mapname(), checkdir(), ...)
  17.   ---------------------------------------------------------------------------*/
  20. #define UNZIP_INTERNAL
  21. #include "unzip.h"
  24. /**********************/
  25. /* Function mapattr() */
  26. /**********************/
  28. int mapattr(__G)        /* just like Unix except no umask() */
  29.     __GDEF
  30. {
  31.     ulg  tmp = G.crec.external_file_attributes;
  33.     switch (G.pInfo->hostnum) {
  34.         case UNIX_:
  35.         case VMS_:
  36.         case ACORN_:
  37.         case ATARI_:
  38.         case BEOS_:
  39.         case QDOS_:
  40.             G.pInfo->file_attr = (unsigned)(tmp >> 16);
  41.             break;
  42.         case AMIGA_:
  43.             tmp = (unsigned)(tmp>>1 & 7);   /* Amiga RWE bits */
  44.             G.pInfo->file_attr = (unsigned)(tmp<<6 | tmp<<3 | tmp);
  45.             break;
  46.         case FS_FAT_:   /* MSDOS half of attributes should always be correct */
  47.         case FS_HPFS_:
  48.         case FS_NTFS_:
  49.         case MAC_:
  50.         case TOPS20_:
  51.         default:
  52.             tmp = !(tmp & 1) << 1;   /* read-only bit --> write perms bits */
  53.             G.pInfo->file_attr = (unsigned)(0444 | tmp<<6 | tmp<<3 | tmp);
  54.             break;
  55. #if 0
  56.         case ATARI_:
  57.         case TOPS20_:
  58.         default:
  59.             G.pInfo->file_attr = 0666;
  60.             break;
  61. #endif
  62.     } /* end switch (host-OS-created-by) */
  64.     return 0;
  66. } /* end function mapattr() */
  72. /****************************/
  73. /* Function close_outfile() */
  74. /****************************/
  76. void close_outfile(__G)
  77.     __GDEF
  78. {
  79. #   define JSYS_CLASS           0070000000000
  80. #   define FLD(val,mask)        (((unsigned)(val)*((mask)&(-(mask))))&(mask))
  81. #   define _DEFJS(name,class)   (FLD(class,JSYS_CLASS) | (monsym(name)&0777777))
  82. #   define IDTIM                _DEFJS("IDTIM%", 1)
  83. #   define SFTAD                _DEFJS("SFTAD%", 0)
  84. #   define YRBASE               1900
  85.     int ablock[5], tblock[2];
  86.     int yr, mo, dy, hh, mm, ss;
  87.     char temp[100];
  88.     unsigned tad;
  89. #ifdef USE_EF_UT_TIME
  90.     iztimes z_utime;
  91.     struct tm *t;
  94.     if (G.extra_field &&
  95. #ifdef IZ_CHECK_TZ
  96.         G.tz_is_valid &&
  97. #endif
  98.         (ef_scan_for_izux(G.extra_field, G.lrec.extra_field_length, 0,
  99.                           G.lrec.last_mod_dos_date, &z_utime, NULL)
  100.          & EB_UT_FL_MTIME))
  101.         t = localtime(&(z_utime.mtime));
  102.     else
  103.         t = (struct tm *)NULL;
  105.     if (t != (struct tm *)NULL)
  106.     {
  107.         yr = t->tm_year + 1900;
  108.         mo = t->tm_mon;
  109.         dy = t->tm_mday;
  110.         hh = t->tm_hour;
  111.         mm = t->tm_min;
  112.         ss = t->tm_sec;
  113.     }
  114.     else
  115.     {
  116.         /* dissect the date */
  117.         yr = ((G.lrec.last_mod_dos_date >> 9) & 0x7f) + 1980;
  118.         mo = ((G.lrec.last_mod_dos_date >> 5) & 0x0f) - 1;
  119.         dy = (G.lrec.last_mod_dos_date & 0x1f);
  121.         /* dissect the time */
  122.         hh = (G.lrec.last_mod_dos_time >> 11) & 0x1f;
  123.         mm = (G.lrec.last_mod_dos_time >> 5) & 0x3f;
  124.         ss = (G.lrec.last_mod_dos_time & 0x1f) * 2;
  125.     }
  126. #else /* !USE_EF_UT_TIME */
  128.     /* dissect the date */
  129.     yr = ((G.lrec.last_mod_dos_datetime >> 25) & 0x7f) + (1980 - YRBASE);
  130.     mo = (G.lrec.last_mod_dos_datetime >> 21) & 0x0f;
  131.     dy = (G.lrec.last_mod_dos_datetime >> 16) & 0x1f;
  133.     /* dissect the time */
  134.     hh = (G.lrec.last_mod_dos_datetime >> 11) & 0x1f;
  135.     mm = (G.lrec.last_mod_dos_datetime >> 5) & 0x3f;
  136.     ss = (G.lrec.last_mod_dos_datetime << 1) & 0x1f;
  137. #endif /* ?USE_EF_UT_TIME */
  139.     sprintf(temp, "%02d/%02d/%02d %02d:%02d:%02d", mo, dy, yr, hh, mm, ss);
  141.     ablock[1] = (int)(temp - 1);
  142.     ablock[2] = 0;
  143.     if (!jsys(IDTIM, ablock)) {
  144.         Info(slide, 1, ((char *)slide, "error:  IDTIM failure for %sn",
  145.           G.filename));
  146.         fclose(G.outfile);
  147.         return;
  148.     }
  150.     tad = ablock[2];
  151.     tblock[0] = tad;
  152.     tblock[1] = tad;
  153.     tblock[2] = -1;
  155.     ablock[1] = fcntl(fileno(G.outfile), F_GETSYSFD, 0);
  156.                                                 /* _uffd[outfd]->uf_ch */
  157.     ablock[2] = (int) tblock;
  158.     ablock[3] = 3;
  159.     if (!jsys(SFTAD, ablock))
  160.         Info(slide, 1,((char *)slide, "error:  cannot set the time for %sn",
  161.           G.filename));
  163.     fclose(G.outfile);
  165. } /* end function close_outfile() */
  171. #ifndef SFX
  173. /************************/
  174. /*  Function version()  */
  175. /************************/
  177. void version(__G)
  178.     __GDEF
  179. {
  180. #if 0
  181.     char buf[40];
  182. #endif
  184.     sprintf((char *)slide, LoadFarString(CompiledWith),
  186. #ifdef __GNUC__
  187.       "gcc ", __VERSION__,
  188. #else
  189. #  if 0
  190.       "cc ", (sprintf(buf, " version %d", _RELEASE), buf),
  191. #  else
  192. #  ifdef __COMPILER_KCC__
  193.       "KCC", "",
  194. #  else
  195.       "unknown compiler", "",
  196. #  endif
  197. #  endif
  198. #endif
  200.       "TOPS-20",
  202. #if defined(foobar) || defined(FOOBAR)
  203.       " (Foo BAR)",   /* OS version or hardware */
  204. #else
  205.       "",
  206. #endif /* Foo BAR */
  208. #ifdef __DATE__
  209.       " on ", __DATE__
  210. #else
  211.       "", ""
  212. #endif
  213.     );
  215.     (*G.message)((zvoid *)&G, slide, (ulg)strlen((char *)slide), 0);
  217. } /* end function version() */
  219. #endif /* !SFX */
  225. /**********************/
  226. /*  Function upper()  */
  227. /**********************/
  229. int upper(s)        /* returns s in uppercase */
  230.     char *s;        /* string to be uppercased */
  231. {
  232.     for (;  *s;  ++s)
  233.         *s = toupper(*s);
  234. }
  240. /************************/
  241. /*  Function enquote()  */
  242. /************************/
  244. int enquote(s)      /* calls dequote(s) to normalize string, then */
  245.     char *s;        /*  inserts ^Vs before otherwise illegal characters */
  246. {                   /*  in s, assuming that s is a TOPS-20 filename */
  247.     char d[100];
  248.     char *p, *q;
  249.     char c;
  251.     if (s && *s) {
  252.         dequote(s);
  253.         p = s - 1;
  254.         q = d - 1;
  255.         while (c = *++p) {
  256.             if (!fnlegal(c))
  257.                 *++q = '26';
  258.             *++q = c;
  259.         }
  260.         *++q = '';
  261.         strcpy(s, d);
  262.     }
  263.     return 0;
  264. }
  270. /************************/
  271. /*  Function dequote()  */
  272. /************************/
  274. int dequote(s)        /* returns s without ^Vs */
  275.     char *s;          /* string to be dequoted */
  276. {
  277.     char d[100];
  278.     char *p, *q;
  279.     int c;
  281.     if (s && *s) {
  282.         p = s - 1;
  283.         q = d - 1;
  284.         while (c = *++p)
  285.             if (c != '26')
  286.                 *++q = c;
  287.         *++q = '';
  288.         strcpy(s, d);
  289.     }
  290.     return 0;
  291. }
  297. /************************/
  298. /*  Function fnlegal()  */
  299. /************************/
  301. int fnlegal(c)         /* returns TRUE if c is a member of the */
  302.     char c;            /*  legal character set for filenames */
  303. {
  304.     char *q;
  305.     static char *legals = {"$%**-<>>AZ[[]]__az"};
  307.     q = legals;
  308.     while (*q)
  309.         if (c < *q++)
  310.             break;
  311.         else if (c <= *q++)
  312.             return TRUE;
  314.     return FALSE;
  315. }