Import sources from 2011-03-30 iso image

1 files changed, 319 insertions, 0 deletions

diff --git a/sys/src/cmd/1c/list.c b/sys/src/cmd/1c/list.c
new file mode 100755
index 000000000..f6bc2e620
--- /dev/null
+++ b/sys/src/cmd/1c/list.c
@@ -0,0 +1,319 @@
+#define EXTERN
+#include "gc.h"
+
+void
+listinit(void)
+{
+
+	fmtinstall('R', Rconv);
+	fmtinstall('A', Aconv);
+	fmtinstall('D', Dconv);
+	fmtinstall('P', Pconv);
+	fmtinstall('S', Sconv);
+	fmtinstall('B', Bconv);
+}
+
+int
+Bconv(Fmt *fp)
+{
+	char str[STRINGSZ], ss[STRINGSZ], *s;
+	Bits bits;
+	int i;
+
+	str[0] = 0;
+	bits = va_arg(fp->args, Bits);
+	while(bany(&bits)) {
+		i = bnum(bits);
+		if(str[0])
+			strcat(str, " ");
+		if(var[i].sym == S) {
+			sprint(ss, "$%ld", var[i].offset);
+			s = ss;
+		} else
+			s = var[i].sym->name;
+		if(strlen(str) + strlen(s) + 1 >= STRINGSZ)
+			break;
+		strcat(str, s);
+		bits.b[i/32] &= ~(1L << (i%32));
+	}
+	return fmtstrcpy(fp, str);
+}
+
+int
+Pconv(Fmt *fp)
+{
+	char str[STRINGSZ], s[20];
+	Prog *p;
+
+	p = va_arg(fp->args, Prog*);
+	sprint(str, "	%A	%D,%D", p->as, &p->from, &p->to);
+	if(p->from.field) {
+		sprint(s, ",%d,%d", p->to.field, p->from.field);
+		strcat(str, s);
+	}
+	return fmtstrcpy(fp, str);
+}
+
+int
+Aconv(Fmt *fp)
+{
+	int r;
+
+	r = va_arg(fp->args, int);
+	return fmtstrcpy(fp, anames[r]);
+}
+
+int
+Dconv(Fmt *fp)
+{
+	char str[40], s[20];
+	Adr *a;
+	int i, j;
+	long d;
+
+	a = va_arg(fp->args, Adr*);
+	i = a->type;
+	j = i & I_MASK;
+	if(j) {
+		a->type = i & D_MASK;
+		d = a->offset;
+		a->offset = 0;
+		switch(j) {
+		case I_INDINC:
+			sprint(str, "(%D)+", a);
+			break;
+
+		case I_INDDEC:
+			sprint(str, "-(%D)", a);
+			break;
+
+		case I_INDIR:
+			if(a->type == D_CONST)
+				sprint(str, "%ld", d);
+			else
+			if(d)
+				sprint(str, "%ld(%D)", d, a);
+			else
+				sprint(str, "(%D)", a);
+			break;
+
+		case I_ADDR:
+			a->offset = d;
+			sprint(str, "$%D", a);
+			break;
+		}
+		a->type = i;
+		a->offset = d;
+		goto out;
+	}
+	switch(i) {
+
+	default:
+		sprint(str, "%R", i);
+		break;
+
+	case D_NONE:
+		str[0] = 0;
+		break;
+
+	case D_BRANCH:
+		sprint(str, "%ld(PC)", a->offset-pc);
+		break;
+
+	case D_EXTERN:
+		sprint(str, "%s+%ld(SB)", a->sym->name, a->offset);
+		break;
+
+	case D_STATIC:
+		sprint(str, "%s<>+%ld(SB)", a->sym->name, a->offset);
+		break;
+
+	case D_AUTO:
+		sprint(str, "%s-%ld(SP)", a->sym->name, -a->offset);
+		break;
+
+	case D_PARAM:
+		sprint(str, "%s+%ld(FP)", a->sym->name, a->offset);
+		break;
+
+	case D_CONST:
+		sprint(str, "$%ld", a->offset);
+		break;
+
+	case D_STACK:
+		sprint(str, "TOS+%ld", a->offset);
+		break;
+
+	case D_FCONST:
+		sprint(str, "$%.17e", a->dval);
+		goto out;
+
+	case D_SCONST:
+		sprint(str, "$\"%S\"", a->sval);
+		goto out;
+	}
+	if(a->displace) {
+		sprint(s, "/%ld", a->displace);
+		strcat(str, s);
+	}
+out:
+	return fmtstrcpy(fp, str);
+}
+
+int
+Rconv(Fmt *fp)
+{
+	char str[20];
+	int r;
+
+	r = va_arg(fp->args, int);
+	if(r >= D_R0 && r < D_R0+NREG)
+		sprint(str, "R%d", r-D_R0);
+	else
+	if(r >= D_A0 && r < D_A0+NREG)
+		sprint(str, "A%d", r-D_A0);
+	else
+	if(r >= D_F0 && r < D_F0+NREG)
+		sprint(str, "F%d", r-D_F0);
+	else
+	switch(r) {
+
+	default:
+		sprint(str, "gok(%d)", r);
+		break;
+
+	case D_NONE:
+		sprint(str, "NONE");
+		break;
+
+	case D_TOS:
+		sprint(str, "TOS");
+		break;
+
+	case D_CCR:
+		sprint(str, "CCR");
+		break;
+
+	case D_SR:
+		sprint(str, "SR");
+		break;
+
+	case D_SFC:
+		sprint(str, "SFC");
+		break;
+
+	case D_DFC:
+		sprint(str, "DFC");
+		break;
+
+	case D_CACR:
+		sprint(str, "CACR");
+		break;
+
+	case D_USP:
+		sprint(str, "USP");
+		break;
+
+	case D_VBR:
+		sprint(str, "VBR");
+		break;
+
+	case D_CAAR:
+		sprint(str, "CAAR");
+		break;
+
+	case D_MSP:
+		sprint(str, "MSP");
+		break;
+
+	case D_ISP:
+		sprint(str, "ISP");
+		break;
+
+	case D_TREE:
+		sprint(str, "TREE");
+		break;
+
+	case D_FPCR:
+		sprint(str, "FPCR");
+		break;
+
+	case D_FPSR:
+		sprint(str, "FPSR");
+		break;
+
+	case D_FPIAR:
+		sprint(str, "FPIAR");
+		break;
+
+	case D_TC:
+		sprint(str, "TC");
+		break;
+
+	case D_ITT0:
+		sprint(str, "ITT0");
+		break;
+
+	case D_ITT1:
+		sprint(str, "ITT1");
+		break;
+
+	case D_DTT0:
+		sprint(str, "DTT0");
+		break;
+
+	case D_DTT1:
+		sprint(str, "DTT1");
+		break;
+
+	case D_MMUSR:
+		sprint(str, "MMUSR");
+		break;
+	case D_URP:
+		sprint(str, "URP");
+		break;
+
+	case D_SRP:
+		sprint(str, "SRP");
+		break;
+	}
+	return fmtstrcpy(fp, str);
+}
+
+int
+Sconv(Fmt *fp)
+{
+	int i, c;
+	char str[30], *p, *s;
+
+	s = va_arg(fp->args, char*);
+	p = str;
+	for(i=0; i<sizeof(double); i++) {
+		c = s[i] & 0xff;
+		if(c != '\\' && c != '"' && isprint(c)) {
+			*p++ = c;
+			continue;
+		}
+		*p++ = '\\';
+		switch(c) {
+		case 0:
+			*p++ = '0';
+			continue;
+		case '\\':
+		case '"':
+			*p++ = c;
+			continue;
+		case '\n':
+			*p++ = 'n';
+			continue;
+		case '\t':
+			*p++ = 't';
+			continue;
+		}
+		*p++ = ((c>>6) & 7) + '0';
+		*p++ = ((c>>3) & 7) + '0';
+		*p++ = ((c>>0) & 7) + '0';
+	}
+	*p = 0;
+	return fmtstrcpy(fp, str);
+}