view release on metacpan or  search on metacpan

lib/App/Greple/charcode.pm  view on Meta::CPAN

    push @s, sprintf qw'  nfkc=%s  ' , nfkc     if $config->{nfkc};
    push @s, sprintf qw'  code=%s  ' , charcode if $config->{code};
    push @s, sprintf qw'  name=%s  ' , charname if $config->{name};
    join "\N{NBSP}", @s;
}

$App::Greple::annotate::ANNOTATE = \&describe;

1;

__DATA__

option default \
    -Mannotate \
    --need=1 \
    --fs=once --ls=separate $<move>

option --charcode::config \
    --prologue &__PACKAGE__::config($<shift>)

option --config --charcode::config

option --surrogate -E '[\N{U+10000}-\N{U+10FFFF}]'

define \p{CombinedChar} \p{Format}\p{Mark}
define \p{Combined}     [\p{CombinedChar}]
define \p{Base}         [^\p{CombinedChar}]

option --composite -E '(?#composite)(\p{Base})(\p{Combined}+)'

option --decomposition-type -E '(?#canonical)\p{Decomposition_Type=$<shift>}'
option --dt --decomposition-type

option --precomposed --decomposition-type=Canonical
option --noncanon    --decomposition-type=NonCanon

option --combined \
    --precomposed --composite

option --INVISIBLE --cm=N -E '$ENV{INVISIBLE_RE}'
option --invisible --cm=N -E '(?!\p{Blank}|\R)$ENV{INVISIBLE_RE}'

option --outstand \
    --combined -E '(?#non-ascii)(?=\P{ASCII})\X'

define ANSI-CSI <<EOL
    (?xn)
    # see ANSI-48 5.4 Control sequences
    ( \e\[ | \x9b )	# csi
    [\x30-\x3f]*+	# parameter bytes
    [\x20-\x2f]*+	# intermediate bytes
    [\x40-\x7e]		# final byte
EOL

define ANSI-RESET <<EOL
    (?xn)
    ( ( \e\[ | \x9b ) [0;]* m )+
    ( ( \e\[ | \x9b ) [0;]* K )*
EOL

expand --visible-option \
    --charcode::config code=0,name=0,visible=1 \
    --cm=N

option --ansicode-raw \
    -E '(?#ansicode)(?:ANSI-RESET)+|(?:ANSI-CSI)'

option --ansicode \
    --visible-option --ansicode-raw

option --ansicode-each \
    --visible-option -E ANSI-CSI

option --ansicode-seq \
    --visible-option -E '(?:ANSI-CSI)+'

option -p -E '\p{$<shift>}'
option -P -E '\P{$<shift>}'

option --align-field --of 'ansicolumn -trs " " -o " "'