sys/dev/syscons/daemon/daemon_saver.c

   1 /*-
   2  * Copyright (c) 1997 Sandro Sigala, Brescia, Italy.
   3  * Copyright (c) 1997 Chris Shenton
   4  * Copyright (c) 1995 S ren Schmidt
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer
  12  *    in this position and unchanged.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  18  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  19  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  20  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  21  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  22  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  23  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  24  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  25  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  26  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27  *
  28  * $FreeBSD$
  29  */
  30
  31 #include <sys/param.h>
  32 #include <sys/systm.h>
  33 #include <sys/module.h>
  34 #include <sys/malloc.h>
  35 #include <sys/jail.h>
  36 #include <sys/kernel.h>
  37 #include <sys/sysctl.h>
  38 #include <sys/consio.h>
  39 #include <sys/fbio.h>
  40
  41 #include <machine/pc/display.h>
  42
  43 #include <dev/fb/fbreg.h>
  44 #include <dev/fb/splashreg.h>
  45 #include <dev/syscons/syscons.h>
  46
  47 #define DAEMON_MAX_WIDTH        32
  48 #define DAEMON_MAX_HEIGHT       19
  49
  50 static u_char *message;
  51 static int messagelen;
  52 static int blanked;
  53 static int attr_mask;
  54
  55 #define ATTR(attr)      (((attr) & attr_mask) << 8)
  56
  57 /* Who is the author of this ASCII pic? */
  58
  59 static u_char *daemon_pic[] = {
  60         "             ,        ,",
  61         "            /(        )`",
  62         "            \\ \\___   / |",
  63         "            /- _  `-/  '",
  64         "           (/\\/ \\ \\   /\\",
  65         "           / /   | `    \\",
  66         "           O O   ) /    |",
  67         "           `-^--'`<     '",
  68         "          (_.)  _  )   /",
  69         "           `.___/`    /",
  70         "             `-----' /",
  71         "<----.     __ / __   \\",
  72         "<----|====O)))==) \\) /====",
  73         "<----'    `--' `.__,' \\",
  74         "             |        |",
  75         "              \\       /       /\\",
  76         "         ______( (_  / \\______/",
  77         "       ,'  ,-----'   |",
  78         "       `--{__________)",
  79         NULL
  80 };
  81
  82 static u_char *daemon_attr[] = {
  83         "             R        R",
  84         "            RR        RR",
  85         "            R RRRR   R R",
  86         "            RR W  RRR  R",
  87         "           RWWW W R   RR",
  88         "           W W   W R    R",
  89         "           B B   W R    R",
  90         "           WWWWWWRR     R",
  91         "          RRRR  R  R   R",
  92         "           RRRRRRR    R",
  93         "             RRRRRRR R",
  94         "YYYYYY     RR R RR   R",
  95         "YYYYYYYYYYRRRRYYR RR RYYYY",
  96         "YYYYYY    RRRR RRRRRR R",
  97         "             R        R",
  98         "              R       R       RR",
  99         "         CCCCCCR RR  R RRRRRRRR",
 100         "       CC  CCCCCCC   C",
 101         "       CCCCCCCCCCCCCCC",
 102         NULL
 103 };
 104
 105 /*
 106  * Reverse a graphics character, or return unaltered if no mirror;
 107  * should do alphanumerics too, but I'm too lazy. <cshenton@it.hq.nasa.gov>
 108  */
 109
 110 static u_char
 111 xflip_symbol(u_char symbol)
 112 {
 113         static const u_char lchars[] = "`'(){}[]\\/<>";
 114         static const u_char rchars[] = "'`)(}{][/\\><";
 115         int pos;
 116
 117         for (pos = 0; lchars[pos] != '\0'; pos++)
 118                 if (lchars[pos] == symbol)
 119                         return rchars[pos];
 120
 121         return symbol;
 122 }
 123
 124 static void
 125 clear_daemon(sc_softc_t *sc, int xpos, int ypos, int dxdir, int xoff, int yoff,
 126             int xlen, int ylen)
 127 {
 128         int y;
 129
 130         if (xlen <= 0)
 131                 return;
 132         for (y = yoff; y < ylen; y++) {
 133                 sc_vtb_erase(&sc->cur_scp->scr,
 134                              (ypos + y)*sc->cur_scp->xsize + xpos + xoff,
 135                              xlen - xoff,
 136                              sc->scr_map[0x20], ATTR(FG_LIGHTGREY | BG_BLACK));
 137         }
 138 }
 139
 140 static void
 141 draw_daemon(sc_softc_t *sc, int xpos, int ypos, int dxdir, int xoff, int yoff,
 142             int xlen, int ylen)
 143 {
 144         int x, y;
 145         int px;
 146         int attr;
 147
 148         for (y = yoff; y < ylen; y++) {
 149                 if (dxdir < 0)
 150                         px = xoff;
 151                 else
 152                         px = DAEMON_MAX_WIDTH - xlen;
 153                 if (px >= strlen(daemon_pic[y]))
 154                         continue;
 155                 for (x = xoff; (x < xlen) && (daemon_pic[y][px] != '\0'); x++, px++) {
 156                         switch (daemon_attr[y][px]) {
 157                         case 'R': attr = FG_LIGHTRED | BG_BLACK; break;
 158                         case 'Y': attr = FG_YELLOW | BG_BLACK; break;
 159                         case 'B': attr = FG_LIGHTBLUE | BG_BLACK; break;
 160                         case 'W': attr = FG_LIGHTGREY | BG_BLACK; break;
 161                         case 'C': attr = FG_CYAN | BG_BLACK; break;
 162                         default: attr = FG_WHITE | BG_BLACK; break;
 163                         }
 164                         if (dxdir < 0) {        /* Moving left */
 165                                 sc_vtb_putc(&sc->cur_scp->scr,
 166                                             (ypos + y)*sc->cur_scp->xsize
 167                                                  + xpos + x,
 168                                             sc->scr_map[daemon_pic[y][px]],
 169                                             ATTR(attr));
 170                         } else {                /* Moving right */
 171                                 sc_vtb_putc(&sc->cur_scp->scr,
 172                                             (ypos + y)*sc->cur_scp->xsize
 173                                                 + xpos + DAEMON_MAX_WIDTH
 174                                                 - px - 1,
 175                                             sc->scr_map[xflip_symbol(daemon_pic[y][px])],
 176                                             ATTR(attr));
 177                         }
 178                 }
 179         }
 180 }
 181
 182 static void
 183 clear_string(sc_softc_t *sc, int xpos, int ypos, int xoff, char *s, int len)
 184 {
 185         if (len <= 0)
 186                 return;
 187         sc_vtb_erase(&sc->cur_scp->scr,
 188                      ypos*sc->cur_scp->xsize + xpos + xoff, len - xoff,
 189                      sc->scr_map[0x20], ATTR(FG_LIGHTGREY | BG_BLACK));
 190 }
 191
 192 static void
 193 draw_string(sc_softc_t *sc, int xpos, int ypos, int xoff, u_char *s, int len)
 194 {
 195         int x;
 196
 197         for (x = xoff; x < len; x++)
 198                 sc_vtb_putc(&sc->cur_scp->scr,
 199                             ypos*sc->cur_scp->xsize + xpos + x,
 200                             sc->scr_map[s[x]], ATTR(FG_LIGHTGREEN | BG_BLACK));
 201 }
 202
 203 static int
 204 daemon_saver(video_adapter_t *adp, int blank)
 205 {
 206         static int txpos = 10, typos = 10;
 207         static int txdir = -1, tydir = -1;
 208         static int dxpos = 0, dypos = 0;
 209         static int dxdir = 1, dydir = 1;
 210         static int moved_daemon = 0;
 211         static int xoff, yoff, toff;
 212         static int xlen, ylen, tlen;
 213         sc_softc_t *sc;
 214         scr_stat *scp;
 215         int min, max;
 216
 217         sc = sc_find_softc(adp, NULL);
 218         if (sc == NULL)
 219                 return EAGAIN;
 220         scp = sc->cur_scp;
 221
 222         if (blank) {
 223                 if (adp->va_info.vi_flags & V_INFO_GRAPHICS)
 224                         return EAGAIN;
 225                 if (blanked == 0) {
 226                         /* clear the screen and set the border color */
 227                         sc_vtb_clear(&scp->scr, sc->scr_map[0x20],
 228                                      ATTR(FG_LIGHTGREY | BG_BLACK));
 229                         vidd_set_hw_cursor(adp, -1, -1);
 230                         sc_set_border(scp, 0);
 231                         xlen = ylen = tlen = 0;
 232                 }
 233                 if (blanked++ < 2)
 234                         return 0;
 235                 blanked = 1;
 236
 237                 clear_daemon(sc, dxpos, dypos, dxdir, xoff, yoff, xlen, ylen);
 238                 clear_string(sc, txpos, typos, toff, message, tlen);
 239
 240                 if (++moved_daemon) {
 241                         /*
 242                          * The daemon picture may be off the screen, if
 243                          * screen size is chagened while the screen
 244                          * saver is inactive. Make sure the origin of
 245                          * the picture is between min and max.
 246                          */
 247                         if (scp->xsize <= DAEMON_MAX_WIDTH) {
 248                                 /*
 249                                  * If the screen width is too narrow, we
 250                                  * allow part of the picture go off
 251                                  * the screen so that the daemon won't
 252                                  * flip too often.
 253                                  */
 254                                 min = scp->xsize - DAEMON_MAX_WIDTH - 10;
 255                                 max = 10;
 256                         } else {
 257                                 min = 0;
 258                                 max = scp->xsize - DAEMON_MAX_WIDTH;
 259                         }
 260                         if (dxpos <= min) {
 261                                 dxpos = min;
 262                                 dxdir = 1;
 263                         } else if (dxpos >= max) {
 264                                 dxpos = max;
 265                                 dxdir = -1;
 266                         }
 267
 268                         if (scp->ysize <= DAEMON_MAX_HEIGHT) {
 269                                 min = scp->ysize - DAEMON_MAX_HEIGHT - 10;
 270                                 max = 10;
 271                         } else {
 272                                 min = 0;
 273                                 max = scp->ysize - DAEMON_MAX_HEIGHT;
 274                         }
 275                         if (dypos <= min) {
 276                                 dypos = min;
 277                                 dydir = 1;
 278                         } else if (dypos >= max) {
 279                                 dypos = max;
 280                                 dydir = -1;
 281                         }
 282
 283                         moved_daemon = -1;
 284                         dxpos += dxdir; dypos += dydir;
 285
 286                         /* clip the picture */
 287                         xoff = 0;
 288                         xlen = DAEMON_MAX_WIDTH;
 289                         if (dxpos + xlen <= 0)
 290                                 xlen = 0;
 291                         else if (dxpos < 0)
 292                                 xoff = -dxpos;
 293                         if (dxpos >= scp->xsize)
 294                                 xlen = 0;
 295                         else if (dxpos + xlen > scp->xsize)
 296                                 xlen = scp->xsize - dxpos;
 297                         yoff = 0;
 298                         ylen = DAEMON_MAX_HEIGHT;
 299                         if (dypos + ylen <= 0)
 300                                 ylen = 0;
 301                         else if (dypos < 0)
 302                                 yoff = -dypos;
 303                         if (dypos >= scp->ysize)
 304                                 ylen = 0;
 305                         else if (dypos + ylen > scp->ysize)
 306                                 ylen = scp->ysize - dypos;
 307                 }
 308
 309                 if (scp->xsize <= messagelen) {
 310                         min = scp->xsize - messagelen - 10;
 311                         max = 10;
 312                 } else {
 313                         min = 0;
 314                         max = scp->xsize - messagelen;
 315                 }
 316                 if (txpos <= min) {
 317                         txpos = min;
 318                         txdir = 1;
 319                 } else if (txpos >= max) {
 320                         txpos = max;
 321                         txdir = -1;
 322                 }
 323                 if (typos <= 0) {
 324                         typos = 0;
 325                         tydir = 1;
 326                 } else if (typos >= scp->ysize - 1) {
 327                         typos = scp->ysize - 1;
 328                         tydir = -1;
 329                 }
 330                 txpos += txdir; typos += tydir;
 331
 332                 toff = 0;
 333                 tlen = messagelen;
 334                 if (txpos + tlen <= 0)
 335                         tlen = 0;
 336                 else if (txpos < 0)
 337                         toff = -txpos;
 338                 if (txpos >= scp->xsize)
 339                         tlen = 0;
 340                 else if (txpos + tlen > scp->xsize)
 341                         tlen = scp->xsize - txpos;
 342
 343                 draw_daemon(sc, dxpos, dypos, dxdir, xoff, yoff, xlen, ylen);
 344                 draw_string(sc, txpos, typos, toff, message, tlen);
 345         } else
 346                 blanked = 0;
 347
 348         return 0;
 349 }
 350
 351 static int
 352 daemon_init(video_adapter_t *adp)
 353 {
 354         size_t hostlen;
 355
 356         mtx_lock(&prison0.pr_mtx);
 357         for (;;) {
 358                 hostlen = strlen(prison0.pr_hostname);
 359                 mtx_unlock(&prison0.pr_mtx);
 360
 361                 messagelen = hostlen + 3 + strlen(ostype) + 1 +
 362                     strlen(osrelease);
 363                 message = malloc(messagelen + 1, M_DEVBUF, M_WAITOK);
 364                 mtx_lock(&prison0.pr_mtx);
 365                 if (hostlen < strlen(prison0.pr_hostname)) {
 366                         free(message, M_DEVBUF);
 367                         continue;
 368                 }
 369                 break;
 370         }
 371         sprintf(message, "%s - %s %s", prison0.pr_hostname, ostype, osrelease);
 372         mtx_unlock(&prison0.pr_mtx);
 373         blanked = 0;
 374         switch (adp->va_mode) {
 375         case M_PC98_80x25:
 376         case M_PC98_80x30:
 377                 attr_mask = ~FG_UNDERLINE;
 378                 break;
 379         default:
 380                 attr_mask = ~0;
 381                 break;
 382         }
 383
 384         return 0;
 385 }
 386
 387 static int
 388 daemon_term(video_adapter_t *adp)
 389 {
 390         free(message, M_DEVBUF);
 391         return 0;
 392 }
 393
 394 static scrn_saver_t daemon_module = {
 395         "daemon_saver", daemon_init, daemon_term, daemon_saver, NULL,
 396 };
 397
 398 SAVER_MODULE(daemon_saver, daemon_module);