Search moodle.org's
Developer Documentation
Developer Documentation
- Bug fixes for general core bugs in 4.3.x will end 7 October 2024 (12 months).
- Bug fixes for security issues in 4.3.x will end 21 April 2025 (18 months).
- PHP version: minimum PHP 8.0.0 Note: minimum PHP version has increased since Moodle 4.1. PHP 8.2.x is supported too.
/lib/tcpdf/include/ -> tcpdf_fonts.php (source)
Differences Between: [Versions 310 and 403] [Versions 311 and 403] [Versions 39 and 403] [Versions 400 and 403]
1 <?php 2 //============================================================+ 3 // File name : tcpdf_fonts.php 4 // Version : 1.1.0 5 // Begin : 2008-01-01 6 // Last Update : 2014-12-10 7 // Author : Nicola Asuni - Tecnick.com LTD - www.tecnick.com - info@tecnick.com 8 // License : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html) 9 // ------------------------------------------------------------------- 10 // Copyright (C) 2008-2014 Nicola Asuni - Tecnick.com LTD 11 // 12 // This file is part of TCPDF software library. 13 // 14 // TCPDF is free software: you can redistribute it and/or modify it 15 // under the terms of the GNU Lesser General Public License as 16 // published by the Free Software Foundation, either version 3 of the 17 // License, or (at your option) any later version. 18 // 19 // TCPDF is distributed in the hope that it will be useful, but 20 // WITHOUT ANY WARRANTY; without even the implied warranty of 21 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 22 // See the GNU Lesser General Public License for more details. 23 // 24 // You should have received a copy of the GNU Lesser General Public License 25 // along with TCPDF. If not, see <http://www.gnu.org/licenses/>. 26 // 27 // See LICENSE.TXT file for more information. 28 // ------------------------------------------------------------------- 29 // 30 // Description :Font methods for TCPDF library. 31 // 32 //============================================================+ 33 34 /** 35 * @file 36 * Unicode data and font methods for TCPDF library. 37 * @author Nicola Asuni 38 * @package com.tecnick.tcpdf 39 */ 40 41 /** 42 * @class TCPDF_FONTS 43 * Font methods for TCPDF library. 44 * @package com.tecnick.tcpdf 45 * @version 1.1.0 46 * @author Nicola Asuni - info@tecnick.com 47 */ 48 class TCPDF_FONTS { 49 50 /** 51 * Static cache used for speed up uniord performances 52 * @protected 53 */ 54 protected static $cache_uniord = array(); 55 56 /** 57 * Convert and add the selected TrueType or Type1 font to the fonts folder (that must be writeable). 58 * @param string $fontfile Font file (full path). 59 * @param string $fonttype Font type. Leave empty for autodetect mode. Valid values are: TrueTypeUnicode, TrueType, Type1, CID0JP = CID-0 Japanese, CID0KR = CID-0 Korean, CID0CS = CID-0 Chinese Simplified, CID0CT = CID-0 Chinese Traditional. 60 * @param string $enc Name of the encoding table to use. Leave empty for default mode. Omit this parameter for TrueType Unicode and symbolic fonts like Symbol or ZapfDingBats. 61 * @param int $flags Unsigned 32-bit integer containing flags specifying various characteristics of the font (PDF32000:2008 - 9.8.2 Font Descriptor Flags): +1 for fixed font; +4 for symbol or +32 for non-symbol; +64 for italic. Fixed and Italic mode are generally autodetected so you have to set it to 32 = non-symbolic font (default) or 4 = symbolic font. 62 * @param string $outpath Output path for generated font files (must be writeable by the web server). Leave empty for default font folder. 63 * @param int $platid Platform ID for CMAP table to extract (when building a Unicode font for Windows this value should be 3, for Macintosh should be 1). 64 * @param int $encid Encoding ID for CMAP table to extract (when building a Unicode font for Windows this value should be 1, for Macintosh should be 0). When Platform ID is 3, legal values for Encoding ID are: 0=Symbol, 1=Unicode, 2=ShiftJIS, 3=PRC, 4=Big5, 5=Wansung, 6=Johab, 7=Reserved, 8=Reserved, 9=Reserved, 10=UCS-4. 65 * @param boolean $addcbbox If true includes the character bounding box information on the php font file. 66 * @param boolean $link If true link to system font instead of copying the font data (not transportable) - Note: do not work with Type1 fonts. 67 * @return string|false TCPDF font name or boolean false in case of error. 68 * @author Nicola Asuni 69 * @since 5.9.123 (2010-09-30) 70 * @public static 71 */ 72 public static function addTTFfont($fontfile, $fonttype='', $enc='', $flags=32, $outpath='', $platid=3, $encid=1, $addcbbox=false, $link=false) { 73 if (!TCPDF_STATIC::file_exists($fontfile)) { 74 // Could not find file 75 return false; 76 } 77 // font metrics 78 $fmetric = array(); 79 // build new font name for TCPDF compatibility 80 $font_path_parts = pathinfo($fontfile); 81 if (!isset($font_path_parts['filename'])) { 82 $font_path_parts['filename'] = substr($font_path_parts['basename'], 0, -(strlen($font_path_parts['extension']) + 1)); 83 } 84 $font_name = strtolower($font_path_parts['filename']); 85 $font_name = preg_replace('/[^a-z0-9_]/', '', $font_name); 86 $search = array('bold', 'oblique', 'italic', 'regular'); 87 $replace = array('b', 'i', 'i', ''); 88 $font_name = str_replace($search, $replace, $font_name); 89 if (empty($font_name)) { 90 // set generic name 91 $font_name = 'tcpdffont'; 92 } 93 // set output path 94 if (empty($outpath)) { 95 $outpath = self::_getfontpath(); 96 } 97 // check if this font already exist 98 if (@TCPDF_STATIC::file_exists($outpath.$font_name.'.php')) { 99 // this font already exist (delete it from fonts folder to rebuild it) 100 return $font_name; 101 } 102 $fmetric['file'] = $font_name; 103 $fmetric['ctg'] = $font_name.'.ctg.z'; 104 // get font data 105 $font = file_get_contents($fontfile); 106 $fmetric['originalsize'] = strlen($font); 107 // autodetect font type 108 if (empty($fonttype)) { 109 if (TCPDF_STATIC::_getULONG($font, 0) == 0x10000) { 110 // True Type (Unicode or not) 111 $fonttype = 'TrueTypeUnicode'; 112 } elseif (substr($font, 0, 4) == 'OTTO') { 113 // Open Type (Unicode or not) 114 //Unsupported font format: OpenType with CFF data 115 return false; 116 } else { 117 // Type 1 118 $fonttype = 'Type1'; 119 } 120 } 121 // set font type 122 switch ($fonttype) { 123 case 'CID0CT': 124 case 'CID0CS': 125 case 'CID0KR': 126 case 'CID0JP': { 127 $fmetric['type'] = 'cidfont0'; 128 break; 129 } 130 case 'Type1': { 131 $fmetric['type'] = 'Type1'; 132 if (empty($enc) AND (($flags & 4) == 0)) { 133 $enc = 'cp1252'; 134 } 135 break; 136 } 137 case 'TrueType': { 138 $fmetric['type'] = 'TrueType'; 139 break; 140 } 141 case 'TrueTypeUnicode': 142 default: { 143 $fmetric['type'] = 'TrueTypeUnicode'; 144 break; 145 } 146 } 147 // set encoding maps (if any) 148 $fmetric['enc'] = preg_replace('/[^A-Za-z0-9_\-]/', '', $enc); 149 $fmetric['diff'] = ''; 150 if (($fmetric['type'] == 'TrueType') OR ($fmetric['type'] == 'Type1')) { 151 if (!empty($enc) AND ($enc != 'cp1252') AND isset(TCPDF_FONT_DATA::$encmap[$enc])) { 152 // build differences from reference encoding 153 $enc_ref = TCPDF_FONT_DATA::$encmap['cp1252']; 154 $enc_target = TCPDF_FONT_DATA::$encmap[$enc]; 155 $last = 0; 156 for ($i = 32; $i <= 255; ++$i) { 157 if ($enc_target[$i] != $enc_ref[$i]) { 158 if ($i != ($last + 1)) { 159 $fmetric['diff'] .= $i.' '; 160 } 161 $last = $i; 162 $fmetric['diff'] .= '/'.$enc_target[$i].' '; 163 } 164 } 165 } 166 } 167 // parse the font by type 168 if ($fmetric['type'] == 'Type1') { 169 // ---------- TYPE 1 ---------- 170 // read first segment 171 $a = unpack('Cmarker/Ctype/Vsize', substr($font, 0, 6)); 172 if ($a['marker'] != 128) { 173 // Font file is not a valid binary Type1 174 return false; 175 } 176 $fmetric['size1'] = $a['size']; 177 $data = substr($font, 6, $fmetric['size1']); 178 // read second segment 179 $a = unpack('Cmarker/Ctype/Vsize', substr($font, (6 + $fmetric['size1']), 6)); 180 if ($a['marker'] != 128) { 181 // Font file is not a valid binary Type1 182 return false; 183 } 184 $fmetric['size2'] = $a['size']; 185 $encrypted = substr($font, (12 + $fmetric['size1']), $fmetric['size2']); 186 $data .= $encrypted; 187 // store compressed font 188 $fmetric['file'] .= '.z'; 189 $fp = TCPDF_STATIC::fopenLocal($outpath.$fmetric['file'], 'wb'); 190 fwrite($fp, gzcompress($data)); 191 fclose($fp); 192 // get font info 193 $fmetric['Flags'] = $flags; 194 preg_match ('#/FullName[\s]*\(([^\)]*)#', $font, $matches); 195 $fmetric['name'] = preg_replace('/[^a-zA-Z0-9_\-]/', '', $matches[1]); 196 preg_match('#/FontBBox[\s]*{([^}]*)#', $font, $matches); 197 $fmetric['bbox'] = trim($matches[1]); 198 $bv = explode(' ', $fmetric['bbox']); 199 $fmetric['Ascent'] = intval($bv[3]); 200 $fmetric['Descent'] = intval($bv[1]); 201 preg_match('#/ItalicAngle[\s]*([0-9\+\-]*)#', $font, $matches); 202 $fmetric['italicAngle'] = intval($matches[1]); 203 if ($fmetric['italicAngle'] != 0) { 204 $fmetric['Flags'] |= 64; 205 } 206 preg_match('#/UnderlinePosition[\s]*([0-9\+\-]*)#', $font, $matches); 207 $fmetric['underlinePosition'] = intval($matches[1]); 208 preg_match('#/UnderlineThickness[\s]*([0-9\+\-]*)#', $font, $matches); 209 $fmetric['underlineThickness'] = intval($matches[1]); 210 preg_match('#/isFixedPitch[\s]*([^\s]*)#', $font, $matches); 211 if ($matches[1] == 'true') { 212 $fmetric['Flags'] |= 1; 213 } 214 // get internal map 215 $imap = array(); 216 if (preg_match_all('#dup[\s]([0-9]+)[\s]*/([^\s]*)[\s]put#sU', $font, $fmap, PREG_SET_ORDER) > 0) { 217 foreach ($fmap as $v) { 218 $imap[$v[2]] = $v[1]; 219 } 220 } 221 // decrypt eexec encrypted part 222 $r = 55665; // eexec encryption constant 223 $c1 = 52845; 224 $c2 = 22719; 225 $elen = strlen($encrypted); 226 $eplain = ''; 227 for ($i = 0; $i < $elen; ++$i) { 228 $chr = ord($encrypted[$i]); 229 $eplain .= chr($chr ^ ($r >> 8)); 230 $r = ((($chr + $r) * $c1 + $c2) % 65536); 231 } 232 if (preg_match('#/ForceBold[\s]*([^\s]*)#', $eplain, $matches) > 0) { 233 if ($matches[1] == 'true') { 234 $fmetric['Flags'] |= 0x40000; 235 } 236 } 237 if (preg_match('#/StdVW[\s]*\[([^\]]*)#', $eplain, $matches) > 0) { 238 $fmetric['StemV'] = intval($matches[1]); 239 } else { 240 $fmetric['StemV'] = 70; 241 } 242 if (preg_match('#/StdHW[\s]*\[([^\]]*)#', $eplain, $matches) > 0) { 243 $fmetric['StemH'] = intval($matches[1]); 244 } else { 245 $fmetric['StemH'] = 30; 246 } 247 if (preg_match('#/BlueValues[\s]*\[([^\]]*)#', $eplain, $matches) > 0) { 248 $bv = explode(' ', $matches[1]); 249 if (count($bv) >= 6) { 250 $v1 = intval($bv[2]); 251 $v2 = intval($bv[4]); 252 if ($v1 <= $v2) { 253 $fmetric['XHeight'] = $v1; 254 $fmetric['CapHeight'] = $v2; 255 } else { 256 $fmetric['XHeight'] = $v2; 257 $fmetric['CapHeight'] = $v1; 258 } 259 } else { 260 $fmetric['XHeight'] = 450; 261 $fmetric['CapHeight'] = 700; 262 } 263 } else { 264 $fmetric['XHeight'] = 450; 265 $fmetric['CapHeight'] = 700; 266 } 267 // get the number of random bytes at the beginning of charstrings 268 if (preg_match('#/lenIV[\s]*([0-9]*)#', $eplain, $matches) > 0) { 269 $lenIV = intval($matches[1]); 270 } else { 271 $lenIV = 4; 272 } 273 $fmetric['Leading'] = 0; 274 // get charstring data 275 $eplain = substr($eplain, (strpos($eplain, '/CharStrings') + 1)); 276 preg_match_all('#/([A-Za-z0-9\.]*)[\s][0-9]+[\s]RD[\s](.*)[\s]ND#sU', $eplain, $matches, PREG_SET_ORDER); 277 if (!empty($enc) AND isset(TCPDF_FONT_DATA::$encmap[$enc])) { 278 $enc_map = TCPDF_FONT_DATA::$encmap[$enc]; 279 } else { 280 $enc_map = false; 281 } 282 $fmetric['cw'] = ''; 283 $fmetric['MaxWidth'] = 0; 284 $cwidths = array(); 285 foreach ($matches as $k => $v) { 286 $cid = 0; 287 if (isset($imap[$v[1]])) { 288 $cid = $imap[$v[1]]; 289 } elseif ($enc_map !== false) { 290 $cid = array_search($v[1], $enc_map); 291 if ($cid === false) { 292 $cid = 0; 293 } elseif ($cid > 1000) { 294 $cid -= 1000; 295 } 296 } 297 // decrypt charstring encrypted part 298 $r = 4330; // charstring encryption constant 299 $c1 = 52845; 300 $c2 = 22719; 301 $cd = $v[2]; 302 $clen = strlen($cd); 303 $ccom = array(); 304 for ($i = 0; $i < $clen; ++$i) { 305 $chr = ord($cd[$i]); 306 $ccom[] = ($chr ^ ($r >> 8)); 307 $r = ((($chr + $r) * $c1 + $c2) % 65536); 308 } 309 // decode numbers 310 $cdec = array(); 311 $ck = 0; 312 $i = $lenIV; 313 while ($i < $clen) { 314 if ($ccom[$i] < 32) { 315 $cdec[$ck] = $ccom[$i]; 316 if (($ck > 0) AND ($cdec[$ck] == 13)) { 317 // hsbw command: update width 318 $cwidths[$cid] = $cdec[($ck - 1)]; 319 } 320 ++$i; 321 } elseif (($ccom[$i] >= 32) AND ($ccom[$i] <= 246)) { 322 $cdec[$ck] = ($ccom[$i] - 139); 323 ++$i; 324 } elseif (($ccom[$i] >= 247) AND ($ccom[$i] <= 250)) { 325 $cdec[$ck] = ((($ccom[$i] - 247) * 256) + $ccom[($i + 1)] + 108); 326 $i += 2; 327 } elseif (($ccom[$i] >= 251) AND ($ccom[$i] <= 254)) { 328 $cdec[$ck] = ((-($ccom[$i] - 251) * 256) - $ccom[($i + 1)] - 108); 329 $i += 2; 330 } elseif ($ccom[$i] == 255) { 331 $sval = chr($ccom[($i + 1)]).chr($ccom[($i + 2)]).chr($ccom[($i + 3)]).chr($ccom[($i + 4)]); 332 $vsval = unpack('li', $sval); 333 $cdec[$ck] = $vsval['i']; 334 $i += 5; 335 } 336 ++$ck; 337 } 338 } // end for each matches 339 $fmetric['MissingWidth'] = $cwidths[0]; 340 $fmetric['MaxWidth'] = $fmetric['MissingWidth']; 341 $fmetric['AvgWidth'] = 0; 342 // set chars widths 343 for ($cid = 0; $cid <= 255; ++$cid) { 344 if (isset($cwidths[$cid])) { 345 if ($cwidths[$cid] > $fmetric['MaxWidth']) { 346 $fmetric['MaxWidth'] = $cwidths[$cid]; 347 } 348 $fmetric['AvgWidth'] += $cwidths[$cid]; 349 $fmetric['cw'] .= ','.$cid.'=>'.$cwidths[$cid]; 350 } else { 351 $fmetric['cw'] .= ','.$cid.'=>'.$fmetric['MissingWidth']; 352 } 353 } 354 $fmetric['AvgWidth'] = round($fmetric['AvgWidth'] / count($cwidths)); 355 } else { 356 // ---------- TRUE TYPE ---------- 357 $offset = 0; // offset position of the font data 358 if (TCPDF_STATIC::_getULONG($font, $offset) != 0x10000) { 359 // sfnt version must be 0x00010000 for TrueType version 1.0. 360 return false; 361 } 362 if ($fmetric['type'] != 'cidfont0') { 363 if ($link) { 364 // creates a symbolic link to the existing font 365 symlink($fontfile, $outpath.$fmetric['file']); 366 } else { 367 // store compressed font 368 $fmetric['file'] .= '.z'; 369 $fp = TCPDF_STATIC::fopenLocal($outpath.$fmetric['file'], 'wb'); 370 fwrite($fp, gzcompress($font)); 371 fclose($fp); 372 } 373 } 374 $offset += 4; 375 // get number of tables 376 $numTables = TCPDF_STATIC::_getUSHORT($font, $offset); 377 $offset += 2; 378 // skip searchRange, entrySelector and rangeShift 379 $offset += 6; 380 // tables array 381 $table = array(); 382 // ---------- get tables ---------- 383 for ($i = 0; $i < $numTables; ++$i) { 384 // get table info 385 $tag = substr($font, $offset, 4); 386 $offset += 4; 387 $table[$tag] = array(); 388 $table[$tag]['checkSum'] = TCPDF_STATIC::_getULONG($font, $offset); 389 $offset += 4; 390 $table[$tag]['offset'] = TCPDF_STATIC::_getULONG($font, $offset); 391 $offset += 4; 392 $table[$tag]['length'] = TCPDF_STATIC::_getULONG($font, $offset); 393 $offset += 4; 394 } 395 // check magicNumber 396 $offset = $table['head']['offset'] + 12; 397 if (TCPDF_STATIC::_getULONG($font, $offset) != 0x5F0F3CF5) { 398 // magicNumber must be 0x5F0F3CF5 399 return false; 400 } 401 $offset += 4; 402 $offset += 2; // skip flags 403 // get FUnits 404 $fmetric['unitsPerEm'] = TCPDF_STATIC::_getUSHORT($font, $offset); 405 $offset += 2; 406 // units ratio constant 407 $urk = (1000 / $fmetric['unitsPerEm']); 408 $offset += 16; // skip created, modified 409 $xMin = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 410 $offset += 2; 411 $yMin = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 412 $offset += 2; 413 $xMax = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 414 $offset += 2; 415 $yMax = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 416 $offset += 2; 417 $fmetric['bbox'] = ''.$xMin.' '.$yMin.' '.$xMax.' '.$yMax.''; 418 $macStyle = TCPDF_STATIC::_getUSHORT($font, $offset); 419 $offset += 2; 420 // PDF font flags 421 $fmetric['Flags'] = $flags; 422 if (($macStyle & 2) == 2) { 423 // italic flag 424 $fmetric['Flags'] |= 64; 425 } 426 // get offset mode (indexToLocFormat : 0 = short, 1 = long) 427 $offset = $table['head']['offset'] + 50; 428 $short_offset = (TCPDF_STATIC::_getSHORT($font, $offset) == 0); 429 $offset += 2; 430 // get the offsets to the locations of the glyphs in the font, relative to the beginning of the glyphData table 431 $indexToLoc = array(); 432 $offset = $table['loca']['offset']; 433 if ($short_offset) { 434 // short version 435 $tot_num_glyphs = floor($table['loca']['length'] / 2); // numGlyphs + 1 436 for ($i = 0; $i < $tot_num_glyphs; ++$i) { 437 $indexToLoc[$i] = TCPDF_STATIC::_getUSHORT($font, $offset) * 2; 438 if (isset($indexToLoc[($i - 1)]) && ($indexToLoc[$i] == $indexToLoc[($i - 1)])) { 439 // the last glyph didn't have an outline 440 unset($indexToLoc[($i - 1)]); 441 } 442 $offset += 2; 443 } 444 } else { 445 // long version 446 $tot_num_glyphs = floor($table['loca']['length'] / 4); // numGlyphs + 1 447 for ($i = 0; $i < $tot_num_glyphs; ++$i) { 448 $indexToLoc[$i] = TCPDF_STATIC::_getULONG($font, $offset); 449 if (isset($indexToLoc[($i - 1)]) && ($indexToLoc[$i] == $indexToLoc[($i - 1)])) { 450 // the last glyph didn't have an outline 451 unset($indexToLoc[($i - 1)]); 452 } 453 $offset += 4; 454 } 455 } 456 // get glyphs indexes of chars from cmap table 457 $offset = $table['cmap']['offset'] + 2; 458 $numEncodingTables = TCPDF_STATIC::_getUSHORT($font, $offset); 459 $offset += 2; 460 $encodingTables = array(); 461 for ($i = 0; $i < $numEncodingTables; ++$i) { 462 $encodingTables[$i]['platformID'] = TCPDF_STATIC::_getUSHORT($font, $offset); 463 $offset += 2; 464 $encodingTables[$i]['encodingID'] = TCPDF_STATIC::_getUSHORT($font, $offset); 465 $offset += 2; 466 $encodingTables[$i]['offset'] = TCPDF_STATIC::_getULONG($font, $offset); 467 $offset += 4; 468 } 469 // ---------- get os/2 metrics ---------- 470 $offset = $table['OS/2']['offset']; 471 $offset += 2; // skip version 472 // xAvgCharWidth 473 $fmetric['AvgWidth'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 474 $offset += 2; 475 // usWeightClass 476 $usWeightClass = round(TCPDF_STATIC::_getUFWORD($font, $offset) * $urk); 477 // estimate StemV and StemH (400 = usWeightClass for Normal - Regular font) 478 $fmetric['StemV'] = round((70 * $usWeightClass) / 400); 479 $fmetric['StemH'] = round((30 * $usWeightClass) / 400); 480 $offset += 2; 481 $offset += 2; // usWidthClass 482 $fsType = TCPDF_STATIC::_getSHORT($font, $offset); 483 $offset += 2; 484 if ($fsType == 2) { 485 // This Font cannot be modified, embedded or exchanged in any manner without first obtaining permission of the legal owner. 486 return false; 487 } 488 // ---------- get font name ---------- 489 $fmetric['name'] = ''; 490 $offset = $table['name']['offset']; 491 $offset += 2; // skip Format selector (=0). 492 // Number of NameRecords that follow n. 493 $numNameRecords = TCPDF_STATIC::_getUSHORT($font, $offset); 494 $offset += 2; 495 // Offset to start of string storage (from start of table). 496 $stringStorageOffset = TCPDF_STATIC::_getUSHORT($font, $offset); 497 $offset += 2; 498 for ($i = 0; $i < $numNameRecords; ++$i) { 499 $offset += 6; // skip Platform ID, Platform-specific encoding ID, Language ID. 500 // Name ID. 501 $nameID = TCPDF_STATIC::_getUSHORT($font, $offset); 502 $offset += 2; 503 if ($nameID == 6) { 504 // String length (in bytes). 505 $stringLength = TCPDF_STATIC::_getUSHORT($font, $offset); 506 $offset += 2; 507 // String offset from start of storage area (in bytes). 508 $stringOffset = TCPDF_STATIC::_getUSHORT($font, $offset); 509 $offset += 2; 510 $offset = ($table['name']['offset'] + $stringStorageOffset + $stringOffset); 511 $fmetric['name'] = substr($font, $offset, $stringLength); 512 $fmetric['name'] = preg_replace('/[^a-zA-Z0-9_\-]/', '', $fmetric['name']); 513 break; 514 } else { 515 $offset += 4; // skip String length, String offset 516 } 517 } 518 if (empty($fmetric['name'])) { 519 $fmetric['name'] = $font_name; 520 } 521 // ---------- get post data ---------- 522 $offset = $table['post']['offset']; 523 $offset += 4; // skip Format Type 524 $fmetric['italicAngle'] = TCPDF_STATIC::_getFIXED($font, $offset); 525 $offset += 4; 526 $fmetric['underlinePosition'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 527 $offset += 2; 528 $fmetric['underlineThickness'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 529 $offset += 2; 530 $isFixedPitch = (TCPDF_STATIC::_getULONG($font, $offset) == 0) ? false : true; 531 $offset += 2; 532 if ($isFixedPitch) { 533 $fmetric['Flags'] |= 1; 534 } 535 // ---------- get hhea data ---------- 536 $offset = $table['hhea']['offset']; 537 $offset += 4; // skip Table version number 538 // Ascender 539 $fmetric['Ascent'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 540 $offset += 2; 541 // Descender 542 $fmetric['Descent'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 543 $offset += 2; 544 // LineGap 545 $fmetric['Leading'] = round(TCPDF_STATIC::_getFWORD($font, $offset) * $urk); 546 $offset += 2; 547 // advanceWidthMax 548 $fmetric['MaxWidth'] = round(TCPDF_STATIC::_getUFWORD($font, $offset) * $urk); 549 $offset += 2; 550 $offset += 22; // skip some values 551 // get the number of hMetric entries in hmtx table 552 $numberOfHMetrics = TCPDF_STATIC::_getUSHORT($font, $offset); 553 // ---------- get maxp data ---------- 554 $offset = $table['maxp']['offset']; 555 $offset += 4; // skip Table version number 556 // get the the number of glyphs in the font. 557 $numGlyphs = TCPDF_STATIC::_getUSHORT($font, $offset); 558 // ---------- get CIDToGIDMap ---------- 559 $ctg = array(); 560 $c = 0; 561 foreach ($encodingTables as $enctable) { 562 // get only specified Platform ID and Encoding ID 563 if (($enctable['platformID'] == $platid) AND ($enctable['encodingID'] == $encid)) { 564 $offset = $table['cmap']['offset'] + $enctable['offset']; 565 $format = TCPDF_STATIC::_getUSHORT($font, $offset); 566 $offset += 2; 567 switch ($format) { 568 case 0: { // Format 0: Byte encoding table 569 $offset += 4; // skip length and version/language 570 for ($c = 0; $c < 256; ++$c) { 571 $g = TCPDF_STATIC::_getBYTE($font, $offset); 572 $ctg[$c] = $g; 573 ++$offset; 574 } 575 break; 576 } 577 case 2: { // Format 2: High-byte mapping through table 578 $offset += 4; // skip length and version/language 579 $numSubHeaders = 0; 580 for ($i = 0; $i < 256; ++$i) { 581 // Array that maps high bytes to subHeaders: value is subHeader index * 8. 582 $subHeaderKeys[$i] = (TCPDF_STATIC::_getUSHORT($font, $offset) / 8); 583 $offset += 2; 584 if ($numSubHeaders < $subHeaderKeys[$i]) { 585 $numSubHeaders = $subHeaderKeys[$i]; 586 } 587 } 588 // the number of subHeaders is equal to the max of subHeaderKeys + 1 589 ++$numSubHeaders; 590 // read subHeader structures 591 $subHeaders = array(); 592 $numGlyphIndexArray = 0; 593 for ($k = 0; $k < $numSubHeaders; ++$k) { 594 $subHeaders[$k]['firstCode'] = TCPDF_STATIC::_getUSHORT($font, $offset); 595 $offset += 2; 596 $subHeaders[$k]['entryCount'] = TCPDF_STATIC::_getUSHORT($font, $offset); 597 $offset += 2; 598 $subHeaders[$k]['idDelta'] = TCPDF_STATIC::_getUSHORT($font, $offset); 599 $offset += 2; 600 $subHeaders[$k]['idRangeOffset'] = TCPDF_STATIC::_getUSHORT($font, $offset); 601 $offset += 2; 602 $subHeaders[$k]['idRangeOffset'] -= (2 + (($numSubHeaders - $k - 1) * 8)); 603 $subHeaders[$k]['idRangeOffset'] /= 2; 604 $numGlyphIndexArray += $subHeaders[$k]['entryCount']; 605 } 606 for ($k = 0; $k < $numGlyphIndexArray; ++$k) { 607 $glyphIndexArray[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 608 $offset += 2; 609 } 610 for ($i = 0; $i < 256; ++$i) { 611 $k = $subHeaderKeys[$i]; 612 if ($k == 0) { 613 // one byte code 614 $c = $i; 615 $g = $glyphIndexArray[0]; 616 $ctg[$c] = $g; 617 } else { 618 // two bytes code 619 $start_byte = $subHeaders[$k]['firstCode']; 620 $end_byte = $start_byte + $subHeaders[$k]['entryCount']; 621 for ($j = $start_byte; $j < $end_byte; ++$j) { 622 // combine high and low bytes 623 $c = (($i << 8) + $j); 624 $idRangeOffset = ($subHeaders[$k]['idRangeOffset'] + $j - $subHeaders[$k]['firstCode']); 625 $g = ($glyphIndexArray[$idRangeOffset] + $subHeaders[$k]['idDelta']) % 65536; 626 if ($g < 0) { 627 $g = 0; 628 } 629 $ctg[$c] = $g; 630 } 631 } 632 } 633 break; 634 } 635 case 4: { // Format 4: Segment mapping to delta values 636 $length = TCPDF_STATIC::_getUSHORT($font, $offset); 637 $offset += 2; 638 $offset += 2; // skip version/language 639 $segCount = floor(TCPDF_STATIC::_getUSHORT($font, $offset) / 2); 640 $offset += 2; 641 $offset += 6; // skip searchRange, entrySelector, rangeShift 642 $endCount = array(); // array of end character codes for each segment 643 for ($k = 0; $k < $segCount; ++$k) { 644 $endCount[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 645 $offset += 2; 646 } 647 $offset += 2; // skip reservedPad 648 $startCount = array(); // array of start character codes for each segment 649 for ($k = 0; $k < $segCount; ++$k) { 650 $startCount[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 651 $offset += 2; 652 } 653 $idDelta = array(); // delta for all character codes in segment 654 for ($k = 0; $k < $segCount; ++$k) { 655 $idDelta[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 656 $offset += 2; 657 } 658 $idRangeOffset = array(); // Offsets into glyphIdArray or 0 659 for ($k = 0; $k < $segCount; ++$k) { 660 $idRangeOffset[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 661 $offset += 2; 662 } 663 $gidlen = (floor($length / 2) - 8 - (4 * $segCount)); 664 $glyphIdArray = array(); // glyph index array 665 for ($k = 0; $k < $gidlen; ++$k) { 666 $glyphIdArray[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 667 $offset += 2; 668 } 669 for ($k = 0; $k < $segCount - 1; ++$k) { 670 for ($c = $startCount[$k]; $c <= $endCount[$k]; ++$c) { 671 if ($idRangeOffset[$k] == 0) { 672 $g = ($idDelta[$k] + $c) % 65536; 673 } else { 674 $gid = (floor($idRangeOffset[$k] / 2) + ($c - $startCount[$k]) - ($segCount - $k)); 675 $g = ($glyphIdArray[$gid] + $idDelta[$k]) % 65536; 676 } 677 if ($g < 0) { 678 $g = 0; 679 } 680 $ctg[$c] = $g; 681 } 682 } 683 break; 684 } 685 case 6: { // Format 6: Trimmed table mapping 686 $offset += 4; // skip length and version/language 687 $firstCode = TCPDF_STATIC::_getUSHORT($font, $offset); 688 $offset += 2; 689 $entryCount = TCPDF_STATIC::_getUSHORT($font, $offset); 690 $offset += 2; 691 for ($k = 0; $k < $entryCount; ++$k) { 692 $c = ($k + $firstCode); 693 $g = TCPDF_STATIC::_getUSHORT($font, $offset); 694 $offset += 2; 695 $ctg[$c] = $g; 696 } 697 break; 698 } 699 case 8: { // Format 8: Mixed 16-bit and 32-bit coverage 700 $offset += 10; // skip reserved, length and version/language 701 for ($k = 0; $k < 8192; ++$k) { 702 $is32[$k] = TCPDF_STATIC::_getBYTE($font, $offset); 703 ++$offset; 704 } 705 $nGroups = TCPDF_STATIC::_getULONG($font, $offset); 706 $offset += 4; 707 for ($i = 0; $i < $nGroups; ++$i) { 708 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 709 $offset += 4; 710 $endCharCode = TCPDF_STATIC::_getULONG($font, $offset); 711 $offset += 4; 712 $startGlyphID = TCPDF_STATIC::_getULONG($font, $offset); 713 $offset += 4; 714 for ($k = $startCharCode; $k <= $endCharCode; ++$k) { 715 $is32idx = floor($c / 8); 716 if ((isset($is32[$is32idx])) AND (($is32[$is32idx] & (1 << (7 - ($c % 8)))) == 0)) { 717 $c = $k; 718 } else { 719 // 32 bit format 720 // convert to decimal (http://www.unicode.org/faq//utf_bom.html#utf16-4) 721 //LEAD_OFFSET = (0xD800 - (0x10000 >> 10)) = 55232 722 //SURROGATE_OFFSET = (0x10000 - (0xD800 << 10) - 0xDC00) = -56613888 723 $c = ((55232 + ($k >> 10)) << 10) + (0xDC00 + ($k & 0x3FF)) -56613888; 724 } 725 $ctg[$c] = 0; 726 ++$startGlyphID; 727 } 728 } 729 break; 730 } 731 case 10: { // Format 10: Trimmed array 732 $offset += 10; // skip reserved, length and version/language 733 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 734 $offset += 4; 735 $numChars = TCPDF_STATIC::_getULONG($font, $offset); 736 $offset += 4; 737 for ($k = 0; $k < $numChars; ++$k) { 738 $c = ($k + $startCharCode); 739 $g = TCPDF_STATIC::_getUSHORT($font, $offset); 740 $ctg[$c] = $g; 741 $offset += 2; 742 } 743 break; 744 } 745 case 12: { // Format 12: Segmented coverage 746 $offset += 10; // skip length and version/language 747 $nGroups = TCPDF_STATIC::_getULONG($font, $offset); 748 $offset += 4; 749 for ($k = 0; $k < $nGroups; ++$k) { 750 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 751 $offset += 4; 752 $endCharCode = TCPDF_STATIC::_getULONG($font, $offset); 753 $offset += 4; 754 $startGlyphCode = TCPDF_STATIC::_getULONG($font, $offset); 755 $offset += 4; 756 for ($c = $startCharCode; $c <= $endCharCode; ++$c) { 757 $ctg[$c] = $startGlyphCode; 758 ++$startGlyphCode; 759 } 760 } 761 break; 762 } 763 case 13: { // Format 13: Many-to-one range mappings 764 // to be implemented ... 765 break; 766 } 767 case 14: { // Format 14: Unicode Variation Sequences 768 // to be implemented ... 769 break; 770 } 771 } 772 } 773 } 774 if (!isset($ctg[0])) { 775 $ctg[0] = 0; 776 } 777 // get xHeight (height of x) 778 $offset = ($table['glyf']['offset'] + $indexToLoc[$ctg[120]] + 4); 779 $yMin = TCPDF_STATIC::_getFWORD($font, $offset); 780 $offset += 4; 781 $yMax = TCPDF_STATIC::_getFWORD($font, $offset); 782 $offset += 2; 783 $fmetric['XHeight'] = round(($yMax - $yMin) * $urk); 784 // get CapHeight (height of H) 785 $offset = ($table['glyf']['offset'] + $indexToLoc[$ctg[72]] + 4); 786 $yMin = TCPDF_STATIC::_getFWORD($font, $offset); 787 $offset += 4; 788 $yMax = TCPDF_STATIC::_getFWORD($font, $offset); 789 $offset += 2; 790 $fmetric['CapHeight'] = round(($yMax - $yMin) * $urk); 791 // ceate widths array 792 $cw = array(); 793 $offset = $table['hmtx']['offset']; 794 for ($i = 0 ; $i < $numberOfHMetrics; ++$i) { 795 $cw[$i] = round(TCPDF_STATIC::_getUFWORD($font, $offset) * $urk); 796 $offset += 4; // skip lsb 797 } 798 if ($numberOfHMetrics < $numGlyphs) { 799 // fill missing widths with the last value 800 $cw = array_pad($cw, $numGlyphs, $cw[($numberOfHMetrics - 1)]); 801 } 802 $fmetric['MissingWidth'] = $cw[0]; 803 $fmetric['cw'] = ''; 804 $fmetric['cbbox'] = ''; 805 for ($cid = 0; $cid <= 65535; ++$cid) { 806 if (isset($ctg[$cid])) { 807 if (isset($cw[$ctg[$cid]])) { 808 $fmetric['cw'] .= ','.$cid.'=>'.$cw[$ctg[$cid]]; 809 } 810 if ($addcbbox AND isset($indexToLoc[$ctg[$cid]])) { 811 $offset = ($table['glyf']['offset'] + $indexToLoc[$ctg[$cid]]); 812 $xMin = round(TCPDF_STATIC::_getFWORD($font, $offset + 2) * $urk); 813 $yMin = round(TCPDF_STATIC::_getFWORD($font, $offset + 4) * $urk); 814 $xMax = round(TCPDF_STATIC::_getFWORD($font, $offset + 6) * $urk); 815 $yMax = round(TCPDF_STATIC::_getFWORD($font, $offset + 8) * $urk); 816 $fmetric['cbbox'] .= ','.$cid.'=>array('.$xMin.','.$yMin.','.$xMax.','.$yMax.')'; 817 } 818 } 819 } 820 } // end of true type 821 if (($fmetric['type'] == 'TrueTypeUnicode') AND (count($ctg) == 256)) { 822 $fmetric['type'] = 'TrueType'; 823 } 824 // ---------- create php font file ---------- 825 $pfile = '<'.'?'.'php'."\n"; 826 $pfile .= '// TCPDF FONT FILE DESCRIPTION'."\n"; 827 $pfile .= '$type=\''.$fmetric['type'].'\';'."\n"; 828 $pfile .= '$name=\''.$fmetric['name'].'\';'."\n"; 829 $pfile .= '$up='.$fmetric['underlinePosition'].';'."\n"; 830 $pfile .= '$ut='.$fmetric['underlineThickness'].';'."\n"; 831 if ($fmetric['MissingWidth'] > 0) { 832 $pfile .= '$dw='.$fmetric['MissingWidth'].';'."\n"; 833 } else { 834 $pfile .= '$dw='.$fmetric['AvgWidth'].';'."\n"; 835 } 836 $pfile .= '$diff=\''.$fmetric['diff'].'\';'."\n"; 837 if ($fmetric['type'] == 'Type1') { 838 // Type 1 839 $pfile .= '$enc=\''.$fmetric['enc'].'\';'."\n"; 840 $pfile .= '$file=\''.$fmetric['file'].'\';'."\n"; 841 $pfile .= '$size1='.$fmetric['size1'].';'."\n"; 842 $pfile .= '$size2='.$fmetric['size2'].';'."\n"; 843 } else { 844 $pfile .= '$originalsize='.$fmetric['originalsize'].';'."\n"; 845 if ($fmetric['type'] == 'cidfont0') { 846 // CID-0 847 switch ($fonttype) { 848 case 'CID0JP': { 849 $pfile .= '// Japanese'."\n"; 850 $pfile .= '$enc=\'UniJIS-UTF16-H\';'."\n"; 851 $pfile .= '$cidinfo=array(\'Registry\'=>\'Adobe\', \'Ordering\'=>\'Japan1\',\'Supplement\'=>5);'."\n"; 852 $pfile .= 'include(dirname(__FILE__).\'/uni2cid_aj16.php\');'."\n"; 853 break; 854 } 855 case 'CID0KR': { 856 $pfile .= '// Korean'."\n"; 857 $pfile .= '$enc=\'UniKS-UTF16-H\';'."\n"; 858 $pfile .= '$cidinfo=array(\'Registry\'=>\'Adobe\', \'Ordering\'=>\'Korea1\',\'Supplement\'=>0);'."\n"; 859 $pfile .= 'include(dirname(__FILE__).\'/uni2cid_ak12.php\');'."\n"; 860 break; 861 } 862 case 'CID0CS': { 863 $pfile .= '// Chinese Simplified'."\n"; 864 $pfile .= '$enc=\'UniGB-UTF16-H\';'."\n"; 865 $pfile .= '$cidinfo=array(\'Registry\'=>\'Adobe\', \'Ordering\'=>\'GB1\',\'Supplement\'=>2);'."\n"; 866 $pfile .= 'include(dirname(__FILE__).\'/uni2cid_ag15.php\');'."\n"; 867 break; 868 } 869 case 'CID0CT': 870 default: { 871 $pfile .= '// Chinese Traditional'."\n"; 872 $pfile .= '$enc=\'UniCNS-UTF16-H\';'."\n"; 873 $pfile .= '$cidinfo=array(\'Registry\'=>\'Adobe\', \'Ordering\'=>\'CNS1\',\'Supplement\'=>0);'."\n"; 874 $pfile .= 'include(dirname(__FILE__).\'/uni2cid_aj16.php\');'."\n"; 875 break; 876 } 877 } 878 } else { 879 // TrueType 880 $pfile .= '$enc=\''.$fmetric['enc'].'\';'."\n"; 881 $pfile .= '$file=\''.$fmetric['file'].'\';'."\n"; 882 $pfile .= '$ctg=\''.$fmetric['ctg'].'\';'."\n"; 883 // create CIDToGIDMap 884 $cidtogidmap = str_pad('', 131072, "\x00"); // (256 * 256 * 2) = 131072 885 foreach ($ctg as $cid => $gid) { 886 $cidtogidmap = self::updateCIDtoGIDmap($cidtogidmap, $cid, $ctg[$cid]); 887 } 888 // store compressed CIDToGIDMap 889 $fp = TCPDF_STATIC::fopenLocal($outpath.$fmetric['ctg'], 'wb'); 890 fwrite($fp, gzcompress($cidtogidmap)); 891 fclose($fp); 892 } 893 } 894 $pfile .= '$desc=array('; 895 $pfile .= '\'Flags\'=>'.$fmetric['Flags'].','; 896 $pfile .= '\'FontBBox\'=>\'['.$fmetric['bbox'].']\','; 897 $pfile .= '\'ItalicAngle\'=>'.$fmetric['italicAngle'].','; 898 $pfile .= '\'Ascent\'=>'.$fmetric['Ascent'].','; 899 $pfile .= '\'Descent\'=>'.$fmetric['Descent'].','; 900 $pfile .= '\'Leading\'=>'.$fmetric['Leading'].','; 901 $pfile .= '\'CapHeight\'=>'.$fmetric['CapHeight'].','; 902 $pfile .= '\'XHeight\'=>'.$fmetric['XHeight'].','; 903 $pfile .= '\'StemV\'=>'.$fmetric['StemV'].','; 904 $pfile .= '\'StemH\'=>'.$fmetric['StemH'].','; 905 $pfile .= '\'AvgWidth\'=>'.$fmetric['AvgWidth'].','; 906 $pfile .= '\'MaxWidth\'=>'.$fmetric['MaxWidth'].','; 907 $pfile .= '\'MissingWidth\'=>'.$fmetric['MissingWidth'].''; 908 $pfile .= ');'."\n"; 909 if (!empty($fmetric['cbbox'])) { 910 $pfile .= '$cbbox=array('.substr($fmetric['cbbox'], 1).');'."\n"; 911 } 912 $pfile .= '$cw=array('.substr($fmetric['cw'], 1).');'."\n"; 913 $pfile .= '// --- EOF ---'."\n"; 914 // store file 915 $fp = TCPDF_STATIC::fopenLocal($outpath.$font_name.'.php', 'w'); 916 fwrite($fp, $pfile); 917 fclose($fp); 918 // return TCPDF font name 919 return $font_name; 920 } 921 922 /** 923 * Returs the checksum of a TTF table. 924 * @param string $table table to check 925 * @param int $length length of table in bytes 926 * @return int checksum 927 * @author Nicola Asuni 928 * @since 5.2.000 (2010-06-02) 929 * @public static 930 */ 931 public static function _getTTFtableChecksum($table, $length) { 932 $sum = 0; 933 $tlen = ($length / 4); 934 $offset = 0; 935 for ($i = 0; $i < $tlen; ++$i) { 936 $v = unpack('Ni', substr($table, $offset, 4)); 937 $sum += $v['i']; 938 $offset += 4; 939 } 940 $sum = unpack('Ni', pack('N', $sum)); 941 return $sum['i']; 942 } 943 944 /** 945 * Returns a subset of the TrueType font data without the unused glyphs. 946 * @param string $font TrueType font data. 947 * @param array $subsetchars Array of used characters (the glyphs to keep). 948 * @return string A subset of TrueType font data without the unused glyphs. 949 * @author Nicola Asuni 950 * @since 5.2.000 (2010-06-02) 951 * @public static 952 */ 953 public static function _getTrueTypeFontSubset($font, $subsetchars) { 954 ksort($subsetchars); 955 $offset = 0; // offset position of the font data 956 if (TCPDF_STATIC::_getULONG($font, $offset) != 0x10000) { 957 // sfnt version must be 0x00010000 for TrueType version 1.0. 958 return $font; 959 } 960 $c = 0; 961 $offset += 4; 962 // get number of tables 963 $numTables = TCPDF_STATIC::_getUSHORT($font, $offset); 964 $offset += 2; 965 // skip searchRange, entrySelector and rangeShift 966 $offset += 6; 967 // tables array 968 $table = array(); 969 // for each table 970 for ($i = 0; $i < $numTables; ++$i) { 971 // get table info 972 $tag = substr($font, $offset, 4); 973 $offset += 4; 974 $table[$tag] = array(); 975 $table[$tag]['checkSum'] = TCPDF_STATIC::_getULONG($font, $offset); 976 $offset += 4; 977 $table[$tag]['offset'] = TCPDF_STATIC::_getULONG($font, $offset); 978 $offset += 4; 979 $table[$tag]['length'] = TCPDF_STATIC::_getULONG($font, $offset); 980 $offset += 4; 981 } 982 // check magicNumber 983 $offset = $table['head']['offset'] + 12; 984 if (TCPDF_STATIC::_getULONG($font, $offset) != 0x5F0F3CF5) { 985 // magicNumber must be 0x5F0F3CF5 986 return $font; 987 } 988 $offset += 4; 989 // get offset mode (indexToLocFormat : 0 = short, 1 = long) 990 $offset = $table['head']['offset'] + 50; 991 $short_offset = (TCPDF_STATIC::_getSHORT($font, $offset) == 0); 992 $offset += 2; 993 // get the offsets to the locations of the glyphs in the font, relative to the beginning of the glyphData table 994 $indexToLoc = array(); 995 $offset = $table['loca']['offset']; 996 if ($short_offset) { 997 // short version 998 $tot_num_glyphs = floor($table['loca']['length'] / 2); // numGlyphs + 1 999 for ($i = 0; $i < $tot_num_glyphs; ++$i) { 1000 $indexToLoc[$i] = TCPDF_STATIC::_getUSHORT($font, $offset) * 2; 1001 $offset += 2; 1002 } 1003 } else { 1004 // long version 1005 $tot_num_glyphs = ($table['loca']['length'] / 4); // numGlyphs + 1 1006 for ($i = 0; $i < $tot_num_glyphs; ++$i) { 1007 $indexToLoc[$i] = TCPDF_STATIC::_getULONG($font, $offset); 1008 $offset += 4; 1009 } 1010 } 1011 // get glyphs indexes of chars from cmap table 1012 $subsetglyphs = array(); // glyph IDs on key 1013 $subsetglyphs[0] = true; // character codes that do not correspond to any glyph in the font should be mapped to glyph index 0 1014 $offset = $table['cmap']['offset'] + 2; 1015 $numEncodingTables = TCPDF_STATIC::_getUSHORT($font, $offset); 1016 $offset += 2; 1017 $encodingTables = array(); 1018 for ($i = 0; $i < $numEncodingTables; ++$i) { 1019 $encodingTables[$i]['platformID'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1020 $offset += 2; 1021 $encodingTables[$i]['encodingID'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1022 $offset += 2; 1023 $encodingTables[$i]['offset'] = TCPDF_STATIC::_getULONG($font, $offset); 1024 $offset += 4; 1025 } 1026 foreach ($encodingTables as $enctable) { 1027 // get all platforms and encodings 1028 $offset = $table['cmap']['offset'] + $enctable['offset']; 1029 $format = TCPDF_STATIC::_getUSHORT($font, $offset); 1030 $offset += 2; 1031 switch ($format) { 1032 case 0: { // Format 0: Byte encoding table 1033 $offset += 4; // skip length and version/language 1034 for ($c = 0; $c < 256; ++$c) { 1035 if (isset($subsetchars[$c])) { 1036 $g = TCPDF_STATIC::_getBYTE($font, $offset); 1037 $subsetglyphs[$g] = true; 1038 } 1039 ++$offset; 1040 } 1041 break; 1042 } 1043 case 2: { // Format 2: High-byte mapping through table 1044 $offset += 4; // skip length and version/language 1045 $numSubHeaders = 0; 1046 for ($i = 0; $i < 256; ++$i) { 1047 // Array that maps high bytes to subHeaders: value is subHeader index * 8. 1048 $subHeaderKeys[$i] = (TCPDF_STATIC::_getUSHORT($font, $offset) / 8); 1049 $offset += 2; 1050 if ($numSubHeaders < $subHeaderKeys[$i]) { 1051 $numSubHeaders = $subHeaderKeys[$i]; 1052 } 1053 } 1054 // the number of subHeaders is equal to the max of subHeaderKeys + 1 1055 ++$numSubHeaders; 1056 // read subHeader structures 1057 $subHeaders = array(); 1058 $numGlyphIndexArray = 0; 1059 for ($k = 0; $k < $numSubHeaders; ++$k) { 1060 $subHeaders[$k]['firstCode'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1061 $offset += 2; 1062 $subHeaders[$k]['entryCount'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1063 $offset += 2; 1064 $subHeaders[$k]['idDelta'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1065 $offset += 2; 1066 $subHeaders[$k]['idRangeOffset'] = TCPDF_STATIC::_getUSHORT($font, $offset); 1067 $offset += 2; 1068 $subHeaders[$k]['idRangeOffset'] -= (2 + (($numSubHeaders - $k - 1) * 8)); 1069 $subHeaders[$k]['idRangeOffset'] /= 2; 1070 $numGlyphIndexArray += $subHeaders[$k]['entryCount']; 1071 } 1072 for ($k = 0; $k < $numGlyphIndexArray; ++$k) { 1073 $glyphIndexArray[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1074 $offset += 2; 1075 } 1076 for ($i = 0; $i < 256; ++$i) { 1077 $k = $subHeaderKeys[$i]; 1078 if ($k == 0) { 1079 // one byte code 1080 $c = $i; 1081 if (isset($subsetchars[$c])) { 1082 $g = $glyphIndexArray[0]; 1083 $subsetglyphs[$g] = true; 1084 } 1085 } else { 1086 // two bytes code 1087 $start_byte = $subHeaders[$k]['firstCode']; 1088 $end_byte = $start_byte + $subHeaders[$k]['entryCount']; 1089 for ($j = $start_byte; $j < $end_byte; ++$j) { 1090 // combine high and low bytes 1091 $c = (($i << 8) + $j); 1092 if (isset($subsetchars[$c])) { 1093 $idRangeOffset = ($subHeaders[$k]['idRangeOffset'] + $j - $subHeaders[$k]['firstCode']); 1094 $g = ($glyphIndexArray[$idRangeOffset] + $subHeaders[$k]['idDelta']) % 65536; 1095 if ($g < 0) { 1096 $g = 0; 1097 } 1098 $subsetglyphs[$g] = true; 1099 } 1100 } 1101 } 1102 } 1103 break; 1104 } 1105 case 4: { // Format 4: Segment mapping to delta values 1106 $length = TCPDF_STATIC::_getUSHORT($font, $offset); 1107 $offset += 2; 1108 $offset += 2; // skip version/language 1109 $segCount = floor(TCPDF_STATIC::_getUSHORT($font, $offset) / 2); 1110 $offset += 2; 1111 $offset += 6; // skip searchRange, entrySelector, rangeShift 1112 $endCount = array(); // array of end character codes for each segment 1113 for ($k = 0; $k < $segCount; ++$k) { 1114 $endCount[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1115 $offset += 2; 1116 } 1117 $offset += 2; // skip reservedPad 1118 $startCount = array(); // array of start character codes for each segment 1119 for ($k = 0; $k < $segCount; ++$k) { 1120 $startCount[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1121 $offset += 2; 1122 } 1123 $idDelta = array(); // delta for all character codes in segment 1124 for ($k = 0; $k < $segCount; ++$k) { 1125 $idDelta[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1126 $offset += 2; 1127 } 1128 $idRangeOffset = array(); // Offsets into glyphIdArray or 0 1129 for ($k = 0; $k < $segCount; ++$k) { 1130 $idRangeOffset[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1131 $offset += 2; 1132 } 1133 $gidlen = (floor($length / 2) - 8 - (4 * $segCount)); 1134 $glyphIdArray = array(); // glyph index array 1135 for ($k = 0; $k < $gidlen; ++$k) { 1136 $glyphIdArray[$k] = TCPDF_STATIC::_getUSHORT($font, $offset); 1137 $offset += 2; 1138 } 1139 for ($k = 0; $k < $segCount; ++$k) { 1140 for ($c = $startCount[$k]; $c <= $endCount[$k]; ++$c) { 1141 if (isset($subsetchars[$c])) { 1142 if ($idRangeOffset[$k] == 0) { 1143 $g = ($idDelta[$k] + $c) % 65536; 1144 } else { 1145 $gid = (floor($idRangeOffset[$k] / 2) + ($c - $startCount[$k]) - ($segCount - $k)); 1146 $g = ($glyphIdArray[$gid] + $idDelta[$k]) % 65536; 1147 } 1148 if ($g < 0) { 1149 $g = 0; 1150 } 1151 $subsetglyphs[$g] = true; 1152 } 1153 } 1154 } 1155 break; 1156 } 1157 case 6: { // Format 6: Trimmed table mapping 1158 $offset += 4; // skip length and version/language 1159 $firstCode = TCPDF_STATIC::_getUSHORT($font, $offset); 1160 $offset += 2; 1161 $entryCount = TCPDF_STATIC::_getUSHORT($font, $offset); 1162 $offset += 2; 1163 for ($k = 0; $k < $entryCount; ++$k) { 1164 $c = ($k + $firstCode); 1165 if (isset($subsetchars[$c])) { 1166 $g = TCPDF_STATIC::_getUSHORT($font, $offset); 1167 $subsetglyphs[$g] = true; 1168 } 1169 $offset += 2; 1170 } 1171 break; 1172 } 1173 case 8: { // Format 8: Mixed 16-bit and 32-bit coverage 1174 $offset += 10; // skip reserved, length and version/language 1175 for ($k = 0; $k < 8192; ++$k) { 1176 $is32[$k] = TCPDF_STATIC::_getBYTE($font, $offset); 1177 ++$offset; 1178 } 1179 $nGroups = TCPDF_STATIC::_getULONG($font, $offset); 1180 $offset += 4; 1181 for ($i = 0; $i < $nGroups; ++$i) { 1182 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 1183 $offset += 4; 1184 $endCharCode = TCPDF_STATIC::_getULONG($font, $offset); 1185 $offset += 4; 1186 $startGlyphID = TCPDF_STATIC::_getULONG($font, $offset); 1187 $offset += 4; 1188 for ($k = $startCharCode; $k <= $endCharCode; ++$k) { 1189 $is32idx = floor($c / 8); 1190 if ((isset($is32[$is32idx])) AND (($is32[$is32idx] & (1 << (7 - ($c % 8)))) == 0)) { 1191 $c = $k; 1192 } else { 1193 // 32 bit format 1194 // convert to decimal (http://www.unicode.org/faq//utf_bom.html#utf16-4) 1195 //LEAD_OFFSET = (0xD800 - (0x10000 >> 10)) = 55232 1196 //SURROGATE_OFFSET = (0x10000 - (0xD800 << 10) - 0xDC00) = -56613888 1197 $c = ((55232 + ($k >> 10)) << 10) + (0xDC00 + ($k & 0x3FF)) -56613888; 1198 } 1199 if (isset($subsetchars[$c])) { 1200 $subsetglyphs[$startGlyphID] = true; 1201 } 1202 ++$startGlyphID; 1203 } 1204 } 1205 break; 1206 } 1207 case 10: { // Format 10: Trimmed array 1208 $offset += 10; // skip reserved, length and version/language 1209 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 1210 $offset += 4; 1211 $numChars = TCPDF_STATIC::_getULONG($font, $offset); 1212 $offset += 4; 1213 for ($k = 0; $k < $numChars; ++$k) { 1214 $c = ($k + $startCharCode); 1215 if (isset($subsetchars[$c])) { 1216 $g = TCPDF_STATIC::_getUSHORT($font, $offset); 1217 $subsetglyphs[$g] = true; 1218 } 1219 $offset += 2; 1220 } 1221 break; 1222 } 1223 case 12: { // Format 12: Segmented coverage 1224 $offset += 10; // skip length and version/language 1225 $nGroups = TCPDF_STATIC::_getULONG($font, $offset); 1226 $offset += 4; 1227 for ($k = 0; $k < $nGroups; ++$k) { 1228 $startCharCode = TCPDF_STATIC::_getULONG($font, $offset); 1229 $offset += 4; 1230 $endCharCode = TCPDF_STATIC::_getULONG($font, $offset); 1231 $offset += 4; 1232 $startGlyphCode = TCPDF_STATIC::_getULONG($font, $offset); 1233 $offset += 4; 1234 for ($c = $startCharCode; $c <= $endCharCode; ++$c) { 1235 if (isset($subsetchars[$c])) { 1236 $subsetglyphs[$startGlyphCode] = true; 1237 } 1238 ++$startGlyphCode; 1239 } 1240 } 1241 break; 1242 } 1243 case 13: { // Format 13: Many-to-one range mappings 1244 // to be implemented ... 1245 break; 1246 } 1247 case 14: { // Format 14: Unicode Variation Sequences 1248 // to be implemented ... 1249 break; 1250 } 1251 } 1252 } 1253 // include all parts of composite glyphs 1254 $new_sga = $subsetglyphs; 1255 while (!empty($new_sga)) { 1256 $sga = $new_sga; 1257 $new_sga = array(); 1258 foreach ($sga as $key => $val) { 1259 if (isset($indexToLoc[$key])) { 1260 $offset = ($table['glyf']['offset'] + $indexToLoc[$key]); 1261 $numberOfContours = TCPDF_STATIC::_getSHORT($font, $offset); 1262 $offset += 2; 1263 if ($numberOfContours < 0) { // composite glyph 1264 $offset += 8; // skip xMin, yMin, xMax, yMax 1265 do { 1266 $flags = TCPDF_STATIC::_getUSHORT($font, $offset); 1267 $offset += 2; 1268 $glyphIndex = TCPDF_STATIC::_getUSHORT($font, $offset); 1269 $offset += 2; 1270 if (!isset($subsetglyphs[$glyphIndex])) { 1271 // add missing glyphs 1272 $new_sga[$glyphIndex] = true; 1273 } 1274 // skip some bytes by case 1275 if ($flags & 1) { 1276 $offset += 4; 1277 } else { 1278 $offset += 2; 1279 } 1280 if ($flags & 8) { 1281 $offset += 2; 1282 } elseif ($flags & 64) { 1283 $offset += 4; 1284 } elseif ($flags & 128) { 1285 $offset += 8; 1286 } 1287 } while ($flags & 32); 1288 } 1289 } 1290 } 1291 $subsetglyphs += $new_sga; 1292 } 1293 // sort glyphs by key (and remove duplicates) 1294 ksort($subsetglyphs); 1295 // build new glyf and loca tables 1296 $glyf = ''; 1297 $loca = ''; 1298 $offset = 0; 1299 $glyf_offset = $table['glyf']['offset']; 1300 for ($i = 0; $i < $tot_num_glyphs; ++$i) { 1301 if (isset($subsetglyphs[$i])) { 1302 $length = ($indexToLoc[($i + 1)] - $indexToLoc[$i]); 1303 $glyf .= substr($font, ($glyf_offset + $indexToLoc[$i]), $length); 1304 } else { 1305 $length = 0; 1306 } 1307 if ($short_offset) { 1308 $loca .= pack('n', floor($offset / 2)); 1309 } else { 1310 $loca .= pack('N', $offset); 1311 } 1312 $offset += $length; 1313 } 1314 // array of table names to preserve (loca and glyf tables will be added later) 1315 // the cmap table is not needed and shall not be present, since the mapping from character codes to glyph descriptions is provided separately 1316 $table_names = array ('head', 'hhea', 'hmtx', 'maxp', 'cvt ', 'fpgm', 'prep'); // minimum required table names 1317 // get the tables to preserve 1318 $offset = 12; 1319 foreach ($table as $tag => $val) { 1320 if (in_array($tag, $table_names)) { 1321 $table[$tag]['data'] = substr($font, $table[$tag]['offset'], $table[$tag]['length']); 1322 if ($tag == 'head') { 1323 // set the checkSumAdjustment to 0 1324 $table[$tag]['data'] = substr($table[$tag]['data'], 0, 8)."\x0\x0\x0\x0".substr($table[$tag]['data'], 12); 1325 } 1326 $pad = 4 - ($table[$tag]['length'] % 4); 1327 if ($pad != 4) { 1328 // the length of a table must be a multiple of four bytes 1329 $table[$tag]['length'] += $pad; 1330 $table[$tag]['data'] .= str_repeat("\x0", $pad); 1331 } 1332 $table[$tag]['offset'] = $offset; 1333 $offset += $table[$tag]['length']; 1334 // check sum is not changed (so keep the following line commented) 1335 //$table[$tag]['checkSum'] = self::_getTTFtableChecksum($table[$tag]['data'], $table[$tag]['length']); 1336 } else { 1337 unset($table[$tag]); 1338 } 1339 } 1340 // add loca 1341 $table['loca']['data'] = $loca; 1342 $table['loca']['length'] = strlen($loca); 1343 $pad = 4 - ($table['loca']['length'] % 4); 1344 if ($pad != 4) { 1345 // the length of a table must be a multiple of four bytes 1346 $table['loca']['length'] += $pad; 1347 $table['loca']['data'] .= str_repeat("\x0", $pad); 1348 } 1349 $table['loca']['offset'] = $offset; 1350 $table['loca']['checkSum'] = self::_getTTFtableChecksum($table['loca']['data'], $table['loca']['length']); 1351 $offset += $table['loca']['length']; 1352 // add glyf 1353 $table['glyf']['data'] = $glyf; 1354 $table['glyf']['length'] = strlen($glyf); 1355 $pad = 4 - ($table['glyf']['length'] % 4); 1356 if ($pad != 4) { 1357 // the length of a table must be a multiple of four bytes 1358 $table['glyf']['length'] += $pad; 1359 $table['glyf']['data'] .= str_repeat("\x0", $pad); 1360 } 1361 $table['glyf']['offset'] = $offset; 1362 $table['glyf']['checkSum'] = self::_getTTFtableChecksum($table['glyf']['data'], $table['glyf']['length']); 1363 // rebuild font 1364 $font = ''; 1365 $font .= pack('N', 0x10000); // sfnt version 1366 $numTables = count($table); 1367 $font .= pack('n', $numTables); // numTables 1368 $entrySelector = floor(log($numTables, 2)); 1369 $searchRange = pow(2, $entrySelector) * 16; 1370 $rangeShift = ($numTables * 16) - $searchRange; 1371 $font .= pack('n', $searchRange); // searchRange 1372 $font .= pack('n', $entrySelector); // entrySelector 1373 $font .= pack('n', $rangeShift); // rangeShift 1374 $offset = ($numTables * 16); 1375 foreach ($table as $tag => $data) { 1376 $font .= $tag; // tag 1377 $font .= pack('N', $data['checkSum']); // checkSum 1378 $font .= pack('N', ($data['offset'] + $offset)); // offset 1379 $font .= pack('N', $data['length']); // length 1380 } 1381 foreach ($table as $data) { 1382 $font .= $data['data']; 1383 } 1384 // set checkSumAdjustment on head table 1385 $checkSumAdjustment = 0xB1B0AFBA - self::_getTTFtableChecksum($font, strlen($font)); 1386 $font = substr($font, 0, $table['head']['offset'] + 8).pack('N', $checkSumAdjustment).substr($font, $table['head']['offset'] + 12); 1387 return $font; 1388 } 1389 1390 /** 1391 * Outputs font widths 1392 * @param array $font font data 1393 * @param int $cidoffset offset for CID values 1394 * @return string PDF command string for font widths 1395 * @author Nicola Asuni 1396 * @since 4.4.000 (2008-12-07) 1397 * @public static 1398 */ 1399 public static function _putfontwidths($font, $cidoffset=0) { 1400 ksort($font['cw']); 1401 $rangeid = 0; 1402 $range = array(); 1403 $prevcid = -2; 1404 $prevwidth = -1; 1405 $interval = false; 1406 // for each character 1407 foreach ($font['cw'] as $cid => $width) { 1408 $cid -= $cidoffset; 1409 if ($font['subset'] AND (!isset($font['subsetchars'][$cid]))) { 1410 // ignore the unused characters (font subsetting) 1411 continue; 1412 } 1413 if ($width != $font['dw']) { 1414 if ($cid == ($prevcid + 1)) { 1415 // consecutive CID 1416 if ($width == $prevwidth) { 1417 if ($width == $range[$rangeid][0]) { 1418 $range[$rangeid][] = $width; 1419 } else { 1420 array_pop($range[$rangeid]); 1421 // new range 1422 $rangeid = $prevcid; 1423 $range[$rangeid] = array(); 1424 $range[$rangeid][] = $prevwidth; 1425 $range[$rangeid][] = $width; 1426 } 1427 $interval = true; 1428 $range[$rangeid]['interval'] = true; 1429 } else { 1430 if ($interval) { 1431 // new range 1432 $rangeid = $cid; 1433 $range[$rangeid] = array(); 1434 $range[$rangeid][] = $width; 1435 } else { 1436 $range[$rangeid][] = $width; 1437 } 1438 $interval = false; 1439 } 1440 } else { 1441 // new range 1442 $rangeid = $cid; 1443 $range[$rangeid] = array(); 1444 $range[$rangeid][] = $width; 1445 $interval = false; 1446 } 1447 $prevcid = $cid; 1448 $prevwidth = $width; 1449 } 1450 } 1451 // optimize ranges 1452 $prevk = -1; 1453 $nextk = -1; 1454 $prevint = false; 1455 foreach ($range as $k => $ws) { 1456 $cws = count($ws); 1457 if (($k == $nextk) AND (!$prevint) AND ((!isset($ws['interval'])) OR ($cws < 4))) { 1458 if (isset($range[$k]['interval'])) { 1459 unset($range[$k]['interval']); 1460 } 1461 $range[$prevk] = array_merge($range[$prevk], $range[$k]); 1462 unset($range[$k]); 1463 } else { 1464 $prevk = $k; 1465 } 1466 $nextk = $k + $cws; 1467 if (isset($ws['interval'])) { 1468 if ($cws > 3) { 1469 $prevint = true; 1470 } else { 1471 $prevint = false; 1472 } 1473 if (isset($range[$k]['interval'])) { 1474 unset($range[$k]['interval']); 1475 } 1476 --$nextk; 1477 } else { 1478 $prevint = false; 1479 } 1480 } 1481 // output data 1482 $w = ''; 1483 foreach ($range as $k => $ws) { 1484 if (count(array_count_values($ws)) == 1) { 1485 // interval mode is more compact 1486 $w .= ' '.$k.' '.($k + count($ws) - 1).' '.$ws[0]; 1487 } else { 1488 // range mode 1489 $w .= ' '.$k.' [ '.implode(' ', $ws).' ]'; 1490 } 1491 } 1492 return '/W ['.$w.' ]'; 1493 } 1494 1495 1496 1497 1498 /** 1499 * Update the CIDToGIDMap string with a new value. 1500 * @param string $map CIDToGIDMap. 1501 * @param int $cid CID value. 1502 * @param int $gid GID value. 1503 * @return string CIDToGIDMap. 1504 * @author Nicola Asuni 1505 * @since 5.9.123 (2011-09-29) 1506 * @public static 1507 */ 1508 public static function updateCIDtoGIDmap($map, $cid, $gid) { 1509 if (($cid >= 0) AND ($cid <= 0xFFFF) AND ($gid >= 0)) { 1510 if ($gid > 0xFFFF) { 1511 $gid -= 0x10000; 1512 } 1513 $map[($cid * 2)] = chr($gid >> 8); 1514 $map[(($cid * 2) + 1)] = chr($gid & 0xFF); 1515 } 1516 return $map; 1517 } 1518 1519 /** 1520 * Return fonts path 1521 * @return string 1522 * @public static 1523 */ 1524 public static function _getfontpath() { 1525 if (!defined('K_PATH_FONTS') AND is_dir($fdir = realpath(dirname(__FILE__).'/../fonts'))) { 1526 if (substr($fdir, -1) != '/') { 1527 $fdir .= '/'; 1528 } 1529 define('K_PATH_FONTS', $fdir); 1530 } 1531 return defined('K_PATH_FONTS') ? K_PATH_FONTS : ''; 1532 } 1533 1534 1535 1536 /** 1537 * Return font full path 1538 * @param string $file Font file name. 1539 * @param string $fontdir Font directory (set to false fto search on default directories) 1540 * @return string Font full path or empty string 1541 * @author Nicola Asuni 1542 * @since 6.0.025 1543 * @public static 1544 */ 1545 public static function getFontFullPath($file, $fontdir=false) { 1546 $fontfile = ''; 1547 // search files on various directories 1548 if (($fontdir !== false) AND @TCPDF_STATIC::file_exists($fontdir.$file)) { 1549 $fontfile = $fontdir.$file; 1550 } elseif (@TCPDF_STATIC::file_exists(self::_getfontpath().$file)) { 1551 $fontfile = self::_getfontpath().$file; 1552 } elseif (@TCPDF_STATIC::file_exists($file)) { 1553 $fontfile = $file; 1554 } 1555 return $fontfile; 1556 } 1557 1558 1559 1560 1561 /** 1562 * Get a reference font size. 1563 * @param string $size String containing font size value. 1564 * @param float $refsize Reference font size in points. 1565 * @return float value in points 1566 * @public static 1567 */ 1568 public static function getFontRefSize($size, $refsize=12) { 1569 switch ($size) { 1570 case 'xx-small': { 1571 $size = ($refsize - 4); 1572 break; 1573 } 1574 case 'x-small': { 1575 $size = ($refsize - 3); 1576 break; 1577 } 1578 case 'small': { 1579 $size = ($refsize - 2); 1580 break; 1581 } 1582 case 'medium': { 1583 $size = $refsize; 1584 break; 1585 } 1586 case 'large': { 1587 $size = ($refsize + 2); 1588 break; 1589 } 1590 case 'x-large': { 1591 $size = ($refsize + 4); 1592 break; 1593 } 1594 case 'xx-large': { 1595 $size = ($refsize + 6); 1596 break; 1597 } 1598 case 'smaller': { 1599 $size = ($refsize - 3); 1600 break; 1601 } 1602 case 'larger': { 1603 $size = ($refsize + 3); 1604 break; 1605 } 1606 } 1607 return $size; 1608 } 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 // ==================================================================================================================== 1650 // REIMPLEMENTED 1651 // ==================================================================================================================== 1652 1653 1654 1655 1656 1657 1658 1659 1660 /** 1661 * Returns the unicode caracter specified by the value 1662 * @param int $c UTF-8 value 1663 * @param boolean $unicode True if we are in unicode mode, false otherwise. 1664 * @return string Returns the specified character. 1665 * @since 2.3.000 (2008-03-05) 1666 * @public static 1667 */ 1668 public static function unichr($c, $unicode=true) { 1669 $c = intval($c); 1670 if (!$unicode) { 1671 return chr($c); 1672 } elseif ($c <= 0x7F) { 1673 // one byte 1674 return chr($c); 1675 } elseif ($c <= 0x7FF) { 1676 // two bytes 1677 return chr(0xC0 | $c >> 6).chr(0x80 | $c & 0x3F); 1678 } elseif ($c <= 0xFFFF) { 1679 // three bytes 1680 return chr(0xE0 | $c >> 12).chr(0x80 | $c >> 6 & 0x3F).chr(0x80 | $c & 0x3F); 1681 } elseif ($c <= 0x10FFFF) { 1682 // four bytes 1683 return chr(0xF0 | $c >> 18).chr(0x80 | $c >> 12 & 0x3F).chr(0x80 | $c >> 6 & 0x3F).chr(0x80 | $c & 0x3F); 1684 } else { 1685 return ''; 1686 } 1687 } 1688 1689 /** 1690 * Returns the unicode caracter specified by UTF-8 value 1691 * @param int $c UTF-8 value 1692 * @return string Returns the specified character. 1693 * @public static 1694 */ 1695 public static function unichrUnicode($c) { 1696 return self::unichr($c, true); 1697 } 1698 1699 /** 1700 * Returns the unicode caracter specified by ASCII value 1701 * @param int $c UTF-8 value 1702 * @return string Returns the specified character. 1703 * @public static 1704 */ 1705 public static function unichrASCII($c) { 1706 return self::unichr($c, false); 1707 } 1708 1709 /** 1710 * Converts array of UTF-8 characters to UTF16-BE string.<br> 1711 * Based on: http://www.faqs.org/rfcs/rfc2781.html 1712 * <pre> 1713 * Encoding UTF-16: 1714 * 1715 * Encoding of a single character from an ISO 10646 character value to 1716 * UTF-16 proceeds as follows. Let U be the character number, no greater 1717 * than 0x10FFFF. 1718 * 1719 * 1) If U < 0x10000, encode U as a 16-bit unsigned integer and 1720 * terminate. 1721 * 1722 * 2) Let U' = U - 0x10000. Because U is less than or equal to 0x10FFFF, 1723 * U' must be less than or equal to 0xFFFFF. That is, U' can be 1724 * represented in 20 bits. 1725 * 1726 * 3) Initialize two 16-bit unsigned integers, W1 and W2, to 0xD800 and 1727 * 0xDC00, respectively. These integers each have 10 bits free to 1728 * encode the character value, for a total of 20 bits. 1729 * 1730 * 4) Assign the 10 high-order bits of the 20-bit U' to the 10 low-order 1731 * bits of W1 and the 10 low-order bits of U' to the 10 low-order 1732 * bits of W2. Terminate. 1733 * 1734 * Graphically, steps 2 through 4 look like: 1735 * U' = yyyyyyyyyyxxxxxxxxxx 1736 * W1 = 110110yyyyyyyyyy 1737 * W2 = 110111xxxxxxxxxx 1738 * </pre> 1739 * @param array $unicode array containing UTF-8 unicode values 1740 * @param boolean $setbom if true set the Byte Order Mark (BOM = 0xFEFF) 1741 * @return string 1742 * @protected 1743 * @author Nicola Asuni 1744 * @since 2.1.000 (2008-01-08) 1745 * @public static 1746 */ 1747 public static function arrUTF8ToUTF16BE($unicode, $setbom=false) { 1748 $outstr = ''; // string to be returned 1749 if ($setbom) { 1750 $outstr .= "\xFE\xFF"; // Byte Order Mark (BOM) 1751 } 1752 foreach ($unicode as $char) { 1753 if ($char == 0x200b) { 1754 // skip Unicode Character 'ZERO WIDTH SPACE' (DEC:8203, U+200B) 1755 } elseif ($char == 0xFFFD) { 1756 $outstr .= "\xFF\xFD"; // replacement character 1757 } elseif ($char < 0x10000) { 1758 $outstr .= chr($char >> 0x08); 1759 $outstr .= chr($char & 0xFF); 1760 } else { 1761 $char -= 0x10000; 1762 $w1 = 0xD800 | ($char >> 0x0a); 1763 $w2 = 0xDC00 | ($char & 0x3FF); 1764 $outstr .= chr($w1 >> 0x08); 1765 $outstr .= chr($w1 & 0xFF); 1766 $outstr .= chr($w2 >> 0x08); 1767 $outstr .= chr($w2 & 0xFF); 1768 } 1769 } 1770 return $outstr; 1771 } 1772 1773 /** 1774 * Convert an array of UTF8 values to array of unicode characters 1775 * @param array $ta The input array of UTF8 values. 1776 * @param boolean $isunicode True for Unicode mode, false otherwise. 1777 * @return array Return array of unicode characters 1778 * @since 4.5.037 (2009-04-07) 1779 * @public static 1780 */ 1781 public static function UTF8ArrayToUniArray($ta, $isunicode=true) { 1782 if ($isunicode) { 1783 return array_map(array('TCPDF_FONTS', 'unichrUnicode'), $ta); 1784 } 1785 return array_map(array('TCPDF_FONTS', 'unichrASCII'), $ta); 1786 } 1787 1788 /** 1789 * Extract a slice of the $strarr array and return it as string. 1790 * @param string[] $strarr The input array of characters. 1791 * @param int $start the starting element of $strarr. 1792 * @param int $end first element that will not be returned. 1793 * @param boolean $unicode True if we are in unicode mode, false otherwise. 1794 * @return string Return part of a string 1795 * @public static 1796 */ 1797 public static function UTF8ArrSubString($strarr, $start='', $end='', $unicode=true) { 1798 if (strlen($start) == 0) { 1799 $start = 0; 1800 } 1801 if (strlen($end) == 0) { 1802 $end = count($strarr); 1803 } 1804 $string = ''; 1805 for ($i = $start; $i < $end; ++$i) { 1806 $string .= self::unichr($strarr[$i], $unicode); 1807 } 1808 return $string; 1809 } 1810 1811 /** 1812 * Extract a slice of the $uniarr array and return it as string. 1813 * @param string[] $uniarr The input array of characters. 1814 * @param int $start the starting element of $strarr. 1815 * @param int $end first element that will not be returned. 1816 * @return string Return part of a string 1817 * @since 4.5.037 (2009-04-07) 1818 * @public static 1819 */ 1820 public static function UniArrSubString($uniarr, $start='', $end='') { 1821 if (strlen($start) == 0) { 1822 $start = 0; 1823 } 1824 if (strlen($end) == 0) { 1825 $end = count($uniarr); 1826 } 1827 $string = ''; 1828 for ($i=$start; $i < $end; ++$i) { 1829 $string .= $uniarr[$i]; 1830 } 1831 return $string; 1832 } 1833 1834 /** 1835 * Converts UTF-8 characters array to array of Latin1 characters array<br> 1836 * @param array $unicode array containing UTF-8 unicode values 1837 * @return array 1838 * @author Nicola Asuni 1839 * @since 4.8.023 (2010-01-15) 1840 * @public static 1841 */ 1842 public static function UTF8ArrToLatin1Arr($unicode) { 1843 $outarr = array(); // array to be returned 1844 foreach ($unicode as $char) { 1845 if ($char < 256) { 1846 $outarr[] = $char; 1847 } elseif (array_key_exists($char, TCPDF_FONT_DATA::$uni_utf8tolatin)) { 1848 // map from UTF-8 1849 $outarr[] = TCPDF_FONT_DATA::$uni_utf8tolatin[$char]; 1850 } elseif ($char == 0xFFFD) { 1851 // skip 1852 } else { 1853 $outarr[] = 63; // '?' character 1854 } 1855 } 1856 return $outarr; 1857 } 1858 1859 /** 1860 * Converts UTF-8 characters array to Latin1 string<br> 1861 * @param array $unicode array containing UTF-8 unicode values 1862 * @return string 1863 * @author Nicola Asuni 1864 * @since 4.8.023 (2010-01-15) 1865 * @public static 1866 */ 1867 public static function UTF8ArrToLatin1($unicode) { 1868 $outstr = ''; // string to be returned 1869 foreach ($unicode as $char) { 1870 if ($char < 256) { 1871 $outstr .= chr($char); 1872 } elseif (array_key_exists($char, TCPDF_FONT_DATA::$uni_utf8tolatin)) { 1873 // map from UTF-8 1874 $outstr .= chr(TCPDF_FONT_DATA::$uni_utf8tolatin[$char]); 1875 } elseif ($char == 0xFFFD) { 1876 // skip 1877 } else { 1878 $outstr .= '?'; 1879 } 1880 } 1881 return $outstr; 1882 } 1883 1884 /** 1885 * Converts UTF-8 character to integer value.<br> 1886 * Uses the getUniord() method if the value is not cached. 1887 * @param string $uch character string to process. 1888 * @return int Unicode value 1889 * @public static 1890 */ 1891 public static function uniord($uch) { 1892 if (!isset(self::$cache_uniord[$uch])) { 1893 self::$cache_uniord[$uch] = self::getUniord($uch); 1894 } 1895 return self::$cache_uniord[$uch]; 1896 } 1897 1898 /** 1899 * Converts UTF-8 character to integer value.<br> 1900 * Invalid byte sequences will be replaced with 0xFFFD (replacement character)<br> 1901 * Based on: http://www.faqs.org/rfcs/rfc3629.html 1902 * <pre> 1903 * Char. number range | UTF-8 octet sequence 1904 * (hexadecimal) | (binary) 1905 * --------------------+----------------------------------------------- 1906 * 0000 0000-0000 007F | 0xxxxxxx 1907 * 0000 0080-0000 07FF | 110xxxxx 10xxxxxx 1908 * 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx 1909 * 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx 1910 * --------------------------------------------------------------------- 1911 * 1912 * ABFN notation: 1913 * --------------------------------------------------------------------- 1914 * UTF8-octets = *( UTF8-char ) 1915 * UTF8-char = UTF8-1 / UTF8-2 / UTF8-3 / UTF8-4 1916 * UTF8-1 = %x00-7F 1917 * UTF8-2 = %xC2-DF UTF8-tail 1918 * 1919 * UTF8-3 = %xE0 %xA0-BF UTF8-tail / %xE1-EC 2( UTF8-tail ) / 1920 * %xED %x80-9F UTF8-tail / %xEE-EF 2( UTF8-tail ) 1921 * UTF8-4 = %xF0 %x90-BF 2( UTF8-tail ) / %xF1-F3 3( UTF8-tail ) / 1922 * %xF4 %x80-8F 2( UTF8-tail ) 1923 * UTF8-tail = %x80-BF 1924 * --------------------------------------------------------------------- 1925 * </pre> 1926 * @param string $uch character string to process. 1927 * @return int Unicode value 1928 * @author Nicola Asuni 1929 * @public static 1930 */ 1931 public static function getUniord($uch) { 1932 if (function_exists('mb_convert_encoding')) { 1933 list(, $char) = @unpack('N', mb_convert_encoding($uch, 'UCS-4BE', 'UTF-8')); 1934 if ($char >= 0) { 1935 return $char; 1936 } 1937 } 1938 $bytes = array(); // array containing single character byte sequences 1939 $countbytes = 0; 1940 $numbytes = 1; // number of octetc needed to represent the UTF-8 character 1941 $length = strlen($uch); 1942 for ($i = 0; $i < $length; ++$i) { 1943 $char = ord($uch[$i]); // get one string character at time 1944 if ($countbytes == 0) { // get starting octect 1945 if ($char <= 0x7F) { 1946 return $char; // use the character "as is" because is ASCII 1947 } elseif (($char >> 0x05) == 0x06) { // 2 bytes character (0x06 = 110 BIN) 1948 $bytes[] = ($char - 0xC0) << 0x06; 1949 ++$countbytes; 1950 $numbytes = 2; 1951 } elseif (($char >> 0x04) == 0x0E) { // 3 bytes character (0x0E = 1110 BIN) 1952 $bytes[] = ($char - 0xE0) << 0x0C; 1953 ++$countbytes; 1954 $numbytes = 3; 1955 } elseif (($char >> 0x03) == 0x1E) { // 4 bytes character (0x1E = 11110 BIN) 1956 $bytes[] = ($char - 0xF0) << 0x12; 1957 ++$countbytes; 1958 $numbytes = 4; 1959 } else { 1960 // use replacement character for other invalid sequences 1961 return 0xFFFD; 1962 } 1963 } elseif (($char >> 0x06) == 0x02) { // bytes 2, 3 and 4 must start with 0x02 = 10 BIN 1964 $bytes[] = $char - 0x80; 1965 ++$countbytes; 1966 if ($countbytes == $numbytes) { 1967 // compose UTF-8 bytes to a single unicode value 1968 $char = $bytes[0]; 1969 for ($j = 1; $j < $numbytes; ++$j) { 1970 $char += ($bytes[$j] << (($numbytes - $j - 1) * 0x06)); 1971 } 1972 if ((($char >= 0xD800) AND ($char <= 0xDFFF)) OR ($char >= 0x10FFFF)) { 1973 // The definition of UTF-8 prohibits encoding character numbers between 1974 // U+D800 and U+DFFF, which are reserved for use with the UTF-16 1975 // encoding form (as surrogate pairs) and do not directly represent 1976 // characters. 1977 return 0xFFFD; // use replacement character 1978 } else { 1979 return $char; 1980 } 1981 } 1982 } else { 1983 // use replacement character for other invalid sequences 1984 return 0xFFFD; 1985 } 1986 } 1987 return 0xFFFD; 1988 } 1989 1990 /** 1991 * Converts UTF-8 strings to codepoints array.<br> 1992 * Invalid byte sequences will be replaced with 0xFFFD (replacement character)<br> 1993 * @param string $str string to process. 1994 * @param boolean $isunicode True when the documetn is in Unicode mode, false otherwise. 1995 * @param array $currentfont Reference to current font array. 1996 * @return array containing codepoints (UTF-8 characters values) 1997 * @author Nicola Asuni 1998 * @public static 1999 */ 2000 public static function UTF8StringToArray($str, $isunicode, &$currentfont) { 2001 $str = is_null($str) ? '' : $str; 2002 if ($isunicode) { 2003 // requires PCRE unicode support turned on 2004 $chars = TCPDF_STATIC::pregSplit('//','u', $str, -1, PREG_SPLIT_NO_EMPTY); 2005 $carr = array_map(array('TCPDF_FONTS', 'uniord'), $chars); 2006 } else { 2007 $chars = str_split($str); 2008 $carr = array_map('ord', $chars); 2009 } 2010 if (is_array($currentfont['subsetchars']) && is_array($carr)) { 2011 $currentfont['subsetchars'] += array_fill_keys($carr, true); 2012 } else { 2013 $currentfont['subsetchars'] = array_merge($currentfont['subsetchars'], $carr); 2014 } 2015 return $carr; 2016 } 2017 2018 /** 2019 * Converts UTF-8 strings to Latin1 when using the standard 14 core fonts.<br> 2020 * @param string $str string to process. 2021 * @param boolean $isunicode True when the documetn is in Unicode mode, false otherwise. 2022 * @param array $currentfont Reference to current font array. 2023 * @return string 2024 * @since 3.2.000 (2008-06-23) 2025 * @public static 2026 */ 2027 public static function UTF8ToLatin1($str, $isunicode, &$currentfont) { 2028 $unicode = self::UTF8StringToArray($str, $isunicode, $currentfont); // array containing UTF-8 unicode values 2029 return self::UTF8ArrToLatin1($unicode); 2030 } 2031 2032 /** 2033 * Converts UTF-8 strings to UTF16-BE.<br> 2034 * @param string $str string to process. 2035 * @param boolean $setbom if true set the Byte Order Mark (BOM = 0xFEFF) 2036 * @param boolean $isunicode True when the documetn is in Unicode mode, false otherwise. 2037 * @param array $currentfont Reference to current font array. 2038 * @return string 2039 * @author Nicola Asuni 2040 * @since 1.53.0.TC005 (2005-01-05) 2041 * @public static 2042 */ 2043 public static function UTF8ToUTF16BE($str, $setbom, $isunicode, &$currentfont) { 2044 if (!$isunicode) { 2045 return $str; // string is not in unicode 2046 } 2047 $unicode = self::UTF8StringToArray($str, $isunicode, $currentfont); // array containing UTF-8 unicode values 2048 return self::arrUTF8ToUTF16BE($unicode, $setbom); 2049 } 2050 2051 /** 2052 * Reverse the RLT substrings using the Bidirectional Algorithm (http://unicode.org/reports/tr9/). 2053 * @param string $str string to manipulate. 2054 * @param bool $setbom if true set the Byte Order Mark (BOM = 0xFEFF) 2055 * @param bool $forcertl if true forces RTL text direction 2056 * @param boolean $isunicode True if the document is in Unicode mode, false otherwise. 2057 * @param array $currentfont Reference to current font array. 2058 * @return string 2059 * @author Nicola Asuni 2060 * @since 2.1.000 (2008-01-08) 2061 * @public static 2062 */ 2063 public static function utf8StrRev($str, $setbom, $forcertl, $isunicode, &$currentfont) { 2064 return self::utf8StrArrRev(self::UTF8StringToArray($str, $isunicode, $currentfont), $str, $setbom, $forcertl, $isunicode, $currentfont); 2065 } 2066 2067 /** 2068 * Reverse the RLT substrings array using the Bidirectional Algorithm (http://unicode.org/reports/tr9/). 2069 * @param array $arr array of unicode values. 2070 * @param string $str string to manipulate (or empty value). 2071 * @param bool $setbom if true set the Byte Order Mark (BOM = 0xFEFF) 2072 * @param bool $forcertl if true forces RTL text direction 2073 * @param boolean $isunicode True if the document is in Unicode mode, false otherwise. 2074 * @param array $currentfont Reference to current font array. 2075 * @return string 2076 * @author Nicola Asuni 2077 * @since 4.9.000 (2010-03-27) 2078 * @public static 2079 */ 2080 public static function utf8StrArrRev($arr, $str, $setbom, $forcertl, $isunicode, &$currentfont) { 2081 return self::arrUTF8ToUTF16BE(self::utf8Bidi($arr, $str, $forcertl, $isunicode, $currentfont), $setbom); 2082 } 2083 2084 /** 2085 * Reverse the RLT substrings using the Bidirectional Algorithm (http://unicode.org/reports/tr9/). 2086 * @param array $ta array of characters composing the string. 2087 * @param string $str string to process 2088 * @param bool $forcertl if 'R' forces RTL, if 'L' forces LTR 2089 * @param boolean $isunicode True if the document is in Unicode mode, false otherwise. 2090 * @param array $currentfont Reference to current font array. 2091 * @return array of unicode chars 2092 * @author Nicola Asuni 2093 * @since 2.4.000 (2008-03-06) 2094 * @public static 2095 */ 2096 public static function utf8Bidi($ta, $str, $forcertl, $isunicode, &$currentfont) { 2097 // paragraph embedding level 2098 $pel = 0; 2099 // max level 2100 $maxlevel = 0; 2101 if (TCPDF_STATIC::empty_string($str)) { 2102 // create string from array 2103 $str = self::UTF8ArrSubString($ta, '', '', $isunicode); 2104 } 2105 // check if string contains arabic text 2106 if (preg_match(TCPDF_FONT_DATA::$uni_RE_PATTERN_ARABIC, $str)) { 2107 $arabic = true; 2108 } else { 2109 $arabic = false; 2110 } 2111 // check if string contains RTL text 2112 if (!($forcertl OR $arabic OR preg_match(TCPDF_FONT_DATA::$uni_RE_PATTERN_RTL, $str))) { 2113 return $ta; 2114 } 2115 2116 // get number of chars 2117 $numchars = count($ta); 2118 2119 if ($forcertl == 'R') { 2120 $pel = 1; 2121 } elseif ($forcertl == 'L') { 2122 $pel = 0; 2123 } else { 2124 // P2. In each paragraph, find the first character of type L, AL, or R. 2125 // P3. If a character is found in P2 and it is of type AL or R, then set the paragraph embedding level to one; otherwise, set it to zero. 2126 for ($i=0; $i < $numchars; ++$i) { 2127 $type = TCPDF_FONT_DATA::$uni_type[$ta[$i]]; 2128 if ($type == 'L') { 2129 $pel = 0; 2130 break; 2131 } elseif (($type == 'AL') OR ($type == 'R')) { 2132 $pel = 1; 2133 break; 2134 } 2135 } 2136 } 2137 2138 // Current Embedding Level 2139 $cel = $pel; 2140 // directional override status 2141 $dos = 'N'; 2142 $remember = array(); 2143 // start-of-level-run 2144 $sor = $pel % 2 ? 'R' : 'L'; 2145 $eor = $sor; 2146 2147 // Array of characters data 2148 $chardata = Array(); 2149 2150 // X1. Begin by setting the current embedding level to the paragraph embedding level. Set the directional override status to neutral. Process each character iteratively, applying rules X2 through X9. Only embedding levels from 0 to 61 are valid in this phase. 2151 // In the resolution of levels in rules I1 and I2, the maximum embedding level of 62 can be reached. 2152 for ($i=0; $i < $numchars; ++$i) { 2153 if ($ta[$i] == TCPDF_FONT_DATA::$uni_RLE) { 2154 // X2. With each RLE, compute the least greater odd embedding level. 2155 // a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to neutral. 2156 // b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status. 2157 $next_level = $cel + ($cel % 2) + 1; 2158 if ($next_level < 62) { 2159 $remember[] = array('num' => TCPDF_FONT_DATA::$uni_RLE, 'cel' => $cel, 'dos' => $dos); 2160 $cel = $next_level; 2161 $dos = 'N'; 2162 $sor = $eor; 2163 $eor = $cel % 2 ? 'R' : 'L'; 2164 } 2165 } elseif ($ta[$i] == TCPDF_FONT_DATA::$uni_LRE) { 2166 // X3. With each LRE, compute the least greater even embedding level. 2167 // a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to neutral. 2168 // b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status. 2169 $next_level = $cel + 2 - ($cel % 2); 2170 if ( $next_level < 62 ) { 2171 $remember[] = array('num' => TCPDF_FONT_DATA::$uni_LRE, 'cel' => $cel, 'dos' => $dos); 2172 $cel = $next_level; 2173 $dos = 'N'; 2174 $sor = $eor; 2175 $eor = $cel % 2 ? 'R' : 'L'; 2176 } 2177 } elseif ($ta[$i] == TCPDF_FONT_DATA::$uni_RLO) { 2178 // X4. With each RLO, compute the least greater odd embedding level. 2179 // a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to right-to-left. 2180 // b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status. 2181 $next_level = $cel + ($cel % 2) + 1; 2182 if ($next_level < 62) { 2183 $remember[] = array('num' => TCPDF_FONT_DATA::$uni_RLO, 'cel' => $cel, 'dos' => $dos); 2184 $cel = $next_level; 2185 $dos = 'R'; 2186 $sor = $eor; 2187 $eor = $cel % 2 ? 'R' : 'L'; 2188 } 2189 } elseif ($ta[$i] == TCPDF_FONT_DATA::$uni_LRO) { 2190 // X5. With each LRO, compute the least greater even embedding level. 2191 // a. If this new level would be valid, then this embedding code is valid. Remember (push) the current embedding level and override status. Reset the current level to this new level, and reset the override status to left-to-right. 2192 // b. If the new level would not be valid, then this code is invalid. Do not change the current level or override status. 2193 $next_level = $cel + 2 - ($cel % 2); 2194 if ( $next_level < 62 ) { 2195 $remember[] = array('num' => TCPDF_FONT_DATA::$uni_LRO, 'cel' => $cel, 'dos' => $dos); 2196 $cel = $next_level; 2197 $dos = 'L'; 2198 $sor = $eor; 2199 $eor = $cel % 2 ? 'R' : 'L'; 2200 } 2201 } elseif ($ta[$i] == TCPDF_FONT_DATA::$uni_PDF) { 2202 // X7. With each PDF, determine the matching embedding or override code. If there was a valid matching code, restore (pop) the last remembered (pushed) embedding level and directional override. 2203 if (count($remember)) { 2204 $last = count($remember ) - 1; 2205 if (($remember[$last]['num'] == TCPDF_FONT_DATA::$uni_RLE) OR 2206 ($remember[$last]['num'] == TCPDF_FONT_DATA::$uni_LRE) OR 2207 ($remember[$last]['num'] == TCPDF_FONT_DATA::$uni_RLO) OR 2208 ($remember[$last]['num'] == TCPDF_FONT_DATA::$uni_LRO)) { 2209 $match = array_pop($remember); 2210 $cel = $match['cel']; 2211 $dos = $match['dos']; 2212 $sor = $eor; 2213 $eor = ($cel > $match['cel'] ? $cel : $match['cel']) % 2 ? 'R' : 'L'; 2214 } 2215 } 2216 } elseif (($ta[$i] != TCPDF_FONT_DATA::$uni_RLE) AND 2217 ($ta[$i] != TCPDF_FONT_DATA::$uni_LRE) AND 2218 ($ta[$i] != TCPDF_FONT_DATA::$uni_RLO) AND 2219 ($ta[$i] != TCPDF_FONT_DATA::$uni_LRO) AND 2220 ($ta[$i] != TCPDF_FONT_DATA::$uni_PDF)) { 2221 // X6. For all types besides RLE, LRE, RLO, LRO, and PDF: 2222 // a. Set the level of the current character to the current embedding level. 2223 // b. Whenever the directional override status is not neutral, reset the current character type to the directional override status. 2224 if ($dos != 'N') { 2225 $chardir = $dos; 2226 } else { 2227 if (isset(TCPDF_FONT_DATA::$uni_type[$ta[$i]])) { 2228 $chardir = TCPDF_FONT_DATA::$uni_type[$ta[$i]]; 2229 } else { 2230 $chardir = 'L'; 2231 } 2232 } 2233 // stores string characters and other information 2234 $chardata[] = array('char' => $ta[$i], 'level' => $cel, 'type' => $chardir, 'sor' => $sor, 'eor' => $eor); 2235 } 2236 } // end for each char 2237 2238 // X8. All explicit directional embeddings and overrides are completely terminated at the end of each paragraph. Paragraph separators are not included in the embedding. 2239 // X9. Remove all RLE, LRE, RLO, LRO, PDF, and BN codes. 2240 // X10. The remaining rules are applied to each run of characters at the same level. For each run, determine the start-of-level-run (sor) and end-of-level-run (eor) type, either L or R. This depends on the higher of the two levels on either side of the boundary (at the start or end of the paragraph, the level of the 'other' run is the base embedding level). If the higher level is odd, the type is R; otherwise, it is L. 2241 2242 // 3.3.3 Resolving Weak Types 2243 // Weak types are now resolved one level run at a time. At level run boundaries where the type of the character on the other side of the boundary is required, the type assigned to sor or eor is used. 2244 // Nonspacing marks are now resolved based on the previous characters. 2245 $numchars = count($chardata); 2246 2247 // W1. Examine each nonspacing mark (NSM) in the level run, and change the type of the NSM to the type of the previous character. If the NSM is at the start of the level run, it will get the type of sor. 2248 $prevlevel = -1; // track level changes 2249 $levcount = 0; // counts consecutive chars at the same level 2250 for ($i=0; $i < $numchars; ++$i) { 2251 if ($chardata[$i]['type'] == 'NSM') { 2252 if ($levcount) { 2253 $chardata[$i]['type'] = $chardata[$i]['sor']; 2254 } elseif ($i > 0) { 2255 $chardata[$i]['type'] = $chardata[($i-1)]['type']; 2256 } 2257 } 2258 if ($chardata[$i]['level'] != $prevlevel) { 2259 $levcount = 0; 2260 } else { 2261 ++$levcount; 2262 } 2263 $prevlevel = $chardata[$i]['level']; 2264 } 2265 2266 // W2. Search backward from each instance of a European number until the first strong type (R, L, AL, or sor) is found. If an AL is found, change the type of the European number to Arabic number. 2267 $prevlevel = -1; 2268 $levcount = 0; 2269 for ($i=0; $i < $numchars; ++$i) { 2270 if ($chardata[$i]['char'] == 'EN') { 2271 for ($j=$levcount; $j >= 0; $j--) { 2272 if ($chardata[$j]['type'] == 'AL') { 2273 $chardata[$i]['type'] = 'AN'; 2274 } elseif (($chardata[$j]['type'] == 'L') OR ($chardata[$j]['type'] == 'R')) { 2275 break; 2276 } 2277 } 2278 } 2279 if ($chardata[$i]['level'] != $prevlevel) { 2280 $levcount = 0; 2281 } else { 2282 ++$levcount; 2283 } 2284 $prevlevel = $chardata[$i]['level']; 2285 } 2286 2287 // W3. Change all ALs to R. 2288 for ($i=0; $i < $numchars; ++$i) { 2289 if ($chardata[$i]['type'] == 'AL') { 2290 $chardata[$i]['type'] = 'R'; 2291 } 2292 } 2293 2294 // W4. A single European separator between two European numbers changes to a European number. A single common separator between two numbers of the same type changes to that type. 2295 $prevlevel = -1; 2296 $levcount = 0; 2297 for ($i=0; $i < $numchars; ++$i) { 2298 if (($levcount > 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) { 2299 if (($chardata[$i]['type'] == 'ES') AND ($chardata[($i-1)]['type'] == 'EN') AND ($chardata[($i+1)]['type'] == 'EN')) { 2300 $chardata[$i]['type'] = 'EN'; 2301 } elseif (($chardata[$i]['type'] == 'CS') AND ($chardata[($i-1)]['type'] == 'EN') AND ($chardata[($i+1)]['type'] == 'EN')) { 2302 $chardata[$i]['type'] = 'EN'; 2303 } elseif (($chardata[$i]['type'] == 'CS') AND ($chardata[($i-1)]['type'] == 'AN') AND ($chardata[($i+1)]['type'] == 'AN')) { 2304 $chardata[$i]['type'] = 'AN'; 2305 } 2306 } 2307 if ($chardata[$i]['level'] != $prevlevel) { 2308 $levcount = 0; 2309 } else { 2310 ++$levcount; 2311 } 2312 $prevlevel = $chardata[$i]['level']; 2313 } 2314 2315 // W5. A sequence of European terminators adjacent to European numbers changes to all European numbers. 2316 $prevlevel = -1; 2317 $levcount = 0; 2318 for ($i=0; $i < $numchars; ++$i) { 2319 if ($chardata[$i]['type'] == 'ET') { 2320 if (($levcount > 0) AND ($chardata[($i-1)]['type'] == 'EN')) { 2321 $chardata[$i]['type'] = 'EN'; 2322 } else { 2323 $j = $i+1; 2324 while (($j < $numchars) AND ($chardata[$j]['level'] == $prevlevel)) { 2325 if ($chardata[$j]['type'] == 'EN') { 2326 $chardata[$i]['type'] = 'EN'; 2327 break; 2328 } elseif ($chardata[$j]['type'] != 'ET') { 2329 break; 2330 } 2331 ++$j; 2332 } 2333 } 2334 } 2335 if ($chardata[$i]['level'] != $prevlevel) { 2336 $levcount = 0; 2337 } else { 2338 ++$levcount; 2339 } 2340 $prevlevel = $chardata[$i]['level']; 2341 } 2342 2343 // W6. Otherwise, separators and terminators change to Other Neutral. 2344 $prevlevel = -1; 2345 $levcount = 0; 2346 for ($i=0; $i < $numchars; ++$i) { 2347 if (($chardata[$i]['type'] == 'ET') OR ($chardata[$i]['type'] == 'ES') OR ($chardata[$i]['type'] == 'CS')) { 2348 $chardata[$i]['type'] = 'ON'; 2349 } 2350 if ($chardata[$i]['level'] != $prevlevel) { 2351 $levcount = 0; 2352 } else { 2353 ++$levcount; 2354 } 2355 $prevlevel = $chardata[$i]['level']; 2356 } 2357 2358 //W7. Search backward from each instance of a European number until the first strong type (R, L, or sor) is found. If an L is found, then change the type of the European number to L. 2359 $prevlevel = -1; 2360 $levcount = 0; 2361 for ($i=0; $i < $numchars; ++$i) { 2362 if ($chardata[$i]['char'] == 'EN') { 2363 for ($j=$levcount; $j >= 0; $j--) { 2364 if ($chardata[$j]['type'] == 'L') { 2365 $chardata[$i]['type'] = 'L'; 2366 } elseif ($chardata[$j]['type'] == 'R') { 2367 break; 2368 } 2369 } 2370 } 2371 if ($chardata[$i]['level'] != $prevlevel) { 2372 $levcount = 0; 2373 } else { 2374 ++$levcount; 2375 } 2376 $prevlevel = $chardata[$i]['level']; 2377 } 2378 2379 // N1. A sequence of neutrals takes the direction of the surrounding strong text if the text on both sides has the same direction. European and Arabic numbers act as if they were R in terms of their influence on neutrals. Start-of-level-run (sor) and end-of-level-run (eor) are used at level run boundaries. 2380 $prevlevel = -1; 2381 $levcount = 0; 2382 for ($i=0; $i < $numchars; ++$i) { 2383 if (($levcount > 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) { 2384 if (($chardata[$i]['type'] == 'N') AND ($chardata[($i-1)]['type'] == 'L') AND ($chardata[($i+1)]['type'] == 'L')) { 2385 $chardata[$i]['type'] = 'L'; 2386 } elseif (($chardata[$i]['type'] == 'N') AND 2387 (($chardata[($i-1)]['type'] == 'R') OR ($chardata[($i-1)]['type'] == 'EN') OR ($chardata[($i-1)]['type'] == 'AN')) AND 2388 (($chardata[($i+1)]['type'] == 'R') OR ($chardata[($i+1)]['type'] == 'EN') OR ($chardata[($i+1)]['type'] == 'AN'))) { 2389 $chardata[$i]['type'] = 'R'; 2390 } elseif ($chardata[$i]['type'] == 'N') { 2391 // N2. Any remaining neutrals take the embedding direction 2392 $chardata[$i]['type'] = $chardata[$i]['sor']; 2393 } 2394 } elseif (($levcount == 0) AND (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] == $prevlevel)) { 2395 // first char 2396 if (($chardata[$i]['type'] == 'N') AND ($chardata[$i]['sor'] == 'L') AND ($chardata[($i+1)]['type'] == 'L')) { 2397 $chardata[$i]['type'] = 'L'; 2398 } elseif (($chardata[$i]['type'] == 'N') AND 2399 (($chardata[$i]['sor'] == 'R') OR ($chardata[$i]['sor'] == 'EN') OR ($chardata[$i]['sor'] == 'AN')) AND 2400 (($chardata[($i+1)]['type'] == 'R') OR ($chardata[($i+1)]['type'] == 'EN') OR ($chardata[($i+1)]['type'] == 'AN'))) { 2401 $chardata[$i]['type'] = 'R'; 2402 } elseif ($chardata[$i]['type'] == 'N') { 2403 // N2. Any remaining neutrals take the embedding direction 2404 $chardata[$i]['type'] = $chardata[$i]['sor']; 2405 } 2406 } elseif (($levcount > 0) AND ((($i+1) == $numchars) OR (($i+1) < $numchars) AND ($chardata[($i+1)]['level'] != $prevlevel))) { 2407 //last char 2408 if (($chardata[$i]['type'] == 'N') AND ($chardata[($i-1)]['type'] == 'L') AND ($chardata[$i]['eor'] == 'L')) { 2409 $chardata[$i]['type'] = 'L'; 2410 } elseif (($chardata[$i]['type'] == 'N') AND 2411 (($chardata[($i-1)]['type'] == 'R') OR ($chardata[($i-1)]['type'] == 'EN') OR ($chardata[($i-1)]['type'] == 'AN')) AND 2412 (($chardata[$i]['eor'] == 'R') OR ($chardata[$i]['eor'] == 'EN') OR ($chardata[$i]['eor'] == 'AN'))) { 2413 $chardata[$i]['type'] = 'R'; 2414 } elseif ($chardata[$i]['type'] == 'N') { 2415 // N2. Any remaining neutrals take the embedding direction 2416 $chardata[$i]['type'] = $chardata[$i]['sor']; 2417 } 2418 } elseif ($chardata[$i]['type'] == 'N') { 2419 // N2. Any remaining neutrals take the embedding direction 2420 $chardata[$i]['type'] = $chardata[$i]['sor']; 2421 } 2422 if ($chardata[$i]['level'] != $prevlevel) { 2423 $levcount = 0; 2424 } else { 2425 ++$levcount; 2426 } 2427 $prevlevel = $chardata[$i]['level']; 2428 } 2429 2430 // I1. For all characters with an even (left-to-right) embedding direction, those of type R go up one level and those of type AN or EN go up two levels. 2431 // I2. For all characters with an odd (right-to-left) embedding direction, those of type L, EN or AN go up one level. 2432 for ($i=0; $i < $numchars; ++$i) { 2433 $odd = $chardata[$i]['level'] % 2; 2434 if ($odd) { 2435 if (($chardata[$i]['type'] == 'L') OR ($chardata[$i]['type'] == 'AN') OR ($chardata[$i]['type'] == 'EN')) { 2436 $chardata[$i]['level'] += 1; 2437 } 2438 } else { 2439 if ($chardata[$i]['type'] == 'R') { 2440 $chardata[$i]['level'] += 1; 2441 } elseif (($chardata[$i]['type'] == 'AN') OR ($chardata[$i]['type'] == 'EN')) { 2442 $chardata[$i]['level'] += 2; 2443 } 2444 } 2445 $maxlevel = max($chardata[$i]['level'],$maxlevel); 2446 } 2447 2448 // L1. On each line, reset the embedding level of the following characters to the paragraph embedding level: 2449 // 1. Segment separators, 2450 // 2. Paragraph separators, 2451 // 3. Any sequence of whitespace characters preceding a segment separator or paragraph separator, and 2452 // 4. Any sequence of white space characters at the end of the line. 2453 for ($i=0; $i < $numchars; ++$i) { 2454 if (($chardata[$i]['type'] == 'B') OR ($chardata[$i]['type'] == 'S')) { 2455 $chardata[$i]['level'] = $pel; 2456 } elseif ($chardata[$i]['type'] == 'WS') { 2457 $j = $i+1; 2458 while ($j < $numchars) { 2459 if ((($chardata[$j]['type'] == 'B') OR ($chardata[$j]['type'] == 'S')) OR 2460 (($j == ($numchars-1)) AND ($chardata[$j]['type'] == 'WS'))) { 2461 $chardata[$i]['level'] = $pel; 2462 break; 2463 } elseif ($chardata[$j]['type'] != 'WS') { 2464 break; 2465 } 2466 ++$j; 2467 } 2468 } 2469 } 2470 2471 // Arabic Shaping 2472 // Cursively connected scripts, such as Arabic or Syriac, require the selection of positional character shapes that depend on adjacent characters. Shaping is logically applied after the Bidirectional Algorithm is used and is limited to characters within the same directional run. 2473 if ($arabic) { 2474 $endedletter = array(1569,1570,1571,1572,1573,1575,1577,1583,1584,1585,1586,1608,1688); 2475 $alfletter = array(1570,1571,1573,1575); 2476 $chardata2 = $chardata; 2477 $laaletter = false; 2478 $charAL = array(); 2479 $x = 0; 2480 for ($i=0; $i < $numchars; ++$i) { 2481 if ((TCPDF_FONT_DATA::$uni_type[$chardata[$i]['char']] == 'AL') OR ($chardata[$i]['char'] == 32) OR ($chardata[$i]['char'] == 8204)) { 2482 $charAL[$x] = $chardata[$i]; 2483 $charAL[$x]['i'] = $i; 2484 $chardata[$i]['x'] = $x; 2485 ++$x; 2486 } 2487 } 2488 $numAL = $x; 2489 for ($i=0; $i < $numchars; ++$i) { 2490 $thischar = $chardata[$i]; 2491 if ($i > 0) { 2492 $prevchar = $chardata[($i-1)]; 2493 } else { 2494 $prevchar = false; 2495 } 2496 if (($i+1) < $numchars) { 2497 $nextchar = $chardata[($i+1)]; 2498 } else { 2499 $nextchar = false; 2500 } 2501 if (TCPDF_FONT_DATA::$uni_type[$thischar['char']] == 'AL') { 2502 $x = $thischar['x']; 2503 if ($x > 0) { 2504 $prevchar = $charAL[($x-1)]; 2505 } else { 2506 $prevchar = false; 2507 } 2508 if (($x+1) < $numAL) { 2509 $nextchar = $charAL[($x+1)]; 2510 } else { 2511 $nextchar = false; 2512 } 2513 // if laa letter 2514 if (($prevchar !== false) AND ($prevchar['char'] == 1604) AND (in_array($thischar['char'], $alfletter))) { 2515 $arabicarr = TCPDF_FONT_DATA::$uni_laa_array; 2516 $laaletter = true; 2517 if ($x > 1) { 2518 $prevchar = $charAL[($x-2)]; 2519 } else { 2520 $prevchar = false; 2521 } 2522 } else { 2523 $arabicarr = TCPDF_FONT_DATA::$uni_arabicsubst; 2524 $laaletter = false; 2525 } 2526 if (($prevchar !== false) AND ($nextchar !== false) AND 2527 ((TCPDF_FONT_DATA::$uni_type[$prevchar['char']] == 'AL') OR (TCPDF_FONT_DATA::$uni_type[$prevchar['char']] == 'NSM')) AND 2528 ((TCPDF_FONT_DATA::$uni_type[$nextchar['char']] == 'AL') OR (TCPDF_FONT_DATA::$uni_type[$nextchar['char']] == 'NSM')) AND 2529 ($prevchar['type'] == $thischar['type']) AND 2530 ($nextchar['type'] == $thischar['type']) AND 2531 ($nextchar['char'] != 1567)) { 2532 if (in_array($prevchar['char'], $endedletter)) { 2533 if (isset($arabicarr[$thischar['char']][2])) { 2534 // initial 2535 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][2]; 2536 } 2537 } else { 2538 if (isset($arabicarr[$thischar['char']][3])) { 2539 // medial 2540 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][3]; 2541 } 2542 } 2543 } elseif (($nextchar !== false) AND 2544 ((TCPDF_FONT_DATA::$uni_type[$nextchar['char']] == 'AL') OR (TCPDF_FONT_DATA::$uni_type[$nextchar['char']] == 'NSM')) AND 2545 ($nextchar['type'] == $thischar['type']) AND 2546 ($nextchar['char'] != 1567)) { 2547 if (isset($arabicarr[$chardata[$i]['char']][2])) { 2548 // initial 2549 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][2]; 2550 } 2551 } elseif ((($prevchar !== false) AND 2552 ((TCPDF_FONT_DATA::$uni_type[$prevchar['char']] == 'AL') OR (TCPDF_FONT_DATA::$uni_type[$prevchar['char']] == 'NSM')) AND 2553 ($prevchar['type'] == $thischar['type'])) OR 2554 (($nextchar !== false) AND ($nextchar['char'] == 1567))) { 2555 // final 2556 if (($i > 1) AND ($thischar['char'] == 1607) AND 2557 ($chardata[$i-1]['char'] == 1604) AND 2558 ($chardata[$i-2]['char'] == 1604)) { 2559 //Allah Word 2560 // mark characters to delete with false 2561 $chardata2[$i-2]['char'] = false; 2562 $chardata2[$i-1]['char'] = false; 2563 $chardata2[$i]['char'] = 65010; 2564 } else { 2565 if (($prevchar !== false) AND in_array($prevchar['char'], $endedletter)) { 2566 if (isset($arabicarr[$thischar['char']][0])) { 2567 // isolated 2568 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][0]; 2569 } 2570 } else { 2571 if (isset($arabicarr[$thischar['char']][1])) { 2572 // final 2573 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][1]; 2574 } 2575 } 2576 } 2577 } elseif (isset($arabicarr[$thischar['char']][0])) { 2578 // isolated 2579 $chardata2[$i]['char'] = $arabicarr[$thischar['char']][0]; 2580 } 2581 // if laa letter 2582 if ($laaletter) { 2583 // mark characters to delete with false 2584 $chardata2[($charAL[($x-1)]['i'])]['char'] = false; 2585 } 2586 } // end if AL (Arabic Letter) 2587 } // end for each char 2588 /* 2589 * Combining characters that can occur with Arabic Shadda (0651 HEX, 1617 DEC) are replaced. 2590 * Putting the combining mark and shadda in the same glyph allows us to avoid the two marks overlapping each other in an illegible manner. 2591 */ 2592 for ($i = 0; $i < ($numchars-1); ++$i) { 2593 if (($chardata2[$i]['char'] == 1617) AND (isset(TCPDF_FONT_DATA::$uni_diacritics[($chardata2[$i+1]['char'])]))) { 2594 // check if the subtitution font is defined on current font 2595 if (isset($currentfont['cw'][(TCPDF_FONT_DATA::$uni_diacritics[($chardata2[$i+1]['char'])])])) { 2596 $chardata2[$i]['char'] = false; 2597 $chardata2[$i+1]['char'] = TCPDF_FONT_DATA::$uni_diacritics[($chardata2[$i+1]['char'])]; 2598 } 2599 } 2600 } 2601 // remove marked characters 2602 foreach ($chardata2 as $key => $value) { 2603 if ($value['char'] === false) { 2604 unset($chardata2[$key]); 2605 } 2606 } 2607 $chardata = array_values($chardata2); 2608 $numchars = count($chardata); 2609 unset($chardata2); 2610 unset($arabicarr); 2611 unset($laaletter); 2612 unset($charAL); 2613 } 2614 2615 // L2. From the highest level found in the text to the lowest odd level on each line, including intermediate levels not actually present in the text, reverse any contiguous sequence of characters that are at that level or higher. 2616 for ($j=$maxlevel; $j > 0; $j--) { 2617 $ordarray = Array(); 2618 $revarr = Array(); 2619 $onlevel = false; 2620 for ($i=0; $i < $numchars; ++$i) { 2621 if ($chardata[$i]['level'] >= $j) { 2622 $onlevel = true; 2623 if (isset(TCPDF_FONT_DATA::$uni_mirror[$chardata[$i]['char']])) { 2624 // L4. A character is depicted by a mirrored glyph if and only if (a) the resolved directionality of that character is R, and (b) the Bidi_Mirrored property value of that character is true. 2625 $chardata[$i]['char'] = TCPDF_FONT_DATA::$uni_mirror[$chardata[$i]['char']]; 2626 } 2627 $revarr[] = $chardata[$i]; 2628 } else { 2629 if ($onlevel) { 2630 $revarr = array_reverse($revarr); 2631 $ordarray = array_merge($ordarray, $revarr); 2632 $revarr = Array(); 2633 $onlevel = false; 2634 } 2635 $ordarray[] = $chardata[$i]; 2636 } 2637 } 2638 if ($onlevel) { 2639 $revarr = array_reverse($revarr); 2640 $ordarray = array_merge($ordarray, $revarr); 2641 } 2642 $chardata = $ordarray; 2643 } 2644 $ordarray = array(); 2645 foreach ($chardata as $cd) { 2646 $ordarray[] = $cd['char']; 2647 // store char values for subsetting 2648 $currentfont['subsetchars'][$cd['char']] = true; 2649 } 2650 return $ordarray; 2651 } 2652 2653 } // END OF TCPDF_FONTS CLASS 2654 2655 //============================================================+ 2656 // END OF FILE 2657 //============================================================+
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
