From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- dviware/epson/eps-0.2/lib/gripes0.c | 87 +++++++++++++++++++++++++++++++++++++ 1 file changed, 87 insertions(+) create mode 100644 dviware/epson/eps-0.2/lib/gripes0.c (limited to 'dviware/epson/eps-0.2/lib/gripes0.c') 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 +#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 */ +} -- cgit v1.2.3