mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 01:14:21 +00:00
Upload
Digital Research
This commit is contained in:
246
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v103/util/nm.c
Normal file
246
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v103/util/nm.c
Normal file
@@ -0,0 +1,246 @@
|
||||
/*
|
||||
Copyright 1983
|
||||
Alcyon Corporation
|
||||
8716 Production Ave.
|
||||
San Diego, Ca. 92121
|
||||
*/
|
||||
|
||||
char *version = "@(#)nm - Apr 29, 1983";
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#ifdef VAX11
|
||||
# include <c68/cout.h>
|
||||
# include <c68/sendc68.h>
|
||||
#else
|
||||
# include <cout.h>
|
||||
# include <sendc68.h>
|
||||
#endif
|
||||
|
||||
#define SYNAMLEN 8
|
||||
|
||||
int loctr;
|
||||
int pflg;
|
||||
int symflg;
|
||||
FILE *ifp;
|
||||
struct hdr couthd;
|
||||
char eflag, gflag, qflag, xflag, dflag, tflag, bflag, aflag;
|
||||
|
||||
main(argc,argv)
|
||||
char **argv;
|
||||
{
|
||||
register char *p;
|
||||
register long symsize;
|
||||
register int i, c, tellem;
|
||||
long l, value;
|
||||
int flags, optioncount, argc_old;
|
||||
char symbol[20];
|
||||
|
||||
eflag = gflag = qflag = xflag = dflag = tflag = bflag = aflag = 0;
|
||||
argc_old = argc;
|
||||
optioncount = 0;
|
||||
|
||||
while (argc > 1) /* set flags, ignore filenames */
|
||||
if (*argv[argc-1] == '-')
|
||||
{
|
||||
optioncount++;
|
||||
switch (*++argv[--argc])
|
||||
{
|
||||
case 'e':
|
||||
eflag = 1;
|
||||
break;
|
||||
case 'g':
|
||||
gflag = 1;
|
||||
break;
|
||||
case 'q':
|
||||
qflag = 1;
|
||||
break;
|
||||
case 'x':
|
||||
xflag = 1;
|
||||
break;
|
||||
case 'd':
|
||||
dflag = 1;
|
||||
break;
|
||||
case 't':
|
||||
tflag = 1;
|
||||
break;
|
||||
case 'b':
|
||||
bflag = 1;
|
||||
break;
|
||||
case 'a':
|
||||
aflag = 1;
|
||||
break;
|
||||
default :
|
||||
printf("nm: nonexistent option %s\n", argv[argc]);
|
||||
optioncount--;
|
||||
break;
|
||||
}
|
||||
--argv[argc];
|
||||
}
|
||||
else argc--;
|
||||
argc = argc_old;
|
||||
|
||||
if( ((argc - optioncount) < 1) || (argc > (3 + optioncount)) )
|
||||
tellem = 1;
|
||||
else
|
||||
tellem = 0;
|
||||
if( (argc - optioncount) <= 1 )
|
||||
*argv = "c.out"; /* default */
|
||||
else {
|
||||
--argc;
|
||||
++argv;
|
||||
}
|
||||
|
||||
/* process each file - ignore options in parameter list */
|
||||
|
||||
while( argc-- ) {
|
||||
if( **argv == '-' ) {
|
||||
argv++; continue; }
|
||||
if( openfile(*argv++) == 0 )
|
||||
continue;
|
||||
if( tellem )
|
||||
printf("%s:\n",ifilname);
|
||||
l = couthd.ch_tsize+couthd.ch_dsize+HDSIZE;
|
||||
#ifdef PDP11
|
||||
if( longseek(l,fileno(ifp),3) == 0 )
|
||||
#else
|
||||
if( fseek(ifp,l,0) == EOF )
|
||||
#endif
|
||||
{
|
||||
fclose(ifp);
|
||||
continue;
|
||||
}
|
||||
|
||||
for( symsize = couthd.ch_ssize; symsize > 0; symsize -= OSTSIZE ) {
|
||||
p = symbol;
|
||||
for( i = SYNAMLEN; --i != -1; ) {
|
||||
if( (c = getc(ifp)) > 0 )
|
||||
*p++ = c;
|
||||
else
|
||||
*p = '\0';
|
||||
}
|
||||
lgetw(&flags,ifp);
|
||||
lgetl(&value,ifp);
|
||||
if (accept(flags, optioncount))
|
||||
{
|
||||
printf("%-11s",symbol);
|
||||
printf("%8lx",value);
|
||||
prtflags(flags);
|
||||
}
|
||||
}
|
||||
}
|
||||
exit(0);
|
||||
}
|
||||
|
||||
accept(af, optioncount)
|
||||
int af;
|
||||
int optioncount;
|
||||
{
|
||||
register int f;
|
||||
int pft;
|
||||
|
||||
pft = 0;
|
||||
if (!(optioncount))
|
||||
return(1);
|
||||
|
||||
f = af;
|
||||
if (eflag&&(f&SYEQ))
|
||||
pft = 1;
|
||||
if (gflag&&(f&SYGL))
|
||||
pft = 1;
|
||||
if (qflag&&(f&SYER))
|
||||
pft = 1;
|
||||
if (xflag&&(f&SYXR))
|
||||
pft = 1;
|
||||
if (dflag&&(f&SYDA))
|
||||
pft = 1;
|
||||
if (tflag&&(f&SYTX))
|
||||
pft = 1;
|
||||
if (bflag&&(f&SYBS))
|
||||
pft = 1;
|
||||
if (aflag&&((!(f&SYDA))&&(!(f&SYTX))&&(!(f&SYBS))))
|
||||
pft = 1;
|
||||
|
||||
return(pft);
|
||||
}
|
||||
|
||||
prtflags(af)
|
||||
{
|
||||
register int f;
|
||||
|
||||
f = af;
|
||||
if( f&SYEQ )
|
||||
printf(" equ");
|
||||
if( f&SYGL )
|
||||
printf(" global");
|
||||
if( f&SYER )
|
||||
printf(" reg");
|
||||
if( f&SYXR )
|
||||
printf(" external");
|
||||
if( f&SYDA )
|
||||
printf(" data");
|
||||
else if( f&SYTX )
|
||||
printf(" text");
|
||||
else if( f&SYBS )
|
||||
printf(" bss");
|
||||
else
|
||||
printf(" abs");
|
||||
putchar('\n');
|
||||
}
|
||||
|
||||
openfile(ap)
|
||||
char *ap;
|
||||
{
|
||||
register char *p;
|
||||
|
||||
p = ap;
|
||||
if( (ifp = fopen(p,"r")) == NULL ) {
|
||||
printf("unable to open %s\n",p);
|
||||
return(0);
|
||||
}
|
||||
ifilname = p; /* point to current file name for error msgs */
|
||||
return(readhdr()); /* read file header */
|
||||
}
|
||||
|
||||
readhdr()
|
||||
{
|
||||
if( getchd(ifp,&couthd) != 0 ) {
|
||||
printf("error reading %s\n",ifilname);
|
||||
return(0);
|
||||
}
|
||||
|
||||
if( couthd.ch_magic < MAGIC || couthd.ch_magic > MAGICST ) {
|
||||
printf("file format error: %s %x\n",ifilname,couthd.ch_magic);
|
||||
return(0);
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
|
||||
#ifdef PDP11
|
||||
longseek(al,fildes,pn)
|
||||
long al;
|
||||
int fildes, pn;
|
||||
{
|
||||
long l;
|
||||
register b,o;
|
||||
|
||||
l = al>>9;
|
||||
b = l.loword; /* block # */
|
||||
o = al.loword&0777; /* offset in block */
|
||||
if( doseek(fildes,b,pn) == 0 ) /* seek to block */
|
||||
return(0);
|
||||
if( doseek(fildes,o,SEEKREL) == 0 ) /* do offset */
|
||||
return(0);
|
||||
return(1);
|
||||
}
|
||||
|
||||
doseek(afd,aoff,apnam)
|
||||
{
|
||||
|
||||
if( seek(afd,aoff,apnam) < 0 ) {
|
||||
printf("seek error on file %s\n",ifilname);
|
||||
return(0);
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
#endif
|
||||
Reference in New Issue
Block a user