1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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 */
}
|