Return to bput.sav CVS log

Up to [MW Coherent from dump] / coherent / d / bin / cc / c / common

Annotation of coherent/d/bin/cc/c/common/bput.sav, revision 1.1

1.1     ! root        1: /*
        !             2:  * Standard stream library for the
        !             3:  * C compiler and other compilers that use
        !             4:  * C compiler factilities.
        !             5:  * Output a byte.
        !             6:  */
        !             7: 
        !             8: #include <stdio.h>
        !             9: #ifdef   vax
        !            10: #include "INC$LIB:mch.h"
        !            11: #include "INC$LIB:stream.h"
        !            12: #else
        !            13: #include "mch.h"
        !            14: #include "stream.h"
        !            15: #endif
        !            16: 
        !            17: extern FILE    *ofp;
        !            18: 
        !            19: bput(b)
        !            20: int b;
        !            21: {
        !            22: #if    COHERENT || VAX
        !            23:        /*
        !            24:         * Some versions VAX and i8086 stdio putc(b, ofp) return EOF (-1)
        !            25:         * for char arg 255 (because the argument gets sign-extended from
        !            26:         * char 0xFF to int 0xFFFF, and putc returns its arg on success
        !            27:         * without masking it).  The following line avoids this bug.
        !            28:         */
        !            29:        b &= 0xFF;              /* avoid putc sign-extension bug */
        !            30: #endif
        !            31: #if    TEMPBUF
        !            32:        if (ofp == NULL) {
        !            33:                if (outbufp == outbufmax)
        !            34:                        cfatal("out of space in memory buffer");
        !            35:                *outbufp++ = b;
        !            36:                return;
        !            37:        }
        !            38: #endif
        !            39: #if    MSDOS
        !            40:        if (_binputc(b, ofp) == EOF)
        !            41: #else
        !            42:        if (putc(b, ofp) == EOF)
        !            43: #endif
        !            44:                cfatal("temporary file write error");
        !            45: }

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