Return to str.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / sam / term

Annotation of researchv9/jerq/src/sam/term/str.c, revision 1.1

1.1     ! root        1: #include "frame.h"
        !             2: 
        !             3: /*
        !             4:  * The code here and elsewhere requires that strings not be gcalloc()ed
        !             5:  */
        !             6: 
        !             7: #define        CHUNK   16
        !             8: #define        ROUNDUP(n)      ((n+CHUNK)&~(CHUNK-1))
        !             9: long   clicks;
        !            10: uchar *
        !            11: allocstr(n)
        !            12:        unsigned n;
        !            13: {
        !            14:        register uchar *p;
        !            15:        p=(uchar *)alloc(ROUNDUP(n));
        !            16:        if(p==0)
        !            17:                panic("out of memory");
        !            18:        return p;
        !            19: }
        !            20: insure(b, n)
        !            21:        register Box *b;
        !            22:        unsigned n;
        !            23: {
        !            24:        register uchar *p;
        !            25:        if(b->len<0)
        !            26:                panic("insure");
        !            27:        if(ROUNDUP(b->len)>n)   /* > guarantees room for terminal NUL */
        !            28:                return;
        !            29:        p=allocstr(n);
        !            30:        copystr(b->ptr, p);
        !            31:        freestr(b->ptr);
        !            32:        b->ptr=p;
        !            33: }
        !            34: freestr(s)
        !            35:        uchar *s;
        !            36: {
        !            37:        free((char *)s);
        !            38: }
        !            39: copystr(from, to)
        !            40:        register uchar *from, *to;
        !            41: {
        !            42:        do;while(*to++=*from++);
        !            43: }

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