151 lines
2.8 KiB
C
151 lines
2.8 KiB
C
#ifndef NORCSID
|
|
static char rcsid[] = "$Header$";
|
|
#endif
|
|
|
|
#include "assert.h"
|
|
#include <stdio.h>
|
|
#include "param.h"
|
|
#include "tables.h"
|
|
#include "types.h"
|
|
#include <cgg_cg.h>
|
|
#include "data.h"
|
|
#include "result.h"
|
|
#include "extern.h"
|
|
|
|
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
* Author: Hans van Staveren
|
|
*/
|
|
|
|
string mystrcpy();
|
|
|
|
FILE *codefile;
|
|
|
|
out_init(filename) char *filename; {
|
|
|
|
#ifndef NDEBUG
|
|
static char stderrbuff[BUFSIZ];
|
|
|
|
if (Debug) {
|
|
codefile = stderr;
|
|
if (!isatty(2))
|
|
setbuf(stderr,stderrbuff);
|
|
} else {
|
|
#endif
|
|
if (filename == (char *) 0)
|
|
codefile = stdout;
|
|
else
|
|
if ((codefile=freopen(filename,"w",stdout))==NULL)
|
|
error("Can't create %s",filename);
|
|
#ifndef NDEBUG
|
|
}
|
|
#endif
|
|
}
|
|
|
|
out_finish() {
|
|
|
|
#ifndef NDEBUG
|
|
if (Debug)
|
|
fflush(stderr);
|
|
else
|
|
#endif
|
|
fclose(codefile);
|
|
#ifdef TABLEDEBUG
|
|
termlset();
|
|
#endif
|
|
}
|
|
|
|
tstoutput() {
|
|
|
|
if (ferror(codefile))
|
|
error("Write error on output");
|
|
}
|
|
|
|
genstr(stringno) {
|
|
|
|
fputs(codestrings[stringno],codefile);
|
|
}
|
|
|
|
string ad2str(ad) addr_t ad; {
|
|
static char buf[100];
|
|
|
|
if (ad.ea_str==0)
|
|
ad.ea_str="";
|
|
if ((long)ad.ea_off==(long)0) {
|
|
if(ad.ea_str[0]==0)
|
|
return(mystrcpy("0")); /* don't return empty string */
|
|
else
|
|
return(mystrcpy(ad.ea_str));
|
|
}
|
|
sprintf(buf,"%s%c%ld",ad.ea_str,ad.ea_off>=0 ? '+' : ' ',(long)ad.ea_off);
|
|
return(mystrcpy(buf));
|
|
}
|
|
|
|
praddr(ad) addr_t ad; {
|
|
|
|
if (ad.ea_str==0 || *(ad.ea_str) == '\0')
|
|
fprintf(codefile,WRD_FMT,ad.ea_off);
|
|
else {
|
|
fprintf(codefile,"%s",ad.ea_str);
|
|
if (ad.ea_off<0) {
|
|
fputc('-', codefile);
|
|
fprintf(codefile,WRD_FMT,-ad.ea_off);
|
|
}
|
|
else if(ad.ea_off>0) {
|
|
fputc('+',codefile);
|
|
fprintf(codefile,WRD_FMT,ad.ea_off);
|
|
}
|
|
}
|
|
}
|
|
|
|
gennl() {
|
|
fputc('\n',codefile);
|
|
}
|
|
|
|
prtoken(tp,leadingchar) token_p tp; {
|
|
register c;
|
|
register char *code;
|
|
register tkdef_p tdp;
|
|
|
|
fputc(leadingchar,codefile);
|
|
if (tp->t_token == -1) {
|
|
fprintf(codefile,"%s",codestrings[machregs[tp->t_att[0].ar].r_repr]);
|
|
return;
|
|
}
|
|
tdp = &tokens[tp->t_token];
|
|
assert(tdp->t_format != -1);
|
|
code = codestrings[tdp->t_format];
|
|
while ((c = *code++) != 0) {
|
|
if (c>=' ' && c<='~')
|
|
fputc(c,codefile);
|
|
else {
|
|
assert(c>0 && c<=TOKENSIZE);
|
|
switch(tdp->t_type[c-1]) {
|
|
default:
|
|
assert(FALSE);
|
|
case EV_INT:
|
|
fprintf(codefile,WRD_FMT,tp->t_att[c-1].aw);
|
|
break;
|
|
case EV_ADDR:
|
|
praddr(tp->t_att[c-1].aa);
|
|
break;
|
|
case EV_REG:
|
|
fprintf(codefile,"%s",codestrings[machregs[tp->t_att[c-1].ar].r_repr]);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|