home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / SCREEN / PCCURS14.ZIP / CHARINS.C < prev    next >
C/C++ Source or Header  |  1990-01-07  |  6KB  |  174 lines
  1. /****************************************************************/
  2. /* Winsch() 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 (bl@infovox.se)    */
  10. /****************************************************************/
  11. /* 1.4:  Use of short wherever possible. Portability        */
  12. /*     improvements:                    900114    */
  13. /* 1.3:     MSC -W3, Turbo'C' -w -w-pro checkes:        881005    */
  14. /* 1.2:     Max limits off by 1. Fixed thanks to S. Creps:    881002    */
  15. /* 1.1:     Added 'raw' output routines (allows PC charac-        */
  16. /*     ters < 0x20 to be displayed:            880306    */
  17. /* 1.0:     Release:                    870515    */
  18. /****************************************************************/
  19.  
  20. #include <curses.h>
  21. #include <curspriv.h>
  22.  
  23. char _curses_charins_rcsid[] = "@(#)charins.c    v.1.4  - 900114";
  24.  
  25. /****************************************************************/
  26. /* _Chins() inserts character 'c' at the cursor position in    */
  27. /* window 'win'. If xlat is true, normal character translation    */
  28. /* is performed; If xlat is false, the character is output 'as    */
  29. /* is'.                                */
  30. /****************************************************************/
  31.  
  32. static    int    _chins(win,c,xlat)
  33.   WINDOW    *win;
  34.   char         c;
  35.   bool         xlat;
  36.   {
  37.   short        *temp1;
  38.   short        *temp2;
  39.   short        *end;
  40.   short         x = win->_curx;
  41.   short         y = win->_cury;
  42.   short         maxx = win->_maxx - 1;
  43.  
  44.   if((c < ' ') && (c == '\n' || c == '\r' || c == '\t' || c == '\b'))
  45.     return(_chadd(win,c,xlat));
  46.   end = &win->_line[y][x];
  47.   temp1 = &win->_line[y][maxx];
  48.   temp2 = temp1 - 1;
  49.   if((c < ' ') && xlat)            /* if CTRL-char make space for 2 */
  50.     temp2--;
  51.   while (temp1 > end)
  52.     *temp1-- = *temp2--;
  53.   win->_maxchng[y] = maxx;
  54.   if ((win->_minchng[y] == _NO_CHANGE) || (win->_minchng[y] > x))
  55.     win->_minchng[y] = x;
  56.   return(_chadd(win,c,xlat));        /* fixes CTRL-chars too */
  57.   } /* _chins */
  58.  
  59. /****************************************************************/
  60. /* Insch() inserts character 'c' at the cursor position in    */
  61. /* stdscr. The cursor is advanced.                */
  62. /****************************************************************/
  63.  
  64. int insch(c)
  65.   char c;
  66.   {
  67.   return(_chins(stdscr,c,TRUE));
  68.   } /* insch */
  69.  
  70. /****************************************************************/
  71. /* Winsch() inserts character 'c' at the cursor position in    */
  72. /* window 'win'. The cursor is advanced.            */
  73. /****************************************************************/
  74.  
  75. int winsch(win,c)
  76.   WINDOW *win;
  77.   char c;
  78.   {
  79.   return(_chins(win,c,TRUE));
  80.   } /* winsch */
  81.  
  82. /****************************************************************/
  83. /* Mvinsch() moves the stdscr cursor to a new position, then    */
  84. /* inserts character 'c' at the cursor position in stdscr. The    */
  85. /* cursor is advanced.                        */
  86. /****************************************************************/
  87.  
  88. int mvinsch(y,x,c)
  89.   int  y;
  90.   int  x;
  91.   char c;
  92.   {
  93.   if (wmove(stdscr,y,x) == ERR)
  94.     return(ERR);
  95.   return(_chins(stdscr,c,TRUE));
  96.   } /* mvinsch */
  97.  
  98. /****************************************************************/
  99. /* Mvwinsch() moves the cursor of window 'win' to a new posi-    */
  100. /* tion, then inserts character 'c' at the cursor position in    */
  101. /* window 'win'. The cursor is advanced.            */
  102. /****************************************************************/
  103.  
  104. int mvwinsch(win,y,x,c)
  105.   WINDOW *win;
  106.   int  y;
  107.   int  x;
  108.   char c;
  109.   {
  110.   if (wmove(win,y,x) == ERR)
  111.     return(ERR);
  112.   return(_chins(win,c,TRUE));
  113.   } /* mvwinsch */
  114.  
  115. /****************************************************************/
  116. /* Insrawch() inserts character 'c' at the cursor position in    */
  117. /* stdscr. Control characters are not interpreted, and the    */
  118. /* cursor is advanced.                        */
  119. /****************************************************************/
  120.  
  121. int insrawch(c)
  122.   char c;
  123.   {
  124.   return(_chins(stdscr,c,FALSE));
  125.   } /* insrawch */
  126.  
  127. /****************************************************************/
  128. /* Winsrawch() inserts character 'c' at the cursor position in    */
  129. /* window 'win'. Control characters are not interpreted, and    */
  130. /* the cursor is advanced.                    */
  131. /****************************************************************/
  132.  
  133. int winsrawch(win,c)
  134.   WINDOW *win;
  135.   char c;
  136.   {
  137.   return(_chins(win,c,FALSE));
  138.   } /* winsrawch */
  139.  
  140. /****************************************************************/
  141. /* Mvinsrawch() moves the stdscr cursor to a new position, then    */
  142. /* inserts character 'c' at the cursor position in stdscr.    */
  143. /* Control characters are not interpreted, and    the cursor is    */
  144. /* advanced.                            */
  145. /****************************************************************/
  146.  
  147. int mvinsrawch(y,x,c)
  148.   int  y;
  149.   int  x;
  150.   char c;
  151.   {
  152.   if (wmove(stdscr,y,x) == ERR)
  153.     return(ERR);
  154.   return(_chins(stdscr,c,FALSE));
  155.   } /* mvinsrawch */
  156.  
  157. /****************************************************************/
  158. /* Mvwinsrawch() moves the cursor of window 'win' to a new    */
  159. /* position, then inserts character 'c' at the cursor position    */
  160. /* in window 'win'. Control characters are not interpreted, and    */
  161. /* the cursor is advanced.                    */
  162. /****************************************************************/
  163.  
  164. int mvwinsrawch(win,y,x,c)
  165.   WINDOW *win;
  166.   int  y;
  167.   int  x;
  168.   char c;
  169.   {
  170.   if (wmove(win,y,x) == ERR)
  171.     return(ERR);
  172.   return(_chins(win,c,FALSE));
  173.   } /* mvwinsrawch */
  174.