talk.tproj/display.c

   1 /*
   2  * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
   3  *
   4  * @APPLE_LICENSE_HEADER_START@
   5  *
   6  * This file contains Original Code and/or Modifications of Original Code
   7  * as defined in and that are subject to the Apple Public Source License
   8  * Version 2.0 (the 'License'). You may not use this file except in
   9  * compliance with the License. Please obtain a copy of the License at
  10  * http://www.opensource.apple.com/apsl/ and read it before using this
  11  * file.
  12  *
  13  * The Original Code and all software distributed under the License are
  14  * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
  15  * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
  16  * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
  18  * Please see the License for the specific language governing rights and
  19  * limitations under the License.
  20  *
  21  * @APPLE_LICENSE_HEADER_END@
  22  */
  23 /*
  24  * Copyright (c) 1983, 1993
  25  *      The Regents of the University of California.  All rights reserved.
  26  *
  27  * Redistribution and use in source and binary forms, with or without
  28  * modification, are permitted provided that the following conditions
  29  * are met:
  30  * 1. Redistributions of source code must retain the above copyright
  31  *    notice, this list of conditions and the following disclaimer.
  32  * 2. Redistributions in binary form must reproduce the above copyright
  33  *    notice, this list of conditions and the following disclaimer in the
  34  *    documentation and/or other materials provided with the distribution.
  35  * 3. All advertising materials mentioning features or use of this software
  36  *    must display the following acknowledgement:
  37  *      This product includes software developed by the University of
  38  *      California, Berkeley and its contributors.
  39  * 4. Neither the name of the University nor the names of its contributors
  40  *    may be used to endorse or promote products derived from this software
  41  *    without specific prior written permission.
  42  *
  43  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  44  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  45  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  46  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  47  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  48  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  49  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  50  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  51  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  52  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  53  * SUCH DAMAGE.
  54  */
  55
  56
  57 /*
  58  * The window 'manager', initializes curses and handles the actual
  59  * displaying of text
  60  */
  61 #include "talk.h"
  62
  63 xwin_t  my_win;
  64 xwin_t  his_win;
  65 WINDOW  *line_win;
  66
  67 int     curses_initialized = 0;
  68
  69 /*
  70  * max HAS to be a function, it is called with
  71  * a argument of the form --foo at least once.
  72  */
  73 max(a,b)
  74         int a, b;
  75 {
  76
  77         return (a > b ? a : b);
  78 }
  79
  80 /*
  81  * Display some text on somebody's window, processing some control
  82  * characters while we are at it.
  83  */
  84 display(win, text, size)
  85         register xwin_t *win;
  86         register char *text;
  87         int size;
  88 {
  89         register int i;
  90         char cch;
  91
  92         for (i = 0; i < size; i++) {
  93                 if (*text == '\n') {
  94                         xscroll(win, 0);
  95                         text++;
  96                         continue;
  97                 }
  98                 /* erase character */
  99                 if (*text == win->cerase) {
 100                         wmove(win->x_win, win->x_line, max(--win->x_col, 0));
 101                         getyx(win->x_win, win->x_line, win->x_col);
 102                         waddch(win->x_win, ' ');
 103                         wmove(win->x_win, win->x_line, win->x_col);
 104                         getyx(win->x_win, win->x_line, win->x_col);
 105                         text++;
 106                         continue;
 107                 }
 108                 /*
 109                  * On word erase search backwards until we find
 110                  * the beginning of a word or the beginning of
 111                  * the line.
 112                  */
 113                 if (*text == win->werase) {
 114                         int endcol, xcol, i, c;
 115
 116                         endcol = win->x_col;
 117                         xcol = endcol - 1;
 118                         while (xcol >= 0) {
 119                                 c = readwin(win->x_win, win->x_line, xcol);
 120                                 if (c != ' ')
 121                                         break;
 122                                 xcol--;
 123                         }
 124                         while (xcol >= 0) {
 125                                 c = readwin(win->x_win, win->x_line, xcol);
 126                                 if (c == ' ')
 127                                         break;
 128                                 xcol--;
 129                         }
 130                         wmove(win->x_win, win->x_line, xcol + 1);
 131                         for (i = xcol + 1; i < endcol; i++)
 132                                 waddch(win->x_win, ' ');
 133                         wmove(win->x_win, win->x_line, xcol + 1);
 134                         getyx(win->x_win, win->x_line, win->x_col);
 135                         text++;
 136                         continue;
 137                 }
 138                 /* line kill */
 139                 if (*text == win->kill) {
 140                         wmove(win->x_win, win->x_line, 0);
 141                         wclrtoeol(win->x_win);
 142                         getyx(win->x_win, win->x_line, win->x_col);
 143                         text++;
 144                         continue;
 145                 }
 146                 if (*text == '\f') {
 147                         if (win == &my_win)
 148                                 wrefresh(curscr);
 149                         text++;
 150                         continue;
 151                 }
 152                 if (win->x_col == COLS-1) {
 153                         /* check for wraparound */
 154                         xscroll(win, 0);
 155                 }
 156                 if (*text < ' ' && *text != '\t') {
 157                         waddch(win->x_win, '^');
 158                         getyx(win->x_win, win->x_line, win->x_col);
 159                         if (win->x_col == COLS-1) /* check for wraparound */
 160                                 xscroll(win, 0);
 161                         cch = (*text & 63) + 64;
 162                         waddch(win->x_win, cch);
 163                 } else
 164                         waddch(win->x_win, *text);
 165                 getyx(win->x_win, win->x_line, win->x_col);
 166                 text++;
 167         }
 168         wrefresh(win->x_win);
 169 }
 170
 171 /*
 172  * Read the character at the indicated position in win
 173  */
 174 readwin(win, line, col)
 175         WINDOW *win;
 176 {
 177         int oldline, oldcol;
 178         register int c;
 179
 180         getyx(win, oldline, oldcol);
 181         wmove(win, line, col);
 182         c = winch(win);
 183         wmove(win, oldline, oldcol);
 184         return (c);
 185 }
 186
 187 /*
 188  * Scroll a window, blanking out the line following the current line
 189  * so that the current position is obvious
 190  */
 191 xscroll(win, flag)
 192         register xwin_t *win;
 193         int flag;
 194 {
 195
 196         if (flag == -1) {
 197                 wmove(win->x_win, 0, 0);
 198                 win->x_line = 0;
 199                 win->x_col = 0;
 200                 return;
 201         }
 202         win->x_line = (win->x_line + 1) % win->x_nlines;
 203         win->x_col = 0;
 204         wmove(win->x_win, win->x_line, win->x_col);
 205         wclrtoeol(win->x_win);
 206         wmove(win->x_win, (win->x_line + 1) % win->x_nlines, win->x_col);
 207         wclrtoeol(win->x_win);
 208         wmove(win->x_win, win->x_line, win->x_col);
 209 }