![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ranlib.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / bin|
Return to ranlib.c CVS log | Up to [MW Coherent from dump] / coherent / d / bin |
1.1 root 1: /*
2: * Make libraries more accessible to the loader
3: * by copying all the globally defined symbols
4: * into a special module at the front of the archive.
5: * Speed up by simply overwriting the header in the archive
6: * if it fits, which it will more often than not.
7: */
8: #include <stdio.h>
9: #include <ar.h>
10: #include <canon.h>
11:
12: static struct ldheader ldh;
13:
14: main(argc, argv)
15: int argc;
16: char *argv[];
17: {
18: register int i, errors = 0;
19:
20: if (argc==1) {
21: fprintf(stderr, "Usage: %s [ archive]+\n", argv[0]);
22: exit(1);
23: }
24: for (i=1; i<argc; i++) {
25: errors += ranlib(argv[i]);
26: }
27: unlink(HDRNAME);
28: exit(errors);
29: }
30:
31: static
32: void
33: complain(plaint)
34: char *plaint;
35: {
36: fprintf(stderr, "ranlib: %r\n", &plaint);
37: }
38:
39: static
40: void
41: xwrite(sym, fp)
42: ar_sym *sym;
43: FILE *fp;
44: {
45: if (fwrite(sym, sizeof(ar_sym), 1, fp)!=1) {
46: complain("write error on header file");
47: exit(1);
48: }
49: }
50:
51: static
52: void
53: addhdr(base, arhp, hdrfp, arfp, archive)
54: fsize_t base;
55: struct ar_hdr *arhp;
56: FILE *hdrfp, *arfp;
57: char *archive;
58: {
59: fsize_t off;
60: int seg, nsym;
61: fsize_t offset;
62:
63: cansize(arhp->ar_size);
64: arhp->ar_size += off = ftell(arfp);
65: off -= base;
66: ldh.l_magic = 0; /* in case fread fails */
67: if (fread(&ldh, sizeof ldh, 1, arfp)!=1)
68: goto done;
69: canshort(ldh.l_magic);
70: if (ldh.l_magic!=L_MAGIC)
71: goto done;
72: canshort(ldh.l_flag);
73: if ((ldh.l_flag & LF_32) == 0)
74: ldh.l_tbase = sizeof(ldh) - 2*sizeof(short);
75: else
76: canshort(ldh.l_tbase);
77: offset = ldh.l_tbase - (fsize_t)sizeof(ldh);
78: for (seg=0; seg<L_SYM; seg++) {
79: if (seg==L_BSSI || seg==L_BSSD)
80: continue;
81: cansize(ldh.l_ssize[seg]);
82: offset += ldh.l_ssize[seg];
83: }
84: fseek(arfp, offset, 1);
85: cansize(ldh.l_ssize[L_SYM]);
86: if ((ldh.l_flag & LF_32) == 0)
87: nsym = ldh.l_ssize[L_SYM]
88: / (sizeof(struct ldsym) - sizeof(short));
89: else
90: nsym = ldh.l_ssize[L_SYM]/sizeof(struct ldsym);
91: while (nsym--) {
92: union {struct ldsym u_ldsym; ar_sym u_ar_sym;} sym;
93:
94: if (readsym((struct ldsym *)&sym, arfp) == 0) {
95: complain("truncated module %.*s in %s",
96: DIRSIZ, arhp->ar_name, archive);
97: exit(1);
98: }
99: if ((sym.ls_type&L_GLOBAL) == 0)
100: continue;
101: if ((sym.ls_type&LR_SEG) != L_REF) {
102: sym.ar_off = off;
103: cansize(sym.ar_off);
104: xwrite(&sym, hdrfp);
105: }
106: }
107: done:
108: fseek(arfp, arhp->ar_size, 0); /* to end of module */
109: return;
110: }
111:
112: static
113: readsym(sp, fp)
114: register struct ldsym *sp;
115: FILE *fp;
116: {
117: register int r;
118: union { long l; unsigned u[2]; } u;
119:
120: if ((ldh.l_flag & LF_32) == 0) {
121: r = fread(sp, sizeof(struct ldsym)-sizeof(short), 1, fp);
122: u.l = sp->ls_addr;
123: canshort(u.u[0]);
124: sp->ls_addr = u.u[0];
125: } else {
126: r = fread(sp, sizeof(struct ldsym), 1, fp);
127: canlong(sp->ls_addr);
128: }
129: canshort(sp->ls_type);
130: return (r);
131: }
132:
133: static
134: int
135: ranlib(archive)
136: char *archive;
137: {
138: FILE *arfile, *hdrfile;
139: char arcmd[256];
140: struct ar_hdr arhdr;
141: struct ar_sym arsym;
142: fsize_t ohdrsize, nhdrsize;
143: int armagic = 0;
144: fsize_t arbase = sizeof armagic+sizeof arhdr;
145: extern time_t time();
146:
147: if ((arfile=fopen(archive, "rb"))==NULL) {
148: complain("can't open archive %s", archive);
149: return (1);
150: }
151: fread(&armagic, sizeof armagic, 1, arfile);
152: canint(armagic);
153: if (armagic!=ARMAG) {
154: complain("%s is not an archive", archive);
155: fclose(arfile);
156: return (1);
157: }
158: if (fread(&arhdr, sizeof arhdr, 1, arfile)!=1) {
159: fclose(arfile); /* void archive */
160: return (0);
161: }
162: if ((hdrfile=fopen(HDRNAME, "wb"))==NULL) {
163: complain("can't create header file");
164: fclose(arfile);
165: exit(1);
166: }
167: if (strncmp(arhdr.ar_name, HDRNAME, DIRSIZ)==0) {
168: sprintf(arcmd, "ar ru %s %s", archive, HDRNAME);
169: cansize(arhdr.ar_size);
170: ohdrsize = arhdr.ar_size;
171: fseek(arfile, arhdr.ar_size, 1);
172: arbase += arhdr.ar_size+sizeof arhdr;
173: } else {
174: sprintf(arcmd, "ar rub %.*s %s %s", DIRSIZ, arhdr.ar_name,
175: archive, HDRNAME);
176: ohdrsize = 0;
177: addhdr(arbase, &arhdr, hdrfile, arfile, archive);
178: }
179: while(fread(&arhdr, sizeof arhdr, 1, arfile)==1)
180: addhdr(arbase, &arhdr, hdrfile, arfile, archive);
181: nhdrsize = ftell(hdrfile);
182: if (fclose(hdrfile)==EOF) {
183: complain("close error on header file");
184: exit(1);
185: }
186: if (ferror(arfile)) {
187: complain("read error on archive %s", archive);
188: fclose(arfile);
189: return (1);
190: }
191: fclose(arfile);
192: if (ohdrsize < nhdrsize)
193: return system(arcmd);
194: if (ohdrsize == 0) {
195: complain("zero length header file");
196: return (0);
197: }
198: if ((arfile=fopen(archive, "rwb"))==NULL) {
199: complain("can't reopen archive %s", archive);
200: return (1);
201: }
202: fread(&armagic, sizeof armagic, 1, arfile);
203: canint(armagic);
204: if (armagic!=ARMAG) {
205: complain("%s is no longer an archive", archive);
206: fclose(arfile);
207: return (1);
208: }
209: if ((hdrfile=fopen(HDRNAME, "rb"))==NULL) {
210: complain("can't reopen header file");
211: fclose(arfile);
212: exit(1);
213: }
214: if (fread(&arhdr, sizeof arhdr, 1, arfile)!=1) {
215: complain("can't read archive: %s", archive);
216: fclose(arfile);
217: fclose(hdrfile);
218: return (1);
219: }
220: arhdr.ar_date = time(NULL);
221: cantime(arhdr.ar_date);
222: fseek(arfile, (long)-sizeof arhdr, 1);
223: fwrite(&arhdr, sizeof arhdr, 1, arfile);
224: while (fread(&arsym, sizeof arsym, 1, hdrfile) == 1) {
225: fwrite(&arsym, sizeof arsym, 1, arfile);
226: ohdrsize -= sizeof arsym;
227: }
228: while (ohdrsize > 0) {
229: fwrite(&arsym, sizeof arsym, 1, arfile);
230: ohdrsize -= sizeof arsym;
231: }
232: if (fclose(arfile) == EOF)
233: complain("close error on overwritten archive: %s", archive);
234: if (fclose(hdrfile) == EOF)
235: complain("close error on reread header file");
236: return (0);
237: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.