use strict;
use warnings FATAL => 'all';

package MarpaX::Database::Terminfo::Grammar::CharacterClasses;

# ABSTRACT: Terminfo character classes

our $VERSION = '0.010'; # VERSION


our $COMMA_HEX  = sprintf('%x', ord(','));
our $SLASH_HEX  = sprintf('%x', ord('/'));
our $PIPE_HEX   = sprintf('%x', ord('|'));
our $EQUAL_HEX  = sprintf('%x', ord('='));
our $POUND_HEX  = sprintf('%x', ord('#'));


sub InCommaSlashPipe {
    return <<END;
$COMMA_HEX
$SLASH_HEX
$PIPE_HEX
END
}


sub InCommaPipe {
    return <<END;
$COMMA_HEX
$PIPE_HEX
END
}


sub InPipe {
    return <<END;
$PIPE_HEX
END
}


sub InCommaEqualPound {
    return <<END;
$COMMA_HEX
$EQUAL_HEX
$POUND_HEX
END
}


sub InComma {
    return <<END;
$COMMA_HEX
END
}


sub InAlias {
    return <<END;
+utf8::IsGraph
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaSlashPipe
END
}


sub InLongname {
    return <<END;
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaPipe
END
}


sub InNcursesLongname {
    return <<END;
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InPipe
END
}


sub InName {
    return <<END;
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaEqualPound
END
}


sub InIsPrintExceptComma {
    return <<END;
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InComma
END
}


sub InIsPrintAndIsGraph {
    return <<END;
+utf8::IsPrint
+utf8::IsGraph
END
}

1;

__END__

=pod

=encoding utf-8

=head1 NAME

MarpaX::Database::Terminfo::Grammar::CharacterClasses - Terminfo character classes

=head1 VERSION

version 0.010

=head1 DESCRIPTION

This modules describes Terminfo character classes

=head2 InCommaSlashPipe()

Character class for ',', '/' and '|'.

=head2 InCommaPipe()

Character class for ',' and '|'.

=head2 InPipe()

Character class for '|'.

=head2 InCommaEqualPound()

Character class for ',', '=' and '#'

=head2 InComma()

Character class for ','

=head2 InAlias()

Character class for a terminfo alias.

=head2 InLongname()

Character class for a terminfo long name.

=head2 InNcursesLongname()

Character class for a (ncurses) terminfo long name.

=head2 InName()

Character class for a terminfo capability name.

=head2 InIsPrintExceptComma()

Character class for a isprint character except ','.

=head2 InIsPrintAndIsGraph()

Character class for a isprint or isgraph character

=head1 AUTHOR

jddurand <jeandamiendurand@free.fr>

=head1 CONTRIBUTOR

Jean-Damien Durand <jeandamiendurand@free.fr>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Jean-Damien Durand.

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

=cut