1 /************************************************
3 * Extract fonts from .fnt or Windows DLL files
4 * and convert them to the .bdf format.
6 * Copyright 1994-1996 Kevin Carothers and Alex Korobka
10 #include <sys/param.h>
11 #include <sys/types.h>
25 extern char* g_lpstrFileName
;
26 extern char* g_lpstrCharSet
;
34 char* g_lpstrFileName
= NULL
;
35 char* g_lpstrCharSet
= NULL
;
36 char* g_lpstrInputFile
= NULL
;
37 int g_outputPoints
= 0;
39 static char* errorDLLRead
= "Unable to read Windows DLL.\n";
40 static char* errorFNTRead
= "Unable to read .FNT file.\n";
41 static char* errorOpenFile
= "Unable to open file.\n";
42 static char* errorMemory
= "Memory allocation error.\n";
43 static char* errorFile
= "Corrupt or invalid file.\n";
44 static char* errorFontData
= "Unable to parse font data: Error ";
45 static char* errorEmpty
= "No fonts found.\n";
51 printf("Usage: fnt2bdf [-t] [-c charset] [-o basename] [input file]\n");
52 printf(" -c charset\tcharset name for OEM_CHARSET fonts\n");
53 printf(" -f basename\tbasic output filename\n");
54 printf(" -t \t\toutput files by point size instead of pixel height\n");
55 printf(" input file\tMSWindows .fon, .fnt, .dll, or .exe file.\n");
56 printf("\nExample:\n fnt2bdf -c winsys vgasys.fnt\n\n");
60 /* convert big-endian value to the local format */
62 int return_data_value(enum data_types dtype
, void * pChr
)
68 ret_val
= (int) *(unsigned char *)pChr
;
72 ret_val
= *(unsigned char *)pChr
;
73 ret_val
+= (*((unsigned char *)pChr
+ 1) << 8);
79 for(i
=3; i
>= 0; i
--) {
80 ret_val
+= *((unsigned char *)pChr
+ i
) << (8*i
);
89 int make_bdf_filename(char* name
, fnt_fontS
* cpe_font_struct
, unsigned char* file_buffer
)
91 int l_nameoffset
= return_data_value(dfLong
, cpe_font_struct
->hdr
.dfFace
);
94 if( !g_lpstrFileName
)
97 l_nameoffset
> return_data_value(dfLong
, cpe_font_struct
->hdr
.dfSize
) + 1 )
99 lpChar
= (char*)(file_buffer
+ l_nameoffset
);
101 else lpChar
= g_lpstrFileName
;
103 strcpy( name
, lpChar
);
105 while( (lpChar
= strchr( name
, ' ')) )
108 /* construct a filename from the font typeface, slant, weight, and size */
110 if( cpe_font_struct
->hdr
.dfItalic
[0] ) strcat(name
, "_i" );
111 else strcat(name
, "_r" );
113 lpChar
= name
+ strlen( name
);
114 sprintf(lpChar
, "%d-%d.bdf", return_data_value(dfShort
, cpe_font_struct
->hdr
.dfWeight
),
115 (g_outputPoints
) ? return_data_value(dfShort
, cpe_font_struct
->hdr
.dfPoints
)
116 : return_data_value(dfShort
, cpe_font_struct
->hdr
.dfPixHeight
) );
120 /* parse FONT resource and write .bdf file */
122 int parse_fnt_data(unsigned char* file_buffer
, int length
)
124 fnt_fontS cpe_font_struct
;
127 memcpy((char *) &cpe_font_struct
.hdr
, file_buffer
, sizeof(fnt_hdrS
));
129 /* check font header */
131 t
= return_data_value(dfShort
, cpe_font_struct
.hdr
.dfVersion
);
132 if( t
!= 0x300 && t
!= 0x200) return ERROR_VERSION
;
134 t
= return_data_value(dfLong
, cpe_font_struct
.hdr
.dfSize
);
135 if( t
> length
) return ERROR_SIZE
;
138 /* set up the charWidth/charOffset structure pairs (dfCharTable)... */
140 int l_fchar
= return_data_value(dfChar
, cpe_font_struct
.hdr
.dfFirstChar
),
141 l_lchar
= return_data_value(dfChar
, cpe_font_struct
.hdr
.dfLastChar
);
142 int l_len
= l_lchar
- l_fchar
+ 1, l_ptr
= MAP_BEG
;
144 /* malloc size = (# chars) * sizeof(WinCharS) */
146 if((cpe_font_struct
.dfCharTable
= (WinCharS
*) calloc(sizeof(WinCharS
), l_len
)) == NULL
)
149 /* NOW, convert them all to UNIX (lton) notation... */
151 for(ic
=0; ic
< l_len
; ic
++) {
152 cpe_font_struct
.dfCharTable
[ic
].charWidth
= return_data_value(dfShort
, &file_buffer
[l_ptr
]);
153 l_ptr
+= 2; /* bump by sizeof(short) */
156 if( return_data_value(dfShort
, cpe_font_struct
.hdr
.dfVersion
) == 0x200) {
157 cpe_font_struct
.dfCharTable
[ic
].charOffset
=
158 return_data_value(dfShort
, &file_buffer
[l_ptr
]);
159 l_ptr
+= 2; /* bump by sizeof(long) */
161 else { /* Windows Version 3.0 type font */
162 cpe_font_struct
.dfCharTable
[ic
].charOffset
=
163 return_data_value(dfLong
, &file_buffer
[l_ptr
]);
164 l_ptr
+= 4; /* bump by sizeof(long) */
167 t
= dump_bdf(&cpe_font_struct
, file_buffer
);
168 free( cpe_font_struct
.dfCharTable
);
173 int dump_bdf( fnt_fontS
* cpe_font_struct
, unsigned char* file_buffer
)
177 int l_fchar
= return_data_value(dfChar
, cpe_font_struct
->hdr
.dfFirstChar
),
178 l_lchar
= return_data_value(dfChar
, cpe_font_struct
->hdr
.dfLastChar
);
180 int l_len
= l_lchar
-l_fchar
+ 1,
181 l_hgt
= return_data_value(dfChar
, cpe_font_struct
->hdr
.dfPixHeight
);
182 int l_ascent
= return_data_value(dfShort
, cpe_font_struct
->hdr
.dfAscent
);
183 char l_filename
[256];
185 if( (ic
= make_bdf_filename(l_filename
, cpe_font_struct
, file_buffer
)) )
188 if((fp
= fopen(l_filename
, "w")) == (FILE *) 0)
190 fprintf(stderr
, "Couldn't open \"%s\" for output.\n", l_filename
);
194 dump_bdf_hdr(fp
, cpe_font_struct
, file_buffer
);
196 /* NOW, convert all chars to UNIX (lton) notation... */
198 for(ic
=0; ic
< l_len
; ic
++) {
199 int rowidx
, l_span
, /* how many char-cols wide is char? */
200 l_idx
= cpe_font_struct
->dfCharTable
[ic
].charOffset
;
202 l_span
= (int) (cpe_font_struct
->dfCharTable
[ic
].charWidth
-1)/8;
204 fprintf(fp
, "STARTCHAR %d \n", ic
);
205 fprintf(fp
, "ENCODING %d\n", l_fchar
);
206 fprintf(fp
, "SWIDTH %d %d \n",
207 cpe_font_struct
->dfCharTable
[ic
].charWidth
*1000,
210 fprintf(fp
, "DWIDTH %d %d \n",
211 cpe_font_struct
->dfCharTable
[ic
].charWidth
, 0);
213 fprintf(fp
, "BBX %d %d %d %d\n",
214 cpe_font_struct
->dfCharTable
[ic
].charWidth
, l_hgt
, 0,
217 fprintf(fp
, "BITMAP\n");
218 for(rowidx
=0; rowidx
< l_hgt
; rowidx
++) {
220 case(0): /* 1-7 pixels wide font */
222 fprintf(fp
, "%02X\n", (int) file_buffer
[l_idx
+rowidx
]);
226 case(1): /* 8-15 pixels wide font */
228 fprintf(fp
, "%02X%02X",
229 (int) file_buffer
[l_idx
+rowidx
], file_buffer
[l_idx
+l_hgt
+rowidx
]);
234 case(2): /* 16-23 pixels wide font */
236 fprintf(fp
, "%02X%02X%02X",
237 file_buffer
[l_idx
+rowidx
],
238 file_buffer
[l_idx
+l_hgt
+rowidx
],
239 file_buffer
[l_idx
+(2*l_hgt
)+rowidx
]);
244 case(3): /* 24-31 pixels wide font */
246 fprintf(fp
, "%02X%02X%02X%02X",
247 file_buffer
[l_idx
+rowidx
],
248 file_buffer
[l_idx
+l_hgt
+rowidx
],
249 file_buffer
[l_idx
+(2*l_hgt
)+rowidx
],
250 file_buffer
[l_idx
+(3*l_hgt
)+rowidx
]);
256 fprintf(fp
, "%02X%02X%02X%02X%02X",
257 file_buffer
[l_idx
+rowidx
],
258 file_buffer
[l_idx
+l_hgt
+rowidx
],
259 file_buffer
[l_idx
+(2*l_hgt
)+rowidx
],
260 file_buffer
[l_idx
+(3*l_hgt
)+rowidx
],
261 file_buffer
[l_idx
+(4*l_hgt
)+rowidx
]);
271 fprintf(fp
, "ENDCHAR\n");
273 l_fchar
++; /* Go to next one */
275 fprintf(fp
, "ENDFONT\n");
281 int dump_bdf_hdr(FILE* fs
, fnt_fontS
* cpe_font_struct
, unsigned char* file_buffer
)
283 int l_fchar
= return_data_value(dfChar
, cpe_font_struct
->hdr
.dfFirstChar
),
284 l_lchar
= return_data_value(dfChar
, cpe_font_struct
->hdr
.dfLastChar
);
285 int l_len
= l_lchar
- l_fchar
+ 1;
286 int l_nameoffset
= return_data_value(dfLong
, cpe_font_struct
->hdr
.dfFace
);
287 int l_cellheight
= return_data_value(dfShort
, cpe_font_struct
->hdr
.dfPixHeight
);
288 int l_ascent
= return_data_value(dfShort
, cpe_font_struct
->hdr
.dfAscent
);
290 fprintf(fs
, "STARTFONT 2.1\n");
292 /* Compose font name */
295 l_nameoffset
< return_data_value(dfLong
, cpe_font_struct
->hdr
.dfSize
) )
298 char* lpFace
= (char*)(file_buffer
+ l_nameoffset
), *lpChar
;
299 short tmWeight
= return_data_value(dfShort
, cpe_font_struct
->hdr
.dfWeight
);
301 while((lpChar
= strchr(lpFace
, '-')) )
304 fprintf(fs
, "FONT -windows-%s-", lpFace
);
306 if( tmWeight
== 0 ) /* weight */
307 fputs("medium-", fs
);
308 else if( tmWeight
<= FW_LIGHT
)
310 else if( tmWeight
<= FW_MEDIUM
)
311 fputs("medium-", fs
);
312 else if( tmWeight
<= FW_DEMIBOLD
)
313 fputs("demibold-", fs
);
314 else if( tmWeight
<= FW_BOLD
)
316 else fputs("black-", fs
);
318 if( cpe_font_struct
->hdr
.dfItalic
[0] ) /* slant */
320 else fputs("r-", fs
);
324 if( (cpe_font_struct
->hdr
.dfPitchAndFamily
[0] & 0xF0) == FF_SWISS
)
325 fputs("normal-sans-", fs
);
326 else fputs("normal--", fs
); /* still can be -sans */
330 point_size
= 10 * return_data_value(dfShort
, cpe_font_struct
->hdr
.dfPoints
);
331 dpi
= (l_cellheight
* 720) / point_size
;
333 fprintf(fs
, "%d-%d-%d-%d-", l_cellheight
, 10*l_cellheight
, 72, 72);
334 /* point_size, dpi, dpi); */
338 if( return_data_value(dfShort
, cpe_font_struct
->hdr
.dfPixWidth
) ) fputs("c-", fs
);
339 else fputs("p-", fs
);
343 fprintf( fs
, "%d-", 10 * return_data_value(dfShort
, cpe_font_struct
->hdr
.dfAvgWidth
) );
347 switch( cpe_font_struct
->hdr
.dfCharSet
[0] )
349 /* Microsoft just had to invent its own charsets! */
351 case ANSI_CHARSET
: fputs("ansi-0\n", fs
); break;
352 case GREEK_CHARSET
: fputs("cp125-3\n", fs
); break;
353 case TURKISH_CHARSET
: fputs("cp125-4\n", fs
); break;
354 case HEBREW_CHARSET
: fputs("cp125-5\n", fs
); break;
355 case ARABIC_CHARSET
: fputs("cp125-6\n", fs
); break;
356 case BALTIC_CHARSET
: fputs("cp125-7\n", fs
); break;
357 case RUSSIAN_CHARSET
: fputs("cp125-1\n", fs
); break;
358 case EE_CHARSET
: fputs("cp125-0\n", fs
); break;
359 case SYMBOL_CHARSET
: fputs("misc-fontspecific\n", fs
); break;
360 case SHIFTJIS_CHARSET
: fputs("jisx0208.1983-0\n", fs
); break;
361 case DEFAULT_CHARSET
: fputs("iso8859-1\n", fs
); break;
365 if( !g_lpstrCharSet
)
367 fputs("Undefined charset, use -c option.\n", stderr
);
370 fprintf(fs
, "%s\n", g_lpstrCharSet
);
373 else return ERROR_DATA
;
375 fprintf(fs
, "SIZE %d %d %d\n",
377 return_data_value(dfShort
, cpe_font_struct
->hdr
.dfHorizRes
),
378 return_data_value(dfShort
, cpe_font_struct
->hdr
.dfVertRes
)); /* dfVertRes[2] */
380 fprintf(fs
, "FONTBOUNDINGBOX %d %d %d %d\n",
381 return_data_value(dfShort
, cpe_font_struct
->hdr
.dfMaxWidth
),
382 return_data_value(dfChar
, cpe_font_struct
->hdr
.dfPixHeight
),
383 0, l_ascent
- l_cellheight
);
385 fprintf(fs
, "STARTPROPERTIES 4\n");
387 fprintf(fs
, "FONT_ASCENT %d\n", l_ascent
); /* dfAscent[2] */
388 fprintf(fs
, "FONT_DESCENT %d\n", l_cellheight
- l_ascent
);
389 fprintf(fs
, "CAP_HEIGHT %d\n", l_ascent
-
390 return_data_value(dfShort
, cpe_font_struct
->hdr
.dfInternalLeading
));
391 fprintf(fs
, "DEFAULT_CHAR %d\n", return_data_value(dfShort
, cpe_font_struct
->hdr
.dfDefaultChar
));
393 fprintf(fs
, "ENDPROPERTIES\n");
395 fprintf(fs
, "CHARS %d\n", l_len
);
401 void parse_options(int argc
, char **argv
)
408 g_lpstrInputFile
= argv
[1];
417 for( i
= 1; i
< argc
- 1; i
++ )
419 if( argv
[i
][0] != '-' ||
420 strlen(argv
[i
]) != 2 ) break;
422 if( argv
[i
][1] == 'c' )
423 g_lpstrCharSet
= argv
[i
+1];
425 if( argv
[i
][1] == 'f' )
426 g_lpstrFileName
= argv
[i
+1];
428 if( argv
[i
][1] == 't' )
440 g_lpstrInputFile
= argv
[i
];
448 /* read file data and return file type */
450 int get_resource_table(int fd
, unsigned char** lpdata
, int fsize
)
452 IMAGE_DOS_HEADER mz_header
;
453 IMAGE_OS2_HEADER ne_header
;
454 short s
, offset
, size
, retval
;
457 lseek( fd
, 0, SEEK_SET
);
459 if( read(fd
, &mz_header
, sizeof(mz_header
)) != sizeof(mz_header
) )
462 s
= return_data_value(dfShort
, &mz_header
.e_magic
);
464 if( s
== IMAGE_DOS_SIGNATURE
) /* looks like .dll file so far... */
466 s
= return_data_value(dfShort
, &mz_header
.e_lfanew
);
467 lseek( fd
, s
, SEEK_SET
);
469 if( read(fd
, &ne_header
, sizeof(ne_header
)) != sizeof(ne_header
) )
472 s
= return_data_value(dfShort
, &ne_header
.ne_magic
);
474 if( s
== IMAGE_NT_SIGNATURE
)
476 fprintf( stderr
, "Do not know how to handle 32-bit Windows DLLs.\n");
479 else if ( s
!= IMAGE_OS2_SIGNATURE
) return FILE_ERROR
;
481 s
= return_data_value(dfShort
, &ne_header
.resource_tab_offset
);
482 size
= return_data_value(dfShort
, &ne_header
.rname_tab_offset
);
484 if( size
> fsize
) return FILE_ERROR
;
487 offset
= s
+ return_data_value(dfShort
, &mz_header
.e_lfanew
);
489 if( size
<= sizeof(NE_TYPEINFO
) ) return FILE_ERROR
;
492 else if( s
== 0x300 || s
== 0x200 ) /* maybe .fnt ? */
494 size
= return_data_value(dfLong
, (char*)&mz_header
+2);
496 if( size
!= fsize
) return FILE_ERROR
;
500 else return FILE_ERROR
;
502 *lpdata
= (unsigned char*)malloc(size
);
506 lseek( fd
, offset
, SEEK_SET
);
507 if( read(fd
, *lpdata
, size
) != size
)
508 { free( *lpdata
); *lpdata
= NULL
; }
516 int main(int argc
, char **argv
)
518 unsigned char* lpdata
= NULL
;
521 parse_options( argc
, argv
);
523 if( (fd
= open( g_lpstrInputFile
, O_RDONLY
)) )
526 struct stat file_stat
;
528 fstat( fd
, &file_stat
);
529 i
= get_resource_table( fd
, &lpdata
, file_stat
.st_size
);
537 NE_TYPEINFO
* pTInfo
= (NE_TYPEINFO
*)(lpdata
+ 2);
538 NE_NAMEINFO
* pFontStorage
= NULL
;
540 while( (i
= return_data_value(dfShort
, &pTInfo
->type_id
)) )
542 j
= return_data_value(dfShort
, &pTInfo
->count
);
543 if( i
== NE_RSCTYPE_FONT
)
546 pFontStorage
= (NE_NAMEINFO
*)(pTInfo
+ 1);
549 pTInfo
= (NE_TYPEINFO
*)((char*)(pTInfo
+1) + j
*sizeof(NE_NAMEINFO
));
551 if( pFontStorage
&& count
)
553 unsigned short size_shift
= return_data_value(dfShort
, lpdata
);
554 unsigned char* lpfont
= NULL
;
558 for( j
= 0; j
< count
; j
++, pFontStorage
++ )
560 length
= return_data_value(dfShort
, &pFontStorage
->length
) << size_shift
;
561 offset
= return_data_value(dfShort
, &pFontStorage
->offset
) << size_shift
;
563 if( !(lpfont
= (unsigned char*) realloc( lpfont
, length
)) )
565 fprintf(stderr
, errorMemory
);
570 lseek( fd
, offset
, SEEK_SET
);
571 if( read(fd
, lpfont
, length
) != length
)
573 fprintf(stderr
, errorDLLRead
);
574 free(lpdata
); free(lpfont
);
578 if( (i
= parse_fnt_data( lpfont
, length
)) )
579 fprintf(stderr
, "%s%d\n", errorFontData
, i
);
581 free(lpfont
); free(lpdata
);
584 else fprintf(stderr
, errorEmpty
);
587 else fprintf(stderr
, errorDLLRead
);
593 if( (i
= parse_fnt_data( lpdata
, file_stat
.st_size
)) )
594 fprintf(stderr
, "%s%d\n", errorFontData
, i
);
598 else fprintf(stderr
, errorFNTRead
);
602 fprintf(stderr
, errorFile
);
607 else fprintf(stderr
, errorOpenFile
);