Return to _delchars.c CVS log

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

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

1.1     ! root        1: /*     @(#) _delchars.c: 1.1 10/15/83  (1.21   2/11/83)        */
        !             2: 
        !             3: #include "curses.ext"
        !             4: 
        !             5: extern int     _outch();
        !             6: 
        !             7: /*
        !             8:  * Delete n characters.
        !             9:  */
        !            10: _delchars (n)
        !            11: {
        !            12: #ifdef DEBUG
        !            13:        if(outf) fprintf(outf, "_delchars(%d).\n", n);
        !            14: #endif
        !            15:        if (enter_delete_mode) {
        !            16:                if (strcmp(enter_delete_mode, enter_insert_mode) == 0) {
        !            17:                        if (SP->phys_irm == 0) {
        !            18:                                tputs(enter_delete_mode,1,_outch);
        !            19:                                SP->phys_irm = 1;
        !            20:                        } 
        !            21:                }
        !            22:                else {
        !            23:                        if (SP->phys_irm == 1) {
        !            24:                                tputs(exit_insert_mode,1,_outch);
        !            25:                                SP->phys_irm = 0;
        !            26:                        }
        !            27:                        tputs(enter_delete_mode,1,_outch);
        !            28:                }
        !            29:        }
        !            30:        while (--n >= 0) {
        !            31:                /* Only one line can be affected by our delete char */
        !            32:                tputs(delete_character, 1, _outch);
        !            33:        }
        !            34:        if (exit_delete_mode) {
        !            35:                if (strcmp(exit_delete_mode, exit_insert_mode) == 0)
        !            36:                        SP->phys_irm = 0;
        !            37:                else
        !            38:                        tputs(exit_delete_mode, 1, _outch);
        !            39:        }
        !            40: }

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