summaryrefslogtreecommitdiff
path: root/Build/source/texk/seetexk/gripes0.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/seetexk/gripes0.c
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/seetexk/gripes0.c')
-rw-r--r--Build/source/texk/seetexk/gripes0.c100
1 files changed, 100 insertions, 0 deletions
diff --git a/Build/source/texk/seetexk/gripes0.c b/Build/source/texk/seetexk/gripes0.c
new file mode 100644
index 00000000000..b80239896d5
--- /dev/null
+++ b/Build/source/texk/seetexk/gripes0.c
@@ -0,0 +1,100 @@
+/*
+ * 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"
+
+#ifndef WIN32
+extern errno;
+#endif
+
+/*
+ * Cannot allocate memory.
+ */
+void
+GripeOutOfMemory(n, why)
+ 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
+ */
+void
+GripeCannotGetFont(name, mag, dsz, dev, fullname)
+ char *name;
+ i32 mag, dsz;
+ char *dev, *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
+ */
+void
+GripeDifferentChecksums(font, tfmsum, fontsum)
+ char *font;
+ i32 tfmsum, 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.
+ */
+void
+GripeMissingFontsPreventOutput(n)
+ 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 */
+}