Return to pen.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / uucp / aculib

Annotation of 43BSD/usr.bin/uucp/aculib/pen.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)pen.c      4.2 (Berkeley) 10/10/85";
                      3: #endif
                      4: 
                      5: /*
                      6:  *     Speaker's quick and dirty penril hack.  STA 4/1/85.
                      7:  */
                      8: #include "../condevs.h"
                      9: #ifdef PENRIL
                     10: 
                     11: penopn(telno, flds, dev)
                     12: char *flds[], *telno;
                     13: struct Devices *dev;
                     14: {
                     15:        int     dh;
                     16:        int     i, ok = -1;
                     17:        char dcname[20];
                     18: 
                     19:        sprintf(dcname, "/dev/%s", dev->D_line);
                     20:        if (setjmp(Sjbuf)) {
                     21:                DEBUG(1, "timeout penril open\n", "");
                     22:                logent("penril open", "TIMEOUT");
                     23:                if (dh >= 0)
                     24:                        close(dh);
                     25:                delock(dev->D_line);
                     26:                return CF_NODEV;
                     27:        }
                     28:        signal(SIGALRM, alarmtr);
                     29:        getnextfd();
                     30:        alarm(10);
                     31:        dh = open(dcname, 2);
                     32:        alarm(0);
                     33:        next_fd = -1;
                     34:        if (dh < 0) {
                     35:                DEBUG(4,"%s\n", errno == 4 ? "no carrier" : "can't open modem");
                     36:                delock(dev->D_line);
                     37:                return errno == 4 ? CF_DIAL : CF_NODEV;
                     38:        }
                     39: 
                     40:        /* modem is open */
                     41:        fixline(dh, dev->D_speed);
                     42: 
                     43:        /* translate - to P and = to W for Penril */
                     44:        DEBUG(4, "calling %s -> ", telno);
                     45:        for (i = 0; i < strlen(telno); ++i) {
                     46:                switch(telno[i]) {
                     47:                case '-':       /* delay */
                     48:                        telno[i] = 'P';
                     49:                        break;
                     50:                case '=':       /* await dial tone */
                     51:                        telno[i] = 'W';
                     52:                        break;
                     53:                case '<':
                     54:                        telno[i] = 'P';
                     55:                        break;
                     56:                }
                     57:        }
                     58:        DEBUG(4, "%s\n", telno);
                     59:        sleep(1);
                     60:        for(i = 0; i < 5; ++i) {        /* make up to 5 tries */
                     61:                slowrite(dh, "\r");/* awake, thou lowly Penril! */
                     62: 
                     63:                DEBUG(4, "wanted %s ", ">");
                     64:                ok = expect(">", dh);
                     65:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     66:                if (ok != 0)
                     67:                        continue;
                     68:                slowrite(dh, "K");      /* "K" (enter number) command */
                     69:                DEBUG(4, "wanted %s ", "NO.: ");
                     70:                ok = expect("NO.: ", dh);
                     71:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     72:                if (ok == 0)
                     73:                        break;
                     74:        }
                     75: 
                     76:        if (ok == 0) {
                     77:                slowrite(dh, telno); /* send telno, send \r */
                     78:                slowrite(dh, "\r");
                     79:                DEBUG(4, "wanted %s ", "OK");
                     80:                ok = expect("OK", dh);
                     81:                DEBUG(4, "got %s\n", ok ? "?" : "that");
                     82:        }
                     83:        if (ok != 0) {
                     84:                if (dh > 2)
                     85:                        close(dh);
                     86:                DEBUG(4, "penDial failed\n", "");
                     87:                return CF_DIAL;
                     88:        }
                     89:        else
                     90:                DEBUG(4, "penDial ok\n", "");
                     91:        return dh;
                     92: }
                     93: 
                     94: pencls(fd)
                     95: int fd;
                     96: {
                     97:        if (fd > 0) {
                     98:                close(fd);
                     99:                sleep(5);
                    100:                delock(devSel);
                    101:        }
                    102: }
                    103: #endif PENRIL

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.