lib/fpdf/japanese.php

   1 <?php
   2 // PDF functions taken from FPDF http://www.fpdf.org
   3
   4 require_once 'lib/pdf.php';
   5
   6 class PDF_Japanese extends PDF {
   7     var $B;
   8     var $I;
   9     var $U;
  10     var $HREF;
  11     var $SJIS_widths = array(' '=>278,'!'=>299,'"'=>353,'#'=>614,'$'=>614,'%'=>721,'&'=>735,'\''=>216,
  12                              '('=>323,')'=>323,'*'=>449,'+'=>529,','=>219,'-'=>306,'.'=>219,'/'=>453,'0'=>614,'1'=>614,
  13                              '2'=>614,'3'=>614,'4'=>614,'5'=>614,'6'=>614,'7'=>614,'8'=>614,'9'=>614,':'=>219,';'=>219,
  14                              '<'=>529,'='=>529,'>'=>529,'?'=>486,'@'=>744,'A'=>646,'B'=>604,'C'=>617,'D'=>681,'E'=>567,
  15                              'F'=>537,'G'=>647,'H'=>738,'I'=>320,'J'=>433,'K'=>637,'L'=>566,'M'=>904,'N'=>710,'O'=>716,
  16                              'P'=>605,'Q'=>716,'R'=>623,'S'=>517,'T'=>601,'U'=>690,'V'=>668,'W'=>990,'X'=>681,'Y'=>634,
  17                              'Z'=>578,'['=>316,'\\'=>614,']'=>316,'^'=>529,'_'=>500,'`'=>387,'a'=>509,'b'=>566,'c'=>478,
  18                              'd'=>565,'e'=>503,'f'=>337,'g'=>549,'h'=>580,'i'=>275,'j'=>266,'k'=>544,'l'=>276,'m'=>854,
  19                              'n'=>579,'o'=>550,'p'=>578,'q'=>566,'r'=>410,'s'=>444,'t'=>340,'u'=>575,'v'=>512,'w'=>760,
  20                              'x'=>503,'y'=>529,'z'=>453,'{'=>326,'|'=>380,'}'=>326,'~'=>387);
  21
  22     function AddCIDFont($family,$style,$name,$cw,$CMap,$registry)
  23     {
  24         $fontkey=strtolower($family).strtoupper($style);
  25         if(isset($this->fonts[$fontkey]))
  26             $this->Error("CID font already added: $family $style");
  27         $i=count($this->fonts)+1;
  28         $this->fonts[$fontkey]=array('i'=>$i,'type'=>'Type0','name'=>$name,'up'=>-120,'ut'=>40,'cw'=>$cw,'CMap'=>$CMap,'registry'=>$registry);
  29     }
  30
  31     function AddCIDFonts($family,$name,$cw,$CMap,$registry)
  32     {
  33         $this->AddCIDFont($family,'',$name,$cw,$CMap,$registry);
  34         $this->AddCIDFont($family,'B',$name.',Bold',$cw,$CMap,$registry);
  35         $this->AddCIDFont($family,'I',$name.',Italic',$cw,$CMap,$registry);
  36         $this->AddCIDFont($family,'BI',$name.',BoldItalic',$cw,$CMap,$registry);
  37     }
  38
  39     function AddSJISFont($family='SJIS')
  40     {
  41         //Add SJIS font with proportional Latin
  42         $name='KozMinPro-Regular-Acro';
  43         $cw=$this->SJIS_widths;
  44         $CMap='90msp-RKSJ-H';
  45         $registry=array('ordering'=>'Japan1','supplement'=>2);
  46         $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
  47     }
  48
  49     function AddSJIShwFont($family='SJIS-hw')
  50     {
  51         //Add SJIS font with half-width Latin
  52         $name='KozMinPro-Regular-Acro';
  53         for($i=32;$i<=126;$i++)
  54             $cw[chr($i)]=500;
  55         $CMap='90ms-RKSJ-H';
  56         $registry=array('ordering'=>'Japan1','supplement'=>2);
  57         $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
  58     }
  59
  60     function GetStringWidth($s)
  61     {
  62         if($this->CurrentFont['type']=='Type0')
  63             return $this->GetSJISStringWidth($s);
  64         else
  65             return parent::GetStringWidth($s);
  66     }
  67
  68     function GetSJISStringWidth($s)
  69     {
  70         //SJIS version of GetStringWidth()
  71         $l=0;
  72         $cw=&$this->CurrentFont['cw'];
  73         $nb=strlen($s);
  74         $i=0;
  75         while($i<$nb) {
  76             $o=ord($s{$i});
  77             if($o<128) {
  78                 //ASCII
  79                 $l+=$cw[$s{$i}];
  80                 $i++;
  81             }
  82             elseif($o>=161 and $o<=223) {
  83                 //Half-width katakana
  84                 $l+=500;
  85                 $i++;
  86             } else {
  87                 //Full-width character
  88                 $l+=1000;
  89                 $i+=2;
  90             }
  91         }
  92         return $l*$this->FontSize/1000;
  93     }
  94
  95     function MultiCell($w,$h,$txt,$border=0,$align='L',$fill=0)
  96     {
  97         if($this->CurrentFont['type']=='Type0')
  98             $this->SJISMultiCell($w,$h,$txt,$border,$align,$fill);
  99         else
 100             parent::MultiCell($w,$h,$txt,$border,$align,$fill);
 101     }
 102
 103     function SJISMultiCell($w,$h,$txt,$border=0,$align='L',$fill=0)
 104     {
 105         //Output text with automatic or explicit line breaks
 106         $cw=&$this->CurrentFont['cw'];
 107         if($w==0)
 108             $w=$this->w-$this->rMargin-$this->x;
 109         $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
 110         $s=str_replace("\r",'',$txt);
 111         $nb=strlen($s);
 112         if($nb>0 and $s{$nb-1}=="\n")
 113             $nb--;
 114         $b=0;
 115         if($border) {
 116             if($border==1) {
 117                 $border='LTRB';
 118                 $b='LRT';
 119                 $b2='LR';
 120             } else {
 121                 $b2='';
 122                 if(is_int(strpos($border,'L')))
 123                     $b2.='L';
 124                 if(is_int(strpos($border,'R')))
 125                     $b2.='R';
 126                 $b=is_int(strpos($border,'T')) ? $b2.'T' : $b2;
 127             }
 128         }
 129         $sep=-1;
 130         $i=0;
 131         $j=0;
 132         $l=0;
 133         $nl=1;
 134         while($i<$nb) {
 135             //Get next character
 136             $c=$s{$i};
 137             $o=ord($c);
 138             if($o==10) {
 139                 //Explicit line break
 140                 $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
 141                 $i++;
 142                 $sep=-1;
 143                 $j=$i;
 144                 $l=0;
 145                 $nl++;
 146                 if($border and $nl==2)
 147                     $b=$b2;
 148                 continue;
 149             }
 150             if($o<128) {
 151                 //ASCII
 152                 $l+=$cw[$c];
 153                 $n=1;
 154                 if($o==32)
 155                     $sep=$i;
 156             } elseif($o>=161 and $o<=223) {
 157                 //Half-width katakana
 158                 $l+=500;
 159                 $n=1;
 160                 $sep=$i;
 161             } else {
 162                 //Full-width character
 163                 $l+=1000;
 164                 $n=2;
 165                 $sep=$i;
 166             }
 167             if($l>$wmax) {
 168                 //Automatic line break
 169                 if($sep==-1 or $i==$j) {
 170                     if($i==$j)
 171                         $i+=$n;
 172                     $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
 173                 } else {
 174                     $this->Cell($w,$h,substr($s,$j,$sep-$j),$b,2,$align,$fill);
 175                     $i=($s[$sep]==' ') ? $sep+1 : $sep;
 176                 }
 177                 $sep=-1;
 178                 $j=$i;
 179                 $l=0;
 180                 $nl++;
 181                 if($border and $nl==2)
 182                     $b=$b2;
 183             } else {
 184                 $i+=$n;
 185                 if($o>=128)
 186                     $sep=$i;
 187             }
 188         }
 189     //Last chunk
 190     if($border and is_int(strpos($border,'B')))
 191             $b.='B';
 192     $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
 193     $this->x=$this->lMargin;
 194     }
 195
 196     function Write($h,$txt,$link='')
 197     {
 198     if($this->CurrentFont['type']=='Type0')
 199             $this->SJISWrite($h,$txt,$link);
 200     else
 201             parent::Write($h,$txt,$link);
 202     }
 203
 204     function SJISWrite($h,$txt,$link)
 205     {
 206     //SJIS version of Write()
 207     $cw=&$this->CurrentFont['cw'];
 208     $w=$this->w-$this->rMargin-$this->x;
 209     $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
 210     $s=str_replace("\r",'',$txt);
 211     $nb=strlen($s);
 212     $sep=-1;
 213     $i=0;
 214     $j=0;
 215     $l=0;
 216     $nl=1;
 217     while($i<$nb) {
 218             //Get next character
 219             $c=$s{$i};
 220             $o=ord($c);
 221             if($o==10) {
 222                 //Explicit line break
 223                 $this->Cell($w,$h,substr($s,$j,$i-$j),0,2,'',0,$link);
 224                 $i++;
 225                 $sep=-1;
 226                 $j=$i;
 227                 $l=0;
 228                 if($nl==1) {
 229                     //Go to left margin
 230                     $this->x=$this->lMargin;
 231                     $w=$this->w-$this->rMargin-$this->x;
 232                     $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
 233                 }
 234                 $nl++;
 235                 continue;
 236             }
 237             if($o<128) {
 238                 //ASCII
 239                 $l+=$cw[$c];
 240                 $n=1;
 241                 if($o==32)
 242                     $sep=$i;
 243             } elseif($o>=161 and $o<=223) {
 244                 //Half-width katakana
 245                 $l+=500;
 246                 $n=1;
 247                 $sep=$i;
 248             } else {
 249                 //Full-width character
 250                 $l+=1000;
 251                 $n=2;
 252                 $sep=$i;
 253             }
 254             if($l>$wmax) {
 255                 //Automatic line break
 256                 if($sep==-1 or $i==$j) {
 257                     if($this->x>$this->lMargin) {
 258                         //Move to next line
 259                         $this->x=$this->lMargin;
 260                         $this->y+=$h;
 261                         $w=$this->w-$this->rMargin-$this->x;
 262                         $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
 263                         $i+=$n;
 264                         $nl++;
 265                         continue;
 266                     }
 267                     if($i==$j)
 268                         $i+=$n;
 269                     $this->Cell($w,$h,substr($s,$j,$i-$j),0,2,'',0,$link);
 270                 } else {
 271                     $this->Cell($w,$h,substr($s,$j,$sep-$j),0,2,'',0,$link);
 272                     $i=($s[$sep]==' ') ? $sep+1 : $sep;
 273                 }
 274                 $sep=-1;
 275                 $j=$i;
 276                 $l=0;
 277                 if($nl==1) {
 278                     $this->x=$this->lMargin;
 279                     $w=$this->w-$this->rMargin-$this->x;
 280                     $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
 281                 }
 282                 $nl++;
 283             } else {
 284                 $i+=$n;
 285                 if($o>=128)
 286                     $sep=$i;
 287             }
 288         }
 289     //Last chunk
 290     if($i!=$j)
 291             $this->Cell($l/1000*$this->FontSize,$h,substr($s,$j,$i-$j),0,0,'',0,$link);
 292     }
 293
 294     function _putfonts()
 295     {
 296     $nf=$this->n;
 297     foreach($this->diffs as $diff) {
 298             //Encodings
 299             $this->_newobj();
 300             $this->_out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['.$diff.']>>');
 301             $this->_out('endobj');
 302         }
 303     if (!check_php_version(5,3)) {
 304         $mqr=get_magic_quotes_runtime();
 305         set_magic_quotes_runtime(0);
 306     }
 307     foreach($this->FontFiles as $file=>$info) {
 308             //Font file embedding
 309             $this->_newobj();
 310             $this->FontFiles[$file]['n']=$this->n;
 311             if(defined('FPDF_FONTPATH'))
 312                 $file=FPDF_FONTPATH.$file;
 313             $size=filesize($file);
 314             if(!$size)
 315                 $this->Error('Font file not found');
 316             $this->_out('<</Length '.$size);
 317             if(substr($file,-2)=='.z')
 318                 $this->_out('/Filter /FlateDecode');
 319             $this->_out('/Length1 '.$info['length1']);
 320             if(isset($info['length2']))
 321                 $this->_out('/Length2 '.$info['length2'].' /Length3 0');
 322             $this->_out('>>');
 323             $f=fopen($file,'rb');
 324             $this->_putstream(fread($f,$size));
 325             fclose($f);
 326             $this->_out('endobj');
 327         }
 328     if (!check_php_version(5,3)) {
 329         set_magic_quotes_runtime($mqr);
 330     }
 331     foreach($this->fonts as $k=>$font) {
 332             //Font objects
 333             $this->_newobj();
 334             $this->fonts[$k]['n']=$this->n;
 335             $this->_out('<</Type /Font');
 336             if($font['type']=='Type0')
 337                 $this->_putType0($font);
 338             else {
 339                 $name=$font['name'];
 340                 $this->_out('/BaseFont /'.$name);
 341                 if($font['type']=='core') {
 342                     //Standard font
 343                     $this->_out('/Subtype /Type1');
 344                     if($name!='Symbol' and $name!='ZapfDingbats')
 345                         $this->_out('/Encoding /WinAnsiEncoding');
 346                 } else {
 347                     //Additional font
 348                     $this->_out('/Subtype /'.$font['type']);
 349                     $this->_out('/FirstChar 32');
 350                     $this->_out('/LastChar 255');
 351                     $this->_out('/Widths '.($this->n+1).' 0 R');
 352                     $this->_out('/FontDescriptor '.($this->n+2).' 0 R');
 353                     if($font['enc']) {
 354                         if(isset($font['diff']))
 355                             $this->_out('/Encoding '.($nf+$font['diff']).' 0 R');
 356                         else
 357                             $this->_out('/Encoding /WinAnsiEncoding');
 358                     }
 359                 }
 360                 $this->_out('>>');
 361                 $this->_out('endobj');
 362                 if($font['type']!='core') {
 363                     //Widths
 364                     $this->_newobj();
 365                     $cw=&$font['cw'];
 366                     $s='[';
 367                     for($i=32;$i<=255;$i++)
 368                         $s.=$cw[chr($i)].' ';
 369                     $this->_out($s.']');
 370                     $this->_out('endobj');
 371                     //Descriptor
 372                     $this->_newobj();
 373                     $s='<</Type /FontDescriptor /FontName /'.$name;
 374                     foreach($font['desc'] as $k=>$v)
 375                         $s.=' /'.$k.' '.$v;
 376                     $file=$font['file'];
 377                     if($file)
 378                         $s.=' /FontFile'.($font['type']=='Type1' ? '' : '2').' '.$this->FontFiles[$file]['n'].' 0 R';
 379                     $this->_out($s.'>>');
 380                     $this->_out('endobj');
 381                 }
 382             }
 383         }
 384     }
 385
 386     function _putType0($font)
 387     {
 388     //Type0
 389     $this->_out('/Subtype /Type0');
 390     $this->_out('/BaseFont /'.$font['name'].'-'.$font['CMap']);
 391     $this->_out('/Encoding /'.$font['CMap']);
 392     $this->_out('/DescendantFonts ['.($this->n+1).' 0 R]');
 393     $this->_out('>>');
 394     $this->_out('endobj');
 395     //CIDFont
 396     $this->_newobj();
 397     $this->_out('<</Type /Font');
 398     $this->_out('/Subtype /CIDFontType0');
 399     $this->_out('/BaseFont /'.$font['name']);
 400     $this->_out('/CIDSystemInfo <</Registry (Adobe) /Ordering ('.$font['registry']['ordering'].') /Supplement '.$font['registry']['supplement'].'>>');
 401     $this->_out('/FontDescriptor '.($this->n+1).' 0 R');
 402     $W='/W [1 [';
 403     foreach($font['cw'] as $w)
 404             $W.=$w.' ';
 405     $this->_out($W.'] 231 325 500 631 [500] 326 389 500]');
 406     $this->_out('>>');
 407     $this->_out('endobj');
 408     //Font descriptor
 409     $this->_newobj();
 410     $this->_out('<</Type /FontDescriptor');
 411     $this->_out('/FontName /'.$font['name']);
 412     $this->_out('/Flags 6');
 413     $this->_out('/FontBBox [0 -200 1000 900]');
 414     $this->_out('/ItalicAngle 0');
 415     $this->_out('/Ascent 800');
 416     $this->_out('/Descent -200');
 417     $this->_out('/CapHeight 800');
 418     $this->_out('/StemV 60');
 419     $this->_out('>>');
 420     $this->_out('endobj');
 421     }
 422 }
 423
 424 // Local Variables:
 425 // mode: php
 426 // tab-width: 8
 427 // c-basic-offset: 4
 428 // c-hanging-comment-ender-p: nil
 429 // indent-tabs-mode: nil
 430 // End:
 431 ?>