Return to sget.c CVS log

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

Annotation of coherent/b/bin/c/common/sget.c, 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:  * Input a string of max. length 'n'.
        !             6:  */
        !             7: #include <stdio.h>
        !             8: #ifdef   vax
        !             9: #include "INC$LIB:mch.h"
        !            10: #else
        !            11: #include "mch.h"
        !            12: #endif
        !            13: 
        !            14: sget(p, n)
        !            15: register char  *p;
        !            16: register       n;
        !            17: {
        !            18:        register c;
        !            19: 
        !            20:        while (c = bget()) {
        !            21:                if (c == EOF)
        !            22:                        cfatal("unexpected EOF");
        !            23:                if (n>1) {
        !            24:                        *p++ = c;
        !            25:                        --n;
        !            26:                }
        !            27:        }
        !            28:        *p = 0;
        !            29: }

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