Redmine/vendor/plugins/rfpdf/lib/fpdf/japanese.rb

# Copyright (c) 2006 4ssoM LLC <www.4ssoM.com>
# 1.12 contributed by Ed Moss.
#
# The MIT License
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
#
# This is direct port of japanese.php
#
# Japanese PDF support.
#
# Usage is as follows:
#
# require 'fpdf'
# require 'chinese'
# pdf = FPDF.new
# pdf.extend(PDF_Japanese)
#
# This allows it to be combined with other extensions, such as the bookmark
# module.

module PDF_Japanese

  SJIS_widths={' ' => 278, '!' => 299, '"' => 353, '#' => 614, '$' => 614, '%' => 721, '&' => 735, '\'' => 216, 
  	'(' => 323, ')' => 323, '*' => 449, '+' => 529, ',' => 219, '-' => 306, '.' => 219, '/' => 453, '0' => 614, '1' => 614, 
  	'2' => 614, '3' => 614, '4' => 614, '5' => 614, '6' => 614, '7' => 614, '8' => 614, '9' => 614, ':' => 219, ';' => 219, 
  	'<' => 529, '=' => 529, '>' => 529, '?' => 486, '@' => 744, 'A' => 646, 'B' => 604, 'C' => 617, 'D' => 681, 'E' => 567, 
  	'F' => 537, 'G' => 647, 'H' => 738, 'I' => 320, 'J' => 433, 'K' => 637, 'L' => 566, 'M' => 904, 'N' => 710, 'O' => 716, 
  	'P' => 605, 'Q' => 716, 'R' => 623, 'S' => 517, 'T' => 601, 'U' => 690, 'V' => 668, 'W' => 990, 'X' => 681, 'Y' => 634, 
  	'Z' => 578, '[' => 316, '\\' => 614, ']' => 316, '^' => 529, '_' => 500, '`' => 387, 'a' => 509, 'b' => 566, 'c' => 478, 
  	'd' => 565, 'e' => 503, 'f' => 337, 'g' => 549, 'h' => 580, 'i' => 275, 'j' => 266, 'k' => 544, 'l' => 276, 'm' => 854, 
  	'n' => 579, 'o' => 550, 'p' => 578, 'q' => 566, 'r' => 410, 's' => 444, 't' => 340, 'u' => 575, 'v' => 512, 'w' => 760, 
  	'x' => 503, 'y' => 529, 'z' => 453, '{' => 326, '|' => 380, '}' => 326, '~' => 387}

  def AddCIDFont(family,style,name,cw,cMap,registry)  	
    fontkey=family.downcase+style.upcase
  	unless @fonts[fontkey].nil?
  		Error("CID font already added: family style")
  	end  
  	i=@fonts.length+1
  	@fonts[fontkey]={'i'=>i,'type'=>'Type0','name'=>name,'up'=>-120,'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

  def AddSJISFont(family='SJIS')
  	#Add SJIS font with proportional Latin
  	name='KozMinPro-Regular-Acro'
  	cw=SJIS_widths
  	cMap='90msp-RKSJ-H'
  	registry={'ordering'=>'Japan1','supplement'=>2}
  	AddCIDFonts(family,name,cw,cMap,registry)
  end

  def AddSJIShwFont(family='SJIS-hw')
  	#Add SJIS font with half-width Latin
  	name='KozMinPro-Regular-Acro'
    32.upto(126) do |i|
  		cw[i.chr]=500
  	end  
  	cMap='90ms-RKSJ-H'
  	registry={'ordering'=>'Japan1','supplement'=>2}
  	AddCIDFonts(family,name,cw,cMap,registry)
  end

  def GetStringWidth(s)
  	if(@current_font['type']=='Type0')
  		return GetSJISStringWidth(s)
  	else
  		return super(s)
  	end  
  end

  def GetSJISStringWidth(s)
  	#SJIS version of GetStringWidth()
  	l=0
  	cw=@current_font['cw']
  	nb=s.length
  	i=0
  	while(i<nb)
  		o = s[i].is_a?(String) ? s[i].ord : s[i]
  		if(o<128)
  			#ASCII
  			l+=cw[o.chr] if cw[o.chr]
  			i+=1
  		elsif(o>=161 and o<=223)
  			#Half-width katakana
  			l+=500
  			i+=1
  		else
  			#Full-width character
  			l+=1000
  			i+=2
  		end
  	end
  	return l*@font_size/1000
  end

  def MultiCell(w,h,txt,border=0,align='L',fill=0,ln=1)
  	if(@current_font['type']=='Type0')
  		SJISMultiCell(w,h,txt,border,align,fill,ln)
  	else
  		super(w,h,txt,border,align,fill,ln)
  	end  
  end

  def SJISMultiCell(w,h,txt,border=0,align='L',fill=0,ln=1)

  	# save current position
  	prevx = @x;
  	prevy = @y;

  	#Output text with automatic or explicit line breaks
  	cw=@current_font['cw']
  	if(w==0)
  		w=@w-@r_margin-@x
  	end  
  	wmax=(w-2*@c_margin)*1000/@font_size
  	s=txt.gsub("\r",'')
  	nb=s.length
  	if(nb>0 and s[nb-1]=="\n")
  		nb-=1
  	end  
  	b=0
  	if(border)
  		if(border==1)
  			border='LTRB'
  			b='LRT'
  			b2='LR'
  		else
  			b2=''
  			b2='L' unless border.to_s.index('L').nil?
  			b2=b2+'R' unless border.to_s.index('R').nil?
  			b=(border.to_s.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].is_a?(String) ? s[i].ord : s[i]
  		o=c #o=ord(c)
  		if(o==10)
  			#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(o<128)
  			#ASCII
  			l+=cw[c.chr] || 0
  			n=1
  			if(o==32)
  				sep=i
      	end  
  		elsif(o>=161 and o<=223)
  			#Half-width katakana
  			l+=500
  			n=1
  			sep=i
  		else
  			#Full-width character
  			l+=1000
  			n=2
  			sep=i
  		end
  		if(l>wmax)
  			#Automatic line break
  			if(sep==-1 or i==j)
  				if(i==j)
  					i+=n
        	end  
  				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].chr==' ') ? sep+1 : sep
  			end
  			sep=-1
  			j=i
  			l=0
  			nl+=1
  			if(border and nl==2)
  				b=b2
      	end  
  		else
  			i+=n
  			if(o>=128)
  				sep=i
  			end
  		end
  	end
  	#Last chunk
  	if(border and not border.to_s.index('B').nil?)
  		b+='B'
  	end  
  	Cell(w,h,s[j,i-j],b,2,align,fill)

  	# move cursor to specified position
  	if (ln == 1)
  		# go to the beginning of the next line
  		@x=@l_margin
  	elsif (ln == 0)
  		# go to the top-right of the cell
  		@y = prevy;
  		@x = prevx + w;
  	elsif (ln == 2)
  		# go to the bottom-left of the cell
  		@x = prevx;
  	end
  end

  def Write(h,txt,link='',fill=0)
  	if(@current_font['type']=='Type0')
 		SJISWrite(h,txt,link,fill)
 	else
 		super(h,txt,link,fill)
  	end  
  end

  def SJISWrite(h,txt,link,fill=0)
  	#SJIS version of Write()
  	cw=@current_font['cw']
  	w=@w-@r_margin-@x
  	wmax=(w-2*@c_margin)*1000/@font_size
  	s=txt.gsub("\r",'')
  	nb=s.length
  	sep=-1
  	i=0
  	j=0
  	l=0
  	nl=1
  	while(i<nb)
  		#Get next character
  		c = s[i].is_a?(String) ? s[i].ord : s[i]
  		o=c
  		if(o==10)
  			#Explicit line break
  			Cell(w,h,s[j,i-j],0,2,'',fill,link)
  			i+=1
  			sep=-1
  			j=i
  			l=0
  			if(nl==1)
  				#Go to left margin
  				@x=@l_margin
  				w=@w-@r_margin-@x
  				wmax=(w-2*@c_margin)*1000/@font_size
  			end
  			nl+=1
  			next
  		end
  		if(o<128)
  			#ASCII
  			l+=cw[c.chr] || 0
  			n=1
  			if(o==32)
  				sep=i
      	end  
  		elsif(o>=161 and o<=223)
  			#Half-width katakana
  			l+=500
  			n=1
  			sep=i
  		else
  			#Full-width character
  			l+=1000
  			n=2
  			sep=i
  		end
  		if(l>wmax)
  			#Automatic line break
  			if(sep==-1 or i==j)
  				if(@x>@l_margin)
  					#Move to next line
  					@x=@l_margin
  					@y+=h
  					w=@w-@r_margin-@x
  					wmax=(w-2*@c_margin)*1000/@font_size
  					i+=n
  					nl+=1
  					next
  				end
  				if(i==j)
  					i+=n
        	end  
  				Cell(w,h,s[j,i-j],0,2,'',fill,link)
  			else
  				Cell(w,h,s[j,sep-j],0,2,'',fill,link)
  				i=(s[sep].chr==' ') ? sep+1 : sep
  			end
  			sep=-1
  			j=i
  			l=0
  			if(nl==1)
  				@x=@l_margin
  				w=@w-@r_margin-@x
  				wmax=(w-2*@c_margin)*1000/@font_size
  			end
  			nl+=1
  		else
  			i+=n
  			if(o>=128)
  				sep=i
      	end  
  		end
  	end
  	#Last chunk
  	if(i!=j)
  		Cell(l*@font_size/1000.0,h,s[j,i-j],0,0,'',fill,link)
  	end  
  end
  
private

  def putfonts()
  	nf=@n
    @diffs.each do |diff|
  		#Encodings
  		newobj()
  		out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['+diff+']>>')
  		out('endobj')
  	end
  	# mqr=get_magic_quotes_runtime()
  	# set_magic_quotes_runtime(0)
    @font_files.each_pair do |file, info|
  		#Font file embedding
  		newobj()
  		@font_files[file]['n']=@n
  		if(defined('FPDF_FONTPATH'))
  			file=FPDF_FONTPATH+file
    	end  
  		size=filesize(file)
  		if(!size)
  			Error('Font file not found')
    	end  
  		out('<</Length '+size)
  		if(file[-2]=='.z')
  			out('/Filter /FlateDecode')
    	end  
  		out('/Length1 '+info['length1'])
  		unless info['length2'].nil?
  			out('/Length2 '+info['length2']+' /Length3 0')
    	end  
  		out('>>')
  		f=fopen(file,'rb')
  		putstream(fread(f,size))
  		fclose(f)
  		out('endobj')
  	end
  	# set_magic_quotes_runtime(mqr)
    @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)+' 0 R')
  				out('/FontDescriptor '+(@n+2)+' 0 R')
  				if(font['enc'])
  					if !font['diff'].nil?
  						out('/Encoding '+(nf+font['diff'])+' 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]+' '
        	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')+' '+@font_files[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 (Adobe) /Ordering ('+font['registry']['ordering']+') /Supplement '+font['registry']['supplement'].to_s+'>>')
  	out('/FontDescriptor '+(@n+1).to_s+' 0 R')
  	w='/W [1 ['
		font['cw'].keys.sort.each {|key|
		  w+=font['cw'][key].to_s + " "
# ActionController::Base::logger.debug key.to_s
# ActionController::Base::logger.debug font['cw'][key].to_s
		}
  	out(w+'] 231 325 500 631 [500] 326 389 500]')
  	out('>>')
  	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 60')
  	out('>>')
  	out('endobj')
  end
end