Return to gpib.c CVS log

Up to [Research Unix] / researchv10no / cmd / qsnap

Annotation of researchv10no/cmd/qsnap/gpib.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * This software is provided solely for use with
                      3:  * the National Instruments GPIB11-series interfaces.
                      4:  *
                      5:  * Copyright 1980, 1983 National Instruments
                      6:  *
                      7:  * Jeffrey Kodosky
                      8:  * REV D:  10/09/83
                      9:  */
                     10: #include       <sgtty.h>
                     11: 
                     12: #define OK     1
                     13: #define EIO    5
                     14: #define ENOFUN (-7)
                     15: #define ELOOKU (-100)
                     16: #define stty(a,b)      ioctl(a, TIOCSETP, b)
                     17: #define gtty(a,b)      ioctl(a, TIOCGETP, b)
                     18: 
                     19: static int ibfd= -1, timo= 10;
                     20: static char rmd= -1, eod= 0, wmd= -1;
                     21: static spfn[3];
                     22: extern int errno;
                     23: 
                     24: gpib(f, a1, a2, a3, a4)
                     25: {
                     26:        register int x;
                     27: 
                     28:        if(ibfd < 0){
                     29:                if((ibfd = open("/dev/ib", 2)) < 0)
                     30:                        return(geterror());
                     31:        }
                     32:        spfn[0] = f-2;
                     33:        switch(f)
                     34:        {
                     35:        default:
                     36:                return ENOFUN;
                     37:        case 0:
                     38:                spfn[0] = 0;                            /* command */
                     39:                if(stty(ibfd,spfn) < 0)
                     40:                {       printf("hit\n");
                     41:                        return(geterror());
                     42:                }
                     43:                if((x = write(ibfd, a1, a2)) < 0)
                     44:                {       printf("write returns %d\n", x);
                     45:                        return geterror();
                     46:                }
                     47:                return(x);
                     48:        case 1:
                     49:                if(wmd != a3){                          /* write */
                     50:                        wmd = a3;
                     51:                        if(setmodes() < 0)
                     52:                                return(geterror());
                     53:                }
                     54:                if((x = write(ibfd, a1, a2)) < 0)
                     55:                        return geterror();
                     56:                return(x);
                     57:        case 2:
                     58:                if((rmd != a3) || (a3&2) && (eod != a4)){       /* read */
                     59:                        rmd = a3;
                     60:                        eod = a4;
                     61:                        if(setmodes() < 0)
                     62:                                return(geterror());
                     63:                }
                     64:                if((x = read(ibfd, a1, a2)) < 0)
                     65:                        return(geterror());
                     66:                return(x);
                     67:        case 16:                                        /* spbyte */
                     68:                spfn[0]--;
                     69:        case 9:                         /* setstat, monitor, testsrq */
                     70:        case 10:                        /* setstat, monitor, testsrq */
                     71:        case 13:                        /* setstat, monitor, testsrq */
                     72:                spfn[1] = a1;
                     73:        case 3:                         /* transfer, clear, remote */
                     74:        case 4:                         /* transfer, clear, remote */
                     75:        case 5:                         /* transfer, clear, remote */
                     76:        case 6:                         /* local, passctrl */
                     77:        case 8:                         /* local, passctrl */
                     78:                if(stty(ibfd, spfn) < 0)
                     79:                        return(geterror());
                     80:                return(1);
                     81:        case 15:                                        /* status */
                     82:                spfn[2] = a2;
                     83:                spfn[1] = a1;
                     84:                spfn[0]--;
                     85:        case 7:                         /* ppoll, readcmd */
                     86:        case 11:                                /* ppoll, readcmd */
                     87:                if(stty(ibfd, spfn) < 0)
                     88:                        return(geterror());
                     89:                if(gtty(ibfd, spfn) < 0)
                     90:                        return(ELOOKU);
                     91:                return(spfn[0]);
                     92:        case 12:
                     93:                timo= a1;                               /* setparam */
                     94:                if(setmodes() < 0)
                     95:                        return(geterror());
                     96:                return(1);
                     97:        case 14:
                     98:                if(close(ibfd) < 0)
                     99:                        return(geterror());     /* finish */
                    100:                ibfd = -1;
                    101:                timo = 10;
                    102:                rmd = 0;
                    103:                eod = 0;
                    104:                wmd = 0;
                    105:                return(1);
                    106:        }
                    107: }
                    108: 
                    109: static
                    110: setmodes()
                    111: {
                    112:        spfn[0] = 10;
                    113:        spfn[1] = timo;
                    114:        spfn[2] = (wmd&017) | ((rmd&017)<<4) | (eod<<8);
                    115:        return(stty(ibfd,spfn));
                    116: }
                    117: 
                    118: static
                    119: geterror()
                    120: {
                    121:        if((errno != EIO) || (gtty(ibfd,spfn) < 0))
                    122:                return(ELOOKU);
                    123:        return(spfn[0]);
                    124: }

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