.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH ENC2XS 1 "2007-06-19" "perl v5.8.8" "Perl Programmers Reference Guide"
enc2xs \-\- Perl Encode Module Generator
\& enc2xs -M ModName mapfiles...
\&\fIenc2xs\fR builds a Perl extension for use by Encode from either
Unicode Character Mapping files (.ucm) or Tcl Encoding Files (.enc).
Besides being used internally during the build process of the Encode
module, you can use \fIenc2xs\fR to add your own encoding to perl.
No knowledge of \s-1XS\s0 is necessary.
If you want to know as little about Perl as possible but need to
add a new encoding, just read this chapter and forget the rest.
Have a .ucm file ready. You can get it from somewhere or you can write
your own from scratch or you can grab one from the Encode distribution
and customize it. For the \s-1UCM\s0 format, see the next Chapter. In the
example below, I'll call my theoretical encoding myascii, defined
in \fImy.ucm\fR. \f(CW\*(C`$\*(C'\fR is a shell prompt.
Issue a command as follows;
\& generating Makefile.PL
Now take a look at your current directory. It should look like this.
\& Makefile.PL My.pm my.ucm t/
The following files were created.
\& Makefile.PL - MakeMaker script
\& My.pm - Encode submodule
If you want *.ucm installed together with the modules, do as follows;
\& $ enc2xs -M My Encode/*ucm
Edit the files generated. You don't have to if you have no time \s-1AND\s0 no
intention to give it to someone else. But it is a good idea to edit
the pod and to add more tests.
Now issue a command all Perl Mongers love:
\& Writing Makefile for Encode::My
Now all you have to do is make.
\& cp My.pm blib/lib/Encode/My.pm
\& /usr/local/bin/perl /usr/local/bin/enc2xs -Q -O \e
\& -o encode_t.c -f encode_t.fnm
\& Reading myascii (myascii)
\& 128 bytes in string tables
\& 384 bytes (75%) saved spotting duplicates
\& 1 bytes (0.775%) saved using substrings
\& chmod 644 blib/arch/auto/Encode/My/My.bs
The time it takes varies depending on how fast your machine is and
how large your encoding is. Unless you are working on something big
like euc\-tw, it won't take too long.
You can \*(L"make install\*(R" already but you should test first.
\& PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib \e
\& -e 'use Test::Harness qw(&runtests $verbose); \e
\& $verbose=0; runtests @ARGV;' t/*.t
\& Files=1, Tests=2, 0 wallclock secs
\& ( 0.09 cusr + 0.01 csys = 0.09 CPU)
If you are content with the test result, just \*(L"make install\*(R"
If you want to add your encoding to Encode's demand-loading list
(so you don't have to \*(L"use Encode::YourEncoding\*(R"), run
to update Encode::ConfigLocal, a module that controls local settings.
After that, \*(L"use Encode;\*(R" is enough to load your encodings on demand.
.SH "The Unicode Character Map"
.IX Header "The Unicode Character Map"
Encode uses the Unicode Character Map (\s-1UCM\s0) format for source character
mappings. This format is used by \s-1IBM\s0's \s-1ICU\s0 package and was adopted
by Nick Ing-Simmons for use with the Encode module. Since \s-1UCM\s0 is
more flexible than Tcl's Encoding Map and far more user\-friendly,
this is the recommended formet for Encode now.
A \s-1UCM\s0 file looks like this.
\& <code_set_name> "US-ascii" # Required
\& <code_set_alias> "ascii" # Optional
\& <mb_cur_min> 1 # Required; usually 1
\& <mb_cur_max> 1 # Max. # of bytes/char
\& <subchar> \ex3F # Substitution char
\& <U0000> \ex00 |0 # <control>
\& <U0001> \ex01 |0 # <control>
\& <U0002> \ex02 |0 # <control>
\& <U007C> \ex7C |0 # VERTICAL LINE
\& <U007D> \ex7D |0 # RIGHT CURLY BRACKET
\& <U007E> \ex7E |0 # TILDE
\& <U007F> \ex7F |0 # <control>
Anything that follows \f(CW\*(C`#\*(C'\fR is treated as a comment.
The header section continues until a line containing the word
\&\s-1CHARMAP\s0. This section has a form of \fI<keyword> value\fR, one
pair per line. Strings used as values must be quoted. Barewords are
treated as numbers. \fI\exXX\fR represents a byte.
Most of the keywords are self\-explanatory. \fIsubchar\fR means
substitution character, not subcharacter. When you decode a Unicode
sequence to this encoding but no matching character is found, the byte
sequence defined here will be used. For most cases, the value here is
\&\ex3F; in \s-1ASCII\s0, this is a question mark.
\&\s-1CHARMAP\s0 starts the character map section. Each line has a form as
\& <UXXXX> \exXX.. |0 # comment
\& | +-------- Encoded byte sequence
\& +-------------- Unicode Character ID in hex
The format is roughly the same as a header section except for the
fallback flag: | followed by 0..3. The meaning of the possible
Round trip safe. A character decoded to Unicode encodes back to the
same byte sequence. Most characters have this flag.
Fallback for unicode \-> encoding. When seen, enc2xs adds this
character for the encode map only.
Skip sub-char mapping should there be no code point.
Fallback for encoding \-> unicode. When seen, enc2xs adds this
character for the decode map only.
And finally, \s-1END\s0 \s-1OF\s0 \s-1CHARMAP\s0 ends the section.
When you are manually creating a \s-1UCM\s0 file, you should copy ascii.ucm
or an existing encoding which is close to yours, rather than write
When you do so, make sure you leave at least \fBU0000\fR to \fBU0020\fR as
is, unless your environment is \s-1EBCDIC\s0.
\&\fB\s-1CAVEAT\s0\fR: not all features in \s-1UCM\s0 are implemented. For example,
icu:state is not used. Because of that, you need to write a perl
module if you want to support algorithmical encodings, notably
the \s-1ISO\-2022\s0 series. Such modules include Encode::JP::2022_JP,
Encode::KR::2022_KR, and Encode::TW::HZ.
.Sh "Coping with duplicate mappings"
.IX Subsection "Coping with duplicate mappings"
When you create a map, you \s-1SHOULD\s0 make your mappings round-trip safe.
That is, \f(CW\*(C`encode('your\-encoding', decode('your\-encoding', $data)) eq
$data\*(C'\fR stands for all characters that are marked as \f(CW\*(C`|0\*(C'\fR. Here is
Sort your map in Unicode order.
When you have a duplicate entry, mark either one with '|1' or '|3'.
And make sure the '|1' or '|3' entry \s-1FOLLOWS\s0 the '|0' entry.
Here is an example from big5\-eten.
Internally Encoding \-> Unicode and Unicode \-> Encoding Map looks like
\& --------------------------------------
\& \exF9\exF9 => U2550 U2550 => \exF9\exF9
So it is round-trip safe for \exF9\exF9. But if the line above is upside
down, here is what happens.
\& --------------------------------------
\& \exA2\exA4 => U2550 U2550 => \exF9\exF9
\& (\exF9\exF9 => U2550 is now overwritten!)
The Encode package comes with \fIucmlint\fR, a crude but sufficient
utility to check the integrity of a \s-1UCM\s0 file. Check under the
Encode/bin directory for this.
When in doubt, you can use \fIucmsort\fR, yet another utility under
<http://oss.software.ibm.com/icu/>
\&\s-1ICU\s0 Character Mapping Tables
<http://oss.software.ibm.com/icu/charset/>
<http://oss.software.ibm.com/icu/userguide/conversion\-data.html>
projects / OpenSPARC-T2-SAM / blob