[5291] | 1 | <?php
|
---|
| 2 | /*******************************************************************************
|
---|
| 3 | * Utility to generate font definition files *
|
---|
| 4 | * *
|
---|
| 5 | * Version: 1.14 *
|
---|
| 6 | * Date: 2008-08-03 *
|
---|
| 7 | * Author: Olivier PLATHEY *
|
---|
| 8 | *******************************************************************************/
|
---|
| 9 |
|
---|
| 10 | function ReadMap($enc)
|
---|
| 11 | {
|
---|
| 12 | //Read a map file
|
---|
| 13 | $file=dirname(__FILE__).'/'.strtolower($enc).'.map';
|
---|
| 14 | $a=file($file);
|
---|
| 15 | if(empty($a))
|
---|
| 16 | die('<b>Error:</b> encoding not found: '.$enc);
|
---|
| 17 | $cc2gn=array();
|
---|
| 18 | foreach($a as $l)
|
---|
| 19 | {
|
---|
| 20 | if($l[0]=='!')
|
---|
| 21 | {
|
---|
| 22 | $e=preg_split('/[ \\t]+/',rtrim($l));
|
---|
| 23 | $cc=hexdec(substr($e[0],1));
|
---|
| 24 | $gn=$e[2];
|
---|
| 25 | $cc2gn[$cc]=$gn;
|
---|
| 26 | }
|
---|
| 27 | }
|
---|
| 28 | for($i=0;$i<=255;$i++)
|
---|
| 29 | {
|
---|
| 30 | if(!isset($cc2gn[$i]))
|
---|
| 31 | $cc2gn[$i]='.notdef';
|
---|
| 32 | }
|
---|
| 33 | return $cc2gn;
|
---|
| 34 | }
|
---|
| 35 |
|
---|
| 36 | function ReadAFM($file, &$map)
|
---|
| 37 | {
|
---|
| 38 | //Read a font metric file
|
---|
| 39 | $a=file($file);
|
---|
| 40 | if(empty($a))
|
---|
| 41 | die('File not found');
|
---|
| 42 | $widths=array();
|
---|
| 43 | $fm=array();
|
---|
| 44 | $fix=array('Edot'=>'Edotaccent','edot'=>'edotaccent','Idot'=>'Idotaccent','Zdot'=>'Zdotaccent','zdot'=>'zdotaccent',
|
---|
| 45 | 'Odblacute'=>'Ohungarumlaut','odblacute'=>'ohungarumlaut','Udblacute'=>'Uhungarumlaut','udblacute'=>'uhungarumlaut',
|
---|
| 46 | 'Gcedilla'=>'Gcommaaccent','gcedilla'=>'gcommaaccent','Kcedilla'=>'Kcommaaccent','kcedilla'=>'kcommaaccent',
|
---|
| 47 | 'Lcedilla'=>'Lcommaaccent','lcedilla'=>'lcommaaccent','Ncedilla'=>'Ncommaaccent','ncedilla'=>'ncommaaccent',
|
---|
| 48 | 'Rcedilla'=>'Rcommaaccent','rcedilla'=>'rcommaaccent','Scedilla'=>'Scommaaccent','scedilla'=>'scommaaccent',
|
---|
| 49 | 'Tcedilla'=>'Tcommaaccent','tcedilla'=>'tcommaaccent','Dslash'=>'Dcroat','dslash'=>'dcroat','Dmacron'=>'Dcroat','dmacron'=>'dcroat',
|
---|
| 50 | 'combininggraveaccent'=>'gravecomb','combininghookabove'=>'hookabovecomb','combiningtildeaccent'=>'tildecomb',
|
---|
| 51 | 'combiningacuteaccent'=>'acutecomb','combiningdotbelow'=>'dotbelowcomb','dongsign'=>'dong');
|
---|
| 52 | foreach($a as $l)
|
---|
| 53 | {
|
---|
| 54 | $e=explode(' ',rtrim($l));
|
---|
| 55 | if(count($e)<2)
|
---|
| 56 | continue;
|
---|
| 57 | $code=$e[0];
|
---|
| 58 | $param=$e[1];
|
---|
| 59 | if($code=='C')
|
---|
| 60 | {
|
---|
| 61 | //Character metrics
|
---|
| 62 | $cc=(int)$e[1];
|
---|
| 63 | $w=$e[4];
|
---|
| 64 | $gn=$e[7];
|
---|
| 65 | if(substr($gn,-4)=='20AC')
|
---|
| 66 | $gn='Euro';
|
---|
| 67 | if(isset($fix[$gn]))
|
---|
| 68 | {
|
---|
| 69 | //Fix incorrect glyph name
|
---|
| 70 | foreach($map as $c=>$n)
|
---|
| 71 | {
|
---|
| 72 | if($n==$fix[$gn])
|
---|
| 73 | $map[$c]=$gn;
|
---|
| 74 | }
|
---|
| 75 | }
|
---|
| 76 | if(empty($map))
|
---|
| 77 | {
|
---|
| 78 | //Symbolic font: use built-in encoding
|
---|
| 79 | $widths[$cc]=$w;
|
---|
| 80 | }
|
---|
| 81 | else
|
---|
| 82 | {
|
---|
| 83 | $widths[$gn]=$w;
|
---|
| 84 | if($gn=='X')
|
---|
| 85 | $fm['CapXHeight']=$e[13];
|
---|
| 86 | }
|
---|
| 87 | if($gn=='.notdef')
|
---|
| 88 | $fm['MissingWidth']=$w;
|
---|
| 89 | }
|
---|
| 90 | elseif($code=='FontName')
|
---|
| 91 | $fm['FontName']=$param;
|
---|
| 92 | elseif($code=='Weight')
|
---|
| 93 | $fm['Weight']=$param;
|
---|
| 94 | elseif($code=='ItalicAngle')
|
---|
| 95 | $fm['ItalicAngle']=(double)$param;
|
---|
| 96 | elseif($code=='Ascender')
|
---|
| 97 | $fm['Ascender']=(int)$param;
|
---|
| 98 | elseif($code=='Descender')
|
---|
| 99 | $fm['Descender']=(int)$param;
|
---|
| 100 | elseif($code=='UnderlineThickness')
|
---|
| 101 | $fm['UnderlineThickness']=(int)$param;
|
---|
| 102 | elseif($code=='UnderlinePosition')
|
---|
| 103 | $fm['UnderlinePosition']=(int)$param;
|
---|
| 104 | elseif($code=='IsFixedPitch')
|
---|
| 105 | $fm['IsFixedPitch']=($param=='true');
|
---|
| 106 | elseif($code=='FontBBox')
|
---|
| 107 | $fm['FontBBox']=array($e[1],$e[2],$e[3],$e[4]);
|
---|
| 108 | elseif($code=='CapHeight')
|
---|
| 109 | $fm['CapHeight']=(int)$param;
|
---|
| 110 | elseif($code=='StdVW')
|
---|
| 111 | $fm['StdVW']=(int)$param;
|
---|
| 112 | }
|
---|
| 113 | if(!isset($fm['FontName']))
|
---|
| 114 | die('FontName not found');
|
---|
| 115 | if(!empty($map))
|
---|
| 116 | {
|
---|
| 117 | if(!isset($widths['.notdef']))
|
---|
| 118 | $widths['.notdef']=600;
|
---|
| 119 | if(!isset($widths['Delta']) && isset($widths['increment']))
|
---|
| 120 | $widths['Delta']=$widths['increment'];
|
---|
| 121 | //Order widths according to map
|
---|
| 122 | for($i=0;$i<=255;$i++)
|
---|
| 123 | {
|
---|
| 124 | if(!isset($widths[$map[$i]]))
|
---|
| 125 | {
|
---|
| 126 | echo '<b>Warning:</b> character '.$map[$i].' is missing<br>';
|
---|
| 127 | $widths[$i]=$widths['.notdef'];
|
---|
| 128 | }
|
---|
| 129 | else
|
---|
| 130 | $widths[$i]=$widths[$map[$i]];
|
---|
| 131 | }
|
---|
| 132 | }
|
---|
| 133 | $fm['Widths']=$widths;
|
---|
| 134 | return $fm;
|
---|
| 135 | }
|
---|
| 136 |
|
---|
| 137 | function MakeFontDescriptor($fm, $symbolic)
|
---|
| 138 | {
|
---|
| 139 | //Ascent
|
---|
| 140 | $asc=(isset($fm['Ascender']) ? $fm['Ascender'] : 1000);
|
---|
| 141 | $fd="array('Ascent'=>".$asc;
|
---|
| 142 | //Descent
|
---|
| 143 | $desc=(isset($fm['Descender']) ? $fm['Descender'] : -200);
|
---|
| 144 | $fd.=",'Descent'=>".$desc;
|
---|
| 145 | //CapHeight
|
---|
| 146 | if(isset($fm['CapHeight']))
|
---|
| 147 | $ch=$fm['CapHeight'];
|
---|
| 148 | elseif(isset($fm['CapXHeight']))
|
---|
| 149 | $ch=$fm['CapXHeight'];
|
---|
| 150 | else
|
---|
| 151 | $ch=$asc;
|
---|
| 152 | $fd.=",'CapHeight'=>".$ch;
|
---|
| 153 | //Flags
|
---|
| 154 | $flags=0;
|
---|
| 155 | if(isset($fm['IsFixedPitch']) && $fm['IsFixedPitch'])
|
---|
| 156 | $flags+=1<<0;
|
---|
| 157 | if($symbolic)
|
---|
| 158 | $flags+=1<<2;
|
---|
| 159 | if(!$symbolic)
|
---|
| 160 | $flags+=1<<5;
|
---|
| 161 | if(isset($fm['ItalicAngle']) && $fm['ItalicAngle']!=0)
|
---|
| 162 | $flags+=1<<6;
|
---|
| 163 | $fd.=",'Flags'=>".$flags;
|
---|
| 164 | //FontBBox
|
---|
| 165 | if(isset($fm['FontBBox']))
|
---|
| 166 | $fbb=$fm['FontBBox'];
|
---|
| 167 | else
|
---|
| 168 | $fbb=array(0,$desc-100,1000,$asc+100);
|
---|
| 169 | $fd.=",'FontBBox'=>'[".$fbb[0].' '.$fbb[1].' '.$fbb[2].' '.$fbb[3]."]'";
|
---|
| 170 | //ItalicAngle
|
---|
| 171 | $ia=(isset($fm['ItalicAngle']) ? $fm['ItalicAngle'] : 0);
|
---|
| 172 | $fd.=",'ItalicAngle'=>".$ia;
|
---|
| 173 | //StemV
|
---|
| 174 | if(isset($fm['StdVW']))
|
---|
| 175 | $stemv=$fm['StdVW'];
|
---|
| 176 | elseif(isset($fm['Weight']) && preg_match('/bold|black/i',$fm['Weight']))
|
---|
| 177 | $stemv=120;
|
---|
| 178 | else
|
---|
| 179 | $stemv=70;
|
---|
| 180 | $fd.=",'StemV'=>".$stemv;
|
---|
| 181 | //MissingWidth
|
---|
| 182 | if(isset($fm['MissingWidth']))
|
---|
| 183 | $fd.=",'MissingWidth'=>".$fm['MissingWidth'];
|
---|
| 184 | $fd.=')';
|
---|
| 185 | return $fd;
|
---|
| 186 | }
|
---|
| 187 |
|
---|
| 188 | function MakeWidthArray($fm)
|
---|
| 189 | {
|
---|
| 190 | //Make character width array
|
---|
| 191 | $s="array(\n\t";
|
---|
| 192 | $cw=$fm['Widths'];
|
---|
| 193 | for($i=0;$i<=255;$i++)
|
---|
| 194 | {
|
---|
| 195 | if(chr($i)=="'")
|
---|
| 196 | $s.="'\\''";
|
---|
| 197 | elseif(chr($i)=="\\")
|
---|
| 198 | $s.="'\\\\'";
|
---|
| 199 | elseif($i>=32 && $i<=126)
|
---|
| 200 | $s.="'".chr($i)."'";
|
---|
| 201 | else
|
---|
| 202 | $s.="chr($i)";
|
---|
| 203 | $s.='=>'.$fm['Widths'][$i];
|
---|
| 204 | if($i<255)
|
---|
| 205 | $s.=',';
|
---|
| 206 | if(($i+1)%22==0)
|
---|
| 207 | $s.="\n\t";
|
---|
| 208 | }
|
---|
| 209 | $s.=')';
|
---|
| 210 | return $s;
|
---|
| 211 | }
|
---|
| 212 |
|
---|
| 213 | function MakeFontEncoding($map)
|
---|
| 214 | {
|
---|
| 215 | //Build differences from reference encoding
|
---|
| 216 | $ref=ReadMap('cp1252');
|
---|
| 217 | $s='';
|
---|
| 218 | $last=0;
|
---|
| 219 | for($i=32;$i<=255;$i++)
|
---|
| 220 | {
|
---|
| 221 | if($map[$i]!=$ref[$i])
|
---|
| 222 | {
|
---|
| 223 | if($i!=$last+1)
|
---|
| 224 | $s.=$i.' ';
|
---|
| 225 | $last=$i;
|
---|
| 226 | $s.='/'.$map[$i].' ';
|
---|
| 227 | }
|
---|
| 228 | }
|
---|
| 229 | return rtrim($s);
|
---|
| 230 | }
|
---|
| 231 |
|
---|
| 232 | function SaveToFile($file, $s, $mode)
|
---|
| 233 | {
|
---|
| 234 | $f=fopen($file,'w'.$mode);
|
---|
| 235 | if(!$f)
|
---|
| 236 | die('Can\'t write to file '.$file);
|
---|
| 237 | fwrite($f,$s,strlen($s));
|
---|
| 238 | fclose($f);
|
---|
| 239 | }
|
---|
| 240 |
|
---|
| 241 | function ReadShort($f)
|
---|
| 242 | {
|
---|
| 243 | $a=unpack('n1n',fread($f,2));
|
---|
| 244 | return $a['n'];
|
---|
| 245 | }
|
---|
| 246 |
|
---|
| 247 | function ReadLong($f)
|
---|
| 248 | {
|
---|
| 249 | $a=unpack('N1N',fread($f,4));
|
---|
| 250 | return $a['N'];
|
---|
| 251 | }
|
---|
| 252 |
|
---|
| 253 | function CheckTTF($file)
|
---|
| 254 | {
|
---|
| 255 | //Check if font license allows embedding
|
---|
| 256 | $f=fopen($file,'rb');
|
---|
| 257 | if(!$f)
|
---|
| 258 | die('<b>Error:</b> Can\'t open '.$file);
|
---|
| 259 | //Extract number of tables
|
---|
| 260 | fseek($f,4,SEEK_CUR);
|
---|
| 261 | $nb=ReadShort($f);
|
---|
| 262 | fseek($f,6,SEEK_CUR);
|
---|
| 263 | //Seek OS/2 table
|
---|
| 264 | $found=false;
|
---|
| 265 | for($i=0;$i<$nb;$i++)
|
---|
| 266 | {
|
---|
| 267 | if(fread($f,4)=='OS/2')
|
---|
| 268 | {
|
---|
| 269 | $found=true;
|
---|
| 270 | break;
|
---|
| 271 | }
|
---|
| 272 | fseek($f,12,SEEK_CUR);
|
---|
| 273 | }
|
---|
| 274 | if(!$found)
|
---|
| 275 | {
|
---|
| 276 | fclose($f);
|
---|
| 277 | return;
|
---|
| 278 | }
|
---|
| 279 | fseek($f,4,SEEK_CUR);
|
---|
| 280 | $offset=ReadLong($f);
|
---|
| 281 | fseek($f,$offset,SEEK_SET);
|
---|
| 282 | //Extract fsType flags
|
---|
| 283 | fseek($f,8,SEEK_CUR);
|
---|
| 284 | $fsType=ReadShort($f);
|
---|
| 285 | $rl=($fsType & 0x02)!=0;
|
---|
| 286 | $pp=($fsType & 0x04)!=0;
|
---|
| 287 | $e=($fsType & 0x08)!=0;
|
---|
| 288 | fclose($f);
|
---|
| 289 | if($rl && !$pp && !$e)
|
---|
| 290 | echo '<b>Warning:</b> font license does not allow embedding';
|
---|
| 291 | }
|
---|
| 292 |
|
---|
| 293 | /*******************************************************************************
|
---|
| 294 | * fontfile: path to TTF file (or empty string if not to be embedded) *
|
---|
| 295 | * afmfile: path to AFM file *
|
---|
| 296 | * enc: font encoding (or empty string for symbolic fonts) *
|
---|
| 297 | * patch: optional patch for encoding *
|
---|
| 298 | * type: font type if fontfile is empty *
|
---|
| 299 | *******************************************************************************/
|
---|
| 300 | function MakeFont($fontfile, $afmfile, $enc='cp1252', $patch=array(), $type='TrueType')
|
---|
| 301 | {
|
---|
| 302 | //Generate a font definition file
|
---|
| 303 | if(get_magic_quotes_runtime())
|
---|
| 304 | @set_magic_quotes_runtime(0);
|
---|
| 305 | ini_set('auto_detect_line_endings','1');
|
---|
| 306 | if($enc)
|
---|
| 307 | {
|
---|
| 308 | $map=ReadMap($enc);
|
---|
| 309 | foreach($patch as $cc=>$gn)
|
---|
| 310 | $map[$cc]=$gn;
|
---|
| 311 | }
|
---|
| 312 | else
|
---|
| 313 | $map=array();
|
---|
| 314 | if(!file_exists($afmfile))
|
---|
| 315 | die('<b>Error:</b> AFM file not found: '.$afmfile);
|
---|
| 316 | $fm=ReadAFM($afmfile,$map);
|
---|
| 317 | if($enc)
|
---|
| 318 | $diff=MakeFontEncoding($map);
|
---|
| 319 | else
|
---|
| 320 | $diff='';
|
---|
| 321 | $fd=MakeFontDescriptor($fm,empty($map));
|
---|
| 322 | //Find font type
|
---|
| 323 | if($fontfile)
|
---|
| 324 | {
|
---|
| 325 | $ext=strtolower(substr($fontfile,-3));
|
---|
| 326 | if($ext=='ttf')
|
---|
| 327 | $type='TrueType';
|
---|
| 328 | elseif($ext=='pfb')
|
---|
| 329 | $type='Type1';
|
---|
| 330 | else
|
---|
| 331 | die('<b>Error:</b> unrecognized font file extension: '.$ext);
|
---|
| 332 | }
|
---|
| 333 | else
|
---|
| 334 | {
|
---|
| 335 | if($type!='TrueType' && $type!='Type1')
|
---|
| 336 | die('<b>Error:</b> incorrect font type: '.$type);
|
---|
| 337 | }
|
---|
| 338 | //Start generation
|
---|
| 339 | $s='<?php'."\n";
|
---|
| 340 | $s.='$type=\''.$type."';\n";
|
---|
| 341 | $s.='$name=\''.$fm['FontName']."';\n";
|
---|
| 342 | $s.='$desc='.$fd.";\n";
|
---|
| 343 | if(!isset($fm['UnderlinePosition']))
|
---|
| 344 | $fm['UnderlinePosition']=-100;
|
---|
| 345 | if(!isset($fm['UnderlineThickness']))
|
---|
| 346 | $fm['UnderlineThickness']=50;
|
---|
| 347 | $s.='$up='.$fm['UnderlinePosition'].";\n";
|
---|
| 348 | $s.='$ut='.$fm['UnderlineThickness'].";\n";
|
---|
| 349 | $w=MakeWidthArray($fm);
|
---|
| 350 | $s.='$cw='.$w.";\n";
|
---|
| 351 | $s.='$enc=\''.$enc."';\n";
|
---|
| 352 | $s.='$diff=\''.$diff."';\n";
|
---|
| 353 | $basename=substr(basename($afmfile),0,-4);
|
---|
| 354 | if($fontfile)
|
---|
| 355 | {
|
---|
| 356 | //Embedded font
|
---|
| 357 | if(!file_exists($fontfile))
|
---|
| 358 | die('<b>Error:</b> font file not found: '.$fontfile);
|
---|
| 359 | if($type=='TrueType')
|
---|
| 360 | CheckTTF($fontfile);
|
---|
| 361 | $f=fopen($fontfile,'rb');
|
---|
| 362 | if(!$f)
|
---|
| 363 | die('<b>Error:</b> Can\'t open '.$fontfile);
|
---|
| 364 | $file=fread($f,filesize($fontfile));
|
---|
| 365 | fclose($f);
|
---|
| 366 | if($type=='Type1')
|
---|
| 367 | {
|
---|
| 368 | //Find first two sections and discard third one
|
---|
| 369 | $header=(ord($file[0])==128);
|
---|
| 370 | if($header)
|
---|
| 371 | {
|
---|
| 372 | //Strip first binary header
|
---|
| 373 | $file=substr($file,6);
|
---|
| 374 | }
|
---|
| 375 | $pos=strpos($file,'eexec');
|
---|
| 376 | if(!$pos)
|
---|
| 377 | die('<b>Error:</b> font file does not seem to be valid Type1');
|
---|
| 378 | $size1=$pos+6;
|
---|
| 379 | if($header && ord($file[$size1])==128)
|
---|
| 380 | {
|
---|
| 381 | //Strip second binary header
|
---|
| 382 | $file=substr($file,0,$size1).substr($file,$size1+6);
|
---|
| 383 | }
|
---|
| 384 | $pos=strpos($file,'00000000');
|
---|
| 385 | if(!$pos)
|
---|
| 386 | die('<b>Error:</b> font file does not seem to be valid Type1');
|
---|
| 387 | $size2=$pos-$size1;
|
---|
| 388 | $file=substr($file,0,$size1+$size2);
|
---|
| 389 | }
|
---|
| 390 | if(function_exists('gzcompress'))
|
---|
| 391 | {
|
---|
| 392 | $cmp=$basename.'.z';
|
---|
| 393 | SaveToFile($cmp,gzcompress($file),'b');
|
---|
| 394 | $s.='$file=\''.$cmp."';\n";
|
---|
| 395 | echo 'Font file compressed ('.$cmp.')<br>';
|
---|
| 396 | }
|
---|
| 397 | else
|
---|
| 398 | {
|
---|
| 399 | $s.='$file=\''.basename($fontfile)."';\n";
|
---|
| 400 | echo '<b>Notice:</b> font file could not be compressed (zlib extension not available)<br>';
|
---|
| 401 | }
|
---|
| 402 | if($type=='Type1')
|
---|
| 403 | {
|
---|
| 404 | $s.='$size1='.$size1.";\n";
|
---|
| 405 | $s.='$size2='.$size2.";\n";
|
---|
| 406 | }
|
---|
| 407 | else
|
---|
| 408 | $s.='$originalsize='.filesize($fontfile).";\n";
|
---|
| 409 | }
|
---|
| 410 | else
|
---|
| 411 | {
|
---|
| 412 | //Not embedded font
|
---|
| 413 | $s.='$file='."'';\n";
|
---|
| 414 | }
|
---|
| 415 | $s.="?>\n";
|
---|
| 416 | SaveToFile($basename.'.php',$s,'t');
|
---|
| 417 | echo 'Font definition file generated ('.$basename.'.php'.')<br>';
|
---|
| 418 | }
|
---|
| 419 | ?>
|
---|