Return to _comphash.c CVS log

Up to [Research Unix] / researchv10no / ncurses / screen

Annotation of researchv10no/ncurses/screen/_comphash.c, revision 1.1

1.1     ! root        1: /*     @(#) _comphash.c: 1.1 10/15/83  (1.9    10/27/82)       */
        !             2: 
        !             3: #include "curses.ext"
        !             4: 
        !             5: _comphash (p)
        !             6: register struct line   *p;
        !             7: {
        !             8:        register chtype  *c, *l;
        !             9:        register int rc;
        !            10: 
        !            11:        if (p == NULL)
        !            12:                return;
        !            13:        if (p -> hash)
        !            14:                return;
        !            15:        rc = 1;
        !            16:        c = p -> body;
        !            17:        l = &p -> body[p -> length];
        !            18:        while (--l > c && *l == ' ')
        !            19:                ;
        !            20:        while (c <= l && *c == ' ')
        !            21:                c++;
        !            22:        p -> bodylen = l - c + 1;
        !            23:        while (c <= l)
        !            24:                rc = (rc<<1) + *c++;
        !            25:        p -> hash = rc;
        !            26:        if (p->hash == 0)
        !            27:                p->hash = 123;
        !            28: }

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