| … | |
… | |
| 15 | package CFPlus; |
15 | package CFPlus; |
| 16 | |
16 | |
| 17 | use Carp (); |
17 | use Carp (); |
| 18 | |
18 | |
| 19 | BEGIN { |
19 | BEGIN { |
| 20 | $VERSION = '0.9959'; |
20 | $VERSION = '0.9962'; |
| 21 | |
21 | |
| 22 | use XSLoader; |
22 | use XSLoader; |
| 23 | XSLoader::load "CFPlus", $VERSION; |
23 | XSLoader::load "CFPlus", $VERSION; |
| 24 | } |
24 | } |
| 25 | |
25 | |
| … | |
… | |
| 160 | or return; |
160 | or return; |
| 161 | |
161 | |
| 162 | local $/; |
162 | local $/; |
| 163 | my $CFG = <$fh>; |
163 | my $CFG = <$fh>; |
| 164 | |
164 | |
| 165 | if ($CFG =~ /^---/) { ## TODO compatibility cruft, remove |
|
|
| 166 | require YAML; |
|
|
| 167 | utf8::decode $CFG; |
|
|
| 168 | $::CFG = YAML::Load ($CFG); |
|
|
| 169 | } elsif ($CFG =~ /^\{/) { |
|
|
| 170 | $::CFG = decode_json $CFG; |
165 | $::CFG = decode_json $CFG; |
| 171 | } else { |
|
|
| 172 | $::CFG = eval $CFG; ## todo comaptibility cruft |
|
|
| 173 | } |
|
|
| 174 | } |
166 | } |
| 175 | |
167 | |
| 176 | sub write_cfg { |
168 | sub write_cfg { |
| 177 | my ($file) = @_; |
169 | my ($file) = @_; |
| 178 | |
170 | |
| … | |
… | |
| 236 | |
228 | |
| 237 | } |
229 | } |
| 238 | |
230 | |
| 239 | package CFPlus::Layout; |
231 | package CFPlus::Layout; |
| 240 | |
232 | |
|
|
233 | $CFPlus::OpenGL::INIT_HOOK{"CFPlus::Layout"} = sub { |
|
|
234 | glyph_cache_restore; |
|
|
235 | }; |
|
|
236 | |
| 241 | $CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Layout"} = sub { |
237 | $CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Layout"} = sub { |
| 242 | reset_glyph_cache; |
238 | glyph_cache_backup; |
| 243 | }; |
239 | }; |
| 244 | |
240 | |
| 245 | 1; |
241 | 1; |
| 246 | |
242 | |
| 247 | =back |
243 | =back |
