Subversion Repositories HelenOS

/*  $OpenBSD: screen.c,v 1.13 2006/04/20 03:25:36 ray Exp $ */

/*  $NetBSD: screen.c,v 1.4 1995/04/29 01:11:36 mycroft Exp $   */

/*-

 * Copyright (c) 1992, 1993

 *  The Regents of the University of California.  All rights reserved.

 *

 * This code is derived from software contributed to Berkeley by

 * Chris Torek and Darren F. Provine.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 *

 *  @(#)screen.c    8.1 (Berkeley) 5/31/93

 */

/** @addtogroup tetris

 * @{

 */

/** @file

 */

/*

 * Tetris screen control.

 */

#include <err.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <vfs/vfs.h>

#include <async.h>

#include "screen.h"

#include "tetris.h"

#include <io/console.h>

#define STOP  (B_COLS - 3)

static cell curscreen[B_SIZE];  /* non-zero => standout (or otherwise marked) */

static int curscore;

static int isset;               /* true => terminal is in game mode */

static int use_color;       /* true => use colors */

static const struct shape *lastshape;

/*

 * putstr() is for unpadded strings (either as in termcap(5) or

 * simply literal strings);

 */

static inline void putstr(char *s)

{

    while (*s)

        putchar(*(s++));

}

static void start_standout(uint32_t color)

{

    fflush(stdout);

    console_set_rgb_color(fphone(stdout), 0xf0f0f0,

        use_color ? color : 0x000000);

}

static void resume_normal(void)

{

    fflush(stdout);

    console_set_rgb_color(fphone(stdout), 0, 0xf0f0f0);

}

void clear_screen(void)

{

    console_clear(fphone(stdout));

    moveto(0, 0);

}

/*

 * Clear the screen, forgetting the current contents in the process.

 */

void scr_clear(void)

{

    resume_normal();

    console_clear(fphone(stdout));

    curscore = -1;

    memset(curscreen, 0, sizeof(curscreen));

}

/*

 * Set up screen

 */

void scr_init(void)

{

    console_cursor_visibility(fphone(stdout), 0);

    resume_normal();

    scr_clear();

}

void moveto(int r, int c)

{

    fflush(stdout);

    console_goto(fphone(stdout), c, r);

}

winsize_t winsize;

static int get_display_size(winsize_t *ws)

{

    return console_get_size(fphone(stdout), &ws->ws_col, &ws->ws_row);

}

static int get_display_color_sup(void)

{

    int rc;

    int ccap;

    rc = console_get_color_cap(fphone(stdout), &ccap);

    if (rc != 0)

        return 0;

    return (ccap >= CONSOLE_CCAP_RGB);

}

/*

 * Set up screen mode.

 */

void scr_set(void)

{

    winsize_t ws;

    Rows = 0;

    Cols = 0;

    if (get_display_size(&ws) == 0) {

        Rows = ws.ws_row;

        Cols = ws.ws_col;

    }

    use_color = get_display_color_sup();

    if ((Rows < MINROWS) || (Cols < MINCOLS)) {

        char smallscr[55];

        snprintf(smallscr, sizeof(smallscr),

            "the screen is too small (must be at least %dx%d)",

            MINROWS, MINCOLS);

        stop(smallscr);

    }

    isset = 1;

    scr_clear();

}

/*

 * End screen mode.

 */

void scr_end(void)

{

    console_cursor_visibility(fphone(stdout), 1);

}

void stop(char *why)

{

    if (isset)

        scr_end();

    errx(1, "aborting: %s", why);

}

/*

 * Update the screen.

 */

void scr_update(void)

{

    cell *bp;

    cell *sp;

    cell so;

    cell cur_so = 0;

    int i;

    int j;

    int ccol;

    /* Always leave cursor after last displayed point */

    curscreen[D_LAST * B_COLS - 1] = -1;

    if (score != curscore) {

        moveto(0, 0);

        printf("Score: %d", score);

        curscore = score;

    }

    /* Draw preview of next pattern */

    if ((showpreview) && (nextshape != lastshape)) {

        int i;

        static int r = 5, c = 2;

        int tr, tc, t;

        lastshape = nextshape;

        /* Clean */

        resume_normal();

        moveto(r - 1, c - 1);

        putstr("          ");

        moveto(r, c - 1);

        putstr("          ");

        moveto(r + 1, c - 1);

        putstr("          ");

        moveto(r + 2, c - 1);

        putstr("          ");

        moveto(r - 3, c - 2);

        putstr("Next shape:");

        /* Draw */

        start_standout(nextshape->color);

        moveto(r, 2 * c);

        putstr("  ");

        for (i = 0; i < 3; i++) {

            t = c + r * B_COLS;

            t += nextshape->off[i];

            tr = t / B_COLS;

            tc = t % B_COLS;

            moveto(tr, 2*tc);

            putstr("  ");

        }

        resume_normal();

    }

    bp = &board[D_FIRST * B_COLS];

    sp = &curscreen[D_FIRST * B_COLS];

    for (j = D_FIRST; j < D_LAST; j++) {

        ccol = -1;

        for (i = 0; i < B_COLS; bp++, sp++, i++) {

            if (*sp == (so = *bp))

                continue;

            *sp = so;

            if (i != ccol) {

                if (cur_so) {

                    resume_normal();

                    cur_so = 0;

                }

                moveto(RTOD(j), CTOD(i));

            }

            if (so != cur_so) {

                if (so)

                    start_standout(so);

                else

                    resume_normal();

                cur_so = so;

            }

            putstr("  ");

            ccol = i + 1;

            /*

             * Look ahead a bit, to avoid extra motion if

             * we will be redrawing the cell after the next.

             * Motion probably takes four or more characters,

             * so we save even if we rewrite two cells

             * `unnecessarily'.  Skip it all, though, if

             * the next cell is a different color.

             */

            if ((i > STOP) || (sp[1] != bp[1]) || (so != bp[1]))

                continue;

            if (sp[2] != bp[2])

                sp[1] = -1;

            else if ((i < STOP) && (so == bp[2]) && (sp[3] != bp[3])) {

                sp[2] = -1;

                sp[1] = -1;

            }

        }

    }

    if (cur_so)

        resume_normal();

    fflush(stdout);

}

/*

 * Write a message (set != 0), or clear the same message (set == 0).

 * (We need its length in case we have to overwrite with blanks.)

 */

void scr_msg(char *s, int set)

{

    int l = str_size(s);

    moveto(Rows - 2, ((Cols - l) >> 1) - 1);

    if (set)

        putstr(s);

    else

        while (--l >= 0)

            (void) putchar(' ');

}

/** @}

 */