1 /* $NetBSD: ventel.c,v 1.17 2020/07/22 01:24:40 msaitoh 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.17 2020/07/22 01:24:40 msaitoh 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 resetting 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 } 247