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 1997 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/*LINTLIBRARY*/
41
42#include	"curses_inc.h"
43#include	<sys/types.h>
44#include	<sys/stat.h>
45#include	<stdlib.h>
46
47/*
48 * Initialize the screen image to be the image contained
49 * in the given file. This is usually used in a child process
50 * to initialize its idea of the screen image to be that of its
51 * parent.
52 *
53 * filep:	pointer to the output stream
54 * type:	0: <curses> should assume that the physical screen is
55 *		   EXACTLY as stored in the file. Therefore, we take
56 *		   special care to make sure that /dev/tty and the terminal
57 *		   did not change in any way.  This information can then
58 *		   be used in the update optimization of the new program
59 *		   so that the screen does not have to be cleared.  Instead,
60 *		   curses, by knowing what's on the screen can optimally
61 *		   update it with the information of the new program.
62 *
63 *		1: Tell <curses> that the stored image should be
64 *		   the physical image.  Sort of like a huge waddstr onto
65 *		   curscr.  This can be used when a library wants to save
66 *		   a screen image and restore it at a later time.
67 *
68 *		2: Tell <curses> that the stored image is the physical
69 *		   image and also it is what the new program wants on the
70 *		   screen.  This can be be thought of as a screen inheritance
71 *		   function.
72 */
73
74int
75scr_reset(FILE *filep, int type)
76{
77	WINDOW		*win = NULL, *win1 = NULL;
78	int		*hash, y;
79	char		clearit = FALSE;
80	short		magic;
81	struct	stat	statbuf;
82	time_t		ttytime;
83
84	if (type != 1 && exit_ca_mode && *exit_ca_mode && non_rev_rmcup) {
85		if (type == 0)
86			goto err;
87		else {
88#ifdef	DEBUG
89			if (outf)
90				fprintf(outf, "clear it because of "
91				    "exit_ca_mode\n");
92#endif	/* DEBUG */
93			clearit = TRUE;
94		}
95	}
96
97	/* check magic number */
98	if (fread((char *)&magic, sizeof (short), 1, filep) != 1)
99		goto err;
100	if (magic != SVR3_DUMP_MAGIC_NUMBER)
101		goto err;
102
103	/* get modification time of image in file */
104	if (fread((char *)&ttytime, sizeof (time_t), 1, filep) != 1)
105		goto err;
106
107	if ((type != 1) && ((ttyname(cur_term->Filedes) == NULL) ||
108	    (fstat(cur_term->Filedes, &statbuf) < 0) ||
109	    (statbuf.st_mtime != ttytime))) {
110		if (type == 0)
111			goto err;
112		else {
113#ifdef	DEBUG
114			if (outf)
115				fprintf(outf, "Filedes = %hd, "
116				    "statbuf.st_mtime = %d, "
117				    "ttytime = %d\n", cur_term->Filedes,
118				    statbuf.st_mtime, ttytime);
119#endif	/* DEBUG */
120			clearit = TRUE;
121		}
122	}
123
124	/* if get here, everything is ok, read the curscr image */
125	if (((win = getwin(filep)) == NULL) ||
126	    ((type == 2) && ((win1 = dupwin(win)) == NULL)) ||
127	    (win->_maxy != curscr->_maxy) || (win->_maxx != curscr->_maxx) ||
128	    /* soft labels */
129	    (fread((char *)&magic, sizeof (int), 1, filep) != 1))
130		goto err;
131
132	/*
133	 * if soft labels were dumped, we would like either read them
134	 * or advance the file pointer pass them
135	 */
136	if (magic) {
137		short	i, labmax, lablen;
138		SLK_MAP	*slk = SP->slk;
139		/*
140		 * Why doesn't the following line and the two below
141		 * that access those variables work ?
142		 */
143		/*
144		 * char	**labdis = SP->slk->_ldis, **labval = SP->slk->_lval;
145		 */
146
147		if ((fread((char *)&labmax, sizeof (short), 1, filep) != 1) ||
148		    (fread((char *)&lablen, sizeof (short), 1, filep) != 1)) {
149			goto err;
150		}
151
152		if (slk != NULL) {
153			if ((labmax != slk->_num) ||
154			    (lablen != (slk->_len + 1)))
155				goto err;
156
157			for (i = 0; i < labmax; i++) {
158				/*
159				 * if ((fread(labdis[i], sizeof (char), lablen,
160				 * filep) != lablen) ||
161				 * (fread(labval[i], sizeof (char), lablen,
162				 * filep != lablen))
163				 */
164				if ((fread(slk->_ldis[i], sizeof (char),
165				    lablen, filep) != lablen) ||
166				    (fread(slk->_lval[i],
167				    sizeof (char), lablen, filep) != lablen)) {
168					goto err;
169				}
170			}
171			(*_do_slk_tch)();
172		} else {
173			if (fseek(filep, (long)(2 * labmax * lablen *
174			    sizeof (char)), 1) != 0)
175				goto err;
176		}
177	}
178
179	/* read the color information(if any) from the file 		*/
180
181	if (fread((char *)&magic, sizeof (int), 1, filep) != 1)
182		goto err;
183
184	if (magic) {
185		int  colors, color_pairs;
186		bool could_change;
187		int i;
188
189	/* if the new terminal doesn't support colors, or it supports    */
190	/* less colors (or color_pairs) than the old terminal, or	 */
191	/* start_color() has not been called, simply advance  the file	 */
192	/* pointer pass the color related info.				 */
193	/* Note: must to read the first line of color info, even if the  */
194	/* new terminal doesn't support color, in order to know how to   */
195	/* deal with the rest of the file				 */
196
197		if ((fread((char *)&colors, sizeof (int), 1, filep) != 1) ||
198		    (fread((char *)&color_pairs, sizeof (int), 1,
199		    filep) != 1) || (fread((char *)&could_change,
200		    sizeof (char), 1, filep) != 1))
201			goto err;
202
203		if (max_pairs == -1 || cur_term->_pairs_tbl == NULL ||
204		    colors > max_colors || color_pairs > max_pairs) {
205			if (fseek(filep, (long)(colors * sizeof (_Color) +
206			    color_pairs * sizeof (_Color_pair)), 1) != 0)
207				goto err;
208		} else {
209			_Color_pair *ptp, *save_ptp;
210
211	    /* if both old and new terminals could modify colors, read in */
212	    /* color table, and call init_color for each color		  */
213
214			if (could_change) {
215				if (can_change) {
216					_Color	 *ctp, *save_ctp;
217
218					if ((save_ctp = (ctp = (_Color *)
219					    malloc(colors *
220					    sizeof (_Color)))) == NULL)
221						goto err;
222
223					if (fread(ctp, sizeof (_Color),
224					    colors, filep) != colors)
225						goto err;
226
227					for (i = 0; i < colors; i++, ctp++) {
228						/* LINTED */
229						(void) init_color((short)i,
230						    ctp->r, ctp->g, ctp->b);
231					}
232					free(save_ctp);
233				} else {
234
235		/* the old terminal could modify colors, by the new one */
236		/* cannot skip over color_table info.			*/
237
238					if (fseek(filep, (long)(colors *
239					    sizeof (_Color)), 1) != 0)
240						goto err;
241				}
242			}
243
244	    /* read color_pairs info. call init_pair for each pair	*/
245
246			if ((save_ptp = (ptp = (_Color_pair *)
247			    malloc(color_pairs * sizeof (_Color_pair)))) ==
248			    NULL)
249				goto err;
250			if (fread(ptp, sizeof (_Color_pair), color_pairs,
251			    filep) != color_pairs) {
252err:
253				if (win != NULL)
254					(void) delwin(win);
255				if (win1 != NULL)
256					(void) delwin(win1);
257				if (type == 0)
258					curscr->_clear = TRUE;
259				return (ERR);
260			}
261
262			for (i = 1, ++ptp; i <= color_pairs; i++, ptp++) {
263				if (ptp->init)
264					/* LINTED */
265					(void) init_pair((short)i,
266					    ptp->foreground, ptp->background);
267			}
268			free(save_ptp);
269		}
270	}
271
272	/* substitute read in window for the curscr */
273	switch (type) {
274		case 1:
275		case 2:
276			(void) delwin(_virtscr);
277			hash = _VIRTHASH;
278			if (type == 1) {
279				SP->virt_scr = _virtscr = win;
280				_VIRTTOP = 0;
281				_VIRTBOT = curscr->_maxy - 1;
282				break;
283			}
284			SP->virt_scr = _virtscr = win1;
285			_VIRTTOP = curscr->_maxy;
286			_VIRTBOT = -1;
287			/* clear the hash table */
288			for (y = curscr->_maxy; y > 0; --y)
289				*hash++ = _NOHASH;
290			/* FALLTHROUGH */
291		case 0:
292			{
293			int	saveflag = curscr->_flags & _CANT_BE_IMMED;
294
295			(void) delwin(curscr);
296			SP->cur_scr = curscr = win;
297			curscr->_sync = TRUE;
298			curscr->_flags |= saveflag;
299			hash = _CURHASH;
300		}
301	}
302
303	/* clear the hash table */
304	for (y = curscr->_maxy; y > 0; --y)
305		*hash++ = _NOHASH;
306
307	curscr->_clear = clearit;
308	return (OK);
309}
310