![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to v831.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / usr.bin / tip / aculib|
Return to v831.c CVS log | Up to [CSRG BSD Unix] / 42BSD / usr.bin / tip / aculib |
1.1 ! root 1: #ifndef lint ! 2: static char sccsid[] = "@(#)v831.c 4.5 (Berkeley) 6/25/83"; ! 3: #endif ! 4: ! 5: /* ! 6: * Routines for dialing up on Vadic 831 ! 7: */ ! 8: #include <sys/time.h> ! 9: ! 10: #include "tip.h" ! 11: ! 12: int v831_abort(); ! 13: static int alarmtr(); ! 14: extern errno; ! 15: ! 16: static jmp_buf jmpbuf; ! 17: static int child = -1; ! 18: ! 19: v831_dialer(num, acu) ! 20: char *num, *acu; ! 21: { ! 22: int status, pid, connected = 1; ! 23: register int timelim; ! 24: ! 25: if (boolean(value(VERBOSE))) ! 26: printf("\nstarting call..."); ! 27: #ifdef DEBUG ! 28: printf ("(acu=%s)\n", acu); ! 29: #endif ! 30: if ((AC = open(acu, O_RDWR)) < 0) { ! 31: if (errno == EBUSY) ! 32: printf("line busy..."); ! 33: else ! 34: printf("acu open error..."); ! 35: return (0); ! 36: } ! 37: if (setjmp(jmpbuf)) { ! 38: kill(child, SIGKILL); ! 39: close(AC); ! 40: return (0); ! 41: } ! 42: signal(SIGALRM, alarmtr); ! 43: timelim = 5 * strlen(num); ! 44: alarm(timelim < 30 ? 30 : timelim); ! 45: if ((child = fork()) == 0) { ! 46: /* ! 47: * ignore this stuff for aborts ! 48: */ ! 49: signal(SIGALRM, SIG_IGN); ! 50: signal(SIGINT, SIG_IGN); ! 51: signal(SIGQUIT, SIG_IGN); ! 52: sleep(2); ! 53: exit(dialit(num, acu) != 'A'); ! 54: } ! 55: /* ! 56: * open line - will return on carrier ! 57: */ ! 58: if ((FD = open(DV, O_RDWR)) < 0) { ! 59: #ifdef DEBUG ! 60: printf("(after open, errno=%d)\n", errno); ! 61: #endif ! 62: if (errno == EIO) ! 63: printf("lost carrier..."); ! 64: else ! 65: printf("dialup line open failed..."); ! 66: alarm(0); ! 67: kill(child, SIGKILL); ! 68: close(AC); ! 69: return (0); ! 70: } ! 71: alarm(0); ! 72: #ifdef notdef ! 73: ioctl(AC, TIOCHPCL, 0); ! 74: #endif ! 75: signal(SIGALRM, SIG_DFL); ! 76: while ((pid = wait(&status)) != child && pid != -1) ! 77: ; ! 78: if (status) { ! 79: close(AC); ! 80: return (0); ! 81: } ! 82: return (1); ! 83: } ! 84: ! 85: static ! 86: alarmtr() ! 87: { ! 88: ! 89: alarm(0); ! 90: longjmp(jmpbuf, 1); ! 91: } ! 92: ! 93: /* ! 94: * Insurance, for some reason we don't seem to be ! 95: * hanging up... ! 96: */ ! 97: v831_disconnect() ! 98: { ! 99: struct sgttyb cntrl; ! 100: ! 101: sleep(2); ! 102: #ifdef DEBUG ! 103: printf("[disconnect: FD=%d]\n", FD); ! 104: #endif ! 105: if (FD > 0) { ! 106: ioctl(FD, TIOCCDTR, 0); ! 107: ioctl(FD, TIOCGETP, &cntrl); ! 108: cntrl.sg_ispeed = cntrl.sg_ospeed = 0; ! 109: ioctl(FD, TIOCSETP, &cntrl); ! 110: ioctl(FD, TIOCNXCL, (struct sgttyb *)NULL); ! 111: } ! 112: close(FD); ! 113: } ! 114: ! 115: v831_abort() ! 116: { ! 117: ! 118: #ifdef DEBUG ! 119: printf("[abort: AC=%d]\n", AC); ! 120: #endif ! 121: sleep(2); ! 122: if (child > 0) ! 123: kill(child, SIGKILL); ! 124: if (AC > 0) ! 125: ioctl(FD, TIOCNXCL, (struct sgttyb *)NULL); ! 126: close(AC); ! 127: if (FD > 0) ! 128: ioctl(FD, TIOCCDTR, 0); ! 129: close(FD); ! 130: } ! 131: ! 132: /* ! 133: * Sigh, this probably must be changed at each site. ! 134: */ ! 135: struct vaconfig { ! 136: char *vc_name; ! 137: char vc_rack; ! 138: char vc_modem; ! 139: } vaconfig[] = { ! 140: { "/dev/cua0",'4','0' }, ! 141: { "/dev/cua1",'4','1' }, ! 142: { 0 } ! 143: }; ! 144: ! 145: #define pc(x) (c = x, write(AC,&c,1)) ! 146: #define ABORT 01 ! 147: #define SI 017 ! 148: #define STX 02 ! 149: #define ETX 03 ! 150: ! 151: static ! 152: dialit(phonenum, acu) ! 153: register char *phonenum; ! 154: char *acu; ! 155: { ! 156: register struct vaconfig *vp; ! 157: struct sgttyb cntrl; ! 158: char c, *sanitize(); ! 159: int i, two = 2; ! 160: ! 161: phonenum = sanitize(phonenum); ! 162: #ifdef DEBUG ! 163: printf ("(dial phonenum=%s)\n", phonenum); ! 164: #endif ! 165: if (*phonenum == '<' && phonenum[1] == 0) ! 166: return ('Z'); ! 167: for (vp = vaconfig; vp->vc_name; vp++) ! 168: if (strcmp(vp->vc_name, acu) == 0) ! 169: break; ! 170: if (vp->vc_name == 0) { ! 171: printf("Unable to locate dialer (%s)\n", acu); ! 172: return ('K'); ! 173: } ! 174: ioctl(AC, TIOCGETP, &cntrl); ! 175: cntrl.sg_ispeed = cntrl.sg_ospeed = B2400; ! 176: cntrl.sg_flags = RAW | EVENP | ODDP; ! 177: ioctl(AC, TIOCSETP, &cntrl); ! 178: ioctl(AC, TIOCFLUSH, &two); ! 179: pc(STX); ! 180: pc(vp->vc_rack); ! 181: pc(vp->vc_modem); ! 182: while (*phonenum && *phonenum != '<') ! 183: pc(*phonenum++); ! 184: pc(SI); ! 185: pc(ETX); ! 186: sleep(1); ! 187: i = read(AC, &c, 1); ! 188: #ifdef DEBUG ! 189: printf("read %d chars, char=%c, errno %d\n", i, c, errno); ! 190: #endif ! 191: if (i != 1) ! 192: c = 'M'; ! 193: if (c == 'B' || c == 'G') { ! 194: char cc, oc = c; ! 195: ! 196: pc(ABORT); ! 197: read(AC, &cc, 1); ! 198: #ifdef DEBUG ! 199: printf("abort response=%c\n", cc); ! 200: #endif ! 201: c = oc; ! 202: v831_disconnect(); ! 203: } ! 204: close(AC); ! 205: #ifdef DEBUG ! 206: printf("dialit: returns %c\n", c); ! 207: #endif ! 208: return (c); ! 209: } ! 210: ! 211: static char * ! 212: sanitize(s) ! 213: register char *s; ! 214: { ! 215: static char buf[128]; ! 216: register char *cp; ! 217: ! 218: for (cp = buf; *s; s++) { ! 219: if (!isdigit(*s) && *s == '<' && *s != '_') ! 220: continue; ! 221: if (*s == '_') ! 222: *s = '='; ! 223: *cp++ = *s; ! 224: } ! 225: *cp++ = 0; ! 226: return (buf); ! 227: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.