Return to _shove.c CVS log

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

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

1.1     ! root        1: /*     @(#)_shove.c    1.1     (1.22)  */
        !             2: #include "curses.ext"
        !             3: 
        !             4: /*
        !             5:  * Shove right in body as much as necessary.
        !             6:  * Note that we give the space the same attributes as the upcoming
        !             7:  * character, to force the cookie to be placed on the space.
        !             8:  */
        !             9: /* ARGSUSED */
        !            10: _shove(body, len, lno)
        !            11: register chtype *body;
        !            12: register int len, lno;
        !            13: {
        !            14:        register int j, k, prev = 0;
        !            15:        register int curscol = SP->virt_x, cursincr = 0, shoved = 0;
        !            16:        static chtype buf[256];
        !            17: 
        !            18: #ifdef DEBUG
        !            19:        if(outf) fprintf(outf, "_shove('");
        !            20:        _prstr(body, len);
        !            21:        if(outf) fprintf(outf, "', %d, %d), SP->virt_x %d\n", len, lno, SP->virt_x);
        !            22: #endif
        !            23:        for (j=0, k=0; j<len; ) {
        !            24:                if ((body[j]&A_ATTRIBUTES) != prev) {
        !            25:                        shoved++;
        !            26:                        if ((body[j]&A_CHARTEXT) == ' ') {
        !            27:                                /* Using an existing space */
        !            28:                                buf[j] = ' ' | body[j+1]&A_ATTRIBUTES;
        !            29:                        } else if ((body[j-1]&A_CHARTEXT) == ' ') {
        !            30:                                /* Using previous existing space */
        !            31:                                buf[j-1] = ' ' | body[j]&A_ATTRIBUTES;
        !            32:                        } else {
        !            33:                                /* A space is inserted here. */
        !            34:                                buf[k++] = ' ' | body[j]&A_ATTRIBUTES;
        !            35:                                if (j < curscol)
        !            36:                                        cursincr++;
        !            37:                        }
        !            38:                }
        !            39: #ifdef DEBUG
        !            40:                if(outf) fprintf(outf, "j %d, k %d, prev %o, new %o\n",
        !            41:                        j, k, prev, body[j] & A_ATTRIBUTES);
        !            42: #endif
        !            43:                prev = body[j] & A_ATTRIBUTES;
        !            44:                buf[k++] = body[j++];
        !            45:        }
        !            46:        if (shoved) {
        !            47:                /* k is 1 more than the last column of the line */
        !            48:                if (k > columns)
        !            49:                        k = columns;
        !            50:                if (buf[k-1]&A_ATTRIBUTES) {
        !            51:                        if (k < columns)
        !            52:                                k++;
        !            53:                        buf[k-1] = ' '; /* All attributes off */
        !            54:                }
        !            55:                for (j=0; j<k; j++)
        !            56:                        body[j] = buf[j];
        !            57:                len = k;
        !            58:        }
        !            59:        if (cursincr && lno == SP->virt_y+1)
        !            60:                SP->virt_x += cursincr;
        !            61: #ifdef DEBUG
        !            62:        if(outf) fprintf(outf, "returns '");
        !            63:        _prstr(body, len);
        !            64:        if(outf) fprintf(outf, "', len %d, SP->virt_x %d\n", len, SP->virt_x);
        !            65: #endif
        !            66:        return len;
        !            67: }
        !            68: 
        !            69: #ifdef DEBUG
        !            70: static
        !            71: _prstr(result, len)
        !            72: chtype *result;
        !            73: int len;
        !            74: {
        !            75:        register chtype *cp;
        !            76: 
        !            77:        for (cp=result; *cp && cp < result+len; cp++)
        !            78:                if (*cp >= ' ' && *cp <= '~') {
        !            79:                        if(outf) fprintf(outf, "%c", *cp);
        !            80:                } else {
        !            81:                        if(outf) fprintf(outf, "<%o,%c>",
        !            82:                                *cp&A_ATTRIBUTES, *cp&A_CHARTEXT);
        !            83:                }
        !            84: }
        !            85: #endif

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