anm also works on aal archives now
This commit is contained in:
ceriel
parent
839165633b
commit
e9a6af1a42
2 changed files with 212 additions and 169 deletions
|
|
@ -7,7 +7,8 @@ anm [ \-gnoprus ] [ file ... ]
|
||||||
.I Anm
|
.I Anm
|
||||||
prints the name list (symbol table) of each ack.out(5) format object
|
prints the name list (symbol table) of each ack.out(5) format object
|
||||||
.I file
|
.I file
|
||||||
in the argument list.
|
in the argument list. If an argument is an aal(1) or arch(1) archive,
|
||||||
|
a listing of each object file in the archive will be produced.
|
||||||
If no
|
If no
|
||||||
.I file
|
.I file
|
||||||
is given, the symbols in
|
is given, the symbols in
|
||||||
|
|
|
||||||
378
util/amisc/anm.c
378
util/amisc/anm.c
|
|
@ -11,6 +11,8 @@
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "out.h"
|
#include "out.h"
|
||||||
|
#include "arch.h"
|
||||||
|
#include "ranlib.h"
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
|
|
@ -31,12 +33,11 @@ char *malloc();
|
||||||
char *realloc();
|
char *realloc();
|
||||||
long s_base[S_MAX]; /* for specially encoded bases */
|
long s_base[S_MAX]; /* for specially encoded bases */
|
||||||
char *filename;
|
char *filename;
|
||||||
|
int narg;
|
||||||
|
|
||||||
main(argc, argv)
|
main(argc, argv)
|
||||||
char **argv;
|
char **argv;
|
||||||
{
|
{
|
||||||
int narg;
|
|
||||||
int compare();
|
|
||||||
|
|
||||||
if (--argc>0 && argv[1][0]=='-' && argv[1][1]!=0) {
|
if (--argc>0 && argv[1][0]=='-' && argv[1][1]!=0) {
|
||||||
argv++;
|
argv++;
|
||||||
|
|
@ -82,179 +83,220 @@ char **argv;
|
||||||
narg = argc;
|
narg = argc;
|
||||||
|
|
||||||
while(argc--) {
|
while(argc--) {
|
||||||
struct outname *nbufp = NULL;
|
int fd;
|
||||||
struct outname nbuf;
|
|
||||||
char *cbufp;
|
|
||||||
long fi_to_co;
|
|
||||||
long n;
|
|
||||||
unsigned readcount;
|
|
||||||
int i,j;
|
|
||||||
|
|
||||||
read_error = 0;
|
filename = *++argv;
|
||||||
if (! rd_open(*++argv)) {
|
if ((fd = open(filename, 0)) < 0) {
|
||||||
fprintf(stderr, "anm: cannot open %s\n", *argv);
|
fprintf(stderr, "anm: cannot open %s\n", filename);
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
|
process(fd);
|
||||||
filename = *argv;
|
close(fd);
|
||||||
rd_ohead(&hbuf);
|
|
||||||
if (read_error) {
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (BADMAGIC(hbuf)) {
|
|
||||||
fprintf(stderr, "anm: %s -- bad format\n", *argv);
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (narg > 1)
|
|
||||||
printf("\n%s:\n", *argv);
|
|
||||||
|
|
||||||
n = hbuf.oh_nname;
|
|
||||||
if (n == 0) {
|
|
||||||
fprintf(stderr, "anm: %s -- no name list\n", *argv);
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (hbuf.oh_nchar == 0) {
|
|
||||||
fprintf(stderr, "anm: %s -- no names\n", *argv);
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if ((readcount = hbuf.oh_nchar) != hbuf.oh_nchar) {
|
|
||||||
fprintf(stderr, "anm: string area too big in %s\n", *argv);
|
|
||||||
exit(2);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* store special section bases ??? */
|
|
||||||
if (hbuf.oh_flags & HF_8086) {
|
|
||||||
rd_sect(&sbuf, hbuf.oh_nsect);
|
|
||||||
if (read_error) {
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
for (i=0; i<hbuf.oh_nsect; i++) {
|
|
||||||
s_base[i+S_MIN] =
|
|
||||||
(sbuf.os_base>>12) & 03777760;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ((cbufp = (char *)malloc(readcount)) == NULL) {
|
|
||||||
fprintf(stderr, "anm: out of memory on %s\n", *argv);
|
|
||||||
exit(2);
|
|
||||||
}
|
|
||||||
rd_string(cbufp, hbuf.oh_nchar);
|
|
||||||
if (read_error) {
|
|
||||||
free(cbufp);
|
|
||||||
rd_close();
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
fi_to_co = (long) (cbufp - OFF_CHAR(hbuf));
|
|
||||||
i = 0;
|
|
||||||
while (--n >= 0) {
|
|
||||||
rd_name(&nbuf, 1);
|
|
||||||
if (read_error) {
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (globl_flg && (nbuf.on_type&S_EXT)==0)
|
|
||||||
continue;
|
|
||||||
|
|
||||||
if (undef_flg
|
|
||||||
&&
|
|
||||||
((nbuf.on_type&S_TYP)!=S_UND || (nbuf.on_type&S_ETC)!=0))
|
|
||||||
continue;
|
|
||||||
|
|
||||||
if (nbuf.on_foff == 0) nbuf.on_mptr = 0;
|
|
||||||
else nbuf.on_mptr = (char *) (nbuf.on_foff + fi_to_co);
|
|
||||||
|
|
||||||
/* adjust value for specially encoded bases */
|
|
||||||
if (hbuf.oh_flags & HF_8086) {
|
|
||||||
if (((nbuf.on_type&S_ETC) == 0) ||
|
|
||||||
((nbuf.on_type&S_ETC) == S_SCT)) {
|
|
||||||
j = nbuf.on_type&S_TYP;
|
|
||||||
if ((j>=S_MIN) && (j<=S_MAX))
|
|
||||||
nbuf.on_valu += s_base[j];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (nbufp == NULL)
|
|
||||||
nbufp = (struct outname *)malloc(sizeof(struct outname));
|
|
||||||
else
|
|
||||||
nbufp = (struct outname *)realloc(nbufp, (i+1)*sizeof(struct outname));
|
|
||||||
if (nbufp == NULL) {
|
|
||||||
fprintf(stderr, "anm: out of memory on %s\n", *argv);
|
|
||||||
exit(2);
|
|
||||||
}
|
|
||||||
nbufp[i++] = nbuf;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (nbufp && nosort_flg==0)
|
|
||||||
qsort(nbufp, i, sizeof(struct outname), compare);
|
|
||||||
|
|
||||||
for (n=0; n<i; n++) {
|
|
||||||
char cs1[4];
|
|
||||||
char cs2[4];
|
|
||||||
|
|
||||||
if (prep_flg)
|
|
||||||
printf("%s:", *argv);
|
|
||||||
|
|
||||||
switch(nbufp[n].on_type&S_ETC) {
|
|
||||||
case S_SCT:
|
|
||||||
sprintf(cs1, "%2d", (nbufp[n].on_type&S_TYP) - S_MIN);
|
|
||||||
sprintf(cs2, " S");
|
|
||||||
break;
|
|
||||||
case S_FIL:
|
|
||||||
sprintf(cs1, " -");
|
|
||||||
sprintf(cs2, " F");
|
|
||||||
break;
|
|
||||||
case S_MOD:
|
|
||||||
sprintf(cs1, " -");
|
|
||||||
sprintf(cs2, " M");
|
|
||||||
break;
|
|
||||||
case S_COM:
|
|
||||||
sprintf(cs1, " C");
|
|
||||||
if (nbufp[n].on_type&S_EXT)
|
|
||||||
sprintf(cs2, " E");
|
|
||||||
else
|
|
||||||
sprintf(cs2, " -");
|
|
||||||
break;
|
|
||||||
case 0:
|
|
||||||
if (nbufp[n].on_type&S_EXT)
|
|
||||||
sprintf(cs2, " E");
|
|
||||||
else
|
|
||||||
sprintf(cs2, " -");
|
|
||||||
|
|
||||||
switch(nbufp[n].on_type&S_TYP) {
|
|
||||||
case S_UND:
|
|
||||||
sprintf(cs1, " U");
|
|
||||||
break;
|
|
||||||
case S_ABS:
|
|
||||||
sprintf(cs1, " A");
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
sprintf(cs1, "%2d", (nbufp[n].on_type&S_TYP) - S_MIN);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
sprintf(cs1, "??");
|
|
||||||
sprintf(cs2, " ?");
|
|
||||||
}
|
|
||||||
|
|
||||||
printf("%8lx %s %s %s\n",nbufp[n].on_valu,cs1,cs2,nbufp[n].on_mptr ? nbufp[n].on_mptr : "(NULL)");
|
|
||||||
}
|
|
||||||
|
|
||||||
if (nbufp)
|
|
||||||
free((char *)nbufp);
|
|
||||||
if (cbufp)
|
|
||||||
free((char *)cbufp);
|
|
||||||
rd_close();
|
|
||||||
}
|
}
|
||||||
exit(0);
|
exit(0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
extern int rd_unsigned2();
|
||||||
|
extern long lseek();
|
||||||
|
extern char *strncpy();
|
||||||
|
|
||||||
|
process(fd)
|
||||||
|
int fd;
|
||||||
|
{
|
||||||
|
unsigned int magic;
|
||||||
|
long nextpos;
|
||||||
|
struct ar_hdr archive_header;
|
||||||
|
static char buf[sizeof(archive_header.ar_name)+1];
|
||||||
|
|
||||||
|
if (narg > 1) printf("\n%s:\n", filename);
|
||||||
|
|
||||||
|
magic = rd_unsigned2(fd);
|
||||||
|
switch(magic) {
|
||||||
|
case O_MAGIC:
|
||||||
|
lseek(fd, 0L, 0);
|
||||||
|
do_file(fd);
|
||||||
|
break;
|
||||||
|
case ARMAG:
|
||||||
|
case AALMAG:
|
||||||
|
while (rd_arhdr(fd, &archive_header)) {
|
||||||
|
nextpos = lseek(fd, 0L, 1) + archive_header.ar_size;
|
||||||
|
if (nextpos & 1) nextpos++;
|
||||||
|
strncpy(buf,archive_header.ar_name,sizeof(archive_header.ar_name));
|
||||||
|
filename = buf;
|
||||||
|
if ( strcmp(filename, SYMDEF)) {
|
||||||
|
printf("\n%s:\n", filename);
|
||||||
|
do_file(fd);
|
||||||
|
}
|
||||||
|
lseek(fd, nextpos, 0);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
fprintf(stderr, "anm: %s -- bad format\n", filename);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
do_file(fd)
|
||||||
|
int fd;
|
||||||
|
{
|
||||||
|
struct outname *nbufp = NULL;
|
||||||
|
struct outname nbuf;
|
||||||
|
char *cbufp;
|
||||||
|
long fi_to_co;
|
||||||
|
long n;
|
||||||
|
unsigned readcount;
|
||||||
|
int i,j;
|
||||||
|
int compare();
|
||||||
|
|
||||||
|
read_error = 0;
|
||||||
|
rd_fdopen(fd);
|
||||||
|
|
||||||
|
rd_ohead(&hbuf);
|
||||||
|
if (read_error) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (BADMAGIC(hbuf)) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
n = hbuf.oh_nname;
|
||||||
|
if (n == 0) {
|
||||||
|
fprintf(stderr, "anm: %s -- no name list\n", filename);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (hbuf.oh_nchar == 0) {
|
||||||
|
fprintf(stderr, "anm: %s -- no names\n", filename);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if ((readcount = hbuf.oh_nchar) != hbuf.oh_nchar) {
|
||||||
|
fprintf(stderr, "anm: string area too big in %s\n", filename);
|
||||||
|
exit(2);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* store special section bases ??? */
|
||||||
|
if (hbuf.oh_flags & HF_8086) {
|
||||||
|
rd_sect(&sbuf, hbuf.oh_nsect);
|
||||||
|
if (read_error) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
for (i=0; i<hbuf.oh_nsect; i++) {
|
||||||
|
s_base[i+S_MIN] =
|
||||||
|
(sbuf.os_base>>12) & 03777760;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ((cbufp = (char *)malloc(readcount)) == NULL) {
|
||||||
|
fprintf(stderr, "anm: out of memory on %s\n", filename);
|
||||||
|
exit(2);
|
||||||
|
}
|
||||||
|
rd_string(cbufp, hbuf.oh_nchar);
|
||||||
|
if (read_error) {
|
||||||
|
free(cbufp);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
fi_to_co = (long) (cbufp - OFF_CHAR(hbuf));
|
||||||
|
i = 0;
|
||||||
|
while (--n >= 0) {
|
||||||
|
rd_name(&nbuf, 1);
|
||||||
|
if (read_error) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (globl_flg && (nbuf.on_type&S_EXT)==0)
|
||||||
|
continue;
|
||||||
|
|
||||||
|
if (undef_flg
|
||||||
|
&&
|
||||||
|
((nbuf.on_type&S_TYP)!=S_UND || (nbuf.on_type&S_ETC)!=0))
|
||||||
|
continue;
|
||||||
|
|
||||||
|
if (nbuf.on_foff == 0) nbuf.on_mptr = 0;
|
||||||
|
else nbuf.on_mptr = (char *) (nbuf.on_foff + fi_to_co);
|
||||||
|
|
||||||
|
/* adjust value for specially encoded bases */
|
||||||
|
if (hbuf.oh_flags & HF_8086) {
|
||||||
|
if (((nbuf.on_type&S_ETC) == 0) ||
|
||||||
|
((nbuf.on_type&S_ETC) == S_SCT)) {
|
||||||
|
j = nbuf.on_type&S_TYP;
|
||||||
|
if ((j>=S_MIN) && (j<=S_MAX))
|
||||||
|
nbuf.on_valu += s_base[j];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (nbufp == NULL)
|
||||||
|
nbufp = (struct outname *)malloc(sizeof(struct outname));
|
||||||
|
else
|
||||||
|
nbufp = (struct outname *)realloc(nbufp, (i+1)*sizeof(struct outname));
|
||||||
|
if (nbufp == NULL) {
|
||||||
|
fprintf(stderr, "anm: out of memory on %s\n", filename);
|
||||||
|
exit(2);
|
||||||
|
}
|
||||||
|
nbufp[i++] = nbuf;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (nbufp && nosort_flg==0)
|
||||||
|
qsort(nbufp, i, sizeof(struct outname), compare);
|
||||||
|
|
||||||
|
for (n=0; n<i; n++) {
|
||||||
|
char cs1[4];
|
||||||
|
char cs2[4];
|
||||||
|
|
||||||
|
if (prep_flg)
|
||||||
|
printf("%s:", filename);
|
||||||
|
|
||||||
|
switch(nbufp[n].on_type&S_ETC) {
|
||||||
|
case S_SCT:
|
||||||
|
sprintf(cs1, "%2d", (nbufp[n].on_type&S_TYP) - S_MIN);
|
||||||
|
sprintf(cs2, " S");
|
||||||
|
break;
|
||||||
|
case S_FIL:
|
||||||
|
sprintf(cs1, " -");
|
||||||
|
sprintf(cs2, " F");
|
||||||
|
break;
|
||||||
|
case S_MOD:
|
||||||
|
sprintf(cs1, " -");
|
||||||
|
sprintf(cs2, " M");
|
||||||
|
break;
|
||||||
|
case S_COM:
|
||||||
|
sprintf(cs1, " C");
|
||||||
|
if (nbufp[n].on_type&S_EXT)
|
||||||
|
sprintf(cs2, " E");
|
||||||
|
else
|
||||||
|
sprintf(cs2, " -");
|
||||||
|
break;
|
||||||
|
case 0:
|
||||||
|
if (nbufp[n].on_type&S_EXT)
|
||||||
|
sprintf(cs2, " E");
|
||||||
|
else
|
||||||
|
sprintf(cs2, " -");
|
||||||
|
|
||||||
|
switch(nbufp[n].on_type&S_TYP) {
|
||||||
|
case S_UND:
|
||||||
|
sprintf(cs1, " U");
|
||||||
|
break;
|
||||||
|
case S_ABS:
|
||||||
|
sprintf(cs1, " A");
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
sprintf(cs1, "%2d", (nbufp[n].on_type&S_TYP) - S_MIN);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
sprintf(cs1, "??");
|
||||||
|
sprintf(cs2, " ?");
|
||||||
|
}
|
||||||
|
|
||||||
|
printf("%8lx %s %s %s\n",nbufp[n].on_valu,cs1,cs2,nbufp[n].on_mptr ? nbufp[n].on_mptr : "(NULL)");
|
||||||
|
}
|
||||||
|
|
||||||
|
if (nbufp)
|
||||||
|
free((char *)nbufp);
|
||||||
|
if (cbufp)
|
||||||
|
free((char *)cbufp);
|
||||||
|
}
|
||||||
|
|
||||||
compare(p1, p2)
|
compare(p1, p2)
|
||||||
struct outname *p1, *p2;
|
struct outname *p1, *p2;
|
||||||
{
|
{
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue