]> git.ozlabs.org Git - ppp.git/blobdiff - pppstats/pppstats.c
use standard cc
[ppp.git] / pppstats / pppstats.c
index 5fb2f77af47d3ca1e1e7c4fc071031bb23e21705..2149f2567a4665d1b8061b82f4eeba861a0e7f11 100644 (file)
@@ -1,10 +1,19 @@
 /*
  * print PPP statistics:
- *     pppstats [-i interval] [-v] [interface] [system] [core] 
+ *     pppstats [-a|-d] [-v|-r|-z] [-c count] [-w wait] [interface]
  *
+ *   -a Show absolute values rather than deltas
+ *   -d Show data rate (kB/s) rather than bytes
+ *   -v Show more stats for VJ TCP header compression
+ *   -r Show compression ratio
+ *   -z Show compression statistics instead of default display
+ *
+ * History:
+ *      perkins@cps.msu.edu: Added compression statistics and alternate 
+ *                display. 11/94
  *     Brad Parker (brad@cayman.com) 6/92
  *
- * from the original "slstats" by Van Jaconson
+ * from the original "slstats" by Van Jacobson
  *
  * Copyright (c) 1989 Regents of the University of California.
  * All rights reserved.
  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
- *
- *     Van Jacobson (van@helios.ee.lbl.gov), Dec 31, 1989:
- *     - Initial distribution.
  */
 
 #ifndef lint
-static char rcsid[] = "$Id: pppstats.c,v 1.1 1993/11/11 03:54:25 paulus Exp $";
+static char rcsid[] = "$Id: pppstats.c,v 1.14 1996/07/01 05:32:57 paulus Exp $";
 #endif
 
-#include <sys/param.h>
-#include <sys/mbuf.h>
-#include <sys/types.h>
-#include <sys/socket.h>
-#include <sys/file.h>
-#ifndef KVMLIB
-#include <machine/pte.h>
-#endif
-#ifdef sun
-#include <kvm.h>
-#endif
+#include <stdio.h>
+#include <stddef.h>
+#include <stdlib.h>
+#include <string.h>
 #include <ctype.h>
 #include <errno.h>
-#include <nlist.h>
-#include <stdio.h>
 #include <signal.h>
-#include <net/if.h>
-#include <netinet/in.h>
-#include <netinet/in_systm.h>
-#include <netinet/ip.h>
-#include <netinet/ip_var.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#include <sys/ioctl.h>
+#include <net/ppp_defs.h>
 
-#define        VJC     1
-#include <net/slcompress.h>
+#ifndef STREAMS
+#include <sys/socket.h>                /* *BSD, Linux, NeXT, Ultrix etc. */
+#include <net/if.h>
 #include <net/if_ppp.h>
 
-#ifdef STREAMS
-#include <sys/stream.h>
-#include "ppp_str.h"
-#endif
+#else  /* STREAMS */
+#include <sys/stropts.h>       /* SVR4, Solaris 2, SunOS 4, OSF/1, etc. */
+#include <net/pppio.h>
 
-#ifdef STREAMS
-struct nlist nl[] = {
-#define N_SOFTC 0
-       { "_pii" },
-       "",
-};
-#else
-struct nlist nl[] = {
-#define N_SOFTC 0
-       { "_ppp_softc" },
-       "",
-};
-#endif
+#endif /* STREAMS */
 
-#ifndef KVMLIB
-struct pte *Sysmap;
-int    kmem;
-extern off_t lseek();
-#endif
+int    vflag, rflag, zflag;    /* select type of display */
+int    aflag;                  /* print absolute values, not deltas */
+int    dflag;                  /* print data rates, not bytes */
+int    interval, count;
+int    infinite;
+int    unit;
+int    s;                      /* socket or /dev/ppp file descriptor */
+int    signalled;              /* set if alarm goes off "early" */
+char   *progname;
+char   *interface;
 
-#ifdef sun
-kvm_t  *kd;
-#endif
+void
+usage()
+{
+    fprintf(stderr, "Usage: %s [-a|-d] [-v|-r|-z] [-c count] [-w wait] [interface]\n",
+           progname);
+    exit(1);
+}
 
-#ifdef sun
-char   *system = "/vmunix";
-#else
-#ifdef __NetBSD__
-char   *system = "/netbsd";
-#else
-char   *system = "/386bsd";
-#endif
-#endif
+/*
+ * Called if an interval expires before intpr has completed a loop.
+ * Sets a flag to not wait for the alarm.
+ */
+void
+catchalarm(arg)
+    int arg;
+{
+    signalled = 1;
+}
 
-#ifndef KVMLIB
-char   *kmemf = "/dev/kmem";
-#else
-char   *kmemf;
-#endif
-int    kflag;
-int    vflag;
-unsigned interval = 5;
-int    unit;
 
-extern char *malloc();
+#ifndef STREAMS
+void
+get_ppp_stats(curp)
+    struct ppp_stats *curp;
+{
+    struct ifpppstatsreq req;
 
+    memset (&req, 0, sizeof (req));
 
-main(argc, argv)
-       int argc;
-       char *argv[];
-{
-       --argc; ++argv;
-       while (argc > 0) {
-               if (strcmp(argv[0], "-v") == 0) {
-                       ++vflag;
-                       ++argv, --argc;
-                       continue;
-               }
-               if (strcmp(argv[0], "-i") == 0 && argv[1] &&
-                   isdigit(argv[1][0])) {
-                       interval = atoi(argv[1]);
-                       if (interval <= 0)
-                               usage();
-                       ++argv, --argc;
-                       ++argv, --argc;
-                       continue;
-               }
-               if (isdigit(argv[0][0])) {
-                       unit = atoi(argv[0]);
-                       if (unit < 0)
-                               usage();
-                       ++argv, --argc;
-                       continue;
-               }
-               if (kflag)
-                       usage();
-
-               system = *argv;
-               ++argv, --argc;
-               if (argc > 0) {
-                       kmemf = *argv++;
-                       --argc;
-                       kflag++;
-               }
-       }
-#ifndef KVMLIB
-       if (nlist(system, nl) < 0 || nl[0].n_type == 0) {
-               fprintf(stderr, "%s: no namelist\n", system);
-               exit(1);
-       }
-       kmem = open(kmemf, O_RDONLY);
-       if (kmem < 0) {
-               perror(kmemf);
-               exit(1);
-       }
-       if (kflag) {
-               off_t off;
-
-               Sysmap = (struct pte *)
-                  malloc((u_int)(nl[N_SYSSIZE].n_value * sizeof(struct pte)));
-               if (!Sysmap) {
-                       fputs("netstat: can't get memory for Sysmap.\n", stderr);
-                       exit(1);
-               }
-               off = nl[N_SYSMAP].n_value & ~KERNBASE;
-               (void)lseek(kmem, off, L_SET);
-               (void)read(kmem, (char *)Sysmap,
-                   (int)(nl[N_SYSSIZE].n_value * sizeof(struct pte)));
-       }
-#else
-#ifdef sun
-       /* SunOS */
-       if ((kd = kvm_open(system, kmemf, (char *)0, O_RDONLY, NULL)) == NULL) {
-         perror("kvm_open");
-         exit(1);
-       }
-#else
-       /* BSD4.3+ */
-       if (kvm_openfiles(system, kmemf, (char *)0) == -1) {
-         fprintf(stderr, "kvm_openfiles: %s", kvm_geterr());
-         exit(1);
-       }
+#ifdef _linux_
+    req.stats_ptr = (caddr_t) &req.stats;
+#undef ifr_name
+#define ifr_name ifr__name
 #endif
 
-#ifdef sun
-       if (kvm_nlist(kd, nl)) {
-#else
-       if (kvm_nlist(nl)) {
+    strncpy(req.ifr_name, interface, sizeof(req.ifr_name));
+    if (ioctl(s, SIOCGPPPSTATS, &req) < 0) {
+       fprintf(stderr, "%s: ", progname);
+       if (errno == ENOTTY)
+           fprintf(stderr, "kernel support missing\n");
+       else
+           perror("couldn't get PPP statistics");
+       exit(1);
+    }
+    *curp = req.stats;
+}
+
+void
+get_ppp_cstats(csp)
+    struct ppp_comp_stats *csp;
+{
+    struct ifpppcstatsreq creq;
+
+    memset (&creq, 0, sizeof (creq));
+
+#ifdef _linux_
+    creq.stats_ptr = (caddr_t) &creq.stats;
+#undef  ifr_name
+#define ifr_name ifr__name
 #endif
-         fprintf(stderr, "pppstats: can't find symbols in nlist\n");
-         exit(1);
+
+    strncpy(creq.ifr_name, interface, sizeof(creq.ifr_name));
+    if (ioctl(s, SIOCGPPPCSTATS, &creq) < 0) {
+       fprintf(stderr, "%s: ", progname);
+       if (errno == ENOTTY) {
+           fprintf(stderr, "no kernel compression support\n");
+           if (zflag)
+               exit(1);
+           rflag = 0;
+       } else {
+           perror("couldn't get PPP compression stats");
+           exit(1);
        }
+    }
+
+#ifdef _linux_
+    if (creq.stats.c.bytes_out == 0)
+       creq.stats.c.ratio = 0.0;
+    else
+       creq.stats.c.ratio = (double) creq.stats.c.in_count /
+                            (double) creq.stats.c.bytes_out;
+
+    if (creq.stats.d.bytes_out == 0)
+       creq.stats.d.ratio = 0.0;
+    else
+       creq.stats.d.ratio = (double) creq.stats.d.in_count /
+                            (double) creq.stats.d.bytes_out;
 #endif
-       intpr();
-       exit(0);
+
+    *csp = creq.stats;
 }
 
-#ifndef KVMLIB
-/*
- * Seek into the kernel for a value.
- */
-off_t
-klseek(fd, base, off)
-       int fd, off;
-       off_t base;
+#else  /* STREAMS */
+
+int
+strioctl(fd, cmd, ptr, ilen, olen)
+    int fd, cmd, ilen, olen;
+    char *ptr;
 {
-       if (kflag) {
-               /* get kernel pte */
-               base &= ~KERNBASE;
-                base = ctob(Sysmap[btop(base)].pg_pfnum) + (base & PGOFSET);
-       }
-       return (lseek(fd, base, off));
+    struct strioctl str;
+
+    str.ic_cmd = cmd;
+    str.ic_timout = 0;
+    str.ic_len = ilen;
+    str.ic_dp = ptr;
+    if (ioctl(fd, I_STR, &str) == -1)
+       return -1;
+    if (str.ic_len != olen)
+       fprintf(stderr, "strioctl: expected %d bytes, got %d for cmd %x\n",
+              olen, str.ic_len, cmd);
+    return 0;
 }
-#endif
 
-usage()
+void
+get_ppp_stats(curp)
+    struct ppp_stats *curp;
 {
-       fprintf(stderr,"usage: pppstats [-i interval] [-v] [unit] [system] [core]\n");
+    if (strioctl(s, PPPIO_GETSTAT, curp, 0, sizeof(*curp)) < 0) {
+       fprintf(stderr, "%s: ", progname);
+       if (errno == EINVAL)
+           fprintf(stderr, "kernel support missing\n");
+       else
+           perror("couldn't get PPP statistics");
        exit(1);
+    }
 }
 
-u_char signalled;                      /* set if alarm goes off "early" */
+void
+get_ppp_cstats(csp)
+    struct ppp_comp_stats *csp;
+{
+    if (strioctl(s, PPPIO_GETCSTAT, csp, 0, sizeof(*csp)) < 0) {
+       fprintf(stderr, "%s: ", progname);
+       if (errno == ENOTTY) {
+           fprintf(stderr, "no kernel compression support\n");
+           if (zflag)
+               exit(1);
+           rflag = 0;
+       } else {
+           perror("couldn't get PPP compression statistics");
+           exit(1);
+       }
+    }
+}
+
+#endif /* STREAMS */
+
+#define MAX0(a)                ((int)(a) > 0? (a): 0)
+#define V(offset)      MAX0(cur.offset - old.offset)
+#define W(offset)      MAX0(ccs.offset - ocs.offset)
 
-#define V(offset) ((line % 20)? sc->offset - osc->offset : sc->offset)
+#define RATIO(c, i, u) ((c) == 0? 1.0: (u) / ((double)(c) + (i)))
+#define CRATE(x)       RATIO(W(x.comp_bytes), W(x.inc_bytes), W(x.unc_bytes))
+
+#define KBPS(n)                ((n) / (interval * 1000.0))
 
 /*
  * Print a running summary of interface statistics.
  * Repeat display every interval seconds, showing statistics
  * collected over that interval.  Assumes that interval is non-zero.
- * First line printed at top of screen is always cumulative.
+ * First line printed is cumulative.
  */
+void
 intpr()
 {
-       register int line = 0;
-       int oldmask;
-#ifdef __STDC__
-       void catchalarm(int);
-#else
-       void catchalarm();
-#endif
+    register int line = 0;
+    sigset_t oldmask, mask;
+    char *bunit;
+    int ratef = 0;
+    struct ppp_stats cur, old;
+    struct ppp_comp_stats ccs, ocs;
 
-#ifdef STREAMS
-#define STRUCT struct ppp_if_info
-#else
-#define STRUCT struct ppp_softc
-#endif
+    memset(&old, 0, sizeof(old));
+    memset(&ocs, 0, sizeof(ocs));
 
-       STRUCT *sc, *osc;
-
-       nl[N_SOFTC].n_value += unit * sizeof(struct ppp_softc);
-       sc = (STRUCT *)malloc(sizeof(STRUCT));
-       osc = (STRUCT *)malloc(sizeof(STRUCT));
-
-       bzero((char *)osc, sizeof(STRUCT));
-
-       while (1) {
-#ifndef KVMLIB
-               if (klseek(kmem, (off_t)nl[N_SOFTC].n_value, 0) < 0)
-                       if(errno != EINTR)
-                               perror("kmem seek");
-               if (read(kmem, (char *)sc, sizeof(STRUCT)) <= 0)
-                       perror("kmem read");
-#else
-#ifdef sun
-               if (kvm_read(kd, nl[N_SOFTC].n_value,
-#else
-               if (kvm_read(nl[N_SOFTC].n_value,
-#endif
-                            sc, sizeof(STRUCT)) !=
-                   sizeof(STRUCT))
-                 perror("kvm_read");
-#endif
+    while (1) {
+       get_ppp_stats(&cur);
+       if (zflag || rflag)
+           get_ppp_cstats(&ccs);
 
-               (void)signal(SIGALRM, catchalarm);
-               signalled = 0;
-               (void)alarm(interval);
-
-               if ((line % 20) == 0) {
-                       printf("%6.6s %6.6s %6.6s %6.6s %6.6s",
-                               "in", "pack", "comp", "uncomp", "err");
-                       if (vflag)
-                               printf(" %6.6s %6.6s", "toss", "ip");
-                       printf(" | %6.6s %6.6s %6.6s %6.6s %6.6s",
-                               "out", "pack", "comp", "uncomp", "ip");
-                       if (vflag)
-                               printf(" %6.6s %6.6s", "search", "miss");
-                       putchar('\n');
-               }
-
-#ifdef STREAMS
-#define        COMP    pii_sc_comp
-#define        STATS   pii_ifnet
-#else
-#define        COMP    sc_comp
-#define        STATS   sc_if
-#endif
+       (void)signal(SIGALRM, catchalarm);
+       signalled = 0;
+       (void)alarm(interval);
 
-               printf("%6d %6d %6d %6d %6d",
-#if BSD > 43
-                       V(STATS.if_ibytes),
-#else
-                       0,
-#endif
-                       V(STATS.if_ipackets),
-                       V(COMP.sls_compressedin),
-                       V(COMP.sls_uncompressedin),
-                       V(COMP.sls_errorin));
+       if ((line % 20) == 0) {
+           if (zflag) {
+               printf("IN:  COMPRESSED  INCOMPRESSIBLE   COMP | ");
+               printf("OUT: COMPRESSED  INCOMPRESSIBLE   COMP\n");
+               bunit = dflag? "KB/S": "BYTE";
+               printf("    %s   PACK     %s   PACK  RATIO | ", bunit, bunit);
+               printf("    %s   PACK     %s   PACK  RATIO", bunit, bunit);
+           } else {
+               printf("%8.8s %6.6s %6.6s",
+                      "IN", "PACK", "VJCOMP");
+
+               if (!rflag)
+                   printf(" %6.6s %6.6s", "VJUNC", "VJERR");
                if (vflag)
-                       printf(" %6d %6d",
-                               V(COMP.sls_tossed),
-                               V(STATS.if_ipackets) -
-                                 V(COMP.sls_compressedin) -
-                                 V(COMP.sls_uncompressedin) -
-                                 V(COMP.sls_errorin));
-               printf(" | %6d %6d %6d %6d %6d",
-#if BSD > 43
-                       V(STATS.if_obytes),
-#else
-                       0,
-#endif
-                       V(STATS.if_opackets),
-                       V(COMP.sls_compressed),
-                       V(COMP.sls_packets) - V(COMP.sls_compressed),
-                       V(STATS.if_opackets) - V(COMP.sls_packets));
+                   printf(" %6.6s %6.6s", "VJTOSS", "NON-VJ");
+               if (rflag)
+                   printf(" %6.6s %6.6s", "RATIO", "UBYTE");
+               printf("  | %8.8s %6.6s %6.6s",
+                      "OUT", "PACK", "VJCOMP");
+
+               if (!rflag)
+                   printf(" %6.6s %6.6s", "VJUNC", "NON-VJ");
                if (vflag)
-                       printf(" %6d %6d",
-                               V(COMP.sls_searches),
-                               V(COMP.sls_misses));
-
-               putchar('\n');
-               fflush(stdout);
-               line++;
-               oldmask = sigblock(sigmask(SIGALRM));
-               if (! signalled) {
-                       sigpause(0);
-               }
-               sigsetmask(oldmask);
-               signalled = 0;
-               (void)alarm(interval);
-               bcopy((char *)sc, (char *)osc, sizeof(STRUCT));
+                   printf(" %6.6s %6.6s", "VJSRCH", "VJMISS");
+               if (rflag)
+                   printf(" %6.6s %6.6s", "RATIO", "UBYTE");
+           }
+           putchar('\n');
+       }
+
+       if (zflag) {
+           if (ratef) {
+               printf("%8.3f %6u %8.3f %6u %6.2f",
+                      KBPS(W(d.comp_bytes)),
+                      W(d.comp_packets),
+                      KBPS(W(d.inc_bytes)),
+                      W(d.inc_packets),
+                      ccs.d.ratio * 256.0);
+               printf(" | %8.3f %6u %8.3f %6u %6.2f",
+                      KBPS(W(c.comp_bytes)),
+                      W(c.comp_packets),
+                      KBPS(W(c.inc_bytes)),
+                      W(c.inc_packets),
+                      ccs.c.ratio * 256.0);
+           } else {
+               printf("%8u %6u %8u %6u %6.2f",
+                      W(d.comp_bytes),
+                      W(d.comp_packets),
+                      W(d.inc_bytes),
+                      W(d.inc_packets),
+                      ccs.d.ratio * 256.0);
+               printf(" | %8u %6u %8u %6u %6.2f",
+                      W(c.comp_bytes),
+                      W(c.comp_packets),
+                      W(c.inc_bytes),
+                      W(c.inc_packets),
+                      ccs.c.ratio * 256.0);
+           }
+       
+       } else {
+           if (ratef)
+               printf("%8.3f", KBPS(V(p.ppp_ibytes)));
+           else
+               printf("%8u", V(p.ppp_ibytes));
+           printf(" %6u %6u",
+                  V(p.ppp_ipackets),
+                  V(vj.vjs_compressedin));
+           if (!rflag)
+               printf(" %6u %6u",
+                      V(vj.vjs_uncompressedin),
+                      V(vj.vjs_errorin));
+           if (vflag)
+               printf(" %6u %6u",
+                      V(vj.vjs_tossed),
+                      V(p.ppp_ipackets) - V(vj.vjs_compressedin)
+                      - V(vj.vjs_uncompressedin) - V(vj.vjs_errorin));
+           if (rflag) {
+               printf(" %6.2f ", CRATE(d));
+               if (ratef)
+                   printf("%6.2f", KBPS(W(d.unc_bytes)));
+               else
+                   printf("%6u", W(d.unc_bytes));
+           }
+           if (ratef)
+               printf("  | %8.3f", KBPS(V(p.ppp_obytes)));
+           else
+               printf("  | %8u", V(p.ppp_obytes));
+           printf(" %6u %6u",
+                  V(p.ppp_obytes),
+                  V(p.ppp_opackets),
+                  V(vj.vjs_compressed));
+           if (!rflag)
+               printf(" %6u %6u",
+                      V(vj.vjs_packets) - V(vj.vjs_compressed),
+                      V(p.ppp_opackets) - V(vj.vjs_packets));
+           if (vflag)
+               printf(" %6u %6u",
+                      V(vj.vjs_searches),
+                      V(vj.vjs_misses));
+           if (rflag) {
+               printf(" %6.2f ", CRATE(c));
+               if (ratef)
+                   printf("%6.2f", KBPS(W(c.unc_bytes)));
+               else
+                   printf("%6u", W(c.unc_bytes));
+           }
+
        }
+
+       putchar('\n');
+       fflush(stdout);
+       line++;
+
+       count--;
+       if (!infinite && !count)
+           break;
+
+       sigemptyset(&mask);
+       sigaddset(&mask, SIGALRM);
+       sigprocmask(SIG_BLOCK, &mask, &oldmask);
+       if (!signalled) {
+           sigemptyset(&mask);
+           sigsuspend(&mask);
+       }
+       sigprocmask(SIG_SETMASK, &oldmask, NULL);
+       signalled = 0;
+       (void)alarm(interval);
+
+       if (!aflag) {
+           old = cur;
+           ocs = ccs;
+           ratef = dflag;
+       }
+    }
 }
 
-/*
- * Called if an interval expires before sidewaysintpr has completed a loop.
- * Sets a flag to not wait for the alarm.
- */
-void catchalarm(arg)
-int arg;
+int
+main(argc, argv)
+    int argc;
+    char *argv[];
 {
-       signalled = 1;
+    int c;
+
+    interface = "ppp0";
+    if ((progname = strrchr(argv[0], '/')) == NULL)
+       progname = argv[0];
+    else
+       ++progname;
+
+    while ((c = getopt(argc, argv, "advrzc:w:")) != -1) {
+       switch (c) {
+       case 'a':
+           ++aflag;
+           break;
+       case 'd':
+           ++dflag;
+           break;
+       case 'v':
+           ++vflag;
+           break;
+       case 'r':
+           ++rflag;
+           break;
+       case 'z':
+           ++zflag;
+           break;
+       case 'c':
+           count = atoi(optarg);
+           if (count <= 0)
+               usage();
+           break;
+       case 'w':
+           interval = atoi(optarg);
+           if (interval <= 0)
+               usage();
+           break;
+       default:
+           usage();
+       }
+    }
+    argc -= optind;
+    argv += optind;
+
+    if (!interval && count)
+       interval = 5;
+    if (interval && !count)
+       infinite = 1;
+    if (!interval && !count)
+       count = 1;
+    if (aflag)
+       dflag = 0;
+
+    if (argc > 1)
+       usage();
+    if (argc > 0)
+       interface = argv[0];
+
+    if (sscanf(interface, "ppp%d", &unit) != 1) {
+       fprintf(stderr, "%s: invalid interface '%s' specified\n",
+               progname, interface);
+    }
+
+#ifndef STREAMS
+    {
+       struct ifreq ifr;
+
+       s = socket(AF_INET, SOCK_DGRAM, 0);
+       if (s < 0) {
+           fprintf(stderr, "%s: ", progname);
+           perror("couldn't create IP socket");
+           exit(1);
+       }
+       strncpy(ifr.ifr_name, interface, sizeof(ifr.ifr_name));
+       if (ioctl(s, SIOCGIFFLAGS, (caddr_t)&ifr) < 0) {
+           fprintf(stderr, "%s: nonexistent interface '%s' specified\n",
+                   progname, interface);
+           exit(1);
+       }
+    }
+
+#else  /* STREAMS */
+    if ((s = open("/dev/ppp", O_RDONLY)) < 0) {
+       fprintf(stderr, "%s: ", progname);
+       perror("couldn't open /dev/ppp");
+       exit(1);
+    }
+    if (strioctl(s, PPPIO_ATTACH, &unit, sizeof(int), 0) < 0) {
+       fprintf(stderr, "%s: ppp%d is not available\n", progname, unit);
+       exit(1);
+    }
+
+#endif /* STREAMS */
+
+    intpr();
+    exit(0);
 }