Return to swcinp.c CVS log

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

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

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

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