Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/util/size.c

@@ -0,0 +1,176 @@
+/*
+	Copyright 1982, 1983
+	Alcyon Corporation
+	8716 Production Ave.
+	San Diego, Ca. 92121
+*/
+
+char *version = "@(#)size68 - Oct 5, 1983";
+
+#ifndef MC68000
+#	include <c68/cout.h>
+#	define DEFAULT "c.out"
+#else
+#	include <cout.h>
+#	define DEFAULT "a.out"
+#endif
+
+struct hdr2 couthd;
+
+#define BSIZE 512
+struct iob {
+	int fd;
+	int cc;
+	char *cp;
+	char cbuf[BSIZE];
+} iobuf;
+
+int fflag, err;
+char *calledby;
+
+main(argc,argv)
+int argc;
+char **argv;
+{
+	register char *p;
+
+	for( calledby = *argv++; argc > 1; argc--, argv++ ) {
+		p = *argv;
+		if( *p++ != '-' )
+			break;
+		for( ; *p != '\0'; p++ ) {
+			switch( *p ) {
+
+			case 'f':
+				fflag++;
+				break;
+
+			default:
+				printf("%s: bad flag %c\n",calledby,*p);
+				exit(-1);
+			}
+		}
+	}
+	if( argc <= 1 )
+		dofile(DEFAULT);
+	else {
+		while( --argc > 0 )
+			dofile(*argv++);
+	}
+	exit(err);
+}
+
+dofile(fn)
+char *fn;
+{
+	register int i, j;
+	register struct hdr2 *hd;
+	long l;
+
+	hd = &couthd;
+	if(fopen(fn,&iobuf) < 0) {
+		printf("%s: unable to open %s\n",calledby,fn);
+		err++;
+		return;
+	}
+	if ( getchd(&iobuf,&couthd) == -1) {
+		printf("%s: read error on %s\n",calledby,fn);
+		err++;
+	}
+	else {
+		printf("%s:",fn);
+		switch( hd->ch_magic ) {
+	
+		case EX_MAGIC:
+			break;
+
+		case EX_ABMAGIC:
+			printf("(stand alone)");
+			break;
+	
+		case EX_2KSTXT:
+			printf("(2k shared text)");
+			break;
+	
+		case EX_IDMAGIC:
+			printf("(I/D split)");
+			break;
+
+		case EX_4KSTXT:
+			printf("(4k shared text)");
+			break;
+	
+		default:
+			printf(" not c.out format\n");
+			close(iobuf.fd);
+			return;
+		}
+		l = hd->ch_tsize+hd->ch_dsize+hd->ch_bsize;
+		ldec(hd->ch_tsize);
+		putchar('+');
+		ldec(hd->ch_dsize);
+		putchar('+');
+		ldec(hd->ch_bsize);
+		putchar('=');
+		ldec(l);
+		printf(" (");
+		lhex(l);
+		printf(")");
+		if( hd->ch_stksize || fflag ) {
+			printf(" stack=");
+			ldec(hd->ch_stksize);
+		}
+		if( hd->ch_entry < 0 || fflag ) {
+			printf(" break=");
+			ldec(-hd->ch_entry);
+		}
+		if( fflag ) {
+			if( hd->ch_rlbflg == 0 )
+				printf(" (bits)");
+			else
+				printf(" (nobits)");
+		}
+		putchar('\n');
+	}
+	close(iobuf.fd);
+}
+
+char ostr[80];
+
+lhex(al)
+long al;
+{
+
+	register int i;
+	register int j;
+	register char *p;
+
+	p = &ostr[80];
+	*--p = 0;
+	for(i = 0; i < 8; i++) {
+		j = al&017;
+		if(j < 10)
+			j += '0';
+		else
+			j += 'A'-10;
+		*--p = j;
+		al >>= 4;
+		if(al == 0)
+			break;
+	}
+	printf("%s",p);
+}
+
+ldec(al)
+long al;
+{
+	register char *p;
+
+	p = &ostr[80];
+	*--p = 0;
+	do {
+		*--p = (al%10L)+'0';
+		al /= 10L;
+	} while (al != 0);
+	printf("%s",p);
+}