tgets.c revision 1.1 1 /* $NetBSD: tgets.c,v 1.1 1997/02/04 03:52:55 thorpej Exp $ */
2
3 /*-
4 * Copyright (c) 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by the University of
18 * California, Berkeley and its contributors.
19 * 4. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 *
35 * @(#)gets.c 8.1 (Berkeley) 6/11/93
36 */
37
38 int
39 tgets(buf)
40 char *buf;
41 {
42 register int c;
43 int i;
44 register char *lp = buf;
45
46 for (i = 240000; i > 0; i--) {
47 c = tgetchar() & 0177;
48 if (c) {
49 for (;;) {
50 switch (c) {
51 case '\n':
52 case '\r':
53 *lp = '\0';
54 putchar('\n');
55 return (1);
56 case '\b':
57 case '\177':
58 if (lp > buf) {
59 lp--;
60 putchar('\b');
61 putchar(' ');
62 putchar('\b');
63 }
64 break;
65 case '#':
66 if (lp > buf)
67 --lp;
68 break;
69 case 'r'&037: {
70 register char *p;
71
72 putchar('\n');
73 for (p = buf; p < lp; ++p)
74 putchar(*p);
75 break;
76 }
77 case '@':
78 case 'u'&037:
79 case 'w'&037:
80 lp = buf;
81 putchar('\n');
82 break;
83 default:
84 *lp++ = c;
85 putchar(c);
86 }
87 c = getchar() & 0177;
88 }
89 }
90 }
91 return (0);
92 }
93