usr.bin/tip/tip/tipout.c

   1 /*      $OpenBSD: tipout.c,v 1.18 2006/05/31 07:03:08 jason Exp $       */
   2 /*      $NetBSD: tipout.c,v 1.5 1996/12/29 10:34:12 cgd Exp $   */
   3
   4 /*
   5  * Copyright (c) 1983, 1993
   6  *      The Regents of the University of California.  All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. Neither the name of the University nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32
  33 #include <sys/cdefs.h>
  34 __FBSDID("$FreeBSD$");
  35
  36 #ifndef lint
  37 #if 0
  38 static char sccsid[] = "@(#)tipout.c    8.1 (Berkeley) 6/6/93";
  39 static const char rcsid[] = "$OpenBSD: tipout.c,v 1.18 2006/05/31 07:03:08 jason Exp $";
  40 #endif
  41 #endif /* not lint */
  42
  43 #include "tip.h"
  44
  45 /*
  46  * tip
  47  *
  48  * lower fork of tip -- handles passive side
  49  *  reading from the remote host
  50  */
  51
  52 static  jmp_buf sigbuf;
  53
  54 static void     intIOT(int);
  55 static void     intEMT(int);
  56 static void     intTERM(int);
  57 static void     intSYS(int);
  58
  59 /*
  60  * TIPOUT wait state routine --
  61  *   sent by TIPIN when it wants to posses the remote host
  62  */
  63 /*ARGSUSED*/
  64 static void
  65 intIOT(int signo)
  66 {
  67         write(repdes[1],&ccc,1);
  68         read(fildes[0], &ccc,1);
  69         longjmp(sigbuf, 1);
  70 }
  71
  72 /*
  73  * Scripting command interpreter --
  74  *  accepts script file name over the pipe and acts accordingly
  75  */
  76 /*ARGSUSED*/
  77 static void
  78 intEMT(int signo)
  79 {
  80         char c, line[256];
  81         char *pline = line;
  82         char reply;
  83
  84         read(fildes[0], &c, 1);
  85         while (c != '\n' && (size_t)(pline - line) < sizeof(line)) {
  86                 *pline++ = c;
  87                 read(fildes[0], &c, 1);
  88         }
  89         *pline = '\0';
  90         if (boolean(value(SCRIPT)) && fscript != NULL)
  91                 fclose(fscript);
  92         if (pline == line) {
  93                 setboolean(value(SCRIPT), FALSE);
  94                 reply = 'y';
  95         } else {
  96                 if ((fscript = fopen(line, "a")) == NULL)
  97                         reply = 'n';
  98                 else {
  99                         reply = 'y';
 100                         setboolean(value(SCRIPT), TRUE);
 101                 }
 102         }
 103         write(repdes[1], &reply, 1);
 104         longjmp(sigbuf, 1);
 105 }
 106
 107 static void
 108 intTERM(int signo)
 109 {
 110         if (boolean(value(SCRIPT)) && fscript != NULL)
 111                 fclose(fscript);
 112         if (signo && tipin_pid)
 113                 kill(tipin_pid, signo);
 114         exit(0);
 115 }
 116
 117 /*ARGSUSED*/
 118 static void
 119 intSYS(int signo)
 120 {
 121         setboolean(value(BEAUTIFY), !boolean(value(BEAUTIFY)));
 122         longjmp(sigbuf, 1);
 123 }
 124
 125 /*
 126  * ****TIPOUT   TIPOUT****
 127  */
 128 void
 129 tipout(void)
 130 {
 131         char buf[BUFSIZ];
 132         char *cp;
 133         ssize_t scnt;
 134         size_t cnt;
 135         sigset_t mask, omask;
 136
 137         signal(SIGINT, SIG_IGN);
 138         signal(SIGQUIT, SIG_IGN);
 139         signal(SIGEMT, intEMT);         /* attention from TIPIN */
 140         signal(SIGTERM, intTERM);       /* time to go signal */
 141         signal(SIGIOT, intIOT);         /* scripting going on signal */
 142         signal(SIGHUP, intTERM);        /* for dial-ups */
 143         signal(SIGSYS, intSYS);         /* beautify toggle */
 144         (void) setjmp(sigbuf);
 145         sigprocmask(SIG_BLOCK, NULL, &omask);
 146         for (;;) {
 147                 sigprocmask(SIG_SETMASK, &omask, NULL);
 148                 scnt = read(FD, buf, BUFSIZ);
 149                 if (scnt <= 0) {
 150                         /* lost carrier */
 151                         if (scnt == 0 || (scnt < 0 && errno == EIO)) {
 152                                 sigemptyset(&mask);
 153                                 sigaddset(&mask, SIGTERM);
 154                                 sigprocmask(SIG_BLOCK, &mask, NULL);
 155                                 intTERM(0);
 156                                 /*NOTREACHED*/
 157                         }
 158                         continue;
 159                 }
 160                 cnt = scnt;
 161                 sigemptyset(&mask);
 162                 sigaddset(&mask, SIGEMT);
 163                 sigaddset(&mask, SIGTERM);
 164                 sigaddset(&mask, SIGIOT);
 165                 sigaddset(&mask, SIGSYS);
 166                 sigprocmask(SIG_BLOCK, &mask, NULL);
 167                 for (cp = buf; cp < buf + cnt; cp++)
 168                         *cp &= STRIP_PAR;
 169                 write(STDOUT_FILENO, buf, cnt);
 170                 if (boolean(value(SCRIPT)) && fscript != NULL) {
 171                         if (!boolean(value(BEAUTIFY))) {
 172                                 fwrite(buf, 1, cnt, fscript);
 173                         } else {
 174                                 for (cp = buf; cp < buf + cnt; cp++)
 175                                         if ((*cp >= ' ' && *cp <= '~') ||
 176                                             any(*cp, value(EXCEPTIONS)))
 177                                                 putc(*cp, fscript);
 178                         }
 179                         for (cp = buf; cp < buf + cnt; cp++) {
 180                                 if (!isgraph(*cp)) {
 181                                         fflush(fscript);
 182                                         break;
 183                                 }
 184                         }
 185                 }
 186         }
 187 }