talk.tproj/display.c

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