usr.bin/tip/libacu/v3451.c

   1 /*
   2  * Copyright (c) 1983, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  *
  33  * @(#)v3451.c  8.1 (Berkeley) 6/6/93
  34  * $DragonFly: src/usr.bin/tip/libacu/v3451.c,v 1.3 2005/05/07 23:20:43 corecode Exp $
  35  */
  36
  37 /*
  38  * Routines for calling up on a Vadic 3451 Modem
  39  */
  40 #include "tipconf.h"
  41 #include "tip.h"
  42
  43 static int expect(char *);
  44 static void vawrite(char *, int);
  45 static int notin(char *, char *);
  46 static void alarmtr(void);
  47 static int prefix(char *, char *);
  48
  49 static  jmp_buf Sjbuf;
  50
  51 v3451_dialer(num, acu)
  52         register char *num;
  53         char *acu;
  54 {
  55         sig_t func;
  56         int ok;
  57         int slow = number(value(BAUDRATE)) < 1200, rw = 2;
  58         char phone[50];
  59 #if ACULOG
  60         char line[80];
  61 #endif
  62
  63         /*
  64          * Get in synch
  65          */
  66         vawrite("I\r", 1 + slow);
  67         vawrite("I\r", 1 + slow);
  68         vawrite("I\r", 1 + slow);
  69         vawrite("\005\r", 2 + slow);
  70         if (!expect("READY")) {
  71                 printf("can't synchronize with vadic 3451\n");
  72 #if ACULOG
  73                 logent(value(HOST), num, "vadic", "can't synch up");
  74 #endif
  75                 return (0);
  76         }
  77         acu_hupcl ();
  78         sleep(1);
  79         vawrite("D\r", 2 + slow);
  80         if (!expect("NUMBER?")) {
  81                 printf("Vadic will not accept dial command\n");
  82 #if ACULOG
  83                 logent(value(HOST), num, "vadic", "will not accept dial");
  84 #endif
  85                 return (0);
  86         }
  87         strcpy(phone, num);
  88         strcat(phone, "\r");
  89         vawrite(phone, 1 + slow);
  90         if (!expect(phone)) {
  91                 printf("Vadic will not accept phone number\n");
  92 #if ACULOG
  93                 logent(value(HOST), num, "vadic", "will not accept number");
  94 #endif
  95                 return (0);
  96         }
  97         func = signal(SIGINT,SIG_IGN);
  98         /*
  99          * You cannot interrupt the Vadic when its dialing;
 100          * even dropping DTR does not work (definitely a
 101          * brain damaged design).
 102          */
 103         vawrite("\r", 1 + slow);
 104         vawrite("\r", 1 + slow);
 105         if (!expect("DIALING:")) {
 106                 printf("Vadic failed to dial\n");
 107 #if ACULOG
 108                 logent(value(HOST), num, "vadic", "failed to dial");
 109 #endif
 110                 return (0);
 111         }
 112         if (boolean(value(VERBOSE)))
 113                 printf("\ndialing...");
 114         ok = expect("ON LINE");
 115         signal(SIGINT, func);
 116         if (!ok) {
 117                 printf("call failed\n");
 118 #if ACULOG
 119                 logent(value(HOST), num, "vadic", "call failed");
 120 #endif
 121                 return (0);
 122         }
 123         ioctl(FD, TIOCFLUSH, &rw);
 124         return (1);
 125 }
 126
 127 v3451_disconnect()
 128 {
 129
 130         close(FD);
 131 }
 132
 133 v3451_abort()
 134 {
 135
 136         close(FD);
 137 }
 138
 139 static void
 140 vawrite(cp, delay)
 141         register char *cp;
 142         int delay;
 143 {
 144
 145         for (; *cp; sleep(delay), cp++)
 146                 write(FD, cp, 1);
 147 }
 148
 149 static
 150 expect(cp)
 151         register char *cp;
 152 {
 153         char buf[300];
 154         register char *rp = buf;
 155         int timeout = 30, online = 0;
 156
 157         if (strcmp(cp, "\"\"") == 0)
 158                 return (1);
 159         *rp = 0;
 160         /*
 161          * If we are waiting for the Vadic to complete
 162          * dialing and get a connection, allow more time
 163          * Unfortunately, the Vadic times out 24 seconds after
 164          * the last digit is dialed
 165          */
 166         online = strcmp(cp, "ON LINE") == 0;
 167         if (online)
 168                 timeout = number(value(DIALTIMEOUT));
 169         signal(SIGALRM, alarmtr);
 170         if (setjmp(Sjbuf))
 171                 return (0);
 172         alarm(timeout);
 173         while (notin(cp, buf) && rp < buf + sizeof (buf) - 1) {
 174                 if (online && notin("FAILED CALL", buf) == 0)
 175                         return (0);
 176                 if (read(FD, rp, 1) < 0) {
 177                         alarm(0);
 178                         return (0);
 179                 }
 180                 if (*rp &= 0177)
 181                         rp++;
 182                 *rp = '\0';
 183         }
 184         alarm(0);
 185         return (1);
 186 }
 187
 188 static void
 189 alarmtr()
 190 {
 191         longjmp(Sjbuf, 1);
 192 }
 193
 194 static int
 195 notin(sh, lg)
 196         char *sh, *lg;
 197 {
 198         for (; *lg; lg++)
 199                 if (prefix(sh, lg))
 200                         return (0);
 201         return (1);
 202 }
 203
 204 static
 205 prefix(s1, s2)
 206         register char *s1, *s2;
 207 {
 208         register char c;
 209
 210         while ((c = *s1++) == *s2++)
 211                 if (c == '\0')
 212                         return (1);
 213         return (c == '\0');
 214 }