Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Font /
TTF /
Kern /
[ HOME SHELL ]
Name
Size
Permission
Action
ClassArray.pm
3.18
KB
-rw-r--r--
CompactClassArray.pm
1.26
KB
-rw-r--r--
OrderedList.pm
2.09
KB
-rw-r--r--
StateTable.pm
2.96
KB
-rw-r--r--
Subtable.pm
3.62
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : OrderedList.pm
package Font::TTF::Kern::OrderedList; =head1 NAME Font::TTF::Kern::OrderedList - Ordered List Kern subtable for AAT =head1 METHODS =cut use strict; use vars qw(@ISA); use Font::TTF::Utils; use Font::TTF::AATutils; @ISA = qw(Font::TTF::Kern::Subtable); sub new { my ($class, @options) = @_; my ($self) = {}; $class = ref($class) || $class; bless $self, $class; } =head2 $t->read Reads the table into memory =cut sub read { my ($self, $fh) = @_; my $dat; $fh->read($dat, 8); my ($nPairs, $searchRange, $entrySelector, $rangeShift) = unpack("nnnn", $dat); my $pairs = []; foreach (1 .. $nPairs) { $fh->read($dat, 6); my ($left, $right, $kern) = TTF_Unpack("SSs", $dat); push @$pairs, { 'left' => $left, 'right' => $right, 'kern' => $kern } if $kern != 0; } $self->{'kernPairs'} = $pairs; $self; } =head2 $t->out_sub($fh) Writes the table to a file =cut sub out_sub { my ($self, $fh) = @_; my $pairs = $self->{'kernPairs'}; $fh->print(pack("nnnn", TTF_bininfo(scalar @$pairs, 6))); foreach (sort { $a->{'left'} <=> $b->{'left'} or $a->{'right'} <=> $b->{'right'} } @$pairs) { $fh->print(TTF_Pack("SSs", $_->{'left'}, $_->{'right'}, $_->{'kern'})); } } =head2 $t->print($fh) Prints a human-readable representation of the table =cut sub out_xml { my ($self, $context, $depth, $k, $val) = @_; my ($fh) = $context->{'fh'}; my $postVal = $self->post()->{'VAL'}; $fh = 'STDOUT' unless defined $fh; foreach (@{$self->{'kernPairs'}}) { $fh->printf("$depth$context->{'indent'}<pair l=\"%s\" r=\"%s\" v=\"%s\"/>\n", $postVal->[$_->{'left'}], $postVal->[$_->{'right'}], $_->{'kern'}); } } sub type { return 'kernOrderedList'; } 1; =head1 BUGS None known =head1 AUTHOR Jonathan Kew L<http://scripts.sil.org/FontUtils>. =head1 LICENSING Copyright (c) 1998-2016, SIL International (http://www.sil.org) This module is released under the terms of the Artistic License 2.0. For details, see the full text of the license in the file LICENSE. =cut
Close