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
|
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <string.h>
#include <malloc.h>
#define ARMAG "!<arch>\n"
#define SARMAG 8
#define ARFMAG "`\n"
struct ar_hdr {
char ar_name[16],
ar_date[12],
ar_uid[6],
ar_gid[6],
ar_mode[8],
ar_size[10],
ar_fmag[2];
} arbuf;
void
fatal(char * str) { fprintf(stderr, "%s\n", str); exit(2); }
void
main(int argc, char ** argv)
{
char buf[128];
FILE * fd, * ifd;
struct stat st;
int ar, libarg=0, need_o = 0, got_o = 0;
for(ar=1; ar<argc; ar++) if( argv[ar][0] == '-' )
{
if( argv[ar][1] == 'r' ) need_o = 1;
if( argv[ar][1] == 'o' ) { got_o++; libarg = 0; }
}
else
{
if( libarg == 0 ) libarg = ar;
}
if( libarg == 0 || got_o > 1 || need_o > got_o )
fatal("Err, what's the output gonna be called?");
if( (fd =fopen(argv[libarg], "wb")) == 0 ) fatal("Cannot open archive");
if( fwrite(ARMAG, 1, SARMAG, fd) != SARMAG) fatal("Cannot write magic");
for(ar=1; ar<argc; ar++) if( ar != libarg && argv[ar][0] != '-' )
{
char * ptr;
if( stat(argv[ar], &st) < 0 ) fatal("Cannot stat object");
if((ptr=strchr(argv[ar], '/'))) ptr++; else ptr=argv[ar];
memset(&arbuf, ' ', sizeof(arbuf));
strcpy(buf, ptr); strcat(buf, "/ ");
strncpy(arbuf.ar_name, buf, sizeof(arbuf.ar_name));
sprintf(arbuf.ar_date, "%-12ld", (long)st.st_mtime);
sprintf(arbuf.ar_uid, "%-6d", (int)(st.st_uid%1000000L));
sprintf(arbuf.ar_gid, "%-6d", (int)(st.st_gid%1000000L));
sprintf(arbuf.ar_mode, "%-8lo", (long)st.st_mode);
sprintf(arbuf.ar_size, "%-10ld", (long)st.st_size);
memcpy(arbuf.ar_fmag, ARFMAG, sizeof(arbuf.ar_fmag));
if( fwrite(&arbuf, 1, sizeof(arbuf), fd) != sizeof(arbuf) )
fatal("Cannot write header");
ptr = malloc(st.st_size+2);
if( ptr == 0 ) fatal("Out of memory");
ptr[st.st_size] = ' ';
if( (ifd = fopen(argv[ar], "rb")) == 0 ) fatal("Cannot open input");
if( fread(ptr, 1, st.st_size, ifd) != st.st_size )
fatal("Cannot read input file");
fclose(ifd);
if( st.st_size&1 ) st.st_size++;
if( fwrite(ptr, 1, st.st_size, fd) != st.st_size )
fatal("Cannot write output file");
}
fclose(fd);
exit(0);
}
|