OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [zlib/] [contrib/] [untgz/] [untgz.c] - Blame information for rev 745

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 745 jeremybenn
/*
2
 * untgz.c -- Display contents and extract files from a gzip'd TAR file
3
 *
4
 * written by Pedro A. Aranda Gutierrez <paag@tid.es>
5
 * adaptation to Unix by Jean-loup Gailly <jloup@gzip.org>
6
 * various fixes by Cosmin Truta <cosmint@cs.ubbcluj.ro>
7
 */
8
 
9
#include <stdio.h>
10
#include <stdlib.h>
11
#include <string.h>
12
#include <time.h>
13
#include <errno.h>
14
 
15
#include "zlib.h"
16
 
17
#ifdef unix
18
#  include <unistd.h>
19
#else
20
#  include <direct.h>
21
#  include <io.h>
22
#endif
23
 
24
#ifdef WIN32
25
#include <windows.h>
26
#  ifndef F_OK
27
#    define F_OK  0
28
#  endif
29
#  define mkdir(dirname,mode)   _mkdir(dirname)
30
#  ifdef _MSC_VER
31
#    define access(path,mode)   _access(path,mode)
32
#    define chmod(path,mode)    _chmod(path,mode)
33
#    define strdup(str)         _strdup(str)
34
#  endif
35
#else
36
#  include <utime.h>
37
#endif
38
 
39
 
40
/* values used in typeflag field */
41
 
42
#define REGTYPE  '0'            /* regular file */
43
#define AREGTYPE '\0'           /* regular file */
44
#define LNKTYPE  '1'            /* link */
45
#define SYMTYPE  '2'            /* reserved */
46
#define CHRTYPE  '3'            /* character special */
47
#define BLKTYPE  '4'            /* block special */
48
#define DIRTYPE  '5'            /* directory */
49
#define FIFOTYPE '6'            /* FIFO special */
50
#define CONTTYPE '7'            /* reserved */
51
 
52
/* GNU tar extensions */
53
 
54
#define GNUTYPE_DUMPDIR  'D'    /* file names from dumped directory */
55
#define GNUTYPE_LONGLINK 'K'    /* long link name */
56
#define GNUTYPE_LONGNAME 'L'    /* long file name */
57
#define GNUTYPE_MULTIVOL 'M'    /* continuation of file from another volume */
58
#define GNUTYPE_NAMES    'N'    /* file name that does not fit into main hdr */
59
#define GNUTYPE_SPARSE   'S'    /* sparse file */
60
#define GNUTYPE_VOLHDR   'V'    /* tape/volume header */
61
 
62
 
63
/* tar header */
64
 
65
#define BLOCKSIZE     512
66
#define SHORTNAMESIZE 100
67
 
68
struct tar_header
69
{                               /* byte offset */
70
  char name[100];               /*   0 */
71
  char mode[8];                 /* 100 */
72
  char uid[8];                  /* 108 */
73
  char gid[8];                  /* 116 */
74
  char size[12];                /* 124 */
75
  char mtime[12];               /* 136 */
76
  char chksum[8];               /* 148 */
77
  char typeflag;                /* 156 */
78
  char linkname[100];           /* 157 */
79
  char magic[6];                /* 257 */
80
  char version[2];              /* 263 */
81
  char uname[32];               /* 265 */
82
  char gname[32];               /* 297 */
83
  char devmajor[8];             /* 329 */
84
  char devminor[8];             /* 337 */
85
  char prefix[155];             /* 345 */
86
                                /* 500 */
87
};
88
 
89
union tar_buffer
90
{
91
  char               buffer[BLOCKSIZE];
92
  struct tar_header  header;
93
};
94
 
95
struct attr_item
96
{
97
  struct attr_item  *next;
98
  char              *fname;
99
  int                mode;
100
  time_t             time;
101
};
102
 
103
enum { TGZ_EXTRACT, TGZ_LIST, TGZ_INVALID };
104
 
105
char *TGZfname          OF((const char *));
106
void TGZnotfound        OF((const char *));
107
 
108
int getoct              OF((char *, int));
109
char *strtime           OF((time_t *));
110
int setfiletime         OF((char *, time_t));
111
void push_attr          OF((struct attr_item **, char *, int, time_t));
112
void restore_attr       OF((struct attr_item **));
113
 
114
int ExprMatch           OF((char *, char *));
115
 
116
int makedir             OF((char *));
117
int matchname           OF((int, int, char **, char *));
118
 
119
void error              OF((const char *));
120
int tar                 OF((gzFile, int, int, int, char **));
121
 
122
void help               OF((int));
123
int main                OF((int, char **));
124
 
125
char *prog;
126
 
127
const char *TGZsuffix[] = { "\0", ".tar", ".tar.gz", ".taz", ".tgz", NULL };
128
 
129
/* return the file name of the TGZ archive */
130
/* or NULL if it does not exist */
131
 
132
char *TGZfname (const char *arcname)
133
{
134
  static char buffer[1024];
135
  int origlen,i;
136
 
137
  strcpy(buffer,arcname);
138
  origlen = strlen(buffer);
139
 
140
  for (i=0; TGZsuffix[i]; i++)
141
    {
142
       strcpy(buffer+origlen,TGZsuffix[i]);
143
       if (access(buffer,F_OK) == 0)
144
         return buffer;
145
    }
146
  return NULL;
147
}
148
 
149
 
150
/* error message for the filename */
151
 
152
void TGZnotfound (const char *arcname)
153
{
154
  int i;
155
 
156
  fprintf(stderr,"%s: Couldn't find ",prog);
157
  for (i=0;TGZsuffix[i];i++)
158
    fprintf(stderr,(TGZsuffix[i+1]) ? "%s%s, " : "or %s%s\n",
159
            arcname,
160
            TGZsuffix[i]);
161
  exit(1);
162
}
163
 
164
 
165
/* convert octal digits to int */
166
/* on error return -1 */
167
 
168
int getoct (char *p,int width)
169
{
170
  int result = 0;
171
  char c;
172
 
173
  while (width--)
174
    {
175
      c = *p++;
176
      if (c == 0)
177
        break;
178
      if (c == ' ')
179
        continue;
180
      if (c < '0' || c > '7')
181
        return -1;
182
      result = result * 8 + (c - '0');
183
    }
184
  return result;
185
}
186
 
187
 
188
/* convert time_t to string */
189
/* use the "YYYY/MM/DD hh:mm:ss" format */
190
 
191
char *strtime (time_t *t)
192
{
193
  struct tm   *local;
194
  static char result[32];
195
 
196
  local = localtime(t);
197
  sprintf(result,"%4d/%02d/%02d %02d:%02d:%02d",
198
          local->tm_year+1900, local->tm_mon+1, local->tm_mday,
199
          local->tm_hour, local->tm_min, local->tm_sec);
200
  return result;
201
}
202
 
203
 
204
/* set file time */
205
 
206
int setfiletime (char *fname,time_t ftime)
207
{
208
#ifdef WIN32
209
  static int isWinNT = -1;
210
  SYSTEMTIME st;
211
  FILETIME locft, modft;
212
  struct tm *loctm;
213
  HANDLE hFile;
214
  int result;
215
 
216
  loctm = localtime(&ftime);
217
  if (loctm == NULL)
218
    return -1;
219
 
220
  st.wYear         = (WORD)loctm->tm_year + 1900;
221
  st.wMonth        = (WORD)loctm->tm_mon + 1;
222
  st.wDayOfWeek    = (WORD)loctm->tm_wday;
223
  st.wDay          = (WORD)loctm->tm_mday;
224
  st.wHour         = (WORD)loctm->tm_hour;
225
  st.wMinute       = (WORD)loctm->tm_min;
226
  st.wSecond       = (WORD)loctm->tm_sec;
227
  st.wMilliseconds = 0;
228
  if (!SystemTimeToFileTime(&st, &locft) ||
229
      !LocalFileTimeToFileTime(&locft, &modft))
230
    return -1;
231
 
232
  if (isWinNT < 0)
233
    isWinNT = (GetVersion() < 0x80000000) ? 1 : 0;
234
  hFile = CreateFile(fname, GENERIC_WRITE, 0, NULL, OPEN_EXISTING,
235
                     (isWinNT ? FILE_FLAG_BACKUP_SEMANTICS : 0),
236
                     NULL);
237
  if (hFile == INVALID_HANDLE_VALUE)
238
    return -1;
239
  result = SetFileTime(hFile, NULL, NULL, &modft) ? 0 : -1;
240
  CloseHandle(hFile);
241
  return result;
242
#else
243
  struct utimbuf settime;
244
 
245
  settime.actime = settime.modtime = ftime;
246
  return utime(fname,&settime);
247
#endif
248
}
249
 
250
 
251
/* push file attributes */
252
 
253
void push_attr(struct attr_item **list,char *fname,int mode,time_t time)
254
{
255
  struct attr_item *item;
256
 
257
  item = (struct attr_item *)malloc(sizeof(struct attr_item));
258
  if (item == NULL)
259
    error("Out of memory");
260
  item->fname = strdup(fname);
261
  item->mode  = mode;
262
  item->time  = time;
263
  item->next  = *list;
264
  *list       = item;
265
}
266
 
267
 
268
/* restore file attributes */
269
 
270
void restore_attr(struct attr_item **list)
271
{
272
  struct attr_item *item, *prev;
273
 
274
  for (item = *list; item != NULL; )
275
    {
276
      setfiletime(item->fname,item->time);
277
      chmod(item->fname,item->mode);
278
      prev = item;
279
      item = item->next;
280
      free(prev);
281
    }
282
  *list = NULL;
283
}
284
 
285
 
286
/* match regular expression */
287
 
288
#define ISSPECIAL(c) (((c) == '*') || ((c) == '/'))
289
 
290
int ExprMatch (char *string,char *expr)
291
{
292
  while (1)
293
    {
294
      if (ISSPECIAL(*expr))
295
        {
296
          if (*expr == '/')
297
            {
298
              if (*string != '\\' && *string != '/')
299
                return 0;
300
              string ++; expr++;
301
            }
302
          else if (*expr == '*')
303
            {
304
              if (*expr ++ == 0)
305
                return 1;
306
              while (*++string != *expr)
307
                if (*string == 0)
308
                  return 0;
309
            }
310
        }
311
      else
312
        {
313
          if (*string != *expr)
314
            return 0;
315
          if (*expr++ == 0)
316
            return 1;
317
          string++;
318
        }
319
    }
320
}
321
 
322
 
323
/* recursive mkdir */
324
/* abort on ENOENT; ignore other errors like "directory already exists" */
325
/* return 1 if OK */
326
/*        0 on error */
327
 
328
int makedir (char *newdir)
329
{
330
  char *buffer = strdup(newdir);
331
  char *p;
332
  int  len = strlen(buffer);
333
 
334
  if (len <= 0) {
335
    free(buffer);
336
    return 0;
337
  }
338
  if (buffer[len-1] == '/') {
339
    buffer[len-1] = '\0';
340
  }
341
  if (mkdir(buffer, 0755) == 0)
342
    {
343
      free(buffer);
344
      return 1;
345
    }
346
 
347
  p = buffer+1;
348
  while (1)
349
    {
350
      char hold;
351
 
352
      while(*p && *p != '\\' && *p != '/')
353
        p++;
354
      hold = *p;
355
      *p = 0;
356
      if ((mkdir(buffer, 0755) == -1) && (errno == ENOENT))
357
        {
358
          fprintf(stderr,"%s: Couldn't create directory %s\n",prog,buffer);
359
          free(buffer);
360
          return 0;
361
        }
362
      if (hold == 0)
363
        break;
364
      *p++ = hold;
365
    }
366
  free(buffer);
367
  return 1;
368
}
369
 
370
 
371
int matchname (int arg,int argc,char **argv,char *fname)
372
{
373
  if (arg == argc)      /* no arguments given (untgz tgzarchive) */
374
    return 1;
375
 
376
  while (arg < argc)
377
    if (ExprMatch(fname,argv[arg++]))
378
      return 1;
379
 
380
  return 0; /* ignore this for the moment being */
381
}
382
 
383
 
384
/* tar file list or extract */
385
 
386
int tar (gzFile in,int action,int arg,int argc,char **argv)
387
{
388
  union  tar_buffer buffer;
389
  int    len;
390
  int    err;
391
  int    getheader = 1;
392
  int    remaining = 0;
393
  FILE   *outfile = NULL;
394
  char   fname[BLOCKSIZE];
395
  int    tarmode;
396
  time_t tartime;
397
  struct attr_item *attributes = NULL;
398
 
399
  if (action == TGZ_LIST)
400
    printf("    date      time     size                       file\n"
401
           " ---------- -------- --------- -------------------------------------\n");
402
  while (1)
403
    {
404
      len = gzread(in, &buffer, BLOCKSIZE);
405
      if (len < 0)
406
        error(gzerror(in, &err));
407
      /*
408
       * Always expect complete blocks to process
409
       * the tar information.
410
       */
411
      if (len != BLOCKSIZE)
412
        {
413
          action = TGZ_INVALID; /* force error exit */
414
          remaining = 0;        /* force I/O cleanup */
415
        }
416
 
417
      /*
418
       * If we have to get a tar header
419
       */
420
      if (getheader >= 1)
421
        {
422
          /*
423
           * if we met the end of the tar
424
           * or the end-of-tar block,
425
           * we are done
426
           */
427
          if (len == 0 || buffer.header.name[0] == 0)
428
            break;
429
 
430
          tarmode = getoct(buffer.header.mode,8);
431
          tartime = (time_t)getoct(buffer.header.mtime,12);
432
          if (tarmode == -1 || tartime == (time_t)-1)
433
            {
434
              buffer.header.name[0] = 0;
435
              action = TGZ_INVALID;
436
            }
437
 
438
          if (getheader == 1)
439
            {
440
              strncpy(fname,buffer.header.name,SHORTNAMESIZE);
441
              if (fname[SHORTNAMESIZE-1] != 0)
442
                  fname[SHORTNAMESIZE] = 0;
443
            }
444
          else
445
            {
446
              /*
447
               * The file name is longer than SHORTNAMESIZE
448
               */
449
              if (strncmp(fname,buffer.header.name,SHORTNAMESIZE-1) != 0)
450
                  error("bad long name");
451
              getheader = 1;
452
            }
453
 
454
          /*
455
           * Act according to the type flag
456
           */
457
          switch (buffer.header.typeflag)
458
            {
459
            case DIRTYPE:
460
              if (action == TGZ_LIST)
461
                printf(" %s     <dir> %s\n",strtime(&tartime),fname);
462
              if (action == TGZ_EXTRACT)
463
                {
464
                  makedir(fname);
465
                  push_attr(&attributes,fname,tarmode,tartime);
466
                }
467
              break;
468
            case REGTYPE:
469
            case AREGTYPE:
470
              remaining = getoct(buffer.header.size,12);
471
              if (remaining == -1)
472
                {
473
                  action = TGZ_INVALID;
474
                  break;
475
                }
476
              if (action == TGZ_LIST)
477
                printf(" %s %9d %s\n",strtime(&tartime),remaining,fname);
478
              else if (action == TGZ_EXTRACT)
479
                {
480
                  if (matchname(arg,argc,argv,fname))
481
                    {
482
                      outfile = fopen(fname,"wb");
483
                      if (outfile == NULL) {
484
                        /* try creating directory */
485
                        char *p = strrchr(fname, '/');
486
                        if (p != NULL) {
487
                          *p = '\0';
488
                          makedir(fname);
489
                          *p = '/';
490
                          outfile = fopen(fname,"wb");
491
                        }
492
                      }
493
                      if (outfile != NULL)
494
                        printf("Extracting %s\n",fname);
495
                      else
496
                        fprintf(stderr, "%s: Couldn't create %s",prog,fname);
497
                    }
498
                  else
499
                    outfile = NULL;
500
                }
501
              getheader = 0;
502
              break;
503
            case GNUTYPE_LONGLINK:
504
            case GNUTYPE_LONGNAME:
505
              remaining = getoct(buffer.header.size,12);
506
              if (remaining < 0 || remaining >= BLOCKSIZE)
507
                {
508
                  action = TGZ_INVALID;
509
                  break;
510
                }
511
              len = gzread(in, fname, BLOCKSIZE);
512
              if (len < 0)
513
                error(gzerror(in, &err));
514
              if (fname[BLOCKSIZE-1] != 0 || (int)strlen(fname) > remaining)
515
                {
516
                  action = TGZ_INVALID;
517
                  break;
518
                }
519
              getheader = 2;
520
              break;
521
            default:
522
              if (action == TGZ_LIST)
523
                printf(" %s     <---> %s\n",strtime(&tartime),fname);
524
              break;
525
            }
526
        }
527
      else
528
        {
529
          unsigned int bytes = (remaining > BLOCKSIZE) ? BLOCKSIZE : remaining;
530
 
531
          if (outfile != NULL)
532
            {
533
              if (fwrite(&buffer,sizeof(char),bytes,outfile) != bytes)
534
                {
535
                  fprintf(stderr,
536
                    "%s: Error writing %s -- skipping\n",prog,fname);
537
                  fclose(outfile);
538
                  outfile = NULL;
539
                  remove(fname);
540
                }
541
            }
542
          remaining -= bytes;
543
        }
544
 
545
      if (remaining == 0)
546
        {
547
          getheader = 1;
548
          if (outfile != NULL)
549
            {
550
              fclose(outfile);
551
              outfile = NULL;
552
              if (action != TGZ_INVALID)
553
                push_attr(&attributes,fname,tarmode,tartime);
554
            }
555
        }
556
 
557
      /*
558
       * Abandon if errors are found
559
       */
560
      if (action == TGZ_INVALID)
561
        {
562
          error("broken archive");
563
          break;
564
        }
565
    }
566
 
567
  /*
568
   * Restore file modes and time stamps
569
   */
570
  restore_attr(&attributes);
571
 
572
  if (gzclose(in) != Z_OK)
573
    error("failed gzclose");
574
 
575
  return 0;
576
}
577
 
578
 
579
/* ============================================================ */
580
 
581
void help(int exitval)
582
{
583
  printf("untgz version 0.2.1\n"
584
         "  using zlib version %s\n\n",
585
         zlibVersion());
586
  printf("Usage: untgz file.tgz            extract all files\n"
587
         "       untgz file.tgz fname ...  extract selected files\n"
588
         "       untgz -l file.tgz         list archive contents\n"
589
         "       untgz -h                  display this help\n");
590
  exit(exitval);
591
}
592
 
593
void error(const char *msg)
594
{
595
  fprintf(stderr, "%s: %s\n", prog, msg);
596
  exit(1);
597
}
598
 
599
 
600
/* ============================================================ */
601
 
602
#if defined(WIN32) && defined(__GNUC__)
603
int _CRT_glob = 0;      /* disable argument globbing in MinGW */
604
#endif
605
 
606
int main(int argc,char **argv)
607
{
608
    int         action = TGZ_EXTRACT;
609
    int         arg = 1;
610
    char        *TGZfile;
611
    gzFile      *f;
612
 
613
    prog = strrchr(argv[0],'\\');
614
    if (prog == NULL)
615
      {
616
        prog = strrchr(argv[0],'/');
617
        if (prog == NULL)
618
          {
619
            prog = strrchr(argv[0],':');
620
            if (prog == NULL)
621
              prog = argv[0];
622
            else
623
              prog++;
624
          }
625
        else
626
          prog++;
627
      }
628
    else
629
      prog++;
630
 
631
    if (argc == 1)
632
      help(0);
633
 
634
    if (strcmp(argv[arg],"-l") == 0)
635
      {
636
        action = TGZ_LIST;
637
        if (argc == ++arg)
638
          help(0);
639
      }
640
    else if (strcmp(argv[arg],"-h") == 0)
641
      {
642
        help(0);
643
      }
644
 
645
    if ((TGZfile = TGZfname(argv[arg])) == NULL)
646
      TGZnotfound(argv[arg]);
647
 
648
    ++arg;
649
    if ((action == TGZ_LIST) && (arg != argc))
650
      help(1);
651
 
652
/*
653
 *  Process the TGZ file
654
 */
655
    switch(action)
656
      {
657
      case TGZ_LIST:
658
      case TGZ_EXTRACT:
659
        f = gzopen(TGZfile,"rb");
660
        if (f == NULL)
661
          {
662
            fprintf(stderr,"%s: Couldn't gzopen %s\n",prog,TGZfile);
663
            return 1;
664
          }
665
        exit(tar(f, action, arg, argc, argv));
666
      break;
667
 
668
      default:
669
        error("Unknown option");
670
        exit(1);
671
      }
672
 
673
    return 0;
674
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.