Encode-Arabic
view release on metacpan or search on metacpan
lib/Encode/Arabic/ArabTeX/Verbatim.pm view on Meta::CPAN
my $vowel = $_;
map {
"\x{0644}" . $double . $vowel . "\x{0627}" . $_,
"\x{0644}" . "\x{0671}" . $double . $vowel,
} "\x{064E}", "\x{064F}", "\x{0650}"
} "\x{064E}", "\x{064F}", "\x{0650}"
} "", "\x{0651}"
) : () ),
),
# optional ligatures to enforce here
];
no strict 'refs';
${ $cls . '::decoder' }->[$mode + $delevel] = Encode::Mapper->compile(@{$demoder->[$mode]});
${ $cls . '::decoder' }->[$mode + $delevel]->describe('') if $option{'describe'};
return ${ $cls . '::decoder' }->[$mode + $delevel];
}
1;
__END__
=head1 NAME
Encode::Arabic::ArabTeX::Verbatim - Interpreter of the Verbatim variant of the ArabTeX notation
=head1 SYNOPSIS
use Encode::Arabic::ArabTeX::Verbatim; # imports just like 'use Encode' would, plus extended options
while ($line = <>) { # maps the ArabTeX notation for Arabic into the Arabic script
print encode 'utf8', decode 'arabtex-verb', $line; # 'ArabTeX-Verbatim' alias 'ArabTeX-Verb'
}
# ArabTeX language-dependent transliteration <--> ArabTeX verbatim transliteration
$string = decode 'ArabTeX-Verbatim', $octets;
$octets = encode 'ArabTeX-Verbatim', $string;
=head1 DESCRIPTION
ArabTeX is an excellent extension to TeX/LaTeX designed for typesetting the right-to-left scripts of
the Orient. It comes up with very intuitive and comprehensible lower ASCII transliterations, the
expressive power of which is even better than that of the scripts.
L<Encode::Arabic::ArabTeX::Verbatim|Encode::Arabic::ArabTeX::Verbatim> implements the rules needed for
proper interpretation of the ArabTeX verbatim notation, which is discussed in the ArabTeX User Manual.
The conversion ifself is done by L<Encode::Mapper|Encode::Mapper>, and the user interface is built
on the L<Encode::Encoding|Encode::Encoding> module.
Relevant guidance is given in L<Encode::Arabic::ArabTeX|Encode::Arabic::ArabTeX>, from which this module
inherits. The transformation rules are, however, quite different ;)
This work is presented in its B<development version>!
=head1 SEE ALSO
L<Encode::Arabic::ArabTeX|Encode::Arabic::ArabTeX>,
L<Encode::Arabic|Encode::Arabic>,
L<Encode::Mapper|Encode::Mapper>,
L<Encode::Encoding|Encode::Encoding>,
L<Encode|Encode>
ArabTeX system L<ftp://ftp.informatik.uni-stuttgart.de/pub/arabtex/arabtex.htm>
Klaus Lagally L<http://www.informatik.uni-stuttgart.de/ifi/bs/people/lagall_e.htm>
=head1 AUTHOR
Otakar Smrz C<< <otakar-smrz users.sf.net> >>, L<http://otakar-smrz.users.sf.net/>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2005-2008 Otakar Smrz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
( run in 1.055 second using v1.01-cache-2.11-cpan-71847e10f99 )