xref: /netbsd-src/usr.bin/netstat/if.c (revision 481fca6e59249d8ffcf24fef7cfbe7b131bfb080)
1 /*	$NetBSD: if.c,v 1.44 2000/07/06 12:40:19 itojun Exp $	*/
2 
3 /*
4  * Copyright (c) 1983, 1988, 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 
36 #include <sys/cdefs.h>
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "from: @(#)if.c	8.2 (Berkeley) 2/21/94";
40 #else
41 __RCSID("$NetBSD: if.c,v 1.44 2000/07/06 12:40:19 itojun Exp $");
42 #endif
43 #endif /* not lint */
44 
45 #include <sys/types.h>
46 #include <sys/protosw.h>
47 #include <sys/socket.h>
48 
49 #include <net/if.h>
50 #include <net/if_dl.h>
51 #include <net/if_types.h>
52 #include <netinet/in.h>
53 #include <netinet/in_var.h>
54 #include <netns/ns.h>
55 #include <netns/ns_if.h>
56 #include <netiso/iso.h>
57 #include <netiso/iso_var.h>
58 #include <arpa/inet.h>
59 
60 #include <signal.h>
61 #include <stdio.h>
62 #include <stdlib.h>
63 #include <string.h>
64 #include <unistd.h>
65 #include <netdb.h>
66 
67 #include "netstat.h"
68 
69 #define	YES	1
70 #define	NO	0
71 
72 static void sidewaysintpr __P((u_int, u_long));
73 static void catchalarm __P((int));
74 
75 /*
76  * Print a description of the network interfaces.
77  * NOTE: ifnetaddr is the location of the kernel global "ifnet",
78  * which is a TAILQ_HEAD.
79  */
80 void
81 intpr(interval, ifnetaddr, pfunc)
82 	int interval;
83 	u_long ifnetaddr;
84 	void (*pfunc)(char *);
85 {
86 	struct ifnet ifnet;
87 	union {
88 		struct ifaddr ifa;
89 		struct in_ifaddr in;
90 #ifdef INET6
91 		struct in6_ifaddr in6;
92 #endif /* INET6 */
93 		struct ns_ifaddr ns;
94 		struct iso_ifaddr iso;
95 	} ifaddr;
96 	u_long ifaddraddr;
97 	struct sockaddr *sa;
98 	struct ifnet_head ifhead;	/* TAILQ_HEAD */
99 	char name[IFNAMSIZ + 1];	/* + 1 for `*' */
100 #ifdef INET6
101 	char hbuf[NI_MAXHOST];		/* for getnameinfo() */
102 #ifdef KAME_SCOPEID
103 	const int niflag = NI_NUMERICHOST | NI_WITHSCOPEID;
104 #else
105 	const int niflag = NI_NUMERICHOST;
106 #endif
107 #endif
108 
109 	if (ifnetaddr == 0) {
110 		printf("ifnet: symbol not defined\n");
111 		return;
112 	}
113 	if (interval) {
114 		sidewaysintpr((unsigned)interval, ifnetaddr);
115 		return;
116 	}
117 
118 	/*
119 	 * Find the pointer to the first ifnet structure.  Replace
120 	 * the pointer to the TAILQ_HEAD with the actual pointer
121 	 * to the first list element.
122 	 */
123 	if (kread(ifnetaddr, (char *)&ifhead, sizeof ifhead))
124 		return;
125 	ifnetaddr = (u_long)ifhead.tqh_first;
126 
127 	if (!sflag & !pflag) {
128 		if (bflag) {
129 			printf("%-5.5s %-5.5s %-13.13s %-17.17s "
130 			       "%10.10s %10.10s",
131 			       "Name", "Mtu", "Network", "Address",
132 			       "Ibytes", "Obytes");
133 		} else {
134 			printf("%-5.5s %-5.5s %-13.13s %-17.17s "
135 			       "%8.8s %5.5s %8.8s %5.5s %5.5s",
136 			       "Name", "Mtu", "Network", "Address", "Ipkts", "Ierrs",
137 			       "Opkts", "Oerrs", "Colls");
138 		}
139 		if (tflag)
140 			printf(" %4.4s", "Time");
141 		if (dflag)
142 			printf(" %5.5s", "Drops");
143 		putchar('\n');
144 	}
145 	ifaddraddr = 0;
146 	while (ifnetaddr || ifaddraddr) {
147 		struct sockaddr_in *sin;
148 #ifdef INET6
149 		struct sockaddr_in6 *sin6;
150 #endif /* INET6 */
151 		char *cp;
152 		int n, m;
153 
154 		if (ifaddraddr == 0) {
155 			if (kread(ifnetaddr, (char *)&ifnet, sizeof ifnet))
156 				return;
157 			memmove(name, ifnet.if_xname, IFNAMSIZ);
158 			name[IFNAMSIZ - 1] = '\0';	/* sanity */
159 			ifnetaddr = (u_long)ifnet.if_list.tqe_next;
160 			if (interface != 0 && strcmp(name, interface) != 0)
161 				continue;
162 			cp = strchr(name, '\0');
163 
164 			if (pfunc) {
165 				(*pfunc)(name);
166 				continue;
167 			}
168 
169 			if ((ifnet.if_flags & IFF_UP) == 0)
170 				*cp++ = '*';
171 			*cp = '\0';
172 			ifaddraddr = (u_long)ifnet.if_addrlist.tqh_first;
173 		}
174 		if (vflag)
175 			n = strlen(name) < 5 ? 5 : strlen(name);
176 		else
177 			n = 5;
178 		printf("%-*.*s %-5llu ", n, n, name,
179 		    (unsigned long long)ifnet.if_mtu);
180 		if (ifaddraddr == 0) {
181 			printf("%-13.13s ", "none");
182 			printf("%-17.17s ", "none");
183 		} else {
184 			char hexsep = '.';		/* for hexprint */
185 			const char *hexfmt = "%x%c";	/* for hexprint */
186 			if (kread(ifaddraddr, (char *)&ifaddr, sizeof ifaddr)) {
187 				ifaddraddr = 0;
188 				continue;
189 			}
190 #define CP(x) ((char *)(x))
191 			cp = (CP(ifaddr.ifa.ifa_addr) - CP(ifaddraddr)) +
192 				CP(&ifaddr); sa = (struct sockaddr *)cp;
193 			switch (sa->sa_family) {
194 			case AF_UNSPEC:
195 				printf("%-13.13s ", "none");
196 				printf("%-17.17s ", "none");
197 				break;
198 			case AF_INET:
199 				sin = (struct sockaddr_in *)sa;
200 #ifdef notdef
201 				/*
202 				 * can't use inet_makeaddr because kernel
203 				 * keeps nets unshifted.
204 				 */
205 				in = inet_makeaddr(ifaddr.in.ia_subnet,
206 					INADDR_ANY);
207 				cp = netname(in.s_addr,
208 					ifaddr.in.ia_subnetmask);
209 #else
210 				cp = netname(ifaddr.in.ia_subnet,
211 					ifaddr.in.ia_subnetmask);
212 #endif
213 				if (vflag)
214 					n = strlen(cp) < 13 ? 13 : strlen(cp);
215 				else
216 					n = 13;
217 				printf("%-*.*s ", n, n, cp);
218 				cp = routename(sin->sin_addr.s_addr);
219 				if (vflag)
220 					n = strlen(cp) < 17 ? 17 : strlen(cp);
221 				else
222 					n = 17;
223 				printf("%-*.*s ", n, n, cp);
224 				if (aflag) {
225 					u_long multiaddr;
226 					struct in_multi inm;
227 
228 					multiaddr = (u_long)
229 					    ifaddr.in.ia_multiaddrs.lh_first;
230 					while (multiaddr != 0) {
231 						kread(multiaddr, (char *)&inm,
232 						   sizeof inm);
233 						printf("\n%25s %-17.17s ", "",
234 						   routename(
235 						      inm.inm_addr.s_addr));
236 						multiaddr =
237 						   (u_long)inm.inm_list.le_next;
238 					}
239 				}
240 				break;
241 #ifdef INET6
242 			case AF_INET6:
243 				sin6 = (struct sockaddr_in6 *)sa;
244 #ifdef KAME_SCOPEID
245 				if (IN6_IS_ADDR_LINKLOCAL(&sin6->sin6_addr)) {
246 					sin6->sin6_scope_id =
247 						ntohs(*(u_int16_t *)
248 						  &sin6->sin6_addr.s6_addr[2]);
249 					/* too little width */
250 					if (!vflag)
251 						sin6->sin6_scope_id = 0;
252 					sin6->sin6_addr.s6_addr[2] = 0;
253 					sin6->sin6_addr.s6_addr[3] = 0;
254 				}
255 #endif
256 				cp = netname6(&ifaddr.in6.ia_addr,
257 					&ifaddr.in6.ia_prefixmask.sin6_addr);
258 				if (vflag)
259 					n = strlen(cp) < 13 ? 13 : strlen(cp);
260 				else
261 					n = 13;
262 				printf("%-*.*s ", n, n, cp);
263 				if (getnameinfo((struct sockaddr *)sin6,
264 						sin6->sin6_len,
265 						hbuf, sizeof(hbuf), NULL, 0,
266 						niflag) != 0) {
267 					cp = "?";
268 				} else
269 					cp = hbuf;
270 				if (vflag)
271 					n = strlen(cp) < 17 ? 17 : strlen(cp);
272 				else
273 					n = 17;
274 				printf("%-*.*s ", n, n, cp);
275 				if (aflag) {
276 					u_long multiaddr;
277 					struct in6_multi inm;
278 					struct sockaddr_in6 sin6;
279 
280 					multiaddr = (u_long)
281 					    ifaddr.in6.ia6_multiaddrs.lh_first;
282 					while (multiaddr != 0) {
283 						kread(multiaddr, (char *)&inm,
284 						   sizeof inm);
285 						memset(&sin6, 0, sizeof(sin6));
286 						sin6.sin6_len = sizeof(struct sockaddr_in6);
287 						sin6.sin6_family = AF_INET6;
288 						sin6.sin6_addr = inm.in6m_addr;
289 						sin6.sin6_scope_id =
290 						    ntohs(*(u_int16_t *)
291 							&sin6.sin6_addr.s6_addr[2]);
292 						sin6.sin6_addr.s6_addr[2] = 0;
293 						sin6.sin6_addr.s6_addr[3] = 0;
294 						if (getnameinfo((struct sockaddr *)&sin6,
295 						    sin6.sin6_len, hbuf,
296 						    sizeof(hbuf), NULL, 0,
297 						    niflag) != 0) {
298 							strcpy(hbuf, "??");
299 						}
300 						cp = hbuf;
301 						if (vflag)
302 						    n = strlen(cp) < 17
303 							? 17 : strlen(cp);
304 						else
305 						    n = 17;
306 						printf("\n%25s %-*.*s ", "",
307 						    n, n, cp);
308 						multiaddr =
309 						   (u_long)inm.in6m_entry.le_next;
310 					}
311 				}
312 				break;
313 #endif /*INET6*/
314 #ifndef SMALL
315 			case AF_APPLETALK:
316 				printf("atalk:%-7.7s ",
317 				       atalk_print(sa,0x10));
318 				printf("%-17.17s ", atalk_print(sa,0x0b));
319 				break;
320 			case AF_NS:
321 				{
322 				struct sockaddr_ns *sns =
323 					(struct sockaddr_ns *)sa;
324 				u_long net;
325 				char netnum[8];
326 
327 				*(union ns_net *)&net = sns->sns_addr.x_net;
328 				(void)sprintf(netnum, "%xH",
329 				    (u_int32_t)ntohl(net));
330 				upHex(netnum);
331 				printf("ns:%-10s ", netnum);
332 				printf("%-17.17s ",
333 				    ns_phost((struct sockaddr *)sns));
334 				}
335 				break;
336 #endif
337 			case AF_LINK:
338 				{
339 				struct sockaddr_dl *sdl =
340 					(struct sockaddr_dl *)sa;
341 				    cp = (char *)LLADDR(sdl);
342 				    if (sdl->sdl_type == IFT_FDDI
343 					|| sdl->sdl_type == IFT_ETHER)
344 					    hexsep = ':', hexfmt = "%02x%c";
345 				    n = sdl->sdl_alen;
346 				}
347 				m = printf("%-13.13s ", "<Link>");
348 				goto hexprint;
349 			default:
350 				m = printf("(%d)", sa->sa_family);
351 				for (cp = sa->sa_len + (char *)sa;
352 					--cp > sa->sa_data && (*cp == 0);) {}
353 				n = cp - sa->sa_data + 1;
354 				cp = sa->sa_data;
355 			hexprint:
356 				while (--n >= 0)
357 					m += printf(hexfmt, *cp++ & 0xff,
358 						    n > 0 ? hexsep : ' ');
359 				m = 32 - m;
360 				while (m-- > 0)
361 					putchar(' ');
362 				break;
363 			}
364 			ifaddraddr = (u_long)ifaddr.ifa.ifa_list.tqe_next;
365 		}
366 		if (bflag) {
367 			printf("%10llu %10llu",
368 				(unsigned long long)ifnet.if_ibytes,
369 				(unsigned long long)ifnet.if_obytes);
370 		} else {
371 			printf("%8llu %5llu %8llu %5llu %5llu",
372 				(unsigned long long)ifnet.if_ipackets,
373 				(unsigned long long)ifnet.if_ierrors,
374 				(unsigned long long)ifnet.if_opackets,
375 				(unsigned long long)ifnet.if_oerrors,
376 				(unsigned long long)ifnet.if_collisions);
377 		}
378 		if (tflag)
379 			printf(" %4d", ifnet.if_timer);
380 		if (dflag)
381 			printf(" %5d", ifnet.if_snd.ifq_drops);
382 		putchar('\n');
383 	}
384 }
385 
386 #define	MAXIF	100
387 struct	iftot {
388 	char ift_name[IFNAMSIZ];	/* interface name */
389 	u_quad_t ift_ip;		/* input packets */
390 	u_quad_t ift_ib;		/* input bytes */
391 	u_quad_t ift_ie;		/* input errors */
392 	u_quad_t ift_op;		/* output packets */
393 	u_quad_t ift_ob;		/* output bytes */
394 	u_quad_t ift_oe;		/* output errors */
395 	u_quad_t ift_co;		/* collisions */
396 	int ift_dr;			/* drops */
397 } iftot[MAXIF];
398 
399 u_char	signalled;			/* set if alarm goes off "early" */
400 
401 /*
402  * Print a running summary of interface statistics.
403  * Repeat display every interval seconds, showing statistics
404  * collected over that interval.  Assumes that interval is non-zero.
405  * First line printed at top of screen is always cumulative.
406  */
407 static void
408 sidewaysintpr(interval, off)
409 	unsigned interval;
410 	u_long off;
411 {
412 	struct ifnet ifnet;
413 	u_long firstifnet;
414 	struct iftot *ip, *total;
415 	int line;
416 	struct iftot *lastif, *sum, *interesting;
417 	struct ifnet_head ifhead;	/* TAILQ_HEAD */
418 	int oldmask;
419 
420 	/*
421 	 * Find the pointer to the first ifnet structure.  Replace
422 	 * the pointer to the TAILQ_HEAD with the actual pointer
423 	 * to the first list element.
424 	 */
425 	if (kread(off, (char *)&ifhead, sizeof ifhead))
426 		return;
427 	firstifnet = (u_long)ifhead.tqh_first;
428 
429 	lastif = iftot;
430 	sum = iftot + MAXIF - 1;
431 	total = sum - 1;
432 	interesting = (interface == NULL) ? iftot : NULL;
433 	for (off = firstifnet, ip = iftot; off;) {
434 		if (kread(off, (char *)&ifnet, sizeof ifnet))
435 			break;
436 		memset(ip->ift_name, 0, sizeof(ip->ift_name));
437 		snprintf(ip->ift_name, IFNAMSIZ, "%s", ifnet.if_xname);
438 		if (interface && strcmp(ifnet.if_xname, interface) == 0)
439 			interesting = ip;
440 		ip++;
441 		if (ip >= iftot + MAXIF - 2)
442 			break;
443 		off = (u_long)ifnet.if_list.tqe_next;
444 	}
445 	if (interesting == NULL) {
446 		fprintf(stderr, "%s: %s: unknown interface\n",
447 		    __progname, interface);
448 		exit(1);
449 	}
450 	lastif = ip;
451 
452 	(void)signal(SIGALRM, catchalarm);
453 	signalled = NO;
454 	(void)alarm(interval);
455 banner:
456 	if (bflag)
457 		printf("%7.7s in %8.8s %6.6s out %5.5s",
458 		    interesting->ift_name, " ",
459 		    interesting->ift_name, " ");
460 	else
461 		printf("%5.5s in %5.5s%5.5s out %5.5s %5.5s",
462 		    interesting->ift_name, " ",
463 		    interesting->ift_name, " ", " ");
464 	if (dflag)
465 		printf(" %5.5s", " ");
466 	if (lastif - iftot > 0) {
467 		if (bflag)
468 			printf("  %7.7s in %8.8s %6.6s out %5.5s",
469 			    "total", " ", "total", " ");
470 		else
471 			printf("  %5.5s in %5.5s%5.5s out %5.5s %5.5s",
472 			    "total", " ", "total", " ", " ");
473 		if (dflag)
474 			printf(" %5.5s", " ");
475 	}
476 	for (ip = iftot; ip < iftot + MAXIF; ip++) {
477 		ip->ift_ip = 0;
478 		ip->ift_ib = 0;
479 		ip->ift_ie = 0;
480 		ip->ift_op = 0;
481 		ip->ift_ob = 0;
482 		ip->ift_oe = 0;
483 		ip->ift_co = 0;
484 		ip->ift_dr = 0;
485 	}
486 	putchar('\n');
487 	if (bflag)
488 		printf("%10.10s %8.8s %10.10s %5.5s",
489 		    "bytes", " ", "bytes", " ");
490 	else
491 		printf("%8.8s %5.5s %8.8s %5.5s %5.5s",
492 		    "packets", "errs", "packets", "errs", "colls");
493 	if (dflag)
494 		printf(" %5.5s", "drops");
495 	if (lastif - iftot > 0) {
496 		if (bflag)
497 			printf("  %10.10s %8.8s %10.10s %5.5s",
498 			    "bytes", " ", "bytes", " ");
499 		else
500 			printf("  %8.8s %5.5s %8.8s %5.5s %5.5s",
501 			    "packets", "errs", "packets", "errs", "colls");
502 		if (dflag)
503 			printf(" %5.5s", "drops");
504 	}
505 	putchar('\n');
506 	fflush(stdout);
507 	line = 0;
508 loop:
509 	sum->ift_ip = 0;
510 	sum->ift_ib = 0;
511 	sum->ift_ie = 0;
512 	sum->ift_op = 0;
513 	sum->ift_ob = 0;
514 	sum->ift_oe = 0;
515 	sum->ift_co = 0;
516 	sum->ift_dr = 0;
517 	for (off = firstifnet, ip = iftot; off && ip < lastif; ip++) {
518 		if (kread(off, (char *)&ifnet, sizeof ifnet)) {
519 			off = 0;
520 			continue;
521 		}
522 		if (ip == interesting) {
523 			if (bflag) {
524 				printf("%10llu %8.8s %10llu %5.5s",
525 				    (unsigned long long)(ifnet.if_ibytes -
526 					ip->ift_ib), " ",
527 				    (unsigned long long)(ifnet.if_obytes -
528 					ip->ift_ob), " ");
529 			} else {
530 				printf("%8llu %5llu %8llu %5llu %5llu",
531 				    (unsigned long long)
532 					(ifnet.if_ipackets - ip->ift_ip),
533 				    (unsigned long long)
534 					(ifnet.if_ierrors - ip->ift_ie),
535 				    (unsigned long long)
536 					(ifnet.if_opackets - ip->ift_op),
537 				    (unsigned long long)
538 					(ifnet.if_oerrors - ip->ift_oe),
539 				    (unsigned long long)
540 					(ifnet.if_collisions - ip->ift_co));
541 			}
542 			if (dflag)
543 				printf(" %5llu",
544 				    (unsigned long long)
545 					(ifnet.if_snd.ifq_drops - ip->ift_dr));
546 		}
547 		ip->ift_ip = ifnet.if_ipackets;
548 		ip->ift_ib = ifnet.if_ibytes;
549 		ip->ift_ie = ifnet.if_ierrors;
550 		ip->ift_op = ifnet.if_opackets;
551 		ip->ift_ob = ifnet.if_obytes;
552 		ip->ift_oe = ifnet.if_oerrors;
553 		ip->ift_co = ifnet.if_collisions;
554 		ip->ift_dr = ifnet.if_snd.ifq_drops;
555 		sum->ift_ip += ip->ift_ip;
556 		sum->ift_ib += ip->ift_ib;
557 		sum->ift_ie += ip->ift_ie;
558 		sum->ift_op += ip->ift_op;
559 		sum->ift_ob += ip->ift_ob;
560 		sum->ift_oe += ip->ift_oe;
561 		sum->ift_co += ip->ift_co;
562 		sum->ift_dr += ip->ift_dr;
563 		off = (u_long)ifnet.if_list.tqe_next;
564 	}
565 	if (lastif - iftot > 0) {
566 		if (bflag) {
567 			printf("  %10llu %8.8s %10llu %5.5s",
568 			    (unsigned long long)
569 				(sum->ift_ib - total->ift_ib), " ",
570 			    (unsigned long long)
571 				(sum->ift_ob - total->ift_ob), " ");
572 		} else {
573 			printf("  %8llu %5llu %8llu %5llu %5llu",
574 			    (unsigned long long)
575 				(sum->ift_ip - total->ift_ip),
576 			    (unsigned long long)
577 				(sum->ift_ie - total->ift_ie),
578 			    (unsigned long long)
579 				(sum->ift_op - total->ift_op),
580 			    (unsigned long long)
581 				(sum->ift_oe - total->ift_oe),
582 			    (unsigned long long)
583 				(sum->ift_co - total->ift_co));
584 		}
585 		if (dflag)
586 			printf(" %5llu",
587 			    (unsigned long long)(sum->ift_dr - total->ift_dr));
588 	}
589 	*total = *sum;
590 	putchar('\n');
591 	fflush(stdout);
592 	line++;
593 	oldmask = sigblock(sigmask(SIGALRM));
594 	if (! signalled) {
595 		sigpause(0);
596 	}
597 	sigsetmask(oldmask);
598 	signalled = NO;
599 	(void)alarm(interval);
600 	if (line == 21)
601 		goto banner;
602 	goto loop;
603 	/*NOTREACHED*/
604 }
605 
606 /*
607  * Called if an interval expires before sidewaysintpr has completed a loop.
608  * Sets a flag to not wait for the alarm.
609  */
610 static void
611 catchalarm(signo)
612 	int signo;
613 {
614 
615 	signalled = YES;
616 }
617