1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*
* Copyright 2003-2007 Gentoo Foundation
* Distributed under the terms of the GNU General Public License v2
* $Header: /var/cvsroot/gentoo-projects/pax-utils/paxinc.c,v 1.8 2007/08/20 09:54:15 vapier Exp $
*
* Copyright 2005-2007 Ned Ludd - <solar@gentoo.org>
* Copyright 2005-2007 Mike Frysinger - <vapier@gentoo.org>
*/
/* stick common symbols here that are needed by paxinc.h */
#define IN_paxinc
#include "paxinc.h"
char do_reverse_endian;
/* some of this ar code was taken from busybox */
#define AR_MAGIC "!<arch>"
#define AR_MAGIC_SIZE (sizeof(AR_MAGIC)-1) /* dont count null byte */
archive_handle *ar_open_fd(const char *filename, int fd)
{
static archive_handle ret;
char buf[AR_MAGIC_SIZE];
ret.filename = filename;
ret.fd = fd;
ret.skip = 0;
if (read(ret.fd, buf, AR_MAGIC_SIZE) != AR_MAGIC_SIZE)
return NULL;
if (strncmp(buf, AR_MAGIC, AR_MAGIC_SIZE))
return NULL;
return &ret;
}
archive_handle *ar_open(const char *filename)
{
int fd;
archive_handle *ret;
if ((fd=open(filename, O_RDONLY)) == -1)
err("Could not open '%s'", filename);
ret = ar_open_fd(filename, fd);
if (ret == NULL)
close(fd);
return ret;
}
archive_member *ar_next(archive_handle *ar)
{
char *s;
size_t len;
static archive_member ret;
if (ar->skip && lseek(ar->fd, ar->skip, SEEK_CUR) == -1) {
close_and_ret:
close(ar->fd);
return NULL;
}
if (read(ar->fd, ret.buf.raw, sizeof(ret.buf.raw)) != sizeof(ret.buf.raw))
goto close_and_ret;
/* ar header starts on an even byte (2 byte aligned)
* '\n' is used for padding */
if (ret.buf.raw[0] == '\n') {
memmove(ret.buf.raw, ret.buf.raw+1, 59);
read(ar->fd, ret.buf.raw+59, 1);
}
if ((ret.buf.formatted.magic[0] != '`') || (ret.buf.formatted.magic[1] != '\n')) {
warn("Invalid ar entry");
goto close_and_ret;
}
if (ret.buf.formatted.name[0] == '/' && ret.buf.formatted.name[1] == '/') {
warn("Sorry, long names not yet supported; output will be incomplete for %s", ar->filename);
ar->skip = atoi(ret.buf.formatted.size);
return ar_next(ar);
}
len = strlen(ar->filename);
assert(len < sizeof(ret.name)-sizeof(ret.buf.formatted.name)-1);
memcpy(ret.name, ar->filename, len);
ret.name[len++] = ':';
memcpy(ret.name+len, ret.buf.formatted.name, sizeof(ret.buf.formatted.name));
if ((s=strchr(ret.name+len, '/')) != NULL)
*s = '\0';
else
ret.name[len+sizeof(ret.buf.formatted.name)-1] = '\0';
ret.date = atoi(ret.buf.formatted.date);
ret.uid = atoi(ret.buf.formatted.uid);
ret.gid = atoi(ret.buf.formatted.gid);
ret.mode = strtol(ret.buf.formatted.mode, NULL, 8);
ret.size = atoi(ret.buf.formatted.size);
ar->skip = ret.size;
return &ret;
}
|
