Return to _blanks.c CVS log

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

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

1.1     ! root        1: /*     @(#) _blanks.c: 1.1 10/15/83    (1.21   2/11/83)        */
        !             2: 
        !             3: #include "curses.ext"
        !             4: 
        !             5: extern int     _outch();
        !             6: extern int     _sethl();
        !             7: extern int     _setmode();
        !             8: extern char    *tparm();
        !             9: extern int     tputs();
        !            10: 
        !            11: /*
        !            12:  * Output n blanks, or the equivalent.  This is done to erase text, and
        !            13:  * also to insert blanks.  The semantics of this call do not define where
        !            14:  * it leaves the cursor - it might be where it was before, or it might
        !            15:  * be at the end of the blanks.  We will, of course, leave SP->phys_x
        !            16:  * properly updated.
        !            17:  */
        !            18: _blanks (n)
        !            19: {
        !            20: #ifdef DEBUG
        !            21:        if(outf) fprintf(outf, "_blanks(%d).\n", n);
        !            22: #endif
        !            23:        if (n == 0)
        !            24:                return;
        !            25:        _setmode ();
        !            26:        _sethl ();
        !            27:        if (SP->virt_irm==1 && parm_ich) {
        !            28:                if (n == 1)
        !            29:                        tputs(insert_character, 1, _outch);
        !            30:                else
        !            31:                        tputs(tparm(parm_ich, n), n, _outch);
        !            32:                return;
        !            33:        }
        !            34:        if (erase_chars && SP->phys_irm != 1 && n > 5) {
        !            35:                tputs(tparm(erase_chars, n), n, _outch);
        !            36:                return;
        !            37:        }
        !            38:        if (repeat_char && SP->phys_irm != 1 && n > 5) {
        !            39:                tputs(tparm(repeat_char, ' ', n), n, _outch);
        !            40:                SP->phys_x += n;
        !            41:                return;
        !            42:        }
        !            43:        while (--n >= 0) {
        !            44:                if (SP->phys_irm == 1 && insert_character)
        !            45:                        tputs (insert_character, columns - SP->phys_x, _outch);
        !            46:                if (++SP->phys_x >= columns && auto_right_margin) {
        !            47:                        if (SP->phys_y >= lines-1) {
        !            48:                                /*
        !            49:                                 * We attempted to put something in the last
        !            50:                                 * position of the last line.  Since this will
        !            51:                                 * cause a scroll (we only get here if the
        !            52:                                 * terminal has auto_right_margin) we refuse
        !            53:                                 * to put it out.
        !            54:                                 */
        !            55:                                SP->phys_x--;
        !            56:                                return;
        !            57:                        }
        !            58:                        SP->phys_x = 0;
        !            59:                        SP->phys_y++;
        !            60:                }
        !            61:                _outch (' ');
        !            62:                if (SP->phys_irm == 1 && insert_padding)
        !            63:                        tputs (insert_padding, 1, _outch);
        !            64:        }
        !            65: }

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