Return to rlc.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / lisp

Annotation of 40BSD/cmd/lisp/rlc.c, revision 1.1

1.1     ! root        1: static char *sccsid = "@(#)rlc.c       34.2 10/9/80";
        !             2: 
        !             3: #define TRUE 1
        !             4: extern char holend[], end[];
        !             5: extern int usehole;
        !             6: extern char *curhbeg;
        !             7: 
        !             8: rlc()
        !             9: {
        !            10:        char *cp, *dp;
        !            11:        
        !            12:        brk(end);
        !            13:        dp = holend;
        !            14:        cp = dp - HOLE;
        !            15:        while (dp < end)
        !            16:                *dp++ = *cp++;
        !            17:        curhbeg = holend - HOLE;        /* set up the hole */
        !            18:        usehole = TRUE;
        !            19: }

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