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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
33 #include "wine/debug.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(psdrv
);
38 #define GET_BE_WORD(ptr) MAKEWORD( ((BYTE *)(ptr))[1], ((BYTE *)(ptr))[0] )
39 #define GET_BE_DWORD(ptr) ((DWORD)MAKELONG( GET_BE_WORD(&((WORD *)(ptr))[1]), \
40 GET_BE_WORD(&((WORD *)(ptr))[0]) ))
42 #define MS_MAKE_TAG( _x1, _x2, _x3, _x4 ) \
43 ( ( (DWORD)_x4 << 24 ) | \
44 ( (DWORD)_x3 << 16 ) | \
45 ( (DWORD)_x2 << 8 ) | \
55 static const OTTable tables_templ
[] = {
56 { MS_MAKE_TAG('c','v','t',' '), 0, 0, NULL
, TRUE
},
57 { MS_MAKE_TAG('f','p','g','m'), 0, 0, NULL
, TRUE
},
58 { MS_MAKE_TAG('g','d','i','r'), 0, 0, NULL
, TRUE
},
59 { MS_MAKE_TAG('g','l','y','f'), 0, 0, NULL
, FALSE
},
60 { MS_MAKE_TAG('h','e','a','d'), 0, 0, NULL
, TRUE
},
61 { MS_MAKE_TAG('h','h','e','a'), 0, 0, NULL
, TRUE
},
62 { MS_MAKE_TAG('h','m','t','x'), 0, 0, NULL
, TRUE
},
63 { MS_MAKE_TAG('l','o','c','a'), 0, 0, NULL
, TRUE
},
64 { MS_MAKE_TAG('m','a','x','p'), 0, 0, NULL
, TRUE
},
65 { MS_MAKE_TAG('p','r','e','p'), 0, 0, NULL
, TRUE
},
70 OTTable tables
[ARRAY_SIZE(tables_templ
)];
71 int glyf_tab
, loca_tab
, head_tab
; /* indices of glyf, loca and head tables */
73 int num_of_written_tables
;
74 DWORD glyph_sent_size
;
80 #define GLYPH_SENT_INC 128
82 #define FLIP_ORDER(x) \
83 ( ( ((x) & 0xff) << 24) | \
84 ( ((x) & 0xff00) << 8) | \
85 ( ((x) & 0xff0000) >> 8) | \
86 ( ((x) & 0xff000000) >> 24) )
89 /* Some flags for composite glyphs. See glyf table in OT spec */
90 #define ARG_1_AND_2_ARE_WORDS (1L << 0)
91 #define WE_HAVE_A_SCALE (1L << 3)
92 #define MORE_COMPONENTS (1L << 5)
93 #define WE_HAVE_AN_X_AND_Y_SCALE (1L << 6)
94 #define WE_HAVE_A_TWO_BY_TWO (1L << 7)
97 static BOOL
LoadTable(HDC hdc
, OTTable
*table
)
102 if(table
->MS_tag
== MS_MAKE_TAG('g','d','i','r')) return TRUE
;
104 len
= GetFontData(hdc
, table
->MS_tag
, 0, NULL
, 0);
105 if(len
== GDI_ERROR
) return FALSE
;
106 table
->data
= HeapAlloc(GetProcessHeap(), 0, (len
+ 3) & ~3);
107 if(!table
->data
) return FALSE
;
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(print_ctx
*ctx
, 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
= ARRAY_SIZE(tables_templ
) - 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"
165 " %ld <6c6f6378000000000000000000000000> putinterval\n" /* replace loca entry with dummy locx */
166 " %ld <676c6678000000000000000000000000> putinterval\n" /* replace glyf entry with dummy glfx */
168 "currentdict end dup /FontName get exch definefont pop\n";
171 t42
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(*t42
));
172 memcpy(t42
->tables
, tables_templ
, sizeof(tables_templ
));
173 t42
->emsize
= emsize
;
174 t42
->num_of_written_tables
= 0;
176 for(i
= 0; i
< num_of_tables
; i
++) {
177 LoadTable(ctx
->hdc
, t42
->tables
+ i
);
178 if(t42
->tables
[i
].len
> 0xffff && t42
->tables
[i
].write
) break;
179 if(t42
->tables
[i
].write
) t42
->num_of_written_tables
++;
180 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
182 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('g','l','y','f'))
184 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('h','e','a','d'))
186 else if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('m','a','x','p'))
190 if(!t42
->tables
[i
].len
) break;
192 if(i
< num_of_tables
) {
193 TRACE("Table %ld has length %ld. Will use Type 1 font instead.\n", i
, t42
->tables
[i
].len
);
198 t42
->glyph_sent_size
= GLYPH_SENT_INC
;
199 t42
->glyph_sent
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
200 t42
->glyph_sent_size
*
201 sizeof(*(t42
->glyph_sent
)));
203 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(start
) + strlen(ps_name
) +
206 push_lc_numeric("C");
207 sprintf(buf
, start
, ps_name
,
208 (float)bbox
->left
/ emsize
, (float)bbox
->bottom
/ emsize
,
209 (float)bbox
->right
/ emsize
, (float)bbox
->top
/ emsize
);
212 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
214 t42
->num_of_written_tables
++; /* explicitly add glyf */
215 sprintf(buf
, TT_offset_table
, t42
->num_of_written_tables
,
216 t42
->num_of_written_tables
, t42
->num_of_written_tables
, t42
->num_of_written_tables
);
218 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
220 tablepos
= 12 + t42
->num_of_written_tables
* 16;
222 for(i
= 0; i
< num_of_tables
; i
++) {
223 if(!t42
->tables
[i
].write
) continue;
224 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[i
].MS_tag
),
225 t42
->tables
[i
].check
, t42
->tables
[i
].len
? tablepos
: 0,
227 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
228 tablepos
+= ((t42
->tables
[i
].len
+ 3) & ~3);
229 if(t42
->tables
[i
].MS_tag
== MS_MAKE_TAG('l','o','c','a'))
233 sprintf(buf
, TT_table_dir_entry
, FLIP_ORDER(t42
->tables
[t42
->glyf_tab
].MS_tag
),
234 t42
->tables
[t42
->glyf_tab
].check
, tablepos
, t42
->tables
[t42
->glyf_tab
].len
);
235 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
236 PSDRV_WriteSpool(ctx
, "00>\n", 4); /* add an extra byte for old PostScript rips */
239 for(i
= 0; i
< num_of_tables
; i
++) {
240 if(t42
->tables
[i
].len
== 0 || !t42
->tables
[i
].write
) continue;
241 PSDRV_WriteSpool(ctx
, "<", 1);
242 for(j
= 0; j
< ((t42
->tables
[i
].len
+ 3) & ~3); j
++) {
243 sprintf(buf
, "%02x", t42
->tables
[i
].data
[j
]);
244 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
245 if(j
% 16 == 15) PSDRV_WriteSpool(ctx
, "\n", 1);
247 PSDRV_WriteSpool(ctx
, "00>\n", 4); /* add an extra byte for old PostScript rips */
250 /* glyf_blocks is a 0 terminated list, holding the start offset of each block. For simplicity
251 glyf_blocks[0] is 0 */
253 t42
->glyf_blocks
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, (nb_blocks
+ 1) * sizeof(DWORD
));
254 for(i
= 0; i
< GET_BE_WORD(t42
->tables
[t42
->maxp_tab
].data
+ 4); i
++) {
255 DWORD start
, end
, size
;
256 get_glyf_pos(t42
, i
, &start
, &end
);
257 size
= end
- t42
->glyf_blocks
[nb_blocks
-2];
258 if(size
> 0x2000 && t42
->glyf_blocks
[nb_blocks
-1] % 4 == 0) {
260 t42
->glyf_blocks
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
261 t42
->glyf_blocks
, (nb_blocks
+ 1) * sizeof(DWORD
));
263 t42
->glyf_blocks
[nb_blocks
-1] = end
;
266 PSDRV_WriteSpool(ctx
, "[ ", 2);
267 for(i
= 1; t42
->glyf_blocks
[i
]; i
++) {
268 sprintf(buf
,"%ld ", t42
->glyf_blocks
[i
] - t42
->glyf_blocks
[i
-1] + 1);
269 /* again add one byte for old PostScript rips */
270 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
272 PSDRV_WriteSpool(ctx
, "\n", 1);
274 PSDRV_WriteSpool(ctx
, storage
, sizeof(storage
) - 1);
275 sprintf(buf
, end
, loca_off
, glyf_off
);
276 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
277 HeapFree(GetProcessHeap(), 0, buf
);
284 BOOL
T42_download_glyph(print_ctx
*ctx
, DOWNLOAD
*pdl
, DWORD index
,
291 static const char glyph_def
[] =
292 "/%s findfont exch 1 index\n"
294 "{/GlyphDirectory get begin %ld exch def end}\n"
295 "{/sfnts get 4 index get 3 index 2 index putinterval pop}\n"
303 TRACE("%ld %s\n", index
, glyph_name
);
304 assert(pdl
->type
== Type42
);
305 t42
= pdl
->typeinfo
.Type42
;
307 if(index
< t42
->glyph_sent_size
) {
308 if(t42
->glyph_sent
[index
])
311 t42
->glyph_sent_size
= (index
/ GLYPH_SENT_INC
+ 1) * GLYPH_SENT_INC
;
312 t42
->glyph_sent
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
314 t42
->glyph_sent_size
* sizeof(*(t42
->glyph_sent
)));
317 if(!get_glyf_pos(t42
, index
, &start
, &end
)) return FALSE
;
318 TRACE("start = %lx end = %lx\n", start
, end
);
320 if(GET_BE_WORD(t42
->tables
[t42
->glyf_tab
].data
+ start
) == 0xffff) {
321 /* Composite glyph */
322 BYTE
*sg_start
= t42
->tables
[t42
->glyf_tab
].data
+ start
+ 10;
323 DWORD sg_flags
, sg_index
;
324 char sg_name
[MAX_G_NAME
+ 1];
327 sg_flags
= GET_BE_WORD(sg_start
);
328 sg_index
= GET_BE_WORD(sg_start
+ 2);
330 TRACE("Sending subglyph %04lx for glyph %04lx\n", sg_index
, index
);
331 get_glyph_name(ctx
->hdc
, sg_index
, sg_name
);
332 T42_download_glyph(ctx
, pdl
, sg_index
, sg_name
);
334 if(sg_flags
& ARG_1_AND_2_ARE_WORDS
)
338 if(sg_flags
& WE_HAVE_A_SCALE
)
340 else if(sg_flags
& WE_HAVE_AN_X_AND_Y_SCALE
)
342 else if(sg_flags
& WE_HAVE_A_TWO_BY_TWO
)
344 } while(sg_flags
& MORE_COMPONENTS
);
347 for(i
= 1; t42
->glyf_blocks
[i
]; i
++)
348 if(start
< t42
->glyf_blocks
[i
]) break;
350 buf
= HeapAlloc(GetProcessHeap(), 0, sizeof(glyph_def
) +
351 strlen(pdl
->ps_name
) + 100);
353 /* we don't have a string for the gdir and glyf tables, but we do have a
354 string for the TT header. So the offset we need is tables - 2 */
355 sprintf(buf
, "%ld %ld\n", t42
->num_of_written_tables
- 2 + i
, start
- t42
->glyf_blocks
[i
-1]);
356 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
358 PSDRV_WriteSpool(ctx
, "<", 1);
359 for(i
= start
; i
< end
; i
++) {
360 sprintf(buf
, "%02x", *(t42
->tables
[t42
->glyf_tab
].data
+ i
));
361 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
362 if((i
- start
) % 16 == 15)
363 PSDRV_WriteSpool(ctx
, "\n", 1);
365 PSDRV_WriteSpool(ctx
, ">\n", 2);
366 sprintf(buf
, glyph_def
, pdl
->ps_name
, index
, glyph_name
, index
);
367 PSDRV_WriteSpool(ctx
, buf
, strlen(buf
));
369 t42
->glyph_sent
[index
] = TRUE
;
370 HeapFree(GetProcessHeap(), 0, buf
);
374 void T42_free(TYPE42
*t42
)
377 for(table
= t42
->tables
; table
->MS_tag
; table
++)
378 HeapFree(GetProcessHeap(), 0, table
->data
);
379 HeapFree(GetProcessHeap(), 0, t42
->glyph_sent
);
380 HeapFree(GetProcessHeap(), 0, t42
->glyf_blocks
);
381 HeapFree(GetProcessHeap(), 0, t42
);