<?php // -*-php-*-
// $Id: chinese.php 7956 2011-03-03 17:08:31Z vargenau $

// PDF functions taken from FPDF http://www.fpdf.org

require('lib/pdf.php');

$Big5_widths=array(' '=>250,'!'=>250,'"'=>408,'#'=>668,'$'=>490,'%'=>875,'&'=>698,'\''=>250,
    '('=>240,')'=>240,'*'=>417,'+'=>667,','=>250,'-'=>313,'.'=>250,'/'=>520,'0'=>500,'1'=>500,
    '2'=>500,'3'=>500,'4'=>500,'5'=>500,'6'=>500,'7'=>500,'8'=>500,'9'=>500,':'=>250,';'=>250,
    '<'=>667,'='=>667,'>'=>667,'?'=>396,'@'=>921,'A'=>677,'B'=>615,'C'=>719,'D'=>760,'E'=>625,
    'F'=>552,'G'=>771,'H'=>802,'I'=>354,'J'=>354,'K'=>781,'L'=>604,'M'=>927,'N'=>750,'O'=>823,
    'P'=>563,'Q'=>823,'R'=>729,'S'=>542,'T'=>698,'U'=>771,'V'=>729,'W'=>948,'X'=>771,'Y'=>677,
    'Z'=>635,'['=>344,'\\'=>520,']'=>344,'^'=>469,'_'=>500,'`'=>250,'a'=>469,'b'=>521,'c'=>427,
    'd'=>521,'e'=>438,'f'=>271,'g'=>469,'h'=>531,'i'=>250,'j'=>250,'k'=>458,'l'=>240,'m'=>802,
    'n'=>531,'o'=>500,'p'=>521,'q'=>521,'r'=>365,'s'=>333,'t'=>292,'u'=>521,'v'=>458,'w'=>677,
    'x'=>479,'y'=>458,'z'=>427,'{'=>480,'|'=>496,'}'=>480,'~'=>667);

$GB_widths=array(' '=>207,'!'=>270,'"'=>342,'#'=>467,'$'=>462,'%'=>797,'&'=>710,'\''=>239,
    '('=>374,')'=>374,'*'=>423,'+'=>605,','=>238,'-'=>375,'.'=>238,'/'=>334,'0'=>462,'1'=>462,
    '2'=>462,'3'=>462,'4'=>462,'5'=>462,'6'=>462,'7'=>462,'8'=>462,'9'=>462,':'=>238,';'=>238,
    '<'=>605,'='=>605,'>'=>605,'?'=>344,'@'=>748,'A'=>684,'B'=>560,'C'=>695,'D'=>739,'E'=>563,
    'F'=>511,'G'=>729,'H'=>793,'I'=>318,'J'=>312,'K'=>666,'L'=>526,'M'=>896,'N'=>758,'O'=>772,
    'P'=>544,'Q'=>772,'R'=>628,'S'=>465,'T'=>607,'U'=>753,'V'=>711,'W'=>972,'X'=>647,'Y'=>620,
    'Z'=>607,'['=>374,'\\'=>333,']'=>374,'^'=>606,'_'=>500,'`'=>239,'a'=>417,'b'=>503,'c'=>427,
    'd'=>529,'e'=>415,'f'=>264,'g'=>444,'h'=>518,'i'=>241,'j'=>230,'k'=>495,'l'=>228,'m'=>793,
    'n'=>527,'o'=>524,'p'=>524,'q'=>504,'r'=>338,'s'=>336,'t'=>277,'u'=>517,'v'=>450,'w'=>652,
    'x'=>466,'y'=>452,'z'=>407,'{'=>370,'|'=>258,'}'=>370,'~'=>605);

class PDF_Chinese extends PDF
{
    function AddCIDFont($family,$style,$name,$cw,$CMap,$registry)
    {
    $fontkey=strtolower($family).strtoupper($style);
    if(isset($this->fonts[$fontkey]))
        $this->Error("Font already added: $family $style");
    $i=count($this->fonts)+1;
    $name=str_replace(' ','',$name);
    $this->fonts[$fontkey]=array('i'=>$i,'type'=>'Type0','name'=>$name,'up'=>-130,'ut'=>40,'cw'=>$cw,'CMap'=>$CMap,'registry'=>$registry);
    }

    function AddCIDFonts($family,$name,$cw,$CMap,$registry)
    {
    $this->AddCIDFont($family,'',$name,$cw,$CMap,$registry);
    $this->AddCIDFont($family,'B',$name.',Bold',$cw,$CMap,$registry);
    $this->AddCIDFont($family,'I',$name.',Italic',$cw,$CMap,$registry);
    $this->AddCIDFont($family,'BI',$name.',BoldItalic',$cw,$CMap,$registry);
    }

    function AddBig5Font($family='Big5',$name='MSungStd-Light-Acro')
    {
    //Add Big5 font with proportional Latin
    $cw=$GLOBALS['Big5_widths'];
    $CMap='ETenms-B5-H';
    $registry=array('ordering'=>'CNS1','supplement'=>0);
    $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
    }

    function AddBig5hwFont($family='Big5-hw',$name='MSungStd-Light-Acro')
    {
    //Add Big5 font with half-witdh Latin
    for($i=32;$i<=126;$i++)
        $cw[chr($i)]=500;
    $CMap='ETen-B5-H';
    $registry=array('ordering'=>'CNS1','supplement'=>0);
    $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
    }

    function AddGBFont($family='GB',$name='STSongStd-Light-Acro')
    {
    //Add GB font with proportional Latin
    $cw=$GLOBALS['GB_widths'];
    $CMap='GBKp-EUC-H';
    $registry=array('ordering'=>'GB1','supplement'=>2);
    $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
    }

    function AddGBhwFont($family='GB-hw',$name='STSongStd-Light-Acro')
    {
    //Add GB font with half-width Latin
    for($i=32;$i<=126;$i++)
        $cw[chr($i)]=500;
    $CMap='GBK-EUC-H';
    $registry=array('ordering'=>'GB1','supplement'=>2);
    $this->AddCIDFonts($family,$name,$cw,$CMap,$registry);
    }

    function GetStringWidth($s)
    {
    if ($this->CurrentFont['type']=='Type0')
        return $this->GetMBStringWidth($s);
    else
        return parent::GetStringWidth($s);
    }

    function GetMBStringWidth($s)
    {
    //Multi-byte version of GetStringWidth()
    $l=0;
    $cw=&$this->CurrentFont['cw'];
    $nb=strlen($s);
    $i=0;
    while($i<$nb)
    {
        $c=$s[$i];
        if(ord($c)<128)
        {
            $l+=$cw[$c];
            $i++;
        }
        else
        {
            $l+=1000;
            $i+=2;
        }
    }
    return $l*$this->FontSize/1000;
    }

    function MultiCell($w,$h,$txt,$border=0,$align='L',$fill=0)
    {
    if($this->CurrentFont['type']=='Type0')
        $this->MBMultiCell($w,$h,$txt,$border,$align,$fill);
    else
        parent::MultiCell($w,$h,$txt,$border,$align,$fill);
    }

    function MBMultiCell($w,$h,$txt,$border=0,$align='L',$fill=0)
    {
    //Multi-byte version of MultiCell()
    $cw=&$this->CurrentFont['cw'];
    if($w==0)
        $w=$this->w-$this->rMargin-$this->x;
    $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
    $s=str_replace("\r",'',$txt);
    $nb=strlen($s);
    if($nb>0 and $s[$nb-1]=="\n")
        $nb--;
    $b=0;
    if($border)
    {
        if($border==1)
        {
            $border='LTRB';
            $b='LRT';
            $b2='LR';
        }
        else
        {
            $b2='';
            if(is_int(strpos($border,'L')))
                $b2.='L';
            if(is_int(strpos($border,'R')))
                $b2.='R';
            $b=is_int(strpos($border,'T')) ? $b2.'T' : $b2;
        }
    }
    $sep=-1;
    $i=0;
    $j=0;
    $l=0;
    $nl=1;
    while($i<$nb)
    {
        //Get next character
        $c=$s[$i];
        //Check if ASCII or MB
        $ascii=(ord($c)<128);
        if($c=="\n")
        {
            //Explicit line break
            $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
            $i++;
            $sep=-1;
            $j=$i;
            $l=0;
            $nl++;
            if($border and $nl==2)
                $b=$b2;
            continue;
        }
        if(!$ascii)
        {
            $sep=$i;
            $ls=$l;
        }
        elseif($c==' ')
        {
            $sep=$i;
            $ls=$l;
        }
        $l+=$ascii ? $cw[$c] : 1000;
        if($l>$wmax)
        {
            //Automatic line break
            if($sep==-1 or $i==$j)
            {
                if($i==$j)
                    $i+=$ascii ? 1 : 2;
                $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
            }
            else
            {
                $this->Cell($w,$h,substr($s,$j,$sep-$j),$b,2,$align,$fill);
                $i=($s[$sep]==' ') ? $sep+1 : $sep;
            }
            $sep=-1;
            $j=$i;
            $l=0;
            $nl++;
            if($border and $nl==2)
                $b=$b2;
        }
        else
            $i+=$ascii ? 1 : 2;
    }
    //Last chunk
    if($border and is_int(strpos($border,'B')))
        $b.='B';
    $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
    $this->x=$this->lMargin;
    }

    function Write($h,$txt,$link='')
    {
    if($this->CurrentFont['type']=='Type0')
        $this->MBWrite($h,$txt,$link);
    else
        parent::Write($h,$txt,$link);
    }

    function MBWrite($h,$txt,$link)
    {
    //Multi-byte version of Write()
    $cw=&$this->CurrentFont['cw'];
    $w=$this->w-$this->rMargin-$this->x;
    $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
    $s=str_replace("\r",'',$txt);
    $nb=strlen($s);
    $sep=-1;
    $i=0;
    $j=0;
    $l=0;
    $nl=1;
    while($i<$nb)
    {
        //Get next character
        $c=$s[$i];
        //Check if ASCII or MB
        $ascii=(ord($c)<128);
        if($c=="\n")
        {
            //Explicit line break
            $this->Cell($w,$h,substr($s,$j,$i-$j),0,2,'',0,$link);
            $i++;
            $sep=-1;
            $j=$i;
            $l=0;
            if($nl==1)
            {
                $this->x=$this->lMargin;
                $w=$this->w-$this->rMargin-$this->x;
                $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
            }
            $nl++;
            continue;
        }
        if(!$ascii or $c==' ')
            $sep=$i;
        $l+=$ascii ? $cw[$c] : 1000;
        if($l>$wmax)
        {
            //Automatic line break
            if($sep==-1 or $i==$j)
            {
                if($this->x>$this->lMargin)
                {
                    //Move to next line
                    $this->x=$this->lMargin;
                    $this->y+=$h;
                    $w=$this->w-$this->rMargin-$this->x;
                    $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
                    $i++;
                    $nl++;
                    continue;
                }
                if($i==$j)
                    $i+=$ascii ? 1 : 2;
                $this->Cell($w,$h,substr($s,$j,$i-$j),0,2,'',0,$link);
            }
            else
            {
                $this->Cell($w,$h,substr($s,$j,$sep-$j),0,2,'',0,$link);
                $i=($s[$sep]==' ') ? $sep+1 : $sep;
            }
            $sep=-1;
            $j=$i;
            $l=0;
            if($nl==1)
            {
                $this->x=$this->lMargin;
                $w=$this->w-$this->rMargin-$this->x;
                $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
            }
            $nl++;
        }
        else
            $i+=$ascii ? 1 : 2;
    }
    //Last chunk
    if($i!=$j)
        $this->Cell($l/1000*$this->FontSize,$h,substr($s,$j,$i-$j),0,0,'',0,$link);
    }

    function _putfonts()
    {
    $nf=$this->n;
    foreach($this->diffs as $diff)
    {
        //Encodings
        $this->_newobj();
        $this->_out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['.$diff.']>>');
        $this->_out('endobj');
    }

    if (!check_php_version(5,3)) {
        $mqr=get_magic_quotes_runtime();
        set_magic_quotes_runtime(0);
    }
    foreach($this->FontFiles as $file=>$info)
    {
        //Font file embedding
        $this->_newobj();
        $this->FontFiles[$file]['n']=$this->n;
        if(defined('FPDF_FONTPATH'))
            $file=FPDF_FONTPATH.$file;
        $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('/Length1 '.$info['length1']);
        if(isset($info['length2']))
            $this->_out('/Length2 '.$info['length2'].' /Length3 0');
        $this->_out('>>');
        $f=fopen($file,'rb');
        $this->_putstream(fread($f,$size));
        fclose($f);
        $this->_out('endobj');
    }
    if (!check_php_version(5,3)) {
        set_magic_quotes_runtime($mqr);
    }
    foreach($this->fonts as $k=>$font)
    {
        //Font objects
        $this->_newobj();
        $this->fonts[$k]['n']=$this->n;
        $this->_out('<</Type /Font');
        if($font['type']=='Type0')
            $this->_putType0($font);
        else
        {
            $name=$font['name'];
            $this->_out('/BaseFont /'.$name);
            if($font['type']=='core')
            {
                //Standard font
                $this->_out('/Subtype /Type1');
                if($name!='Symbol' and $name!='ZapfDingbats')
                    $this->_out('/Encoding /WinAnsiEncoding');
            }
            else
            {
                //Additional font
                $this->_out('/Subtype /'.$font['type']);
                $this->_out('/FirstChar 32');
                $this->_out('/LastChar 255');
                $this->_out('/Widths '.($this->n+1).' 0 R');
                $this->_out('/FontDescriptor '.($this->n+2).' 0 R');
                if($font['enc'])
                {
                    if(isset($font['diff']))
                        $this->_out('/Encoding '.($nf+$font['diff']).' 0 R');
                    else
                        $this->_out('/Encoding /WinAnsiEncoding');
                }
            }
            $this->_out('>>');
            $this->_out('endobj');
            if($font['type']!='core')
            {
                //Widths
                $this->_newobj();
                $cw=&$font['cw'];
                $s='[';
                for($i=32;$i<=255;$i++)
                    $s.=$cw[chr($i)].' ';
                $this->_out($s.']');
                $this->_out('endobj');
                //Descriptor
                $this->_newobj();
                $s='<</Type /FontDescriptor /FontName /'.$name;
                foreach($font['desc'] as $k=>$v)
                    $s.=' /'.$k.' '.$v;
                $file=$font['file'];
                if($file)
                    $s.=' /FontFile'.($font['type']=='Type1' ? '' : '2').' '.$this->FontFiles[$file]['n'].' 0 R';
                $this->_out($s.'>>');
                $this->_out('endobj');
            }
        }
    }
    }

    function _putType0($font)
    {
    //Type0
    $this->_out('/Subtype /Type0');
    $this->_out('/BaseFont /'.$font['name'].'-'.$font['CMap']);
    $this->_out('/Encoding /'.$font['CMap']);
    $this->_out('/DescendantFonts ['.($this->n+1).' 0 R]');
    $this->_out('>>');
    $this->_out('endobj');
    //CIDFont
    $this->_newobj();
    $this->_out('<</Type /Font');
    $this->_out('/Subtype /CIDFontType0');
    $this->_out('/BaseFont /'.$font['name']);
    $this->_out('/CIDSystemInfo <</Registry '.$this->_textstring('Adobe').' /Ordering '.$this->_textstring($font['registry']['ordering']).' /Supplement '.$font['registry']['supplement'].'>>');
    $this->_out('/FontDescriptor '.($this->n+1).' 0 R');
    if($font['CMap']=='ETen-B5-H')
        $W='13648 13742 500';
    elseif($font['CMap']=='GBK-EUC-H')
        $W='814 907 500 7716 [500]';
    else
        $W='1 ['.implode(' ',$font['cw']).']';
    $this->_out('/W ['.$W.']>>');
    $this->_out('endobj');
    //Font descriptor
    $this->_newobj();
    $this->_out('<</Type /FontDescriptor');
    $this->_out('/FontName /'.$font['name']);
    $this->_out('/Flags 6');
    $this->_out('/FontBBox [0 -200 1000 900]');
    $this->_out('/ItalicAngle 0');
    $this->_out('/Ascent 800');
    $this->_out('/Descent -200');
    $this->_out('/CapHeight 800');
    $this->_out('/StemV 50');
    $this->_out('>>');
    $this->_out('endobj');
    }
}

// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 4
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End:
?>