1 /****************************************************************************
2 * RRDtool 1.1.x Copyright Tobias Oetiker, 1997 - 2002
3 ****************************************************************************
4 * rrd_afm.h Parsing afm tables to find width of strings.
5 ****************************************************************************/
7 #include "rrd_afm.h"
8 #include "rrd_afm_data.h"
10 #include <stdlib.h>
11 #include <stdio.h>
13 #if 0
14 # define DEBUG 1
15 # define DLOG(x) fprintf x
16 #else
17 # define DEBUG 0
18 # define DLOG(x)
19 #endif
21 /* Adobe SVG View and Batik 1.1.1 can't handle ligatures.
22 So disable it as we just waste speed.
23 Besides, it doesn't matter much in normal text.
24 */
25 #define ENABLE_LIGATURES 0
27 static const afm_fontinfo *afm_last_used_font;
29 #define is_font(p, name) \
30 (!strcmp(p->postscript_name, name) || !strcmp(p->fullname, name))
32 static const afm_fontinfo *afm_searchfont(const char *name)
33 {
34 int i;
35 const afm_fontinfo *p = afm_last_used_font;
36 if (p && is_font(p, name))
37 return p;
38 p = afm_fontinfolist;
39 for (i = 0; i < afm_fontinfo_count; i++, p++) {
40 if (is_font(p, name)) {
41 afm_last_used_font = p;
42 return p;
43 }
44 }
45 return NULL;
46 }
48 static const afm_fontinfo *afm_findfont(const char *name)
49 {
50 const afm_fontinfo *p = afm_searchfont(name);
51 if (p)
52 return p;
53 if (1 || DEBUG) fprintf(stderr, "Can't find font '%s'\n", name);
54 p = afm_searchfont("Helvetica");
55 if (p)
56 return p;
57 return NULL;
58 }
60 const char *afm_get_font_postscript_name(const char* font)
61 {
62 const afm_fontinfo *p = afm_findfont(font);
63 return p ? p->postscript_name : "Helvetica";
64 }
66 static int afm_find_char_index(const afm_fontinfo *fontinfo,
67 afm_cunicode ch1)
68 {
69 int idx = ch1 - 32;
70 afm_cuint16 *indexP;
71 int numIndexChars, i;
72 if (idx <= 0)
73 return 0;
74 if (idx <= 126 - 32)
75 return idx;
76 indexP = fontinfo->highchars_index;
77 if (indexP == 0)
78 return 0;
79 numIndexChars = fontinfo->highchars_count;
80 DLOG((stderr, " find highbit, num = %d\n", numIndexChars));
81 if (ch1 >= 161 && ch1 <= 255) {
82 idx = ch1 - 161;
83 DLOG((stderr, " 161, idx = %d -> %d\n", idx, indexP[idx]));
84 if (idx < numIndexChars && indexP[idx] == ch1) {
85 idx += 127 - 32;
86 DLOG((stderr, " 161-guessed ok to %d\n", idx));
87 return idx;
88 }
89 }
90 for (i = 0; i < numIndexChars; i++) {
91 DLOG((stderr, " compares to %d -> %d\n", indexP[i], i));
92 if (indexP[i] == ch1)
93 return i + 127 - 32;
94 }
95 DLOG((stderr, "Did not find %d in highchars_index ??\n", ch1));
96 return 0;
97 }
99 #if ENABLE_LIGATURES
100 static afm_cunicode afm_find_combined_ligature(const afm_fontinfo *fontinfo,
101 afm_cunicode ch1, afm_cunicode ch2)
102 {
103 afm_cunicode *p = fontinfo->ligatures;
104 int num = fontinfo->ligatures_count;
105 int i;
106 if (!num)
107 return 0;
108 DLOG((stderr, " find-lig, num = %d\n", num));
109 for (i = 0; i < num; i++, p += 3) {
110 DLOG((stderr, " lig: %d + %d -> %d (%c %c %c)\n",
111 p[0], p[1], p[2], p[0], p[1], p[2]));
112 if (ch1 == *p && ch2 == p[1]) {
113 DLOG((stderr, " matches.\n"));
114 return p[2];
115 }
116 }
117 return 0;
118 }
119 #endif
121 #define READ_ESCAPED(p, val) \
122 if ((val = *p++) == 0) { \
123 val = 254 + *p++; \
124 } else if (!--val) { \
125 val = *p++ << 8; \
126 val |= *p++; \
127 }
130 static long afm_find_kern(const afm_fontinfo *fontinfo,
131 int kern_idx, afm_cunicode ch2)
132 {
133 afm_cuint8 *p8 = fontinfo->kerning_data + kern_idx;
134 int num;
135 READ_ESCAPED(p8, num);
136 DLOG((stderr, " find kern, num pairs = %d\n", num));
137 while (num > 0) {
138 afm_unicode ch;
139 READ_ESCAPED(p8, ch);
140 DLOG((stderr, " pair-char = %d\n", ch));
141 if (ch == ch2) {
142 DLOG((stderr, " got kern = %d\n", *(afm_csint8*)p8));
143 return *(afm_csint8*)p8;
144 }
145 p8++;
146 num--;
147 }
148 return 0;
149 }
151 /* measure width of a text string */
152 double afm_get_text_width ( double start, const char* font, double size,
153 double tabwidth, const char* text)
154 {
155 const afm_fontinfo *fontinfo = afm_findfont(font);
156 long width = 0;
157 double widthf;
158 const unsigned char *up = (const unsigned char*)text;
159 DLOG((stderr, "================= %s\n", text));
160 if (fontinfo == NULL)
161 return size * strlen(text);
162 while (1) {
163 afm_unicode ch1, ch2;
164 int idx1, kern_idx;
165 if ((ch1 = *up) == 0)
166 break;
167 ch1 = afm_host2unicode(ch1); /* unsafe macro */
168 ch2 = *++up;
169 ch2 = afm_host2unicode(ch2); /* unsafe macro */
170 DLOG((stderr, "------------- Loop: %d + %d (%c%c) at %d\n",
171 ch1, ch2, ch1, ch2 ? ch2 : ' ',
172 (up - (const unsigned char*)text) - 1));
173 idx1 = afm_find_char_index(fontinfo, ch1);
174 DLOG((stderr, " idx1 = %d\n", idx1));
175 #if ENABLE_LIGATURES
176 if (ch2) {
177 int ch1_new = afm_find_combined_ligature(fontinfo, ch1, ch2);
178 DLOG((stderr, " lig-ch = %d\n", ch1_new));
179 if (ch1_new) {
180 ch1 = ch1_new;
181 idx1 = afm_find_char_index(fontinfo, ch1);
182 ch2 = afm_host2unicode(*++up);
183 DLOG((stderr, " -> idx1 = %d, ch2 = %d (%c)\n",
184 idx1, ch2, ch2 ? ch2 : ' '));
185 }
186 }
187 #endif
188 width += fontinfo->widths[idx1];
189 DLOG((stderr, "Plain width of %d = %d\n", ch1, fontinfo->widths[idx1]));
190 if (fontinfo->kerning_index && ch2) {
191 kern_idx = fontinfo->kerning_index[idx1];
192 DLOG((stderr, " kern_idx = %d\n", kern_idx));
193 if (kern_idx > 0)
194 width += afm_find_kern(fontinfo, kern_idx, ch2);
195 }
196 }
197 widthf = (width * 6 / 1000.0) * size;
198 DLOG((stderr, "Returns %ld (%ld) -> %f\n", width, width * 6, widthf));
199 return widthf;
200 }
202 #ifdef __APPLE__
203 const unsigned char afm_mac2iso[128] = {
204 '\xC4', '\xC5', '\xC7', '\xC9', '\xD1', '\xD6', '\xDC', '\xE1', // 80
205 '\xE0', '\xE2', '\xE4', '\xE3', '\xE5', '\xE7', '\xE9', '\xE8', // 88
206 '\xEA', '\xEB', '\xED', '\xEC', '\xEE', '\xEF', '\xF1', '\xF3', // 90
207 '\xF2', '\xF4', '\xF6', '\xF5', '\xFA', '\xF9', '\xFB', '\xFC', // 98
208 '\xDD', '\xB0', '\xA2', '\xA3', '\xA7', ' ', '\xB6', '\xDF', // A0
209 '\xAE', '\xA9', ' ', '\xB4', '\xA8', ' ', '\xC6', '\xD8', // A8
210 ' ', '\xB1', '\xBE', ' ', '\xA5', '\xB5', ' ', ' ', // B0
211 '\xBD', '\xBC', ' ', '\xAA', '\xBA', ' ', '\xE6', '\xF8', // B8
212 '\xBF', '\xA1', '\xAC', ' ', ' ', ' ', ' ', '\xAB', // C0
213 '\xBB', ' ', '\xA0', '\xC0', '\xC3', '\xD5', ' ', '\xA6', // C8
214 '\xAD', ' ', '"', '"', '\'', '\'', '\xF7', '\xD7', // D0
215 '\xFF', ' ', ' ', '\xA4', '\xD0', '\xF0', '\xDE', '\xFE', // D8
216 '\xFD', '\xB7', ' ', ' ', ' ', '\xC2', '\xCA', '\xC1', // E0
217 '\xCB', '\xC8', '\xCD', '\xCE', '\xCF', '\xCC', '\xD3', '\xD4', // E8
218 ' ', '\xD2', '\xDA', '\xDB', '\xD9', ' ', ' ', ' ', // F0
219 '\xAF', ' ', ' ', ' ', '\xB8', ' ', ' ', ' ', // F8
220 };
221 #endif