1 76193d7c 2003-09-30 devnull #include "mk.h"
2 76193d7c 2003-09-30 devnull #define ARMAG "!<arch>\n"
3 76193d7c 2003-09-30 devnull #define SARMAG 8
5 76193d7c 2003-09-30 devnull #define ARFMAG "`\n"
6 76193d7c 2003-09-30 devnull #define SARNAME 16
8 76193d7c 2003-09-30 devnull struct ar_hdr
10 76193d7c 2003-09-30 devnull char name[SARNAME];
11 76193d7c 2003-09-30 devnull char date[12];
12 76193d7c 2003-09-30 devnull char uid[6];
13 76193d7c 2003-09-30 devnull char gid[6];
14 76193d7c 2003-09-30 devnull char mode[8];
15 76193d7c 2003-09-30 devnull char size[10];
16 76193d7c 2003-09-30 devnull char fmag[2];
18 76193d7c 2003-09-30 devnull #define SAR_HDR (SARNAME+44)
20 76193d7c 2003-09-30 devnull static int dolong;
22 76193d7c 2003-09-30 devnull static void atimes(char *);
23 76193d7c 2003-09-30 devnull static char *split(char*, char**);
26 76193d7c 2003-09-30 devnull atimeof(int force, char *name)
28 76193d7c 2003-09-30 devnull Symtab *sym;
30 76193d7c 2003-09-30 devnull char *archive, *member, buf[512];
32 76193d7c 2003-09-30 devnull archive = split(name, &member);
33 76193d7c 2003-09-30 devnull if(archive == 0)
36 76193d7c 2003-09-30 devnull t = mtime(archive);
37 76193d7c 2003-09-30 devnull sym = symlook(archive, S_AGG, 0);
39 76193d7c 2003-09-30 devnull if(force || (t > (long)sym->value)){
40 76193d7c 2003-09-30 devnull atimes(archive);
41 76193d7c 2003-09-30 devnull sym->value = (void *)t;
45 76193d7c 2003-09-30 devnull atimes(archive);
46 76193d7c 2003-09-30 devnull /* mark the aggegate as having been done */
47 76193d7c 2003-09-30 devnull symlook(strdup(archive), S_AGG, "")->value = (void *)t;
49 76193d7c 2003-09-30 devnull /* truncate long member name to sizeof of name field in archive header */
50 76193d7c 2003-09-30 devnull if(dolong)
51 76193d7c 2003-09-30 devnull snprint(buf, sizeof(buf), "%s(%s)", archive, member);
53 76193d7c 2003-09-30 devnull snprint(buf, sizeof(buf), "%s(%.*s)", archive, SARNAME, member);
54 76193d7c 2003-09-30 devnull sym = symlook(buf, S_TIME, 0);
56 76193d7c 2003-09-30 devnull return (long)sym->value; /* uggh */
57 76193d7c 2003-09-30 devnull return 0;
61 76193d7c 2003-09-30 devnull atouch(char *name)
63 76193d7c 2003-09-30 devnull char *archive, *member;
64 76193d7c 2003-09-30 devnull int fd, i;
65 76193d7c 2003-09-30 devnull struct ar_hdr h;
68 76193d7c 2003-09-30 devnull archive = split(name, &member);
69 76193d7c 2003-09-30 devnull if(archive == 0)
72 76193d7c 2003-09-30 devnull fd = open(archive, ORDWR);
73 76193d7c 2003-09-30 devnull if(fd < 0){
74 76193d7c 2003-09-30 devnull fd = create(archive, OWRITE, 0666);
75 76193d7c 2003-09-30 devnull if(fd < 0){
76 76193d7c 2003-09-30 devnull fprint(2, "create %s: %r\n", archive);
79 76193d7c 2003-09-30 devnull write(fd, ARMAG, SARMAG);
81 76193d7c 2003-09-30 devnull if(symlook(name, S_TIME, 0)){
82 76193d7c 2003-09-30 devnull /* hoon off and change it in situ */
83 76193d7c 2003-09-30 devnull LSEEK(fd, SARMAG, 0);
84 76193d7c 2003-09-30 devnull while(read(fd, (char *)&h, sizeof(h)) == sizeof(h)){
85 76193d7c 2003-09-30 devnull for(i = SARNAME-1; i > 0 && h.name[i] == ' '; i--)
87 76193d7c 2003-09-30 devnull h.name[i+1]=0;
88 76193d7c 2003-09-30 devnull if(strcmp(member, h.name) == 0){
89 76193d7c 2003-09-30 devnull t = SARNAME-sizeof(h); /* ughgghh */
90 76193d7c 2003-09-30 devnull LSEEK(fd, t, 1);
91 76193d7c 2003-09-30 devnull fprint(fd, "%-12ld", time(0));
94 76193d7c 2003-09-30 devnull t = atol(h.size);
95 76193d7c 2003-09-30 devnull if(t&01) t++;
96 76193d7c 2003-09-30 devnull LSEEK(fd, t, 1);
99 76193d7c 2003-09-30 devnull close(fd);
102 76193d7c 2003-09-30 devnull static void
103 76193d7c 2003-09-30 devnull atimes(char *ar)
105 76193d7c 2003-09-30 devnull struct ar_hdr h;
107 76193d7c 2003-09-30 devnull int fd, i;
108 76193d7c 2003-09-30 devnull char buf[BIGBLOCK];
109 76193d7c 2003-09-30 devnull char name[sizeof(h.name)+1];
111 76193d7c 2003-09-30 devnull fd = open(ar, OREAD);
112 76193d7c 2003-09-30 devnull if(fd < 0)
115 76193d7c 2003-09-30 devnull if(read(fd, buf, SARMAG) != SARMAG){
116 76193d7c 2003-09-30 devnull close(fd);
119 76193d7c 2003-09-30 devnull while(read(fd, (char *)&h, sizeof(h)) == sizeof(h)){
120 76193d7c 2003-09-30 devnull t = atol(h.date);
121 76193d7c 2003-09-30 devnull if(t == 0) /* as it sometimes happens; thanks ken */
123 76193d7c 2003-09-30 devnull strncpy(name, h.name, sizeof(h.name));
124 76193d7c 2003-09-30 devnull for(i = sizeof(h.name)-1; i > 0 && name[i] == ' '; i--)
126 76193d7c 2003-09-30 devnull if(name[i] == '/') /* system V bug */
128 76193d7c 2003-09-30 devnull name[i+1]=0;
129 76193d7c 2003-09-30 devnull sprint(buf, "%s(%s)", ar, h.size);
130 76193d7c 2003-09-30 devnull symlook(strdup(buf), S_TIME, (void *)t)->value = (void *)t;
131 76193d7c 2003-09-30 devnull t = atol(h.size);
132 76193d7c 2003-09-30 devnull if(t&01) t++;
133 76193d7c 2003-09-30 devnull LSEEK(fd, t, 1);
135 76193d7c 2003-09-30 devnull close(fd);
138 76193d7c 2003-09-30 devnull static int
139 76193d7c 2003-09-30 devnull type(char *file)
142 76193d7c 2003-09-30 devnull char buf[SARMAG];
144 76193d7c 2003-09-30 devnull fd = open(file, OREAD);
145 76193d7c 2003-09-30 devnull if(fd < 0){
146 76193d7c 2003-09-30 devnull if(symlook(file, S_BITCH, 0) == 0){
147 76193d7c 2003-09-30 devnull Bprint(&bout, "%s doesn't exist: assuming it will be an archive\n", file);
148 76193d7c 2003-09-30 devnull symlook(file, S_BITCH, (void *)file);
150 76193d7c 2003-09-30 devnull return 1;
152 76193d7c 2003-09-30 devnull if(read(fd, buf, SARMAG) != SARMAG){
153 76193d7c 2003-09-30 devnull close(fd);
154 76193d7c 2003-09-30 devnull return 0;
156 76193d7c 2003-09-30 devnull close(fd);
157 76193d7c 2003-09-30 devnull return !strncmp(ARMAG, buf, SARMAG);
160 76193d7c 2003-09-30 devnull static char*
161 76193d7c 2003-09-30 devnull split(char *name, char **member)
163 76193d7c 2003-09-30 devnull char *p, *q;
165 76193d7c 2003-09-30 devnull p = strdup(name);
166 76193d7c 2003-09-30 devnull q = utfrune(p, '(');
168 76193d7c 2003-09-30 devnull *q++ = 0;
169 76193d7c 2003-09-30 devnull if(member)
170 76193d7c 2003-09-30 devnull *member = q;
171 76193d7c 2003-09-30 devnull q = utfrune(q, ')');
174 76193d7c 2003-09-30 devnull if(type(p))
175 76193d7c 2003-09-30 devnull return p;
176 76193d7c 2003-09-30 devnull free(p);
177 76193d7c 2003-09-30 devnull fprint(2, "mk: '%s' is not an archive\n", name);
179 76193d7c 2003-09-30 devnull return 0;