The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

UTASHIRO / App-ansiexpand-1.06 / lib / App / ansiexpand.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
—
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

              
package App::ansiexpand;
our $VERSION = "1.06";
use 5.014;
use warnings;
use open IO => 'utf8', ':std';
use Encode;
use Pod::Usage;
use Data::Dumper;
use List::Util qw(max);
use Text::ANSI::Tabs qw(ansi_expand ansi_unexpand);
our $DEFAULT_UNEXPAND;
use Getopt::EX::Hashed 1.05; {
    Getopt::EX::Hashed->configure(DEFAULT => [ is => 'rw' ]);
    has unexpand  => ' u  !   ' , default => $DEFAULT_UNEXPAND;
    has all       => ' a      ' , default => 1;
    has zap       => ' z      ' ;
    has minimum   => ' x  :1  ' ;
    has ambiguous => '    =s  ' , any => [ qw(wide narrow) ];
    has tabstop   => ' t  =i  ' , min => 1;
    has tabhead   => '    =s  ' ;
    has tabspace  => '    =s  ' ;
    has tabstyle  => ' ts :s  ' ;
    has help      => ' h      ' ;
    has version   => ' v      ' ;
    has [ qw(+minimum +tabstop +tabhead +tabspace +tabstyle) ] => sub {
        my($name, $val) = ("$_[0]", $_[1]);
        if ($name eq 'tabstyle' and $val eq '') {
            list_tabstyle();
            exit;
        }
        $_->$name = $val;
        Text::ANSI::Tabs->configure($name => $val);
    };
    has '+help' => sub {
        pod2usage
            -verbose  => 99,
            -sections => [ qw(SYNOPSIS VERSION) ];
    };
    has '+version' => sub {
        print "Version: $VERSION\n";
        exit;
    };
    has ARGV => default => [];
    has '<>' => sub {
        if ($_[0] =~ /^-([0-9]+)$/x) {
            $_->tabstop = $1 or die "$_[0]: invalid tabstop\n";
            Text::ANSI::Tabs->configure(tabstop => $1);
        } else {
            if ($_[0] =~ /^-{1,2}+(.+)/) {
                warn "Unknown option: $1\n";
                pod2usage();
            }
            push @{$_->ARGV}, $_[0];
        }
    };
} no Getopt::EX::Hashed;
sub run {
    my $app = shift;
    local @ARGV = map { utf8::is_utf8($_) ? $_ : decode('utf8', $_)  } @_;
    use Getopt::EX::Long qw(:DEFAULT ExConfigure Configure);
    ExConfigure BASECLASS => [ __PACKAGE__, 'Getopt::EX' ];
    Configure qw(bundling pass_through);
    $app->getopt || pod2usage();
    @ARGV = @{$app->ARGV};
    my $action = $app->unexpand ? \&ansi_unexpand : \&ansi_expand;
    local $/ = $app->zap ? undef : $/;
    while (<>) {
        print $action->($_);
    }
    return 0;
}
sub list_tabstyle {
    my %style = %Text::ANSI::Fold::TABSTYLE;
    my $max = max map length, keys %style;
    for my $name (sort keys %style) {
        my($head, $space) = @{$style{$name}};
        my $tab = $head . $space x 7;
        printf "%*s %s\n", $max, $name, $tab x 3;
    }
}
1;
__END__
=encoding utf-8
=head1 NAME
ansiexpand, ansiunexpand - ANSI sequence aware tab expand/unexpand command
=head1 VERSION
Version 1.06
=head1 DESCRIPTION
Documentation is included in the script file.
=head1 AUTHOR
Kazumasa Utashiro
=head1 LICENSE
Copyright 2021-2024 Kazumasa Utashiro.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut