/*      @(#)wwframe.c   8.1 (Berkeley) 6/6/93   */
/*      $NetBSD: wwframe.c,v 1.7 2003/08/07 11:17:39 agc Exp $  */

/*
 * Copyright (c) 1983, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Edward Wang at The University of California, Berkeley.
 *
 * 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.
 */

#include "ww.h"
#include "tt.h"

#define frameok(w, r, c) (w1 = wwindex[wwsmap[r][c]], \
        w1->ww_fmap || w1->ww_order > (w)->ww_order)

void
wwframe(struct ww *w, struct ww *wframe)
{
        int r, c;
        char a1, a2, a3;
        char b1, b2, b3;
        int code;
        struct ww *w1;

        if (w->ww_w.t > 0) {
                r = w->ww_w.t - 1;
                c = w->ww_i.l - 1;
                a1 = 0;
                a2 = 0;
                b1 = 0;
                b2 = c < 0 || frameok(w, r, c);

                for (; c < w->ww_i.r; c++) {
                        if (c + 1 >= wwncol) {
                                a3 = 1;
                                b3 = 1;
                        } else {
                                a3 = w->ww_index == wwsmap[r + 1][c + 1];
                                b3 = frameok(w, r, c + 1);
                        }
                        if (b2) {
                                code = 0;
                                if ((a1 || a2) && b1)
                                        code |= WWF_L;
                                if ((a2 || a3) && b3)
                                        code |= WWF_R;
                                if (code)
                                        wwframec(wframe, r, c, code|WWF_TOP);
                        }
                        a1 = a2;
                        a2 = a3;
                        b1 = b2;
                        b2 = b3;
                }
                if ((a1 || a2) && b1 && b2)
                        wwframec(wframe, r, c, WWF_L|WWF_TOP);
        }

        if (w->ww_w.b < wwnrow) {
                r = w->ww_w.b;
                c = w->ww_i.l - 1;
                a1 = 0;
                a2 = 0;
                b1 = 0;
                b2 = c < 0 || frameok(w, r, c);

                for (; c < w->ww_i.r; c++) {
                        if (c + 1 >= wwncol) {
                                a3 = 1;
                                b3 = 1;
                        } else {
                                a3 = w->ww_index == wwsmap[r - 1][c + 1];
                                b3 = frameok(w, r, c + 1);
                        }
                        if (b2) {
                                code = 0;
                                if ((a1 || a2) && b1)
                                        code |= WWF_L;
                                if ((a2 || a3) && b3)
                                        code |= WWF_R;
                                if (code)
                                        wwframec(wframe, r, c, code);
                        }
                        a1 = a2;
                        a2 = a3;
                        b1 = b2;
                        b2 = b3;
                }
                if ((a1 || a2) && b1 && b2)
                        wwframec(wframe, r, c, WWF_L);
        }

        if (w->ww_w.l > 0) {
                r = w->ww_i.t - 1;
                c = w->ww_w.l - 1;
                a1 = 0;
                a2 = 0;
                b1 = 0;
                b2 = r < 0 || frameok(w, r, c);

                for (; r < w->ww_i.b; r++) {
                        if (r + 1 >= wwnrow) {
                                a3 = 1;
                                b3 = 1;
                        } else {
                                a3 = w->ww_index == wwsmap[r + 1][c + 1];
                                b3 = frameok(w, r + 1, c);
                        }
                        if (b2) {
                                code = 0;
                                if ((a1 || a2) && b1)
                                        code |= WWF_U;
                                if ((a2 || a3) && b3)
                                        code |= WWF_D;
                                if (code)
                                        wwframec(wframe, r, c, code);
                        }
                        a1 = a2;
                        a2 = a3;
                        b1 = b2;
                        b2 = b3;
                }
                if ((a1 || a2) && b1 && b2)
                        wwframec(wframe, r, c, WWF_U);
        }

        if (w->ww_w.r < wwncol) {
                r = w->ww_i.t - 1;
                c = w->ww_w.r;
                a1 = 0;
                a2 = 0;
                b1 = 0;
                b2 = r < 0 || frameok(w, r, c);

                for (; r < w->ww_i.b; r++) {
                        if (r + 1 >= wwnrow) {
                                a3 = 1;
                                b3 = 1;
                        } else {
                                a3 = w->ww_index == wwsmap[r + 1][c - 1];
                                b3 = frameok(w, r + 1, c);
                        }
                        if (b2) {
                                code = 0;
                                if ((a1 || a2) && b1)
                                        code |= WWF_U;
                                if ((a2 || a3) && b3)
                                        code |= WWF_D;
                                if (code)
                                        wwframec(wframe, r, c, code);
                        }
                        a1 = a2;
                        a2 = a3;
                        b1 = b2;
                        b2 = b3;
                }
                if ((a1 || a2) && b1 && b2)
                        wwframec(wframe, r, c, WWF_U);
        }
}

void
wwframec(struct ww *f, int r, int c, char code)
{
        char oldcode;
        unsigned char *smap;

        if (r < f->ww_i.t || r >= f->ww_i.b || c < f->ww_i.l || c >= f->ww_i.r)
                return;

        smap = &wwsmap[r][c];

        {
                struct ww *w;

                w = wwindex[*smap];
                if (w->ww_order > f->ww_order) {
                        if (w != &wwnobody && w->ww_win[r][c] == 0)
                                w->ww_nvis[r]--;
                        *smap = f->ww_index;
                }
        }

        if (f->ww_fmap != 0) {
                char *fmap;

                fmap = &f->ww_fmap[r][c];
                oldcode = *fmap;
                *fmap |= code;
                if (code & WWF_TOP)
                        *fmap &= ~WWF_LABEL;
                code = *fmap;
        } else
                oldcode = 0;
        {
                char *win = &f->ww_win[r][c];

                if (*win == WWM_GLS && *smap == f->ww_index)
                        f->ww_nvis[r]++;
                *win &= ~WWM_GLS;
        }
        if (oldcode != code && (code & WWF_LABEL) == 0) {
                short frame;

                frame = tt.tt_frame[code & WWF_MASK];
                f->ww_buf[r][c].c_w = frame;
                if (wwsmap[r][c] == f->ww_index) {
                        wwtouched[r] |= WWU_TOUCHED;
                        wwns[r][c].c_w = frame;
                }
        }
}