-/* xscreensaver, Copyright (c) 1998-2003 Jamie Zawinski <jwz@jwz.org>
+/* xscreensaver, Copyright (c) 1998-2006 Jamie Zawinski <jwz@jwz.org>
*
* Permission to use, copy, modify, distribute, and sell this software and its
* documentation for any purpose is hereby granted without fee, provided that
* Blue Screen of Death: the finest in personal computer emulation.
* Concept cribbed from Stephen Martin <smartin@mks.com>;
* this version written by jwz, 4-Jun-98.
+ * Mostly rewritten by jwz, 20-Feb-2006.
*/
-#include <math.h>
+
+/* To add a new mode:
+
+ - Define a function `new_os(dpy,win)' that returns a `bsod_state' struct.
+ - Draw on the window to set up its frame-zero state. This must be fast:
+ no sleeping or long loops!
+ - Populate the bsod_state structure with additional actions to take by
+ using the various BSOD_ macros. Note that you can control the delays
+ when printing text on a per-character or per-line basis.
+ - Insert your function in the `all_modes' table.
+ - Add a `doXXX' entry to `bsod_defaults'.
+ - Add fonts or colors to `bsod_defaults' if necessary.
+
+ Look at windows_31() for a simple example.
+
+ Look at linux_fsck() for a more complicated example with random behavior.
+
+ Or, you can bypass all that: look at nvidia() for a really hairy example.
+ */
+
+
#include "screenhack.h"
#include "xpm-pixmap.h"
-#include <stdio.h>
-#include <time.h>
-#include <sys/time.h>
-#include <X11/Xutil.h>
+#include "apple2.h"
+
+#include <ctype.h>
#ifdef HAVE_XSHM_EXTENSION
#include "xshm.h"
# include <sys/utsname.h>
#endif /* HAVE_UNAME */
-#include "images/amiga.xpm"
+#if defined(HAVE_GDK_PIXBUF) || defined(HAVE_XPM) || defined(HAVE_COCOA)
+# define DO_XPM
+#endif
+
+#ifdef DO_XPM
+# include "images/amiga.xpm"
+# include "images/hmac.xpm"
+# include "images/osx_10_2.xpm"
+# include "images/osx_10_3.xpm"
+#endif
#include "images/atari.xbm"
#include "images/mac.xbm"
#include "images/macbomb.xbm"
-#include "images/hmac.xpm"
#undef countof
#define countof(x) (sizeof((x))/sizeof((*x)))
-static int
-draw_string (Display *dpy, Window window, GC gc, XGCValues *gcv,
- XFontStruct *font,
- int xoff, int yoff,
- int win_width, int win_height,
- const char *string, int delay)
+#undef EOF
+typedef enum { EOF=0,
+ LEFT, CENTER, RIGHT,
+ LEFT_FULL, CENTER_FULL, RIGHT_FULL,
+ COLOR, INVERT, MOVETO, MARGINS,
+ CURSOR_BLOCK, CURSOR_LINE, RECT, COPY, PIXMAP, IMG,
+ PAUSE, CHAR_DELAY, LINE_DELAY,
+ LOOP
+} bsod_event_type;
+
+struct bsod_event {
+ bsod_event_type type;
+ void *arg1, *arg2, *arg3, *arg4, *arg5, *arg6;
+};
+
+struct bsod_state {
+ Display *dpy;
+ Window window;
+ XWindowAttributes xgwa;
+ XFontStruct *font;
+ unsigned long fg, bg;
+ GC gc;
+ int left_margin, right_margin; /* for text wrapping */
+ int top_margin, bottom_margin; /* for text scrolling */
+ Bool wrap_p;
+ Bool scroll_p;
+
+ Pixmap pixmap; /* Source image used by BSOD_PIXMAP */
+
+ int x, y; /* current text-drawing position */
+ int current_left; /* don't use this */
+
+ int pos; /* position in queue */
+ int queue_size;
+ struct bsod_event *queue;
+
+ unsigned long char_delay; /* delay between printing characters */
+ unsigned long line_delay; /* delay between printing lines */
+
+ Bool macx_eol_kludge;
+
+ void *closure;
+ int (*draw_cb) (struct bsod_state *);
+ void (*free_cb) (struct bsod_state *);
+
+ async_load_state *img_loader;
+};
+
+
+# if !defined(__GNUC__) && !defined(__extension__)
+ /* don't warn about "string length is greater than the length ISO C89
+ compilers are required to support" in these string constants... */
+# define __extension__ /**/
+# endif
+
+
+/* Draw text at the current position; align is LEFT, CENTER, RIGHT, or *_FULL
+ (meaning to clear the whole line margin to margin).
+ */
+#define BSOD_TEXT(bst,align,string) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = (align); \
+ (bst)->queue[(bst)->pos].arg1 = (void *) strdup (__extension__ (string)); \
+ (bst)->queue[(bst)->pos].arg2 = (bst)->queue[(bst)->pos].arg1; \
+ (bst)->queue[(bst)->pos].arg3 = (void *) 0; \
+ (bst)->pos++; \
+ } while (0)
+
+/* Flip the foreground and background colors
+ */
+#define BSOD_INVERT(bst) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = INVERT; \
+ (bst)->pos++; \
+ } while (0)
+
+/* Set the foreground and background colors to the given pixels
+ */
+#define BSOD_COLOR(bst,fg,bg) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = COLOR; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) fg; \
+ (bst)->queue[(bst)->pos].arg2 = (void *) bg; \
+ (bst)->pos++; \
+ } while (0)
+
+/* Set the position of the next text.
+ Note that this is the baseline: lower left corner of next char printed.
+ */
+#define BSOD_MOVETO(bst,x,y) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = MOVETO; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (x)); \
+ (bst)->queue[(bst)->pos].arg2 = (void *) ((long) (y)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Delay for at least the given number of microseconds.
+ */
+#define BSOD_PAUSE(bst,usec) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = PAUSE; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (usec)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Set the delay after each character is printed.
+ */
+#define BSOD_CHAR_DELAY(bst,usec) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = CHAR_DELAY; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (usec)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Set the delay after each newline.
+ */
+#define BSOD_LINE_DELAY(bst,usec) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = LINE_DELAY; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) (usec); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Set the prevailing left/right margins (used when strings have
+ embedded newlines, and when centering or right-justifying text.)
+ */
+#define BSOD_MARGINS(bst,left,right) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = MARGINS; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (left)); \
+ (bst)->queue[(bst)->pos].arg2 = (void *) ((long) (right)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Draw a blinking cursor; type is CURSOR_BLOCK or CURSOR_LINE.
+ usec is how long 1/2 of a cycle is. count is how many times to blink.
+ (You can pass a gigantic number if this is the last thing in your mode.)
+ */
+#define BSOD_CURSOR(bst,ctype,usec,count) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = (ctype); \
+ (bst)->queue[(bst)->pos].arg1 = (void *) (usec); \
+ (bst)->queue[(bst)->pos].arg2 = (void *) (count); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Draw or fill a rectangle. You can set line-width in the GC.
+ */
+#define BSOD_RECT(bst,fill,x,y,w,h) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = RECT; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (fill)); \
+ (bst)->queue[(bst)->pos].arg2 = (void *) ((long) (x)); \
+ (bst)->queue[(bst)->pos].arg3 = (void *) ((long) (y)); \
+ (bst)->queue[(bst)->pos].arg4 = (void *) ((long) (w)); \
+ (bst)->queue[(bst)->pos].arg5 = (void *) ((long) (h)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Copy a rect from the window, to the window.
+ */
+#define BSOD_COPY(bst,srcx,srcy,w,h,tox,toy) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = COPY; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) ((long) (srcx)); \
+ (bst)->queue[(bst)->pos].arg2 = (void *) ((long) (srcy)); \
+ (bst)->queue[(bst)->pos].arg3 = (void *) ((long) (w)); \
+ (bst)->queue[(bst)->pos].arg4 = (void *) ((long) (h)); \
+ (bst)->queue[(bst)->pos].arg5 = (void *) ((long) (tox)); \
+ (bst)->queue[(bst)->pos].arg6 = (void *) ((long) (toy)); \
+ (bst)->pos++; \
+ } while (0)
+
+/* Copy a rect from bst->pixmap to the window.
+ */
+#define BSOD_PIXMAP(bst,srcx,srcy,w,h,tox,toy) do { \
+ BSOD_COPY(bst,srcx,srcy,w,h,tox,toy); \
+ (bst)->queue[(bst)->pos-1].type = PIXMAP; \
+ } while (0)
+
+/* Load a random image (or the desktop) onto the window.
+ */
+#define BSOD_IMG(bst) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = IMG; \
+ (bst)->pos++; \
+ } while (0)
+
+/* Jump around in the state table. You can use this as the last thing
+ in your state table to repeat the last N elements forever.
+ */
+#define BSOD_LOOP(bst,off) do { \
+ ensure_queue (bst); \
+ (bst)->queue[(bst)->pos].type = LOOP; \
+ (bst)->queue[(bst)->pos].arg1 = (void *) (off); \
+ (bst)->pos++; \
+ } while (0)
+
+
+static void
+ensure_queue (struct bsod_state *bst)
{
- int x, y;
- int width = 0, height = 0, cw = 0;
- int char_width, line_height;
+ int n;
+ if (bst->pos + 1 < bst->queue_size)
+ return;
+
+ n = bst->queue_size + 10;
+ if (n < 100) n *= 2;
+ n *= 1.2;
+
+ bst->queue = (struct bsod_event *)
+ realloc (bst->queue, n * sizeof(*bst->queue));
+ if (!bst->queue) abort();
+ memset (bst->queue + bst->queue_size, 0,
+ (n - bst->queue_size) * sizeof(*bst->queue));
+ bst->queue_size = n;
+}
+
+
+static void
+position_for_text (struct bsod_state *bst, const char *line)
+{
+ int max_width = 0;
+
+ const char *start = line;
+
+ if (bst->queue[bst->pos].type != LEFT &&
+ bst->queue[bst->pos].type != LEFT_FULL)
+ while (*start)
+ {
+ int dir, ascent, descent;
+ XCharStruct ov;
+ const char *end = start;
+ while (*end && *end != '\r' && *end != '\n')
+ end++;
+
+ XTextExtents (bst->font, start, end-start,
+ &dir, &ascent, &descent, &ov);
+ if (ov.width > max_width)
+ max_width = ov.width;
+ if (!*end) break;
+ start = end+1;
+ }
+
+ switch (bst->queue[bst->pos].type) {
+ case LEFT:
+ case LEFT_FULL:
+ bst->current_left = bst->left_margin;
+ break;
+ case RIGHT:
+ case RIGHT_FULL:
+ bst->x = max_width - bst->right_margin;
+ bst->current_left = bst->x;
+ break;
+ case CENTER:
+ case CENTER_FULL:
+ {
+ int w = (bst->xgwa.width - bst->left_margin - bst->right_margin -
+ max_width);
+ if (w < 0) w = 0;
+ bst->x = bst->left_margin + (w / 2);
+ bst->current_left = bst->x;
+ break;
+ }
+ default:
+ abort();
+ }
+}
+
+
+static void
+bst_crlf (struct bsod_state *bst)
+{
+ int lh = bst->font->ascent + bst->font->descent;
+ bst->x = bst->current_left;
+ if (!bst->scroll_p ||
+ bst->y + lh < bst->xgwa.height - bst->bottom_margin)
+ bst->y += lh;
+ else
+ {
+ int w = bst->xgwa.width - bst->right_margin - bst->left_margin;
+ int h = bst->xgwa.height - bst->top_margin - bst->bottom_margin;
+ XCopyArea (bst->dpy, bst->window, bst->window, bst->gc,
+ bst->left_margin,
+ bst->top_margin + lh,
+ w, h - lh,
+ bst->left_margin,
+ bst->top_margin);
+ XClearArea (bst->dpy, bst->window,
+ bst->left_margin, bst->top_margin + h - lh, w, lh, False);
+ }
+}
+
+
+static void
+draw_char (struct bsod_state *bst, char c)
+{
+ if (!c)
+ abort();
+ else if (c == '\r')
+ {
+ bst->x = bst->current_left;
+ }
+ else if (c == '\n')
+ {
+ if (bst->macx_eol_kludge)
+ {
+ /* Special case for the weird way OSX crashes print newlines... */
+ XDrawImageString (bst->dpy, bst->window, bst->gc,
+ bst->x, bst->y, " ", 1);
+ XDrawImageString (bst->dpy, bst->window, bst->gc,
+ bst->x,
+ bst->y + bst->font->ascent + bst->font->descent,
+ " ", 1);
+ }
+ bst_crlf (bst);
+ }
+ else if (c == '\b') /* backspace */
+ {
+ int cw = (bst->font->per_char
+ ? bst->font->per_char['n'-bst->font->min_char_or_byte2].width
+ : bst->font->min_bounds.width);
+ bst->x -= cw;
+ if (bst->x < bst->left_margin)
+ bst->x = bst->left_margin;
+ }
+ else
+ {
+ int dir, ascent, descent;
+ XCharStruct ov;
+ XTextExtents (bst->font, &c, 1, &dir, &ascent, &descent, &ov);
+
+ if (bst->wrap_p &&
+ bst->x + ov.width > bst->xgwa.width - bst->right_margin)
+ bst_crlf (bst);
+
+ XDrawImageString (bst->dpy, bst->window, bst->gc,
+ bst->x, bst->y, &c, 1);
+ bst->x += ov.width;
+ }
+}
- const char *s = string;
- const char *se = string;
- /* This pretty much assumes fixed-width fonts */
- char_width = (font->per_char
- ? font->per_char['n'-font->min_char_or_byte2].width
- : font->min_bounds.width);
- line_height = font->ascent + font->descent + 1;
+static long
+bsod_pop (struct bsod_state *bst)
+{
+ bsod_event_type type = bst->queue[bst->pos].type;
+
+ if (bst->draw_cb)
+ return bst->draw_cb (bst);
+
+ if (bst->pos < 0) /* already done */
+ abort();
+
+ switch (type) {
+
+ case LEFT: case LEFT_FULL:
+ case CENTER: case CENTER_FULL:
+ case RIGHT: case RIGHT_FULL:
+ {
+ const char *s = (const char *) bst->queue[bst->pos].arg2;
+ char c;
+
+ if (! *s)
+ {
+ long delay = bst->line_delay;
+ bst->pos++;
+ bst->current_left = bst->left_margin;
+ return delay;
+ }
+
+ if (! bst->queue[bst->pos].arg3) /* "done once" */
+ {
+ position_for_text (bst, s);
+ bst->queue[bst->pos].type = LEFT;
+
+ if (type == CENTER_FULL ||
+ type == LEFT_FULL ||
+ type == RIGHT_FULL)
+ {
+ XSetForeground (bst->dpy, bst->gc, bst->bg);
+ XFillRectangle (bst->dpy, bst->window, bst->gc,
+ 0,
+ bst->y - bst->font->ascent,
+ bst->xgwa.width,
+ bst->font->ascent + bst->font->descent);
+ XSetForeground (bst->dpy, bst->gc, bst->fg);
+ }
+ }
- while (1)
+ c = *s++;
+ draw_char (bst, c);
+ bst->queue[bst->pos].arg2 = (void *) s;
+ bst->queue[bst->pos].arg3 = (void *) 1; /* "done once" */
+
+ return (c == '\r' || c == '\n'
+ ? bst->line_delay
+ : bst->char_delay);
+ }
+ case INVERT:
+ {
+ unsigned long swap = bst->fg;
+ bst->fg = bst->bg;
+ bst->bg = swap;
+ XSetForeground (bst->dpy, bst->gc, bst->fg);
+ XSetBackground (bst->dpy, bst->gc, bst->bg);
+ bst->pos++;
+ return 0;
+ }
+ case COLOR:
+ {
+ bst->fg = (unsigned long) bst->queue[bst->pos].arg1;
+ bst->bg = (unsigned long) bst->queue[bst->pos].arg2;
+ XSetForeground (bst->dpy, bst->gc, bst->fg);
+ XSetBackground (bst->dpy, bst->gc, bst->bg);
+ bst->pos++;
+ return 0;
+ }
+ case MOVETO:
+ {
+ bst->x = (long) bst->queue[bst->pos].arg1;
+ bst->y = (long) bst->queue[bst->pos].arg2;
+ bst->pos++;
+ return 0;
+ }
+ case RECT:
{
- if (*s == '\n' || !*s)
- {
- height++;
- if (cw > width) width = cw;
- cw = 0;
- if (!*s) break;
- }
+ int f = (long) bst->queue[bst->pos].arg1;
+ int x = (long) bst->queue[bst->pos].arg2;
+ int y = (long) bst->queue[bst->pos].arg3;
+ int w = (long) bst->queue[bst->pos].arg4;
+ int h = (long) bst->queue[bst->pos].arg5;
+ if (f)
+ XFillRectangle (bst->dpy, bst->window, bst->gc, x, y, w, h);
else
- cw++;
- s++;
+ XDrawRectangle (bst->dpy, bst->window, bst->gc, x, y, w, h);
+ bst->pos++;
+ return 0;
+ }
+ case COPY:
+ case PIXMAP:
+ {
+ int srcx = (long) bst->queue[bst->pos].arg1;
+ int srcy = (long) bst->queue[bst->pos].arg2;
+ int w = (long) bst->queue[bst->pos].arg3;
+ int h = (long) bst->queue[bst->pos].arg4;
+ int tox = (long) bst->queue[bst->pos].arg5;
+ int toy = (long) bst->queue[bst->pos].arg6;
+ XCopyArea (bst->dpy,
+ (type == PIXMAP ? bst->pixmap : bst->window),
+ bst->window, bst->gc,
+ srcx, srcy, w, h, tox, toy);
+ bst->pos++;
+ return 0;
+ }
+ case IMG:
+ {
+ if (bst->img_loader) abort();
+ bst->img_loader = load_image_async_simple (0, bst->xgwa.screen,
+ bst->window, bst->window,
+ 0, 0);
+ bst->pos++;
+ return 0;
+ }
+ case PAUSE:
+ {
+ long delay = (long) bst->queue[bst->pos].arg1;
+ bst->pos++;
+ return delay;
+ }
+ case CHAR_DELAY:
+ {
+ bst->char_delay = (long) bst->queue[bst->pos].arg1;
+ bst->pos++;
+ return 0;
}
+ case LINE_DELAY:
+ {
+ bst->line_delay = (long) bst->queue[bst->pos].arg1;
+ bst->pos++;
+ return 0;
+ }
+ case MARGINS:
+ {
+ bst->left_margin = (long) bst->queue[bst->pos].arg1;
+ bst->right_margin = (long) bst->queue[bst->pos].arg2;
+ bst->pos++;
+ return 0;
+ }
+ case CURSOR_BLOCK:
+ case CURSOR_LINE:
+ {
+ long delay = (long) bst->queue[bst->pos].arg1;
+ long count = (long) bst->queue[bst->pos].arg2;
+ int ox = bst->x;
+
+ if (type == CURSOR_BLOCK)
+ {
+ unsigned long swap = bst->fg;
+ bst->fg = bst->bg;
+ bst->bg = swap;
+ XSetForeground (bst->dpy, bst->gc, bst->fg);
+ XSetBackground (bst->dpy, bst->gc, bst->bg);
+ draw_char (bst, ' ');
+ }
+ else
+ {
+ draw_char (bst, (count & 1 ? ' ' : '_'));
+ draw_char (bst, ' ');
+ }
+
+ bst->x = ox;
- x = (win_width - (width * char_width)) / 2;
- y = (win_height - (height * line_height)) / 2;
+ count--;
+ bst->queue[bst->pos].arg2 = (void *) count;
+ if (count <= 0)
+ bst->pos++;
- if (x < 0) x = 2;
- if (y < 0) y = 2;
+ return delay;
+ }
+ case LOOP:
+ {
+ long off = (long) bst->queue[bst->pos].arg1;
+ bst->pos += off;
+ if (bst->pos < 0 || bst->pos >= bst->queue_size)
+ abort();
+ return 0;
+ }
+ case EOF:
+ {
+ bst->pos = -1;
+ return -1;
+ }
+ default:
+ break;
+ }
+ abort();
+}
- x += xoff;
- y += yoff;
- se = s = string;
- while (1)
+static struct bsod_state *
+make_bsod_state (Display *dpy, Window window,
+ const char *name, const char *class)
+{
+ XGCValues gcv;
+ struct bsod_state *bst;
+ char buf1[1024], buf2[1024];
+ char buf3[1024], buf4[1024];
+ const char *font1, *font2;
+
+ bst = (struct bsod_state *) calloc (1, sizeof (*bst));
+ bst->queue_size = 10;
+ bst->queue = (struct bsod_event *) calloc (bst->queue_size,
+ sizeof (*bst->queue));
+ bst->dpy = dpy;
+ bst->window = window;
+ XGetWindowAttributes (dpy, window, &bst->xgwa);
+
+ /* If the window is small:
+ use ".font" if it is loadable, else use ".font2".
+
+ If the window is big:
+ use ".bigFont" if it is loadable, else use ".bigFont2".
+ */
+ if (bst->xgwa.height < 640)
+ {
+ sprintf (buf1, "%.100s.font", name);
+ sprintf (buf2, "%.100s.font", class);
+ sprintf (buf3, "%.100s.font2", name);
+ sprintf (buf4, "%.100s.font2", class);
+ }
+ else
{
- if (*s == '\n' || !*s)
- {
- int off = 0;
- Bool flip = False;
-
- if (*se == '@' || *se == '_')
- {
- if (*se == '@') flip = True;
- se++;
- off = (char_width * (width - (s - se))) / 2;
- }
-
- if (flip)
- {
- XSetForeground(dpy, gc, gcv->background);
- XSetBackground(dpy, gc, gcv->foreground);
- }
-
- if (s != se)
- XDrawImageString(dpy, window, gc, x+off, y+font->ascent, se, s-se);
-
- if (flip)
- {
- XSetForeground(dpy, gc, gcv->foreground);
- XSetBackground(dpy, gc, gcv->background);
- }
-
- se = s;
- y += line_height;
- if (!*s) break;
- se = s+1;
-
- if (delay)
- {
- XSync(dpy, False);
- usleep(delay);
- }
- }
- s++;
- }
-
- return width * char_width;
+ sprintf (buf1, "%.100s.bigFont", name);
+ sprintf (buf2, "%.100s.bigFont", class);
+ sprintf (buf3, "%.100s.bigFont2", name);
+ sprintf (buf4, "%.100s.bigFont2", class);
+ }
+
+ font1 = get_string_resource (dpy, buf1, buf2);
+ font2 = get_string_resource (dpy, buf3, buf4);
+
+ if (font1)
+ bst->font = XLoadQueryFont (dpy, font1);
+ if (! bst->font && font2)
+ bst->font = XLoadQueryFont (dpy, font2);
+
+ /* If neither of those worked, try some defaults. */
+
+ if (! bst->font)
+ bst->font = XLoadQueryFont (dpy,"-*-courier-bold-r-*-*-*-120-*-*-m-*-*-*");
+ if (! bst->font)
+ bst->font = XLoadQueryFont (dpy, "fixed");
+ if (! bst->font)
+ abort();
+
+ gcv.font = bst->font->fid;
+
+ sprintf (buf1, "%.100s.foreground", name);
+ sprintf (buf2, "%.100s.Foreground", class);
+ bst->fg = gcv.foreground = get_pixel_resource (dpy, bst->xgwa.colormap,
+ buf1, buf2);
+ sprintf (buf1, "%.100s.background", name);
+ sprintf (buf2, "%.100s.Background", class);
+ bst->bg = gcv.background = get_pixel_resource (dpy, bst->xgwa.colormap,
+ buf1, buf2);
+ bst->gc = XCreateGC (dpy, window, GCFont|GCForeground|GCBackground, &gcv);
+
+#ifdef HAVE_COCOA
+ jwxyz_XSetAntiAliasing (dpy, bst->gc, False);
+#endif
+
+ bst->left_margin = bst->right_margin = 10;
+ bst->x = bst->left_margin;
+ bst->y = bst->font->ascent + bst->left_margin;
+
+ XSetWindowBackground (dpy, window, gcv.background);
+ return bst;
+}
+
+
+static void
+free_bsod_state (struct bsod_state *bst)
+{
+ int i;
+
+ if (bst->free_cb)
+ bst->free_cb (bst);
+ if (bst->pixmap)
+ XFreePixmap(bst->dpy, bst->pixmap);
+
+ XFreeFont (bst->dpy, bst->font);
+ XFreeGC (bst->dpy, bst->gc);
+
+ for (i = 0; i < bst->queue_size; i++)
+ switch (bst->queue[i].type) {
+ case LEFT: case LEFT_FULL:
+ case RIGHT: case RIGHT_FULL:
+ case CENTER: case CENTER_FULL:
+ free ((char *) bst->queue[i].arg1);
+ break;
+ default:
+ break;
+ }
+
+ free (bst->queue);
+ free (bst);
}
static Pixmap
-double_pixmap(Display *dpy, GC gc, Visual *visual, int depth, Pixmap pixmap,
- int pix_w, int pix_h)
+double_pixmap (Display *dpy, GC gc, Visual *visual, int depth, Pixmap pixmap,
+ int pix_w, int pix_h)
{
int x, y;
Pixmap p2 = XCreatePixmap(dpy, pixmap, pix_w*2, pix_h*2, depth);
}
-/* Sleep for N seconds and return False. But if a key or mouse event is
- seen, discard all pending key or mouse events, and return True.
- */
-static Bool
-bsod_sleep(Display *dpy, int seconds)
-{
- int q = seconds * 4;
- int quantum = 250000;
-
- if (seconds == -1)
- q = 1, quantum = 100000;
-
- do
- {
- XSync(dpy, False);
- while (XPending (dpy))
- {
- XEvent event;
- XNextEvent (dpy, &event);
- if (event.xany.type == ButtonPress)
- return True;
- if (event.xany.type == KeyPress)
- {
- KeySym keysym;
- char c = 0;
- XLookupString (&event.xkey, &c, 1, &keysym, 0);
- if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
- return True;
- }
- screenhack_handle_event (dpy, &event);
- }
-
- if (q > 0)
- {
- q--;
- usleep(quantum);
- }
- }
- while (q > 0);
+/*****************************************************************************
+ *****************************************************************************/
- return False;
+static struct bsod_state *
+windows_31 (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "windows", "Windows");
+ BSOD_INVERT (bst);
+ BSOD_TEXT (bst, CENTER, "Windows\n");
+ BSOD_INVERT (bst);
+ BSOD_TEXT (bst, CENTER,
+ "A fatal exception 0E has occured at F0AD:42494C4C\n"
+ "the current application will be terminated.\n"
+ "\n"
+ "* Press any key to terminate the current application.\n"
+ "* Press CTRL+ALT+DELETE again to restart your computer.\n"
+ " You will lose any unsaved information in all applications.\n"
+ "\n"
+ "\n");
+ BSOD_TEXT (bst, CENTER, "Press any key to continue");
+
+ bst->y = ((bst->xgwa.height -
+ ((bst->font->ascent + bst->font->descent) * 9))
+ / 2);
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-windows (Display *dpy, Window window, int delay, int which)
+static struct bsod_state *
+windows_nt (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
-
- const char *w95 =
- ("@Windows\n"
- "A fatal exception 0E has occured at F0AD:42494C4C\n"
- "the current application will be terminated.\n"
- "\n"
- "* Press any key to terminate the current application.\n"
- "* Press CTRL+ALT+DELETE again to restart your computer.\n"
- " You will lose any unsaved information in all applications.\n"
- "\n"
- "\n"
- "_Press any key to continue");
+ struct bsod_state *bst = make_bsod_state (dpy, window, "windows", "Windows");
- const char *wnt = /* from Jim Niemira <urmane@urmane.org> */
- ("*** STOP: 0x0000001E (0x80000003,0x80106fc0,0x8025ea21,0xfd6829e8)\n"
+ BSOD_TEXT (bst, LEFT,
+ "*** STOP: 0x0000001E (0x80000003,0x80106fc0,0x8025ea21,0xfd6829e8)\n"
"Unhandled Kernel exception c0000047 from fa8418b4 (8025ea21,fd6829e8)\n"
"\n"
"Dll Base Date Stamp - Name Dll Base Date Stamp - Name\n"
"Restart and set the recovery options in the system control panel\n"
"or the /CRASHDEBUG system start option. If this message reappears,\n"
"contact your system administrator or technical support group."
- );
+ );
- const char *w2ka =
- ("*** STOP: 0x000000D1 (0xE1D38000,0x0000001C,0x00000000,0xF09D42DA)\n"
- "DRIVER_IRQL_NOT_LESS_OR_EQUAL \n"
- "\n"
+ bst->line_delay = 750;
+
+ XClearWindow (dpy, window);
+ return bst;
+}
+
+
+static struct bsod_state *
+windows_2k (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "windows", "Windows");
+
+ BSOD_TEXT (bst, LEFT,
+ "*** STOP: 0x000000D1 (0xE1D38000,0x0000001C,0x00000000,0xF09D42DA)\n"
+ "DRIVER_IRQL_NOT_LESS_OR_EQUAL \n"
+ "\n"
"*** Address F09D42DA base at F09D4000, DateStamp 39f459ff - CRASHDD.SYS\n"
- "\n"
- "Beginning dump of physical memory\n");
- const char *w2kb =
- ("Physical memory dump complete. Contact your system administrator or\n"
- "technical support group.\n");
-
- const char *wmea =
- (" Windows protection error. You need to restart your computer.");
- const char *wmeb =
- (" System halted.");
-
- if (which < 0 || which > 2) abort();
-
- /* kludge to lump Win2K and WinME together; seems silly to add another
- preference/command line option just for this little one. */
- if (which == 2 && (random() % 2))
- which = 3;
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 600
- ? (which == 0 ? "windows95.font2" :
- which == 1 ? "windowsNT.font2" :
- which == 2 ? "windows2K.font2" :
- "windowsME.font2")
- : (which == 0 ? "windows95.font" :
- which == 1 ? "windowsNT.font" :
- which == 2 ? "windows2K.font" :
- "windowsME.font")),
- "Windows.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource((which == 0 ? "windows95.foreground" :
- which == 1 ? "windowsNT.foreground" :
- which == 2 ? "windows2K.foreground" :
- "windowsME.foreground"),
- "Windows.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource((which == 0 ? "windows95.background" :
- which == 1 ? "windowsNT.background" :
- which == 2 ? "windows2K.background" :
- "windowsME.background"),
- "Windows.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
+ "\n"
+ "Beginning dump of physical memory\n");
+ BSOD_PAUSE (bst, 4000000);
+ BSOD_TEXT (bst, LEFT,
+ "Physical memory dump complete. Contact your system administrator or\n"
+ "technical support group.\n");
+
+ bst->left_margin = 40;
+ bst->y = (bst->font->ascent + bst->font->descent) * 10;
+ bst->line_delay = 750;
+
+ XClearWindow (dpy, window);
+ return bst;
+}
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
- if (which == 0)
- draw_string(dpy, window, gc, &gcv, font,
- 0, 0, xgwa.width, xgwa.height, w95, 0);
- else if (which == 1)
- draw_string(dpy, window, gc, &gcv, font, 0, 0, 10, 10, wnt, 750);
- else if (which == 2)
- {
- int line_height = font->ascent + font->descent + 1;
- int x = 20;
- int y = (xgwa.height / 4);
+static struct bsod_state *
+windows_me (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "windows", "Windows");
- draw_string(dpy, window, gc, &gcv, font, x, y, 10, 10, w2ka, 750);
- y += line_height * 6;
- bsod_sleep(dpy, 4);
- draw_string(dpy, window, gc, &gcv, font, x, y, 10, 10, w2kb, 750);
- }
- else if (which == 3)
- {
- int line_height = font->ascent + font->descent;
- int x = 0;
- int y = (xgwa.height - line_height * 3) / 2;
- draw_string (dpy, window, gc, &gcv, font, x, y, 10, 10, wmea, 0);
- y += line_height * 2;
- x = draw_string (dpy, window, gc, &gcv, font, x, y, 10, 10, wmeb, 0);
- y += line_height;
- while (delay > 0)
- {
- XDrawImageString (dpy, window, gc, x, y, "_", 1);
- XSync(dpy, False);
- usleep(120000L);
- XDrawImageString (dpy, window, gc, x, y, " ", 1);
- XSync(dpy, False);
- usleep(120000L);
- if (bsod_sleep(dpy, 0))
- delay = 0;
- else
- delay--;
- }
- }
- else
- abort();
+ BSOD_TEXT (bst, LEFT,
+ "Windows protection error. You need to restart your computer.\n\n"
+ "System halted.");
+ BSOD_CURSOR (bst, CURSOR_LINE, 120000, 999999);
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ bst->left_margin = 40;
+ bst->y = ((bst->xgwa.height -
+ ((bst->font->ascent + bst->font->descent) * 3))
+ / 2);
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-windows_31 (Display *dpy, Window window, int delay)
+
+static struct bsod_state *
+windows_xp (Display *dpy, Window window)
{
- windows (dpy, window, delay, 0);
+ struct bsod_state *bst = make_bsod_state (dpy, window, "windows", "Windows");
+
+ BSOD_TEXT (bst, LEFT, /* From Wm. Rhodes <xscreensaver@27.org> */
+ "A problem has been detected and windows has been shut down to prevent "
+ "damage\n"
+ "to your computer.\n"
+ "\n"
+ "If this is the first time you've seen this Stop error screen,\n"
+ "restart your computer. If this screen appears again, follow\n"
+ "these steps:\n"
+ "\n"
+ "Check to be sure you have adequate disk space. If a driver is\n"
+ "identified in the Stop message, disable the driver or check\n"
+ "with the manufacturer for driver updates. Try changing video\n"
+ "adapters.\n"
+ "\n"
+ "Check with your hardware vendor for any BIOS updates. Disable\n"
+ "BIOS memory options such as caching or shadowing. If you need\n"
+ "to use Safe Mode to remove or disable components, restart your\n"
+ "computer, press F8 to select Advanced Startup Options, and then\n"
+ "select Safe Mode.\n"
+ "\n"
+ "Technical information:\n"
+ "\n"
+ "*** STOP: 0x0000007E (0xC0000005,0xF88FF190,0x0xF8975BA0,0xF89758A0)\n"
+ "\n"
+ "\n"
+ "*** EPUSBDSK.sys - Address F88FF190 base at FF88FE000, datestamp "
+ "3b9f3248\n"
+ "\n"
+ "Beginning dump of physical memory\n");
+ BSOD_PAUSE (bst, 4000000);
+ BSOD_TEXT (bst, LEFT,
+ "Physical memory dump complete.\n"
+ "Contact your system administrator or technical support group for "
+ "further\n"
+ "assitance.\n");
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-windows_nt (Display *dpy, Window window, int delay)
+
+static struct bsod_state *
+windows_lh (Display *dpy, Window window)
{
- windows (dpy, window, delay, 1);
+ struct bsod_state *bst =
+ make_bsod_state (dpy, window, "windowslh", "WindowsLH");
+
+ unsigned long fg = bst->fg;
+ unsigned long bg = bst->bg;
+ unsigned long bg2 = get_pixel_resource (dpy, bst->xgwa.colormap,
+ "windowslh.background2",
+ "WindowsLH.Background");
+
+ /* The "RSOD" that appeared with "Windows Longhorn 5048.050401-0536_x86fre"
+ As reported by http://joi.ito.com/RedScreen.jpg
+ */
+ BSOD_COLOR (bst, bg, bg2);
+ BSOD_TEXT (bst, CENTER_FULL, "Windows Boot Error\n");
+ BSOD_COLOR (bst, fg, bg);
+ BSOD_TEXT (bst, CENTER,
+ "\n"
+ "Windows Boot Manager has experienced a problem.\n"
+ "\n"
+ "\n"
+ " Status: 0xc000000f\n"
+ "\n"
+ "\n"
+ "\n"
+ " Info: An error occurred transferring exectuion." /* (sic) */
+ "\n"
+ "\n"
+ "\n"
+ "You can try to recover the system with the Microsoft Windows "
+ "System Recovery\n"
+ "Tools. (You might need to restart the system manually.)\n"
+ "\n"
+ "If the problem continues, please contact your system administrator "
+ "or computer\n"
+ "manufacturer.\n"
+ );
+ BSOD_MOVETO (bst, bst->left_margin, bst->xgwa.height - bst->font->descent);
+ BSOD_COLOR (bst, bg, bg2);
+ BSOD_TEXT (bst, LEFT_FULL, " SPACE=Continue\n");
+
+ bst->y = bst->font->ascent;
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-windows_2k (Display *dpy, Window window, int delay)
+
+static struct bsod_state *
+windows_other (Display *dpy, Window window)
{
- windows (dpy, window, delay, 2);
+ /* Lump all of the 2K-ish crashes together and select them randomly...
+ */
+ int which = (random() % 4);
+ switch (which) {
+ case 0: return windows_2k (dpy, window); break;
+ case 1: return windows_me (dpy, window); break;
+ case 2: return windows_xp (dpy, window); break;
+ case 3: return windows_lh (dpy, window); break;
+ default: abort(); break;
+ }
}
/* SCO OpenServer 5 panic, by Tom Kelly <tom@ancilla.toronto.on.ca>
*/
-static void
-sco (Display *dpy, Window window, int delay)
+static struct bsod_state *
+sco (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
- int lines_1 = 0, lines_2 = 0, lines_3 = 0, lines_4 = 0;
- const char *s;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "sco", "SCO");
- const char *sco_panic_1 =
- ("Unexpected trap in kernel mode:\n"
+ BSOD_TEXT (bst, LEFT,
+ "Unexpected trap in kernel mode:\n"
"\n"
"cr0 0x80010013 cr2 0x00000014 cr3 0x00000000 tlb 0x00000000\n"
"ss 0x00071054 uesp 0x00012055 efl 0x00080888 ipl 0x00000005\n"
"PANIC: k_trap - kernel mode trap type 0x0000000E\n"
"Trying to dump 5023 pages to dumpdev hd (1/41), 63 pages per '.'\n"
);
- const char *sco_panic_2 =
- ("................................................................."
+ BSOD_CHAR_DELAY (bst, 100000);
+ BSOD_TEXT (bst, LEFT,
+ "................................................................."
"..............\n"
);
- const char *sco_panic_3 =
- ("5023 pages dumped\n"
+ BSOD_CHAR_DELAY (bst, 0);
+ BSOD_TEXT (bst, LEFT,
+ "5023 pages dumped\n"
"\n"
"\n"
);
- const char *sco_panic_4 =
- ("** Safe to Power Off **\n"
+ BSOD_PAUSE (bst, 2000000);
+ BSOD_TEXT (bst, LEFT,
+ "** Safe to Power Off **\n"
" - or -\n"
"** Press Any Key to Reboot **\n"
);
- for (s = sco_panic_1; *s; s++) if (*s == '\n') lines_1++;
- for (s = sco_panic_2; *s; s++) if (*s == '\n') lines_2++;
- for (s = sco_panic_3; *s; s++) if (*s == '\n') lines_3++;
- for (s = sco_panic_4; *s; s++) if (*s == '\n') lines_4++;
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 600
- ? "sco.font2"
- : "sco.font"),
- "SCO.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource(("sco.foreground"),
- "SCO.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource(("sco.background"),
- "SCO.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
+ bst->y = ((bst->xgwa.height -
+ ((bst->font->ascent + bst->font->descent) * 18)));
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - ((lines_1 + lines_2 + lines_3 + lines_4 + 1) *
- (font->ascent + font->descent + 1)),
- 10, 10,
- sco_panic_1, 0);
- XSync(dpy, False);
- for (s = sco_panic_2; *s; s++)
- {
- char *ss = strdup(sco_panic_2);
- ss[s - sco_panic_2] = 0;
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - ((lines_2 + lines_3 + lines_4 + 1) *
- (font->ascent + font->descent + 1)),
- 10, 10,
- ss, 0);
- XSync(dpy, False);
- free(ss);
- if (bsod_sleep (dpy, -1))
- goto DONE;
- }
-
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - ((lines_3 + lines_4 + 1) *
- (font->ascent + font->descent + 1)),
- 10, 10,
- sco_panic_3, 0);
- XSync(dpy, False);
- if (bsod_sleep(dpy, 1))
- goto DONE;
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - ((lines_4 + 1) *
- (font->ascent + font->descent + 1)),
- 10, 10,
- sco_panic_4, 0);
- XSync(dpy, False);
-
- bsod_sleep(dpy, delay);
- DONE:
- XClearWindow(dpy, window);
- XFreeGC(dpy, gc);
- XFreeFont(dpy, font);
+ XClearWindow (dpy, window);
+ return bst;
}
/* Linux (sparc) panic, by Tom Kelly <tom@ancilla.toronto.on.ca>
*/
-static void
-sparc_linux (Display *dpy, Window window, int delay)
+static struct bsod_state *
+sparc_linux (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
- int lines = 1;
- const char *s;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "sco", "SCO");
+ bst->scroll_p = True;
+ bst->y = bst->xgwa.height - bst->font->ascent - bst->font->descent;
- const char *linux_panic =
- ("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
+ BSOD_TEXT (bst, LEFT,
+ "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
"Unable to handle kernel paging request at virtual address f0d4a000\n"
"tsk->mm->context = 00000014\n"
"tsk->mm->pgd = f26b0000\n"
"Instruction DUMP:\n"
);
- for (s = linux_panic; *s; s++) if (*s == '\n') lines++;
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 600
- ? "sparclinux.font2"
- : "sparclinux.font"),
- "SparcLinux.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource(("sparclinux.foreground"),
- "SparcLinux.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource(("sparclinux.background"),
- "SparcLinux.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
-
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - (lines * (font->ascent + font->descent + 1)),
- 10, 10,
- linux_panic, 0);
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ XClearWindow (dpy, window);
+ return bst;
}
+
/* BSD Panic by greywolf@starwolf.com - modeled after the Linux panic above.
By Grey Wolf <greywolf@siteROCK.com>
*/
-static void
-bsd (Display *dpy, Window window, int delay)
+static struct bsod_state *
+bsd (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
- int lines = 1;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "bsd", "BSD");
+
+ const char * const panicstr[] = {
+ "panic: ifree: freeing free inode\n",
+ "panic: blkfree: freeing free block\n",
+ "panic: improbability coefficient below zero\n",
+ "panic: cgsixmmap\n",
+ "panic: crazy interrupts\n",
+ "panic: nmi\n",
+ "panic: attempted windows install\n",
+ "panic: don't\n",
+ "panic: free inode isn't\n",
+ "panic: cpu_fork: curproc\n",
+ "panic: malloc: out of space in kmem_map\n",
+ "panic: vogon starship detected\n",
+ "panic: teleport chamber: out of order\n",
+ "panic: Brain fried - core dumped\n"
+ };
int i, n, b;
- const char *rbstr, *panicking;
- char syncing[80], bbuf[5], *bp;
-
- const char *panicstr[] =
- {"panic: ifree: freeing free inode",
- "panic: blkfree: freeing free block",
- "panic: improbability coefficient below zero",
- "panic: cgsixmmap",
- "panic: crazy interrupts",
- "panic: nmi",
- "panic: attempted windows install",
- "panic: don't",
- "panic: free inode isn't",
- "panic: cpu_fork: curproc",
- "panic: malloc: out of space in kmem_map",
- "panic: vogon starship detected",
- "panic: teleport chamber: out of order",
- "panic: Brain fried - core dumped"};
-
+ char syncing[80], bbuf[5];
+
for (i = 0; i < sizeof(syncing); i++)
syncing[i] = 0;
- i = (random() & 0xffff) % (sizeof(panicstr) / sizeof(*panicstr));
-
- panicking = panicstr[i];
- strcpy(syncing, "Syncing disks: ");
+ i = (random() % (sizeof(panicstr) / sizeof(*panicstr)));
+ BSOD_TEXT (bst, LEFT, panicstr[i]);
+ BSOD_TEXT (bst, LEFT, "Syncing disks: ");
- b = (random() & 0xff) % 40;
+ b = (random() % 40);
for (n = 0; (n < 20) && (b > 0); n++)
{
if (i)
b = 0;
}
sprintf (bbuf, "%d ", b);
- strcat (syncing, bbuf);
+ BSOD_TEXT (bst, LEFT, bbuf);
+ BSOD_PAUSE (bst, 1000000);
}
- if (b)
- rbstr = "damn!";
- else
- rbstr = "sunk!";
-
- lines = 5;
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 600
- ? "bsd.font2"
- : "bsd.font"),
- "BSD.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource(("bsd.foreground"),
- "BSD.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource(("bsd.background"),
- "BSD.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
+ BSOD_TEXT (bst, LEFT, "\n");
+ BSOD_TEXT (bst, LEFT, (b ? "damn!" : "sunk!"));
+ BSOD_TEXT (bst, LEFT, "\nRebooting\n");
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - (lines * (font->ascent + font->descent + 1)),
- 10, 10,
- panicking, 0);
- XSync(dpy, False);
- lines--;
+ bst->y = ((bst->xgwa.height -
+ ((bst->font->ascent + bst->font->descent) * 4)));
- for (bp = syncing; *bp;)
- {
- char *bsd_bufs, oc = 0;
- for (;*bp && (*bp != ' '); bp++)
- ;
- if (*bp == ' ')
- {
- oc = *bp;
- *bp = 0;
- }
- bsd_bufs = strdup(syncing);
- draw_string(dpy, window, gc, &gcv, font,
- 10,
- xgwa.height - (lines * (font->ascent + font->descent + 1)),
- 10, 10,
- bsd_bufs, 0);
- XSync(dpy, False);
- free(bsd_bufs);
- if (oc)
- *bp = oc;
- if (bsod_sleep(dpy, -1))
- goto DONE;
- bp++;
- }
-
- lines--;
-
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - (lines * (font->ascent + font->descent + 1)),
- 10, 10,
- rbstr, 0);
- lines--;
- draw_string(dpy, window, gc, &gcv, font,
- 10, xgwa.height - (lines * (font->ascent + font->descent + 1)),
- 10, 10,
- "Rebooting", 0);
-
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
-
-DONE:
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-amiga (Display *dpy, Window window, int delay)
+
+static struct bsod_state *
+amiga (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc, gc2;
- int height;
- unsigned long fg, bg, bg2;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "amiga", "Amiga");
+
Pixmap pixmap = 0;
int pix_w = 0, pix_h = 0;
- int string_width;
- int margin;
-
- const char *string =
- ("_Software failure. Press left mouse button to continue.\n"
- "_Guru Meditation #00000003.00C01570");
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 600
- ? "amiga.font2" : "amiga.font"),
- "Amiga.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- fg = gcv.foreground = get_pixel_resource("amiga.foreground",
- "Amiga.Foreground",
- dpy, xgwa.colormap);
- bg = gcv.background = get_pixel_resource("amiga.background",
- "Amiga.Background",
- dpy, xgwa.colormap);
- bg2 = get_pixel_resource("amiga.background2", "Amiga.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, bg2);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
- gcv.background = fg; gcv.foreground = bg;
- gc2 = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
+ int height;
+ int lw = 10;
- height = (font->ascent + font->descent) * 6;
+ unsigned long bg2 = get_pixel_resource (dpy, bst->xgwa.colormap,
+ "amiga.background2",
+ "Amiga.Background");
-#if defined(HAVE_GDK_PIXBUF) || defined (HAVE_XPM)
+# ifdef DO_XPM
pixmap = xpm_data_to_pixmap (dpy, window, (char **) amiga_hand,
&pix_w, &pix_h, 0);
-#endif /* HAVE_GDK_PIXBUF || HAVE_XPM */
+# endif /* DO_XPM */
- if (pixmap && xgwa.height > 600) /* scale up the bitmap */
+ if (pixmap && bst->xgwa.height > 600) /* scale up the bitmap */
{
- pixmap = double_pixmap(dpy, gc, xgwa.visual, xgwa.depth,
- pixmap, pix_w, pix_h);
+ pixmap = double_pixmap (dpy, bst->gc, bst->xgwa.visual, bst->xgwa.depth,
+ pixmap, pix_w, pix_h);
pix_w *= 2;
pix_h *= 2;
}
- if (pixmap)
- {
- int x = (xgwa.width - pix_w) / 2;
- int y = ((xgwa.height - pix_h) / 2);
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h, x, y);
+ XSetLineAttributes (dpy, bst->gc, lw, LineSolid, CapButt, JoinMiter);
+
+ height = (bst->font->ascent + bst->font->descent) * 6;
+
+ BSOD_PAUSE (bst, 2000000);
+ BSOD_COPY (bst, 0, 0, bst->xgwa.width, bst->xgwa.height - height, 0, height);
- XSync(dpy, False);
- bsod_sleep(dpy, 2);
+ BSOD_INVERT (bst);
+ BSOD_RECT (bst, True, 0, 0, bst->xgwa.width, height);
+ BSOD_INVERT (bst);
+ BSOD_TEXT (bst, CENTER,
+ "\n"
+ "Software failure. Press left mouse button to continue.\n"
+ "Guru Meditation #00000003.00C01570"
+ );
+ BSOD_RECT (bst, False, lw/2, lw/2, bst->xgwa.width - lw, height);
+ BSOD_PAUSE (bst, 1000000);
+ BSOD_INVERT (bst);
+ BSOD_LOOP (bst, -3);
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h, x, y + height);
- XClearArea(dpy, window, 0, 0, xgwa.width, y + height, False);
- XFreePixmap(dpy, pixmap);
+ XSetWindowBackground (dpy, window, bg2);
+ XClearWindow (dpy, window);
+ XSetWindowBackground (dpy, window, bst->bg);
+
+ if (pixmap)
+ {
+ int x = (bst->xgwa.width - pix_w) / 2;
+ int y = ((bst->xgwa.height - pix_h) / 2);
+ XCopyArea (dpy, pixmap, bst->window, bst->gc, 0, 0, pix_w, pix_h, x, y);
}
- XFillRectangle(dpy, window, gc2, 0, 0, xgwa.width, height);
- margin = font->ascent;
- string_width = draw_string(dpy, window, gc, &gcv, font,
- margin, 0,
- xgwa.width - (margin * 2), height,
- string, 0);
- {
- GC gca = gc;
- while (delay > 0)
- {
- int x2;
- XFillRectangle(dpy, window, gca, 0, 0, xgwa.width, margin);
- XFillRectangle(dpy, window, gca, 0, 0, margin, height);
- XFillRectangle(dpy, window, gca,
- 0, height - margin, xgwa.width, margin);
- x2 = margin + string_width;
- if (x2 < xgwa.width - margin) x2 = xgwa.width - margin;
- XFillRectangle(dpy, window, gca, x2, 0, margin, height);
-
- gca = (gca == gc ? gc2 : gc);
- XSync(dpy, False);
- if (bsod_sleep(dpy, 1))
- break;
- delay--;
- }
- }
+ bst->y += lw;
- XFreeGC(dpy, gc);
- XFreeGC(dpy, gc2);
- XSync(dpy, False);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ return bst;
}
+
/* Atari ST, by Marcus Herbert <rhoenie@nobiscum.de>
Marcus had this to say:
Perhaps somebody else can tell you more about it.. its just
a quick hack :-}
*/
-static void
-atari (Display *dpy, Window window, int delay)
+static struct bsod_state *
+atari (Display *dpy, Window window)
{
-
- XGCValues gcv;
- XWindowAttributes xgwa;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "atari", "Atari");
+
Pixmap pixmap = 0;
int pix_w = atari_width;
int pix_h = atari_height;
int offset;
int i, x, y;
- XGetWindowAttributes (dpy, window, &xgwa);
-
- font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource("atari.foreground", "Atari.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("atari.background", "Atari.Background",
- dpy, xgwa.colormap);
-
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
-
- pixmap = XCreatePixmapFromBitmapData(dpy, window, (char *) atari_bits,
- pix_w, pix_h,
- gcv.foreground, gcv.background,
- xgwa.depth);
- pixmap = double_pixmap(dpy, gc, xgwa.visual, xgwa.depth,
- pixmap, pix_w, pix_h);
+ pixmap = XCreatePixmapFromBitmapData (dpy, window, (char *) atari_bits,
+ pix_w, pix_h,
+ bst->fg, bst->bg, bst->xgwa.depth);
+ pixmap = double_pixmap (dpy, bst->gc, bst->xgwa.visual, bst->xgwa.depth,
+ pixmap, pix_w, pix_h);
pix_w *= 2;
pix_h *= 2;
- offset = pix_w + 2;
- x = 5;
- y = (xgwa.height - (xgwa.height / 5));
+ offset = pix_w;
+ x = 0;
+ y = bst->xgwa.height/2;
if (y < 0) y = 0;
- for (i=0 ; i<7 ; i++) {
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h,
- (x + (i*offset)), y);
- }
-
- for (i=7 ; i<10 ; i++) {
- if (bsod_sleep(dpy, 1))
- goto DONE;
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h,
- (x + (i*offset)), y);
- }
+ for (i = 1; i< 7; i++)
+ BSOD_COPY (bst, x, y, pix_w, pix_h, (x + (i*offset)), y);
- bsod_sleep(dpy, delay);
- DONE:
- XFreePixmap(dpy, pixmap);
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ for (; i< 10; i++)
+ {
+ BSOD_PAUSE (bst, 1000000);
+ BSOD_COPY (bst, x, y, pix_w, pix_h, (x + (i*offset)), y);
+ }
+
+ XClearWindow (dpy, window);
+ XCopyArea (dpy, pixmap, window, bst->gc, 0, 0, pix_w, pix_h, x, y);
+ XFreePixmap (dpy, pixmap);
+
+ return bst;
}
-static void
-mac (Display *dpy, Window window, int delay)
+static struct bsod_state *
+mac (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "mac", "Mac");
+
Pixmap pixmap = 0;
int pix_w = mac_width;
int pix_h = mac_height;
const char *string = ("0 0 0 0 0 0 0 F\n"
"0 0 0 0 0 0 0 3");
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ("mac.font", "Mac.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource("mac.foreground", "Mac.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("mac.background", "Mac.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
-
pixmap = XCreatePixmapFromBitmapData(dpy, window, (char *) mac_bits,
mac_width, mac_height,
- gcv.foreground,
- gcv.background,
- xgwa.depth);
+ bst->fg, bst->bg, bst->xgwa.depth);
- for(i = 0; i < 2; i++)
+ for (i = 0; i < 2; i++)
{
- pixmap = double_pixmap(dpy, gc, xgwa.visual, xgwa.depth,
- pixmap, pix_w, pix_h);
+ pixmap = double_pixmap (dpy, bst->gc, bst->xgwa.visual, bst->xgwa.depth,
+ pixmap, pix_w, pix_h);
pix_w *= 2; pix_h *= 2;
}
- {
- int x = (xgwa.width - pix_w) / 2;
- int y = (((xgwa.height + offset) / 2) -
- pix_h -
- (font->ascent + font->descent) * 2);
- if (y < 0) y = 0;
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h, x, y);
- XFreePixmap(dpy, pixmap);
- }
+ bst->x = (bst->xgwa.width - pix_w) / 2;
+ bst->y = (((bst->xgwa.height + offset) / 2) -
+ pix_h -
+ (bst->font->ascent + bst->font->descent) * 2);
+ if (bst->y < 0) bst->y = 0;
- draw_string(dpy, window, gc, &gcv, font, 0, 0,
- xgwa.width, xgwa.height + offset, string, 0);
+ XClearWindow (dpy, window);
+ XCopyArea (dpy, pixmap, window, bst->gc, 0, 0, pix_w, pix_h, bst->x, bst->y);
+ XFreePixmap (dpy, pixmap);
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ bst->y += offset + bst->font->ascent + bst->font->descent;
+ BSOD_TEXT (bst, CENTER, string);
+
+ return bst;
}
-static void
-macsbug (Display *dpy, Window window, int delay)
-{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc, gc2;
- int char_width, line_height;
- int col_right, row_top, row_bottom, page_right, page_bottom, body_top;
- int xoff, yoff;
+static struct bsod_state *
+macsbug (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "macsbug", "MacsBug");
+ __extension__
const char *left = (" SP \n"
" 04EB0A58 \n"
"58 00010000\n"
" | 4A1F\n"
" +00888 40843718 $0004(A7),([0,A7[)"
" ; 04E8D0AE | 66B8");
-
-#if 0
- const char *body = ("Bus Error at 4BF6D6CC\n"
- "while reading word from 4BF6D6CC in User data space\n"
- " Unable to access that address\n"
- " PC: 2A0DE3E6\n"
- " Frame Type: B008");
-#else
+ __extension__
const char * body = ("PowerPC unmapped memory exception at 003AFDAC "
"BowelsOfTheMemoryMgr+04F9C\n"
" Calling chain using A6/R1 links\n"
" 24DAF7C9 PPC 00307098 "
"EmToNatEndMoveParams+00014\n"
" 24DAF780 PPC 003AA180 __DisposePtr+00010");
-#endif
const char *s;
int body_lines = 1;
- for (s = body; *s; s++) if (*s == '\n') body_lines++;
+ int char_width, line_height;
+ int col_right, row_top, row_bottom, page_right, page_bottom, body_top;
+ int xoff, yoff;
- XGetWindowAttributes (dpy, window, &xgwa);
-
- fontname = get_string_resource ((xgwa.height > 850
- ? "macsbug.font3"
- : (xgwa.height > 700
- ? "macsbug.font2"
- : "macsbug.font")),
- "MacsBug.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource("macsbug.foreground",
- "MacsBug.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("macsbug.background",
- "MacsBug.Background",
- dpy, xgwa.colormap);
-
- gc = XCreateGC(dpy, window, GCFont|GCForeground|GCBackground, &gcv);
-
- gcv.foreground = gcv.background;
- gc2 = XCreateGC(dpy, window, GCForeground, &gcv);
-
- XSetWindowBackground(dpy, window,
- get_pixel_resource("macsbug.borderColor",
- "MacsBug.BorderColor",
- dpy, xgwa.colormap));
- XClearWindow(dpy, window);
+ unsigned long fg = bst->fg;
+ unsigned long bg = bst->bg;
+ unsigned long bc = get_pixel_resource (dpy, bst->xgwa.colormap,
+ "macsbug.borderColor",
+ "MacsBug.BorderColor");
- char_width = (font->per_char
- ? font->per_char['n'-font->min_char_or_byte2].width
- : font->min_bounds.width);
- line_height = font->ascent + font->descent + 1;
+ for (s = body; *s; s++) if (*s == '\n') body_lines++;
+
+ char_width = (bst->font->per_char
+ ? bst->font->per_char['n'-bst->font->min_char_or_byte2].width
+ : bst->font->min_bounds.width);
+ line_height = bst->font->ascent + bst->font->descent;
- col_right = char_width * 12;
- page_bottom = line_height * 47;
+ col_right = char_width * 12; /* number of columns in `left' */
+ page_bottom = line_height * 47; /* number of lines in `left' */
- if (page_bottom > xgwa.height) page_bottom = xgwa.height;
+ if (page_bottom > bst->xgwa.height)
+ page_bottom = bst->xgwa.height;
row_bottom = page_bottom - line_height;
- row_top = row_bottom - (line_height * 4);
+ row_top = row_bottom - (line_height * 4);
page_right = col_right + (char_width * 88);
- body_top = row_top - (line_height * body_lines);
+ body_top = row_top - (line_height * body_lines);
page_bottom += 2;
row_bottom += 2;
body_top -= 4;
- xoff = (xgwa.width - page_right) / 2;
- yoff = (xgwa.height - page_bottom) / 2;
- if (xoff < 0) xoff = 0;
- if (yoff < 0) yoff = 0;
-
- XFillRectangle(dpy, window, gc2, xoff, yoff, page_right, page_bottom);
-
- draw_string(dpy, window, gc, &gcv, font, xoff, yoff, 10, 10, left, 0);
- draw_string(dpy, window, gc, &gcv, font, xoff+col_right, yoff+row_top,
- 10, 10, bottom, 0);
-
- XFillRectangle(dpy, window, gc, xoff + col_right, yoff, 2, page_bottom);
- XDrawLine(dpy, window, gc,
- xoff+col_right, yoff+row_top, xoff+page_right, yoff+row_top);
- XDrawLine(dpy, window, gc,
- xoff+col_right, yoff+row_bottom, xoff+page_right, yoff+row_bottom);
- XDrawRectangle(dpy, window, gc, xoff, yoff, page_right, page_bottom);
-
if (body_top > 4)
body_top = 4;
- draw_string(dpy, window, gc, &gcv, font,
- xoff + col_right + char_width, yoff + body_top, 10, 10, body,
- 500);
+ xoff = (bst->xgwa.width - page_right) / 2;
+ yoff = (bst->xgwa.height - page_bottom) / 2;
- while (delay > 0)
- {
- XDrawLine(dpy, window, gc,
- xoff+col_right+(char_width/2)+2, yoff+row_bottom+3,
- xoff+col_right+(char_width/2)+2, yoff+page_bottom-3);
- XSync(dpy, False);
- usleep(666666L);
- XDrawLine(dpy, window, gc2,
- xoff+col_right+(char_width/2)+2, yoff+row_bottom+3,
- xoff+col_right+(char_width/2)+2, yoff+page_bottom-3);
- XSync(dpy, False);
- usleep(333333L);
- if (bsod_sleep(dpy, 0))
- break;
- delay--;
- }
-
- XFreeGC(dpy, gc);
- XFreeGC(dpy, gc2);
- XClearWindow(dpy, window);
- XFreeFont(dpy, font);
+ if (xoff < 0) xoff = 0;
+ if (yoff < 0) yoff = 0;
+
+ BSOD_MARGINS (bst, xoff, yoff);
+
+ BSOD_COLOR (bst, bc, bg);
+ BSOD_RECT (bst, True, 0, 0, bst->xgwa.width, bst->xgwa.height);
+ BSOD_COLOR (bst, bg, bg);
+ BSOD_RECT (bst, True, xoff-2, yoff, page_right+4, page_bottom);
+ BSOD_COLOR (bst, fg, bg);
+
+ BSOD_MOVETO (bst, xoff, yoff + line_height);
+ BSOD_TEXT (bst, LEFT, left);
+ BSOD_MOVETO (bst, xoff+col_right, yoff + row_top + line_height);
+ BSOD_TEXT (bst, LEFT, bottom);
+
+ BSOD_RECT (bst, True, xoff + col_right, yoff, 2, page_bottom);
+ BSOD_RECT (bst, True, xoff + col_right, yoff + row_top,
+ page_right - col_right, 1);
+ BSOD_RECT (bst, True, xoff + col_right, yoff + row_bottom,
+ page_right - col_right, 1);
+ BSOD_RECT (bst, False, xoff-2, yoff, page_right+4, page_bottom);
+
+ BSOD_LINE_DELAY (bst, 500);
+ BSOD_MOVETO (bst,
+ xoff + col_right + char_width,
+ yoff + body_top + line_height);
+ BSOD_MARGINS (bst, xoff + col_right + char_width, yoff);
+ BSOD_TEXT (bst, LEFT, body);
+
+ BSOD_RECT (bst, False, xoff-2, yoff, page_right+4, page_bottom); /* again */
+
+ BSOD_RECT (bst, False,
+ xoff + col_right + (char_width/2)+2,
+ yoff + row_bottom + 2,
+ 0,
+ page_bottom - row_bottom - 4);
+
+ BSOD_PAUSE (bst, 666666);
+ BSOD_INVERT (bst);
+ BSOD_LOOP (bst, -3);
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-mac1 (Display *dpy, Window window, int delay)
+
+static struct bsod_state *
+mac1 (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xgwa;
- GC gc;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "mac1", "Mac1");
+
Pixmap pixmap = 0;
int pix_w = macbomb_width;
int pix_h = macbomb_height;
+ int x, y;
- XGetWindowAttributes (dpy, window, &xgwa);
+ pixmap = XCreatePixmapFromBitmapData (dpy, window, (char *) macbomb_bits,
+ macbomb_width, macbomb_height,
+ bst->fg, bst->bg, bst->xgwa.depth);
- gcv.foreground = get_pixel_resource("mac1.foreground", "Mac.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("mac1.background", "Mac.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
+ x = (bst->xgwa.width - pix_w) / 2;
+ y = (bst->xgwa.height - pix_h) / 2;
+ if (y < 0) y = 0;
- gc = XCreateGC(dpy, window, GCForeground|GCBackground, &gcv);
+ XClearWindow (dpy, window);
+ XCopyArea (dpy, pixmap, window, bst->gc, 0, 0, pix_w, pix_h, x, y);
+
+ return bst;
+}
- pixmap = XCreatePixmapFromBitmapData(dpy, window, (char *) macbomb_bits,
- macbomb_width, macbomb_height,
- gcv.foreground,
- gcv.background,
- xgwa.depth);
+/* This is what kernel panics looked like on MacOS X 10.0 through 10.1.5.
+ In later releases, it's a graphic of a power button with text in
+ English, French, German, and Japanese overlayed transparently.
+ */
+static struct bsod_state *
+macx_10_0 (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "macx", "MacX");
+
+ XClearWindow (dpy, window);
+ XSetForeground (dpy, bst->gc,
+ get_pixel_resource (dpy, bst->xgwa.colormap,
+ "macx.textForeground",
+ "MacX.TextForeground"));
+ XSetBackground (dpy, bst->gc,
+ get_pixel_resource (dpy, bst->xgwa.colormap,
+ "macx.textBackground",
+ "MacX.TextBackground"));
+
+# ifdef DO_XPM
{
- int x = (xgwa.width - pix_w) / 2;
- int y = (xgwa.height - pix_h) / 2;
+ Pixmap pixmap = 0;
+ Pixmap mask = 0;
+ int x, y, pix_w, pix_h;
+ pixmap = xpm_data_to_pixmap (dpy, window, (char **) happy_mac,
+ &pix_w, &pix_h, &mask);
+
+ x = (bst->xgwa.width - pix_w) / 2;
+ y = (bst->xgwa.height - pix_h) / 2;
if (y < 0) y = 0;
- XFillRectangle (dpy, window, gc, 0, 0, xgwa.width, xgwa.height);
- XSync(dpy, False);
- if (bsod_sleep(dpy, 1))
- goto DONE;
- XCopyArea(dpy, pixmap, window, gc, 0, 0, pix_w, pix_h, x, y);
+ XSetClipMask (dpy, bst->gc, mask);
+ XSetClipOrigin (dpy, bst->gc, x, y);
+ XCopyArea (dpy, pixmap, window, bst->gc, 0, 0, pix_w, pix_h, x, y);
+ XSetClipMask (dpy, bst->gc, None);
+ XFreePixmap (dpy, pixmap);
}
+#endif /* DO_XPM */
- DONE:
- XFreeGC(dpy, gc);
- XFreePixmap(dpy, pixmap);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
- XClearWindow(dpy, window);
-}
-
-
-static void
-macx (Display *dpy, Window window, int delay)
-{
- XGCValues gcv;
- XWindowAttributes xgwa;
- char *fontname = 0;
- const char *def_font = "fixed";
- XFontStruct *font;
- GC gc;
+ bst->left_margin = 0;
+ bst->right_margin = 0;
+ bst->y = bst->font->ascent;
+ bst->macx_eol_kludge = True;
+ bst->wrap_p = True;
- const char *macx_panic =
- ("panic(cpu 0): Unable to find driver for this platform: "
+ BSOD_PAUSE (bst, 3000000);
+ BSOD_TEXT (bst, LEFT,
+ "panic(cpu 0): Unable to find driver for this platform: "
"\"PowerMac 3,5\".\n"
"\n"
"backtrace: 0x0008c2f4 0x0002a7a0 0x001f0204 0x001d4e4c 0x001d4c5c "
"\n"
"panic: We are hanging here...\n");
- XGetWindowAttributes (dpy, window, &xgwa);
+ return bst;
+}
- gcv.background = get_pixel_resource("macX.background",
- "MacX.Background",
- dpy, xgwa.colormap);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy, window);
- fontname = get_string_resource ((xgwa.height > 900
- ? "macX.font2"
- : "macX.font"),
- "MacX.Font");
- if (!fontname || !*fontname) fontname = (char *)def_font;
- font = XLoadQueryFont (dpy, fontname);
- if (!font) font = XLoadQueryFont (dpy, def_font);
- if (!font) exit(-1);
- if (fontname && fontname != def_font)
- free (fontname);
-
- gcv.font = font->fid;
- gcv.foreground = get_pixel_resource("macsbug.foreground",
- "MacsBug.Foreground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("macsbug.background",
- "MacsBug.Background",
- dpy, xgwa.colormap);
-
-
- gcv.foreground = get_pixel_resource("macX.textForeground",
- "MacX.TextForeground",
- dpy, xgwa.colormap);
- gcv.background = get_pixel_resource("macX.textBackground",
- "MacX.TextBackground",
- dpy, xgwa.colormap);
- gc = XCreateGC(dpy, window, GCForeground|GCBackground|GCFont, &gcv);
-
-#if defined(HAVE_GDK_PIXBUF) || defined (HAVE_XPM)
- {
- Pixmap pixmap = 0;
- Pixmap mask = 0;
- int x, y, pix_w, pix_h;
- pixmap = xpm_data_to_pixmap (dpy, window, (char **) happy_mac,
- &pix_w, &pix_h, &mask);
+# ifdef DO_XPM
+static struct bsod_state *
+macx_10_2 (Display *dpy, Window window, Bool v10_3_p)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "macx", "MacX");
- x = (xgwa.width - pix_w) / 2;
- y = (xgwa.height - pix_h) / 2;
- if (y < 0) y = 0;
- XSync(dpy, False);
- bsod_sleep(dpy, 2);
- XSetClipMask (dpy, gc, mask);
- XSetClipOrigin (dpy, gc, x, y);
- XCopyArea (dpy, pixmap, window, gc, 0, 0, pix_w, pix_h, x, y);
- XSetClipMask (dpy, gc, None);
- XFreePixmap (dpy, pixmap);
- }
-#endif /* HAVE_GDK_PIXBUF || HAVE_XPM */
+ Pixmap pixmap = 0;
+ int pix_w = 0, pix_h = 0;
+ int x, y;
- bsod_sleep(dpy, 3);
+ pixmap = xpm_data_to_pixmap (dpy, window,
+ (char **) (v10_3_p ? osx_10_3 : osx_10_2),
+ &pix_w, &pix_h, 0);
+ if (! pixmap) abort();
- {
- const char *s;
- int x = 0, y = 0;
- int char_width, line_height;
- char_width = (font->per_char
- ? font->per_char['n'-font->min_char_or_byte2].width
- : font->min_bounds.width);
- line_height = font->ascent + font->descent;
-
- s = macx_panic;
- y = font->ascent;
- while (*s)
- {
- int ox = x;
- int oy = y;
- if (*s == '\n' || x + char_width >= xgwa.width)
- {
- x = 0;
- y += line_height;
- }
+#if 0
+ if (bst->xgwa.height > 600) /* scale up the bitmap */
+ {
+ pixmap = double_pixmap (dpy, bst->gc, bst->xgwa.visual, bst->xgwa.depth,
+ pixmap, pix_w, pix_h);
+ if (! pixmap) abort();
+ pix_w *= 2;
+ pix_h *= 2;
+ }
+#endif
- if (*s == '\n')
- {
- /* Note that to get this goofy effect, they must be actually
- emitting LF CR at the end of each line instead of CR LF!
- */
- XDrawImageString (dpy, window, gc, ox, oy, " ", 1);
- XDrawImageString (dpy, window, gc, ox, y, " ", 1);
- }
- else
- {
- XDrawImageString (dpy, window, gc, x, y, s, 1);
- x += char_width;
- }
- s++;
- }
- }
+ BSOD_IMG (bst);
+ BSOD_PAUSE (bst, 2000000);
- XFreeGC(dpy, gc);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
- XClearWindow(dpy, window);
+ bst->pixmap = pixmap;
+
+ x = (bst->xgwa.width - pix_w) / 2;
+ y = ((bst->xgwa.height - pix_h) / 2);
+ BSOD_PIXMAP (bst, 0, 0, pix_w, pix_h, x, y);
+
+ return bst;
+}
+# endif /* DO_XPM */
+
+
+static struct bsod_state *
+macx (Display *dpy, Window window)
+{
+# ifdef DO_XPM
+ switch (random() % 3) {
+ case 0: return macx_10_0 (dpy, window); break;
+ case 1: return macx_10_2 (dpy, window, False); break;
+ case 2: return macx_10_2 (dpy, window, True); break;
+ default: abort();
+ }
+# else /* !DO_XPM */
+ return macx_10_0 (dpy, window);
+# endif /* !DO_XPM */
}
-\f
+
+#ifndef HAVE_COCOA /* #### I have no idea how to implement this without
+ real plane-masks. I don't think it would look
+ right if done with alpha-transparency... */
/* blit damage
*
* by Martin Pool <mbp@samba.org>, Feb 2000.
* Xterms. The parameters for choosing what to copy where might not
* be quite right, but it looks about ugly enough.
*/
-static void
-blitdamage (Display *dpy, Window window, int delay)
+static struct bsod_state *
+blitdamage (Display *dpy, Window window)
{
- XGCValues gcv;
- XWindowAttributes xwa;
- GC gc0;
+ struct bsod_state *bst =
+ make_bsod_state (dpy, window, "blitdamage", "BlitDamage");
+
int i;
int delta_x = 0, delta_y = 0;
int w, h;
int src_x, src_y;
int x, y;
- XGetWindowAttributes(dpy, window, &xwa);
-
- load_random_image (xwa.screen, window, window);
-
- w = xwa.width;
- h = xwa.height;
+ w = bst->xgwa.width;
+ h = bst->xgwa.height;
gc_mask = GCForeground;
- gcv.plane_mask = random();
- gc_mask |= GCPlaneMask;
-
- gc0 = XCreateGC(dpy, window, gc_mask, &gcv);
+ XSetPlaneMask (dpy, bst->gc, random());
steps = 50;
chunk_w = w / (random() % 1 + 1);
x = 0;
y = 0;
+ BSOD_IMG (bst);
for (i = 0; i < steps; i++) {
if (x + chunk_w > w)
x -= w;
else
y += delta_y;
- XCopyArea(dpy, window, window, gc0,
- src_x, src_y,
- chunk_w, chunk_h,
- x, y);
-
- if (bsod_sleep(dpy, 0))
- goto DONE;
+ BSOD_COPY (bst, src_x, src_y, chunk_w, chunk_h, x, y);
+ BSOD_PAUSE (bst, 1000);
}
- bsod_sleep(dpy, delay);
-
- DONE:
- XFreeGC(dpy, gc0);
+ return bst;
}
+#endif /* !HAVE_COCOA */
-\f
-/*
- * SPARC Solaris panic. Should look pretty authentic on Solaris boxes.
- * Anton Solovyev <solovam@earthlink.net>
- */
-typedef struct
-{
- Display *dpy;
- Window window;
- GC gc, erase_gc;
- XFontStruct *xfs;
- int sub_width; /* Text subwindow width in pixels */
- int sub_height; /* Text subwindow height in pixels */
- int sub_x; /* upper left corner of the text subwindow */
- int sub_y; /* upper left corner of the text subwindow */
- int char_width; /* Char width in pixels */
- int line_height; /* Line height in pixels */
- int columns; /* Number of columns in the text screen */
- int x; /* horizontal position of the cursor */
-} scrolling_window;
-
-
-static scrolling_window *
-make_scrolling_window (Display *dpy, Window window,
- const char *name,
- Bool grab_screen_p)
+/*
+ * OS/2 panics, by Knut St. Osmundsen <bird-xscreensaver@anduin.net>
+ *
+ * All but one messages are real ones, some are from my test machines
+ * and system dumps, others are reconstructed from google results.
+ * Please, don't be to hard if the formatting of the earlier systems
+ * aren't 100% correct.
+ */
+static struct bsod_state *
+os2 (Display *dpy, Window window)
{
- const char *def_font = "fixed";
- scrolling_window* ts;
- XWindowAttributes xgwa;
- XGCValues gcv;
- char* fn;
- char buf1[100], buf2[100];
-
- ts = malloc (sizeof (*ts));
- ts->window = window;
- ts->dpy = dpy;
-
- ts->x = 0;
-
- XGetWindowAttributes (dpy, window, &xgwa);
-
- if (grab_screen_p)
- {
- ts->sub_width = xgwa.width * 0.8;
- ts->sub_height = xgwa.height * 0.8;
- }
- else
- {
- ts->sub_width = xgwa.width - 20;
- ts->sub_height = xgwa.height - 20;
- if (ts->sub_width < 20) ts->sub_width = 20;
- if (ts->sub_height < 20) ts->sub_height = 20;
- }
-
- sprintf (buf1, "%.50s.font", name);
- sprintf (buf2, "%.50s.Font", name);
- fn = get_string_resource (buf1, buf2);
- ts->xfs = XLoadQueryFont (dpy, fn);
- if (!ts->xfs)
- {
- sprintf (buf1, "%.50s.font2", name);
- fn = get_string_resource(buf1, buf2);
- ts->xfs = XLoadQueryFont(dpy, fn);
- }
- if (!ts->xfs)
- ts->xfs = XLoadQueryFont(dpy, def_font);
- if (!ts->xfs)
- exit (1);
- gcv.font = ts->xfs->fid;
- ts->char_width = (ts->xfs->per_char
- ? ts->xfs->per_char['n'-ts->xfs->min_char_or_byte2].width
- : ts->xfs->min_bounds.width);
- ts->line_height = ts->xfs->ascent + ts->xfs->descent + 1;
-
- ts->columns = ts->sub_width / ts->char_width;
-
- ts->sub_x = (xgwa.width - ts->sub_width) / 2;
- ts->sub_y = (xgwa.height - ts->sub_height) / 2;
-
- if (!grab_screen_p) ts->sub_height += ts->sub_y, ts->sub_y = 0;
-
- if (grab_screen_p)
- load_random_image (xgwa.screen, window, window);
-
- sprintf (buf1, "%.50s.background", name);
- sprintf (buf2, "%.50s.Background", name);
- gcv.background = get_pixel_resource (buf1, buf2, dpy, xgwa.colormap);
-
- sprintf (buf1, "%.50s.foreground", name);
- sprintf (buf2, "%.50s.Foreground", name);
- gcv.foreground = get_pixel_resource (buf1, buf2, dpy, xgwa.colormap);
-
- ts->gc = XCreateGC (dpy, window,
- GCForeground | GCBackground | GCFont,
- &gcv);
- gcv.foreground = gcv.background;
- ts->erase_gc = XCreateGC (dpy, window,
- GCForeground | GCBackground,
- &gcv);
- XSetWindowBackground (dpy, window, gcv.background);
- return(ts);
+ struct bsod_state *bst = make_bsod_state (dpy, window, "os2", "OS2");
+
+ __extension__
+ static const char * const os2_panics[] =
+ { /* OS/2 2.0 trap - details are bogus (CR0++). */
+ "TRAP 0002 ERRCD=0000 ERACC=**** ERLIM=********\n"
+ "EAX=7d240a58 EBX=ff202fdc ECX=00064423 EDX=00003624\n"
+ "ESI=fff3272c EDI=7d240004 EBP=00004a44 FLG=00003202\n"
+ "CS:EIP=0160:fff702a6 CSACC=c09d CSLIM=ffffffff\n"
+ "SS:ESP=0030:00004a38 SSACC=1097 SSLIM=00003fff\n"
+ "DS=0158 DSACC=c0f3 DSLIM=ffffffff CR0=fffffffb\n"
+ "ES=0158 ESACC=c0f3 ESLIM=ffffffff CR2=1a060014\n"
+ "FS=0000 FSACC=**** FSLIM=********\n"
+ "GS=0000 GSACC=**** GSLIM=********\n"
+ "\n"
+ "The system detected an internal processing error\n"
+ "at location ##0160:fff6453f - 000d:a53f\n"
+ "60000, 9084\n"
+ "\n"
+ "038600d1\n"
+ "Internal revision 6.307, 92/03/01\n"
+ "\n",
+
+ /* warp 3 (early) */
+ "TRAP 000e ERRCD=0000 ERACC=**** ERLIM=********\n"
+ "EAX=ff050c20 EBX=000000bb ECX=ffff00c1 EDx=fff379b8\n"
+ "ESI=ffe55a3c EDI=00000000 EBP=00004eb8 FLG=00013282\n"
+ "CS:EIP=0160:fff8dbb8 CSACC=c09b CSLIM=ffffffff\n"
+ "SS:EIP=0030:00004eb4 SSACC=1097 SSLIM=00003fff\n"
+ "DS=0158 DSACC=c0f3 DSLIM=ffffffff CR0=8001001b\n"
+ "ES=0158 DSACC=c0f3 DSLIM=ffffffff CR2=000000c7\n"
+ "FS=0000 FSACC=**** FSLIM=********\n"
+ "GS=0000 GSACC=**** GSLIM=********\n"
+ "\n"
+ "The system detected an internal processing error\n"
+ "at location ##0160:fff66bf0 - 000d:9bf0.\n"
+ "60000, 9084\n"
+ "\n"
+ "048600b4\n"
+ "Internal revision 8.125, 94/02/16\n"
+ "\n"
+ "The system is stopped. Record the location number of the error\n"
+ "and contact your service representative.\n",
+
+ /* warp 3 */
+ "TRAP 000e ERRCD=0002 ERACC=**** ERLIM=********\n"
+ "EAX=00000000 EBX=fdef1e0c ECX=00003824 EDX=0000edf9\n"
+ "ESI=fdf30e80 EDI=fc8b0000 EBP=00005658 FLG=00012246\n"
+ "CS:EIP=0160:fff8ada3 CSACC=c09b CSLIM=ffffffff\n"
+ "SS:ESP=0030:000055d4 SSACC=1097 SSLIM=0000480f\n"
+ "DS=0158 DSACC=c093 DSLIM=ffffffff CR0=8001001b\n"
+ "ES=0158 ESACC=c093 ESLIM=ffffffff CR2=fc8b0000\n"
+ "FS=03b8 FSACC=0093 FSLIM=00000023\n"
+ "GS=0000 GSACC=**** GSLIM=********\n"
+ "\n"
+ "The system detected an internal processing error\n"
+ "at location ##0160:fff5c364 - 000d:a364.\n"
+ "60000, 9084\n"
+ "\n"
+ "05860526\n"
+ "Internal revision 8200,94/11/07\n"
+ "\n"
+ "The system is stopped. Record all of the above information and\n"
+ "contact your service representative.\n",
+
+ /* warp 3 (late) */
+ "TRAP 000d ERRCD=2200 ERACC=1092 ERLIM=00010fff\n"
+ "EAX=0000802e EBX=fff001c8 ECX=9bd80000 EDX=00000000\n"
+ "ESI=fff09bd8 EDI=fdeb001b EBP=00000000 FLG=00012012\n"
+ "CS:EIP=0168:fff480a2 CSACC=c09b CSLIM=ffffffff\n"
+ "SS:ESP=00e8:00001f32 SSACC=0093 SSLIM=00001fff\n"
+ "DS=0940 DSACC=0093 DSLIM=00000397 CR0=8001001b\n"
+ "ES=00e8 ESACC=0093 ESLIM=00001fff CR2=15760008\n"
+ "FS=0000 FSACC=**** FSLIM=****\n"
+ "GS=0000 GSACC=**** GSLIM=****\n"
+ "\n"
+ "The system detected an internal processing error\n"
+ "at location ##0168:fff4b06e - 000e:c06e\n"
+ "60000, 9084\n"
+ "\n"
+ "06860652\n"
+ "Internal revision 8.259_uni,98/01/07\n"
+ "\n"
+ "The system is stopped. Record all of the above information and\n"
+ "contact your service representative.\n",
+
+ /* Warp 4.52+ - the official r0trap.exe from the debugging classes */
+ "Exception in module: OS2KRNL\n"
+ "TRAP 000e ERRCD=0002 ERACC=**** ERLIM=********\n"
+ "EAX=00000001 EBX=80010002 ECX=ffed4638 EDX=0003f17b\n"
+ "ESI=00000001 EDI=00000002 EBP=00005408 FLG=00012202\n"
+ "CS:EIP=0168:fff3cd2e CSACC=c09b CSLIM=ffffffff\n"
+ "SS:ESP=0030:000053ec SSACC=1097 SSLIM=000044ff\n"
+ "DS=0160 DSACC=c093 DSLIM=ffffffff CR0=8001001b\n"
+ "ES=0160 ESACC=c093 ESLIM=ffffffff CR2=00000001\n"
+ "FS=0000 FSACC=**** FSLIM=********\n"
+ "GS=0000 GSACC=**** GSLIM=********\n"
+ "\n"
+ "The system detected an internal processing error at\n"
+ "location ##0168:fff1e3f3 - 000e:c3f3.\n"
+ "60000, 9084\n"
+ "\n"
+ "068606a0\n"
+ "Internal revision 14.097_UNI\n"
+ "\n"
+ "The system is stopped. Record all of the above information and\n"
+ "contact your service representative.\n",
+
+ /* Warp 4.52+, typical JFS problem. */
+ "Exeption in module: JFS\n"
+ "TRAP 0003 ERRCD=0000 ERACC=**** ERLIM=********\n"
+ "EAX=00000000 EBX=ffffff05 ECX=00000001 EDX=f5cd8010\n"
+ "ESI=000000e6 EDI=000000e7 EBP=f9c7378e FLG=00002296\n"
+ "CS:EIP=0168:f8df3250 CSACC=c09b CSLIM=ffffffff\n"
+ "SS:ESP=1550:fdc73778 SSACC=c093 SSLIM=ffffffff\n"
+ "DS=0160 DSACC=c093 DSLIM=ffffffff CR0=80010016\n"
+ "ES=0160 ESACC=c093 DSLIM=ffffffff CR2=05318000\n"
+ "FS=03c0 FSACC=0093 DSLIM=00000023\n"
+ "GS=0160 GSACC=c093 DSLIM=ffffffff\n"
+ "\n"
+ "The system detected an internal processing error\n"
+ "at location ##0168:fff1e2ab - 000e:c2ab.\n"
+ "60000, 9084\n"
+ "\n"
+ "07860695\n"
+ "\n"
+ "Internal revision 14.100c_UNI\n"
+ "\n"
+ "The system is stopped. Record all of the above information and\n"
+ "contact your service representative.\n"
+ };
+
+ BSOD_TEXT (bst, LEFT, os2_panics[random() % countof(os2_panics)]);
+ BSOD_CURSOR (bst, CURSOR_LINE, 240000, 999999);
+
+ XClearWindow (dpy, window);
+ return bst;
}
-static void
-free_scrolling_window (scrolling_window* ts)
-{
- XFreeGC (ts->dpy, ts->gc);
- XFreeGC (ts->dpy, ts->erase_gc);
- XFreeFont (ts->dpy, ts->xfs);
- free (ts);
-}
-static void
-scrolling_putc (scrolling_window* ts, const char aChar)
+/* SPARC Solaris panic. Should look pretty authentic on Solaris boxes.
+ * Anton Solovyev <solovam@earthlink.net>
+ */
+static struct bsod_state *
+sparc_solaris (Display *dpy, Window window)
{
- switch (aChar)
- {
- case '\n':
- ts->x = 0;
- XCopyArea (ts->dpy, ts->window, ts->window, ts->gc,
- ts->sub_x, ts->sub_y + ts->line_height,
- ts->sub_width, ts->sub_height,
- ts->sub_x, ts->sub_y);
- XFillRectangle (ts->dpy, ts->window, ts->erase_gc,
- ts->sub_x, ts->sub_y + ts->sub_height - ts->line_height,
- ts->sub_width, ts->line_height);
- break;
- case '\r':
- ts->x = 0;
- case '\b':
- if(ts->x > 0)
- ts->x--;
- break;
- default:
- if (ts->x >= ts->columns)
- scrolling_putc (ts, '\n');
- XDrawImageString (ts->dpy, ts->window, ts->gc,
- (ts->sub_x +
- (ts->x * ts->char_width)
- - ts->xfs->min_bounds.lbearing),
- (ts->sub_y + ts->sub_height - ts->xfs->descent),
- &aChar, 1);
- ts->x++;
- break;
- }
-}
+ struct bsod_state *bst = make_bsod_state (dpy, window, "solaris", "Solaris");
+ int i;
-static Bool
-scrolling_puts (scrolling_window *ts, const char* aString, int delay)
-{
- const char *c;
- for (c = aString; *c; ++c)
- {
- scrolling_putc (ts, *c);
- if (delay)
- {
- XSync(ts->dpy, 0);
- usleep(delay);
- if (bsod_sleep (ts->dpy, 0))
- return True;
- }
- }
- XSync (ts->dpy, 0);
- return False;
-}
+ bst->scroll_p = True;
+ bst->wrap_p = True;
+ bst->left_margin = bst->right_margin = bst->xgwa.width * 0.07;
+ bst->top_margin = bst->bottom_margin = bst->xgwa.height * 0.07;
+ bst->y = bst->top_margin + bst->font->ascent;
-static void
-sparc_solaris (Display* dpy, Window window, int delay)
-{
- const char *msg1 =
+ BSOD_IMG (bst);
+ BSOD_PAUSE (bst, 3000000);
+
+ BSOD_INVERT(bst);
+ BSOD_RECT (bst, True,
+ bst->left_margin, bst->top_margin,
+ bst->xgwa.width - bst->left_margin - bst->right_margin,
+ bst->xgwa.height - bst->top_margin - bst->bottom_margin);
+ BSOD_INVERT(bst);
+
+ BSOD_TEXT (bst, LEFT,
"BAD TRAP: cpu=0 type=0x31 rp=0x2a10043b5e0 addr=0xf3880 mmu_fsr=0x0\n"
- "BAD TRAP occured in module \"unix\" due to an illegal access to a"
+ "BAD TRAP occurred in module \"unix\" due to an illegal access to a"
" user address.\n"
"adb: trap type = 0x31\n"
"addr=0xf3880\n"
" 100131480 10012a6e0 0\n"
"End traceback...\n"
"panic[cpu0]/thread=30000953a20: trap\n"
- "syncing file systems...";
- const char *msg2 =
- " 1 done\n"
- "dumping to /dev/dsk/c0t0d0s3, offset 26935296\n";
- const char *msg3 =
- ": 2803 pages dumped, compression ratio 2.88, dump succeeded\n";
- const char *msg4 =
- "rebooting...\n"
- "Resetting ...";
-
- scrolling_window *ts;
- int i;
- char buf[256];
+ "syncing file systems...");
- ts = make_scrolling_window (dpy, window, "Solaris", True);
+ BSOD_PAUSE (bst, 3000000);
- scrolling_puts (ts, msg1, 0);
- if (bsod_sleep (dpy, 3))
- goto DONE;
+ BSOD_TEXT (bst, LEFT, " 1 done\n");
+ BSOD_TEXT (bst, LEFT, "dumping to /dev/dsk/c0t0d0s3, offset 26935296\n");
+ BSOD_PAUSE (bst, 2000000);
- scrolling_puts (ts, msg2, 0);
- if (bsod_sleep (dpy, 2))
- goto DONE;
for (i = 1; i <= 100; ++i)
{
- sprintf(buf, "\b\b\b\b\b\b\b\b\b\b\b%3d%% done", i);
- scrolling_puts (ts, buf, 0);
- if (bsod_sleep (dpy, -1))
- goto DONE;
+ char buf[100];
+ sprintf (buf, "\b\b\b\b\b\b\b\b\b\b\b%3d%% done", i);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 100000);
}
- scrolling_puts (ts, msg3, 0);
- if (bsod_sleep (dpy, 2))
- goto DONE;
+ BSOD_TEXT (bst, LEFT,
+ ": 2803 pages dumped, compression ratio 2.88, dump succeeded\n");
+ BSOD_PAUSE (bst, 2000000);
- scrolling_puts (ts, msg4, 0);
- if (bsod_sleep(dpy, 3))
- goto DONE;
-
- bsod_sleep (dpy, 3);
+ BSOD_TEXT (bst, LEFT,
+ "rebooting...\n"
+ "Resetting ...");
- DONE:
- free_scrolling_window (ts);
+ return bst;
}
+
/* Linux panic and fsck, by jwz
*/
-static void
-linux_fsck (Display *dpy, Window window, int delay)
+static struct bsod_state *
+linux_fsck (Display *dpy, Window window)
{
- XWindowAttributes xgwa;
- scrolling_window *ts;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "linux", "Linux");
+
int i;
const char *sysname;
char buf[1024];
0
};
- XGetWindowAttributes (dpy, window, &xgwa);
- XSetWindowBackground (dpy, window,
- get_pixel_resource("Linux.background",
- "Linux.Background",
- dpy, xgwa.colormap));
- XClearWindow(dpy, window);
+ bst->scroll_p = True;
+ bst->wrap_p = True;
+ bst->left_margin = bst->right_margin = 10;
+ bst->top_margin = bst->bottom_margin = 10;
sysname = "linux";
# ifdef HAVE_UNAME
# endif /* !HAVE_UNAME */
- ts = make_scrolling_window (dpy, window, "Linux", False);
-
- scrolling_puts (ts, "waiting for X server to shut down ", 0);
- usleep (100000);
- if (bsod_sleep (dpy, 0))
- goto PANIC;
- scrolling_puts (ts,
- "XIO: fatal IO error 2 (broken pipe) on X server \":0.0\"\n"
- " after 339471 requests (339471 known processed) "
- "with 0 events remaining\n",
- 0);
- if (scrolling_puts (ts, ".........\n", 300000))
- goto PANIC;
- if (bsod_sleep (dpy, 0))
- goto PANIC;
- scrolling_puts (ts,
- "xinit: X server slow to shut down, sending KILL signal.\n",
- 0);
- scrolling_puts (ts, "waiting for server to die ", 0);
- if (scrolling_puts (ts, "...\n", 300000))
- goto PANIC;
- if (bsod_sleep (dpy, 0))
- goto PANIC;
- scrolling_puts (ts, "xinit: Can't kill server\n", 0);
-
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, "waiting for X server to shut down ");
+ BSOD_PAUSE (bst, 100000);
+ BSOD_TEXT (bst, LEFT,
+ "XIO: fatal IO error 2 (broken pipe) on X server \":0.0\"\n"
+ " after 339471 requests (339471 known processed) "
+ "with 0 events remaining\n");
+ BSOD_CHAR_DELAY (bst, 300000);
+ BSOD_TEXT (bst, LEFT, ".........\n");
+ BSOD_CHAR_DELAY (bst, 0);
+ BSOD_TEXT (bst, LEFT,
+ "xinit: X server slow to shut down, sending KILL signal.\n"
+ "waiting for server to die ");
+ BSOD_CHAR_DELAY (bst, 300000);
+ BSOD_TEXT (bst, LEFT, "...\n");
+ BSOD_CHAR_DELAY (bst, 0);
+ BSOD_TEXT (bst, LEFT, "xinit: Can't kill server\n");
+ BSOD_PAUSE (bst, 2000000);
sprintf (buf, "\n%s Login: ", sysname);
- scrolling_puts (ts, buf, 0);
- if (bsod_sleep (dpy, 1))
- goto PANIC;
- scrolling_puts (ts,
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000000);
+ BSOD_TEXT (bst, LEFT,
"\n\n"
"Parallelizing fsck version 1.22 (22-Jun-2001)\n"
"e2fsck 1.22, 22-Jun-2001 for EXT2 FS 0.5b, 95/08/09\n"
"Warning! /dev/hda1 is mounted.\n"
- "/dev/hda1 contains a file system with errors, check forced.\n",
- 0);
- if (bsod_sleep (dpy, 1))
- goto PANIC;
+ "/dev/hda1 contains a file system with errors, check forced.\n");
+ BSOD_PAUSE (bst, 1000000);
if (0 == random() % 2)
- scrolling_puts (ts,
+ BSOD_TEXT (bst, LEFT,
"Couldn't find ext2 superblock, trying backup blocks...\n"
"The filesystem size (according to the superblock) is 3644739 blocks\n"
"The physical size of the device is 3636706 blocks\n"
"Either the superblock or the partition table is likely to be corrupt!\n"
- "Abort<y>? no\n",
- 0);
- if (bsod_sleep (dpy, 1))
- goto PANIC;
+ "Abort<y>? no\n");
+ BSOD_PAUSE (bst, 1000000);
AGAIN:
- scrolling_puts (ts, "Pass 1: Checking inodes, blocks, and sizes\n", 0);
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, "Pass 1: Checking inodes, blocks, and sizes\n");
+ BSOD_PAUSE (bst, 2000000);
i = (random() % 60) - 20;
while (--i > 0)
{
int b = random() % 0xFFFF;
sprintf (buf, "Deleted inode %d has zero dtime. Fix<y>? yes\n\n", b);
- scrolling_puts (ts, buf, 0);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
}
i = (random() % 40) - 10;
int g = random() % 0xFFFF;
int b = random() % 0xFFFFFFF;
- if (bsod_sleep (dpy, 1))
- goto PANIC;
+ BSOD_PAUSE (bst, 1000000);
sprintf (buf, "Warning: Group %d's copy of the group descriptors "
"has a bad block (%d).\n", g, b);
- scrolling_puts (ts, buf, 0);
+ BSOD_TEXT (bst, LEFT, buf);
b = random() % 0x3FFFFF;
while (--i > 0)
"from filesystem resulted in short read) while doing "
"inode scan. Ignore error<y>?",
b);
- scrolling_puts (ts, buf, 0);
- usleep (10000);
- scrolling_puts (ts, " yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 10000);
+ BSOD_TEXT (bst, LEFT, " yes\n\n");
}
}
if (0 == (random() % 10))
{
-
- if (bsod_sleep (dpy, 1))
- goto PANIC;
+ BSOD_PAUSE (bst, 1000000);
i = 3 + (random() % 10);
while (--i > 0)
- scrolling_puts (ts, "Could not allocate 256 block(s) for inode table: "
- "No space left on device\n", 0);
- scrolling_puts (ts, "Restarting e2fsck from the beginning...\n", 0);
-
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ {
+ BSOD_TEXT (bst, LEFT,
+ "Could not allocate 256 block(s) for inode table: "
+ "No space left on device\n");
+ BSOD_PAUSE (bst, 1000);
+ }
+ BSOD_TEXT (bst, LEFT, "Restarting e2fsck from the beginning...\n");
+ BSOD_PAUSE (bst, 2000000);
goto AGAIN;
}
i = (random() % 20) - 5;
if (i > 0)
- if (bsod_sleep (dpy, 1))
- goto PANIC;
+ BSOD_PAUSE (bst, 1000000);
while (--i > 0)
{
"Relocate<y>?",
b, g);
- scrolling_puts (ts, buf, 0);
- scrolling_puts (ts, " yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_TEXT (bst, LEFT, " yes\n\n");
+ BSOD_PAUSE (bst, 1000);
}
- if (bsod_sleep (dpy, 0))
- goto PANIC;
- usleep (1000);
}
if (0 == random() % 10) goto PANIC;
- scrolling_puts (ts, "Pass 2: Checking directory structure\n", 0);
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, "Pass 2: Checking directory structure\n");
+ BSOD_PAUSE (bst, 2000000);
i = (random() % 20) - 5;
while (--i > 0)
"directory corrupted\n"
"Salvage<y>? ",
n, o);
- scrolling_puts (ts, buf, 0);
- usleep (1000);
- scrolling_puts (ts, " yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
+ BSOD_TEXT (bst, LEFT, " yes\n\n");
if (0 == (random() % 100))
{
sprintf (buf, "Missing '.' in directory inode %d.\nFix<y>?", n);
- scrolling_puts (ts, buf, 0);
- usleep (1000);
- scrolling_puts (ts, " yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
+ BSOD_TEXT (bst, LEFT, " yes\n\n");
}
-
- if (bsod_sleep (dpy, 0))
- goto PANIC;
}
- if (0 == random() % 10) goto PANIC;
- scrolling_puts (ts,
- "Pass 3: Checking directory connectivity\n"
- "/lost+found not found. Create? yes\n",
- 0);
- if (bsod_sleep (dpy, 2))
+ if (0 == random() % 10)
goto PANIC;
+ BSOD_TEXT (bst, LEFT,
+ "Pass 3: Checking directory connectivity\n"
+ "/lost+found not found. Create? yes\n");
+ BSOD_PAUSE (bst, 2000000);
+
/* Unconnected directory inode 4949 (/var/spool/squid/06/???)
Connect to /lost+found<y>? yes
if (0 == random() % 10) goto PANIC;
- scrolling_puts (ts, "Pass 4: Checking reference counts\n", 0);
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, "Pass 4: Checking reference counts\n");
+ BSOD_PAUSE (bst, 2000000);
/* Inode 2 ref count is 19, should be 20. Fix<y>? yes
if (0 == random() % 10) goto PANIC;
- scrolling_puts (ts, "Pass 5: Checking group summary information\n", 0);
- if (bsod_sleep (dpy, 2))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, "Pass 5: Checking group summary information\n");
+ BSOD_PAUSE (bst, 2000000);
i = (random() % 200) - 50;
if (i > 0)
{
- scrolling_puts (ts, "Block bitmap differences: ", 0);
+ BSOD_TEXT (bst, LEFT, "Block bitmap differences: ");
while (--i > 0)
{
sprintf (buf, " %d", -(random() % 0xFFF));
- scrolling_puts (ts, buf, 0);
- usleep (1000);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
}
- scrolling_puts (ts, "\nFix? yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, "\nFix? yes\n\n");
}
i = (random() % 100) - 50;
if (i > 0)
{
- scrolling_puts (ts, "Inode bitmap differences: ", 0);
+ BSOD_TEXT (bst, LEFT, "Inode bitmap differences: ");
while (--i > 0)
{
sprintf (buf, " %d", -(random() % 0xFFF));
- scrolling_puts (ts, buf, 0);
- usleep (1000);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
}
- scrolling_puts (ts, "\nFix? yes\n\n", 0);
+ BSOD_TEXT (bst, LEFT, "\nFix? yes\n\n");
}
i = (random() % 20) - 5;
sprintf (buf,
"Free blocks count wrong for group #0 (%d, counted=%d).\nFix? ",
g, c);
- scrolling_puts (ts, buf, 0);
- usleep (1000);
- scrolling_puts (ts, " yes\n\n", 0);
- if (bsod_sleep (dpy, 0))
- goto PANIC;
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000);
+ BSOD_TEXT (bst, LEFT, " yes\n\n");
}
PANIC:
i = 0;
- scrolling_puts (ts, "\n\n", 0);
+ BSOD_TEXT (bst, LEFT, "\n\n");
while (linux_panic[i])
{
time_t t = time ((time_t *) 0);
if (*linux_panic[i])
{
- strftime (prefix, sizeof(prefix)-1, "%b %d %k:%M:%S ", tm);
- scrolling_puts (ts, prefix, 0);
- scrolling_puts (ts, sysname, 0);
- scrolling_puts (ts, linux_panic[i], 0);
- XSync(dpy, False);
- usleep(1000);
+ strftime (prefix, sizeof(prefix)-1, "%b %d %H:%M:%S ", tm);
+ BSOD_TEXT (bst, LEFT, prefix);
+ BSOD_TEXT (bst, LEFT, sysname);
+ BSOD_TEXT (bst, LEFT, linux_panic[i]);
+ BSOD_PAUSE (bst, 1000);
}
else
- usleep (300000);
+ BSOD_PAUSE (bst, 300000);
- if (bsod_sleep (dpy, 0))
- goto DONE;
i++;
}
+ BSOD_PAUSE (bst, 4000000);
+
+ XClearWindow(dpy, window);
+ return bst;
+}
+
+
+/*
+ * Linux (hppa) panic, by Stuart Brady <sdbrady@ntlworld.com>
+ * Output courtesy of M. Grabert
+ */
+static struct bsod_state *
+hppa_linux (Display *dpy, Window window)
+{
+ struct bsod_state *bst =
+ make_bsod_state (dpy, window, "hppalinux", "HPPALinux");
+
+ int i = 0;
+ const char *release, *sysname, *gccversion, *version;
+ long int linedelay = 0;
+
+ __extension__
+ struct { long int delay; const char *string; } linux_panic[] =
+ {{ 0, "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
+ "\n\n\n\n\n\n\n\n\n\n\n\n\n" },
+ { 0, "Linux version %s (root@%s) (gcc version %s) %s\n" },
+ { 4000, "FP[0] enabled: Rev 1 Model 16\n" },
+ { 10, "The 32-bit Kernel has started...\n" },
+ { -1, "Determining PDC firmware type: System Map.\n" },
+ { -1, "model 00005bb0 00000481 00000000 00000002 7778df9f 100000f0 "
+ "00000008 000000b2 000000b2\n" },
+ { -1, "vers 00000203\n" },
+ { -1, "CPUID vers 17 rev 7 (0x00000227)\n" },
+ { -1, "capabilities 0x3\n" },
+ { -1, "model 9000/785/C3000\n" },
+ { -1, "Total Memory: 1024 Mb\n" },
+ { -1, "On node 0 totalpages: 262144\n" },
+ { -1, " DMA zone: 262144 pages, LIFO batch:16\n" },
+ { -1, " Normal zone: 0 pages, LIFO batch:1\n" },
+ { -1, " HighMem zone: 0 pages, LIFO batch:1\n" },
+ { -1, "LCD display at f05d0008,f05d0000 registered\n" },
+ { -1, "Building zonelist for node : 0\n" },
+ { -1, "Kernel command line: ide=nodma root=/dev/sda3 HOME=/ ip=off "
+ "console=ttyS0 TERM=vt102 palo_kernel=2/vmlinux-2.6\n" },
+ { -1, "ide_setup: ide=nodmaIDE: Prevented DMA\n" },
+ { -1, "PID hash table entries: 16 (order 4: 128 bytes)\n" },
+ {500, "Console: colour dummy device 160x64\n" },
+ { 10, "Memory: 1034036k available\n" },
+ { -1, "Calibrating delay loop... 796.67 BogoMIPS\n" },
+ { -1, "Dentry cache hash table entries: 131072 (order: 7, 524288 "
+ "bytes)\n" },
+ { -1, "Inode-cache hash table entries: 65536 (order: 6, 262144 "
+ "bytes)\n" },
+ { -1, "Mount-cache hash table entries: 512 (order: 0, 4096 bytes)\n" },
+ { -1, "POSIX conformance testing by UNIFIX\n" },
+ { -1, "NET: Registered protocol family 16\n" },
+ { 100, "Searching for devices...\n" },
+ { 25, "Found devices:\n" },
+ { 10, "1. Astro BC Runway Port at 0xfed00000 [10] "
+ "{ 12, 0x0, 0x582, 0x0000b }\n" },
+ { -1, "2. Elroy PCI Bridge at 0xfed30000 [10/0] "
+ "{ 13, 0x0, 0x782, 0x0000a }\n" },
+ { -1, "3. Elroy PCI Bridge at 0xfed32000 [10/1] "
+ "{ 13, 0x0, 0x782, 0x0000a }\n" },
+ { -1, "4. Elroy PCI Bridge at 0xfed38000 [10/4] "
+ "{ 13, 0x0, 0x782, 0x0000a }\n" },
+ { -1, "5. Elroy PCI Bridge at 0xfed3c000 [10/6] "
+ "{ 13, 0x0, 0x782, 0x0000a }\n" },
+ { -1, "6. AllegroHigh W at 0xfffa0000 [32] "
+ "{ 0, 0x0, 0x5bb, 0x00004 }\n" },
+ { -1, "7. Memory at 0xfed10200 [49] { 1, 0x0, 0x086, 0x00009 }\n" },
+ { -1, "CPU(s): 1 x PA8500 (PCX-W) at 400.000000 MHz\n" },
+ { -1, "SBA found Astro 2.1 at 0xfed00000\n" },
+ { -1, "lba version TR2.1 (0x2) found at 0xfed30000\n" },
+ { -1, "lba version TR2.1 (0x2) found at 0xfed32000\n" },
+ { -1, "lba version TR2.1 (0x2) found at 0xfed38000\n" },
+ { -1, "lba version TR2.1 (0x2) found at 0xfed3c000\n" },
+ { 100, "SCSI subsystem initialized\n" },
+ { 10, "drivers/usb/core/usb.c: registered new driver usbfs\n" },
+ { -1, "drivers/usb/core/usb.c: registered new driver hub\n" },
+ { -1, "ikconfig 0.7 with /proc/config*\n" },
+ { -1, "Initializing Cryptographic API\n" },
+ { 250, "SuperIO: probe of 0000:00:0e.0 failed with error -1\n" },
+ { 20, "SuperIO: Found NS87560 Legacy I/O device at 0000:00:0e.1 "
+ "(IRQ 64)\n" },
+ { -1, "SuperIO: Serial port 1 at 0x3f8\n" },
+ { -1, "SuperIO: Serial port 2 at 0x2f8\n" },
+ { -1, "SuperIO: Parallel port at 0x378\n" },
+ { -1, "SuperIO: Floppy controller at 0x3f0\n" },
+ { -1, "SuperIO: ACPI at 0x7e0\n" },
+ { -1, "SuperIO: USB regulator enabled\n" },
+ { -1, "SuperIO: probe of 0000:00:0e.2 failed with error -1\n" },
+ { -1, "Soft power switch enabled, polling @ 0xf0400804.\n" },
+ { -1, "pty: 256 Unix98 ptys configured\n" },
+ { -1, "Generic RTC Driver v1.07\n" },
+ { -1, "Serial: 8250/16550 driver $Revision: 1.88 $ 13 ports, "
+ "IRQ sharing disabled\n" },
+ { -1, "ttyS0 at I/O 0x3f8 (irq = 0) is a 16550A\n" },
+ { -1, "ttyS1 at I/O 0x2f8 (irq = 0) is a 16550A\n" },
+ { -1, "Linux Tulip driver version 1.1.13 (May 11, 2002)\n" },
+ { 150, "tulip0: no phy info, aborting mtable build\n" },
+ { 10, "tulip0: MII transceiver #1 config 1000 status 782d "
+ "advertising 01e1.\n" },
+ { -1, "eth0: Digital DS21143 Tulip rev 65 at 0xf4008000, "
+ "00:10:83:F9:B4:34, IRQ 66.\n" },
+ { -1, "Uniform Multi-Platform E-IDE driver Revision: 7.00alpha2\n" },
+ { -1, "ide: Assuming 33MHz system bus speed for PIO modes; "
+ "override with idebus=xx\n" },
+ { 100, "SiI680: IDE controller at PCI slot 0000:01:06.0\n" },
+ { 10, "SiI680: chipset revision 2\n" },
+ { -1, "SiI680: BASE CLOCK == 133\n" },
+ { -1, "SiI680: 100% native mode on irq 128\n" },
+ { -1, " ide0: MMIO-DMA at 0xf4800000-0xf4800007 -- "
+ "Error, MMIO ports already in use.\n" },
+ { -1, " ide1: MMIO-DMA at 0xf4800008-0xf480000f -- "
+ "Error, MMIO ports already in use.\n" },
+ { 5, "hda: TS130220A2, ATA DISK drive\n" },
+ { -1, " _______________________________\n" },
+ { -1, " < Your System ate a SPARC! Gah! >\n" },
+ { -1, " -------------------------------\n" },
+ { -1, " \\ ^__^\n" },
+ { -1, " \\ (xx)\\_______\n" },
+ { -1, " (__)\\ )\\/\\\n" },
+ { -1, " U ||----w |\n" },
+ { -1, " || ||\n" },
+ { -1, "swapper (pid 1): Breakpoint (code 0)\n" },
+ { -1, "\n" },
+ { -1, " YZrvWESTHLNXBCVMcbcbcbcbOGFRQPDI\n" },
+ { -1, "PSW: 00000000000001001111111100001111 Not tainted\n" },
+ { -1, "r00-03 4d6f6f21 1032f010 10208f34 103fc2e0\n" },
+ { -1, "r04-07 103fc230 00000001 00000001 0000000f\n" },
+ { -1, "r08-11 103454f8 000f41fa 372d3980 103ee404\n" },
+ { -1, "r12-15 3ccbf700 10344810 103ee010 f0400004\n" },
+ { -1, "r16-19 f00008c4 f000017c f0000174 00000000\n" },
+ { -1, "r20-23 fed32840 fed32800 00000000 0000000a\n" },
+ { -1, "r24-27 0000ffa0 000000ff 103fc2e0 10326010\n" },
+ { -1, "r28-31 00000000 00061a80 4ff98340 10208f34\n" },
+ { -1, "sr0-3 00000000 00000000 00000000 00000000\n" },
+ { -1, "sr4-7 00000000 00000000 00000000 00000000\n" },
+ { -1, "\n" },
+ { -1, "IASQ: 00000000 00000000 IAOQ: 00000000 00000004\n" },
+ { -1, " IIR: 00000000 ISR: 00000000 IOR: 00000000\n" },
+ { -1, " CPU: 0 CR30: 4ff98000 CR31: 1037c000\n" },
+ { -1, " ORIG_R28: 55555555\n" },
+ { -1, " IAOQ[0]: 0x0\n" },
+ { -1, " IAOQ[1]: 0x4\n" },
+ { -1, " RP(r2): probe_hwif+0x218/0x44c\n" },
+ { -1, "Kernel panic: Attempted to kill init!\n" },
+ { 0, NULL }};
+
+ bst->scroll_p = True;
+ bst->wrap_p = True;
+ bst->left_margin = bst->right_margin = 10;
+ bst->top_margin = bst->bottom_margin = 10;
+
+ release = "2.6.0-test11-pa2";
+ sysname = "hppa";
+ version = "#2 Mon Dec 8 06:09:27 GMT 2003";
+# ifdef HAVE_UNAME
+ {
+ struct utsname uts;
+ char *s;
+ if (uname (&uts) >= 0)
+ {
+ sysname = uts.nodename;
+ if (!strcmp (uts.sysname, "Linux"))
+ {
+ release = uts.release;
+ version = uts.version;
+ }
+ }
+ s = strchr (sysname, '.');
+ if (s) *s = 0;
+ }
+# endif /* !HAVE_UNAME */
- if (bsod_sleep (dpy, 4))
- goto DONE;
+# if (defined (__GNUC__) && defined (__VERSION__))
+ gccversion = __VERSION__;
+# else /* !(defined (__GNUC__) && defined (__VERSION__)) */
+ gccversion = "3.3.2 (Debian)";
+# endif /* !(defined (__GNUC__) && defined (__VERSION__)) */
+ /* Insert current host name into banner on line 2 */
+ {
+ char ss[1024];
+ snprintf (ss, 1024, linux_panic[1].string,
+ release, sysname, gccversion, version);
+ linux_panic[1].string = ss;
+ }
+
+ BSOD_PAUSE (bst, 100000);
+ while (linux_panic[i].string)
+ {
+ if (linux_panic[i].delay != -1)
+ linedelay = linux_panic[i].delay * 1000;
+ BSOD_PAUSE (bst, linedelay);
+ BSOD_TEXT (bst, LEFT, linux_panic[i].string);
+ i++;
+ }
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
+ bst->y = bst->xgwa.height - bst->font->ascent - bst->font->descent;
- DONE:
- free_scrolling_window (ts);
XClearWindow(dpy, window);
+ return bst;
}
-\f
-/* HPUX panic, by Tobias Klausmann <klausman@schwarzvogel.de>
+/* VMS by jwz (text sent by Roland Barmettler <roli@barmettler.net>)
*/
+static struct bsod_state *
+vms (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "vms", "VMS");
-static void
-hpux (Display* dpy, Window window, int delay)
+ const char *sysname;
+ int char_delay = 0;
+ int dot_delay = 40000;
+ int chunk_delay = 500000;
+ char *s, *s1;
+ int i;
+ int arg_count;
+
+ __extension__
+
+ const char *lines[] = {
+ "%CNXMAN, Lost connection to system #\n"
+ "%SHADOW-I-VOLPROC, DSA0: shadow master has changed. "
+ "Dump file WILL be written if system crashes.\n"
+ "\n",
+ "",
+
+ "%CNXMAN, Quorum lost, blocking activity\n"
+ "%CNXMAN, Timed-out lost connection to system #\n"
+ "%CNXMAN, Timed-out lost connection to system #\n"
+ "%CNXMAN, Timed-out lost connection to system #\n"
+ "%CNXMAN, Proposing reconfiguration of the VMScluster\n",
+ "",
+
+ "%CNXMAN, Removed from VMScluster system #\n"
+ "%CNXMAN, Removed from VMScluster system #\n"
+ "%CNXMAN, Removed from VMScluster system #\n"
+ "%CNXMAN, Completing VMScluster state transition\n",
+
+ "\n"
+ "**** OpenVMS (TM) Alpha Operating system V7.3-1 - BUGCHECK ****\n"
+ "\n"
+ "** Bugcheck code = 000005DC: CLUEXIT, Node voluntarily exiting "
+ "VMScluster\n"
+ "** Crash CPU: 00 Primary CPU: 00 Active CPUs: 00000001\n"
+ "** Current Process = NULL\n"
+ "** Current PSB ID = 00000001\n"
+ "** Image Name =\n"
+ "\n"
+ "** Dumping error log buffers to HBVS unit 0\n"
+ "**** Unable to dump error log buffers to remaining shadow set members\n"
+ "** Error log buffers not dumped to HBVS unit 200\n"
+ "\n"
+ "** Dumping memory to HBVS unit 0\n"
+ "**** Starting compressed selective memory dump at #...\n",
+
+ "...",
+
+ "\n"
+ "**** Memory dump complete - not all processes or global pages saved\n",
+
+ "\n"
+ "halted CPU 0\n",
+ "",
+
+ "\n"
+ "halt code = 5\n"
+ "HALT instruction executed\n"
+ "PC = ffffffff800c3884\n",
+
+ "\n"
+ "CPU 0 booting\n",
+
+ "\n"
+ "resetting all I/O buses\n"
+ "\n"
+ "\n"
+ };
+ char *args[8];
+ int ids[3];
+
+ bst->scroll_p = True;
+ bst->wrap_p = True;
+ bst->left_margin = bst->right_margin = 10;
+ bst->top_margin = bst->bottom_margin = 10;
+
+ sysname = "VMS001";
+# ifdef HAVE_UNAME
+ {
+ struct utsname uts;
+ if (uname (&uts) >= 0)
+ sysname = uts.nodename;
+ s = strchr (sysname, '.');
+ if (s) *s = 0;
+ }
+# endif /* !HAVE_UNAME */
+
+ args[0] = malloc (strlen(sysname) + 7);
+ strcpy (args[0], sysname);
+ args[0][5] = 0;
+
+ /* Pick three numbers, 1-9, no overlaps. */
+ ids[0] = 1 + (random() % 9);
+ do { ids[1] = 1 + (random() % 9); } while (ids[1]==ids[0]);
+ do { ids[2] = 1 + (random() % 9); } while (ids[2]==ids[0] || ids[2]==ids[1]);
+
+ i = strlen(args[0])-1;
+ if (i < 6) i++;
+ args[0][i] = '0' + ids[0];
+ args[0][i+1] = 0;
+
+ for (s = args[0]; *s; s++)
+ if (isalpha(*s)) *s = toupper (*s);
+
+ args[1] = strdup (args[0]);
+ args[2] = strdup (args[0]); args[2][i] = '0' + ids[1];
+ args[3] = strdup (args[0]); args[3][i] = '0' + ids[2];
+
+ args[4] = strdup (args[1]);
+ args[5] = strdup (args[2]);
+ args[6] = strdup (args[3]);
+
+ {
+ time_t t = time ((time_t *) 0);
+ struct tm *tm = localtime (&t);
+ args[7] = malloc (30);
+ strftime (args[7], 29, "%d-%b-%Y %H:%M", tm);
+ for (s = args[7]; *s; s++)
+ if (isalpha(*s)) *s = toupper (*s);
+ }
+
+ arg_count = 0;
+ for (i = 0; i < countof(lines); i++)
+ {
+ const char *fmt = lines[i];
+ if (! strcmp (fmt, "..."))
+ {
+ int steps = 180 + (random() % 60);
+ while (--steps >= 0)
+ {
+ BSOD_TEXT (bst, LEFT, ".");
+ BSOD_PAUSE (bst, dot_delay);
+ }
+ }
+ else
+ {
+ char *fmt2 = malloc (strlen (fmt) * 2 + 1);
+ for (s = (char *) fmt, s1 = fmt2; *s; s++)
+ {
+ if (*s == '#')
+ {
+ strcpy (s1, args[arg_count++]);
+ s1 += strlen(s1);
+ }
+ else
+ *s1++ = *s;
+ }
+ *s1 = 0;
+ BSOD_CHAR_DELAY (bst, char_delay);
+ BSOD_TEXT (bst, LEFT, fmt2);
+ free (fmt2);
+ BSOD_CHAR_DELAY (bst, 0);
+ BSOD_PAUSE (bst, chunk_delay);
+ }
+ }
+
+ for (i = 0; i < countof (args); i++)
+ free (args[i]);
+
+ XClearWindow(dpy, window);
+ return bst;
+}
+
+
+/* HVX (formerly GCOS6) and TPS6 crash
+ by Brian Garratt <brian-m.garratt@bull.co.uk>
+
+ GCOS6 is a Unix-like operating system developed by Honeywell in the
+ 1970s in collaboration with MIT and AT&T (who called their version
+ UNIX). Both are very much like MULTICS which Honeywell got from GE.
+
+ HVX ("High-performance Virtual System on Unix") is an AIX application
+ which emulates GCOS6 hardware on RS6000-like machines.
+ */
+static struct bsod_state *
+hvx (Display *dpy, Window window)
{
- GC gc;
- XGCValues gcv;
- XWindowAttributes xgwa;
- scrolling_window *ts;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "hvx", "HVX");
+
+ bst->scroll_p = True;
+ bst->wrap_p = True;
+ bst->y = bst->xgwa.height - bst->bottom_margin - bst->font->ascent;
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT,
+ "(TP) Trap no E Effective address 00000000 Instruction D7DE\n"
+ "(TP) Registers :\n"
+ "(TP) B1 -> B7 03801B02 00000000 03880D45 038BABDB 0388AFFD"
+ " 0389B3F8 03972317\n"
+ "(TP) R1 -> R7 0001 0007 F10F 090F 0020 0106 0272\n"
+ "(TP) P I Z M1 0388A18B 3232 0000 FF00\n"
+ "(TP) Program counter is at offset 0028 from string YTPAD\n"
+ "(TP) User id of task which trapped is LT 626\n"
+ "(TP)?\n"
+ );
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 100000);
+ BSOD_TEXT (bst, LEFT, " TP CLOSE ALL");
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "\n(TP)?\n");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 100000);
+ BSOD_TEXT (bst, LEFT, " TP ABORT -LT ALL");
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "\n(TP)?\n");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 100000);
+ BSOD_TEXT (bst, LEFT, " TP STOP KILL");
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT,
+ "\n"
+ "(TP)?\n"
+ "Core dumps initiated for selected HVX processes ...\n"
+ "Core dumps complete.\n"
+ "Fri Jul 19 15:53:09 2002\n"
+ "Live registers for cp 0:\n"
+ " P = 7de3 IW=0000 I=32 CI=30000000 S=80006013"
+ " IV=aa0 Level=13\n"
+ " R1-7 = 1f 913 13 4 8 0 0\n"
+ " B1-7 = 64e71b a93 50e 64e73c 6c2c 7000 b54\n"
+ "Memory dump starting to file /var/hvx/dp01/diag/Level2 ...\n"
+ "Memory dump complete.\n"
+ );
+
+ XClearWindow(dpy, window);
+ return bst;
+}
+
+
+/* HPUX panic, by Tobias Klausmann <klausman@schwarzvogel.de>
+ */
+static struct bsod_state *
+hpux (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "hvx", "HVX");
const char *sysname;
char buf[2048];
- const char *msg1 =
+ bst->scroll_p = True;
+ bst->y = bst->xgwa.height - bst->bottom_margin - bst->font->ascent;
+
+ sysname = "HPUX";
+# ifdef HAVE_UNAME
+ {
+ struct utsname uts;
+ char *s;
+ if (uname (&uts) >= 0)
+ sysname = uts.nodename;
+ s = strchr (sysname, '.');
+ if (s) *s = 0;
+ }
+# endif /* !HAVE_UNAME */
+
+ BSOD_TEXT (bst, LEFT,
+ " "
+ " "
+ " \n");
+ sprintf (buf, "%.100s [HP Release B.11.00] (see /etc/issue)\n", sysname);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1000000);
+ BSOD_TEXT (bst, LEFT,
"Console Login:\n"
"\n"
" ******* Unexpected HPMC/TOC. Processor HPA FFFFFFFF'"
"*** To change this dump type, press any key within 10 seconds.\n"
"*** Proceeding with selective dump.\n"
"\n"
- "*** The dump may be aborted at any time by pressing ESC.\n";
- const char *msg2 =
- "\n*** System rebooting.\n";
-
- XGetWindowAttributes (dpy, window, &xgwa);
- ts = make_scrolling_window (dpy, window, "HPUX", False);
- ts->columns = 10000; /* never wrap */
- ts->sub_x = 0;
- ts->sub_y = 0;
- ts->sub_width = xgwa.width;
- ts->sub_height = xgwa.height;
-
- sysname = "HPUX";
-# ifdef HAVE_UNAME
- {
- struct utsname uts;
- char *s;
- if (uname (&uts) >= 0)
- sysname = uts.nodename;
- s = strchr (sysname, '.');
- if (s) *s = 0;
- }
-# endif /* !HAVE_UNAME */
+ "*** The dump may be aborted at any time by pressing ESC.\n");
- gcv.foreground = get_pixel_resource ("HPUX.foreground", "HPUX.Foreground",
- dpy, xgwa.colormap);
- gc = XCreateGC (dpy, window, GCForeground|GCBackground, &gcv);
- XFillRectangle (dpy, window, gc, 0, 0, xgwa.width, xgwa.height);
- if (bsod_sleep (dpy, 1))
- goto DONE;
-
- scrolling_puts (ts,
- " "
- " "
- " \n",
- 0);
- sprintf (buf, "%.100s [HP Release B.11.00] (see /etc/issue)\n", sysname);
- scrolling_puts (ts, buf, 0);
- if (bsod_sleep (dpy, 1))
- goto DONE;
- scrolling_puts (ts, msg1, 0);
{
int i;
int steps = 11;
"*** Dumping: %3d%% complete (%d of 40 MB) (device 64:0x2)\r",
i * 100 / steps,
i * size / steps);
- scrolling_puts (ts, buf, 0);
- XSync (dpy, False);
- usleep (1500000);
- if (bsod_sleep (dpy, 0))
- goto DONE;
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 1500000);
}
}
- scrolling_puts (ts, msg2, 0);
-
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
+ BSOD_TEXT (bst, LEFT, "\n*** System rebooting.\n");
- DONE:
- free_scrolling_window (ts);
+ XClearWindow(dpy, window);
+ return bst;
}
-\f
/* IBM OS/390 aka MVS aka z/OS.
Text from Dan Espen <dane@mk.telcordia.com>.
Apparently this isn't actually a crash, just a random session...
But who can tell.
*/
-
-static void
-os390 (Display* dpy, Window window, int delay)
+static struct bsod_state *
+os390 (Display *dpy, Window window)
{
- GC gc;
- XGCValues gcv;
- XWindowAttributes xgwa;
- scrolling_window *ts;
- int i;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "os390", "OS390");
- const char *msg[] = {
- "* ISPF Subtask abend *\n",
- "SPF ENDED DUE TO ERROR+\n",
- "READY\n",
- "\n",
- "IEA995I SYMPTOM DUMP OUTPUT\n",
- " USER COMPLETION CODE=0222\n",
- " TIME=23.00.51 SEQ=03210 CPU=0000 ASID=00AE\n",
- " PSW AT TIME OF ERROR 078D1000 859DAF18 ILC 2 INTC 0D\n",
- " NO ACTIVE MODULE FOUND\n",
- " NAME=UNKNOWN\n",
- " DATA AT PSW 059DAF12 - 00181610 0A0D9180 70644710\n",
- " AR/GR 0: 00000000/80000000 1: 00000000/800000DE\n",
- " 2: 00000000/196504DC 3: 00000000/00037A78\n",
- " 4: 00000000/00037B78 5: 00000000/0003351C\n",
- " 6: 00000000/0000F0AD 7: 00000000/00012000\n",
- " 8: 00000000/059DAF10 9: 00000000/0002D098\n",
- " A: 00000000/059D9F10 B: 00000000/059D8F10\n",
- " C: 00000000/859D7F10 D: 00000000/00032D60\n",
- " E: 00000000/00033005 F: 01000002/00000041\n",
- " END OF SYMPTOM DUMP\n",
- "ISPS014 - ** Logical screen request failed - abend 0000DE **\n",
- "ISPS015 - ** Contact your system programmer or dialog developer.**\n",
- "*** ISPF Main task abend ***\n",
- "IEA995I SYMPTOM DUMP OUTPUT\n",
- " USER COMPLETION CODE=0222\n",
- " TIME=23.00.52 SEQ=03211 CPU=0000 ASID=00AE\n",
- " PSW AT TIME OF ERROR 078D1000 8585713C ILC 2 INTC 0D\n",
- " ACTIVE LOAD MODULE ADDRESS=05855000 OFFSET=0000213C\n",
- " NAME=ISPMAIN\n",
- " DATA AT PSW 05857136 - 00181610 0A0D9180 D3304770\n",
- " GR 0: 80000000 1: 800000DE\n",
- " 2: 00015260 3: 00000038\n",
- " 4: 00012508 5: 00000000\n",
- " 6: 000173AC 7: FFFFFFF8\n",
- " 8: 05858000 9: 00012CA0\n",
- " A: 05857000 B: 05856000\n",
- " C: 85855000 D: 00017020\n",
- " E: 85857104 F: 00000000\n",
- " END OF SYMPTOM DUMP\n",
- "READY\n",
- "***_\n"
- };
+ bst->scroll_p = True;
+ bst->y = bst->xgwa.height - bst->bottom_margin - bst->font->ascent;
- XGetWindowAttributes (dpy, window, &xgwa);
- ts = make_scrolling_window (dpy, window, "OS390", False);
- ts->columns = 10000; /* never wrap */
- ts->sub_x = 0;
- ts->sub_y = 0;
- ts->sub_width = xgwa.width;
- ts->sub_height = xgwa.height;
-
- gcv.foreground = get_pixel_resource ("390.background", "390.Background",
- dpy, xgwa.colormap);
- gc = XCreateGC (dpy, window, GCForeground, &gcv);
- XFillRectangle (dpy, window, gc, 0, 0, xgwa.width, xgwa.height);
- XFreeGC (dpy, gc);
-
- for (i = 0; i < countof (msg); i++)
- {
- scrolling_puts (ts, msg[i], 0);
- usleep (100000);
- if (bsod_sleep(dpy, 0)) goto DONE;
- }
+ BSOD_LINE_DELAY (bst, 100000);
+ BSOD_TEXT (bst, LEFT,
+ "\n*** System rebooting.\n"
+ "* ISPF Subtask abend *\n"
+ "SPF ENDED DUE TO ERROR+\n"
+ "READY\n"
+ "\n"
+ "IEA995I SYMPTOM DUMP OUTPUT\n"
+ " USER COMPLETION CODE=0222\n"
+ " TIME=23.00.51 SEQ=03210 CPU=0000 ASID=00AE\n"
+ " PSW AT TIME OF ERROR 078D1000 859DAF18 ILC 2 INTC 0D\n"
+ " NO ACTIVE MODULE FOUND\n"
+ " NAME=UNKNOWN\n"
+ " DATA AT PSW 059DAF12 - 00181610 0A0D9180 70644710\n"
+ " AR/GR 0: 00000000/80000000 1: 00000000/800000DE\n"
+ " 2: 00000000/196504DC 3: 00000000/00037A78\n"
+ " 4: 00000000/00037B78 5: 00000000/0003351C\n"
+ " 6: 00000000/0000F0AD 7: 00000000/00012000\n"
+ " 8: 00000000/059DAF10 9: 00000000/0002D098\n"
+ " A: 00000000/059D9F10 B: 00000000/059D8F10\n"
+ " C: 00000000/859D7F10 D: 00000000/00032D60\n"
+ " E: 00000000/00033005 F: 01000002/00000041\n"
+ " END OF SYMPTOM DUMP\n"
+ "ISPS014 - ** Logical screen request failed - abend 0000DE **\n"
+ "ISPS015 - ** Contact your system programmer or dialog developer.**\n"
+ "*** ISPF Main task abend ***\n"
+ "IEA995I SYMPTOM DUMP OUTPUT\n"
+ " USER COMPLETION CODE=0222\n"
+ " TIME=23.00.52 SEQ=03211 CPU=0000 ASID=00AE\n"
+ " PSW AT TIME OF ERROR 078D1000 8585713C ILC 2 INTC 0D\n"
+ " ACTIVE LOAD MODULE ADDRESS=05855000 OFFSET=0000213C\n"
+ " NAME=ISPMAIN\n"
+ " DATA AT PSW 05857136 - 00181610 0A0D9180 D3304770\n"
+ " GR 0: 80000000 1: 800000DE\n"
+ " 2: 00015260 3: 00000038\n"
+ " 4: 00012508 5: 00000000\n"
+ " 6: 000173AC 7: FFFFFFF8\n"
+ " 8: 05858000 9: 00012CA0\n"
+ " A: 05857000 B: 05856000\n"
+ " C: 85855000 D: 00017020\n"
+ " E: 85857104 F: 00000000\n"
+ " END OF SYMPTOM DUMP\n"
+ "READY\n"
+ "***");
+ BSOD_CURSOR (bst, CURSOR_LINE, 240000, 999999);
- XSync(dpy, False);
- bsod_sleep(dpy, delay);
-DONE:
- free_scrolling_window (ts);
+ XClearWindow(dpy, window);
+ return bst;
}
-\f
-/*
- * Simulate various Apple II crashes. The memory map encouraged many
- * programs to use the primary hi-res video page for various storage,
- * and the secondary hi-res page for active display. When it crashed
- * into Applesoft or the monitor, it would revert to the primary page
- * and you'd see memory garbage on the screen. Also, it was common for
- * copy-protected games to use the primary text page for important
- * code, because that made it really hard to reverse-engineer them. The
- * result often looked like what this generates.
- *
- * Sometimes an imaginary user types some of the standard commands to
- * recover from crashes. You can turn off BSOD*apple2SimulateUser to
- * prevent this.
- *
- * It simulates the following characteristics of standard television
- * monitors:
- *
- * - Realistic rendering of a composite video signal
- * - Compression & brightening on the right, as the scan gets truncated
- * because of saturation in the flyback transformer
- * - Blooming of the picture dependent on brightness
- * - Overscan, cutting off a few pixels on the left side.
- * - Colored text in mixed graphics/text modes
- *
- * It's amazing how much it makes your high-end monitor look like at
- * large late-70s TV. All you need is to put a big "Solid State" logo
- * in curly script on it and you'd be set.
- *
- * Trevor Blackwell <tlb@tlb.org>
- */
-
-/*
- * Implementation notes:
- *
- * There are roughly 3 parts to this hack:
- *
- * - emulation of A2 Basic and Monitor. Not much more than printing random
- * plausible messages. Here we work in the A2 memory space.
- *
- * - emulation of the A2's video output section, which shifted bits out of main
- * memory at a 14 MHz dot clock rate, sort of. You could only read one byte
- * per MHz, so there were various schemes for turning 8 bits into 14 screen
- * pixels.
- *
- * - simulation of an NTSC television, which turned the bits into colored
- * graphics and text.
- *
- * The A2 had 3 display modes: text, lores, and hires. Text was 40x24, and it
- * disabled color in the TV. Lores gave you 40x48 graphics blocks, using the
- * same memory as the text screen. Each could be one of 16 colors. Hires gave
- * you 280x192 pixels. Odd pixels were blue or purple, and even pixels were
- * orange or green depending on the setting of the high bit in each byte.
- *
- * The graphics modes could also have 4 lines of text at the bottom. This was
- * fairly unreadable if you had a color monitor.
- *
- * Each mode had 2 different screens using different memory space. In hires
- * mode this was sometimes used for double buffering, but more often the lower
- * screen was full of code/data and the upper screen was used for display, so
- * you got random garbage on the screen.
- *
- * In DirectColor or TrueColor modes, it generates pixel values directly from
- * RGB values it calculates across each scan line. In PseudoColor mode, it
- * consider each possible pattern of 5 preceding bit values in each possible
- * position modulo 4 and allocates a color for each. A few things, like the
- * brightening on the right side as the horizontal trace slows down, aren't
- * done in PseudoColor.
- *
- * The text font is based on X's standard 6x10 font, with a few tweaks like
- * putting a slash across the zero.
- *
- * I'd like to add a bit of visible retrace, but it conflicts with being able
- * to bitcopy the image when fast scrolling. After another couple of CPU
- * generations, we could probably regenerate the whole image from scratch every
- * time. On a P4 2 GHz it can manage this fine for blinking text, but scrolling
- * looks too slow.
+/* Compaq Tru64 Unix panic, by jwz as described by
+ Tobias Klausmann <klausman@schwarzvogel.de>
*/
+static struct bsod_state *
+tru64 (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "tru64", "Tru64");
+ const char *sysname;
+ char buf[2048];
-static char * apple2_basic_errors[]={
- "BREAK",
- "NEXT WITHOUT FOR",
- "SYNTAX ERROR",
- "RETURN WITHOUT GOSUB",
- "ILLEGAL QUANTITY",
- "OVERFLOW",
- "OUT OF MEMORY",
- "BAD SUBSCRIPT ERROR",
- "DIVISION BY ZERO",
- "STRING TOO LONG",
- "FORMULA TOO COMPLEX",
- "UNDEF'D FUNCTION",
- "OUT OF DATA"
-};
-static char * apple2_dos_errors[]={
- "VOLUME MISMATCH",
- "I/O ERROR",
- "DISK FULL",
- "NO BUFFERS AVAILABLE",
- "PROGRAM TOO LARGE",
-};
+ bst->scroll_p = True;
+ bst->y = bst->xgwa.height - bst->bottom_margin - bst->font->ascent;
-struct apple2_state {
- char hireslines[192][40];
- char textlines[24][40];
- int gr_text;
- enum {
- A2_GR_FULL=1,
- A2_GR_LORES=2,
- A2_GR_HIRES=4
- } gr_mode;
- int cursx;
- int cursy;
- int blink;
- int rowimage[24];
-};
+ sysname = "127.0.0.1";
+# ifdef HAVE_UNAME
+ {
+ struct utsname uts;
+ if (uname (&uts) >= 0)
+ sysname = uts.nodename;
+ }
+# endif /* !HAVE_UNAME */
-enum {
- A2_SP_ROWMASK=1023,
- A2_SP_PUT=1024,
- A2_SP_COPY=2048,
-};
+ sprintf (buf,
+ "Compaq Tru64 UNIX V5.1B (Rev. 2650) (%.100s) console\n"
+ "\n"
+ "login: ",
+ sysname);
+ BSOD_TEXT (bst, LEFT, buf);
+ BSOD_PAUSE (bst, 6000000);
+
+ BSOD_TEXT (bst, LEFT,
+ "panic (cpu 0): trap: illegal instruction\n"
+ "kernel inst fault=gentrap, ps=0x5, pc=0xfffffc0000593878, inst=0xaa\n"
+ "kernel inst fault=gentrap, ps=0x5, pc=0xfffffc0000593878, inst=0xaa\n"
+ " \n"
+ "DUMP: blocks available: 1571600\n"
+ "DUMP: blocks wanted: 100802 (partial compressed dump) [OKAY]\n"
+ "DUMP: Device Disk Blocks Available\n"
+ "DUMP: ------ ---------------------\n"
+ "DUMP: 0x1300023 1182795 - 1571597 (of 1571598) [primary swap]\n"
+ "DUMP.prom: Open: dev 0x5100041, block 2102016: SCSI 0 11 0 2 200 0 0\n"
+ "DUMP: Writing header... [1024 bytes at dev 0x1300023, block 1571598]\n"
+ "DUMP: Writing data");
-static void
-a2_scroll(struct apple2_state *st)
-{
- int i;
- int top=(st->gr_mode&(A2_GR_LORES|A2_GR_HIRES)) ? 20 : 0;
- if ((st->gr_mode&A2_GR_FULL) && (st->gr_mode&A2_GR_HIRES)) return;
- if (st->gr_mode&A2_GR_FULL) top=0;
- for (i=top; i<23; i++) {
- if (memcmp(st->textlines[i],st->textlines[i+1],40)) {
- memcpy(st->textlines[i],st->textlines[i+1],40);
- st->rowimage[i]=st->rowimage[i+1];
- }
+ {
+ int i;
+ int steps = 4 + (random() % 8);
+ BSOD_CHAR_DELAY (bst, 1000000);
+ for (i = 0; i < steps; i++)
+ BSOD_TEXT (bst, LEFT, ".");
+ BSOD_CHAR_DELAY (bst, 0);
+ sprintf (buf, "[%dMB]\n", steps);
+ BSOD_TEXT (bst, LEFT, buf);
}
- memset(st->textlines[23],0xe0,40);
- st->rowimage[23]=-1;
-}
-static void
-a2_printc(struct apple2_state *st, char c)
-{
- st->textlines[st->cursy][st->cursx] |= 0xc0; /* turn off blink */
- if (c=='\n') {
- if (st->cursy==23) {
- a2_scroll(st);
- } else {
- st->rowimage[st->cursy]=-1;
- st->cursy++;
- st->rowimage[st->cursy]=-1;
- }
- st->cursx=0;
- } else {
- st->textlines[st->cursy][st->cursx]=c ^ 0xc0;
- st->rowimage[st->cursy]=-1;
- st->cursx++;
- if (st->cursx==40) {
- if (st->cursy==23) {
- a2_scroll(st);
- } else {
- st->rowimage[st->cursy]=-1;
- st->cursy++;
- st->rowimage[st->cursy]=-1;
- }
- st->cursx=0;
- }
- }
- st->textlines[st->cursy][st->cursx] &= 0x7f; /* turn on blink */
-}
+ BSOD_TEXT (bst, LEFT,
+ "DUMP: Writing header... [1024 bytes at dev 0x1300023, block 1571598]\n"
+ "DUMP: crash dump complete.\n"
+ "kernel inst fault=gentrap, ps=0x5, pc=0xfffffc0000593878, inst=0xaa\n"
+ " \n"
+ "DUMP: second crash dump skipped: 'dump_savecnt' enforced.\n");
+ BSOD_PAUSE (bst, 4000000);
-static void
-a2_goto(struct apple2_state *st, int r, int c)
-{
- st->textlines[st->cursy][st->cursx] |= 0xc0; /* turn off blink */
- st->cursy=r;
- st->cursx=c;
- st->textlines[st->cursy][st->cursx] &= 0x7f; /* turn on blink */
-}
+ BSOD_TEXT (bst, LEFT,
+ "\n"
+ "halted CPU 0\n"
+ "\n"
+ "halt code = 5\n"
+ "HALT instruction executed\n"
+ "PC = fffffc00005863b0\n");
+ BSOD_PAUSE (bst, 3000000);
+
+ BSOD_TEXT (bst, LEFT,
+ "\n"
+ "CPU 0 booting\n"
+ "\n"
+ "\n"
+ "\n");
-static void
-a2_cls(struct apple2_state *st)
-{
- int i;
- for (i=0; i<24; i++) {
- memset(st->textlines[i],0xe0,40);
- st->rowimage[i]=-1;
- }
+ XClearWindow(dpy, window);
+ return bst;
}
-static void
-a2_invalidate(struct apple2_state *st)
+
+/* MS-DOS, by jwz
+ */
+static struct bsod_state *
+msdos (Display *dpy, Window window)
{
- int i;
- for (i=0; i<24; i++) {
- st->rowimage[i]=-1;
- }
-}
+ struct bsod_state *bst = make_bsod_state (dpy, window, "msdos", "MSDOS");
-static void
-a2_poke(struct apple2_state *st, int addr, int val)
-{
-
- if (addr>=0x400 && addr<0x800) {
- /* text memory */
- int row=((addr&0x380)/0x80) + ((addr&0x7f)/0x28)*8;
- int col=(addr&0x7f)%0x28;
- if (row<24 && col<40) {
- st->textlines[row][col]=val;
- if (!(st->gr_mode&(A2_GR_HIRES)) ||
- (!(st->gr_mode&(A2_GR_FULL)) && row>=20)) {
- st->rowimage[row]=-1;
- }
- }
- }
- else if (addr>=0x2000 && addr<0x4000) {
- int row=(((addr&0x1c00) / 0x400) * 1 +
- ((addr&0x0380) / 0x80) * 8 +
- ((addr&0x0078) / 0x28) * 64);
- int col=((addr&0x07f)%0x28);
- if (row<192 && col<40) {
- st->hireslines[row][col]=val;
- if (st->gr_mode&A2_GR_HIRES) {
- st->rowimage[row/8]=-1;
- }
- }
- }
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "C:\\WINDOWS>");
+ BSOD_CURSOR (bst, CURSOR_LINE, 200000, 8);
+
+ BSOD_CHAR_DELAY (bst, 200000);
+ BSOD_TEXT (bst, LEFT, "dir a:");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "\nNot ready reading drive A\nAbort, Retry, Fail?");
+
+ BSOD_CURSOR (bst, CURSOR_LINE, 200000, 10);
+ BSOD_CHAR_DELAY (bst, 200000);
+ BSOD_TEXT (bst, LEFT, "f");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT,
+ "\n\n\nNot ready reading drive A\nAbort, Retry, Fail?");
+
+ BSOD_CURSOR (bst, CURSOR_LINE, 200000, 10);
+ BSOD_CHAR_DELAY (bst, 200000);
+ BSOD_TEXT (bst, LEFT, "f");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "\nVolume in drive A has no label\n\n"
+ "Not ready reading drive A\nAbort, Retry, Fail?");
+
+ BSOD_CURSOR (bst, CURSOR_LINE, 200000, 12);
+ BSOD_CHAR_DELAY (bst, 200000);
+ BSOD_TEXT (bst, LEFT, "a");
+ BSOD_PAUSE (bst, 1000000);
+
+ BSOD_CHAR_DELAY (bst, 10000);
+ BSOD_TEXT (bst, LEFT, "\n\nC:\\WINDOWS>");
+
+ BSOD_CURSOR (bst, CURSOR_LINE, 200000, 999999);
+
+ XClearWindow(dpy, window);
+ return bst;
}
-/* This table lists fixes for characters that differ from the standard 6x10
- font. Each encodes a pixel, as (charindex*7 + x) + (y<<10) + (value<<15)
- where value is 0 for white and 1 for black. */
-static unsigned short a2_fixfont[] = {
- /* Fix $ */ 0x8421, 0x941d,
- /* Fix % */ 0x8024, 0x0028, 0x8425, 0x0426, 0x0825, 0x1027, 0x1426, 0x9427,
- 0x1824, 0x9828,
- /* Fix * */ 0x8049, 0x8449, 0x8849, 0x0c47, 0x0c48, 0x0c4a, 0x0c4b, 0x9049,
- 0x9449, 0x9849,
- /* Fix , */ 0x9057, 0x1458, 0x9856, 0x1857, 0x1c56,
- /* Fix . */ 0x1465, 0x1864, 0x1866, 0x1c65,
- /* Fix / */ 0x006e, 0x186a,
- /* Fix 0 */ 0x8874, 0x8c73, 0x9072,
- /* Fix 1 */ 0x0878, 0x1878, 0x187c,
- /* Fix 5 */ 0x8895, 0x0c94, 0x0c95,
- /* Fix 6 */ 0x809f, 0x8c9c, 0x109c,
- /* Fix 7 */ 0x8ca4, 0x0ca5, 0x90a3, 0x10a4,
- /* Fix 9 */ 0x08b3, 0x8cb3, 0x98b0,
- /* Fix : */ 0x04b9, 0x08b8, 0x08ba, 0x0cb9, 0x90b9, 0x14b9, 0x18b8, 0x18b9,
- 0x18ba, 0x1cb9,
- /* Fix ; */ 0x04c0, 0x08bf, 0x08c1, 0x0cc0, 0x90c0, 0x14c1, 0x98bf, 0x18c0,
- 0x1cbf,
- /* Fix < */ 0x80c8, 0x00c9, 0x84c7, 0x04c8, 0x88c6, 0x08c7, 0x8cc5, 0x0cc6,
- 0x90c6, 0x10c7,
- 0x94c7, 0x14c8, 0x98c8, 0x18c9,
- /* Fix > */ 0x80d3, 0x00d4, 0x84d4, 0x04d5, 0x88d5, 0x08d6, 0x8cd6, 0x0cd7,
- 0x90d5, 0x10d6,
- 0x94d4, 0x14d5, 0x98d3, 0x18d4,
- /* Fix @ */ 0x88e3, 0x08e4, 0x8ce4, 0x98e5,
- /* Fix B */ 0x84ef, 0x04f0, 0x88ef, 0x08f0, 0x8cef, 0x90ef, 0x10f0, 0x94ef,
- 0x14f0,
- /* Fix D */ 0x84fd, 0x04fe, 0x88fd, 0x08fe, 0x8cfd, 0x0cfe, 0x90fd, 0x10fe,
- 0x94fd, 0x14fe,
- /* Fix G */ 0x8116, 0x0516, 0x9916,
- /* Fix J */ 0x0129, 0x012a, 0x052a, 0x852b, 0x092a, 0x892b, 0x0d2a, 0x8d2b,
- 0x112a, 0x912b,
- 0x152a, 0x952b, 0x992a,
- /* Fix M */ 0x853d, 0x853f, 0x093d, 0x893e, 0x093f,
- /* Fix Q */ 0x915a, 0x155a, 0x955b, 0x155c, 0x195b, 0x995c, 0x1d5c,
- /* Fix V */ 0x8d7b, 0x0d7c, 0x0d7e, 0x8d7f, 0x917b, 0x117c, 0x117e, 0x917f,
- /* Fix [ */ 0x819e, 0x81a2, 0x859e, 0x899e, 0x8d9e, 0x919e, 0x959e, 0x999e,
- 0x99a2,
- /* Fix \ */ 0x01a5, 0x19a9,
- /* Fix ] */ 0x81ac, 0x81b0, 0x85b0, 0x89b0, 0x8db0, 0x91b0, 0x95b0, 0x99ac,
- 0x99b0,
- /* Fix ^ */ 0x01b5, 0x05b4, 0x05b6, 0x09b3, 0x89b5, 0x09b7, 0x8db4, 0x8db6,
- 0x91b3, 0x91b7,
- /* Fix _ */ 0x9db9, 0x9dbf,
- 0,
-};
-struct ntsc_dec {
- char pattern[600];
- int ntscy[600];
- int ntsci[600];
- int ntscq[600];
- int multi[600];
- int multq[600];
- int brightness_control;
-};
+/* nvidia, by jwz.
+ *
+ * This is what happens if an Nvidia card goes into some crazy text mode.
+ * Most often seen on the second screen of a dual-head system when the
+ * proper driver isn't loaded.
+ */
+typedef struct { int fg; int bg; int bit; Bool blink; } nvcell;
-/*
- First generate the I and Q reference signals, which we'll multiply by the
- input signal to accomplish the demodulation. Normally they are shifted 33
- degrees from the colorburst. I think this was convenient for
- inductor-capacitor-vacuum tube implementation.
-
- The tint control, FWIW, just adds a phase shift to the chroma signal, and
- the color control controls the amplitude.
-
- In text modes (colormode==0) the system disabled the color burst, and no
- color was detected by the monitor.
-
- freq_error gives a mismatch between the built-in oscillator and the TV's
- colorbust. Older II Plus machines seemed to occasionally get instability
- problems -- the crystal oscillator was a single transistor if I remember
- correctly -- and the frequency would vary enough that the tint would change
- across the width of the screen. The left side would be in correct tint
- because it had just gotten resynchronized with the color burst.
-*/
static void
-ntsc_set_demod(struct ntsc_dec *it, double tint_control,
- double color_control, double brightness_control,
- double freq_error,
- int colormode)
+nvspatter (nvcell *grid, int rows, int cols, int ncolors, int nbits,
+ Bool fill_p)
{
+ int max = rows * cols;
+ int from = fill_p ? 0 : random() % (max - 1);
+ int len = fill_p ? max : random() % (cols * 4);
+ int to = from + len;
int i;
+ Bool noisy = ((random() % 4) == 0);
+ Bool diag = (noisy || fill_p) ? 0 : ((random() % 4) == 0);
- it->brightness_control=(int)(1024.0*brightness_control);
+ int fg = random() % ncolors;
+ int bg = random() % ncolors;
+ int blink = ((random() % 4) == 0);
+ int bit = (random() % nbits);
- for (i=0; i<600; i++) {
- double phase=90.0-90.0*i + freq_error*i/600.0 + tint_control;
- it->multi[i]=(int)(-cos(3.1415926/180.0*(phase-303)) * 65536.0 *
- color_control * colormode * 4);
- it->multq[i]=(int)(cos(3.1415926/180.0*(phase-33)) * 65536.0 *
- color_control * colormode * 4);
- }
+ if (to > max) to = max;
+
+ if (diag)
+ {
+ int src = random() % (rows * cols);
+ int len2 = (cols / 2) - (random() % 5);
+ int j = src;
+ for (i = from; i < to; i++, j++)
+ {
+ if (j > src + len2 || j >= max)
+ j = src;
+ if (i >= max) abort();
+ if (j >= max) abort();
+ grid[j] = grid[i];
+ }
+ }
+ else
+ for (i = from; i < to; i++)
+ {
+ nvcell *cell = &grid[i];
+ cell->fg = fg;
+ cell->bg = bg;
+ cell->bit = bit;
+ cell->blink = blink;
+
+ if (noisy)
+ {
+ fg = random() % ncolors;
+ bg = random() % ncolors;
+ blink = ((random() % 8) == 0);
+ }
+ }
}
-/* Here we model the analog circuitry of an NTSC television. Basically, it
- splits the signal into 3 signals: Y, I and Q. Y corresponds to luminance,
- and you get it by low-pass filtering the input signal to below 3.57 MHz.
+typedef struct {
+ struct bsod_state *bst;
+ GC gc1;
+ Pixmap bits[5];
+ int rows, cols;
+ int cellw, cellh;
+ nvcell *grid;
+ int ncolors;
+ unsigned long colors[256];
+ int tick;
+} nvstate;
+
- I and Q are the in-phase and quadrature components of the 3.57 MHz
- subcarrier. We get them by multiplying by cos(3.57 MHz*t) and sin(3.57
- MHz*t), and low-pass filtering. Because the eye has less resolution in some
- colors than others, the I component gets low-pass filtered at 1.5 MHz and
- the Q at 0.5 MHz. The I component is approximately orange-blue, and Q is
- roughly purple-green. See http://www.ntsc-tv.com for details.
- */
static void
-ntsc_to_yiq(struct ntsc_dec *it)
+nvidia_free (struct bsod_state *bst)
{
+ nvstate *nvs = (nvstate *) bst->closure;
int i;
- int fyx[10],fyy[10];
- int fix[10],fiy[10];
- int fqx[10],fqy[10];
- int pixghost;
- int iny,ini,inq,pix,blank;
-
- for (i=0; i<10; i++) fyx[i]=fyy[i]=fix[i]=fiy[i]=fqx[i]=fqy[i]=0.0;
- pixghost=0;
- for (i=0; i<600; i++) {
- /* Get the video out signal, and add a teeny bit of ghosting, typical of RF
- monitor cables. This corresponds to a pretty long cable, but looks right
- to me. */
- pix=it->pattern[i]*1024;
- if (i>=20) pixghost += it->pattern[i-20]*15;
- if (i>=30) pixghost -= it->pattern[i-30]*15;
- pix += pixghost;
-
- /* Get Y, I, Q before filtering */
- iny=pix;
- ini=(pix*it->multi[i])>>16;
- inq=(pix*it->multq[i])>>16;
-
- blank = (i>=7 && i<596 ? it->brightness_control : -200);
-
- /* Now filter them. These are infinite impulse response filters calculated
- by the script at http://www-users.cs.york.ac.uk/~fisher/mkfilter. This
- is fixed-point integer DSP, son. No place for wimps. We do it in integer
- because you can count on integer being faster on most CPUs. We care
- about speed because we need to recalculate every time we blink text, and
- when we spew random bytes into screen memory. This is roughly 16.16
- fixed point arithmetic, but we scale some filter values up by a few bits
- to avoid some nasty precision errors. */
-
- /* Filter y at with a 4-pole low-pass Butterworth filter at 3.5 MHz
- with an extra zero at 3.5 MHz, from
- mkfilter -Bu -Lp -o 4 -a 2.1428571429e-01 0 -Z 2.5e-01 -l
- Delay about 2 */
-
- fyx[0] = fyx[1]; fyx[1] = fyx[2]; fyx[2] = fyx[3];
- fyx[3] = fyx[4]; fyx[4] = fyx[5]; fyx[5] = fyx[6];
- fyx[6] = (iny * 1897) >> 13;
- fyy[0] = fyy[1]; fyy[1] = fyy[2]; fyy[2] = fyy[3];
- fyy[3] = fyy[4]; fyy[4] = fyy[5]; fyy[5] = fyy[6];
- fyy[6] = (fyx[0]+fyx[6]) + 4*(fyx[1]+fyx[5]) + 7*(fyx[2]+fyx[4]) + 8*fyx[3]
- + ((-151*fyy[2] + 8115*fyy[3] - 38312*fyy[4] + 36586*fyy[5]) >> 16);
- if (i>=2) it->ntscy[i-2] = blank + (fyy[6]>>3);
-
- /* Filter I and Q at 1.5 MHz. 3 pole Butterworth from
- mkfilter -Bu -Lp -o 3 -a 1.0714285714e-01 0
- Delay about 3.
-
- The NTSC spec says the Q value should be filtered at 0.5 MHz at the
- transmit end, But the Apple's video circuitry doesn't any such thing.
- AFAIK, oldish televisions (before comb filters) simply applied a 1.5 MHz
- filter to both after the demodulator.
- */
-
- fix[0] = fix[1]; fix[1] = fix[2]; fix[2] = fix[3];
- fix[3] = (ini * 1413) >> 14;
- fiy[0] = fiy[1]; fiy[1] = fiy[2]; fiy[2] = fiy[3];
- fiy[3] = (fix[0]+fix[3]) + 3*(fix[1]+fix[2])
- + ((16559*fiy[0] - 72008*fiy[1] + 109682*fiy[2]) >> 16);
- if (i>=3) it->ntsci[i-3] = fiy[3]>>2;
-
- fqx[0] = fqx[1]; fqx[1] = fqx[2]; fqx[2] = fqx[3];
- fqx[3] = (inq * 1413) >> 14;
- fqy[0] = fqy[1]; fqy[1] = fqy[2]; fqy[2] = fqy[3];
- fqy[3] = (fqx[0]+fqx[3]) + 3*(fqx[1]+fqx[2])
- + ((16559*fqy[0] - 72008*fqy[1] + 109682*fqy[2]) >> 16);
- if (i>=3) it->ntscq[i-3] = fqy[3]>>2;
-
- }
- for (; i<610; i++) {
- if (i-2<600) it->ntscy[i-2]=0;
- if (i-3<600) it->ntsci[i-3]=0;
- if (i-9<600) it->ntscq[i-9]=0;
- }
+ XFreeColors (bst->dpy, bst->xgwa.colormap, nvs->colors, nvs->ncolors, 0);
+ for (i = 0; i < countof(nvs->bits); i++)
+ XFreePixmap (bst->dpy, nvs->bits[i]);
+ XFreeGC (bst->dpy, nvs->gc1);
+ free (nvs->grid);
+ free (nvs);
}
-enum {
- A2_CMAP_HISTBITS=5,
- A2_CMAP_LEVELS=2,
- A2_CMAP_OFFSETS=4,
-};
+static int
+nvidia_draw (struct bsod_state *bst)
+{
+ nvstate *nvs = (nvstate *) bst->closure;
+ int x, y;
+
+ for (y = 0; y < nvs->rows; y++)
+ for (x = 0; x < nvs->cols; x++)
+ {
+ nvcell *cell = &nvs->grid[y * nvs->cols + x];
+ unsigned long fg = nvs->colors[cell->fg];
+ unsigned long bg = nvs->colors[cell->bg];
+ Bool flip = cell->blink && (nvs->tick & 1);
+ XSetForeground (bst->dpy, bst->gc, flip ? fg : bg);
+ XSetBackground (bst->dpy, bst->gc, flip ? bg : fg);
+ XCopyPlane (bst->dpy, nvs->bits[cell->bit], bst->window, bst->gc,
+ 0, 0, nvs->cellw, nvs->cellh,
+ x * nvs->cellw, y * nvs->cellh, 1L);
+ }
-#define A2_CMAP_INDEX(COLORMODE, LEVEL, HIST, OFFSET) \
-((((COLORMODE)*A2_CMAP_LEVELS+(LEVEL))<<A2_CMAP_HISTBITS)+(HIST))* \
-A2_CMAP_OFFSETS+(OFFSET)
+ nvs->tick++;
+ if ((random() % 5) == 0) /* change the display */
+ nvspatter (nvs->grid, nvs->rows, nvs->cols, nvs->ncolors,
+ countof(nvs->bits), False);
-static void
-apple2(Display *dpy, Window window, int delay)
+ return 250000;
+}
+
+
+static struct bsod_state *
+nvidia (Display *dpy, Window window)
{
- int w,h,i,j,x,y,textrow,row,col,stepno,colormode,imgrow;
- char c,*s;
- struct timeval basetime_tv;
- double next_actiontime;
- XWindowAttributes xgwa;
- int visclass;
- int screen_xo,screen_yo;
- XImage *image=NULL;
+ struct bsod_state *bst = make_bsod_state (dpy, window, "nvidia", "nVidia");
+ nvstate *nvs = (nvstate *) calloc (1, sizeof (*nvs));
+
XGCValues gcv;
- GC gc=NULL;
- XImage *text_im=NULL;
- unsigned long colors[A2_CMAP_INDEX(1, A2_CMAP_LEVELS-1,
- (1<<A2_CMAP_HISTBITS)-1,
- A2_CMAP_OFFSETS-3)+1];
- int n_colors=0;
- int screen_plan[24];
- struct ntsc_dec *dec=NULL;
- short *raw_rgb=NULL, *rrp;
- struct apple2_state *st=NULL;
- char *typing=NULL,*printing=NULL;
- char printbuf[1024];
- char prompt=']';
- int simulate_user;
- double tint_control,color_control,brightness_control,contrast_control;
- double freq_error=0.0,freq_error_inc=0.0;
- double horiz_desync=5.0;
- int flutter_horiz_desync=0;
- int flutter_tint=0;
- double crtload[192];
- int red_invprec,red_shift,green_invprec,green_shift,blue_invprec,blue_shift;
- int fillptr, fillbyte;
- int use_shm,use_cmap,use_color;
- /* localbyteorder is 1 if MSB first, 0 otherwise */
- unsigned int localbyteorder_loc = MSBFirst<<24;
- int localbyteorder=*(char *)&localbyteorder_loc;
-#ifdef HAVE_XSHM_EXTENSION
- XShmSegmentInfo shm_info;
-#endif
-
-#ifdef HAVE_XSHM_EXTENSION
- use_shm=get_boolean_resource ("useSHM", "Boolean");
-#else
- use_shm=0;
-#endif
+ int i;
- /* Model the video controls on a standard television */
- tint_control = get_float_resource("apple2TVTint","Apple2TVTint");
- color_control = get_float_resource("apple2TVColor","Apple2TVColor")/100.0;
- brightness_control = get_float_resource("apple2TVBrightness",
- "Apple2TVBrightness") / 100.0;
- contrast_control = get_float_resource("apple2TVContrast",
- "Apple2TVContrast") / 100.0;
- simulate_user = get_boolean_resource("apple2SimulateUser",
- "Apple2SimulateUser");
-
- XGetWindowAttributes (dpy, window, &xgwa);
- visclass=xgwa.visual->class;
- red_shift=red_invprec=green_shift=green_invprec=blue_shift=blue_invprec=-1;
- if (visclass == TrueColor || xgwa.visual->class == DirectColor) {
- use_cmap=0;
- use_color=!mono_p;
- }
- else if (visclass == PseudoColor || visclass == StaticColor) {
- use_cmap=1;
- use_color=!mono_p;
- }
- else {
- use_cmap=1;
- use_color=0;
- }
+ nvs->bst = bst;
+ bst->closure = nvs;
+ bst->draw_cb = nvidia_draw;
+ bst->free_cb = nvidia_free;
- /* The Apple II screen was 280x192, sort of. We expand the width to 300
- pixels to allow for overscan. We then pick a size within the window
- that's an integer multiple of 300x192. The small case happens when
- we're displaying in a subwindow. Then it ends up showing the center
- of the screen, which is OK. */
- w=xgwa.width;
- h = (xgwa.height/192)*192;
- if (w<300) w=300;
- if (h==0) h=192;
-
- dec=(struct ntsc_dec *)malloc(sizeof(struct ntsc_dec));
-
- if (use_cmap) {
- int hist,offset,level;
- int colorprec=8;
-
- cmap_again:
- n_colors=0;
- /* Typically allocates 214 distinct colors, but will scale back its
- ambitions pretty far if it can't get them */
- for (colormode=0; colormode<=use_color; colormode++) {
- ntsc_set_demod(dec, tint_control, color_control, brightness_control,
- 0.0, colormode);
- for (level=0; level<2; level++) {
- for (hist=0; hist<(1<<A2_CMAP_HISTBITS); hist++) {
- for (offset=0; offset<4; offset++) {
- int interpy,interpi,interpq,r,g,b;
- int levelmult=level ? 64 : 32;
- int prec=colormode ? colorprec : (colorprec*2+2)/3;
- int precmask=(0xffff<<(16-prec))&0xffff;
- XColor col;
-
- if (A2_CMAP_INDEX(colormode,level,hist,offset) != n_colors) {
- fprintf(stderr, "apple2: internal colormap allocation error\n");
- goto bailout;
- }
+ nvs->cols = 80;
+ nvs->rows = 25;
+ nvs->cellw = bst->xgwa.width / nvs->cols;
+ nvs->cellh = bst->xgwa.height / nvs->rows;
+ if (nvs->cellw < 8 || nvs->cellh < 18)
+ nvs->cellw = 8, nvs->cellh = 18;
+ nvs->cols = (bst->xgwa.width / nvs->cellw) + 1;
+ nvs->rows = (bst->xgwa.height / nvs->cellh) + 1;
- for (i=0; i<600; i++) dec->pattern[i]=0;
- for (i=0; i<A2_CMAP_HISTBITS; i++) {
- dec->pattern[64+offset-i]=(hist>>i)&1;
- }
-
- ntsc_to_yiq(dec);
- interpy=dec->ntscy[63+offset];
- interpi=dec->ntsci[63+offset];
- interpq=dec->ntscq[63+offset];
-
- r=(interpy + ((+68128*interpi+40894*interpq)>>16))*levelmult;
- g=(interpy + ((-18087*interpi-41877*interpq)>>16))*levelmult;
- b=(interpy + ((-72417*interpi+113312*interpq)>>16))*levelmult;
- if (r<0) r=0;
- if (r>65535) r=65535;
- if (g<0) g=0;
- if (g>65535) g=65535;
- if (b<0) b=0;
- if (b>65535) b=65535;
-
- col.red=r & precmask;
- col.green=g & precmask;
- col.blue=b & precmask;
- col.pixel=0;
- if (!XAllocColor(dpy, xgwa.colormap, &col)) {
- XFreeColors(dpy, xgwa.colormap, colors, n_colors, 0L);
- n_colors=0;
- colorprec--;
- if (colorprec<3) {
- goto bailout;
- }
- goto cmap_again;
- }
- colors[n_colors++]=col.pixel;
- }
- }
- }
- }
- } else {
- /* Is there a standard way to do this? Does this handle all cases? */
- int shift, prec;
- for (shift=0; shift<32; shift++) {
- for (prec=1; prec<16 && prec<32-shift; prec++) {
- unsigned long mask=(0xffffUL>>(16-prec)) << shift;
- if (red_shift<0 && mask==xgwa.visual->red_mask)
- red_shift=shift, red_invprec=16-prec;
- if (green_shift<0 && mask==xgwa.visual->green_mask)
- green_shift=shift, green_invprec=16-prec;
- if (blue_shift<0 && mask==xgwa.visual->blue_mask)
- blue_shift=shift, blue_invprec=16-prec;
- }
+ nvs->grid = (nvcell *) calloc (sizeof(*nvs->grid), nvs->rows * nvs->cols);
+
+ /* Allocate colors
+ */
+ nvs->ncolors = 16;
+ for (i = 0; i < nvs->ncolors; i++)
+ {
+ XColor c;
+ c.red = random() & 0xFFFF;
+ c.green = random() & 0xFFFF;
+ c.blue = random() & 0xFFFF;
+ c.flags = DoRed|DoGreen|DoBlue;
+ XAllocColor (dpy, bst->xgwa.colormap, &c);
+ nvs->colors[i] = c.pixel;
}
- if (red_shift<0 || green_shift<0 || blue_shift<0) {
- if (0) fprintf(stderr,"Can't figure out color space\n");
- goto bailout;
+
+ /* Construct corrupted character bitmaps
+ */
+ for (i = 0; i < countof(nvs->bits); i++)
+ {
+ int j;
+
+ nvs->bits[i] = XCreatePixmap (dpy, window, nvs->cellw, nvs->cellh, 1);
+ if (!nvs->gc1) nvs->gc1 = XCreateGC (dpy, nvs->bits[i], 0, &gcv);
+
+ XSetForeground (dpy, nvs->gc1, 0);
+ XFillRectangle (dpy, nvs->bits[i], nvs->gc1, 0, 0,
+ nvs->cellw, nvs->cellh);
+ XSetForeground (dpy, nvs->gc1, 1);
+
+ if ((random() % 40) != 0)
+ for (j = 0; j < ((nvs->cellw * nvs->cellh) / 16); j++)
+ XFillRectangle (dpy, nvs->bits[i], nvs->gc1,
+ (random() % (nvs->cellw-2)) & ~1,
+ (random() % (nvs->cellh-2)) & ~1,
+ 2, 2);
}
- raw_rgb=(short *)calloc(w*3, sizeof(short));
- }
- gcv.background=0;
- gc = XCreateGC(dpy, window, GCBackground, &gcv);
- XSetWindowBackground(dpy, window, gcv.background);
- XClearWindow(dpy,window);
+ /* Randomize the grid
+ */
+ nvspatter (nvs->grid, nvs->rows, nvs->cols, nvs->ncolors,
+ countof(nvs->bits), True);
+ for (i = 0; i < 20; i++)
+ nvspatter (nvs->grid, nvs->rows, nvs->cols, nvs->ncolors,
+ countof(nvs->bits), False);
- screen_xo=(xgwa.width-w)/2;
- screen_yo=(xgwa.height-h)/2;
+ return bst;
+}
- if (use_shm) {
-#ifdef HAVE_XSHM_EXTENSION
- image = create_xshm_image (dpy, xgwa.visual, xgwa.depth, ZPixmap, 0,
- &shm_info, w, h);
+
+/*
+ * Simulate various Apple ][ crashes. The memory map encouraged many programs
+ * to use the primary hi-res video page for various storage, and the secondary
+ * hi-res page for active display. When it crashed into Applesoft or the
+ * monitor, it would revert to the primary page and you'd see memory garbage on
+ * the screen. Also, it was common for copy-protected games to use the primary
+ * text page for important code, because that made it really hard to
+ * reverse-engineer them. The result often looked like what this generates.
+ *
+ * The Apple ][ logic and video hardware is in apple2.c. The TV is emulated by
+ * analogtv.c for maximum realism
+ *
+ * Trevor Blackwell <tlb@tlb.org>
+ */
+
+static const char * const apple2_basic_errors[]={
+ "BREAK",
+ "NEXT WITHOUT FOR",
+ "SYNTAX ERROR",
+ "RETURN WITHOUT GOSUB",
+ "ILLEGAL QUANTITY",
+ "OVERFLOW",
+ "OUT OF MEMORY",
+ "BAD SUBSCRIPT ERROR",
+ "DIVISION BY ZERO",
+ "STRING TOO LONG",
+ "FORMULA TOO COMPLEX",
+ "UNDEF'D FUNCTION",
+ "OUT OF DATA"
+#if 0
+ ,
+ "DEFAULT ARGUMENTS ARE NOT ALLOWED IN DECLARATION OF FRIEND "
+ "TEMPLATE SPECIALIZATION"
#endif
- if (!image) {
- fprintf(stderr, "create_xshm_image failed\n");
- use_shm=0;
- }
- }
- if (!image) {
- image = XCreateImage(dpy, xgwa.visual, xgwa.depth, ZPixmap, 0, 0,
- w, h, 8, 0);
- image->data = (char *)calloc(image->height, image->bytes_per_line);
- }
- st=(struct apple2_state *)calloc(1,sizeof(struct apple2_state));
+};
+static const char * const apple2_dos_errors[]={
+ "VOLUME MISMATCH",
+ "I/O ERROR",
+ "DISK FULL",
+ "NO BUFFERS AVAILABLE",
+ "PROGRAM TOO LARGE",
+};
- /*
- Generate the font. It used a 5x7 font which looks a lot like the standard X
- 6x10 font, with a few differences. So we render up all the uppercase
- letters of 6x10, and make a few tweaks (like putting a slash across the
- zero) according to fixfont.
- */
- {
- const char *def_font="6x10";
- XFontStruct *font;
- Pixmap text_pm;
- GC gc;
+static void a2controller_crash(apple2_sim_t *sim, int *stepno,
+ double *next_actiontime)
+{
+ apple2_state_t *st=sim->st;
+ char *s;
+ int i;
+
+ struct mydata {
+ int fillptr;
+ int fillbyte;
+ } *mine;
+
+ if (!sim->controller_data)
+ sim->controller_data = calloc(sizeof(struct mydata),1);
+ mine=(struct mydata *) sim->controller_data;
+
+ switch(*stepno) {
+ case 0:
- font = XLoadQueryFont (dpy, def_font);
- if (!font) {
- fprintf(stderr,"Can't load font %s\n",def_font);
- goto bailout;
+ a2_init_memory_active(sim);
+ sim->dec->powerup = 1000.0;
+
+ if (random()%3==0) {
+ st->gr_mode=0;
+ *next_actiontime+=0.4;
+ *stepno=100;
}
-
- text_pm=XCreatePixmap(dpy, window, 64*7, 8, xgwa.depth);
-
- gcv.foreground=1;
- gcv.background=0;
- gcv.font=font->fid;
- gc=XCreateGC(dpy, text_pm, GCFont|GCBackground|GCForeground, &gcv);
-
- XSetForeground(dpy, gc, 0);
- XFillRectangle(dpy, text_pm, gc, 0, 0, 64*7, 8);
- XSetForeground(dpy, gc, 1);
- for (i=0; i<64; i++) {
- char c=32+i;
- int x=7*i+1;
- int y=7;
- if (c=='0') {
- c='O';
- XDrawString(dpy, text_pm, gc, x, y, &c, 1);
+ else if (random()%4==0) {
+ st->gr_mode=A2_GR_LORES;
+ if (random()%3==0) st->gr_mode |= A2_GR_FULL;
+ *next_actiontime+=0.4;
+ *stepno=100;
+ }
+ else if (random()%2==0) {
+ st->gr_mode=A2_GR_HIRES;
+ *stepno=300;
+ }
+ else {
+ st->gr_mode=A2_GR_HIRES;
+ *next_actiontime+=0.4;
+ *stepno=100;
+ }
+ break;
+
+ case 100:
+ /* An illegal instruction or a reset caused it to drop into the
+ assembly language monitor, where you could disassemble code & view
+ data in hex. */
+ if (random()%3==0) {
+ char ibytes[128];
+ char itext[128];
+ int addr=0xd000+random()%0x3000;
+ sprintf(ibytes,
+ "%02X",random()%0xff);
+ sprintf(itext,
+ "???");
+ sprintf(sim->printing_buf,
+ "\n\n"
+ "%04X: %-15s %s\n"
+ " A=%02X X=%02X Y=%02X S=%02X F=%02X\n"
+ "*",
+ addr,ibytes,itext,
+ random()%0xff, random()%0xff,
+ random()%0xff, random()%0xff,
+ random()%0xff);
+ sim->printing=sim->printing_buf;
+ a2_goto(st,23,1);
+ if (st->gr_mode) {
+ *stepno=180;
} else {
- XDrawString(dpy, text_pm, gc, x, y, &c, 1);
+ *stepno=200;
}
+ sim->prompt='*';
+ *next_actiontime += 2.0 + (random()%1000)*0.0002;
}
- text_im = XGetImage(dpy, text_pm, 0, 0, 64*7, 8, ~0L, ZPixmap);
- XFreeGC(dpy, gc);
- XFreePixmap(dpy, text_pm);
+ else {
+ /* Lots of programs had at least their main functionality in
+ Applesoft Basic, which had a lot of limits (memory, string
+ length, etc) and would sometimes crash unexpectedly. */
+ sprintf(sim->printing_buf,
+ "\n"
+ "\n"
+ "\n"
+ "?%s IN %d\n"
+ "\001]",
+ apple2_basic_errors[random() %
+ (sizeof(apple2_basic_errors)
+ /sizeof(char *))],
+ (1000*(random()%(random()%59+1)) +
+ 100*(random()%(random()%9+1)) +
+ 5*(random()%(random()%199+1)) +
+ 1*(random()%(random()%(random()%2+1)+1))));
+ sim->printing=sim->printing_buf;
+ a2_goto(st,23,1);
+ *stepno=110;
+ sim->prompt=']';
+ *next_actiontime += 2.0 + (random()%1000)*0.0002;
+ }
+ break;
+
+ case 110:
+ if (random()%3==0) {
+ /* This was how you reset the Basic interpreter. The sort of
+ incantation you'd have on a little piece of paper taped to the
+ side of your machine */
+ sim->typing="CALL -1370";
+ *stepno=120;
+ }
+ else if (random()%2==0) {
+ sim->typing="CATALOG\n";
+ *stepno=170;
+ }
+ else {
+ *next_actiontime+=1.0;
+ *stepno=999;
+ }
+ break;
+
+ case 120:
+ *stepno=130;
+ *next_actiontime += 0.5;
+ break;
+
+ case 130:
+ st->gr_mode=0;
+ a2_cls(st);
+ a2_goto(st,0,16);
+ for (s="APPLE ]["; *s; s++) a2_printc(st,*s);
+ a2_goto(st,23,0);
+ a2_printc(st,']');
+ *next_actiontime+=1.0;
+ *stepno=999;
+ break;
+
+ case 170:
+ if (random()%50==0) {
+ sprintf(sim->printing_buf,
+ "\nDISK VOLUME 254\n\n"
+ " A 002 HELLO\n"
+ "\n"
+ "]");
+ sim->printing=sim->printing_buf;
+ }
+ else {
+ sprintf(sim->printing_buf,"\n?%s\n]",
+ apple2_dos_errors[random()%
+ (sizeof(apple2_dos_errors) /
+ sizeof(char *))]);
+ sim->printing=sim->printing_buf;
+ }
+ *stepno=999;
+ *next_actiontime+=1.0;
+ break;
+
+ case 180:
+ if (random()%2==0) {
+ /* This was how you went back to text mode in the monitor */
+ sim->typing="FB4BG";
+ *stepno=190;
+ } else {
+ *next_actiontime+=1.0;
+ *stepno=999;
+ }
+ break;
+
+ case 190:
+ st->gr_mode=0;
+ a2_invalidate(st);
+ a2_printc(st,'\n');
+ a2_printc(st,'*');
+ *stepno=200;
+ *next_actiontime+=2.0;
+ break;
+
+ case 200:
+ /* This reset things into Basic */
+ if (random()%2==0) {
+ sim->typing="FAA6G";
+ *stepno=120;
+ }
+ else {
+ *stepno=999;
+ *next_actiontime+=sim->delay;
+ }
+ break;
- for (i=0; a2_fixfont[i]; i++) {
- XPutPixel(text_im, a2_fixfont[i]&0x3ff,
- (a2_fixfont[i]>>10)&0xf,
- (a2_fixfont[i]>>15)&1);
+ case 300:
+ for (i=0; i<1500; i++) {
+ a2_poke(st, mine->fillptr, mine->fillbyte);
+ mine->fillptr++;
+ mine->fillbyte = (mine->fillbyte+1)&0xff;
}
- }
+ *next_actiontime += 0.08;
+ /* When you hit c000, it changed video settings */
+ if (mine->fillptr>=0xc000) {
+ a2_invalidate(st);
+ st->gr_mode=0;
+ }
+ /* And it seemed to reset around here, I dunno why */
+ if (mine->fillptr>=0xcf00) *stepno=130;
+ break;
- /*
- Simulate plausible initial memory contents.
- */
- {
- int addr=0;
- while (addr<0x4000) {
- int n;
-
- switch (random()%4) {
- case 0:
- case 1:
- n=random()%500;
- for (i=0; i<n && addr<0x4000; i++) {
- u_char rb=((random()%6==0 ? 0 : random()%16) |
- ((random()%5==0 ? 0 : random()%16)<<4));
- a2_poke(st, addr++, rb);
- }
- break;
-
- case 2:
- /* Simulate shapes stored in memory. We use the font since we have it.
- Unreadable, since rows of each character are stored in consecutive
- bytes. It was typical to store each of the 7 possible shifts of
- bitmaps, for fastest blitting to the screen. */
- x=random()%(text_im->width);
- for (i=0; i<100; i++) {
- for (y=0; y<8; y++) {
- c=0;
- for (j=0; j<8; j++) {
- c |= XGetPixel(text_im, (x+j)%text_im->width, y)<<j;
- }
- a2_poke(st, addr++, c);
- }
- x=(x+1)%(text_im->width);
- }
- break;
+ case 999:
+ break;
- case 3:
- if (addr>0x2000) {
- n=random()%200;
- for (i=0; i<n && addr<0x4000; i++) {
- a2_poke(st, addr++, 0);
- }
- }
- break;
+ case A2CONTROLLER_FREE:
+ free(mine);
+ break;
+ }
+}
- }
- }
+static int
+a2_draw (struct bsod_state *bst)
+{
+ apple2_sim_t *sim = (apple2_sim_t *) bst->closure;
+ if (! sim) {
+ sim = apple2_start (bst->dpy, bst->window, 9999999, a2controller_crash);
+ bst->closure = sim;
}
-
- if (random()%4==0 &&
- !use_cmap && use_color &&
- xgwa.visual->bits_per_rgb>=8) {
- flutter_tint=1;
+
+ if (! apple2_one_frame (sim)) {
+ bst->closure = 0;
}
- else if (random()%3==0) {
- flutter_horiz_desync=1;
+
+ return 10000;
+}
+
+static void
+a2_free (struct bsod_state *bst)
+{
+ apple2_sim_t *sim = (apple2_sim_t *) bst->closure;
+ if (sim) {
+ sim->stepno = A2CONTROLLER_DONE;
+ a2_draw (bst); /* finish up */
+ if (bst->closure) abort(); /* should have been freed by now */
}
+}
- crtload[0]=0.0;
- stepno=0;
- a2_goto(st,23,0);
- gettimeofday(&basetime_tv, NULL);
- if (random()%2==0) basetime_tv.tv_sec -= 1; /* random blink phase */
- next_actiontime=0.0;
- fillptr=fillbyte=0;
- while (1) {
- double curtime,blinkphase;
- int startdisplayrow=0;
- int cheapdisplay=0;
- int nodelay=0;
- {
- struct timeval curtime_tv;
- gettimeofday(&curtime_tv, NULL);
- curtime=(curtime_tv.tv_sec - basetime_tv.tv_sec) +
- 0.000001*(curtime_tv.tv_usec - basetime_tv.tv_usec);
- }
- if (curtime>delay) goto finished;
- if (bsod_sleep(dpy,0)) goto finished;
+static struct bsod_state *
+apple2crash (Display *dpy, Window window)
+{
+ struct bsod_state *bst = make_bsod_state (dpy, window, "apple2", "Apple2");
+ bst->draw_cb = a2_draw;
+ bst->free_cb = a2_free;
+ return bst;
+}
- if (flutter_tint && st->gr_mode && !printing) {
- /* Oscillator instability. Look for freq_error below. We should only do
- this with color depth>=8, since otherwise you see pixels changing. */
- freq_error_inc += (-0.10*freq_error_inc
- + ((int)(random()&0xff)-0x80) * 0.01);
- freq_error += freq_error_inc;
- a2_invalidate(st);
- nodelay=1;
- }
- else if (flutter_horiz_desync) {
- /* Horizontal sync during vertical sync instability. */
- horiz_desync += (-0.10*(horiz_desync-3.0) +
- ((int)(random()&0xff)-0x80) *
- ((int)(random()&0xff)-0x80) *
- ((int)(random()&0xff)-0x80) * 0.0000003);
- for (i=0; i<3; i++) st->rowimage[i]=-1;
- nodelay=1;
- }
-
- /* It's super-important to get the cursor/text flash out at exactly the
- right time, or it looks wrong. So if we're almost due for a blink, wait
- for it so we don't miss it in the middle of a screen update. */
- blinkphase=curtime/0.8;
- if (blinkphase-floor(blinkphase)>0.7 && !printing && !nodelay) {
- /* We're about to blink */
- int delay = ((1.0-(blinkphase-floor(blinkphase)))*0.8) * 1000000;
- if (delay<1000) delay=1000;
- usleep(delay);
- continue;
- }
-
- /* The blinking rate was controlled by 555 timer with a resistor/capacitor
- time constant. Because the capacitor was electrolytic, the flash rate
- varied somewhat between machines. I'm guessing 1.6 seconds/cycle was
- reasonable. (I soldered a resistor in mine to make it blink faster.) */
- i=st->blink;
- st->blink=((int)blinkphase)&1;
- if (st->blink!=i && !(st->gr_mode&A2_GR_FULL)) {
- int downcounter=0;
- /* For every row with blinking text, set the changed flag. This basically
- works great except with random screen garbage in text mode, when we
- end up redrawing the whole screen every second */
- for (row=(st->gr_mode ? 20 : 0); row<24; row++) {
- for (col=0; col<40; col++) {
- c=st->textlines[row][col];
- if ((c & 0xc0) == 0x40) {
- downcounter=4;
- break;
- }
- }
- if (downcounter>0) {
- st->rowimage[row]=-1;
- downcounter--;
- }
- }
- st->rowimage[st->cursy]=-1;
- startdisplayrow=random()%24;
- }
- else if (next_actiontime > curtime && !printing && !nodelay) {
- int delay = (next_actiontime-curtime)*1000000;
-
- if (delay>100000) delay=100000;
- if (delay<1000) delay=1000;
- usleep(delay);
- continue;
- }
-
- if (printing) {
- cheapdisplay=1;
- while (*printing) {
- if (*printing=='\001') { /* pause */
- printing++;
- for (i=20; i<24; i++) st->rowimage[i]=-1;
- break;
- }
- else if (*printing=='\n') {
- a2_printc(st,*printing);
- printing++;
- break;
- }
- else {
- a2_printc(st,*printing);
- printing++;
- }
- }
- if (!*printing) printing=NULL;
- }
- else if (curtime >= next_actiontime) {
- if (typing) {
- /* If we're in the midst of typing a string, emit a character with
- random timing. */
- a2_printc(st, *typing);
- if (*typing=='\n') {
- next_actiontime = curtime;
- } else {
- next_actiontime = curtime + (random()%1000)*0.0003 + 0.3;
- }
- typing++;
-
- if (!*typing) typing=NULL;
-
- }
- else {
- next_actiontime=curtime;
-
- switch(stepno) {
- case 0:
- a2_invalidate(st);
- if (0) {
- /*
- For testing color rendering. The spec is:
- red grn blu
- 0 black 0 0 0
- 1 red 227 30 96
- 2 dk blue 96 78 189
- 3 purple 255 68 253
- 4 dk green 0 163 96
- 5 gray 156 156 156
- 6 med blue 20 207 253
- 7 lt blue 208 195 255
- 8 brown 96 114 3
- 9 orange 255 106 60
- 10 grey 156 156 156
- 11 pink 255 160 208
- 12 lt green 20 245 60
- 13 yellow 208 221 141
- 14 aqua 114 255 208
- 15 white 255 255 255
- */
- st->gr_mode=A2_GR_LORES;
- for (row=0; row<24; row++) {
- for (col=0; col<40; col++) {
- st->textlines[row][col]=(row&15)*17;
- }
- }
- next_actiontime+=0.4;
- stepno=88;
- }
- else if (random()%3==0) {
- st->gr_mode=0;
- next_actiontime+=0.4;
- stepno=88;
- }
- else if (random()%4==0) {
- st->gr_mode=A2_GR_LORES;
- if (random()%3==0) st->gr_mode |= A2_GR_FULL;
- next_actiontime+=0.4;
- stepno=88;
- }
- else if (random()%2==0) {
- st->gr_mode=A2_GR_HIRES;
- stepno=73;
- }
- else {
- st->gr_mode=A2_GR_HIRES;
- next_actiontime+=0.4;
- stepno=88;
- }
- break;
- case 88:
- /* An illegal instruction or a reset caused it to drop into the
- assembly language monitor, where you could disassemble code & view
- data in hex. */
- if (random()%3==0) {
- char ibytes[128];
- char itext[128];
- int addr=0xd000+random()%0x3000;
- sprintf(ibytes,
- "%02X",random()%0xff);
- sprintf(itext,
- "???");
- sprintf(printbuf,
- "\n\n"
- "%04X: %-15s %s\n"
- " A=%02X X=%02X Y=%02X S=%02X F=%02X\n"
- "*",
- addr,ibytes,itext,
- random()%0xff, random()%0xff,
- random()%0xff, random()%0xff,
- random()%0xff);
- printing=printbuf;
- a2_goto(st,23,1);
- if (st->gr_mode) {
- stepno=11;
- } else {
- stepno=13;
- }
- prompt='*';
- next_actiontime += 2.0 + (random()%1000)*0.0002;
- }
- else {
- /* Lots of programs had at least their main functionality in
- Applesoft Basic, which had a lot of limits (memory, string
- length, etc) and would sometimes crash unexpectedly. */
- sprintf(printbuf,
- "\n"
- "\n"
- "\n"
- "?%s IN %d\n"
- "\001]",
- apple2_basic_errors[random() %
- (sizeof(apple2_basic_errors)
- /sizeof(char *))],
- (1000*(random()%(random()%59+1)) +
- 100*(random()%(random()%9+1)) +
- 5*(random()%(random()%199+1)) +
- 1*(random()%(random()%(random()%2+1)+1))));
- printing=printbuf;
- a2_goto(st,23,1);
- stepno=1;
- prompt=']';
- next_actiontime += 2.0 + (random()%1000)*0.0002;
- }
- break;
-
- case 1:
- if (simulate_user && random()%3==0) {
- /* This was how you reset the Basic interpreter. The sort of
- incantation you'd have on a little piece of paper taped to the
- side of your machine */
- typing="CALL -1370";
- stepno=2;
- }
- else if (simulate_user && random()%2==0) {
- typing="CATALOG\n";
- stepno=22;
- }
- else {
- next_actiontime+=1.0;
- stepno=6;
- }
- break;
+/*****************************************************************************
+ *****************************************************************************/
- case 2:
- stepno=3;
- next_actiontime += 0.5;
- break;
-
- case 3:
- st->gr_mode=0;
- a2_cls(st);
- a2_goto(st,0,16);
- for (s="APPLE ]["; *s; s++) a2_printc(st,*s);
- a2_goto(st,23,0);
- a2_printc(st,']');
- next_actiontime+=1.0;
- stepno=6;
- break;
- case 6:
- if (simulate_user && random()%50==0 && 0) { /* disabled, too goofy */
- typing="10 PRINT \"TRS-80S SUCK!!!\"\n"
- "]20 GOTO 10\n"
- "]RUN";
- stepno=7;
- }
- else {
- stepno=8;
- next_actiontime += delay;
- }
- break;
+static const struct {
+ const char *name;
+ struct bsod_state * (*fn) (Display *, Window);
+} all_modes[] = {
+ { "Windows", windows_31 },
+ { "NT", windows_nt },
+ { "Win2K", windows_other },
+ { "Amiga", amiga },
+ { "Mac", mac },
+ { "MacsBug", macsbug },
+ { "Mac1", mac1 },
+ { "MacX", macx },
+ { "SCO", sco },
+ { "HVX", hvx },
+ { "HPPALinux", hppa_linux },
+ { "SparcLinux", sparc_linux },
+ { "BSD", bsd },
+ { "Atari", atari },
+#ifndef HAVE_COCOA
+ { "BlitDamage", blitdamage },
+#endif
+ { "Solaris", sparc_solaris },
+ { "Linux", linux_fsck },
+ { "HPUX", hpux },
+ { "OS390", os390 },
+ { "Tru64", tru64 },
+ { "VMS", vms },
+ { "OS2", os2 },
+ { "MSDOS", msdos },
+ { "Nvidia", nvidia },
+ { "Apple2", apple2crash },
+};
- case 7:
- for (i=0; i<30; i++) {
- for (s="\nTRS-80S SUCK"; *s; s++) a2_printc(st,*s);
- }
- stepno=8;
- next_actiontime+=delay;
- case 8:
- break;
+struct driver_state {
+ const char *name;
+ int only, which;
+ int delay;
+ time_t start;
+ Bool debug_p, cycle_p;
+ struct bsod_state *bst;
+};
- case 22:
- if (random()%50==0) {
- sprintf(printbuf,"\nDISK VOLUME 254\n\n"
- " A 002 HELLO\n"
- "\n"
- "]");
- printing=printbuf;
- }
- else {
- sprintf(printbuf,"\n?%s\n]",
- apple2_dos_errors[random()%
- (sizeof(apple2_dos_errors) /
- sizeof(char *))]);
- printing=printbuf;
- }
- stepno=6;
- next_actiontime+=1.0;
- break;
- case 11:
- if (simulate_user && random()%2==0) {
- /* This was how you went back to text mode in the monitor */
- typing="FB4BG";
- stepno=12;
- } else {
- next_actiontime+=1.0;
- stepno=6;
- }
- break;
+static void
+hack_title (struct driver_state *dst)
+{
+# ifndef HAVE_COCOA
+ char *oname = 0;
+ XFetchName (dst->bst->dpy, dst->bst->window, &oname);
+ if (oname && !strncmp (oname, "BSOD: ", 6)) {
+ char *tail = oname + 4;
+ char *s = strchr (tail+1, ':');
+ char *nname;
+ if (s) tail = s;
+ nname = malloc (strlen (tail) + strlen (dst->name) + 20);
+ sprintf (nname, "BSOD: %s%s", dst->name, tail);
+ XStoreName (dst->bst->dpy, dst->bst->window, nname);
+ free (nname);
+ }
+# endif /* !HAVE_COCOA */
+}
- case 12:
- st->gr_mode=0;
- a2_invalidate(st);
- a2_printc(st,'\n');
- a2_printc(st,'*');
- stepno=13;
- next_actiontime+=2.0;
- break;
+static void *
+bsod_init (Display *dpy, Window window)
+{
+ struct driver_state *dst = (struct driver_state *) calloc (1, sizeof(*dst));
+ char *s;
- case 13:
- /* This reset things into Basic */
- if (simulate_user && random()%2==0) {
- typing="FAA6G";
- stepno=2;
- }
- else {
- stepno=8;
- next_actiontime+=delay;
- }
- break;
+ dst->delay = get_integer_resource (dpy, "delay", "Integer");
+ if (dst->delay < 3) dst->delay = 3;
- case 73:
- for (i=0; i<1500; i++) {
- a2_poke(st, fillptr, fillbyte);
- fillptr++;
- fillbyte = (fillbyte+1)&0xff;
- }
- next_actiontime += 0.08;
- /* When you hit c000, it changed video settings */
- if (fillptr>=0xc000) {
- a2_invalidate(st);
- st->gr_mode=0;
- }
- /* And it seemed to reset around here, I dunno why */
- if (fillptr>=0xcf00) stepno=3;
+ dst->debug_p = get_boolean_resource (dpy, "debug", "Boolean");
+
+ dst->only = -1;
+ s = get_string_resource(dpy, "doOnly", "DoOnly");
+ if (s && !strcasecmp (s, "cycle"))
+ {
+ dst->which = -1;
+ dst->cycle_p = True;
+ }
+ else if (s && *s)
+ {
+ int count = countof(all_modes);
+ for (dst->only = 0; dst->only < count; dst->only++)
+ if (!strcasecmp (s, all_modes[dst->only].name))
break;
+ if (dst->only >= count)
+ {
+ fprintf (stderr, "%s: unknown -only mode: \"%s\"\n", progname, s);
+ dst->only = -1;
}
- }
}
+ if (s) free (s);
+
+ dst->name = "none";
+ dst->which = -1;
+ return dst;
+}
+
+
+static unsigned long
+bsod_draw (Display *dpy, Window window, void *closure)
+{
+ struct driver_state *dst = (struct driver_state *) closure;
+ time_t now;
+ int time_left;
+
+ AGAIN:
+ now = time ((time_t *) 0);
+ time_left = dst->start + dst->delay - now;
- /* Now, we turn the data in the Apple II video into a screen display. This
- is interesting because of the interaction with the NTSC color decoding
- in a color television. */
+ if (dst->bst && dst->bst->img_loader) /* still loading */
+ {
+ dst->bst->img_loader =
+ load_image_async_simple (dst->bst->img_loader, 0, 0, 0, 0, 0);
+ return 100000;
+ }
- colormode=use_color && st->gr_mode!=0;
- if (!use_cmap) {
- ntsc_set_demod(dec, tint_control, color_control, brightness_control,
- freq_error, colormode);
+ if (! dst->bst && time_left > 0) /* run completed; wait out the delay */
+ {
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: %d left\n", progname, dst->name, time_left);
+ return 500000;
}
- imgrow=0;
- for (textrow=0; textrow<24; textrow++) {
- if (st->rowimage[textrow] == textrow) {
- screen_plan[textrow]=0;
- }
- else if (cheapdisplay && st->rowimage[textrow]>=0 &&
- textrow<21 && st->rowimage[textrow]<21 &&
- st->rowimage[textrow]>=2 && textrow>=2 &&
- (st->rowimage[textrow]+1)*h/24 + screen_xo <= xgwa.height) {
- screen_plan[textrow]= A2_SP_COPY | st->rowimage[textrow];
- for (i=0; i<8; i++) {
- crtload[textrow*8+i]=crtload[st->rowimage[textrow]*8+i];
+
+ else if (dst->bst) /* sub-mode currently running */
+ {
+ int this_delay = -1;
+
+ if (time_left > 0)
+ this_delay = bsod_pop (dst->bst);
+
+ /* XSync (dpy, False); slows down char drawing too much on HAVE_COCOA */
+
+ if (this_delay == 0)
+ goto AGAIN; /* no delay, not expired: stay here */
+ else if (this_delay >= 0)
+ return this_delay; /* return; time to sleep */
+ else
+ { /* sub-mode run completed or expired */
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: done\n", progname, dst->name);
+ free_bsod_state (dst->bst);
+ dst->bst = 0;
+ return 0;
}
- startdisplayrow=0;
- }
- else {
- st->rowimage[textrow]=imgrow;
- screen_plan[textrow]=imgrow | A2_SP_PUT;
-
- for (row=textrow*8; row<textrow*8+8; row++) {
- char *pp;
- int pixmultinc,pixbright;
- int scanstart_i, scanend_i;
- int squishright_i, squishdiv;
- int pixrate;
- double bloomthisrow,shiftthisrow;
- int ytop=(imgrow*h/24) + ((row-textrow*8) * h/192);
- int ybot=ytop+h/192;
-
- /* First we generate the pattern that the video circuitry shifts out
- of memory. It has a 14.something MHz dot clock, equal to 4 times
- the color burst frequency. So each group of 4 bits defines a
- color. Each character position, or byte in hires, defines 14
- dots, so odd and even bytes have different color spaces. So,
- pattern[0..600] gets the dots for one scan line. */
-
- memset(dec->pattern,0,sizeof(dec->pattern));
- pp=dec->pattern+20;
-
- if ((st->gr_mode&A2_GR_HIRES) && (row<160 ||
- (st->gr_mode&A2_GR_FULL))) {
-
- /* Emulate the mysterious pink line, due to a bit getting
- stuck in a shift register between the end of the last
- row and the beginning of this one. */
- if ((st->hireslines[row][0] & 0x80) &&
- (st->hireslines[row][39]&0x40)) {
- pp[-1]=1;
- }
+ }
+ else /* launch a new sub-mode */
+ {
+ if (dst->cycle_p)
+ dst->which = (dst->which + 1) % countof(all_modes);
+ else if (dst->only >= 0)
+ dst->which = dst->only;
+ else
+ {
+ int count = countof(all_modes);
+ int i;
- for (col=0; col<40; col++) {
- u_char b=st->hireslines[row][col];
- int shift=(b&0x80)?0:1;
+ for (i = 0; i < 200; i++)
+ {
+ char name[100], class[100];
+ int new_mode = (random() & 0xFF) % count;
- /* Each of the low 7 bits in hires mode corresponded to 2 dot
- clocks, shifted by one if the high bit was set. */
- for (i=0; i<7; i++) {
- pp[shift+1] = pp[shift] =(b>>i)&1;
- pp+=2;
- }
- }
- }
- else if ((st->gr_mode&A2_GR_LORES) && (row<160 ||
- (st->gr_mode&A2_GR_FULL))) {
- for (col=0; col<40; col++) {
- u_char nib=(st->textlines[textrow][col] >> (((row/4)&1)*4))&0xf;
- /* The low or high nybble was shifted out one bit at a time. */
- for (i=0; i<14; i++) {
- *pp = (nib>>((col*14+i)&3))&1;
- pp++;
- }
- }
- }
- else {
- for (col=0; col<40; col++) {
- int rev;
- c=st->textlines[textrow][col];
- /* hi bits control inverse/blink as follows:
- 0x00: inverse
- 0x40: blink
- 0x80: normal
- 0xc0: normal */
- rev=!(c&0x80) && (!(c&0x40) || st->blink);
-
- for (i=0; i<7; i++) {
- for (i=0; i<7; i++) {
- unsigned long pix=XGetPixel(text_im,
- ((c&0x3f)^0x20)*7+i, row%8);
- pp[1] = pp[2] = pix^rev;
- pp+=2;
- }
- }
- }
- }
+ if (i < 100 && new_mode == dst->which)
+ continue;
- /*
- Interpolate the 600-dotclock line into however many horizontal
- screen pixels we're using, and convert to RGB.
-
- We add some 'bloom', variations in the horizontal scan width with
- the amount of brightness, extremely common on period TV sets. They
- had a single oscillator which generated both the horizontal scan
- and (during the horizontal retrace interval) the high voltage for
- the electron beam. More brightness meant more load on the
- oscillator, which caused an decrease in horizontal deflection. Look
- for (bloomthisrow).
-
- Also, the A2 did a bad job of generating horizontal sync pulses
- during the vertical blanking interval. This, and the fact that the
- horizontal frequency was a bit off meant that TVs usually went a
- bit out of sync during the vertical retrace, and the top of the
- screen would be bent a bit to the left or right. Look for
- (shiftthisrow).
-
- We also add a teeny bit of left overscan, just enough to be
- annoying, but you can still read the left column of text.
-
- We also simulate compression & brightening on the right side of the
- screen. Most TVs do this, but you don't notice because they
- overscan so it's off the right edge of the CRT. But the A2 video
- system used so much of the horizontal scan line that you had to
- crank the horizontal width down in order to not lose the right few
- characters, and you'd see the compression on the right
- edge. Associated with compression is brightening; since the
- electron beam was scanning slower, the same drive signal hit the
- phosphor harder. Look for (squishright_i) and (squishdiv).
- */
-
- for (i=j=0; i<600; i++) {
- j += dec->pattern[i];
- }
- crtload[row] = (crtload[row>1 ? row-1 : 0]) * 0.98 + 0.02*(j/600.0) +
- (row>180 ? (row-180)*(row-180)*0.0005 : 0.0);
- bloomthisrow = -10.0 * crtload[row];
- shiftthisrow=((row<18) ? ((18-row)*(18-row)* 0.002 + (18-row)*0.05)
- * horiz_desync : 0.0);
-
- scanstart_i=(int)((bloomthisrow+shiftthisrow+18.0)*65536.0);
- if (scanstart_i<0) scanstart_i=0;
- if (scanstart_i>30*65536) scanstart_i=30*65536;
- scanend_i=599*65536;
- squishright_i=scanstart_i + 530*65536;
- squishdiv=w/15;
- pixrate=(int)((560.0-2.0*bloomthisrow)*65536.0/w);
-
- if (use_cmap) {
- for (y=ytop; y<ybot; y++) {
- int level=(!(y==ytop && ybot-ytop>=3) &&
- !(y==ybot-1 && ybot-ytop>=5));
- int hist=0;
- int histi=0;
-
- pixmultinc=pixrate;
- for (x=0, i=scanstart_i;
- x<w && i<scanend_i;
- x++, i+=pixmultinc) {
- int pati=(i>>16);
- int offset=pati&3;
- while (pati>=histi) {
- hist=(((hist<<1) & ((1<<A2_CMAP_HISTBITS)-1)) |
- dec->pattern[histi]);
- histi++;
- }
- XPutPixel(image, x, y,
- colors[A2_CMAP_INDEX(colormode,level,hist,offset)]);
- if (i >= squishright_i) {
- pixmultinc += pixmultinc/squishdiv;
+ sprintf (name, "do%s", all_modes[new_mode].name);
+ sprintf (class, "Do%s", all_modes[new_mode].name);
+
+ if (get_boolean_resource (dpy, name, class))
+ {
+ dst->which = new_mode;
+ break;
}
- }
- for ( ; x<w; x++) {
- XPutPixel(image, x, y, colors[0]);
- }
- }
- } else {
-
- ntsc_to_yiq(dec);
-
- pixbright=(int)(contrast_control*65536.0);
- pixmultinc=pixrate;
- for (x=0, i=scanstart_i, rrp=raw_rgb;
- x<w && i<scanend_i;
- x++, i+=pixmultinc, rrp+=3) {
- int pixfrac=i&0xffff;
- int invpixfrac=65536-pixfrac;
- int pati=i>>16;
- int r,g,b;
-
- int interpy=((dec->ntscy[pati]*invpixfrac +
- dec->ntscy[pati+1]*pixfrac)>>16);
- int interpi=((dec->ntsci[pati]*invpixfrac +
- dec->ntsci[pati+1]*pixfrac)>>16);
- int interpq=((dec->ntscq[pati]*invpixfrac +
- dec->ntscq[pati+1]*pixfrac)>>16);
-
- /*
- According to the NTSC spec, Y,I,Q are generated as:
-
- y=0.30 r + 0.59 g + 0.11 b
- i=0.60 r - 0.28 g - 0.32 b
- q=0.21 r - 0.52 g + 0.31 b
-
- So if you invert the implied 3x3 matrix you get what standard
- televisions implement with a bunch of resistors (or directly in
- the CRT -- don't ask):
-
- r = y + 0.948 i + 0.624 q
- g = y - 0.276 i - 0.639 q
- b = y - 1.105 i + 1.729 q
-
- These coefficients are below in 16.16 format.
- */
-
- r=((interpy + ((+68128*interpi+40894*interpq)>>16))*pixbright)
- >>16;
- g=((interpy + ((-18087*interpi-41877*interpq)>>16))*pixbright)
- >>16;
- b=((interpy + ((-72417*interpi+113312*interpq)>>16))*pixbright)
- >>16;
- if (r<0) r=0;
- if (g<0) g=0;
- if (b<0) b=0;
- rrp[0]=r;
- rrp[1]=g;
- rrp[2]=b;
-
- if (i>=squishright_i) {
- pixmultinc += pixmultinc/squishdiv;
- pixbright += pixbright/squishdiv;
- }
- }
- for ( ; x<w; x++, rrp+=3) {
- rrp[0]=rrp[1]=rrp[2]=0;
}
- for (y=ytop; y<ybot; y++) {
- /* levelmult represents the vertical size of scan lines. Each
- line is brightest in the middle, and there's a dark band
- between them. */
- int levelmult;
- double levelmult_fp=(y + 0.5 - (ytop+ybot)*0.5) / (ybot-ytop);
- levelmult_fp = 1.0-(levelmult_fp*levelmult_fp*levelmult_fp
- *levelmult_fp)*16.0;
- if (levelmult_fp<0.0) levelmult_fp=0.0;
- levelmult = (int)(64.9*levelmult_fp);
-
- /* Fast special cases to avoid the slow XPutPixel. Ugh. It goes
- to show why standard graphics sw has to be fast, or else
- people will have to work around it and risk incompatibility.
- The quickdraw folks understood this. The other answer would
- be for X11 to have fewer formats for bitm.. oh, never
- mind. If neither of these cases work (they probably cover 99%
- of setups) it falls back on the Xlib routines. */
- if (image->format==ZPixmap && image->bits_per_pixel==32 &&
- sizeof(unsigned long)==4 &&
- image->byte_order==localbyteorder) {
- unsigned long *pixelptr =
- (unsigned long *) (image->data + y * image->bytes_per_line);
- for (x=0, rrp=raw_rgb; x<w; x++, rrp+=3) {
- unsigned long ntscri, ntscgi, ntscbi;
- ntscri=((unsigned long)rrp[0])*levelmult;
- ntscgi=((unsigned long)rrp[1])*levelmult;
- ntscbi=((unsigned long)rrp[2])*levelmult;
- if (ntscri>65535) ntscri=65535;
- if (ntscgi>65535) ntscgi=65535;
- if (ntscbi>65535) ntscbi=65535;
- *pixelptr++ = ((ntscri>>red_invprec)<<red_shift) |
- ((ntscgi>>green_invprec)<<green_shift) |
- ((ntscbi>>blue_invprec)<<blue_shift);
- }
- }
- else if (image->format==ZPixmap && image->bits_per_pixel==16 &&
- sizeof(unsigned short)==2 &&
- image->byte_order==localbyteorder) {
- unsigned short *pixelptr =
- (unsigned short *)(image->data + y*image->bytes_per_line);
- for (x=0, rrp=raw_rgb; x<w; x++, rrp+=3) {
- unsigned long ntscri, ntscgi, ntscbi;
- ntscri=((unsigned long)rrp[0])*levelmult;
- ntscgi=((unsigned long)rrp[1])*levelmult;
- ntscbi=((unsigned long)rrp[2])*levelmult;
- if (ntscri>65535) ntscri=65535;
- if (ntscgi>65535) ntscgi=65535;
- if (ntscbi>65535) ntscbi=65535;
- *pixelptr++ = ((ntscri>>red_invprec)<<red_shift) |
- ((ntscgi>>green_invprec)<<green_shift) |
- ((ntscbi>>blue_invprec)<<blue_shift);
- }
-
- }
- else {
- for (x=0, rrp=raw_rgb; x<w; x++, rrp+=3) {
- unsigned long pixel, ntscri, ntscgi, ntscbi;
- /* Convert to 16-bit color values, with saturation. The ntscr
- values are 22.10 fixed point, and levelmult is 24.6, so we
- get 16 bits out*/
- ntscri=((unsigned long)rrp[0])*levelmult;
- ntscgi=((unsigned long)rrp[1])*levelmult;
- ntscbi=((unsigned long)rrp[2])*levelmult;
- if (ntscri>65535) ntscri=65535;
- if (ntscgi>65535) ntscgi=65535;
- if (ntscbi>65535) ntscbi=65535;
- pixel = ((ntscri>>red_invprec)<<red_shift) |
- ((ntscgi>>green_invprec)<<green_shift) |
- ((ntscbi>>blue_invprec)<<blue_shift);
- XPutPixel(image, x, y, pixel);
- }
- }
+ if (i >= 200)
+ {
+ fprintf (stderr, "%s: no display modes enabled?\n", progname);
+ /* exit (-1); */
+ dst->which = dst->only = 0;
}
- }
}
- imgrow++;
- }
- }
+
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: launch\n", progname,
+ all_modes[dst->which].name);
+
+ /* Run the mode setup routine...
+ */
+ if (dst->bst) abort();
+ dst->name = all_modes[dst->which].name;
+ dst->bst = all_modes[dst->which].fn (dpy, window);
+ dst->start = (dst->bst ? time ((time_t *) 0) : 0);
+
+ /* Reset the structure run state to the beginning,
+ and do some sanitization of the cursor position
+ before the first run.
+ */
+ if (dst->bst)
+ {
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: queue size: %d (%d)\n", progname,
+ dst->name, dst->bst->pos, dst->bst->queue_size);
- /* For just the the rows which changed, blit the image to the screen. */
- for (textrow=0; textrow<24; ) {
- int top,bot,srcrow,srctop,nrows;
-
- nrows=1;
- while (textrow+nrows < 24 &&
- screen_plan[textrow+nrows] == screen_plan[textrow]+nrows)
- nrows++;
-
- top=h*textrow/24;
- bot=h*(textrow+nrows)/24;
- srcrow=screen_plan[textrow]&A2_SP_ROWMASK;
- srctop=srcrow*h/24;
-
- if (screen_plan[textrow] & A2_SP_COPY) {
- if (0) printf("Copy %d screenrows %d to %d\n", nrows, srcrow, textrow);
- XCopyArea(dpy, window, window, gc,
- screen_xo, screen_yo + srctop,
- w, bot-top,
- screen_xo, screen_yo + top);
- }
- else if (screen_plan[textrow] & A2_SP_PUT) {
- if (0) printf("Draw %d imgrows %d to %d\n", nrows, srcrow, textrow);
- if (use_shm) {
-#ifdef HAVE_XSHM_EXTENSION
- XShmPutImage(dpy, window, gc, image,
- 0, srctop, screen_xo, screen_yo + top,
- w, bot-top, False);
-#endif
- } else {
- XPutImage(dpy, window, gc, image,
- 0, srctop,
- screen_xo, screen_yo + top,
- w, bot-top);
+ hack_title (dst);
+ dst->bst->pos = 0;
+ dst->bst->x = dst->bst->current_left = dst->bst->left_margin;
+
+ if (dst->bst->y < dst->bst->top_margin + dst->bst->font->ascent)
+ dst->bst->y = dst->bst->top_margin + dst->bst->font->ascent;
}
- }
- textrow += nrows;
}
- XSync(dpy,0);
- for (textrow=0; textrow<24; textrow++) {
- st->rowimage[textrow]=textrow;
- }
- }
+ return 0;
+}
- finished:
- XSync(dpy,False);
- XClearWindow(dpy, window);
- goto cleanup;
- bailout:
- ;
+static void
+bsod_reshape (Display *dpy, Window window, void *closure,
+ unsigned int w, unsigned int h)
+{
+ struct driver_state *dst = (struct driver_state *) closure;
+
+ if (dst->bst &&
+ w == dst->bst->xgwa.width &&
+ h == dst->bst->xgwa.height)
+ return;
+
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: reshape reset\n", progname, dst->name);
+
+ /* just pick a new mode and restart when the window is resized. */
+ if (dst->bst)
+ free_bsod_state (dst->bst);
+ dst->bst = 0;
+ dst->start = 0;
+ dst->name = "none";
+ XClearWindow (dpy, window);
+}
- cleanup:
- if (image) {
- if (use_shm) {
-#ifdef HAVE_XSHM_EXTENSION
- destroy_xshm_image(dpy, image, &shm_info);
-#endif
- } else {
- XDestroyImage(image);
+
+static Bool
+bsod_event (Display *dpy, Window window, void *closure, XEvent *event)
+{
+ struct driver_state *dst = (struct driver_state *) closure;
+ Bool reset_p = False;
+
+ /* pick a new mode and restart when mouse clicked, or certain keys typed. */
+
+ if (event->type == ButtonPress)
+ reset_p = True;
+ else if (event->type == KeyPress)
+ {
+ KeySym keysym;
+ char c = 0;
+ XLookupString (&event->xkey, &c, 1, &keysym, 0);
+ if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
+ reset_p = True;
}
- image=NULL;
- }
- if (text_im) XDestroyImage(text_im);
- if (gc) XFreeGC(dpy, gc);
- if (st) free(st);
- if (raw_rgb) free(raw_rgb);
- if (dec) free(dec);
- if (n_colors) XFreeColors(dpy, xgwa.colormap, colors, n_colors, 0L);
+
+ if (reset_p)
+ {
+ if (dst->debug_p)
+ fprintf (stderr, "%s: %s: manual reset\n", progname, dst->name);
+ if (dst->bst)
+ free_bsod_state (dst->bst);
+ dst->bst = 0;
+ dst->start = 0;
+ dst->name = "none";
+ XClearWindow (dpy, window);
+ return True;
+ }
+ else
+ return False;
}
-\f
-char *progclass = "BSOD";
+static void
+bsod_free (Display *dpy, Window window, void *closure)
+{
+ struct driver_state *dst = (struct driver_state *) closure;
+ if (dst->bst)
+ free_bsod_state (dst->bst);
+ free (dst);
+}
+
-char *defaults [] = {
+static const char *bsod_defaults [] = {
"*delay: 30",
+ "*debug: False",
"*doOnly: ",
"*doWindows: True",
"*doBSD: False", /* boring */
"*doLinux: True",
"*doSparcLinux: False", /* boring */
+ "*doHPPALinux: True",
"*doBlitDamage: True",
"*doSolaris: True",
"*doHPUX: True",
+ "*doTru64: True",
"*doApple2: True",
+ "*doOS390: True",
+ "*doVMS: True",
+ "*doHVX: True",
+ "*doMSDOS: True",
+ "*doOS2: True",
+ "*doNvidia: True",
+
+ "*font: 9x15bold",
+ "*font2: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
+ "*bigFont: -*-courier-bold-r-*-*-*-180-*-*-m-*-*-*",
+ "*bigFont2: -*-courier-bold-r-*-*-*-180-*-*-m-*-*-*",
+
+ ".foreground: White",
+ ".background: Black",
+
+ ".windows.foreground: White",
+ ".windows.background: #0000AA", /* EGA color 0x01. */
- ".Windows.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".Windows.font2: -*-courier-bold-r-*-*-*-180-*-*-m-*-*-*",
- ".Windows.foreground: White",
- ".Windows.background: #0000AA", /* EGA color 0x01. */
+ ".windowslh.foreground: White",
+ ".windowslh.background: #AA0000", /* EGA color 0x04. */
+ ".windowslh.background2: #AAAAAA", /* EGA color 0x07. */
- ".Amiga.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".Amiga.font2: -*-courier-bold-r-*-*-*-180-*-*-m-*-*-*",
- ".Amiga.foreground: Red",
- ".Amiga.background: Black",
- ".Amiga.background2: White",
+ ".amiga.foreground: #FF0000",
+ ".amiga.background: Black",
+ ".amiga.background2: White",
- ".Mac.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".Mac.foreground: PaleTurquoise1",
- ".Mac.background: Black",
+ ".mac.foreground: #BBFFFF",
+ ".mac.background: Black",
- ".Atari.foreground: Black",
- ".Atari.background: White",
+ ".atari.foreground: Black",
+ ".atari.background: White",
- ".MacsBug.font: -*-courier-medium-r-*-*-*-100-*-*-m-*-*-*",
- ".MacsBug.font2: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".MacsBug.font3: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".MacsBug.foreground: Black",
- ".MacsBug.background: White",
- ".MacsBug.borderColor: #AAAAAA",
+ ".macsbug.font: -*-courier-medium-r-*-*-*-80-*-*-m-*-*-*",
+ ".macsbug.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".macsbug.foreground: Black",
+ ".macsbug.background: White",
+ ".macsbug.borderColor: #AAAAAA",
".mac1.foreground: Black",
".mac1.background: White",
- ".macX.textForeground: White",
- ".macX.textBackground: Black",
- ".macX.background: #888888",
- ".macX.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".macX.font2: -*-courier-bold-r-*-*-*-240-*-*-m-*-*-*",
-
- ".SCO.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".SCO.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".SCO.foreground: White",
- ".SCO.background: Black",
-
- ".Linux.font: 9x15bold",
- ".Linux.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".Linux.foreground: White",
- ".Linux.background: Black",
-
- ".SparcLinux.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".SparcLinux.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".SparcLinux.foreground: White",
- ".SparcLinux.background: Black",
-
- ".BSD.font: vga",
- ".BSD.font: -*-courier-bold-r-*-*-*-120-*-*-m-*-*-*",
- ".BSD.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
-/* ".BSD.font2: -sun-console-medium-r-*-*-22-*-*-*-m-*-*-*", */
- ".BSD.foreground: #c0c0c0",
- ".BSD.background: Black",
-
- ".Solaris.font: -sun-gallant-*-*-*-*-19-*-*-*-*-120-*-*",
- ".Solaris.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".Solaris.foreground: Black",
- ".Solaris.background: White",
- "*dontClearRoot: True",
+ ".macx.foreground: White",
+ ".macx.textForeground: White",
+ ".macx.textBackground: Black",
+ ".macx.background: #888888",
+
+ ".sco.font: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".sco.foreground: White",
+ ".sco.background: Black",
+
+ ".hvx.font: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".hvx.foreground: White",
+ ".hvx.background: Black",
+
+ ".linux.foreground: White",
+ ".linux.background: Black",
+
+ ".hppalinux.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".hppalinux.foreground: White",
+ ".hppalinux.background: Black",
+
+ ".sparclinux.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".sparclinux.foreground: White",
+ ".sparclinux.background: Black",
+
+ ".bsd.font: vga",
+ ".bsd.bigFont: -sun-console-medium-r-*-*-22-*-*-*-m-*-*-*",
+ ".bsd.bigFont2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".bsd.foreground: #c0c0c0",
+ ".bsd.background: Black",
+
+ ".solaris.font: -sun-gallant-*-*-*-*-19-*-*-*-*-120-*-*",
+ ".solaris.foreground: Black",
+ ".solaris.background: White",
+
+ ".hpux.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".hpux.foreground: White",
+ ".hpux.background: Black",
+
+ ".os390.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".os390.background: Black",
+ ".os390.foreground: Red",
+
+ ".tru64.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".tru64.foreground: White",
+ ".tru64.background: #0000AA", /* EGA color 0x01. */
+
+ ".vms.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".vms.foreground: White",
+ ".vms.background: Black",
- ".HPUX.font: 9x15bold",
- ".HPUX.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".HPUX.foreground: Black",
- ".HPUX.background: White",
+ ".msdos.bigFont: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
+ ".msdos.foreground: White",
+ ".msdos.background: Black",
- ".OS390.font: 9x15bold",
- ".OS390.font2: -*-courier-bold-r-*-*-*-140-*-*-m-*-*-*",
- ".OS390.background: Black",
- ".OS390.foreground: Red",
+ ".os2.foreground: White",
+ ".os2.background: Black",
+
+ "*dontClearRoot: True",
"*apple2TVColor: 50",
"*apple2TVTint: 5",
"*apple2TVContrast: 90",
"*apple2SimulateUser: True",
+ ANALOGTV_DEFAULTS
+
#ifdef HAVE_XSHM_EXTENSION
"*useSHM: True",
#endif
0
};
-XrmOptionDescRec options [] = {
+static const XrmOptionDescRec bsod_options [] = {
{ "-delay", ".delay", XrmoptionSepArg, 0 },
{ "-only", ".doOnly", XrmoptionSepArg, 0 },
+ { "-debug", ".debug", XrmoptionNoArg, "True" },
{ "-windows", ".doWindows", XrmoptionNoArg, "True" },
{ "-no-windows", ".doWindows", XrmoptionNoArg, "False" },
{ "-nt", ".doNT", XrmoptionNoArg, "True" },
{ "-no-apple2", ".doApple2", XrmoptionNoArg, "False" },
{ "-sco", ".doSCO", XrmoptionNoArg, "True" },
{ "-no-sco", ".doSCO", XrmoptionNoArg, "False" },
+ { "-hvx", ".doHVX", XrmoptionNoArg, "True" },
+ { "-no-hvx", ".doHVX", XrmoptionNoArg, "False" },
{ "-bsd", ".doBSD", XrmoptionNoArg, "True" },
{ "-no-bsd", ".doBSD", XrmoptionNoArg, "False" },
{ "-linux", ".doLinux", XrmoptionNoArg, "True" },
{ "-no-linux", ".doLinux", XrmoptionNoArg, "False" },
+ { "-hppalinux", ".doHPPALinux", XrmoptionNoArg, "True" },
+ { "-no-hppalinux", ".doHPPALinux", XrmoptionNoArg, "False" },
{ "-sparclinux", ".doSparcLinux", XrmoptionNoArg, "True" },
{ "-no-sparclinux", ".doSparcLinux", XrmoptionNoArg, "False" },
{ "-blitdamage", ".doBlitDamage", XrmoptionNoArg, "True" },
{ "-no-blitdamage", ".doBlitDamage", XrmoptionNoArg, "False" },
+ { "-nvidia", ".doNvidia", XrmoptionNoArg, "True" },
+ { "-no-nvidia", ".doNvidia", XrmoptionNoArg, "False" },
{ "-solaris", ".doSolaris", XrmoptionNoArg, "True" },
{ "-no-solaris", ".doSolaris", XrmoptionNoArg, "False" },
{ "-hpux", ".doHPUX", XrmoptionNoArg, "True" },
{ "-no-hpux", ".doHPUX", XrmoptionNoArg, "False" },
{ "-os390", ".doOS390", XrmoptionNoArg, "True" },
{ "-no-os390", ".doOS390", XrmoptionNoArg, "False" },
+ { "-tru64", ".doHPUX", XrmoptionNoArg, "True" },
+ { "-no-tru64", ".doTru64", XrmoptionNoArg, "False" },
+ { "-vms", ".doVMS", XrmoptionNoArg, "True" },
+ { "-no-vms", ".doVMS", XrmoptionNoArg, "False" },
+ { "-msdos", ".doMSDOS", XrmoptionNoArg, "True" },
+ { "-no-msdos", ".doMSDOS", XrmoptionNoArg, "False" },
+ { "-os2", ".doOS2", XrmoptionNoArg, "True" },
+ { "-no-os2", ".doOS2", XrmoptionNoArg, "False" },
+ ANALOGTV_OPTIONS
{ 0, 0, 0, 0 }
};
-static struct {
- const char *name;
- void (*fn) (Display *, Window, int delay);
-} all_modes[] = {
- { "Windows", windows_31 },
- { "Nt", windows_nt },
- { "2k", windows_2k },
- { "Amiga", amiga },
- { "Mac", mac },
- { "MacsBug", macsbug },
- { "Mac1", mac1 },
- { "MacX", macx },
- { "SCO", sco },
- { "SparcLinux", sparc_linux },
- { "BSD", bsd },
- { "Atari", atari },
- { "BlitDamage", blitdamage },
- { "Solaris", sparc_solaris },
- { "Linux", linux_fsck },
- { "HPUX", hpux },
- { "OS390", os390 },
- { "Apple2", apple2 },
-};
-
-
-void
-screenhack (Display *dpy, Window window)
-{
- int loop = 0;
- int i = -1;
- int j = -1;
- int only = -1;
- int delay = get_integer_resource ("delay", "Integer");
- if (delay < 3) delay = 3;
-
- {
- char *s = get_string_resource("doOnly", "DoOnly");
- if (s && *s)
- {
- int count = countof(all_modes);
- for (only = 0; only < count; only++)
- if (!strcasecmp (s, all_modes[only].name))
- break;
- if (only >= count)
- {
- fprintf (stderr, "%s: unknown -only mode: \"%s\"\n", progname, s);
- only = -1;
- }
- }
- if (s) free (s);
- }
-
- if (!get_boolean_resource ("root", "Boolean"))
- {
- XWindowAttributes xgwa;
- XGetWindowAttributes (dpy, window, &xgwa);
- XSelectInput (dpy, window,
- xgwa.your_event_mask | KeyPressMask | ButtonPressMask);
- }
-
- while (1)
- {
- Bool did;
- int count = countof(all_modes);
- char name[100], class[100];
-
- if (only > 0)
- i = only;
- else
- do { i = (random() & 0xFF) % count; } while (i == j);
-
- sprintf (name, "do%s", all_modes[i].name);
- sprintf (class, "Do%s", all_modes[i].name);
-
- did = False;
- if (only > 0 || get_boolean_resource(name, class))
- {
- all_modes[i].fn (dpy, window, delay);
- did = True;
- }
-
- loop++;
- if (loop > 100) j = -1;
- if (loop > 200)
- {
- fprintf (stderr, "%s: no display modes enabled?\n", progname);
- exit(-1);
- }
- if (!did) continue;
- XSync (dpy, False);
- j = i;
- loop = 0;
- }
-}
+XSCREENSAVER_MODULE ("BSOD", bsod)
projects / xscreensaver / blobdiff