Return to append.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / gutil

Annotation of 42BSD/ingres/source/gutil/append.c, revision 1.1

1.1     ! root        1: # include      <sccs.h>
        !             2: 
        !             3: SCCSID(@(#)append.c    7.1     2/5/81)
        !             4: 
        !             5: /*
        !             6: **  APPEND -- block concatenate
        !             7: **
        !             8: **     block `b1' of length `l1' is concatenated to block
        !             9: **     `b2' of length `l2', giving `b3'.
        !            10: **
        !            11: **     Returns the address of the next byte available after
        !            12: **     the end of `b3'.
        !            13: */
        !            14: 
        !            15: char *
        !            16: append(b1, l1, b2, l2, b3)
        !            17: int    l1, l2;
        !            18: char   *b1, *b2, *b3;
        !            19: {
        !            20:        register char   *p, *q;
        !            21:        register int    n;
        !            22: 
        !            23:        p = b3;
        !            24:        n = l1;
        !            25:        q = b1;
        !            26:        while (n-- > 0)
        !            27:                *p++ = *q++;
        !            28:        n = l2;
        !            29:        q = b2;
        !            30:        while (n-- > 0)
        !            31:                *p++ = *q++;
        !            32:        return (p);
        !            33: }

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