comm4.c

坦尼保姆

/* $Header: comm4.c,v 2.17 91/12/17 14:55:13 ceriel Exp $ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/* @(#)comm4.c	1.6 */
/*
 * Micro processor assembler framework written by
 *	Johan Stevenson, Vrije Universiteit, Amsterdam
 * modified by
 *	Johan Stevenson, Han Schaminee and Hans de Vries
 *		Philips S&I, T&M, PMDS, Eindhoven
 */

#include	"comm0.h"
#include	"comm1.h"
#include	"y_tab.h"

extern YYSTYPE	yylval;
char projchar[256],filechar[256],filoutnm[80],ffnm[80],filsnm[80],filcapnm[80];

/* ========== Machine independent C routines ========== */

void stop(int);

void stop(int dummy) {
/*fprintf(stderr,"Temporary file %s will be unlinked\n",temppath);*/
	unlink(temppath);
#if DEBUG < 2
#ifdef LISTING
/*fprintf(stderr,"Temporary file %s will be unlinked %s\n",listpath);*/
	unlink(listpath);
#endif
#endif
	fclose(input);
	 sprintf(filechar,"%s.$S$",projname); unlink(filechar);
	exit(nerrors != 0);
}

main(argc, argv)
char **argv;
{
	register char *p;
	register i;
	static char sigs[] = {
		SIGHUP&255, SIGINT&255, SIGQUIT&255, SIGTERM&255, 0
	};
	int projseen,firstsrc,cpychar;

	/* the next test should be performed by the
	 * preprocessor, but it cannot, so it is performed by the compiler.
	 */

   if((ascptr= fopen("ASCIIFIL.$$$","wb")) == NULL){
      fprintf(stderr,"Cannot open ASCIIFIL.$$$ \n"); exit(1);}
	projname = projchar;
	firstsrc = -1; projseen=0;
	strcpy(projname,"a_out");
	switch(0) {
	case 1:	break;
	case (S_ETC|S_COM|S_VAR|S_DOT) != S_ETC : break;
	}


	progname = *argv++; argc--;
	for (p = sigs; i = *p++; )
		if (signal(i, SIG_IGN) != SIG_IGN)
			signal(i, stop);
	for (i = 0; i < argc; i++) {
		p = argv[i];
		if (*p++ != '-') { if(firstsrc<0) firstsrc = i;
		    if(!(projseen)){
			projseen++; strcpy(projname,argv[i]);
			p = projname;
			while(*p) {if(*p=='.') {*p='\0'; break;}
				else p++;}
			}
		    continue;
		}
		switch (*p++) {
		case 'o':
			if (*p != '\0') {
				/*aoutpath = p;*/
			projseen++; strcpy(projname,argv[i]+1);
			p = projname;
			while(*p) {if(*p=='.') {*p='\0'; break;}
				else p++;}
				break;
			}
			argv[i] = 0;
			if (++i >= argc)
				fatal("-o needs filename");
			/*aoutpath = argv[i];*/
			projseen++; strcpy(projname,argv[i]);
			p = projname;
			while(*p) {if(*p=='.') {*p='\0'; break;}
				else p++;}
			break;
		case 'T':
			if (*p != '\0') {
				extern char *tmp_dir;

				tmp_dir = p;
			}
			break;
		case 'd':
#ifdef LISTING
			dflag = 0;
			while (*p >= '0' && *p <= '7')
				dflag = (dflag << 3) + *p++ - '0';
			if ((dflag & 0777) == 0)
				dflag |= 0700;
			dflag &= ~4;
#endif
			break;
		case 's':
			sflag = 0;
			while (*p >= '0' && *p <= '7')
				sflag = (sflag << 3) + *p++ - '0';
			break;
		case 'r':
#ifdef RELOCATION
#ifdef ASLD
			rflag = 1;
#endif /* ASLD */
#endif /* RELOCATION */
			break;
		case 'b':
#ifdef THREE_PASS
			bflag = 1;
#endif
			break;
#ifndef ASLD
		case 'u':
		case '\0':
			uflag = 1;
			break;
#endif
		default:
			continue;
		}
		argv[i] = 0;
	}
	argc -= firstsrc; argv += firstsrc; 
	/*fprintf(stderr,"argc %d firstsrc %d argv %s\n",argc,firstsrc,*argv);
		exit(0);*/

	sprintf(filechar,"%s.$",projname);
	fprintf(stderr,"Project %s listfile %s\n",projname,filechar);
		if ((uitptr = fopen(filechar, "wb")) == NULL)
			fatal("can't open %s", filechar);
	/*fprintf(uitptr," \n");*/
	sprintf(filechar,"%s.#",projname);
	fprintf(stderr,"Project %s num file %s\n",projname,filechar);
	if ((outFile=fopen(filechar,"w")) == NULL)
		{fprintf(stderr,"cannot open project connectfile %s\n",
			filechar); exit(1);}
	sprintf(filoutnm,"%s.88",projname);
	fprintf(stderr,"Project %s loadfile %s\n",projname,filoutnm);
	aoutpath = filoutnm;

	p = *argv++;
	if(!(argc--)){fprintf(stderr,"No argument? %s\n",p); exit(1);}
	sprintf(ffnm,"%s.s",p);
	sprintf(filsnm,"%s.s",projname);
	sprintf(filcapnm,"%s.S",projname);
	if (((inptr = fopen(p, "rw")) == NULL) &&
	    ((inptr = fopen(ffnm, "rw")) == NULL) &&
	     ((inptr = fopen(filsnm, "rw")) == NULL) &&
	      ((inptr = fopen(filcapnm, "rw")) == NULL))
		fatal("can't open %s", p);
	sprintf(filechar,"%s",p);
	hashh(); fclose(inptr);
	 while(argc-- > 0){ p= *argv++;
	    sprintf(filsnm,"%s.s",p);
	    sprintf(filcapnm,"%s.S",p);
	    if (((inptr = fopen(p, "rw")) == NULL) &&
	    	((inptr = fopen(filsnm, "rw")) == NULL) &&
	      	    ((inptr = fopen(filcapnm, "rw")) == NULL))
		fatal("can't open %s", p);
	hashh(); fclose(inptr);
	}
	fclose(uitptr);

#ifdef RELOCATION
	if (rflag)
		sflag |= SYM_SCT;
#endif /* RELOCATION */
/*fprintf(stderr,"Ik ben hier filechar voor pass 1\n");*/
	pass_1(argc,argv);
/*fprintf(stderr,"Ik ben hier filechar na pass 1\n");*/
/*#ifdef THREE_PASS*/

/*#ifdef RELOCATION
	if (rflag)
		sflag |= SYM_SCT;
#endif /* RELOCATION
	pass_1(argc,argv); */
#ifdef THREE_PASS
/*fprintf(stderr,"Ik ben hier filechar voor pass 2\n");*/
	pass_23(PASS_2);
#endif
/*fprintf(stderr,"Ik ben hier filechar voor pass 3\n");*/
	pass_23(PASS_3);
/*fprintf(stderr,"Ik ben hier filechar na pass 3\n");*/
/*fprintf(stderr,"Ik ben hier filechar %s\n",filechar);*/
fclose(inptr); fclose(uitptr); unlink(filechar); /*fclose(inptr);fclose(uitptr);
 		if ((inptr = fopen("ASCIIFIL.$$$", "rb")) == NULL)
 			fatal("can't open ASCIIFIL.$$$");
 		if ((uitptr = fopen(filechar, "wb")) == NULL)
 			fatal("can't open %s", filechar);
 	while(1){cpychar=getc(inptr); if(cpychar == EOF) break; putc(cpychar,stderr);putc(cpychar,uitptr);}

 	fclose(inptr); fclose(uitptr);*/
rename("ASCIIFIL.$$$",filechar);
	wr_close();
	/*system("move ASCIIFIL.$$$ SCIIFIL.$$$");*/
	stop(0);
}

/* ---------- pass 1: arguments, modules, archives ---------- */

pass_1(argc, argv)
char **argv;
{
	register char *p;
	register item_t *ip;
#ifdef ASLD
	char armagic[2];
#else
	register nfile = 0;
#endif

#ifdef THREE_PASS
	bitindex = -1;
	nbits = BITCHUNK;
#endif

	tempfile = fftemp(temppath, "asTXXXXX.$$$");
#ifdef LISTING
	listmode = dflag;
	if (listmode & 0440)
		listfile = fftemp(listpath, "asLXXXXX.$$$");
#endif
	for (ip = keytab; ip->i_type; ip++)
		item_insert(ip, H_KEY+hash(ip->i_name));
	machstart(PASS_1);
	/*while (--argc >= 0)*/ {
		p = filechar; /* *argv++;
		if (p == 0)
			continue; */
	sprintf(filechar,"%s.$",projname);
	if ((input = fopen(filechar, "rw")) == NULL)
		fatal("can't reopen %s", filechar);
/*  #ifndef ASLD */
		if (nfile != 0)
			fatal("second source file %s", p);
		nfile++;
/* #else
		if (p[0] == '-' && p[1] == '\0') {
			input = stdin;
			parse("STDIN");
			continue;
		}
#endif */
#ifdef ASLD
		if (
			fread(armagic, 2, 1, input) == 1
			&&
			((armagic[0]&0377) |
			 ((unsigned)(armagic[1]&0377)<<8)) == ARMAG
		) {
			archive();
			fclose(input);
			/* continue;*/
		}
		rewind(input);
#endif
		parse(p);
		fclose(input);
		/*break;*/
	}
#ifndef ASLD
	if (nfile == 0) {
		input = stdin;
		parse("STDIN");
	}
#endif
	commfinish();
	machfinish(PASS_1);
#ifdef ASLD
	if (unresolved) {
		register int i;

		nerrors++;
		fflush(stdout);
		fprintf(stderr, "unresolved references:\n");
		for (i = 0; i < H_SIZE; i++) {
			ip = hashtab[H_GLOBAL+i];
			while (ip != 0) {
				if ((ip->i_type & (S_EXT|S_TYP)) == (S_EXT|S_UND))
					fprintf(stderr, "\t%s\n", ip->i_name);
				ip = ip->i_next;
			}
		}
	}
#else
	if (unresolved)
		outhead.oh_flags |= HF_LINK;
	/*
	if (nfile == 0)
		fatal("no source file");
	*/
#endif
}

#ifdef ASLD

archive() {
	register long offset;
	struct ar_hdr header;
	char getsize[AR_TOTAL];

	archmode++;
	offset = 2;
	for (;;) {
		if (unresolved == 0)
			break;
		fseek(input,offset,0);
		if (fread(getsize,AR_TOTAL,1,input) != 1)
			break;
		offset += AR_TOTAL;
		strncpy(header.ar_name,getsize,sizeof header.ar_name) ;
		header.ar_size= (((((long) (getsize[AR_SIZE+1]&0377))<<8)+
				((long) (getsize[AR_SIZE  ]&0377))<<8)+
				((long) (getsize[AR_SIZE+3]&0377))<<8)+
				((long) (getsize[AR_SIZE+2]&0377)) ;
		archsize = header.ar_size;
		if (needed()) {
			fseek(input,offset,0);
			archsize = header.ar_size;
			header.ar_name[14] = '\0';
			parse(remember(header.ar_name));
		}
		offset += header.ar_size;
		while (offset % 2)
			offset++;
	}
	archmode = 0;
}

needed()
{
	register c, first;
	register item_t *ip;
	register need;

#ifdef LISTING
	register save;

	save = listflag; listflag = 0;
#endif
	need = 0;
	peekc = -1;
	first = 1;
	for (;;) {
		c = nextchar();
		if (c == '\n') {
			first = 1;
			continue;
		}
		if (c == ' ' || c == '\t' || c == ',')
			continue;
		if (ISALPHA(c) == 0)
			break;
		if ((ip = item_search(readident(c))) == 0) {
			if (first)
				break;
			continue;
		}
		if (first) {
			if (ip == &keytab[KEYSECT]) {
				while ((c = nextchar()) != '\n')
					;
				continue;
			}

			if (ip != &keytab[KEYDEFINE])
				break;
			first = 0;
		}
		if ((ip->i_type & S_TYP) == S_UND) {
			need++;
			break;
		}
	}
#ifdef LISTING
	listflag = save;
#endif
	return(need);
}
#endif /* ASLD */

parse(s)
char *s;
{
	register i;
	register item_t *ip;
	register char *p;

	for (p = s; *p; )
		if (*p++ == '/')
			s = p;
#ifdef ASLD
	yylval.y_strp = s;
	putval(MODULE);
#endif
	for (i = 0; i < FB_SIZE; i++)
		fb_ptr[FB_BACK+i] = 0;
	newmodule(s);
	peekc = -1;
	yyparse();
	/*
	 * Check for undefined symbols
	 */
#ifdef ASLD
	for (i = 0; i < H_SIZE; i++) {
		while (ip = hashtab[H_LOCAL+i]) {
			/*
			 * cleanup local queue
			 */
			hashtab[H_LOCAL+i] = ip->i_next;
			/*
			 * make undefined references extern
			 */
			if ((ip->i_type & (S_VAR|S_TYP)) == S_UND) 
				ip->i_type |= S_EXT;
			/*
			 * relink externals in global queue
			 */
			if (ip->i_type & S_EXT)
				item_insert(ip, H_GLOBAL+i);
		}
	}
#else
	for (i = 0; i < H_SIZE; i++) {
		for (ip = hashtab[H_LOCAL+i]; ip; ip = ip->i_next) {
			if (ip->i_type & S_EXT)
				continue;
			if (ip->i_type != S_UND)
				continue;
			if (uflag == 0)
				serror("undefined symbol %s", ip->i_name);
			ip->i_type |= S_EXT;
		}
	}
#endif
	/*
	 * Check for undefined numeric labels
	 */
	for (i = 0; i < FB_SIZE; i++) {
		if ((ip = fb_ptr[FB_FORW+i]) == 0)
			continue;
		serror("undefined label %d", i);
		fb_ptr[FB_FORW+i] = 0;
	}
}

pass_23(n)
{
	register i;
#ifdef ASLD
	register ADDR_T base = 0;
#endif
	register sect_t *sp;

	if (nerrors & 0xff){
		fprintf(stderr,"nerrors unequal zero %d\n",nerrors);
		stop(0);}
	pass = n;
#ifdef LISTING
	listmode >>= 3;
	if (listmode & 4)
		ffreopen(listpath, listfile);
	listeoln = 1;
#endif
#ifdef THREE_PASS
	bitindex = -1;
	nbits = BITCHUNK;
#endif
	for (i = 0; i < FB_SIZE; i++)
		fb_ptr[FB_FORW+i] = fb_ptr[FB_HEAD+i];
	outhead.oh_nemit = 0;
	for (sp = sect; sp < &sect[outhead.oh_nsect]; sp++) {
#ifdef ASLD
		if (sp->s_flag & BASED) {
			base = sp->s_base;
			if (base % sp->s_lign)
				fatal("base not aligned");
		} else {
			base += (sp->s_lign - 1);
			base -= (base % sp->s_lign);
			sp->s_base = base;
		}
		base += sp->s_size;
		base += sp->s_comm;
#endif
		outhead.oh_nemit += sp->s_size - sp->s_zero;
	}
	if (pass == PASS_3) 
		setupoutput();
	for (sp = sect; sp < &sect[outhead.oh_nsect]; sp++) {
		sp->s_size = 0;
		sp->s_zero = 0;
#ifdef THREE_PASS
		sp->s_gain = 0;
#endif
	}
	machstart(n);
#ifndef ASLD
	newmodule(modulename);
#endif /* ASLD */
	ffreopen(temppath, tempfile);
	yyparse();
	commfinish();
	machfinish(n);
}

newmodule(s)
char *s;
{
	static char nmbuf[STRINGMAX];

	switchsect(S_UND);
	if (s && s != modulename) {
		strncpy(nmbuf, s, STRINGMAX-1);
		modulename = nmbuf;
	}
	else modulename = s;
	lineno = 1;
#ifdef NEEDED
        /*
         * problem: it shows the name of the tempfile, not any name
         * the user is familiar with. Moreover, it is not reproducable.
         */
        if ((sflag & (SYM_EXT|SYM_LOC|SYM_LAB)) && PASS_SYMB)
                newsymb(s, S_MOD, 0, (valu_t)0);
#endif
#ifdef LISTING
	listtemp = 0;
	if (dflag & 01000)
		listtemp = listmode;
	listflag = listtemp;
#endif
}

setupoutput()
{
	register sect_t *sp;
	register long off;
	struct outsect outsect;
	register struct outsect *pos = &outsect;

	if (! wr_open(aoutpath)) {
		fatal("comm4 can't create %s", aoutpath);
	}
	wr_ohead(&outhead);
	/*
	 * section table generation
	 */
	off = SZ_HEAD;
	off += (long)outhead.oh_nsect * SZ_SECT;
	for (sp = sect; sp < &sect[outhead.oh_nsect]; sp++) {
		sp->s_foff = off;
		pos->os_base = SETBASE(sp);
		pos->os_size = sp->s_size + sp->s_comm;
		pos->os_foff = sp->s_foff;
		pos->os_flen = sp->s_size - sp->s_zero;
		pos->os_lign = sp->s_lign;
		off += pos->os_flen;
		wr_sect(pos, 1);
	}
#ifdef RELOCATION
	off += (long)outhead.oh_nrelo * SZ_RELO;
#endif
	if (sflag == 0)
		return;
	off += (long)outhead.oh_nname * SZ_NAME;
	outhead.oh_nchar = off;	/* see newsymb() */
}

commfinish()
{
#ifndef ASLD
	register int i;
#endif
	register struct common_t *cp;
	register item_t *ip;
	register sect_t *sp;
	register valu_t addr;

	switchsect(S_UND);
	/*
	 * assign .comm labels and produce .comm symbol table entries
	 */
	for (cp = commons; cp; cp = cp->c_next) {
		ip = cp->c_it;
#ifndef ASLD
		if (!( ip->i_type & S_EXT)) {
#endif
			sp = &sect[(ip->i_type & S_TYP) - S_MIN];
			if (pass == PASS_1) {
				addr = sp->s_size + sp->s_comm;
				sp->s_comm += ip->i_valu;
				ip->i_valu = addr;
#ifndef ASLD
				ip->i_type &= ~S_COM;
#endif
			}
#ifdef ASLD
#ifdef THREE_PASS
			if (pass == PASS_2) {
				ip->i_valu -= sp->s_gain;
			}
#endif
			if ((sflag & SYM_EXT) && PASS_SYMB)
				newsymb(
					ip->i_name,
					ip->i_type & (S_EXT|S_TYP),
					0,
					load(ip)
				);
#else /* not ASLD */
#ifdef THREE_PASS
			if (pass == PASS_2) {
				cp->c_size -= sp->s_gain;
			}
#endif /* THREE_PASS */
		}
		if (pass == PASS_1) cp->c_size = ip->i_valu;
		if (PASS_SYMB) {
			if (pass != PASS_3 && (ip->i_type & S_EXT)) {
				ip->i_valu = outhead.oh_nname;
			}
			newsymb(
				ip->i_name,
				ip->i_type,
				0,
				cp->c_size
			);
		}
#endif /* not ASLD */
	}
	if (PASS_SYMB == 0)
		return;
#ifndef ASLD
	/*
	 * produce symbol table entries for undefined's
	 */
	for (i = 0; i<H_SIZE; i++)
		for (ip = hashtab[H_LOCAL+i]; ip; ip = ip->i_next) {
			if (ip->i_type != (S_EXT|S_UND))
				continue;
			if (pass != PASS_3)
				/*
				 * save symbol table index
				 * for possible relocation
				 */
				ip->i_valu = outhead.oh_nname;
			newsymb(
				ip->i_name,
				S_EXT|S_UND,
				0,
				(valu_t)0
			);
		}
#endif /* not ASLD */
	/*
	 * produce symbol table entries for sections
	 */
	if (sflag & SYM_SCT)
		for (sp = sect; sp < &sect[outhead.oh_nsect]; sp++) {
			ip = sp->s_item;
			newsymb(
				ip->i_name,
				(ip->i_type | S_SCT),
				0,
				load(ip)
			);
		}
}