Return to absaddr.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent

Power 6/32 Unix version 1.21

/*
 * Take ast - generated list files, take a.sym, produce a
 *  list file with updated PC's.
 */
#include	<stdio.h>
#define	TRUE 1
#define	FALSE 0
#define	NSYM 4000

struct	symbol {
	char	name[20];
	long	value;
}	symbol[NSYM];

	long	basevalue, knownstart;
	char	lastsymbol[20];
	char	line[200];
	FILE	*asym, *source = stdin;
	char *symfil = "a.sym";

main(argc, argv)
int argc;
char *argv[];
{
	long	eof, i;

	if (argc > 3) {
		printf("Usage : %s [listfile] [symbolsfile]\n", argv[0]);
		exit(1);
	}
	if (argc >= 2) {
		source = fopen(argv[1], "r");
		if (source == NULL) {
			printf("Cannot open %s\n", argv[1]);
			exit(1);
		}
	}
	if (argc == 3)
		symfil = argv[2];
	asym = fopen (symfil, "r");
	if (asym == NULL) {
		printf("Cannot open %s\n", symfil);
		exit(1);
	}
	eof =  FALSE;
	for (i=0; i < NSYM && !eof; i++) {
		if (fgets(line, 80, asym)==NULL) eof = TRUE;
		sscanf(line, "%s %x", symbol[i].name, &symbol[i].value);
	}

	eof = FALSE;	/* source file now */
	while (!eof) {
		if (fgets(line,200, source)==NULL) eof =TRUE;
		if (!knownstart) checkline();
		if (knownstart) transform();
		printf("%s", line);
	}
}

/*
 * Check line for symbols and for start of text.
 */
checkline()
{
	int	i, j, place;

	i = 0;
	while (line[i] != '_' && line[i] != '\0' && line[i] != '\n') i++;
	if (line[i] == '_' && (i==0 || 
			line[i-1] == ' ' || line[i-1] == '\t')) {
		place = 0;
		for (j=0; j<20; j++) lastsymbol[j] = '\0';
		while (line[i] != ':' && line[i] != '\0' 
			&& line[i] != '\n' && place<20 ) 
			lastsymbol[place++] = line[i++];
	}
	if (line[3] == ' ' || line[15] == '*' || line[18] == ' ') return;
/* 
 * Found start of text
 */
	for (i=0; i< NSYM && !knownstart; i++) {
		if (strncmp(symbol[i].name, lastsymbol, place)==0) {
			knownstart = TRUE;
			sscanf(&line[6] , "%x", &j);
			basevalue = symbol[i].value - j;
		}
	}
	if (!knownstart) printf("Symbol %s not found ---\n", lastsymbol);
}

/*
 * Transform text lines
 */
transform()
{

	long	i;

	if (line[3] == ' ' || line[15] == '*') return;
	sscanf(&line[6] , "%x", &i);
	i += basevalue;
	sprintf(&line[6], "%08x", i); line[14] = ' ';
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.