File Coverage

blib/lib/App/optex/xform.pm

Criterion	Covered	Total	%
statement	26	48	54.1
branch	0	10	0.0
condition			n/a
subroutine	9	11	81.8
pod	0	2	0.0
total	35	71	49.3

package App::optex::xform;

our $VERSION = "1.04";

=encoding utf-8

=head1 NAME

xform - data transform filter module for optex

=head1 SYNOPSIS

    optex -Mxform

=head1 DESCRIPTION

B is a filter module for B command which transform STDIN
into different form to make it convenient to manipulate, and recover
to the original form after the process.

Transformed data have to be appear in exactly same order as original
data.

=head1 OPTION

=over 7

=item B<--xform-ansi>

Transform ANSI terminal sequence into printable string, and recover.

=item B<--xform-utf8>

Transform multibyte Non-ASCII chracters into single-byte sequene, and
recover.

=back

=head1 EXAMPLE

    $ jot 100 | egrep --color=always .+ | optex column -Mxform --xform-ansi -x

=head1 SEE ALSO

L, L,

L, L,
L

L

=head1 AUTHOR

Kazumasa Utashiro

=head1 LICENSE

Copyright 2020-2022 Kazumasa Utashiro.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

use v5.14;
use warnings;
use Carp;
use utf8;
use open IO => 'utf8', ':std';
use Data::Dumper;

use Text::Conceal;
use Text::VisualWidth::PP qw(vwidth);
use Text::ANSI::Fold::Util qw(ansi_width);

my %concealer;

my %param = (
    ansi => {
	length  => \&ansi_width,
	match   => qr/\e\[.*?(?:\e\[0*m)+(?:\e\[0*K)*/,
	visible => 2,
    },
    utf8 => {
	length  => \&vwidth,
	match   => qr/\P{ASCII}+/,
	visible => 2,
    },
    );

sub encode {
    my %arg = @_;
    my $mode = $arg{mode};
    my $param = $param{$mode} or die "$mode: unkown mode\n";
    my $conceal = Text::Conceal->new(%$param);
    $concealer{$mode} and die "$mode: encoding repeated\n";
    local $_ = do { local $/; <> };
    if ($conceal) {
	$conceal->encode($_);
	$concealer{$mode} = $conceal;
    }
    return $_;
}

sub decode {
    my %arg = @_;
    my $mode = $arg{mode};
    $param{$mode} or die "$arg{mode}: unkown mode\n";
    local $_ = do { local $/; <> };
    if (my $conceal = $concealer{$mode}) {
	$conceal->decode($_);
    } else {
	die "$mode: not encoded\n";
    }
    print $_;
}

1;

__DATA__