1*0Sstevel@tonic-gate /* 2*0Sstevel@tonic-gate * CDDL HEADER START 3*0Sstevel@tonic-gate * 4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the 5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 7*0Sstevel@tonic-gate * with the License. 8*0Sstevel@tonic-gate * 9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 11*0Sstevel@tonic-gate * See the License for the specific language governing permissions 12*0Sstevel@tonic-gate * and limitations under the License. 13*0Sstevel@tonic-gate * 14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 19*0Sstevel@tonic-gate * 20*0Sstevel@tonic-gate * CDDL HEADER END 21*0Sstevel@tonic-gate */ 22*0Sstevel@tonic-gate /* 23*0Sstevel@tonic-gate * Copyright 1994 Sun Microsystems, Inc. All rights reserved. 24*0Sstevel@tonic-gate * Use is subject to license terms. 25*0Sstevel@tonic-gate */ 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ 28*0Sstevel@tonic-gate /* All Rights Reserved */ 29*0Sstevel@tonic-gate 30*0Sstevel@tonic-gate /* 31*0Sstevel@tonic-gate * University Copyright- Copyright (c) 1982, 1986, 1988 32*0Sstevel@tonic-gate * The Regents of the University of California 33*0Sstevel@tonic-gate * All Rights Reserved 34*0Sstevel@tonic-gate * 35*0Sstevel@tonic-gate * University Acknowledgment- Portions of this document are derived from 36*0Sstevel@tonic-gate * software developed by the University of California, Berkeley, and its 37*0Sstevel@tonic-gate * contributors. 38*0Sstevel@tonic-gate */ 39*0Sstevel@tonic-gate 40*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI" 41*0Sstevel@tonic-gate 42*0Sstevel@tonic-gate /* 43*0Sstevel@tonic-gate * The window 'manager', initializes curses and handles the actual 44*0Sstevel@tonic-gate * displaying of text 45*0Sstevel@tonic-gate */ 46*0Sstevel@tonic-gate 47*0Sstevel@tonic-gate #include "talk.h" 48*0Sstevel@tonic-gate #include <ctype.h> 49*0Sstevel@tonic-gate 50*0Sstevel@tonic-gate static int readwin(WINDOW *, int, int); 51*0Sstevel@tonic-gate static void xscroll(register xwin_t *, int); 52*0Sstevel@tonic-gate 53*0Sstevel@tonic-gate xwin_t my_win; 54*0Sstevel@tonic-gate xwin_t rem_win; 55*0Sstevel@tonic-gate WINDOW *line_win; 56*0Sstevel@tonic-gate 57*0Sstevel@tonic-gate int curses_initialized = 0; 58*0Sstevel@tonic-gate 59*0Sstevel@tonic-gate /* 60*0Sstevel@tonic-gate * max HAS to be a function, it is called with 61*0Sstevel@tonic-gate * a argument of the form --foo at least once. 62*0Sstevel@tonic-gate */ 63*0Sstevel@tonic-gate 64*0Sstevel@tonic-gate static int 65*0Sstevel@tonic-gate max(a, b) 66*0Sstevel@tonic-gate int a, b; 67*0Sstevel@tonic-gate { 68*0Sstevel@tonic-gate if (a > b) { 69*0Sstevel@tonic-gate return (a); 70*0Sstevel@tonic-gate } else { 71*0Sstevel@tonic-gate return (b); 72*0Sstevel@tonic-gate } 73*0Sstevel@tonic-gate } 74*0Sstevel@tonic-gate 75*0Sstevel@tonic-gate /* 76*0Sstevel@tonic-gate * Display some text on somebody's window, processing some control 77*0Sstevel@tonic-gate * characters while we are at it. 78*0Sstevel@tonic-gate */ 79*0Sstevel@tonic-gate 80*0Sstevel@tonic-gate int 81*0Sstevel@tonic-gate display(win, text, size) 82*0Sstevel@tonic-gate register xwin_t *win; 83*0Sstevel@tonic-gate register char *text; 84*0Sstevel@tonic-gate int size; 85*0Sstevel@tonic-gate { 86*0Sstevel@tonic-gate register int i; 87*0Sstevel@tonic-gate int mb_cur_max = MB_CUR_MAX; 88*0Sstevel@tonic-gate 89*0Sstevel@tonic-gate for (i = 0; i < size; i++) { 90*0Sstevel@tonic-gate int itext; 91*0Sstevel@tonic-gate 92*0Sstevel@tonic-gate if (*text == '\n'|| *text == '\r') { 93*0Sstevel@tonic-gate xscroll(win, 0); 94*0Sstevel@tonic-gate text++; 95*0Sstevel@tonic-gate continue; 96*0Sstevel@tonic-gate } 97*0Sstevel@tonic-gate 98*0Sstevel@tonic-gate /* erase character */ 99*0Sstevel@tonic-gate 100*0Sstevel@tonic-gate if (*text == win->cerase) { 101*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, max(--win->x_col, 0)); 102*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 103*0Sstevel@tonic-gate waddch(win->x_win, ' '); 104*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, win->x_col); 105*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 106*0Sstevel@tonic-gate text++; 107*0Sstevel@tonic-gate continue; 108*0Sstevel@tonic-gate } 109*0Sstevel@tonic-gate /* 110*0Sstevel@tonic-gate * On word erase search backwards until we find 111*0Sstevel@tonic-gate * the beginning of a word or the beginning of 112*0Sstevel@tonic-gate * the line. 113*0Sstevel@tonic-gate */ 114*0Sstevel@tonic-gate if (*text == win->werase) { 115*0Sstevel@tonic-gate int endcol, xcol, i, c; 116*0Sstevel@tonic-gate 117*0Sstevel@tonic-gate endcol = win->x_col; 118*0Sstevel@tonic-gate xcol = endcol - 1; 119*0Sstevel@tonic-gate while (xcol >= 0) { 120*0Sstevel@tonic-gate c = readwin(win->x_win, win->x_line, xcol); 121*0Sstevel@tonic-gate if (c != ' ') 122*0Sstevel@tonic-gate break; 123*0Sstevel@tonic-gate xcol--; 124*0Sstevel@tonic-gate } 125*0Sstevel@tonic-gate while (xcol >= 0) { 126*0Sstevel@tonic-gate c = readwin(win->x_win, win->x_line, xcol); 127*0Sstevel@tonic-gate if (c == ' ') 128*0Sstevel@tonic-gate break; 129*0Sstevel@tonic-gate xcol--; 130*0Sstevel@tonic-gate } 131*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, xcol + 1); 132*0Sstevel@tonic-gate for (i = xcol + 1; i < endcol; i++) 133*0Sstevel@tonic-gate waddch(win->x_win, ' '); 134*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, xcol + 1); 135*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 136*0Sstevel@tonic-gate continue; 137*0Sstevel@tonic-gate } 138*0Sstevel@tonic-gate /* line kill */ 139*0Sstevel@tonic-gate if (*text == win->kill) { 140*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, 0); 141*0Sstevel@tonic-gate wclrtoeol(win->x_win); 142*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 143*0Sstevel@tonic-gate text++; 144*0Sstevel@tonic-gate continue; 145*0Sstevel@tonic-gate } 146*0Sstevel@tonic-gate if (*text == '\f') { 147*0Sstevel@tonic-gate if (win == &my_win) 148*0Sstevel@tonic-gate wrefresh(curscr); 149*0Sstevel@tonic-gate text++; 150*0Sstevel@tonic-gate continue; 151*0Sstevel@tonic-gate } 152*0Sstevel@tonic-gate /* EOF character */ 153*0Sstevel@tonic-gate if (*text == '\004') { 154*0Sstevel@tonic-gate quit(); 155*0Sstevel@tonic-gate } 156*0Sstevel@tonic-gate 157*0Sstevel@tonic-gate /* typing alert character will alert recipient's terminal */ 158*0Sstevel@tonic-gate 159*0Sstevel@tonic-gate if (*text == '\007') { 160*0Sstevel@tonic-gate beep(); 161*0Sstevel@tonic-gate continue; 162*0Sstevel@tonic-gate } 163*0Sstevel@tonic-gate 164*0Sstevel@tonic-gate /* check for wrap around */ 165*0Sstevel@tonic-gate if (win->x_col == COLS-1) { 166*0Sstevel@tonic-gate xscroll(win, 0); 167*0Sstevel@tonic-gate } 168*0Sstevel@tonic-gate 169*0Sstevel@tonic-gate /* 170*0Sstevel@tonic-gate * Handle the multibyte case 171*0Sstevel@tonic-gate * We print '?' for nonprintable widechars. 172*0Sstevel@tonic-gate */ 173*0Sstevel@tonic-gate 174*0Sstevel@tonic-gate if (mb_cur_max > 1 && mblen(text, mb_cur_max) > 1) { 175*0Sstevel@tonic-gate wchar_t wc; 176*0Sstevel@tonic-gate int len; 177*0Sstevel@tonic-gate 178*0Sstevel@tonic-gate len = mbtowc(&wc, text, mb_cur_max); 179*0Sstevel@tonic-gate 180*0Sstevel@tonic-gate if (iswprint(wc) || iswspace(wc)) { 181*0Sstevel@tonic-gate /* its printable, put out the bytes */ 182*0Sstevel@tonic-gate do { 183*0Sstevel@tonic-gate if (win->x_col == COLS-1) /* wraparound */ 184*0Sstevel@tonic-gate xscroll(win, 0); 185*0Sstevel@tonic-gate waddch(win->x_win, *text++); 186*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 187*0Sstevel@tonic-gate } while (--len > 0); 188*0Sstevel@tonic-gate continue; 189*0Sstevel@tonic-gate } 190*0Sstevel@tonic-gate /* 191*0Sstevel@tonic-gate * otherwise, punt and print a question mark. 192*0Sstevel@tonic-gate */ 193*0Sstevel@tonic-gate text += len; 194*0Sstevel@tonic-gate waddch(win->x_win, '?'); 195*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 196*0Sstevel@tonic-gate continue; 197*0Sstevel@tonic-gate } 198*0Sstevel@tonic-gate 199*0Sstevel@tonic-gate itext = (unsigned int) *text; 200*0Sstevel@tonic-gate if (isprint(itext) || *text == ' ' || *text == '\t' || 201*0Sstevel@tonic-gate *text == '\013' || *text == '\007' /* bell */) { 202*0Sstevel@tonic-gate waddch(win->x_win, *text); 203*0Sstevel@tonic-gate } else { 204*0Sstevel@tonic-gate 205*0Sstevel@tonic-gate if (!isascii(*text)) { 206*0Sstevel@tonic-gate /* check for wrap around */ 207*0Sstevel@tonic-gate if (win->x_col == COLS-3) { 208*0Sstevel@tonic-gate xscroll(win, 0); 209*0Sstevel@tonic-gate } 210*0Sstevel@tonic-gate waddch(win->x_win, 'M'); 211*0Sstevel@tonic-gate waddch(win->x_win, '-'); 212*0Sstevel@tonic-gate *text = toascii(*text); 213*0Sstevel@tonic-gate } 214*0Sstevel@tonic-gate if (iscntrl(*text)) { 215*0Sstevel@tonic-gate 216*0Sstevel@tonic-gate /* check for wrap around */ 217*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 218*0Sstevel@tonic-gate if (win->x_col == COLS-2) { 219*0Sstevel@tonic-gate xscroll(win, 0); 220*0Sstevel@tonic-gate } 221*0Sstevel@tonic-gate 222*0Sstevel@tonic-gate waddch(win->x_win, '^'); 223*0Sstevel@tonic-gate waddch(win->x_win, *text + 0100); 224*0Sstevel@tonic-gate } 225*0Sstevel@tonic-gate else 226*0Sstevel@tonic-gate waddch(win->x_win, *text); 227*0Sstevel@tonic-gate } 228*0Sstevel@tonic-gate 229*0Sstevel@tonic-gate getyx(win->x_win, win->x_line, win->x_col); 230*0Sstevel@tonic-gate text++; 231*0Sstevel@tonic-gate 232*0Sstevel@tonic-gate } /* for loop */ 233*0Sstevel@tonic-gate wrefresh(win->x_win); 234*0Sstevel@tonic-gate return (0); 235*0Sstevel@tonic-gate } 236*0Sstevel@tonic-gate 237*0Sstevel@tonic-gate /* 238*0Sstevel@tonic-gate * Read the character at the indicated position in win 239*0Sstevel@tonic-gate */ 240*0Sstevel@tonic-gate 241*0Sstevel@tonic-gate static int 242*0Sstevel@tonic-gate readwin(win, line, col) 243*0Sstevel@tonic-gate WINDOW *win; 244*0Sstevel@tonic-gate int line, col; 245*0Sstevel@tonic-gate { 246*0Sstevel@tonic-gate int oldline, oldcol; 247*0Sstevel@tonic-gate register int c; 248*0Sstevel@tonic-gate 249*0Sstevel@tonic-gate getyx(win, oldline, oldcol); 250*0Sstevel@tonic-gate wmove(win, line, col); 251*0Sstevel@tonic-gate c = winch(win); 252*0Sstevel@tonic-gate wmove(win, oldline, oldcol); 253*0Sstevel@tonic-gate return (c); 254*0Sstevel@tonic-gate } 255*0Sstevel@tonic-gate 256*0Sstevel@tonic-gate /* 257*0Sstevel@tonic-gate * Scroll a window, blanking out the line following the current line 258*0Sstevel@tonic-gate * so that the current position is obvious 259*0Sstevel@tonic-gate */ 260*0Sstevel@tonic-gate 261*0Sstevel@tonic-gate static void 262*0Sstevel@tonic-gate xscroll(win, flag) 263*0Sstevel@tonic-gate register xwin_t *win; 264*0Sstevel@tonic-gate int flag; 265*0Sstevel@tonic-gate { 266*0Sstevel@tonic-gate if (flag == -1) { 267*0Sstevel@tonic-gate wmove(win->x_win, 0, 0); 268*0Sstevel@tonic-gate win->x_line = 0; 269*0Sstevel@tonic-gate win->x_col = 0; 270*0Sstevel@tonic-gate return; 271*0Sstevel@tonic-gate } 272*0Sstevel@tonic-gate win->x_line = (win->x_line + 1) % win->x_nlines; 273*0Sstevel@tonic-gate win->x_col = 0; 274*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, win->x_col); 275*0Sstevel@tonic-gate wclrtoeol(win->x_win); 276*0Sstevel@tonic-gate wmove(win->x_win, (win->x_line + 1) % win->x_nlines, win->x_col); 277*0Sstevel@tonic-gate wclrtoeol(win->x_win); 278*0Sstevel@tonic-gate wmove(win->x_win, win->x_line, win->x_col); 279*0Sstevel@tonic-gate } 280