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

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.