/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #define EXTERN#include "gc.h" voidlistinit(void){ 	fmtinstall('A', Aconv);	fmtinstall('B', Bconv);	fmtinstall('P', Pconv);	fmtinstall('S', Sconv);	fmtinstall('D', Dconv);	fmtinstall('R', Rconv);} intBconv(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, "$%lld", 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);} intPconv(Fmt *fp){	char str[STRINGSZ];	Prog *p; 	p = va_arg(fp->args, Prog*);	if(p->as == ADATA)		sprint(str, "	%A	%D/%d,%D",			p->as, &p->from, p->from.scale, &p->to);	else if(p->as == ATEXT)		sprint(str, "	%A	%D,%d,%D",			p->as, &p->from, p->from.scale, &p->to);	else		sprint(str, "	%A	%D,%D",			p->as, &p->from, &p->to);	return fmtstrcpy(fp, str);} intAconv(Fmt *fp){	int i; 	i = va_arg(fp->args, int);	return fmtstrcpy(fp, anames[i]);} intDconv(Fmt *fp){	char str[40], s[20];	Adr *a;	int i; 	a = va_arg(fp->args, Adr*);	i = a->type;	if(i >= D_INDIR) {		if(a->offset)			sprint(str, "%lld(%R)", a->offset, i-D_INDIR);		else			sprint(str, "(%R)", i-D_INDIR);		goto brk;	}	switch(i) { 	default:		if(a->offset)			sprint(str, "$%lld,%R", a->offset, i);		else			sprint(str, "%R", i);		break; 	case D_NONE:		str[0] = 0;		break; 	case D_BRANCH:		sprint(str, "%lld(PC)", a->offset-pc);		break; 	case D_EXTERN:		sprint(str, "%s+%lld(SB)", a->sym->name, a->offset);		break; 	case D_STATIC:		sprint(str, "%s<>+%lld(SB)", a->sym->name,			a->offset);		break; 	case D_AUTO:		sprint(str, "%s+%lld(SP)", a->sym->name, a->offset);		break; 	case D_PARAM:		if(a->sym)			sprint(str, "%s+%lld(FP)", a->sym->name, a->offset);		else			sprint(str, "%lld(FP)", a->offset);		break; 	case D_CONST:		sprint(str, "$%lld", a->offset);		break; 	case D_FCONST:		sprint(str, "$(%.17e)", a->dval);		break; 	case D_SCONST:		sprint(str, "$\"%S\"", a->sval);		break; 	case D_ADDR:		a->type = a->index;		a->index = D_NONE;		sprint(str, "$%D", a);		a->index = a->type;		a->type = D_ADDR;		goto conv;	}brk:	if(a->index != D_NONE) {		sprint(s, "(%R*%d)", (int)a->index, (int)a->scale);		strcat(str, s);	}conv:	return fmtstrcpy(fp, str);} char*	regstr[] ={	"AL",		/* [D_AL] */	"CL",	"DL",	"BL",	"SPB",	"BPB",	"SIB",	"DIB",	"R8B",	"R9B",	"R10B",	"R11B",	"R12B",	"R13B",	"R14B",	"R15B", 	"AX",		/* [D_AX] */	"CX",	"DX",	"BX",	"SP",	"BP",	"SI",	"DI",	"R8",	"R9",	"R10",	"R11",	"R12",	"R13",	"R14",	"R15", 	"AH",	"CH",	"DH",	"BH", 	"F0",		/* [D_F0] */	"F1",	"F2",	"F3",	"F4",	"F5",	"F6",	"F7", 	"M0",	"M1",	"M2",	"M3",	"M4",	"M5",	"M6",	"M7", 	"X0",	"X1",	"X2",	"X3",	"X4",	"X5",	"X6",	"X7",	"X8",	"X9",	"X10",	"X11",	"X12",	"X13",	"X14",	"X15", 	"CS",		/* [D_CS] */	"SS",	"DS",	"ES",	"FS",	"GS", 	"GDTR",		/* [D_GDTR] */	"IDTR",		/* [D_IDTR] */	"LDTR",		/* [D_LDTR] */	"MSW",		/* [D_MSW] */	"TASK",		/* [D_TASK] */ 	"CR0",		/* [D_CR] */	"CR1",	"CR2",	"CR3",	"CR4",	"CR5",	"CR6",	"CR7",	"CR8",	"CR9",	"CR10",	"CR11",	"CR12",	"CR13",	"CR14",	"CR15", 	"DR0",		/* [D_DR] */	"DR1",	"DR2",	"DR3",	"DR4",	"DR5",	"DR6",	"DR7", 	"TR0",		/* [D_TR] */	"TR1",	"TR2",	"TR3",	"TR4",	"TR5",	"TR6",	"TR7", 	"NONE",		/* [D_NONE] */}; intRconv(Fmt *fp){	char str[20];	int r; 	r = va_arg(fp->args, int);	if(r >= D_AL && r <= D_NONE)		sprint(str, "%s", regstr[r-D_AL]);	else		sprint(str, "gok(%d)", r); 	return fmtstrcpy(fp, str);} intSconv(Fmt *fp){	int i, c;	char str[30], *p, *a; 	a = va_arg(fp->args, char*);	p = str;	for(i=0; i<sizeof(double); i++) {		c = a[i] & 0xff;		if(c >= 'a' && c <= 'z' ||		   c >= 'A' && c <= 'Z' ||		   c >= '0' && c <= '9') {			*p++ = c;			continue;		}		*p++ = '\\';		switch(c) {		default:			if(c < 040 || c >= 0177)				break;	/* not portable */			p[-1] = c;			continue;		case 0:			*p++ = 'z';			continue;		case '\\':		case '"':			*p++ = c;			continue;		case '\n':			*p++ = 'n';			continue;		case '\t':			*p++ = 't';			continue;		}		*p++ = (c>>6) + '0';		*p++ = ((c>>3) & 7) + '0';		*p++ = (c & 7) + '0';	}	*p = 0;	return fmtstrcpy(fp, str);}