510 lines
11 KiB
C
510 lines
11 KiB
C
#include <sys/types.h>
|
|
#include <dirent.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
|
|
|
|
/*
|
|
* The array of glyph information
|
|
*/
|
|
|
|
typedef struct
|
|
{
|
|
int UV;
|
|
int index; /* in PSDRV_AGLGlyphNames */
|
|
const char *name;
|
|
const char *comment;
|
|
|
|
} GLYPHINFO;
|
|
|
|
static GLYPHINFO glyphs[1500];
|
|
static int num_glyphs = 0;
|
|
|
|
|
|
/*
|
|
* Functions to search and sort the array
|
|
*/
|
|
|
|
static int cmp_by_UV(const void *a, const void *b)
|
|
{
|
|
return ((const GLYPHINFO *)a)->UV - ((const GLYPHINFO *)b)->UV;
|
|
}
|
|
|
|
static int cmp_by_name(const void *a, const void *b)
|
|
{
|
|
return strcmp(((const GLYPHINFO *)a)->name, ((const GLYPHINFO *)b)->name);
|
|
}
|
|
|
|
inline static void sort_by_UV()
|
|
{
|
|
qsort(glyphs, num_glyphs, sizeof(GLYPHINFO), cmp_by_UV);
|
|
}
|
|
|
|
inline static void sort_by_name()
|
|
{
|
|
qsort(glyphs, num_glyphs, sizeof(GLYPHINFO), cmp_by_name);
|
|
}
|
|
|
|
inline static GLYPHINFO *search_by_name(const char *name)
|
|
{
|
|
GLYPHINFO gi;
|
|
|
|
gi.name = name;
|
|
|
|
return (GLYPHINFO *)bsearch(&gi, glyphs, num_glyphs, sizeof(GLYPHINFO),
|
|
cmp_by_name);
|
|
}
|
|
|
|
|
|
/*
|
|
* Use the 'optimal' combination of tabs and spaces to position the cursor
|
|
*/
|
|
|
|
inline static void fcpto(FILE *f, int newpos, int curpos)
|
|
{
|
|
int newtpos = newpos & ~7;
|
|
int curtpos = curpos & ~7;
|
|
|
|
while (curtpos < newtpos)
|
|
{
|
|
fputc('\t', f);
|
|
curtpos += 8;
|
|
curpos = curtpos;
|
|
}
|
|
|
|
while (curpos < newpos)
|
|
{
|
|
fputc(' ', f);
|
|
++curpos;
|
|
}
|
|
}
|
|
|
|
inline static void cpto(int newpos, int curpos)
|
|
{
|
|
fcpto(stdout, newpos, curpos);
|
|
}
|
|
|
|
|
|
/*
|
|
* Make main() look "purty"
|
|
*/
|
|
|
|
inline static void double_space(FILE *f)
|
|
{
|
|
fputc('\n', f);
|
|
}
|
|
|
|
inline static void triple_space(FILE *f)
|
|
{
|
|
fputc('\n', f); fputc('\n', f);
|
|
}
|
|
|
|
|
|
/*
|
|
* Read the Adobe Glyph List from 'glyphlist.txt'
|
|
*/
|
|
|
|
static void read_agl()
|
|
{
|
|
FILE *f = fopen("glyphlist.txt", "r");
|
|
char linebuf[256], namebuf[128], commbuf[128];
|
|
|
|
if (f == NULL)
|
|
{
|
|
fprintf(stderr, "Error opening glyphlist.txt\n");
|
|
exit(__LINE__);
|
|
}
|
|
|
|
while (fgets(linebuf, sizeof(linebuf), f) != NULL)
|
|
{
|
|
unsigned int UV;
|
|
|
|
if (linebuf[0] == '#')
|
|
continue;
|
|
|
|
sscanf(linebuf, "%X;%[^;];%[^\n]", &UV, namebuf, commbuf);
|
|
|
|
glyphs[num_glyphs].UV = (int)UV;
|
|
glyphs[num_glyphs].name = strdup(namebuf);
|
|
glyphs[num_glyphs].comment = strdup(commbuf);
|
|
|
|
if (glyphs[num_glyphs].name == NULL ||
|
|
glyphs[num_glyphs].comment == NULL)
|
|
{
|
|
fprintf(stderr, "Memory allocation failure\n");
|
|
exit(__LINE__);
|
|
}
|
|
|
|
++num_glyphs;
|
|
}
|
|
|
|
fclose(f);
|
|
|
|
if (num_glyphs != 1051)
|
|
{
|
|
fprintf(stderr, "Read %i glyphs\n", num_glyphs);
|
|
exit(__LINE__);
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Read glyph names from all AFM files in current directory
|
|
*/
|
|
|
|
static void read_afms(FILE *f_c, FILE *f_h)
|
|
{
|
|
DIR *d = opendir(".");
|
|
struct dirent *de;
|
|
|
|
fputs( "/*\n"
|
|
" * Built-in font metrics\n"
|
|
" */\n"
|
|
"\n"
|
|
"const AFM *const PSDRV_BuiltinAFMs[] =\n"
|
|
"{\n", f_c);
|
|
|
|
|
|
if (d == NULL)
|
|
{
|
|
fprintf(stderr, "Error opening current directory\n");
|
|
exit(__LINE__);
|
|
}
|
|
|
|
while ((de = readdir(d)) != NULL)
|
|
{
|
|
FILE *f;
|
|
char *cp, linebuf[256], font_family[128];
|
|
int i, num_metrics;
|
|
|
|
cp = strrchr(de->d_name, '.'); /* Does it end in */
|
|
if (cp == NULL || strcasecmp(cp, ".afm") != 0) /* .afm or .AFM? */
|
|
continue;
|
|
|
|
f = fopen(de->d_name, "r");
|
|
if (f == NULL)
|
|
{
|
|
fprintf(stderr, "Error opening %s\n", de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
while (1)
|
|
{
|
|
if (fgets(linebuf, sizeof(linebuf), f) == NULL)
|
|
{
|
|
fprintf(stderr, "FontName not found in %s\n", de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
if (strncmp(linebuf, "FontName ", 9) == 0)
|
|
break;
|
|
}
|
|
|
|
sscanf(linebuf, "FontName %[^\r\n]", font_family);
|
|
|
|
for (i = 0; font_family[i] != '\0'; ++i)
|
|
if (font_family[i] == '-')
|
|
font_family[i] = '_';
|
|
|
|
fprintf(f_h, "extern const AFM PSDRV_%s;\n", font_family);
|
|
fprintf(f_c, " &PSDRV_%s,\n", font_family);
|
|
|
|
while (1)
|
|
{
|
|
if (fgets(linebuf, sizeof(linebuf), f) == NULL)
|
|
{
|
|
fprintf(stderr, "FamilyName not found in %s\n", de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
if (strncmp(linebuf, "FamilyName ", 11) == 0)
|
|
break;
|
|
}
|
|
|
|
sscanf(linebuf, "FamilyName %[^\r\n]", font_family);
|
|
|
|
while (1)
|
|
{
|
|
if (fgets(linebuf, sizeof(linebuf), f) == NULL)
|
|
{
|
|
fprintf(stderr, "StartCharMetrics not found in %s\n",
|
|
de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
if (strncmp(linebuf, "StartCharMetrics ", 17) == 0)
|
|
break;
|
|
}
|
|
|
|
sscanf(linebuf, "StartCharMetrics %i", &num_metrics);
|
|
|
|
for (i = 0; i < num_metrics; ++i)
|
|
{
|
|
char namebuf[128];
|
|
|
|
if (fgets(linebuf, sizeof(linebuf), f) == NULL)
|
|
{
|
|
fprintf(stderr, "Unexpected EOF after %i glyphs in %s\n", i,
|
|
de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
cp = strchr(linebuf, 'N');
|
|
if (cp == NULL || strlen(cp) < 3)
|
|
{
|
|
fprintf(stderr, "Parse error after %i glyphs in %s\n", i,
|
|
de->d_name);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
sscanf(cp, "N %s", namebuf);
|
|
if (search_by_name(namebuf) != NULL)
|
|
continue;
|
|
|
|
sprintf(linebuf, "FONT FAMILY;%s", font_family);
|
|
|
|
glyphs[num_glyphs].UV = -1;
|
|
glyphs[num_glyphs].name = strdup(namebuf);
|
|
glyphs[num_glyphs].comment = strdup(linebuf);
|
|
|
|
if (glyphs[num_glyphs].name == NULL ||
|
|
glyphs[num_glyphs].comment == NULL)
|
|
{
|
|
fprintf(stderr, "Memory allocation failure\n");
|
|
exit(__LINE__);
|
|
}
|
|
|
|
++num_glyphs;
|
|
|
|
sort_by_name();
|
|
}
|
|
|
|
fclose(f);
|
|
}
|
|
|
|
closedir(d);
|
|
|
|
fputs(" NULL\n};\n", f_c);
|
|
}
|
|
|
|
|
|
/*
|
|
* Write opening comments, etc.
|
|
*/
|
|
|
|
static void write_header(FILE *f)
|
|
{
|
|
int i;
|
|
|
|
fputc('/', f);
|
|
for (i = 0; i < 79; ++i)
|
|
fputc('*', f);
|
|
fputs("\n"
|
|
" *\n"
|
|
" *\tFont and glyph data for the Wine PostScript driver\n"
|
|
" *\n"
|
|
" *\tCopyright 2001 Ian Pilcher\n"
|
|
" *\n"
|
|
" *\n"
|
|
" *\tThis data is derived from the Adobe Glyph list at\n"
|
|
" *\n"
|
|
" *\t "
|
|
"http://partners.adobe.com/asn/developer/type/glyphlist.txt\n"
|
|
" *\n"
|
|
" *\tand the Adobe Font Metrics files at\n"
|
|
" *\n"
|
|
" *\t "
|
|
"ftp://ftp.adobe.com/pub/adobe/type/win/all/afmfiles/base35/\n"
|
|
" *\n"
|
|
" *\twhich are Copyright 1985-1998 Adobe Systems Incorporated.\n"
|
|
" *\n"
|
|
" */\n"
|
|
"\n"
|
|
"#include \"psdrv.h\"\n"
|
|
"#include \"data/agl.h\"\n", f);
|
|
}
|
|
|
|
/*
|
|
* Write the array of glyph names (also populates indexes)
|
|
*/
|
|
|
|
static void write_glyph_names(FILE *f_c, FILE *f_h)
|
|
{
|
|
int i, num_names = 0, index = 0;
|
|
|
|
for (i = 0; i < num_glyphs; ++i)
|
|
if (i == 0 || strcmp(glyphs[i - 1].name, glyphs[i].name) != 0)
|
|
++num_names;
|
|
|
|
fputs( "/*\n"
|
|
" * Every glyph name in the AGL and the 35 core PostScript fonts\n"
|
|
" */\n"
|
|
"\n", f_c);
|
|
|
|
fprintf(f_c, "const INT PSDRV_AGLGlyphNamesSize = %i;\n\n", num_names);
|
|
|
|
fprintf(f_c, "GLYPHNAME PSDRV_AGLGlyphNames[%i] =\n{\n", num_names);
|
|
|
|
for (i = 0; i < num_glyphs - 1; ++i)
|
|
{
|
|
int cp = 0;
|
|
|
|
if (i == 0 || strcmp(glyphs[i - 1].name, glyphs[i].name) != 0)
|
|
{
|
|
fcpto(f_h, 32, fprintf(f_h, "#define GN_%s", glyphs[i].name));
|
|
fprintf(f_h, "(PSDRV_AGLGlyphNames + %i)\n", index);
|
|
|
|
cp = fprintf(f_c, " { %4i, \"%s\" },", index, glyphs[i].name);
|
|
glyphs[i].index = index;
|
|
++index;
|
|
}
|
|
else
|
|
{
|
|
glyphs[i].index = glyphs[i - 1].index;
|
|
}
|
|
|
|
fcpto(f_c, 40, cp);
|
|
|
|
fprintf(f_c, "/* %s */\n", glyphs[i].comment);
|
|
}
|
|
|
|
fcpto(f_h, 32, fprintf(f_h, "#define GN_%s", glyphs[i].name));
|
|
fprintf(f_h, "(PSDRV_AGLGlyphNames + %i)\n", index);
|
|
|
|
glyphs[i].index = index;
|
|
fcpto(f_c, 40, fprintf(f_c, " { %4i, \"%s\" }", index, glyphs[i].name));
|
|
fprintf(f_c, "/* %s */\n};\n", glyphs[i].comment);
|
|
}
|
|
|
|
|
|
/*
|
|
* Write the AGL encoding vector, sorted by glyph name
|
|
*/
|
|
|
|
static void write_encoding_by_name(FILE *f)
|
|
{
|
|
int i, size = 0, even = 1;
|
|
|
|
for (i = 0; i < num_glyphs; ++i)
|
|
if (glyphs[i].UV != -1 &&
|
|
(i == 0 || strcmp(glyphs[i - 1].name, glyphs[i].name) != 0))
|
|
++size; /* should be 1039 */
|
|
|
|
fputs( "/*\n"
|
|
" * The AGL encoding vector, sorted by glyph name - "
|
|
"duplicates omitted\n"
|
|
" */\n"
|
|
"\n", f);
|
|
|
|
fprintf(f, "const INT PSDRV_AGLbyNameSize = %i;\n\n", size);
|
|
fprintf(f, "const UNICODEGLYPH PSDRV_AGLbyName[%i] = \n{\n", size);
|
|
|
|
for (i = 0; i < num_glyphs - 1; ++i)
|
|
{
|
|
int cp;
|
|
|
|
if (glyphs[i].UV == -1)
|
|
continue;
|
|
|
|
if (i != 0 && strcmp(glyphs[i - 1].name, glyphs[i].name) == 0)
|
|
continue;
|
|
|
|
cp = fprintf(f, " { 0x%.4x, GN_%s },", glyphs[i].UV, glyphs[i].name);
|
|
|
|
even = !even;
|
|
if (even)
|
|
fputc('\n', f);
|
|
else
|
|
fcpto(f, 40, cp);
|
|
}
|
|
|
|
fprintf(f, " { 0x%.4x, GN_%s }\n};\n", glyphs[i].UV, glyphs[i].name);
|
|
}
|
|
|
|
/*
|
|
* Write the AGL encoding vector, sorted by Unicode value
|
|
*/
|
|
|
|
static void write_encoding_by_UV(FILE *f)
|
|
{
|
|
int i, size = 0, even = 1;
|
|
|
|
for (i = 0; i < num_glyphs; ++i)
|
|
if (glyphs[i].UV != -1)
|
|
++size; /* better be 1051! */
|
|
|
|
sort_by_UV();
|
|
|
|
fputs( "/*\n"
|
|
" * The AGL encoding vector, sorted by Unicode value - "
|
|
"duplicates included\n"
|
|
" */\n"
|
|
"\n", f);
|
|
|
|
fprintf(f, "const INT PSDRV_AGLbyUVSize = %i;\n\n", size);
|
|
fprintf(f, "const UNICODEGLYPH PSDRV_AGLbyUV[%i] = \n{\n", size);
|
|
|
|
for (i = 0; i < num_glyphs - 1; ++i)
|
|
{
|
|
int cp;
|
|
|
|
if (glyphs[i].UV == -1)
|
|
continue;
|
|
|
|
cp = fprintf(f, " { 0x%.4x, GN_%s },", glyphs[i].UV, glyphs[i].name);
|
|
|
|
even = !even;
|
|
if (even)
|
|
fputc('\n', f);
|
|
else
|
|
fcpto(f, 40, cp);
|
|
}
|
|
|
|
fprintf(f, " { 0x%.4x, GN_%s }\n};\n", glyphs[i].UV, glyphs[i].name);
|
|
}
|
|
|
|
|
|
/*
|
|
* Do it!
|
|
*/
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
FILE *f_c, *f_h;
|
|
|
|
if (argc < 3)
|
|
{
|
|
fprintf(stderr, "Usage: %s <C file> <header file>\n", argv[0]);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
f_c = fopen(argv[1], "w");
|
|
if (f_c == NULL)
|
|
{
|
|
fprintf(stderr, "Error opening %s for writing\n", argv[1]);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
f_h = fopen(argv[2], "w");
|
|
if (f_h == NULL)
|
|
{
|
|
fprintf(stderr, "Error opening %s for writing\n", argv[2]);
|
|
exit(__LINE__);
|
|
}
|
|
|
|
write_header(f_c);
|
|
triple_space(f_c);
|
|
read_agl();
|
|
read_afms(f_c, f_h); /* also writes font list */
|
|
triple_space(f_c);
|
|
write_glyph_names(f_c, f_h);
|
|
triple_space(f_c);
|
|
write_encoding_by_name(f_c);
|
|
triple_space(f_c);
|
|
write_encoding_by_UV(f_c);
|
|
|
|
return 0;
|
|
}
|