Return to swcoup.c CVS log

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

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

1.1     ! root        1: /*
        !             2:        swcoup( oupptr ) switches between 2 output files:  the
        !             3:        standard output file provided by the shell and the optional
        !             4:        output file provided by the -o option.
        !             5: 
        !             6:        the switching is as follows:
        !             7: 
        !             8:        program listing, compilation statisitics, execution statistics,
        !             9:        and dump of variables at termination go to the -o file, if
        !            10:        specified.
        !            11: 
        !            12:        standard output produced by the executing program goes to the
        !            13:        standard output file provided by the shell.
        !            14: */
        !            15: 
        !            16: int swcoup( oupptr )
        !            17: char   *oupptr;
        !            18: 
        !            19: {
        !            20:        static  int     errflag = 0,
        !            21:                        origoup = 0,
        !            22:                        state   = 0;
        !            23:                int     fd,retval;
        !            24: 
        !            25:        retval  = 0;
        !            26:        if (oupptr == 0)
        !            27:                return  0;
        !            28: 
        !            29:        if (errflag != 0)
        !            30:                return  0;
        !            31: 
        !            32:        switch ( state ) {
        !            33: 
        !            34:                /*      1st switch:  standard output -> -o file */
        !            35: 
        !            36:                case 0: origoup = dup( 1 );
        !            37:                                  close( 1 );
        !            38:                        fd      = creat( oupptr,0666 );
        !            39:                        if ( fd < 0 ) {
        !            40:                                write( 2,"-o file open error\n",19 );
        !            41:                                ++errflag;
        !            42:                                fd      = dup( origoup );
        !            43:                                close( origoup );
        !            44:                                retval  = -1;
        !            45:                        }
        !            46:                        break;
        !            47: 
        !            48:                /*      2nd switch:  standard output -> shell output file  */
        !            49: 
        !            50:                case 1: close( 1 );
        !            51:                        fd      = dup( origoup );
        !            52:                        close( origoup );
        !            53:                        break;
        !            54: 
        !            55:                /*      3rd switch:  standard output -> -o file */
        !            56: 
        !            57:                case 2: close( 1 );
        !            58:                        fd      = open( oupptr,1 );
        !            59:                        if ( fd < 0 ) {
        !            60:                                write( 2,"error reopening\n",16 );
        !            61:                        }
        !            62:                                lseek( 1,0,2 );
        !            63:                        break;
        !            64: 
        !            65:                default:
        !            66:                        write( 2,"swcinp too many times\n",22 );
        !            67:        }
        !            68:        ++state;
        !            69:        return  retval;
        !            70: }

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