/* $NetBSD: rasops1_putchar_width.h,v 1.6 2019/08/10 01:24:17 rin Exp $ */

/* $NetBSD: rasops1_putchar_width.h,v 1.6 2019/08/10 01:24:17 rin Exp $ */

/* NetBSD: rasops1.c,v 1.28 2019/07/25 03:02:44 rin Exp */
/*-
* Copyright (c) 1999 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Andrew Doran.
*
* 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.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
*/

#if RASOPS_WIDTH != 8 && RASOPS_WIDTH != 16
#error "Width not supported"
#endif

#if RASOPS_WIDTH == 8
#define SUBST_UNIT uint8_t
#define GET_GLYPH(fr) (fr)[0]
#endif

#if RASOPS_WIDTH == 16
/*
* rp and hp are always half-word aligned, whereas
* fr may not be aligned in half-word boundary.
*/
#define SUBST_UNIT uint16_t
# if BYTE_ORDER == BIG_ENDIAN
#define GET_GLYPH(fr) ((fr)[0] << 8) | (fr)[1]
# else
#define GET_GLYPH(fr) (fr)[0] | ((fr)[1] << 8)
# endif
#endif /* RASOPS_WIDTH == 16 */

#define NAME(width) NAME1(width)
#define NAME1(width) rasops1_putchar ## width

/*
* Width-optimized putchar function.
*/
static void
NAME(RASOPS_WIDTH)(void *cookie, int row, int col, u_int uc, long attr)
{
struct rasops_info *ri = (struct rasops_info *)cookie;
struct wsdisplay_font *font = PICK_FONT(ri, uc);
int height;
uint32_t bg, fg;
uint8_t *fr;
SUBST_UNIT tmp, *rp, *hp;

hp = NULL; /* XXX GCC */

if (__predict_false(!CHAR_IN_FONT(uc, font)))
return;

#ifdef RASOPS_CLIPPING
/* Catches 'row < 0' case too */
if ((unsigned)row >= (unsigned)ri->ri_rows)
return;

if ((unsigned)col >= (unsigned)ri->ri_cols)
return;
#endif

height = font->fontheight;

rp = (SUBST_UNIT *)(ri->ri_bits + row * ri->ri_yscale +
col * sizeof(SUBST_UNIT));
if (ri->ri_hwbits)
hp = (SUBST_UNIT *)(ri->ri_hwbits + row * ri->ri_yscale +
col * sizeof(SUBST_UNIT));

bg = ATTR_BG(ri, attr);
fg = ATTR_FG(ri, attr);

/* If fg and bg match this becomes a space character */
if (uc == ' ' || __predict_false(fg == bg)) {
while (height--) {
*rp = bg;
if (ri->ri_hwbits) {
*hp = bg;
DELTA(hp, ri->ri_stride, SUBST_UNIT *);
}
DELTA(rp, ri->ri_stride, SUBST_UNIT *);
}
} else {
fr = FONT_GLYPH(uc, font, ri);

while (height--) {
tmp = GET_GLYPH(fr);
fr += font->stride;
if (bg)
tmp = ~tmp;

*rp = tmp;

if (ri->ri_hwbits) {
*hp = tmp;
DELTA(hp, ri->ri_stride, SUBST_UNIT *);
}

DELTA(rp, ri->ri_stride, SUBST_UNIT *);
}
}

/* Do underline */
if ((attr & WSATTR_UNDERLINE) != 0) {
DELTA(rp, - ri->ri_stride * ri->ri_ul.off, SUBST_UNIT *);
if (ri->ri_hwbits)
DELTA(hp, - ri->ri_stride * ri->ri_ul.off,
SUBST_UNIT *);

for (height = ri->ri_ul.height; height; height--) {
DELTA(rp, - ri->ri_stride, SUBST_UNIT *);
*rp = fg;
if (ri->ri_hwbits) {
DELTA(hp, - ri->ri_stride, SUBST_UNIT *);
*hp = fg;
}
}
}
}

#undef SUBST_UNIT
#undef GET_GLYPH

#undef NAME
#undef NAME1