line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package PDF::Builder::FontManager; |
2
|
|
|
|
|
|
|
|
3
|
38
|
|
|
38
|
|
320
|
use strict; |
|
38
|
|
|
|
|
113
|
|
|
38
|
|
|
|
|
1278
|
|
4
|
38
|
|
|
38
|
|
219
|
use warnings; |
|
38
|
|
|
|
|
98
|
|
|
38
|
|
|
|
|
1975
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '3.025'; # VERSION |
7
|
|
|
|
|
|
|
our $LAST_UPDATE = '3.025'; # manually update whenever code is changed |
8
|
|
|
|
|
|
|
|
9
|
38
|
|
|
38
|
|
260
|
use Carp; |
|
38
|
|
|
|
|
85
|
|
|
38
|
|
|
|
|
2475
|
|
10
|
38
|
|
|
38
|
|
301
|
use Scalar::Util qw(weaken); |
|
38
|
|
|
|
|
142
|
|
|
38
|
|
|
|
|
162113
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# unless otherwise noted, routines beginning with _ are internal helper |
13
|
|
|
|
|
|
|
# functions and should not be used by others |
14
|
|
|
|
|
|
|
# |
15
|
|
|
|
|
|
|
# TBD (future) |
16
|
|
|
|
|
|
|
# spec use of synfont() against a base to get |
17
|
|
|
|
|
|
|
# fake bold, italic, bold+italic |
18
|
|
|
|
|
|
|
# small caps, perhaps petite caps |
19
|
|
|
|
|
|
|
# condensed and expanded (or via hscale()) |
20
|
|
|
|
|
|
|
# support for UTF-8 subfonts for single byte encoding fonts |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head1 NAME |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
PDF::Builder::FontManager - Managing the font library for PDF::Builder |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=head1 SYNOPSIS |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
These routines are called from the PDF::Builder class (see C
|
29
|
|
|
|
|
|
|
add_font()> methods). |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
# core fonts come pre-loaded |
32
|
|
|
|
|
|
|
# Add new a new font face and variants |
33
|
|
|
|
|
|
|
my $rc = $pdf->add_font( |
34
|
|
|
|
|
|
|
'face' => $unique_face_name, # font family, e.g., Times |
35
|
|
|
|
|
|
|
'type' => 'core', # note that core fonts preloaded |
36
|
|
|
|
|
|
|
'style' => 'serif', # also sans-serif, script (cursive), |
37
|
|
|
|
|
|
|
# and symbol |
38
|
|
|
|
|
|
|
'width' => 'proportional', # also constant |
39
|
|
|
|
|
|
|
'settings' => { 'encode' => $encoding }, |
40
|
|
|
|
|
|
|
# note that these are actual core font names rather than file paths |
41
|
|
|
|
|
|
|
'file' => { 'roman' => 'Times-Roman', |
42
|
|
|
|
|
|
|
'italic' => 'Times-Italic', |
43
|
|
|
|
|
|
|
'bold' => 'Times-Bold', |
44
|
|
|
|
|
|
|
'bold-italic' => 'Times-BoldItalic' }, |
45
|
|
|
|
|
|
|
# for non-core these would be the actual file paths |
46
|
|
|
|
|
|
|
# prefixed with font search paths |
47
|
|
|
|
|
|
|
); |
48
|
|
|
|
|
|
|
$rc = $pdf->add_font( |
49
|
|
|
|
|
|
|
'face' => 'DejaVuSans', # Deja Vu sans serif family |
50
|
|
|
|
|
|
|
'type' => 'ttf', # otf uses 'ttf' |
51
|
|
|
|
|
|
|
'style' => 'sans-serif', |
52
|
|
|
|
|
|
|
'width' => 'proportional', |
53
|
|
|
|
|
|
|
'settings' => { 'encode' => 'utf8' }, |
54
|
|
|
|
|
|
|
# the defined font paths will be prepended to find the actual path |
55
|
|
|
|
|
|
|
'file' => { 'roman' => 'DejaVuSans.ttf', |
56
|
|
|
|
|
|
|
'italic' => 'DejaVuSans-Oblique.ttf', |
57
|
|
|
|
|
|
|
'bold' => 'DejaVuSans-Bold.ttf', |
58
|
|
|
|
|
|
|
'bold-italic' => 'DejaVuSans-BoldOblique.ttf' } |
59
|
|
|
|
|
|
|
); |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
Some of the global data, which can be reset via the C method: |
62
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
* default-face: initialized to Times-Roman (core), used if you start |
64
|
|
|
|
|
|
|
formatting text without explicitly setting a face |
65
|
|
|
|
|
|
|
* default-serif: initialized to Times-Roman (core), used if you want |
66
|
|
|
|
|
|
|
a "generic" serif typeface |
67
|
|
|
|
|
|
|
* default-sansserif: initialized to Helvetica (core), used if you want |
68
|
|
|
|
|
|
|
a "generic" sans-serif typeface |
69
|
|
|
|
|
|
|
* default-constant: initialized to Courier (core), used if you want |
70
|
|
|
|
|
|
|
a "generic" constant-width typeface |
71
|
|
|
|
|
|
|
* default-script: NOT initialized (no default), used if you want |
72
|
|
|
|
|
|
|
a "generic" script (cursive) typeface |
73
|
|
|
|
|
|
|
* default-symbol initialized to Symbol (core), used if you want |
74
|
|
|
|
|
|
|
a "generic" symbol typeface |
75
|
|
|
|
|
|
|
* font-paths: C:/Windows/Fonts for Windows systems for TTF, other types |
76
|
|
|
|
|
|
|
are in non-standard paths, and for non-Windows, anything goes |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
Usage of C is to specify the face and variants, and then each time, |
79
|
|
|
|
|
|
|
specify I and I to be on or off. If the desired file is not yet |
80
|
|
|
|
|
|
|
opened, it will be, and the C<$font> returned. If the font was already |
81
|
|
|
|
|
|
|
created earlier, the saved C<$font> will be returned. |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
my $font = $pdf->get_font( |
84
|
|
|
|
|
|
|
'face' => 'Times', |
85
|
|
|
|
|
|
|
'italic' => 0, # desire Roman (upright) |
86
|
|
|
|
|
|
|
'bold' => 0, # desire medium weight |
87
|
|
|
|
|
|
|
); |
88
|
|
|
|
|
|
|
# if $font is undef, we have a problem... |
89
|
|
|
|
|
|
|
$text->font($font, $font_size); |
90
|
|
|
|
|
|
|
$text->... # use this font (medium weight Times-Roman core font) |
91
|
|
|
|
|
|
|
$font = $pdf->get_font('italic' => 1); |
92
|
|
|
|
|
|
|
$text->... # switched to italic |
93
|
|
|
|
|
|
|
$font = $pdf->get_font('italic' => 0); |
94
|
|
|
|
|
|
|
$text->... # back to Roman (upright) text |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
=head1 METHODS |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
=over |
99
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
=item PDF::Builder::FontManager->new(%opts) |
101
|
|
|
|
|
|
|
|
102
|
|
|
|
|
|
|
This is called from Builder.pm's C. Currently there are no options |
103
|
|
|
|
|
|
|
selectable. It will set up the font manager system and preload it with the |
104
|
|
|
|
|
|
|
core fonts. Various defaults will be set for the face (core Times-Roman), |
105
|
|
|
|
|
|
|
serif face (core Times-Roman), sans-serif face (core Helvetica), constant |
106
|
|
|
|
|
|
|
width (fixed pitch) face (core Courier), and a symbol font (core Symbol). |
107
|
|
|
|
|
|
|
There is no default for a script (cursive) font unless you set one using |
108
|
|
|
|
|
|
|
the C method. |
109
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
=cut |
111
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
sub new { |
113
|
217
|
|
|
217
|
1
|
554
|
my ($class, $pdf) = @_; |
114
|
|
|
|
|
|
|
|
115
|
217
|
|
|
|
|
660
|
my $self = bless { 'pdf' => $pdf }, $class; |
116
|
217
|
|
|
|
|
1152
|
weaken $self->{'pdf'}; |
117
|
|
|
|
|
|
|
#$pdf = $pdf->{'pdf'} if $pdf->isa('PDF::Builder'); |
118
|
|
|
|
|
|
|
#$class = ref($class) if ref($class); |
119
|
|
|
|
|
|
|
#my $self = $class->SUPER::new($pdf); |
120
|
217
|
|
|
|
|
501
|
$self->{' pdf'} = $pdf; |
121
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
# current font is default font until face explicitly changed. |
123
|
|
|
|
|
|
|
# Times face should be element 0 of the font-list array. |
124
|
217
|
|
|
|
|
930
|
$self->{' current-font'} = {'face' => 'Times', 'index' => 0, |
125
|
|
|
|
|
|
|
'italic' => 0, 'bold' => 0}; |
126
|
|
|
|
|
|
|
# just the face to use. index assumes standard core initialization |
127
|
217
|
|
|
|
|
701
|
$self->{' default-font'} = {'face' => 'Times', 'index' => 0}; |
128
|
217
|
|
|
|
|
634
|
$self->{' default-serif'} = {'face' => 'Times', 'index' => 0}; |
129
|
217
|
|
|
|
|
595
|
$self->{' default-sansserif'} = {'face' => 'Helvetica', 'index' => 1}; |
130
|
217
|
|
|
|
|
545
|
$self->{' default-constant'} = {'face' => 'Courier', 'index' => 2}; |
131
|
217
|
|
|
|
|
804
|
$self->{' default-symbol'} = {'face' => 'Symbol', 'index' => 3}; |
132
|
|
|
|
|
|
|
# no script font loaded by default |
133
|
217
|
|
|
|
|
617
|
$self->{' default-script'} = {'face' => undef, 'index' => -1}; |
134
|
217
|
|
|
|
|
506
|
$self->{' font-paths'} = []; |
135
|
|
|
|
|
|
|
|
136
|
217
|
|
|
|
|
448
|
$self->{' font-list'} = []; |
137
|
|
|
|
|
|
|
|
138
|
|
|
|
|
|
|
# For Windows, can at least initialize to TTF place. Any additional fonts |
139
|
|
|
|
|
|
|
# for Windows, and all non-Windows paths, will have to be added by the |
140
|
|
|
|
|
|
|
# user. Note that an absolute (starts with /) or semi-absolute (starts |
141
|
|
|
|
|
|
|
# with ./ or ../) font path/file will NOT have any search paths |
142
|
|
|
|
|
|
|
# prepended! |
143
|
217
|
|
|
|
|
372
|
push @{$self->{' font-paths'}}, $pdf->font_path(); |
|
217
|
|
|
|
|
844
|
|
144
|
|
|
|
|
|
|
# can add any additional paths, but better to do in Builder.pm |
145
|
|
|
|
|
|
|
|
146
|
217
|
|
|
|
|
838
|
$self->_initialize_core(); |
147
|
|
|
|
|
|
|
|
148
|
217
|
|
|
|
|
700
|
return $self; |
149
|
|
|
|
|
|
|
} # end of new() |
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
=item @list = $pdf->font_settings() # Get |
152
|
|
|
|
|
|
|
|
153
|
|
|
|
|
|
|
=item $pdf->font_settings(%info) # Set |
154
|
|
|
|
|
|
|
|
155
|
|
|
|
|
|
|
Get or set some information about fonts, particularly the fonts to be used for |
156
|
|
|
|
|
|
|
"generic" purposes. |
157
|
|
|
|
|
|
|
|
158
|
|
|
|
|
|
|
"Get" returns a list (array) of the default font face name, the default generic |
159
|
|
|
|
|
|
|
serif face, the default generic sans-serif face, the default generic constant |
160
|
|
|
|
|
|
|
width face, the default generic symbol face, and the default generic script |
161
|
|
|
|
|
|
|
(cursive) face. It is possible for an element to be undefined (e.g., the |
162
|
|
|
|
|
|
|
generic script face is C). |
163
|
|
|
|
|
|
|
|
164
|
|
|
|
|
|
|
"Set" changes one or more default settings: |
165
|
|
|
|
|
|
|
|
166
|
|
|
|
|
|
|
'font' => face to use for the default font face (initialized to Times) |
167
|
|
|
|
|
|
|
'serif' => face to use for the generic serif face (initialized to Times) |
168
|
|
|
|
|
|
|
'sans-serif' => face to use for the generic sans serif face |
169
|
|
|
|
|
|
|
(initialized to Helvetica) |
170
|
|
|
|
|
|
|
'constant' => face to use for the generic constant width face |
171
|
|
|
|
|
|
|
(initialized to Courier) |
172
|
|
|
|
|
|
|
'script' => face to use for the generic script face (uninitialized) |
173
|
|
|
|
|
|
|
'symbol' => face to use for the generic symbol face |
174
|
|
|
|
|
|
|
(initialized to Symbol) |
175
|
|
|
|
|
|
|
|
176
|
|
|
|
|
|
|
=cut |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
sub font_settings { |
179
|
0
|
|
|
0
|
1
|
0
|
my ($self, %info) = @_; |
180
|
|
|
|
|
|
|
|
181
|
0
|
0
|
|
|
|
0
|
if (!keys %info) { |
182
|
|
|
|
|
|
|
# Get default faces, nothing passed in |
183
|
|
|
|
|
|
|
return ( |
184
|
|
|
|
|
|
|
$self->{' default-font'}->{'face'}, |
185
|
|
|
|
|
|
|
$self->{' default-serif'}->{'face'}, |
186
|
|
|
|
|
|
|
$self->{' default-sansserif'}->{'face'}, |
187
|
|
|
|
|
|
|
$self->{' default-constant'}->{'face'}, |
188
|
|
|
|
|
|
|
$self->{' default-script'}->{'face'}, |
189
|
0
|
|
|
|
|
0
|
$self->{' default-symbol'}->{'face'}, |
190
|
|
|
|
|
|
|
); |
191
|
|
|
|
|
|
|
} |
192
|
|
|
|
|
|
|
|
193
|
|
|
|
|
|
|
# Set default info from %info passed in |
194
|
|
|
|
|
|
|
# also check if face exists, and at same time pick up the index value |
195
|
0
|
|
|
|
|
0
|
my $index; |
196
|
0
|
0
|
|
|
|
0
|
if (defined $info{'font'}) { |
197
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'font'}); |
198
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
199
|
0
|
|
|
|
|
0
|
$self->{' default-font'}->{'face'} = $info{'font'}; |
200
|
0
|
|
|
|
|
0
|
$self->{' default-font'}->{'index'} = $index; |
201
|
|
|
|
|
|
|
} else { |
202
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'font'}. ignored."; |
203
|
|
|
|
|
|
|
} |
204
|
|
|
|
|
|
|
} |
205
|
0
|
0
|
|
|
|
0
|
if (defined $info{'serif'}) { |
206
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'serif'}); |
207
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
208
|
0
|
|
|
|
|
0
|
$self->{' default-serif'}->{'face'} = $info{'serif'}; |
209
|
0
|
|
|
|
|
0
|
$self->{' default-serif'}->{'index'} = $index; |
210
|
|
|
|
|
|
|
} else { |
211
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'serif'}. ignored."; |
212
|
|
|
|
|
|
|
} |
213
|
|
|
|
|
|
|
} |
214
|
0
|
0
|
|
|
|
0
|
if (defined $info{'sans-serif'}) { |
215
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'sans-serif'}); |
216
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
217
|
0
|
|
|
|
|
0
|
$self->{' default-sansserif'}->{'face'} = $info{'sans-serif'}; |
218
|
0
|
|
|
|
|
0
|
$self->{' default-sansserif'}->{'index'} = $index; |
219
|
|
|
|
|
|
|
} else { |
220
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'sans-serif'}. ignored."; |
221
|
|
|
|
|
|
|
} |
222
|
|
|
|
|
|
|
} |
223
|
0
|
0
|
|
|
|
0
|
if (defined $info{'constant'}) { |
224
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'constant'}); |
225
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
226
|
0
|
|
|
|
|
0
|
$self->{' default-constant'}->{'face'} = $info{'constant'}; |
227
|
0
|
|
|
|
|
0
|
$self->{' default-constant'}->{'index'} = $index; |
228
|
|
|
|
|
|
|
} else { |
229
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'constant'}. ignored."; |
230
|
|
|
|
|
|
|
} |
231
|
|
|
|
|
|
|
} |
232
|
0
|
0
|
|
|
|
0
|
if (defined $info{'script'}) { |
233
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'script'}); |
234
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
235
|
0
|
|
|
|
|
0
|
$self->{' default-script'}->{'face'} = $info{'script'}; |
236
|
0
|
|
|
|
|
0
|
$self->{' default-script'}->{'index'} = $index; |
237
|
|
|
|
|
|
|
} else { |
238
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'script'}. ignored."; |
239
|
|
|
|
|
|
|
} |
240
|
|
|
|
|
|
|
} |
241
|
0
|
0
|
|
|
|
0
|
if (defined $info{'symbol'}) { |
242
|
0
|
|
|
|
|
0
|
$index = $self->_face2index($info{'symbol'}); |
243
|
0
|
0
|
|
|
|
0
|
if ($index >= 0) { |
244
|
0
|
|
|
|
|
0
|
$self->{' default-symbol'}->{'face'} = $info{'symbol'}; |
245
|
0
|
|
|
|
|
0
|
$self->{' default-symbol'}->{'index'} = $index; |
246
|
|
|
|
|
|
|
} else { |
247
|
0
|
|
|
|
|
0
|
carp "font_settings can't find face $info{'symbol'}. ignored."; |
248
|
|
|
|
|
|
|
} |
249
|
|
|
|
|
|
|
} |
250
|
|
|
|
|
|
|
|
251
|
0
|
|
|
|
|
0
|
return; |
252
|
|
|
|
|
|
|
} |
253
|
|
|
|
|
|
|
|
254
|
|
|
|
|
|
|
=item $rc = $pdf->add_font_path("a directory path", %opts) |
255
|
|
|
|
|
|
|
|
256
|
|
|
|
|
|
|
This method adds one search path to the list of paths to search. In the |
257
|
|
|
|
|
|
|
C method, each defined search path will be prepended to the C |
258
|
|
|
|
|
|
|
entry (except for core fonts) in turn, until the font file is found. However, |
259
|
|
|
|
|
|
|
if the C entry starts with / or ./ or ../, it will be used alone. |
260
|
|
|
|
|
|
|
A C entry starting with .../ is a special case, which is turned into ../ |
261
|
|
|
|
|
|
|
before the search path is prepended. This permits you to give a search path |
262
|
|
|
|
|
|
|
that you expect to move up one or more directories. |
263
|
|
|
|
|
|
|
|
264
|
|
|
|
|
|
|
The font path search list always includes the current directory (.), and is |
265
|
|
|
|
|
|
|
initialized in C as C<@font_path>. For the |
266
|
|
|
|
|
|
|
Windows operating system, C usually contains a number of TTF |
267
|
|
|
|
|
|
|
fonts that come standard with Windows, so it is added by default. Anything |
268
|
|
|
|
|
|
|
else, including all Linux (and other non-Windows operating systems), will have |
269
|
|
|
|
|
|
|
to be added depending on your particular system. Some common places are: |
270
|
|
|
|
|
|
|
|
271
|
|
|
|
|
|
|
Windows (B use / and not \\ in Windows paths!). Linux systems may or |
272
|
|
|
|
|
|
|
may not handle spaces in directory names gracefully! |
273
|
|
|
|
|
|
|
|
274
|
|
|
|
|
|
|
/Windows/Fonts |
275
|
|
|
|
|
|
|
/WinNT/Fonts |
276
|
|
|
|
|
|
|
/Program Files/MikTex 2.9/fonts/type1/urw/bookman (URW Bookman for MikTex) |
277
|
|
|
|
|
|
|
/Program Files (x86)/MikTex 2.9/fonts/type1/urw/bookman (older versions) |
278
|
|
|
|
|
|
|
/Program Files/Adobe/Acrobat DC/Resource/CIDFont (Adobe Reader fonts) |
279
|
|
|
|
|
|
|
GhostScript may have its own directories |
280
|
|
|
|
|
|
|
|
281
|
|
|
|
|
|
|
Note that directory names with spaces (e.g., C) may not play |
282
|
|
|
|
|
|
|
nice with some Linux systems, so they are not included by default. |
283
|
|
|
|
|
|
|
|
284
|
|
|
|
|
|
|
Linux, etc. |
285
|
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
/usr/share/fonts (common base) |
287
|
|
|
|
|
|
|
/usr/local/share/fonts (common base) |
288
|
|
|
|
|
|
|
/usr/share/fonts/dejavu-sans-fonts (Deja Vu Sans TTF specifically) |
289
|
|
|
|
|
|
|
/usr/share/fonts/truetype/ttf-dejavu |
290
|
|
|
|
|
|
|
/usr/share/fonts/truetype/dejavu |
291
|
|
|
|
|
|
|
/usr/lib/defoma/gs.d/devs/fonts (GhostScript?) |
292
|
|
|
|
|
|
|
/usr/share/fonts/type1/gsfonts (GhostScript PS) |
293
|
|
|
|
|
|
|
/usr/share/X11/fonts/urw-fonts (URW PS) |
294
|
|
|
|
|
|
|
|
295
|
|
|
|
|
|
|
Third-party application installations, such as Adobe's Acrobat Reader, may be |
296
|
|
|
|
|
|
|
a source of installed fonts, too. |
297
|
|
|
|
|
|
|
|
298
|
|
|
|
|
|
|
A return code of 0 means the path was successfully added, while 1 means there |
299
|
|
|
|
|
|
|
was a problem encountered (and a message was issued). |
300
|
|
|
|
|
|
|
|
301
|
|
|
|
|
|
|
No options are currently defined. |
302
|
|
|
|
|
|
|
|
303
|
|
|
|
|
|
|
=cut |
304
|
|
|
|
|
|
|
|
305
|
|
|
|
|
|
|
sub add_font_path { |
306
|
0
|
|
|
0
|
1
|
0
|
my ($self, $newpath, %opts) = @_; |
307
|
|
|
|
|
|
|
|
308
|
0
|
|
|
|
|
0
|
my $rc = 0; # OK so far! |
309
|
|
|
|
|
|
|
|
310
|
|
|
|
|
|
|
# TBD: consider validating that this $newpath exists? |
311
|
|
|
|
|
|
|
# will not be using until actually attempt to open the file! |
312
|
0
|
|
|
|
|
0
|
push @{ $self->{' font-paths'} }, $newpath; |
|
0
|
|
|
|
|
0
|
|
313
|
|
|
|
|
|
|
|
314
|
0
|
|
|
|
|
0
|
return $rc; |
315
|
|
|
|
|
|
|
} # end of add_font_path() |
316
|
|
|
|
|
|
|
|
317
|
|
|
|
|
|
|
=item $rc = add_font(%info) |
318
|
|
|
|
|
|
|
|
319
|
|
|
|
|
|
|
Add a new font entry (by face and variants) to the Font Manager's list of |
320
|
|
|
|
|
|
|
known fonts. |
321
|
|
|
|
|
|
|
|
322
|
|
|
|
|
|
|
C<%info> items to be defined: |
323
|
|
|
|
|
|
|
|
324
|
|
|
|
|
|
|
=over |
325
|
|
|
|
|
|
|
|
326
|
|
|
|
|
|
|
=item face => 'face name' |
327
|
|
|
|
|
|
|
|
328
|
|
|
|
|
|
|
This should be a unique string to identify just one entry in the Font |
329
|
|
|
|
|
|
|
Manager fonts table. I.e., you should not have two "Times" (one a core font |
330
|
|
|
|
|
|
|
and the other a TTF font). Give them different names (face names are case |
331
|
|
|
|
|
|
|
I, so 'Times' is different from 'times'). The C name is |
332
|
|
|
|
|
|
|
used to retrieve the desired font. |
333
|
|
|
|
|
|
|
|
334
|
|
|
|
|
|
|
=item type => 'type string' |
335
|
|
|
|
|
|
|
|
336
|
|
|
|
|
|
|
This tells which Builder font routine to use to load the font. The allowed |
337
|
|
|
|
|
|
|
entries are: |
338
|
|
|
|
|
|
|
|
339
|
|
|
|
|
|
|
=over |
340
|
|
|
|
|
|
|
|
341
|
|
|
|
|
|
|
=item B |
342
|
|
|
|
|
|
|
|
343
|
|
|
|
|
|
|
This is a core font, and is loaded via the C routine. Note that |
344
|
|
|
|
|
|
|
the core fonts are automatically pre-loaded (including additional ones on |
345
|
|
|
|
|
|
|
Windows systems), so you should not need to explicitly load any core fonts |
346
|
|
|
|
|
|
|
(at least, the 14 basic ones). All PDF installation are supposed to include |
347
|
|
|
|
|
|
|
these 14 basic core fonts, but the precise actual file type may vary among |
348
|
|
|
|
|
|
|
installations, and substitutions may be made (so long as the metrics match). |
349
|
|
|
|
|
|
|
Currently, core fonts are limited to single byte encodings. |
350
|
|
|
|
|
|
|
|
351
|
|
|
|
|
|
|
On Windows systems, there are an additional 14 core fonts which are normally |
352
|
|
|
|
|
|
|
loaded. These are Georgia, Verdana, Trebuchet, Wingdings, and Webdings faces. |
353
|
|
|
|
|
|
|
Use caution if making use of these additional core fonts, as non-Windows |
354
|
|
|
|
|
|
|
systems may not include them without explicit manual installation of these |
355
|
|
|
|
|
|
|
fonts. These fonts may be safe to use if you know that all your PDF readers |
356
|
|
|
|
|
|
|
will be running on Windows systems. |
357
|
|
|
|
|
|
|
|
358
|
|
|
|
|
|
|
=item B |
359
|
|
|
|
|
|
|
|
360
|
|
|
|
|
|
|
This is a TrueType (.ttf) or OpenType (.otf) font, loaded with C. |
361
|
|
|
|
|
|
|
Currently this is the only |
362
|
|
|
|
|
|
|
type which can be used with multibyte (e.g., I) encodings, as well as |
363
|
|
|
|
|
|
|
with single byte encodings such as I. It is also the only font type |
364
|
|
|
|
|
|
|
that can be used with HarfBuzz::Shaper. Many systems include a number of TTF |
365
|
|
|
|
|
|
|
fonts, but unlike core fonts, none are automatically loaded by the PDF::Builder |
366
|
|
|
|
|
|
|
Font Manager, and must be explicitly loaded via C. |
367
|
|
|
|
|
|
|
|
368
|
|
|
|
|
|
|
=item B |
369
|
|
|
|
|
|
|
|
370
|
|
|
|
|
|
|
This is a PostScript (Type1) font, loaded with C, which used to be |
371
|
|
|
|
|
|
|
quite commonly used, but is |
372
|
|
|
|
|
|
|
fairly rarely used today, having mostly been supplanted by the more capable |
373
|
|
|
|
|
|
|
TTF format. Some systems may include some Type1 fonts, but Windows, |
374
|
|
|
|
|
|
|
for example, does not normally come with any. No Type1 fonts are automatically |
375
|
|
|
|
|
|
|
loaded by the PDF::Builder Font Manager, and must be explicitly loaded via |
376
|
|
|
|
|
|
|
C. |
377
|
|
|
|
|
|
|
|
378
|
|
|
|
|
|
|
It is assumed that the font metrics file (.afm or .pfm) has the same base file |
379
|
|
|
|
|
|
|
name as the glyph file (.pfa or .pfb), is found in the same directory, I |
380
|
|
|
|
|
|
|
either can work with either. |
381
|
|
|
|
|
|
|
If you have need for a different directory, a different base name, or a |
382
|
|
|
|
|
|
|
specific metrics file to go with a specific glyph file, let us know, so we can |
383
|
|
|
|
|
|
|
add such functionality. Otherwise, you will need to directly use the C |
384
|
|
|
|
|
|
|
method in order to specify such different paths. |
385
|
|
|
|
|
|
|
|
386
|
|
|
|
|
|
|
=item B |
387
|
|
|
|
|
|
|
|
388
|
|
|
|
|
|
|
This is an East Asian (Chinese-Japanese-Korean) type font, loaded with the |
389
|
|
|
|
|
|
|
C method. Note that CJK fonts |
390
|
|
|
|
|
|
|
have never been well supported by PDF::Builder, and depend on some fairly old |
391
|
|
|
|
|
|
|
(obsolete) features and external files (.cmap and .data). We suggest that, |
392
|
|
|
|
|
|
|
rather than going directly to CJK files, you first try directly using the |
393
|
|
|
|
|
|
|
(usually) TTF files, in the TTF format. Few systems come with CJK fonts |
394
|
|
|
|
|
|
|
installed. No CJK fonts are automatically loaded by the PDF::Builder Font |
395
|
|
|
|
|
|
|
Manager, and must be explicitly loaded via C. |
396
|
|
|
|
|
|
|
|
397
|
|
|
|
|
|
|
=item B |
398
|
|
|
|
|
|
|
|
399
|
|
|
|
|
|
|
This is an Adobe Bitmap Distribution Format font, loaded with the C |
400
|
|
|
|
|
|
|
method, a very old bitmapped format |
401
|
|
|
|
|
|
|
dating back to the early days of the X11 system. Unlike the filled smooth |
402
|
|
|
|
|
|
|
outlines used in most modern fonts, BDF's are a coarse grid of on/off pixels. |
403
|
|
|
|
|
|
|
Please be kind to your readers and use this format sparingly, such as only for |
404
|
|
|
|
|
|
|
chapter titles or headings! Few systems come with BDF fonts installed any more. |
405
|
|
|
|
|
|
|
No BDF fonts are automatically loaded by the PDF::Builder Font Manager, and |
406
|
|
|
|
|
|
|
must be explicitly loaded via C. |
407
|
|
|
|
|
|
|
|
408
|
|
|
|
|
|
|
=back |
409
|
|
|
|
|
|
|
|
410
|
|
|
|
|
|
|
=item settings => { 'encode' => string, ... } |
411
|
|
|
|
|
|
|
|
412
|
|
|
|
|
|
|
This is a collection of any other settings, flags, etc. accepted by this |
413
|
|
|
|
|
|
|
particular font type. See the POD for C, C, etc. (per |
414
|
|
|
|
|
|
|
I for the allowable entries. An important one will be the encoding, |
415
|
|
|
|
|
|
|
which you will need to specify, if you use any characters beyond basic ASCII. |
416
|
|
|
|
|
|
|
|
417
|
|
|
|
|
|
|
Currently, all fonts may use any single byte encoding you |
418
|
|
|
|
|
|
|
desire (the default is I). Only TTF type fonts (which includes OTF and |
419
|
|
|
|
|
|
|
CJK fonts) may currently specify a multibyte encoding such as I. Needless |
420
|
|
|
|
|
|
|
to say, the text data that you pass to text routines must conform to the given |
421
|
|
|
|
|
|
|
encoding. You are I forced to use the same encoding for all defined fonts, |
422
|
|
|
|
|
|
|
but if you wish to mix-and-match encodings, it is up to you to define your |
423
|
|
|
|
|
|
|
text that uses the encoding specified for the particular font used! |
424
|
|
|
|
|
|
|
|
425
|
|
|
|
|
|
|
Note in particular when you use I that (if numeric) they are given |
426
|
|
|
|
|
|
|
in the Unicode number. When out of the single byte range (x00-xFF), results are |
427
|
|
|
|
|
|
|
unpredictable if you give an entity that does not fall within the encoding's |
428
|
|
|
|
|
|
|
range! Also check results for Unicode points within the range x80-xFF if you |
429
|
|
|
|
|
|
|
are using I encoding. |
430
|
|
|
|
|
|
|
|
431
|
|
|
|
|
|
|
=item style => 'styling' |
432
|
|
|
|
|
|
|
|
433
|
|
|
|
|
|
|
This specifies the styling of the font: B, B, B |
434
|
|
|
|
|
|
|
(constant width, or fixed pitch), B |