Return to _stropen.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / stdio

Annotation of coherent/d/lib/libc/stdio/_stropen.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Standard I/O Library Internals
        !             3:  * open string for getc, putc
        !             4:  */
        !             5: 
        !             6: #include <stdio.h>
        !             7: #include <sys/mdata.h>
        !             8: 
        !             9: FILE *
        !            10: _stropen(string, length, fp)
        !            11: char   *string;
        !            12: int    length;
        !            13: register FILE  *fp;
        !            14: {
        !            15: #if !RSX
        !            16:        int     _fgeteof(),
        !            17:                _fputeos(),
        !            18:                _fputexs();
        !            19: 
        !            20:        fp->_bp = fp->_cp = string;
        !            21:        fp->_gt = &_fgeteof;
        !            22:        fp->_cc = -length;
        !            23:        if (fp->_cc < -MAXINT) {        /* most negative int means unlimited */
        !            24:                fp->_cc = MAXINT;
        !            25:                fp->_pt = &_fputexs;
        !            26:        } else
        !            27:                fp->_pt = &_fputeos;
        !            28: #else
        !            29:        fp->v_flag = VF_FIL;
        !            30:        fp->v_r0 = -length;
        !            31:        fp->v_r1 = string;
        !            32:        fp->v_rblk = 1L;        /* seek block > eof block */
        !            33:        fp->v_efbk = 0L;        /* => eof at end of string */
        !            34:        fp->v_uget = -1;
        !            35: #endif
        !            36:        return (fp);
        !            37: }
        !            38: 
        !            39: #if !RSX
        !            40: static
        !            41: int
        !            42: _fputeos(c, fp)
        !            43: unsigned char  c;
        !            44: register FILE  *fp;
        !            45: {
        !            46:        fp->_cc = 0;
        !            47:        return (EOF);
        !            48: }
        !            49: 
        !            50: static
        !            51: int
        !            52: _fputexs(c, fp)
        !            53: unsigned char  c;
        !            54: register FILE  *fp;
        !            55: {
        !            56:        fp->_cc = MAXINT;
        !            57:        return (*fp->_cp++ = c);
        !            58: }
        !            59: #endif

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