From 19ffd2c1f22b14a4bf8b91cc5866ae83d6be1e83 Mon Sep 17 00:00:00 2001 From: ceriel Date: Tue, 30 Jun 1987 16:09:18 +0000 Subject: [PATCH] all external names start with C_, output buffered --- modules/src/em_code/e/em.c | 129 +++++++++++++++++++---------- modules/src/em_code/e/em_private.h | 38 ++++----- 2 files changed, 106 insertions(+), 61 deletions(-) diff --git a/modules/src/em_code/e/em.c b/modules/src/em_code/e/em.c index 5029dc160..9b0e93e52 100644 --- a/modules/src/em_code/e/em.c +++ b/modules/src/em_code/e/em.c @@ -10,8 +10,8 @@ /* putbyte(), C_open() and C_close() are the basic routines for - respectively write on, open and close the output file. - The put_*() functions serve as formatting functions of the + respectively write on, open and close the outpt file. + The C_pt_*() functions serve as formatting functions of the various EM language constructs. See "Description of a Machine Architecture for use with Block Structured Languages" par. 11.2 for the meaning of these @@ -19,17 +19,36 @@ */ static File *ofp = 0; +static char obuf[BUFSIZ]; +static char *opp = obuf; + +static +flush() { + if (sys_write(ofp, &obuf[0], opp - &obuf[0]) == 0) { + C_failed(); + } + opp = &obuf[0]; +} + +#define Xputbyte(c) if (opp == &obuf[BUFSIZ]) flush(); *opp++ = (c) + +static +C_putbyte(b) + int b; +{ + Xputbyte(b); +} C_init(w, p) arith w, p; { } -C_open(nm) /* open file for readable code output */ +C_open(nm) /* open file for readable code outpt */ char *nm; { if (nm == 0) - ofp = STDOUT; /* standard output */ + ofp = STDOUT; /* standard outpt */ else if (sys_open(nm, OP_WRITE, &ofp) == 0) return 0; @@ -38,6 +57,7 @@ C_open(nm) /* open file for readable code output */ C_close() { + if (opp != obuf) flush(); if (ofp != STDOUT) sys_close(ofp); ofp = 0; @@ -52,29 +72,49 @@ C_magic() { } + /*** the readable code generating routines ***/ -put_ilb(l) +static char buf[512]; + +static +wrs(s) + register char *s; +{ + while (*s) C_putbyte(*s++); +} + +C_pt_dnam(s) + char *s; +{ + wrs(s); +} + +C_pt_ilb(l) label l; { - _prnt("*%ld", (long) l); + sprint(buf, "*%ld", (long) l); + wrs(buf); } extern char em_mnem[][4]; extern char em_pseu[][4]; -put_op(x) +C_pt_op(x) { - _prnt(" %s ", em_mnem[x - sp_fmnem]); + C_putbyte(' '); + wrs(em_mnem[x - sp_fmnem]); + C_putbyte(' '); } -put_cst(l) +C_pt_cst(l) arith l; { - _prnt("%ld", (long) l); + sprint(buf, "%ld", (long) l); + wrs(buf); } -put_scon(x, y) +C_pt_scon(x, y) char *x; arith y; { @@ -83,71 +123,76 @@ put_scon(x, y) register char *p, *q = &sbuf[0]; char *bts2str(); + C_putbyte('\''); p = bts2str(x, (int) y, buf); while (*p) { if (*p == '\'') - *q++ = '\\'; - *q++ = *p++; + C_putbyte('\\'); + C_putbyte(*p++); } - *q = '\0'; - _prnt("'%s'", sbuf); + C_putbyte('\''); } -put_ps(x) +C_pt_ps(x) { - _prnt(" %s ", em_pseu[x - sp_fpseu]); + C_putbyte(' '); + wrs(em_pseu[x - sp_fpseu]); + C_putbyte(' '); } -put_dlb(l) +C_pt_dlb(l) label l; { - _prnt(".%ld", (long) l); + sprint(buf, ".%ld", (long) l); + wrs(buf); } -put_doff(l, v) +C_pt_doff(l, v) label l; arith v; { - if (v == 0) put_dlb(l); - else _prnt(".%ld+%ld", (long) l, (long) v); + C_pt_dlb(l); + if (v != 0) { + sprint(buf,"+%ld", (long) v); + wrs(buf); + } } -put_noff(s, v) +C_pt_noff(s, v) char *s; arith v; { - if (v == 0) _prnt(s); - else _prnt("%s+%ld", s, (long) v); + wrs(s); + if (v != 0) { + sprint(buf,"+%ld", (long) v); + wrs(buf); + } } -put_pnam(s) +C_pt_pnam(s) char *s; { - _prnt("$%s", s); + C_putbyte('$'); + wrs(s); } -put_dfilb(l) +C_pt_dfilb(l) label l; { - _prnt("%ld", (long) l); + sprint(buf, "%ld", (long) l); + wrs(buf); } -put_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */ +C_pt_wcon(sp, v, sz) /* sp_icon, sp_ucon or sp_fcon with int repr */ int sp; char *v; arith sz; { - _prnt("%s%c%ld", v, sp == sp_icon ? 'I' : sp == sp_ucon ? 'U' : 'F', - (long) sz); -} - -_prnt(fmt, args) - char *fmt; - int args; -{ - doprnt(ofp, fmt, (int *)&args); + wrs(v); + C_putbyte(sp == sp_icon ? 'I' : sp == sp_ucon ? 'U' : 'F'); + C_pt_cst(sz); } -put_nl() { _prnt("\n"); } -put_comma() { _prnt(","); } -put_ccend() { _prnt(" ?"); } +C_pt_nl() { C_putbyte('\n'); } +C_pt_comma() { C_putbyte(','); } +C_pt_ccend() { wrs(" ?"); } diff --git a/modules/src/em_code/e/em_private.h b/modules/src/em_code/e/em_private.h index df779e392..1216c8dab 100644 --- a/modules/src/em_code/e/em_private.h +++ b/modules/src/em_code/e/em_private.h @@ -16,23 +16,23 @@ #include /* macros used in the definitions of the interface functions C_* */ -#define OP(x) put_op(x) -#define CST(x) put_cst(x) -#define DCST(x) put_cst(x) -#define SCON(x,y) put_scon((x), (y)) -#define PS(x) put_ps(x) -#define DLB(x) put_dlb(x) -#define DFDLB(x) put_dlb(x) -#define ILB(x) put_ilb(x) -#define DFILB(x) put_dfilb(x) -#define NOFF(x,y) put_noff((x), (y)) -#define DOFF(x,y) put_doff((x), (y)) -#define PNAM(x) put_pnam(x) -#define DNAM(x) _prnt(x) -#define DFDNAM(x) _prnt(x) +#define OP(x) C_pt_op(x) +#define CST(x) C_pt_cst(x) +#define DCST(x) C_pt_cst(x) +#define SCON(x,y) C_pt_scon((x), (y)) +#define PS(x) C_pt_ps(x) +#define DLB(x) C_pt_dlb(x) +#define DFDLB(x) C_pt_dlb(x) +#define ILB(x) C_pt_ilb(x) +#define DFILB(x) C_pt_dfilb(x) +#define NOFF(x,y) C_pt_noff((x), (y)) +#define DOFF(x,y) C_pt_doff((x), (y)) +#define PNAM(x) C_pt_pnam(x) +#define DNAM(x) C_pt_dnam(x) +#define DFDNAM(x) C_pt_dnam(x) #define CEND() -#define CCEND() put_ccend() -#define WCON(x,y,z) put_wcon((x), (y), (z)) -#define COMMA() put_comma() -#define NL() put_nl() -#define CILB(x) put_ilb(x) +#define CCEND() C_pt_ccend() +#define WCON(x,y,z) C_pt_wcon((x), (y), (z)) +#define COMMA() C_pt_comma() +#define NL() C_pt_nl() +#define CILB(x) C_pt_ilb(x) -- 2.34.1