Return to swcinp.c CVS log

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

Annotation of researchv10no/cmd/spitbol/swcinp.c, revision 1.1

1.1     ! root        1: /*
        !             2:        swcinp( filecnt,fileptr ) is responsible for switching between
        !             3:        input files for standard input.  filecnt is the number of
        !             4:        input filnames specified on the command line and fileptr is
        !             5:        points to an array of character pointers.
        !             6: 
        !             7:        all files on the command line are read before the standard
        !             8:        input provided by the shell.  after all input is exhausted
        !             9:        a -1 is returned to indicate EOF.
        !            10: */
        !            11: 
        !            12: int    swcinp( filecnt,fileptr )
        !            13: int    filecnt;
        !            14: char   *fileptr[];
        !            15: 
        !            16: {
        !            17:        static  int     curfile = -1,
        !            18:                        originp = 0;
        !            19:        register int    fd;
        !            20: 
        !            21:        if (filecnt == 0) {
        !            22:                if (originp == 0) {
        !            23:                        --originp;
        !            24:                        fd = 0;
        !            25:                } else {
        !            26:                        fd = -1;
        !            27:                }
        !            28:        } else {
        !            29:                if (originp == -1)
        !            30:                        return  originp;
        !            31:                if (originp == 0)
        !            32:                        originp = dup( 0 );
        !            33:                close( 0 );
        !            34:                fd = -1;
        !            35:                if (curfile < filecnt - 1) {
        !            36:                        do {
        !            37:                                fd = open( fileptr[++curfile],0 );
        !            38:                                if (fd != 0) {
        !            39:                                        register int len = 0;
        !            40:                                        write( 2,"can't open ",11 );
        !            41:                                        while ( fileptr[curfile][len] != '\0' )
        !            42:                                                len++;
        !            43:                                        write( 2,fileptr[curfile],len );
        !            44:                                        write( 2,"\n",1 );
        !            45:                                }
        !            46:                        } while ( fd != 0 && curfile < filecnt - 1 );
        !            47:                }
        !            48:                if ( curfile == filecnt - 1 && fd != 0 ) {
        !            49:                        if (originp > 0) {
        !            50:                                fd = dup( originp );
        !            51:                                close( originp );
        !            52:                                originp = -1;
        !            53:                        } else {
        !            54:                                fd = -1;
        !            55:                        }
        !            56:                }
        !            57:        }
        !            58: 
        !            59:        return fd;
        !            60: }

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