aDriv4 website!

Linux web1060.sh.fuk1 4.18.0-425.19.2.lve.el7h.x86_64 #1 SMP Thu Apr 6 13:40:55 UTC 2023 x86_64
Apache
127.0.0.1

File Name : Dumper.pm

package Font::TTF::Dumper;

=head1 NAME

Font::TTF::Dumper - Debug dump of a font datastructure, avoiding recursion on ' PARENT'

=head1 SYNOPSIS

Font::TTF::Dumper;
    
    # Print a table from the font structure:
    print ttfdump($font->{$tag});
    
    # Print font table with name
    print ttfdump($font->{'head'}, 'head');
    
    # Print one glyph's data:
    print ttfdump($font->{'loca'}->read->{'glyphs'}[$gid], "glyph_$gid");

=head1 DESCRIPTION

Font::TTF data structures are trees created from hashes and arrays. When trying to figure
out how the structures work, sometimes it is helpful to use Data::Dumper on them. However,
many of the object structures have ' PARENT' links that refer back to the object's parent,
which means that Data::Dumper ends up dumping the whole font no matter what.

The purpose of this module is to do just one thing: invoke Data::Dumper with a
filter that skips over the ' PARENT' element of any hash.

To reduce output further, this module also skips over ' CACHE' elements and any 
hash element whose value is a Font::TTF::Glyph or Font::TTF::Font object. 
(Really should make this configurable.)

=cut

use strict;
use Data::Dumper;

use vars qw(@EXPORT @ISA);
require Exporter;
@ISA = qw( Exporter );
@EXPORT = qw( ttfdump );

my %skip = ( Font => 1, Glyph => 1 );

sub ttfdump
{
    my ($var, $name) = @_;
    my $res;
    
    my $d = Data::Dumper->new([$var]);
    $d->Names([$name]) if defined $name;
    $d->Sortkeys(\&myfilter);   # This is the trick to keep from dumping the whole font
    $d->Indent(3);  # I want array indicies
    $d->Useqq(1);   # Perlquote -- slower but there might be binary data.
    $res = $d->Dump;
    $d->DESTROY;
    $res;
}

sub myfilter
{
    my ($hash) = @_;
    my @a = grep {
            ($_ eq ' PARENT' || $_ eq ' CACHE') ? 0 :
            ref($hash->{$_}) =~ m/^Font::TTF::(.*)$/ ? !$skip{$1} :
            1
        } (keys %{$hash}) ;
    # Sort numerically if that is reasonable:
    return [ sort {$a =~ /\D/ || $b =~ /\D/ ? $a cmp $b : $a <=> $b} @a ];
}

=head1 See also

L<Font::TTF::Font>

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-08-25 11:52:56
..	dir	-	root/root	0755	2023-08-25 11:53:16
Features	dir	-	root/root	0755	2023-08-25 11:52:56
Kern	dir	-	root/root	0755	2023-08-25 11:52:56
Mort	dir	-	root/root	0755	2023-08-25 11:52:56
Woff	dir	-	root/root	0755	2023-08-25 11:52:56
AATKern.pm	text/plain	2.71 KB	root/root	0644	2011-10-13 06:24:53
AATutils.pm	text/plain	22.71 KB	root/root	0644	2012-07-24 07:59:19
Anchor.pm	text/plain	4.62 KB	root/root	0644	2011-10-13 06:24:53
Bsln.pm	text/plain	3.52 KB	root/root	0644	2011-10-13 06:24:53
Changes	text/plain	2.17 KB	root/root	0644	2012-07-11 03:00:55
Cmap.pm	text/plain	20.09 KB	root/root	0644	2012-02-23 04:07:45
Coverage.pm	text/plain	7.93 KB	root/root	0644	2011-10-13 06:24:53
Cvt_.pm	text/plain	1.21 KB	root/root	0644	2011-10-13 06:24:53
DSIG.pm	text/plain	1.6 KB	root/root	0644	2011-10-13 06:24:53
Delta.pm	text/plain	3.19 KB	root/root	0644	2011-10-13 06:24:53
Dumper.pm	text/plain	2.06 KB	root/root	0644	2011-10-13 06:24:53
EBDT.pm	text/plain	6.86 KB	root/root	0644	2012-02-23 04:07:45
EBLC.pm	text/plain	6.01 KB	root/root	0644	2012-02-23 04:07:45
Fdsc.pm	text/plain	1.99 KB	root/root	0644	2011-10-13 06:24:53
Feat.pm	text/plain	4.07 KB	root/root	0644	2011-10-13 06:24:53
Fmtx.pm	text/plain	1.77 KB	root/root	0644	2011-10-13 06:24:53
Font.pm	text/plain	28.48 KB	root/root	0644	2012-08-08 08:21:54
Fpgm.pm	text/plain	1.48 KB	root/root	0644	2011-10-13 06:24:53
GDEF.pm	text/plain	12.8 KB	root/root	0644	2012-08-08 08:21:54
GPOS.pm	text/plain	20.44 KB	root/root	0644	2011-10-13 06:24:53
GSUB.pm	text/plain	6.69 KB	root/root	0644	2011-10-13 06:24:53
Glat.pm	text/plain	2.29 KB	root/root	0644	2012-07-24 07:59:19
Gloc.pm	text/plain	1.95 KB	root/root	0644	2012-07-24 07:59:19
Glyf.pm	text/plain	3.5 KB	root/root	0644	2012-02-23 04:07:46
Glyph.pm	text/plain	24.73 KB	root/root	0644	2012-08-08 08:21:54
GrFeat.pm	text/plain	6.81 KB	root/root	0644	2012-08-29 03:27:07
Hdmx.pm	text/plain	2.75 KB	root/root	0644	2012-02-23 04:07:46
Head.pm	text/plain	5.47 KB	root/root	0644	2012-08-21 05:13:44
Hhea.pm	text/plain	3.17 KB	root/root	0644	2011-10-13 06:24:53
Hmtx.pm	text/plain	4.42 KB	root/root	0644	2012-02-23 04:07:46
Kern.pm	text/plain	7.91 KB	root/root	0644	2012-02-23 04:07:46
LTSH.pm	text/plain	1.29 KB	root/root	0644	2012-02-23 04:07:46
Loca.pm	text/plain	4.54 KB	root/root	0644	2012-02-23 04:07:46
Manual.pod	text/html	8.75 KB	root/root	0644	2011-10-13 06:24:53
Maxp.pm	text/plain	3.79 KB	root/root	0644	2011-10-13 06:24:53
Mort.pm	text/plain	1.73 KB	root/root	0644	2011-10-13 06:24:53
Name.pm	text/plain	26.72 KB	root/root	0644	2012-07-24 08:00:56
OS_2.pm	text/plain	8.89 KB	root/root	0644	2012-05-17 09:30:56
OTTags.pm	text/plain	30.82 KB	root/root	0644	2011-10-13 06:24:53
OldCmap.pm	text/plain	9.47 KB	root/root	0644	2012-02-23 04:07:46
OldMort.pm	text/plain	25.32 KB	root/root	0644	2011-10-13 06:24:53
PCLT.pm	text/plain	2.12 KB	root/root	0644	2011-10-13 06:24:53
PSNames.pm	text/plain	132.59 KB	root/root	0644	2011-10-13 06:24:53
Post.pm	text/plain	9.15 KB	root/root	0644	2012-02-23 04:07:46
Prep.pm	text/plain	1.42 KB	root/root	0644	2011-10-13 06:24:53
Prop.pm	text/plain	3.09 KB	root/root	0644	2011-10-13 06:24:53
Segarr.pm	text/plain	9.35 KB	root/root	0644	2011-10-13 06:24:53
Silf.pm	text/plain	22.28 KB	root/root	0644	2012-05-19 04:29:56
Sill.pm	text/plain	2.73 KB	root/root	0644	2011-10-13 06:24:53
Table.pm	text/plain	9.81 KB	root/root	0644	2012-02-23 04:07:46
Ttc.pm	text/plain	3.66 KB	root/root	0644	2011-10-13 06:24:53
Ttopen.pm	text/plain	43 KB	root/root	0644	2012-08-08 08:21:54
Useall.pm	text/plain	1.62 KB	root/root	0644	2012-08-30 08:25:06
Utils.pm	text/plain	18.37 KB	root/root	0644	2012-05-23 07:09:14
Vhea.pm	text/plain	3.19 KB	root/root	0644	2011-10-13 06:24:53
Vmtx.pm	text/plain	1.48 KB	root/root	0644	2011-10-13 06:24:53
Woff.pm	text/plain	820 B	root/root	0644	2012-05-16 10:19:54
XMLparse.pm	text/plain	5.2 KB	root/root	0644	2011-10-13 06:24:53

For more Private tool come to me!

https://t.me/aDriv4vz