pdf_paradise 0.3.20

data/lib/pdf_paradise/fpdf/chinese.rb

@@ -0,0 +1,454 @@
+# Chinese support ported by Brian Ollenberger from Oliver Plathey's
+# Chinese PDF support.
+#
+# First added in 1.53b
+#
+# This is currently totally untested. Please let me know if you
+# run into any bugs.
+#
+# Usage is as follows:
+#
+# require 'fpdf'
+# require 'chinese'
+# pdf = FPDF.new
+# pdf.extend(PDF_Chinese)
+#
+# This allows it to be combined with other extensions, such as the bookmark
+# module.
+
+# === PDF_Chinese
+module PDF_Chinese
+  # === Big5_widths
+  Big5_widths = {
+    ' '=>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 = {' '=>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}
+
+  def AddCIDFont(family,style,name,cw,cMap,registry)
+    fontkey=family.downcase + style.upcase;
+    unless @fonts[fontkey].nil?
+      Error("Font already added: #{family} #{style}")
+    end
+    i=@fonts.length+1
+    name.sub!(' ', '')
+    @fonts[fontkey]={'i'=>i,'type'=>'Type0','name'=>name,'up'=>-130,
+      'ut'=>40,'cw'=>cw,'CMap'=>cMap,'registry'=>registry}
+  end
+
+  def AddCIDFonts(family,name,cw,cMap,registry)
+    AddCIDFont(family,'',name,cw,cMap,registry)
+    AddCIDFont(family,'B',name+',Bold',cw,cMap,registry)
+    AddCIDFont(family,'I',name+',Italic',cw,cMap,registry)
+    AddCIDFont(family,'BI',name+',BoldItalic',cw,cMap,registry)
+  end
+
+  # === add_big_five_font
+  def add_big_five_font(family='Big5',name='MSungStd-Light-Acro')
+    # Add Big5 font with proportional Latin
+    cw=Big5_widths
+    cMap='ETenms-B5-H'
+    registry = {
+      'ordering'=>'CNS1','supplement'=>0
+    }
+    AddCIDFonts(family,name,cw,cMap,registry)
+  end; alias AddBig5Font add_big_five_font # === AddBig5Font
+
+  def AddBig5hwFont(family='Big5-hw',name='MSungStd-Light-Acro')
+    # Add Big5 font with half-width Latin
+    cw = {}
+    32.upto(126) do |i|
+      cw[i.chr]=500
+    end
+    cMap='ETen-B5-H'
+    registry={'ordering'=>'CNS1','supplement'=>0}
+    AddCIDFonts(family,name,cw,cMap,registry)
+  end
+
+  def AddGBFont(family='GB',name='STSongStd-Light-Acro')
+    # Add GB font with proportional Latin
+    cw=GB_widths
+    cMap='GBKp-EUC-H'
+    registry={'ordering'=>'GB1','supplement'=>2}
+    AddCIDFonts(family,name,cw,cMap,registry)
+  end
+
+  def AddGBhwFont(family='GB-hw',name='STSongStd-Light-Acro')
+    # Add GB font with half-width Latin
+    32.upto(126) do |i|
+      cw[i.chr]=500
+    end
+    cMap='GBK-EUC-H'
+    registry={'ordering'=>'GB1','supplement'=>2}
+    AddCIDFonts(family,name,cw,cMap,registry)
+  end
+
+  # === GetStringWidth
+  def GetStringWidth(s)
+    case @CurrentFont['type']
+    when 'Type0'
+      GetMBStringWidth(s)
+    else
+      super(s)
+    end
+  end
+
+  def GetMBStringWidth(s)
+    # Multi-byte version of GetStringWidth()
+    l = 0
+    cw = @CurrentFont['cw']
+    nb = s.length
+    i = 0
+    while i<nb
+      c=s[i]
+      if c.ord < 128
+        l += cw[c]
+        i += 1
+      else
+        l += 1000
+        i += 2
+      end
+    end
+    return l * @FontSize/1000
+  end
+
+  def MultiCell(w,h,txt,border=0,align='L',fill=0)
+    if @CurrentFont['type']=='Type0'
+      MBMultiCell(w,h,txt,border,align,fill)
+    else
+      super(w,h,txt,border,align,fill)
+    end
+  end
+
+  def MBMultiCell(w,h,txt,border=0,align='L',fill=0)
+    # Multi-byte version of MultiCell()
+    cw=@CurrentFont['cw']
+    w=@w-@rMargin-@x if w==0
+    wmax=(w-2*@cMargin)*1000/@FontSize
+    txt.sub("\r", '')
+    nb=s.length
+    nb -= 1 if nb>0 and s[nb-1]=="\n"
+    b=0
+    if border
+      if border==1
+        border='LTRB'
+        b='LRT'
+        b2='LR'
+      else
+        b2=''
+        b2+='L' unless border.index('L').nil?
+        b2+='R' unless border.index('R').nil? 
+        b = (border.index('T')) ? (b2+'T') : b2
+      end
+    end
+    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 = false
+      if c < 128
+        ascii = true
+      end
+      if c.chr=="\n"
+        # Explicit line break
+        Cell(w,h,s[j..i-j],b,2,align,fill)
+        i+=1
+        sep=-1
+        j=i
+        l=0
+        nl+=1
+        if border and nl==2
+          b=b2
+		end
+        next
+      end
+      if not ascii
+        sep=i
+        ls=l
+      elsif c.chr==' '
+        sep=i
+        ls=l
+      end
+      if ascii
+        l += cw[c.chr]
+      else
+        l += 1000
+      end
+      if l>wmax
+        # Automatic line break
+        if sep==-1 or i==j
+          i += ascii ? 1 : 2 if i==j
+          Cell(w,h,s[j..i-j],b,2,align,fill)
+        else
+          Cell(w,h,s[j..sep-j],b,2,align,fill)
+          i=(s[sep]==' ') ? sep+1 : sep
+        end
+        sep=-1
+        j=i
+        l=0
+        nl+=1
+        if border and nl==2
+          b=b2
+        end
+      else
+        i+=$ascii ? 1 : 2
+      end
+    end
+
+    # Last chunk
+    b += 'B' if border and not border.index('B').nil?
+    Cell(w,h,s[i..i-j],b,2,align,fill)
+    @x=@lMargin
+  end
+
+  def Write(h,txt,link='')
+    if @CurrentFont['type']=='Type0'
+      MBWrite(h,txt,link)
+    else
+      super(h,txt,link)
+    end
+  end
+
+  def MBWrite(h,txt,link)
+    # Multi-byte version of Write()
+    cw=@CurrentFont['cw']
+    w=@w-@rMargin-@x
+    wmax=(w-2*@cMargin)*1000/@FontSize
+    s=txt.sub("\r", ' ')
+    nb=s.length
+    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 = false
+      if c < 128
+        ascii = true
+      end
+      if c.chr=="\n"
+        #Explicit line break
+        Cell(w,h,s[j..i-j],0,2,'',0,link)
+        i+=1
+        sep=-1
+        j=i
+        l=0
+        if nl==1
+          @x=@lMargin
+          w=@w-@rMargin-@x
+          wmax=(w-2*@cMargin)*1000/@FontSize
+        end
+        nl+=1
+        next
+      end
+      sep=i if not ascii or c.chr==' '
+      if ascii
+        l += cw[c.chr]
+      else
+        l += 1000
+      end
+      if l>wmax
+        # Automatic line break
+        if sep==-1 or i==j
+          if @x>@lMargin
+            # Move to next line
+            @x=@lMargin
+            @y+=h
+            w=@w-@rMargin-@x
+            wmax=(w-2*@cMargin)*1000/@FontSize
+            i+=1
+            nl+=1
+            next
+          end
+          i+=ascii ? 1 : 2 if i==j
+          Cell(w,h,s[j..i-j],0,2,'',0,link)
+        else
+          Cell(w,h,s[j..sep-j],0,2,'',0,link)
+          i=(s[sep]==' ') ? sep+1 : sep
+        end
+        sep=-1
+        j=i
+        l=0
+        if nl==1
+          @x=@lMargin
+          w=@w-@rMargin-@x
+          wmax=(w-2*@cMargin)*1000/@FontSize
+        end
+        nl+=1
+      else
+        i+=ascii ? 1 : 2
+      end
+    end
+
+    #Last chunk
+    if i!=j
+      Cell(l/1000*@FontSize,h,s[j..i-j],0,0,'',0,link)
+    end
+  end
+
+private
+
+  def putfonts
+    nf=@n
+    @diffs.each do |diff|
+      # Encodings
+      newobj
+      out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding '+
+        '/Differences ['+diff+']>>')
+      out('endobj')
+    end
+    @FontFiles.each_pair do |file, info|
+      # Font file embedding
+      newobj
+      @FontFiles[file]['n']=@n
+
+      if self.class.const_defined? 'FPDF_FONTPATH'
+        if FPDF_FONTPATH[-1,1] == '/'
+          file = FPDF_FONTPATH + file
+        else
+          file = FPDF_FONTPATH + '/' + file
+        end
+      end
+      size = File.size(file)
+      unless File.exists?(file)
+        Error('Font file not found')
+      end
+      out('<</Length '+size.to_s)
+      if file[-2]=='.z'
+        out('/Filter /FlateDecode')
+      end
+      out('/Length1 '+info['length1'])
+      if info['length2']
+        out('/Length2 '+info['length2']+' /Length3 0')
+      end
+      out('>>')
+      putstream(IO.read(file))
+      out('endobj')
+    end
+
+    @fonts.each_pair do |k, font|
+      # Font objects
+      newobj
+      @fonts[k]['n']=@n
+      out('<</Type /Font')
+      if font['type']=='Type0'
+        putType0(font)
+      else
+        name=font['name']
+        out('/BaseFont /'+name)
+        if font['type']=='core'
+          #Standard font
+          out('/Subtype /Type1')
+          if name!='Symbol' and name!='ZapfDingbats'
+            out('/Encoding /WinAnsiEncoding')
+          end
+        else
+          # Additional font
+          out('/Subtype /' + font['type'])
+          out('/FirstChar 32')
+          out('/LastChar 255')
+          out('/Widths '+(@n+1).to_s+' 0 R')
+          out('/FontDescriptor '+(@n+2).to_s+' 0 R')
+          if font['enc']
+            if font['diff']
+              out('/Encoding '+(nf+font['diff']).to_s+' 0 R')
+            else
+              out('/Encoding /WinAnsiEncoding')
+            end
+          end
+        end
+        out('>>')
+        out('endobj')
+        if font['type']!='core'
+          # Widths
+          newobj
+          cw=font['cw']
+          s='['
+          32.upto(255) do |i|
+            s+=cw[i.chr].to_s+' '
+          end
+          out(s+']')
+          out('endobj')
+          # Descriptor
+          newobj
+          s='<</Type /FontDescriptor /FontName /'+name
+          font['desc'].each_pair do |k, v|
+            s+=' /'+k+' '+v
+          end
+          file=font['file']
+          if file
+            s+=' /FontFile'+((font['type']=='Type1') ? '' : '2')+
+              ' '+@FontFiles[file]['n']+' 0 R'
+          end
+          out(s+'>>')
+          out('endobj')
+        end
+      end
+    end
+  end
+
+  def putType0(font)
+    # Type0
+    out('/Subtype /Type0')
+    out('/BaseFont /'+font['name']+'-'+font['CMap'])
+    out('/Encoding /'+font['CMap'])
+    out('/DescendantFonts ['+(@n+1).to_s+' 0 R]')
+    out('>>')
+    out('endobj')
+    # CIDFont
+    newobj
+    out('<</Type /Font')
+    out('/Subtype /CIDFontType0')
+    out('/BaseFont /'+font['name'])
+    out('/CIDSystemInfo <</Registry '+textstring('Adobe')+' /Ordering '+
+      textstring(font['registry']['ordering'])+' /Supplement '+
+      font['registry']['supplement'].to_s+'>>')
+    out('/FontDescriptor '+(@n+1).to_s+' 0 R')
+    w='1 ['+font['cw'].values.join(' ')+']'
+    if font['CMap']=='ETen-B5-H'
+      w='13648 13742 500'
+    elsif(font['CMap']=='GBK-EUC-H')
+      w='814 907 500 7716 [500]'
+    end
+    out('/W ['+w+']>>')
+    out('endobj')
+    # Font descriptor
+    newobj
+    out('<</Type /FontDescriptor')
+    out('/FontName /'+font['name'])
+    out('/Flags 6')
+    out('/FontBBox [0 -200 1000 900]')
+    out('/ItalicAngle 0')
+    out('/Ascent 800')
+    out('/Descent -200')
+    out('/CapHeight 800')
+    out('/StemV 50')
+    out('>>')
+    out('endobj')
+  end
+end