b52e9acef47d21ff8a72d34ed99ea39a690604d9
[dragonfly.git] / games / hack / hack.tty.c
1 /*-
2  * Copyright (c) 1988, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. 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  * @(#)hack.tty.c       8.1 (Berkeley) 5/31/93
34  * $FreeBSD: src/games/hack/hack.tty.c,v 1.6.2.1 2000/07/20 10:35:07 kris Exp $
35  * $DragonFly: src/games/hack/hack.tty.c,v 1.2 2003/06/17 04:25:24 dillon Exp $
36  */
37
38 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
39 /* hack.tty.c - version 1.0.3 */
40 /* With thanks to the people who sent code for SYSV - hpscdi!jon,
41    arnold@ucsf-cgl, wcs@bo95b, cbcephus!pds and others. */
42
43 #include        "hack.h"
44 #include        <stdio.h>
45
46 /*
47  * The distinctions here are not BSD - rest but rather USG - rest, as
48  * BSD still has the old sgttyb structure, but SYSV has termio. Thus:
49  */
50 #ifdef BSD
51 #define V7
52 #else
53 #define USG
54 #endif BSD
55
56 /*
57  * Some systems may have getchar() return EOF for various reasons, and
58  * we should not quit before seeing at least NR_OF_EOFS consecutive EOFs.
59  */
60 #ifndef BSD
61 #define NR_OF_EOFS      20
62 #endif BSD
63
64
65 #ifdef USG
66
67 #include        <termio.h>
68 #define termstruct      termio
69 #define kill_sym        c_cc[VKILL]
70 #define erase_sym       c_cc[VERASE]
71 #define EXTABS          TAB3
72 #define tabflgs         c_oflag
73 #define echoflgs        c_lflag
74 #define cbrkflgs        c_lflag
75 #define CBRKMASK        ICANON
76 #define CBRKON          ! /* reverse condition */
77 #define OSPEED(x)       ((x).c_cflag & CBAUD)
78 #define GTTY(x)         (ioctl(0, TCGETA, x))
79 #define STTY(x)         (ioctl(0, TCSETA, x))   /* TCSETAF? TCSETAW? */
80
81 #else   /* V7 */
82
83 #include        <sgtty.h>
84 #define termstruct      sgttyb
85 #define kill_sym        sg_kill
86 #define erase_sym       sg_erase
87 #define EXTABS          XTABS
88 #define tabflgs         sg_flags
89 #define echoflgs        sg_flags
90 #define cbrkflgs        sg_flags
91 #define CBRKMASK        CBREAK
92 #define CBRKON          /* empty */
93 #define OSPEED(x)       (x).sg_ospeed
94 #define GTTY(x)         (gtty(0, x))
95 #define STTY(x)         (stty(0, x))
96
97 #endif USG
98
99 #if 0
100 extern short ospeed;
101 #endif
102 static char erase_char, kill_char;
103 static boolean settty_needed = FALSE;
104 struct termstruct inittyb, curttyb;
105
106 /*
107  * Get initial state of terminal, set ospeed (for termcap routines)
108  * and switch off tab expansion if necessary.
109  * Called by startup() in termcap.c and after returning from ! or ^Z
110  */
111 gettty(){
112         if(GTTY(&inittyb) < 0)
113                 perror("Hack (gettty)");
114         curttyb = inittyb;
115 #if 0
116         ospeed = OSPEED(inittyb);
117 #endif
118         erase_char = inittyb.erase_sym;
119         kill_char = inittyb.kill_sym;
120         getioctls();
121
122         /* do not expand tabs - they might be needed inside a cm sequence */
123         if(curttyb.tabflgs & EXTABS) {
124                 curttyb.tabflgs &= ~EXTABS;
125                 setctty();
126         }
127         settty_needed = TRUE;
128 }
129
130 /* reset terminal to original state */
131 settty(s) char *s; {
132         clear_screen();
133         end_screen();
134         if(s) printf("%s", s);
135         (void) fflush(stdout);
136         if(STTY(&inittyb) < 0)
137                 perror("Hack (settty)");
138         flags.echo = (inittyb.echoflgs & ECHO) ? ON : OFF;
139         flags.cbreak = (CBRKON(inittyb.cbrkflgs & CBRKMASK)) ? ON : OFF;
140         setioctls();
141 }
142
143 setctty(){
144         if(STTY(&curttyb) < 0)
145                 perror("Hack (setctty)");
146 }
147
148
149 setftty(){
150 int ef = 0;                     /* desired value of flags & ECHO */
151 int cf = CBRKON(CBRKMASK);      /* desired value of flags & CBREAK */
152 int change = 0;
153         flags.cbreak = ON;
154         flags.echo = OFF;
155         /* Should use (ECHO|CRMOD) here instead of ECHO */
156         if((curttyb.echoflgs & ECHO) != ef){
157                 curttyb.echoflgs &= ~ECHO;
158 /*              curttyb.echoflgs |= ef;                                 */
159                 change++;
160         }
161         if((curttyb.cbrkflgs & CBRKMASK) != cf){
162                 curttyb.cbrkflgs &= ~CBRKMASK;
163                 curttyb.cbrkflgs |= cf;
164 #ifdef USG
165                 /* be satisfied with one character; no timeout */
166                 curttyb.c_cc[VMIN] = 1;         /* was VEOF */
167                 curttyb.c_cc[VTIME] = 0;        /* was VEOL */
168 #endif USG
169                 change++;
170         }
171         if(change){
172                 setctty();
173         }
174         start_screen();
175 }
176
177
178 /* fatal error */
179 /*VARARGS1*/
180 error(s,x,y) char *s; {
181         if(settty_needed)
182                 settty((char *) 0);
183         printf(s,x,y);
184         putchar('\n');
185         exit(1);
186 }
187
188 /*
189  * Read a line closed with '\n' into the array char bufp[BUFSZ].
190  * (The '\n' is not stored. The string is closed with a '\0'.)
191  * Reading can be interrupted by an escape ('\033') - now the
192  * resulting string is "\033".
193  */
194 getlin(bufp)
195 char *bufp;
196 {
197         char *obufp = bufp;
198         int c;
199
200         flags.toplin = 2;               /* nonempty, no --More-- required */
201         for(;;) {
202                 (void) fflush(stdout);
203                 if((c = getchar()) == EOF) {
204                         *bufp = 0;
205                         return;
206                 }
207                 if(c == '\033') {
208                         *obufp = c;
209                         obufp[1] = 0;
210                         return;
211                 }
212                 if(c == erase_char || c == '\b') {
213                         if(bufp != obufp) {
214                                 bufp--;
215                                 putstr("\b \b"); /* putsym converts \b */
216                         } else  bell();
217                 } else if(c == '\n') {
218                         *bufp = 0;
219                         return;
220                 } else if(' ' <= c && c < '\177') {
221                                 /* avoid isprint() - some people don't have it
222                                    ' ' is not always a printing char */
223                         *bufp = c;
224                         bufp[1] = 0;
225                         putstr(bufp);
226                         if(bufp-obufp < BUFSZ-1 && bufp-obufp < COLNO)
227                                 bufp++;
228                 } else if(c == kill_char || c == '\177') { /* Robert Viduya */
229                                 /* this test last - @ might be the kill_char */
230                         while(bufp != obufp) {
231                                 bufp--;
232                                 putstr("\b \b");
233                         }
234                 } else
235                         bell();
236         }
237 }
238
239 getret() {
240         cgetret("");
241 }
242
243 cgetret(s)
244 char *s;
245 {
246         putsym('\n');
247         if(flags.standout)
248                 standoutbeg();
249         putstr("Hit ");
250         putstr(flags.cbreak ? "space" : "return");
251         putstr(" to continue: ");
252         if(flags.standout)
253                 standoutend();
254         xwaitforspace(s);
255 }
256
257 char morc;      /* tell the outside world what char he used */
258
259 xwaitforspace(s)
260 char *s;        /* chars allowed besides space or return */
261 {
262 int c;
263
264         morc = 0;
265
266         while((c = readchar()) != '\n') {
267             if(flags.cbreak) {
268                 if(c == ' ') break;
269                 if(s && index(s,c)) {
270                         morc = c;
271                         break;
272                 }
273                 bell();
274             }
275         }
276 }
277
278 char *
279 parse()
280 {
281         static char inputline[COLNO];
282         int foo;
283
284         flags.move = 1;
285         if(!Invisible) curs_on_u(); else home();
286         while((foo = readchar()) >= '0' && foo <= '9')
287                 multi = 10*multi+foo-'0';
288         if(multi) {
289                 multi--;
290                 save_cm = inputline;
291         }
292         inputline[0] = foo;
293         inputline[1] = 0;
294         if(foo == 'f' || foo == 'F'){
295                 inputline[1] = getchar();
296 #ifdef QUEST
297                 if(inputline[1] == foo) inputline[2] = getchar(); else
298 #endif QUEST
299                 inputline[2] = 0;
300         }
301         if(foo == 'm' || foo == 'M'){
302                 inputline[1] = getchar();
303                 inputline[2] = 0;
304         }
305         clrlin();
306         return(inputline);
307 }
308
309 char
310 readchar() {
311         int sym;
312
313         (void) fflush(stdout);
314         if((sym = getchar()) == EOF)
315 #ifdef NR_OF_EOFS
316         { /*
317            * Some SYSV systems seem to return EOFs for various reasons
318            * (?like when one hits break or for interrupted systemcalls?),
319            * and we must see several before we quit.
320            */
321                 int cnt = NR_OF_EOFS;
322                 while (cnt--) {
323                     clearerr(stdin);    /* omit if clearerr is undefined */
324                     if((sym = getchar()) != EOF) goto noteof;
325                 }
326                 end_of_input();
327              noteof:    ;
328         }
329 #else
330                 end_of_input();
331 #endif NR_OF_EOFS
332         if(flags.toplin == 1)
333                 flags.toplin = 2;
334         return((char) sym);
335 }
336
337 end_of_input()
338 {
339         settty("End of input?\n");
340         clearlocks();
341         exit(0);
342 }