usr.bin/tip/aculib/ventel.c

   1 /*      $NetBSD: ventel.c,v 1.14 2006/04/03 02:25:27 perry Exp $        */
   2
   3 /*
   4  * Copyright (c) 1983, 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. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 #ifndef lint
  34 #if 0
  35 static char sccsid[] = "@(#)ventel.c    8.1 (Berkeley) 6/6/93";
  36 #endif
  37 __RCSID("$NetBSD: ventel.c,v 1.14 2006/04/03 02:25:27 perry Exp $");
  38 #endif /* not lint */
  39
  40 /*
  41  * Routines for calling up on a Ventel Modem
  42  * The Ventel is expected to be strapped for local echo (just like uucp)
  43  */
  44 #include "tip.h"
  45
  46 #define MAXRETRY        5
  47
  48 static  int timeout = 0;
  49 static  jmp_buf timeoutbuf;
  50
  51 static  void    echo(const char *);
  52 static  int     gobble(char, char *);
  53 static  void    sigALRM(int);
  54 static  int     vensync(int);
  55
  56 /*
  57  * some sleep calls have been replaced by usleep(DELAYUS)
  58  * because some ventel modems require two <cr>s in less than
  59  * a second in order to 'wake up'
  60  */
  61 #define DELAYUS         100000          /* delay in microseconds */
  62
  63 int
  64 /*ARGSUSED*/
  65 ven_dialer(char *num, char *acu __unused)
  66 {
  67         char *cp;
  68         int connected = 0;
  69         char *msg, line[80];
  70         struct termios  cntrl;
  71
  72         /*
  73          * Get in synch with a couple of carriage returns
  74          */
  75         if (!vensync(FD)) {
  76                 (void)printf("can't synchronize with ventel\n");
  77                 return (0);
  78         }
  79         if (boolean(value(VERBOSE)))
  80                 (void)printf("\ndialing...");
  81         (void)fflush(stdout);
  82         (void)tcgetattr(FD, &cntrl);
  83         cntrl.c_cflag |= HUPCL;
  84         (void)tcsetattr(FD, TCSANOW, &cntrl);
  85         echo("#k$\r$\n$D$I$A$L$:$ ");
  86         for (cp = num; *cp; cp++) {
  87                 (void)usleep(DELAYUS);
  88                 (void)write(FD, cp, 1);
  89         }
  90         (void)usleep(DELAYUS);
  91         (void)write(FD, "\r", 1);
  92         (void)gobble('\n', line);
  93         if (gobble('\n', line))
  94                 connected = gobble('!', line);
  95         (void)tcflush(FD, TCIOFLUSH);
  96         if (timeout)
  97                 ven_disconnect();       /* insurance */
  98         if (connected || timeout || !boolean(value(VERBOSE)))
  99                 return (connected);
 100         /* call failed, parse response for user */
 101         cp = strchr(line, '\r');
 102         if (cp)
 103                 *cp = '\0';
 104         for (cp = line; (cp = strchr(cp, ' ')) != NULL; cp++)
 105                 if (cp[1] == ' ')
 106                         break;
 107         if (cp) {
 108                 while (*cp == ' ')
 109                         cp++;
 110                 msg = cp;
 111                 while (*cp) {
 112                         if (isupper((unsigned char)*cp))
 113                                 *cp = tolower((unsigned char)*cp);
 114                         cp++;
 115                 }
 116                 (void)printf("%s...", msg);
 117         }
 118         return (connected);
 119 }
 120
 121 void
 122 ven_disconnect(void)
 123 {
 124
 125         (void)close(FD);
 126 }
 127
 128 void
 129 ven_abort(void)
 130 {
 131
 132         (void)write(FD, "\03", 1);
 133         (void)close(FD);
 134 }
 135
 136 static void
 137 echo(const char *s)
 138 {
 139         char c;
 140
 141         while ((c = *s++) != 0) switch (c) {
 142
 143         case '$':
 144                 (void)read(FD, &c, 1);
 145                 s++;
 146                 break;
 147
 148         case '#':
 149                 c = *s++;
 150                 (void)write(FD, &c, 1);
 151                 break;
 152
 153         default:
 154                 (void)write(FD, &c, 1);
 155                 (void)read(FD, &c, 1);
 156         }
 157 }
 158
 159 static void
 160 /*ARGSUSED*/
 161 sigALRM(int dummy __unused)
 162 {
 163
 164         (void)printf("\07timeout waiting for reply\n");
 165         timeout = 1;
 166         longjmp(timeoutbuf, 1);
 167 }
 168
 169 static int
 170 gobble(char match, char response[])
 171 {
 172         char * volatile cp;
 173         sig_t f;
 174         char c;
 175
 176         cp = response;
 177         f = signal(SIGALRM, sigALRM);
 178         timeout = 0;
 179         do {
 180                 if (setjmp(timeoutbuf)) {
 181                         (void)signal(SIGALRM, f);
 182                         *cp = '\0';
 183                         return (0);
 184                 }
 185                 (void)alarm((unsigned)number(value(DIALTIMEOUT)));
 186                 (void)read(FD, cp, 1);
 187                 (void)alarm(0);
 188                 c = (*cp++ &= 0177);
 189 #ifdef notdef
 190                 if (boolean(value(VERBOSE)))
 191                         (void)putchar(c);
 192 #endif
 193         } while (c != '\n' && c != match);
 194         (void)signal(SIGALRM, SIG_DFL);
 195         *cp = '\0';
 196         return (c == match);
 197 }
 198
 199 #define min(a,b)        ((a)>(b)?(b):(a))
 200 /*
 201  * This convoluted piece of code attempts to get
 202  * the ventel in sync.  If you don't have FIONREAD
 203  * there are gory ways to simulate this.
 204  */
 205 static int
 206 vensync(int fd)
 207 {
 208         int already = 0, nread;
 209         char buf[60];
 210
 211         /*
 212          * Toggle DTR to force anyone off that might have left
 213          * the modem connected, and insure a consistent state
 214          * to start from.
 215          *
 216          * If you don't have the ioctl calls to diddle directly
 217          * with DTR, you can always try setting the baud rate to 0.
 218          */
 219         (void)ioctl(FD, TIOCCDTR, 0);
 220         (void)sleep(1);
 221         (void)ioctl(FD, TIOCSDTR, 0);
 222         while (already < MAXRETRY) {
 223                 /*
 224                  * After reseting the modem, send it two \r's to
 225                  * autobaud on. Make sure to delay between them
 226                  * so the modem can frame the incoming characters.
 227                  */
 228                 (void)write(fd, "\r", 1);
 229                 (void)usleep(DELAYUS);
 230                 (void)write(fd, "\r", 1);
 231                 (void)sleep(2);
 232                 if (ioctl(fd, FIONREAD, &nread) < 0) {
 233                         perror("tip: ioctl");
 234                         continue;
 235                 }
 236                 while (nread > 0) {
 237                         (void)read(fd, buf, min(nread, sizeof buf));
 238                         if ((buf[min(nread, sizeof buf) - 1] & 0177) == '$')
 239                                 return (1);
 240                         nread -= min(nread, 60);
 241                 }
 242                 (void)sleep(1);
 243                 already++;
 244         }
 245         return (0);
 246 }