From db7e22c83b8c1d6da2399170fbf6259abfbd29c0 Mon Sep 17 00:00:00 2001 From: imacat Date: Mon, 9 Sep 2019 19:50:18 +0800 Subject: [PATCH] Initialized from version 1.28 (2009/6/27). --- .gitignore | 8 + Artistic | 131 ++++ BUGS | 4 + Build.PL | 22 + COPYING | 674 +++++++++++++++++++ Changes | 581 ++++++++++++++++ INSTALL | 146 ++++ MANIFEST | 43 ++ META.yml | 21 + Makefile.PL | 32 + README | 54 ++ SIGNATURE | 65 ++ THANKS | 24 + TODO | 4 + lib/Locale/Maketext/Gettext.pm | 814 +++++++++++++++++++++++ lib/Locale/Maketext/Gettext/Functions.pm | 781 ++++++++++++++++++++++ script/maketext | 215 ++++++ t/00-signature.t | 22 + t/01-basic.t | 150 +++++ t/02-big-endian.t | 143 ++++ t/03-errors.t | 283 ++++++++ t/04-encodings.t | 266 ++++++++ t/05-switching.t | 157 +++++ t/06-racing.t | 317 +++++++++ t/07-f-basic.t | 275 ++++++++ t/08-f-errors.t | 344 ++++++++++ t/09-f-encodings.t | 282 ++++++++ t/10-f-switching.t | 416 ++++++++++++ t/11-command-line.t | 92 +++ t/99-pod.t | 5 + t/T_L10N.pm | 24 + t/locale/C/LC_MESSAGES/test.mo | Bin 0 -> 612 bytes t/locale/en/LC_MESSAGES/bad.mo | 1 + t/locale/en/LC_MESSAGES/test.mo | Bin 0 -> 612 bytes t/locale/en/LC_MESSAGES/test2.mo | Bin 0 -> 668 bytes t/locale/en/LC_MESSAGES/test_be.mo | Bin 0 -> 454 bytes t/locale/en/LC_MESSAGES/test_utf8.mo | Bin 0 -> 609 bytes t/locale/zh_CN/LC_MESSAGES/test.mo | Bin 0 -> 603 bytes t/locale/zh_CN/LC_MESSAGES/test_be.mo | Bin 0 -> 460 bytes t/locale/zh_CN/LC_MESSAGES/test_utf8.mo | Bin 0 -> 626 bytes t/locale/zh_TW/LC_MESSAGES/test.mo | Bin 0 -> 602 bytes t/locale/zh_TW/LC_MESSAGES/test2.mo | Bin 0 -> 693 bytes t/locale/zh_TW/LC_MESSAGES/test_be.mo | Bin 0 -> 458 bytes t/locale/zh_TW/LC_MESSAGES/test_utf8.mo | Bin 0 -> 627 bytes 44 files changed, 6396 insertions(+) create mode 100644 .gitignore create mode 100644 Artistic create mode 100644 BUGS create mode 100755 Build.PL create mode 100644 COPYING create mode 100644 Changes create mode 100644 INSTALL create mode 100644 MANIFEST create mode 100644 META.yml create mode 100755 Makefile.PL create mode 100644 README create mode 100644 SIGNATURE create mode 100644 THANKS create mode 100644 TODO create mode 100644 lib/Locale/Maketext/Gettext.pm create mode 100644 lib/Locale/Maketext/Gettext/Functions.pm create mode 100755 script/maketext create mode 100755 t/00-signature.t create mode 100755 t/01-basic.t create mode 100755 t/02-big-endian.t create mode 100755 t/03-errors.t create mode 100755 t/04-encodings.t create mode 100755 t/05-switching.t create mode 100755 t/06-racing.t create mode 100755 t/07-f-basic.t create mode 100755 t/08-f-errors.t create mode 100755 t/09-f-encodings.t create mode 100755 t/10-f-switching.t create mode 100755 t/11-command-line.t create mode 100755 t/99-pod.t create mode 100644 t/T_L10N.pm create mode 100644 t/locale/C/LC_MESSAGES/test.mo create mode 100644 t/locale/en/LC_MESSAGES/bad.mo create mode 100644 t/locale/en/LC_MESSAGES/test.mo create mode 100644 t/locale/en/LC_MESSAGES/test2.mo create mode 100644 t/locale/en/LC_MESSAGES/test_be.mo create mode 100644 t/locale/en/LC_MESSAGES/test_utf8.mo create mode 100644 t/locale/zh_CN/LC_MESSAGES/test.mo create mode 100644 t/locale/zh_CN/LC_MESSAGES/test_be.mo create mode 100644 t/locale/zh_CN/LC_MESSAGES/test_utf8.mo create mode 100644 t/locale/zh_TW/LC_MESSAGES/test.mo create mode 100644 t/locale/zh_TW/LC_MESSAGES/test2.mo create mode 100644 t/locale/zh_TW/LC_MESSAGES/test_be.mo create mode 100644 t/locale/zh_TW/LC_MESSAGES/test_utf8.mo diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..7c00a62 --- /dev/null +++ b/.gitignore @@ -0,0 +1,8 @@ +Makefile +Makefile.old +blib +Build +_build +MYMETA.json +MYMETA.yml +pm_to_blib diff --git a/Artistic b/Artistic new file mode 100644 index 0000000..5f22124 --- /dev/null +++ b/Artistic @@ -0,0 +1,131 @@ + + + + + The "Artistic License" + + Preamble + +The intent of this document is to state the conditions under which a +Package may be copied, such that the Copyright Holder maintains some +semblance of artistic control over the development of the package, +while giving the users of the package the right to use and distribute +the Package in a more-or-less customary fashion, plus the right to make +reasonable modifications. + +Definitions: + + "Package" refers to the collection of files distributed by the + Copyright Holder, and derivatives of that collection of files + created through textual modification. + + "Standard Version" refers to such a Package if it has not been + modified, or has been modified in accordance with the wishes + of the Copyright Holder as specified below. + + "Copyright Holder" is whoever is named in the copyright or + copyrights for the package. + + "You" is you, if you're thinking about copying or distributing + this Package. + + "Reasonable copying fee" is whatever you can justify on the + basis of media cost, duplication charges, time of people involved, + and so on. (You will not be required to justify it to the + Copyright Holder, but only to the computing community at large + as a market that must bear the fee.) + + "Freely Available" means that no fee is charged for the item + itself, though there may be fees involved in handling the item. + It also means that recipients of the item may redistribute it + under the same conditions they received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications +derived from the Public Domain or from the Copyright Holder. A Package +modified in such a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided +that you insert a prominent notice in each changed file stating how and +when you changed that file, and provided that you do at least ONE of the +following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or + an equivalent medium, or placing the modifications on a major archive + site such as uunet.uu.net, or by allowing the Copyright Holder to include + your modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict + with standard executables, which must also be provided, and provide + a separate manual page for each non-standard executable that clearly + documents how it differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or +executable form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where + to get the Standard Version. + + b) accompany the distribution with the machine-readable source of + the Package with your modifications. + + c) give non-standard executables non-standard names, and clearly + document the differences in manual pages (or equivalent), together + with instructions on where to get the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this +Package. You may not charge a fee for this Package itself. However, +you may distribute this Package in aggregate with other (possibly +commercial) programs as part of a larger (possibly commercial) software +distribution provided that you do not advertise this Package as a +product of your own. You may embed this Package's interpreter within +an executable of yours (by linking); this shall be construed as a mere +form of aggregation, provided that the complete Standard Version of the +interpreter is so embedded. + +6. The scripts and library files supplied as input to or produced as +output from the programs of this Package do not automatically fall +under the copyright of this Package, but belong to whoever generated +them, and may be sold commercially, and may be aggregated with this +Package. If such scripts or library files are aggregated with this +Package via the so-called "undump" or "unexec" methods of producing a +binary executable image, then distribution of such an image shall +neither be construed as a distribution of this Package nor shall it +fall under the restrictions of Paragraphs 3 and 4, provided that you do +not represent such an executable image as a Standard Version of this +Package. + +7. C subroutines (or comparably compiled subroutines in other +languages) supplied by you and linked into this Package in order to +emulate subroutines and variables of the language defined by this +Package shall not be considered part of this Package, but are the +equivalent of input as in Paragraph 6, provided these subroutines do +not change the language in any way that would cause it to fail the +regression tests for the language. + +8. Aggregation of this Package with a commercial distribution is always +permitted provided that the use of this Package is embedded; that is, +when no overt attempt is made to make this Package's interfaces visible +to the end user of the commercial distribution. Such use shall not be +construed as a distribution of this Package. + +9. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + + The End diff --git a/BUGS b/BUGS new file mode 100644 index 0000000..3b986ba --- /dev/null +++ b/BUGS @@ -0,0 +1,4 @@ +Please send your bug reports to me directly, at +imacat@mail.imacat.idv.tw. + +Sorry that mailing list is not available yet till this time. diff --git a/Build.PL b/Build.PL new file mode 100755 index 0000000..33fe42e --- /dev/null +++ b/Build.PL @@ -0,0 +1,22 @@ +#! /usr/bin/perl -w +use strict; +use Module::Build; + +my $build = Module::Build->new( + dist_name => "Locale-Maketext-Gettext", + dist_version => "1.28", + dist_abstract => "Joins gettext and Maketext frameworks", + dist_author => "imacat ", + license => "perl", + sign => 1, + + script_files => [ "script/maketext" ], + requires => { + "perl" => "5.8.0", + }, + add_to_cleanup => [ "t/test_native.po", "t/locale/en/LC_MESSAGES/test_native.mo" ], +); + +$build->create_build_script; + +__END__ diff --git a/COPYING b/COPYING new file mode 100644 index 0000000..94a9ed0 --- /dev/null +++ b/COPYING @@ -0,0 +1,674 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + Copyright (C) + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +. diff --git a/Changes b/Changes new file mode 100644 index 0000000..b58f006 --- /dev/null +++ b/Changes @@ -0,0 +1,581 @@ +Locale-Maketext-Gettext change log + +2009-06-27 version 1.28 + Build script fix. No code changes. + 1. Build.PL: Removed the build_requires, as they are not + required by the build process, but by the test process. + The build process should not be blocked by them. + Suggested by Ryan Niebur and + Adam Kennedy + (and Audrey Tang). + +2009-04-28 version 1.27 + Test suite fix. No code changes. + 1. t/03-errors.t: Fixed the find_system_mo() subroutine to + exclude MO files with special characters that might be + considered as code by Locale::Maketext. + 2. t/02-big-endian.t: Fixed the native-built MO file test + and moved the $POfile and $MOfile file name assignment + to the beginning, to ensure that their values are + assigned even if GNU gettext is not installed and + the test is skipped on the target test system. + +2008-11-11 + 1. INSTALL: Fixed the grammer, changed "none" to "None.". + +2008-04-22 version 1.26 + Documentation fix. No code changes. + 1. bin/maketext: Moved to script/maketext. + +2008-04-21 + 1. TODO: Added. + 2. Artistic and COPYING: Added. + 3. INSTALL: Added. Installation instructions moved from README + to INSTALL. + +2008-04-11 version 1.25 + Test suite fix. No code changes. + 1. t/03-errors.t and t/08-f-errors.t: Added find_system_mo(), to + select a system MO file that we can use. + +2008-02-26 version 1.24 + Test and build suite fix. No code changes. + 1. t/02-big-endian.t: Added creating PO at run time, in order + to work with GNU gettext < 0.15 whose msgfmt does not support + msgctxt yet. This should work with both older and newer + GNU gettext. + 2. t/test_native.po: Removed. It is now generated by + t/02-big-endian.t at run time. + 3. Makefile.PL: Added "clean" to clean-up possible existing + test_native.po and test_native.mo. + 4. Build.PL: Added "add_to_cleanup" to clean-up possible existing + test_native.po and test_native.mo. + 5. Build.PL: Added "build_requires". + 6. t/08-f-errors.t: Fixed so that it finds the newest MO file + found on the system, in order to avoid lagacy MO files. + (gettext 0.10 in 1995?) + 7. t/08-f-errors.t: Fixed test 38 so that it skips in the eval() + block, and dumps the error on failure. + 8. Changes: Added several missing change notes in version 1.23. + +2008-02-19 version 1.23 + Added support for GNU gettext pgettext() as pmaketext(), to + translate text messages in a particular context. + 1. Gettext.pm: Added the pmaketext() method as an equivalent of + the pgettext() function in GNU gettext, to look up the text + message in a particular context, according to the suggestion + by Chris Travers. + 2. Functions.pm: Added the pmaketext() function as an equivalent + of the pgettext() function in GNU gettext, and the dpmaketext() + function as an equivalent of the dpgettext() function in GNU + gettext, to look up the text message in a particular context, + according to the suggestion by Chris Travers. + 3. Gettext.pm and Functions.pm: Fixed documentation and comments. + Changed "perl" as "Perl". Removed contractions and replaced + them with full sayings, in order to work with syntax + highlighting. Removed emotional marks for the same reason. + 4. Makefile.PL: Added conditional checks for whether LICENSE is + available in ExtUtils::MakeMaker. + 5. Gettext.pm and Functions.pm: Added xgettext keyword notation + for dmaketext(), pmaketext() and dpmaketext(). + 6. t/locale/*/LC_MESSAGES/*.mo, t/test_native.po: Added messages + with contexts for pmaketext() testings. + 7. t/*.t: Added tests for pmaketext() and dpmaketext(). + 8. Gettext.pm: Fixed the failure_handler_auto() method to remove + the message context from the message key before sending to + the failure lexicon. The failure_handler_auto() method + differs from its Locale::Maketext parent from now on. + +2007-03-28 version 1.22 + 1. t/*-f-*.t: Moved Locale::Maketext::Gettext::Functions::_reset() + from the end of each set of tests, to the front of each set of + tests. If at the end of the test set, it would not be run if + the eval{} block fails. + 2. Gettext.pm, Functions.pm and maketext: Updated the URL of the + GNU gettext manual in the their POD documents. + 3. Functions.pm: The example in its POD document is updated to show + more of the nature of Locale::Maketext. + +2007-03-28 version 1.21 + 1. 04-encodings.t and 09-f-encodings.t: Inserted test#26 to test the + $@ error message. It is an encode() error that is not affected + by the Locale::Maketext $@ change with "local $@". + 2. 06-racing.t: Added $LOOKUP_FAILURE as look-up failure flag. Added + a simple subroutine to handle lookup failure. Test that to see if + we are really die from lookup failure. + 3. Gettext.pm, Functions.pm and 09-f-encodings.t: Renamed + ENCODING_SET to USERSET_ENCODING. USERSET_ENCODING is set to + the encoding user specified. Future test should use "exists", + but not "defined", as user may supply undef on this. + 4. Gettext.pm: Renaming _lmg_failure_handler_auto() to + failure_handler_auto(). It should be OK to override it, and this + help subclasses to employ our version. + 5. Functions.pm: Note why we don't use $@ but @ as the prototypes of + __(), N_(), maketext(). + 6. Functions.pm: Removed unused global variable $ENCODING. + 7. Functions.pm: Renamed %VARS to %PARAMS. Changed $KEY_ENCODING + to $PARAMS{"KEY_ENCODING"}. Changed $DIE_FOR_LOOKUP_FAILURES to + $PARAMS{"DIE_FOR_LOOKUP_FAILURES"}. Changed $ENCODE_FAILURE to + $PARAMS{"ENCODE_FAILURE"}. + 8. Gettext.pm and Functions.pm: Changed the returning line of + encoding(), key_encoding() and die_for_lookup_failures() to one + conditional line. This is more neat. + 9. Functions.pm: Updated _reset(), resetting $PARAMS{"KEY_ENCODING"} to + "US-ASCII" instead of undef, add resetting + $PARAMS{"DIE_FOR_LOOKUP_FAILURES"} to 0; + 10. Gettext.pm: Updated failure_handler_auto(), check if this method + is revoked statically. + 11. t/*-f-*.t: Added Locale::Maketext::Gettext::Functions::_reset() to + the end of each set of tests, to reset the environment. + 12. Gettext.pm: Added fail_with() as a wrapper to record the user set + lookup failure handler, so that we can safely switch with + die_for_lookup_failures(). A new attribute {"USERSET_FAIL"} is + added to record it. All references to fail_with() in other places + of the code are changed to SUPER::fail_with(). fail_with() is + only for the user since it will update the registered user + preference. + 13. Gettext.pm and Functions.pm: In maketext(), check if the key is + Perl utf8 text with Encode::is_utf8() first before decode() the + key, so that user can safely run a multibyte-awared script. + 14. Gettext.pm and Functions.pm: In maketext(), check if the key is + Perl utf8 text with Encode::is_utf8() first before encode(), for + empty/invalid lexicon with key_encoding() set but no output + encoding, so that we can have a real pass through. In the case + of an empty/invalid lexicon, the user should be responsible for + the output encoding. Added $keyd as the decoded() $key, so + that we can check the original $key later. + 15. Functions.pm: In __(), removed unused variables $encoding, + $lh_encoding and $key_encoding. + 16. maketext: In parse_args(), check the return value of the eval { } + block instead of $@, and remove the extra new line when outputing + the error in $@. + 17. maketext: Added an example at the DESCRIPTION chapter of the + POD documentation. + 18. Gettext.pm: Added a note on the relation of fail_with() + die_for_lookup_failures() at the description of the + die_for_lookup_failures() method at the METHODS section + of the POD documentation. + 19. Makefile.PL: Added LICENSE attribute as "perl". + +2007-03-28 version 1.20 + Rewrite to follow the error handler design of Locale::Maketext, i.e. + the fail_with() method, instead of our own. + Clean up encoding mess. You may need to check if your application + was depending on the previous wrong, hard-to-handle behavior on look + up failurs. The new behavior should be easier to deal with. + 1. Gettext.pm: In the textdomain() function, make sure {"ENCODING"} + is not set to undef when MO file does not exists. + 2. Functions.pm: In the encoding() function, removed a piece of long + gone, commented code. + 3. Gettext.pm and Functions.pm: In the encoding(), textdomain() and + the _get_handle() function, add a flag {"ENCODING_SET"} to tag if + we should respect the encoding() setting of the user. If there is + no user preferred encoding(), when obtaining language handle with + _get_handle() or textdomain(), encoding() will change to the + output encoding() to that of the corresponding MO file. + 4. 09-f-encoding.t: Added "delete $VARS{"ENCODING_SET"}" in the end + of each test to clean up the environment. + 5. Gettext.pm: Update the version number to 1.20. + 6. Functions.pm: Update the version number to 0.10. + 7. t/99-pod.t: Added. + 8. Makefile.PL: Stylish clean-up and update. Added "SIGN". + 9. Build.PL: Added. + +2007-03-27 + 1. Gettext.pm: Added _lmg_failure_handler_auto(), as a replacement + of Locale::Maketext's failure_handler_auto(). Locale::Maketext's + failure_handler_auto() until version 1.10 has problem with + message keys without any brackets. See bug#33938 on rt.cpan.org. + It's content was simply copied from failure_handler_auto(). + 2. Gettext.pm: Removed classes Locale::Maketext::Gettext::_AUTO, + Locale::Maketext::Gettext::_AUTO::i_default, + Locale::Maketext::Gettext::_EMPTY and + Locale::Maketext::Gettext::_EMPTY::i_default. We are using + Locale::Maketext's fail_with() method to deal with look up errors + rather than making dummy language handles and deal with them by + ourselves. This simplify things, making the code more compatible + with Locale::Maketext. As a result, Locale::Maketext's + fail_with() method and {"fail"} attribute are working now. + 3. Gettext.pm: In the maketext() method, removed the code that deal + with look up errors by ourselves. Now we handle this with the + {"fail"} attribute and the _lmg_failure_handler_auto() method, + following the original Locale::Maketext's design. + 4. Gettext.pm: In the textdomain() method, added clear_isa_scan() in + the end to clear the ISA handler look up cache table. This way we + are not affected by the cache of _lmg_failure_handler_auto() + when switching domain with textdomain(). + 5. Gettext.pm and Functions.pm: In encoding() and key_encoding(), + feeding undef delete the property. This is to unify the practice + of "exists" and "defined" tests. All tests should use "exists" + instead of "defined" now. + 6. Functions.pm: Added classes + Locale::Maketext::Gettext::Functions::_EMPTY and + Locale::Maketext::Gettext::Functions::_EMPTY::i_default as a + dummy locale. + 7. Functions.pm: Add _get_empty_handle() to return the dummy locale, + with die_for_lookup_failures() properly set. This replaces the + $_EMPTY setting in the beginning of the file. + 8. Functions.pm: In the _get_handle() method added unset the + key_encoding() before returning the language handle. + key_encoding() is handled by Locale::Maketext::Gettext::Functions. + Locale::Maketext::Gettext does not need to handle key_encoding(). + This is to follow the nature of functional API that + key_encoding() should apply to all the following session in + functional API. + 9. Gettext.pm and Functions.pm: In maketext(), stop playing magic + with encoding() and key_encoding() that automatically encode() + text back to key_encoding() when lookup fails. The result is + too unpredictable. The application should specify which encoding + they want themselves. + +2007-03-22 version 1.18 + Fixes for Perl 5.9. Locale::Maketext in Perl 5.9 does not set $@ + as its error message. Tests replying on $@ may fail for this. But + I should check the return value of the eval{} block rather than $@ + anyway. + 1. t/*.t: Adition of $r as the return value of the eval{} blocks. + Addition of "return 1;" to the eval{} blocks to specify the return + values. Changing tests "ok($@, "");" to "ok($r, 1);". Changing + tests "ok($@, qr/maketext doesn't know how to say/);" and + "ok($@, qr/does not map to/);" to "ok($r, undef)". This is to + be refined. It is necessary to test if it fails by our expected + reason rather than only knowing that it fails. + 2. Update the version number of Locale::Maketext::Gettext to match + the distribution version. + +2005-04-27 version 1.17 + 1. Changes: Typo fixed. + +2005-04-26 version 1.16 + Test suite fixes. + 1. 02-big-endian.t: In test 7, 8, $MOfile and $POfile are quoted + when sending to the shell (backticks), to be safe to spaces and + other special shell characters in their paths. + 2. 11-command-line.t: In all tests $maketext is quoted when sending + to the shell (backticks), to be safe to spaces and other special + shell characters in its path. This should solve the CPAN tester + failures 200029, 200332 and 200331. Thanks to Max Maischein + for testing and reporting this. + 3. Changes: File edited to widen line limit from 60 columns to 79 + columns, to ease the reading. + 4. THANKS: Updated. + +2005-04-26 version 1.15 + 1. SIGNATURE: Included Modules::Signature gpg signature file added. + 2. 00-signature.t: Added. + +2005-04-21 version 1.14 + 1. maketext: Prototypes of the following subroutines are + declared first now: main() and parse_args(). + +2005-04-20 version 1.13 + 1. Changes: Addition of new unencoded UTF-8 tests is appended to the + change log. + 2. Changes: Addition of warning of key_encoding() is appended to the + change log. + 3. Changes: Typo fixed: "Vesion" should be "Version". + 4. Changes: Typo fixed: 2005-04-10 should be 2005-04-20. + +2005-04-20 version 1.12 + Documentation fixes. + 1. Update the copyright year on the updated files. + 2. Changes: Version number added. + +2005-04-19 version 1.11 + 1. Gettext.pm: Using undef as encoding or key_encoding. Methods + encoding() and key_encoding() now check the number of arguments + instead of the argument value. When undef, the unencoded UTF-8 + text is returned. + 2. Gettext.pm: Prototype of subroutine read_mo() is declared first + now. + 3. Gettext.pm: Deprecated subroutine readmo() is removed. + 4. Functions.pm: Prototypes of the following subroutines are declared + first now: bindtextdomain(), textdomain(), get_handle(), + maketext(), __(), N_(), dmaketext(), reload_text(), encoding(), + key_encoding(), encode_failure(), die_for_lookup_failures(), + _declare_class(), _catclass(), _init_textdomain(), _get_langs(), + _get_handle(), _reset(), _new_rid(), _k() and _lang(). + 5. 07-f-basic.t: Locale environment variables are cleared before + running tests, to avoid confusion from the user's current locale. + 6. 10-f-switching.t: Locale environment variables are cleared before + running tests, to avoid confusion from the user's current locale. + 7. Gettext.pm: Default KEY_ENCODING to US-ASCII. It is always + decoded to UTF-8 first when looked up in the _AUTO lexicon, to + ensure that the resulted text is always in UTF-8. + 8. Gettext.pm: Avoid caching undefined MO file encoding when MO file + is not available. + 9. Gettext.pm: New attribute "MO_ENCODING" is added to to record the + encoding of the MO file. + 10. Functions.pm: Default KEY_ENCODING to US-ASCII. It is always + decoded to UTF-8 first when looked up in the _AUTO lexicon, to + ensure that the resulted text is always in UTF-8. + 11. 04-encodings.t: Tests 28-33 added to test returning unencoded + UTF-8 text. + 12. 09-f-encodings.t: Tests 28-33 added to test returning unencoded + UTF-8 text. + 13. Gettext.pm: Warning is added to the use of key_encoding(). + 14. Functions.pm: Warning is added to the use of key_encoding(). + +2005-04-05 + 1. Gettext.pm: Subroutine attribute "method" is taged on the + following methods: encoding(), key_encoding(), new(), + subclass_init(), bindtextdomain(), textdomain(), maketext(), + reload_text(), die_for_lookup_failures() and encode_failure(). + +2003-05-12 + 1. Gettext.pm: key_encoding applied to "not found" keys only, so that + it can be looked up in their original encoding in the %Lexicon. + +2003-05-09 version 1.10 + 1. Functions.pm: _get_handle: Fallback language handler changed from + the failed language handler $FLH to the empty lexicon $_EMPTY. + This has no real effect, since lookup failures are always handled + by $FLH, but not the current language handler $LH. But this + matches the reality. + +2003-05-08 + 1. Changes: typo (version 1.07 should be version 1.09) + +2003-05-07 + 1. Changes: An excess blank line is removed. + +2003-05-07 version 1.09 + Test suite fix. + 1. 02-big-endian.t: Fix on $MSGFMT so that it works on more + platforms. + +2003-05-07 version 1.08 + Fixes mistakes from version 1.07 + 1. Return the interpreter line to the maketext script. It was a + misunderstanding at 1.07 + 2. Content-Transfer-Encoding is fixed from 8bit to 7bit in the + English MO files. + 3. t/test_native.po: Added. + 4. 02-big-endian.t: Test suite for native-built MO files are added. + Please report your failures. + +2003-05-05 version 1.07 + Bug fixes. + 1. Fix to the interpreter line in the maketext script so that it can + be replaced with correct interpreter at make time. + 2. 11-command-line.t: script location changed from lib/maketext to + blib/script/maketext. + 3. C locale is added to the test suite. + 4. 11-command-line.t: Locales en, zh_TW, zh_CN are remove from the + test suite, to avoid perl warnings from systems that did not + install these locales. + 5. 11-command-line.t: $ENV{"LANGUAGE"} controls added. + +2003-05-04 version 1.06 + 1. Language function override is not available for L::M::G::F and the + maketext script. I almost forgot this problem. Notice is added + to the documentation. Suggestions are welcome. + +2003-05-03 version 1.06 + Introducing "maketext", a command line interface to + Locale::Maketext::Gettext (and Locale::Maketext). + 1. The maketext script is added, a command line interface to + Locale::Maketext::Gettext (and Locale::Maketext). + +2003-05-03 version 1.05 + Test suites fixes. This fixes the failures reported from CPAN + testers. Failures reported from CPAN testers are caused by + Archive-Tar called by CPANPLUS, but not by Locale::Maketext::Gettext + itself. Bug report concerning this problem is already submitted to + Archive-Tar. + 1. Test suite temporarily files test_dyn.mo are removed from + MANIFEST. + 2. File::Copy is used instead of link in the test suites to enable + tests on platforms that does not support hard links (Win32, for + example). + 3. Temporarily files are cleaned up at the end of 05-switching.t and + 10-f-switching.t. + Upgrade is not required if you are using version 1.04. + +2003-05-02 version 1.04 + 1. Support for MO files without encoding specified was added. I + don't know there are MO files born without its encoding. ^^; + 2. L::M::G::F: textdomain() now works for default system locale + directories, too. For domains that are not binded with + bindtextdomain(), it searches the system locale directories to + find the domain MO files. Unlike textdomain() in L::M::G, it + remembers the search result in order to build the index key. + 3. Tests for default system locale directory search are added. It + may be skipped, though. + +2003-05-02 version 1.03 + 1. L::M::G: A algorism bug about key_encoding with auto-lexicon was + fixed. + 2. L::M::G::F: I decide to give up mod_perl safety for encoding, + key_encoding, encode_failure and die_for_lookup_failures(). + POSIX::setlocale() didn't solve this problem, either. Use L::M::G + if you need that. Suggestions and solutions are welcome. + 3. L::M::G: FLH (Failure language handler) is added to + help switching the die_for_lookup_failures() setting. + Maketext can be slightly faster. + +2003-05-01 + Labor's Day! + A Major rewrite to Locale::Maketext::Gettext::Functions. + 1. Packages are declared by a random class ID, instead of by its text + domain previously, in order for a text domain to be redeclared + with different sets of languages infinitely. This solves the + problem where languages cannot to be removed at run-time. You can + add/remove languages/MO files at run time now. You can also + bindtextdomain() to another directory after setting textdomain(). + This is not possible to the object interface of + Locale::Maketext::Gettext (and Locale::Maketext). + 2. fork_and_test is removed from the test suite. It does not seem to + be required by the current random class ID system anymore. + 3. The used of ($t1..$t6) is replaced by ($_[0]..$_[5]) in to + 05-switching.t. + 4. Garbage collection is added. Language handles associated with + abandoned localization classes are dropped in time, in order to + reduce memory used. + +2003-04-30 + 1. L::M::G::F: I forgot to document dmaketext, too. ^^; + But, no, I will not put a third release today! + 2. L::M::G::F: Fixes to documentation typos. + 3. maketext() and __() are exchanged. maketext() is a wrapper to + __() now. The speed of __() should be slightly faster. + +2003-04-30 version 1.02 + Documentation fixes. + 1. L::M::G::F: Documentation fixes. get_handle was not included in + the documentation. ^^; I forgot to put it in. + 2. README was updated. L::M::G::F is included in the README. Also, + the installation procedure is updated, too. I forgot to update it + last time. + +2003-04-30 version 1.01 + Improvements to Locale::Maketext::Gettext::Functions. + 1. L::M::G::F: Documentation fixes. Lots of errors sit there in the + previous documentation. It's impossible to work if you follow the + previous documentation. ^^; Ha ha... + 2. L::M::G: Map the language i-default to the locale C. + 3. L::M::G::F: Map the locale C to the language i-default. + 4. fork_and_test is added to the test suite to test without polluting + the package space. It is slow, though. ^^; + 5. L::M::G::F: Several test suites are added. + 6. L::M::G::F: Error tolerance is largely improved. + 7. L::M::G: New method subclass_init() is added. Object + initialization is moved from the new method to the subclass_init() + method, so that another subclass may inherit it further. + 8. L::M::G::F: The "experimental" warning is removed. Large amount of + errors can be handled gracefully now. + +2003-04-28 + 1. TestPkg/L10N.pm is renamed as T_L10N.pm. It is neater. A + TestPkg/ subdirectory is not necessary. + 2. Change log is fixed. I forgot to put the version number 0.07. + 3. Also, the version number should become 1.00, for the joining of + Locale::Maketext::Gettext::Functions. ^_*' + +2003-04-28 version 0.07 (1.00) + Introducing Locale::Maketext::Gettext::Functions, a functional + interface to Locale::Maketext::Gettext. + 1. The first Locale::Maketext::Gettext::Functions is out. It works! + ^_*' But it is still experimental. It cannot deal with real + world problems still. ^^; + 2. Documentation was fixed so that it is neater. + +2003-04-27 + 1. The name of the _AUTO lexicon package is shorten to + Locale::Maketext::Gettext::_AUTO. + 2. Documentation rearrange. + +2003-04-27 version 0.06 + Improvements. + 1. textdomain() works for default system locale directories now. For + domains that are not binded with bindtextdomain(), it searches the + system locale directories to find the MO file. No test suite is + available for this functionality. I cannot predict what MO files + are available in your system locale directories. ^^; Please + report bugs if it does not work. + 2. Slave package Locale::Maketext::Gettext::_AUTO::L10N is added, in + order to process the _AUTO Lexicon seperately. This saves + resources when user change the die_for_lookup_failures() setting. + Changing die_for_lookup_failures() setting won't trigger copying + and replacing your whole %Lexicon anymore. As an effect, the + cached compiled result of the _AUTO lexicon is preserved and the + compilation overhead from Locale::Maketext is greatly reduced. + 3. read_mo() is added to retire the readmo(). Use of readmo() is + deprecated. This idea is inspired by the implementation of + readmo() as "parse_mo" in Locale::Maketext::Lexicon by Autrijus. + There is far too much meta infomation to be returned other than + its encoding. It's not possible to change the API for each new + requirement. To enable sharing of the algorithm used in read_mo() + with whoever need it, it's necessary to limit its function to read + and return the raw data, leaving all the other jobs to its caller. + 4. For the same reason, caching control is removed from read_mo(), + too. read_mo() read the MO file and return the %Lexicon only. It + really reads. Nothing more. ^_*' + +2003-04-27 version 0.05 + Bug and documentation fixes. + 1. New method key_encoding was added. The _AUTO lexicon is itself + not multibyte-safe. You can specify the encoding of your keys if + you are using non-ASCII keys. This is not a solution, but a + workaround. + 2. New method encode_failure was added. The default action when + encode fails changed from FB_CROAK to FB_DEFAULT. I have changed + my mind. GNU gettext never fails. + 3. The paragraph about Locale::Maketext::Lexicon at the NOTES section + in the documentation is updated. The paragraph about msgunfmt is + removed. + 4. The README file was updated. + 5. The strange line "exists ${"$class\::Lexicon"}{$key};" is removed. + That problem seems to be solved. It is not required anymore. + +2003-04-25 version 0.04 + Documentation fixes. Upgrade is not required if you are using version + 0.03. + +2003-04-25 version 0.03 + Bug fixes. + 1. Fixed clashing of the die_for_lookup_failures() setting from + multiple instances. + 2. Change log is rewritten, to my own format. + 3. A new racing test suite is added. The old racing test suite was + renamed as t-switching. + 4. Redundant initialization of $LH->{"LOCALEDIRS"} in + bindtextdomain() is removed. + 5. An old line at die_for_lookup_failures() which initialize a wrong + $LH->{"LOCALE"} is removed. + 6. Removed 2 incorrect notice in the documentation. There will not + be infinite loops for bindtextdomain() and textdomain(), whatever + value it takes. Apparently I had made a mistake. ^^; + 7. Several typos in the comments are fixed. + 8. Sanity checks to the MO file is moved into readmo(). Cache now + has a higher precedence than the sanity checks, which conforms + with the global design. + 9. More documentation was added to the SYNOPSIS. + 10. Sanity checks for whether a method is invoked as a static method + are added. Maketext use static variables. We should not clash + them. + 11. As a result of the above, the maketext method is no more static. + It is an instance method, meaning that MyPkg::L10N::en->maketext + does not work anymore. + 12. Instance lexicon is initialized in the new method. I almost + forgot it. Thanks to the test suite. :p + +2003-04-25 version 0.02 + Class/object design fixes. + 1. I did tell the difference from class variables to instance + variables. Forgive me, I had no experience with object-oriented + programming at all, not even OO for perl. :p Just a few Java + books. Anyway, the problem with clashing class variables is + fixed. Most class variables are moved into instance variables. + 2. Solved the default output encoding problem by using the encoding + of the MO file as the default encoding. + 3. reload_text method is added to purge the MO file cache, so that + applications do not need to be restarted when their MO file + updates. + 4. MO files of different byte orders are supported now. Big-endian + MO files support is added. + 5. die_for_lookup_failures() method was added. The default behavior + changed to "never fails", as GNU gettext does. + 6. A test suite is added. + +2003-04-24 version 0.01 diff --git a/INSTALL b/INSTALL new file mode 100644 index 0000000..c64d3aa --- /dev/null +++ b/INSTALL @@ -0,0 +1,146 @@ +Locale-Maketext-Gettext Installation Guide + +* Table of Contents + + * System Requirements + * Installation Instruction + ** Install with ExtUtils::MakeMaker + ** Install with Module::Build + ** Install with the CPAN Shell + ** Install with the CPANPLUS Shell + + +* System Requirements + + 1. Perl, version 5.8.0 or above. Locale::Maketext::Gettext uses +the utf8 text internally that is only available since 5.8.0. You can +run perl -v to see your current Perl version. If you don't have +Perl, or if you have an older version of Perl, you can download and +install/upgrade it from Perl website. + +http://www.perl.com/ + + If you are using MS-Windows, you can download and install +ActiveState ActivePerl. + +http://www.activestate.com/ + + 2. Required Perl modules: None. + + 3. Optional Perl modules: None. + + +* Installation Instruction + +** Install with ExtUtils::MakeMaker + + arclog uses standard Perl installation with ExtUtils::MakeMaker. +Follow these steps: + + % perl Makefile.PL + % make + % make test + % make install + + When running make install, make sure you have the priviledge to +write to the installation location. This usually requires the root +priviledge. + + If you are using ActivePerl under MS-Windows, you should use +nmake instead of make. nmake can be obtained from the Microsoft FTP +site. + +ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe + + If you want to install into another location, you can set the +PREFIX. For example, to install into your home when you are not +root: + + % perl Makefile.PL PREFIX=/home/jessica + + Refer to the docuemntation of ExtUtils::MakeMaker for more +installation options (by running perldoc ExtUtils::MakeMaker). + + +** Install with Module::Build + + You can install with Module::Build instead, if you prefer. +Follow these steps: + + % perl Build.PL + % ./Build + % ./Build test + % ./Build install + + When running ./Build install, make sure you have the priviledge to +write to the installation location. This usually requires the root +priviledge. + + If you want to install into another location, you can set the +--prefix. For example, to install into your home when you are not +root: + + % perl Build.PL --prefix=/home/jessica + + Refer to the docuemntation of Module::Build for more +installation options (by running perldoc Module::Build). + + +** Install with the CPAN Shell + + You can install with the CPAN shell, if you prefer. CPAN shell +takes care of ExtUtils::MakeMaker and Module::Build for you: + + % cpan Locale::Maketext::Gettext + + Make sure you have the priviledge to write to the installation +location. This usually requires the root priviledge. Since CPAN +shell 1.81 you can set "make_install_make_command" and +"mbuild_install_build_command" in your CPAN configuration to switch +to root just before install: + + % cpan + cpan> o conf make_install_make_command "sudo make" + cpan> o conf mbuild_install_build_command "sudo ./Build" + cpan> install Locale::Maketext::Gettext + + If you want to install into another location, you can set the +"makepl_arg" and "mbuild_arg" in your CPAN configuration. For +example, to install into your home when you are not root: + + % cpan + cpan> o conf makepl_arg "PREFIX=/home/jessica" + cpan> o conf mbuild_arg "--prefix=/home/jessica" + cpan> install Locale::Maketext::Gettext + + Refer to the docuemntation of cpan for more CPAN shell commands +(by running perldoc cpan). + + +** Install with the CPANPLUS Shell + + You can install with the CPANPLUS shell, if you prefer. CPANPLUS +shell takes care of ExtUtils::MakeMaker and Module::Build for you: + + % cpanp -i Locale::Maketext::Gettext + + Make sure you have the priviledge to write to the installation +location. This usually requires the root priviledge. + + If you want to install into another location, you can set the +"makemakerflags" and "buildflags" in your CPANPLUS configuration. +For example, to install into your home when you are not root: + + % cpanp + CPAN Terminal> s conf makemakerflags "PREFIX=/home/jessica" + CPAN Terminal> s conf buildflags "--prefix=/home/jessica" + CPAN Terminal> install Locale::Maketext::Gettext + + Refer to the docuemntation of cpanp for more CPANPLUS shell +commands (by running perldoc cpanp). + + +imacat +2008-11-11 +imacat@mail.imacat.idv.tw +http://www.imacat.idv.tw/ diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..fec98ae --- /dev/null +++ b/MANIFEST @@ -0,0 +1,43 @@ +Artistic +BUGS +Build.PL +Changes +COPYING +INSTALL +lib/Locale/Maketext/Gettext.pm +lib/Locale/Maketext/Gettext/Functions.pm +Makefile.PL +MANIFEST This list of files +META.yml +README +script/maketext +SIGNATURE +t/00-signature.t +t/01-basic.t +t/02-big-endian.t +t/03-errors.t +t/04-encodings.t +t/05-switching.t +t/06-racing.t +t/07-f-basic.t +t/08-f-errors.t +t/09-f-encodings.t +t/10-f-switching.t +t/11-command-line.t +t/99-pod.t +t/locale/C/LC_MESSAGES/test.mo +t/locale/en/LC_MESSAGES/bad.mo +t/locale/en/LC_MESSAGES/test.mo +t/locale/en/LC_MESSAGES/test2.mo +t/locale/en/LC_MESSAGES/test_be.mo +t/locale/en/LC_MESSAGES/test_utf8.mo +t/locale/zh_CN/LC_MESSAGES/test.mo +t/locale/zh_CN/LC_MESSAGES/test_be.mo +t/locale/zh_CN/LC_MESSAGES/test_utf8.mo +t/locale/zh_TW/LC_MESSAGES/test.mo +t/locale/zh_TW/LC_MESSAGES/test2.mo +t/locale/zh_TW/LC_MESSAGES/test_be.mo +t/locale/zh_TW/LC_MESSAGES/test_utf8.mo +t/T_L10N.pm +THANKS +TODO diff --git a/META.yml b/META.yml new file mode 100644 index 0000000..7bf5be4 --- /dev/null +++ b/META.yml @@ -0,0 +1,21 @@ +--- #YAML:1.0 +name: Locale-Maketext-Gettext +version: 1.28 +abstract: Joins gettext and Maketext frameworks +author: + - imacat +license: perl +distribution_type: module +configure_requires: + ExtUtils::MakeMaker: 0 +build_requires: + ExtUtils::MakeMaker: 0 +requires: {} +no_index: + directory: + - t + - inc +generated_by: ExtUtils::MakeMaker version 6.52 +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 diff --git a/Makefile.PL b/Makefile.PL new file mode 100755 index 0000000..686e348 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,32 @@ +#! /usr/bin/perl -w +require 5.008; +use strict; +use ExtUtils::MakeMaker; + +# LICENSE is only availabe since ExtUtils::MakeMaker 6.30_01 +use vars qw(%license $eummver); +%license = qw(); +$eummver = $ExtUtils::MakeMaker::VERSION; +$eummver =~ s/_//; +%license = (LICENSE => "perl") if $eummver > 6.30; + +WriteMakefile( + NAME => "Locale-Maketext-Gettext", + VERSION => "1.28", + ABSTRACT => "Joins gettext and Maketext frameworks", + AUTHOR => "imacat ", + %license, + PREREQ_PM => { }, + SIGN => 1, + + EXE_FILES => [ "script/maketext" ], + dist => { + COMPRESS => "gzip -9", + SUFFIX => ".gz", + }, + clean => { + FILES => "t/test_native.po t/locale/en/LC_MESSAGES/test_native.mo", + }, +); + +__END__ diff --git a/README b/README new file mode 100644 index 0000000..b4eb9cf --- /dev/null +++ b/README @@ -0,0 +1,54 @@ +Locale::Maketext::Gettext - Joins the gettext and Maketext frameworks + +Locale::Maketext::Gettext joins the GNU gettext and Maketext +frameworks. It is a subclass of Locale::Maketext that follows the +way GNU gettext works. It works seamlessly, both in the sense of +GNU gettext and Maketext. As a result, you enjoy both their +advantages, and get rid of both their problems, too. + +You start as an usual GNU gettext localization project: Work on +PO files with the help of translators, reviewers and Emacs. Turn +them into MO files with msgfmt. Copy them into the appropriate +locale directory, such as +/usr/share/locale/de/LC_MESSAGES/myapp.mo. + +Then, build your Maketext localization class, with your base class +changed from Locale::Maketext to Locale::Maketext::Gettext. That's +all. ^_*' + + +* Locale::Maketext::Gettext::Functions + +Locale::Maketext::Gettext::Functions is a functional +interface to Locale::Maketext::Gettext (and Locale::Maketext). +It works completely the GNU gettext way. It plays magic to +Locale::Maketext. No more localization class/subclasses and language +handles are required. + + +* The maketext script + +The maketext script is a command-line interface to +Locale::Maketext::Gettext (and Locale::Maketext). It can be used in +shell scripts, etc, to translate, maketext and return the +result. It enables Maketext to be integrated into other programming +languages/systems, like bash/csh, python, PHP, C, etc. It works +like the command-line program gettext. + + +* Installation + + Read INSTALL for instructions on how to install +Locale::Maketext::Gettext. + + +* News, Changes and Updates + + Refer to the Changes for changes, bug fixes, updates, new functions, etc. + + +* Copyright + +Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +software; you can redistribute it and/or modify it under the same terms +as Perl itself. diff --git a/SIGNATURE b/SIGNATURE new file mode 100644 index 0000000..4bcd23b --- /dev/null +++ b/SIGNATURE @@ -0,0 +1,65 @@ +This file contains message digests of all files listed in MANIFEST, +signed via the Module::Signature module, version 0.55. + +To verify the content in this distribution, first make sure you have +Module::Signature installed, then type: + + % cpansign -v + +It will check each file's integrity, as well as the signature's +validity. If "==> Signature verified OK! <==" is not displayed, +the distribution may already have been compromised, and you should +not run its Makefile.PL or Build.PL. + +-----BEGIN PGP SIGNED MESSAGE----- +Hash: SHA1 + +SHA1 be0627fff2e8aef3d2a14d5d7486babc8a4873ba Artistic +SHA1 f044bfe71c57b6f25c659bc0a6067aa854bc8343 BUGS +SHA1 7d6278e57e33472b167335a5435081f307f0dc70 Build.PL +SHA1 8624bcdae55baeef00cd11d5dfcfa60f68710a02 COPYING +SHA1 5863e86e8a20bbb63b3fd295520b861fa87db0c7 Changes +SHA1 e9345adfeb32db567cd1be52f3f27307943a36bc INSTALL +SHA1 c7d9c9b334b816e6f06473647cd9a054152a44c9 MANIFEST +SHA1 39589ded15e1d09a79c41391392d249de3708f4a META.yml +SHA1 ec92e11b76afaa05f67d83a6e32056505a45c99e Makefile.PL +SHA1 b699f73f5fa33123b2f4f1b210665e295900c74d README +SHA1 3db402b52e04cf5a6e60291c23aac8c16f2db810 THANKS +SHA1 85dd5ac895cc0a5b95827060999578d8ce8d41dd TODO +SHA1 f9deac7b12cc6a3cb18b7f5282f9e6a1e1a624b9 lib/Locale/Maketext/Gettext.pm +SHA1 b88b6bad1e8cb0ba825594c233c006c1b297646f lib/Locale/Maketext/Gettext/Functions.pm +SHA1 f89afd70fdcbaeeab44fada7ed3087d5c7f6f018 script/maketext +SHA1 525f414c7a0aadc61240a4b0959ca2cda7514c75 t/00-signature.t +SHA1 7bc2bf2d3ef2befd48a457fb3d90c7c7bdcc4854 t/01-basic.t +SHA1 73ce1e3ba168373318655b3f4fbca1847e49fd75 t/02-big-endian.t +SHA1 4b07656e4c35bfce793c96b59bb9ae2917be335e t/03-errors.t +SHA1 8a28c721b5eefe607c300192c8cb8e8107f419be t/04-encodings.t +SHA1 c16af7bbe1d9bd7ce8644c19f968231b94156c12 t/05-switching.t +SHA1 0212e5b50d6886601b0a4ad82d3c656975009a73 t/06-racing.t +SHA1 2ddb628b67ae35033fad4331c5323928d7dd7395 t/07-f-basic.t +SHA1 a4491ef77b899c4988b8ab34fb8f945a8d06c285 t/08-f-errors.t +SHA1 8fb7ecbce36daaf81ac9c197dab6834b25233cc5 t/09-f-encodings.t +SHA1 2c1641cc6fff792fb83826486050acab23a1db51 t/10-f-switching.t +SHA1 4afe4980e7ed4d326009b8257e01320abfb33d14 t/11-command-line.t +SHA1 b85626024d610808bd0909989dcfb9fb20a40485 t/99-pod.t +SHA1 97dad77dee7f751d09efdb6900b077d68c853d46 t/T_L10N.pm +SHA1 676b87d7a8edc735ba676d2901827eb52532b418 t/locale/C/LC_MESSAGES/test.mo +SHA1 80ca74a96bd6f83bd903ebfd021b87c9184582eb t/locale/en/LC_MESSAGES/bad.mo +SHA1 676b87d7a8edc735ba676d2901827eb52532b418 t/locale/en/LC_MESSAGES/test.mo +SHA1 fbd67646ebb39a99c1ab5aa985addd7f7ab27561 t/locale/en/LC_MESSAGES/test2.mo +SHA1 99b05048a1243bb75622a3c6e8a7c8e9f59a9151 t/locale/en/LC_MESSAGES/test_be.mo +SHA1 5d3e312b86526ebe164589b1f7fbf96f01823b0c t/locale/en/LC_MESSAGES/test_utf8.mo +SHA1 42eece65e0ceae8267000b42692212c260a49b36 t/locale/zh_CN/LC_MESSAGES/test.mo +SHA1 746c06a73e4eb641eb006c90ed938c4b98cfc2ec t/locale/zh_CN/LC_MESSAGES/test_be.mo +SHA1 8db66e4035d1f55cd27186e02c0386709c2fc3d0 t/locale/zh_CN/LC_MESSAGES/test_utf8.mo +SHA1 6aa98d6675c91555309d58a93ff59cb205cbdd7b t/locale/zh_TW/LC_MESSAGES/test.mo +SHA1 bcc89cdc393507d51b5a76e40954db72914b60d8 t/locale/zh_TW/LC_MESSAGES/test2.mo +SHA1 20f810c6229d0bd4064b27f9b3d86b61a20f0821 t/locale/zh_TW/LC_MESSAGES/test_be.mo +SHA1 eb13887b005e3c3e9fab774dfea22de5c01ad1ef t/locale/zh_TW/LC_MESSAGES/test_utf8.mo +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.9 (GNU/Linux) + +iEYEARECAAYFAkpFc8MACgkQi9gubzC5S1w3kQCfY4bdMI9M6+sTT+y//sHibPDP +LUUAnRvtrXrg1Tov/anLHx0Xur3TmAQQ +=Au1F +-----END PGP SIGNATURE----- diff --git a/THANKS b/THANKS new file mode 100644 index 0000000..06f6a95 --- /dev/null +++ b/THANKS @@ -0,0 +1,24 @@ +Thanks to Sean M. Burke, for writing such a great localization framework as +Locale::Maketext, especially for his ideas about the plural forms. + +Thanks to the GNU group, for writing such a great localization framework as +GNU gettext, especially for the completeness and simplicity of its design. + +Thanks for Autrijus Tang for writing +Locale::Maketext::Lexicon. It inspires me to import %Lexicon from other +sources. Also thanks for approving such a project that is a competition to +his own Locale::Maketext::Lexicon. :p + +Thanks to Max Maischein for reporting CPAN tester failures +200029, 200332 and 200331, that helps me finding the shell character escaping +problem on my test suite. + +Thanks to Andreas Koenig for reporting CPAN tester failures +387357 and submitting rt bug 23956, informing me the base class +Locale::Maketext has updated its error handling behavior in the Perl 5.9. + +Thanks to Chris Travers for suggestion on +implementing pgettext() in GNU gettext as pmaketext(). + +Finally, well, :p thanks to Larry Wall, for writing such a +great programming language, as Perl. diff --git a/TODO b/TODO new file mode 100644 index 0000000..edd1bbd --- /dev/null +++ b/TODO @@ -0,0 +1,4 @@ +Locale-Maketext-Gettext TODO list + +- Design a way for MO file installation through ExtUtils::MakeMaker + and Module::Build. diff --git a/lib/Locale/Maketext/Gettext.pm b/lib/Locale/Maketext/Gettext.pm new file mode 100644 index 0000000..0f37a3e --- /dev/null +++ b/lib/Locale/Maketext/Gettext.pm @@ -0,0 +1,814 @@ +# Locale::Maketext::Gettext - Joins the gettext and Maketext frameworks + +# Copyright (c) 2003-2009 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. +# First written: 2003-04-23 + +package Locale::Maketext::Gettext; +use 5.008; +use strict; +use warnings; +use base qw(Locale::Maketext Exporter); +use vars qw($VERSION @ISA %Lexicon @EXPORT @EXPORT_OK); +$VERSION = 1.28; +@EXPORT = qw(read_mo); +@EXPORT_OK = @EXPORT; +# Prototype declaration +sub read_mo($); + +use Encode qw(encode decode FB_DEFAULT); +use File::Spec::Functions qw(catfile); +no strict qw(refs); + +use vars qw(%Lexicons %ENCODINGS $REREAD_MO $MOFILE); +$REREAD_MO = 0; +$MOFILE = ""; +use vars qw(@SYSTEM_LOCALEDIRS); +@SYSTEM_LOCALEDIRS = qw(/usr/share/locale /usr/lib/locale + /usr/local/share/locale /usr/local/lib/locale); + +# encoding: Set or retrieve the output encoding +sub encoding : method { + local ($_, %_); + my $self; + ($self, $_) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Set the output encoding + if (@_ > 1) { + if (defined $_) { + $self->{"ENCODING"} = $_; + } else { + delete $self->{"ENCODING"}; + } + $self->{"USERSET_ENCODING"} = $_; + } + + # Return the encoding + return exists $self->{"ENCODING"}? $self->{"ENCODING"}: undef; +} + +# key_encoding: Specify the encoding used in the keys +sub key_encoding : method { + local ($_, %_); + my $self; + ($self, $_) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Set the encoding used in the keys + if (@_ > 1) { + if (defined $_) { + $self->{"KEY_ENCODING"} = $_; + } else { + delete $self->{"KEY_ENCODING"}; + } + } + + # Return the encoding + return exists $self->{"KEY_ENCODING"}? $self->{"KEY_ENCODING"}: undef; +} + +# new: Initialize the language handler +sub new : method { + local ($_, %_); + my ($self, $class); + $class = ref($_[0]) || $_[0]; + $self = bless {}, $class; + $self->subclass_init; + $self->init; + return $self; +} + +# subclass_init: Initialize at the subclass level, so that it can be +# inherited by calling $self->SUPER:subclass_init +sub subclass_init : method { + local ($_, %_); + my ($self, $class); + $self = $_[0]; + $class = ref($self); + # Initialize the instance lexicon + $self->{"Lexicon"} = {}; + # Initialize the LOCALEDIRS registry + $self->{"LOCALEDIRS"} = {}; + # Initialize the MO timestamp + $self->{"REREAD_MO"} = $REREAD_MO; + # Initialize the DIE_FOR_LOOKUP_FAILURES setting + $self->{"DIE_FOR_LOOKUP_FAILURES"} = 0; + $self->SUPER::fail_with($self->can("failure_handler_auto")); + # Initialize the ENCODE_FAILURE setting + $self->{"ENCODE_FAILURE"} = FB_DEFAULT; + # Initialize the MOFILE value of this instance + $self->{"MOFILE"} = ""; + ${"$class\::MOFILE"} = "" if !defined ${"$class\::MOFILE"}; + # Find the locale name, for this subclass + $self->{"LOCALE"} = $class; + $self->{"LOCALE"} =~ s/^.*:://; + $self->{"LOCALE"} =~ s/(_)(.*)$/$1 . uc $2/e; + # Map i_default to C + $self->{"LOCALE"} = "C" if $self->{"LOCALE"} eq "i_default"; + # Set the category. Currently this is always LC_MESSAGES + $self->{"CATEGORY"} = "LC_MESSAGES"; + # Default key encoding is US-ASCII + $self->{"KEY_ENCODING"} = "US-ASCII"; + return; +} + +# bindtextdomain: Bind a text domain to a locale directory +sub bindtextdomain : method { + local ($_, %_); + my ($self, $DOMAIN, $LOCALEDIR); + ($self, $DOMAIN, $LOCALEDIR) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Return null for this rare case + return if !defined $LOCALEDIR + && !exists ${$self->{"LOCALEDIRS"}}{$DOMAIN}; + + # Register the DOMAIN and its LOCALEDIR + ${$self->{"LOCALEDIRS"}}{$DOMAIN} = $LOCALEDIR if defined $LOCALEDIR; + + # Return the registry + return ${$self->{"LOCALEDIRS"}}{$DOMAIN}; +} + +# textdomain: Set the current text domain +sub textdomain : method { + local ($_, %_); + my ($self, $class, $DOMAIN, $LOCALEDIR, $MOfile); + ($self, $DOMAIN) = @_; + + # This is not a static method + return if ref($self) eq ""; + # Find the class name + $class = ref($self); + + # Return the current domain + return $self->{"DOMAIN"} if !defined $DOMAIN; + + # Set the timestamp of this read in this instance + $self->{"REREAD_MO"} = $REREAD_MO; + # Set the current domain + $self->{"DOMAIN"} = $DOMAIN; + + # Clear it + $self->{"Lexicon"} = {}; + %{"$class\::Lexicon"} = qw(); + $self->{"MOFILE"} = ""; + ${"$class\::MOFILE"} = ""; + + # The format is "{LOCALEDIR}/{LOCALE}/{CATEGORY}/{DOMAIN}.mo" + # Search the system locale directories if the domain was not + # registered yet + if (!exists ${$self->{"LOCALEDIRS"}}{$DOMAIN}) { + undef $MOfile; + foreach $LOCALEDIR (@SYSTEM_LOCALEDIRS) { + $_ = catfile($LOCALEDIR, $self->{"LOCALE"}, + $self->{"CATEGORY"}, "$DOMAIN.mo"); + if (-f $_ && -r $_) { + $MOfile = $_; + last; + } + } + # Not found at last + return $DOMAIN if !defined $MOfile; + + # This domain was registered + } else { + $MOfile = catfile(${$self->{"LOCALEDIRS"}}{$DOMAIN}, + $self->{"LOCALE"}, $self->{"CATEGORY"}, "$DOMAIN.mo"); + } + + # Record it + ${"$class\::MOFILE"} = $MOfile; + $self->{"MOFILE"} = $MOfile; + + # Read the MO file + # Cached + if (!exists $ENCODINGS{$MOfile} || !exists $Lexicons{$MOfile}) { + my $enc; + # Read it + %_ = read_mo($MOfile); + + # Successfully read + if (scalar(keys %_) > 0) { + # Decode it + # Find the encoding of that MO file + if ($_{""} =~ /^Content-Type: text\/plain; charset=(.*)$/im) { + $enc = $1; + # Default to US-ASCII + } else { + $enc = "US-ASCII"; + } + # Set the current encoding to the encoding of the MO file + $_{$_} = decode($enc, $_{$_}) foreach keys %_; + } + + # Cache them + $Lexicons{$MOfile} = \%_; + $ENCODINGS{$MOfile} = $enc; + } + + # Respect the existing output encoding + if (defined $ENCODINGS{$MOfile}) { + $self->{"MO_ENCODING"} = $ENCODINGS{$MOfile}; + } else { + delete $self->{"MO_ENCODING"}; + } + # Respect the MO file encoding unless there is a user preferrence + if (!exists $self->{"USERSET_ENCODING"}) { + if (exists $self->{"MO_ENCODING"}) { + $self->{"ENCODING"} = $self->{"MO_ENCODING"}; + } else { + delete $self->{"ENCODING"}; + } + } + $self->{"Lexicon"} = $Lexicons{$MOfile}; + %{"$class\::Lexicon"} = %{$Lexicons{$MOfile}}; + $self->clear_isa_scan; + + return $DOMAIN; +} + +# maketext: Encode after maketext +sub maketext : method { + local ($_, %_); + my ($self, $key, @param, $class, $keyd); + ($self, $key, @param) = @_; + + # This is not a static method - NOW + return if ref($self) eq ""; + # Find the class name + $class = ref($self); + + # MO file should be re-read + if ($self->{"REREAD_MO"} < $REREAD_MO) { + $self->{"REREAD_MO"} = $REREAD_MO; + defined($_ = $self->textdomain) and $self->textdomain($_); + } + + # If the instance lexicon is changed. + # Maketext uses a class lexicon. We have to copy the instance + # lexicon into the class lexicon. This is slow. Mass memory + # copy sucks. Avoid create several language handles for a + # single localization subclass whenever possible. + # Maketext uses class lexicon in order to track the inheritance. + # It is hard to change it. + if (${"$class\::MOFILE"} ne $self->{"MOFILE"}) { + ${"$class\::MOFILE"} = $self->{"MOFILE"}; + %{"$class\::Lexicon"} = %{$self->{"Lexicon"}}; + } + + # Decode the source text + $keyd = $key; + $keyd = decode($self->{"KEY_ENCODING"}, $keyd, $self->{"ENCODE_FAILURE"}) + if exists $self->{"KEY_ENCODING"} && !Encode::is_utf8($key); + # Maketext + $_ = $self->SUPER::maketext($keyd, @param); + # Output to the requested encoding + if (exists $self->{"ENCODING"}) { + $_ = encode($self->{"ENCODING"}, $_, $self->{"ENCODE_FAILURE"}); + # Pass through the empty/invalid lexicon + } elsif ( scalar(keys %{$self->{"Lexicon"}}) == 0 + && exists $self->{"KEY_ENCODING"} + && !Encode::is_utf8($key)) { + $_ = encode($self->{"KEY_ENCODING"}, $_, $self->{"ENCODE_FAILURE"}); + } + + return $_; +} + +# pmaketext: Maketext with context +sub pmaketext : method { + local ($_, %_); + my ($self, $ctxt, $key, @param); + ($self, $ctxt, $key, @param) = @_; + # This is not a static method - NOW + return if ref($self) eq ""; + # This is actually a wrapper to the maketext() method + return $self->maketext("$ctxt\x04$key", @param); +} + +# read_mo: Subroutine to read and parse the MO file +# Refer to gettext documentation section 8.3 +sub read_mo($) { + local ($_, %_); + my ($MOfile, $len, $FH, $content, $tmpl); + $MOfile = $_[0]; + + # Avild being stupid + return unless -f $MOfile && -r $MOfile; + # Read the MO file + $len = (stat $MOfile)[7]; + open $FH, $MOfile or return; # GNU gettext never fails! + binmode $FH; + defined($_ = read $FH, $content, $len) + or return; + close $FH or return; + + # Find the byte order of the MO file creator + $_ = substr($content, 0, 4); + # Little endian + if ($_ eq "\xde\x12\x04\x95") { + $tmpl = "V"; + # Big endian + } elsif ($_ eq "\x95\x04\x12\xde") { + $tmpl = "N"; + # Wrong magic number. Not a valid MO file. + } else { + return; + } + + # Check the MO format revision number + $_ = unpack $tmpl, substr($content, 4, 4); + # There is only one revision now: revision 0. + return if $_ > 0; + + my ($num, $offo, $offt); + # Number of messages + $num = unpack $tmpl, substr($content, 8, 4); + # Offset to the beginning of the original messages + $offo = unpack $tmpl, substr($content, 12, 4); + # Offset to the beginning of the translated messages + $offt = unpack $tmpl, substr($content, 16, 4); + %_ = qw(); + for ($_ = 0; $_ < $num; $_++) { + my ($len, $off, $stro, $strt); + # The first word is the length of the message + $len = unpack $tmpl, substr($content, $offo+$_*8, 4); + # The second word is the offset of the message + $off = unpack $tmpl, substr($content, $offo+$_*8+4, 4); + # Original message + $stro = substr($content, $off, $len); + + # The first word is the length of the message + $len = unpack $tmpl, substr($content, $offt+$_*8, 4); + # The second word is the offset of the message + $off = unpack $tmpl, substr($content, $offt+$_*8+4, 4); + # Translated message + $strt = substr($content, $off, $len); + + # Hash it + $_{$stro} = $strt; + } + + return %_; +} + +# reload_text: Method to purge the lexicon cache +sub reload_text : method { + local ($_, %_); + + # Purge the text cache + %Lexicons = qw(); + %ENCODINGS = qw(); + $REREAD_MO = time; + + return; +} + +# fail_with: A wrapper to the fail_with() of Locale::Maketext, in order +# to record the preferred failure handler of the user, so that +# die_for_lookup_failures() knows where to return to. +sub fail_with : method { + local ($_, %_); + my $self; + ($self, $_) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Set the current setting + if (@_ > 1) { + if (defined $_) { + $self->{"USERSET_FAIL"} = $_; + $self->SUPER::fail_with($_) if $self->{"DIE_FOR_LOOKUP_FAILURES"}; + } else { + delete $self->{"USERSET_FAIL"}; + delete $self->{"fail"} if $self->{"DIE_FOR_LOOKUP_FAILURES"}; + } + } + + # Return the current setting + return exists $self->{"USERSET_FAIL"}? $self->{"USERSET_FAIL"}: undef; +} + +# die_for_lookup_failures: Whether we should die for lookup failure +# The default is no. GNU gettext never fails. +sub die_for_lookup_failures : method { + local ($_, %_); + my $self; + ($self, $_) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Set the current setting + if (@_ > 1) { + if ($_) { + $self->{"DIE_FOR_LOOKUP_FAILURES"} = 1; + if (exists $self->{"USERSET_FAIL"}) { + $self->{"fail"} = $self->{"USERSET_FAIL"}; + } else { + delete $self->{"fail"}; + } + } else { + $self->SUPER::fail_with($self->can("failure_handler_auto")); + $self->{"DIE_FOR_LOOKUP_FAILURES"} = 0; + } + } + + # Return the current setting + return exists $self->{"DIE_FOR_LOOKUP_FAILURES"}? + $self->{"DIE_FOR_LOOKUP_FAILURES"}: undef; +} + +# encode_failure: What to do if the text is out of your output encoding +# Refer to Encode on possible values of this check +sub encode_failure : method { + local ($_, %_); + my $self; + ($self, $_) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Specify the action used in the keys + $self->{"ENCODE_FAILURE"} = $_ if @_ > 1; + + # Return the encoding + return $self->{"ENCODE_FAILURE"} if exists $self->{"ENCODE_FAILURE"}; + return undef; +} + +# failure_handler_auto: Our local version of failure_handler_auto(), +# Copied and rewritten from Locale::Maketext, with bug#33938 patch applied. +# See http://rt.perl.org/rt3//Public/Bug/Display.html?id=33938 +sub failure_handler_auto : method { + local ($_, %_); + my ($self, $key, @param, $r); + ($self, $key, @param) = @_; + + # This is not a static method + return if ref($self) eq ""; + + # Remove the context + # We assume there is no one using EOF either in the context or message. + # That does not work in GNU gettext, anyway. + $key =~ s/^[^\x04]*\x04//; + + $self->{"failure_lex"} = {} if !exists $self->{"failure_lex"}; + ${$self->{"failure_lex"}}{$key} = $self->_compile($key) + if !exists ${$self->{"failure_lex"}}{$key}; + $_ = ${$self->{"failure_lex"}}{$key}; + + # A scalar result + return $$_ if ref($_) eq "SCALAR"; + return $_ unless ref($_) eq "CODE"; + # A compiled subroutine + { + local $SIG{"__DIE__"}; + $r = eval { + $_ = &$_($self, @param); + return 1; + }; + } + + # If we make it here, there was an exception thrown in the + # call to $value, and so scream: + if (!defined $r) { + $_ = $@; + # pretty up the error message + s<\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?> + <\n in bracket code [compiled line $1],>s; + Carp::croak "Error in maketexting \"$key\":\n$_ as used"; + return; + } + + # OK + return $_; +} + +return 1; + +__END__ + +=head1 NAME + +Locale::Maketext::Gettext - Joins the gettext and Maketext frameworks + +=head1 SYNOPSIS + +In your localization class: + + package MyPackage::L10N; + use base qw(Locale::Maketext::Gettext); + return 1; + +In your application: + + use MyPackage::L10N; + $LH = MyPackage::L10N->get_handle or die "What language?"; + $LH->bindtextdomain("mypackage", "/home/user/locale"); + $LH->textdomain("mypackage"); + $LH->maketext("Hello, world!!"); + +If you want to have more control to the detail: + + # Change the output encoding + $LH->encoding("UTF-8"); + # Stick with the Maketext behavior on lookup failures + $LH->die_for_lookup_failures(1); + # Flush the MO file cache and re-read your updated MO files + $LH->reload_text; + # Set the encoding of your maketext keys, if not in English + $LH->key_encoding("Big5"); + # Set the action when encode fails + $LH->encode_failure(Encode::FB_HTMLCREF); + +Use Locale::Maketext::Gettext to read and parse the MO file: + + use Locale::Maketext::Gettext; + %Lexicon = read_mo($MOfile); + +=head1 DESCRIPTION + +Locale::Maketext::Gettext joins the GNU gettext and Maketext +frameworks. It is a subclass of L +that follows the way GNU gettext works. It works seamlessly, I. As a result, you I + +You start as an usual GNU gettext localization project: Work on +PO files with the help of translators, reviewers and Emacs. Turn +them into MO files with F. Copy them into the appropriate +locale directory, such as +F. + +Then, build your Maketext localization class, with your base class +changed from L to +Locale::Maketext::Gettext. That is all. + +=head1 METHODS + +=over + +=item $LH->bindtextdomain(DOMAIN, LOCALEDIR) + +Register a text domain with a locale directory. Returns C +itself. If C is omitted, the registered locale directory +of C is returned. This method always success. + +=item $LH->textdomain(DOMAIN) + +Set the current text domain. Returns the C itself. If +C is omitted, the current text domain is returned. This +method always success. + +=item $text = $LH->maketext($key, @param...) + +Lookup the $key in the current lexicon and return a translated +message in the language of the user. This is the same method in +L, with a wrapper that +returns the text message Cd according to the current +C. Refer to L for +the maketext plural notation. + +=item $text = $LH->pmaketext($ctxt, $key, @param...) + +Lookup the $key in a particular context in the current lexicon and +return a translated message in the language of the user. Use +"--keyword=pmaketext:1c,2" for the xgettext utility. + +=item $LH->language_tag + +Retrieve the language tag. This is the same method in +L. It is readonly. + +=item $LH->encoding(ENCODING) + +Set or retrieve the output encoding. The default is the same +encoding as the gettext MO file. You can specify C, to return +the result in unencoded UTF-8. + +=item $LH->key_encoding(ENCODING) + +Specify the encoding used in your original text. The C +method itself is not multibyte-safe to the _AUTO lexicon. If you are +using your native non-English language as your original text and you +are having troubles like: + +Unterminated bracket group, in: + +Then, specify the C to the encoding of your original +text. Returns the current setting. + +B You should always use US-ASCII text keys. Using +non-US-ASCII keys is always discouraged and is not guaranteed to +be working. + +=item $LH->encode_failure(CHECK) + +Set the action when encode fails. This happens when the output text +is out of the scope of your output encoding. For exmaple, output +Chinese into US-ASCII. Refer to L for the +possible values of this C. The default is C, +which is a safe choice that never fails. But part of your text may +be lost, since that is what C does. Returns the current +setting. + +=item $LH->die_for_lookup_failures(SHOULD_I_DIE) + +Maketext dies for lookup failures, but GNU gettext never fails. +By default Lexicon::Maketext::Gettext follows the GNU gettext +behavior. But if you are Maketext-styled, or if you need a better +control over the failures (like me :p), set this to 1. Returns the +current setting. + +Note that lookup failure handler you registered with fail_with() only +work when die_for_lookup_failures() is enabled. if you disable +die_for_lookup_failures(), maketext() never fails and lookup failure +handler will be ignored. + +=item $LH->reload_text + +Purge the MO text cache. It purges the MO text cache from the base +class Locale::Maketext::Gettext. The next time C is +called, the MO file will be read and parse from the disk again. This +is used when your MO file is updated, but you cannot shutdown and +restart the application. For example, when you are a co-hoster on a +mod_perl-enabled Apache, or when your mod_perl-enabled Apache is too +vital to be restarted for every update of your MO file, or if you +are running a vital daemon, such as an X display server. + +=back + +=head1 FUNCTIONS + +=over + +=item %Lexicon = read_mo($MOfile); + +Read and parse the MO file. Returns the read %Lexicon. The returned +lexicon is in its original encoding. + +If you need the meta infomation of your MO file, parse the entry +C<$Lexicon{""}>. For example: + + /^Content-Type: text\/plain; charset=(.*)$/im; + $encoding = $1; + +C is exported by default, but you need to C in order to use it. It is not exported +from your localization class, but from the Locale::Maketext::Gettext +package. + +=back + +=head1 NOTES + +B do not try to put any lexicon in your language subclass. +When the C method is called, the current lexicon will be +B, but not appended. This is to accommodate the way +C works. Messages from the previous text domain should +not stay in the current text domain. + +An essential benefit of this Locale::Maketext::Gettext over the +original L is that: +I but Perl source is not. GNU gettext +is safe to Big5 characters like \xa5\x5c (Gong1). But if you follow +the current L document and +put your lexicon as a hash in the source of a localization subclass, +you have to escape bytes like \x5c, \x40, \x5b, etc., in the middle +of some natural multibyte characters. This breaks these characters +in halves. Your non-technical translators and reviewers will be +presented with unreadable mess, "Luan4Ma3". Sorry to say this, but +it is weird for a localization framework to be not multibyte-safe. +But, well, here comes Locale::Maketext::Gettext to rescue. With +Locale::Maketext::Gettext, you can sit back and relax now, leaving +all this mess to the excellent GNU gettext framework. + +The idea of Locale::Maketext::Getttext came from +L, a great +work by Autrijus. But it has several problems at that time (version +0.16). I was first trying to write a wrapper to fix it, but finally +I dropped it and decided to make a solution towards +L itself. +L should be +fine now if you obtain a version newer than 0.16. + +Locale::Maketext::Gettext also solved the problem of lack of the +ability to handle the encoding in +L. I implement this since +this is what GNU gettext does. When %Lexicon is read from MO files +by C, the encoding tagged in gettext MO files is used to +C the text into the internal encoding of Perl. Then, when +extracted by C, it is Cd by the current +C value. The C can be set at run time, so +that you can run a daemon and output to different encoding +according to the language settings of individual users, without +having to restart the application. This is an improvement to the +L, and is essential to +daemons and C applications. + +You should trust the encoding of your gettext MO file. GNU gettext +C checks the illegal characters for you when you compile your +MO file from your PO file. The encoding form your MO files are +always good. If you try to output to a wrong encoding, part of your +text may be lost, as C does. If you do not like this +C, change the failure behavior with the method +C. + +If you need the behavior of auto Traditional Chinese/Simplfied +Chinese conversion, as GNU gettext smartly does, do it yourself with +L, too. There may be a +solution for this in the future, but not now. + +If you set C to a domain that is not C to +specific a locale directory yet, it will try search system locale +directories. The current system locale directory search order is: +/usr/share/locale, /usr/lib/locale, /usr/local/share/locale, +/usr/local/lib/locale. Suggestions for this search order are +welcome. + +B Imaketext(...) is not available +anymore,> as the C method is no more static. That is a +sure result, as %Lexicon is imported from foreign sources +dynamically, but not statically hardcoded in Perl sources. But the +documentation of L does not +say that you can use it as a static method anyway. Maybe you were +practicing this before. You had better check your existing code for +this. If you try to invoke it statically, it returns C. + +C and C in GNU gettext are not implemented. +It is not possible to temporarily change the current text domain in +the current design of Locale::Maketext::Gettext. Besides, it is +meaningless. Locale::Maketext is object-oriented. You can always +raise a new language handle for another text domain. This is +different from the situation of GNU gettext. Also, the category +is always C. Of course it is. We are gettext and +Maketext. + +Avoid creating different language handles with different +textdomain on the same localization subclass. This currently +works, but it violates the basic design of +L. In +L, %Lexicon is saved as a +class variable, in order for the lexicon inheritance system to work. +So, multiple language handles to a same localization subclass shares +a same lexicon space. Their lexicon space clash. I tried to avoid +this problem by saving a copy of the current lexicon as an instance +variable, and replacing the class lexicon with the current instance +lexicon whenever it is changed by another language handle instance. +But this involves large scaled memory copy, which affects the +proformance seriously. This is discouraged. You are adviced to use +a single textdomain for a single localization class. + +The C is a workaround, not a solution. There is no +solution to this problem yet. You should avoid using non-English +language as your original text. You will get yourself into trouble +if you mix several original text encodings, for example, joining +several pieces of code from programmers all around the world, with +their messages written in their own language and encodings. Solution +suggestions are welcome. + +C in GNU gettext is implemented as C, in order +to look up the text message translation in a particular context. +Thanks to the suggestion from Chris Travers. + +=head1 BUGS + +GNU gettext never fails. I tries to achieve it as long as possible. +The only reason that maketext may die unexpectedly now is +"Unterminated bracket group". I cannot get a better solution to it +currently. Suggestions are welcome. + +You are welcome to fix my English. I have done my best to this +documentation, but I am not a native English speaker after all. ^^; + +=head1 SEE ALSO + +L, +L, +L, +L, L, +L. Also, please refer to the official GNU +gettext manual at L. + +=head1 AUTHOR + +imacat + +=head1 COPYRIGHT + +Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +software; you can redistribute it and/or modify it under the same terms +as Perl itself. + +=cut diff --git a/lib/Locale/Maketext/Gettext/Functions.pm b/lib/Locale/Maketext/Gettext/Functions.pm new file mode 100644 index 0000000..658b6c8 --- /dev/null +++ b/lib/Locale/Maketext/Gettext/Functions.pm @@ -0,0 +1,781 @@ +# Locale::Maketext::Gettext::Functions - Functional interface to Locale::Maketext::Gettext + +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. +# First written: 2003-04-28 + +package Locale::Maketext::Gettext::Functions; +use 5.008; +use strict; +use warnings; +use base qw(Exporter); +use vars qw($VERSION @EXPORT @EXPORT_OK); +$VERSION = 0.13; +@EXPORT = qw(); +push @EXPORT, qw(bindtextdomain textdomain get_handle maketext __ N_); +push @EXPORT, qw(dmaketext pmaketext dpmaketext); +push @EXPORT, qw(reload_text read_mo encoding key_encoding encode_failure); +push @EXPORT, qw(die_for_lookup_failures); +@EXPORT_OK = @EXPORT; +# Prototype declaration +sub bindtextdomain($;$); +sub textdomain(;$); +sub get_handle(@); +sub maketext(@); +sub __(@); +sub N_(@); +sub dmaketext($$@); +sub pmaketext($$@); +sub dpmaketext($$$@); +sub reload_text(); +sub encoding(;$); +sub key_encoding(;$); +sub encode_failure(;$); +sub die_for_lookup_failures(;$); +sub _declare_class($); +sub _catclass(@); +sub _init_textdomain($); +sub _get_langs($$); +sub _get_handle(); +sub _get_empty_handle(); +sub _reset(); +sub _new_rid(); +sub _k($); +sub _lang($); + +use Encode qw(encode decode from_to FB_DEFAULT); +use File::Spec::Functions qw(catdir catfile); +use Locale::Maketext::Gettext qw(read_mo); +use vars qw(%LOCALEDIRS %RIDS %CLASSES %LANGS); +use vars qw(%LHS $_EMPTY $LH $DOMAIN $CATEGORY $CLASSBASE @LANGS %PARAMS); +use vars qw(@SYSTEM_LOCALEDIRS); +%LHS = qw(); +# The category is always LC_MESSAGES +$CATEGORY = "LC_MESSAGES"; +$CLASSBASE = "Locale::Maketext::Gettext::_runtime"; +# Current language parameters +@LANGS = qw(); +@SYSTEM_LOCALEDIRS = @Locale::Maketext::Gettext::SYSTEM_LOCALEDIRS; +%PARAMS = qw(); +$PARAMS{"KEY_ENCODING"} = "US-ASCII"; +$PARAMS{"ENCODE_FAILURE"} = FB_DEFAULT; +$PARAMS{"DIE_FOR_LOOKUP_FAILURES"} = 0; +# Parameters for random class IDs +use vars qw($RID_LEN @RID_CHARS); +$RID_LEN = 8; +@RID_CHARS = split //, + "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; + +# bindtextdomain: Bind a text domain to a locale directory +sub bindtextdomain($;$) { + local ($_, %_); + my ($domain, $LOCALEDIR); + ($domain, $LOCALEDIR) = @_; + # Return the current registry + return (exists $LOCALEDIRS{$domain}? $LOCALEDIRS{$domain}: undef) + if !defined $LOCALEDIR; + # Register the locale directory + $LOCALEDIRS{$domain} = $LOCALEDIR; + # Reinitialize the text domain + _init_textdomain($domain); + # Reset the current language handle + _get_handle() if defined $DOMAIN && $domain eq $DOMAIN; + # Return the locale directory + return $LOCALEDIR; +} + +# textdomain: Set the current text domain +sub textdomain(;$) { + local ($_, %_); + my ($new_domain); + $new_domain = $_[0]; + # Return the current text domain + return $DOMAIN if !defined $new_domain; + # Set the current text domain + $DOMAIN = $new_domain; + # Reinitialize the text domain + _init_textdomain($DOMAIN); + # Reset the current language handle + _get_handle(); + return $DOMAIN; +} + +# get_handle: Get a language handle +sub get_handle(@) { + local ($_, %_); + # Register the current get_handle arguments + @LANGS = @_; + # Reset and return the current language handle + return _get_handle(); +} + +# maketext: Maketext, in its long name +# Use @ instead of $@ in prototype, so that we can pass @_ to it. +sub maketext(@) { + return __($_[0], @_[1..$#_]); +} + +# __: Maketext, in its shortcut name +# Use @ instead of $@ in prototype, so that we can pass @_ to it. +sub __(@) { + local ($_, %_); + my ($key, @param, $keyd); + ($key, @param) = @_; + # Reset the current language handle if it is not set yet + _get_handle() if !defined $LH; + + # Decode the source text + $keyd = $key; + $keyd = decode($PARAMS{"KEY_ENCODING"}, $keyd, $PARAMS{"ENCODE_FAILURE"}) + if exists $PARAMS{"KEY_ENCODING"} && !Encode::is_utf8($key); + # Maketext + $_ = $LH->maketext($keyd, @param); + # Output to the requested encoding + if (exists $PARAMS{"ENCODING"}) { + $_ = encode($PARAMS{"ENCODING"}, $_, $PARAMS{"ENCODE_FAILURE"}); + # Pass through the empty/invalid lexicon + } elsif ( scalar(keys %{$LH->{"Lexicon"}}) == 0 + && exists $PARAMS{"KEY_ENCODING"} + && !Encode::is_utf8($key)) { + $_ = encode($PARAMS{"KEY_ENCODING"}, $_, $PARAMS{"ENCODE_FAILURE"}); + } + + return $_; +} + +# N_: Return the original text untouched, so that it can be catched +# with xgettext +# Use @ instead of $@ in prototype, so that we can pass @_ to it. +sub N_(@) { + # Watch out for this Perl magic! :p + return $_[0] unless wantarray; + return @_; +} + +# dmaketext: Maketext in another text domain temporarily, +# an equivalent to dgettext(). +sub dmaketext($$@) { + local ($_, %_); + my ($domain, $key, @param, $lh0, $domain0, $text); + ($domain, $key, @param) = @_; + # Preserve the current status + ($lh0, $domain0) = ($LH, $DOMAIN); + # Reinitialize the text domain + textdomain($domain); + # Maketext + $text = maketext($key, @param); + # Return the current status + ($LH, $DOMAIN) = ($lh0, $domain0); + # Return the "made text" + return $text; +} + +# pmaketext: Maketext with context, +# an equivalent to pgettext(). +sub pmaketext($$@) { + local ($_, %_); + my ($ctxt, $key, @param); + ($ctxt, $key, @param) = @_; + # This is actually a wrapper to the maketext() function + return maketext("$ctxt\x04$key", @param); +} + +# dpmaketext: Maketext with context in another text domain temporarily, +# an equivalent to dpgettext(). +sub dpmaketext($$$@) { + local ($_, %_); + my ($domain, $ctxt, $key, @param); + ($domain, $ctxt, $key, @param) = @_; + # This is actually a wrapper to the dmaketext() function + return dmaketext($domain, "$ctxt\x04$key", @param); +} + +# reload_text: Purge the lexicon cache +sub reload_text() { + # reload_text is static. + Locale::Maketext::Gettext->reload_text; +} + +# encoding: Set the output encoding +sub encoding(;$) { + local ($_, %_); + $_ = $_[0]; + + # Set the output encoding + if (@_ > 0) { + if (defined $_) { + $PARAMS{"ENCODING"} = $_; + } else { + delete $PARAMS{"ENCODING"}; + } + $PARAMS{"USERSET_ENCODING"} = $_; + } + + # Return the encoding + return exists $PARAMS{"ENCODING"}? $PARAMS{"ENCODING"}: undef; +} + +# key_encoding: Set the encoding of the original text +sub key_encoding(;$) { + local ($_, %_); + $_ = $_[0]; + + # Set the encoding used in the keys + if (@_ > 0) { + if (defined $_) { + $PARAMS{"KEY_ENCODING"} = $_; + } else { + delete $PARAMS{"KEY_ENCODING"}; + } + } + + # Return the encoding + return exists $PARAMS{"KEY_ENCODING"}? $PARAMS{"KEY_ENCODING"}: undef; +} + +# encode_failure: What to do if the text is out of your output encoding +# Refer to Encode on possible values of this check +sub encode_failure(;$) { + local ($_, %_); + $_ = $_[0]; + # Set and return the current setting + $PARAMS{"ENCODE_FAILURE"} = $_ if @_ > 0; + # Return the current setting + return $PARAMS{"ENCODE_FAILURE"}; +} + +# die_for_lookup_failures: Whether we should die for lookup failure +# The default is no. GNU gettext never fails. +sub die_for_lookup_failures(;$) { + local ($_, %_); + $_ = $_[0]; + # Set the current setting + if (@_ > 0) { + $PARAMS{"DIE_FOR_LOOKUP_FAILURES"} = $_? 1: 0; + $LH->die_for_lookup_failures($PARAMS{"DIE_FOR_LOOKUP_FAILURES"}); + } + # Return the current setting + # Resetting the current language handle is not required + # Lookup failures are handled by the fail handler directly + return $PARAMS{"DIE_FOR_LOOKUP_FAILURES"}; +} + +# _declare_class: Declare a class +sub _declare_class($) { + local ($_, %_); + $_ = $_[0]; + eval << "EOT"; +package $_[0]; +use base qw(Locale::Maketext::Gettext); +use vars qw(\@ISA %Lexicon); +EOT +} + +# _catclass: Catenate the class name +sub _catclass(@) { + return join("::", @_);; +} + +# _init_textdomain: Initialize a text domain +sub _init_textdomain($) { + local ($_, %_); + my ($domain, $k, @langs, $langs); + $domain = $_[0]; + + # Return if text domain not specified yet + return if !defined $domain; + + # Obtain the available locales + # A binded domain + if (exists $LOCALEDIRS{$domain}) { + @langs = _get_langs($LOCALEDIRS{$domain}, $domain); + # Not binded + } else { + @langs = qw(); + # Search the system locale directories + foreach (@SYSTEM_LOCALEDIRS) { + @langs = _get_langs($_, $domain); + # Domain not found in this directory + next if @langs == 0; + $LOCALEDIRS{$domain} = $_; + last; + } + # Not found at last + return if !exists $LOCALEDIRS{$domain}; + } + $langs = join ",", sort @langs; + + # Obtain the registry key + $k = _k($domain); + + # Available language list remains for this domain + return if exists $LANGS{$k} && $LANGS{$k} eq $langs; + # Register this new language list + $LANGS{$k} = $langs; + + my ($rid, $class); + # Garbage collection - drop abandoned language handles + if (exists $CLASSES{$k}) { + delete $LHS{$_} foreach grep /^$CLASSES{$k}/, keys %LHS; + } + # Get a new class ID + $rid = _new_rid(); + # Obtain the class name + $class = _catclass($CLASSBASE, $rid); + # Register the domain with this class + $CLASSES{$k} = $class; + # Declare this class + _declare_class($class); + # Declare its language subclasses + _declare_class(_catclass($class, $_)) + foreach @langs; + + return; +} + +# _get_langs: Search a locale directory and return the available languages +sub _get_langs($$) { + local ($_, %_); + my ($dir, $domain, $DH, $entry, $MOfile); + ($dir, $domain) = @_; + + @_ = qw(); + { + opendir $DH, $dir or last; + while (defined($entry = readdir $DH)) { + # Skip hidden entries + next if $entry =~ /^\./; + # Skip non-directories + next unless -d catdir($dir, $entry); + # Skip locales with dot "." (trailing encoding) + next if $entry =~ /\./; + # Get the MO file name + $MOfile = catfile($dir, $entry, $CATEGORY, "$domain.mo"); + # Skip if MO file is not available for this locale + next if ! -f $MOfile && ! -r $MOfile; + # Map C to i_default + $entry = "i_default" if $entry eq "C"; + # Add this language + push @_, lc $entry; + } + close $DH or last; + } + return @_; +} + +# _get_handle: Set the language handle with the current DOMAIN and @LANGS +sub _get_handle() { + local ($_, %_); + my ($k, $class, $subclass); + + # Lexicon empty if text domain not specified, or not binded yet + return _get_empty_handle if !defined $DOMAIN || !exists $LOCALEDIRS{$DOMAIN}; + # Obtain the registry key + $k = _k($DOMAIN); + # Lexicon empty if text domain was not properly set yet + return _get_empty_handle if !exists $CLASSES{$k}; + + # Get the localization class name + $class = $CLASSES{$k}; + # Get the language handle + $LH = $class->get_handle(@LANGS); + # Lexicon empty if failed get_handle() + return _get_empty_handle if !defined $LH; + + # Obtain the subclass name of the got language handle + $subclass = ref($LH); + # Use the existing language handle whenever possible, to reduce + # the initialization overhead + if (exists $LHS{$subclass}) { + $LH = $LHS{$subclass}; + if (!exists $PARAMS{"USERSET_ENCODING"}) { + if (exists $LH->{"MO_ENCODING"}) { + $PARAMS{"ENCODING"} = $LH->{"MO_ENCODING"}; + } else { + delete $PARAMS{"ENCODING"}; + } + } + return _lang($LH) + } + + # Initialize it + $LH->bindtextdomain($DOMAIN, $LOCALEDIRS{$DOMAIN}); + $LH->textdomain($DOMAIN); + # Respect the MO file encoding unless there is a user preferrence + if (!exists $PARAMS{"USERSET_ENCODING"}) { + if (exists $LH->{"MO_ENCODING"}) { + $PARAMS{"ENCODING"} = $LH->{"MO_ENCODING"}; + } else { + delete $PARAMS{"ENCODING"}; + } + } + # We handle the encoding() and key_encoding() ourselves. + $LH->key_encoding(undef); + $LH->encoding(undef); + # Register it + $LHS{$subclass} = $LH; + + return _lang($LH); +} + +# _get_empty_handle: Obtain the empty language handle +sub _get_empty_handle() { + local ($_, %_); + if (!defined $_EMPTY) { + $_EMPTY = Locale::Maketext::Gettext::Functions::_EMPTY->get_handle; + $_EMPTY->key_encoding(undef); + $_EMPTY->encoding(undef); + } + $LH = $_EMPTY; + $LH->die_for_lookup_failures($PARAMS{"DIE_FOR_LOOKUP_FAILURES"}); + return _lang($LH); +} + +# _reset: Initialize everything +sub _reset() { + local ($_, %_); + + %LOCALEDIRS = qw(); + undef $LH; + undef $DOMAIN; + @LANGS = qw(); + %PARAMS = qw(); + $PARAMS{"KEY_ENCODING"} = "US-ASCII"; + $PARAMS{"ENCODE_FAILURE"} = FB_DEFAULT; + $PARAMS{"DIE_FOR_LOOKUP_FAILURES"} = 0; + + return; +} + +# _new_rid: Generate a new random ID +sub _new_rid() { + local ($_, %_); + my ($id); + + do { + for ($id = "", $_ = 0; $_ < $RID_LEN; $_++) { + $id .= $RID_CHARS[int rand scalar @RID_CHARS]; + } + } while exists $RIDS{$id}; + $RIDS{$id} = 1; + + return $id; +} + +# _k: Build the key for the domain registry +sub _k($) { + return join "\n", $LOCALEDIRS{$_[0]}, $CATEGORY, $_[0]; +} + +# _lang: The langage from a language handle. language_tag is not quite sane. +sub _lang($) { + local ($_, %_); + $_ = $_[0]; + $_ = ref($_); + s/^.+:://; + s/_/-/g; + return $_; +} + +# Public empty lexicon +package Locale::Maketext::Gettext::Functions::_EMPTY; +use 5.008; +use strict; +use warnings; +use base qw(Locale::Maketext::Gettext); +use vars qw($VERSION @ISA %Lexicon); +$VERSION = 0.01; + +package Locale::Maketext::Gettext::Functions::_EMPTY::i_default; +use 5.008; +use strict; +use warnings; +use base qw(Locale::Maketext::Gettext); +use vars qw($VERSION @ISA %Lexicon); +$VERSION = 0.01; + +return 1; + +__END__ + +=head1 NAME + +Locale::Maketext::Gettext::Functions - Functional interface to Locale::Maketext::Gettext + +=head1 SYNOPSIS + + use Locale::Maketext::Gettext::Functions; + bindtextdomain(DOMAIN, LOCALEDIR); + textdomain(DOMAIN); + get_handle("de"); + print __("Hello, world!\n"); + +=head1 DESCRIPTION + +Locale::Maketext::Gettext::Functions is a functional +interface to +L (and +L). It works exactly the GNU +gettext way. It plays magic to +L for you. No more +localization class/subclasses and language handles are required at +all. + +The C, C, C and C +functions attempt to translate a text message into the native +language of the user, by looking up the translation in an MO lexicon +file. + +=head1 FUNCTIONS + +=over + +=item bindtextdomain(DOMAIN, LOCALEDIR) + +Register a text domain with a locale directory. Returns C +itself. If C is omitted, the registered locale directory +of C is returned. This method always success. + +=item textdomain(DOMAIN) + +Set the current text domain. Returns the C itself. if +C is omitted, the current text domain is returned. This +method always success. + +=item get_handle(@languages) + +Set the language of the user. It searches for an available language +in the provided @languages list. If @languages was not provided, it +looks checks environment variable LANG, and HTTP_ACCEPT_LANGUAGE +when running as CGI. Refer to +L for the magic of the +C. + +=item $message = maketext($key, @param...) + +Attempts to translate a text message into the native language of the +user, by looking up the translation in an MO lexicon file. Refer to +L for the C plural +grammer. + +=item $message = __($key, @param...) + +A synonym to C. This is a shortcut to C so +that it is cleaner when you employ maketext to your existing project. + +=item ($key, @param...) = N_($key, @param...) + +Returns the original text untouched. This is to enable the text be +catched with xgettext. + +=item $message = dmaketext($domain, $key, @param...) + +Temporarily switch to another text domain and attempts to translate +a text message into the native language of the user in that text +domain. Use "--keyword=dmaketext:2" for the xgettext utility. + +=item $message = pmaketext($ctxt, $key, @param...) + +Attempts to translate a text message in a particular context into the +native language of the user. Use "--keyword=pmaketext:1c,2" for +the xgettext utility. + +=item $message = dpmaketext($domain, $ctxt, $key, @param...) + +Temporarily switch to another text domain and attempts to translate +a text message in a particular context into the native language of +the user in that text domain. Use "--keyword=dpmaketext:2c,3" for +the xgettext utility. + +=item encoding(ENCODING) + +Set or retrieve the output encoding. The default is the same +encoding as the gettext MO file. You can specify C, to return +the result in unencoded UTF-8. + +=item key_encoding(ENCODING) + +Specify the encoding used in your original text. The C +method itself is not multibyte-safe to the _AUTO lexicon. If you are +using your native non-English language as your original text and you +are having troubles like: + +Unterminated bracket group, in: + +Then, specify the C to the encoding of your original +text. Returns the current setting. + +B You should always use US-ASCII text keys. Using +non-US-ASCII keys is always discouraged and is not guaranteed to +be working. + +=item encode_failure(CHECK) + +Set the action when encode fails. This happens when the output text +is out of the scope of your output encoding. For exmaple, output +Chinese into US-ASCII. Refer to L for the +possible values of this C. The default is C, +which is a safe choice that never fails. But part of your text may +be lost, since that is what C does. Returns the current +setting. + +=item die_for_lookup_failures(SHOULD_I_DIE) + +Maketext dies for lookup failures, but GNU gettext never fails. +By default Lexicon::Maketext::Gettext follows the GNU gettext +behavior. But if you are Maketext-styled, or if you need a better +control over the failures (like me :p), set this to 1. Returns the +current setting. + +=item reload_text() + +Purges the MO text cache. By default MO files are cached after they +are read and parsed from the disk, to reduce I/O and parsing overhead +on busy sites. reload_text() purges this cache, so that updated MO +files can take effect at run-time. This is used when your MO file is +updated, but you cannot shutdown and restart the application. for +example, when you are a co-hoster on a mod_perl-enabled Apache, or +when your mod_perl-enabled Apache is too vital to be restarted for +every update of your MO file, or if you are running a vital daemon, +such as an X display server. + +=item %Lexicon = read_mo($MOfile) + +Read and parse the MO file. Returns the read %Lexicon. The returned +lexicon is in its original encoding. + +If you need the meta infomation of your MO file, parse the entry +C<$Lexicon{""}>. For example: + + /^Content-Type: text\/plain; charset=(.*)$/im; + $encoding = $1; + +=back + +=head1 NOTES + +B Since localization classes are generated at run-time, it is +not possible to override the Maketext language functions, like +C or C. If that is your concern, use +L instead. +Suggestions are welcome. + +You can now add/remove languages/MO files at run-time. This is a +major improvement over the original +L (and +L). This is done by +registering localization classes with random IDs, so that the same +text domain can be re-declared infinitely, whenever needed (language +list changes, LOCALEDIR changes, etc.) This is not possible to the +object-interface of +L (and +L). + +Language addition/removal takes effect only after C +or C is called. It has no effect on C calls. +This keeps a basic sanity in the lifetime of a running script. + +If you set C to a domain that is not C to +specific a locale directory yet, it will try search system locale +directories. The current system locale directory search order is: +/usr/share/locale, /usr/lib/locale, /usr/local/share/locale, +/usr/local/lib/locale. Suggestions are welcome. + +=head1 STORY + +The idea is that: I finally realized that, no matter how hard I try, +I.> A common wrapper +like: + + sub __ { return $LH->maketext(@_) }; + +always fails if $LH is not initialized yet. For this reason, +C can hardly be employed in error handlers to output +graceful error messages in the natural language of the user. So, +I have to write something like this: + + sub __ { + $LH = MyPkg::L10N->get_handle if !defined $LH; + return $LH->maketext(@_); + } + +But what if C itself fails? So, this becomes: + + sub __ { + $LH = MyPkg::L10N->get_handle if !defined $LH; + $LH = _AUTO->get_handle if !defined $LH; + return $LH->maketext(@_); + } + package _AUTO; + use base qw(Locale::Maketext); + package _AUTO::i_default; + use base qw(Locale::Maketext); + %Lexicon = ( "_AUTO" => 1 ); + +Ya, this works. But, if I always have to do this in my every +application, why should I not make a solution to the localization +framework itself? This is a common problem to every localization +projects. It should be solved at the localization framework level, +but not at the application level. + +Another reason is that: I without the knowledge of object-oriented programming.> +A localization framework should be neat and simple. It should lower +down its barrier, be friendly to the beginners, in order to +encourage the use of localization and globalization. Apparently +the current practice of L +does not satisfy this request. + +The third reason is: Since +L imports +the lexicon from foreign sources, the class source file is left +empty. It exists only to help the C method looking for +a proper language handle. Then, why not make it disappear, and be +generated whenever needed? Why bother the programmers to put +an empty class source file there? + +How neat can we be? + +imacat, 2003-04-29 + +=head1 BUGS + +Since maketext localization classes are generated at run time, +Maketext language function override, like C or C, is +not available here. Suggestions are welcome. + +C, C, C and +C are not mod_perl-safe. These settings +affect the whole process, including the following scripts it is +going to run. This is the same as C in +L. Always set them at the very beginning of your +script if you are running under mod_perl. If you do not like it, +use the object-oriented +L instead. +Suggestions are welcome. + +Smart translation between Traditional Chinese/Simplified Chinese, +like what GNU gettext does, is not available yet. Suggestions are +welcome. + +=head1 SEE ALSO + +L, +L, +L, +L, L. +Also, please refer to the official GNU gettext manual at +L. + +=head1 AUTHOR + +imacat + +=head1 COPYRIGHT + +Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +software; you can redistribute it and/or modify it under the same terms +as Perl itself. + +=cut diff --git a/script/maketext b/script/maketext new file mode 100755 index 0000000..5015898 --- /dev/null +++ b/script/maketext @@ -0,0 +1,215 @@ +#! /usr/bin/perl -w +# Command-line interface to Locale::Maketext::Gettext (and Locale::Maketext) + +# Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. +# First written: 2003-05-03 + +use 5.008; +use strict; +use warnings; +use Getopt::Long qw(GetOptions); +use Locale::Maketext::Gettext::Functions; +use vars qw($VERSION); +$VERSION = 0.05; +# Prototype declaration +sub main(); +sub parse_args(); + +use vars qw($THIS_FILE $SHORTHELP $VERSTR $SEARCH $HELP); +$THIS_FILE = $0; +$THIS_FILE =~ s/^.*\///; +$SHORTHELP = "Try `$THIS_FILE --help' for more information."; +$VERSTR = "$THIS_FILE v$VERSION by imacat "; +$SEARCH = join " ", @Locale::Maketext::Gettext::Functions::SYSTEM_LOCALEDIRS; +$HELP = << "EOT"; +Usage: maketext [OPTION] [--domain=TEXTDOMAIN] MSGKEY [PARAM...] +or: maketext [OPTION] -s MSGID [PARAM...] + +Maketext and display native language translation of a textual message. + + -d, --domain=TEXTDOMAIN retrieve translated messages from TEXTDOMAIN + -h, --help display this help and exit + -V, --version display version information and exit + MSGKEY [PARAM...] retrieve translated message corresponding + to MSGKEY from TEXTDOMAIN + +If the TEXTDOMAIN parameter is not given, the domain is determined from the +environment variable TEXTDOMAIN. If the message catalog is not found in the +regular directory, another location can be specified with the environment +variable TEXTDOMAINDIR. +When used with the -s option the program adds a new line to the end of the +output so that it behaves like the `echo' or the `gettext' command. +Standard search directories: $SEARCH + +Report bugs to . +EOT + +use vars qw($DOMAIN $LOCALEDIR $ECHO $KEY @PARAM); +$ECHO = 0; + +# Main program +main(); +exit 0; + +# main: Main program +sub main() { + local ($_, %_); + + # Parse the arguments + parse_args(); + + bindtextdomain($DOMAIN, $LOCALEDIR) + if defined $DOMAIN && defined $LOCALEDIR; + textdomain($DOMAIN) if defined $DOMAIN; + print maketext($KEY, @PARAM); + print "\n" if $ECHO; + + return; +} + +# parse_args: Parse the arguments +sub parse_args() { + local ($_, %_); + + # Get the arguments 取得參數 + $_ = eval { + local $SIG{__WARN__} = sub { die $_[0]; }; + Getopt::Long::Configure("no_auto_abbrev"); + GetOptions( "domain|d=s"=>\$DOMAIN, + "s"=>sub { $ECHO = 1; }, + "help|h"=>sub { print $HELP; exit 0; }, + "version|V"=>sub { print "$VERSTR\n"; exit 0; }); + return 1; + }; + die "$THIS_FILE: $@" if !defined $_; + + # The MSGKEY + die "$THIS_FILE: missing arguments\n" if @ARGV == 0; + $KEY = shift @ARGV; + @PARAM = @ARGV; + + # Set the locale directory + $LOCALEDIR = $ENV{"TEXTDOMAINDIR"} if exists $ENV{"TEXTDOMAINDIR"}; + # Set the text domain + $DOMAIN = $ENV{"TEXTDOMAIN"} + if !defined $DOMAIN && exists $ENV{"TEXTDOMAIN"}; + + return; +} + +__END__ + +=head1 NAME + +maketext - translate and make messages + +=head1 SYNOPSIS + + maketext [OPTION] [--domain=TEXTDOMAIN] MSGKEY [PARAM...] + maketext [OPTION] -s MSGID [PARAM...] + +=head1 DESCRIPTION + +The C script translates a natural language message into +the user's language, by looking up the translation in a message MO +file, and process the plural transformation with Maketext. + +The C script is a command-line interface to +L (and +L). It can be used in shell +scripts, etc, to translate, maketext and return the result. By this +way, it enables Maketext to be integrated into other programming +languages/systems, like bash/csh, python, PHP, C, etc. It works +like the command-line program gettext. + +For example: + + % maketext -s "[*,_1,virus was,viruses were] found in [*,_2,file,files]." 0 1 + 0 viruses were found in 1 file. + % maketext -s "[*,_1,virus was,viruses were] found in [*,_2,file,files]." 1 3 + 1 virus was found in 3 files. + % + +=head1 OPTIONS + +=over + +=item -d,--domain=TEXTDOMAIN + +Retrieve translated messages from TEXTDOMAIN. + +=item -s + +Adds a new line to the end of the output so that it behaves like the +`echo' or the `gettext' command. + +=item -h,--help + +Display the help messages. + +=item -V,--version + +Display version information and exit. + +=item MSGKEY + +The original text used to look up translated text. + +=item PARAM... + +Parameters to Maketext for the plural and other text functions. + +=back + +=head1 ENVIRONMENT + +=over + +=item TEXTDOMAIN + +TEXTDOMAIN is used to determine the text domain when the -d +parameter is not given. + +=item TEXTDOMAINDIR + +TEXTDOMAINDIR is used to search the message catelog/MO file if it +does not reside in the system locale directories. + +=back + +=head1 NOTES + +Maketext language function override, like C or C, is +not available here. Suggestions are welcome. + +The current system locale directory search order is: +/usr/share/locale, /usr/lib/locale, /usr/local/share/locale, +/usr/local/lib/locale. Suggestions are welcome. + +=head1 BUGS + +Report bugs to imacat + +=head1 SEE ALSO + +L, +L, +L, +L, +L, L. +Also, please refer to the official GNU gettext manual at +L. + +=head1 AUTHOR + +imacat + +=head1 COPYRIGHT + +Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +software; you can redistribute it and/or modify it under the same terms +as Perl itself. + +=cut diff --git a/t/00-signature.t b/t/00-signature.t new file mode 100755 index 0000000..1cf917c --- /dev/null +++ b/t/00-signature.t @@ -0,0 +1,22 @@ +#!/usr/bin/perl +use strict; +print "1..1\n"; + +if (!-s 'SIGNATURE') { + print "ok 1 # skip No signature file found\n"; +} +elsif (!eval { require Module::Signature; 1 }) { + print "ok 1 # skip ", + "Next time around, consider install Module::Signature, ", + "so you can verify the integrity of this distribution.\n"; +} +elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { + print "ok 1 # skip Cannot connect to the keyserver\n"; +} +else { + (Module::Signature::verify() == Module::Signature::SIGNATURE_OK()) + or print "not "; + print "ok 1 # Valid signature\n"; +} + +__END__ diff --git a/t/01-basic.t b/t/01-basic.t new file mode 100755 index 0000000..c63a4e6 --- /dev/null +++ b/t/01-basic.t @@ -0,0 +1,150 @@ +#! /usr/bin/perl -w +# Basic test suite +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 22 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Basic test suite +use Encode qw(decode); +use vars qw($META $n $k1 $k2 $s1 $s2); + +# bindtextdomain +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_ = $_->bindtextdomain("test"); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, "$LOCALEDIR"); + +# textdomain +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_ = $_->textdomain; + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, "test"); + +# read_mo +$META = << "EOT"; +Project-Id-Version: test 1.1 +Report-Msgid-Bugs-To: +POT-Creation-Date: 2008-02-19 12:31+0800 +PO-Revision-Date: 2008-02-19 12:31+0800 +Last-Translator: imacat +Language-Team: English +MIME-Version: 1.0 +Content-Type: text/plain; charset=US-ASCII +Content-Transfer-Encoding: 7bit +Plural-Forms: nplurals=2; plural=n != 1; +EOT +$r = eval { + use Locale::Maketext::Gettext; + $_ = catfile($LOCALEDIR, "en", "LC_MESSAGES", "test.mo"); + %_ = read_mo($_); + @_ = sort keys %_; + $n = scalar(@_); + $k1 = $_[0]; + $k2 = $_[1]; + $s1 = $_{$k1}; + $s2 = $_{$k2}; + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($n, 4); +# 7 +ok($k1, ""); +# 8 +ok($k2, "Hello, world!"); +# 9 +ok($s1, $META); +# 10 +ok($s2, "Hiya :)"); + +# English +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->pmaketext("Menu|File|", "Hello, world!"); + $_[2] = $_->pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 11 +ok($r, 1); +# 12 +ok($_[0], "Hiya :)"); +# 13 +ok($_[1], "Hiya :) under the File menu"); +# 14 +ok($_[2], "Hiya :) under the View menu"); + +# Traditional Chinese +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->pmaketext("Menu|File|", "Hello, world!"); + $_[2] = $_->pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_[0], "大家好。"); +# 17 +ok($_[1], "檔案選單下的大家好。"); +# 18 +ok($_[2], "瀏覽選單下的大家好。"); + +# Simplified Chinese +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("zh-cn"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->pmaketext("Menu|File|", "Hello, world!"); + $_[2] = $_->pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 19 +ok($r, 1); +# 20 +ok($_[0], "湮模疑﹝"); +# 21 +ok($_[1], "紫偶粕等狟腔湮模疑﹝"); +# 22 +ok($_[2], "銡擬粕等狟腔湮模疑﹝"); diff --git a/t/02-big-endian.t b/t/02-big-endian.t new file mode 100755 index 0000000..23d1dee --- /dev/null +++ b/t/02-big-endian.t @@ -0,0 +1,143 @@ +#! /usr/bin/perl -w +# Test the big endian MO files +# Copyright (c) 2003-2009 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 10 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Check reading big-endian PO files +use vars qw($skip $POfile $MOfile $hasctxt); +# English +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test_be", $LOCALEDIR); + $_->textdomain("test_be"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, "Hiya :)"); + +# Traditional Chinese +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test_be", $LOCALEDIR); + $_->textdomain("test_be"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, "大家好。"); + +# Simplified Chinese +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-cn"); + $_->bindtextdomain("test_be", $LOCALEDIR); + $_->textdomain("test_be"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_, "湮模疑﹝"); + +# Native-built MO file +{ +my $FH; +$skip = 1; +$POfile = catfile($FindBin::Bin, "test_native.po"); +$MOfile = catfile($LOCALEDIR, "en", "LC_MESSAGES", "test_native.mo"); +$_ = join "", `msgfmt --version 2>&1`; +last unless $? == 0; +last unless /GNU gettext/; +last unless /GNU gettext.* (\d+)\.(\d+)/; +# Gettext from 0.15 has msgctxt +$hasctxt = $1 > 0 || ($1 == 0 && $2 >= 15); +$_ = << "EOT"; +# English PO file for the test_native project. +# Copyright (C) 2003-2009 imacat +# This file is distributed under the same license as the commonlib package. +# imacat , 2003-%1\$04d. +# +msgid "" +msgstr "" +"Project-Id-Version: test_native 1.1\\n" +"Report-Msgid-Bugs-To: \\n" +"POT-Creation-Date: %1\$04d-%2\$02d-%3\$02d %4\$02d:%5\$02d+0800\\n" +"PO-Revision-Date: %1\$04d-%2\$02d-%3\$02d %4\$02d:%5\$02d+0800\\n" +"Last-Translator: imacat \\n" +"Language-Team: English \\n" +"MIME-Version: 1.0\\n" +"Content-Type: text/plain; charset=US-ASCII\\n" +"Content-Transfer-Encoding: 7bit\\n" +"Plural-Forms: nplurals=2; plural=n != 1;\\n" + +#: test_native.pl:100 +msgid "Hello, world!" +msgstr "Hiya :)" +EOT +$_ .= << "EOT" if $hasctxt; + +#: test_native.pl:103 +msgctxt "Menu|File|" +msgid "Hello, world!" +msgstr "Hiya :) under the File menu" + +#: test_native.pl:106 +msgctxt "Menu|View|" +msgid "Hello, world!" +msgstr "Hiya :) under the View menu" +EOT +@_ = localtime; +$_[5] += 1900; +$_[4]++; +$_ = sprintf $_, @_[5,4,3,2,1,0]; +open $FH, ">$POfile"; +print $FH $_; +close $FH; +`msgfmt -o "$MOfile" "$POfile"`; +last unless $? == 0; +$skip = 0; +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test_native", $LOCALEDIR); + $_->textdomain("test_native"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->pmaketext("Menu|File|", "Hello, world!") if $hasctxt; + $_[2] = $_->pmaketext("Menu|View|", "Hello, world!") if $hasctxt; + return 1; +}; +} +# 7 +skip($skip, $r, 1); +# 8 +skip($skip, $_[0], "Hiya :)"); +# 9 +skip($skip || !$hasctxt, $_[1], "Hiya :) under the File menu"); +# 10 +skip($skip || !$hasctxt, $_[2], "Hiya :) under the View menu"); + +# Garbage collection +unlink $POfile; +unlink $MOfile; diff --git a/t/03-errors.t b/t/03-errors.t new file mode 100755 index 0000000..611121b --- /dev/null +++ b/t/03-errors.t @@ -0,0 +1,283 @@ +#! /usr/bin/perl -w +# Test suite for the behavior when something goes wrong +# Copyright (c) 2003-2009 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 29 } + +use Encode qw(); +use FindBin; +use File::Basename qw(basename); +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($THIS_FILE $LOCALEDIR $r); +$THIS_FILE = basename($0); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); +sub find_system_mo(); + +# find_system_mo: Find a safe system MO to be tested +sub find_system_mo() { + local ($_, %_); + my %cands; + use Locale::Maketext::Gettext::Functions; + # Find all the system MO files + %cands = qw(); + foreach my $dir (@Locale::Maketext::Gettext::Functions::SYSTEM_LOCALEDIRS) { + my ($DH, @locales); + next unless -d $dir; + + @locales = qw(); + opendir $DH, $dir or die "$THIS_FILE: $dir: $!"; + while (defined($_ = readdir $DH)) { + my $dir1; + $dir1 = catfile($dir, $_, "LC_MESSAGES"); + push @locales, $_ if -d $dir1 && -r $dir1 + && /^(?:en|zh_tw|zh_cn)$/i; + } + closedir $DH or die "$THIS_FILE: $dir: $!"; + + foreach my $loc (sort @locales) { + my $dir1; + $dir1 = catfile($dir, $loc, "LC_MESSAGES"); + opendir $DH, $dir1 or die "$THIS_FILE: $dir1: $!"; + while (defined($_ = readdir $DH)) { + my ($file, $domain); + $file = catfile($dir1, $_); + next unless -f $file && -r $file && /^(.+)\.mo$/; + $domain = $1; + $cands{$file} = [$loc, $domain]; + } + closedir $DH or die "$THIS_FILE: $dir1: $!"; + } + } + # Check each MO file, from the newest + foreach my $file (sort { (stat $b)[9] <=> (stat $a)[9] } keys %cands) { + my ($FH, $size, $content, $charset, $lang, $domain); + $size = (stat $file)[7]; + open $FH, $file or die "$THIS_FILE: $file: $!"; + read $FH, $content, $size or die "$THIS_FILE: $file: $!"; + close $FH or die "$THIS_FILE: $file: $!"; + # Only take files whose meta information does not have special characters + # that might be considered as code by Locale::Maketext + next unless $content =~ /Project-Id-Version:([^\n\0\[\]~]+\n)+\0/; + # Only take files that resolve to a valid character set + next unless $content =~ /\s+charset=([^\n]+)/; + $charset = $1; + next unless defined Encode::resolve_alias($charset); + # OK. We take this one + ($lang, $domain) = @{$cands{$file}}; + $lang = lc $lang; + $lang =~ s/_/-/g; + $lang = "i-default" if $lang eq "c"; + return ($lang, $domain); + } + # Not found + return (undef, undef); +} + +# When something goes wrong +use vars qw($dir $domain $lang $skip); +# GNU gettext never fails! +# bindtextdomain +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_ = $_->bindtextdomain("test"); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, undef); + +# textdomain +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_ = $_->textdomain; + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, undef); + +# No text domain claimed yet +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_, "Hello, world!"); + +# Non-existing LOCALEDIR +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", "/dev/null"); + $_->textdomain("test"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 7 +ok($r, 1); +# 8 +ok($_, "Hello, world!"); + +# Not-registered DOMAIN +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->textdomain("not_registered"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 9 +ok($r, 1); +# 10 +ok($_, "Hello, world!"); + +# PO file not exists +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("no_such_domain", $LOCALEDIR); + $_->textdomain("no_such_domain"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 11 +ok($r, 1); +# 12 +ok($_, "Hello, world!"); + +# PO file invalid +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("bad", $LOCALEDIR); + $_->textdomain("bad"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 13 +ok($r, 1); +# 14 +ok($_, "Hello, world!"); + +# No such message +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_[0] = $_->maketext("[*,_1,non-existing message,non-existing messages]", 1); + $_[1] = $_->maketext("[*,_1,non-existing message,non-existing messages]", 3); + $_[2] = $_->pmaketext("Menu|View|", "[*,_1,non-existing message,non-existing messages]", 1); + $_[3] = $_->pmaketext("Menu|View|", "[*,_1,non-existing message,non-existing messages]", 3); + $_[4] = $_->pmaketext("Menu|None|", "Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_[0], "1 non-existing message"); +# 17 +ok($_[1], "3 non-existing messages"); +# 18 +ok($_[2], "1 non-existing message"); +# 19 +ok($_[3], "3 non-existing messages"); +# 20 +ok($_[4], "Hello, world!"); + +# die_for_lookup_failures +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->die_for_lookup_failures(1); + $_ = $_->maketext("non-existing message"); + return 1; +}; +# To be refined - to know that we failed at maketext() +# was ok($@, qr/maketext doesn't know how to say/); +# 21 +ok($r, undef); + +# multibyte keys +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->key_encoding("Big5"); + $_ = $_->maketext("（未設定）"); + return 1; +}; +# 22 +ok($r, 1); +# 23 +ok($_, "（未設定）"); + +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", "/dev/null"); + $_->textdomain("test"); + $_->key_encoding("Big5"); + $_ = $_->maketext("（未設定）"); + return 1; +}; +# 24 +ok($r, 1); +# 25 +ok($_, "（未設定）"); + +# Call maketext before and after binding text domain +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->maketext("Hello, world!"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 26 +ok($r, 1); +# 27 +ok($_, "Hiya :)"); + +# Search system locale directories +($lang, $domain) = find_system_mo; +$skip = defined $domain? 0: 1; +print "($lang, $domain)\n"; +$r = eval { + return if $skip; + require T_L10N; + $_ = T_L10N->get_handle($lang); + $_->textdomain($domain); + print "OK 1111\n"; + $_ = $_->maketext(""); + # Skip if $Lexicon{""} does not exists + $skip = 1 if $_ eq ""; + return 1; +}; +# 28 +skip($skip, $r, 1); +# 29 +skip($skip, $_, qr/Project-Id-Version:/); diff --git a/t/04-encodings.t b/t/04-encodings.t new file mode 100755 index 0000000..cc09765 --- /dev/null +++ b/t/04-encodings.t @@ -0,0 +1,266 @@ +#! /usr/bin/perl -w +# Test suite for different encodings +# Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 34 } + +use Encode qw(); +use FindBin qw(); +use File::Spec::Functions qw(catdir); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Different encodings +# English +# Find the default encoding +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_ = $_->encoding; + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, "US-ASCII"); + +# Traditional Chinese +# Find the default encoding +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_ = $_->encoding; + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, "Big5"); + +# Turn to Big5 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding("Big5"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_, "大家好。"); + +# Turn to UTF-8 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding("UTF-8"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 7 +ok($r, 1); +# 8 +ok($_, "憭批振憟賬"); + +# Turn to UTF-16LE +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding("UTF-16LE"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 9 +ok($r, 1); +# 10 +ok($_, "'Y跋}Y0"); + +# Find the default encoding, in UTF-8 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_ = $_->encoding; + return 1; +}; +# 11 +ok($r, 1); +# 12 +ok($_, "UTF-8"); + +# Turn to UTF-8 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_->encoding("UTF-8"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 13 +ok($r, 1); +# 14 +ok($_, "憭批振憟賬"); + +# Turn to Big5 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_->encoding("Big5"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_, "大家好。"); + +# Turn to UTF-16LE +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_->encoding("UTF-16LE"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 17 +ok($r, 1); +# 18 +ok($_, "'Y跋}Y0"); + +# Find the default encoding +# Simplified Chinese +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-cn"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_ = $_->encoding; + return 1; +}; +# 19 +ok($r, 1); +# 20 +ok($_, "UTF-8"); + +# Turn to GB2312 +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-cn"); + $_->bindtextdomain("test_utf8", $LOCALEDIR); + $_->textdomain("test_utf8"); + $_->encoding("GB2312"); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 21 +ok($r, 1); +# 22 +ok($_, "湮模疑﹝"); + +# Encode failure +# FB_DEFAULT +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test2", $LOCALEDIR); + $_->textdomain("test2"); + $_->encoding("GB2312"); + $_ = $_->maketext("Every story has a happy ending."); + return 1; +}; +# 23 +ok($r, 1); +# 24 +ok($_, "嘟岈飲衄藝?腔?擁﹝"); + +# FB_CROAK +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test2", $LOCALEDIR); + $_->textdomain("test2"); + $_->encoding("GB2312"); + $_->encode_failure(Encode::FB_CROAK); + $_ = $_->maketext("Every story has a happy ending."); + return 1; +}; +# 25 +ok($r, undef); +# 26 +ok($@, qr/does not map to/); + +# FB_HTMLCREF +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test2", $LOCALEDIR); + $_->textdomain("test2"); + $_->encoding("GB2312"); + $_->encode_failure(Encode::FB_HTMLCREF); + $_ = $_->maketext("Every story has a happy ending."); + return 1; +}; +# 27 +ok($r, 1); +# 28 +ok($_, "嘟岈飲衄藝麗腔結擁﹝"); + +# Return the unencoded UTF-8 text +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding(undef); + $_ = $_->maketext("Hello, world!"); + return 1; +}; +# 29 +ok($r, 1); +# 30 +ok($_, "\x{5927}\x{5BB6}\x{597D}\x{3002}"); +# 31 +ok((Encode::is_utf8($_)? "utf8": "non-utf8"), "utf8"); + +# Return the unencoded UTF-8 text with auto lexicon +$r = eval { + require T_L10N; + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding(undef); + $_ = $_->maketext("Big watermelon"); + return 1; +}; +# 32 +ok($r, 1); +# 33 +ok($_, "Big watermelon"); +# 34 +ok((Encode::is_utf8($_)? "utf8": "non-utf8"), "utf8"); diff --git a/t/05-switching.t b/t/05-switching.t new file mode 100755 index 0000000..c3e17aa --- /dev/null +++ b/t/05-switching.t @@ -0,0 +1,157 @@ +#! /usr/bin/perl -w +# Test suite for switching between different settings +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 25 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Switching between different settings +use File::Copy qw(copy); +use vars qw($lh1 $lh2 $dir $f $f1 $f2); + +# 2 language handles of the same localization subclass +$r = eval { + require T_L10N; + @_ = qw(); + $lh1 = T_L10N->get_handle("en"); + $lh1->bindtextdomain("test", $LOCALEDIR); + $lh1->textdomain("test"); + $lh2 = T_L10N->get_handle("en"); + $lh2->bindtextdomain("test2", $LOCALEDIR); + $lh2->textdomain("test2"); + $_[0] = $lh1->maketext("Hello, world!"); + $_[1] = $lh1->maketext("Every story has a happy ending."); + $_[2] = $lh2->maketext("Hello, world!"); + $_[3] = $lh2->maketext("Every story has a happy ending."); + $_[4] = $lh1->maketext("Hello, world!"); + $_[5] = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_[0], "Hiya :)"); +# 3 +ok($_[1], "Every story has a happy ending."); +# 4 +ok($_[2], "Hello, world!"); +# 5 +ok($_[3], "Pray it."); +# 6 +ok($_[4], "Hiya :)"); +# 7 +ok($_[5], "Every story has a happy ending."); + +# Switch between domains +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->bindtextdomain("test2", $LOCALEDIR); + $_->textdomain("test"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->maketext("Every story has a happy ending."); + $_->textdomain("test2"); + $_[2] = $_->maketext("Hello, world!"); + $_[3] = $_->maketext("Every story has a happy ending."); + $_->textdomain("test"); + $_[4] = $_->maketext("Hello, world!"); + $_[5] = $_->maketext("Every story has a happy ending."); + return 1; +}; +# 8 +ok($r, 1); +# 9 +ok($_[0], "Hiya :)"); +# 10 +ok($_[1], "Every story has a happy ending."); +# 11 +ok($_[2], "Hello, world!"); +# 12 +ok($_[3], "Pray it."); +# 13 +ok($_[4], "Hiya :)"); +# 14 +ok($_[5], "Every story has a happy ending."); + +# Switch between encodings +$r = eval { + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("zh-tw"); + $_->bindtextdomain("test", $LOCALEDIR); + $_->textdomain("test"); + $_->encoding("Big5"); + $_[0] = $_->maketext("Hello, world!"); + $_->encoding("UTF-8"); + $_[1] = $_->maketext("Hello, world!"); + $_->encoding("Big5"); + $_[2] = $_->maketext("Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_[0], "大家好。"); +# 17 +ok($_[1], "憭批振憟賬"); +# 18 +ok($_[2], "大家好。"); + +# Reload the text +$r = eval { + $dir = catdir($LOCALEDIR, "en", "LC_MESSAGES"); + $f = catfile($dir, "test_reload.mo"); + $f1 = catfile($dir, "test.mo"); + $f2 = catfile($dir, "test2.mo"); + unlink $f; + copy $f1, $f or die "ERROR: $f1 $f: $!"; + + require T_L10N; + @_ = qw(); + $_ = T_L10N->get_handle("en"); + $_->bindtextdomain("test_reload", $LOCALEDIR); + $_->textdomain("test_reload"); + $_[0] = $_->maketext("Hello, world!"); + $_[1] = $_->maketext("Every story has a happy ending."); + unlink $f; + copy $f2, $f or die "ERROR: $f2 $f: $!"; + $_[2] = $_->maketext("Hello, world!"); + $_[3] = $_->maketext("Every story has a happy ending."); + $_->reload_text; + $_[4] = $_->maketext("Hello, world!"); + $_[5] = $_->maketext("Every story has a happy ending."); + + unlink $f; + return 1; +}; +# 19 +ok($r, 1); +# 20 +ok($_[0], "Hiya :)"); +# 21 +ok($_[1], "Every story has a happy ending."); +# 22 +ok($_[2], "Hiya :)"); +# 23 +ok($_[3], "Every story has a happy ending."); +# 24 +ok($_[4], "Hello, world!"); +# 25 +ok($_[5], "Pray it."); + +# Garbage collection +unlink catfile($LOCALEDIR, "en", "LC_MESSAGES", "test_reload.mo"); diff --git a/t/06-racing.t b/t/06-racing.t new file mode 100755 index 0000000..f6c9c87 --- /dev/null +++ b/t/06-racing.t @@ -0,0 +1,317 @@ +#! /usr/bin/perl -w +# Test suite for the hybrid racing condition +# Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 42 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r $LOOKUP_FAILURE); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Hybrid racing conditionr +use vars qw($lh1 $lh2); +$r = eval { + undef $LOOKUP_FAILURE; + require T_L10N; + + $lh1 = T_L10N->get_handle("zh-tw"); + $lh1->fail_with(sub { $LOOKUP_FAILURE = 1; die; }); + $lh1->bindtextdomain("test", $LOCALEDIR); + $lh1->textdomain("test"); + $lh1->encoding("Big5"); + $lh1->die_for_lookup_failures(0); + + $lh2 = T_L10N->get_handle("zh-tw"); + $lh2->fail_with(sub { $LOOKUP_FAILURE = 1; die; }); + $lh2->bindtextdomain("test2", $LOCALEDIR); + $lh2->textdomain("test2"); + $lh2->encoding("UTF-8"); + $lh2->die_for_lookup_failures(1); + return 1; +}; +# 1 +ok($r, 1); + +# Once +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 2 +ok($_, "大家好。"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 3 +ok($_, "Every story has a happy ending."); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 4 +ok($r, undef); +# 5 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 6 +ok($_, "鈭賣蝢暻蝯撅"); + +# Again +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 7 +ok($_, "大家好。"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 8 +ok($_, "Every story has a happy ending."); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 9 +ok($r, undef); +# 10 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 11 +ok($_, "鈭賣蝢暻蝯撅"); + +# Exchange everything! +$r = eval { + undef $LOOKUP_FAILURE; + $lh1->bindtextdomain("test2", $LOCALEDIR); + $lh1->textdomain("test2"); + $lh1->encoding("UTF-8"); + $lh1->die_for_lookup_failures(1); + + $lh2->bindtextdomain("test", $LOCALEDIR); + $lh2->textdomain("test"); + $lh2->encoding("Big5"); + $lh2->die_for_lookup_failures(0); + return 1; +}; +# 12 +ok($r, 1); + +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 13 +ok($r, undef); +# 14 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 15 +ok($_, "鈭賣蝢暻蝯撅"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 16 +ok($_, "大家好。"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 17 +ok($_, "Every story has a happy ending."); + +# Exchange the text domains +$r = eval { + undef $LOOKUP_FAILURE; + $lh1->textdomain("test"); + $lh2->textdomain("test2"); + return 1; +}; +# 18 +ok($r, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 19 +ok($_, "憭批振憟賬"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 20 +ok($r, undef); +# 21 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 22 +ok($_, "Hello, world!"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 23 +ok($_, "故事都有美麗的結局。"); + +# Exchange encodings +$r = eval { + undef $LOOKUP_FAILURE; + $lh1->encoding("Big5"); + $lh2->encoding("UTF-8"); + return 1; +}; +# 24 +ok($r, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 25 +ok($_, "大家好。"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 26 +ok($r, undef); +# 27 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 28 +ok($_, "Hello, world!"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 29 +ok($_, "鈭賣蝢暻蝯撅"); + +# Exchange lookup-failure behaviors +$r = eval { + undef $LOOKUP_FAILURE; + $lh1->die_for_lookup_failures(0); + $lh2->die_for_lookup_failures(1); + return 1; +}; +# 30 +ok($r, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 31 +ok($_, "大家好。"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 32 +ok($_, "Every story has a happy ending."); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; + +# 33 +ok($r, undef); +# 34 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 35 +ok($_, "鈭賣蝢暻蝯撅"); + +# Switch to an non-existing domain +$r = eval { + undef $LOOKUP_FAILURE; + $lh1->textdomain("Big5"); + $lh2->textdomain("GB2312"); + return 1; +}; +# 36 +ok($r, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Hello, world!"); + return 1; +}; +# 37 +ok($_, "Hello, world!"); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh1->maketext("Every story has a happy ending."); + return 1; +}; +# 38 +ok($_, "Every story has a happy ending."); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Hello, world!"); + return 1; +}; +# 39 +ok($r, undef); +# 40 +ok($LOOKUP_FAILURE, 1); +$r = eval { + undef $LOOKUP_FAILURE; + $_ = $lh2->maketext("Every story has a happy ending."); + return 1; +}; +# 41 +ok($r, undef); +# 42 +ok($LOOKUP_FAILURE, 1); diff --git a/t/07-f-basic.t b/t/07-f-basic.t new file mode 100755 index 0000000..aa1ce81 --- /dev/null +++ b/t/07-f-basic.t @@ -0,0 +1,275 @@ +#! /usr/bin/perl -w +# Basic test suite for the functional interface +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 41 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); +delete $ENV{$_} + foreach qw(LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES LC_NUMERIC + LC_MONETARY LC_TIME LANG); + +# Basic test suite +# bindtextdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + $_ = bindtextdomain("test", $LOCALEDIR); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, $LOCALEDIR); + +# textdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + $_ = textdomain("test"); + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, "test"); + +# get_handle +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + return 1; +}; +# 5 +ok($r, 1); + +# maketext +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 6 +ok($r, 1); +# 7 +ok($_, "Hiya :)"); + +# __ (shortcut to maketext) +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = __("Hello, world!"); + return 1; +}; +# 8 +ok($r, 1); +# 9 +ok($_, "Hiya :)"); + +# N_ (do nothing) +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = N_("Hello, world!"); + return 1; +}; +# 10 +ok($r, 1); +# 11 +ok($_, "Hello, world!"); + +# N_ (do nothing) +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + # 李子文你這粒大西瓜！ :p （From: 台灣霹靂火） + @_ = N_("Hello, world!", "Cool!", "Big watermelon"); + return 1; +}; +# 12 +ok($r, 1); +# 13 +ok($_[0], "Hello, world!"); +# 14 +ok($_[1], "Cool!"); +# 15 +ok($_[2], "Big watermelon"); + +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = N_("Hello, world!"); + return 1; +}; +# 16 +ok($r, 1); +# 17 +ok($_, "Hello, world!"); + +# maketext +# English +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 18 +ok($r, 1); +# 19 +ok($_[0], "Hiya :)"); +# 20 +ok($_[1], "Hiya :) under the File menu"); +# 21 +ok($_[2], "Hiya :) under the View menu"); + +# Traditional Chinese +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 22 +ok($r, 1); +# 23 +ok($_[0], "大家好。"); +# 24 +ok($_[1], "檔案選單下的大家好。"); +# 25 +ok($_[2], "瀏覽選單下的大家好。"); + +# Simplified Chinese +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-cn"); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 26 +ok($r, 1); +# 27 +ok($_[0], "湮模疑﹝"); +# 28 +ok($_[1], "紫偶粕等狟腔湮模疑﹝"); +# 29 +ok($_[2], "銡擬粕等狟腔湮模疑﹝"); + +# maketext - by environment +# English +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + $ENV{"LANG"} = "en"; + get_handle(); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 30 +ok($r, 1); +# 31 +ok($_[0], "Hiya :)"); +# 32 +ok($_[1], "Hiya :) under the File menu"); +# 33 +ok($_[2], "Hiya :) under the View menu"); + +# Traditional Chinese +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + $ENV{"LANG"} = "zh-tw"; + get_handle(); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 34 +ok($r, 1); +# 35 +ok($_[0], "大家好。"); +# 36 +ok($_[1], "檔案選單下的大家好。"); +# 37 +ok($_[2], "瀏覽選單下的大家好。"); + +# Simplified Chinese +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + $ENV{"LANG"} = "zh-cn"; + get_handle(); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = pmaketext("Menu|View|", "Hello, world!"); + return 1; +}; +# 38 +ok($r, 1); +# 39 +ok($_[0], "湮模疑﹝"); +# 40 +ok($_[1], "紫偶粕等狟腔湮模疑﹝"); +# 41 +ok($_[2], "銡擬粕等狟腔湮模疑﹝"); diff --git a/t/08-f-errors.t b/t/08-f-errors.t new file mode 100755 index 0000000..2378435 --- /dev/null +++ b/t/08-f-errors.t @@ -0,0 +1,344 @@ +#! /usr/bin/perl -w +# Test suite on the functional interface for the behavior when something goes wrong +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 39 } + +use Encode qw(); +use FindBin; +use File::Basename qw(basename); +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($THIS_FILE $LOCALEDIR $r); +$THIS_FILE = basename($0); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); +sub find_system_mo(); + +# find_system_mo: Find a safe system MO to be tested +sub find_system_mo() { + local ($_, %_); + my %cands; + use Locale::Maketext::Gettext::Functions; + # Find all the system MO files + %cands = qw(); + foreach my $dir (@Locale::Maketext::Gettext::Functions::SYSTEM_LOCALEDIRS) { + my ($DH, @langs); + next unless -d $dir; + + @langs = qw(); + opendir $DH, $dir or die "$THIS_FILE: $dir: $!"; + while (defined($_ = readdir $DH)) { + my $dir1; + $dir1 = catfile($dir, $_, "LC_MESSAGES"); + push @langs, $_ if -d $dir1 && -r $dir1; + } + closedir $DH or die "$THIS_FILE: $dir: $!"; + + foreach my $lang (sort @langs) { + my $dir1; + $dir1 = catfile($dir, $lang, "LC_MESSAGES"); + opendir $DH, $dir1 or die "$THIS_FILE: $dir1: $!"; + while (defined($_ = readdir $DH)) { + my ($file, $domain); + $file = catfile($dir1, $_); + next unless -f $file && -r $file && /^(.+)\.mo$/; + $domain = $1; + $cands{$file} = [$lang, $domain]; + } + closedir $DH or die "$THIS_FILE: $dir1: $!"; + } + } + # Check each MO file, from the newest + foreach my $file (sort { (stat $b)[9] <=> (stat $a)[9] } keys %cands) { + my ($FH, $size, $content, $charset, $lang, $domain); + $size = (stat $file)[7]; + open $FH, $file or die "$THIS_FILE: $file: $!"; + read $FH, $content, $size or die "$THIS_FILE: $file: $!"; + close $FH or die "$THIS_FILE: $file: $!"; + next unless $content =~ /Project-Id-Version:/; + next unless $content =~ /\s+charset=([^\n]+)/; + $charset = $1; + next unless defined Encode::resolve_alias($charset); + # OK. We take this one + ($lang, $domain) = @{$cands{$file}}; + $lang = lc $lang; + $lang =~ s/_/-/g; + $lang = "i-default" if $lang eq "c"; + return ($lang, $domain); + } + # Not found + return (undef, undef); +} + +# When something goes wrong +use vars qw($dir $domain $lang $skip); +# GNU gettext never fails! +# bindtextdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + $_ = bindtextdomain("test"); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, undef); + +# textdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + $_ = textdomain; + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, undef); + +# No text domain claimed yet +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + $_ = __("Hello, world!"); + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_, "Hello, world!"); + +# Non-existing LOCALEDIR +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", "/dev/null"); + textdomain("test"); + $_ = __("Hello, world!"); + return 1; +}; +# 7 +ok($r, 1); +# 8 +ok($_, "Hello, world!"); + +# Not-registered DOMAIN +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + textdomain("not_registered"); + $_ = __("Hello, world!"); + return 1; +}; +# 9 +ok($r, 1); +# 10 +ok($_, "Hello, world!"); + +# PO file not exists +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("no_such_domain", $LOCALEDIR); + textdomain("no_such_domain"); + $_ = __("Hello, world!"); + return 1; +}; +# 11 +ok($r, 1); +# 12 +ok($_, "Hello, world!"); + +# PO file invalid +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("bad", $LOCALEDIR); + textdomain("bad"); + $_ = __("Hello, world!"); + return 1; +}; +# 13 +ok($r, 1); +# 14 +ok($_, "Hello, world!"); + +# No such message +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_[0] = __("[*,_1,non-existing message,non-existing messages]", 1); + $_[1] = __("[*,_1,non-existing message,non-existing messages]", 3); + $_[2] = pmaketext("Menu|View|", "[*,_1,non-existing message,non-existing messages]", 1); + $_[3] = pmaketext("Menu|View|", "[*,_1,non-existing message,non-existing messages]", 3); + $_[4] = pmaketext("Menu|None|", "Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_[0], "1 non-existing message"); +# 17 +ok($_[1], "3 non-existing messages"); +# 18 +ok($_[2], "1 non-existing message"); +# 19 +ok($_[3], "3 non-existing messages"); +# 20 +ok($_[4], "Hello, world!"); + +# get_handle before textdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + get_handle("en"); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + $_ = __("Hello, world!"); + return 1; +}; +# 21 +ok($r, 1); +# 22 +ok($_, "Hiya :)"); + +# bindtextdomain after textdomain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + get_handle("en"); + textdomain("test2"); + bindtextdomain("test2", $LOCALEDIR); + $_ = __("Every story has a happy ending."); + return 1; +}; +# 23 +ok($r, 1); +# 24 +ok($_, "Pray it."); + +# multibyte keys +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + key_encoding("Big5"); + $_ = maketext("（未設定）"); + return 1; +}; +# 25 +ok($r, 1); +# 26 +ok($_, "（未設定）"); + +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", "/dev/null"); + textdomain("test"); + get_handle("zh-tw"); + key_encoding("Big5"); + $_ = maketext("（未設定）"); + return 1; +}; +# 27 +ok($r, 1); +# 28 +ok($_, "（未設定）"); + +# Maketext before and after binding text domain +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + __("Hello, world!"); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = __("Hello, world!"); + return 1; +}; +# 29 +ok($r, 1); +# 30 +ok($_, "Hiya :)"); + +# Switch to a domain that is not binded yet +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + get_handle("en"); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + textdomain("test2"); + $_ = __("Hello, world!"); + return 1; +}; +# 31 +ok($r, 1); +# 32 +ok($_, "Hello, world!"); + +# N_: different context - string to array +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + @_ = N_("Hello, world!"); + return 1; +}; +# 33 +ok($r, 1); +# 34 +ok($_[0], "Hello, world!"); +# 35 +ok($_[1], undef); + +# N_: different context - array to string +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = N_("Hello, world!", "Cool!", "Big watermelon"); + return 1; +}; +# 36 +ok($r, 1); +# 37 +ok($_, "Hello, world!"); + +# Search system locale directories +($lang, $domain) = find_system_mo; +$skip = defined $domain? 0: 1; +$r = eval { + return if $skip; + use Locale::Maketext::Gettext::Functions; + textdomain($domain); + get_handle($lang); + $_ = maketext(""); + # Skip if $Lexicon{""} does not exists + $skip = 1 if $_ eq ""; + return 1; +}; +# 38 +skip($skip, $r, 1, $@); +# 39 +skip($skip, $_, qr/Project-Id-Version:/); diff --git a/t/09-f-encodings.t b/t/09-f-encodings.t new file mode 100755 index 0000000..14f711a --- /dev/null +++ b/t/09-f-encodings.t @@ -0,0 +1,282 @@ +#! /usr/bin/perl -w +# Test suite on the functional interface for different encodings +# Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 34 } + +use Encode qw(); +use FindBin; +use File::Spec::Functions qw(catdir); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); + +# Different encodings +# English +# Find the default encoding +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_ = encoding(); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_, "US-ASCII"); + +# Traditional Chinese +# Find the default encoding +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + $_ = encoding(); + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_, "Big5"); + +# Turn to Big5 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + encoding("Big5"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_, "大家好。"); + +# Turn to UTF-8 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + encoding("UTF-8"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 7 +ok($r, 1); +# 8 +ok($_, "憭批振憟賬"); + +# Turn to UTF-16LE +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + encoding("UTF-16LE"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 9 +ok($r, 1); +# 10 +ok($_, "'Y跋}Y0"); + +# Find the default encoding, in UTF-8 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-tw"); + $_ = encoding(); + return 1; +}; +# 11 +ok($r, 1); +# 12 +ok($_, "UTF-8"); + +# Turn to UTF-8 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-tw"); + encoding("UTF-8"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 13 +ok($r, 1); +# 14 +ok($_, "憭批振憟賬"); + +# Turn to Big5 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-tw"); + encoding("Big5"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 15 +ok($r, 1); +# 16 +ok($_, "大家好。"); + +# Turn to UTF-16LE +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-tw"); + encoding("UTF-16LE"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 17 +ok($r, 1); +# 18 +ok($_, "'Y跋}Y0"); + +# Find the default encoding +# Simplified Chinese +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-cn"); + $_ = encoding(); + return 1; +}; +# 19 +ok($r, 1); +# 20 +ok($_, "UTF-8"); + +# Turn to GB2312 +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test_utf8", $LOCALEDIR); + textdomain("test_utf8"); + get_handle("zh-cn"); + encoding("GB2312"); + $_ = maketext("Hello, world!"); + return 1; +}; +# 21 +ok($r, 1); +# 22 +ok($_, "湮模疑﹝"); + +# Encode failure +# FB_DEFAULT +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test2", $LOCALEDIR); + textdomain("test2"); + get_handle("zh-tw"); + encoding("GB2312"); + $_ = maketext("Every story has a happy ending."); + return 1; +}; +# 23 +ok($r, 1); +# 24 +ok($_, "嘟岈飲衄藝?腔?擁﹝"); + +# FB_CROAK +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test2", $LOCALEDIR); + textdomain("test2"); + get_handle("zh-tw"); + encoding("GB2312"); + encode_failure(Encode::FB_CROAK); + $_ = maketext("Every story has a happy ending."); + return 1; +}; +# 25 +ok($r, undef); +# 26 +ok($@, qr/does not map to/); + +# FB_HTMLCREF +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test2", $LOCALEDIR); + textdomain("test2"); + get_handle("zh-tw"); + encoding("GB2312"); + encode_failure(Encode::FB_HTMLCREF); + $_ = maketext("Every story has a happy ending."); + return 1; +}; +# 27 +ok($r, 1); +# 28 +ok($_, "嘟岈飲衄藝麗腔結擁﹝"); + +# Return the unencoded UTF-8 text +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + encoding(undef); + $_ = maketext("Hello, world!"); + return 1; +}; +# 29 +ok($r, 1); +# 30 +ok($_, "\x{5927}\x{5BB6}\x{597D}\x{3002}"); +# 31 +ok((Encode::is_utf8($_)? "utf8": "non-utf8"), "utf8"); + +# Return the unencoded UTF-8 text with auto lexicon +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-tw"); + encoding(undef); + $_ = maketext("Big watermelon"); + return 1; +}; +# 32 +ok($r, 1); +# 33 +ok($_, "Big watermelon"); +# 34 +ok((Encode::is_utf8($_)? "utf8": "non-utf8"), "utf8"); diff --git a/t/10-f-switching.t b/t/10-f-switching.t new file mode 100755 index 0000000..ec750b4 --- /dev/null +++ b/t/10-f-switching.t @@ -0,0 +1,416 @@ +#! /usr/bin/perl -w +# Test suite on the functional interface for switching between different settings +# Copyright (c) 2003-2008 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 63 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); +delete $ENV{$_} + foreach qw(LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES LC_NUMERIC + LC_MONETARY LC_TIME LANG); + +# Switching between different settings +use File::Copy qw(copy); +use vars qw($dir1 $dir2 $dir3 $f1 $f11 $f12 $f2 $f21 $f3 $f31 $class); + +# dmaketext in the middle +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + get_handle("en"); + bindtextdomain("test", $LOCALEDIR); + bindtextdomain("test2", $LOCALEDIR); + textdomain("test"); + $_[0] = __("Hello, world!"); + $_[1] = pmaketext("Menu|File|", "Hello, world!"); + $_[2] = __("Every story has a happy ending."); + $_[3] = pmaketext("Menu|File|", "Every story has a happy ending."); + $_[4] = dmaketext("test2", "Hello, world!"); + $_[5] = dpmaketext("test2", "Menu|File|", "Hello, world!"); + $_[6] = dmaketext("test2", "Every story has a happy ending."); + $_[7] = dpmaketext("test2", "Menu|File|", "Every story has a happy ending."); + $_[8] = __("Hello, world!"); + $_[9] = pmaketext("Menu|File|", "Hello, world!"); + $_[10] = __("Every story has a happy ending."); + $_[11] = pmaketext("Menu|File|", "Every story has a happy ending."); + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_[0], "Hiya :)"); +# 3 +ok($_[1], "Hiya :) under the File menu"); +# 4 +ok($_[2], "Every story has a happy ending."); +# 5 +ok($_[3], "Every story has a happy ending."); +# 6 +ok($_[4], "Hello, world!"); +# 6 +ok($_[5], "Hello, world!"); +# 8 +ok($_[6], "Pray it."); +# 9 +ok($_[7], "Pray it under the File menu"); +# 10 +ok($_[8], "Hiya :)"); +# 11 +ok($_[9], "Hiya :) under the File menu"); +# 12 +ok($_[10], "Every story has a happy ending."); +# 13 +ok($_[11], "Every story has a happy ending."); + +# Switch between domains +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + bindtextdomain("test2", $LOCALEDIR); + get_handle("en"); + textdomain("test"); + $_[0] = __("Hello, world!"); + $_[1] = __("Every story has a happy ending."); + textdomain("test2"); + $_[2] = __("Hello, world!"); + $_[3] = __("Every story has a happy ending."); + textdomain("test"); + $_[4] = __("Hello, world!"); + $_[5] = __("Every story has a happy ending."); + return 1; +}; +# 14 +ok($r, 1); +# 15 +ok($_[0], "Hiya :)"); +# 16 +ok($_[1], "Every story has a happy ending."); +# 17 +ok($_[2], "Hello, world!"); +# 18 +ok($_[3], "Pray it."); +# 19 +ok($_[4], "Hiya :)"); +# 20 +ok($_[5], "Every story has a happy ending."); + +# Switch between languages +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_[0] = __("Hello, world!"); + get_handle("zh-tw"); + $_[1] = __("Hello, world!"); + get_handle("zh-cn"); + $_[2] = __("Hello, world!"); + return 1; +}; +# 21 +ok($r, 1); +# 22 +ok($_[0], "Hiya :)"); +# 23 +ok($_[1], "大家好。"); +# 24 +ok($_[2], "湮模疑﹝"); + +# Switch between languages - by environment +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + $ENV{"LANG"} = "en"; + get_handle(); + $_[0] = __("Hello, world!"); + $ENV{"LANG"} = "zh-tw"; + get_handle(); + $_[1] = __("Hello, world!"); + $ENV{"LANG"} = "zh-cn"; + get_handle(); + $_[2] = __("Hello, world!"); + return 1; +}; +# 25 +ok($r, 1); +# 26 +ok($_[0], "Hiya :)"); +# 27 +ok($_[1], "大家好。"); +# 28 +ok($_[2], "湮模疑﹝"); + +# Switch between different language methods +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("en"); + $_[0] = __("Hello, world!"); + $ENV{"LANG"} = "zh-tw"; + get_handle(); + $_[1] = __("Hello, world!"); + get_handle("zh-cn"); + $_[2] = __("Hello, world!"); + $ENV{"LANG"} = "en"; + get_handle(); + $_[3] = __("Hello, world!"); + return 1; +}; +# 29 +ok($r, 1); +# 30 +ok($_[0], "Hiya :)"); +# 31 +ok($_[1], "大家好。"); +# 32 +ok($_[2], "湮模疑﹝"); +# 33 +ok($_[3], "Hiya :)"); + +# Reuse of a same text domain class +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + $ENV{"LANG"} = "en"; + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle(); + $_[0] = __("Hello, world!"); + $_[1] = __("Every story has a happy ending."); + $_[2] = ref($Locale::Maketext::Gettext::Functions::LH); + $_[2] =~ s/^(.+)::.*?$/$1/; + + bindtextdomain("test2", $LOCALEDIR); + textdomain("test2"); + get_handle("zh-tw"); + $_[3] = __("Hello, world!"); + $_[4] = __("Every story has a happy ending."); + + bindtextdomain("test", "/dev/null"); + textdomain("test"); + get_handle("en"); + $_[5] = __("Hello, world!"); + $_[6] = __("Every story has a happy ending."); + + bindtextdomain("test", $LOCALEDIR); + textdomain("test"); + get_handle("zh-cn"); + $_[7] = __("Hello, world!"); + $_[8] = __("Every story has a happy ending."); + $_[9] = ref($Locale::Maketext::Gettext::Functions::LH); + $_[9] =~ s/^(.+)::.*?$/$1/; + return 1; +}; +# 34 +ok($r, 1); +# 35 +ok($_[0], "Hiya :)"); +# 36 +ok($_[1], "Every story has a happy ending."); +# 37 +ok($_[3], "Hello, world!"); +# 38 +ok($_[4], "故事都有美麗的結局。"); +# 39 +ok($_[5], "Hello, world!"); +# 40 +ok($_[6], "Every story has a happy ending."); +# 41 +ok($_[7], "湮模疑﹝"); +# 42 +ok($_[8], "Every story has a happy ending."); +# 43 +ok($_[2], $_[9]); + +# Language addition/removal +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + $dir1 = catdir($LOCALEDIR, "en", "LC_MESSAGES"); + $dir2 = catdir($LOCALEDIR, "zh_TW", "LC_MESSAGES"); + $dir3 = catdir($LOCALEDIR, "zh_CN", "LC_MESSAGES"); + $f1 = catfile($dir1, "test_dyn.mo"); + $f11 = catfile($dir1, "test.mo"); + $f2 = catfile($dir2, "test_dyn.mo"); + $f21 = catfile($dir2, "test.mo"); + $f3 = catfile($dir3, "test_dyn.mo"); + $f31 = catfile($dir3, "test.mo"); + unlink $f1; + unlink $f2; + unlink $f3; + + bindtextdomain("test_dyn", $LOCALEDIR); + textdomain("test_dyn"); + get_handle("zh-tw"); + $_[0] = __("Hello, world!"); + get_handle("zh-cn"); + $_[1] = __("Hello, world!"); + + copy $f21, $f2 or die "ERROR: $f21 $f2: $!"; + textdomain("test_dyn"); + get_handle("zh-tw"); + $_[2] = __("Hello, world!"); + get_handle("zh-cn"); + $_[3] = __("Hello, world!"); + + unlink $f2; + copy $f31, $f3 or die "ERROR: $f31 $f3: $!"; + textdomain("test_dyn"); + get_handle("zh-tw"); + $_[4] = __("Hello, world!"); + get_handle("zh-cn"); + $_[5] = __("Hello, world!"); + + copy $f21, $f2 or die "ERROR: $f21 $f2: $!"; + textdomain("test_dyn"); + get_handle("zh-tw"); + $_[6] = __("Hello, world!"); + get_handle("zh-cn"); + $_[7] = __("Hello, world!"); + + unlink $f2; + unlink $f3; + textdomain("test_dyn"); + get_handle("zh-tw"); + $_[8] = __("Hello, world!"); + get_handle("zh-cn"); + $_[9] = __("Hello, world!"); + + unlink $f1; + unlink $f2; + unlink $f3; + return 1; +}; +# 44 +ok($r, 1); +# 45 +ok($_[0], "Hello, world!"); +# 46 +ok($_[1], "Hello, world!"); +# 47 +ok($_[2], "大家好。"); +# 48 +ok($_[3], "Hello, world!"); +# 49 +ok($_[4], "Hello, world!"); +# 50 +ok($_[5], "湮模疑﹝"); +# 51 +ok($_[6], "大家好。"); +# 52 +ok($_[7], "湮模疑﹝"); +# 53 +ok($_[8], "Hello, world!"); +# 54 +ok($_[9], "Hello, world!"); + +# Garbage collection - drop abandoned language handles +$r = eval { + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + $dir1 = catdir($LOCALEDIR, "en", "LC_MESSAGES"); + $dir2 = catdir($LOCALEDIR, "zh_TW", "LC_MESSAGES"); + $dir3 = catdir($LOCALEDIR, "zh_CN", "LC_MESSAGES"); + $f1 = catfile($dir1, "test_dyn.mo"); + $f11 = catfile($dir1, "test.mo"); + $f2 = catfile($dir2, "test_dyn.mo"); + $f21 = catfile($dir2, "test.mo"); + $f3 = catfile($dir3, "test_dyn.mo"); + $f31 = catfile($dir3, "test.mo"); + unlink $f1; + unlink $f2; + unlink $f3; + + copy $f11, $f1 or die "ERROR: $f11 $f1: $!"; + copy $f21, $f2 or die "ERROR: $f21 $f2: $!"; + textdomain("test_dyn"); + get_handle("en"); + get_handle("zh-tw"); + get_handle("zh-cn"); + $class = ref($Locale::Maketext::Gettext::Functions::LH); + $class =~ s/^(.+)::.*?$/$1/; + + unlink $f2; + copy $f31, $f3 or die "ERROR: $f31 $f3: $!"; + textdomain("test_dyn"); + get_handle("en"); + get_handle("zh-tw"); + get_handle("zh-cn"); + @_ = grep /^$class/, keys %Locale::Maketext::Gettext::Functions::LHS; + return 1; +}; +# 55 +ok($r, 1); +# 56 +ok(scalar(@_), 0); + +# Reload the text +$r = eval { + $dir1 = catdir($LOCALEDIR, "en", "LC_MESSAGES"); + $f1 = catfile($dir1, "test_reload.mo"); + $f11 = catfile($dir1, "test.mo"); + $f12 = catfile($dir1, "test2.mo"); + unlink $f1; + copy $f11, $f1 or die "ERROR: $f11 $f1: $!"; + use Locale::Maketext::Gettext::Functions; + Locale::Maketext::Gettext::Functions::_reset(); + @_ = qw(); + bindtextdomain("test_reload", $LOCALEDIR); + textdomain("test_reload"); + get_handle("en"); + $_[0] = __("Hello, world!"); + $_[1] = __("Every story has a happy ending."); + unlink $f1; + copy $f12, $f1 or die "ERROR: $f12 $f1: $!"; + $_[2] = __("Hello, world!"); + $_[3] = __("Every story has a happy ending."); + reload_text; + $_[4] = __("Hello, world!"); + $_[5] = __("Every story has a happy ending."); + unlink $f1; + return 1; +}; +# 57 +ok($r, 1); +# 58 +ok($_[0], "Hiya :)"); +# 59 +ok($_[1], "Every story has a happy ending."); +# 60 +ok($_[2], "Hiya :)"); +# 61 +ok($_[3], "Every story has a happy ending."); +# 62 +ok($_[4], "Hello, world!"); +# 63 +ok($_[5], "Pray it."); + +# Garbage collection +unlink catfile($LOCALEDIR, "en", "LC_MESSAGES", "test_dyn.mo"); +unlink catfile($LOCALEDIR, "zh_TW", "LC_MESSAGES", "test_dyn.mo"); +unlink catfile($LOCALEDIR, "zh_CN", "LC_MESSAGES", "test_dyn.mo"); +unlink catfile($LOCALEDIR, "en", "LC_MESSAGES", "test_reload.mo"); diff --git a/t/11-command-line.t b/t/11-command-line.t new file mode 100755 index 0000000..735ce61 --- /dev/null +++ b/t/11-command-line.t @@ -0,0 +1,92 @@ +#! /usr/bin/perl -w +# Test suite on the maketext script +# Copyright (c) 2003-2007 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +use 5.008; +use strict; +use warnings; +use Test; + +BEGIN { plan tests => 10 } + +use FindBin; +use File::Spec::Functions qw(catdir catfile updir); +use lib $FindBin::Bin; +use vars qw($LOCALEDIR $r $maketext); +$LOCALEDIR = catdir($FindBin::Bin, "locale"); +$maketext = catdir($FindBin::Bin, updir, "blib", "script", "maketext"); + +# The maketext script +# Ordinary text unchanged +$r = eval { + delete $ENV{"LANG"}; + delete $ENV{"LANGUAGE"}; + delete $ENV{"TEXTDOMAINDIR"}; + delete $ENV{"TEXTDOMAIN"}; + @_ = `"$maketext" "Hello, world!"`; + return 1; +}; +# 1 +ok($r, 1); +# 2 +ok($_[0], "Hello, world!"); + +# Specify the text domain by the -d argument +# English +$r = eval { + $ENV{"LANG"} = "C"; + $ENV{"LANGUAGE"} = "C"; + $ENV{"TEXTDOMAINDIR"} = $LOCALEDIR; + delete $ENV{"TEXTDOMAIN"}; + @_ = `"$maketext" -d test "Hello, world!"`; + return 1; +}; +# 3 +ok($r, 1); +# 4 +ok($_[0], "Hiya :)"); + +# Specify the text domain by the environment variable +# English +$r = eval { + $ENV{"LANG"} = "C"; + $ENV{"LANGUAGE"} = "C"; + $ENV{"TEXTDOMAINDIR"} = $LOCALEDIR; + $ENV{"TEXTDOMAIN"} = "test"; + @_ = `"$maketext" "Hello, world!"`; + return 1; +}; +# 5 +ok($r, 1); +# 6 +ok($_[0], "Hiya :)"); + +# The -s argument +$r = eval { + $ENV{"LANG"} = "C"; + $ENV{"LANGUAGE"} = "C"; + $ENV{"TEXTDOMAINDIR"} = $LOCALEDIR; + $ENV{"TEXTDOMAIN"} = "test"; + @_ = `"$maketext" -s "Hello, world!"`; + return 1; +}; +# 7 +ok($r, 1); +# 8 +ok($_[0], "Hiya :)\n"); + +# Maketext +$r = eval { + $ENV{"LANG"} = "C"; + $ENV{"LANGUAGE"} = "C"; + $ENV{"TEXTDOMAINDIR"} = $LOCALEDIR; + $ENV{"TEXTDOMAIN"} = "test"; + @_ = `"$maketext" -s "[*,_1,directory,directories]" 5`; + return 1; +}; +# 9 +ok($r, 1); +# 10 +ok($_[0], "5 directories\n"); diff --git a/t/99-pod.t b/t/99-pod.t new file mode 100755 index 0000000..9622b2f --- /dev/null +++ b/t/99-pod.t @@ -0,0 +1,5 @@ +#!/usr/bin/perl +use Test::More; +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; +all_pod_files_ok(); diff --git a/t/T_L10N.pm b/t/T_L10N.pm new file mode 100644 index 0000000..2aa1fdf --- /dev/null +++ b/t/T_L10N.pm @@ -0,0 +1,24 @@ +# Test localization class and its subclasses +# Copyright (c) 2003 imacat. All rights reserved. This program is free +# software; you can redistribute it and/or modify it under the same terms +# as Perl itself. + +package T_L10N; +use base qw(Locale::Maketext::Gettext); + +return 1; + +package T_L10N::en; +use base qw(Locale::Maketext::Gettext); + +return 1; + +package T_L10N::zh_tw; +use base qw(Locale::Maketext::Gettext); + +return 1; + +package T_L10N::zh_cn; +use base qw(Locale::Maketext::Gettext); + +return 1; diff --git a/t/locale/C/LC_MESSAGES/test.mo b/t/locale/C/LC_MESSAGES/test.mo new file mode 100644 index 0000000000000000000000000000000000000000..6803e36f06138a9e694f5c9269a1ce07f898c813 GIT binary patch literal 612 zcmaKpQA;B+5Xa+PB)}B!C zQwV+yzmT8hX0M8Hhyy?Vll&)>gn3$P+%t*>@rCFRtHcFSM@f7pu8DQx?pYs5-3num zq@Reb4~%V)HlKAsN;dmQ)KT}REyf0@wQa)OI-PB@5t?dos5CAbZy4ta=l>gHXRmM? z_%P$==)AHzv;@r3sr%0SipKn4`hN|GI(w0OD; zX-j-hza~3LLWTSUZ&cm&-MS;`1D`l)yq3W_0jiKw8KAS&{X!}oFY{PsH*uKnMMu)) zmCTV(P! literal 0 HcmV?d00001 diff --git a/t/locale/en/LC_MESSAGES/bad.mo b/t/locale/en/LC_MESSAGES/bad.mo new file mode 100644 index 0000000..e70fee9 --- /dev/null +++ b/t/locale/en/LC_MESSAGES/bad.mo @@ -0,0 +1 @@ +0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 \ No newline at end of file diff --git a/t/locale/en/LC_MESSAGES/test.mo b/t/locale/en/LC_MESSAGES/test.mo new file mode 100644 index 0000000000000000000000000000000000000000..6803e36f06138a9e694f5c9269a1ce07f898c813 GIT binary patch literal 612 zcmaKpQA;B+5Xa+PB)}B!C zQwV+yzmT8hX0M8Hhyy?Vll&)>gn3$P+%t*>@rCFRtHcFSM@f7pu8DQx?pYs5-3num zq@Reb4~%V)HlKAsN;dmQ)KT}REyf0@wQa)OI-PB@5t?dos5CAbZy4ta=l>gHXRmM? z_%P$==)AHzv;@r3sr%0SipKn4`hN|GI(w0OD; zX-j-hza~3LLWTSUZ&cm&-MS;`1D`l)yq3W_0jiKw8KAS&{X!}oFY{PsH*uKnMMu)) zmCTV(P! literal 0 HcmV?d00001 diff --git a/t/locale/en/LC_MESSAGES/test2.mo b/t/locale/en/LC_MESSAGES/test2.mo new file mode 100644 index 0000000000000000000000000000000000000000..0ca4111305abf0aa699331b7f2e8b4383a0ebb29 GIT binary patch literal 668 zcma)(&raJw5XQG9l`0>(wo<28&>Gu4lsW`aLXaX6HG-5&dzr>lXOX>jcgKN99C!r| zybaI7mDgZQKwJ=Xq~CtCns5Kk&1&aLNpysd!j|w(_${J?Mp~l+}tL>3y_ksKK1v0z6kT&d>wOSl0_6n;DyjYDBg<-!}!FcmB(I zZ0PiL>)2H%G-W-^^f5VaDw_h6=LF&~4i2fV9P5$KO{RC7-0Mk|LNNX@(S1kAV%K}f zltL0kn>tE#{0-tH{SvQ7n^7c2eMocDZu_F|06pu8L+cBa4@kk3I7No7rS6nyig1~S zCYy(Rx*Z&#%^S=~PYBBt1~xB@pS`$bG#m|{o*9Qx(620$m9rPMJc8+rH|he7?ZR}1 z&J*{39_jB#{o(M*+FtW7IX$q`s%=dQU;h{m#zo_>(EF7ueG0a|pZZ?Xg=N~a@VN(Z fH&A1T3osl$CeYZ79Po^w?Jtzl>1S$fLzlHX-`Bu1 literal 0 HcmV?d00001 diff --git a/t/locale/en/LC_MESSAGES/test_be.mo b/t/locale/en/LC_MESSAGES/test_be.mo new file mode 100644 index 0000000000000000000000000000000000000000..629aadee3c68fe3085bdac3306e8402ae219f8fe GIT binary patch literal 454 zcmaKn-%i3X7{!Otm@M(eYcD=7jdYHQ(G+Ghh+zrDDd?r7Y<1L>mb3-rL3|w_#b@!G zyTB{Hx&Hodg}cGJ)3+T literal 0 HcmV?d00001 diff --git a/t/locale/en/LC_MESSAGES/test_utf8.mo b/t/locale/en/LC_MESSAGES/test_utf8.mo new file mode 100644 index 0000000000000000000000000000000000000000..9e6d5634f167ef9824dada650fbd13fcf6021161 GIT binary patch literal 609 zcmaKpQA;B+5Xa+LIau)Jo(}FFrjMf8+wDDEO|6L9qF}jF);`@!t~+ic*XKc7w4O z(vL*@17lxEciwbBN;cahnrQmd7Gr0qwcUe-bvkde5t{m8s5Cyb-Z7>M7ylb$XRmP< z_<7E!=)AHr5GlBCO%4o~+X z?TGK`ZqiK>D&!NqRZZ8mbr;eHo;hi}mccp!s+2Ps;9#jorBpgz=CR6e3)mI4N*(8|x(9vPjF2CHADaT1+a6VTAz_Z592;9dAuX{k&PW^?I0hW=$XHD1?EYrS$b|2DS#Lm>c1hMl^p*A@> S2y=vHY*5kw-|?EsExkWX4yU33 literal 0 HcmV?d00001 diff --git a/t/locale/zh_CN/LC_MESSAGES/test.mo b/t/locale/zh_CN/LC_MESSAGES/test.mo new file mode 100644 index 0000000000000000000000000000000000000000..9d9975a8541a9408e026f9cddf0df5ced0ef81b3 GIT binary patch literal 603 zcmaKn!AcxK5QaN(17X06I;>$q zcyzO6;US@M6jfOiGyanDIGN+qQ8kLt$Tp!b%c&3gHiYx6V}*7~cw-YPbI}!^&X064 z7gB|zJd|la^n-<9L+Gq0GGHALc|u>yyijsmLP{GuQiFpBf4A0KE4K&pFbWz*d(gPX zL4o&p*!Q!A5>nS_cSl$UzP`E?&++)ySnj(GmaXWnNu|ybT74^h&{jPw6l)rryM*fE t@6*+JjgHcKR13)G-`}pjUY@=q!{LW7pMDJA|GXG}|5yBVc7A@Z_y^RVxzhju literal 0 HcmV?d00001 diff --git a/t/locale/zh_CN/LC_MESSAGES/test_be.mo b/t/locale/zh_CN/LC_MESSAGES/test_be.mo new file mode 100644 index 0000000000000000000000000000000000000000..3eeb488f121228fb6b0c4be4ad178c22ff3783ef GIT binary patch literal 460 zcmaKn!Ab)$5QbAxkOeQEJ;bxky1T7VwylV@YN5qdir13vj%_5Hlq7BSL3{x56+DTz zzJU+mOZWoLx`%q|4nFZ0~=QQd?*TNEO*ZT1cS;*+Xs#sif#5WEblddIkBf zEpiP~>MC7oBeO%282t#TW4(;sgRw%Zm^!d-GzJ>_ftTD2S;qi(_`@!^gP2A^P-8)z zMRgj5@kw+PG=d_??qDH`2^({LZXFvMuB_xvo0y86r`*w2>1R0?(l2XYWDDOdPrW`@ zlR2LN8v@T`irtwg7UGh2rb2;*jqQWppu4`VxT>R-1BH7$&+s4zPwsdoxlm1-PPwt* z+E?dMEsWN|V&MlctgBL;2{nmnV=SDP$hqN?U22otn5x;|)3(DVEz5S$^vL_q=hw&T H^^N=jo$i9B literal 0 HcmV?d00001 diff --git a/t/locale/zh_CN/LC_MESSAGES/test_utf8.mo b/t/locale/zh_CN/LC_MESSAGES/test_utf8.mo new file mode 100644 index 0000000000000000000000000000000000000000..b1e534424d84e58e017f05dfbc88ca74ca2111ca GIT binary patch literal 626 zcmaKnu}d656vij!Y!=g`N+B{<7CP(hCB?bt1@Yn$!6S!mtkR6P&vj&WW-~ME84wI1 zMIeZkAd*IsU>8V{kS701n&i|!!?!s>64VDjzBluI^LX>?e&v8*Rgh6+78yofAZ6vq zJ>(_w0NK6NL)799Azx8PkclBe#!w$!>Iy2_ z2|JZ*j8y@>|Ba5(o6vP^F=4Ac0A9~A>YvWkkrXpeUMQT~BBkFaY#jI(7 zJ4~}D+(AUEK~Q5sm4!1jtVR#R$)FYl7-Y+^CCaI{=9aj1EH+$O$(=S46&dexM`s5* zmvJHeLGO!X%XhuU-V#@7!Bb!{@GPP$BFm*%7m(2AhEQPP*4ORD_QKVNLqG7ES~*a- z#;Y9v<6zrO=aLImr`-*1EV#z=xW#H$xpLigFl<3}bs|(6(b}4DUPl&&OV-jRvk_JK z-=l4WbvkGpLER($Pbd8^-}|3`{(k+2oF0EXJ$`q-|DnHk@aM<-v!l2F+TZriPj0p^ E0L8Y+XaE2J literal 0 HcmV?d00001 diff --git a/t/locale/zh_TW/LC_MESSAGES/test.mo b/t/locale/zh_TW/LC_MESSAGES/test.mo new file mode 100644 index 0000000000000000000000000000000000000000..49e3465fca626be87c5ac570b2b403e5330a097c GIT binary patch literal 602 zcmaKnu}UOC5QbY_K?Y33z~F+u$iVBlo|S{WSy#lp6$KX;*)uX}cgnG)w|ngFaqmFz zDFjnN3=9M@GdU3xpTNw})F%+ExfKQPu;AmbuKKH}z8@igs zkO^e}MGsN)0Yc7EN07-uLdH?~i#AZPO@@#niv3t3WD%4yUue%*m3$^m(D~kiRIpe2 zPh(9&?|q|X%{FvATT0j(SSO8+sR!q26h^@+WX5{dbg4|(e4aYiHZcuaD{WS{AUwL+ z58)xEWzH*%ms#|kM&)=qn&K7C(a2U|R~B18^eqeLS=$Qjl<>yJRCYy2cskS9xvr2Z z?B}6Oc0=Er4VHyYbCCjTgXqQ-rxRHmBowW0NevD@9B(c)8*e|3LLStO_Mq{O-x+?$ z!!Q3eQ$p%0?Q99_z}Mzw`t8kDoVy8@HFU=$Ql~MkY)BupRBnZ03&wU`Om+76>1t7x m_R|`#2IP4AOq}SWI=Q+%yZiHa@o@a}^zyZM?QWj_DLw=BYqUH7 literal 0 HcmV?d00001 diff --git a/t/locale/zh_TW/LC_MESSAGES/test2.mo b/t/locale/zh_TW/LC_MESSAGES/test2.mo new file mode 100644 index 0000000000000000000000000000000000000000..d9cc647667c888604d265dff2bbd78ac06fc7272 GIT binary patch literal 693 zcma)(L2DC16vs!6mpvAb1>aej?QTSfn?|H*S_%z@5PK@ZGyB|(Y-ZP)N!mcaM4^5F zQB+FtVDM5ZmQo6S0&gDm*e}pR-!_F_B>Lbt|2NG4&AgfUHB)*cI7-YcGtb;+)|n!5 z<}UM^xyNi@=>hBTh7f;P?=a7A3IVM4N_SX!S=?ecy^P`v(HN2$fpr;=J+y#4=J^On z$4V!@Xp$amEvb~YO8;eDQ?&7KYs+M>sO#iPEZ4|bmFWl^SyzV854|?!nQ^jd6BWya zL1JYmi@<9=?Z~d2A3I{qSpW7_l%2&Uw)0VVi}m zs1u$B-JlHe2i%Bq!oRsOSjVRZl$GGLiI^xL1;_f8Ult%_v#OgS+ce$w!XJam*N`Kh zA`}s$?o5;mfn@PQD75%*`(!j3?yf7ZinVg6Xpff_9pv!YovkDY)nn-bj72xN5_xAA yE7yHO!-p!>nNWGex^vcAl+x6oU@*wmQ!iuoxsFU`)|pAtf}j=; zf(I{cDc%HI!Gq9C@#4SIOB;Xu7rr%uv{WB__`aF%dyn^i4HrHWi~=%(Od^BGJ0y<` zd4#MYkCF8o{fgRoK*$f&A>`>pLPk+1ZZt+kn+za%Hj}UgFji<4Q3ux1&=0+N$h2{+Zc~x4*X`7@SVz=r%*Cu~ zfIF;aZ@7bq7K5O~f+7oF(6AUi566O15MUvjhmOdn-di`ztz)s_%1Z9EiKuAtCUKJl@8Ga^{ImD%^!LU`a(49TY=8T5^Q8CX_|M7C`QFxF_W8!{#rM-Y F?JK4+$~^!8 literal 0 HcmV?d00001