summaryrefslogtreecommitdiff
path: root/dviware/epson/eps-0.2/lib/gripes0.c
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/epson/eps-0.2/lib/gripes0.c
Initial commit
Diffstat (limited to 'dviware/epson/eps-0.2/lib/gripes0.c')
-rw-r--r--dviware/epson/eps-0.2/lib/gripes0.c87
1 files changed, 87 insertions, 0 deletions
diff --git a/dviware/epson/eps-0.2/lib/gripes0.c b/dviware/epson/eps-0.2/lib/gripes0.c
new file mode 100644
index 0000000000..c85d5a50e9
--- /dev/null
+++ b/dviware/epson/eps-0.2/lib/gripes0.c
@@ -0,0 +1,87 @@
+#include "PROTO.h"
+/*
+ * Copyright (c) 1987, 1989 University of Maryland
+ * Department of Computer Science. All rights reserved.
+ * Permission to copy for any purpose is hereby granted
+ * so long as this copyright notice remains intact.
+ */
+
+#ifndef lint
+static char rcsid[] = "$Header: /usr/src/local/tex/local/mctex/lib/RCS/gripes0.c,v 2.5 89/09/01 13:52:38 chris Exp $";
+#endif
+
+/*
+ * Common errors (`gripes').
+ */
+
+#include <stdio.h>
+#include "types.h"
+#include "error.h"
+#include "gripes.h"
+
+extern errno;
+
+/*
+ * Cannot allocate memory.
+ */
+extern void GripeOutOfMemory(int n, char *why)
+{
+
+ error(1, -1, "ran out of memory allocating %d bytes for %s", n, why);
+ /* NOTREACHED */
+}
+
+/*
+ * Cannot get a font.
+ * RETURNS TO CALLER
+ */
+extern void GripeCannotGetFont(char *name, i32 mag, i32 dsz, char *dev, char *fullname)
+{
+ int e = errno;
+ char scale[40];
+
+ if (mag == dsz) /* no scaling */
+ scale[0] = 0;
+ else
+ (void) sprintf(scale, " scaled %d",
+ (int) ((double) mag / (double) dsz * 1000.0 + .5));
+
+ error(0, e, "no font for %s%s", name, scale);
+ if (fullname)
+ error(0, 0, "(wanted, e.g., \"%s\")", fullname);
+ else {
+ if (dev)
+ error(1, 0, "(there are no fonts for the %s engine!)",
+ dev);
+ else
+ error(1, 0, "(I cannot find any fonts!)");
+ /* NOTREACHED */
+ }
+}
+
+/*
+ * Font checksums do not match.
+ * RETURNS TO CALLER
+ */
+extern void GripeDifferentChecksums(char *font, i32 tfmsum, i32 fontsum)
+{
+
+ error(0, 0, "\
+WARNING: TeX and I have different checksums for font\n\
+\t\"%s\"\n\
+\tPlease notify your TeX maintainer\n\
+\t(TFM checksum = 0%lo, my checksum = 0%lo)",
+ font, (long)tfmsum, (long)fontsum);
+}
+
+/*
+ * A font, or several fonts, are missing, so no output.
+ */
+extern void GripeMissingFontsPreventOutput(int n)
+{
+ static char s[2] = {'s', 0};
+
+ error(1, 0, "%d missing font%s prevent%s output (sorry)", n,
+ n > 1 ? s : &s[1], n == 1 ? s : &s[1]);
+ /* NOTREACHED */
+}