/lib/fpdf/ufpdf.php

<?php

/*******************************************************************************

* Software: UFPDF, Unicode Free PDF generator                                  *

* Version:  0.1                                                                *

*           based on FPDF 1.52 by Olivier PLATHEY                              *

* Date:     2004-09-01                                                         *

* Author:   Steven Wittens <steven@acko.net>                                   *

* License:  GPL                                                                *

*                                                                              *

* UFPDF is a modification of FPDF to support Unicode through UTF-8.            *

*                                                                              *

*******************************************************************************/



if(!class_exists('UFPDF'))

{

define('UFPDF_VERSION','0.1');



include_once 'fpdf.php';



class UFPDF extends FPDF

{



/*******************************************************************************

*                                                                              *

*                               Public methods                                 *

*                                                                              *

*******************************************************************************/

function UFPDF($orientation='P',$unit='mm',$format='A4')

{

  FPDF::FPDF($orientation, $unit, $format);

}



function GetStringWidth($s)

{

  //Get width of a string in the current font

  $s = (string)$s;

  $codepoints=$this->utf8_to_codepoints($s);

  $cw=&$this->CurrentFont['cw'];

  $w=0;

  foreach($codepoints as $cp)

    $w+=$cw[$cp];

  return $w*$this->FontSize/1000;

}



function AddFont($family,$style='',$file='')

{

  //Add a TrueType or Type1 font

  $family=strtolower($family);

  if($family=='arial')

    $family='helvetica';

  $style=strtoupper($style);

  if($style=='IB')

    $style='BI';

  if(isset($this->fonts[$family.$style]))

    $this->Error('Font already added: '.$family.' '.$style);

  if($file=='')

    $file=str_replace(' ','',$family).strtolower($style).'.php';

  if(defined('FPDF_FONTPATH'))

    $file=FPDF_FONTPATH.$file;

  include($file);

  if(!isset($name))

    $this->Error('Could not include font definition file');

  $i=count($this->fonts)+1;

  $this->fonts[$family.$style]=array('i'=>$i,'type'=>$type,'name'=>$name,'desc'=>$desc,'up'=>$up,'ut'=>$ut,'cw'=>$cw,'file'=>$file,'ctg'=>$ctg);

  if($file)

  {

    if($type=='TrueTypeUnicode')

      $this->FontFiles[$file]=array('length1'=>$originalsize);

    else

      $this->FontFiles[$file]=array('length1'=>$size1,'length2'=>$size2);

  }

}



function Text($x,$y,$txt)

{

  //Output a string

  $s=sprintf('BT %.2f %.2f Td %s Tj ET',$x*$this->k,($this->h-$y)*$this->k,$this->_escapetext($txt));

  if($this->underline and $txt!='')

    $s.=' '.$this->_dounderline($x,$y,$this->GetStringWidth($txt),$txt);

  if($this->ColorFlag)

    $s='q '.$this->TextColor.' '.$s.' Q';

  $this->_out($s);

}



function AcceptPageBreak()

{

  //Accept automatic page break or not

  return $this->AutoPageBreak;

}



function Cell($w,$h=0,$txt='',$border=0,$ln=0,$align='',$fill=0,$link='')

{

  //Output a cell

  $k=$this->k;

  if($this->y+$h>$this->PageBreakTrigger and !$this->InFooter and $this->AcceptPageBreak())

  {

    //Automatic page break

    $x=$this->x;

    $ws=$this->ws;

    if($ws>0)

    {

      $this->ws=0;

      $this->_out('0 Tw');

    }

    $this->AddPage($this->CurOrientation);

    $this->x=$x;

    if($ws>0)

    {

      $this->ws=$ws;

      $this->_out(sprintf('%.3f Tw',$ws*$k));

    }

  }

  if($w==0)

    $w=$this->w-$this->rMargin-$this->x;

  $s='';

  if($fill==1 or $border==1)

  {

    if($fill==1)

      $op=($border==1) ? 'B' : 'f';

    else

      $op='S';

    $s=sprintf('%.2f %.2f %.2f %.2f re %s ',$this->x*$k,($this->h-$this->y)*$k,$w*$k,-$h*$k,$op);

  }

  if(is_string($border))

  {

    $x=$this->x;

    $y=$this->y;

    if(is_int(strpos($border,'L')))

      $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-$y)*$k,$x*$k,($this->h-($y+$h))*$k);

    if(is_int(strpos($border,'T')))

      $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-$y)*$k,($x+$w)*$k,($this->h-$y)*$k);

    if(is_int(strpos($border,'R')))

      $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',($x+$w)*$k,($this->h-$y)*$k,($x+$w)*$k,($this->h-($y+$h))*$k);

    if(is_int(strpos($border,'B')))

      $s.=sprintf('%.2f %.2f m %.2f %.2f l S ',$x*$k,($this->h-($y+$h))*$k,($x+$w)*$k,($this->h-($y+$h))*$k);

  }

  if($txt!='')

  {

    $width = $this->GetStringWidth($txt);

    if($align=='R')

      $dx=$w-$this->cMargin-$width;

    elseif($align=='C')

      $dx=($w-$width)/2;

    else

      $dx=$this->cMargin;

    if($this->ColorFlag)

      $s.='q '.$this->TextColor.' ';

    $txtstring=$this->_escapetext($txt);

    $s.=sprintf('BT %.2f %.2f Td %s Tj ET',($this->x+$dx)*$k,($this->h-($this->y+.5*$h+.3*$this->FontSize))*$k,$txtstring);

    if($this->underline)

      $s.=' '.$this->_dounderline($this->x+$dx,$this->y+.5*$h+.3*$this->FontSize,$width,$txt);

    if($this->ColorFlag)

      $s.=' Q';

    if($link)

      $this->Link($this->x+$dx,$this->y+.5*$h-.5*$this->FontSize,$width,$this->FontSize,$link);

  }

  if($s)

    $this->_out($s);

  $this->lasth=$h;

  if($ln>0)

  {

    //Go to next line

    $this->y+=$h;

    if($ln==1)

      $this->x=$this->lMargin;

  }

  else

    $this->x+=$w;

}



/*******************************************************************************

*                                                                              *

*                              Protected methods                               *

*                                                                              *

*******************************************************************************/



function _puttruetypeunicode($font) {

  //Type0 Font

  $this->_newobj();

  $this->_out('<</Type /Font');

  $this->_out('/Subtype /Type0');

  $this->_out('/BaseFont /'. $font['name'] .'-UCS');

  $this->_out('/Encoding /Identity-H');

  $this->_out('/DescendantFonts ['. ($this->n + 1) .' 0 R]');

  $this->_out('>>');

  $this->_out('endobj');



  //CIDFont

  $this->_newobj();

  $this->_out('<</Type /Font');

  $this->_out('/Subtype /CIDFontType2');

  $this->_out('/BaseFont /'. $font['name']);

  $this->_out('/CIDSystemInfo <</Registry (Adobe) /Ordering (UCS) /Supplement 0>>');

  $this->_out('/FontDescriptor '. ($this->n + 1) .' 0 R');

  $c = 0;

  foreach ($font['cw'] as $i => $w) {

    $widths .= $i .' ['. $w.'] ';

  }

  $this->_out('/W ['. $widths .']');

  $this->_out('/CIDToGIDMap '. ($this->n + 2) .' 0 R');

  $this->_out('>>');

  $this->_out('endobj');



  //Font descriptor

  $this->_newobj();

  $this->_out('<</Type /FontDescriptor');

  $this->_out('/FontName /'.$font['name']);

  foreach ($font['desc'] as $k => $v) {

    $s .= ' /'. $k .' '. $v;

  }

  if ($font['file']) {

		$s .= ' /FontFile2 '. $this->FontFiles[$font['file']]['n'] .' 0 R';

  }

  $this->_out($s);

  $this->_out('>>');

  $this->_out('endobj');



  //Embed CIDToGIDMap

  $this->_newobj();

  if(defined('FPDF_FONTPATH'))

    $file=FPDF_FONTPATH.$font['ctg'];

  else

    $file=$font['ctg'];

  $size=filesize($file);

  if(!$size)

    $this->Error('Font file not found');

  $this->_out('<</Length '.$size);

	if(substr($file,-2) == '.z')

    $this->_out('/Filter /FlateDecode');

  $this->_out('>>');

  $f = fopen($file,'rb');

  $this->_putstream(fread($f,$size));

  fclose($f);

  $this->_out('endobj');

}



function _dounderline($x,$y,$width,$txt)

{

  //Underline text

  $up=$this->CurrentFont['up'];

  $ut=$this->CurrentFont['ut'];

  $w=$width+$this->ws*substr_count($txt,' ');

  return sprintf('%.2f %.2f %.2f %.2f re f',$x*$this->k,($this->h-($y-$up/1000*$this->FontSize))*$this->k,$w*$this->k,-$ut/1000*$this->FontSizePt);

}



function _textstring($s)

{

  //Convert to UTF-16BE

  $s = $this->utf8_to_utf16be($s);

  //Escape necessary characters

  return '('. strtr($s, array(')' => '\\)', '(' => '\\(', '\\' => '\\\\')) .')';

}



function _escapetext($s)

{

  //Convert to UTF-16BE

  $s = $this->utf8_to_utf16be($s, false);

  //Escape necessary characters

  return '('. strtr($s, array(')' => '\\)', '(' => '\\(', '\\' => '\\\\')) .')';

}



function _putinfo()

{

	$this->_out('/Producer '.$this->_textstring('UFPDF '. UFPDF_VERSION));

	if(!empty($this->title))

		$this->_out('/Title '.$this->_textstring($this->title));

	if(!empty($this->subject))

		$this->_out('/Subject '.$this->_textstring($this->subject));

	if(!empty($this->author))

		$this->_out('/Author '.$this->_textstring($this->author));

	if(!empty($this->keywords))

		$this->_out('/Keywords '.$this->_textstring($this->keywords));

	if(!empty($this->creator))

		$this->_out('/Creator '.$this->_textstring($this->creator));

	$this->_out('/CreationDate '.$this->_textstring('D:'.date('YmdHis')));

}



// UTF-8 to UTF-16BE conversion.

// Correctly handles all illegal UTF-8 sequences.

function utf8_to_utf16be(&$txt, $bom = true) {

  $l = strlen($txt);

  $out = $bom ? "\xFE\xFF" : '';

  for ($i = 0; $i < $l; ++$i) {

    $c = ord($txt{$i});

    // ASCII

    if ($c < 0x80) {

      $out .= "\x00". $txt{$i};

    }

    // Lost continuation byte

    else if ($c < 0xC0) {

      $out .= "\xFF\xFD";

      continue;

    }

    // Multibyte sequence leading byte

    else {

      if ($c < 0xE0) {

        $s = 2;

      }

      else if ($c < 0xF0) {

        $s = 3;

      }

      else if ($c < 0xF8) {

        $s = 4;

      }

      // 5/6 byte sequences not possible for Unicode.

      else {

        $out .= "\xFF\xFD";

        while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; }

        continue;

      }

      

      $q = array($c);

      // Fetch rest of sequence

      while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; $q[] = ord($txt{$i}); }

      

      // Check length

      if (count($q) != $s) {

        $out .= "\xFF\xFD";        

        continue;

      }

      

      switch ($s) {

        case 2:

          $cp = (($q[0] ^ 0xC0) << 6) | ($q[1] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x80) {

            $out .= "\xFF\xFD";        

          }

          else {

            $out .= chr($cp >> 8);

            $out .= chr($cp & 0xFF);

          }

          continue;



        case 3:

          $cp = (($q[0] ^ 0xE0) << 12) | (($q[1] ^ 0x80) << 6) | ($q[2] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x800) {

            $out .= "\xFF\xFD";        

          }

          // Check for UTF-8 encoded surrogates (caused by a bad UTF-8 encoder)

          else if ($c > 0xD800 && $c < 0xDFFF) {

            $out .= "\xFF\xFD";

          }

          else {

            $out .= chr($cp >> 8);

            $out .= chr($cp & 0xFF);

          }

          continue;



        case 4:

          $cp = (($q[0] ^ 0xF0) << 18) | (($q[1] ^ 0x80) << 12) | (($q[2] ^ 0x80) << 6) | ($q[3] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x10000) {

            $out .= "\xFF\xFD";

          }

          // Outside of the Unicode range

          else if ($cp >= 0x10FFFF) {

            $out .= "\xFF\xFD";            

          }

          else {

            // Use surrogates

            $cp -= 0x10000;

            $s1 = 0xD800 | ($cp >> 10);

            $s2 = 0xDC00 | ($cp & 0x3FF);

            

            $out .= chr($s1 >> 8);

            $out .= chr($s1 & 0xFF);

            $out .= chr($s2 >> 8);

            $out .= chr($s2 & 0xFF);

          }

          continue;

      }

    }

  }

  return $out;

}



// UTF-8 to codepoint array conversion.

// Correctly handles all illegal UTF-8 sequences.

function utf8_to_codepoints(&$txt) {

  $l = strlen($txt);

  $out = array();

  for ($i = 0; $i < $l; ++$i) {

    $c = ord($txt{$i});

    // ASCII

    if ($c < 0x80) {

      $out[] = ord($txt{$i});

    }

    // Lost continuation byte

    else if ($c < 0xC0) {

      $out[] = 0xFFFD;

      continue;

    }

    // Multibyte sequence leading byte

    else {

      if ($c < 0xE0) {

        $s = 2;

      }

      else if ($c < 0xF0) {

        $s = 3;

      }

      else if ($c < 0xF8) {

        $s = 4;

      }

      // 5/6 byte sequences not possible for Unicode.

      else {

        $out[] = 0xFFFD;

        while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; }

        continue;

      }

      

      $q = array($c);

      // Fetch rest of sequence

      while (ord($txt{$i + 1}) >= 0x80 && ord($txt{$i + 1}) < 0xC0) { ++$i; $q[] = ord($txt{$i}); }

      

      // Check length

      if (count($q) != $s) {

        $out[] = 0xFFFD;

        continue;

      }

      

      switch ($s) {

        case 2:

          $cp = (($q[0] ^ 0xC0) << 6) | ($q[1] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x80) {

            $out[] = 0xFFFD;

          }

          else {

            $out[] = $cp;

          }

          continue;



        case 3:

          $cp = (($q[0] ^ 0xE0) << 12) | (($q[1] ^ 0x80) << 6) | ($q[2] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x800) {

            $out[] = 0xFFFD;

          }

          // Check for UTF-8 encoded surrogates (caused by a bad UTF-8 encoder)

          else if ($c > 0xD800 && $c < 0xDFFF) {

            $out[] = 0xFFFD;

          }

          else {

            $out[] = $cp;

          }

          continue;



        case 4:

          $cp = (($q[0] ^ 0xF0) << 18) | (($q[1] ^ 0x80) << 12) | (($q[2] ^ 0x80) << 6) | ($q[3] ^ 0x80);

          // Overlong sequence

          if ($cp < 0x10000) {

            $out[] = 0xFFFD;

          }

          // Outside of the Unicode range

          else if ($cp >= 0x10FFFF) {

            $out[] = 0xFFFD;

          }

          else {

            $out[] = $cp;

          }

          continue;

      }

    }

  }

  return $out;

}



//End of class

}



}

?>