/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * scr_dump.c
 *
 * XCurses Library
 *
 * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
 *
 */

#if M_RCSID
#ifndef lint
static char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/scr_dump.c 1.1 1995/06/21 16:19:43 ant Exp $";
#endif
#endif

#include <private.h>
#include <sys/types.h>
#include <sys/stat.h>

/*
 * Save the current screen image.
 */
int
scr_dump(f)
const char *f;
{
        int code;
        FILE *fp;

#ifdef M_CURSES_TRACE
        __m_trace("scr_dump(%p=\"%s\")", f);
#endif

        code = ERR;

        if ((fp = fopen(f, "wF")) != (FILE *) 0) {
                code = putwin(curscr, fp);
                (void) fclose(fp);
        }

        return __m_return_code("scr_dump", code);
}

static int
scr_replace(w, f)
WINDOW *w;
const char *f;
{
        int i;
        FILE *fp;
        WINDOW *new;

        if ((fp = fopen(f, "rF")) == (FILE *) 0)
                return ERR;

        new = getwin(fp);
        (void) fclose(fp);

        if (new == (WINDOW *) 0)
                return ERR;

        if (new->_maxy != w->_maxy || new->_maxx != w->_maxx) {
                (void) delwin(new);
                return ERR;
        }

        /* Replace contents of curscr window structure. */
        free(w->_base);
        free(w->_line);
        free(w->_first);
        *w = *new;

        /* Rehash the current screen? */
        if (w == curscr)
                for (i = 0; i < w->_maxy; ++i)
                        __m_cc_hash(w, __m_screen->_hash, i);

        /* Discard the working window. */
        new->_base = (cchar_t *) 0;
        new->_line = (cchar_t **) 0;
        new->_first = (short *) 0;
        (void) delwin(new);

        return OK;
}

/*
 * A picture of what scr_restore(), scr_init(), and scr_set() do :
 *
 *                              scr_restore()           scr_init()
 *                                  |                       |
 *      stdscr                      V                       V
 *      +----+                   newscr                  curscr
 *      |    |                  +-------+               +-------+
 *      +----+  refresh() ->    |       |               |       |
 *                              |       | doupdate() -> |       |
 *        w                     |       |               |       |
 *      +----+  wrefresh(w) ->  |       |               |       |
 *      |    |                  +-------+               +-------+
 *      +----+                        ^                   ^
 *                                    |                   |
 *                                    \---- scr_set() ----/
 */

/*
 * Get a screen image that will appear next doupdate(),
 * replacing the current screen.
 */
int
scr_restore(f)
const char *f;
{
        int code;

#ifdef M_CURSES_TRACE
        __m_trace("scr_restore(%p=\"%s\")", f);
#endif

        code = scr_replace(__m_screen->_newscr, f);

        return __m_return_code("scr_restore", code);
}

/*
 * Get the screen image that really reflects what is on the screen,
 * though the applicatiion may not want it.  A subsequent doupdate()
 * will compared and make changes against this image.
 */
int
scr_init(f)
const char *f;
{
        int code;
        struct stat tty, dump;

#ifdef M_CURSES_TRACE
        __m_trace("scr_init(%p=\"%s\")", f);
#endif

        if ((non_rev_rmcup && exit_ca_mode != (char *) 0)
        || stat(f, &dump) != 0 || stat(ctermid((char *) 0), &tty) != 0
        || dump.st_mtime < tty.st_mtime)
                code = ERR;
        else
                code = scr_replace(__m_screen->_curscr, f);

        return __m_return_code("scr_init", code);
}

/*
 * Get the screen image that is really on the screen and that the
 * application wants on the screen.
 */
int
scr_set(f)
const char *f;
{
        int code;

#ifdef M_CURSES_TRACE
        __m_trace("scr_set(%p=\"%s\")", f);
#endif

        if ((code = scr_init(f)) == OK)
                code = scr_restore(f);

        return __m_return_code("scr_set", code);
}