Return to osopen.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/osopen.c, revision 1.1.1.1

1.1       root        1: 
                      2: /*
                      3:  *     osopen( ioptr ) ensures that the file represented by the ioblk
                      4:  *     is open.
                      5:  */
                      6: 
                      7: #include "spitblks.h"
                      8: #include "spitio.h"
                      9: 
                     10: int    osopen( ioptr )
                     11: 
                     12: struct ioblk   *ioptr;
                     13: 
                     14: {
                     15:        int     fd = -1, len, savchr;
                     16:        char    *cp;
                     17:        struct  scblk   *scptr;
                     18: 
                     19:        if ( ioptr -> flg & IO_OPN )
                     20:                return 0;
                     21: 
                     22:        scptr   = ioptr -> fnm;
                     23:        cp      = scptr -> str;
                     24: 
                     25:        len     = lenfnm( scptr );
                     26:         if ( cp[0] == '!' ) {
                     27:                ioptr -> flg |= IO_PIP;
                     28:        } else {
                     29:                savchr  = cp[len];
                     30:                cp[len] = 0;
                     31:        }
                     32: 
                     33:        if ( ioptr -> flg & IO_PIP ) {
                     34:                fd      = ospipe( ioptr );
                     35:        } else if ( ioptr -> flg & IO_INP ) {
                     36:                fd      = open( cp,0 );
                     37:        } else {
                     38:                if ( ioptr -> flg & IO_APP ) {
                     39:                        fd      = open( cp,1 );
                     40:                        if ( fd != 0 )
                     41:                                lseek( fd,0,2 );
                     42:                }
                     43:                if ( fd < 0 )
                     44:                        fd      = creat( cp,0666 );
                     45:        }
                     46: 
                     47:        if ( !(ioptr -> flg & IO_PIP) )
                     48:                cp[len] = savchr;
                     49: 
                     50:        if (fd > 0) {
                     51:                ioptr -> fdn = fd;
                     52:                ioptr -> flg |= IO_OPN;
                     53:                if ( (ioptr -> flg & IO_INP) == 0 && testty( fd ) == 0 )
                     54:                        ioptr -> flg |= IO_WRC;
                     55:                if ( ioptr -> flg & IO_WRC )
                     56:                        ioptr -> buf = 0;
                     57:                return 0;
                     58:        } else {
                     59:                return -1;
                     60:        }
                     61: 
                     62: }
                     63: 

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