sys_bsd.c revision 1.31 1 1.31 heas /* $NetBSD: sys_bsd.c,v 1.31 2004/03/20 23:26:05 heas Exp $ */
2 1.11 thorpej
3 1.1 cgd /*
4 1.5 cgd * Copyright (c) 1988, 1990, 1993
5 1.5 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.29 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.12 christos #include <sys/cdefs.h>
33 1.1 cgd #ifndef lint
34 1.11 thorpej #if 0
35 1.11 thorpej from: static char sccsid[] = "@(#)sys_bsd.c 8.4 (Berkeley) 5/30/95";
36 1.11 thorpej #else
37 1.31 heas __RCSID("$NetBSD: sys_bsd.c,v 1.31 2004/03/20 23:26:05 heas Exp $");
38 1.11 thorpej #endif
39 1.1 cgd #endif /* not lint */
40 1.1 cgd
41 1.1 cgd /*
42 1.1 cgd * The following routines try to encapsulate what is system dependent
43 1.1 cgd * (at least between 4.x and dos) which is used in telnet.c.
44 1.1 cgd */
45 1.1 cgd
46 1.1 cgd
47 1.1 cgd #include <fcntl.h>
48 1.1 cgd #include <sys/types.h>
49 1.1 cgd #include <sys/time.h>
50 1.1 cgd #include <sys/socket.h>
51 1.1 cgd #include <signal.h>
52 1.12 christos #include <stdlib.h>
53 1.12 christos #include <unistd.h>
54 1.1 cgd #include <errno.h>
55 1.21 itojun #include <poll.h>
56 1.1 cgd #include <arpa/telnet.h>
57 1.1 cgd
58 1.1 cgd #include "ring.h"
59 1.1 cgd #include "defines.h"
60 1.1 cgd #include "externs.h"
61 1.1 cgd #include "types.h"
62 1.1 cgd
63 1.1 cgd #define SIG_FUNC_RET void
64 1.1 cgd
65 1.19 wiz SIG_FUNC_RET susp(int);
66 1.19 wiz SIG_FUNC_RET ayt(int);
67 1.5 cgd
68 1.19 wiz SIG_FUNC_RET intr(int);
69 1.19 wiz SIG_FUNC_RET intr2(int);
70 1.19 wiz SIG_FUNC_RET sendwin(int);
71 1.19 wiz SIG_FUNC_RET deadpeer(int);
72 1.12 christos
73 1.12 christos
74 1.1 cgd int
75 1.1 cgd tout, /* Output file descriptor */
76 1.1 cgd tin, /* Input file descriptor */
77 1.1 cgd net;
78 1.1 cgd
79 1.25 itojun struct termios old_tc = { 0 };
80 1.25 itojun extern struct termios new_tc;
81 1.1 cgd
82 1.1 cgd # ifndef TCSANOW
83 1.1 cgd # ifdef TCSETS
84 1.1 cgd # define TCSANOW TCSETS
85 1.1 cgd # define TCSADRAIN TCSETSW
86 1.1 cgd # define tcgetattr(f, t) ioctl(f, TCGETS, (char *)t)
87 1.1 cgd # else
88 1.1 cgd # ifdef TCSETA
89 1.1 cgd # define TCSANOW TCSETA
90 1.1 cgd # define TCSADRAIN TCSETAW
91 1.1 cgd # define tcgetattr(f, t) ioctl(f, TCGETA, (char *)t)
92 1.1 cgd # else
93 1.1 cgd # define TCSANOW TIOCSETA
94 1.1 cgd # define TCSADRAIN TIOCSETAW
95 1.1 cgd # define tcgetattr(f, t) ioctl(f, TIOCGETA, (char *)t)
96 1.1 cgd # endif
97 1.1 cgd # endif
98 1.1 cgd # define tcsetattr(f, a, t) ioctl(f, a, (char *)t)
99 1.1 cgd # define cfgetospeed(ptr) ((ptr)->c_cflag&CBAUD)
100 1.1 cgd # ifdef CIBAUD
101 1.1 cgd # define cfgetispeed(ptr) (((ptr)->c_cflag&CIBAUD) >> IBSHIFT)
102 1.1 cgd # else
103 1.1 cgd # define cfgetispeed(ptr) cfgetospeed(ptr)
104 1.1 cgd # endif
105 1.1 cgd # endif /* TCSANOW */
106 1.1 cgd
107 1.1 cgd
108 1.24 christos void
109 1.24 christos init_sys(void)
110 1.1 cgd {
111 1.1 cgd tout = fileno(stdout);
112 1.1 cgd tin = fileno(stdin);
113 1.1 cgd
114 1.1 cgd errno = 0;
115 1.1 cgd }
116 1.1 cgd
117 1.1 cgd
118 1.24 christos int
119 1.24 christos TerminalWrite(char *buf, int n)
120 1.1 cgd {
121 1.1 cgd return write(tout, buf, n);
122 1.1 cgd }
123 1.1 cgd
124 1.24 christos int
125 1.24 christos TerminalRead(unsigned char *buf, int n)
126 1.1 cgd {
127 1.1 cgd return read(tin, buf, n);
128 1.1 cgd }
129 1.1 cgd
130 1.1 cgd /*
131 1.1 cgd *
132 1.1 cgd */
133 1.1 cgd
134 1.24 christos int
135 1.24 christos TerminalAutoFlush(void)
136 1.1 cgd {
137 1.1 cgd return 1;
138 1.1 cgd }
139 1.1 cgd
140 1.1 cgd #ifdef KLUDGELINEMODE
141 1.1 cgd extern int kludgelinemode;
142 1.1 cgd #endif
143 1.1 cgd /*
144 1.1 cgd * TerminalSpecialChars()
145 1.1 cgd *
146 1.1 cgd * Look at an input character to see if it is a special character
147 1.1 cgd * and decide what to do.
148 1.1 cgd *
149 1.1 cgd * Output:
150 1.1 cgd *
151 1.1 cgd * 0 Don't add this character.
152 1.1 cgd * 1 Do add this character
153 1.1 cgd */
154 1.1 cgd
155 1.24 christos int
156 1.24 christos TerminalSpecialChars(int c)
157 1.1 cgd {
158 1.1 cgd if (c == termIntChar) {
159 1.1 cgd intp();
160 1.1 cgd return 0;
161 1.1 cgd } else if (c == termQuitChar) {
162 1.1 cgd #ifdef KLUDGELINEMODE
163 1.1 cgd if (kludgelinemode)
164 1.1 cgd sendbrk();
165 1.1 cgd else
166 1.1 cgd #endif
167 1.1 cgd sendabort();
168 1.1 cgd return 0;
169 1.1 cgd } else if (c == termEofChar) {
170 1.1 cgd if (my_want_state_is_will(TELOPT_LINEMODE)) {
171 1.1 cgd sendeof();
172 1.1 cgd return 0;
173 1.1 cgd }
174 1.1 cgd return 1;
175 1.1 cgd } else if (c == termSuspChar) {
176 1.1 cgd sendsusp();
177 1.1 cgd return(0);
178 1.1 cgd } else if (c == termFlushChar) {
179 1.1 cgd xmitAO(); /* Transmit Abort Output */
180 1.1 cgd return 0;
181 1.1 cgd } else if (!MODE_LOCAL_CHARS(globalmode)) {
182 1.1 cgd if (c == termKillChar) {
183 1.1 cgd xmitEL();
184 1.1 cgd return 0;
185 1.1 cgd } else if (c == termEraseChar) {
186 1.1 cgd xmitEC(); /* Transmit Erase Character */
187 1.1 cgd return 0;
188 1.1 cgd }
189 1.1 cgd }
190 1.1 cgd return 1;
191 1.1 cgd }
192 1.1 cgd
193 1.1 cgd
194 1.1 cgd /*
195 1.1 cgd * Flush output to the terminal
196 1.1 cgd */
197 1.8 jtk
198 1.24 christos void
199 1.24 christos TerminalFlushOutput(void)
200 1.1 cgd {
201 1.28 jdolecek int com = 0;
202 1.28 jdolecek (void) ioctl(fileno(stdout), TIOCFLUSH, &com);
203 1.1 cgd }
204 1.1 cgd
205 1.24 christos void
206 1.24 christos TerminalSaveState(void)
207 1.1 cgd {
208 1.1 cgd tcgetattr(0, &old_tc);
209 1.1 cgd
210 1.1 cgd new_tc = old_tc;
211 1.1 cgd }
212 1.1 cgd
213 1.24 christos cc_t *
214 1.24 christos tcval(int func)
215 1.1 cgd {
216 1.1 cgd switch(func) {
217 1.1 cgd case SLC_IP: return(&termIntChar);
218 1.1 cgd case SLC_ABORT: return(&termQuitChar);
219 1.1 cgd case SLC_EOF: return(&termEofChar);
220 1.1 cgd case SLC_EC: return(&termEraseChar);
221 1.1 cgd case SLC_EL: return(&termKillChar);
222 1.1 cgd case SLC_XON: return(&termStartChar);
223 1.1 cgd case SLC_XOFF: return(&termStopChar);
224 1.1 cgd case SLC_FORW1: return(&termForw1Char);
225 1.1 cgd case SLC_FORW2: return(&termForw2Char);
226 1.1 cgd case SLC_AO: return(&termFlushChar);
227 1.1 cgd case SLC_SUSP: return(&termSuspChar);
228 1.1 cgd case SLC_EW: return(&termWerasChar);
229 1.1 cgd case SLC_RP: return(&termRprntChar);
230 1.1 cgd case SLC_LNEXT: return(&termLiteralNextChar);
231 1.1 cgd case SLC_AYT: return(&termAytChar);
232 1.1 cgd
233 1.1 cgd case SLC_SYNCH:
234 1.1 cgd case SLC_BRK:
235 1.1 cgd case SLC_EOR:
236 1.1 cgd default:
237 1.1 cgd return((cc_t *)0);
238 1.1 cgd }
239 1.1 cgd }
240 1.1 cgd
241 1.24 christos void
242 1.24 christos TerminalDefaultChars(void)
243 1.1 cgd {
244 1.8 jtk memmove(new_tc.c_cc, old_tc.c_cc, sizeof(old_tc.c_cc));
245 1.1 cgd }
246 1.1 cgd
247 1.1 cgd #ifdef notdef
248 1.1 cgd void
249 1.24 christos TerminalRestoreState(void)
250 1.1 cgd {
251 1.1 cgd }
252 1.1 cgd #endif
253 1.1 cgd
254 1.1 cgd /*
255 1.1 cgd * TerminalNewMode - set up terminal to a specific mode.
256 1.1 cgd * MODE_ECHO: do local terminal echo
257 1.1 cgd * MODE_FLOW: do local flow control
258 1.1 cgd * MODE_TRAPSIG: do local mapping to TELNET IAC sequences
259 1.1 cgd * MODE_EDIT: do local line editing
260 1.1 cgd *
261 1.1 cgd * Command mode:
262 1.1 cgd * MODE_ECHO|MODE_EDIT|MODE_FLOW|MODE_TRAPSIG
263 1.1 cgd * local echo
264 1.1 cgd * local editing
265 1.1 cgd * local xon/xoff
266 1.1 cgd * local signal mapping
267 1.1 cgd *
268 1.1 cgd * Linemode:
269 1.1 cgd * local/no editing
270 1.1 cgd * Both Linemode and Single Character mode:
271 1.1 cgd * local/remote echo
272 1.1 cgd * local/no xon/xoff
273 1.1 cgd * local/no signal mapping
274 1.1 cgd */
275 1.1 cgd
276 1.1 cgd
277 1.24 christos void
278 1.24 christos TerminalNewMode(int f)
279 1.1 cgd {
280 1.1 cgd static int prevmode = 0;
281 1.25 itojun struct termios tmp_tc;
282 1.1 cgd int onoff;
283 1.1 cgd int old;
284 1.1 cgd cc_t esc;
285 1.1 cgd
286 1.1 cgd globalmode = f&~MODE_FORCE;
287 1.1 cgd if (prevmode == f)
288 1.1 cgd return;
289 1.1 cgd
290 1.1 cgd /*
291 1.1 cgd * Write any outstanding data before switching modes
292 1.1 cgd * ttyflush() returns 0 only when there is no more data
293 1.1 cgd * left to write out, it returns -1 if it couldn't do
294 1.1 cgd * anything at all, otherwise it returns 1 + the number
295 1.1 cgd * of characters left to write.
296 1.1 cgd #ifndef USE_TERMIO
297 1.23 christos * We would really like to ask the kernel to wait for the output
298 1.1 cgd * to drain, like we can do with the TCSADRAIN, but we don't have
299 1.1 cgd * that option. The only ioctl that waits for the output to
300 1.1 cgd * drain, TIOCSETP, also flushes the input queue, which is NOT
301 1.1 cgd * what we want (TIOCSETP is like TCSADFLUSH).
302 1.1 cgd #endif
303 1.1 cgd */
304 1.1 cgd old = ttyflush(SYNCHing|flushout);
305 1.1 cgd if (old < 0 || old > 1) {
306 1.1 cgd tcgetattr(tin, &tmp_tc);
307 1.1 cgd do {
308 1.1 cgd /*
309 1.1 cgd * Wait for data to drain, then flush again.
310 1.1 cgd */
311 1.1 cgd tcsetattr(tin, TCSADRAIN, &tmp_tc);
312 1.1 cgd old = ttyflush(SYNCHing|flushout);
313 1.1 cgd } while (old < 0 || old > 1);
314 1.1 cgd }
315 1.1 cgd
316 1.1 cgd old = prevmode;
317 1.1 cgd prevmode = f&~MODE_FORCE;
318 1.1 cgd tmp_tc = new_tc;
319 1.1 cgd
320 1.1 cgd if (f&MODE_ECHO) {
321 1.1 cgd tmp_tc.c_lflag |= ECHO;
322 1.1 cgd tmp_tc.c_oflag |= ONLCR;
323 1.1 cgd if (crlf)
324 1.1 cgd tmp_tc.c_iflag |= ICRNL;
325 1.1 cgd } else {
326 1.1 cgd tmp_tc.c_lflag &= ~ECHO;
327 1.1 cgd tmp_tc.c_oflag &= ~ONLCR;
328 1.1 cgd # ifdef notdef
329 1.1 cgd if (crlf)
330 1.1 cgd tmp_tc.c_iflag &= ~ICRNL;
331 1.1 cgd # endif
332 1.1 cgd }
333 1.1 cgd
334 1.1 cgd if ((f&MODE_FLOW) == 0) {
335 1.5 cgd tmp_tc.c_iflag &= ~(IXOFF|IXON); /* Leave the IXANY bit alone */
336 1.1 cgd } else {
337 1.5 cgd if (restartany < 0) {
338 1.5 cgd tmp_tc.c_iflag |= IXOFF|IXON; /* Leave the IXANY bit alone */
339 1.5 cgd } else if (restartany > 0) {
340 1.5 cgd tmp_tc.c_iflag |= IXOFF|IXON|IXANY;
341 1.5 cgd } else {
342 1.5 cgd tmp_tc.c_iflag |= IXOFF|IXON;
343 1.5 cgd tmp_tc.c_iflag &= ~IXANY;
344 1.5 cgd }
345 1.1 cgd }
346 1.1 cgd
347 1.1 cgd if ((f&MODE_TRAPSIG) == 0) {
348 1.1 cgd tmp_tc.c_lflag &= ~ISIG;
349 1.1 cgd localchars = 0;
350 1.1 cgd } else {
351 1.1 cgd tmp_tc.c_lflag |= ISIG;
352 1.1 cgd localchars = 1;
353 1.1 cgd }
354 1.1 cgd
355 1.1 cgd if (f&MODE_EDIT) {
356 1.1 cgd tmp_tc.c_lflag |= ICANON;
357 1.1 cgd } else {
358 1.1 cgd tmp_tc.c_lflag &= ~ICANON;
359 1.1 cgd tmp_tc.c_iflag &= ~ICRNL;
360 1.1 cgd tmp_tc.c_cc[VMIN] = 1;
361 1.1 cgd tmp_tc.c_cc[VTIME] = 0;
362 1.1 cgd }
363 1.1 cgd
364 1.1 cgd if ((f&(MODE_EDIT|MODE_TRAPSIG)) == 0) {
365 1.7 tls tmp_tc.c_lflag &= ~IEXTEN;
366 1.1 cgd }
367 1.1 cgd
368 1.1 cgd if (f&MODE_SOFT_TAB) {
369 1.1 cgd # ifdef OXTABS
370 1.1 cgd tmp_tc.c_oflag |= OXTABS;
371 1.1 cgd # endif
372 1.1 cgd # ifdef TABDLY
373 1.1 cgd tmp_tc.c_oflag &= ~TABDLY;
374 1.1 cgd tmp_tc.c_oflag |= TAB3;
375 1.1 cgd # endif
376 1.1 cgd } else {
377 1.1 cgd # ifdef OXTABS
378 1.1 cgd tmp_tc.c_oflag &= ~OXTABS;
379 1.1 cgd # endif
380 1.1 cgd # ifdef TABDLY
381 1.1 cgd tmp_tc.c_oflag &= ~TABDLY;
382 1.1 cgd # endif
383 1.1 cgd }
384 1.1 cgd
385 1.1 cgd if (f&MODE_LIT_ECHO) {
386 1.1 cgd # ifdef ECHOCTL
387 1.1 cgd tmp_tc.c_lflag &= ~ECHOCTL;
388 1.1 cgd # endif
389 1.1 cgd } else {
390 1.1 cgd # ifdef ECHOCTL
391 1.1 cgd tmp_tc.c_lflag |= ECHOCTL;
392 1.1 cgd # endif
393 1.1 cgd }
394 1.1 cgd
395 1.1 cgd if (f == -1) {
396 1.1 cgd onoff = 0;
397 1.1 cgd } else {
398 1.1 cgd if (f & MODE_INBIN)
399 1.1 cgd tmp_tc.c_iflag &= ~ISTRIP;
400 1.1 cgd else
401 1.1 cgd tmp_tc.c_iflag |= ISTRIP;
402 1.1 cgd if (f & MODE_OUTBIN) {
403 1.1 cgd tmp_tc.c_cflag &= ~(CSIZE|PARENB);
404 1.1 cgd tmp_tc.c_cflag |= CS8;
405 1.1 cgd tmp_tc.c_oflag &= ~OPOST;
406 1.1 cgd } else {
407 1.1 cgd tmp_tc.c_cflag &= ~(CSIZE|PARENB);
408 1.1 cgd tmp_tc.c_cflag |= old_tc.c_cflag & (CSIZE|PARENB);
409 1.1 cgd tmp_tc.c_oflag |= OPOST;
410 1.1 cgd }
411 1.1 cgd onoff = 1;
412 1.1 cgd }
413 1.1 cgd
414 1.1 cgd if (f != -1) {
415 1.1 cgd (void) signal(SIGTSTP, susp);
416 1.1 cgd (void) signal(SIGINFO, ayt);
417 1.1 cgd #if defined(USE_TERMIO) && defined(NOKERNINFO)
418 1.1 cgd tmp_tc.c_lflag |= NOKERNINFO;
419 1.1 cgd #endif
420 1.1 cgd /*
421 1.1 cgd * We don't want to process ^Y here. It's just another
422 1.1 cgd * character that we'll pass on to the back end. It has
423 1.1 cgd * to process it because it will be processed when the
424 1.1 cgd * user attempts to read it, not when we send it.
425 1.1 cgd */
426 1.1 cgd # ifdef VDSUSP
427 1.1 cgd tmp_tc.c_cc[VDSUSP] = (cc_t)(_POSIX_VDISABLE);
428 1.1 cgd # endif
429 1.1 cgd /*
430 1.1 cgd * If the VEOL character is already set, then use VEOL2,
431 1.1 cgd * otherwise use VEOL.
432 1.1 cgd */
433 1.1 cgd esc = (rlogin != _POSIX_VDISABLE) ? rlogin : escape;
434 1.1 cgd if ((tmp_tc.c_cc[VEOL] != esc)
435 1.1 cgd # ifdef VEOL2
436 1.1 cgd && (tmp_tc.c_cc[VEOL2] != esc)
437 1.1 cgd # endif
438 1.1 cgd ) {
439 1.1 cgd if (tmp_tc.c_cc[VEOL] == (cc_t)(_POSIX_VDISABLE))
440 1.1 cgd tmp_tc.c_cc[VEOL] = esc;
441 1.1 cgd # ifdef VEOL2
442 1.1 cgd else if (tmp_tc.c_cc[VEOL2] == (cc_t)(_POSIX_VDISABLE))
443 1.1 cgd tmp_tc.c_cc[VEOL2] = esc;
444 1.1 cgd # endif
445 1.1 cgd }
446 1.1 cgd } else {
447 1.19 wiz (void) signal(SIGINFO, (void (*)(int)) ayt_status);
448 1.1 cgd (void) signal(SIGTSTP, SIG_DFL);
449 1.1 cgd (void) sigsetmask(sigblock(0) & ~(1<<(SIGTSTP-1)));
450 1.1 cgd tmp_tc = old_tc;
451 1.1 cgd }
452 1.1 cgd if (tcsetattr(tin, TCSADRAIN, &tmp_tc) < 0)
453 1.1 cgd tcsetattr(tin, TCSANOW, &tmp_tc);
454 1.1 cgd
455 1.1 cgd ioctl(tin, FIONBIO, (char *)&onoff);
456 1.1 cgd ioctl(tout, FIONBIO, (char *)&onoff);
457 1.1 cgd #if defined(TN3270)
458 1.1 cgd if (noasynchtty == 0) {
459 1.1 cgd ioctl(tin, FIOASYNC, (char *)&onoff);
460 1.1 cgd }
461 1.1 cgd #endif /* defined(TN3270) */
462 1.1 cgd
463 1.1 cgd }
464 1.1 cgd
465 1.24 christos void
466 1.24 christos TerminalSpeeds(long *ispeed, long *ospeed)
467 1.1 cgd {
468 1.19 wiz long in, out;
469 1.1 cgd
470 1.1 cgd out = cfgetospeed(&old_tc);
471 1.1 cgd in = cfgetispeed(&old_tc);
472 1.1 cgd if (in == 0)
473 1.1 cgd in = out;
474 1.1 cgd
475 1.8 jtk *ispeed = in;
476 1.8 jtk *ospeed = out;
477 1.1 cgd }
478 1.1 cgd
479 1.24 christos int
480 1.24 christos TerminalWindowSize(long *rows, long *cols)
481 1.1 cgd {
482 1.1 cgd struct winsize ws;
483 1.1 cgd
484 1.1 cgd if (ioctl(fileno(stdin), TIOCGWINSZ, (char *)&ws) >= 0) {
485 1.1 cgd *rows = ws.ws_row;
486 1.1 cgd *cols = ws.ws_col;
487 1.1 cgd return 1;
488 1.1 cgd }
489 1.1 cgd return 0;
490 1.1 cgd }
491 1.1 cgd
492 1.24 christos int
493 1.24 christos NetClose(int fd)
494 1.1 cgd {
495 1.1 cgd return close(fd);
496 1.1 cgd }
497 1.1 cgd
498 1.1 cgd
499 1.24 christos void
500 1.24 christos NetNonblockingIO(int fd, int onoff)
501 1.1 cgd {
502 1.1 cgd ioctl(fd, FIONBIO, (char *)&onoff);
503 1.1 cgd }
504 1.1 cgd
505 1.25 itojun #ifdef TN3270
506 1.24 christos void
507 1.24 christos NetSigIO(int fd, int onoff)
508 1.1 cgd {
509 1.1 cgd ioctl(fd, FIOASYNC, (char *)&onoff); /* hear about input */
510 1.1 cgd }
511 1.1 cgd
512 1.24 christos void
513 1.24 christos NetSetPgrp(int fd)
514 1.1 cgd {
515 1.1 cgd int myPid;
516 1.1 cgd
517 1.1 cgd myPid = getpid();
518 1.1 cgd fcntl(fd, F_SETOWN, myPid);
519 1.1 cgd }
520 1.1 cgd #endif /*defined(TN3270)*/
521 1.1 cgd
522 1.1 cgd /*
524 1.1 cgd * Various signal handling routines.
525 1.1 cgd */
526 1.24 christos
527 1.24 christos /* ARGSUSED */
528 1.24 christos SIG_FUNC_RET
529 1.1 cgd intr(int sig)
530 1.1 cgd {
531 1.1 cgd if (localchars) {
532 1.1 cgd intp();
533 1.1 cgd return;
534 1.1 cgd }
535 1.1 cgd setcommandmode();
536 1.1 cgd longjmp(toplevel, -1);
537 1.1 cgd }
538 1.24 christos
539 1.24 christos /* ARGSUSED */
540 1.24 christos SIG_FUNC_RET
541 1.1 cgd intr2(int sig)
542 1.1 cgd {
543 1.1 cgd if (localchars) {
544 1.1 cgd #ifdef KLUDGELINEMODE
545 1.1 cgd if (kludgelinemode)
546 1.1 cgd sendbrk();
547 1.1 cgd else
548 1.1 cgd #endif
549 1.1 cgd sendabort();
550 1.1 cgd return;
551 1.1 cgd }
552 1.1 cgd }
553 1.24 christos
554 1.24 christos /* ARGSUSED */
555 1.24 christos SIG_FUNC_RET
556 1.1 cgd susp(int sig)
557 1.1 cgd {
558 1.1 cgd if ((rlogin != _POSIX_VDISABLE) && rlogin_susp())
559 1.1 cgd return;
560 1.1 cgd if (localchars)
561 1.1 cgd sendsusp();
562 1.1 cgd }
563 1.24 christos
564 1.24 christos /* ARGSUSED */
565 1.24 christos SIG_FUNC_RET
566 1.1 cgd sendwin(int sig)
567 1.1 cgd {
568 1.1 cgd if (connected) {
569 1.1 cgd sendnaws();
570 1.1 cgd }
571 1.1 cgd }
572 1.24 christos
573 1.24 christos /* ARGSUSED */
574 1.24 christos SIG_FUNC_RET
575 1.1 cgd ayt(int sig)
576 1.1 cgd {
577 1.1 cgd if (connected)
578 1.1 cgd sendayt();
579 1.1 cgd else
580 1.1 cgd ayt_status();
581 1.1 cgd }
582 1.1 cgd
583 1.24 christos
584 1.24 christos void
586 1.1 cgd sys_telnet_init(void)
587 1.1 cgd {
588 1.31 heas (void) signal(SIGINT, intr);
589 1.1 cgd (void) signal(SIGQUIT, intr2);
590 1.1 cgd (void) signal(SIGPIPE, SIG_IGN);
591 1.1 cgd (void) signal(SIGWINCH, sendwin);
592 1.1 cgd (void) signal(SIGTSTP, susp);
593 1.1 cgd (void) signal(SIGINFO, ayt);
594 1.1 cgd
595 1.1 cgd setconnmode(0);
596 1.1 cgd
597 1.25 itojun NetNonblockingIO(net, 1);
598 1.1 cgd
599 1.1 cgd #ifdef TN3270
600 1.1 cgd if (noasynchnet == 0) { /* DBX can't handle! */
601 1.1 cgd NetSigIO(net, 1);
602 1.1 cgd NetSetPgrp(net);
603 1.1 cgd }
604 1.1 cgd #endif /* defined(TN3270) */
605 1.1 cgd
606 1.1 cgd if (SetSockOpt(net, SOL_SOCKET, SO_OOBINLINE, 1) == -1) {
607 1.1 cgd perror("SetSockOpt");
608 1.1 cgd }
609 1.1 cgd }
610 1.1 cgd
611 1.1 cgd /*
612 1.1 cgd * Process rings -
613 1.1 cgd *
614 1.1 cgd * This routine tries to fill up/empty our various rings.
615 1.1 cgd *
616 1.1 cgd * The parameter specifies whether this is a poll operation,
617 1.23 christos * or a block-until-something-happens operation.
618 1.30 wiz *
619 1.1 cgd * The return value is 1 if something happened, 0 if not, < 0 if an
620 1.1 cgd * error occurred.
621 1.24 christos */
622 1.24 christos
623 1.24 christos int
624 1.1 cgd process_rings(int netin, int netout, int netex, int ttyin, int ttyout,
625 1.20 mycroft int dopoll) /* If 0, then block until something to do */
626 1.19 wiz {
627 1.1 cgd struct pollfd set[3];
628 1.1 cgd int c;
629 1.1 cgd /* One wants to be a bit careful about setting returnValue
630 1.1 cgd * to one, since a one implies we did some useful work,
631 1.1 cgd * and therefore probably won't be called to block next
632 1.1 cgd * time (TN3270 mode only).
633 1.14 mcr */
634 1.20 mycroft int returnValue = 0;
635 1.20 mycroft
636 1.20 mycroft set[0].fd = net;
637 1.20 mycroft set[0].events = (netout ? POLLOUT : 0) | (netin ? POLLIN : 0) |
638 1.20 mycroft (netex ? POLLPRI : 0);
639 1.20 mycroft set[1].fd = tout;
640 1.20 mycroft set[1].events = ttyout ? POLLOUT : 0;
641 1.1 cgd set[2].fd = tin;
642 1.20 mycroft set[2].events = ttyin ? POLLIN : 0;
643 1.1 cgd
644 1.1 cgd if ((c = poll(set, 3, dopoll ? 0 : INFTIM)) < 0) {
645 1.1 cgd if (c == -1) {
646 1.1 cgd /*
647 1.1 cgd * we can get EINTR if we are in line mode,
648 1.1 cgd * and the user does an escape (TSTP), or
649 1.1 cgd * some other signal generator.
650 1.1 cgd */
651 1.1 cgd if (errno == EINTR) {
652 1.25 itojun return 0;
653 1.1 cgd }
654 1.1 cgd #ifdef TN3270
655 1.1 cgd /*
656 1.1 cgd * we can get EBADF if we were in transparent
657 1.20 mycroft * mode, and the transcom process died.
658 1.1 cgd */
659 1.25 itojun if (errno == EBADF)
660 1.1 cgd return 0;
661 1.23 christos #endif /* defined(TN3270) */
662 1.1 cgd /* I don't like this, does it ever happen? */
663 1.1 cgd printf("sleep(5) from telnet, after poll\r\n");
664 1.1 cgd sleep(5);
665 1.1 cgd }
666 1.1 cgd return 0;
667 1.1 cgd }
668 1.1 cgd
669 1.1 cgd /*
670 1.20 mycroft * Any urgent data?
671 1.1 cgd */
672 1.1 cgd if (set[0].revents & POLLPRI) {
673 1.1 cgd SYNCHing = 1;
674 1.1 cgd (void) ttyflush(1); /* flush already enqueued data */
675 1.1 cgd }
676 1.1 cgd
677 1.1 cgd /*
678 1.20 mycroft * Something to read from the network...
679 1.1 cgd */
680 1.1 cgd if (set[0].revents & POLLIN) {
681 1.1 cgd int canread;
682 1.5 cgd
683 1.1 cgd canread = ring_empty_consecutive(&netiring);
684 1.1 cgd c = recv(net, (char *)netiring.supply, canread, 0);
685 1.1 cgd if (c < 0 && errno == EWOULDBLOCK) {
686 1.1 cgd c = 0;
687 1.1 cgd } else if (c <= 0) {
688 1.1 cgd return -1;
689 1.1 cgd }
690 1.1 cgd if (netdata) {
691 1.1 cgd Dump('<', netiring.supply, c);
692 1.1 cgd }
693 1.1 cgd if (c)
694 1.1 cgd ring_supplied(&netiring, c);
695 1.1 cgd returnValue = 1;
696 1.1 cgd }
697 1.1 cgd
698 1.1 cgd /*
699 1.20 mycroft * Something to read from the tty...
700 1.1 cgd */
701 1.8 jtk if (set[2].revents & POLLIN) {
702 1.8 jtk c = TerminalRead(ttyiring.supply, ring_empty_consecutive(&ttyiring));
703 1.1 cgd if (c < 0 && errno == EIO)
704 1.1 cgd c = 0;
705 1.1 cgd if (c < 0 && errno == EWOULDBLOCK) {
706 1.9 jtk c = 0;
707 1.9 jtk } else {
708 1.8 jtk if (c < 0) {
709 1.9 jtk return -1;
710 1.9 jtk }
711 1.9 jtk if (c == 0) {
712 1.9 jtk /* must be an EOF... */
713 1.9 jtk if (MODE_LOCAL_CHARS(globalmode) && isatty(tin)) {
714 1.9 jtk *ttyiring.supply = termEofChar;
715 1.9 jtk c = 1;
716 1.9 jtk } else {
717 1.9 jtk clienteof = 1;
718 1.9 jtk shutdown(net, 1);
719 1.1 cgd return 0;
720 1.1 cgd }
721 1.1 cgd }
722 1.1 cgd if (termdata) {
723 1.1 cgd Dump('<', ttyiring.supply, c);
724 1.1 cgd }
725 1.1 cgd ring_supplied(&ttyiring, c);
726 1.1 cgd }
727 1.1 cgd returnValue = 1; /* did something useful */
728 1.20 mycroft }
729 1.1 cgd
730 1.1 cgd if (set[0].revents & POLLOUT) {
731 1.31 heas returnValue |= netflush();
732 1.31 heas }
733 1.31 heas
734 1.31 heas if (set[1].revents & (POLLHUP|POLLNVAL))
735 1.20 mycroft return(-1);
736 1.1 cgd
737 1.1 cgd if (set[1].revents & POLLOUT) {
738 1.1 cgd returnValue |= (ttyflush(SYNCHing|flushout) > 0);
739 1.1 cgd }
740 1.1 cgd
741 return returnValue;
742 }
743