2 * PostScript driver Type42 font functions
4 * Copyright 2002 Huw D M Davies for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "wine/port.h"
38 #include "wine/debug.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(psdrv
);
43 #define GET_BE_WORD(ptr) MAKEWORD( ((BYTE *)(ptr))[1], ((BYTE *)(ptr))[0] )
44 #define GET_BE_DWORD(ptr) ((DWORD)MAKELONG( GET_BE_WORD(&((WORD *)(ptr))[1]), \
45 GET_BE_WORD(&((WORD *)(ptr))[0]) ))
47 #define MS_MAKE_TAG( _x1, _x2, _x3, _x4 ) \
48 ( ( (DWORD)_x4 << 24 ) | \
49 ( (DWORD)_x3 << 16 ) | \
50 ( (DWORD)_x2 << 8 ) | \
60 const OTTable tables_templ
[] = {
61 { MS_MAKE_TAG('c','v','t',' '), 0, 0, NULL
, TRUE
},
62 { MS_MAKE_TAG('f','p','g','m'), 0, 0, NULL
, TRUE
},
63 { MS_MAKE_TAG('g','d','i','r'), 0, 0, NULL
, TRUE
},
64 { MS_MAKE_TAG('g','l','y','f'), 0, 0, NULL
, FALSE
},
65 { MS_MAKE_TAG('h','e','a','d'), 0, 0, NULL
, TRUE
},
66 { MS_MAKE_TAG('h','h','e','a'), 0, 0, NULL
, TRUE
},
67 { MS_MAKE_TAG('h','m','t','x'), 0, 0, NULL
, TRUE
},
68 { MS_MAKE_TAG('l','o','c','a'), 0, 0, NULL
, TRUE
},
69 { MS_MAKE_TAG('m','a','x','p'), 0, 0, NULL
, TRUE
},
70 { MS_MAKE_TAG('p','r','e','p'), 0, 0, NULL
, TRUE
},
75 OTTable tables
[sizeof(tables_templ
)/sizeof(tables_templ
[0])];
76 int glyf_tab
, loca_tab
, head_tab
; /* indices of glyf, loca and head tables */
77 int hmtx_tab
, maxp_tab
;
78 int num_of_written_tables
;
79 DWORD glyph_sent_size
;
85 #define GLYPH_SENT_INC 128
87 #define FLIP_ORDER(x) \
88 ( ( ((x) & 0xff) << 24) | \
89 ( ((x) & 0xff00) << 8) | \
90 ( ((x) & 0xff0000) >> 8) | \
91 ( ((x) & 0xff000000) >> 24) )
94 /* Some flags for composite glyphs. See glyf table in OT spec */
95 #define ARG_1_AND_2_ARE_WORDS (1L << 0)
96 #define WE_HAVE_A_SCALE (1L << 3)
97 #define MORE_COMPONENTS (1L << 5)
98 #define WE_HAVE_AN_X_AND_Y_SCALE (1L << 6)
99 #define WE_HAVE_A_TWO_BY_TWO (1L << 7)
102 static BOOL
LoadTable(HDC hdc
, OTTable
*table
)
106 if(table
->MS_tag
== MS_MAKE_TAG('g','d','i','r')) return TRUE
;
107 table
->len
= GetFontData(hdc
, table
->MS_tag
, 0, NULL
, 0);
108 table
->data
= HeapAlloc(GetProcessHeap(), 0, (table
->len
+ 3) & ~3 );
109 memset(table
->data
+ ((table
->len
- 1) & ~3), 0, sizeof(DWORD
));
110 GetFontData(hdc
, table
->MS_tag
, 0, table
->data
, table
->len
);
112 for(i
= 0; i
< (table
->len
+ 3) / 4; i
++)
113 table
->check
+= FLIP_ORDER(*((DWORD
*)(table
->data
) + i
));
117 static BOOL
get_glyf_pos(TYPE42
*t42
, DWORD index
, DWORD
*start
, DWORD
*end
)
119 WORD loca_format
= GET_BE_WORD(t42
->tables
[t42
->head_tab
].data
+ 50);
120 TRACE("loca_format = %d\n", loca_format
);
121 switch(loca_format
) {
123 *start
= GET_BE_WORD(((WORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
);
125 *end
= GET_BE_WORD(((WORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
+ 1);
129 *start
= GET_BE_DWORD(((DWORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
);
130 *end
= GET_BE_DWORD(((DWORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
+ 1);
133 ERR("Unknown loca_format %d\n", loca_format
);
139 TYPE42
*T42_download_header(PSDRV_PDEVICE
*physDev
, char *ps_name
,
140 RECT
*bbox
, UINT emsize
)
142 DWORD i
, j
, tablepos
, nb_blocks
, glyf_off
= 0, loca_off
= 0, cur_off
;
143 WORD num_of_tables
= sizeof(tables_templ
) / sizeof(tables_templ
[0]) - 1;
146 static const char start
[] = /* name, fontbbox */
148 " /FontName /%s def\n"
149 " /Encoding 256 array 0 1 255{1 index exch /.notdef put} for\n"
151 " /PaintType 0 def\n"
152 " /FontMatrix [1 0 0 1 0 0] def\n"
153 " /FontBBox [%f %f %f %f] def\n"
154 " /FontType 42 def\n"
155 " /CharStrings 256 dict begin\n"
157 " currentdict end def\n"
159 static const char TT_offset_table
[] = "<00010000%04x%04x%04x%04x\n";
160 static const char TT_table_dir_entry
[] = "%08lx%08lx%08lx%08lx\n";
161 static const char storage
[] ="]\nhavetype42gdir{pop}{{string} forall}ifelse\n";
162 static const char end
[] = "] def\n"
163 "havetype42gdir{/GlyphDirectory 256 dict def\n"
164 " sfnts 0 get dup %ld (locx) putinterval %ld (glfx) putinterval}if\n"
165 "currentdict end dup /FontName get exch definefont pop\n";
168 t42
= HeapAlloc(GetProcessHeap(), 0, sizeof(*t42
));
169 memcpy(t42
->tables
, tables_templ
, sizeof(tables_templ
));
170 t42
->loca_tab
= t42
->glyf_tab
= t42
->head_tab
= t42
->hmtx_tab
= -1;
171 t42
->emsize
= emsize
;
172 t42
->num_of_written_tables
= 0;
174 for(i
= 0; i
< num_of_tables
; i
++) {
175 LoadTable(physDev
->hdc
, t42
->tables
+ i
);
176 if(t42
->tables
[i
].len
> 0xffff && t42
->tables
[i
].write
) break;
177 if(t42
->tables
[i
].write
) t42
->num_of_written_tables
++;
178 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
180 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('g','l','y','f'))
182 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('h','e','a','d'))
184 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('h','m','t','x'))
186 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('m','a','x','p'))
189 if(i
< num_of_tables
) {
190 TRACE("Table %ld has length %ld. Will use Type 1 font instead.\n", i
, t42
->tables
[i
].len
);
195 t42
->glyph_sent_size
= GLYPH_SENT_INC
;
196 t42
->glyph_sent
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
197 t42
->glyph_sent_size
*
198 sizeof(*(t42
->glyph_sent
)));
200 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(start
) + strlen(ps_name
) +
203 push_lc_numeric("C");
204 sprintf(buf
, start
, ps_name
,
205 (float)bbox
->left
/ emsize
, (float)bbox
->bottom
/ emsize
,
206 (float)bbox
->right
/ emsize
, (float)bbox
->top
/ emsize
);
209 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
211 t42
->num_of_written_tables
++; /* explicitly add glyf */
212 sprintf(buf
, TT_offset_table
, t42
->num_of_written_tables
,
213 t42
->num_of_written_tables
, t42
->num_of_written_tables
, t42
->num_of_written_tables
);
215 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
217 tablepos
= 12 + t42
->num_of_written_tables
* 16;
219 for(i
= 0; i
< num_of_tables
; i
++) {
220 if(!t42
->tables
[i
].write
) continue;
221 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[i
].MS_tag
),
222 t42
->tables
[i
].check
, t42
->tables
[i
].len
? tablepos
: 0,
224 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
225 tablepos
+= ((t42
->tables
[i
].len
+ 3) & ~3);
226 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
230 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[t42
->glyf_tab
].MS_tag
),
231 t42
->tables
[t42
->glyf_tab
].check
, tablepos
, t42
->tables
[t42
->glyf_tab
].len
);
232 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
233 PSDRV_WriteSpool(physDev
, "00>\n", 4); /* add an extra byte for old PostScript rips */
236 for(i
= 0; i
< num_of_tables
; i
++) {
237 if(t42
->tables
[i
].len
== 0 || !t42
->tables
[i
].write
) continue;
238 PSDRV_WriteSpool(physDev
, "<", 1);
239 for(j
= 0; j
< ((t42
->tables
[i
].len
+ 3) & ~3); j
++) {
240 sprintf(buf
, "%02x", t42
->tables
[i
].data
[j
]);
241 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
242 if(j
% 16 == 15) PSDRV_WriteSpool(physDev
, "\n", 1);
244 PSDRV_WriteSpool(physDev
, "00>\n", 4); /* add an extra byte for old PostScript rips */
247 /* glyf_blocks is a 0 terminated list, holding the start offset of each block. For simplicity
248 glyf_blocks[0] is 0 */
250 t42
->glyf_blocks
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, (nb_blocks
+ 1) * sizeof(DWORD
));
251 for(i
= 0; i
< GET_BE_WORD(t42
->tables
[t42
->maxp_tab
].data
+ 4); i
++) {
252 DWORD start
, end
, size
;
253 get_glyf_pos(t42
, i
, &start
, &end
);
254 size
= end
- t42
->glyf_blocks
[nb_blocks
-2];
255 if(size
> 0x2000 && t42
->glyf_blocks
[nb_blocks
-1] % 4 == 0) {
257 t42
->glyf_blocks
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
258 t42
->glyf_blocks
, (nb_blocks
+ 1) * sizeof(DWORD
));
260 t42
->glyf_blocks
[nb_blocks
-1] = end
;
263 PSDRV_WriteSpool(physDev
, "[ ", 2);
264 for(i
= 1; t42
->glyf_blocks
[i
]; i
++) {
265 sprintf(buf
,"%ld ", t42
->glyf_blocks
[i
] - t42
->glyf_blocks
[i
-1] + 1);
266 /* again add one byte for old PostScript rips */
267 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
269 PSDRV_WriteSpool(physDev
, "\n", 1);
271 PSDRV_WriteSpool(physDev
, storage
, sizeof(storage
) - 1);
272 sprintf(buf
, end
, loca_off
, glyf_off
);
273 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
274 HeapFree(GetProcessHeap(), 0, buf
);
281 BOOL
T42_download_glyph(PSDRV_PDEVICE
*physDev
, DOWNLOAD
*pdl
, DWORD index
,
290 const char glyph_def
[] =
291 "/%s findfont exch 1 index\n"
293 "{/GlyphDirectory get begin %ld exch def end}\n"
294 "{/sfnts get 4 index get 3 index 2 index putinterval pop}\n"
302 TRACE("%ld %s\n", index
, glyph_name
);
303 assert(pdl
->type
== Type42
);
304 t42
= pdl
->typeinfo
.Type42
;
306 if(index
< t42
->glyph_sent_size
) {
307 if(t42
->glyph_sent
[index
])
310 t42
->glyph_sent_size
= (index
/ GLYPH_SENT_INC
+ 1) * GLYPH_SENT_INC
;
311 t42
->glyph_sent
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
313 t42
->glyph_sent_size
* sizeof(*(t42
->glyph_sent
)));
316 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(glyph_def
) +
317 strlen(pdl
->ps_name
) + 100);
319 if(!get_glyf_pos(t42
, index
, &start
, &end
)) return FALSE
;
320 TRACE("start = %lx end = %lx\n", start
, end
);
322 awidth
= GET_BE_WORD(t42
->tables
[t42
->hmtx_tab
].data
+ index
* 4);
323 lsb
= GET_BE_WORD(t42
->tables
[t42
->hmtx_tab
].data
+ index
* 4 + 2);
325 if(GET_BE_WORD(t42
->tables
[t42
->glyf_tab
].data
+ start
) == 0xffff) {
326 /* Composite glyph */
327 BYTE
*sg_start
= t42
->tables
[t42
->glyf_tab
].data
+ start
+ 10;
328 DWORD sg_flags
, sg_index
;
329 char sg_name
[MAX_G_NAME
+ 1];
332 sg_flags
= GET_BE_WORD(sg_start
);
333 sg_index
= GET_BE_WORD(sg_start
+ 2);
335 TRACE("Sending subglyph %04lx for glyph %04lx\n", sg_index
, index
);
336 get_glyph_name(physDev
->hdc
, sg_index
, sg_name
);
337 T42_download_glyph(physDev
, pdl
, sg_index
, sg_name
);
339 if(sg_flags
& ARG_1_AND_2_ARE_WORDS
)
343 if(sg_flags
& WE_HAVE_A_SCALE
)
345 else if(sg_flags
& WE_HAVE_AN_X_AND_Y_SCALE
)
347 else if(sg_flags
& WE_HAVE_A_TWO_BY_TWO
)
349 } while(sg_flags
& MORE_COMPONENTS
);
352 for(i
= 1; t42
->glyf_blocks
[i
]; i
++)
353 if(start
< t42
->glyf_blocks
[i
]) break;
354 /* we don't have a string for the gdir and glyf tables, but we do have a
355 string for the TT header. So the offset we need is tables - 2 */
356 sprintf(buf
, "%ld %ld\n", t42
->num_of_written_tables
- 2 + i
, start
- t42
->glyf_blocks
[i
-1]);
357 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
359 PSDRV_WriteSpool(physDev
, "<", 1);
360 for(i
= start
; i
< end
; i
++) {
361 sprintf(buf
, "%02x", *(t42
->tables
[t42
->glyf_tab
].data
+ i
));
362 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
363 if((i
- start
) % 16 == 15)
364 PSDRV_WriteSpool(physDev
, "\n", 1);
366 PSDRV_WriteSpool(physDev
, ">\n", 2);
367 sprintf(buf
, glyph_def
, pdl
->ps_name
, index
, glyph_name
, index
);
368 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
370 t42
->glyph_sent
[index
] = TRUE
;
371 HeapFree(GetProcessHeap(), 0, buf
);
375 void T42_free(TYPE42
*t42
)
378 for(table
= t42
->tables
; table
->MS_tag
; table
++)
379 HeapFree(GetProcessHeap(), 0, table
->data
);
380 HeapFree(GetProcessHeap(), 0, t42
->glyph_sent
);
381 HeapFree(GetProcessHeap(), 0, t42
->glyf_blocks
);
382 HeapFree(GetProcessHeap(), 0, t42
);