[unix-history] / .ref-BSD-1 / px / pwrite.c

#
#include "0x.h"
#include "opcode.h"

pwrite(opc, subopc, av)
{
	register char *ap, *cp;
	register i;
	int w, w1, sign, decpt;
	char *acp;
	long along;
	double adouble;
	int k2,k3;

	ap = &av;
	if (opc == O_WRITLN || opc == O_PAGE)
		opc = O_WRITC;
	switch(opc) {
		case O_WRIT2:
			along = ap->pint;
			ap =+ 2;
			w = 10;
			break;
		case O_WRIT4:
			along = ap->plong;
			ap =+ 4;
			w = 10;
			break;
		case O_WRITC:
			acp = ap;
			ap =+ 2;
			w = 1;
			break;
		case O_WRITB:
			i = ap->pint;
			ap =+ 2;
			w = 10;
			break;
		case O_WRITG:
			w1 = ap->pint;
			ap =+ 2;
			acp = ap;
			ap =+ (w1 + 1) & ~1;
			w = 0;
			break;
		case O_WRIT8:
		case O_WRIT82:
			adouble = ap->pdouble;
			ap =+ 8;
			w = 22;
			break;
		case O_WRHEX2:
		case O_WROCT2:
			(&along)->pint = 0;
			(&along)->p2int = ap->pint;
			ap =+ 2;
			w = opc == O_WROCT2 ? 11 : 8;
			break;
		case O_WRHEX2+1:	/* ugh, cc string table too small */
		case O_WROCT2+1:	/* ugh, cc string table too small */
			along = ap->plong;
			ap =+ 4;
			w = opc == O_WROCT2+1 ? 11 : 8;
			break;
	}
again:
	switch(subopc & 07) {
		case 0:
			break;
		case 2:
			w = ap->pint;
			ap =+ 2;
			break;
		case 4:
			w = ap->plong;
			ap =+ 4;
			break;
	}
	if (opc == O_WRIT82 && (i = (subopc >> 3) & 07) != 0) {
		subopc = i;
		w1 = w;
		goto again;
	}
	switch(opc) {
		case O_WROCT2+1:
		case O_WROCT2:
			while (w > 11) {
				pputch(' ');
				w--;
			}
			if (w > 0)
				wro(along, w);
			break;
		case O_WRHEX2:
		case O_WRHEX2+1:
			while (w > 8) {
				pputch(' ');
				w--;
			}
			if (w > 0)
				wrhex(along, w);
			break;
		case O_WRIT2:
		case O_WRIT4:
			pwril(w, along);
			break;
		case O_WRITC:
			while (w > 1) {
				pputch(' ');
				w--;
			}
			pputch(*acp);
			break;
		case O_WRITB:
			if (i) {
				acp = "true";
				w1 = 4;
			} else {
				acp = "false";
				w1 = 5;
			}
		case O_WRITG:
			cp = acp;
			while (w > w1) {
				pputch(' ');
				w--;
			}
			while(w1 > 0) {
				pputch(*cp++);
				w1--;
			}
			break;
		case O_WRIT8:
			if (adouble == 0.0) {
				do
					pputch(' ');
				while (--w > 0);
				pputch('0');
				break;
			}
			if (w <= 9)
				w = 3;
			else
				w =- 6;
			do
				pputch(' ');
			while (--w > 17);
			cp = ecvt(adouble, w+1, &decpt, &sign);
			pputch(sign ? '-' : ' ');
			pputch(*cp++);
			pputch('.');
			do
				pputch(*cp++);
			while (--w > 0);
			pputch('e');
			if (--decpt >= 0)
				pputch('+');
			else {
				pputch('-');
				decpt = -decpt;
			}
			pputch(decpt / 10 + '0');
			pputch(decpt % 10 + '0');
			break;
		case O_WRIT82:
			if (adouble == 0.0) {
				do
					pputch(' ');
				while(--w1 > 1);
				pputch('0');
				break;
			}
			if (w < 0)
				w = 0;
			cp = fcvt(adouble, w, &decpt, &sign);
			cp[17] = '\0';
			if (decpt > 0) {
				w1 = w1-w-decpt-2;
				k2 = decpt;
				k3 = 0;
			} else {
				w1 = w1-w-3;
				k2 = 0;
				if (w+decpt >= 0)
					k3 = -decpt;
				else
					k3 = w;
				w =- k3;
			}
			while (w1 > 0) {
				pputch(' ');
				w1--;
			}
			pputch(sign ? '-' : ' ');
			if (k2 <= 0)
				pputch('0');
			else
				do
					pputch(*cp ? *cp++ : '0');
				while (--k2 > 0);
			pputch('.');
			if (k3 <= 0 && w <= 0) {
				pputch('0');
				break;
			}
			while(k3 > 0) {
				pputch('0');
				k3--;
			}
			while(w > 0) {
				pputch(*cp ? *cp++ : '0');
				w--;
			}
			break;
	}
	return(ap);
}

wro(l, w)
long l;
{
	register c;

	c = (&l)->p2int & 07;
	l =>> 3;
	(&l)->pint =& 017777;
	if (w > 1 || l != 0)
		wro(l, w-1);
	pputch(c | '0');
}

wrhex(l, w)
long l;
{
	register c;

	c = (&l)->p2int & 017;
	l =>> 4;
	(&l)->pint =& 07777;
	if (w > 1 || l != 0)
		wrhex(l, w-1);
	pputch(c <= 9 ? c | '0' : 'a' + (c - 10));
}
Commit	Line	Data
4e754410 BJ	1	#
	2	#include "0x.h"
	3	#include "opcode.h"
	4
	5	pwrite(opc, subopc, av)
	6	{
	7	register char ap, cp;
	8	register i;
	9	int w, w1, sign, decpt;
	10	char *acp;
	11	long along;
	12	double adouble;
	13	int k2,k3;
	14
	15	ap = &av;
	16	if (opc == O_WRITLN \|\| opc == O_PAGE)
	17	opc = O_WRITC;
	18	switch(opc) {
	19	case O_WRIT2:
	20	along = ap->pint;
	21	ap =+ 2;
	22	w = 10;
	23	break;
	24	case O_WRIT4:
	25	along = ap->plong;
	26	ap =+ 4;
	27	w = 10;
	28	break;
	29	case O_WRITC:
	30	acp = ap;
	31	ap =+ 2;
	32	w = 1;
	33	break;
	34	case O_WRITB:
	35	i = ap->pint;
	36	ap =+ 2;
	37	w = 10;
	38	break;
	39	case O_WRITG:
	40	w1 = ap->pint;
	41	ap =+ 2;
	42	acp = ap;
	43	ap =+ (w1 + 1) & ~1;
	44	w = 0;
	45	break;
	46	case O_WRIT8:
	47	case O_WRIT82:
	48	adouble = ap->pdouble;
	49	ap =+ 8;
	50	w = 22;
	51	break;
	52	case O_WRHEX2:
	53	case O_WROCT2:
	54	(&along)->pint = 0;
	55	(&along)->p2int = ap->pint;
	56	ap =+ 2;
	57	w = opc == O_WROCT2 ? 11 : 8;
	58	break;
	59	case O_WRHEX2+1: /* ugh, cc string table too small */
	60	case O_WROCT2+1: /* ugh, cc string table too small */
	61	along = ap->plong;
	62	ap =+ 4;
	63	w = opc == O_WROCT2+1 ? 11 : 8;
	64	break;
65	}
66	again:
67	switch(subopc & 07) {
68	case 0:
69	break;
70	case 2:
71	w = ap->pint;
72	ap =+ 2;
73	break;
74	case 4:
75	w = ap->plong;
76	ap =+ 4;
77	break;
78	}
79	if (opc == O_WRIT82 && (i = (subopc >> 3) & 07) != 0) {
80	subopc = i;
81	w1 = w;
82	goto again;
83	}
84	switch(opc) {
85	case O_WROCT2+1:
86	case O_WROCT2:
87	while (w > 11) {
88	pputch(' ');
89	w--;
90	}
91	if (w > 0)
92	wro(along, w);
93	break;
94	case O_WRHEX2:
95	case O_WRHEX2+1:
96	while (w > 8) {
97	pputch(' ');
98	w--;
99	}
100	if (w > 0)
101	wrhex(along, w);
102	break;
103	case O_WRIT2:
104	case O_WRIT4:
105	pwril(w, along);
106	break;
107	case O_WRITC:
108	while (w > 1) {
109	pputch(' ');
110	w--;
111	}
112	pputch(*acp);
113	break;
114	case O_WRITB:
115	if (i) {
116	acp = "true";
117	w1 = 4;
118	} else {
119	acp = "false";
120	w1 = 5;
121	}
122	case O_WRITG:
123	cp = acp;
124	while (w > w1) {
125	pputch(' ');
126	w--;
127	}
128	while(w1 > 0) {
129	pputch(*cp++);
130	w1--;
131	}
132	break;
133	case O_WRIT8:
134	if (adouble == 0.0) {
135	do
136	pputch(' ');
137	while (--w > 0);
138	pputch('0');
139	break;
140	}
141	if (w <= 9)
142	w = 3;
143	else
144	w =- 6;
145	do
146	pputch(' ');
147	while (--w > 17);
148	cp = ecvt(adouble, w+1, &decpt, &sign);
149	pputch(sign ? '-' : ' ');
150	pputch(*cp++);
151	pputch('.');
152	do
153	pputch(*cp++);
154	while (--w > 0);
155	pputch('e');
156	if (--decpt >= 0)
157	pputch('+');
158	else {
159	pputch('-');
160	decpt = -decpt;
161	}
162	pputch(decpt / 10 + '0');
163	pputch(decpt % 10 + '0');
164	break;
165	case O_WRIT82:
166	if (adouble == 0.0) {
167	do
168	pputch(' ');
169	while(--w1 > 1);
170	pputch('0');
171	break;
172	}
173	if (w < 0)
174	w = 0;
175	cp = fcvt(adouble, w, &decpt, &sign);
176	cp[17] = '\0';
177	if (decpt > 0) {
178	w1 = w1-w-decpt-2;
179	k2 = decpt;
180	k3 = 0;
181	} else {
182	w1 = w1-w-3;
183	k2 = 0;
184	if (w+decpt >= 0)
185	k3 = -decpt;
186	else
187	k3 = w;
188	w =- k3;
189	}
190	while (w1 > 0) {
191	pputch(' ');
192	w1--;
193	}
194	pputch(sign ? '-' : ' ');
195	if (k2 <= 0)
196	pputch('0');
197	else
198	do
199	pputch(cp ? cp++ : '0');
200	while (--k2 > 0);
201	pputch('.');
202	if (k3 <= 0 && w <= 0) {
203	pputch('0');
204	break;
205	}
206	while(k3 > 0) {
207	pputch('0');
208	k3--;
209	}
210	while(w > 0) {
211	pputch(cp ? cp++ : '0');
212	w--;
213	}
214	break;
215	}
216	return(ap);
217	}
218
219	wro(l, w)
220	long l;
221	{
222	register c;
223
224	c = (&l)->p2int & 07;
225	l =>> 3;
226	(&l)->pint =& 017777;
227	if (w > 1 \|\| l != 0)
228	wro(l, w-1);
229	pputch(c \| '0');
230	}
231
232	wrhex(l, w)
233	long l;
234	{
235	register c;
236
237	c = (&l)->p2int & 017;
238	l =>> 4;
239	(&l)->pint =& 07777;
240	if (w > 1 \|\| l != 0)
241	wrhex(l, w-1);
242	pputch(c <= 9 ? c \| '0' : 'a' + (c - 10));
243	}