mpdf = $mpdf; $this->writer = $writer; $this->fontCache = $fontCache; $this->fontDescriptor = $fontDescriptor; } public function writeFonts() { foreach ($this->mpdf->FontFiles as $fontkey => $info) { // TrueType embedded if (isset($info['type']) && $info['type'] === 'TTF' && !$info['sip'] && !$info['smp']) { $used = true; $asSubset = false; foreach ($this->mpdf->fonts as $k => $f) { if (isset($f['fontkey']) && $f['fontkey'] === $fontkey && $f['type'] === 'TTF') { $used = $f['used']; if ($used) { $nChars = (ord($f['cw'][0]) << 8) + ord($f['cw'][1]); $usage = (int) (count($f['subset']) * 100 / $nChars); $fsize = $info['length1']; // Always subset the very large TTF files if ($fsize > ($this->mpdf->maxTTFFilesize * 1024)) { $asSubset = true; } elseif ($usage < $this->mpdf->percentSubset) { $asSubset = true; } } if ($this->mpdf->PDFA || $this->mpdf->PDFX) { $asSubset = false; } $this->mpdf->fonts[$k]['asSubset'] = $asSubset; break; } } if ($used && !$asSubset) { // Font file embedding $this->writer->object(); $this->mpdf->FontFiles[$fontkey]['n'] = $this->mpdf->n; $originalsize = $info['length1']; if ($this->mpdf->repackageTTF || $this->mpdf->fonts[$fontkey]['TTCfontID'] > 0 || $this->mpdf->fonts[$fontkey]['useOTL'] > 0) { // mPDF 5.7.1 // First see if there is a cached compressed file if ($this->fontCache->has($fontkey . '.ps.z') && $this->fontCache->jsonHas($fontkey . '.ps.json')) { $font = $this->fontCache->load($fontkey . '.ps.z'); $originalsize = $this->fontCache->jsonLoad($fontkey . '.ps.json'); // sets $originalsize (of repackaged font) } else { $ttf = new TTFontFile($this->fontCache, $this->fontDescriptor); $font = $ttf->repackageTTF($this->mpdf->FontFiles[$fontkey]['ttffile'], $this->mpdf->fonts[$fontkey]['TTCfontID'], $this->mpdf->debugfonts, $this->mpdf->fonts[$fontkey]['useOTL']); // mPDF 5.7.1 $originalsize = strlen($font); $font = gzcompress($font); unset($ttf); $this->fontCache->binaryWrite($fontkey . '.ps.z', $font); $this->fontCache->jsonWrite($fontkey . '.ps.json', $originalsize); } } elseif ($this->fontCache->has($fontkey . '.z')) { $font = $this->fontCache->load($fontkey . '.z'); } else { $font = file_get_contents($this->mpdf->FontFiles[$fontkey]['ttffile']); $font = gzcompress($font); $this->fontCache->binaryWrite($fontkey . '.z', $font); } $this->writer->write('<writer->write('/Filter /FlateDecode'); $this->writer->write('/Length1 ' . $originalsize); $this->writer->write('>>'); $this->writer->stream($font); $this->writer->write('endobj'); } } } foreach ($this->mpdf->fonts as $k => $font) { // Font objects $type = $font['type']; $name = $font['name']; if ($type === 'TTF' && (!isset($font['used']) || !$font['used'])) { continue; } // @log Writing fonts if (isset($font['asSubset'])) { $asSubset = $font['asSubset']; } else { $asSubset = ''; } if ($type === 'Type0') { // Adobe CJK Fonts $this->mpdf->fonts[$k]['n'] = $this->mpdf->n + 1; $this->writer->object(); $this->writer->write('<writeType0($font); } elseif ($type === 'core') { // Standard font $this->mpdf->fonts[$k]['n'] = $this->mpdf->n + 1; if ($this->mpdf->PDFA || $this->mpdf->PDFX) { throw new \Mpdf\MpdfException('Core fonts are not allowed in PDF/A1-b or PDFX/1-a files (Times, Helvetica, Courier etc.)'); } $this->writer->object(); $this->writer->write('<writer->write('/BaseFont /' . $name); $this->writer->write('/Subtype /Type1'); if ($name !== 'Symbol' && $name !== 'ZapfDingbats') { $this->writer->write('/Encoding /WinAnsiEncoding'); } $this->writer->write('>>'); $this->writer->write('endobj'); } elseif ($type === 'TTF' && ($font['sip'] || $font['smp'])) { // TrueType embedded SUBSETS for SIP (CJK extB containing Supplementary Ideographic Plane 2) // Or Unicode Plane 1 - Supplementary Multilingual Plane if (!$font['used']) { continue; } $ssfaid = 'AA'; $ttf = new TTFontFile($this->fontCache, $this->fontDescriptor); $subsetCount = count($font['subsetfontids']); for ($sfid = 0; $sfid < $subsetCount; $sfid++) { $this->mpdf->fonts[$k]['n'][$sfid] = $this->mpdf->n + 1; // NB an array for subset $subsetname = 'MPDF' . $ssfaid . '+' . $font['name']; $ssfaid++; /* For some strange reason a subset ($sfid > 0) containing less than 97 characters causes an error so fill up the array */ for ($j = count($font['subsets'][$sfid]); $j < 98; $j++) { $font['subsets'][$sfid][$j] = 0; } $subset = $font['subsets'][$sfid]; unset($subset[0]); $ttfontstream = $ttf->makeSubsetSIP($font['ttffile'], $subset, $font['TTCfontID'], $this->mpdf->debugfonts, $font['useOTL']); // mPDF 5.7.1 $ttfontsize = strlen($ttfontstream); $fontstream = gzcompress($ttfontstream); $widthstring = ''; $toUnistring = ''; foreach ($font['subsets'][$sfid] as $cp => $u) { $w = $this->mpdf->_getCharWidth($font['cw'], $u); if ($w !== false) { $widthstring .= $w . ' '; } else { $widthstring .= round($ttf->defaultWidth) . ' '; } if ($u > 65535) { $utf8 = chr(($u >> 18) + 240) . chr((($u >> 12) & 63) + 128) . chr((($u >> 6) & 63) + 128) . chr(($u & 63) + 128); $utf16 = mb_convert_encoding($utf8, 'UTF-16BE', 'UTF-8'); $l1 = ord($utf16[0]); $h1 = ord($utf16[1]); $l2 = ord($utf16[2]); $h2 = ord($utf16[3]); $toUnistring .= sprintf("<%02s> <%02s%02s%02s%02s>\n", strtoupper(dechex($cp)), strtoupper(dechex($l1)), strtoupper(dechex($h1)), strtoupper(dechex($l2)), strtoupper(dechex($h2))); } else { $toUnistring .= sprintf("<%02s> <%04s>\n", strtoupper(dechex($cp)), strtoupper(dechex($u))); } } // Additional Type1 or TrueType font $this->writer->object(); $this->writer->write('<writer->write('/BaseFont /' . $subsetname); $this->writer->write('/Subtype /TrueType'); $this->writer->write('/FirstChar 0 /LastChar ' . (count($font['subsets'][$sfid]) - 1)); $this->writer->write('/Widths ' . ($this->mpdf->n + 1) . ' 0 R'); $this->writer->write('/FontDescriptor ' . ($this->mpdf->n + 2) . ' 0 R'); $this->writer->write('/ToUnicode ' . ($this->mpdf->n + 3) . ' 0 R'); $this->writer->write('>>'); $this->writer->write('endobj'); // Widths $this->writer->object(); $this->writer->write('[' . $widthstring . ']'); $this->writer->write('endobj'); // Descriptor $this->writer->object(); $s = '< $v) { if ($kd === 'Flags') { $v |= 4; $v &= ~32; } // SYMBOLIC font flag $s .= ' /' . $kd . ' ' . $v . "\n"; } $s .= '/FontFile2 ' . ($this->mpdf->n + 2) . ' 0 R'; $this->writer->write($s . '>>'); $this->writer->write('endobj'); // ToUnicode $this->writer->object(); $toUni = "/CIDInit /ProcSet findresource begin\n"; $toUni .= "12 dict begin\n"; $toUni .= "begincmap\n"; $toUni .= "/CIDSystemInfo\n"; $toUni .= "< <%02s>\n", strtoupper(dechex(count($font['subsets'][$sfid])-1))); $toUni .= "endcodespacerange\n"; $toUni .= count($font['subsets'][$sfid]) . " beginbfchar\n"; $toUni .= $toUnistring; $toUni .= "endbfchar\n"; $toUni .= "endcmap\n"; $toUni .= "CMapName currentdict /CMap defineresource pop\n"; $toUni .= "end\n"; $toUni .= "end\n"; $this->writer->write('<>'); $this->writer->stream($toUni); $this->writer->write('endobj'); // Font file $this->writer->object(); $this->writer->write('<writer->write('/Filter /FlateDecode'); $this->writer->write('/Length1 ' . $ttfontsize); $this->writer->write('>>'); $this->writer->stream($fontstream); $this->writer->write('endobj'); } // foreach subset unset($ttf); } elseif ($type === 'TTF') { // TrueType embedded SUBSETS or FULL $this->mpdf->fonts[$k]['n'] = $this->mpdf->n + 1; if ($asSubset) { $ssfaid = 'A'; $ttf = new TTFontFile($this->fontCache, $this->fontDescriptor); $fontname = 'MPDFA' . $ssfaid . '+' . $font['name']; $subset = $font['subset']; unset($subset[0]); $ttfontstream = $ttf->makeSubset($font['ttffile'], $subset, $font['TTCfontID'], $this->mpdf->debugfonts, $font['useOTL']); $ttfontsize = strlen($ttfontstream); $fontstream = gzcompress($ttfontstream); $codeToGlyph = $ttf->codeToGlyph; unset($codeToGlyph[0]); } else { $fontname = $font['name']; } // Type0 Font // A composite font - a font composed of other fonts, organized hierarchically $this->writer->object(); $this->writer->write('<writer->write('/Subtype /Type0'); $this->writer->write('/BaseFont /' . $fontname . ''); $this->writer->write('/Encoding /Identity-H'); $this->writer->write('/DescendantFonts [' . ($this->mpdf->n + 1) . ' 0 R]'); $this->writer->write('/ToUnicode ' . ($this->mpdf->n + 2) . ' 0 R'); $this->writer->write('>>'); $this->writer->write('endobj'); // CIDFontType2 // A CIDFont whose glyph descriptions are based on TrueType font technology $this->writer->object(); $this->writer->write('<writer->write('/Subtype /CIDFontType2'); $this->writer->write('/BaseFont /' . $fontname . ''); $this->writer->write('/CIDSystemInfo ' . ($this->mpdf->n + 2) . ' 0 R'); $this->writer->write('/FontDescriptor ' . ($this->mpdf->n + 3) . ' 0 R'); if (isset($font['desc']['MissingWidth'])) { $this->writer->write('/DW ' . $font['desc']['MissingWidth'] . ''); } if (!$asSubset && $this->fontCache->has($font['fontkey'] . '.cw')) { $w = $this->fontCache->load($font['fontkey'] . '.cw'); $this->writer->write($w); } else { $this->writeTTFontWidths($font, $asSubset, ($asSubset ? $ttf->maxUni : 0)); } $this->writer->write('/CIDToGIDMap ' . ($this->mpdf->n + 4) . ' 0 R'); $this->writer->write('>>'); $this->writer->write('endobj'); // ToUnicode $this->writer->object(); $toUni = "/CIDInit /ProcSet findresource begin\n"; $toUni .= "12 dict begin\n"; $toUni .= "begincmap\n"; $toUni .= "/CIDSystemInfo\n"; $toUni .= "<writer->write('<>'); $this->writer->stream($toUni); $this->writer->write('endobj'); // CIDSystemInfo dictionary $this->writer->object(); $this->writer->write('<writer->write('/Ordering (UCS)'); $this->writer->write('/Supplement 0'); $this->writer->write('>>'); $this->writer->write('endobj'); // Font descriptor $this->writer->object(); $this->writer->write('<writer->write('/FontName /' . $fontname); foreach ($font['desc'] as $kd => $v) { if ($asSubset && $kd === 'Flags') { $v |= 4; $v &= ~32; } // SYMBOLIC font flag $this->writer->write(' /' . $kd . ' ' . $v); } if ($font['panose']) { $this->writer->write(' /Style << /Panose <' . $font['panose'] . '> >>'); } if ($asSubset) { $this->writer->write('/FontFile2 ' . ($this->mpdf->n + 2) . ' 0 R'); } elseif ($font['fontkey']) { // obj ID of a stream containing a TrueType font program $this->writer->write('/FontFile2 ' . $this->mpdf->FontFiles[$font['fontkey']]['n'] . ' 0 R'); } $this->writer->write('>>'); $this->writer->write('endobj'); // Embed CIDToGIDMap // A specification of the mapping from CIDs to glyph indices if ($asSubset) { $cidtogidmap = str_pad('', 256 * 256 * 2, "\x00"); foreach ($codeToGlyph as $cc => $glyph) { $cidtogidmap[$cc * 2] = chr($glyph >> 8); $cidtogidmap[$cc * 2 + 1] = chr($glyph & 0xFF); } $cidtogidmap = gzcompress($cidtogidmap); } else { // First see if there is a cached CIDToGIDMapfile if ($this->fontCache->has($font['fontkey'] . '.cgm')) { $cidtogidmap = $this->fontCache->load($font['fontkey'] . '.cgm'); } else { $ttf = new TTFontFile($this->fontCache, $this->fontDescriptor); $charToGlyph = $ttf->getCTG($font['ttffile'], $font['TTCfontID'], $this->mpdf->debugfonts, $font['useOTL']); $cidtogidmap = str_pad('', 256 * 256 * 2, "\x00"); foreach ($charToGlyph as $cc => $glyph) { $cidtogidmap[$cc * 2] = chr($glyph >> 8); $cidtogidmap[$cc * 2 + 1] = chr($glyph & 0xFF); } unset($ttf); $cidtogidmap = gzcompress($cidtogidmap); $this->fontCache->binaryWrite($font['fontkey'] . '.cgm', $cidtogidmap); } } $this->writer->object(); $this->writer->write('<writer->write('/Filter /FlateDecode'); $this->writer->write('>>'); $this->writer->stream($cidtogidmap); $this->writer->write('endobj'); // Font file if ($asSubset) { $this->writer->object(); $this->writer->write('<writer->write('/Filter /FlateDecode'); $this->writer->write('/Length1 ' . $ttfontsize); $this->writer->write('>>'); $this->writer->stream($fontstream); $this->writer->write('endobj'); unset($ttf); } } else { throw new \Mpdf\MpdfException(sprintf('Unsupported font type: %s (%s)', $type, $name)); } } } private function writeTTFontWidths(&$font, $asSubset, $maxUni) // _putTTfontwidths { $character = [ 'startcid' => 1, 'rangeid' => 0, 'prevcid' => -2, 'prevwidth' => -1, 'interval' => false, 'range' => [], ]; $fontCacheFilename = $font['fontkey'] . '.cw127.json'; if ($asSubset && $this->fontCache->jsonHas($fontCacheFilename)) { $character = $this->fontCache->jsonLoad($fontCacheFilename); $character['startcid'] = 128; } // for each character $cwlen = ($asSubset) ? $maxUni + 1 : (strlen($font['cw']) / 2); for ($cid = $character['startcid']; $cid < $cwlen; $cid++) { if ($cid == 128 && $asSubset && (!$this->fontCache->has($fontCacheFilename))) { $character = [ 'rangeid' => $character['rangeid'], 'prevcid' => $character['prevcid'], 'prevwidth' => $character['prevwidth'], 'interval' => $character['interval'], 'range' => $character['range'], ]; $this->fontCache->jsonWrite($fontCacheFilename, $character); } $character1 = isset($font['cw'][$cid * 2]) ? $font['cw'][$cid * 2] : ''; $character2 = isset($font['cw'][$cid * 2 + 1]) ? $font['cw'][$cid * 2 + 1] : ''; if ($character1 === "\00" && $character2 === "\00") { continue; } $width = (ord($character1) << 8) + ord($character2); if ($width === 65535) { $width = 0; } if ($asSubset && $cid > 255 && (!isset($font['subset'][$cid]) || !$font['subset'][$cid])) { continue; } if ($asSubset && $cid > 0xFFFF) { continue; } // mPDF 6 if (!isset($font['dw']) || (isset($font['dw']) && $width != $font['dw'])) { if ($cid === ($character['prevcid'] + 1)) { // consecutive CID if ($width === $character['prevwidth']) { if (isset($character['range'][$character['rangeid']][0]) && $width === $character['range'][$character['rangeid']][0]) { $character['range'][$character['rangeid']][] = $width; } else { array_pop($character['range'][$character['rangeid']]); // new range $character['rangeid'] = $character['prevcid']; $character['range'][$character['rangeid']] = []; $character['range'][$character['rangeid']][] = $character['prevwidth']; $character['range'][$character['rangeid']][] = $width; } $character['interval'] = true; $character['range'][$character['rangeid']]['interval'] = true; } else { if ($character['interval']) { // new range $character['rangeid'] = $cid; $character['range'][$character['rangeid']] = []; $character['range'][$character['rangeid']][] = $width; } else { $character['range'][$character['rangeid']][] = $width; } $character['interval'] = false; } } else { // new range $character['rangeid'] = $cid; $character['range'][$character['rangeid']] = []; $character['range'][$character['rangeid']][] = $width; $character['interval'] = false; } $character['prevcid'] = $cid; $character['prevwidth'] = $width; } } $w = $this->writeFontRanges($character['range']); $this->writer->write($w); if (!$asSubset) { $this->fontCache->binaryWrite($font['fontkey'] . '.cw', $w); } } private function writeFontRanges(&$range) // _putfontranges { // optimize ranges $prevk = -1; $nextk = -1; $prevint = false; foreach ($range as $k => $ws) { $cws = count($ws); if (($k == $nextk) and ( !$prevint) and ( (!isset($ws['interval'])) or ( $cws < 4))) { if (isset($range[$k]['interval'])) { unset($range[$k]['interval']); } $range[$prevk] = array_merge($range[$prevk], $range[$k]); unset($range[$k]); } else { $prevk = $k; } $nextk = $k + $cws; if (isset($ws['interval'])) { if ($cws > 3) { $prevint = true; } else { $prevint = false; } unset($range[$k]['interval']); --$nextk; } else { $prevint = false; } } // output data $w = ''; foreach ($range as $k => $ws) { if (count(array_count_values($ws)) === 1) { // interval mode is more compact $w .= ' ' . $k . ' ' . ($k + count($ws) - 1) . ' ' . $ws[0]; } else { // range mode $w .= ' ' . $k . ' [ ' . implode(' ', $ws) . ' ]' . "\n"; } } return '/W [' . $w . ' ]'; } private function writeFontWidths(&$font, $cidoffset = 0) // _putfontwidths { ksort($font['cw']); unset($font['cw'][65535]); $rangeid = 0; $range = []; $prevcid = -2; $prevwidth = -1; $interval = false; // for each character foreach ($font['cw'] as $cid => $width) { $cid -= $cidoffset; if (!isset($font['dw']) || (isset($font['dw']) && $width != $font['dw'])) { if ($cid === ($prevcid + 1)) { // consecutive CID if ($width === $prevwidth) { if ($width === $range[$rangeid][0]) { $range[$rangeid][] = $width; } else { array_pop($range[$rangeid]); // new range $rangeid = $prevcid; $range[$rangeid] = []; $range[$rangeid][] = $prevwidth; $range[$rangeid][] = $width; } $interval = true; $range[$rangeid]['interval'] = true; } else { if ($interval) { // new range $rangeid = $cid; $range[$rangeid] = []; $range[$rangeid][] = $width; } else { $range[$rangeid][] = $width; } $interval = false; } } else { // new range $rangeid = $cid; $range[$rangeid] = []; $range[$rangeid][] = $width; $interval = false; } $prevcid = $cid; $prevwidth = $width; } } $this->writer->write($this->writeFontRanges($range)); } // from class PDF_Chinese CJK EXTENSIONS public function writeType0(&$font) // _putType0 { // Type0 $this->writer->write('/Subtype /Type0'); $this->writer->write('/BaseFont /' . $font['name'] . '-' . $font['CMap']); $this->writer->write('/Encoding /' . $font['CMap']); $this->writer->write('/DescendantFonts [' . ($this->mpdf->n + 1) . ' 0 R]'); $this->writer->write('>>'); $this->writer->write('endobj'); // CIDFont $this->writer->object(); $this->writer->write('<writer->write('/Subtype /CIDFontType0'); $this->writer->write('/BaseFont /' . $font['name']); $cidinfo = '/Registry ' . $this->writer->string('Adobe'); $cidinfo .= ' /Ordering ' . $this->writer->string($font['registry']['ordering']); $cidinfo .= ' /Supplement ' . $font['registry']['supplement']; $this->writer->write('/CIDSystemInfo <<' . $cidinfo . '>>'); $this->writer->write('/FontDescriptor ' . ($this->mpdf->n + 1) . ' 0 R'); if (isset($font['MissingWidth'])) { $this->writer->write('/DW ' . $font['MissingWidth'] . ''); } $this->writeFontWidths($font, 31); $this->writer->write('>>'); $this->writer->write('endobj'); // Font descriptor $this->writer->object(); $s = '< $v) { if ($k !== 'Style') { $s .= ' /' . $k . ' ' . $v . ''; } } $this->writer->write($s . '>>'); $this->writer->write('endobj'); } }