|
|
/*
* mkwidth - Make WIDTHTABLE on ufm for Prop. DBCS device fonts. * * TODO: * * HISTORY: * * 9/4/98 yasuho Created. */#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <ctype.h>
#include <sys\types.h>
#include <sys\stat.h>
#include <windef.h>
#include <wingdi.h>
#include <winddi.h>
#include <prntfont.h>
typedef struct _GLYPHTABLE { WCHAR wCode; WORD wCount; WORD wGID;} GLYPHTABLE, *PGLYPHTABLE;
DWORD ufmsize, gttsize;DWORD wtoffset;DWORD runsize;PGLYPHTABLE pGlyph;UNIFM_HDR ufm;IFIMETRICS IFI;UNI_GLYPHSETDATA gtt;WIDTHTABLE WidthTable;PWIDTHRUN pWidthRun;DWORD nWidthRun;DWORD loWidth;PWORD pWidth;WORD nWidth;
static int vflag;static int Vflag;static char rbuf[256];
static void usage();static void fatal(char *s);static void error(char *s);
static void checkufm(char *name){ FILE *fp; struct _stat sb;
if (_stat(name, &sb) < 0) fatal(name); ufmsize = sb.st_size; if ((fp = fopen(name, "rb")) == NULL) fatal(name); if (fread(&ufm, sizeof ufm, 1, fp) != 1) fatal("fread ufmhdr"); if (ufm.dwSize != ufmsize) error("Invalid ufmsize"); if (ufm.loWidthTable != 0) error("loWidthTable != 0"); fclose(fp);}
static void getgtt(char *name){ FILE *fp; WORD GID; DWORD i; struct _stat sb; GLYPHRUN run;
if (_stat(name, &sb) < 0) fatal(name); gttsize = sb.st_size; if ((fp = fopen(name, "rb")) == NULL) fatal(name); if (fread(>t, sizeof gtt, 1, fp) != 1) fatal(name); if (gtt.dwSize != gttsize) error("Invalid gttsize");
runsize = gtt.dwRunCount * sizeof(GLYPHTABLE); if ((pGlyph = malloc(runsize)) == NULL) fatal("GLYPHTABLE"); if (fseek(fp, gtt.loRunOffset, 0) < 0) fatal("loRunOffset"); GID = 1; if (vflag) { printf("=== GTT ===\n"); printf("Code\tCount\tGLYPHID\n"); printf("---\t---\t---\n"); } for (i = 0; i < gtt.dwRunCount; i++) { if (fread(&run, sizeof run, 1, fp) != 1) fatal("GLYPHRUN"); pGlyph[i].wCode = run.wcLow; pGlyph[i].wCount = run.wGlyphCount; pGlyph[i].wGID = GID; GID += run.wGlyphCount; if (vflag) printf("0x%04x\t%d\t%ld\n", pGlyph[i].wCode, pGlyph[i].wCount, pGlyph[i].wGID); }
fclose(fp);}
static WORD uni2gid(WORD code){ DWORD i; PGLYPHTABLE p;
for (i = 0, p = pGlyph; i < gtt.dwRunCount; i++, p++) { if (code >= p->wCode && code < p->wCode + p->wCount) return p->wGID + (code - p->wCode); } return 0;}
static void getdef(char *name){ FILE *fp; int res; WORD uni, width, count, v1, v2; WORD GID, curGID; DWORD i, j, line; PWORD p; char buf[80];
if ((fp = fopen(name, "r")) == NULL) fatal(name);
curGID = 0; nWidth = 0; count = 0; line = 0; while (fgets(rbuf, sizeof rbuf, fp)) { line++; if (!isxdigit(rbuf[0])) continue; if ((res = sscanf(rbuf, "%x %d %d", &uni, &v1, &v2)) != 3) { sprintf(buf, "sscanf=%d", res); error(buf); } width = Vflag ? -v2 : v1; if ((GID = uni2gid(uni)) == 0) { sprintf(buf, "Invalid code: %04x", uni); error(buf); } if (GID <= curGID) { sprintf(buf, "dup code: Line:%d: Uni=%d,GID=%d", line, uni, GID); error(buf); } if (curGID == 0 || GID != curGID + 1) { if (pWidthRun == NULL) { if ((pWidthRun = malloc(sizeof(*pWidthRun))) == NULL) fatal("malloc pWidthRun"); } else { pWidthRun[nWidthRun].wGlyphCount = count; nWidthRun++; if ((pWidthRun = realloc(pWidthRun, sizeof(*pWidthRun) * (nWidthRun + 1))) == NULL) fatal("realloc pWidthRun"); } pWidthRun[nWidthRun].wStartGlyph = GID; count = 0; } if (pWidth == NULL) { if ((pWidth = malloc(sizeof(*pWidth))) == NULL) fatal("malloc pWidth"); } else { if ((pWidth = realloc(pWidth, sizeof(*pWidth) * (nWidth + 1))) == NULL) fatal("realloc pWidth"); } pWidth[nWidth] = width; nWidth++; count++; curGID = GID; } if (nWidth) { pWidthRun[nWidthRun].wGlyphCount = count; nWidthRun++; }
if (vflag) { printf("\n=== WIDTHRUN ===\n"); p = pWidth; for (i = 0; i < nWidthRun; i++) { count = pWidthRun[i].wGlyphCount; printf("Glyph=%-5d , Count=%-5d\n", pWidthRun[i].wStartGlyph, count); for (j = 0; j < count; j++) printf("\tWidth[%5d]=%d\n", j, *p++); } }
fclose(fp);}
static void buildufm(char *name){ FILE *fp; DWORD off, size; DWORD i; PWIDTHRUN pRun;
if ((fp = fopen(name, "r+b")) == NULL) fatal(name);
#if 1 // v-masatk Oct/30/98
ufm.loWidthTable = 0; off = ufmsize;#else
ufm.loWidthTable = off = ufmsize;#endif // if 1 else end
if (fwrite(&ufm, sizeof ufm, 1, fp) != 1) fatal("fwrite ufmhdr");
if (fseek(fp, ufm.loIFIMetrics, 0) < 0) fatal(name); if (fread(&IFI, sizeof IFI, 1, fp) != 1) fatal("fread IFIMETRICS"); IFI.flInfo &= ~(FM_INFO_OPTICALLY_FIXED_PITCH|FM_INFO_DBCS_FIXED_PITCH); IFI.jWinPitchAndFamily |= VARIABLE_PITCH; IFI.jWinPitchAndFamily &= ~FIXED_PITCH; if (fseek(fp, ufm.loIFIMetrics, 0) < 0) fatal(name); if (fwrite(&IFI, sizeof IFI, 1, fp) != 1) fatal("fwrite IFIMETRICS");#if 0 // v-masatk Oct/30/98
if (fseek(fp, off, 0) < 0) fatal(name); WidthTable.dwSize = sizeof(WidthTable) + sizeof(WIDTHRUN) * (nWidthRun - 1); WidthTable.dwRunNum = nWidthRun; size = sizeof(WidthTable) - sizeof(WIDTHRUN); if (fwrite(&WidthTable, size, 1, fp) != 1) fatal("fwrite WidthTable"); off = WidthTable.dwSize;
for (i = 0, pRun = pWidthRun; i < nWidthRun; i++, pRun++) { pRun->loCharWidthOffset = off; off += sizeof(*pWidth) * pRun->wGlyphCount; } if (fwrite(pWidthRun, sizeof(WIDTHRUN) * nWidthRun, 1, fp) != 1) fatal("fwrite WidthRun"); if (fwrite(pWidth, sizeof(*pWidth) * nWidth, 1, fp) != 1) fatal("fwrite *pWidth");#endif // if 0
}
void __cdecl main(int argc, char *argv[]){ argc--, argv++; for (; argc && **argv == '-'; argc--, argv++) switch (argv[0][1]) { case 'v': vflag++; break; case 'V': Vflag++; break; }#if 0 // v-masatk Oct/30/98
if (argc != 3) usage();
#endif // if 0
checkufm(argv[0]);#if 0 // v-masatk Oct/30/98
getgtt(argv[1]); getdef(argv[2]);#endif // if 0
buildufm(argv[0]);
exit(0);}
static char Usage[] = "Usage: %s [-v][-V] ufm-file gtt-file def-file\n";static char CmdName[] = "mkwidth";
static void usage(){ fprintf(stderr, Usage, CmdName); exit(1);}
static void fatal(char *s){ fprintf(stderr, "%s: ", CmdName); perror(s); exit(1);}
static void error(char *s){ fprintf(stderr, "%s: %s\n", CmdName, s); exit(1);}
|
