1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 /* 23 * Copyright 2004 Sun Microsystems, Inc. All rights reserved. 24 * Use is subject to license terms. 25 */ 26 27 /* Copyright (c) 1988 AT&T */ 28 /* All Rights Reserved */ 29 30 /* 31 * University Copyright- Copyright (c) 1982, 1986, 1988 32 * The Regents of the University of California 33 * All Rights Reserved 34 * 35 * University Acknowledgment- Portions of this document are derived from 36 * software developed by the University of California, Berkeley, and its 37 * contributors. 38 */ 39 40 #pragma ident "%Z%%M% %I% %E% SMI" 41 42 /*LINTLIBRARY*/ 43 44 #include <stdio.h> 45 #include <stdlib.h> 46 #include <string.h> 47 #include <sys/types.h> 48 #include "curses_inc.h" 49 50 #ifdef _VR2_COMPAT_CODE 51 extern char _endwin; 52 #endif /* _VR2_COMPAT_CODE */ 53 54 /* 1200 is put at the 0th location since 0 is probably a mistake. */ 55 static long baud_convert[] = { 56 1200, 50, 75, 110, 135, 150, 200, 300, 600, 1200, 57 1800, 2400, 4800, 9600, 19200, 38400, 57600, 76800, 58 115200, 153600, 230400, 307200, 460800 59 }; 60 61 static char isfilter = 0; 62 static int _chk_trm(void); 63 static void _forget(void); 64 65 /* 66 * newscreen sets up a terminal and returns a pointer to the terminal 67 * structure or NULL in case of an error. The parameters are: 68 * type: terminal type 69 * lsize, csize, tabsize: physical sizes 70 * infptr, outfptr: input and output stdio stream file pointers 71 */ 72 73 SCREEN * 74 newscreen(char *type, int lsize, int csize, int tabsize, 75 FILE *outfptr, FILE *infptr) 76 { 77 int old_lines = LINES, old_cols = COLS, retcode; 78 #ifndef _IOFBF 79 char *sobuf; 80 #endif /* _IOBUF */ 81 WINDOW *old_curscr = curscr; 82 SCREEN *old = SP; 83 TERMINAL *old_term = cur_term; 84 85 #ifdef DEBUG 86 if (outf == NULL) { 87 outf = fopen("trace", "w"); 88 if (outf == NULL) { 89 perror("trace"); 90 exit(-1); 91 } 92 setbuf(outf, (char *)NULL); 93 } 94 95 if (outf) 96 fprintf(outf, "NEWTERM(type=%s, outfptr=%x %d, infptr=%x %d) " 97 "isatty(2) %d, getenv %s\n", type, outfptr, 98 fileno(outfptr), infptr, fileno(infptr), isatty(2), 99 getenv("TERM")); 100 #endif /* DEBUG */ 101 102 103 /* read in terminfo file */ 104 105 if (setupterm(type, fileno(outfptr), &retcode) != 0) 106 goto err2; 107 108 /* the max length of a multi-byte character */ 109 _csmax = (cswidth[0] > cswidth[1]+1 ? 110 (cswidth[0] > cswidth[2]+1 ? cswidth[0] : cswidth[2]+1) : 111 (cswidth[1] > cswidth[2] ? cswidth[1]+1 : cswidth[2]+1)); 112 if (_csmax > CSMAX) 113 goto err2; 114 /* the max length of a multi-column character */ 115 _scrmax = _curs_scrwidth[0] > _curs_scrwidth[1] ? 116 (_curs_scrwidth[0] > _curs_scrwidth[2] ? _curs_scrwidth[0] : 117 _curs_scrwidth[2]) : (_curs_scrwidth[1] > _curs_scrwidth[2] ? 118 _curs_scrwidth[1] : _curs_scrwidth[2]); 119 /* true multi-byte/multi-column case */ 120 _mbtrue = (_csmax > 1 || _scrmax > 1); 121 122 if ((curs_errno = _chk_trm()) != -1) { 123 (void) strcpy(curs_parm_err, cur_term->_termname); 124 goto err2; 125 } 126 127 /* use calloc because almost everything needs to be zero */ 128 if ((SP = (SCREEN *) calloc(1, sizeof (SCREEN))) == NULL) 129 goto err1; 130 131 SP->term_file = outfptr; 132 SP->input_file = infptr; 133 134 /* 135 * The default is echo, for upward compatibility, but we do 136 * all echoing in curses to avoid problems with the tty driver 137 * echoing things during critical sections. 138 */ 139 140 SP->fl_echoit = 1; 141 142 /* set some fields for cur_term structure */ 143 144 (void) typeahead(fileno(infptr)); 145 (void) tinputfd(fileno(infptr)); 146 147 /* 148 * We use LINES instead of the SP variable and a local variable because 149 * slk_init and rip_init update the LINES value and application code 150 * may look at the value of LINES in the function called by rip_init. 151 */ 152 153 /* LINTED */ 154 LINES = SP->lsize = lsize > 0 ? lsize : lines; 155 156 /* force the output to be buffered */ 157 #ifdef _IOFBF 158 (void) setvbuf(outfptr, (char *)NULL, _IOFBF, 0); 159 #else /* _IOFBF */ 160 if ((sobuf = malloc(BUFSIZ)) == NULL) { 161 curs_errno = CURS_BAD_MALLOC; 162 #ifdef DEBUG 163 strcpy(curs_parm_err, "newscreen"); 164 #endif /* DEBUG */ 165 } 166 setbuf(outfptr, sobuf); 167 #endif /* _IOFBF */ 168 169 #ifdef SYSV 170 SP->baud = baud_convert[_BRS(PROGTTYS)]; 171 #else /* SYSV */ 172 SP->baud = baud_convert[_BR(PROGTTY)]; 173 #endif /* SYSV */ 174 175 /* figure out how much each terminal capability costs */ 176 _init_costs(); 177 178 /* initialize the array of alternate characters */ 179 (void) init_acs(); 180 181 SP->tcap = cur_term; 182 183 /* set tty settings to something reasonable for us */ 184 #ifdef SYSV 185 PROGTTYS.c_lflag &= ~ECHO; 186 PROGTTYS.c_lflag |= ISIG; 187 PROGTTYS.c_oflag &= ~(OCRNL|ONLCR); /* why would anyone set OCRNL? */ 188 #else /* SYSV */ 189 PROGTTY.sg_flags &= ~(RAW|ECHO|CRMOD); 190 #endif /* SYSV */ 191 192 (void) cbreak(); 193 194 /* LINTED */ 195 COLS = SP->csize = csize > 0 ? csize : columns; 196 if (tabsize == 0) 197 tabsize = (init_tabs == -1) ? 8 : init_tabs; 198 /* LINTED */ 199 SP->tsize = (short)tabsize; 200 #ifdef DEBUG 201 if (outf) 202 fprintf(outf, "LINES = %d, COLS = %d\n", LINES, COLS); 203 #endif /* DEBUG */ 204 205 if ((curscr = SP->cur_scr = newwin(LINES, COLS, 0, 0)) == NULL) 206 goto err; 207 208 SP->fl_endwin = 2; 209 #ifdef _VR2_COMPAT_CODE 210 _endwin = FALSE; 211 #endif /* _VR2_COMPAT_CODE */ 212 curscr->_sync = TRUE; 213 214 /* 215 * This will tell _quick_echo(if it's ever called), whether 216 * _quick_echo should let wrefresh handle everything. 217 */ 218 219 if (ceol_standout_glitch || (magic_cookie_glitch >= 0) || 220 tilde_glitch || (transparent_underline && erase_overstrike)) { 221 curscr->_flags |= _CANT_BE_IMMED; 222 } 223 if (!(SP->virt_scr = newwin(LINES, COLS, 0, 0))) 224 goto err; 225 _virtscr = SP->virt_scr; 226 227 SP->virt_scr->_clear = FALSE; 228 229 /* video mark map for cookie terminals */ 230 231 if (ceol_standout_glitch || (magic_cookie_glitch >= 0)) { 232 int i, nc; 233 char **marks; 234 235 if ((marks = (char **)calloc((unsigned)LINES, 236 sizeof (char *))) == NULL) 237 goto err; 238 SP->_mks = marks; 239 nc = (COLS / BITSPERBYTE) + (COLS % BITSPERBYTE ? 1 : 0); 240 if ((*marks = (char *)calloc((unsigned)nc * LINES, 241 sizeof (char))) == NULL) 242 goto err; 243 for (i = LINES - 1; i-- > 0; ++marks) 244 *(marks + 1) = *marks + nc; 245 } 246 247 /* hash tables for lines */ 248 if ((SP->cur_hash = (int *)calloc((unsigned)2 * LINES, 249 sizeof (int))) == NULL) 250 goto err; 251 SP->virt_hash = SP->cur_hash + LINES; 252 253 /* adjust the screen size if soft labels and/or ripoffline are used */ 254 if (_slk_init) 255 (*_slk_init)(); 256 if (_rip_init) 257 (*_rip_init)(); 258 259 if ((SP->std_scr = newwin(LINES, COLS, 0, 0)) == NULL) { 260 /* free all the storage allocated above and return NULL */ 261 err: 262 delscreen(SP); 263 COLS = old_cols; 264 curscr = old_curscr; 265 LINES = old_lines; 266 err1: 267 SP = old; 268 269 curs_errno = CURS_BAD_MALLOC; 270 #ifdef DEBUG 271 strcpy(curs_parm_err, "newscreen"); 272 #endif /* DEBUG */ 273 274 err2: 275 cur_term = old_term; 276 return (NULL); 277 } 278 #ifdef DEBUG 279 if (outf) 280 fprintf(outf, "SP %x, stdscr %x, curscr %x\n", 281 SP, SP->std_scr, curscr); 282 #endif /* DEBUG */ 283 284 if (((SP->imode = (enter_insert_mode && exit_insert_mode)) != 0) && 285 ((SP->dmode = (enter_delete_mode && exit_delete_mode)) != 0)) { 286 if (strcmp(enter_insert_mode, enter_delete_mode) == 0) 287 SP->sid_equal = TRUE; 288 if (strcmp(exit_insert_mode, exit_delete_mode) == 0) 289 SP->eid_equal = TRUE; 290 } 291 SP->ichok = (SP->imode || insert_character || parm_ich); 292 SP->dchok = (delete_character || parm_dch); 293 294 stdscr = SP->std_scr; 295 TABSIZE = SP->tsize; 296 297 return (SP); 298 } 299 300 /* 301 * check if terminal have capabilities to do basic cursor movements and 302 * screen clearing 303 */ 304 static int 305 _chk_trm(void) 306 { 307 short error_num = -1; 308 #ifdef DEBUG 309 if (outf) 310 fprintf(outf, "chk_trm().\n"); 311 #endif /* DEBUG */ 312 313 if (generic_type) 314 error_num = CURS_UNKNOWN; 315 else { 316 if (isfilter) { 317 _forget(); 318 /* Only need to move left or right on current line */ 319 if (!(cursor_left || carriage_return || 320 column_address || parm_left_cursor)) { 321 goto out_stupid; 322 } 323 } else { 324 if ((hard_copy || over_strike) || 325 /* some way to move up, down, left */ 326 (!(cursor_address) && 327 (!((cursor_up || cursor_home) && cursor_down && 328 (cursor_left || carriage_return)))) || 329 (!clear_screen)) { 330 out_stupid: 331 error_num = CURS_STUPID; 332 } 333 } 334 } 335 return (error_num); 336 } 337 338 int 339 filter(void) 340 { 341 isfilter = 1; 342 return (OK); 343 } 344 345 /* 346 * if (for some reason) user assumes that terminal has only one line, 347 * disable all capabilities that deal with non-horizontal cursor movement 348 */ 349 static void 350 _forget(void) 351 { 352 row_address = cursor_address = clear_screen = parm_down_cursor = 353 cursor_up = cursor_down = NULL; 354 cursor_home = carriage_return; 355 lines = 1; 356 } 357