#include <sys/param.h>
#include <sys/systm.h>
#include <sys/module.h>
#include <sys/malloc.h>
#include <sys/kernel.h>
#include <sys/sysctl.h>
#include <sys/consio.h>
#include <sys/fbio.h>
#include <sys/thread.h>
#include <machine/pc/display.h>
#include <dev/video/fb/fbreg.h>
#include <dev/video/fb/splashreg.h>
#include "../syscons.h"
#define FRED_MAX_WIDTH 31
#define FRED_MAX_HEIGHT 15
static char *message;
static int messagelen;
static int blanked;
static const char *fred_pic[] = {
",--, | ,--,",
"| `-, ,^, ,-' |",
" `, `-, (/ \\) ,-' ,'",
" `-, `-,/ \\,-' ,-'",
" `------( )------'",
" ,----------( )----------,",
" | _,-( )-,_ |",
" `-,__,-' \\ / `-,__,-'",
" | |",
" | |",
" | |",
" | |",
" | |",
" | |",
" `|'",
NULL
};
static const char *fred_attr[] = {
"WWWW R WWWW",
"W WWW RRR WWW W",
" WW WWW GR RG WWW WW ",
" WWW WWWR RWWW WWW",
" WWWWWWWR RWWWWWWW",
" WWWWWWWWWWWR RWWWWWWWWWWW",
" W WWWR RWWW W",
" WWWWWWWW R R WWWWWWWW",
" R R",
" R R",
" R R",
" R R",
" R R",
" R R",
" RRR",
NULL
};
static u_char
xflip_symbol(u_char symbol)
{
static const u_char lchars[] = "`'(){}[]\\/<>";
static const u_char rchars[] = "'`)(}{][/\\><";
int pos;
for (pos = 0; lchars[pos] != '\0'; pos++)
if (lchars[pos] == symbol)
return rchars[pos];
return symbol;
}
static void
clear_fred(sc_softc_t *sc, int xpos, int ypos, int dxdir, int xoff, int yoff,
int xlen, int ylen)
{
int y;
if (xlen <= 0)
return;
for (y = yoff; y < ylen; y++) {
sc_vtb_erase(&sc->cur_scp->scr,
(ypos + y)*sc->cur_scp->xsize + xpos + xoff,
xlen - xoff,
sc->scr_map[0x20], (FG_LIGHTGREY | BG_BLACK) << 8);
}
}
static void
draw_fred(sc_softc_t *sc, int xpos, int ypos, int dxdir, int xoff, int yoff,
int xlen, int ylen)
{
int x, y;
int px;
int attr;
for (y = yoff; y < ylen; y++) {
if (dxdir < 0)
px = xoff;
else
px = FRED_MAX_WIDTH - xlen;
if (px >= strlen(fred_pic[y]))
continue;
for (x = xoff; (x < xlen) && (fred_pic[y][px] != '\0'); x++, px++) {
switch (fred_attr[y][px]) {
case 'R': attr = (FG_LIGHTRED|BG_BLACK)<<8; break;
case 'G': attr = (FG_LIGHTGREEN|BG_BLACK)<<8; break;
case 'W': attr = (FG_LIGHTGREY|BG_BLACK)<<8; break;
default: attr = (FG_WHITE|BG_BLACK)<<8; break;
}
if (dxdir < 0) {
sc_vtb_putc(&sc->cur_scp->scr,
(ypos + y)*sc->cur_scp->xsize
+ xpos + x,
sc->scr_map[(int)fred_pic[y][px]],
attr);
} else {
sc_vtb_putc(&sc->cur_scp->scr,
(ypos + y)*sc->cur_scp->xsize
+ xpos + FRED_MAX_WIDTH
- px - 1,
sc->scr_map[xflip_symbol(fred_pic[y][px])],
attr);
}
}
}
}
static void
clear_string(sc_softc_t *sc, int xpos, int ypos, int xoff, char *s, int len)
{
if (len <= 0)
return;
sc_vtb_erase(&sc->cur_scp->scr,
ypos*sc->cur_scp->xsize + xpos + xoff, len - xoff,
sc->scr_map[0x20], (FG_LIGHTGREY | BG_BLACK) << 8);
}
static void
draw_string(sc_softc_t *sc, int xpos, int ypos, int xoff, char *s, int len)
{
int x;
for (x = xoff; x < len; x++) {
sc_vtb_putc(&sc->cur_scp->scr,
ypos*sc->cur_scp->xsize + xpos + x,
sc->scr_map[(int)s[x]], (FG_LIGHTBLUE | BG_BLACK) << 8);
}
}
static int
fred_saver(video_adapter_t *adp, int blank)
{
static int txpos = 10, typos = 10;
static int txdir = -1, tydir = -1;
static int dxpos = 0, dypos = 0;
static int dxdir = 1, dydir = 1;
static int moved_fred = 0;
static int xoff, yoff, toff;
static int xlen, ylen, tlen;
sc_softc_t *sc;
scr_stat *scp;
int min, max;
sc = sc_find_softc(adp, NULL);
if (sc == NULL) {
return EAGAIN;
}
scp = sc->cur_scp;
if (blank) {
if (adp->va_info.vi_flags & V_INFO_GRAPHICS) {
return EAGAIN;
}
if (blanked == 0) {
sc_vtb_clear(&scp->scr, sc->scr_map[0x20],
(FG_LIGHTGREY | BG_BLACK) << 8);
(*vidsw[adp->va_index]->set_hw_cursor)(adp, -1, -1);
sc_set_border(scp, 0);
xlen = ylen = tlen = 0;
}
if (blanked++ < 2) {
return 0;
}
blanked = 1;
clear_fred(sc, dxpos, dypos, dxdir, xoff, yoff, xlen, ylen);
clear_string(sc, txpos, typos, toff, message, tlen);
if (++moved_fred) {
if (scp->xsize <= FRED_MAX_WIDTH) {
min = scp->xsize - FRED_MAX_WIDTH - 10;
max = 10;
} else {
min = 0;
max = scp->xsize - FRED_MAX_WIDTH;
}
if (dxpos <= min) {
dxpos = min;
dxdir = 1;
} else if (dxpos >= max) {
dxpos = max;
dxdir = -1;
}
if (scp->ysize <= FRED_MAX_HEIGHT) {
min = scp->ysize - FRED_MAX_HEIGHT - 10;
max = 10;
} else {
min = 0;
max = scp->ysize - FRED_MAX_HEIGHT;
}
if (dypos <= min) {
dypos = min;
dydir = 1;
} else if (dypos >= max) {
dypos = max;
dydir = -1;
}
moved_fred = -1;
dxpos += dxdir; dypos += dydir;
xoff = 0;
xlen = FRED_MAX_WIDTH;
if (dxpos + xlen <= 0)
xlen = 0;
else if (dxpos < 0)
xoff = -dxpos;
if (dxpos >= scp->xsize)
xlen = 0;
else if (dxpos + xlen > scp->xsize)
xlen = scp->xsize - dxpos;
yoff = 0;
ylen = FRED_MAX_HEIGHT;
if (dypos + ylen <= 0)
ylen = 0;
else if (dypos < 0)
yoff = -dypos;
if (dypos >= scp->ysize)
ylen = 0;
else if (dypos + ylen > scp->ysize)
ylen = scp->ysize - dypos;
}
if (scp->xsize <= messagelen) {
min = scp->xsize - messagelen - 10;
max = 10;
} else {
min = 0;
max = scp->xsize - messagelen;
}
if (txpos <= min) {
txpos = min;
txdir = 1;
} else if (txpos >= max) {
txpos = max;
txdir = -1;
}
if (typos <= 0) {
typos = 0;
tydir = 1;
} else if (typos >= scp->ysize - 1) {
typos = scp->ysize - 1;
tydir = -1;
}
txpos += txdir; typos += tydir;
toff = 0;
tlen = messagelen;
if (txpos + tlen <= 0)
tlen = 0;
else if (txpos < 0)
toff = -txpos;
if (txpos >= scp->xsize)
tlen = 0;
else if (txpos + tlen > scp->xsize)
tlen = scp->xsize - txpos;
draw_fred(sc, dxpos, dypos, dxdir, xoff, yoff, xlen, ylen);
draw_string(sc, txpos, typos, toff, message, tlen);
} else {
blanked = 0;
}
return 0;
}
static int
fred_init(video_adapter_t *adp)
{
messagelen = strlen(hostname) + 3 + strlen(ostype) + 1 +
strlen(osrelease);
message = kmalloc(messagelen + 1, M_SYSCONS, M_WAITOK);
ksprintf(message, "%s - %s %s", hostname, ostype, osrelease);
blanked = 0;
return 0;
}
static int
fred_term(video_adapter_t *adp)
{
kfree(message, M_SYSCONS);
return 0;
}
static scrn_saver_t fred_module = {
"fred_saver", fred_init, fred_term, fred_saver, NULL,
};
SAVER_MODULE(fred_saver, fred_module);
