##// END OF EJS Templates
jro_apps » redmine
RSS
PDF: import Chinese rfpdf patch for textilized PDF (#69)....
Toshi MARUYAMA -
r6013:e9cdaf0d4bc7
parent child
Show More
Side by Side Unified
Context file:
r6013:e9cdaf0d4bc7 Loading diff...:
Show file before | Show file after | Hide comments
@@ -1,469 +1,486
1 1 # Copyright (c) 2006 4ssoM LLC <www.4ssoM.com>
2 2 # 1.12 contributed by Ed Moss.
3 3 #
4 4 # The MIT License
5 5 #
6 6 # Permission is hereby granted, free of charge, to any person obtaining a copy
7 7 # of this software and associated documentation files (the "Software"), to deal
8 8 # in the Software without restriction, including without limitation the rights
9 9 # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 10 # copies of the Software, and to permit persons to whom the Software is
11 11 # furnished to do so, subject to the following conditions:
12 12 #
13 13 # The above copyright notice and this permission notice shall be included in
14 14 # all copies or substantial portions of the Software.
15 15 #
16 16 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 17 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 18 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19 19 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 20 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 21 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 22 # THE SOFTWARE.
23 23 #
24 24 # This is direct port of chinese.php
25 25 #
26 26 # Chinese PDF support.
27 27 #
28 28 # Usage is as follows:
29 29 #
30 30 # require 'fpdf'
31 31 # require 'chinese'
32 32 # pdf = FPDF.new
33 33 # pdf.extend(PDF_Chinese)
34 34 #
35 35 # This allows it to be combined with other extensions, such as the bookmark
36 36 # module.
37 37
38 38 module PDF_Chinese
39 39
40 40 Big5_widths={' '=>250,'!'=>250,'"'=>408,'#'=>668,'$'=>490,'%'=>875,'&'=>698,'\''=>250,
41 41 '('=>240,')'=>240,'*'=>417,'+'=>667,','=>250,'-'=>313,'.'=>250,'/'=>520,'0'=>500,'1'=>500,
42 42 '2'=>500,'3'=>500,'4'=>500,'5'=>500,'6'=>500,'7'=>500,'8'=>500,'9'=>500,':'=>250,';'=>250,
43 43 '<'=>667,'='=>667,'>'=>667,'?'=>396,'@'=>921,'A'=>677,'B'=>615,'C'=>719,'D'=>760,'E'=>625,
44 44 'F'=>552,'G'=>771,'H'=>802,'I'=>354,'J'=>354,'K'=>781,'L'=>604,'M'=>927,'N'=>750,'O'=>823,
45 45 'P'=>563,'Q'=>823,'R'=>729,'S'=>542,'T'=>698,'U'=>771,'V'=>729,'W'=>948,'X'=>771,'Y'=>677,
46 46 'Z'=>635,'['=>344,'\\'=>520,']'=>344,'^'=>469,'_'=>500,'`'=>250,'a'=>469,'b'=>521,'c'=>427,
47 47 'd'=>521,'e'=>438,'f'=>271,'g'=>469,'h'=>531,'i'=>250,'j'=>250,'k'=>458,'l'=>240,'m'=>802,
48 48 'n'=>531,'o'=>500,'p'=>521,'q'=>521,'r'=>365,'s'=>333,'t'=>292,'u'=>521,'v'=>458,'w'=>677,
49 49 'x'=>479,'y'=>458,'z'=>427,'{'=>480,'|'=>496,'}'=>480,'~'=>667}
50 50
51 51 GB_widths={' '=>207,'!'=>270,'"'=>342,'#'=>467,'$'=>462,'%'=>797,'&'=>710,'\''=>239,
52 52 '('=>374,')'=>374,'*'=>423,'+'=>605,','=>238,'-'=>375,'.'=>238,'/'=>334,'0'=>462,'1'=>462,
53 53 '2'=>462,'3'=>462,'4'=>462,'5'=>462,'6'=>462,'7'=>462,'8'=>462,'9'=>462,':'=>238,';'=>238,
54 54 '<'=>605,'='=>605,'>'=>605,'?'=>344,'@'=>748,'A'=>684,'B'=>560,'C'=>695,'D'=>739,'E'=>563,
55 55 'F'=>511,'G'=>729,'H'=>793,'I'=>318,'J'=>312,'K'=>666,'L'=>526,'M'=>896,'N'=>758,'O'=>772,
56 56 'P'=>544,'Q'=>772,'R'=>628,'S'=>465,'T'=>607,'U'=>753,'V'=>711,'W'=>972,'X'=>647,'Y'=>620,
57 57 'Z'=>607,'['=>374,'\\'=>333,']'=>374,'^'=>606,'_'=>500,'`'=>239,'a'=>417,'b'=>503,'c'=>427,
58 58 'd'=>529,'e'=>415,'f'=>264,'g'=>444,'h'=>518,'i'=>241,'j'=>230,'k'=>495,'l'=>228,'m'=>793,
59 59 'n'=>527,'o'=>524,'p'=>524,'q'=>504,'r'=>338,'s'=>336,'t'=>277,'u'=>517,'v'=>450,'w'=>652,
60 60 'x'=>466,'y'=>452,'z'=>407,'{'=>370,'|'=>258,'}'=>370,'~'=>605}
61 61
62 62 def AddCIDFont(family,style,name,cw,cMap,registry)
63 63 #ActionController::Base::logger.debug registry.to_a.join(":").to_s
64 64 fontkey=family.downcase+style.upcase
65 65 unless @fonts[fontkey].nil?
66 66 Error("Font already added: family style")
67 67 end
68 68 i=@fonts.length+1
69 69 name=name.gsub(' ','')
70 70 @fonts[fontkey]={'i'=>i,'type'=>'Type0','name'=>name,'up'=>-130,'ut'=>40,'cw'=>cw, 'CMap'=>cMap,'registry'=>registry}
71 71 end
72 72
73 73 def AddCIDFonts(family,name,cw,cMap,registry)
74 74 AddCIDFont(family,'',name,cw,cMap,registry)
75 75 AddCIDFont(family,'B',name+',Bold',cw,cMap,registry)
76 76 AddCIDFont(family,'I',name+',Italic',cw,cMap,registry)
77 77 AddCIDFont(family,'BI',name+',BoldItalic',cw,cMap,registry)
78 78 end
79 79
80 80 def AddBig5Font(family='Big5',name='MSungStd-Light-Acro')
81 81 #Add Big5 font with proportional Latin
82 82 cw=Big5_widths
83 83 cMap='ETenms-B5-H'
84 84 registry={'ordering'=>'CNS1','supplement'=>0}
85 85 #ActionController::Base::logger.debug registry.to_a.join(":").to_s
86 86 AddCIDFonts(family,name,cw,cMap,registry)
87 87 end
88 88
89 89 def AddBig5hwFont(family='Big5-hw',name='MSungStd-Light-Acro')
90 90 #Add Big5 font with half-witdh Latin
91 91 cw = {}
92 92 32.upto(126) do |i|
93 93 cw[i.chr]=500
94 94 end
95 95 cMap='ETen-B5-H'
96 96 registry={'ordering'=>'CNS1','supplement'=>0}
97 97 AddCIDFonts(family,name,cw,cMap,registry)
98 98 end
99 99
100 100 def AddGBFont(family='GB',name='STSongStd-Light-Acro')
101 101 #Add GB font with proportional Latin
102 102 cw=GB_widths
103 103 cMap='GBKp-EUC-H'
104 104 registry={'ordering'=>'GB1','supplement'=>2}
105 105 AddCIDFonts(family,name,cw,cMap,registry)
106 106 end
107 107
108 108 def AddGBhwFont(family='GB-hw',name='STSongStd-Light-Acro')
109 109 #Add GB font with half-width Latin
110 110 32.upto(126) do |i|
111 111 cw[i.chr]=500
112 112 end
113 113 cMap='GBK-EUC-H'
114 114 registry={'ordering'=>'GB1','supplement'=>2}
115 115 AddCIDFonts(family,name,cw,cMap,registry)
116 116 end
117 117
118 118 def GetStringWidth(s)
119 119 if(@current_font['type']=='Type0')
120 120 return GetMBStringWidth(s)
121 121 else
122 122 return super(s)
123 123 end
124 124 end
125 125
126 126 def GetMBStringWidth(s)
127 127 #Multi-byte version of GetStringWidth()
128 128 l=0
129 129 cw=@current_font['cw']
130 130 nb=s.length
131 131 i=0
132 132 while(i<nb)
133 133 c = s[i].is_a?(String) ? s[i].ord : s[i]
134 134 if(c<128)
135 135 l+=cw[c.chr] if cw[c.chr]
136 136 i+=1
137 137 else
138 138 l+=1000
139 139 i+=2
140 140 end
141 141 end
142 142 return l*@font_size/1000
143 143 end
144 144
145 def MultiCell(w,h,txt,border=0,align='L',fill=0)
145 def MultiCell(w,h,txt,border=0,align='L',fill=0,ln=1)
146 146 if(@current_font['type']=='Type0')
147 MBMultiCell(w,h,txt,border,align,fill)
147 MBMultiCell(w,h,txt,border,align,fill,ln)
148 148 else
149 super(w,h,txt,border,align,fill)
149 super(w,h,txt,border,align,fill,ln)
150 150 end
151 151 end
152 152
153 def MBMultiCell(w,h,txt,border=0,align='L',fill=0)
153 def MBMultiCell(w,h,txt,border=0,align='L',fill=0,ln=1)
154
155 # save current position
156 prevx = @x;
157 prevy = @y;
158
154 159 #Multi-byte version of MultiCell()
155 160 cw=@current_font['cw']
156 161 if(w==0)
157 162 w=@w-@r_margin-@x
158 163 end
159 164 wmax=(w-2*@c_margin)*1000/@font_size
160 165 s=txt.gsub("\r",'')
161 166 nb=s.length
162 167 if(nb>0 and s[nb-1]=="\n")
163 168 nb-=1
164 169 end
165 170 b=0
166 171 if(border)
167 172 if(border==1)
168 173 border='LTRB'
169 174 b='LRT'
170 175 b2='LR'
171 176 else
172 177 b2=''
173 178 b2='L' unless border.to_s.index('L').nil?
174 179 b2=b2+'R' unless border.to_s.index('R').nil?
175 180 b=(border.to_s.index('T')) ? (b2+'T') : b2
176 181 end
177 182 end
178 183 sep=-1
179 184 i=0
180 185 j=0
181 186 l=0
182 187 nl=1
183 188 while(i<nb)
184 189 #Get next character
185 190 c = s[i].is_a?(String) ? s[i].ord : s[i]
186 191 #Check if ASCII or MB
187 192 ascii=(c<128)
188 193 if(c.chr=="\n")
189 194 #Explicit line break
190 195 Cell(w,h,s[j,i-j],b,2,align,fill)
191 196 i+=1
192 197 sep=-1
193 198 j=i
194 199 l=0
195 200 nl+=1
196 201 if(border and nl==2)
197 202 b=b2
198 203 end
199 204 next
200 205 end
201 206 if(!ascii)
202 207 sep=i
203 208 ls=l
204 209 elsif(c.chr==' ')
205 210 sep=i
206 211 ls=l
207 212 end
208 213 l+=(ascii ? cw[c.chr] : 1000) || 0
209 214 if(l>wmax)
210 215 #Automatic line break
211 216 if(sep==-1 or i==j)
212 217 if(i==j)
213 218 i+=ascii ? 1 : 2
214 219 end
215 220 Cell(w,h,s[j,i-j],b,2,align,fill)
216 221 else
217 222 Cell(w,h,s[j,sep-j],b,2,align,fill)
218 223 i=(s[sep].chr==' ') ? sep+1 : sep
219 224 end
220 225 sep=-1
221 226 j=i
222 227 l=0
223 228 nl+=1
224 229 if(border and nl==2)
225 230 b=b2
226 231 end
227 232 else
228 233 i+=ascii ? 1 : 2
229 234 end
230 235 end
231 236 #Last chunk
232 237 if(border and not border.to_s.index('B').nil?)
233 238 b+='B'
234 239 end
235 240 Cell(w,h,s[j,i-j],b,2,align,fill)
241
242 # move cursor to specified position
243 if (ln == 1)
244 # go to the beginning of the next line
236 245 @x=@l_margin
246 elsif (ln == 0)
247 # go to the top-right of the cell
248 @y = prevy;
249 @x = prevx + w;
250 elsif (ln == 2)
251 # go to the bottom-left of the cell
252 @x = prevx;
253 end
237 254 end
238 255
239 def Write(h,txt,link='')
256 def Write(h,txt,link='',fill=0)
240 257 if(@current_font['type']=='Type0')
241 MBWrite(h,txt,link)
258 MBWrite(h,txt,link,fill)
242 259 else
243 super(h,txt,link)
260 super(h,txt,link,fill)
244 261 end
245 262 end
246 263
247 def MBWrite(h,txt,link)
264 def MBWrite(h,txt,link,fill=0)
248 265 #Multi-byte version of Write()
249 266 cw=@current_font['cw']
250 267 w=@w-@r_margin-@x
251 268 wmax=(w-2*@c_margin)*1000/@font_size
252 269 s=txt.gsub("\r",'')
253 270 nb=s.length
254 271 sep=-1
255 272 i=0
256 273 j=0
257 274 l=0
258 275 nl=1
259 276 while(i<nb)
260 277 #Get next character
261 278 c = s[i].is_a?(String) ? s[i].ord : s[i]
262 279 #Check if ASCII or MB
263 280 ascii=(c<128)
264 281 if(c.chr=="\n")
265 282 #Explicit line break
266 Cell(w,h,s[j,i-j],0,2,'',0,link)
283 Cell(w,h,s[j,i-j],0,2,'',fill,link)
267 284 i+=1
268 285 sep=-1
269 286 j=i
270 287 l=0
271 288 if(nl==1)
272 289 @x=@l_margin
273 290 w=@w-@r_margin-@x
274 291 wmax=(w-2*@c_margin)*1000/@font_size
275 292 end
276 293 nl+=1
277 294 next
278 295 end
279 296 if(!ascii or c.chr==' ')
280 297 sep=i
281 298 end
282 299 l+=(ascii ? cw[c.chr] : 1000) || 0
283 300 if(l>wmax)
284 301 #Automatic line break
285 302 if(sep==-1 or i==j)
286 303 if(@x>@l_margin)
287 304 #Move to next line
288 305 @x=@l_margin
289 306 @y+=h
290 307 w=@w-@r_margin-@x
291 308 wmax=(w-2*@c_margin)*1000/@font_size
292 309 i+=1
293 310 nl+=1
294 311 next
295 312 end
296 313 if(i==j)
297 314 i+=ascii ? 1 : 2
298 315 end
299 Cell(w,h,s[j,i-j],0,2,'',0,link)
316 Cell(w,h,s[j,i-j],0,2,'',fill,link)
300 317 else
301 Cell(w,h,s[j,sep-j],0,2,'',0,link)
318 Cell(w,h,s[j,sep-j],0,2,'',fill,link)
302 319 i=(s[sep].chr==' ') ? sep+1 : sep
303 320 end
304 321 sep=-1
305 322 j=i
306 323 l=0
307 324 if(nl==1)
308 325 @x=@l_margin
309 326 w=@w-@r_margin-@x
310 327 wmax=(w-2*@c_margin)*1000/@font_size
311 328 end
312 329 nl+=1
313 330 else
314 331 i+=ascii ? 1 : 2
315 332 end
316 333 end
317 334 #Last chunk
318 335 if(i!=j)
319 Cell(l/1000*@font_size,h,s[j,i-j],0,0,'',0,link)
336 Cell(l*@font_size/1000.0,h,s[j,i-j],0,0,'',fill,link)
320 337 end
321 338 end
322 339
323 340 private
324 341
325 342 def putfonts()
326 343 nf=@n
327 344 @diffs.each do |diff|
328 345 #Encodings
329 346 newobj()
330 347 out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['+diff+']>>')
331 348 out('endobj')
332 349 end
333 350 # mqr=get_magic_quotes_runtime()
334 351 # set_magic_quotes_runtime(0)
335 352 @font_files.each_pair do |file, info|
336 353 #Font file embedding
337 354 newobj()
338 355 @font_files[file]['n']=@n
339 356 if(defined('FPDF_FONTPATH'))
340 357 file=FPDF_FONTPATH+file
341 358 end
342 359 size=filesize(file)
343 360 if(!size)
344 361 Error('Font file not found')
345 362 end
346 363 out('<</Length '+size)
347 364 if(file[-2]=='.z')
348 365 out('/Filter /FlateDecode')
349 366 end
350 367 out('/Length1 '+info['length1'])
351 368 unless info['length2'].nil?
352 369 out('/Length2 '+info['length2']+' /Length3 0')
353 370 end
354 371 out('>>')
355 372 f=fopen(file,'rb')
356 373 putstream(fread(f,size))
357 374 fclose(f)
358 375 out('endobj')
359 376 end
360 377 #
361 378 # set_magic_quotes_runtime(mqr)
362 379 #
363 380 @fonts.each_pair do |k, font|
364 381 #Font objects
365 382 newobj()
366 383 @fonts[k]['n']=@n
367 384 out('<</Type /Font')
368 385 if(font['type']=='Type0')
369 386 putType0(font)
370 387 else
371 388 name=font['name']
372 389 out('/BaseFont /'+name)
373 390 if(font['type']=='core')
374 391 #Standard font
375 392 out('/Subtype /Type1')
376 393 if(name!='Symbol' and name!='ZapfDingbats')
377 394 out('/Encoding /WinAnsiEncoding')
378 395 end
379 396 else
380 397 #Additional font
381 398 out('/Subtype /'+font['type'])
382 399 out('/FirstChar 32')
383 400 out('/LastChar 255')
384 401 out('/Widths '+(@n+1)+' 0 R')
385 402 out('/FontDescriptor '+(@n+2)+' 0 R')
386 403 if(font['enc'])
387 404 if !font['diff'].nil?
388 405 out('/Encoding '+(nf+font['diff'])+' 0 R')
389 406 else
390 407 out('/Encoding /WinAnsiEncoding')
391 408 end
392 409 end
393 410 end
394 411 out('>>')
395 412 out('endobj')
396 413 if(font['type']!='core')
397 414 #Widths
398 415 newobj()
399 416 cw=font['cw']
400 417 s='['
401 418 32.upto(255) do |i|
402 419 s+=cw[i.chr]+' '
403 420 end
404 421 out(s+']')
405 422 out('endobj')
406 423 #Descriptor
407 424 newobj()
408 425 s='<</Type /FontDescriptor /FontName /'+name
409 426 font['desc'].each_pair do |k, v|
410 427 s+=' /'+k+' '+v
411 428 end
412 429 file=font['file']
413 430 if(file)
414 431 s+=' /FontFile'+(font['type']=='Type1' ? '' : '2')+' '+@font_files[file]['n']+' 0 R'
415 432 end
416 433 out(s+'>>')
417 434 out('endobj')
418 435 end
419 436 end
420 437 end
421 438 end
422 439
423 440 def putType0(font)
424 441 #Type0
425 442 out('/Subtype /Type0')
426 443 out('/BaseFont /'+font['name']+'-'+font['CMap'])
427 444 out('/Encoding /'+font['CMap'])
428 445 out('/DescendantFonts ['+(@n+1).to_s+' 0 R]')
429 446 out('>>')
430 447 out('endobj')
431 448 #CIDFont
432 449 newobj()
433 450 out('<</Type /Font')
434 451 out('/Subtype /CIDFontType0')
435 452 out('/BaseFont /'+font['name'])
436 453 out('/CIDSystemInfo <</Registry '+textstring('Adobe')+' /Ordering '+textstring(font['registry']['ordering'])+' /Supplement '+font['registry']['supplement'].to_s+'>>')
437 454 out('/FontDescriptor '+(@n+1).to_s+' 0 R')
438 455 if(font['CMap']=='ETen-B5-H')
439 456 w='13648 13742 500'
440 457 elsif(font['CMap']=='GBK-EUC-H')
441 458 w='814 907 500 7716 [500]'
442 459 else
443 460 # ActionController::Base::logger.debug font['cw'].keys.sort.join(' ').to_s
444 461 # ActionController::Base::logger.debug font['cw'].values.join(' ').to_s
445 462 w='1 ['
446 463 font['cw'].keys.sort.each {|key|
447 464 w+=font['cw'][key].to_s + " "
448 465 # ActionController::Base::logger.debug key.to_s
449 466 # ActionController::Base::logger.debug font['cw'][key].to_s
450 467 }
451 468 w +=']'
452 469 end
453 470 out('/W ['+w+']>>')
454 471 out('endobj')
455 472 #Font descriptor
456 473 newobj()
457 474 out('<</Type /FontDescriptor')
458 475 out('/FontName /'+font['name'])
459 476 out('/Flags 6')
460 477 out('/FontBBox [0 -200 1000 900]')
461 478 out('/ItalicAngle 0')
462 479 out('/Ascent 800')
463 480 out('/Descent -200')
464 481 out('/CapHeight 800')
465 482 out('/StemV 50')
466 483 out('>>')
467 484 out('endobj')
468 485 end
469 486 end
General Comments 0
You need to be logged in to leave comments. Login now