--- /dev/null
+/* xscreensaver, Copyright (c) 2018 by 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
+ * the above copyright notice appear in all copies and that both that
+ * copyright notice and this permission notice appear in supporting
+ * documentation. No representations are made about the suitability of this
+ * software for any purpose. It is provided "as is" without express or
+ * implied warranty.
+ */
+
+/* Like XLoadQueryFont, but if it fails, it tries some heuristics to
+ load something close.
+ */
+
+#define _GNU_SOURCE
+
+#include "utils.h"
+#include "font-retry.h"
+
+extern const char *progname;
+
+#undef countof
+#define countof(x) (sizeof((x))/sizeof((*x)))
+
+XFontStruct *
+load_font_retry (Display *dpy, const char *xlfd)
+{
+ XFontStruct *f = XLoadQueryFont (dpy, xlfd);
+# ifdef HAVE_JWXYZ
+ return f;
+# else
+ if (f)
+ return f;
+ else
+ {
+ Bool bold_p = (!!strcasestr (xlfd, "-bold-"));
+ Bool italic_p = (!!strcasestr (xlfd, "-i-") ||
+ !!strcasestr (xlfd, "-o-"));
+ Bool fixed_p = (!!strcasestr (xlfd, "courier") ||
+ !!strcasestr (xlfd, "-ocr") ||
+ !!strcasestr (xlfd, "-m-") ||
+ !!strcasestr (xlfd, "-c-"));
+ int size = 0;
+
+ if (!strcmp (xlfd, "vga")) /* BSOD uses this: it has no XLFD name. */
+ fixed_p = True, size = 120;
+
+ /* Look for the first number in the string like "-180-" */
+ if (! size)
+ {
+ const char *s;
+ for (s = xlfd; *s; s++)
+ if (s[0] == '-' && s[1] >= '0' && s[1] <= '9')
+ {
+ int i = s[1] - '0';
+ const char *s2 = s+2;
+ while (*s2 >= '0' && *s2 <= '9')
+ {
+ i = i * 10 + *s2 - '0';
+ s2++;
+ }
+ if (*s2 != '-') continue; /* Number ends with dash */
+ if (i < 60 || i >= 2000) continue; /* In range 6pt - 200pt */
+ if (i % 10) continue; /* Multiple of 10 */
+
+ size = i;
+ break;
+ }
+ }
+
+ if (! size)
+ {
+ fprintf (stderr, "%s: unloadable, unparsable font: \"%s\"\n",
+ progname, xlfd);
+ return XLoadQueryFont (dpy, "fixed");
+ }
+ else
+ {
+ const char *fixed[] = { "courier",
+ "courier new",
+ "courier 10 pitch",
+ "lucidatypewriter",
+ "american typewriter",
+ "fixed",
+ "ocr a std",
+ "*" };
+ const char *variable[] = { "helvetica",
+ "arial",
+ "bitstream vera sans",
+ "gill sans",
+ "times",
+ "times new roman",
+ "new century schoolbook",
+ "utopia",
+ "palatino",
+ "lucida",
+ "bitstream charter",
+ "*" };
+ const char *charsets[] = { "iso10646-1", "iso8859-1", "*-*" };
+ const char *weights[] = { "bold", "medium" };
+ const char *slants[] = { "o", "i", "r" };
+ const char *spacings[] = { "m", "c", "p" };
+ int a, b, c, d, e, g;
+ char buf[1024];
+
+ for (a = 0; a < countof(charsets); a++)
+ for (b = (bold_p ? 0 : 1); b < countof(weights); b++)
+ for (c = (italic_p ? 0 : 2); c < countof(slants); c++)
+ for (d = 0;
+ d < (fixed_p ? countof(fixed) : countof(variable));
+ d++)
+ for (g = size; g >= 60; g -= 10)
+ for (e = (fixed_p ? 0 : 2); e < countof(spacings); e++)
+ {
+ sprintf (buf,
+ "-%s-%s-%s-%s-%s-%s-%s-%d-%s-%s-%s-%s-%s",
+ "*", /* foundry */
+ (fixed_p ? fixed[d] : variable[d]),
+ weights[b],
+ slants[c],
+ "*", /* set width */
+ "*", /* add style */
+ "*", /* pixel size */
+ g, /* point size */
+ "*", /* x resolution */
+ "*", /* y resolution */
+ spacings[e],
+ "*", /* average width */
+ charsets[a]);
+ /* fprintf(stderr, "%s: trying %s\n", progname, buf);*/
+ f = XLoadQueryFont (dpy, buf);
+ if (f)
+ {
+ /* fprintf (stderr,
+ "%s: substituted \"%s\" for \"%s\"\n",
+ progname, buf, xlfd); */
+ return f;
+ }
+ }
+
+ fprintf (stderr, "%s: unable to find any alternatives to \"%s\"\n",
+ progname, xlfd);
+ return XLoadQueryFont (dpy, "fixed");
+ }
+ }
+# endif
+}