home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / cprog / cursesp.zip / CHARDEL.C < prev    next >
C/C++ Source or Header  |  1991-12-02  |  3KB  |  92 lines
  1. /****************************************************************/
  2. /* Wdelch() routine of the PCcurses package                     */
  3. /*                                                              */
  4. /****************************************************************/
  5. /* This version of curses is based on ncurses, a curses version */
  6. /* originally written by Pavel Curtis at Cornell University.    */
  7. /* I have made substantial changes to make it run on IBM PC's,  */
  8. /* and therefore consider myself free to make it public domain. */
  9. /*              Bjorn Larsson (...mcvax!enea!infovax!bl)        */
  10. /****************************************************************/
  11. /* 1.0: Release:                                        870515  */
  12. /* 1.2: Max limits off by 1. Fixed thanks to S. Creps:  881002  */
  13. /* 1.3: MSC -W3, Turbo'C' -w -w-pro checkes:            881005  */
  14. /****************************************************************/
  15.  
  16. #include <curses.h>
  17. #include <curspriv.h>
  18.  
  19. char _curses_chardel_rcsid[] = "@(#)chardel.c v1.3 - 881005";
  20.  
  21. /****************************************************************/
  22. /* Wdelch() deletes the character at the window cursor, and the */
  23. /* characters to the right of it are shifted left, inserting a  */
  24. /* space at the last position of the line.                      */
  25. /****************************************************************/
  26.  
  27. int     wdelch(win)
  28.   WINDOW        *win;
  29.   {
  30.   int           *temp1;
  31.   int           *temp2;
  32.   int           *end;
  33.   short  y = win->_cury;
  34.   short  x = win->_curx;
  35.   short  maxx = win->_maxx - 1;
  36.  
  37.   end = &win->_line[y][maxx];
  38.   temp1 = &win->_line[y][x];
  39.   temp2 = temp1 + 1;
  40.   while (temp1 < end)
  41.     *temp1++ = *temp2++;
  42.   *temp1 = ' ' | (win->_attrs & ATR_MSK);
  43.   win->_maxchng[y] = maxx;
  44.   if (win->_minchng[y] == _NO_CHANGE || win->_minchng[y] > x)
  45.     win->_minchng[y] = x;
  46.   return(OK);
  47.   } /* wdelch */
  48.  
  49. /****************************************************************/
  50. /* Delch() deletes the character at the stdscr cursor, and the  */
  51. /* characters to the right of it are shifted left, inserting a  */
  52. /* space at the last position of the line.                      */
  53. /****************************************************************/
  54.  
  55. int delch()
  56.   {
  57.   return(wdelch(stdscr));
  58.   } /* delch */
  59.  
  60. /****************************************************************/
  61. /* Mvdelch() moves the stdscr cursor to a new position, then    */
  62. /* deletes the character at the stdscr cursor, and the charac-  */
  63. /* ters to the right of it are shifted left, inserting a space  */
  64. /* at the last position of the line.                            */
  65. /****************************************************************/
  66.  
  67. int mvdelch(y,x)
  68.   int y;
  69.   int x;
  70.   {
  71.   if (wmove(stdscr,y,x) == ERR)
  72.     return(ERR);
  73.   return(wdelch(stdscr));
  74.   } /* mvdelch */
  75.  
  76. /****************************************************************/
  77. /* Mvwdelch() moves the cursor of window 'win' to a new posi-   */
  78. /* tion, then deletes the character at the stdscr cursor, and   */
  79. /* the characters to the right of it are shifted left, inser-   */
  80. /* ting a space at the last position of the line.               */
  81. /****************************************************************/
  82.  
  83. int mvwdelch(win,y,x)
  84.   WINDOW *win;
  85.   int y;
  86.   int x;
  87.   {
  88.   if (wmove(win,y,x) == ERR)
  89.     return(ERR);
  90.   return(wdelch(win));
  91.   } /* mvwdelch */
  92.