sh.print.c revision 145479 
1/* $Header: /src/pub/tcsh/sh.print.c,v 3.28 2005/03/03 17:19:35 kim Exp $ */
2/*
3 * sh.print.c: Primitive Output routines.
4 */
5/*-
6 * Copyright (c) 1980, 1991 The Regents of the University of California.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 *    notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 *    notice, this list of conditions and the following disclaimer in the
16 *    documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the University nor the names of its contributors
18 *    may be used to endorse or promote products derived from this software
19 *    without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33#include "sh.h"
34
35RCSID("$Id: sh.print.c,v 3.28 2005/03/03 17:19:35 kim Exp $")
36
37#include "ed.h"
38
39extern int Tty_eight_bit;
40
41int     lbuffed = 1;		/* true if line buffered */
42
43static	void	p2dig	__P((unsigned int));
44
45/*
46 * C Shell
47 */
48
49#if defined(BSDLIMIT) || defined(RLIMIT_CPU)
50void
51psecs(l)
52    unsigned long    l;
53{
54    int i;
55
56    i = (int) (l / 3600);
57    if (i) {
58	xprintf("%d:", i);
59	i = (int) (l % 3600);
60	p2dig(i / 60);
61	goto minsec;
62    }
63    i = (int) l;
64    xprintf("%d", i / 60);
65minsec:
66    i %= 60;
67    xprintf(":");
68    p2dig(i);
69}
70
71#endif
72
73void
74pcsecs(l)			/* PWP: print mm:ss.dd, l is in sec*100 */
75#ifdef BSDTIMES
76    unsigned long    l;
77#else /* BSDTIMES */
78# ifndef POSIX
79    time_t  l;
80# else /* POSIX */
81    clock_t l;
82# endif /* POSIX */
83#endif /* BSDTIMES */
84{
85    int i;
86
87    i = (int) (l / 360000);
88    if (i) {
89	xprintf("%d:", i);
90	i = (int) ((l % 360000) / 100);
91	p2dig(i / 60);
92	goto minsec;
93    }
94    i = (int) (l / 100);
95    xprintf("%d", i / 60);
96minsec:
97    i %= 60;
98    xprintf(":");
99    p2dig(i);
100    xprintf(".");
101    p2dig((int) (l % 100));
102}
103
104static void
105p2dig(i)
106    unsigned int i;
107{
108
109    xprintf("%u%u", i / 10, i % 10);
110}
111
112char    linbuf[2048];		/* was 128 */
113char   *linp = linbuf;
114int    output_raw = 0;		/* PWP */
115int    xlate_cr   = 0;		/* HE */
116
117#ifdef WIDE_STRINGS
118void
119putwraw(Char c)
120{
121    char buf[MB_LEN_MAX];
122    size_t i, len;
123
124    len = one_wctomb(buf, c & CHAR);
125    for (i = 0; i < len; i++)
126	putraw((unsigned char)buf[i] | (c & ~CHAR));
127}
128
129void
130xputwchar(Char c)
131{
132    char buf[MB_LEN_MAX];
133    size_t i, len;
134
135    len = one_wctomb(buf, c & CHAR);
136    for (i = 0; i < len; i++)
137	xputchar((unsigned char)buf[i] | (c & ~CHAR));
138}
139#endif
140
141void
142xputchar(c)
143    int c;
144{
145    int     atr = 0;
146
147    atr |= c & ATTRIBUTES & TRIM;
148    c &= CHAR | QUOTE;
149    if (!output_raw && (c & QUOTE) == 0) {
150	if (iscntrl(c) && (c < 0x80 || MB_CUR_MAX == 1)) {
151#ifdef COLORCAT
152	    if (c != '\t' && c != '\n' && !(adrof(STRcolorcat) && c=='\033') && (xlate_cr || c != '\r'))
153#else
154	    if (c != '\t' && c != '\n' && (xlate_cr || c != '\r'))
155#endif
156	    {
157		xputchar('^' | atr);
158#ifdef IS_ASCII
159		if (c == 0177)
160		    c = '?';
161		else
162		    c |= 0100;
163#else
164		if (c == CTL_ESC('\177'))
165		    c = '?';
166		else
167		    c =_toebcdic[_toascii[c]|0100];
168#endif
169
170	    }
171	}
172	else if (!isprint(c) && (c < 0x80 || MB_CUR_MAX == 1)) {
173	    xputchar('\\' | atr);
174	    xputchar((((c >> 6) & 7) + '0') | atr);
175	    xputchar((((c >> 3) & 7) + '0') | atr);
176	    c = (c & 7) + '0';
177	}
178	(void) putraw(c | atr);
179    }
180    else {
181	c &= TRIM;
182	if (haderr ? (didfds ? is2atty : isdiagatty) :
183	    (didfds ? is1atty : isoutatty))
184	    SetAttributes(c | atr);
185	(void) putpure(c);
186    }
187    if (lbuffed && (c & CHAR) == '\n')
188	flush();
189}
190
191int
192putraw(c)
193    int c;
194{
195    if (haderr ? (didfds ? is2atty : isdiagatty) :
196	(didfds ? is1atty : isoutatty)) {
197	if (Tty_eight_bit == -1)
198	    ed_set_tty_eight_bit();
199	if (!Tty_eight_bit && (c & META)) {
200	    c = (c & ~META) | STANDOUT;
201	}
202	SetAttributes(c);
203    }
204    return putpure(c);
205}
206
207int
208putpure(c)
209    int c;
210{
211    c &= CHAR;
212
213    *linp++ = (char) c;
214    if (linp >= &linbuf[sizeof linbuf - 10])
215	flush();
216    return (1);
217}
218
219void
220drainoline()
221{
222    linp = linbuf;
223}
224
225void
226flush()
227{
228    int unit;
229    static int interrupted = 0;
230    size_t sz;
231
232    /* int lmode; */
233
234    if (linp == linbuf)
235	return;
236    if (GettingInput && !Tty_raw_mode && linp < &linbuf[sizeof linbuf - 10])
237	return;
238    if (interrupted) {
239	interrupted = 0;
240	linp = linbuf;		/* avoid resursion as stderror calls flush */
241	stderror(ERR_SILENT);
242    }
243    interrupted = 1;
244    if (haderr)
245	unit = didfds ? 2 : SHDIAG;
246    else
247	unit = didfds ? 1 : SHOUT;
248#ifdef COMMENT
249#ifdef TIOCLGET
250    if (didfds == 0 && ioctl(unit, TIOCLGET, (ioctl_t) & lmode) == 0 &&
251	lmode & LFLUSHO) {
252	lmode = LFLUSHO;
253	(void) ioctl(unit, TIOCLBIC, (ioclt_t) & lmode);
254	(void) write(unit, "\n", 1);
255    }
256#endif
257#endif
258    sz = (size_t) (linp - linbuf);
259    if (write(unit, linbuf, sz) == -1)
260	switch (errno) {
261#ifdef EIO
262	/* We lost our tty */
263	case EIO:
264#endif
265#ifdef ENXIO
266	/*
267	 * Deal with Digital Unix 4.0D bogocity, returning ENXIO when
268	 * we lose our tty.
269	 */
270	case ENXIO:
271#endif
272	/*
273	 * IRIX 6.4 bogocity?
274	 */
275#ifdef ENOTTY
276	case ENOTTY:
277#endif
278#ifdef EBADF
279	case EBADF:
280#endif
281#ifdef ESTALE
282	/*
283	 * Lost our file descriptor, exit (IRIS4D)
284	 */
285	case ESTALE:
286#endif
287	/*
288	 * Over our quota, writing the history file
289	 */
290#ifdef EDQUOT
291	case EDQUOT:
292#endif
293	/* Nothing to do, but die */
294	    xexit(1);
295	    break;
296	default:
297	    stderror(ERR_SILENT);
298	    break;
299	}
300
301    linp = linbuf;
302    interrupted = 0;
303}
304