wined3d: Don't change the draw buffer in IWineD3DDeviceImpl_SetFrontBackBuffers().
[wine] / tools / fnt2fon.c
1 /*
2  * fnttofon.  Combine several fnt files in one fon file
3  *
4  * Copyright 2004 Huw Davies
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #include "config.h"
22 #include "wine/port.h"
23
24 #include <signal.h>
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <string.h>
28 #ifdef HAVE_UNISTD_H
29 # include <unistd.h>
30 #endif
31 #include <errno.h>
32 #include <fcntl.h>
33 #ifdef HAVE_IO_H
34 # include <io.h>
35 #endif
36
37 #include "windef.h"
38 #include "pshpack1.h"
39
40 typedef struct
41 {
42     INT16 dfType;
43     INT16 dfPoints;
44     INT16 dfVertRes;
45     INT16 dfHorizRes;
46     INT16 dfAscent;
47     INT16 dfInternalLeading;
48     INT16 dfExternalLeading;
49     BYTE  dfItalic;
50     BYTE  dfUnderline;
51     BYTE  dfStrikeOut;
52     INT16 dfWeight;
53     BYTE  dfCharSet;
54     INT16 dfPixWidth;
55     INT16 dfPixHeight;
56     BYTE  dfPitchAndFamily;
57     INT16 dfAvgWidth;
58     INT16 dfMaxWidth;
59     BYTE  dfFirstChar;
60     BYTE  dfLastChar;
61     BYTE  dfDefaultChar;
62     BYTE  dfBreakChar;
63     INT16 dfWidthBytes;
64     LONG  dfDevice;
65     LONG  dfFace;
66     LONG  dfBitsPointer;
67     LONG  dfBitsOffset;
68     BYTE  dfReserved;
69     LONG  dfFlags;
70     INT16 dfAspace;
71     INT16 dfBspace;
72     INT16 dfCspace;
73     LONG  dfColorPointer;
74     LONG  dfReserved1[4];
75 } FONTINFO16;
76
77 typedef struct
78 {
79     WORD  offset;
80     WORD  length;
81     WORD  flags;
82     WORD  id;
83     WORD  handle;
84     WORD  usage;
85 } NE_NAMEINFO;
86
87 typedef struct
88 {
89     WORD  type_id;
90     WORD  count;
91     DWORD resloader;
92 } NE_TYPEINFO;
93
94 #define NE_FFLAGS_SINGLEDATA    0x0001
95 #define NE_FFLAGS_MULTIPLEDATA  0x0002
96 #define NE_FFLAGS_WIN32         0x0010
97 #define NE_FFLAGS_FRAMEBUF      0x0100
98 #define NE_FFLAGS_CONSOLE       0x0200
99 #define NE_FFLAGS_GUI           0x0300
100 #define NE_FFLAGS_SELFLOAD      0x0800
101 #define NE_FFLAGS_LINKERROR     0x2000
102 #define NE_FFLAGS_CALLWEP       0x4000
103 #define NE_FFLAGS_LIBMODULE     0x8000
104
105 #define NE_OSFLAGS_WINDOWS      0x02
106
107 #define NE_RSCTYPE_FONTDIR            0x8007
108 #define NE_RSCTYPE_FONT               0x8008
109 #define NE_RSCTYPE_SCALABLE_FONTPATH  0x80cc
110
111 #define NE_SEGFLAGS_DATA        0x0001
112 #define NE_SEGFLAGS_ALLOCATED   0x0002
113 #define NE_SEGFLAGS_LOADED      0x0004
114 #define NE_SEGFLAGS_ITERATED    0x0008
115 #define NE_SEGFLAGS_MOVEABLE    0x0010
116 #define NE_SEGFLAGS_SHAREABLE   0x0020
117 #define NE_SEGFLAGS_PRELOAD     0x0040
118 #define NE_SEGFLAGS_EXECUTEONLY 0x0080
119 #define NE_SEGFLAGS_READONLY    0x0080
120 #define NE_SEGFLAGS_RELOC_DATA  0x0100
121 #define NE_SEGFLAGS_SELFLOAD    0x0800
122 #define NE_SEGFLAGS_DISCARDABLE 0x1000
123 #define NE_SEGFLAGS_32BIT       0x2000
124
125 struct _fnt_header
126 {
127     SHORT dfVersion;
128     LONG dfSize;
129     char dfCopyright[60];
130     FONTINFO16 fi;
131 };
132 #include "poppack.h"
133
134 static const BYTE MZ_hdr[] = {'M',  'Z',  0x0d, 0x01, 0x01, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
135                  0xb8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
136                  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
137                  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00,
138                  0x0e, 0x1f, 0xba, 0x0e, 0x00, 0xb4, 0x09, 0xcd, 0x21, 0xb8, 0x01, 0x4c, 0xcd, 0x21, 'T',  'h',
139                  'i',  's',  ' ',  'P',  'r',  'o',  'g',  'r',  'a',  'm',  ' ',  'c',  'a',  'n',  'n',  'o',
140                  't',  ' ',  'b',  'e',  ' ',  'r',  'u',  'n',  ' ',  'i',  'n',  ' ',  'D',  'O',  'S',  ' ',
141                  'm',  'o',  'd',  'e',  0x0d, 0x0a, 0x24, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
142 };
143
144 static const char *output_file;
145
146 static void cleanup_files(void)
147 {
148     if (output_file) unlink( output_file );
149 }
150
151 static void exit_on_signal( int sig )
152 {
153     exit(1);  /* this will call the atexit functions */
154 }
155
156 static void usage(char **argv)
157 {
158     fprintf(stderr, "%s fntfiles output.fon\n", argv[0]);
159     return;
160 }
161
162 #ifndef __GNUC__
163 #define __attribute__(X)
164 #endif
165
166 int main(int argc, char **argv)
167 {
168     int i, j;
169     FILE *fp, *ofp;
170     long off;
171     char name[200];
172     int c;
173     char *cp;
174     short pt, ver, dpi[2], align, num_files;
175     int resource_table_len, non_resident_name_len, resident_name_len;
176     unsigned short resource_table_off, resident_name_off, module_ref_off, non_resident_name_off, fontdir_off, font_off;
177     char resident_name[200] = "";
178     int fontdir_len = 2;
179     char non_resident_name[200] = "";
180     int *file_lens, nread;
181     unsigned short first_res = 0x0050, pad, res;
182     struct _fnt_header *fnt_header;
183     char buf[0x1000];
184     IMAGE_OS2_HEADER NE_hdr;
185     NE_TYPEINFO rc_type;
186     NE_NAMEINFO rc_name;
187
188     if(argc < 3) {
189         usage(argv);
190         exit(1);
191     }
192
193     num_files = argc - 2;
194     file_lens = malloc(num_files * sizeof(int));
195     for(i = 0; i < num_files; i++) {
196         fp = fopen(argv[i+1], "rb");
197         if(!fp) {
198             fprintf(stderr, "error: unable to open %s for reading: %s\n", argv[i+1], strerror(errno));
199             usage(argv);
200             exit(1);
201         }
202         fread(&ver, sizeof(short), 1, fp);
203         if(ver != 0x200 && ver != 0x300) {
204             fprintf(stderr, "error: invalid fnt file %s ver %d\n", argv[i+1], ver);
205             exit(1);
206         }
207         fread(file_lens + i, sizeof(int), 1, fp);
208         fseek(fp, 0x44, SEEK_SET);
209         fread(&pt, sizeof(short), 1, fp);
210         fread(dpi, sizeof(short), 2, fp);
211         fseek(fp, 0x69, SEEK_SET);
212         fread(&off, sizeof(long), 1, fp);
213         fseek(fp, off, SEEK_SET);
214         cp = name;
215         while((c = fgetc(fp)) != 0 && c != EOF)
216             *cp++ = c;
217         *cp = '\0';
218         fprintf(stderr, "%s %d pts %dx%d dpi\n", name, pt, dpi[0], dpi[1]);
219         fclose(fp);
220         /* fontdir entries for version 3 fonts are the same as for version 2 */
221         fontdir_len += 0x74 + strlen(name) + 1;
222         if(i == 0) {
223             sprintf(non_resident_name, "FONTRES 100,%d,%d : %s %d", dpi[0], dpi[1], name, pt);
224             strcpy(resident_name, name);
225         } else {
226             sprintf(non_resident_name + strlen(non_resident_name), ",%d", pt);
227         }
228     }
229     if(dpi[0] <= 108)
230         strcat(non_resident_name, " (VGA res)");
231     else
232         strcat(non_resident_name, " (8514 res)");
233     non_resident_name_len = strlen(non_resident_name) + 4;
234
235     /* shift count + fontdir entry + num_files of font + nul type + \007FONTDIR */
236     resource_table_len = sizeof(align) + sizeof("FONTDIR") +
237                          sizeof(NE_TYPEINFO) + sizeof(NE_NAMEINFO) +
238                          sizeof(NE_TYPEINFO) + sizeof(NE_NAMEINFO) * num_files +
239                          sizeof(NE_TYPEINFO);
240     resource_table_off = sizeof(NE_hdr);
241     resident_name_off = resource_table_off + resource_table_len;
242     resident_name_len = strlen(resident_name) + 4;
243     module_ref_off = resident_name_off + resident_name_len;
244     non_resident_name_off = sizeof(MZ_hdr) + module_ref_off + sizeof(align);
245
246     memset(&NE_hdr, 0, sizeof(NE_hdr));
247     NE_hdr.ne_magic = 0x454e;
248     NE_hdr.ne_ver = 5;
249     NE_hdr.ne_rev = 1;
250     NE_hdr.ne_flags = NE_FFLAGS_LIBMODULE | NE_FFLAGS_GUI;
251     NE_hdr.ne_cbnrestab = non_resident_name_len;
252     NE_hdr.ne_segtab = sizeof(NE_hdr);
253     NE_hdr.ne_rsrctab = sizeof(NE_hdr);
254     NE_hdr.ne_restab = resident_name_off;
255     NE_hdr.ne_modtab = module_ref_off;
256     NE_hdr.ne_imptab = module_ref_off;
257     NE_hdr.ne_enttab = NE_hdr.ne_modtab;
258     NE_hdr.ne_nrestab = non_resident_name_off;
259     NE_hdr.ne_align = 4;
260     NE_hdr.ne_exetyp = NE_OSFLAGS_WINDOWS;
261     NE_hdr.ne_expver = 0x400;
262
263     fontdir_off = (non_resident_name_off + non_resident_name_len + 15) & ~0xf;
264     font_off = (fontdir_off + fontdir_len + 15) & ~0x0f;
265
266     atexit( cleanup_files );
267     signal( SIGTERM, exit_on_signal );
268     signal( SIGINT, exit_on_signal );
269 #ifdef SIGHUP
270     signal( SIGHUP, exit_on_signal );
271 #endif
272
273     output_file = argv[argc - 1];
274     ofp = fopen(output_file, "wb");
275
276     fwrite(MZ_hdr, sizeof(MZ_hdr), 1, ofp);
277     fwrite(&NE_hdr, sizeof(NE_hdr), 1, ofp);
278
279     align = 4;
280     fwrite(&align, sizeof(align), 1, ofp);
281
282     rc_type.type_id = NE_RSCTYPE_FONTDIR;
283     rc_type.count = 1;
284     rc_type.resloader = 0;
285     fwrite(&rc_type, sizeof(rc_type), 1, ofp);
286
287     rc_name.offset = fontdir_off >> 4;
288     rc_name.length = (fontdir_len + 15) >> 4;
289     rc_name.flags = NE_SEGFLAGS_MOVEABLE | NE_SEGFLAGS_PRELOAD;
290     rc_name.id = resident_name_off - sizeof("FONTDIR") - NE_hdr.ne_rsrctab;
291     rc_name.handle = 0;
292     rc_name.usage = 0;
293     fwrite(&rc_name, sizeof(rc_name), 1, ofp);
294
295     rc_type.type_id = NE_RSCTYPE_FONT;
296     rc_type.count = num_files;
297     rc_type.resloader = 0;
298     fwrite(&rc_type, sizeof(rc_type), 1, ofp);
299
300     for(res = first_res | 0x8000, i = 0; i < num_files; i++, res++) {
301         int len = (file_lens[i] + 15) & ~0xf;
302
303         rc_name.offset = font_off >> 4;
304         rc_name.length = len >> 4;
305         rc_name.flags = NE_SEGFLAGS_MOVEABLE | NE_SEGFLAGS_SHAREABLE | NE_SEGFLAGS_DISCARDABLE;
306         rc_name.id = res;
307         rc_name.handle = 0;
308         rc_name.usage = 0;
309         fwrite(&rc_name, sizeof(rc_name), 1, ofp);
310
311         font_off += len;
312     }
313
314     /* empty type info */
315     memset(&rc_type, 0, sizeof(rc_type));
316     fwrite(&rc_type, sizeof(rc_type), 1, ofp);
317
318     fputc(strlen("FONTDIR"), ofp);
319     fwrite("FONTDIR", strlen("FONTDIR"), 1, ofp);
320     fputc(strlen(resident_name), ofp);
321     fwrite(resident_name, strlen(resident_name), 1, ofp);
322
323     fputc(0x00, ofp);    fputc(0x00, ofp);
324     fputc(0x00, ofp);
325     fputc(0x00, ofp);    fputc(0x00, ofp);
326
327     fputc(strlen(non_resident_name), ofp);
328     fwrite(non_resident_name, strlen(non_resident_name), 1, ofp);
329     fputc(0x00, ofp); /* terminator */
330
331     /* empty ne_modtab and ne_imptab */
332     fputc(0x00, ofp);
333     fputc(0x00, ofp);
334
335     pad = ftell(ofp) & 0xf;
336     if(pad != 0)
337         pad = 0x10 - pad;
338     for(i = 0; i < pad; i++)
339         fputc(0x00, ofp);
340
341     /* FONTDIR resource */
342     fwrite(&num_files, sizeof(num_files), 1, ofp);
343     
344     for(res = first_res, i = 0; i < num_files; i++, res++) {
345         fp = fopen(argv[i+1], "rb");
346
347         fwrite(&res, sizeof(res), 1, ofp);
348         fread(buf, 0x72, 1, fp);
349
350         fnt_header = (struct _fnt_header *)buf;
351         fseek(fp, fnt_header->fi.dfFace, SEEK_SET);
352         fnt_header->fi.dfBitsOffset = 0;
353         fwrite(buf, 0x72, 1, ofp);
354
355         cp = name;
356         while((c = fgetc(fp)) != 0 && c != EOF)
357             *cp++ = c;
358         *cp = '\0';
359         fwrite(name, strlen(name) + 1, 1, ofp);
360         fclose(fp);
361     }
362
363     pad = ftell(ofp) & 0xf;
364     if(pad != 0)
365         pad = 0x10 - pad;
366     for(i = 0; i < pad; i++)
367         fputc(0x00, ofp);
368
369     for(res = first_res, i = 0; i < num_files; i++, res++) {
370         fp = fopen(argv[i+1], "rb");
371
372         while(1) {
373             nread = read(fileno(fp), buf, sizeof(buf));
374             if(!nread) break;
375             fwrite(buf, nread, 1, ofp);
376         }
377         fclose(fp);
378         pad = file_lens[i] & 0xf;
379         if(pad != 0)
380             pad = 0x10 - pad;
381         for(j = 0; j < pad; j++)
382             fputc(0x00, ofp);
383     }
384     fclose(ofp);
385     output_file = NULL;
386
387     return 0;
388 }