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
33 #include "wine/debug.h"
35 #include "wine/port.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(psdrv
);
40 #define GET_BE_WORD(ptr) MAKEWORD( ((BYTE *)(ptr))[1], ((BYTE *)(ptr))[0] )
41 #define GET_BE_DWORD(ptr) ((DWORD)MAKELONG( GET_BE_WORD(&((WORD *)(ptr))[1]), \
42 GET_BE_WORD(&((WORD *)(ptr))[0]) ))
44 #define MS_MAKE_TAG( _x1, _x2, _x3, _x4 ) \
45 ( ( (DWORD)_x4 << 24 ) | \
46 ( (DWORD)_x3 << 16 ) | \
47 ( (DWORD)_x2 << 8 ) | \
57 const OTTable tables_templ
[] = {
58 { MS_MAKE_TAG('c','v','t',' '), 0, 0, NULL
, TRUE
},
59 { MS_MAKE_TAG('f','p','g','m'), 0, 0, NULL
, TRUE
},
60 { MS_MAKE_TAG('g','d','i','r'), 0, 0, NULL
, TRUE
},
61 { MS_MAKE_TAG('g','l','y','f'), 0, 0, NULL
, FALSE
},
62 { MS_MAKE_TAG('h','e','a','d'), 0, 0, NULL
, TRUE
},
63 { MS_MAKE_TAG('h','h','e','a'), 0, 0, NULL
, TRUE
},
64 { MS_MAKE_TAG('h','m','t','x'), 0, 0, NULL
, TRUE
},
65 { MS_MAKE_TAG('l','o','c','a'), 0, 0, NULL
, TRUE
},
66 { MS_MAKE_TAG('m','a','x','p'), 0, 0, NULL
, TRUE
},
67 { MS_MAKE_TAG('p','r','e','p'), 0, 0, NULL
, TRUE
},
72 OTTable tables
[sizeof(tables_templ
)/sizeof(tables_templ
[0])];
73 int glyf_tab
, loca_tab
, head_tab
; /* indices of glyf, loca and head tables */
74 int hmtx_tab
, maxp_tab
;
75 int num_of_written_tables
;
76 DWORD glyph_sent_size
;
82 #define GLYPH_SENT_INC 128
84 #define FLIP_ORDER(x) \
85 ( ( ((x) & 0xff) << 24) | \
86 ( ((x) & 0xff00) << 8) | \
87 ( ((x) & 0xff0000) >> 8) | \
88 ( ((x) & 0xff000000) >> 24) )
91 /* Some flags for composite glyphs. See glyf table in OT spec */
92 #define ARG_1_AND_2_ARE_WORDS (1L << 0)
93 #define WE_HAVE_A_SCALE (1L << 3)
94 #define MORE_COMPONENTS (1L << 5)
95 #define WE_HAVE_AN_X_AND_Y_SCALE (1L << 6)
96 #define WE_HAVE_A_TWO_BY_TWO (1L << 7)
99 static BOOL
LoadTable(HDC hdc
, OTTable
*table
)
103 if(table
->MS_tag
== MS_MAKE_TAG('g','d','i','r')) return TRUE
;
104 table
->len
= GetFontData(hdc
, table
->MS_tag
, 0, NULL
, 0);
105 table
->data
= HeapAlloc(GetProcessHeap(), 0, (table
->len
+ 3) & ~3 );
106 memset(table
->data
+ ((table
->len
- 1) & ~3), 0, sizeof(DWORD
));
107 GetFontData(hdc
, table
->MS_tag
, 0, table
->data
, table
->len
);
109 for(i
= 0; i
< (table
->len
+ 3) / 4; i
++)
110 table
->check
+= FLIP_ORDER(*((DWORD
*)(table
->data
) + i
));
114 static BOOL
get_glyf_pos(TYPE42
*t42
, DWORD index
, DWORD
*start
, DWORD
*end
)
116 WORD loca_format
= GET_BE_WORD(t42
->tables
[t42
->head_tab
].data
+ 50);
117 TRACE("loca_format = %d\n", loca_format
);
118 switch(loca_format
) {
120 *start
= GET_BE_WORD(((WORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
);
122 *end
= GET_BE_WORD(((WORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
+ 1);
126 *start
= GET_BE_DWORD(((DWORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
);
127 *end
= GET_BE_DWORD(((DWORD
*)t42
->tables
[t42
->loca_tab
].data
) + index
+ 1);
130 ERR("Unknown loca_format %d\n", loca_format
);
136 TYPE42
*T42_download_header(PSDRV_PDEVICE
*physDev
, LPOUTLINETEXTMETRICA potm
,
139 DWORD i
, j
, tablepos
, nb_blocks
, glyf_off
= 0, loca_off
= 0, cur_off
;
140 WORD num_of_tables
= sizeof(tables_templ
) / sizeof(tables_templ
[0]) - 1;
143 char start
[] = /* name, fontbbox */
145 " /FontName /%s def\n"
146 " /Encoding 256 array 0 1 255{1 index exch /.notdef put} for\n"
148 " /PaintType 0 def\n"
149 " /FontMatrix [1 0 0 1 0 0] def\n"
150 " /FontBBox [%f %f %f %f] def\n"
151 " /FontType 42 def\n"
152 " /CharStrings 256 dict begin\n"
154 " currentdict end def\n"
156 char TT_offset_table
[] = "<00010000%04x%04x%04x%04x\n";
157 char TT_table_dir_entry
[] = "%08lx%08lx%08lx%08lx\n";
158 char storage
[] ="]\nhavetype42gdir{pop}{{string} forall}ifelse\n";
159 char end
[] = "] def\n"
160 "havetype42gdir{/GlyphDirectory 256 dict def\n"
161 " sfnts 0 get dup %d (x) putinterval %d (x) putinterval}if\n"
162 "currentdict end dup /FontName get exch definefont pop\n";
165 t42
= HeapAlloc(GetProcessHeap(), 0, sizeof(*t42
));
166 memcpy(t42
->tables
, tables_templ
, sizeof(tables_templ
));
167 t42
->loca_tab
= t42
->glyf_tab
= t42
->head_tab
= t42
->hmtx_tab
= -1;
168 t42
->emsize
= potm
->otmEMSquare
;
169 t42
->num_of_written_tables
= 0;
171 for(i
= 0; i
< num_of_tables
; i
++) {
172 LoadTable(physDev
->hdc
, t42
->tables
+ i
);
173 if(t42
->tables
[i
].len
> 0xffff && t42
->tables
[i
].write
) break;
174 if(t42
->tables
[i
].write
) t42
->num_of_written_tables
++;
175 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
177 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('g','l','y','f'))
179 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('h','e','a','d'))
181 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('h','m','t','x'))
183 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('m','a','x','p'))
186 if(i
< num_of_tables
) {
187 TRACE("Table %ld has length %ld. Will use Type 1 font instead.\n", i
, t42
->tables
[i
].len
);
192 t42
->glyph_sent_size
= GLYPH_SENT_INC
;
193 t42
->glyph_sent
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
194 t42
->glyph_sent_size
*
195 sizeof(*(t42
->glyph_sent
)));
197 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(start
) + strlen(ps_name
) +
200 sprintf(buf
, start
, ps_name
,
201 (float)potm
->otmrcFontBox
.left
/ potm
->otmEMSquare
,
202 (float)potm
->otmrcFontBox
.bottom
/ potm
->otmEMSquare
,
203 (float)potm
->otmrcFontBox
.right
/ potm
->otmEMSquare
,
204 (float)potm
->otmrcFontBox
.top
/ potm
->otmEMSquare
);
206 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
208 t42
->num_of_written_tables
++; /* explicitly add glyf */
209 sprintf(buf
, TT_offset_table
, t42
->num_of_written_tables
,
210 t42
->num_of_written_tables
, t42
->num_of_written_tables
, t42
->num_of_written_tables
);
212 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
214 tablepos
= 12 + t42
->num_of_written_tables
* 16;
216 for(i
= 0; i
< num_of_tables
; i
++) {
217 if(!t42
->tables
[i
].write
) continue;
218 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[i
].MS_tag
),
219 t42
->tables
[i
].check
, t42
->tables
[i
].len
? tablepos
: 0,
221 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
222 tablepos
+= ((t42
->tables
[i
].len
+ 3) & ~3);
223 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
227 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[t42
->glyf_tab
].MS_tag
),
228 t42
->tables
[t42
->glyf_tab
].check
, tablepos
, t42
->tables
[t42
->glyf_tab
].len
);
229 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
230 PSDRV_WriteSpool(physDev
, "00>\n", 4); /* add an extra byte for old PostScript rips */
233 for(i
= 0; i
< num_of_tables
; i
++) {
234 if(t42
->tables
[i
].len
== 0 || !t42
->tables
[i
].write
) continue;
235 PSDRV_WriteSpool(physDev
, "<", 1);
236 for(j
= 0; j
< ((t42
->tables
[i
].len
+ 3) & ~3); j
++) {
237 sprintf(buf
, "%02x", t42
->tables
[i
].data
[j
]);
238 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
239 if(j
% 16 == 15) PSDRV_WriteSpool(physDev
, "\n", 1);
241 PSDRV_WriteSpool(physDev
, "00>\n", 4); /* add an extra byte for old PostScript rips */
244 /* glyf_blocks is a 0 terminated list, holding the start offset of each block. For simplicity
245 glyf_blocks[0] is 0 */
247 t42
->glyf_blocks
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, (nb_blocks
+ 1) * sizeof(DWORD
));
248 for(i
= 0; i
< GET_BE_WORD(t42
->tables
[t42
->maxp_tab
].data
+ 4); i
++) {
249 DWORD start
, end
, size
;
250 get_glyf_pos(t42
, i
, &start
, &end
);
251 size
= end
- t42
->glyf_blocks
[nb_blocks
-2];
252 if(size
> 0x2000 && t42
->glyf_blocks
[nb_blocks
-1] % 4 == 0) {
254 t42
->glyf_blocks
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
255 t42
->glyf_blocks
, (nb_blocks
+ 1) * sizeof(DWORD
));
257 t42
->glyf_blocks
[nb_blocks
-1] = end
;
260 PSDRV_WriteSpool(physDev
, "[ ", 2);
261 for(i
= 1; t42
->glyf_blocks
[i
]; i
++) {
262 sprintf(buf
,"%ld ", t42
->glyf_blocks
[i
] - t42
->glyf_blocks
[i
-1] + 1);
263 /* again add one byte for old PostScript rips */
264 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
266 PSDRV_WriteSpool(physDev
, "\n", 1);
268 PSDRV_WriteSpool(physDev
, storage
, sizeof(storage
) - 1);
269 sprintf(buf
, end
, loca_off
, glyf_off
);
270 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
271 HeapFree(GetProcessHeap(), 0, buf
);
278 BOOL
T42_download_glyph(PSDRV_PDEVICE
*physDev
, DOWNLOAD
*pdl
, DWORD index
,
288 "/%s findfont exch 1 index\n"
290 "{/GlyphDirectory get begin %d exch def end}\n"
291 "{/sfnts get 4 index get 3 index 2 index putinterval pop}\n"
299 TRACE("%ld %s\n", index
, glyph_name
);
300 assert(pdl
->type
== Type42
);
301 t42
= pdl
->typeinfo
.Type42
;
303 if(index
< t42
->glyph_sent_size
) {
304 if(t42
->glyph_sent
[index
])
307 t42
->glyph_sent_size
= (index
/ GLYPH_SENT_INC
+ 1) * GLYPH_SENT_INC
;
308 t42
->glyph_sent
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
310 t42
->glyph_sent_size
* sizeof(*(t42
->glyph_sent
)));
313 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(glyph_def
) +
314 strlen(pdl
->ps_name
) + 100);
316 if(!get_glyf_pos(t42
, index
, &start
, &end
)) return FALSE
;
317 TRACE("start = %lx end = %lx\n", start
, end
);
319 awidth
= GET_BE_WORD(t42
->tables
[t42
->hmtx_tab
].data
+ index
* 4);
320 lsb
= GET_BE_WORD(t42
->tables
[t42
->hmtx_tab
].data
+ index
* 4 + 2);
322 if(GET_BE_WORD(t42
->tables
[t42
->glyf_tab
].data
+ start
) == 0xffff) {
323 /* Composite glyph */
324 char *sg_start
= t42
->tables
[t42
->glyf_tab
].data
+ start
+ 10;
325 DWORD sg_flags
, sg_index
;
326 char sg_name
[MAX_G_NAME
+ 1];
329 sg_flags
= GET_BE_WORD(sg_start
);
330 sg_index
= GET_BE_WORD(sg_start
+ 2);
332 TRACE("Sending subglyph %04lx for glyph %04lx\n", sg_index
, index
);
333 get_glyph_name(physDev
->hdc
, sg_index
, sg_name
);
334 T42_download_glyph(physDev
, pdl
, sg_index
, sg_name
);
336 if(sg_flags
& ARG_1_AND_2_ARE_WORDS
)
340 if(sg_flags
& WE_HAVE_A_SCALE
)
342 else if(sg_flags
& WE_HAVE_AN_X_AND_Y_SCALE
)
344 else if(sg_flags
& WE_HAVE_A_TWO_BY_TWO
)
346 } while(sg_flags
& MORE_COMPONENTS
);
349 for(i
= 1; t42
->glyf_blocks
[i
]; i
++)
350 if(start
< t42
->glyf_blocks
[i
]) break;
351 /* we don't have a string for the gdir and glyf tables, but we do have a
352 string for the TT header. So the offset we need is tables - 2 */
353 sprintf(buf
, "%ld %ld\n", t42
->num_of_written_tables
- 2 + i
, start
- t42
->glyf_blocks
[i
-1]);
354 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
356 PSDRV_WriteSpool(physDev
, "<", 1);
357 for(i
= start
; i
< end
; i
++) {
358 sprintf(buf
, "%02x", *(t42
->tables
[t42
->glyf_tab
].data
+ i
));
359 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
360 if((i
- start
) % 16 == 15)
361 PSDRV_WriteSpool(physDev
, "\n", 1);
363 PSDRV_WriteSpool(physDev
, ">\n", 2);
364 sprintf(buf
, glyph_def
, pdl
->ps_name
, index
, glyph_name
, index
);
365 PSDRV_WriteSpool(physDev
, buf
, strlen(buf
));
367 t42
->glyph_sent
[index
] = TRUE
;
368 HeapFree(GetProcessHeap(), 0, buf
);
372 void T42_free(TYPE42
*t42
)
375 for(table
= t42
->tables
; table
->MS_tag
; table
++)
376 if(table
->data
) HeapFree(GetProcessHeap(), 0, table
->data
);
377 if(t42
->glyph_sent
) HeapFree(GetProcessHeap(), 0, t42
->glyph_sent
);
378 if(t42
->glyf_blocks
) HeapFree(GetProcessHeap(), 0, t42
->glyf_blocks
);
379 HeapFree(GetProcessHeap(), 0, t42
);