![[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 [Research Unix] / researchv9 / cmd|
Return to ranlib.c CVS log | Up to [Research Unix] / researchv9 / cmd |
1.1 ! root 1: /* ! 2: * ranlib - create table of contents for archive ! 3: */ ! 4: #include <sys/types.h> ! 5: #include <ar.h> ! 6: #include <ranlib.h> ! 7: #include <a.out.h> ! 8: #include <stdio.h> ! 9: ! 10: struct ar_hdr archdr; ! 11: #define OARMAG 0177545 ! 12: long arsize; ! 13: struct exec exp; ! 14: FILE *fi, *fo; ! 15: long off, oldoff; ! 16: long atol(), ftell(); ! 17: #define TABSZ 5000 ! 18: struct ranlib tab[TABSZ]; ! 19: int tnum; ! 20: #define STRTABSZ 75000 ! 21: char tstrtab[STRTABSZ]; ! 22: int tssiz; ! 23: char *strtab; ! 24: int ssiz; ! 25: int new; ! 26: char tempnm[] = "__.SYMDEF"; ! 27: char firstname[17]; ! 28: ! 29: main(argc, argv) ! 30: char **argv; ! 31: { ! 32: char cmdbuf[BUFSIZ]; ! 33: char magbuf[SARMAG+1]; ! 34: ! 35: --argc; ! 36: while(argc--) { ! 37: fi = fopen(*++argv,"r"); ! 38: if (fi == NULL) { ! 39: fprintf(stderr, "ranlib: cannot open %s\n", *argv); ! 40: continue; ! 41: } ! 42: off = SARMAG; ! 43: fread(magbuf, 1, SARMAG, fi); ! 44: if (strncmp(magbuf, ARMAG, SARMAG)) { ! 45: if (*(int *)magbuf == OARMAG) ! 46: fprintf(stderr, "old format "); ! 47: else ! 48: fprintf(stderr, "not an "); ! 49: fprintf(stderr, "archive: %s\n", *argv); ! 50: continue; ! 51: } ! 52: fseek(fi, 0L, 0); ! 53: new = tnum = 0; ! 54: if (nextel(fi) == 0) { ! 55: fclose(fi); ! 56: continue; ! 57: } ! 58: if(strncmp(archdr.ar_name, tempnm, strlen(tempnm)) == 0) ! 59: nextel(fi); ! 60: do { ! 61: long o; ! 62: register n; ! 63: struct nlist sym; ! 64: ! 65: fread((char *)&exp, 1, sizeof(struct exec), fi); ! 66: if (N_BADMAG(exp)) ! 67: continue; ! 68: if (exp.a_syms == 0) { ! 69: fprintf(stderr, "ranlib: warning: %s(%s): no symbol table\n", *argv, archdr.ar_name); ! 70: continue; ! 71: } ! 72: o = N_STROFF(exp) - sizeof (struct exec); ! 73: if (ftell(fi)+o+sizeof(ssiz) >= off) { ! 74: fprintf(stderr, "ranlib: %s(%s): old format .o file\n", *argv, archdr.ar_name); ! 75: exit(1); ! 76: } ! 77: fseek(fi, o, 1); ! 78: fread((char *)&ssiz, 1, sizeof (ssiz), fi); ! 79: strtab = (char *)calloc(1, ssiz); ! 80: if (strtab == 0) { ! 81: fprintf(stderr, "ranlib: ran out of memory\n"); ! 82: exit(1); ! 83: } ! 84: fread(strtab+sizeof(ssiz), ssiz - sizeof(ssiz), 1, fi); ! 85: fseek(fi, -(exp.a_syms+ssiz), 1); ! 86: n = exp.a_syms / sizeof(struct nlist); ! 87: while (--n >= 0) { ! 88: fread((char *)&sym, 1, sizeof(sym), fi); ! 89: if (sym.n_un.n_strx == 0) ! 90: continue; ! 91: sym.n_un.n_name = strtab + sym.n_un.n_strx; ! 92: if ((sym.n_type&N_EXT)==0) ! 93: continue; ! 94: switch (sym.n_type&N_TYPE) { ! 95: ! 96: case N_UNDF: ! 97: if (sym.n_value!=0) ! 98: stash(&sym); ! 99: continue; ! 100: ! 101: default: ! 102: stash(&sym); ! 103: continue; ! 104: } ! 105: } ! 106: } while(nextel(fi)); ! 107: new = fixsize(); ! 108: fclose(fi); ! 109: fo = fopen(tempnm, "w"); ! 110: if(fo == NULL) { ! 111: fprintf(stderr, "can't create temporary\n"); ! 112: exit(1); ! 113: } ! 114: tnum *= sizeof (struct ranlib); ! 115: fwrite(&tnum, 1, sizeof (tnum), fo); ! 116: tnum /= sizeof (struct ranlib); ! 117: fwrite((char *)tab, tnum, sizeof(struct ranlib), fo); ! 118: fwrite(&tssiz, 1, sizeof (tssiz), fo); ! 119: fwrite(tstrtab, tssiz, 1, fo); ! 120: fclose(fo); ! 121: if(new) ! 122: sprintf(cmdbuf, "ar rlb %s %s %s\n", firstname, *argv, tempnm); ! 123: else ! 124: sprintf(cmdbuf, "ar rl %s %s\n", *argv, tempnm); ! 125: if(system(cmdbuf)) ! 126: fprintf(stderr, "ranlib: ``%s'' failed\n", cmdbuf); ! 127: else ! 128: fixdate(*argv); ! 129: unlink(tempnm); ! 130: } ! 131: exit(0); ! 132: } ! 133: ! 134: nextel(af) ! 135: FILE *af; ! 136: { ! 137: register r; ! 138: register char *cp; ! 139: ! 140: oldoff = off; ! 141: fseek(af, off, 0); ! 142: r = fread((char *)&archdr, 1, sizeof(struct ar_hdr), af); ! 143: if (r != sizeof(struct ar_hdr)) ! 144: return(0); ! 145: for (cp=archdr.ar_name; cp < & archdr.ar_name[sizeof(archdr.ar_name)]; cp++) ! 146: if (*cp == ' ') ! 147: *cp = '\0'; ! 148: arsize = atol(archdr.ar_size); ! 149: if (arsize & 1) ! 150: arsize++; ! 151: off = ftell(af) + arsize; ! 152: return(1); ! 153: } ! 154: ! 155: stash(s) ! 156: struct nlist *s; ! 157: { ! 158: int i; ! 159: register char *cp; ! 160: ! 161: if(tnum >= TABSZ) { ! 162: fprintf(stderr, "ranlib: symbol table overflow\n"); ! 163: exit(1); ! 164: } ! 165: tab[tnum].ran_un.ran_strx = tssiz; ! 166: tab[tnum].ran_off = oldoff; ! 167: for (cp = s->n_un.n_name; tstrtab[tssiz++] = *cp++;) ! 168: if (tssiz > STRTABSZ) { ! 169: fprintf(stderr, "ranlib: string table overflow\n"); ! 170: exit(1); ! 171: } ! 172: tnum++; ! 173: } ! 174: ! 175: fixsize() ! 176: { ! 177: int i; ! 178: off_t offdelta; ! 179: ! 180: if (tssiz&1) ! 181: tssiz++; ! 182: offdelta = sizeof(archdr) + sizeof (tnum) + tnum * sizeof(struct ranlib) + ! 183: sizeof (tssiz) + tssiz; ! 184: off = SARMAG; ! 185: nextel(fi); ! 186: if(strncmp(archdr.ar_name, tempnm, sizeof (archdr.ar_name)) == 0) { ! 187: new = 0; ! 188: offdelta -= sizeof(archdr) + arsize; ! 189: } else { ! 190: new = 1; ! 191: strncpy(firstname, archdr.ar_name, sizeof(archdr.ar_name)); ! 192: } ! 193: for(i=0; i<tnum; i++) ! 194: tab[i].ran_off += offdelta; ! 195: return(new); ! 196: } ! 197: ! 198: /* patch time */ ! 199: fixdate(s) ! 200: char *s; ! 201: { ! 202: long time(); ! 203: char buf[24]; ! 204: int fd; ! 205: ! 206: fd = open(s, 1); ! 207: if(fd < 0) { ! 208: fprintf(stderr, "ranlib: can't reopen %s\n", s); ! 209: return; ! 210: } ! 211: sprintf(buf, "%-*ld", sizeof(archdr.ar_date), time((long *)NULL)+5); ! 212: lseek(fd, (long)SARMAG + ((char *)archdr.ar_date-(char *)&archdr), 0); ! 213: write(fd, buf, sizeof(archdr.ar_date)); ! 214: close(fd); ! 215: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.