2 * fnttofon. Combine several fnt files in one fon file
4 * Copyright 2004 Huw Davies
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"
35 #include "wine/winbase16.h"
36 #include "wine/wingdi16.h"
48 static const BYTE MZ_hdr
[] = {'M', 'Z', 0x0d, 0x01, 0x01, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00,
49 0xb8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
50 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
51 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00,
52 0x0e, 0x1f, 0xba, 0x0e, 0x00, 0xb4, 0x09, 0xcd, 0x21, 0xb8, 0x01, 0x4c, 0xcd, 0x21, 'T', 'h',
53 'i', 's', ' ', 'P', 'r', 'o', 'g', 'r', 'a', 'm', ' ', 'c', 'a', 'n', 'n', 'o',
54 't', ' ', 'b', 'e', ' ', 'r', 'u', 'n', ' ', 'i', 'n', ' ', 'D', 'O', 'S', ' ',
55 'm', 'o', 'd', 'e', 0x0d, 0x0a, 0x24, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
58 static void usage(char **argv
)
60 fprintf(stderr
, "%s fntfiles output.fon\n", argv
[0]);
64 int main(int argc
, char **argv
)
72 short pt
, ver
, dpi
[2], align
, num_files
;
73 int resource_table_len
, non_resident_name_len
, resident_name_len
;
74 unsigned short resource_table_off
, resident_name_off
, module_ref_off
, non_resident_name_off
, fontdir_off
, font_off
;
75 char resident_name
[200] = "";
77 char non_resident_name
[200] = "";
78 int *file_lens
, nread
;
79 unsigned short first_res
= 0x0050, pad
, res
;
80 struct _fnt_header
*fnt_header
;
82 IMAGE_OS2_HEADER NE_hdr
;
92 file_lens
= malloc(num_files
* sizeof(int));
93 for(i
= 0; i
< num_files
; i
++) {
94 fp
= fopen(argv
[i
+1], "rb");
96 fprintf(stderr
, "Can't open %s\n", argv
[i
+1]);
100 fread(&ver
, sizeof(short), 1, fp
);
101 if(ver
!= 0x200 && ver
!= 0x300) {
102 fprintf(stderr
, "invalid fnt file %s ver %d\n", argv
[i
+1], ver
);
105 fread(file_lens
+ i
, sizeof(int), 1, fp
);
106 fseek(fp
, 0x44, SEEK_SET
);
107 fread(&pt
, sizeof(short), 1, fp
);
108 fread(dpi
, sizeof(short), 2, fp
);
109 fseek(fp
, 0x69, SEEK_SET
);
110 fread(&off
, sizeof(long), 1, fp
);
111 fseek(fp
, off
, SEEK_SET
);
113 while((c
= fgetc(fp
)) != 0 && c
!= EOF
)
116 fprintf(stderr
, "%s %d pts %dx%d dpi\n", name
, pt
, dpi
[0], dpi
[1]);
118 /* fontdir entries for version 3 fonts are the same as for version 2 */
119 fontdir_len
+= 0x74 + strlen(name
) + 1;
121 sprintf(non_resident_name
, "FONTRES 100,%d,%d : %s %d", dpi
[0], dpi
[1], name
, pt
);
122 strcpy(resident_name
, name
);
124 sprintf(non_resident_name
+ strlen(non_resident_name
), ",%d", pt
);
128 strcat(non_resident_name
, " (VGA res)");
130 strcat(non_resident_name
, " (8514 res)");
131 non_resident_name_len
= strlen(non_resident_name
) + 4;
133 /* shift count + fontdir entry + num_files of font + nul type + \007FONTDIR */
134 resource_table_len
= sizeof(align
) + sizeof("FONTDIR") +
135 sizeof(NE_TYPEINFO
) + sizeof(NE_NAMEINFO
) +
136 sizeof(NE_TYPEINFO
) + sizeof(NE_NAMEINFO
) * num_files
+
138 resource_table_off
= sizeof(NE_hdr
);
139 resident_name_off
= resource_table_off
+ resource_table_len
;
140 resident_name_len
= strlen(resident_name
) + 4;
141 module_ref_off
= resident_name_off
+ resident_name_len
;
142 non_resident_name_off
= sizeof(MZ_hdr
) + module_ref_off
+ sizeof(align
);
144 memset(&NE_hdr
, 0, sizeof(NE_hdr
));
145 NE_hdr
.ne_magic
= 0x454e;
148 NE_hdr
.ne_flags
= NE_FFLAGS_LIBMODULE
| NE_FFLAGS_GUI
;
149 NE_hdr
.ne_cbnrestab
= non_resident_name_len
;
150 NE_hdr
.ne_segtab
= sizeof(NE_hdr
);
151 NE_hdr
.ne_rsrctab
= sizeof(NE_hdr
);
152 NE_hdr
.ne_restab
= resident_name_off
;
153 NE_hdr
.ne_modtab
= module_ref_off
;
154 NE_hdr
.ne_imptab
= module_ref_off
;
155 NE_hdr
.ne_enttab
= NE_hdr
.ne_modtab
;
156 NE_hdr
.ne_nrestab
= non_resident_name_off
;
158 NE_hdr
.ne_exetyp
= NE_OSFLAGS_WINDOWS
;
159 NE_hdr
.ne_expver
= 0x400;
161 fontdir_off
= (non_resident_name_off
+ non_resident_name_len
+ 15) & ~0xf;
162 font_off
= (fontdir_off
+ fontdir_len
+ 15) & ~0x0f;
164 ofp
= fopen(argv
[argc
- 1], "wb");
166 fwrite(MZ_hdr
, sizeof(MZ_hdr
), 1, ofp
);
167 fwrite(&NE_hdr
, sizeof(NE_hdr
), 1, ofp
);
170 fwrite(&align
, sizeof(align
), 1, ofp
);
172 rc_type
.type_id
= NE_RSCTYPE_FONTDIR
;
174 rc_type
.resloader
= 0;
175 fwrite(&rc_type
, sizeof(rc_type
), 1, ofp
);
177 rc_name
.offset
= fontdir_off
>> 4;
178 rc_name
.length
= (fontdir_len
+ 15) >> 4;
179 rc_name
.flags
= NE_SEGFLAGS_MOVEABLE
| NE_SEGFLAGS_PRELOAD
;
180 rc_name
.id
= resident_name_off
- sizeof("FONTDIR") - NE_hdr
.ne_rsrctab
;
183 fwrite(&rc_name
, sizeof(rc_name
), 1, ofp
);
185 rc_type
.type_id
= NE_RSCTYPE_FONT
;
186 rc_type
.count
= num_files
;
187 rc_type
.resloader
= 0;
188 fwrite(&rc_type
, sizeof(rc_type
), 1, ofp
);
190 for(res
= first_res
| 0x8000, i
= 0; i
< num_files
; i
++, res
++) {
191 int len
= (file_lens
[i
] + 15) & ~0xf;
193 rc_name
.offset
= font_off
>> 4;
194 rc_name
.length
= len
>> 4;
195 rc_name
.flags
= NE_SEGFLAGS_MOVEABLE
| NE_SEGFLAGS_SHAREABLE
| NE_SEGFLAGS_DISCARDABLE
;
199 fwrite(&rc_name
, sizeof(rc_name
), 1, ofp
);
204 /* empty type info */
205 memset(&rc_type
, 0, sizeof(rc_type
));
206 fwrite(&rc_type
, sizeof(rc_type
), 1, ofp
);
208 fputc(strlen("FONTDIR"), ofp
);
209 fwrite("FONTDIR", strlen("FONTDIR"), 1, ofp
);
210 fputc(strlen(resident_name
), ofp
);
211 fwrite(resident_name
, strlen(resident_name
), 1, ofp
);
213 fputc(0x00, ofp
); fputc(0x00, ofp
);
215 fputc(0x00, ofp
); fputc(0x00, ofp
);
217 fputc(strlen(non_resident_name
), ofp
);
218 fwrite(non_resident_name
, strlen(non_resident_name
), 1, ofp
);
219 fputc(0x00, ofp
); /* terminator */
221 /* empty ne_modtab and ne_imptab */
225 pad
= ftell(ofp
) & 0xf;
228 for(i
= 0; i
< pad
; i
++)
231 /* FONTDIR resource */
232 fwrite(&num_files
, sizeof(num_files
), 1, ofp
);
234 for(res
= first_res
, i
= 0; i
< num_files
; i
++, res
++) {
235 fp
= fopen(argv
[i
+1], "rb");
237 fwrite(&res
, sizeof(res
), 1, ofp
);
238 fread(buf
, 0x72, 1, fp
);
240 fnt_header
= (struct _fnt_header
*)buf
;
241 fseek(fp
, fnt_header
->fi
.dfFace
, SEEK_SET
);
242 fnt_header
->fi
.dfBitsOffset
= 0;
243 fwrite(buf
, 0x72, 1, ofp
);
246 while((c
= fgetc(fp
)) != 0 && c
!= EOF
)
249 fwrite(name
, strlen(name
) + 1, 1, ofp
);
253 pad
= ftell(ofp
) & 0xf;
256 for(i
= 0; i
< pad
; i
++)
259 for(res
= first_res
, i
= 0; i
< num_files
; i
++, res
++) {
260 fp
= fopen(argv
[i
+1], "rb");
263 nread
= read(fileno(fp
), buf
, sizeof(buf
));
265 fwrite(buf
, nread
, 1, ofp
);
268 pad
= file_lens
[i
] & 0xf;
271 for(j
= 0; j
< pad
; j
++)