/* This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. Copyright (C) 2002-2020 by Jin-Hwan Cho and Shunsaku Hirata, the dvipdfmx project team. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */ #ifdef HAVE_CONFIG_H #include #endif #include #include "system.h" #include "error.h" #include "mem.h" #include "mfileio.h" #include "sfnt.h" #include "tt_table.h" /* tables contains information refered by other tables maxp->numGlyphs, etc --> loca, etc hhea->numOfLongHorMetrics --> hmtx head->indexToLocFormat --> loca head->glyphDataFormat --> glyf */ char *tt_pack_head_table (struct tt_head_table *table) { int i; char *p, *data; if (table == NULL) ERROR("passed NULL pointer\n"); p = data = NEW(TT_HEAD_TABLE_SIZE, char); p += sfnt_put_ulong(p, table->version); p += sfnt_put_ulong(p, table->fontRevision); p += sfnt_put_ulong(p, table->checkSumAdjustment); p += sfnt_put_ulong(p, table->magicNumber); p += sfnt_put_ushort(p, table->flags); p += sfnt_put_ushort(p, table->unitsPerEm); for (i=0; i<8; i++) { *(p++) = (table->created)[i]; } for (i=0; i<8; i++) { *(p++) = (table->modified)[i]; } p += sfnt_put_short(p, table->xMin); p += sfnt_put_short(p, table->yMin); p += sfnt_put_short(p, table->xMax); p += sfnt_put_short(p, table->yMax); p += sfnt_put_ushort(p, table->macStyle); p += sfnt_put_ushort(p, table->lowestRecPPEM); p += sfnt_put_short(p, table->fontDirectionHint); p += sfnt_put_short(p, table->indexToLocFormat); p += sfnt_put_short(p, table->glyphDataFormat); return data; } struct tt_head_table *tt_read_head_table (sfnt *sfont) { int i; struct tt_head_table *table = NEW(1, struct tt_head_table); sfnt_locate_table(sfont, "head"); table->version = sfnt_get_ulong(sfont); table->fontRevision = sfnt_get_ulong(sfont); table->checkSumAdjustment = sfnt_get_ulong(sfont); table->magicNumber = sfnt_get_ulong(sfont); table->flags = sfnt_get_ushort(sfont); table->unitsPerEm = sfnt_get_ushort(sfont); for (i=0; i<8; i++) { (table->created)[i] = sfnt_get_byte (sfont); } for (i=0; i<8; i++) { (table->modified)[i] = sfnt_get_byte (sfont); } table->xMin = sfnt_get_short(sfont); table->yMin = sfnt_get_short(sfont); table->xMax = sfnt_get_short(sfont); table->yMax = sfnt_get_short(sfont); table->macStyle = sfnt_get_short(sfont); table->lowestRecPPEM = sfnt_get_short(sfont); table->fontDirectionHint = sfnt_get_short(sfont); table->indexToLocFormat = sfnt_get_short(sfont); table->glyphDataFormat = sfnt_get_short(sfont); return table; } char *tt_pack_maxp_table (struct tt_maxp_table *table) { char *p, *data; p = data = NEW(TT_MAXP_TABLE_SIZE, char); p += sfnt_put_ulong(p, table->version); p += sfnt_put_ushort(p, table->numGlyphs); p += sfnt_put_ushort(p, table->maxPoints); p += sfnt_put_ushort(p, table->maxContours); p += sfnt_put_ushort(p, table->maxComponentPoints); p += sfnt_put_ushort(p, table->maxComponentContours); p += sfnt_put_ushort(p, table->maxZones); p += sfnt_put_ushort(p, table->maxTwilightPoints); p += sfnt_put_ushort(p, table->maxStorage); p += sfnt_put_ushort(p, table->maxFunctionDefs); p += sfnt_put_ushort(p, table->maxInstructionDefs); p += sfnt_put_ushort(p, table->maxStackElements); p += sfnt_put_ushort(p, table->maxSizeOfInstructions); p += sfnt_put_ushort(p, table->maxComponentElements); p += sfnt_put_ushort(p, table->maxComponentDepth); return data; } struct tt_maxp_table *tt_read_maxp_table (sfnt *sfont) { struct tt_maxp_table *table = NEW(1, struct tt_maxp_table); sfnt_locate_table(sfont, "maxp"); table->version = sfnt_get_ulong(sfont); table->numGlyphs = sfnt_get_ushort(sfont); table->maxPoints = sfnt_get_ushort(sfont); table->maxContours = sfnt_get_ushort(sfont); table->maxComponentPoints = sfnt_get_ushort(sfont); table->maxComponentContours = sfnt_get_ushort(sfont); table->maxZones = sfnt_get_ushort(sfont); table->maxTwilightPoints = sfnt_get_ushort(sfont); table->maxStorage = sfnt_get_ushort(sfont); table->maxFunctionDefs = sfnt_get_ushort(sfont); table->maxInstructionDefs = sfnt_get_ushort(sfont); table->maxStackElements = sfnt_get_ushort(sfont); table->maxSizeOfInstructions = sfnt_get_ushort(sfont); table->maxComponentElements = sfnt_get_ushort(sfont); table->maxComponentDepth = sfnt_get_ushort(sfont); return table; } char *tt_pack_hhea_table (struct tt_hhea_table *table) { int i; char *p, *data; p = data = NEW(TT_HHEA_TABLE_SIZE, char); p += sfnt_put_ulong(p, table->version); p += sfnt_put_short(p, table->ascent); p += sfnt_put_short(p, table->descent); p += sfnt_put_short(p, table->lineGap); p += sfnt_put_ushort(p, table->advanceWidthMax); p += sfnt_put_short(p, table->minLeftSideBearing); p += sfnt_put_short(p, table->minRightSideBearing); p += sfnt_put_short(p, table->xMaxExtent); p += sfnt_put_short(p, table->caretSlopeRise); p += sfnt_put_short(p, table->caretSlopeRun); p += sfnt_put_short(p, table->caretOffset); for (i = 0; i < 4; i++) { p += sfnt_put_short(p, table->reserved[i]); } p += sfnt_put_short(p, table->metricDataFormat); p += sfnt_put_ushort(p, table->numOfLongHorMetrics); return data; } struct tt_hhea_table * tt_read_hhea_table (sfnt *sfont) { int i; ULONG len; struct tt_hhea_table *table = NEW(1, struct tt_hhea_table); sfnt_locate_table(sfont, "hhea"); table->version = sfnt_get_ulong(sfont); table->ascent = sfnt_get_short (sfont); table->descent = sfnt_get_short(sfont); table->lineGap = sfnt_get_short(sfont); table->advanceWidthMax = sfnt_get_ushort(sfont); table->minLeftSideBearing = sfnt_get_short(sfont); table->minRightSideBearing = sfnt_get_short(sfont); table->xMaxExtent = sfnt_get_short(sfont); table->caretSlopeRise = sfnt_get_short(sfont); table->caretSlopeRun = sfnt_get_short(sfont); table->caretOffset = sfnt_get_short(sfont); for(i = 0; i < 4; i++) { table->reserved[i] = sfnt_get_short(sfont); } table->metricDataFormat = sfnt_get_short(sfont); if (table->metricDataFormat != 0) ERROR("unknown metricDataFormat"); table->numOfLongHorMetrics = sfnt_get_ushort(sfont); len = sfnt_find_table_len(sfont, "hmtx"); table->numOfExSideBearings = (USHORT)((len - table->numOfLongHorMetrics * 4) / 2); return table; } /* vhea */ #if 0 char * tt_pack_vhea_table (struct tt_vhea_table *table) { int i; char *p, *data; p = data = NEW(TT_VHEA_TABLE_SIZE, char); p += sfnt_put_ulong(p, table->version); p += sfnt_put_short(p, table->vertTypoAscender); p += sfnt_put_short(p, table->vertTypoDescender); p += sfnt_put_short(p, table->vertTypoLineGap); p += sfnt_put_short(p, table->advanceHeightMax); /* ushort ? */ p += sfnt_put_short(p, table->minTopSideBearing); p += sfnt_put_short(p, table->minBottomSideBearing); p += sfnt_put_short(p, table->yMaxExtent); p += sfnt_put_short(p, table->caretSlopeRise); p += sfnt_put_short(p, table->caretSlopeRun); p += sfnt_put_short(p, table->caretOffset); for(i = 0; i < 4; i++) { p += sfnt_put_short(p, table->reserved[i]); } p += sfnt_put_short(p, table->metricDataFormat); p += sfnt_put_ushort(p, table->numOfLongVerMetrics); return data; } #endif struct tt_vhea_table *tt_read_vhea_table (sfnt *sfont) { int i; ULONG len; struct tt_vhea_table *table = NEW(1, struct tt_vhea_table); sfnt_locate_table(sfont, "vhea"); table->version = sfnt_get_ulong(sfont); table->vertTypoAscender = sfnt_get_short (sfont); table->vertTypoDescender = sfnt_get_short(sfont); table->vertTypoLineGap = sfnt_get_short(sfont); table->advanceHeightMax = sfnt_get_short(sfont); /* ushort ? */ table->minTopSideBearing = sfnt_get_short(sfont); table->minBottomSideBearing = sfnt_get_short(sfont); table->yMaxExtent = sfnt_get_short(sfont); table->caretSlopeRise = sfnt_get_short(sfont); table->caretSlopeRun = sfnt_get_short(sfont); table->caretOffset = sfnt_get_short(sfont); for(i = 0; i < 4; i++) { (table->reserved)[i] = sfnt_get_short(sfont); } table->metricDataFormat = sfnt_get_short(sfont); table->numOfLongVerMetrics = sfnt_get_ushort(sfont); len = sfnt_find_table_len(sfont, "vmtx"); table->numOfExSideBearings = (USHORT)((len - table->numOfLongVerMetrics * 4) / 2); return table; } struct tt_VORG_table * tt_read_VORG_table (sfnt *sfont) { struct tt_VORG_table *vorg; ULONG offset; USHORT i; offset = sfnt_find_table_pos(sfont, "VORG"); if (offset > 0) { vorg = NEW(1, struct tt_VORG_table); sfnt_locate_table(sfont, "VORG"); if (sfnt_get_ushort(sfont) != 1 || sfnt_get_ushort(sfont) != 0) ERROR("Unsupported VORG version."); vorg->defaultVertOriginY = sfnt_get_short(sfont); vorg->numVertOriginYMetrics = sfnt_get_ushort(sfont); vorg->vertOriginYMetrics = NEW(vorg->numVertOriginYMetrics, struct tt_vertOriginYMetrics); /* * The vertOriginYMetrics array must be sorted in increasing * glyphIndex order. */ for (i = 0; i < vorg->numVertOriginYMetrics; i++) { vorg->vertOriginYMetrics[i].glyphIndex = sfnt_get_ushort(sfont); vorg->vertOriginYMetrics[i].vertOriginY = sfnt_get_short(sfont); } } else { vorg = NULL; } return vorg; } /* * hmtx and vmtx * * Reading/writing hmtx and vmtx depend on other tables, maxp and hhea/vhea. */ struct tt_longMetrics * tt_read_longMetrics (sfnt *sfont, USHORT numGlyphs, USHORT numLongMetrics, USHORT numExSideBearings) { struct tt_longMetrics *m; USHORT gid, last_adv = 0; SHORT last_esb = 0; m = NEW(numGlyphs, struct tt_longMetrics); for (gid = 0; gid < numGlyphs; gid++) { if (gid < numLongMetrics) last_adv = sfnt_get_ushort(sfont); if (gid < numLongMetrics + numExSideBearings) last_esb = sfnt_get_short(sfont); m[gid].advance = last_adv; m[gid].sideBearing = last_esb; } return m; } /* OS/2 table */ /* this table may not exist */ struct tt_os2__table * tt_read_os2__table (sfnt *sfont) { struct tt_os2__table *table = NULL; int i; table = NEW(1, struct tt_os2__table); if (sfnt_find_table_pos(sfont, "OS/2") > 0) { sfnt_locate_table(sfont, "OS/2"); table->version = sfnt_get_ushort(sfont); table->xAvgCharWidth = sfnt_get_short(sfont); table->usWeightClass = sfnt_get_ushort(sfont); table->usWidthClass = sfnt_get_ushort(sfont); table->fsType = sfnt_get_short(sfont); table->ySubscriptXSize = sfnt_get_short(sfont); table->ySubscriptYSize = sfnt_get_short(sfont); table->ySubscriptXOffset = sfnt_get_short(sfont); table->ySubscriptYOffset = sfnt_get_short(sfont); table->ySuperscriptXSize = sfnt_get_short(sfont); table->ySuperscriptYSize = sfnt_get_short(sfont); table->ySuperscriptXOffset = sfnt_get_short(sfont); table->ySuperscriptYOffset = sfnt_get_short(sfont); table->yStrikeoutSize = sfnt_get_short(sfont); table->yStrikeoutPosition = sfnt_get_short(sfont); table->sFamilyClass = sfnt_get_short(sfont); for (i = 0; i < 10; i++) { table->panose[i] = sfnt_get_byte(sfont); } table->ulUnicodeRange1 = sfnt_get_ulong(sfont); table->ulUnicodeRange2 = sfnt_get_ulong(sfont); table->ulUnicodeRange3 = sfnt_get_ulong(sfont); table->ulUnicodeRange4 = sfnt_get_ulong(sfont); for (i = 0; i < 4; i++) { table->achVendID[i] = sfnt_get_char(sfont); } table->fsSelection = sfnt_get_ushort(sfont); table->usFirstCharIndex = sfnt_get_ushort(sfont); table->usLastCharIndex = sfnt_get_ushort(sfont); if (sfnt_find_table_len(sfont, "OS/2") >= 78) { /* these fields are not present in the original Apple spec (68-byte table), but Microsoft's version of "format 0" does include them... grr! */ table->sTypoAscender = sfnt_get_short(sfont); table->sTypoDescender = sfnt_get_short(sfont); table->sTypoLineGap = sfnt_get_short(sfont); table->usWinAscent = sfnt_get_ushort(sfont); table->usWinDescent = sfnt_get_ushort(sfont); if (table->version > 0) { /* format 1 adds the following 2 fields */ table->ulCodePageRange1 = sfnt_get_ulong(sfont); table->ulCodePageRange2 = sfnt_get_ulong(sfont); if (table->version > 1) { /* and formats 2 and 3 (current) include 5 more.... these share the same fields, only the precise definition of some was changed */ table->sxHeight = sfnt_get_short(sfont); table->sCapHeight = sfnt_get_short(sfont); table->usDefaultChar = sfnt_get_ushort(sfont); table->usBreakChar = sfnt_get_ushort(sfont); table->usMaxContext = sfnt_get_ushort(sfont); } } } } else { /* used in add_CIDVMetrics() of cidtype0.c */ table->sTypoAscender = 880; table->sTypoDescender = -120; /* used in tt_get_fontdesc() of tt_aux.c */ table->usWeightClass = 400U; /* Normal(Regular) */ table->xAvgCharWidth = 0; /* ignore */ table->version = 0; /* TrueType rev 1.5 */ table->fsType = 0; /* Installable Embedding */ table->fsSelection = 0U; /* All undefined */ table->sFamilyClass = 0; /* No Classification */ for (i = 0; i < 10; i++) { table->panose[i] = 0; /* All Any */ } } return table; } static USHORT tt_get_name (sfnt *sfont, char *dest, USHORT destlen, USHORT plat_id, USHORT enco_id, USHORT lang_id, USHORT name_id) { USHORT length = 0; USHORT num_names, string_offset; ULONG name_offset; int i, j; int is_utf16_be; name_offset = sfnt_locate_table (sfont, "name"); is_utf16_be = (plat_id == 3) && (enco_id == 1) && (lang_id == 0x0409u) && (name_id == 6); if (sfnt_get_ushort(sfont)) ERROR ("Expecting zero"); num_names = sfnt_get_ushort(sfont); string_offset = sfnt_get_ushort(sfont); for (i=0;i destlen - 1) { WARN ("Name string too long (%u), truncating to %u", length, destlen); length = destlen - 1; } sfnt_seek_set (sfont, name_offset+string_offset+offset); if (is_utf16_be) { for (j=0;j