1 1.12 christos /* $NetBSD: biz31.c,v 1.12 2006/12/14 17:09:43 christos Exp $ */ 2 1.3 jtc 3 1.1 cgd /* 4 1.3 jtc * Copyright (c) 1983, 1993 5 1.3 jtc * The Regents of the University of California. All rights reserved. 6 1.1 cgd * 7 1.1 cgd * Redistribution and use in source and binary forms, with or without 8 1.1 cgd * modification, are permitted provided that the following conditions 9 1.1 cgd * are met: 10 1.1 cgd * 1. Redistributions of source code must retain the above copyright 11 1.1 cgd * notice, this list of conditions and the following disclaimer. 12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright 13 1.1 cgd * notice, this list of conditions and the following disclaimer in the 14 1.1 cgd * documentation and/or other materials provided with the distribution. 15 1.8 agc * 3. Neither the name of the University nor the names of its contributors 16 1.1 cgd * may be used to endorse or promote products derived from this software 17 1.1 cgd * without specific prior written permission. 18 1.1 cgd * 19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 1.1 cgd * SUCH DAMAGE. 30 1.1 cgd */ 31 1.1 cgd 32 1.6 lukem #include <sys/cdefs.h> 33 1.1 cgd #ifndef lint 34 1.3 jtc #if 0 35 1.3 jtc static char sccsid[] = "@(#)biz31.c 8.1 (Berkeley) 6/6/93"; 36 1.3 jtc #endif 37 1.12 christos __RCSID("$NetBSD: biz31.c,v 1.12 2006/12/14 17:09:43 christos Exp $"); 38 1.1 cgd #endif /* not lint */ 39 1.1 cgd 40 1.1 cgd #include "tip.h" 41 1.1 cgd 42 1.1 cgd #define MAXRETRY 3 /* sync up retry count */ 43 1.1 cgd #define DISCONNECT_CMD "\21\25\11\24" /* disconnection string */ 44 1.1 cgd 45 1.12 christos static void sigALRM(int); 46 1.1 cgd static int timeout = 0; 47 1.1 cgd static jmp_buf timeoutbuf; 48 1.1 cgd 49 1.12 christos static void echo(const char *); 50 1.12 christos static int detect(const char *); 51 1.12 christos static void flush(const char *); 52 1.12 christos static int bizsync(int); 53 1.12 christos 54 1.1 cgd /* 55 1.1 cgd * Dial up on a BIZCOMP Model 1031 with either 56 1.1 cgd * tone dialing (mod = "f") 57 1.1 cgd * pulse dialing (mod = "w") 58 1.1 cgd */ 59 1.1 cgd static int 60 1.12 christos biz_dialer(char *num, const char *mod) 61 1.1 cgd { 62 1.6 lukem int connected = 0; 63 1.1 cgd 64 1.1 cgd if (!bizsync(FD)) { 65 1.1 cgd logent(value(HOST), "", "biz", "out of sync"); 66 1.12 christos (void)printf("bizcomp out of sync\n"); 67 1.1 cgd exit(0); 68 1.1 cgd } 69 1.1 cgd if (boolean(value(VERBOSE))) 70 1.12 christos (void)printf("\nstarting call..."); 71 1.1 cgd echo("#\rk$\r$\n"); /* disable auto-answer */ 72 1.1 cgd echo("$>$.$ #\r"); /* tone/pulse dialing */ 73 1.1 cgd echo(mod); 74 1.1 cgd echo("$\r$\n"); 75 1.1 cgd echo("$>$.$ #\re$ "); /* disconnection sequence */ 76 1.1 cgd echo(DISCONNECT_CMD); 77 1.1 cgd echo("\r$\n$\r$\n"); 78 1.1 cgd echo("$>$.$ #\rr$ "); /* repeat dial */ 79 1.1 cgd echo(num); 80 1.1 cgd echo("\r$\n"); 81 1.1 cgd if (boolean(value(VERBOSE))) 82 1.12 christos (void)printf("ringing..."); 83 1.1 cgd /* 84 1.1 cgd * The reply from the BIZCOMP should be: 85 1.1 cgd * `^G NO CONNECTION\r\n^G\r\n' failure 86 1.1 cgd * ` CONNECTION\r\n^G' success 87 1.1 cgd */ 88 1.1 cgd connected = detect(" "); 89 1.1 cgd if (!connected) 90 1.1 cgd flush(" NO CONNECTION\r\n\07\r\n"); 91 1.1 cgd else 92 1.1 cgd flush("CONNECTION\r\n\07"); 93 1.1 cgd if (timeout) 94 1.1 cgd biz31_disconnect(); /* insurance */ 95 1.1 cgd return (connected); 96 1.1 cgd } 97 1.1 cgd 98 1.12 christos int 99 1.12 christos /*ARGSUSED*/ 100 1.12 christos biz31w_dialer(char *num, char *acu __unused) 101 1.1 cgd { 102 1.1 cgd 103 1.1 cgd return (biz_dialer(num, "w")); 104 1.1 cgd } 105 1.1 cgd 106 1.12 christos int 107 1.12 christos /*ARGSUSED*/ 108 1.12 christos biz31f_dialer(char *num, char *acu __unused) 109 1.1 cgd { 110 1.1 cgd 111 1.1 cgd return (biz_dialer(num, "f")); 112 1.1 cgd } 113 1.1 cgd 114 1.12 christos void 115 1.9 perry biz31_disconnect(void) 116 1.1 cgd { 117 1.1 cgd 118 1.12 christos (void)write(FD, DISCONNECT_CMD, 4); 119 1.12 christos (void)sleep(2); 120 1.12 christos (void)tcflush(FD, TCIOFLUSH); 121 1.1 cgd } 122 1.1 cgd 123 1.12 christos void 124 1.9 perry biz31_abort(void) 125 1.1 cgd { 126 1.1 cgd 127 1.12 christos (void)write(FD, "\33", 1); 128 1.1 cgd } 129 1.1 cgd 130 1.12 christos static void 131 1.12 christos echo(const char *s) 132 1.1 cgd { 133 1.1 cgd char c; 134 1.1 cgd 135 1.12 christos while ((c = *s++) != '\0') 136 1.12 christos switch (c) { 137 1.12 christos case '$': 138 1.12 christos (void)read(FD, &c, 1); 139 1.12 christos s++; 140 1.12 christos break; 141 1.12 christos 142 1.12 christos case '#': 143 1.12 christos c = *s++; 144 1.12 christos (void)write(FD, &c, 1); 145 1.12 christos break; 146 1.12 christos 147 1.12 christos default: 148 1.12 christos (void)write(FD, &c, 1); 149 1.12 christos (void)read(FD, &c, 1); 150 1.12 christos } 151 1.1 cgd } 152 1.1 cgd 153 1.1 cgd static void 154 1.12 christos /*ARGSUSED*/ 155 1.12 christos sigALRM(int signo __unused) 156 1.1 cgd { 157 1.1 cgd 158 1.1 cgd timeout = 1; 159 1.1 cgd longjmp(timeoutbuf, 1); 160 1.1 cgd } 161 1.1 cgd 162 1.1 cgd static int 163 1.12 christos detect(const char *s) 164 1.1 cgd { 165 1.1 cgd sig_t f; 166 1.1 cgd char c; 167 1.1 cgd 168 1.1 cgd f = signal(SIGALRM, sigALRM); 169 1.1 cgd timeout = 0; 170 1.1 cgd while (*s) { 171 1.1 cgd if (setjmp(timeoutbuf)) { 172 1.12 christos (void)printf("\07timeout waiting for reply\n"); 173 1.1 cgd biz31_abort(); 174 1.1 cgd break; 175 1.1 cgd } 176 1.12 christos (void)alarm((unsigned)number(value(DIALTIMEOUT))); 177 1.12 christos (void)read(FD, &c, 1); 178 1.12 christos (void)alarm(0); 179 1.1 cgd if (c != *s++) 180 1.1 cgd break; 181 1.1 cgd } 182 1.12 christos (void)signal(SIGALRM, f); 183 1.1 cgd return (timeout == 0); 184 1.1 cgd } 185 1.1 cgd 186 1.12 christos static void 187 1.12 christos flush(const char *s) 188 1.1 cgd { 189 1.1 cgd sig_t f; 190 1.1 cgd char c; 191 1.1 cgd 192 1.1 cgd f = signal(SIGALRM, sigALRM); 193 1.1 cgd while (*s++) { 194 1.1 cgd if (setjmp(timeoutbuf)) 195 1.1 cgd break; 196 1.12 christos (void)alarm(10); 197 1.12 christos (void)read(FD, &c, 1); 198 1.12 christos (void)alarm(0); 199 1.1 cgd } 200 1.12 christos (void)signal(SIGALRM, f); 201 1.1 cgd timeout = 0; /* guard against disconnection */ 202 1.1 cgd } 203 1.1 cgd 204 1.1 cgd /* 205 1.1 cgd * This convoluted piece of code attempts to get 206 1.1 cgd * the bizcomp in sync. If you don't have the capacity or nread 207 1.1 cgd * call there are gory ways to simulate this. 208 1.1 cgd */ 209 1.1 cgd static int 210 1.9 perry bizsync(int fd) 211 1.1 cgd { 212 1.1 cgd #ifdef FIOCAPACITY 213 1.1 cgd struct capacity b; 214 1.1 cgd # define chars(b) ((b).cp_nbytes) 215 1.1 cgd # define IOCTL FIOCAPACITY 216 1.1 cgd #endif 217 1.1 cgd #ifdef FIONREAD 218 1.1 cgd long b; 219 1.1 cgd # define chars(b) (b) 220 1.1 cgd # define IOCTL FIONREAD 221 1.1 cgd #endif 222 1.6 lukem int already = 0; 223 1.1 cgd char buf[10]; 224 1.1 cgd 225 1.1 cgd retry: 226 1.12 christos if (ioctl(fd, IOCTL, &b) >= 0 && chars(b) > 0) 227 1.12 christos (void)tcflush(FD, TCIOFLUSH); 228 1.12 christos (void)write(fd, "\rp>\r", 4); 229 1.12 christos (void)sleep(1); 230 1.12 christos if (ioctl(fd, IOCTL, &b) >= 0) { 231 1.1 cgd if (chars(b) != 10) { 232 1.1 cgd nono: 233 1.1 cgd if (already > MAXRETRY) 234 1.1 cgd return (0); 235 1.12 christos (void)write(fd, DISCONNECT_CMD, 4); 236 1.12 christos (void)sleep(2); 237 1.1 cgd already++; 238 1.1 cgd goto retry; 239 1.1 cgd } else { 240 1.12 christos (void)read(fd, buf, 10); 241 1.1 cgd if (strncmp(buf, "p >\r\n\r\n>", 8)) 242 1.1 cgd goto nono; 243 1.1 cgd } 244 1.1 cgd } 245 1.1 cgd return (1); 246 1.1 cgd } 247