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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
// $Id$
#include <config.h>
#include <kdebug.h>
#include <tdelocale.h>
#include <tqfile.h>
#include "dviRenderer.h"
#include "fontpool.h"
#include "kdvi.h"
#ifdef HAVE_FREETYPE
#include "TeXFont_PFB.h"
#endif
#include "TeXFont_PK.h"
#include "TeXFont_TFM.h"
#include "TeXFontDefinition.h"
#include "xdvi.h"
extern const int MFResolutions[];
#define PK_PRE 247
#define PK_ID 89
#define PK_MAGIC (PK_PRE << 8) + PK_ID
#define GF_PRE 247
#define GF_ID 131
#define GF_MAGIC (GF_PRE << 8) + GF_ID
#define VF_PRE 247
#define VF_ID_BYTE 202
#define VF_MAGIC (VF_PRE << 8) + VF_ID_BYTE
// #define DEBUG_FONT
TeXFontDefinition::TeXFontDefinition(TQString nfontname, double _displayResolution_in_dpi, TQ_UINT32 chk, TQ_INT32 _scaled_size_in_DVI_units,
class fontPool *pool, double _enlargement)
{
#ifdef DEBUG_FONT
kdDebug(4300) << "TeXFontDefinition::TeXFontDefinition(...); fontname=" << nfontname << ", enlargement=" << _enlargement << endl;
#endif
enlargement = _enlargement;
font_pool = pool;
fontname = nfontname;
font = 0;
displayResolution_in_dpi = _displayResolution_in_dpi;
checksum = chk;
flags = TeXFontDefinition::FONT_IN_USE;
file = 0;
filename = TQString();
scaled_size_in_DVI_units = _scaled_size_in_DVI_units;
macrotable = 0;
// By default, this font contains only empty characters. After the
// font has been loaded, this function pointer will be replaced by
// another one.
set_char_p = &dviRenderer::set_empty_char;
}
TeXFontDefinition::~TeXFontDefinition()
{
#ifdef DEBUG_FONT
kdDebug(4300) << "discarding font " << fontname << " at " << (int)(enlargement * MFResolutions[font_pool->getMetafontMode()] + 0.5) << " dpi" << endl;
#endif
if (font != 0) {
delete font;
font = 0;
}
if (macrotable != 0) {
delete [] macrotable;
macrotable = 0;
}
if (flags & FONT_LOADED) {
if (file != 0) {
fclose(file);
file = 0;
}
if (flags & FONT_VIRTUAL)
vf_table.clear();
}
}
void TeXFontDefinition::fontNameReceiver(const TQString& fname)
{
#ifdef DEBUG_FONT
kdDebug(4300) << "void TeXFontDefinition::fontNameReceiver( " << fname << " )" << endl;
#endif
flags |= TeXFontDefinition::FONT_LOADED;
filename = fname;
#ifdef HAVE_FREETYPE
fullFontName = TQString();
fullEncodingName = TQString();
#endif
file = fopen(TQFile::encodeName(filename), "r");
// Check if the file could be opened. If not, try to find the file
// in the DVI file's directory. If that works, modify the filename
// accordingly and go on.
if (file == 0) {
TQString filename_test(font_pool->getExtraSearchPath() + "/" + filename);
file = fopen( TQFile::encodeName(filename_test), "r");
if (file == 0) {
kdError(4300) << i18n("Cannot find font %1, file %2.").arg(fontname).arg(filename) << endl;
return;
} else
filename = filename_test;
}
set_char_p = &dviRenderer::set_char;
int magic = two(file);
if (fname.endsWith("pk"))
if (magic == PK_MAGIC) {
fclose(file);
file = 0;
font = new TeXFont_PK(this);
set_char_p = &dviRenderer::set_char;
if ((checksum != 0) && (checksum != font->checksum))
kdWarning(4300) << i18n("Checksum mismatch for font file %1").arg(filename) << endl;
fontTypeName = "TeX PK";
return;
}
if (fname.endsWith(".vf"))
if (magic == VF_MAGIC) {
read_VF_index();
set_char_p = &dviRenderer::set_vf_char;
fontTypeName = i18n("TeX virtual");
return;
}
if (fname.endsWith(".tfm")) {
fclose(file);
file = 0;
font = new TeXFont_TFM(this);
set_char_p = &dviRenderer::set_char;
fontTypeName = i18n("TeX Font Metric");
return;
}
// None of these known types? Then it should be one of the font
// formats that are handled by the FreeType library
fclose(file);
file = 0;
#ifdef HAVE_FREETYPE
// Find the encoding for that font
const TQString &enc = font_pool->fontsByTeXName.findEncoding(fontname);
if (enc.isEmpty() == false) {
#ifdef DEBUG_FONT
kdDebug(4300) << "Font " << fontname << " uses encoding " << enc << endl;
#endif
font = new TeXFont_PFB(this, font_pool->encodingPool.findByName(enc), font_pool->fontsByTeXName.findSlant(fontname) );
} else {
#ifdef DEBUG_FONT
kdDebug(4300) << "Font " << fontname << " does not have an encoding." << endl;
#endif
font = new TeXFont_PFB(this);
}
set_char_p = &dviRenderer::set_char;
fontTypeName = i18n("FreeType");
return;
#else
// If we don't have the FreeType library, we should never have
// reached this point. Complain, and leave this font blank
kdError(4300) << i18n("Cannot recognize format for font file %1").arg(filename) << endl;
#endif
}
void TeXFontDefinition::reset()
{
if (font != 0) {
delete font;
font = 0;
}
if (macrotable != 0) {
delete [] macrotable;
macrotable = 0;
}
if (flags & FONT_LOADED) {
if (file != 0) {
fclose(file);
file = 0;
}
if (flags & FONT_VIRTUAL)
vf_table.clear();
}
filename = TQString();
flags = TeXFontDefinition::FONT_IN_USE;
set_char_p = &dviRenderer::set_empty_char;
}
void TeXFontDefinition::setDisplayResolution(double _displayResolution_in_dpi)
{
displayResolution_in_dpi = _displayResolution_in_dpi;
if (font != 0)
font->setDisplayResolution();
}
/** mark_as_used marks the font, and all the fonts it referrs to, as
used, i.e. their FONT_IN_USE-flag is set. */
void TeXFontDefinition::mark_as_used()
{
#ifdef DEBUG_FONT
kdDebug(4300) << "TeXFontDefinition::mark_as_used()" << endl;
#endif
if (flags & TeXFontDefinition::FONT_IN_USE)
return;
flags |= TeXFontDefinition::FONT_IN_USE;
// For virtual fonts, also go through the list of referred fonts
if (flags & TeXFontDefinition::FONT_VIRTUAL) {
TQIntDictIterator<TeXFontDefinition> it(vf_table);
while( it.current() ) {
it.current()->mark_as_used();
++it;
}
}
}
macro::macro()
{
pos = 0; /* address of first byte of macro */
end = 0; /* address of last+1 byte */
dvi_advance_in_units_of_design_size_by_2e20 = 0; /* DVI units to move reference point */
free_me = false;
}
macro::~macro()
{
if ((pos != 0L) && (free_me == true))
delete [] pos;
}
|
