From: tomo Date: Wed, 30 Jun 2004 02:53:24 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create tag 'withdl'. X-Git-Tag: withdl X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ef54e92aea6377cc821d3fc0570a6a722293a681;p=m17n%2Fm17n-lib.git This commit was manufactured by cvs2svn to create tag 'withdl'. --- diff --git a/.cvsignore b/.cvsignore deleted file mode 100644 index 66ce178..0000000 --- a/.cvsignore +++ /dev/null @@ -1,14 +0,0 @@ -stamp-h* -aclocal.m4 -autoscan.log -configure -configure.scan -*.gz -autom4te.cache -config.* -libtool -m17n-config -Makefile.in -Makefile -.deps -.libs diff --git a/AUTHORS b/AUTHORS deleted file mode 100644 index 9450e08..0000000 --- a/AUTHORS +++ /dev/null @@ -1,11 +0,0 @@ -Kenichi Handa - Core developer. - -Mikiko Nishikimi - Core developer. - -Naoto Takahashi - Core developer. - -Satoru Tomura - Core developer. diff --git a/COPYING b/COPYING deleted file mode 100644 index b1e3f5a..0000000 --- a/COPYING +++ /dev/null @@ -1,504 +0,0 @@ - GNU LESSER GENERAL PUBLIC LICENSE - Version 2.1, February 1999 - - Copyright (C) 1991, 1999 Free Software Foundation, Inc. - 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -[This is the first released version of the Lesser GPL. It also counts - as the successor of the GNU Library Public License, version 2, hence - the version number 2.1.] - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -Licenses are intended to guarantee your freedom to share and change -free software--to make sure the software is free for all its users. - - This license, the Lesser General Public License, applies to some -specially designated software packages--typically libraries--of the -Free Software Foundation and other authors who decide to use it. You -can use it too, but we suggest you first think carefully about whether -this license or the ordinary General Public License is the better -strategy to use in any particular case, based on the explanations below. - - When we speak of free software, we are referring to freedom of use, -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 this service if you wish); that you receive source code or can get -it if you want it; that you can change the software and use pieces of -it in new free programs; and that you are informed that you can do -these things. - - To protect your rights, we need to make restrictions that forbid -distributors to deny you these rights or to ask you to surrender these -rights. These restrictions translate to certain responsibilities for -you if you distribute copies of the library or if you modify it. - - For example, if you distribute copies of the library, whether gratis -or for a fee, you must give the recipients all the rights that we gave -you. You must make sure that they, too, receive or can get the source -code. If you link other code with the library, you must provide -complete object files to the recipients, so that they can relink them -with the library after making changes to the library and recompiling -it. And you must show them these terms so they know their rights. - - We protect your rights with a two-step method: (1) we copyright the -library, and (2) we offer you this license, which gives you legal -permission to copy, distribute and/or modify the library. - - To protect each distributor, we want to make it very clear that -there is no warranty for the free library. Also, if the library is -modified by someone else and passed on, the recipients should know -that what they have is not the original version, so that the original -author's reputation will not be affected by problems that might be -introduced by others. - - Finally, software patents pose a constant threat to the existence of -any free program. We wish to make sure that a company cannot -effectively restrict the users of a free program by obtaining a -restrictive license from a patent holder. Therefore, we insist that -any patent license obtained for a version of the library must be -consistent with the full freedom of use specified in this license. - - Most GNU software, including some libraries, is covered by the -ordinary GNU General Public License. This license, the GNU Lesser -General Public License, applies to certain designated libraries, and -is quite different from the ordinary General Public License. We use -this license for certain libraries in order to permit linking those -libraries into non-free programs. - - When a program is linked with a library, whether statically or using -a shared library, the combination of the two is legally speaking a -combined work, a derivative of the original library. The ordinary -General Public License therefore permits such linking only if the -entire combination fits its criteria of freedom. The Lesser General -Public License permits more lax criteria for linking other code with -the library. - - We call this license the "Lesser" General Public License because it -does Less to protect the user's freedom than the ordinary General -Public License. It also provides other free software developers Less -of an advantage over competing non-free programs. These disadvantages -are the reason we use the ordinary General Public License for many -libraries. However, the Lesser license provides advantages in certain -special circumstances. - - For example, on rare occasions, there may be a special need to -encourage the widest possible use of a certain library, so that it becomes -a de-facto standard. To achieve this, non-free programs must be -allowed to use the library. A more frequent case is that a free -library does the same job as widely used non-free libraries. In this -case, there is little to gain by limiting the free library to free -software only, so we use the Lesser General Public License. - - In other cases, permission to use a particular library in non-free -programs enables a greater number of people to use a large body of -free software. For example, permission to use the GNU C Library in -non-free programs enables many more people to use the whole GNU -operating system, as well as its variant, the GNU/Linux operating -system. - - Although the Lesser General Public License is Less protective of the -users' freedom, it does ensure that the user of a program that is -linked with the Library has the freedom and the wherewithal to run -that program using a modified version of the Library. - - The precise terms and conditions for copying, distribution and -modification follow. Pay close attention to the difference between a -"work based on the library" and a "work that uses the library". The -former contains code derived from the library, whereas the latter must -be combined with the library in order to run. - - GNU LESSER GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License Agreement applies to any software library or other -program which contains a notice placed by the copyright holder or -other authorized party saying it may be distributed under the terms of -this Lesser General Public License (also called "this License"). -Each licensee is addressed as "you". - - A "library" means a collection of software functions and/or data -prepared so as to be conveniently linked with application programs -(which use some of those functions and data) to form executables. - - The "Library", below, refers to any such software library or work -which has been distributed under these terms. A "work based on the -Library" means either the Library or any derivative work under -copyright law: that is to say, a work containing the Library or a -portion of it, either verbatim or with modifications and/or translated -straightforwardly into another language. (Hereinafter, translation is -included without limitation in the term "modification".) - - "Source code" for a work means the preferred form of the work for -making modifications to it. For a library, complete source code means -all the source code for all modules it contains, plus any associated -interface definition files, plus the scripts used to control compilation -and installation of the library. - - Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running a program using the Library is not restricted, and output from -such a program is covered only if its contents constitute a work based -on the Library (independent of the use of the Library in a tool for -writing it). Whether that is true depends on what the Library does -and what the program that uses the Library does. - - 1. You may copy and distribute verbatim copies of the Library's -complete source code as you receive it, in any medium, provided that -you conspicuously and appropriately publish on each copy an -appropriate copyright notice and disclaimer of warranty; keep intact -all the notices that refer to this License and to the absence of any -warranty; and distribute a copy of this License along with the -Library. - - You may charge a fee for the physical act of transferring a copy, -and you may at your option offer warranty protection in exchange for a -fee. - - 2. You may modify your copy or copies of the Library or any portion -of it, thus forming a work based on the Library, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) The modified work must itself be a software library. - - b) You must cause the files modified to carry prominent notices - stating that you changed the files and the date of any change. - - c) You must cause the whole of the work to be licensed at no - charge to all third parties under the terms of this License. - - d) If a facility in the modified Library refers to a function or a - table of data to be supplied by an application program that uses - the facility, other than as an argument passed when the facility - is invoked, then you must make a good faith effort to ensure that, - in the event an application does not supply such function or - table, the facility still operates, and performs whatever part of - its purpose remains meaningful. - - (For example, a function in a library to compute square roots has - a purpose that is entirely well-defined independent of the - application. Therefore, Subsection 2d requires that any - application-supplied function or table used by this function must - be optional: if the application does not supply it, the square - root function must still compute square roots.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Library, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Library, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote -it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Library. - -In addition, mere aggregation of another work not based on the Library -with the Library (or with a work based on the Library) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may opt to apply the terms of the ordinary GNU General Public -License instead of this License to a given copy of the Library. To do -this, you must alter all the notices that refer to this License, so -that they refer to the ordinary GNU General Public License, version 2, -instead of to this License. (If a newer version than version 2 of the -ordinary GNU General Public License has appeared, then you can specify -that version instead if you wish.) Do not make any other change in -these notices. - - Once this change is made in a given copy, it is irreversible for -that copy, so the ordinary GNU General Public License applies to all -subsequent copies and derivative works made from that copy. - - This option is useful when you wish to copy part of the code of -the Library into a program that is not a library. - - 4. You may copy and distribute the Library (or a portion or -derivative of it, under Section 2) in object code or executable form -under the terms of Sections 1 and 2 above provided that you accompany -it with the complete corresponding machine-readable source code, which -must be distributed under the terms of Sections 1 and 2 above on a -medium customarily used for software interchange. - - If distribution of object code is made by offering access to copy -from a designated place, then offering equivalent access to copy the -source code from the same place satisfies the requirement to -distribute the source code, even though third parties are not -compelled to copy the source along with the object code. - - 5. A program that contains no derivative of any portion of the -Library, but is designed to work with the Library by being compiled or -linked with it, is called a "work that uses the Library". Such a -work, in isolation, is not a derivative work of the Library, and -therefore falls outside the scope of this License. - - However, linking a "work that uses the Library" with the Library -creates an executable that is a derivative of the Library (because it -contains portions of the Library), rather than a "work that uses the -library". The executable is therefore covered by this License. -Section 6 states terms for distribution of such executables. - - When a "work that uses the Library" uses material from a header file -that is part of the Library, the object code for the work may be a -derivative work of the Library even though the source code is not. -Whether this is true is especially significant if the work can be -linked without the Library, or if the work is itself a library. The -threshold for this to be true is not precisely defined by law. - - If such an object file uses only numerical parameters, data -structure layouts and accessors, and small macros and small inline -functions (ten lines or less in length), then the use of the object -file is unrestricted, regardless of whether it is legally a derivative -work. (Executables containing this object code plus portions of the -Library will still fall under Section 6.) - - Otherwise, if the work is a derivative of the Library, you may -distribute the object code for the work under the terms of Section 6. -Any executables containing that work also fall under Section 6, -whether or not they are linked directly with the Library itself. - - 6. As an exception to the Sections above, you may also combine or -link a "work that uses the Library" with the Library to produce a -work containing portions of the Library, and distribute that work -under terms of your choice, provided that the terms permit -modification of the work for the customer's own use and reverse -engineering for debugging such modifications. - - You must give prominent notice with each copy of the work that the -Library is used in it and that the Library and its use are covered by -this License. You must supply a copy of this License. If the work -during execution displays copyright notices, you must include the -copyright notice for the Library among them, as well as a reference -directing the user to the copy of this License. Also, you must do one -of these things: - - a) Accompany the work with the complete corresponding - machine-readable source code for the Library including whatever - changes were used in the work (which must be distributed under - Sections 1 and 2 above); and, if the work is an executable linked - with the Library, with the complete machine-readable "work that - uses the Library", as object code and/or source code, so that the - user can modify the Library and then relink to produce a modified - executable containing the modified Library. (It is understood - that the user who changes the contents of definitions files in the - Library will not necessarily be able to recompile the application - to use the modified definitions.) - - b) Use a suitable shared library mechanism for linking with the - Library. A suitable mechanism is one that (1) uses at run time a - copy of the library already present on the user's computer system, - rather than copying library functions into the executable, and (2) - will operate properly with a modified version of the library, if - the user installs one, as long as the modified version is - interface-compatible with the version that the work was made with. - - c) Accompany the work with a written offer, valid for at - least three years, to give the same user the materials - specified in Subsection 6a, above, for a charge no more - than the cost of performing this distribution. - - d) If distribution of the work is made by offering access to copy - from a designated place, offer equivalent access to copy the above - specified materials from the same place. - - e) Verify that the user has already received a copy of these - materials or that you have already sent this user a copy. - - For an executable, the required form of the "work that uses the -Library" must include any data and utility programs needed for -reproducing the executable from it. However, as a special exception, -the materials to be distributed need not include anything that is -normally distributed (in either source or binary form) with the major -components (compiler, kernel, and so on) of the operating system on -which the executable runs, unless that component itself accompanies -the executable. - - It may happen that this requirement contradicts the license -restrictions of other proprietary libraries that do not normally -accompany the operating system. Such a contradiction means you cannot -use both them and the Library together in an executable that you -distribute. - - 7. You may place library facilities that are a work based on the -Library side-by-side in a single library together with other library -facilities not covered by this License, and distribute such a combined -library, provided that the separate distribution of the work based on -the Library and of the other library facilities is otherwise -permitted, and provided that you do these two things: - - a) Accompany the combined library with a copy of the same work - based on the Library, uncombined with any other library - facilities. This must be distributed under the terms of the - Sections above. - - b) Give prominent notice with the combined library of the fact - that part of it is a work based on the Library, and explaining - where to find the accompanying uncombined form of the same work. - - 8. You may not copy, modify, sublicense, link with, or distribute -the Library except as expressly provided under this License. Any -attempt otherwise to copy, modify, sublicense, link with, or -distribute the Library is void, and will automatically terminate your -rights under this License. However, parties who have received copies, -or rights, from you under this License will not have their licenses -terminated so long as such parties remain in full compliance. - - 9. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Library or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Library (or any work based on the -Library), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Library or works based on it. - - 10. Each time you redistribute the Library (or any work based on the -Library), the recipient automatically receives a license from the -original licensor to copy, distribute, link with or modify the Library -subject to these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties with -this License. - - 11. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -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 -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Library at all. For example, if a patent -license would not permit royalty-free redistribution of the Library by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Library. - -If any portion of this section is held invalid or unenforceable under any -particular circumstance, the balance of the section is intended to apply, -and the section as a whole is intended to apply in other circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 12. If the distribution and/or use of the Library is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Library under this License may add -an explicit geographical distribution limitation excluding those countries, -so that distribution is permitted only in or among countries not thus -excluded. In such case, this License incorporates the limitation as if -written in the body of this License. - - 13. The Free Software Foundation may publish revised and/or new -versions of the Lesser 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 Library -specifies a version number of this License which applies to it and -"any later version", you have the option of following the terms and -conditions either of that version or of any later version published by -the Free Software Foundation. If the Library does not specify a -license version number, you may choose any version ever published by -the Free Software Foundation. - - 14. If you wish to incorporate parts of the Library into other free -programs whose distribution conditions are incompatible with these, -write to the author to ask for permission. For software which is -copyrighted by the Free Software Foundation, write to the Free -Software Foundation; we sometimes make exceptions for this. Our -decision will be guided by the two goals of preserving the free status -of all derivatives of our free software and of promoting the sharing -and reuse of software generally. - - NO WARRANTY - - 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO -WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. -EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR -OTHER PARTIES PROVIDE THE LIBRARY "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 -LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME -THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN -WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY -AND/OR REDISTRIBUTE THE LIBRARY 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 -LIBRARY (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 LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH -DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey 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 library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - , 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! - - diff --git a/ChangeLog b/ChangeLog deleted file mode 100644 index 8a1824a..0000000 --- a/ChangeLog +++ /dev/null @@ -1,107 +0,0 @@ -2004-06-30 Kenichi Handa - - * m17n-config.in: Add -lm17n-X and -lm17n-gd if necessary. - -2004-06-14 Kenichi Handa - - * configure.ac: Check the program m17n-db. - -2004-06-03 Kenichi Handa - - * configure.ac: Run freetype-config with --libs instead of - --libtool. - -2004-05-31 Kenichi Handa - - * configure.ac: Check the availability of dlopen. Append - $X_CFLAGS to CPPFLAGS. - -2004-05-28 Kenichi Handa - - * configure.ac: New variable API_VERSION. - - * m17n-config.in: Accept "GUI" flag and adjusted for the new - configuration. - -2004-05-27 Kenichi Handa - - * configure.ac: Check fontconfig even if Xft is available. Check - gd library. If Xft is not available, set XFT2_LD_FLAGS to null. - Likewise for xml2. - - * bootstrap.sh: Clean old files at first. - -2004-05-24 Kenichi Handa - - * configure.ac: Fix typo (pkg-conifg ->pkg-config). Fix - AC_CHECK_LIB arg for fontconfig. - -2004-05-21 Kenichi Handa - - * configure.ac (HAVE_FRIBIDI): Unset FRIBIDI_LD_FLAGS if fribidi - library is not found. - -2004-05-18 Kenichi Handa - - * configure.ac: If libotf is not available, clear OTF_LD_FLAGS. - Double quaote several variables. Even if xft-config is not - available, check if Xft library is available. Setup - HAVE_FONTCONFIG. - -2004-05-07 Kenichi Handa - - * configure.ac: Fix previous change. Comment out xom and effence - related codes. - -2004-05-03 Kenichi Handa - - * configure.ac: Use fribidi-config and xft-config if they are - available. - -2004-04-27 Kenichi Handa - - * configure.ac: Check if Xft2 library is available. - (OTF_LD_FLAGS): Set to `libotf-config --libs`. - (FREETYPE_LD_FLAGS): Set to `freetype-config --libtool`. - -2004-03-29 Kenichi Handa - - * Version 1.0 Patch Level 2 released. - -2004-03-29 Kenichi Handa - - * configure.ac: Version changed to 1.0.2. - -2004-03-19 Kenichi Handa - - * Version 1.0 Patch Level 1 released. - -2004-03-19 Kenichi Handa - - * configure.ac: Version changed to 1.0.1. - -2004-03-01 Kenichi Handa - - * Version 1.0 released. - - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. diff --git a/Makefile.am b/Makefile.am deleted file mode 100644 index 449d8e6..0000000 --- a/Makefile.am +++ /dev/null @@ -1,27 +0,0 @@ -# Makefile.am -- top level Makefile for the m17n library. -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 - -# This file is part of the m17n library. - -# The m17n library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Lesser General Public License -# as published by the Free Software Foundation; either version 2.1 of -# the License, or (at your option) any later version. - -# The m17n library 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 -# Lesser General Public License for more details. - -# You should have received a copy of the GNU Lesser General Public -# License along with the m17n library; if not, write to the Free -# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307, USA. - -## Process this file with Automake to create Makefile.in - -SUBDIRS = src example - -bin_SCRIPTS = m17n-config diff --git a/NEWS b/NEWS deleted file mode 100644 index a97d60b..0000000 --- a/NEWS +++ /dev/null @@ -1,82 +0,0 @@ -* NEWS -- What's new in the m17n library. -*- outline -*- -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 -See the end for copying conditions. - - -* Changes in the m17n library 1.1 - -** The "configure" script now detects Fontconfig, Xft2, and GD -libraries. - -If Fontconfig library is found, find local font files (that are to be -handled by the Freetype library) by fontconfig, and if Xft2 library is -also found, draw text by Xft. - -** Mdevice (new symbol) is recoginized as a key in the argument PLIST -of mframe (). - -The value must be Mx (new symbol), Mgd (new symbol), or Mnil. See the -documentation of mframe () for more detail. - -** MDrawControl has a new member `anti_alias'. - -If MDrawControl->anti_alias is nonzero, try to draw anti-aliased text -if local fonts are used for that text via Freetype. If Xft2 library -can be used, the anti-alias processing is done by Xft2's drawing -routine. Otherwise, the m17n library itself does it by assumming that -the background color is `background' property of a face. - -** Modification of face is now automatically refelected to the next -drawing. - -So, for instance, an application can change the default face of a -frame after the frame is created. The sample program "medit" utilize -it now. - -** New function mfontset_lookup () reports contents of a fontset. - -** New function mplist_deseriaze () parses an M-Text and generates a -plist. - -** The functions mfont_name () and mfont_from_name () are now -obsolete. Use mfont_parse_name () and mfont_unparse_name () instead. - -** The sample program "mdump" generates PNG image file instead of PBM. - -It now runs only when the m17n library is configured with the Freetype -library and the GD library. - - -* Changes in the m17n library 1.0 - -** Released. - - -* Copyright information - -Copyright (C) 2003, 2004 National Institute of Advanced Industrial - Science and Technology (AIST) Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. - -Local variables: -mode: outline -paragraph-separate: "[ ]*$" -end: diff --git a/README b/README deleted file mode 100644 index 86493f0..0000000 --- a/README +++ /dev/null @@ -1,140 +0,0 @@ -This directory tree holds version 1.1.0 of the m17n library. -*- text -*- - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 -See the end for copying conditions. - -The m17n library is a multilingual text processing library for the C -language. - -(1) INSTALLATION - -(1-1) From CVS working directory. - -Run the script "bootstrap.sh" in this directory. It is tested that -the script run successfully with these versions of auto tools. - - libtool-1.4 - automake-1.4p5 - autoconf-2.52 - -Then, proceed to the next step. - -(1-2) From the tarball. - -The m17n library utilizes these extra libraries. It is recommened to -install them before running the "configure" script. The script will -find out the existence of them automatically. - - libxml2 -- http://xmlsoft.org/ - fribidi -- http://fribidi.sourceforge.net/ - freetype -- http://www.freetype.org/ - libotf -- http://www.m17n.org/libotf/ - fontconfig -- http://freedesktop.org/Software/fontconfig - xft -- http://freedesktop.org/Software/Xft - -The sample program medit utilizes this Japanese inputting system. It -is also recommened to install it. - - anthy -- http://anthy.sourceforge.jp/ - -The sample program medit and mdump utilize this Thai word-boundary -finder. It is also recommened to install it. - - wordcut -- http://thaiwordseg.sourceforge.net/ - -Then, type the followings on the command line. - - % ./configure - % make - % make install - -Note that this package assumes an ANSI C compiler such as gcc. It -will not compile with an old-style K&R compiler. - -The default installation path is "/usr/local". -Thus, these header files are installed in /usr/local/include: - m17n.h, m17n-core.h, m17n-gui.h, m17n-err.h, m17n-X.h -These library files are installed in /usr/local/lib: - libm17n.{a,so,la} - libm17n-core.{a,so,la} - libm17n-X.{a,so,la} - libimx-anthy.{a,so,la}, - libimx-ispell.{a,so,la}, -This shell script is installed in /usr/local/bin: - m17n-config -These sample programs are installed in /usr/local/bin too: - mconv, mdate, mview, mdump, medit - -This file under `example' sub-directory is a Japanese resource file -for medit. It is not installed but useful in Japanese locale. Copy -it to your home directory (or, for instance, -/usr/X11R6/lib/X11/ja/app-defaults) and rename it to "MEdit" if you -want to see labels in Japanese: - MEdit.ja - -These text files under `example' sub-directory are not installed but -useful for testing the rendering engine of the m17n library: - HELLO.utf8 HELLO.xml HELLO-ja.utf8 HELLO-ja.xml -XXX.xml are generated from XXX.utf8 by attaching text property -`langauge' and serializing. - -Please read also INSTALL for the generic installation instructions. - - -(2) DATABASE - -The m17n library utilizes the m17n database avairable at: - http://www.m17n.org/m17n-lib/m17n-db -Without this database, the m17n library loses half its value. Please -install it too before you try the above sample programs or develop a -program that uses the m17n library. - - -(3) DOCUMENTATION - -This page has a link to full documentaion of the m17n library: - http://www.m17n.org/m17n-lib - -Actually, the documentation was generated by Doxygen using comments in -the source files. There are English and Japanese comments in -parallel, but plese note that Japanese comments are not updated for -long. - -(4) USAGE - -The library provides three levels of APIs, CORE, SHELL, and GUI. For -CORE API, include , for SHELL API, include , and -for GUI API, include and . See the -documementation above, or the manual of m17nIntro(3) for more detail. - -The shell script "m17n-config" helps compiling and linking of a -program that uses the m17n library. For instance this compiles PROG.c -that uses SHELL API and builds executable PROG. - - % gcc -o PROG `m17n-config --clags` `m17n-config --libs` PROG.c - ----------------------------------------------------------------------- -Copyright information - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. diff --git a/TODO b/TODO deleted file mode 100644 index 9b07fef..0000000 --- a/TODO +++ /dev/null @@ -1,60 +0,0 @@ -TODO -- todo list for the m17n library. -*- outline -*- -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 -See the end for copying conditions. - - -* soon - -** Explicitely list up managed objects and describe them. - -** Allow properties to M-text itself, not to a specific region. - - -* later - -** Add in MFont to allow any property. - -** Make such an M-text modifiable that has a format other than -MTEXT_FORMAT_UTF_8. - -** Allow regex for font properties. - -** Should we change the type of property value from (void *) to -MPropValue? - -** Vietnames FLT needs compositions. - -** Lock and unlock M-text. - -** Improve the handling of scratch gstring. - -** Imporve the font selection for characters of the same script. - - -* done - - -* Copyright information - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. diff --git a/bootstrap.sh b/bootstrap.sh deleted file mode 100755 index 688af67..0000000 --- a/bootstrap.sh +++ /dev/null @@ -1,44 +0,0 @@ -#!/bin/sh -# bootstrap.sh -- shell script to build the m17n library from CVS. -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 -# See the end for copying conditions. - -echo "Cleaning up old files..." -rm -rf INSTALL aclocal.m4 autom4te.cache config.guess. config.sub install-sh ltmain.sh missing mkinstalldirs libtool -echo "Running libtoolize..." -libtoolize --automake -echo "Running aclocal..." -aclocal -echo "Running autoheader..." -autoheader -echo "Running automake..." -automake -a -echo "Running autoconf..." -autoconf -echo "The remaining steps to install this library are:" -echo " % ./configure" -echo " % make" -echo " % make install" - -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 - -# This file is part of the m17n library. - -# The m17n library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Lesser General Public License -# as published by the Free Software Foundation; either version 2.1 of -# the License, or (at your option) any later version. - -# The m17n library 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 -# Lesser General Public License for more details. - -# You should have received a copy of the GNU Lesser General Public -# License along with the m17n library; if not, write to the Free -# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307, USA. diff --git a/configure.ac b/configure.ac deleted file mode 100644 index 883ee70..0000000 --- a/configure.ac +++ /dev/null @@ -1,324 +0,0 @@ -dnl configure.ac -- autoconf script for the m17n library. - -dnl Copyright (C) 2003, 2004 -dnl National Institute of Advanced Industrial Science and Technology (AIST) -dnl Registration Number H15PRO112 - -dnl This file is part of the m17n library. - -dnl The m17n library is free software; you can redistribute it and/or -dnl modify it under the terms of the GNU Lesser General Public License -dnl as published by the Free Software Foundation; either version 2.1 of -dnl the License, or (at your option) any later version. - -dnl The m17n library is distributed in the hope that it will be useful, -dnl but WITHOUT ANY WARRANTY; without even the implied warranty of -dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -dnl Lesser General Public License for more details. - -dnl You should have received a copy of the GNU Lesser General Public -dnl License along with the m17n library; if not, write to the Free -dnl Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -dnl 02111-1307, USA. - -dnl Process this file with autoconf to produce a configure script. - -AC_INIT(m17n-lib, 1.1.0, m17n-lib-bug@m17n.org) -AM_INIT_AUTOMAKE(m17n-lib, 1.1.0) -AM_CONFIG_HEADER(src/config.h) - -API_VERSION=1:0:1 -AC_SUBST(API_VERSION) - -dnl Checks for programs for compiling. -AC_PROG_CC -AC_LIBTOOL_DLOPEN -AC_LIBLTDL_CONVENIENCE -AM_PROG_LIBTOOL - -dnl Checks for X libraries. -AC_PATH_XTRA - -dnl Checks for standard header files. -AC_HEADER_STDC -AC_HEADER_DIRENT -AC_HEADER_TIME -AC_CHECK_HEADERS([fcntl.h langinfo.h limits.h locale.h stdlib.h \ - string.h strings.h sys/time.h unistd.h]) - -dnl Checks for typedefs, structures, and compiler characteristics. -AC_C_CONST -AC_C_INLINE -AC_TYPE_SIZE_T -AC_STRUCT_TM - -dnl Checks for endian. This influence the default UTF-16 definition. -AC_C_BIGENDIAN - -dnl Checks for library functions. -AC_FUNC_ALLOCA -AC_FUNC_MALLOC -AC_FUNC_REALLOC -AC_FUNC_MEMCMP -AC_FUNC_STAT -AC_FUNC_STRCOLL -AC_FUNC_STRFTIME -AC_FUNC_STRTOD -AC_CHECK_FUNCS(memmove memset nl_langinfo putenv regcomp setlocale) -AC_CHECK_FUNCS(strchr strdup gettimeofday) - -dnl Checks where the m17n database is installed. - -AC_CHECK_PROG(HAVE_M17N_DB, m17n-db, yes) -if test "x$HAVE_M17N_DB" = "xyes"; then - M17NDIR=`m17n-db` -else - M17NDIR="${datadir}/m17n" -fi -AC_SUBST(M17NDIR) - - -dnl Checks if dlopen exists, and if it's in libc or libdl. - -AC_SEARCH_LIBS(dlopen, dl, - AC_DEFINE(HAVE_DLOPEN, 1, - [Define to 1 if you have the funciton dlopen.])) - -dnl Check several libraries without adding -lxxx to LIBS, without -dnl defining HAVE_LIBXXX nor HAVE_XXX_H because they are used only by -dnl some libraries (e.g. libm17n-X.so). Instead, define XXX_LD_FLAGS -dnl and HAVE_XXX if library XXX is available. CPPFLAGS will be -dnl augmented. - -dnl Check for fribidi library. -save_CPPFLAGS="$CPPFLAGS" -save_LIBS="$LIBS" -AC_CHECK_PROG(HAVE_FRIBIDI_CONFIG, fribidi-config, yes) -if test "$HAVE_FRIBIDI_CONFIG" = "xyes"; then - CPPFLAGS="$CPPFLAGS `fribidi-config --cflags`" - FRIBIDI_LD_FLAGS="`fribidi-config --libs`" - LIBS="$LIBS $FRIBIDI_LD_FLAGS" -else - FRIBIDI_LD_FLAGS=-lfribidi -fi -AC_CHECK_LIB(fribidi, fribidi_set_mirroring, HAVE_FRIBIDI=yes, HAVE_FRIBIDI=no) -AC_CHECK_HEADER(fribidi/fribidi.h,, HAVE_FRIBIDI=no) -if test "x$HAVE_FRIBIDI" = "xyes"; then - AC_DEFINE(HAVE_FRIBIDI, 1, - [Define to 1 if you have Fribidi library and header file.]) -else - CPPFLAGS="$save_CPPFLAGS" - FRIBIDI_LD_FLAGS= -fi -LIBS="$save_LIBS" -AC_SUBST(FRIBIDI_LD_FLAGS) - -dnl Check for otflib usability. -save_CPPFLAGS="$CPPFLAGS" -save_LIBS="$LIBS" -AC_CHECK_PROG(HAVE_OTFLIB_CONFIG, libotf-config, yes) -if test "x$HAVE_OTFLIB_CONFIG" = "xyes"; then - CPPFLAGS="$CPPFLAGS `libotf-config --cflags`" - OTF_LD_FLAGS="`libotf-config --libs` " - LIBS="$LIBS $OTF_LD_FLAGS" -else - OTF_LD_FLAGS=-lotf -fi -AC_CHECK_LIB(otf, OTF_open, HAVE_OTF=yes, HAVE_OTF=no) -AC_CHECK_HEADER(otf.h,, HAVE_OTF=no) -CPPFLAGS="$save_CPPFLAGS" -if test "x$HAVE_OTF" = "xyes"; then - AC_DEFINE(HAVE_OTF, 1, - [Define to 1 if you have OTF library and header file.]) -else - CPPFLAGS="$save_CPPFLAGS" - OTF_LD_FLAGS= -fi -LIBS="$save_LIBS" -AC_SUBST(OTF_LD_FLAGS) - -dnl Check for Freetype2 usability. -AC_CHECK_PROG(HAVE_FREETYPE_CONFIG, freetype-config, yes) -if test "x$HAVE_FREETYPE_CONFIG" = "xyes"; then - FREETYPE_INC=`freetype-config --cflags` - save_CPPFLAGS="$CPPFLAGS" - CPPFLAGS="$CPPFLAGS $FREETYPE_INC" - AC_CHECK_HEADER(ft2build.h, HAVE_FREETYPE=yes, - HAVE_FREETYPE=no CPPFLAGS="$save_CPPFLAGS") - if test "x$HAVE_FREETYPE" = "xyes" ; then - save_LIBS="$LIBS" - LIBS="$LIBS `freetype-config --libs`" - AC_CHECK_LIB(freetype, FT_Init_FreeType, HAVE_FREETYPE=yes, - HAVE_FREETYPE=no) - LIBS="$save_LIBS" - if test "x$HAVE_FREETYPE" = "xyes"; then - FREETYPE_LD_FLAGS=`freetype-config --libs` - AC_DEFINE(HAVE_FREETYPE, 1, - [Define to 1 if you have FreeType library and header file.]) - fi - fi -fi -AC_SUBST(FREETYPE_LD_FLAGS) - -dnl Check for Xft2 usability. -save_CPPFLAGS="$CPPFLAGS" -save_LIBS="$LIBS" -AC_CHECK_PROG(HAVE_XFT_CONFIG, xft-config, yes) -if test "x$HAVE_XFT_CONFIG" = "xyes"; then - CPPFLAGS="$CPPFLAGS `xft-config --cflags`" - XFT2_LD_FLAGS="`xft-config --libs`" - LIBS="$LIBS $XFT2_LD_FLAGS" -else - XFT2_LD_FLAGS="-lXft -lfreetype -lfontconfig -lXrender -lX11" -fi -AC_CHECK_LIB(Xft, XftDrawCreate, HAVE_XFT2=yes, HAVE_XFT2=no) -AC_CHECK_HEADER(X11/Xft/Xft.h,, HAVE_XFT2=no, - [#include -#if XftVersion >= 20000 -#else -Version too old. Compiling this line should fail. -#endif]) -if test "x$HAVE_XFT2" = "xyes"; then - AC_DEFINE(HAVE_XFT2, 1, - [Define to 1 if you have Xft2 library and header file.]) -else - XFT2_LD_FLAGS= - CPPFLAGS="$save_CPPFLAGS" -fi -LIBS="$save_LIBS" -AC_SUBST(XFT2_LD_FLAGS) - -dnl Check for fontconfig usability. -save_CPPFLAGS="$CPPFLAGS" -save_LIBS="$LIBS" -FONTCONFIG_LD_FLAGS=-lfontconfig -AC_CHECK_PROG(HAVE_PKG_CONFIG, pkg-config, yes) -if test "x$HAVE_PKG_CONFIG" = "xyes"; then - if pkg-config --exists fontconfig; then - CPPFLAGS="$CPPFLAGS `pkg-config --cflags fontconfig`" - FONTCONFIG_LD_FLAGS="`pkg-config --libs fontconfig`" - LIBS="$LIBS $FONTCONFIG_LD_FLAGS" - fi -fi -AC_CHECK_LIB(fontconfig, FcInit, HAVE_FONTCONFIG=yes, HAVE_FONTCONFIG=no) -AC_CHECK_HEADER(fontconfig/fontconfig.h, , HAVE_FONTCONFIG=no) -if test "x$HAVE_FONTCONFIG" = "xyes"; then - AC_DEFINE(HAVE_FONTCONFIG, 1, - [Define to 1 if you have fontconfig library and header file.]) -else - FONTCONFIG_LD_FLAGS= - CPPFLAGS="$save_CPPFLAGS" -fi -LIBS="$save_LIBS" -AC_SUBST(FONTCONFIG_LD_FLAGS) - -dnl Check for gdlib usability. -save_LIBS="$LIBS" -AC_CHECK_LIB(gd, gdImageCreate, HAVE_GD=yes, HAVE_GD=no) -AC_CHECK_HEADER(gd.h, , HAVE_GD=no) -if test "x$HAVE_GD" = "xyes"; then - AC_CHECK_LIB(gd, gdImageCreateTrueColor, HAVE_GD=2, HAVE_GD=1) - AC_DEFINE_UNQUOTED(HAVE_GD, $HAVE_GD, - [Define to 1 if you have gd library and header file.]) - GD_LD_FLAGS=-lgd -fi -LIBS="$save_LIBS" -AC_SUBST(GD_LD_FLAGS) - -dnl Check for libxml2 usability. -save_CPPFLAGS="$CPPFLAGS" -save_LIBS="$LIBS" -AC_CHECK_PROG(HAVE_XML2_CONFIG, xml2-config, yes) -if test "x$HAVE_XML2_CONFIG" = "xyes"; then - CPPFLAGS="$CPPFLAGS `xml2-config --cflags`" - XML2_LD_FLAGS="`xml2-config --libs`" - LIBS="$LIBS $XML2_LD_FLAGS" -else - CPPFLAGS="$CPPFLAGS -I/usr/include/libxml2" - XML2_LD_FLAGS="-lxml2 -lz -lpthread -lm" -fi -AC_CHECK_LIB(xml2, xmlParseMemory, HAVE_XML2=yes, HAVE_XML2=no) -AC_CHECK_HEADER(libxml/tree.h,, HAVE_XML2=no, /**/) -if test "x$HAVE_XML2" = "xyes"; then - AC_DEFINE(HAVE_XML2, 1, - [Define to 1 if you have libxml2 library and header file]) -else - XML2_LD_FLAGS= - CPPFLAGS="$save_CPPFLAGS" -fi -LIBS="$save_LIBS" -AC_SUBST(XML2_LD_FLAGS) - -dnl Check for Anthy usability. -AC_CHECK_LIB(anthydic, anthy_init_sessions, HAVE_ANTHY=yes, HAVE_ANTHY=no) -if test "x$HAVE_ANTHY" = "xyes"; then - AC_CHECK_LIB(anthy, anthy_init, HAVE_ANTHY=yes, HAVE_ANTHY=no, -lanthydic) - if test "x$HAVE_ANTHY" = "xyes"; then - AC_CHECK_HEADER(anthy/anthy.h, HAVE_ANTHY=yes, HAVE_ANTHY=no) - if test "x$HAVE_ANTHY" = "xyes"; then - AC_DEFINE(HAVE_ANTHY, 1, - [Define to 1 if you have Anthy library and header file]) - ANTHY_LD_FLAGS="-lanthy -lanthydic" - fi - fi -fi -AC_SUBST(ANTHY_LD_FLAGS) - -dnl Check for Ispell usability. -AC_CHECK_PROG(HAVE_ISPELL, ispell, yes) -if test "x$HAVE_ISPELL" = "xyes"; then - AC_DEFINE(HAVE_ISPELL, 1, [Define if ispell is available.]) -fi - -dnl Check for libwordcut (for Thai). -AC_CHECK_LIB(wordcut, wordcut_init, HAVE_WORDCUT=yes, HAVE_WORDCUT=no) -if test "x$HAVE_WORDCUT" = "xyes"; then - if test -f "/usr/share/wordcut/tdict.wcd"; then - tdict="/usr/share/wordcut/tdict.wcd" - elif test -f "/usr/local/share/wordcut/tdict.wcd"; then - tdict="/usr/local/share/wordcut/tdict.wcd" - fi - echo "TDICT=$tdict" - if test "x$tdict" != "x"; then - AC_DEFINE(HAVE_WORDCUT, 1, - [Define if you have the wordcut library and header file]) - AC_DEFINE_UNQUOTED(WORDCUT_TDICT, "$tdict", [Define to tdict file name]) - WORDCUT_LD_FLAGS=-lwordcut - fi -fi -AC_SUBST(WORDCUT_LD_FLAGS) - -dnl We can't include X_CFLAGS in AM_CPPFLAGS because the generated -dnl Makefile put ${AM_CPPFLAGS} before ${CPPFLAGS} and that leads to -dnl inclusion of an incorrect header file. So, append X_CFLAGS to -dnl CPPFLAGS here directly. - -CPPFLAGS="$CPPFLAGS $X_CFLAGS" - -dnl AC_ARG_ENABLE(xom, -dnl [ --enable-xom build and install XOM library.], -dnl XOM="$enableval") - -case $host_os in -darwin* | rhapsody*) - AC_DEFINE(DLOPEN_SHLIB_EXT, ".dylib", - [Define to loadable module extention]);; -esac - -AC_CONFIG_FILES([Makefile - src/Makefile - example/Makefile - m17n-config - ]) - -dnl if test "x$XOM" = "xyes"; then -dnl AC_CONFIG_FILES(omM17N/Makefile) -dnl fi - -AC_OUTPUT - -dnl Local Variables: -dnl comment-start: "dnl " -dnl comment-end: "" -dnl comment-start-skip: "\\bdnl\\b\\s *" -dnl End: diff --git a/example/.cvsignore b/example/.cvsignore deleted file mode 100644 index 4737409..0000000 --- a/example/.cvsignore +++ /dev/null @@ -1,15 +0,0 @@ -*.lo -*.la -mconv -mdate -mdump -medit -mview -a.out -stamp-h* -config.h -config.h.in -Makefile.in -Makefile -.deps -.libs diff --git a/example/.gdb.util b/example/.gdb.util deleted file mode 100644 index 9fafb7c..0000000 --- a/example/.gdb.util +++ /dev/null @@ -1,57 +0,0 @@ -define xchartab -set mdebug_dump_chartab ($, 0) -echo \n -end - -define xsymbol -set mdebug_dump_symbol ($, 0) -echo \n -end - -define xmtext -set mdebug_dump_mtext ($, 1, 0) -echo \n -end - -define xplist -set mdebug_dump_plist ($, 0) -echo \n -end - -define xinterval -set dump_interval ($arg0, 0) -echo \n -end - -define xfont -set mdebug_dump_font ($) -echo \n -end - -define xfontset -set mdebug_dump_fontset ($, 0) -echo \n -end - -define xface -set mdebug_dump_face ($, 0) -echo \n -end - -define xgstring -set dump_gstring (gstring, 0) -echo \n -end - -define xim -set mdebug_dump_im ($, 0) -echo \n -end - -define xflush -call XFlush (display) -end - -define xsynch -call XSynchronize (display, 1) -end diff --git a/example/.gdbinit b/example/.gdbinit deleted file mode 100644 index db736ae..0000000 --- a/example/.gdbinit +++ /dev/null @@ -1,23 +0,0 @@ -set main - -# br mdebug_hook - -source .gdb.util - -set env LD_LIBRARY_PATH=../src/.libs:./.libs:/usr/local/lib - -set env EF_ALLOW_MALLOC_0=1 -set env EF_PROTECT_FREE=1 -set env EF_OVERRUN_DETECTION=1 -set env EF_FREE_WIPES=1 - -set env MDEBUG_INIT=1 -set env MDEBUG_FINI=1 -set env MDEBUG_CHARSET=1 -set env MDEBUG_CODING=1 -set env MDEBUG_DATABASE=1 -set env MDEBUG_FONT=1 -set env MDEBUG_FONT_FLT=0 -set env MDEBUG_FONT_OTF=1 - -set env PURIFYOPTIONS=-chain-length="20" diff --git a/example/ChangeLog b/example/ChangeLog deleted file mode 100644 index cd6e8b9..0000000 --- a/example/ChangeLog +++ /dev/null @@ -1,177 +0,0 @@ -2004-06-25 TAKAHASHI Naoto - - * HELLO.utf8: Add Punjabi. - -2004-06-24 Kenichi Handa - - * Makefile.am: (libmimx_ispell_la_LDFLAGS) - (libmimx_anthy_la_LDFLAGS): Add -module. - -2004-06-23 Kenichi Handa - - * Makefile.am (medit_LDFLAGS, mview_LDFLAGS): Cancel the previous - change. - - * medit.c (redraw_cursor): Refer to cursor.logical_width instead - of cursor.this.width. - -2004-06-21 Kenichi Handa - - * Makefile.am (medit_LDFLAGS, mview_LDFLAGS): Include -lX11 and - -lXt. - -2004-06-17 Kenichi Handa - - * mdump.c (main): Don't set control.as_image to 1. - -2004-06-16 Kenichi Handa - - * mdump.c (main): Fix typo of error message. - - * medit.c (face_freeserif): New variable. - (face_table): Add an entry for freeserif. - (main): Initialized and free face_freeserif. - -2004-06-15 Kenichi Handa - - * mdump.c: Add command line arguments --family and --language. - (help_exit): Print info about those arguemnts. - (main): Make family name to lowercase. - -2004-06-04 Kenichi Handa - - * mconv.c (compare_coding_name): New function. - (list_coding): Sort the list of codings by their names. - -2004-06-03 Kenichi Handa - - * medit.c (InputMethodInfo): New type. - (input_method_table): Type changed to `InputMethodInfo *'. - (select_input_method): Adjusted for the change of - input_method_table. - (show_cursor): Open an input method here if necessary. - (compare_input_method): Adjusted for the change of - input_method_table. - (setup_input_methods): Likewise. Don't open input methods here - except for XIM. - (main): Adjusted for the change of input_method_table. - - * mconv.c (main): Close `in' and `out'. - - * HELLO.utf8: Fix Greek line. - - * HELLO.xml: Fix Greek line. - -2004-05-28 Kenichi Handa - - * Makefile.am (VINFO): New variable. - (libmimx_ispell_la_LDFLAGS, libmimx_anthy_la_LDFLAGS): Include - ${VINFO}. - - * mdump.c (PROGRAM_VERSION): Renamed from VERSION. - (main): Use PROGRAM_VERSION. - - * medit.c (main): Make face_input_status copy of face_default. - -2004-05-27 Kenichi Handa - - * medit.c (show_cursor): Check hline->width and box->width. - (main): Set reverse videomode in a face for selection. - - * mdump.c: Include config.h. Include instead of - . If not HAVE_FREETYPE nor HAVE_GD, define a pseudo - function main that just print an error message. - (help_exit): Adjusted for the change of spec. - (dump_image): Argument changed. Dump PNG image instead of PBM. - (main): Adjusted for the change of spec. - - * Makefile.am (common_ldflags_gui): Renamed from - common_ldflags_X. Set to .../libm17n-gui.la. Referrer changed. - (mdump_LDFLAGS): Include @GD_LD_FLAGS@ - - * HELLO.xml: Add Bengali. - -2004-05-21 Kenichi Handa - - * HELLO.utf8: Add Bengali. - -2004-05-20 Kenichi Handa - - * medit.c (redraw): If contro.anti_alias is nonzero, always clear. - (ButtonMoveProc): Don't give control.anti_alias to redraw. - (default_face_list): New variable. - (FaceProc): If no selection, change the default face. - (main): Initialize and finalize default_face_list. - -2004-04-27 Kenichi Handa - - * mimx-ispell.c: Add coding tag euc-jp. - - * mimx-anthy.c: Add coding tag euc-jp. - - * medit.c: Add coding tag euc-jp. - (ButtonMoveProc): Full redraw if we are using anti-aliased text. - (main): Set control.anti_alias to 1. - - * mdump.c: Add coding tag euc-jp. - - * mdate.c: Add coding tag euc-jp. - - * mconv.c: Add coding tag euc-jp. - -2004-04-20 Kenichi Handa - - * Makefile.am (medit_LDFLAGS): Include X_PRE_LIBS, XLIBS, - X_EXTRA_LIBS. - (mview_LDFLAGS): Likewise. - - * linebreak.c: Don't include wordcut/xmalloc.h, wordcut/path.h. - -2004-03-29 Kenichi Handa - - * Version 1.0 Patch Level 2 released. - -2004-03-19 Kenichi Handa - - * Version 1.0 Patch Level 1 released. - -2004-03-19 Kenichi Handa - - * medit.c (VERSION): Changed to 1.0.1. - (update_selection): Fix for the case that the selected region is - expanded to the opposite direction. - (ButtonMoveProc): Likewise. - (main): Use alloca instead of malloc for allocating menu names. - Free several memory areas and GCs. - -2004-03-12 Kenichi Handa - - * medit.c (input_status_control): New variable. - (input_status): Use input_status_control. - (main): Initialize input_status_control. - -2004-03-01 Kenichi Handa - - * Version 1.0 released. - - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. diff --git a/example/HELLO-ja.utf8 b/example/HELLO-ja.utf8 deleted file mode 100644 index 102fcbc..0000000 --- a/example/HELLO-ja.utf8 +++ /dev/null @@ -1,30 +0,0 @@ -ã¨ã¼ããã - è±èª (English) Hello - ãã©ã³ã¹èª (franÃ§ais) Bonjour, Salut - ãã¤ãèª (Deutsch) Guten Tag, GrÃ¼Ã Gott - ã¹ãããã¢èª (slovensky) DobrÃ½ deÅ - ãã·ã¢èª (ÑÑÑÑÐºÐ¸Ð¹) ÐÐ´ÑÐ°Ð²ÑÑÐ²ÑÐ¹ÑÐµ! - ã®ãªã·ã£èª (ÎµÎ»Î»Î·Î½Î¹ÎºÎ¬) ÎÎµÎ¹Î¬ÏÎ±Ï - -ä¸è¿æ±ã»ã¢ããªã« - ãã«ã³èª (TÃ¼rkÃ§e) Merhaba - ã°ã«ã¸ã¢èª (á¥áá áá£áá) ááááá á¯áááá! - ã¢ã©ãã¢èª (Ø§ÙÙÙØ¹ÙØ±ÙØ¨ÙÙÙÙØ©Ù)â Ø§ÙÙØ³ÙÙÙÙØ§ÙÙ Ø¹ÙÙÙÙÙÙÙÙ - ãã«ã·ã£èª (ÙØ§Ø±Ø³Û)â Ø³ÙØ§Ù Ø¹ÙÙÚ©Ù - ããã©ã¤èª (×¢Ö´×Ö°×¨Ö´××ª)â ×©×Ö¸××Ö¹× - ã¢ã ãã©èª (á ááá) á áá - -åã»æ±åã¢ã¸ã¢ - ãã³ãã£ã¼èª (à¤¹à¤¿à¤à¤¦à¥) à¤¨à¤®à¤¸à¥à¤¤à¥, à¤¨à¤®à¤¸à¥à¤à¤¾à¤° à¥¤ - ãã©ã¤ã©ã èª(à´®à´²à´¯à´¾à´³à´) à´¨à´®à´¸àµà´à´¾à´°à´ - ã¿ãã¼ã«èª (à®¤à®®à®¿à®´à¯) à®µà®£à®à¯à®à®®à¯ - ããããèª (à½à½¼à½à¼à½¦à¾à½à¼) à½à½à¾²à¼à½¤à½²à½¦à¼à½à½à½ºà¼à½£à½ºà½à½¦à¼ (ex: à½à½¦à¾à¾²à½´à½à½¦, à½§à½±à½´à½¾) - ã¯ã¡ã¼ã«èª (ááááá) áááá¶ááá½á (ex: áááááá¿á) - ãããã èª (Tiáº¿ng Viá»t) ChÃ o báº¡n - ã¿ã¤èª (à¸ à¸²à¸©à¸²à¹à¸à¸¢) à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¸£à¸±à¸, à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¹à¸° - ã©ãªèª (àºàº²àºªàº²àº¥àº²àº§) àºªàº°àºàº²àºàºàºµ, àºà»à»àº«à»à»àºàºàºàºµ - -æ±ã¢ã¸ã¢ - æ¥æ¬èª ããã«ã¡ã¯ - ä¸å½èª (æ±è¯,æ®éè¯) ä½ å¥½ - éå½èª (íê¸) ìëíì¸ì diff --git a/example/HELLO-ja.xml b/example/HELLO-ja.xml deleted file mode 100644 index 9a1eeaf..0000000 --- a/example/HELLO-ja.xml +++ /dev/null @@ -1,66 +0,0 @@ - - - - - - - - - -]> - - - - - - - - - - - - - - - - - - - - - - - - -ã¨ã¼ããã - è±èª (English) Hello - ãã©ã³ã¹èª (franÃ§ais) Bonjour, Salut - ãã¤ãèª (Deutsch) Guten Tag, GrÃ¼Ã Gott - ã¹ãããã¢èª (slovensky) DobrÃ½ deÅ - ãã·ã¢èª (ÑÑÑÑÐºÐ¸Ð¹) ÐÐ´ÑÐ°Ð²ÑÑÐ²ÑÐ¹ÑÐµ! - ã®ãªã·ã£èª (ÎµÎ»Î»Î·Î½Î¹ÎºÎ¬) ÎÎµÎ¹Î¬ÏÎ±Ï - -ä¸è¿æ±ã»ã¢ããªã« - ãã«ã³èª (TÃ¼rkÃ§e) Merhaba - ã°ã«ã¸ã¢èª (á¥áá áá£áá) ááááá á¯áááá! - ã¢ã©ãã¢èª (Ø§ÙÙÙØ¹ÙØ±ÙØ¨ÙÙÙÙØ©Ù)â Ø§ÙÙØ³ÙÙÙÙØ§ÙÙ Ø¹ÙÙÙÙÙÙÙÙ - ãã«ã·ã£èª (ÙØ§Ø±Ø³Û)â Ø³ÙØ§Ù Ø¹ÙÙÚ©Ù - ããã©ã¤èª (×¢Ö´×Ö°×¨Ö´××ª)â ×©×Ö¸××Ö¹× - ã¢ã ãã©èª (á ááá) á áá - -åã»æ±åã¢ã¸ã¢ - ãã³ãã£ã¼èª (à¤¹à¤¿à¤à¤¦à¥) à¤¨à¤®à¤¸à¥à¤¤à¥, à¤¨à¤®à¤¸à¥à¤à¤¾à¤° à¥¤ - ãã©ã¤ã©ã èª(à´®à´²à´¯à´¾à´³à´) à´¨à´®à´¸àµà´à´¾à´°à´ - ã¿ãã¼ã«èª (à®¤à®®à®¿à®´à¯) à®µà®£à®à¯à®à®®à¯ - ããããèª (à½à½¼à½à¼à½¦à¾à½à¼) à½à½à¾²à¼à½¤à½²à½¦à¼à½à½à½ºà¼à½£à½ºà½à½¦à¼ (ex: à½à½¦à¾à¾²à½´à½à½¦, à½§à½±à½´à½¾) - ã¯ã¡ã¼ã«èª (ááááá) áááá¶ááá½á (ex: áááááá¿á) - ãããã èª (Tiáº¿ng Viá»t) ChÃ o báº¡n - ã¿ã¤èª (à¸ à¸²à¸©à¸²à¹à¸à¸¢) à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¸£à¸±à¸, à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¹à¸° - ã©ãªèª (àºàº²àºªàº²àº¥àº²àº§) àºªàº°àºàº²àºàºàºµ, àºà»à»àº«à»à»àºàºàºàºµ - -æ±ã¢ã¸ã¢ - æ¥æ¬èª ããã«ã¡ã¯ - ä¸å½èª (æ±è¯,æ®éè¯) ä½ å¥½ - éå½èª (íê¸) ìëíì¸ì - diff --git a/example/HELLO.utf8 b/example/HELLO.utf8 deleted file mode 100644 index bd7c3f8..0000000 --- a/example/HELLO.utf8 +++ /dev/null @@ -1,32 +0,0 @@ -Europe - English Hello - French (franÃ§ais) Bonjour, Salut - German (Deutsch) Guten Tag, GrÃ¼Ã Gott - Slovak (slovensky) DobrÃ½ deÅ - Russian (ÑÑÑÑÐºÐ¸Ð¹) ÐÐ´ÑÐ°Ð²ÑÑÐ²ÑÐ¹ÑÐµ! - Greek (ÎµÎ»Î»Î·Î½Î¹ÎºÎ¬) ÎÎµÎ¹Î¬ ÏÎ±Ï - -Middle Near East/Africa - Turkish (TÃ¼rkÃ§e) Merhaba - Georgian (á¥áá áá£áá) ááááá á¯áááá! - Arabic (Ø§ÙÙÙØ¹ÙØ±ÙØ¨ÙÙÙÙØ©Ù)â Ø§ÙÙØ³ÙÙÙÙØ§ÙÙ Ø¹ÙÙÙÙÙÙÙÙ - Persian (ÙØ§Ø±Ø³Û)â Ø³ÙØ§Ù Ø¹ÙÙÚ©Ù - Hebrew (×¢Ö´×Ö°×¨Ö´××ª)â ×©×Ö¸××Ö¹× - Amharic (á ááá) á áá - -South/South-East Asia - Hindi (à¤¹à¤¿à¤à¤¦à¥) à¤¨à¤®à¤¸à¥à¤¤à¥, à¤¨à¤®à¤¸à¥à¤à¤¾à¤° à¥¤ - Bengali (à¦¬à¦¾à¦à¦²à¦¾) à¦¨à¦®à¦¸à§à¦à¦¾à¦° - Punjabi (à¨ªà©°à¨à¨¾à¨¬à©) à¨¸à¨¤à¨¿ à¨¶à©à¨°à© à¨à¨à¨¾à¨² - Malayalam (à´®à´²à´¯à´¾à´³à´) à´¨à´®à´¸àµà´à´¾à´°à´ (ex: à´¨+àµ+à´°=à´¨àµà´°) - Tamil (à®¤à®®à®¿à®´à¯) à®µà®£à®à¯à®à®®à¯ - Tibetan (à½à½¼à½à¼à½¦à¾à½à¼) à½à½à¾²à¼à½¤à½²à½¦à¼à½à½à½ºà¼à½£à½ºà½à½¦à¼ (ex: à½à½¦à¾à¾²à½´à½à½¦, à½§à½±à½´à½¾) - Khmer (ááááá) áááá¶ááá½á (ex: áááááá¿á) - Vietnamese (Tiáº¿ng Viá»t) ChÃ o báº¡n - Thai (à¸ à¸²à¸©à¸²à¹à¸à¸¢) à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¸£à¸±à¸, à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¹à¸° - Lao (àºàº²àºªàº²àº¥àº²àº§) àºªàº°àºàº²àºàºàºµ, àºà»à»àº«à»à»àºàºàºàºµ - -East Asia - Japanese (æ¥æ¬èª) ããã«ã¡ã¯ - Chinese (æ±è¯,æ®éè¯) ä½ å¥½ - Korean (íê¸) ìëíì¸ì diff --git a/example/HELLO.xml b/example/HELLO.xml deleted file mode 100644 index 42a53b2..0000000 --- a/example/HELLO.xml +++ /dev/null @@ -1,68 +0,0 @@ - - - - - - - - - -]> - - - - - - - - - - - - - - - - - - - - - - - - - -Europe - English Hello - French (franÃ§ais) Bonjour, Salut - German (Deutsch) Guten Tag, GrÃ¼Ã Gott - Slovak (slovensky) DobrÃ½ deÅ - Russian (ÑÑÑÑÐºÐ¸Ð¹) ÐÐ´ÑÐ°Ð²ÑÑÐ²ÑÐ¹ÑÐµ! - Greek (ÎµÎ»Î»Î·Î½Î¹ÎºÎ¬) ÎÎµÎ¹Î¬ ÏÎ±Ï - -Middle Near East/Africa - Turkish (TÃ¼rkÃ§e) Merhaba - Georgian (á¥áá áá£áá) ááááá á¯áááá! - Arabic (Ø§ÙÙÙØ¹ÙØ±ÙØ¨ÙÙÙÙØ©Ù)â Ø§ÙÙØ³ÙÙÙÙØ§ÙÙ Ø¹ÙÙÙÙÙÙÙÙ - Persian (ÙØ§Ø±Ø³Û)â Ø³ÙØ§Ù Ø¹ÙÙÚ©Ù - Hebrew (×¢Ö´×Ö°×¨Ö´××ª)â ×©×Ö¸××Ö¹× - Amharic (á ááá) á áá - -South/South-East Asia - Hindi (à¤¹à¤¿à¤à¤¦à¥) à¤¨à¤®à¤¸à¥à¤¤à¥, à¤¨à¤®à¤¸à¥à¤à¤¾à¤° à¥¤ - Bengali (à¦¬à¦¾à¦à¦²à¦¾) à¦¨à¦®à¦¸à§à¦à¦¾à¦° - Malayalam (à´®à´²à´¯à´¾à´³à´) à´¨à´®à´¸àµà´à´¾à´°à´ (ex: à´¨+àµ+à´°=à´¨àµà´°) - Tamil (à®¤à®®à®¿à®´à¯) à®µà®£à®à¯à®à®®à¯ - Tibetan (à½à½¼à½à¼à½¦à¾à½à¼) à½à½à¾²à¼à½¤à½²à½¦à¼à½à½à½ºà¼à½£à½ºà½à½¦à¼ (ex: à½à½¦à¾à¾²à½´à½à½¦, à½§à½±à½´à½¾) - Khmer (ááááá) áááá¶ááá½á (ex: áááááá¿á) - Vietnamese (Tiáº¿ng Viá»t) ChÃ o báº¡n - Thai (à¸ à¸²à¸©à¸²à¹à¸à¸¢) à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¸£à¸±à¸, à¸ªà¸§à¸±à¸ªà¸à¸µà¸à¹à¸° - Lao (àºàº²àºªàº²àº¥àº²àº§) àºªàº°àºàº²àºàºàºµ, àºà»à»àº«à»à»àºàºàºàºµ - -East Asia - Japanese (æ¥æ¬èª) ããã«ã¡ã¯ - Chinese (æ±è¯,æ®éè¯) ä½ å¥½ - Korean (íê¸) ìëíì¸ì - diff --git a/example/MEdit.ja b/example/MEdit.ja deleted file mode 100644 index 5c8e6cf..0000000 --- a/example/MEdit.ja +++ /dev/null @@ -1,153 +0,0 @@ -! -*- coding: euc-jp; -*- -*.fontSet: -etl-fixed-medium-r-normal--24-*-*-*-*,-*-*-medium-r-normal--24-*-*-*-* -*.international: True -*.File.label: ¥Õ¥¡¥¤¥ë -*.Cursor.label: ¥«¡¼¥½¥ë -*.Bidi.label: ½ñ»úÊý¸þ -*.LineBreak.label: ¹ÔÊ¬³ä -*.InputMethod.label: ÆþÎÏ¥á¥½¥Ã¥É -*.Face.label: ¥Õ¥§¡¼¥¹ -*.Lang.label: ¸À¸ì -*.Size.label: ¥µ¥¤¥º -*.Family.label: ¥Õ¥¡¥ß¥ê¡¼ -*.Style.label: ¥¹¥¿¥¤¥ë -*.Color.label: ¿§ -*.Misc.label: ¤½¤ÎÂ¾ -*.Pop Face.label: ¥Ý¥Ã¥× -*Abkhazian.label:¥¢¥Ö¥Ï¥º¸ì -*Afar.label:¥¢¥Õ¥¡¥ë¸ì -*Afrikaans.label:¥¢¥Õ¥ê¥«¡¼¥ó¥¹¸ì -*Albanian.label:¥¢¥ë¥Ð¥Ë¥¢¸ì -*Amharic.label:¥¢¥à¥Ï¥é¸ì -*Arabic.label:¥¢¥é¥Ó¥¢¸ì -*Armenian.label:¥¢¥ë¥á¥Ë¥¢¸ì -*Assamese.label:¥¢¥Ã¥µ¥à¸ì -*Aymara.label:¥¢¥¤¥Þ¥é¸ì -*Azerbaijani.label:¥¢¥¼¥ë¥Ð¥¤¥¸¥ã¥ó¸ì -*Bashkir.label:¥Ð¥·¥å¥¡¼¥ë¸ì -*Basque.label:¥Ð¥¹¥¯¸ì -*Bengali.label:¥Ù¥ó¥¬¥ë¸ì -*Bhutani.label:¥Ö¡¼¥¿¥ó¸ì -*Bihari.label:¥Ó¥Ï¡¼¥ë¸ì -*Bislama.label:¥Ó¥¹¥é¥Þ¸ì -*Breton.label:¥Ö¥ë¥È¥ó¸ì -*Bulgarian.label:¥Ö¥ë¥¬¥ê¥¢¸ì -*Burmese.label:¥Ó¥ë¥Þ¸ì -*Byelorussian.label:Çò¥í¥·¥¢¸ì -*Cambodian.label:¥«¥ó¥Ü¥¸¥¢¸ì -*Catalan.label:¥«¥¿¥í¥Ë¥¢¸ì -*Chinese.label:Ãæ¹ñ¸ì -*Corsican.label:¥³¥ë¥·¥«¸ì -*Croatian.label:¥¯¥í¥¢¥Á¥¢¸ì -*Czech.label:¥Á¥§¥³¸ì -*Danish.label:¥Ç¥ó¥Þ¡¼¥¯¸ì -*Dutch.label:¥ª¥é¥ó¥À¸ì -*English.label:±Ñ¸ì -*Esperanto.label:¥¨¥¹¥Ú¥é¥ó¥È -*Estonian.label:¥¨¥¹¥È¥Ë¥¢¸ì -*Faeroese.label:¥Õ¥§¡¼¥í¡¼¸ì -*Farsi.label:¥Ú¥ë¥·¥¢¸ì -*Fiji.label:¥Õ¥£¥¸¡¼¸ì -*Finnish.label:¥Õ¥£¥ó¥é¥ó¥É¸ì -*French.label:¥Õ¥é¥ó¥¹¸ì -*Frisian.label:¥Õ¥ê¥¸¥¢¸ì -*Galician.label:¥¬¥ê¥·¥¢¸ì -*Gaelic(Scottish).label:¥²¡¼¥ë¸ì¡Ê¥¹¥³¥Ã¥È¥é¥ó¥É¡Ë -*Gaelic(Manx).label:¥²¡¼¥ë¸ì¡Ê¥Þ¥óÅç¡Ë -*Georgian.label:¥°¥ë¥¸¥¢¸ì -*German.label:¥É¥¤¥Ä¸ì -*Greek.label:¥®¥ê¥·¥¢¸ì -*Greenlandic.label:¥°¥ê¡¼¥ó¥é¥ó¥É¸ì -*Guarani.label:¥ï¥é¥Ë¡¼¸ì -*Gujarati.label:¥°¥¸¥ã¥é¡¼¥È¸ì -*Hausa.label:¥Ï¥¦¥µ¸ì -*Hebrew.label:¥Ø¥Ö¥é¥¤¸ì -*Hindi.label:¥Ò¥ó¥Ç¥£¡¼¸ì -*Hungarian.label:¥Ï¥ó¥¬¥ê¡¼¸ì -*Icelandic.label:¥¢¥¤¥¹¥é¥ó¥É¸ì -*Indonesian.label:¥¤¥ó¥É¥Í¥·¥¢¸ì -*Inuktitut.label:¥¤¥Ì¥¯¥Æ¥£¥È¥Ã¥È¸ì -*Inupiak.label:¥¤¥Ì¥Ô¥¢¥Ã¥¯¸ì -*Irish.label:¥¢¥¤¥ë¥é¥ó¥É¸ì -*Italian.label:¥¤¥¿¥ê¥¢¸ì -*Japanese.label:ÆüËÜ¸ì -*Javanese.label:¥¸¥ã¥ï¸ì -*Kannada.label:¥«¥ó¥Ê¥À¸ì -*Kashmiri.label:¥«¥·¥å¥ß¡¼¥ë¸ì -*Kazakh.label:¥«¥¶¥Õ¸ì -*Kinyarwanda.label:¥ë¥ï¥ó¥À¸ì -*Kirghiz.label:¥¥ë¥®¥¹¸ì -*Kirundi.label:¥ë¥ó¥Ç¥£¸ì -*Korean.label:Ä«Á¯¸ì -*Kurdish.label:¥¯¥ë¥É¸ì -*Laothian.label:¥é¥ª¸ì -*Latin.label:¥é¥Æ¥ó¸ì -*Latvian.label:¥é¥È¥ô¥£¥¢¸ì -*Lingala.label:¥ê¥ó¥¬¥é¸ì -*Lithuanian.label:¥ê¥È¥¢¥Ë¥¢¸ì -*Macedonian.label:¥Þ¥±¥É¥Ë¥¢¸ì -*Malagasy.label:¥Þ¥é¥¬¥·¸ì -*Malay.label:¥à¥é¥æ¸ì -*Malayalam.label:¥Þ¥é¥ä¡¼¥é¥à¸ì -*Maltese.label:¥Þ¥ë¥¿¸ì -*Maori.label:¥Þ¥ª¥ê¸ì -*Marathi.label:¥Þ¥é¡¼¥Æ¥£¡¼¸ì -*Moldavian.label:¥â¥ë¥À¥Ó¥¢¸ì -*Mongolian.label:¥â¥ó¥´¥ë¸ì -*Nauru.label:¥Ê¥¦¥ë¸ì -*Nepali.label:¥Í¥Ñ¡¼¥ë¸ì -*Norwegian.label:¥Î¥ë¥¦¥§¡¼¸ì -*Occitan.label:¥×¥í¥ô¥¡¥ó¥¹¸ì -*Oriya.label:¥ª¥ê¥ä¡¼¸ì -*Oromo.label:¥¬¥Ã¥é¸ì -*Pashto.label:¥Ñ¥·¥å¥È¡¼¸ì -*Polish.label:¥Ý¡¼¥é¥ó¥É¸ì -*Portuguese.label:¥Ý¥ë¥È¥¬¥ë¸ì -*Punjabi.label:¥Ñ¥ó¥¸¥ã¡¼¥Ö¸ì -*Quechua.label:¥±¥Á¥å¥¢¸ì -*Rhaeto-Romance.label:¥ì¥È¡¦¥í¥Þ¥ó¥¹¸ì -*Romanian.label:¥ë¡¼¥Þ¥Ë¥¢¸ì -*Russian.label:¥í¥·¥¢¸ì -*Samoan.label:¥µ¥â¥¢¸ì -*Sangro.label:¥µ¥ó¥´¸ì -*Sanskrit.label:¥µ¥ó¥¹¥¯¥ê¥Ã¥È -*Serbian.label:¥»¥ë¥Ó¥¢¸ì -*Serbo-Croatian.label:¥»¥ë¥Ó¥¢¡¦¥¯¥í¥¢¥Á¥¢¸ì -*Sesotho.label:¥½¥È¸ì -*Setswana.label:¥Ä¥ï¥Ê¸ì -*Shona.label:¥·¥ç¥Ê¸ì -*Sindhi.label:¥·¥ó¥É¸ì -*Sinhalese.label:¥·¥ó¥Ï¥é¸ì -*Siswati.label:¥¹¥ï¥Æ¥£¸ì -*Slovak.label:¥¹¥í¥Ð¥¥¢¸ì -*Slovenian.label:¥¹¥í¥Ù¥Ë¥¢¸ì -*Somali.label:¥½¥Þ¥ê¸ì -*Spanish.label:¥¹¥Ú¥¤¥ó¸ì -*Sundanese.label:¥¹¥ó¥À¸ì -*Swahili.label:¥¹¥ï¥Ò¥ê¸ì -*Swedish.label:¥¹¥¦¥§¡¼¥Ç¥ó¸ì -*Tagalog.label:¥¿¥¬¥í¥°¸ì -*Tajik.label:¥¿¥¸¥¯¸ì -*Tamil.label:¥¿¥ß¡¼¥ë¸ì -*Tatar.label:¥¿¥¿¡¼¥ë¸ì -*Telugu.label:¥Æ¥ë¥°¸ì -*Thai.label:¥¿¥¤¸ì -*Tibetan.label:¥Á¥Ù¥Ã¥È¸ì -*Tigrinya.label:¥Æ¥£¥°¥ê¥Ë¥¢¸ì -*Tonga.label:¥È¥ó¥¬¸ì -*Tsonga.label:¥Ä¥©¥ó¥¬¸ì -*Turkish.label:¥È¥ë¥³¸ì -*Turkmen.label:¥È¥ë¥¯¥á¥ó¸ì -*Twi.label:¥Á¥å¥¤¸ì -*Uighur.label:¥¦¥¤¥°¥ë¸ì -*Ukrainian.label:¥¦¥¯¥é¥¤¥Ê¸ì -*Urdu.label:¥¦¥ë¥É¥¥¡¼¸ì -*Uzbek.label:¥¦¥º¥Ù¥¯¸ì -*Vietnamese.label:¥Ù¥È¥Ê¥à¸ì -*Volapuk.label:¥ô¥©¥é¥Ô¥å¥¯ -*Welsh.label:¥¦¥§¡¼¥ë¥º¸ì -*Wolof.label:¥¦¥©¥í¥Õ¸ì -*Xhosa.label:¥³¥µ¸ì -*Yiddish.label:¥¤¥Ç¥£¥Ã¥·¥å¸ì -*Yoruba.label:¥è¥ë¥Ð¸ì -*Zulu.label:¥º¡¼¥ë¡¼¸ì diff --git a/example/Makefile.am b/example/Makefile.am deleted file mode 100644 index 0279fcd..0000000 --- a/example/Makefile.am +++ /dev/null @@ -1,78 +0,0 @@ -# Makefile.am -- example level Makefile for the m17n library. -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 - -# This file is part of the m17n library. - -# The m17n library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Lesser General Public License -# as published by the Free Software Foundation; either version 2.1 of -# the License, or (at your option) any later version. - -# The m17n library 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 -# Lesser General Public License for more details. - -# You should have received a copy of the GNU Lesser General Public -# License along with the m17n library; if not, write to the Free -# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307, USA. - -## Process this file with Automake to create Makefile.in - -bin_PROGRAMS = mconv mview mdate mdump medit - -common_ldflags = ${top_srcdir}/src/libm17n-core.la ${top_srcdir}/src/libm17n.la -common_ldflags_gui = ${top_srcdir}/src/libm17n-gui.la - -mdate_SOURCES = mdate.c -mdate_LDADD = ${common_ldflags} - -mconv_SOURCES = mconv.c -mconv_LDADD = ${common_ldflags} - -X_LD_FLAGS = ${X_PRE_LIBS} ${X_LIBS} -lX11 -lXt -lXaw -lXmu ${X_EXTRA_LIBS} - -medit_SOURCES = medit.c linebreak.c -medit_LDADD = ${X_LD_FLAGS} ${top_srcdir}/src/libm17n-X.la @WORDCUT_LD_FLAGS@ - -mview_SOURCES = mview.c -mview_LDADD = ${X_LD_FLAGS} ${top_srcdir}/src/libm17n-X.la - -mdump_SOURCES = mdump.c linebreak.c -mdump_LDADD = @GD_LD_FLAGS@ @WORDCUT_LD_FLAGS@ ${top_srcdir}/src/libm17n-gd.la - -# Input method data files. - -pkgdatadir=$(datadir)/m17n - -EXTRA_DIST = \ - .gdbinit .gdb.util \ - HELLO.utf8 HELLO.xml HELLO-ja.utf8 HELLO-ja.xml MEdit.ja - -# External modules used by the above input methods. - -VINFO = -version-info @API_VERSION@ - -lib_LTLIBRARIES = libmimx-ispell.la libmimx-anthy.la - -libmimx_ispell_la_SOURCES = mimx-ispell.c -libmimx_ispell_la_LIBADD = ${common_ldflags_gui} -libmimx_ispell_la_LDFLAGS = -module ${VINFO} -libmimx_anthy_la_SOURCES = mimx-anthy.c -libmimx_anthy_la_LIBADD = ${common_ldflags} @ANTHY_LD_FLAGS@ -libmimx_anthy_la_LDFLAGS = -module ${VINFO} - -# Special targets to test the m17n library with Purify. They are for -# the maintainers only. - -PURIFY=/usr/local/rational/releases/purify.sol.2002.05.00/purify - -purify_medit: medit ../src/.libs/libm17n-core.so ../src/.libs/libm17n.so ../src/.libs/libm17n-X.so linebreak.c - ${PURIFY} gcc -g medit.o linebreak.o -lXaw -lXmu -L/usr/X11R6/lib -R/usr/X11R6/lib -lSM -lICE -lX11 -lXt -L../src/.libs -lm17n-core -lm17n -lm17n-X -ldl - -purify_mdate: mdate.o ../src/.libs/libm17n.so ../src/.libs/libm17n-X.so - ${PURIFY} gcc -g mdate.o -lXaw -lXmu -L/usr/X11R6/lib -R/usr/X11R6/lib -lSM -lICE -lX11 -lXt -L../src/.libs -lm17n -lm17n-X -ldl - diff --git a/example/linebreak.c b/example/linebreak.c deleted file mode 100644 index 390b39a..0000000 --- a/example/linebreak.c +++ /dev/null @@ -1,121 +0,0 @@ -#include - -#include - -#ifdef HAVE_WORDCUT - -#define THAI_BEG 0x0E00 -#define THAI_END 0x0E6F - -static int wordcut_initiazlied = 0; - -#include - -static Wordcut wordcut; - -static MSymbol Mwordcut_wordbeg, Miso_8859_11; - -static void -init_th_wordcut () -{ - Mwordcut_wordbeg = msymbol (" wordcut-wordseg"); - Miso_8859_11 = msymbol ("iso-8859-11"); -} - -int -thai_line_break (MText *mt, int pos, int from, int to) -{ - WordcutResult result; - MTextProperty *prop; - int pos1, pos2, c, i; - unsigned char *str; - - if (wordcut_initiazlied < 0) - return pos; - if (! wordcut_initiazlied) - { - if (wordcut_init (&wordcut, WORDCUT_TDICT) != 0) - { - wordcut_initiazlied = -1; - return pos; - } - init_th_wordcut (); - wordcut_initiazlied = 1; - } - prop = mtext_get_property (mt, pos, Mwordcut_wordbeg); - if (prop) - { - pos1 = mtext_property_start (prop); - if (pos1 == from) - pos1 = pos; - return pos1; - } - str = alloca (to - from); - pos1 = pos - 1; - while (pos1 >= from - && (c = mtext_ref_char (mt, pos1)) >= THAI_BEG && c <= THAI_END) - str[pos1-- - from] = mchar_encode (Miso_8859_11, c); - pos1++; - pos2 = pos; - while (pos2 < to - && (c = mtext_ref_char (mt, pos2)) >= 0x0E00 && c <= 0x0E6F) - str[pos2++ - from] = mchar_encode (Miso_8859_11, c); - str[pos2 - from] = 0; - wordcut_cut (&wordcut, (char *) (str + pos1 - from), &result); - for (i = 0; i < result.count; i++) - { - int start = pos1 + result.start[i]; - - prop = mtext_property (Mwordcut_wordbeg, Mt, - MTEXTPROP_VOLATILE_WEAK | MTEXTPROP_NO_MERGE); - mtext_attach_property (mt, start, start + result.offset[i], prop); - m17n_object_unref (prop); - } - prop = mtext_get_property (mt, pos, Mwordcut_wordbeg); - pos1 = mtext_property_start (prop); - if (pos1 == from) - pos1 = pos; - return pos1; -} - -#define CHECK_THAI_LINE_BREAK(c, mt, pos, from, to) \ - do { \ - if ((c) >= THAI_BEG && (c) <= THAI_END) \ - return thai_line_break ((mt), (pos), (from), (to)); \ - } while (0) - -#else /* not HAVE_WORDCUT */ - -#define CHECK_THAI_LINE_BREAK(c, mt, pos, from, to) (void) 0 - -#endif /* not HAVE_WORDCUT */ - -int -line_break (MText *mt, int pos, int from, int to, int line, int y) -{ - int c = mtext_ref_char (mt, pos); - int orig_pos = pos; - - if (c == ' ' || c == '\t' || c == '\n') - { - for (pos++; pos < to; pos++) - if ((c = mtext_ref_char (mt, pos)) != ' ' && c != '\t' && c != '\n') - break; - } - else - { - while (pos > from) - { - if (c == ' ' || c == '\t') - break; - CHECK_THAI_LINE_BREAK (c, mt, pos, from, to); - pos--; - c = mtext_ref_char (mt, pos); - } - if (pos == from) - pos = orig_pos; - else - pos++; - } - return pos; -} diff --git a/example/mconv.c b/example/mconv.c deleted file mode 100644 index 7aec262..0000000 --- a/example/mconv.c +++ /dev/null @@ -1,410 +0,0 @@ -/* mconv.c -- Code converter. -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mconv convert file code - - @section mconv-synopsis SYNOPSIS - - mconv [ OPTION ... ] [ INFILE [ OUTFILE ] ] - - @section mconv-description DESCRIPTION - - Convert encoding of given files from one to another. - - If INFILE is omitted, the input is taken from standard input. If - OUTFILE is omitted, the output written to standard output. - - The following OPTIONs are available. - -

-f FROMCODE - - FROMCODE is the encoding of INFILE (defaults to UTF-8). - -
-t TOCODE - - TOCODE is the encoding of OUTFILE (defaults to UTF-8). - -
-k - - Do not stop conversion on error. - -
-s - - Suppress warnings. - -
-v - - Print progress information. - -
-l - - List available encodings. - -
--version - - Print version number. - -
-h, --help - - Print this message. - -

-*/ -/***ja - @japage mconv ¥Õ¥¡¥¤¥ë¤Î¥³¡¼¥É¤òÊÑ´¹¤¹¤ë - - @section mconv-synopsis SYNOPSIS - - mconv [ OPTION ... ] [ INFILE [ OUTFILE ] ] - - @section mconv-description ÀâÌÀ - - Í¿¤¨¤é¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥³¡¼¥É¤òÊÌ¤Î¤â¤Î¤ËÊÑ´¹¤¹¤ë¡£ - - INFILE ¤¬¾ÊÎ¬¤µ¤ì¤¿¾ì¹ç¤Ï¡¢É¸½àÆþÎÏ¤«¤é¤È¤ë¡£OUTFILE ¤¬¾ÊÎ¬¤µ¤ì¤¿ - ¾ì¹ç¤Ï¡¢É¸½à½ÐÎÏ¤Ø½ñ¤½Ð¤¹¡£ - - °Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤¬ÍøÍÑ¤Ç¤¤ë¡£ - -

-f FROMCODE - - FROMCODE ¤Ï INFILE ¤Î¥³¡¼¥É·Ï¤Ç¤¢¤ë¡£(¥Ç¥Õ¥©¥ë¥È¤Ï UTF-8) - -
-t TOCODE - - TOCODE ¤Ï OUTFILE ¤Î¥³¡¼¥É·Ï¤Ç¤¢¤ë¡£(¥Ç¥Õ¥©¥ë¥È¤Ï UTF-8) - -
-k - - ¥¨¥é¡¼¤ÇÊÑ´¹¤òÄä»ß¤·¤Ê¤¤¡£ - -
-s - - ·Ù¹ð¤òÉ½¼¨¤·¤Ê¤¤¡£ - -
-v - - ¿Ê¹Ô¾õ¶·¤òÉ½¼¨¤¹¤ë¡£ - -
-l - - ÍøÍÑ²ÄÇ½¤Ê¥³¡¼¥É·Ï¤òÎóµó¤¹¤ë¡£ - -
--version - - ¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òÉ½¼¨¤¹¤ë¡£ - -
-h, --help - - ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤¹¤ë¡£ - -

-*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include - -#include -#include - -#define VERSION "1.0" - -/* Print all coding system names. */ - -int -compare_coding_name (const void *elt1, const void *elt2) -{ - const MSymbol *n1 = elt1; - const MSymbol *n2 = elt2; - - return strcmp (msymbol_name (*n1), msymbol_name (*n2)); -} - -void -list_coding () -{ - MSymbol *codings; - int i, n; - char *name; - int len, clm; - - n = mconv_list_codings (&codings); - qsort (codings, n, sizeof (MSymbol), compare_coding_name); - clm = 0; - for (i = 0; i < n; i++) - { - name = msymbol_name (codings[i]); - len = strlen (name) + 1; - if (clm + len >= 80) - { - printf ("\n"); - clm = 0; - } - printf (" %s", name); - clm += len; - } - printf ("\n"); - free (codings); -} - - -/* Print the usage of this program (the name is PROG), and exit with - EXIT_CODE. */ - -void -help_exit (char *prog, int exit_code) -{ - char *p = prog; - - while (*p) - if (*p++ == '/') - prog = p; - - printf ("Usage: %s [ OPTION ... ] [ INFILE [ OUTFILE ] ]\n", prog); - printf ("Convert encoding of given files from one to another.\n"); - printf (" If INFILE is omitted, the input is taken from standard input.\n"); - printf (" If OUTFILE is omitted, the output is written to standard output.\n"); - printf ("The following OPTIONs are available.\n"); - printf (" %-13s %s", "-f FROMCODE", - "FROMCODE is the encoding of INFILE (defaults to UTF-8).\n"); - printf (" %-13s %s", "-t TOCODE", - "TOCODE is the encoding of OUTFILE (defaults to UTF-8).\n"); - printf (" %-13s %s", "-k", "Do not stop conversion on error.\n"); - printf (" %-13s %s", "-s", "Suppress warnings.\n"); - printf (" %-13s %s", "-v", "Print progress information.\n"); - printf (" %-13s %s", "-l", "List available encodings.\n"); - printf (" %-13s %s", "--version", "Print version number.\n"); - printf (" %-13s %s", "-h, --help", "Print this message.\n"); - exit (exit_code); -} - - -/* Check invalid bytes found in the last decoding. Text property - Mcharset of such a byte is Mcharset_binary. */ - -void -check_invalid_bytes (MText *mt) -{ - int from = 0, to = 0; - int len = mtext_len (mt); - int first = 1; - - while (to < len) - { - int n = mtext_prop_range (mt, Mcharset, from, NULL, &to, 1); - MSymbol charset - = n > 0 ? (MSymbol) mtext_get_prop (mt, from, Mcharset) : Mnil; - - if (charset == Mcharset_binary) - { - if (first) - { - fprintf (stderr, - "Invalid bytes (at each character position);\n"); - first = 0; - } - for (; from < to; from++) - fprintf (stderr, " 0x%02X(%d)", mtext_ref_char (mt, from), from); - } - else - from = to; - } - if (! first) - fprintf (stderr, "\n"); -} - - -/* Check unencoded characters in the last encoding. Text property - Mcoding of such a character is Mnil. */ - -void -check_unencoded_chars (MText *mt, int len) -{ - int from = 0, to = 0; - int first = 1; - - while (to < len) - { - int n = mtext_prop_range (mt, Mcoding, from, NULL, &to, 1); - MSymbol coding - = n > 0 ? (MSymbol) mtext_get_prop (mt, from, Mcoding) : Mnil; - - if (coding == Mnil) - { - if (first) - { - fprintf (stderr, - "Unencoded characters (at each character position):\n"); - first = 0; - } - for (; from < to; from++) - fprintf (stderr, " 0x%02X(%d)", mtext_ref_char (mt, from), from); - } - else - from = to; - } - if (! first) - fprintf (stderr, "\n"); -} - - -/* Format MSG by FMT and print the result to the stderr, and exit. */ - -#define FATAL_ERROR(fmt, arg) \ - do { \ - fprintf (stderr, fmt, arg); \ - exit (1); \ - } while (0) - - -int -main (int argc, char **argv) -{ - int suppress_warning, verbose, continue_on_error; - MSymbol incode, outcode; - FILE *in, *out; - MText *mt; - MConverter *converter; - int i; - - /* Initialize the m17n library. */ - M17N_INIT (); - if (merror_code != MERROR_NONE) - FATAL_ERROR ("%s\n", "Fail to initialize the m17n library."); - - /* Default encodings are both UTF-8. */ - incode = outcode = Mcoding_utf_8; - /* By default, read from standard input and write to standard output. */ - in = stdin, out = stdout; - /* By default, all these flags are 0. */ - suppress_warning = verbose = continue_on_error = 0; - /* Parse the command line arguments. */ - for (i = 1; i < argc; i++) - { - if (! strcmp (argv[i], "--help") - || ! strcmp (argv[i], "-h") - || ! strcmp (argv[i], "-?")) - help_exit (argv[0], 0); - else if (! strcmp (argv[i], "--version")) - { - printf ("mconv (m17n library) %s\n", VERSION); - printf ("Copyright (C) 2003 AIST, JAPAN\n"); - exit (0); - } - else if (! strcmp (argv[i], "-l")) - { - list_coding (); - M17N_FINI (); - exit (0); - } - else if (! strcmp (argv[i], "-f")) - { - incode = mconv_resolve_coding (msymbol (argv[++i])); - if (incode == Mnil) - FATAL_ERROR ("Unknown encoding: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-t")) - { - outcode = mconv_resolve_coding (msymbol (argv[++i])); - if (outcode == Mnil) - FATAL_ERROR ("Unknown encoding: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-k")) - continue_on_error = 1; - else if (! strcmp (argv[i], "-s")) - suppress_warning = 1; - else if (! strcmp (argv[i], "-v")) - verbose = 1; - else if (argv[i][0] != '-') - { - if (in == stdin) - { - in = fopen (argv[i], "r"); - if (! in) - FATAL_ERROR ("Can't read the file %s\n", argv[i]); - } - else if (out == stdout) - { - out = fopen (argv[i], "w"); - if (! out) - FATAL_ERROR ("Can't write the file %s\n", argv[i]); - } - else - help_exit (argv[0], 1); - } - else - help_exit (argv[0], 1); - } - - /* Create an M-text to store the decoded characters. */ - mt = mtext (); - - /* Create a converter for decoding. */ - converter = mconv_stream_converter (incode, in); - /* Instead of doing strict decoding, we decode all input bytes at - once, and check invalid bytes later by the fuction - check_invalid_bytes. */ - converter->lenient = 1; - - mconv_decode (converter, mt); - - if (! suppress_warning) - check_invalid_bytes (mt); - if (verbose) - fprintf (stderr, "%d bytes (%s) decoded into %d characters,\n", - converter->nbytes, msymbol_name (incode), mtext_len (mt)); - - mconv_free_converter (converter); - - /* Create a converter for encoding. */ - converter = mconv_stream_converter (outcode, out); - /* Instead of doing strict encoding, we encode all characters at - once, and check unencoded characters later by the fuction - check_unencoded_chars. */ - converter->lenient = 1; - converter->last_block = 1; - if (mconv_encode (converter, mt) < 0 - && ! suppress_warning) - fprintf (stderr, "I/O error on writing\n"); - if (! suppress_warning) - check_unencoded_chars (mt, converter->nchars); - if (verbose) - fprintf (stderr, "%d characters encoded into %d bytes (%s).\n", - converter->nchars, converter->nbytes, msymbol_name (outcode)); - - /* Clear away. */ - mconv_free_converter (converter); - fclose (in); - fclose (out); - m17n_object_unref (mt); - M17N_FINI (); - exit (0); -} -#endif /* not FOR_DOXYGEN */ diff --git a/example/mdate.c b/example/mdate.c deleted file mode 100644 index 5b9311e..0000000 --- a/example/mdate.c +++ /dev/null @@ -1,240 +0,0 @@ -/* mdate.c -- Show system date/time in all locales. -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mdate display date and time - - @section mdate-synopsis SYNOPSIS - - mdate [ OPTION ... ] - - @section mdate-description DESCRIPTION - - Display the system date and time in many locales on a window. - - The following OPTIONs are available. - -

--version - - Print version number. - -
-h, --help - - Print this message. -

-*/ -/***ja - @japage mdate Æü»þ¤òÉ½¼¨¤¹¤ë - - @section mdate-synopsis ¥·¥Î¥×¥·¥¹ - - mdate [ OPTION ... ] - - @section mdate-description ÀâÌÀ - - ¥·¥¹¥Æ¥à¤ÎÆü»þ¤ò¤µ¤Þ¤¶¤Þ¤Ê¥í¥±¡¼¥ë¤Ç¥¦¥£¥ó¥É¥¦¤ËÉ½¼¨¤¹¤ë¡£ - - °Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤¬ÍøÍÑ¤Ç¤¤ë¡£ - -

--version - - ¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òÉ½¼¨¤¹¤ë¡£ - -
-h, --help - - ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤¹¤ë¡£ - -

-*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include -#include -#include -#include - -#include -#include - -#define VERSION "1.0" - -/* Return a plist of all locales currently avairable on the system. - The keys and values of the plist are locale name symbols and - pointers to MLocale respectively. */ - -MPlist * -list_system_locales () -{ - FILE *p; - char buf[1024]; - MPlist *plist; - - /* Run the command "locale -a" to get a list of locales. */ - if (! (p = popen ("locale -a", "r"))) - { - fprintf (stderr, "Can't run `locale -a'.\n"); - exit (1); - } - - plist = mplist (); - /* Read from the pipe one line by one. */ - while (fgets (buf, 1024, p)) - { - MLocale *locale; - int len = strlen (buf); - - if (buf[len - 1] == '\n') - buf[len - 1] = '\0'; - locale = mlocale_set (LC_TIME, buf); - - /* If the locale is surely usable, it is not duplicated, and we - know the corresponding coding system, add it to the list. */ - if (locale - && ! mplist_get (plist, mlocale_get_prop (locale, Mname)) - && mlocale_get_prop (locale, Mcoding) != Mnil) - mplist_add (plist, mlocale_get_prop (locale, Mname), locale); - } - pclose (p); - return plist; -} - - -/* Print the usage of this program (the name is PROG), and exit with - EXIT_CODE. */ - -void -help_exit (char *prog, int exit_code) -{ - char *p = prog; - - while (*p) - if (*p++ == '/') - prog = p; - - printf ("Usage: %s [ OPTION ...]\n", prog); - printf ("Display the system date and time in many locales on a window.\n"); - printf ("The following OPTIONs are available.\n"); - printf (" %-13s %s", "--version", "Print version number.\n"); - printf (" %-13s %s", "-h, --help", "Print this message.\n"); - exit (exit_code); -} - - -/* Format MSG by FMT and print the result to the stderr, and exit. */ - -#define FATAL_ERROR(fmt, arg) \ - do { \ - fprintf (stderr, fmt, arg); \ - exit (1); \ - } while (0) - - -int -main (int argc, char **argv) -{ - time_t current_time_t = time (NULL); - struct tm *current_time_tm = localtime (¤t_time_t); - /* List of all locales. */ - MPlist *locale_list, *plist; - /* Text to be shown. */ - MText *mt; - int i; - - for (i = 1; i < argc; i++) - { - if (! strcmp (argv[i], "--help") - || ! strcmp (argv[i], "-h") - || ! strcmp (argv[i], "-?")) - help_exit (argv[0], 0); - else if (! strcmp (argv[i], "--version")) - { - printf ("mdate (m17n library) %s\n", VERSION); - printf ("Copyright (C) 2003 AIST, JAPAN\n"); - exit (0); - } - else - help_exit (argv[0], 1); - } - - - /* Initialize the m17n library. */ - M17N_INIT (); - if (merror_code != MERROR_NONE) - FATAL_ERROR ("%s\n", "Fail to initialize the m17n library."); - - /* Get a locale list in LOCALE_LIST, and generate an M-text that - contains date string in each locale. */ - locale_list = list_system_locales (); - mt = mtext (); - plist = locale_list; - while (mplist_key (plist) != Mnil) - { - char *name = msymbol_name (mplist_key (plist)); - char fmtbuf[256]; - int len; - MLocale *locale = mplist_value (plist); - MSymbol coding = mlocale_get_prop (locale, Mcoding); - /* One line text for this locale. The format is: - "LOCALE-NAME: DATE-AND-TIME-STRING". */ - MText *thisline; - - sprintf (fmtbuf, "%16s: ", name); - len = strlen (fmtbuf); - thisline = mconv_decode_buffer (coding, (unsigned char *) fmtbuf, len); - if (thisline) - { - mlocale_set (LC_TIME, name); - if (mtext_ftime (thisline, "%c", current_time_tm, NULL) > 0) - { - mtext_cat_char (thisline, '\n'); - mtext_cat (mt, thisline); - } - m17n_object_unref (thisline); - } - plist = mplist_next (plist); - } - - /* Show the generated M-text by another example program "mview". */ - { - FILE *p = popen ("mview", "w"); - - if (!p) - FATAL_ERROR ("%s\n", "Can't run the program mview!"); - mconv_encode_stream (Mcoding_utf_8, mt, p); - fclose (p); - } - - /* Clear away. */ - m17n_object_unref (locale_list); - m17n_object_unref (mt); - M17N_FINI (); - - exit (0); -} -#endif /* not FOR_DOXYGEN */ diff --git a/example/mdump.c b/example/mdump.c deleted file mode 100644 index 0168c1f..0000000 --- a/example/mdump.c +++ /dev/null @@ -1,708 +0,0 @@ -/* mdump.c -- Dump text image -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mdump dump text image - - @section mdump-synopsis SYNOPSIS - - mdump [ OPTION ... ] [ FILE ] - - @section mdump-description DESCRIPTION - - Dump a text as PNG image file. - - The PNG file is written to a file created in the current directory - with the name "BASE.png" where BASE is the basename of FILE. If - FILE is omitted, text is read from standard input, and the image - is dumped into the file "output.png". - - The following OPTIONs are available. - -

-s SIZE - - SIZE is the font size in point. The default font size is 12 point. - -
-d DPI - - DPI is the resolution in dots per inch. The default resolution is - 300 dpi. - -
-p PAPER - - PAPER is the paper size: a4, a4r, a5, a5r, b5, b5r, letter, WxH, - or W. In the case of WxH, W and H are the width and height in - millimeter. In the case of W, W is the width in millimeter. If - this option is specified, PAPER limits the image size. If FILE is - too large for a single page, multiple files with the names - "BASE.01.png", "BASE.02.png", etc. are created. - -
-m MARGIN - - MARGIN is the horizontal and vertical margin in millimeter. The - default margin is 20 mm. It is ignored when PAPER is not - specified. - -
-c POS - - POS is the character position of cursor to draw. By default, - cursor is not drawn. - -
-x - - FILE is assumed to be an XML file generated by the serialize - facility of the m17n library, and FILE is deserialized before an - image is created. - -
-w - - Each line is broken at word boundary. - -
-f FILTER - - FILTER is a string containing a shell command line. If this - option is specified, the PNG image is not written info a - file but is given to FILTER as standard input. If FILTER - contains "%s", that part is replaced by a basename of FILE. - So, the default behaviour is the same as specifying "cat > - %s.png" as FILTER. - -
-a - - Enable anti-alias drawing. - -
--family FAMILY - - Prefer a font whose family name is FAMILY. - -
--language LANG - - Prefer a font specified for the language LANG. LANG must be a - 2-letter code of ISO 630 (e.g. "en" for English). - -
-q - - Quiet mode. Don't print any messages. - -
--version - - Print the version number. - -
-h, --help - - Print this message. - -

-*/ -/***ja - @japage mdump ¥Æ¥¥¹¥È²èÁü¤Î¥À¥ó¥× - - @section mdump-synopsis SYNOPSIS - - mdump [ OPTION ... ] [ FILE ] - - @section mdump-description DESCRIPTION - - ¥Æ¥¥¹¥È¤ò PNG ²èÁü¤È¤·¤Æ¥À¥ó¥×¤¹¤ë¡£ - - PNG ²èÁü¤Ï¸½ºß¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Ëºî¤é¤ì¤¿ "BASE.png" ¤È¤¤¤¦Ì¾Á°¤Î - ¥Õ¥¡¥¤¥ë¤Ë½ñ¤¹þ¤Þ¤ì¤ë¡£¤³¤³¤Ç BASE ¤ÏFILE ¤Î basename ¤Ç¤¢¤ë¡£ - FILE ¤¬¾ÊÎ¬¤µ¤ì¤ì¤Ð¡¢¥Æ¥¥¹¥È¤ÏÉ¸½àÆþÎÏ¤«¤éÆÉ¤Þ¤ì¡¢²èÁü¤Ï - "output.png" ¤Ë¥À¥ó¥×¤µ¤ì¤ë¡£ - - °Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤¬ÍøÍÑ¤Ç¤¤ë¡£ - -

-s SIZE - - SIZE ¤Ï¥Õ¥©¥ó¥È¤ÎÂç¤¤µ¤ò¥Ý¥¤¥ó¥ÈÃ±°Ì¤Ç¼¨¤·¤¿¤â¤Î¤Ç¤¢¤ë¡£¥Ç¥Õ¥©¥ë - ¥È¤ÎÂç¤¤µ¤Ï 12 ¥Ý¥¤¥ó¥È¡£ - -
-d DPI - - DPI ¤Ï²òÁüÅÙ¤ò£±¥¤¥ó¥Á¤¢¤¿¤ê¤Î¥É¥Ã¥ÈÃ±°Ì¤Ç¼¨¤·¤¿¤â¤Î¤Ç¤¢¤ë¡£¥Ç¥Õ¥© - ¥ë¥È¤Î²òÁüÅÙ¤Ï 300 dpi¡£ - -
-p PAPER - - PAPER ¤Ï¤Ú¡¼¥Ñ¥µ¥¤¥º : a4, a4r, a5, a5r, b5, b5r, letter, WxH ¤Þ¤¿ - ¤Ï W¡£ WxH ¤Î¾ì¹ç¡¢ W ¤È H ¤ÏÉý¤È¹â¤µ¤ò¥ß¥ê¥á¡¼¥¿Ã±°Ì¤Ç¼¨¤·¤¿¤â¤Î¡£ - W ¤Î¾ì¹ç¡¢ W ¤ÏÉý¤ò¥ß¥ê¥á¡¼¥¿Ã±°Ì¤Ç¼¨¤·¤¿¤â¤Î¡£¤³¤Î¥ª¥×¥·¥ç¥ó¤¬»ØÄê - ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢ PAPER ¤¬²èÁü¥µ¥¤¥º¤òÀ©¸Â¤¹ ¤ë¡£FILE ¤¬ 1 ¥Ú¡¼¥¸ - ¤ËÇ¼¤Þ¤é¤Ê¤¤¤Û¤ÉÂç¤¤¤¾ì¹ç¤Ï¡¢"BASE.01.png", "BASE.02.png" Åù¤ÎÌ¾Á° - ¤Î¤Ä¤¤¤¿Ê£¿ô¤Î¥Õ¥¡¥¤¥ë¤¬ºî¤é¤ì¤ë¡£ - -
-m MARGIN - - MARGIN ¤Ï¿åÊ¿¡¢¿âÄ¾¥Þ¡¼¥¸¥ó¤ò¥ß¥ê¥á¡¼¥¿Ã±°Ì¤Ç¼¨¤·¤¿¤â¤Î¤Ç¤¢¤ë¡£¥Ç - ¥Õ¥©¥ë¥È¤Î¥Þ¡¼¥¸¥ó¤Ï 20 mm¡£PAPER ¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤ÐÌµ»ë¤µ¤ì¤ë¡£ - -
-c POS - - POS ¤Ï¥«¡¼¥½¥ë¤ÎÊ¸»ú°ÌÃÖ¡£¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢¥«¡¼¥½¥ë¤ÏÉÁ¤«¤ì¤Ê¤¤¡£ - -
-x - - FILE ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤Î¥·¥ê¥¢¥é¥¤¥ºµ¡Ç½¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿ XML ¥Õ¥¡ - ¥¤¥ë¤Ç¤¢¤ê¡¢²èÁü¤òÀ¸À®¤¹¤ëÁ°¤Ë¥Ç¥·¥ê¥¢¥é¥¤¥º¤µ¤ì¤ë¡£ - -
-w - - ¸ì¤Î¶³¦¤Ç²þ¹Ô¤¹¤ë¡£ - -
-f FILTER - - FILTER ¤Ï¥·¥§¥ë¥³¥Þ¥ó¥É¹Ô¤ò´Þ¤àÊ¸»úÎó¤Ç¤¢¤ë¡£¤³¤Î¥ª¥×¥·¥ç¥ó¤¬»ØÄê - ¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢PNG ²èÁü¤Ï¥Õ¥¡¥¤¥ë¤Ë½ñ¤«¤ì¤ë¤Î¤Ç¤Ï¤Ê¤¯¡¢FILTER ¤Ë - É¸½àÆþÎÏ¤È¤·¤ÆÅÏ¤µ¤ì¤ë¡£ FILTER ¤¬ "%s" ¤ò´Þ¤ó¤Ç¤¤¤ì¤Ð¡¢¤½¤ì¤Ï FILE - ¤Î¥Ù¡¼¥¹¥Í¡¼¥à¤ËÃÖ¤´¹¤¨¤é¤ì¤ë¡£¤³¤Î¥×¥í¥°¥é¥à¤Î¥Ç¥Õ¥©¥ë¥È¤Î¿¶Éñ¤¤ - ¤È¡¢FILTER ¤Ë "cat > %s.png" ¤ò»ØÄê¤·¤¿¾ì¹ç¤Î¿¶Éñ¤ÏÆ±°ì¤Ç¤¢¤ë¡£ - -
-a - - ¥¢¥ó¥Á¥¨¥¤¥ê¥¢¥¹½èÍý¤ò¹Ô¤¦¡£ - -
--family FAMILY - - ¥Õ¥¡¥ß¥ê¥£Ì¾¤¬ FAMILY ¤Î¥Õ¥©¥ó¥È¤òÍ¥ÀèÅª¤Ë»È¤¦¡£ - -
--language LANG - - ¸À¸ì LANG ÍÑ¤Ë»ØÄê¤µ¤ì¤¿¥Õ¥©¥ó¥È¤òÍ¥ÀèÅª¤Ë»È¤¦¡£LANG ¤Ï ISO 630 ¤Î - £²Ê¸»ú¥³¡¼¥É¡ÊÎã¡§±Ñ¸ì¤Ï "en" ¡Ë¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ - -
-q - - °ìÀÚ¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤·¤Ê¤¤¡£ - -
--version - - ¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òÉ½¼¨¤¹¤ë¡£ - -
-h, --help - - ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤¹¤ë¡£ - -

-*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include -#include -#include - -#include "config.h" - -#if defined (HAVE_FREETYPE) && defined (HAVE_GD) -#include - -#include -#include - -#define PROGRAM_VERSION "1.1" - -/* Enumuration of the supported paper types. */ -enum paper_type - { - PAPER_A4, - PAPER_A4R, - PAPER_A5, - PAPER_A5R, - PAPER_B5, - PAPER_B5R, - PAPER_LETTER, - PAPER_USER, - PAPER_NOLIMIT - }; - -/* Array of paper sizes for the supported paper types. */ -struct -{ - int width, height; /* in millimeter */ -} paper_size[PAPER_NOLIMIT] = { - { 210, 297 }, /* a4 */ - { 297, 210 }, /* a4r */ - { 148, 210 }, /* a5 */ - { 210, 148 }, /* a5r */ - { 250, 176 }, /* b5 */ - { 176, 250 }, /* b5r */ - { 216, 279 }, /* letter */ -}; - - -/* Print the usage of this program (the name is PROG), and exit with - EXIT_CODE. */ - -void -help_exit (char *prog, int exit_code) -{ - char *p = prog; - - while (*p) - if (*p++ == '/') - prog = p; - - printf ("Usage: %s [ OPTION ...] [ FILE ]\n", prog); - printf ("Dump a text as a PNG image into a file.\n"); - printf (" The PNG file is created in the current directory\n"); - printf (" with the name \"BASE.png\" where BASE is the basename of FILE.\n"); - printf (" If FILE is omitted, text is read from standard input, and\n"); - printf (" dumped into the file \"output.png\".\n"); - printf ("The following OPTIONs are available.\n"); - printf (" %-13s %s", "-s SIZE", - "Font size in point (default 12).\n"); - printf (" %-13s %s", "-d DPI", - "Resolution in dots per inch (defualt 300).\n"); - printf (" %-13s %s", "-p PAPER", - "Paper size; a4, a4r, a5, a5r, b5, b5r, letter, W, or WxH.\n"); - printf (" %-13s %s", "-m MARGIN", - "Marginal space in millimeter (default 20).\n"); - printf (" %-13s %s", "-c POS", - "Character position of cursor to draw (default no cursor)\n"); - printf (" %-13s %s", "-x", - "FILE is assumed to be an XML file.\n"); - printf (" %-13s %s", "-f FILTER", - "String containing a shell command line to be used as a filter.\n"); - printf (" %-13s %s", "-w", "Each line is broken at word boundary.\n"); - printf (" %-13s %s", "-a", "Enable anti-alias drawing.\n"); - printf (" %-13s %s", "--family FAMILY", - "Prefer a font whose family is FAMILY.\n"); - printf (" %-13s %s", "--language LANG", - "Prefer a font specified for the langauge LANG.\n"); - printf (" %-13s %s", "-q", "Quiet mode. Don't print any messages.\n"); - printf (" %-13s %s", "--version", "Print the version number.\n"); - printf (" %-13s %s", "-h, --help", "Print this message.\n"); - exit (exit_code); -} - - -/* Format MSG by FMT and print the result to the stderr, and exit. */ - -#define FATAL_ERROR(fmt, arg) \ - do { \ - fprintf (stderr, fmt, arg); \ - exit (1); \ - } while (0) - - -/* Move POS to the next line head in M-text MT whose length is LEN. - If POS is already on the last line, set POS to LEN. */ - -#define NEXTLINE(pos, len) \ - do { \ - pos = mtext_character (mt, pos, len, '\n'); \ - if (pos < 0) \ - pos = len; \ - else \ - pos++; \ - } while (0) - - -/* Find the range of M-text MT that fits in one page of height HEIGHT - when drawn from the character position POS. Set RECT->y to the - Y-offset of the first baseline. */ - -int -find_page_end (MFrame *frame, int height, MText *mt, int pos, - MDrawControl *control, MDrawMetric *rect) -{ - int len = mtext_len (mt); - int to = pos; - int y = 0, yoff; - - while (to < len) - { - int next = to; - - NEXTLINE (next, len); - mdraw_text_extents (frame, mt, to, next, control, NULL, NULL, rect); - if (to == pos) - yoff = rect->y; - if (y + rect->height > height) - { - MDrawGlyphInfo info; - - while (to < next) - { - mdraw_glyph_info (frame, mt, to, to, control, &info); - if (y + info.this.height > height) - break; - y += info.this.height; - to = info.line_to; - } - break; - } - y += rect->height; - to = next; - } - - rect->y = yoff; - return to; -} - - -/* Table to convert a byte of LSBFirst to MSBFirst. */ -char reverse_bit_order[256]; - -/* Initialize the above table. */ - -void -init_reverse_bit_order () -{ - int i; - - for (i = 0; i < 256; i++) - reverse_bit_order[i] - = (((i & 1) << 7) | ((i & 2) << 5) | ((i & 4) << 3) | ((i & 8) << 1) - | ((i & 16) >> 1) | ((i & 32) >> 3) - | ((i & 64) >> 5) | ((i & 128) >> 7)); -} - - -/* Dump the image in IMAGE into a file whose name is generated from - FILENAME and PAGE_INDEX (if it is not zero). */ - -void -dump_image (gdImagePtr image, char *filename, char *filter, - int page_index, int quiet_mode) -{ - FILE *fp; - - if (page_index) - { - char *name = alloca (strlen (filename) + 8); - - sprintf (name, "%s.%02d", filename, page_index); - filename = name; - } - - if (filter) - { - char *command = alloca (strlen (filename) + strlen (filter) + 1); - - sprintf (command, filter, filename); - fp = popen (command, "w"); - if (! fp) - FATAL_ERROR ("Can't run the command \"%s\"\n", command); - if (! quiet_mode) - printf ("Running \"%s\" ... ", command); - } - else - { - char *fullname = alloca (strlen (filename) + 5); - - sprintf (fullname, "%s.png", filename); - fp = fopen (fullname, "w"); - if (! fp) - FATAL_ERROR ("Can't write to \"%s\"\n", fullname); - if (! quiet_mode) - printf ("Writing %s ... ", fullname); - } - - /* Generate PNG. */ - gdImagePng (image, fp); - fclose (fp); - if (! quiet_mode) - printf (" done (%dx%d)\n", image->sx, image->sy); -} - -extern int line_break (MText *mt, int pos, int from, int to, int line, int y); - -int -main (int argc, char **argv) -{ - int fontsize = 120; - int paper = PAPER_NOLIMIT; - int dpi = 300; - int margin = 20; - int xml = 0; - FILE *fp = stdin; - int cursor_pos = -1; - int quiet_mode = 0; - int break_by_word = 0; - char *filter = NULL; - int paper_width, paper_height; - int anti_alias = 0; - char *family_name = NULL; - char *lang_name = NULL; - int i; - int page_index; - gdImagePtr image; - int white; - - MFrame *frame; - MText *mt; - MDrawControl control; - MDrawMetric rect; - char *filename = "output"; - int len, from; - - /* Parse the command line arguments. */ - for (i = 1; i < argc; i++) - { - if (! strcmp (argv[i], "--help") - || ! strcmp (argv[i], "-h") - || ! strcmp (argv[i], "-?")) - help_exit (argv[0], 0); - else if (! strcmp (argv[i], "--version")) - { - printf ("mdump (m17n library) %s\n", PROGRAM_VERSION); - printf ("Copyright (C) 2003, 2004 AIST, JAPAN\n"); - exit (0); - } - else if (! strcmp (argv[i], "-s") && i + 1< argc) - { - fontsize = atoi (argv[++i]); - if (! fontsize) - FATAL_ERROR ("Invalid font size: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-p") && i + 1< argc) - { - int w, h; - - i++; - if (! strcmp (argv[i], "a4")) - paper = PAPER_A4; - else if (! strcmp (argv[i], "a4r")) - paper = PAPER_A4R; - else if (! strcmp (argv[i], "a5")) - paper = PAPER_A5; - else if (! strcmp (argv[i], "a5r")) - paper = PAPER_A5R; - else if (! strcmp (argv[i], "b5")) - paper = PAPER_B5; - else if (! strcmp (argv[i], "b5r")) - paper = PAPER_B5R; - else if (! strcmp (argv[i], "letter")) - paper = PAPER_LETTER; - else if (sscanf (argv[i], "%dx%d", &w, &h) == 2 - && w > 0 && h > 0) - { - paper = PAPER_USER; - paper_size[paper].width = w; - paper_size[paper].height = h; - } - else if (sscanf (argv[i], "%d", &w) == 1 - && w > 0) - { - paper = PAPER_USER; - paper_size[paper].width = w; - paper_size[paper].height = 0; - } - else - FATAL_ERROR ("Invalid paper type: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-d") && i + 1< argc) - { - dpi = atoi (argv[++i]); - if (! dpi) - FATAL_ERROR ("Invalid resolution: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-m") && i + 1< argc) - { - margin = atoi (argv[++i]); - if (margin < 0) - FATAL_ERROR ("Invalid margin: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-c") && i + 1< argc) - { - cursor_pos = atoi (argv[++i]); - if (cursor_pos < 0) - FATAL_ERROR ("Invalid cursor position: %s\n", argv[i]); - } - else if (! strcmp (argv[i], "-f") && i + 1< argc) - { - filter = argv[++i]; - } - else if (! strcmp (argv[i], "-x")) - { - xml = 1; - } - else if (! strcmp (argv[i], "-w")) - { - break_by_word = 1; - } - else if (! strcmp (argv[i], "-q")) - { - quiet_mode = 1; - } - else if (! strcmp (argv[i], "-a")) - { - anti_alias = 1; - } - else if (! strcmp (argv[i], "--family")) - { - family_name = argv[++i]; - } - else if (! strcmp (argv[i], "--language")) - { - lang_name = argv[++i]; - } - else if (argv[i][0] != '-') - { - fp = fopen (argv[i], "r"); - if (! fp) - FATAL_ERROR ("Fail to open the file %s!\n", argv[i]); - filename = basename (argv[i]); - } - else - { - fprintf (stderr, "Unknown or invalid option: %s\n", argv[i]); - help_exit (argv[0], 1); - } - } - - /* Initialize the m17n library. */ - M17N_INIT (); - if (merror_code != MERROR_NONE) - FATAL_ERROR ("%s\n", "Fail to initialize the m17n library."); - - mt = mconv_decode_stream (Mcoding_utf_8, fp); - fclose (fp); - if (xml) - mt = mtext_deserialize (mt); - if (! mt) - FATAL_ERROR ("%s\n", "Fail to decode the input file or stream!"); - - len = mtext_len (mt); - if (lang_name) - mtext_put_prop (mt, 0, len, Mlanguage, msymbol (lang_name)); - - if (paper == PAPER_NOLIMIT) - paper_width = paper_height = margin = 0; - else - { - paper_width = paper_size[paper].width * dpi / 25.4; - paper_height = paper_size[paper].height * dpi / 25.4; - margin = margin * dpi / 25.4; - } - - { - MPlist *plist = mplist (), *p; - MFontset *fontset = mfontset ("truetype"); - MFace *face = mface (); - - mface_put_prop (face, Mfontset, fontset); - mface_put_prop (face, Msize, (void *) (fontsize * dpi / 100)); - if (family_name) - { - char *p; - - for (p = family_name; *p; p++) - if (isupper (*p)) *p = tolower (*p); - mface_put_prop (face, Mfamily, msymbol (family_name)); - } - - p = mplist_add (plist, Mdevice, msymbol ("gd")); - p = mplist_add (p, Mface, face); - m17n_object_unref (face); - frame = mframe (plist); - m17n_object_unref (plist); - if (! frame) - FATAL_ERROR ("%s\n", "Can't open a frame (perhaps no font available)!"); - } - - memset (&control, 0, sizeof control); - control.two_dimensional = 1; - control.enable_bidi = 1; - control.anti_alias = anti_alias; - if (cursor_pos >= 0) - { - control.with_cursor = 1; - if (cursor_pos > len) - cursor_pos = len; - control.cursor_pos = cursor_pos; - control.cursor_width = -1; - } - else - control.ignore_formatting_char = 1; - if (break_by_word) - control.line_break = line_break; - - if (paper == PAPER_NOLIMIT) - { - control.max_line_width = 0; - mdraw_text_extents (frame, mt, 0, len, &control, NULL, NULL, &rect); - paper_width = rect.width; - paper_height = rect.height; - } - else - { - control.max_line_width = paper_width - margin * 2; - if (paper_height == 0) - { - mdraw_text_extents (frame, mt, 0, len, &control, NULL, NULL, &rect); - paper_height = rect.height + margin * 2; - } - } - - image = gdImageCreate (paper_width, paper_height); - from = 0; - page_index = 1; - white = gdImageColorAllocate (image, 255, 255, 255); - while (from < len) - { - int to; - - if (paper == PAPER_NOLIMIT || paper_size[paper].height == 0) - to = len; - else - to = find_page_end (frame, paper_height - margin * 2, mt, from, - &control, &rect); - - gdImageFilledRectangle (image, 0, 0, paper_width - 1, paper_height - 1, - white); - mdraw_text_with_control (frame, image, - margin, margin - rect.y, mt, from, to, - &control); - dump_image (image, filename, filter, - ((from > 0 || to < len) ? page_index : 0), - quiet_mode); - - from = to; - page_index++; - } - - m17n_object_unref (frame); - m17n_object_unref (mt); - M17N_FINI (); - gdImageDestroy (image); - exit (0); -} - -#else /* not HAVE_FREETYPE nor HAVE_GD */ - -int -main (int argc, char **argv) -{ - fprintf (stderr, "Can't run without Freetype and GD library!\n"); - exit (1); -} - -#endif /* not HAVE_FREETYPE nor HAVE_GD */ -#endif /* not FOR_DOXYGEN */ diff --git a/example/medit.c b/example/medit.c deleted file mode 100644 index 8bc1b83..0000000 --- a/example/medit.c +++ /dev/null @@ -1,2862 +0,0 @@ -/* medit.c -- simple multilingual editor. -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage medit edit multilingual text - - @section medit-synopsis SYNOPSIS - - medit [ XT-OPTION ...] [ OPTION ... ] FILE - - @section medit-description DESCRIPTION - - Display FILE on a window and allow users to edit it. - - XT-OPTIONs are standard Xt arguments (e.g. -fn, -fg). - - The following OPTIONs are available. - -

--version - - Print version number. - -
-h, --help - - Print this message. - -

- - This program is to demonstrate how to use the m17n GUI API. - Although medit directly uses the GUI API, the API is mainly for - toolkit libraries or to implement XOM (X Outout Method), not for - direct use from application programs. -*/ -/***ja - @japage medit Â¿¸À¸ì¥Æ¥¥¹¥È¤ÎÊÔ½¸ - - @section medit-synopsis SYNOPSIS - - medit [ XT-OPTION ...] [ OPTION ... ] FILE - - @section medit-description DESCRIPTION - - FILE ¤ò¥¦¥£¥ó¥É¥¦¤ËÉ½¼¨¤·¡¢¥æ¡¼¥¶¤¬ÊÔ½¸¤Ç¤¤ë¤è¤¦¤Ë¤¹¤ë¡£ - - XT-OPTIONs ¤Ï Xt ¤ÎÉ¸½à¤Î°ú¿ô¤Ç¤¢¤ë¡£ (e.g. -fn, -fg). - - °Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤¬ÍøÍÑ¤Ç¤¤ë¡£ - -

--version - - ¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òÉ½¼¨¤¹¤ë¡£ - -
-h, --help - - ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤¹¤ë¡£ - -

- - ¤³¤Î¥×¥í¥°¥é¥à¤Ï m17n GUI API ¤Î»È¤¤Êý¤ò¼¨¤¹¤â¤Î¤Ç¤¢¤ë¡£medit ¤ÏÄ¾ - ÀÜ GUI API ¤ò»È¤Ã¤Æ¤¤¤ë¤¬¡¢¤³¤Î API ¤Ï¼ç¤Ë¥Ä¡¼¥ë¥¥Ã¥È¥é¥¤¥Ö¥é¥ê¤ä - XOM (X Outout Method) ¤Î¼ÂÁõÍÑ¤Ç¤¢¤ê¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é ¥à - ¤«¤é¤ÎÄ¾ÀÜ¤ÎÍøÍÑ¤ò°Õ¿Þ¤·¤Æ¤¤¤Ê¤¤¡£ -*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#define VERSION "1.0.1" - -/* Global variables. */ - -char *filename; -int serialized; - -/* For the X Window System. */ -Display *display; -int screen; -/* GCs for normal drawing, filling by background color, normal drawing - on bitmap (i.e. pixmap of depth 1), filling bitmap by background - color. */ -GC gc, gc_inv, mono_gc, mono_gc_inv; -Window win; -Atom XA_TEXT, XA_COMPOUND_TEXT, XA_UTF8_STRING; /* X Selection types. */ -XtAppContext context; -int default_font_size; - -/* Widget hierarchy - -Shell - Form -+- Head -- File, Cursor, Bidi, LineBreak, InputMethod, CurIM; - +- Face -- Size, Family, Style, Color, Misc, Pop, CurFace - +- Lang -- A-B, C-D, ..., U-Z, Pop, CurLang - +- Body -- Sbar, Text - +- Tail -- Message -*/ - -Widget ShellWidget, HeadWidget, TailWidget, MessageWidget; -Widget CursorMenus[5], BidiMenus[3], LineBreakMenus[3], *InputMethodMenus; -Widget SbarWidget, TextWidget; -Widget FileShellWidget, FileDialogWidget; -Widget FaceWidget, CurFaceWidget, LangWidget, CurLangWidget; -Widget CurIMLang, CurIMStatus; - -int win_width, win_height; /* Size of TextWidget. */ -Arg arg[10]; - -Pixmap input_status_pixmap; -int input_status_width, input_status_height; - -/* Bitmap for "check" glyph. */ -#define check_width 9 -#define check_height 8 -static unsigned char check_bits[] = { - 0x00, 0x01, 0x80, 0x01, 0xc0, 0x00, 0x60, 0x00, - 0x31, 0x00, 0x1b, 0x00, 0x0e, 0x00, 0x04, 0x00 }; -Pixmap CheckPixmap; - -/* For the m17n library. */ -MFrame *frame; -MText *mt; -int nchars; /* == mtext_len (mt) */ -MDrawControl control, input_status_control; -MTextProperty *selection; - -MFace *face_default; -MFace *face_xxx_large; -MFace *face_box; -MFace *face_courier, *face_helvetica, *face_times; -MFace *face_dv_ttyogesh, *face_freesans, *face_freeserif, *face_freemono; -MFace *face_default_fontset, *face_no_ctl_fontset; -MFace *face_input_status; - -int logical_move = 1; /* If 0, move cursor visually. */ - -typedef struct { - int available; - MSymbol language, name; - MInputMethod *im; -} InputMethodInfo; - -InputMethodInfo *input_method_table; - -int num_input_methods; -int current_input_method = -1; /* i.e. none */ -int auto_input_method = 0; -MInputContext *current_input_context; - -struct FaceRec -{ - char *name; - MFace **face; -} face_table[] = - { {"Menu Size", NULL}, - {"xx-small", &mface_xx_small}, - {"x-small", &mface_x_small}, - {"small", &mface_small}, - {"normalsize", &mface_normalsize}, - {"large", &mface_large}, - {"x-large", &mface_x_large}, - {"xx-large", &mface_xx_large}, - {"xxx-large", &face_xxx_large}, - - {"Menu Family", NULL}, - {"courier", &face_courier}, - {"helvetica", &face_helvetica}, - {"times", &face_times}, - {"dv-ttyogesh", &face_dv_ttyogesh}, - {"freesans", &face_freesans}, - {"freeserif", &face_freeserif}, - {"freemono", &face_freemono}, - - {"Menu Style", NULL}, - {"medium", &mface_medium}, - {"bold", &mface_bold}, - {"italic", &mface_italic}, - - {"Menu Color", NULL}, - {"black", &mface_black}, - {"white", &mface_white}, - {"red", &mface_red}, - {"green", &mface_green}, - {"blue", &mface_blue}, - {"cyan", &mface_cyan}, - {"yello", &mface_yellow}, - {"magenta", &mface_magenta}, - - {"Menu Misc", NULL}, - {"normal", &mface_normal_video}, - {"reverse", &mface_reverse_video}, - {"underline", &mface_underline}, - {"box", &face_box}, - {"No CTL", &face_no_ctl_fontset} }; - - -int num_faces = sizeof (face_table) / sizeof (struct FaceRec); - -/* Information about a physical line metric. */ -struct LineInfo -{ - int from; /* BOL position of the line. */ - int to; /* BOL position of the next line. */ - int y0, y1; /* Top and bottom Y position of the line. */ - int ascent; /* Height of the top Y position. */ -}; - -struct LineInfo top; /* Topmost line. */ -struct LineInfo cur; /* Line containing cursor. */ -struct LineInfo sel_start; /* Line containing selection start. */ -struct LineInfo sel_end; /* Line containing selection end. */ - -MDrawGlyphInfo cursor; /* Information about the cursor glyph. */ - -/* X position to keep on vertical (up and down) cursor motion. */ -int target_x_position; - -/* Interface macros for m17n-lib drawing routines. */ - -/* Draw a text in the range $FROM to $TO of the M-text #MT at the - coordinate ($X, $Y) */ -#define DRAW_TEXT(x, y, from, to) \ - mdraw_text_with_control \ - (frame, (MDrawWindow) win, \ - control.orientation_reversed ? x + win_width : x, y, \ - mt, from, to, &control) - -/* Store the extents of a text in the range $FROM to $TO in the - structure $RECT (type MDrawMetric). */ -#define TEXT_EXTENTS(from, to, rect) \ - mdraw_text_extents (frame, mt, from, (to), &control, NULL, NULL, &(rect)) - -/* Store the glyph information of a character at the position $POS in - the struct $INFO (type MDrawGlyphInfo) assuming that the text from - $FROM is written at the coordinate (0, 0). */ -#define GLYPH_INFO(from, pos, info) \ - mdraw_glyph_info (frame, mt, from, (pos), &control, &(info)) - -/* Set $X and $Y to the coordinate of character at position $POS - assuming that the text from $FROM is written at the coordinate (0, - 0). */ -#define COORDINATES_POSITION(from, pos, x, y) \ - mdraw_coordinates_position (frame, mt, (from), (pos), (x), (y), &control) - -/* Interface macros for X library. */ -#define COPY_AREA(y0, y1, to) \ - XCopyArea (display, win, win, gc, 0, (y0), win_width, (y1) - (y0), 0, (to)) - -#define CLEAR_AREA(x, y, w, h) \ - XClearArea (display, win, (x), (y), (w), (h), False) - -#define SELECTEDP() \ - mtext_property_mtext (selection) - -/* Format MSG by FMT and print the result to the stderr, and exit. */ -#define FATAL_ERROR(fmt, arg) \ - do { \ - fprintf (stderr, fmt, arg); \ - exit (1); \ - } while (0) - - -/* If POS is greater than zero, move POS back to the beginning of line - (BOL) position. If FORWARD is nonzero, move POS forward instead. - Return the new position. */ -int -bol (int pos, int forward) -{ - int limit = forward ? nchars : 0; - - pos = mtext_character (mt, pos, limit, '\n'); - return (pos < 0 ? limit : pos + 1); -} - -/* Update the structure #TOP (struct LineInfo) to make $POS the first - character position of the screen. */ -void -update_top (int pos) -{ - int from = bol (pos, 0); - MDrawGlyphInfo info; - - GLYPH_INFO (from, pos, info); - top.from = info.line_from; - top.to = info.line_to; - top.y0 = 0; - top.y1 = info.this.height; - top.ascent = - info.this.y; -} - - -/* Update the scroll bar so that the text of the range $FROM to $TO - are shown on the window. */ -void -update_scroll_bar (int from, int to) -{ - float top = (float) from / nchars; - float shown = (float) (to - from) / nchars; - XtArgVal *l_top = (XtArgVal *) ⊤ - XtArgVal *l_shown = (XtArgVal *) &shown; - - XtSetArg (arg[0], XtNtopOfThumb, *l_top); - XtSetArg (arg[1], XtNshown, *l_shown); - XtSetValues (SbarWidget, arg, 2); -} - - -/* Redraw the window area between $Y0 and $Y1 (both Y-codinates). If - $CLEAR is nonzero, clear the area before drawing. If $SCROLL_BAR - is nonzero, update the scoll bar. */ -void -redraw (int y0, int y1, int clear, int scroll_bar) -{ - int from, to; - int y; - MDrawGlyphInfo info; - int sel_y0 = SELECTEDP () ? sel_start.y0 : 0; - struct LineInfo *line; - - if (clear || control.anti_alias) - CLEAR_AREA (0, y0, win_width, y1 - y0); - - /* Find a line closest to y0. It is a cursor line if the cursor is - Y0, otherwise the top line. */ - if (y0 >= cur.y0) - line = &cur; - else - line = ⊤ - /* If there exists a selected region, check it too. */ - if (sel_y0 > line->y0 && y0 >= sel_y0) - line = &sel_start; - - from = line->from; - y = line->y0; - info.this.height = line->y1 - y; - info.this.y = - line->ascent; - info.line_to = line->to; - while (from < nchars && y + info.this.height <= y0) - { - y += info.this.height; - from = info.line_to; - GLYPH_INFO (from, from, info); - } - y0 = y - info.this.y; - to = from; - while (to < nchars && y < y1) - { - GLYPH_INFO (to, to, info); - y += info.this.height; - to = info.line_to; - } - if (to == nchars) - to++; - if (from < to) - DRAW_TEXT (0, y0, from, to); - if (scroll_bar) - { - while (to < nchars) - { - GLYPH_INFO (to, to, info); - if (y + info.this.height >= win_height) - break; - to = info.line_to; - y += info.this.height; - } - update_scroll_bar (top.from, to); - } -} - - -/* Set the current input method spot to the correct position. */ -void -set_input_method_spot () -{ - int x = cursor.x + (control.orientation_reversed ? win_width : 0); - int pos = cursor.from > 0 ? cursor.from - 1 : 0; - MFace *faces[256]; - int n = mtext_get_prop_values (mt, pos, Mface, (void **) faces, 256); - int size = 0, ratio = 0, i; - - for (i = n - 1; i >= 0; i--) - { - if (! size) - size = (int) mface_get_prop (faces[i], Msize); - if (! ratio) - ratio = (int) mface_get_prop (faces[i], Mratio); - } - if (! size) - size = default_font_size; - if (ratio) - size = size * ratio / 100; - minput_set_spot (current_input_context, x, cur.y0 + cur.ascent, - cur.ascent, cur.y1 - (cur.y0 + cur.ascent), size, - mt, cursor.from); -} - - -/* Redraw the cursor. If $CLEAR is nonzero, clear the cursor area - before drawing. */ -void -redraw_cursor (int clear) -{ - if (control.cursor_bidi) - { - /* We must update the whole line of the cursor. */ - int beg = bol (cur.from, 0); - int end = bol (cur.to - 1, 1); - MDrawMetric rect; - int y0 = cur.y0, y1 = cur.y1; - - if (beg != cur.from) - { - TEXT_EXTENTS (beg, cur.from, rect); - y0 -= rect.height; - } - if (end != cur.to) - { - TEXT_EXTENTS (cur.to, end, rect); - y1 += rect.height; - } - redraw (y0, y1, clear, 0); - } - else - { - if (clear) - { - int x = cursor.x; - - if (control.orientation_reversed) - x += win_width - cursor.logical_width; - CLEAR_AREA (x, cur.y0, cursor.logical_width, cursor.this.height); - } - DRAW_TEXT (cursor.x, cur.y0 + cur.ascent, cursor.from, cursor.to); - } -} - - -/* Update the information about the location of cursor to the position - $POS. If $FULL is nonzero, update the information fully only from - the information about the top line. Otherwise, truct the current - information in the structure $CUR. */ -void -update_cursor (int pos, int full) -{ - MDrawMetric rect; - - if (full) - { - /* CUR is inaccurate. We can trust only TOP. */ - GLYPH_INFO (top.from, pos, cursor); - cur.y0 = top.ascent + cursor.y + cursor.this.y; - } - else if (pos < cur.from) - { - int from = bol (pos, 0); - - TEXT_EXTENTS (from, cur.from, rect); - GLYPH_INFO (from, pos, cursor); - cur.y0 -= (rect.height + rect.y) - (cursor.y + cursor.this.y); - } - else if (pos < cur.to) - { - GLYPH_INFO (cur.from, pos, cursor); - } - else - { - GLYPH_INFO (cur.from, pos, cursor); - cur.y0 += cur.ascent + cursor.y + cursor.this.y; - } - - cur.from = cursor.line_from; - cur.to = cursor.line_to; - cur.y1 = cur.y0 + cursor.this.height; - cur.ascent = - cursor.this.y; -} - - -/* Update the information about the selected region. */ -void -update_selection () -{ - int from, to; - MDrawMetric rect; - MDrawGlyphInfo info; - - if (! SELECTEDP ()) - return; - from = mtext_property_start (selection); - to = mtext_property_end (selection); - - if (from < top.from) - { - int pos = bol (from, 0); - - TEXT_EXTENTS (pos, top.from, rect); - sel_start.y0 = top.y0 - rect.height; - sel_start.ascent = - rect.y; - GLYPH_INFO (pos, from, info); - if (pos < info.line_from) - sel_start.y0 += - rect.y + info.y + info.this.y; - } - else - { - GLYPH_INFO (top.from, from, info); - sel_start.y0 = top.ascent + info.y + info.this.y; - } - sel_start.ascent = -info.this.y; - sel_start.y1 = sel_start.y0 + info.this.height; - sel_start.from = info.line_from; - sel_start.to = info.line_to; - - if (to <= sel_start.to) - { - sel_end = sel_start; - if (to >= sel_end.to) - { - GLYPH_INFO (sel_start.from, to, info); - sel_end.y1 = sel_end.y0 + info.y + info.this.height; - sel_end.to = info.line_to; - } - } - else - { - GLYPH_INFO (sel_start.from, to, info); - sel_end.y0 = sel_start.y0 + sel_start.ascent + info.y + info.this.y; - sel_end.y1 = sel_end.y0 + info.this.height; - sel_end.ascent = - info.this.y; - sel_end.from = info.line_from; - sel_end.to = info.line_to; - } -} - - -/* Select the text in the region from $FROM to $TO. */ -void -select_region (int from, int to) -{ - int pos; - - if (from > to) - pos = from, from = to, to = pos; - mtext_push_property (mt, from, to, selection); - update_selection (); -} - - -/* Setup the window to display the character of $POS at the top left - of the window. */ -void -reseat (int pos) -{ - MDrawMetric rect; - /* Top and bottom Y positions to redraw. */ - int y0, y1; - - if (pos + 1000 < top.from) - y0 = 0, y1 = win_height; - else if (pos < top.from) - { - y0 = 0; - TEXT_EXTENTS (pos, top.from, rect); - if (rect.height >= win_height * 0.9) - y1 = win_height; - else - { - y1 = rect.height; - COPY_AREA (0, win_height - y1, y1); - } - } - else if (pos < top.to) - { - /* No need of redrawing. */ - y0 = y1 = 0; - } - else if (pos < top.from + 1000) - { - TEXT_EXTENTS (top.from, pos, rect); - if (rect.height >= win_height * 0.9) - y0 = 0; - else - { - y0 = win_height - rect.height; - COPY_AREA (rect.height, win_height, 0); - } - y1 = win_height; - } - else - y0 = 0, y1 = win_height; - - if (y0 < y1) - { - update_top (pos); - if (cur.to <= pos) - update_cursor (pos, 1); - else - update_cursor (cursor.from, 1); - update_selection (); - redraw (y0, y1, 1, 1); - } -} - -static void MenuHelpProc (Widget, XEvent *, String *, Cardinal *); - - -/* Select an input method accoding to $IDX. If $IDX is negative, turn - off the current input method, otherwide turn on the input method - input_method_table[$IDX]. */ -void -select_input_method (idx) -{ - if (idx == current_input_method) - return; - if (current_input_context) - { - minput_destroy_ic (current_input_context); - current_input_context = NULL; - current_input_method = -1; - } - if (idx >= 0) - { - InputMethodInfo *im = input_method_table + idx; - - if (im->language == Mnil) - { - MInputXIMArgIC arg_xic; - Window win = XtWindow (TextWidget); - - arg_xic.input_style = 0; - arg_xic.client_win = arg_xic.focus_win = win; - arg_xic.preedit_attrs = arg_xic.status_attrs = NULL; - current_input_context = minput_create_ic (im->im, &arg_xic); - } - else - { - MInputGUIArgIC arg_ic; - - arg_ic.frame = frame; - arg_ic.client = (MDrawWindow) XtWindow (ShellWidget); - arg_ic.focus = (MDrawWindow) XtWindow (TextWidget); - current_input_context = minput_create_ic (im->im, &arg_ic); - } - - if (current_input_context) - { - set_input_method_spot (); - current_input_method = idx; - } - } - if (current_input_method >= 0) - { - char *label; - XtSetArg (arg[0], XtNlabel, &label); - XtGetValues (InputMethodMenus[current_input_method + 2], arg, 1); - XtSetArg (arg[0], XtNlabel, label); - } - else - XtSetArg (arg[0], XtNlabel, ""); - XtSetValues (CurIMLang, arg, 1); -} - -static void MenuHelpProc (Widget w, XEvent *event, String *str, Cardinal *num); - - -/* Display cursor according to the current information of #CUR. - $CLIENT_DATA is ignore. Most callback functions add this function - as a background processing procedure the current application (by - XtAppAddWorkProc) via the function hide_cursor. */ -Boolean -show_cursor (XtPointer client_data) -{ - MFaceHLineProp *hline; - MFaceBoxProp *box; - - if (cur.y0 < 0) - { - reseat (cur.from); - update_cursor (cursor.from, 1); - } - while (cur.y1 > win_height) - { - reseat (top.to); - update_cursor (cursor.from, 1); - } - - control.cursor_pos = cursor.from; - if (! SELECTEDP ()) - { - control.with_cursor = 1; - redraw_cursor (0); - } - if (current_input_context) - set_input_method_spot (); - - { - int pos = (SELECTEDP () ? mtext_property_start (selection) - : cursor.from > 0 ? cursor.from - 1 - : cursor.from); - MFace *face = mface (); - MTextProperty *props[256]; - int n = mtext_get_properties (mt, pos, Mface, props, 256); - int i; - char buf[256], *p = buf; - MSymbol sym; - - buf[0] = '\0'; - if (cursor.font) - { - int size = (int) mfont_get_prop (cursor.font, Msize); - MSymbol family = mfont_get_prop (cursor.font, Mfamily); - MSymbol weight = mfont_get_prop (cursor.font, Mweight); - MSymbol style = mfont_get_prop (cursor.font, Mstyle); - MSymbol registry = mfont_get_prop (cursor.font, Mregistry); - - sprintf (p, "%dpt", size / 10), p += strlen (p); - if (family) - strcat (p, ","), strcat (p, msymbol_name (family)), p += strlen (p); - if (weight) - strcat (p, ","), strcat (p, msymbol_name (weight)), p += strlen (p); - if (style) - strcat (p, ","), strcat (p, msymbol_name (style)), p += strlen (p); - if (registry) - strcat (p, ","), strcat (p, msymbol_name (registry)), p += strlen (p); - p += strlen (p); - } - - mface_merge (face, face_default); - for (i = 0; i < n; i++) - if (props[i] != selection) - mface_merge (face, (MFace *) mtext_property_value (props[i])); - sym = (MSymbol) mface_get_prop (face, Mforeground); - if (sym != Mnil) - strcat (p, ","), strcat (p, msymbol_name (sym)), p += strlen (p); - if ((MSymbol) mface_get_prop (face, Mvideomode) == Mreverse) - strcat (p, ",rev"), p += strlen (p); - hline = mface_get_prop (face, Mhline); - if (hline && hline->width > 0) - strcat (p, ",ul"), p += strlen (p); - box = mface_get_prop (face, Mbox); - if (box && box->width > 0) - strcat (p, ",box"), p += strlen (p); - m17n_object_unref (face); - - XtSetArg (arg[0], XtNborderWidth, 1); - XtSetArg (arg[1], XtNlabel, buf); - XtSetValues (CurFaceWidget, arg, 2); - } - - if (control.cursor_pos < nchars) - { - MSymbol sym = Mnil; - - if (control.cursor_pos > 0 - && mtext_ref_char (mt, control.cursor_pos - 1) != '\n') - sym = mtext_get_prop (mt, control.cursor_pos - 1, Mlanguage); - if (sym == Mnil) - sym = mtext_get_prop (mt, control.cursor_pos, Mlanguage); - - if (sym == Mnil) - { - XtSetArg (arg[0], XtNborderWidth, 0); - XtSetArg (arg[1], XtNlabel, ""); - } - else - { - XtSetArg (arg[0], XtNborderWidth, 1); - XtSetArg (arg[1], XtNlabel, - msymbol_name (msymbol_get (sym, Mlanguage))); - XtSetValues (CurLangWidget, arg, 2); - } - XtSetValues (CurLangWidget, arg, 2); - - if (auto_input_method) - { - if (sym == Mnil) - select_input_method (-1); - else - { - int i; - - for (i = 0; i < num_input_methods; i++) - if (input_method_table[i].language == sym) - break; - if (i < num_input_methods - && input_method_table[i].available >= 0) - { - if (! input_method_table[i].im) - { - input_method_table[i].im = - minput_open_im (input_method_table[i].language, - input_method_table[i].name, NULL); - if (! input_method_table[i].im) - input_method_table[i].available = -1; - } - if (input_method_table[i].im) - select_input_method (i); - else - select_input_method (-1); - } - else - select_input_method (-1); - } - } - } - - MenuHelpProc (MessageWidget, NULL, NULL, NULL); - - return True; -} - - -/* Hide the cursor. */ -void -hide_cursor () -{ - control.with_cursor = 0; - redraw_cursor (1); - XtAppAddWorkProc (context, show_cursor, NULL); -} - - -/* Update the window area between the Y-positions $Y0 and $OLD_Y1 to - $Y1 and $NEW_Y1 assuming that the text in the other area is not - changed. */ -void -update_region (int y0, int old_y1, int new_y1) -{ - if (y0 < 0) - y0 = 0; - if (new_y1 < old_y1) - { - if (old_y1 < win_height) - { - COPY_AREA (old_y1, win_height, new_y1); - redraw (win_height - (old_y1 - new_y1), win_height, 1, 0); - } - else - redraw (new_y1, win_height, 1, 0); - } - else if (new_y1 > old_y1) - { - if (new_y1 < win_height) - COPY_AREA (old_y1, win_height, new_y1); - } - if (new_y1 > win_height) - new_y1 = win_height; - redraw (y0, new_y1, 1, 1); -} - - -/* Delete the next $N characters. If $N is negative delete the - precious (- $N) characters. */ -void -delete_char (int n) -{ - MDrawMetric rect; - MDrawGlyphInfo info; - int old_y1, new_y1; - int from, to; - - if (n > 0) - from = cursor.from, to = from + n; - else - { - if (cursor.from == cur.from) - { - /* We are at the beginning of line. */ - int pos = cursor.prev_from; - - if (cursor.from == top.from) - { - /* We are at the beginning of screen. We must scroll - down. */ - GLYPH_INFO (bol (top.from - 1, 0), top.from - 1, info); - reseat (info.line_from); - } - update_cursor (pos, 1); - from = cursor.from; - to = cursor.to; - } - else - { - from = cursor.from - 1; - to = cursor.from; - } - } - - TEXT_EXTENTS (cur.from, bol (to + 1, 1), rect); - old_y1 = cur.y0 + rect.height; - - /* Now delete a character. */ - mtext_del (mt, from, to); - nchars--; - if (from >= top.from && from < top.to) - update_top (top.from); - update_cursor (from, 1); - - TEXT_EXTENTS (cur.from, bol (to, 1), rect); - new_y1 = cur.y0 + rect.height; - - update_region (cur.y0, old_y1, new_y1); -} - - -/* Insert M-text $NEWTEXT at the current cursor position. */ -void -insert_chars (MText *newtext) -{ - int n = mtext_len (newtext); - MDrawMetric rect; - int y0, old_y1, new_y1; - - if (SELECTEDP ()) - { - int n = (mtext_property_end (selection) - - mtext_property_start (selection)); - mtext_detach_property (selection); - delete_char (n); - } - - y0 = cur.y0; - TEXT_EXTENTS (cur.from, bol (cur.to - 1, 1), rect); - old_y1 = y0 + rect.height; - - /* Now insert chars. */ - mtext_ins (mt, cursor.from, newtext); - nchars += n; - if (cur.from == top.from) - update_top (top.from); - update_cursor (cursor.from + n, 1); - - TEXT_EXTENTS (cur.from, bol (cur.to - 1, 1), rect); - new_y1 = cur.y0 + rect.height; - - update_region (y0, old_y1, new_y1); - update_selection (); -} - - -/* Convert the currently selected text to COMPOUND-TEXT. It is called - when someone requests the current value of the selection. */ -Boolean -covert_selection (Widget w, Atom *selection_atom, - Atom *target, Atom *return_type, - XtPointer *value, unsigned long *length, int *format) -{ - unsigned char *buf = (unsigned char *) XtMalloc (4096); - MText *this_mt = mtext (); - int from = mtext_property_start (selection); - int to = mtext_property_end (selection); - - mtext_copy (this_mt, 0, mt, from, to); - *length = mconv_encode_buffer (msymbol ("compound-text"), - this_mt, buf, 4096); - *return_type = XA_COMPOUND_TEXT; - *value = (XtPointer) buf; - *format = 8; - m17n_object_unref (this_mt); - return True; -} - - -/* Unselect the text. It is called when we loose the selection. */ -void -lose_selection (Widget w, Atom *selection_atom) -{ - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0); - } -} - -void -get_selection (Widget w, XtPointer cliend_data, Atom *selection, Atom *type, - XtPointer value, unsigned long *length, int *format) -{ - MText *this_mt; - MSymbol coding; - - if (*type == XT_CONVERT_FAIL || ! value) - goto err; - if (*type == XA_STRING) - coding = Mnil; - else if (*type == XA_COMPOUND_TEXT) - coding = msymbol ("compound-text"); - else if (*type == XA_UTF8_STRING) - coding = msymbol ("utf-8"); - else - goto err; - - this_mt = mconv_decode_buffer (coding, (unsigned char *) value, *length); - if (this_mt) - { - hide_cursor (); - insert_chars (this_mt); - m17n_object_unref (this_mt); - } - - err: - if (value) - XtFree (value); -} - -static void -ExposeProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - XExposeEvent *expose = (XExposeEvent *) event; - - if (top.from < 0) - { - Dimension width_max, width; - - XtSetArg (arg[0], XtNwidth, &width); - XtGetValues (XtParent (w), arg, 1); - width_max = width; - XtGetValues (HeadWidget, arg, 1); - if (width_max < width) - width_max = width; - XtGetValues (FaceWidget, arg, 1); - if (width_max < width) - width_max = width; - XtGetValues (LangWidget, arg, 1); - if (width_max < width) - width_max = width; - XtSetArg (arg[0], XtNwidth, width_max); - XtSetValues (HeadWidget, arg, 1); - XtSetValues (FaceWidget, arg, 1); - XtSetValues (LangWidget, arg, 1); - XtSetValues (XtParent (w), arg, 1); - XtSetValues (TailWidget, arg, 1); - - update_top (0); - update_cursor (0, 1); - redraw (0, win_height, 0, 1); - show_cursor (NULL); - } - else - { - redraw (expose->y, expose->y + expose->height, 0, 0); - if (current_input_context - && expose->y < cur.y0 && expose->y + expose->height < cur.y1) - set_input_method_spot (); - } -} - -static void -ConfigureProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - XConfigureEvent *configure = (XConfigureEvent *) event; - - hide_cursor (); - control.max_line_width = win_width = configure->width; - win_height = configure->height; - mdraw_clear_cache (mt); - update_top (0); - update_cursor (0, 1); - redraw (0, win_height, 1, 1); - if (current_input_context) - set_input_method_spot (); -} - -static void -ButtonProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - int pos; - int x = event->xbutton.x; - int y = event->xbutton.y - top.ascent; - - if (control.orientation_reversed) - x -= win_width; - pos = COORDINATES_POSITION (top.from, nchars + 1, x, y); - if (SELECTEDP ()) - { - XtDisownSelection (w, XA_PRIMARY, CurrentTime); - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0); - } - hide_cursor (); - update_cursor (pos, 0); -} - - -static void -ButtonReleaseProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - if (! SELECTEDP ()) - return; - - XtOwnSelection (w, XA_PRIMARY, CurrentTime, - covert_selection, lose_selection, NULL); - update_cursor (mtext_property_start (selection), 0); -} - -static -void -Button2Proc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - if (! SELECTEDP ()) - { - /* We don't have a local selection. */ - XtGetSelectionValue (w, XA_PRIMARY, XA_TEXT, get_selection, NULL, - CurrentTime); - } - else - { - int from = mtext_property_start (selection); - int to = mtext_property_end (selection); - MText *this_mt; - int pos; - int x = event->xbutton.x; - int y = event->xbutton.y - top.ascent; - - if (control.orientation_reversed) - x -= win_width; - pos = COORDINATES_POSITION (top.from, nchars + 1, x, y); - - XtDisownSelection (w, XA_PRIMARY, CurrentTime); - mtext_detach_property (selection); - hide_cursor (); - this_mt = mtext_copy (mtext (), 0, mt, from, to); - update_cursor (pos, 0); - insert_chars (this_mt); - m17n_object_unref (this_mt); - } -} - -static void -ButtonMoveProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - int pos; - int x = event->xbutton.x; - int y = event->xbutton.y; - - if (control.orientation_reversed) - x -= win_width; - if (y < cur.y0) - pos = top.from, y -= top.ascent; - else - pos = cur.from, y -= cur.y0 + cur.ascent; - pos = COORDINATES_POSITION (pos, nchars + 1, x, y); - - if (pos == cursor.from) - return; - - hide_cursor (); - if (SELECTEDP ()) - { - /* Selection range changed. */ - int from = mtext_property_start (selection); - int to = mtext_property_end (selection); - int start_y0 = sel_start.y0, start_y1 = sel_start.y1; - int end_y0 = sel_end.y0, end_y1 = sel_end.y1; - - if (cursor.from == from) - { - /* Starting position changed. */ - if (pos <= from) - { - /* Enlarged. We can simply overdraw. */ - select_region (pos, to); - redraw (sel_start.y0, start_y1, 0, 0); - } - else if (pos < to) - { - /* Shrunken. Previous selection face must be cleared. */ - select_region (pos, to); - redraw (start_y0, sel_start.y1, 1, 0); - } - else if (pos == to) - { - /* Shrunken to zero. */ - XtDisownSelection (w, XA_PRIMARY, CurrentTime); - mtext_detach_property (selection); - redraw (start_y0, end_y1, 1, 0); - } - else - { - /* Full update is necessary. */ - select_region (to, pos); - redraw (start_y0, sel_end.y1, 1, 0); - } - } - else - { - /* Ending position changed. */ - if (pos < from) - { - /* Full update is necessary. */ - select_region (pos, from); - redraw (sel_start.y0, end_y1, 1, 0); - } - else if (pos == from) - { - /* Shrunken to zero. */ - XtDisownSelection (w, XA_PRIMARY, CurrentTime); - mtext_detach_property (selection); - redraw (start_y0, end_y1, 1, 0); - } - else if (pos < to) - { - /* Shrunken. Previous selection face must be cleared. */ - select_region (from, pos); - redraw (sel_end.y0, end_y1, 1, 0); - } - else - { - /* Enlarged. We can simply overdraw. */ - select_region (from, pos); - redraw (end_y0, sel_end.y1, 0, 0); - } - } - } - else - { - /* Newly selected. */ - select_region (pos, cursor.from); - redraw (sel_start.y0, sel_end.y1, 0, 0); - } - update_cursor (pos, 1); -} - -void -ScrollProc (Widget w, XtPointer client_data, XtPointer position) -{ - int from; - MDrawGlyphInfo info; - int height; - int cursor_pos = cursor.from; - - if (((int) position) < 0) - { - /* Scroll down. */ - int pos; - - from = top.from; - height = top.y1 - top.y0; - while (from > 0) - { - pos = bol (from - 1, 0); - GLYPH_INFO (pos, from - 1, info); - if (height + info.this.height > win_height) - break; - height += info.this.height; - from = info.line_from; - } - if (cursor_pos >= top.to) - { - cursor_pos = top.from; - pos = top.to; - while (cursor_pos < nchars) - { - GLYPH_INFO (pos, pos, info); - if (height + info.this.height > win_height) - break; - height += info.this.height; - cursor_pos = pos; - pos = info.line_to; - } - } - } - else if (cur.to < nchars) - { - /* Scroll up, but leave at least one line. */ - from = cur.to; - height = cur.y1; - while (from < nchars) - { - GLYPH_INFO (from, from, info); - if (height + info.this.height > win_height - || info.line_to >= nchars) - break; - height += info.this.height; - from = info.line_to; - } - if (from == nchars) - from = info.line_from; - if (cursor_pos < from) - cursor_pos = from; - } - else - /* Scroll up to make the cursor line top. */ - from = cur.from; - hide_cursor (); - reseat (from); - update_cursor (cursor_pos, 1); -} - -void -JumpProc (Widget w, XtPointer client_data, XtPointer persent_ptr) -{ - float persent = *(float *) persent_ptr; - int pos1, pos2 = nchars * persent; - MDrawGlyphInfo info; - - hide_cursor (); - pos1 = bol (pos2, 0); - GLYPH_INFO (pos1, pos2, info); - pos1 = info.line_from; - reseat (pos1); - update_cursor (pos1, 1); -} - - -static void -KeyProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - XKeyEvent *key_event = (XKeyEvent *) event; - char buf[512]; - KeySym keysym = NoSymbol; - int ret; - /* If set to 1, do not update target_x_position. */ - int keep_target_x_position = 0; - MText *produced; - - if (current_input_context - && minput_filter (current_input_context, Mnil, event)) - return; - if (event->type == KeyRelease) - return; - - hide_cursor (); - - produced = mtext (); - ret = minput_lookup (current_input_context, Mnil, event, produced); - if (mtext_len (produced) > 0) - insert_chars (produced); - if (ret) - ret = XLookupString (key_event, buf, sizeof (buf), &keysym, NULL); - m17n_object_unref (produced); - - switch (keysym) - { - case XK_Delete: - { - int n = 0; - - if (SELECTEDP ()) - { - n = (mtext_property_end (selection) - - mtext_property_start (selection)); - mtext_detach_property (selection); - } - else if (cursor.from < nchars) - { - /* Delete the following grapheme cluster. */ - n = cursor.to - cursor.from; - } - if (n != 0) - delete_char (n); - } - break; - - case XK_BackSpace: - { - int n = 0; - - if (SELECTEDP ()) - { - /* Delete selected region. */ - n = (mtext_property_end (selection) - - mtext_property_start (selection)); - mtext_detach_property (selection); - } - else if (cursor.from > 0) - { - /* Delete the preceding character. */ - n = -1; - } - if (n != 0) - delete_char (n); - } - break; - - case XK_Left: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (logical_move) - { - if (cursor.prev_from >= 0) - update_cursor (cursor.prev_from, 0); - } - else - { - if (cursor.left_from >= 0) - update_cursor (cursor.left_from, 0); - } - break; - - case XK_Right: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (logical_move) - { - if (cursor.next_to >= 0) - update_cursor (cursor.to, 0); - } - else - { - if (cursor.right_from >= 0) - update_cursor (cursor.right_from, 0); - } - break; - - case XK_Down: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (cur.to <= nchars) - { - MDrawGlyphInfo info; - int pos; - - GLYPH_INFO (cur.from, cur.to, info); - pos = COORDINATES_POSITION (cur.from, nchars + 1, - target_x_position, info.y); - keep_target_x_position = 1; - update_cursor (pos, 0); - } - break; - - case XK_Up: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (cur.from > 0) - { - MDrawMetric rect; - int y; - int pos = bol (cur.from - 1, 0); - - TEXT_EXTENTS (pos, cur.from - 1, rect); - y = rect.height + rect.y - 1; - pos = COORDINATES_POSITION (pos, nchars, - target_x_position, y); - keep_target_x_position = 1; - update_cursor (pos, 0); - } - break; - - case XK_Page_Down: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (top.from < nchars) - ScrollProc (w, NULL, (XtPointer) 1); - break; - - case XK_Page_Up: - if (SELECTEDP ()) - { - mtext_detach_property (selection); - redraw (sel_start.y0, sel_end.y1, 1, 0);; - } - if (top.from > 0) - ScrollProc (w, NULL, (XtPointer) -1); - break; - - default: - if (ret > 0) - { - if (buf[0] == 17) /* C-q */ - { - XtAppSetExitFlag (context); - return; - } - else if (buf[0] == 12) /* C-l */ - { - redraw (0, win_height, 1, 1); - return; - } - else - { - MText *temp = mtext (); - - mtext_cat_char (temp, buf[0] == '\r' ? '\n' : buf[0]); - if (current_input_context) - mtext_put_prop (temp, 0, 1, Mlanguage, - current_input_context->im->language); - insert_chars (temp); - m17n_object_unref (temp); - } - } - } - - if (! keep_target_x_position) - target_x_position = cursor.x; -} - -void -SaveProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - char *name = (char *) client_data; - FILE *fp; - int from = -1, to = 0; - - if (name) - { - free (filename); - filename = strdup (name); - } - - fp = fopen (filename, "w"); - if (! fp) - { - fprintf (stderr, "Open for write fail: %s", filename); - return; - } - - if (SELECTEDP ()) - { - from = mtext_property_start (selection); - to = mtext_property_end (selection); - mtext_detach_property (selection); - } - - mconv_encode_stream (Mcoding_utf_8, mt, fp); - fclose (fp); - if (from >= 0) - select_region (from, to); -} - -void -SerializeProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - MText *new; - - hide_cursor (); - if (SELECTEDP ()) - mtext_detach_property (selection); - serialized = (int) client_data; - if (! serialized) - new = mtext_deserialize (mt); - else - { - MPlist *plist = mplist (); - - mplist_push (plist, Mt, Mface); - mplist_push (plist, Mt, Mlanguage); - new = mtext_serialize (mt, 0, mtext_len (mt), plist); - m17n_object_unref (plist); - } - if (new) - { - m17n_object_unref (mt); - mt = new; - serialized = ! serialized; - nchars = mtext_len (mt); - update_top (0); - } - update_cursor (0, 1); - redraw (0, win_height, 1, 1); -} - -void -QuitProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - XtAppSetExitFlag (context); -} - -MText * -read_file () -{ - FILE *fp = fopen (filename, "r"); - - if (! fp) - FATAL_ERROR ("Can't read \"%s\"!\n", filename); - mt = mconv_decode_stream (Mcoding_utf_8, fp); - fclose (fp); - if (! mt) - FATAL_ERROR ("Can't decode \"%s\" by UTF-8!\n", filename); - return mt; -} - -void -BidiProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int data = (int) client_data; - int i; - - if (data == 0) - { - control.enable_bidi = 0; - control.orientation_reversed = 0; - } - else - { - control.enable_bidi = 1; - control.orientation_reversed = data == 2; - } - for (i = 0; i < 3; i++) - { - if (i == data) - XtSetArg (arg[0], XtNleftBitmap, CheckPixmap); - else - XtSetArg (arg[0], XtNleftBitmap, None); - XtSetValues (BidiMenus[i], arg, 1); - } - - update_cursor (cursor.from, 1); - redraw (0, win_height, 1, 0); -} - -extern int line_break (MText *mt, int pos, int from, int to, int line, int y); - -void -LineBreakProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int data = (int) client_data; - int i; - - if (data == 0) - control.max_line_width = 0; - else - { - control.max_line_width = win_width; - control.line_break = (data == 1 ? NULL : line_break); - } - for (i = 0; i < 3; i++) - { - if (i == data) - XtSetArg (arg[0], XtNleftBitmap, CheckPixmap); - else - XtSetArg (arg[0], XtNleftBitmap, None); - XtSetValues (LineBreakMenus[i], arg, 1); - } - - update_cursor (cursor.from, 1); - redraw (0, win_height, 1, 0); -} - -void -CursorProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int data = (int) client_data; - int i, from, to; - - switch (data) - { - case 0: - logical_move = 1; - from = 0, to = 2; - break; - case 1: - logical_move = 0; - from = 0, to = 2; - break; - case 2: - control.cursor_bidi = 0, control.cursor_width = -1; - from = 2, to = 5; - break; - case 3: - control.cursor_bidi = 0, control.cursor_width = 2; - from = 2, to = 5; - break; - default: - control.cursor_bidi = 1; - from = 2, to = 5; - break; - } - - for (i = from; i < to; i++) - { - if (i == data) - XtSetArg (arg[0], XtNleftBitmap, CheckPixmap); - else - XtSetArg (arg[0], XtNleftBitmap, None); - XtSetValues (CursorMenus[i], arg, 1); - } - - redraw (0, win_height, 1, 0); -} - -static void -InputMethodProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int idx = (int) client_data; - - if (idx == -2 ? current_input_method < 0 - : idx == -1 ? auto_input_method - : idx == current_input_method) - return; - - XtSetArg (arg[0], XtNleftBitmap, None); - if (auto_input_method) - { - XtSetValues (InputMethodMenus[1], arg, 1); - auto_input_method = 0; - } - else if (current_input_method < 0) - XtSetValues (InputMethodMenus[0], arg, 1); - else - XtSetValues (InputMethodMenus[current_input_method + 2], arg, 1); - - if (idx == -1) - { - auto_input_method = 1; - hide_cursor (); - } - else if (input_method_table[idx].available >= 0) - { - if (! input_method_table[idx].im) - { - input_method_table[idx].im = - minput_open_im (input_method_table[idx].language, - input_method_table[idx].name, NULL); - if (! input_method_table[idx].im) - input_method_table[idx].available = -1; - } - if (input_method_table[idx].im) - select_input_method (idx); - } - XtSetArg (arg[0], XtNleftBitmap, CheckPixmap); - XtSetValues (InputMethodMenus[idx + 2], arg, 1); -} - -MPlist *default_face_list; - -void -FaceProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int idx = (int) client_data; - int from, to; - int old_y1; - - if (! SELECTEDP ()) - { - MPlist *plist; - - if (idx >= 0) - { - MFace *face = mframe_get_prop (frame, Mface); - - for (plist = default_face_list; mplist_key (plist) != Mnil; - plist = mplist_next (plist)) - mface_merge (face, mplist_value (plist)); - mplist_add (plist, Mt, *face_table[idx].face); - mface_merge (face, *face_table[idx].face); - } - else if (mplist_key (mplist_next (default_face_list)) != Mnil) - { - MFace *face = mframe_get_prop (frame, Mface); - - for (plist = default_face_list; - mplist_key (mplist_next (plist)) != Mnil; - plist = mplist_next (plist)) - mface_merge (face, mplist_value (plist)); - mplist_pop (plist); - } - update_top (0); - update_cursor (0, 1); - redraw (0, win_height, 1, 1); - show_cursor (NULL); - return; - } - - XtAppAddWorkProc (context, show_cursor, NULL); - from = mtext_property_start (selection); - to = mtext_property_end (selection); - old_y1 = sel_end.y1; - - mtext_detach_property (selection); - if (idx >= 0) - { - MTextProperty *prop = mtext_property (Mface, *face_table[idx].face, - MTEXTPROP_REAR_STICKY); - mtext_push_property (mt, from, to, prop); - m17n_object_unref (prop); - } - else - mtext_pop_prop (mt, from, to, Mface); - if (from < top.to) - update_top (top.from); - update_cursor (cursor.from, 1); - select_region (from, to); - update_region (sel_start.y0, old_y1, sel_end.y1); - if (cur.y1 > win_height) - { - while (cur.y1 > win_height) - { - reseat (top.to); - update_cursor (cursor.from, 1); - } - } -} - -void -LangProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - MSymbol sym = (MSymbol) client_data; - int from, to; - int old_y1; - - if (! SELECTEDP ()) - return; - - XtAppAddWorkProc (context, show_cursor, NULL); - from = mtext_property_start (selection); - to = mtext_property_end (selection); - old_y1 = sel_end.y1; - - mtext_detach_property (selection); - if (sym != Mnil) - mtext_put_prop (mt, from, to, Mlanguage, sym); - else - mtext_pop_prop (mt, from, to, Mlanguage); - - if (from < top.to) - update_top (top.from); - update_cursor (cursor.from, 1); - select_region (from, to); - update_region (sel_start.y0, old_y1, sel_end.y1); - if (cur.y1 > win_height) - { - while (cur.y1 > win_height) - { - reseat (top.to); - update_cursor (cursor.from, 1); - } - } -} - -void -DumpImageProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - int narrowed = (int) client_data; - FILE *mdump; - int from, to; - MConverter *converter; - - if (narrowed) - { - if (! SELECTEDP ()) - return; - from = mtext_property_start (selection); - to = mtext_property_end (selection); - } - else - { - from = 0; - to = nchars; - } - - if (! narrowed) - mdump = popen ("mdump -q -p a4", "w"); - else - mdump = popen ("mdump -q", "w"); - if (! mdump) - return; - converter = mconv_stream_converter (Mcoding_utf_8, mdump); - mconv_encode_range (converter, mt, from, to); - mconv_free_converter (converter); - fclose (mdump); -} - -void -input_status (MInputContext *ic, MSymbol command) -{ - XFillRectangle (display, input_status_pixmap, gc_inv, - 0, 0, input_status_width, input_status_height); - if (command == Minput_status_draw) - { - MDrawMetric rect; - - mtext_put_prop (ic->status, 0, mtext_len (ic->status), - Mface, face_input_status); - if (ic->im->language != Mnil) - mtext_put_prop (ic->status, 0, mtext_len (ic->status), - Mlanguage, ic->im->language); - mdraw_text_extents (frame, ic->status, 0, mtext_len (ic->status), - &input_status_control, NULL, NULL, &rect); - mdraw_text_with_control (frame, (MDrawWindow) input_status_pixmap, - input_status_width - rect.width - 2, - rect.y, - ic->status, 0, mtext_len (ic->status), - &input_status_control); - } - XtSetArg (arg[0], XtNbitmap, input_status_pixmap); - XtSetValues (CurIMStatus, arg, 1); -} - -int -compare_input_method (const void *elt1, const void *elt2) -{ - const InputMethodInfo *im1 = elt1; - const InputMethodInfo *im2 = elt2; - MSymbol lang1, lang2; - - if (im1->language == Mnil) - return 1; - if (im1->language == im2->language) - return strcmp (msymbol_name (im1->name), msymbol_name (im2->name)); - if (im1->language == Mt) - return 1; - if (im2->language == Mt) - return -1; - lang1 = msymbol_get (im1->language, Mlanguage); - lang2 = msymbol_get (im2->language, Mlanguage); - return strcmp (msymbol_name (lang1), msymbol_name (lang2)); -} - -void -setup_input_methods (int with_xim) -{ - MInputMethod *im = NULL; - MPlist *plist = mdatabase_list (msymbol ("input-method"), Mnil, Mnil, Mnil); - MPlist *pl; - int i = 0; - - num_input_methods = mplist_length (plist); - - if (with_xim) - { - MInputXIMArgIM arg_xim; - - arg_xim.display = display; - arg_xim.db = NULL; - arg_xim.res_name = arg_xim.res_class = NULL; - arg_xim.locale = NULL; - arg_xim.modifier_list = NULL; - im = minput_open_im (Mnil, msymbol ("xim"), &arg_xim); - if (im) - num_input_methods++; - } - input_method_table = calloc (num_input_methods, sizeof (InputMethodInfo)); - if (im) - { - input_method_table[i].available = 1; - input_method_table[i].language = Mnil; - input_method_table[i].name = im->name; - input_method_table[i].im = im; - i++; - } - - for (pl = plist; mplist_key (pl) != Mnil; pl = mplist_next (pl)) - { - MDatabase *mdb = mplist_value (pl); - MSymbol *tag = mdatabase_tag (mdb); - - if (tag[1] != Mnil) - { - input_method_table[i].language = tag[1]; - input_method_table[i].name = tag[2]; - i++; - } - } - - m17n_object_unref (plist); - num_input_methods = i; - qsort (input_method_table, num_input_methods, sizeof input_method_table[0], - compare_input_method); - current_input_context = NULL; - - mplist_put (minput_driver->callback_list, Minput_status_start, - (void *) input_status); - mplist_put (minput_driver->callback_list, Minput_status_draw, - (void *) input_status); - mplist_put (minput_driver->callback_list, Minput_status_done, - (void *) input_status); -} - - -static void -MenuHelpProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - char *msg; - - if (num && *num > 0) - { - int bytes = 0, i; - - for (i = 0; i < *num; i++) - bytes += strlen (str[i]) + 1; - msg = alloca (bytes); - strcpy (msg, str[0]); - for (i = 1; i < *num; i++) - strcat (msg, " "), strcat (msg, str[i]); - } - else if (cursor.from < nchars) - { - int c = mtext_ref_char (mt, cursor.from); - char *name = mchar_get_prop (c, Mname); - - if (! name) - name = ""; - msg = alloca (10 + strlen (name)); - sprintf (msg, "U+%04X %s", c, name); - } - else - { - msg = ""; - } - XtSetArg (arg[0], XtNlabel, msg); - XtSetValues (MessageWidget, arg, 1); -} - -typedef struct -{ - int type; - char *name1, *name2; - XtCallbackProc proc; - XtPointer client_data; - int status; - Widget w; -} MenuRec; - -void PopupProc (Widget w, XtPointer client_data, XtPointer call_data); - -void SaveProc (Widget w, XtPointer client_data, XtPointer call_data); - -MenuRec FileMenu[] = - { { 0, "Open", NULL, PopupProc, FileMenu + 0, -1 }, - { 0, "Save", NULL, SaveProc, NULL, -1 }, - { 0, "Save as", NULL, PopupProc, FileMenu + 2, -1 }, - { 1 }, - { 0, "Serialize", NULL, SerializeProc, (void *) 1, -1 }, - { 0, "Deserialize", NULL, SerializeProc, (void *) 0, -1 }, - { 1 }, - { 0, "Dump Image Buffer", NULL, DumpImageProc, (void *) 0, -1 }, - { 0, "Dump Image Region", NULL, DumpImageProc, (void *) 1, -1 }, - { 1 }, - { 0, "Quit", NULL, QuitProc, NULL, -1 } }; - -void -PopupProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - MenuRec *rec = (MenuRec *) client_data; - Position x, y; - - XtSetArg (arg[0], XtNvalue, ""); - XtSetArg (arg[1], XtNlabel, rec->name1); - XtSetValues (FileDialogWidget, arg, 2); - XtTranslateCoords (w, (Position) 0, (Position) 0, &x, &y); - XtSetArg (arg[0], XtNx, x + 20); - XtSetArg (arg[1], XtNy, y + 10); - XtSetValues (FileShellWidget, arg, 2); - XtPopup (FileShellWidget, XtGrabExclusive); -} - -void -FileDialogProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - FILE *fp; - char *label; - - XtPopdown (FileShellWidget); - if ((int) client_data == 1) - return; - XtSetArg (arg[0], XtNlabel, &label); - XtGetValues (FileDialogWidget, arg, 1); - if (strcmp (label, FileMenu[0].name1) == 0) - { - /* Open a file */ - free (filename); - filename = strdup ((char *) XawDialogGetValueString (FileDialogWidget)); - fp = fopen (filename, "r"); - hide_cursor (); - m17n_object_unref (mt); - if (fp) - { - mt = mconv_decode_stream (Mcoding_utf_8, fp); - fclose (fp); - if (! mt) - mt = mtext (); - } - else - mt = mtext (); - serialized = 0; - nchars = mtext_len (mt); - update_top (0); - update_cursor (0, 1); - redraw (0, win_height, 1, 1); - } - else if (strcmp (label, FileMenu[2].name1) == 0) - SaveProc (w, (XtPointer) XawDialogGetValueString (FileDialogWidget), NULL); - else - fprintf (stderr, "Invalid calling sequence: FileDialogProc\n"); -} - -#define SetMenu(MENU, TYPE, NAME1, NAME2, PROC, DATA, STATUS) \ - ((MENU).type = (TYPE), (MENU).name1 = (NAME1), (MENU).name2 = (NAME2), \ - (MENU).proc = (PROC), (MENU).client_data = (XtPointer) (DATA), \ - (MENU).status = (STATUS)) - - -Widget -create_menu_button (Widget top, Widget parent, Widget left, char *button_name, - char *menu_name, MenuRec *menus, int num_menus, char *help) -{ - Widget button, menu; - char *fmt = ": highlight() MenuHelp(%s)\n\ - : reset() MenuHelp()\n\ - : reset() PopupMenu()\n\ - : highlight()"; - int i; - MenuRec *m; - char *trans; - int max_width = 0; - - menu = XtCreatePopupShell (menu_name, simpleMenuWidgetClass, top, NULL, 0); - for (i = 0; i < num_menus; i++) - { - m = menus + i; - if (m->type == 0) - { - if (m->proc) - { - int n = 0; - - if (m->status >= 0) - { - XtSetArg (arg[n], XtNleftMargin, 20), n++; - if (m->status > 0) - XtSetArg (arg[n], XtNleftBitmap, CheckPixmap), n++; - } - m->w = XtCreateManagedWidget (m->name1, smeBSBObjectClass, - menu, arg, n); - XtAddCallback (m->w, XtNcallback, m->proc, m->client_data); - } - else - { - XtSetArg (arg[0], XtNsensitive, False); - m->w = XtCreateManagedWidget (m->name1, smeBSBObjectClass, - menu, arg, 2); - } - } - else - { - XtCreateManagedWidget (m->name1, smeLineObjectClass, menu, NULL, 0); - } - if (m->name2) - max_width = 1; - } - trans = alloca (strlen (fmt) + strlen (help)); - sprintf (trans, fmt, help); - XtSetArg (arg[0], XtNmenuName, menu_name); - XtSetArg (arg[1], XtNtranslations, XtParseTranslationTable ((String) trans)); - XtSetArg (arg[2], XtNinternalWidth, 2); - XtSetArg (arg[3], XtNhighlightThickness, 1); - XtSetArg (arg[4], XtNleft, XawChainLeft); - XtSetArg (arg[5], XtNright, XawChainLeft); - i = 6; - if (left) - XtSetArg (arg[i], XtNfromHoriz, left), i++; - button = XtCreateManagedWidget (button_name, menuButtonWidgetClass, parent, - arg, i); - - if (max_width) - { - int height, ascent, *width = alloca (sizeof (int) * num_menus); - int *len = alloca (sizeof (int) * num_menus); - - XFontSet font_set; - XFontSetExtents *fontset_extents; - - XtSetArg (arg[0], XtNfontSet, &font_set); - XtGetValues (button, arg, 1); - - fontset_extents = XExtentsOfFontSet (font_set); - height = fontset_extents->max_logical_extent.height; - ascent = - fontset_extents->max_logical_extent.y; - - for (i = 0; i < num_menus; i++) - if (menus[i].name2) - { - len[i] = strlen (menus[i].name2); - width[i] = XmbTextEscapement (font_set, menus[i].name2, len[i]); - if (max_width < width[i]) - max_width = width[i]; - } - for (i = 0; i < num_menus; i++) - if (menus[i].name2) - { - Pixmap pixmap = XCreatePixmap (display, - RootWindow (display, screen), - max_width, height, 1); - XFillRectangle (display, pixmap, mono_gc_inv, - 0, 0, max_width, height); - XmbDrawString (display, pixmap, font_set, mono_gc, - max_width - width[i], ascent, - menus[i].name2, len[i]); - XtSetArg (arg[0], XtNrightBitmap, pixmap); - XtSetArg (arg[1], XtNrightMargin, max_width + 20); - XtSetValues (menus[i].w, arg, 2); - } - } - - return button; -} - - -XtActionsRec actions[] = { - {"Expose", ExposeProc}, - {"Configure", ConfigureProc}, - {"Key", KeyProc}, - {"ButtonPress", ButtonProc}, - {"ButtonRelease", ButtonReleaseProc}, - {"ButtonMotion", ButtonMoveProc}, - {"Button2Press", Button2Proc}, - {"MenuHelp", MenuHelpProc} -}; - - -/* Print the usage of this program (the name is PROG), and exit with - EXIT_CODE. */ - -void -help_exit (char *prog, int exit_code) -{ - char *p = prog; - - while (*p) - if (*p++ == '/') - prog = p; - - printf ("Usage: %s [ XT-OPTION ...] [ OPTION ...] FILE\n", prog); - printf ("Display FILE on a window and allow users to edit it.\n"); - printf ("XT-OPTIONs are standard Xt arguments (e.g. -fn, -fg).\n"); - printf ("The following OPTIONs are available.\n"); - printf (" %-13s %s", "--version", "print version number\n"); - printf (" %-13s %s", "-h, --help", "print this message\n"); - exit (exit_code); -} - -int -main (int argc, char **argv) -{ - Widget form, BodyWidget, w; - char *fontset_name = NULL; - int col = 80, row = 32; - /* Translation table for TextWidget. */ - String trans = ": Expose()\n\ - : Configure()\n\ - : Key()\n\ - : Key()\n\ - : ButtonPress()\n\ - : ButtonRelease()\n\ - : ButtonMotion()\n\ - : Button2Press()"; - /* Translation table for the top form widget. */ - String trans2 = ": Key()\n\ - : Key()"; - String pop_face_trans - = ": MenuHelp(Pop face property) highlight()\n\ - : MenuHelp() reset()\n\ - : set()\n\ - : notify() unset()"; - String pop_lang_trans - = ": MenuHelp(Pop language property) highlight()\n\ - : MenuHelp() reset()\n\ - : set()\n\ - : notify() unset()"; - int font_width, font_ascent, font_descent; - int with_xim = 0; - int i, j; - - setlocale (LC_ALL, ""); - /* Create the top shell. */ - XtSetLanguageProc (NULL, NULL, NULL); - ShellWidget = XtOpenApplication (&context, "MEdit", NULL, 0, &argc, argv, - NULL, sessionShellWidgetClass, NULL, 0); - display = XtDisplay (ShellWidget); - screen = XScreenNumberOfScreen (XtScreen (ShellWidget)); - - /* Parse the remaining command line arguments. */ - for (i = 1; i < argc; i++) - { - if (! strcmp (argv[i], "--help") - || ! strcmp (argv[i], "-h")) - help_exit (argv[0], 0); - else if (! strcmp (argv[i], "--version")) - { - printf ("medit (m17n library) %s\n", VERSION); - printf ("Copyright (C) 2003 AIST, JAPAN\n"); - exit (0); - } - else if (! strcmp (argv[i], "--geometry")) - { - i++; - if (sscanf (argv[i], "%dx%d", &col, &row) != 2) - help_exit (argv[0], 1); - } - else if (! strcmp (argv[i], "--fontset")) - { - i++; - fontset_name = strdup (argv[i]); - } - else if (! strcmp (argv[i], "--with-xim")) - { - with_xim = 1; - } - else if (argv[i][0] != '-') - { - filename = strdup (argv[i]); - } - else - { - fprintf (stderr, "Unknown option: %s", argv[i]); - help_exit (argv[0], 1); - } - } - if (! filename) - help_exit (argv[0], 1); - - mdatabase_dir = "."; - /* Initialize the m17n library. */ - M17N_INIT (); - if (merror_code != MERROR_NONE) - FATAL_ERROR ("%s\n", "Fail to initialize the m17n library!"); - - mt = read_file (filename); - serialized = 0; - - nchars = mtext_len (mt); - - { - MFace *face = mface (); - - mface_put_prop (face, Mforeground, msymbol ("blue")); - mface_put_prop (face, Mbackground, msymbol ("yellow")); - mface_put_prop (face, Mvideomode, Mreverse); - selection = mtext_property (Mface, face, MTEXTPROP_NO_MERGE); - m17n_object_unref (face); - } - - /* This tells ExposeProc to initialize everything. */ - top.from = -1; - - XA_TEXT = XInternAtom (display, "TEXT", False); - XA_COMPOUND_TEXT = XInternAtom (display, "COMPOUND_TEXT", False); - XA_UTF8_STRING = XInternAtom (display, "UTF8_STRING", False); - { - MPlist *plist = mplist (); - MFace *face; - MFont *font; - - mplist_put (plist, msymbol ("widget"), ShellWidget); - if (fontset_name) - { - MFontset *fontset = mfontset (fontset_name); - - face = mface (); - mface_put_prop (face, Mfontset, fontset); - m17n_object_unref (fontset); - mplist_add (plist, Mface, face); - m17n_object_unref (face); - } - frame = mframe (plist); - m17n_object_unref (plist); - face_default = mface_copy ((MFace *) mframe_get_prop (frame, Mface)); - default_face_list = mplist (); - mplist_add (default_face_list, Mt, face_default); - face_default_fontset = mface (); - mface_put_prop (face_default_fontset, Mfontset, - mface_get_prop (face_default, Mfontset)); - - font = (MFont *) mframe_get_prop (frame, Mfont); - default_font_size = (int) mfont_get_prop (font, Msize); - } - - font_width = (int) mframe_get_prop (frame, Mfont_width); - font_ascent = (int) mframe_get_prop (frame, Mfont_ascent); - font_descent = (int) mframe_get_prop (frame, Mfont_descent); - win_width = font_width * col; - win_height = (font_ascent + font_descent) * row; - - { - MFaceBoxProp prop; - - prop.width = 4; - prop.color_top = prop.color_left = msymbol ("magenta"); - prop.color_bottom = prop.color_right = msymbol ("red"); - prop.inner_hmargin = prop.inner_vmargin = 1; - prop.outer_hmargin = prop.outer_vmargin = 2; - - face_box = mface (); - mface_put_prop (face_box, Mbox, &prop); - } - - face_courier = mface (); - mface_put_prop (face_courier, Mfamily, msymbol ("courier")); - face_helvetica = mface (); - mface_put_prop (face_helvetica, Mfamily, msymbol ("helvetica")); - face_times = mface (); - mface_put_prop (face_times, Mfamily, msymbol ("times")); - face_dv_ttyogesh = mface (); - mface_put_prop (face_dv_ttyogesh, Mfamily, msymbol ("dv-ttyogesh")); - face_freesans = mface (); - mface_put_prop (face_freesans, Mfamily, msymbol ("freesans")); - face_freeserif = mface (); - mface_put_prop (face_freeserif, Mfamily, msymbol ("freeserif")); - face_freemono = mface (); - mface_put_prop (face_freemono, Mfamily, msymbol ("freemono")); - - face_xxx_large = mface (); - mface_put_prop (face_xxx_large, Mratio, (void *) 300); - { - MFont *latin_font = mframe_get_prop (frame, Mfont); - MFont *dev_font = mfont (); - MFont *thai_font = mfont (); - MFont *tib_font = mfont (); - MFontset *fontset; - MSymbol unicode_bmp = msymbol ("unicode-bmp"); - MSymbol no_ctl = msymbol ("no-ctl"); - - mfont_put_prop (dev_font, Mfamily, msymbol ("raghindi")); - mfont_put_prop (dev_font, Mregistry, unicode_bmp); - mfont_put_prop (thai_font, Mfamily, msymbol ("norasi")); - mfont_put_prop (thai_font, Mregistry, unicode_bmp); - mfont_put_prop (tib_font, Mfamily, msymbol ("mtib")); - mfont_put_prop (tib_font, Mregistry, unicode_bmp); - - fontset = mfontset_copy (mfontset (fontset_name), "no-ctl"); - mfontset_modify_entry (fontset, msymbol ("latin"), Mnil, Mnil, - latin_font, Mnil, 0); - mfontset_modify_entry (fontset, msymbol ("devanagari"), Mnil, Mnil, - dev_font, no_ctl, 0); - mfontset_modify_entry (fontset, msymbol ("thai"), Mnil, Mnil, - thai_font, no_ctl, 0); - mfontset_modify_entry (fontset, msymbol ("tibetan"), Mnil, Mnil, - tib_font, no_ctl, 0); - face_no_ctl_fontset = mface (); - mface_put_prop (face_no_ctl_fontset, Mfontset, fontset); - m17n_object_unref (fontset); - - free (dev_font); - free (thai_font); - free (tib_font); - } - - setup_input_methods (with_xim); - - gc = DefaultGC (display, screen); - - XtSetArg (arg[0], XtNtranslations, XtParseTranslationTable (trans2)); - XtSetArg (arg[1], XtNdefaultDistance, 2); - form = XtCreateManagedWidget ("form", formWidgetClass, ShellWidget, arg, 2); - - XtSetArg (arg[0], XtNborderWidth, 0); - XtSetArg (arg[1], XtNdefaultDistance, 2); - XtSetArg (arg[2], XtNtop, XawChainTop); - XtSetArg (arg[3], XtNbottom, XawChainTop); - XtSetArg (arg[4], XtNleft, XawChainLeft); - XtSetArg (arg[5], XtNright, XawChainRight); - XtSetArg (arg[6], XtNresizable, True); - HeadWidget = XtCreateManagedWidget ("head", formWidgetClass, form, arg, 7); - XtSetArg (arg[7], XtNfromVert, HeadWidget); - FaceWidget = XtCreateManagedWidget ("face", formWidgetClass, form, arg, 8); - XtSetArg (arg[7], XtNfromVert, FaceWidget); - LangWidget = XtCreateManagedWidget ("lang", formWidgetClass, form, arg, 8); - XtSetArg (arg[3], XtNbottom, XawChainBottom); - XtSetArg (arg[7], XtNfromVert, LangWidget); - BodyWidget = XtCreateManagedWidget ("body", formWidgetClass, form, arg, 8); - XtSetArg (arg[2], XtNtop, XawChainBottom); - XtSetArg (arg[7], XtNfromVert, BodyWidget); - TailWidget = XtCreateManagedWidget ("tail", formWidgetClass, form, arg, 8); - - FileShellWidget = XtCreatePopupShell ("FileShell", transientShellWidgetClass, - HeadWidget, NULL, 0); - XtSetArg (arg[0], XtNvalue, ""); - FileDialogWidget = XtCreateManagedWidget ("File", dialogWidgetClass, - FileShellWidget, arg, 1); - XawDialogAddButton (FileDialogWidget, "OK", - FileDialogProc, (XtPointer) 0); - XawDialogAddButton (FileDialogWidget, "CANCEL", - FileDialogProc, (XtPointer) 1); - - CheckPixmap = XCreateBitmapFromData (display, RootWindow (display, screen), - (char *) check_bits, - check_width, check_height); - { - unsigned long valuemask = GCForeground; - XGCValues values; - - values.foreground = 1; - mono_gc = XCreateGC (display, CheckPixmap, valuemask, &values); - values.foreground = 0; - mono_gc_inv = XCreateGC (display, CheckPixmap, valuemask, &values); - } - - { - MenuRec *menus; - int num_menus = 10; - - if (num_menus < num_input_methods + 2) - num_menus = num_input_methods + 2; - if (num_menus < num_faces + 1) - num_menus = num_faces + 1; - menus = alloca (sizeof (MenuRec) * num_menus); - - w = create_menu_button (ShellWidget, HeadWidget, NULL, "File", "File Menu", - FileMenu, sizeof FileMenu / sizeof (MenuRec), - "File I/O, Serialization, Image, Quit"); - - SetMenu (menus[0], 0, "Logical Move", NULL, CursorProc, 0, 1); - SetMenu (menus[1], 0, "Visual Move", NULL, CursorProc, 1, 0); - SetMenu (menus[2], 1, "", NULL, NULL, NULL, 0); - SetMenu (menus[3], 0, "Box type", NULL, CursorProc, 2, 0); - SetMenu (menus[4], 0, "Bar type", NULL, CursorProc, 3, 1); - SetMenu (menus[5], 0, "Bidi type", NULL, CursorProc, 4, 0); - w = create_menu_button (ShellWidget, HeadWidget, w, - "Cursor", "Cursor Menu", - menus, 6, "Cursor Movement Mode, Cursor Shape"); - CursorMenus[0] = menus[0].w; - CursorMenus[1] = menus[1].w; - CursorMenus[2] = menus[3].w; - CursorMenus[3] = menus[4].w; - CursorMenus[4] = menus[5].w; - - SetMenu (menus[0], 0, "disable", NULL, BidiProc, 0, 0); - SetMenu (menus[1], 0, "Left (|--> |)", NULL, BidiProc, 1, 1); - SetMenu (menus[2], 0, "Right (| <--|)", NULL, BidiProc, 2, 0); - w = create_menu_button (ShellWidget, HeadWidget, w, "Bidi", "Bidi Menu", - menus, 3, "BIDI Processing Mode"); - for (i = 0; i < 3; i++) - BidiMenus[i] = menus[i].w; - - SetMenu (menus[0], 0, "truncate", NULL, LineBreakProc, 0, 0); - SetMenu (menus[1], 0, "break at edge", NULL, LineBreakProc, 1, 1); - SetMenu (menus[2], 0, "break at word boundary", NULL, LineBreakProc, 2, 0); - w = create_menu_button (ShellWidget, HeadWidget, w, "LineBreak", - "LineBreak Menu", - menus, 3, "How to break lines"); - for (i = 0; i < 3; i++) - LineBreakMenus[i] = menus[i].w; - - SetMenu (menus[0], 0, "none", NULL, InputMethodProc, -2, 1); - SetMenu (menus[1], 0, "auto", NULL, InputMethodProc, -1, 0); - for (i = 0; i < num_input_methods; i++) - { - InputMethodInfo *im = input_method_table + i; - char *name1, *name2; - - if (im->language != Mnil && im->language != Mt) - { - MSymbol sym = msymbol_get (im->language, Mlanguage); - if (sym == Mnil) - name1 = msymbol_name (im->language); - else - name1 = msymbol_name (sym); - name2 = msymbol_name (im->name); - } - else - name1 = msymbol_name (im->name), name2 = NULL; - - SetMenu (menus[i + 2], 0, name1, name2, InputMethodProc, i, 0); - } - w = create_menu_button (ShellWidget, HeadWidget, w, "InputMethod", - "Input Method Menu", menus, i + 2, - "Select input method"); - - { - unsigned long valuemask = GCForeground; - XGCValues values; - - XtSetArg (arg[0], XtNbackground, &values.foreground); - XtGetValues (w, arg, 1); - gc_inv = XCreateGC (display, RootWindow (display, screen), - valuemask, &values); - } - - InputMethodMenus = malloc (sizeof (Widget) * (num_input_methods + 2)); - for (i = 0; i < num_input_methods + 2; i++) - InputMethodMenus[i] = menus[i].w; - - input_status_width = font_width * 8; - input_status_height = (font_ascent + font_descent) * 2.4; - input_status_pixmap = XCreatePixmap (display, RootWindow (display, screen), - input_status_width, - input_status_height, - DefaultDepth (display, screen)); - { - MFaceBoxProp prop; - - prop.width = 1; - prop.color_top = prop.color_bottom - = prop.color_left = prop.color_right = Mnil; - prop.inner_hmargin = prop.inner_vmargin = 1; - prop.outer_hmargin = prop.outer_vmargin = 0; - face_input_status = mface_copy (face_default); - mface_put_prop (face_input_status, Mbox, &prop); - } - - XFillRectangle (display, input_status_pixmap, gc_inv, - 0, 0, input_status_width, input_status_height); - XtSetArg (arg[0], XtNfromHoriz, w); - XtSetArg (arg[1], XtNleft, XawRubber); - XtSetArg (arg[2], XtNright, XawChainRight); - XtSetArg (arg[3], XtNborderWidth, 0); - XtSetArg (arg[4], XtNlabel, " "); - XtSetArg (arg[5], XtNjustify, XtJustifyRight); - CurIMLang = XtCreateManagedWidget ("CurIMLang", labelWidgetClass, - HeadWidget, arg, 6); - XtSetArg (arg[0], XtNfromHoriz, CurIMLang); - XtSetArg (arg[1], XtNleft, XawChainRight); - XtSetArg (arg[4], XtNbitmap, input_status_pixmap); - CurIMStatus = XtCreateManagedWidget ("CurIMStatus", labelWidgetClass, - HeadWidget, arg, 5); - - XtSetArg (arg[0], XtNborderWidth, 0); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainLeft); - w = XtCreateManagedWidget ("Face", labelWidgetClass, FaceWidget, arg, 3); - for (i = 0; i < num_faces;) - { - char *label_menu = face_table[i++].name; /* "Menu Xxxx" */ - char *label = label_menu + 5; /* "Xxxx" */ - - for (j = i; j < num_faces && face_table[j].face; j++) - SetMenu (menus[j - i], 0, face_table[j].name, NULL, - FaceProc, j, -1); - w = create_menu_button (ShellWidget, FaceWidget, w, - label, label_menu, - menus, j - i, "Push face property"); - i = j; - } - - XtSetArg (arg[0], XtNfromHoriz, w); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainLeft); - XtSetArg (arg[3], XtNhorizDistance, 10); - XtSetArg (arg[4], XtNlabel, "Pop"); - XtSetArg (arg[5], XtNtranslations, - XtParseTranslationTable (pop_face_trans)); - w = XtCreateManagedWidget ("Pop Face", commandWidgetClass, - FaceWidget, arg, 6); - XtAddCallback (w, XtNcallback, FaceProc, (void *) -1); - - XtSetArg (arg[0], XtNfromHoriz, w); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainRight); - XtSetArg (arg[3], XtNlabel, ""); - XtSetArg (arg[4], XtNborderWidth, 0); - XtSetArg (arg[5], XtNjustify, XtJustifyRight); - CurFaceWidget = XtCreateManagedWidget ("Current Face", labelWidgetClass, - FaceWidget, arg, 6); - - XtSetArg (arg[0], XtNborderWidth, 0); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainLeft); - w = XtCreateManagedWidget ("Lang", labelWidgetClass, LangWidget, arg, 3); - { - MPlist *plist[11], *pl; - char langname[3]; - - for (i = 0; i < 11; i++) plist[i] = NULL; - langname[2] = '\0'; - for (langname[0] = 'a'; langname[0] <= 'z'; langname[0]++) - for (langname[1] = 'a'; langname[1] <= 'z'; langname[1]++) - { - MSymbol sym = msymbol_exist (langname); - MSymbol fullname; - - if (sym != Mnil - && ((fullname = msymbol_get (sym, Mlanguage)) != Mnil)) - { - char *name = msymbol_name (fullname); - char c = name[0]; - - if (c >= 'A' && c <= 'Z') - { - int idx = (c < 'U') ? (c - 'A') / 2 : 10; - - pl = plist[idx]; - if (! pl) - pl = plist[idx] = mplist (); - for (; mplist_next (pl); pl = mplist_next (pl)) - if (strcmp (name, (char *) mplist_value (pl)) < 0) - break; - mplist_push (pl, sym, fullname); - } - } - } - - for (i = 0; i < 11; i++) - if (plist[i]) - { - char *name = alloca (9); - - sprintf (name, "Menu %c-%c", 'A' + i * 2, 'A' + i * 2 + 1); - if (i == 10) - name[7] = 'Z'; - for (j = 0, pl = plist[i]; mplist_next (pl); - j++, pl = mplist_next (pl)) - SetMenu (menus[j], 0, msymbol_name ((MSymbol) mplist_value (pl)), - msymbol_name (mplist_key (pl)), - LangProc, mplist_key (pl), -1); - w = create_menu_button (ShellWidget, LangWidget, w, name + 5, name, - menus, j, "Push language property"); - } - for (i = 0; i < 11; i++) - if (plist[i]) - m17n_object_unref (plist[i]); - } - XtSetArg (arg[0], XtNfromHoriz, w); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainLeft); - XtSetArg (arg[3], XtNhorizDistance, 10); - XtSetArg (arg[4], XtNlabel, "Pop"); - XtSetArg (arg[5], XtNtranslations, - XtParseTranslationTable (pop_lang_trans)); - w = XtCreateManagedWidget ("Pop Lang", commandWidgetClass, - LangWidget, arg, 6); - XtAddCallback (w, XtNcallback, LangProc, Mnil); - - XtSetArg (arg[0], XtNfromHoriz, w); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainRight); - XtSetArg (arg[3], XtNlabel, ""); - XtSetArg (arg[4], XtNborderWidth, 0); - XtSetArg (arg[5], XtNjustify, XtJustifyRight); - CurLangWidget = XtCreateManagedWidget ("Current Lang", labelWidgetClass, - LangWidget, arg, 6); - } - - XtSetArg (arg[0], XtNheight, win_height); - XtSetArg (arg[1], XtNwidth, 10); - XtSetArg (arg[2], XtNleft, XawChainLeft); - XtSetArg (arg[3], XtNright, XawChainLeft); - SbarWidget = XtCreateManagedWidget ("sbar", scrollbarWidgetClass, BodyWidget, - arg, 4); - XtAddCallback (SbarWidget, XtNscrollProc, ScrollProc, NULL); - XtAddCallback (SbarWidget, XtNjumpProc, JumpProc, NULL); - - XtSetArg (arg[0], XtNheight, win_height); - XtSetArg (arg[1], XtNwidth, win_width); - XtSetArg (arg[2], XtNtranslations, XtParseTranslationTable (trans)); - XtSetArg (arg[3], XtNfromHoriz, SbarWidget); - XtSetArg (arg[4], XtNleft, XawChainLeft); - XtSetArg (arg[5], XtNright, XawChainRight); - TextWidget = XtCreateManagedWidget ("text", simpleWidgetClass, BodyWidget, - arg, 5); - - XtSetArg (arg[0], XtNborderWidth, 0); - XtSetArg (arg[1], XtNleft, XawChainLeft); - XtSetArg (arg[2], XtNright, XawChainRight); - XtSetArg (arg[3], XtNresizable, True); - XtSetArg (arg[4], XtNjustify, XtJustifyLeft); - MessageWidget = XtCreateManagedWidget ("message", labelWidgetClass, - TailWidget, arg, 5); - - memset (&control, 0, sizeof control); - control.two_dimensional = 1; - control.enable_bidi = 1; - control.anti_alias = 1; - control.min_line_ascent = font_ascent; - control.min_line_descent = font_descent; - control.max_line_width = win_width; - control.with_cursor = 1; - control.cursor_width = 2; - control.partial_update = 1; - control.ignore_formatting_char = 1; - - memset (&input_status_control, 0, sizeof input_status_control); - input_status_control.enable_bidi = 1; - - XtAppAddActions (context, actions, XtNumber (actions)); - XtRealizeWidget (ShellWidget); - - win = XtWindow (TextWidget); - - XtAppMainLoop (context); - - if (current_input_context) - minput_destroy_ic (current_input_context); - for (i = 0; i < num_input_methods; i++) - if (input_method_table[i].im) - minput_close_im (input_method_table[i].im); - m17n_object_unref (frame); - m17n_object_unref (mt); - m17n_object_unref (face_xxx_large); - m17n_object_unref (face_box); - m17n_object_unref (face_courier); - m17n_object_unref (face_helvetica); - m17n_object_unref (face_times); - m17n_object_unref (face_dv_ttyogesh); - m17n_object_unref (face_freesans); - m17n_object_unref (face_freeserif); - m17n_object_unref (face_freemono); - m17n_object_unref (face_default_fontset); - m17n_object_unref (face_no_ctl_fontset); - m17n_object_unref (face_input_status); - m17n_object_unref (face_default); - m17n_object_unref (default_face_list); - m17n_object_unref (selection); - - M17N_FINI (); - - free (fontset_name); - free (filename); - free (input_method_table); - free (InputMethodMenus); - - XFreeGC (display, mono_gc); - XFreeGC (display, mono_gc_inv); - XFreeGC (display, gc_inv); - XtUninstallTranslations (form); - XtUninstallTranslations (TextWidget); - XtDestroyWidget (ShellWidget); - XtDestroyApplicationContext (context); - - exit (0); -} -#endif /* not FOR_DOXYGEN */ diff --git a/example/mimx-anthy.c b/example/mimx-anthy.c deleted file mode 100644 index 54f17f1..0000000 --- a/example/mimx-anthy.c +++ /dev/null @@ -1,368 +0,0 @@ -/* mimx-anthy.c -- Anthy input method external module. -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mimx-anthy external module for the input method - - @section mimx-anthy-description DESCRIPTION - - The shared library mimx-anthy.so is an external module used by the - input method . It exports these functions. - -

init - - Initialize this module. - -
fini - - Finalize this module. - -
convert - - Convert the current preedit text (Hiragana sequence) into - Kana-Kanji mixed text. - -
change - - Record the change of candidate of the current segment. - -
resize - - Enlarge or shorten the length of the current segment. - -
commit - - Commit the lastly selected candidates of all the segments. - -

- - @section mimx-anthy-seealso See also - @ref mdbIM -*/ -/***ja - @japage mimx-anthy ÆþÎÏ¥á¥½¥Ã¥É ÍÑ³°Éô¥â¥¸¥å¡¼¥ë. - - @section mimx-anthy-description DESCRIPTION - - ¶¦Í¥é¥¤¥Ö¥é¥ê mimx-anthy.so ¤ÏÆþÎÏ¥á¥½¥Ã¥É ¤ËÍÑ¤¤¤é¤ì - ¤ë³°Éô¥â¥¸¥å¡¼¥ë¤Ç¤¢¤ê¡¢°Ê²¼¤Î´Ø¿ô¤ò export ¤·¤Æ¤¤¤ë¡£ - -

init - - ¥â¥¸¥å¡¼¥ë¤Î½é´ü²½¡£ - -
fini - - ¥â¥¸¥å¡¼¥ë¤Î½ªÎ»¡£ - -
convert - - ¸½ºß¤Î preedit ¥Æ¥¥¹¥È (¤Ò¤é¤¬¤ÊÎó) ¤ò¤«¤Ê´Á»ú¥Æ¥¥¹¥È¤ËÊÑ´¹¤¹¤ë¡£ - -
change - - ¸½ºß¤Î¥»¥°¥á¥ó¥È¤Î¸õÊä¤ÎÊÑÁ«¤òµÏ¿¤¹¤ë¡£ - -
resize - - ¸½ºß¤Î¥»¥°¥á¥ó¥È¤ÎÄ¹¤µ¤òÊÑ¹¹¤¹¤ë¡£ - -
commit - - Á´¥»¥°¥á¥ó¥È¤ÎºÇ¿·¤Î¸õÊä¤ò¥³¥ß¥Ã¥È¤¹¤ë¡£ - -

- - @section mimx-anthy-seealso »²¾È - @ref mdbIM -*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include -#include - -#ifdef HAVE_ANTHY - -#include - -static int initialized; -static MSymbol Manthy, Msegment; - -/* A structure to record in MInputContext->plist with key Manthy. */ - -typedef struct { - anthy_context_t ac; - /* Which candidate is selected in each segment. */ - int *candidate_numbers; - /* Size of the above array. */ - int num_segments; - /* Converter for this context. */ - MConverter *converter; -} AnthyContext; - -static AnthyContext * -new_context (MInputContext *ic) -{ - AnthyContext *context = NULL; - MSymbol euc_jp = msymbol ("euc-jp"); - /* Rebound to an actual buffer just before being used. */ - MConverter *converter = mconv_buffer_converter (euc_jp, NULL, 0); - - if (converter) - { - context = calloc (1, sizeof (AnthyContext)); - context->ac = anthy_create_context (); - context->num_segments = 0; - context->candidate_numbers = NULL; - context->converter = converter; - } - return context; -} - -static void -free_context (AnthyContext *context) -{ - anthy_release_context (context->ac); - if (context->candidate_numbers) - free (context->candidate_numbers); - mconv_free_converter (context->converter); - free (context); -} - -static void -allocate_candidate_numbers (AnthyContext *context, int num) -{ - if (context->num_segments < num) - { - if (context->num_segments == 0) - context->candidate_numbers = malloc (sizeof (int) * num); - else - context->candidate_numbers = realloc (context->candidate_numbers, - sizeof (int) * num); - context->num_segments = num; - } -} - -static void -add_action (MPlist *actions, MSymbol name, MSymbol key, void *val) -{ - MPlist *action = mplist (); - - mplist_add (action, Msymbol, name); - mplist_add (action, key, val); - mplist_add (actions, Mplist, action); - m17n_object_unref (action); -} - -/* Return a list of all candidates of the Nth segment. The return - value is a plist whose elements are plists who contains at most 5 - candidates. */ - -static MPlist * -make_candidate_list (AnthyContext *context, int n) -{ - MPlist *plist = mplist (), *pl; - int i; - char buf[1024]; - struct anthy_segment_stat ss; - MText *mt; - - anthy_get_segment_stat (context->ac, n, &ss); - for (i = 0, pl = mplist (); i < ss.nr_candidate; i++) - { - anthy_get_segment (context->ac, n, i, buf, sizeof (buf)); - mconv_rebind_buffer (context->converter, - (unsigned char *) buf, strlen (buf)); - mt = mconv_decode (context->converter, mtext ()); - mtext_put_prop (mt, 0, mtext_len (mt), Msegment, (void *) (n + 1)); - mplist_add (pl, Mtext, mt); - m17n_object_unref (mt); - if (i % 5 == 4) - { - mplist_add (plist, Mplist, pl); - m17n_object_unref (pl); - pl = mplist (); - } - } - if (mplist_key (pl) != Mnil) - mplist_add (plist, Mplist, pl); - m17n_object_unref (pl); - return plist; -} - -MPlist * -init (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - - if (! initialized) - { - anthy_init (); - Manthy = msymbol (" anthy"); - Msegment = msymbol (" segment"); - initialized = 1; - } - mplist_push (ic->plist, Manthy, new_context (ic)); - return NULL; -} - -MPlist * -fini (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - AnthyContext *context = mplist_get (ic->plist, Manthy); - - if (context) - free_context (context); - return NULL; -} - -MPlist * -convert (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - AnthyContext *context = mplist_get (ic->plist, Manthy); - struct anthy_conv_stat cs; - MPlist *action, *actions; - int i; - unsigned char buf[1024]; - - if (! context) - return NULL; - - mconv_rebind_buffer (context->converter, buf, sizeof (buf)); - mconv_encode (context->converter, ic->preedit); - buf[context->converter->nbytes] = '\0'; - anthy_set_string (context->ac, (char *) buf); - anthy_get_stat (context->ac, &cs); - allocate_candidate_numbers (context, cs.nr_segment); - - actions = mplist (); - add_action (actions, msymbol ("move"), Msymbol, msymbol ("@<")); - add_action (actions, msymbol ("delete"), Msymbol, msymbol ("@>")); - for (i = 0; i < cs.nr_segment; i++) - { - context->candidate_numbers[i] = 0; - if (i == 1) - add_action (actions, msymbol ("mark"), Msymbol, msymbol ("@anthy")); - action = make_candidate_list (context, i); - mplist_add (actions, Mplist, action); - m17n_object_unref (action); - } - if (cs.nr_segment > 1) - add_action (actions, msymbol ("move"), Msymbol, msymbol ("@anthy")); - - return actions; -} - -MPlist * -change (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - AnthyContext *context = mplist_get (ic->plist, Manthy); - int segment; - - if (! context) - return NULL; - if (! ic->candidate_list || ic->cursor_pos == 0) - return NULL; - segment = (int) mtext_get_prop (ic->preedit, ic->cursor_pos - 1, Msegment); - if (segment == 0) - return NULL; - segment--; - context->candidate_numbers[segment] = ic->candidate_index; - return NULL; -} - -MPlist * -resize (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - AnthyContext *context = mplist_get (ic->plist, Manthy); - struct anthy_conv_stat cs; - MSymbol shorten; - int segment; - MPlist *actions, *action; - int i; - - if (! context) - return NULL; - if (! ic->candidate_list || ic->cursor_pos == 0) - return NULL; - segment = (int) mtext_get_prop (ic->preedit, ic->cursor_pos - 1, Msegment); - if (segment == 0) - return NULL; - segment--; - args = mplist_next (args); - shorten = mplist_value (args); - anthy_resize_segment (context->ac, segment, shorten == Mt ? -1 : 1); - anthy_get_stat (context->ac, &cs); - allocate_candidate_numbers (context, cs.nr_segment); - - actions = mplist (); - if (segment == 0) - add_action (actions, msymbol ("move"), Msymbol, msymbol ("@<")); - else - add_action (actions, msymbol ("move"), Msymbol, msymbol ("@[")); - add_action (actions, msymbol ("delete"), Msymbol, msymbol ("@>")); - for (i = segment; i < cs.nr_segment; i++) - { - context->candidate_numbers[i] = 0; - if (i == segment + 1) - add_action (actions, msymbol ("mark"), Msymbol, msymbol ("@anthy")); - action = make_candidate_list (context, i); - mplist_add (actions, Mplist, action); - m17n_object_unref (action); - } - if (segment + 1 < cs.nr_segment) - add_action (actions, msymbol ("move"), Msymbol, msymbol ("@anthy")); - return actions; -} - -MPlist * -commit (MPlist *args) -{ - MInputContext *ic = mplist_value (args); - AnthyContext *context = mplist_get (ic->plist, Manthy); - struct anthy_conv_stat cs; - int i; - - anthy_get_stat (context->ac, &cs); - for (i = 0; i < cs.nr_segment; i++) - anthy_commit_segment (context->ac, i, context->candidate_numbers[i]); - return NULL; -} - -#else /* not HAVE_ANTHY */ - -MPlist *convert (MPlist *args) { return NULL; } -MPlist *change (MPlist *args) { return NULL; } -MPlist *resize (MPlist *args) { return NULL; } -MPlist *commit (MPlist *args) { return NULL; } - -#endif /* not HAVE_ANTHY */ -#endif /* not FOR_DOXYGEN */ diff --git a/example/mimx-ispell.c b/example/mimx-ispell.c deleted file mode 100644 index 7ecf734..0000000 --- a/example/mimx-ispell.c +++ /dev/null @@ -1,232 +0,0 @@ -/* imx-ispell.c -- Ispell input method external module. -*- coding: euc-jp; -*- - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mimx-ispell external module for the input method - - @section mimx-ispell-description DESCRIPTION - - The shared library mimx-ispell.so is an external module used by the - input method . It exports these functions. - -

init - - Initialize this library. - -
fini - - Finalize this library. - -
ispell_word - - Check the spell of the current preedit text (English) and, if the - spell is incorrect, return a list of candidates. - -

- - This program is just for demonstrating how to write an external - module for an m17n input method, not for an actual use. - - @section mimx-ispell-seealso See also - @ref mdbIM -*/ -/***ja - @japage mimx-ispell ÆþÎÏ¥á¥½¥Ã¥É ÍÑ³°Éô¥â¥¸¥å¡¼¥ë - - @section mimx-ispell-description DESCRIPTION - - ¶¦Í¥é¥¤¥Ö¥é¥ê mimx-ispell.so ¤ÏÆþÎÏ¥á¥½¥Ã¥É ¤ËÍÑ¤¤¤é - ¤ì¤ë³°Éô¥â¥¸¥å¡¼¥ë¤Ç¤¢¤ê¡¢°Ê²¼¤Î´Ø¿ô¤ò export ¤·¤Æ¤¤¤ë¡£ - -

init - - ¥é¥¤¥Ö¥é¥ê¤Î½é´ü²½¡£ - -
fini - - ¥é¥¤¥Ö¥é¥ê¤Î½ªÎ»¡£ - -
ispell_word - - ¸½ºß¤Î preedit ¥Æ¥¥¹¥È (±ÑÊ¸) ¤ÎÄÖ¤òÄ´¤Ù¡¢´Ö°ã¤Ã¤Æ¤¤¤ì¤Ð¸õÊä¤Î¥ê - ¥¹¥È¤òÊÖ¤¹¡£ - -

- - ¤³¤Î¥×¥í¥°¥é¥à¤Ïm17n ÆþÎÏ¥á¥½¥Ã¥ÉÍÑ³°Éô¥â¥¸¥å¡¼¥ë¤Î½ñ¤Êý¤ò¼¨¤¹¤¿ - ¤á¤Î¤â¤Î¤Ç¤¢¤ê¡¢¼ÂºÝ¤ÎÍøÍÑ¤ò°Õ¿Þ¤·¤¿¤â¤Î¤Ç¤Ï¤Ê¤¤¡£ - - @section mimx-ispell-seealso »²¾È - @ref mdbIM -*/ - -#ifndef FOR_DOXYGEN - -#include -#include -#include -#include - -#ifdef HAVE_ISPELL - -static int initialized = 0; -static MFace *mface_overstrike = NULL; - -static MPlist * -add_action (MPlist *actions, MSymbol name, MSymbol key, void *val) -{ - MPlist *action = mplist (); - - mplist_add (action, Msymbol, name); - if (key != Mnil) - mplist_add (action, key, val); - mplist_add (actions, Mplist, action); - m17n_object_unref (action); - return actions; -} - -MPlist * -init (MPlist *args) -{ - if (! initialized++) - { - MFaceHLineProp hline; - - hline.type = MFACE_HLINE_STRIKE_THROUGH; - hline.width = 1; - hline.color = msymbol ("black"); - mface_overstrike = mface (); - mface_put_prop (mface_overstrike, Mhline, &hline); - } - return NULL; -} - -MPlist * -fini (MPlist *args) -{ - if (! --initialized) - m17n_object_unref (mface_overstrike); - return NULL; -} - -MPlist * -ispell_word (MPlist *args) -{ - MInputContext *ic; - unsigned char buf[256]; - int nbytes; - MPlist *actions, *candidates, *plist; - char command[256]; - char **words; - FILE *ispell; - char *p = (char *) buf; - int i, n; - MSymbol init_state; - MSymbol select_state; - MText *mt; - - ic = mplist_value (args); - args = mplist_next (args); - init_state = (MSymbol) mplist_value (args); - args = mplist_next (args); - select_state = (MSymbol) mplist_value (args); - nbytes = mconv_encode_buffer (Mcoding_us_ascii, ic->preedit, buf, 256); - - actions = mplist (); - - if (nbytes < 3) - return add_action (actions, msymbol ("shift"), Msymbol, init_state); - - buf[nbytes] = '\0'; - sprintf (command, "echo %s | ispell -a -m", (char *) buf); - ispell = popen (command, "r"); - if (! ispell) - return add_action (actions, msymbol ("shift"), Msymbol, init_state); - - /* Skip the heading line. */ - fgets (p, 256, ispell); - /* Read just 256 bytes, thus candidates listed after the first 256 - bytes are just ignored. */ - fgets (p, 256, ispell); - pclose (ispell); - p[strlen (p) - 1] = '\0'; - if (*p != '&' && *p != '#') - return add_action (actions, msymbol ("shift"), Msymbol, init_state); - - add_action (actions, msymbol ("delete"), Msymbol, msymbol ("@<")); - if (*p == '#') - { - mt = mtext_dup (ic->preedit); - mtext_push_prop (mt, 0, mtext_len (mt), Mface, mface_overstrike); - mplist_add (actions, Mtext, mt); - add_action (actions, msymbol ("shift"), Msymbol, init_state); - m17n_object_unref (mt); - return actions; - } - - p = strchr (p + 2, ' '); - if (sscanf (p, "%d", &n) != 1) - return add_action (actions, msymbol ("shift"), Msymbol, init_state); - words = alloca (sizeof (char *) * n); - p = strchr (p + 1, ' '); - p = strchr (p + 1, ' '); - for (i = 0; i < n - 1; i++) - { - words[i] = ++p; - p = strchr (p, ','); - if (! p) - { - n = i - 1; - break; - } - *p++ = '\0'; - } - words[i] = ++p; - candidates = mplist (); - for (i = 0; i < n; i++) - { - mt = mconv_decode_buffer (Mcoding_us_ascii, (unsigned char *) words[i], - strlen (words[i])); - mplist_add (candidates, Mtext, mt); - m17n_object_unref (mt); - } - mt = mtext_dup (ic->preedit); - mtext_push_prop (mt, 0, mtext_len (mt), Mface, mface_overstrike); - mplist_add (candidates, Mtext, mt); - m17n_object_unref (mt); - plist = mplist_add (mplist (), Mplist, candidates); - m17n_object_unref (candidates); - mplist_add (actions, Mplist, plist); - m17n_object_unref (plist); - add_action (actions, msymbol ("show"), Mnil, NULL); - add_action (actions, msymbol ("shift"), Msymbol, select_state); - return actions; -} - -#else /* not HAVE_ISPELL */ - -MPlist *ispell_word (MPlist *args) { return NULL; } - -#endif /* not HAVE_ISPELL */ -#endif /* not FOR_DOXYGEN */ diff --git a/example/mview.c b/example/mview.c deleted file mode 100644 index 20dd43f..0000000 --- a/example/mview.c +++ /dev/null @@ -1,423 +0,0 @@ -/* mview.c -- File viewer - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @enpage mview view file - - @section mview-synopsis SYNOPSIS - - mview [ XT-OPTION ...] [ OPTION ... ] [ FILE ] - - @section mview-description DESCRIPTION - - Display FILE on a window. - - If FILE is omitted, the input is taken from standard input. - - XT-OPTIONs are standard Xt arguments (e.g. -fn, -fg). - - The following OPTIONs are available. - -

-e ENCODING - - ENCODING is the encoding of FILE (defaults to UTF-8). - -
-s FONTSIZE - - FONTSIZE is the fontsize in point. If ommited, it defaults to the - size of the default font defined in X resource. - -
--version - - Print version number. - -
-h, --help - - Print this message. - -

-*/ -/***ja - @japage mview ¥Õ¥¡¥¤¥ë¤ò¸«¤ë - - @section mview-synopsis SYNOPSIS - - mview [ XT-OPTION ...] [ OPTION ... ] [ FILE ] - - @section mview-description DESCRIPTION - - FILE ¤ò¥¦¥£¥ó¥É¥¦¤ËÉ½¼¨¤¹¤ë¡£ - - FILE ¤¬¾ÊÎ¬¤µ¤ì¤¿¾ì¹ç¤Ï¡¢É¸½àÆþÎÏ¤«¤é¤È¤ë¡£ - - XT-OPTIONs ¤Ï Xt ¤ÎÉ¸½à¤Î°ú¿ô¤Ç¤¢¤ë¡£ (e.g. -fn, -fg). - - °Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤¬ÍøÍÑ¤Ç¤¤ë¡£ - -

-s FONTSIZE - - FONTSIZE ¤Ï¥Õ¥©¥ó¥È¤ÎÂç¤¤µ¤ò¥Ý¥¤¥ó¥ÈÃ±°Ì¤Ç¼¨¤·¤¿¤â¤Î¤Ç¤¢¤ë¡£¾ÊÎ¬ - ¤µ¤ì¤¿¾ì¹ç¤Ï¡¢X ¤Î¥ê¥½¡¼¥¹¤ÇÄêµÁ¤µ¤ì¤¿¥Ç¥Õ¥©¥ë¥È¥Õ¥©¥ó¥È¤ÎÂç¤¤µ¤È - ¤Ê¤ë¡£ - -
--version - - ¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤òÉ½¼¨¤¹¤ë¡£ - -
-h, --help - - ¤³¤Î¥á¥Ã¥»¡¼¥¸¤òÉ½¼¨¤¹¤ë¡£ - -

-*/ -#ifndef FOR_DOXYGEN - -#include - -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#define VERSION "1.0" - -/* Global m17n variables. */ -MFrame *frame; -MText *mt; -MDrawMetric metric; -MDrawControl control; - - -/* Callback procedure for "quit". */ - -void -QuitProc (Widget w, XtPointer client_data, XtPointer call_data) -{ - XtAppSetExitFlag (XtWidgetToApplicationContext (w)); -} - - -/* Move POS to the next line head in M-text MT whose length is LEN. - If POS is already on the last line, set POS to LEN. */ - -#define NEXTLINE(pos, len) \ - do { \ - pos = mtext_character (mt, pos, len, '\n'); \ - if (pos < 0) \ - pos = len; \ - else \ - pos++; \ - } while (0) - - -/* Action procedure for expose event. Redraw partial area of the - widget W. The area is specified in EVENT. */ - -static void -ExposeProc (Widget w, XEvent *event, String *str, Cardinal *num) -{ - XExposeEvent *expose = (XExposeEvent *) event; - int len = mtext_len (mt); - int pos, from, to; - int y = 0, yoff = 0; - MDrawMetric rect; - - /* We must update the area between the Y-positions expose->y and - (expose->y + expose->height). We ignore X-positions. */ - - /* At first, find the line that occupies the Y-position expose->y. - That is the first line to draw. */ - to = 0; - while (1) - { - from = to; - NEXTLINE (to, len); - mdraw_text_extents (frame, mt, from, to, &control, NULL, NULL, &rect); - if (to == len || y + rect.height > expose->y) - break; - y += rect.height; - } - /* The first character to draw is at position FROM. Remeber the - Y-position to start drawing. */ - yoff = y - rect.y; - - /* Next, find the line that occupies the Y-position (expose->y + - expose->height). That is the last line to draw. This time, we - enable caching to utilize it in the later drawing. */ - y += rect.height; - control.disable_caching = 0; - while (to < len && y < expose->y + expose->height) - { - pos = to; - NEXTLINE (to, len); - mdraw_text_extents (frame, mt, pos, to, &control, NULL, NULL, &rect); - y += rect.height; - } - - /* It is decided that we must draw from FROM to the previous - character of TO. */ - mdraw_text_with_control (frame, (MDrawWindow) XtWindow (w), - 0, yoff, mt, from, to, &control); - - /* Disable caching again. */ - control.disable_caching = 1; - - /* If the widget was vertically enlarged too much, shrink it. */ - if (metric.height < expose->y + expose->height) - { - Arg arg; - - XtSetArg (arg, XtNheight, metric.height); - XtSetValues (w, &arg, 0); - } -} - - -/* Print the usage of this program (the name is PROG), and exit with - EXIT_CODE. */ - -void -help_exit (char *prog, int exit_code) -{ - char *p = prog; - - while (*p) - if (*p++ == '/') - prog = p; - - printf ("Usage: %s [ XT-OPTION ...] [ OPTION ...] [ FILE ]\n", prog); - printf ("Display FILE on a window.\n"); - printf (" If FILE is omitted, the input is taken from standard input.\n"); - printf (" XT-OPTIONs are standard Xt arguments (e.g. -fn, -fg).\n"); - printf ("The following OPTIONs are available.\n"); - printf (" %-13s %s", "-e ENCODING", - "ENCODING is the encoding of FILE (defaults to UTF-8).\n"); - printf (" %-13s %s", "-s FONTSIZE", - "FONTSIZE is the fontsize in point.\n"); - printf ("\t\tIf ommited, it defaults to the size\n"); - printf ("\t\tof the default font defined in X resource.\n"); - printf (" %-13s %s", "--version", "print version number\n"); - printf (" %-13s %s", "-h, --help", "print this message\n"); - exit (exit_code); -} - - -/* Format MSG by FMT and print the result to the stderr, and exit. */ - -#define FATAL_ERROR(fmt, arg) \ - do { \ - fprintf (stderr, fmt, arg); \ - exit (1); \ - } while (0) - - -/* Adjust FONTSIZE for the resolution of the screen of widget W. */ - -int -adjust_fontsize (Widget w, int fontsize) -{ - Display *display = XtDisplay (w); - int screen_number = XScreenNumberOfScreen (XtScreen (w)); - double pixels = DisplayHeight (display, screen_number); - double mm = DisplayHeightMM (display, screen_number); - - return (fontsize * pixels * 25.4 / mm / 100); -} - - -int -main (int argc, char **argv) -{ - XtAppContext context; - Widget shell, form, quit, viewport, text; - String quit_action = "q: set() notify() unset()"; - XtActionsRec actions[] = { {"Expose", ExposeProc} }; - Arg arg[10]; - int i; - int viewport_width, viewport_height; - char *coding_name = NULL; - FILE *fp = stdin; - MSymbol coding; - int fontsize = 0; - - /* Open an application context. */ - XtSetLanguageProc (NULL, NULL, NULL); - shell = XtOpenApplication (&context, "MView", NULL, 0, &argc, argv, NULL, - sessionShellWidgetClass, NULL, 0); - XtAppAddActions (context, actions, XtNumber (actions)); - - /* Parse the remaining command line arguments. */ - for (i = 1; i < argc; i++) - { - if (! strcmp (argv[i], "--help") - || ! strcmp (argv[i], "-h")) - help_exit (argv[0], 0); - else if (! strcmp (argv[i], "--version")) - { - printf ("mview (m17n library) %s\n", VERSION); - printf ("Copyright (C) 2003 AIST, JAPAN\n"); - exit (0); - } - else if (! strcmp (argv[i], "-e")) - { - i++; - coding_name = argv[i]; - } - else if (! strcmp (argv[i], "-s")) - { - double n; - i++; - n = atof (argv[i]); - if (n <= 0) - FATAL_ERROR ("Invalid fontsize %s!\n", argv[i]); - fontsize = adjust_fontsize (shell, (int) (n * 10)); - } - else if (argv[i][0] != '-') - { - fp = fopen (argv[i], "r"); - if (! fp) - FATAL_ERROR ("Fail to open the file %s!\n", argv[i]); - } - else - { - printf ("Unknown option: %s", argv[i]); - help_exit (argv[0], 1); - } - } - - /* Initialize the m17n library. */ - M17N_INIT (); - if (merror_code != MERROR_NONE) - FATAL_ERROR ("%s\n", "Fail to initialize the m17n library."); - - /* Decide how to decode the input stream. */ - if (coding_name) - { - coding = mconv_resolve_coding (msymbol (coding_name)); - if (coding == Mnil) - FATAL_ERROR ("Invalid coding: %s\n", coding_name); - } - else - coding = Mcoding_utf_8; - - mt = mconv_decode_stream (coding, fp); - fclose (fp); - if (! mt) - FATAL_ERROR ("%s\n", "Fail to decode the input file or stream!"); - - { - MPlist *param = mplist (); - MFace *face = mface (); - - if (fontsize) - mface_put_prop (face, Msize, (void *) fontsize); - mplist_put (param, Mwidget, shell); - mplist_put (param, Mface, face); - frame = mframe (param); - m17n_object_unref (param); - m17n_object_unref (face); - } - - /* Create this widget hierarchy. - Shell - form -+- quit - | - +- viewport - text */ - - form = XtCreateManagedWidget ("form", formWidgetClass, shell, NULL, 0); - XtSetArg (arg[0], XtNleft, XawChainLeft); - XtSetArg (arg[1], XtNright, XawChainLeft); - XtSetArg (arg[2], XtNtop, XawChainTop); - XtSetArg (arg[3], XtNbottom, XawChainTop); - XtSetArg (arg[4], XtNaccelerators, XtParseAcceleratorTable (quit_action)); - quit = XtCreateManagedWidget ("quit", commandWidgetClass, form, arg, 5); - XtAddCallback (quit, XtNcallback, QuitProc, NULL); - - viewport_width = (int) mframe_get_prop (frame, Mfont_width) * 80; - viewport_height - = ((int) mframe_get_prop (frame, Mfont_ascent) - + (int) mframe_get_prop (frame, Mfont_descent)) * 24; - XtSetArg (arg[0], XtNallowVert, True); - XtSetArg (arg[1], XtNforceBars, False); - XtSetArg (arg[2], XtNfromVert, quit); - XtSetArg (arg[3], XtNtop, XawChainTop); - XtSetArg (arg[4], XtNbottom, XawChainBottom); - XtSetArg (arg[5], XtNright, XawChainRight); - XtSetArg (arg[6], XtNwidth, viewport_width); - XtSetArg (arg[7], XtNheight, viewport_height); - viewport = XtCreateManagedWidget ("viewport", viewportWidgetClass, form, - arg, 8); - - /* Before creating the text widget, we must calculate the height of - the M-text to draw. */ - control.two_dimensional = 1; - control.enable_bidi = 1; - control.disable_caching = 1; - control.max_line_width = viewport_width; - mdraw_text_extents (frame, mt, 0, mtext_len (mt), &control, - NULL, NULL, &metric); - - { - /* Decide the size of the text widget. */ - XtSetArg (arg[0], XtNwidth, viewport_width); - if (viewport_height > metric.height) - /* The outer viewport is tall enough. */ - XtSetArg (arg[1], XtNheight, viewport_height); - else if (metric.height < 0x8000) - /* The M-text height is within the limit of X. */ - XtSetArg (arg[1], XtNheight, metric.height); - else - /* We can't make such a tall widget. Truncate it. */ - XtSetArg (arg[1], XtNheight, 0x7FFF); - - /* We must provide our own expose event handler. */ - XtSetArg (arg[2], XtNtranslations, - XtParseTranslationTable ((String) ": Expose()")); - text = XtCreateManagedWidget ("text", simpleWidgetClass, viewport, arg, 3); - } - - /* Realize the top widget, and dive into an even loop. */ - XtInstallAllAccelerators (form, form); - XtRealizeWidget (shell); - XtAppMainLoop (context); - - /* Clear away. */ - m17n_object_unref (mt); - m17n_object_unref (frame); - M17N_FINI (); - - exit (0); -} -#endif /* not FOR_DOXYGEN */ diff --git a/m17n-config.in b/m17n-config.in deleted file mode 100644 index 14d1a05..0000000 --- a/m17n-config.in +++ /dev/null @@ -1,108 +0,0 @@ -#!/bin/sh -# m17n-config -- helper script for the m17n library. -*- coding: euc-jp; -*- -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 -# See the end for copying conditions. - -prefix=@prefix@ -exec_prefix=@exec_prefix@ - -help () -{ - echo "Usage: $0 [CORE | GUI] [--version | --cflags | --libs | --libtool]" -} - -if test $# -eq 0; then - help 1>&2 - exit 0 -fi - -LIBNAME="-lm17n-core -lm17n" - -case $1 in -CORE) LIBNAME="-lm17n-core"; shift;; - GUI) LIBNAME="-lm17n-core -lm17n -lm17n-gui"; shift;; - X) LIBNAME="-lm17n-core -lm17n -lm17n-gui -lm17n-X"; shift;; - GD) LIBNAME="-lm17n-core -lm17n -lm17n-gui -lm17n-gd"; shift;; -X-GD) LIBNAME="-lm17n-core -lm17n -lm17n-gui -lm17n-X -lm17n-gd"; shift;; -esac - -case $1 in ---version) - echo "@PACKAGE_VERSION@";; - ---libs) - if test "@libdir@" != "/usr/lib"; then - echo "-L@libdir@ ${LIBNAME}" - else - echo "${LIBNAME}" - fi;; - ---cflags) - if test "@includedir@" != "/usr/include"; then - echo "-I@includedir@" - fi;; - ---libtool) - echo "@libdir@/lib${LIBNAME}.la" - ;; - -*) - help - exit 1;; -esac -exit 0 - -cat > /dev/null < - - * Makefile.am (libm17n_X_la_LDFLAGS): Cancel previous change. - (libm17n_gd_la_LDFLAGS): Cancel previous change. - - * m17n-gd.c (gd_render): Don't call FT_Get_Char_Index. - - * font-ft.c (fc_list): If FcFontList finds no font, try - FcFontMatch. - - * draw.c (compose_glyph_string): Terminate the last loop after - doing default combining if necessary. - -2004-06-24 Kenichi Handa - - * draw.c (mdraw_glyph_list): Unref gstring->top at the tail. - - * character.c (mchar_define_property): Add const to an arg. - - * charset.c (mchar_define_charset): Add const to an arg. - - * coding.c (MCodingSystem): Add const to an arg or decoder. - (finish_decoding): Add const to an arg. - (decode_coding_charset, decode_coding_utf_8) - (decode_coding_utf_16, decode_coding_utf_32) - (decode_coding_iso_2022, decode_coding_sjis) - (mconv_define_coding): Likewise. - - * m17n-X.c (xft_find_metric): Delete unused variable. - - * m17n-core.h (mchar_define_property, mtext_from_data): Adjust - prototypes. - - * m17n.h (mchar_define_charset, mconv_define_coding): Adjust - prototypes. - - * mtext.c (count_utf_8_chars, count_utf_16_chars) - (mtext__from_data, mtext_from_data): Add `const' to an arg. - - * mtext.h (mtext__from_data): Ajust prototype. - -2004-06-23 Kenichi Handa - - * draw.c (compose_glyph_string): Always get glyph codes by - mface__for_char. - (mdraw_glyph_info): Set info->glyph_code and info->logical_width. - (mdraw_glyph_list): New function. - - * font-flt.c (mfont__flt_run): Be sure to call - rfont->driver->encode_char. - - * font-ft.c (ft_find_metric): Don't call FT_Get_Char_Index. - (ft_encode_char): Delete arg C. - (ft_render): Don't call FT_Get_Char_Index. - - * font.c (mfont__encodable_p): Delete it. - (mfont__encode_char): Be sure to call rfont->driver->encode_char. - - * font.h (struct MFontDriver): Delete arg C of encode_char. - (mfont__encodable_p): Delete extern. - - * m17n-X.c (xfont_encode_char): Delete arg C. - (xft_find_metric): Don't cal FT_Get_Char_Index. - (xft_render): Likewise. - - * m17n-gui.h (MDrawGlyphInfo): New members glyph_code and - logical_width. - (mdraw_glyph_list): Extern it. - - * Makefile.am (libm17n_X_la_LDFLAGS): Don't include ${X_LD_FLAGS}. - -2004-06-22 Kenichi Handa - - * m17n-gui.h (mfontset_lookup): Extern it. - - * m17n-gui.c (m17n_init_win): Delete unnecessary printing. - - * fontset.c (realize_fontset_elements) - (free_realized_fontset_elements, update_fontset_elements): New - functions. - (mfont__realize_fontset): Call realize_fontset_elements. - (mfont__free_realized_fontset): Call free_realized_fontset_elements. - (mfont__lookup_fontset): If a fontset was modified, update - the realized fontset. - (mfontset_modify_entry): Increment fontset->tick. - (mfontset_lookup): New function. - -2004-06-21 Kenichi Handa - - * font-ft.c (mfont__ft_parse_name): Cast the arg to FcNameParse. - - * mtext.c (mtext_dup, mtext_cat, mtext_ncat, mtext_cpy) - (mtext_ncpy, mtext_duplicate): Pay attention to the case that the - length of source text 0. - -2004-06-21 Kenichi Handa - - * mtext.c (INC_POSITION): Use CHAR_UNITS_BY_HEAD_UTF16. - (compare): Pay attention to format other than utf-8. - (copy): Delete this function. - (count_by_utf_8, count_by_utf_16, insert): New functions. - (count_utf_16_chars): Fix handling of a surrogate pair. - (find_char_forward, find_char_backward): Likewise. - (mtext__from_data): Delete unnecessary check. Fix number of - allocated bytes. - (mtext_from_data): Don't count items. - (mtext_ref_char): Optimize the code. - (mtext_set_char): Pay attention to format other than utf-8. - (mtext_cat_char): Likewise. - (mtext_dup): Don't call copy, instead do allocation here. - (mtext_cat): Call insert instead of copy. - (mtext_ncat): Likewise. - (mtext_cpy): Delete character at first and call insert instead of - copy. - (mtext_ncpy): Likewise. - (mtext_copy): Likewise. - (mtext_duplicate): Call insert instead of copy. - (mtext_del): Pay attention to format other than utf-8. - (mtext_ins): Simply call insert. - (mtext_ins_char): Pay attention to format other than utf-8. - (mtext_tok): Call insert instead of copy. - (mtext_text): Call UNIT_BYTES. - - * textprop.c (mtext__adjust_plist_for_change): New function. - - * character.h (USHORT_SIZE, UINT_SIZE, UNIT_BYTES): New macros. - (CHAR_UNITS_UTF16, CHAR_UNITS): Simplified. - (CHAR_UNITS_AT): Fix typo. - (CHAR_UNITS_BY_HEAD): Fix typo. - (STRING_CHAR_AND_UNITS): Fix typo. - - * internal.h (MTEXT_READ_ONLY_P): New macro. - - * mtext.h (mtext__replace): Delete the extern. - (mtext__adjust_foramt): Adjust prototype. - - * plist.c (mplist_deserialize): Adjust the format of MT to utf-8 - if possible. Otherwise make a copy of mmt. - - * coding.c (mconv_decode, mconv_gets): Adjust the format of MT to - utf-8. - -2004-06-18 Kenichi Handa - - * character.h (CHAR_STRING_UTF16): Fix syntax. - -2004-06-16 Kenichi Handa - - * Makefile.am (libm17n_gd_la_LIBADD): Delete it. - (libm17n_X_la_LIBADD): Delete it. - (libm17n_gd_la_LDFLAGS): Don't include @GD_LD_FLAGS@. - - * m17n-X.c (device_open): Add parens in `if' condition. - - * mtext.c (INC_POSITION): Handle format other than utf8 and utf16. - (DEC_POSITION): Likewise. - (compare): Fix case that mt1->format is MTEXT_FORMAT_UTF_8. - -2004-06-15 Kenichi Handa - - * fontset.c (mfont__lookup_fontset): Fix selection of font groups - by language. - - * draw.c (compose_glyph_string): If langauge is specified, call - mface__for_chars even if a text is all latin. Fix condition for - setting non_ascii_found. - - * m17n-X.c (xft_find_metric): Fix setting of g->lbrearing. - - * m17n.h (minput_char_to_key): Delete extern. - - * m17n-gui.h (minput_event_to_key): Cancel previous change. - - * m17n-gui.c (null_device_open): Set several members of frame. - -2004-06-14 Kenichi Handa - - * m17n-gui.h (minput_event_to_key): Delete extern. - - * symbol.h (struct MSymbolStruct): Renamed from MSymbol. - - * m17n-core.h (MSymbol): Defined as "struct MSymbolStruct *". - - * Makefile.am (AM_CPPFLAGS): Refer to @M17NDIR@. - -2004-06-08 Kenichi Handa - - * character.c (mchar_put_prop): Don't increment the ref-count of - record->table. - -2004-06-04 Kenichi Handa - - * m17n-core.c (mdebug__register_object): New function. - (mdebug__unregister_object): Likewise. - - * internal.h (mdebug__register_object, mdebug__unregister_object): - Extern them. - (M17N_OBJECT_REGISTER, M17N_OBJECT_UNREGISTER): Call them - respectively. - - * charset.c (mcharset__load_from_database): Don't call - mconv__register_charset_coding here. - - * coding.c (find_coding): Get a real name from an element of - coding_definition_list. - (mconv__register_charset_coding): Set the real name at the top of - param. - (mcoding__load_from_database): Likewise. - (mconv_list_codings): Adjusted for the above change. - -2004-06-03 Kenichi Handa - - * coding.c (find_coding): Find by canonicalized name. Don't have - to modify the element of coding_definition_list by - mplist__from_plist. - (mconv__define_coding_from_charset): Delete it. - (mconv__register_charset_coding): Canonicalize sym. - (mcoding__load_from_database): Register plist modified by - mplist__from_plist. - - * coding.h (mconv__define_coding_from_charset): Don't extern it. - - * font-ft.c (ft_open): Fix setting of rfont->descent. - -2004-06-02 Kenichi Handa - - * font.c (enum xlfd_field_idx): Moved from m17n-X.c. - (xlfd_parse_name): Merge split_font_name and xfont_parse_name. - (xlfd_unparse_name): Renamed from xfont_build_name. - (mfont__init): Initialized Mfontconfig. - (mfont__free_realized): Unconditionally unref rfont->info. - (mfont__select): Free `this' if it's not best. - (mfont__open): Don't check frame->realized_font_list. - (mfont__parse_name_into_font): New function. - (Mfontconfig): New variable. - (mfont_from_name): Call mfont_parse_name. - (mfont_name): Call mfont_unparse_name. - (mdebug_dump_font): Likewise. - - * font.h (struct MFontDriver): Delete members parse_name and - build_name. - (mfont__ft_parse_name, mfont__ft_unparse_name): Extern them. - (mfont__parse_name_into_font): Extern it. - - * font-ft.c: Include "symbol.h". - (close_ft): Unconditionally free filename and charmap_list of - ft_into. - (ft_open): Duplicate base->filename. Increment ref-count of - ft_info->charmap_list. Free ft_info->charmap_list and - ft_info->filename on error. - (mfont__ft_parse_name, mfont__ft_unparse_name): New functions. - - * m17n-X.c (xfont_driver): Don't include xfont_parse_name and - xfont_build_name. - (enum xlfd_field_idx): Moved to font.c. - (split_font_name, build_font_name): Likewise. - (build_font_list): Call mfont__parse_name_info_font. - (xfont_open): Call mfont__unparse_name. Free name. - (xfont_parse_name, xfont_build_name): Moved to font.c - (xft_select): Prototype deleted. - (device_open): Check HAVE_FREETYPE on using mfont__ft_driver. - Call mfont_pase_name. - - * m17n-gui.c (free_frame): Unref frame->font_driver_list. - (m17n_fini_win): Add check HAVE_FREETYPE on using null_interface. - (mframe): Likewise. - - * m17n-gui.h (mfont_parse_name, mfont_unparse_name, Mfontconfig): - Extern them. - - * Makefile.am (linkgui_LDADD): Add libm17n-X.la and libm17n-gd.la. - -2004-06-01 Kenichi Handa - - * fontset.c (mfontset_modify_entry): Pay attention to the case - that fontset->font_spec_list is NULL. - -2004-05-31 Kenichi Handa - - * m17n-gui.c: Include only when HAVE_DLFCN_H is defined. - - * input.c: Include only when HAVE_DLFCN_H is defined. - - * font.c (mfont__select): Print score the a font for debugging. - - * Makefile.am (libm17n_la_LIBADD): Delete -ldl. - - * coding.c (reset_coding_sjis): Check kanji and kana instead of - kanji_sym and kana_sym. - -2004-05-28 Kenichi Handa - - * Makefile.am (VINFO): New variable. - (libm17n_core_la_LDFLAGS, libm17n_la_LDFLAGS) - (libm17n_gd_la_LDFLAGS): Include ${VINFO}. - -2004-05-27 Kenichi Handa - - The following chanages are to make device dependent functions - accessible only from MDeviceDriver structure, and to add GD and - null device drivers. Font drivers get also device dependent. - - * m17n.c (m17n_init): Increament shell_initialized. - (m17n_fini): Decremented shell_initialized. - - * m17n-misc.h (enum MErrorCode): New element MERROR_GD. - - * m17n-gui.h (Mdevice, Mdisplay, Mscreen, Mdrawable, Mdepth) - (Mwidget, Mcolormap, Mx): Extern them. - - * m17n-gui.c: Include and "config.h". - (free_frame): Call frame->driver->close instead of - mwin__close_device. - (DLOPEN_SHLIB_EXT): New macro. - (MDeviceLibraryInterface): New type. - (device_library_list): New variable. - (register_device_library): New function. - (null_device): New variable. - (null_device_close, null_device_get_prop) - (null_device_realize_face, null_device_free_realized_face): New - function. - (null_driver): New variable. - (null_device_init, null_device_fini, null_device_open): New - functions. - (null_interface): New variable. - (Mfreetype, Mdevice): Declare them. - (m17n_init_win): Increment win_initialized. Initialize Mx, Mgd, - Mfreetype, Mdevice, Mdisplay, Mscreen, Mdrawable, Mdevice, and - Mwin__Close_Device. Register drivers for Mx and Mgd. - (m17n_fini_win): Decremented win_initialized. Call "fini" - function of all opened devices. Don't call mwin__fini. - (Mdisplay, Mscreen, Mdrawable, Mdepth, Mwidget, Mcolormap): - Declare them here. - (mframe): Handle Mdevice key of PLIST. - (mframe_get_prop): Call frame->device->get_prop instead of - mwin__device_get_prop. - - * m17n-gd.c: New file. - - * m17n-core.h (M17NLIB_MAJOR_VERSION, M17NLIB_MINOR_VERSION) - (M17NLIB_PATCH_LEVEL, M17NLIB_VERSION_NAME): Updated to 1.1.0. - - * m17n-core.c (m17n_init_core): Increate core_initialized. - (m17n_fini_core): Decremented core_initialized. - - * m17n-X.h (Mdisplay, Mscreen, Mdrawable, Mdepth, Mwidget) - (Mcolormap): Don't extern them here. - - * m17n-X.c (FRAME_DEVICE): New macro. - (FRAME_DISPLAY, FRAME_SCREEN, FRAME_CMAP): Use FRAME_DEVICE. - (free_display_info): Use MPLIST_DO. - (free_device): Free rface->info. - (xft_close): Delete it. - (device_init): Renamed from mwin__init. - (device_fini): Renamed from mwin__fini. - (device_open): Renamed from mwin__open_device. - (x_driver): New variable. - (MXFontInfo): Delete member frame, add member display. - (Mdisplay, Mscreen, Mdrawable, Mdepth, Mwidget, Mcolormap, Mxim): - Don't declare them here. - - * internal-gui.h (MDeviceType): New enum. - (MWDefice): Delete it. - (struct MFrame): Change type of device to void *. New members - device_type, driver, font_driver_list. - (M_CHECK_WRITABLE, M_CHECK_READABLE): New macros. - (MDeviceDriver): New type. - (Mx, Mgd, Mfreetype): Extern them. - (mwin__XXX): Delete all of them. - - * input-gui.c (win_create_ic): Call frame->driver->XXX instead of - mwin__XXX. - (win_destroy_ic): Likewise. - (adjust_window_and_draw): Likewise. - (win_callback): Likewise. - (Mxim): Declare it here. - (minput_event_to_key): Call M_CHECK_READABLE. - - * fontset.c (mfont__lookup_fontset): Delete local variable - font_group. - - * font.h (struct MFontDriver): Delete member close, add members - parse_name and build_name. - (mfont__driver_list): Delete extern. - (mfont__close): Delete extern. - - * font.c (mfont__init): Don't set mfont__driver_list. - (mfont__fini): Don't unref mfont__driver_list. - (mfont__select): Try font drivers in frame->font_driver_list. Set - driver member of a realized font. - (mfont__close): Delete it. - (mfont_from_name, mfont_name, mdebug_dump_font): Call driver - functions of the default frame. - - * font-ft.c (close_ft): Check ft_info->ft_face and work - differently. - (add_font_info): Allocate ft_info by M17N_OBJECT. - (ft_close): Delete it. - (mfont__ft_driver): Don't set ft_close. - (ft_select): Increment ref-count of best_font. - (ft_open): Decremented ref-count of base. On error, call - FT_Done_Face and free ft_info. - (ft_find_metric): Always use XXX_MONO in load_flags. - (ft_render): Fix setting of width. Call - frame->driver->draw_points instead of mwin__draw_points. - (ft_to_prop): Don't set mfont__driver_list. - (mfont__ft_fini): Just unref ft_info. - - * face.c (mface__init): Exchange foreground and background of - mface__default. Call mface_put_prop to set hline of - mface_underline, - (mface__realize): Call frame->driver->XXX instead of mwin__XXX. - (mface__free_realized): Don't call mwin__free_realized_face. - - * draw.c (Mdepth): Don't declare it here. - (draw_background): Call frame->driver->XXX instead of mwin__XXX. - (render_glyphs, render_glyph_string): Likewise. - (mdraw__init): Don't set Mdepth. - (mdraw_text, mdraw_image_text, mdraw_text_with_control): Call - M_CHECK_WRITABLE. - (mdraw_text_per_char_extents): Return 0 on success and -1 on - error. - (mdraw_text_items): Check FRAME is writable. - (mdraw_per_char_extents): Implement body. - - * Makefile.am (lib_LTLIBRARIES): Include libm17n-gui.la and - libm17n-gd.la. - (OPTIONAL_LD_FLAGS): Include @FONTCONFIG_LD_FLAGS@. - (GUI_SOURCES): Delete it. - (libm17n_X_la_SOURCES): Don't include ${GUI_SOURCES}. - (libm17n_gui_la_SOURCES, libm17n_gui_la_LIBADD) - (libm17n_gui_la_LDFLAGS, libm17n_gd_la_SOURCES) - (libm17n_gd_la_LIBADD, libm17n_gd_la_LDFLAGS): New targets. - (linkgui_LDADD): Set to libm17n-gui.la - (linkgui_LDFLAGS): New target. - (SRC): Include ${libm17n_gui_la_SOURCES} and - ${libm17n_gd_la_SOURCES}. - -2004-05-24 Kenichi Handa - - * draw.c (draw_background): Don't draw background even if - rface->face.property[MFACE_BACKGROUND] is not Mnil. - -2004-05-22 Kenichi Handa - - * m17n-X.c (xft_open_font): Fix anti_alias setting. - -2004-05-20 Kenichi Handa - - * m17n-gui.h (MFaceHookFunc): Change this function type to void. - - * m17n-gui.c: Include "plist.h". - (mframe): If PLIST is NULL, initialize it to emply plist. - - * m17n-X.c (build_font_list): Don't set property[MFONT_TYPE]. - (xft_driver): New variable. - (xft_select, close_xft, xft_open_font, xft_open, xft_close) - (xft_find_metric, xft_render): New function. - (mwin__init): Adjusted for the new mfont__driver_list. - (mwin__open_device): Assume arg PARAM is not NULL. Push a newly - generated face to PARAM. - (mwin__realize_face): Fix setting of box colors. Don't call hook - function here. - (mwin__draw_hline): New function. - (mwin__xft_close, mwin__xft_open, mwin__xft_get_metric) - (mwin__xft_render): Delete these function. - - * internal-gui.h (struct MFrame): New member tick. - (struct MGlyphString): New member tick. - (mwin__draw_rect, mwin__draw_empty_boxes): Extern them. - (mwin__xft_open, mwin__xft_close, mwin__xft_get_metric) - (mwin__xft_render): Delete extern. - - * fontset.c (mfont__lookup_fontset): Make the code simpler. - (mfontset): Always increment the reference count of returned - object. - - * font-ft.c (mfont__ft_fini): Don't include here. - (MFTInfo): Moved to font.h. - (ft_iso8859_1_font_list): Delete this variable. - (set_font_info): Don't set font->property[MFONT_TYPE]. - (set_font_info): Don't udpate ft_iso8859_1_font_list. - (add_font_info): Change type to void. - (fc_list): Change anme from xft_list. Caller changed. Include - FC_FOUNDRY and FC_PIXEL_SIZE in FcObjectSet. - (mfont__ft_driver): Change name from ft_driver. Caller changed. - (ft_select): Check HAVE_FONTCONFIG instead of HAVE_XFT2. - (close_ft): Don't call mwin__xft_close. Unref - ft_info->extra_info. - (ft_open): Don't setup ft_info->fontname. Don't call - mwin__xft_open. - (ft_find_metric): Don't call mwin__xft_get_metric. - (ft_encode_char): Call rfont->driver->open instead of ft_open. - (ft_render): Don't check HAVE_XFT2. Don't call mwin__xft_render. - (mfont__ft_init): Adjusted for new mfont__driver_list. - (mfont__ft_fini): Don't unref ft_iso8859_1_font_list. - - * font.c (mfont__driver_list): Make it MPlist. - (mfont__init): Adjust initialization of mfont__driver_list. - (mfont__fini): Free mfont__driver_list. - (mfont__set_spec_from_face): Don't set spec->property[MFONT_TYPE]. - (mfont__select): Adjusted for the new mfont__driver_list. - - * font.h (enum MFontProperty): Delete MFONT_TYPE. - (mfont__drirver_list): Adjust prototype. - (MFTInfo): Move to here from fron.c. Deleve member fontname. - - * face.h (struct MFace): Delete member realized_face_list, add - member frame_list. - (struct MRealizedFace): Delete member need_update - andnofont_rface, add member non_ascii_list. - (mface__update_frame_face): Extern it. - - * face.c (hline_prop_list, box_prop_list, noop_hook): New - variables. - (get_hline_create, get_box_create): New functions. - (find_realized_face): Cancel previous change. Arg RFONT deleted. - Use memcmp. - (free_face): Cancep previous change. Free face->frame_list. - (serialize_hline): Do nothing if hline->width is zero. - (serialize_box): Do nothing if box->width is zero. - (mface__init): Setup all properties of mface__default. - (mface__fini): Free hline_prop_list and box_prop_list. - (mface__realize): Cancel previous change. Update - face->frame_list. Setup rface->non_ascii_list. - (mface__for_chars): Update rface->non_ascii_list. - (mface__free_realized): Free rface->non_ascii_list. - (mface__update_frame_face): New function. - (mface): Initialize face->frame_list. - (mface_copy): Likewise. Just copy MFACE_HLINE and MFACE_BOX - properties. - (mface_merge): Likewise. - (mface_put_prop): If key is Mhline or Mbox, get value by - get_hline_create or get_box_create respectively. - (mface_put_prop): Update frame->tick and call - mface__update_frame_face if necessary. - (mface_update): Do nothing if func is noop_hook. - - * draw.c (render_glyphs): If a font is not found, use - mwin__draw_empty_boxes. - (alloc_gstring): Initialize gstring->tick. - (get_gstring): Check gstring->tick. - -2004-05-17 Kenichi Handa - - * face.c (find_realized_face): Return value changed. If RFONT is - NULL, avoid unnecessary checking. - (free_face): Free face->realized_face_list. - (mface__realize): Adjusted for the change of find_realized_face. - If it returns a realized face that needs update, free it and - realize a new one. Push a new realized face to - frame->realized_face_list instead of appending. - (mface__for_chars): Adjusted for the change of find_realized_face. - Short cut if the required font is in rface->ascii_rface. - (mface_put_prop): Free old value if necessary. Set need_update - member of realized faces to 1. - - * face.h (struct MFace): Delete member tick, add member - realized_face_list. - (struct MRealizedFace): Delete member tick, add member - need_update. - -2004-05-13 Kenichi Handa - - * m17n-X.c (mwin__xft_open): Destroy unnecessary patterns. - -2004-05-12 Kenichi Handa - - * internal-gui.h (mwin__xft_open): Arguemnt name changed. - - * m17n-X.c (mwin__xft_open): Argument changed to fontname and - parse it XftNameParse. - - * font-ft.c (MFTInfo) [HAVE_XFT2]: New member fontname. - (all_fonts_scaned): New variable. - (set_font_info): FAMILY may be Mnil. - (add_font_info): Argument changed. - (xft_list): Call add_font_info in it. - (ft_list): Likewise. - (ft_select): Make it work in the case family is Mnil. - (ft_open) [HAVE_XFT2]: Setup ft_info->fontname. - (mfont__ft_fini): Set all_fonts_scaned to 0. - - * fontset.c (mfont__lookup_fontset): Don't repeatedly try a font - that is failed to open. - -2004-05-10 Kenichi Handa - - * m17n-X.c (mwin__xft_render): Don't use anti-alias if the - device's depth is 1 (i.e. monochrome). - - * Makefile.am (OPTIONAL_LD_FLAGS): Change the order of elements - to work around the problem of libtool. - - * font-ft.c: Include . - (Municode_bmp, Municode_full, Miso10646_1, Miso8859_1): New - variables. - (mfont__ft_init): Initialize them. - (ft_iso8859_1_font_list): New variable. - (set_font_info): Detect a font containing iso8859-1 glyphs and - register it in ft_iso8859_1_font_list. If the font is not - scalable, assume it as BDF or PCF font and setup SIZE and RESY - properties of the font from its properties. - (add_font_list): If the font is not scalable, check if it is BDF - or PCF font. If not, ignore it. - (ft_select): If FAMILY is Mnil, return NULL only if the requested - registry is not iso8859-1. - (ft_select) [not HAVE_XFT2]: If FAMILY is Mnil, select one from - ft_iso8859_1_font_list. - (ft_find_metric): If the font is not scalable, assume it as BDF - or PCF, and get a metric from its properties. - (mfont__ft_fini): Free ft_iso8859_1_font_list. - -2004-05-07 Kenichi Handa - - * Makefile.am (libm17n_la_LIBADD): Include -ldl. - (libm17n_la_LDFLAGS): Delete it. - (noinst_PROGRAMS): Renamed from bin_PROGRAMS. - (install-binPROGRAMS, uninstall-binPROGRAMS): Delete them. - -2004-05-06 Kenichi Handa - - * draw.c (compose_glyph_string): Fix previous change. - -2004-04-30 Kenichi Handa - - * font-ft.c (ft_list): Delete unused variable `result'. - (ft_render): Fix for the case that bitmap.pitch < bitmap.width. - -2004-04-27 Kenichi Handa - - * m17n-X.c: Include config.h - [HAVE_XFT2]: Include . - (GCInfo) [HAVE_XFT2]: New member xft_color_fore, xft_color_back. - (MWDevice) [HAVE_XFT2]: New member xft_draw. - (FRAME_CMAP, FRAME_VISUAL): New macros. - (free_device) [HAVE_XFT2]: Destroy device->xft_draw. - (xfont_driver): Make it static. - (mwin__open_device) [HAVE_XFT2]: Setup device->xft_draw. - (mwin__realize_face) [HAVE_XFT2]: Setup info->xft_color_fore and - info->xft_color_back. - (MXftFontInfo) [HAVE_XFT2]: New type. - (mwin__xft_close) [HAVE_XFT2]: New function. - (mwin__xft_open) [HAVE_XFT2]: New function. - (mwin__xft_get_metric) [HAVE_XFT2]: New function. - (mwin__xft_render) [HAVE_XFT2]: New function. - - * internal-gui.h [HAVE_FREETYPE]: Include FT_FREETYPE_H. - (mwin__xft_open, mwin__xft_close) [HAVE_FREETYPE]: New externs. - (mwin__xft_get_metric, mwin__xft_render) [HAVE_FREETYPE]: New - externs. - - * font.h [HAVE_FREETYPE]: Include FT_FREETYPE_H. - - * font-ft.c: Don't include FT_FREETYPE_H here. - [HAVE_XFT2]: Include . - (fontconfig_initialized, fc_config) [HAVE_XFT2]: New variables. - (MFTInfo): New member charmap_index. - (MFTInfo) [HAVE_XFT2]: New member xft_info. - (check_otf_filename): Renamed from check_filename. Return value - changed. - (ft_set_property): This function deleted. - (set_font_info): New function. - (add_font_list): Argument changed. Add multiple fonts. - (xft_list) [HAVE_XFT2]: New function. - (ft_list) [not HAVE_XFT2]: New function. - (ft_select): Add code for Xft. - (close_ft): Likewise. - (ft_open): Likewise. - (ft_find_metric): Likewise. - (ft_encode_char): Likewise. - (ft_render): Likewise. - - * makefile.am (OPTIONAL_LD_FLAGS): Include @XFT2_LD_FLAGS@. - -2004-04-26 Kenichi Handa - - * textprop.c (mtext_attach_property): Declare the return type as - `int'. - -2004-04-21 Kenichi Handa - - * Makefile.am (OPTIONAL_LD_FLAGS): Include @XFT2_LD_FLAGS@ - -2004-04-09 Kenichi Handa - - * font-flt.c (struct): New members seq_beg, seq_end, seq_from, - seq_to. - (load_command): Setup above members. - -2004-04-05 Kenichi Handa - - * m17n-X.c (xfont_encode_char): Fix checking of byte1 and byte2. - -2004-03-30 Kenichi Handa - - * m17n-X.c (xfont_encode_char): Return MCHAR_INVALID_CODE if code - >= 0x10000. - - * m17n-core.h (M17NLIB_PATCH_LEVEL): Changed to 2. - (M17NLIB_VERSION_NAME): Changed to 1.0.2. - -2004-03-29 Kenichi Handa - - * Version 1.0 Patch Level 2 released. - -2004-03-29 Kenichi Handa - - * charset.c (make_charset): Set charset->fully_loaded and - charset->simple correctly. Don't try to get charset->min_char and - charset->max_char for a charset of method subset and superset. - Don't load a mapping file here. - (mcharset__init): Set unified_max. - (mcharset__load_from_database): Free a working plist. - - * coding.c (mcoding__fini): Free all malloced data. - - * input-gui.c (win_create_ic): Set control.as_image for preediting - to 0. - - * internal.h (M17N_OBJECT_REGISTER): Check the member `used' (not - `count') to initialize the array. - - * locale.c (mlocale_set): Fix the order of M17N_OBJECT_REF and - M17N_OBJECT_UNREF. - - * m17n-X.c (xfont_render): If rface->rfont is null, draw a - rectangle. - (mwin__create_window): Fix bug of setting a background pixel of a - new window. - (mwin__adjust_window): Clear the window before drawing. - - * m17n-core.c (mdebug__report_object): Free array->objectes if - necessary. - (m17n_init_core): Don't set report_header_printed to 0 here. - Fix debugging information. - (m17n_fini_core): Set report_header_printed to 0 here. - - * m17n-core.h (mplist_deserialize): Extern it. - - * m17n-gui.c (m17n_fini_win): Fix debugging information. - - * m17n.c (m17n_fini): Fix debugging information. - - * mtext.c (mtext__adjust_foramt): New function. - - * mtext.h (mtext__adjust_foramt): Extern it. - - * plist.c (mplist_deserialize): Renamed from mplist__deserialize. - - * plist.h (mplist__deserialize): Don't extern it. - - * symbol.c (msymbol__fini): Set freed_symbols to 0. Set all - elements of symbol_table to NULL. Report about created and freed - symbols if MDEBUG_FINI is set. - -2004-03-22 Kenichi Handa - - * m17n-core.c (m17n_init_core): Set merror_code to MERROR_NONE. - - * m17n.c (m17n_init): Fix the way of checking merror_code. - - * m17n-gui.c (m17n_init_win): Fix the way of checking merror_code. - -2004-03-22 Kenichi Handa - - * fontset.c (realize_font_group): Adjust the font size by - mfont__resize before selecting a font. - - * font-ft.c (mfont__ft_init): Add oblique and boldoblique. - -2004-03-19 Kenichi Handa - - * Version 1.0 Patch Level 1 released. - -2004-03-19 Kenichi Handa - - * m17n-core.h (M17NLIB_PATCH_LEVEL): New macro. - - * m17n-core.c (M17NLIB_PATCH_LEVEL): Describe it. - -2004-03-19 Kenichi Handa - - Re-apply the changes forgotten in the released version. - - * charset.c (mcharset__load_from_database): Call - mchar_define_charset. - - * coding.c (encode_unsupporeted_char): Put Mcoding text property. - (mconv_encode_range): Put Mcoding text property. - -2004-03-18 Kenichi Handa - - * draw.c (Mdepth): New variable. - (visual_order): Delete unused local var `pos'. - (compose_glyph_string): Fix for the case that gstring->glyphs is - realloced. Stop generating glyphs at TO. Fix handling of - control charaters. - (layout_glyphs): Get metrics of all glyphs in advance. Set - lbearing and rbearing of base of composition glyph correctly. - Handle left-overhang glyphs correctly. - (alloc_gstring): New arg frame. Set gstring->anti_alias. Caller - changed. - (dump_combining_code): Change the defualt off_x character to ".". - (mdraw__init): Initialize Mdepth. - - * face.c (work_gstring): New variable - (mface__init): Initialize work_gstring. - (mface__fini): Free work_gstring.glyphs. - (mface__realize): Don't handle videomode property here. Adjusted - for the change of mfont__get_metric. - (mface__for_chars): Adjusted for the change of mfont__get_metric. - - * face.h (enum face_gc): Moved to m17n-X.c. - - * font.h (struct MFontDriver): Arguments of find_metric changed. - (mfont__select): Prototype adjusted. - (mfont__get_metric): Likewise. - (mfont__ft_drive_otf): Likewise. - (mfont__flt_run): Likewise. - - * font.c (mfont__select): New argument layouter. If layouter is - different in the registered font, make a new copy of realized - font. - (mfont__get_metric): Argument changed. Get metrics of multiple - glyphs. - (mfont_find): Call mfont__select with layouter as Mnil. - - * font-flt.c (FontLayoutContext): New member rfont. - (run_otf): Adjusted for the change of mfont__ft_drive_otf. - (mfont__flt_run): Argument changed. Initialize ctx.rfont. - - * font-ft.c (ft_find_metric): Arguments changed. Get metrics of - multiple glyphs. - (NUM_POINTS): New macro. - (MPointTable): New type. - (ft_render): Use mwin__draw_points instead of mwin__draw_bitmap. - (mfont__ft_drive_otf): New argument rfont. - - * fontset.c (realize_font_group): Adjusted for the changed of - mfont__select. - (check_fontset_element): This function deleted. - - * input-gui.c (adjust_window_and_draw): Locate a preedit window - off the parent window if the preedit text is zero length. - - * internal-gui.h (struct MFrame): New members foreground, - background, videomode, font. - (struct MGlyphString): New member anti_alias. - (MDrawPoint): New type. - (mwin__draw_bitmap): Prototype deleted. - (mwin__draw_points): Prototype added. - - * m17n-gui.h (MDrawControl): New member anti_alias. - - * m17n-gui.c (free_frame): Free frame->font. - (mframe): Set the fontset of frame->face to the default fontset. - - * m17n-X.c (RGB_GC): New type. - (enum gc_index): Renamed from enum face_gc. Member names changed. - (GCInfo): New typel - (struct MWDevice): Members foreground and background deleted. New - member scratch_gc, gc_list. - (DEFAULT_FONT, FALLBACK_FONT): New macros. - (free_device): Free GCs in device->gc_list. - (get_rgb_gc): New function. - (get_gc): Renamed and argument changed from get_color. - (get_gc_for_anti_alias): New function. - (xfont_find_metric): Arguments changed. Get metrics of multiple - glyphs. - (set_region): Argument changed. Caller changed. - (xfont_render): Allways set a font in gc. - (x_error_handler, x_io_error_handler): Define only if - X_SET_ERROR_HANDLER is defined. - (mwin__open_device): Create device->scratch_gc. Set members - foreground, background, and videomode of frame. Call - XSetErrorHandler and XSetIOErrorHandler only if - X_SET_ERROR_HANDLER is defined. - (struct gc_list): Deleted. - (REGISTER_GC, UNREGISTER_GC): These macros deleted. - (mwin__realize_face): Adjusted for the change of the format of - rface->info and the charge of set_region. - (mwin__free_realized_face, mwin__fill_space, mwin__draw_hline) - (mwin__draw_box): Likewise. - (mwin__draw_bitmap): This function deleted. - (mwin__draw_points): New function. - (mwin__verify_region): Adjusted for the change of the format of - rface->info and the charge of set_region. - (mwin__create_window): Inherit backgound pixel from parent. - (mwin__dump_gc): Adjusted for the change of the format of - rface->info. - -2004-03-16 Kenichi Handa - - * m17n-X.c (mwin__parse_event): Fix handling of modifier keys. - - * input.c (M_key_alias): New variable. - (handle_key): Try M_key_alias property of a key too. - (minput__init): Initialize M_key_alias. Give that property to - symbols in one_char_symbol. Fix bug of initializing - one_char_symbol. - - * draw.c (compose_glyph_string): Don't handle - ignore_formatting_char here. Include formatting characters in the - range processed by a FTL. - (layout_glyph_string): Handle ignore_formatting_char here. - -2004-03-12 Kenichi Handa - - * input-gui.c (win_create_ic): Enable bidi in status control. - - * draw.c (visual_order): Avoid re-ordering of combining glyphs only. - -2004-03-09 Kenichi Handa - - * input.c (load_input_method): If title is not specified, use the - input method name as title. - - * m17n-X.c (get_color): Make it static. - (xim_create_ic, xim_destroy_ic, x_error_handler) - (x_io_error_handler): Likewise. - -2004-03-01 Kenichi Handa - - * Version 1.0 released. - - -Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - -This file is part of the m17n library. - -The m17n library is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public License -as published by the Free Software Foundation; either version 2.1 of -the License, or (at your option) any later version. - -The m17n library 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 -Lesser General Public License for more details. - -You should have received a copy of the GNU Lesser General Public -License along with the m17n library; if not, write to the Free -Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -02111-1307, USA. diff --git a/src/Makefile.am b/src/Makefile.am deleted file mode 100644 index 8c4c13c..0000000 --- a/src/Makefile.am +++ /dev/null @@ -1,109 +0,0 @@ -# Copyright (C) 2003, 2004 -# National Institute of Advanced Industrial Science and Technology (AIST) -# Registration Number H15PRO112 - -# This file is part of the m17n library. - -# The m17n library is free software; you can redistribute it and/or -# modify it under the terms of the GNU Lesser General Public License -# as published by the Free Software Foundation; either version 2.1 of -# the License, or (at your option) any later version. - -# The m17n library 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 -# Lesser General Public License for more details. - -# You should have received a copy of the GNU Lesser General Public -# License along with the m17n library; if not, write to the Free -# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA -# 02111-1307, USA. - -VINFO = -version-info @API_VERSION@ - -lib_LTLIBRARIES = \ - libm17n-core.la \ - libm17n.la \ - libm17n-gui.la \ - libm17n-X.la \ - libm17n-gd.la - -libm17n_core_la_SOURCES = \ - character.h character.c \ - chartab.h chartab.c \ - internal.h \ - plist.h plist.c \ - m17n-core.h m17n-core.c \ - m17n-misc.h \ - mtext.h mtext.c \ - symbol.h symbol.c \ - textprop.h textprop.c - -libm17n_core_la_LDFLAGS = @XML2_LD_FLAGS@ ${VINFO} - -libm17n_la_SOURCES = \ - charset.h charset.c \ - coding.h coding.c \ - database.h database.c \ - input.h input.c \ - language.h language.c \ - mlocale.h locale.c \ - m17n.h m17n.c -libm17n_la_LIBADD = libm17n-core.la -libm17n_la_LDFLAGS = ${VINFO} - -GUI_SOURCES = \ - face.h face.c \ - font.h font.c font-ft.c font-flt.c \ - fontset.h fontset.c \ - draw.c \ - input-gui.c \ - internal-gui.h \ - m17n-gui.h m17n-gui.c - -X_LD_FLAGS = ${X_PRE_LIBS} ${X_LIBS} -lX11 -lXt ${X_EXTRA_LIBS} -OPTIONAL_LD_FLAGS = \ - @FREETYPE_LD_FLAGS@ \ - @FRIBIDI_LD_FLAGS@ \ - @OTF_LD_FLAGS@ \ - @FONTCONFIG_LD_FLAGS@ - -libm17n_gui_la_SOURCES = ${GUI_SOURCES} -libm17n_gui_la_LIBADD = libm17n.la -libm17n_gui_la_LDFLAGS = ${OPTIONAL_LD_FLAGS} ${VINFO} - -libm17n_X_la_SOURCES = m17n-X.h m17n-X.c -libm17n_X_la_LIBADD = libm17n-gui.la ${X_LD_FLAGS} @XFT2_LD_FLAGS@ -libm17n_X_la_LDFLAGS = ${VINFO} - -libm17n_gd_la_SOURCES = m17n-gd.h m17n-gd.c -libm17n_gd_la_LIBADD = libm17n-gui.la @GD_LD_FLAGS@ -libm17n_gd_la_LDFLAGS = ${VINFO} - -AM_CPPFLAGS = -DM17NDIR="\"@M17NDIR@\"" - - -include_HEADERS = m17n-core.h m17n.h m17n-misc.h m17n-gui.h m17n-X.h m17n-gd.h - -noinst_PROGRAMS = linkcore linkshell linkgui - -linkcore_SOURCES = linkcore.c -linkcore_LDADD = libm17n-core.la -linkcore_LDFLAGS = -static - -linkshell_SOURCES = linkshell.c -linkshell_LDADD = libm17n.la -linkshell_LDFLAGS = -static - -linkgui_SOURCES = linkgui.c -linkgui_LDADD = libm17n-gui.la libm17n-X.la libm17n-gd.la -linkgui_LDFLAGS = -static - -SRC = ${libm17n_core_la_SOURCES} \ - ${libm17n_la_SOURCES} \ - ${libm17n_gui_la_SOURCES} \ - ${libm17n_X_la_SOURCES} \ - ${libm17n_gd_la_SOURCES} - -TAGS: ${SRC} - etags ${SRC} diff --git a/src/README b/src/README deleted file mode 100644 index afc3a7c..0000000 --- a/src/README +++ /dev/null @@ -1,23 +0,0 @@ -Naming convention. - -name-space internal external -========== ======== ======== -function mobject__xxx mobject_xxx -symbol variable Mobject__xxx Mobject_xxx -other variable mobject__xxx mobject_xxx -constant macro MOBJECT_XXX -other macro MOBJECT_XXX -type MObject[Xxx] - -A structure is named as MXxxxx and is `typedef'ed with the same name. -Ex: typedef struct MFace MFace - -In comments, a structure member is denoted simply as `', -but a member of a specific structure is denoted as -`MStruct->member_name'. If the member itself is a structure (or a -pointer to a structure) and has a sub-member, the sub-member is -denoted as: - `' - or `sub_name>' - or `MStruct->member_name.subname' - or `MStruct->member_name->subname' diff --git a/src/character.c b/src/character.c deleted file mode 100644 index 81c8c63..0000000 --- a/src/character.c +++ /dev/null @@ -1,514 +0,0 @@ -/* character.c -- character module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @addtogroup m17nCharacter - @brief Character objects and API for them. - - The m17n library represents a @e character by a character code (an - integer). The minimum character code is @c 0. The maximum - character code is defined by the macro #MCHAR_MAX. It is - assured that #MCHAR_MAX is not smaller than @c 0x3FFFFF (22 - bits). - - Characters @c 0 to @c 0x10FFFF are equivalent to the Unicode - characters of the same code values. - - A character can have zero or more properties called @e character - @e properties. A character property consists of a @e key and a - @e value, where key is a symbol and value is anything that can be - cast to (void *). "The character property that belongs - to character C and whose key is K" may be shortened to "the K - property of C". */ - -/***ja - @addtogroup m17nCharacter - @brief Ê¸»ú¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API. - - m17n ¥é¥¤¥Ö¥é¥ê¤Ï @e Ê¸»ú ¤òÊ¸»ú¥³¡¼¥É¡ÊÀ°¿ô¡Ë¤ÇÉ½¸½¤¹¤ë¡£ºÇ¾®¤ÎÊ¸ - »ú¥³¡¼¥É¤Ï @c 0 ¤Ç¡¢ºÇÂç¤ÎÊ¸»ú¥³¡¼¥É¤Ï¥Þ¥¯¥í #MCHAR_MAX ¤Ë¤è¤Ã¤Æ - ÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£#MCHAR_MAX ¤Ï @c 0x3FFFFF¡Ê22¥Ó¥Ã¥È¡Ë °Ê¾å¤Ç¤¢¤ë - ¤³¤È¤¬ÊÝ¾Ú¤µ¤ì¤Æ¤¤¤ë¡£ - - @c 0 ¤«¤é @c 0x10FFFF ¤Þ¤Ç¤ÎÊ¸»ú¤Ï¡¢¤½¤ì¤ÈÆ±¤¸ÃÍ¤ò»ý¤Ä Unicode ¤Î - Ê¸»ú¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¡£ - - ³ÆÊ¸»ú¤Ï @e Ê¸»ú¥×¥í¥Ñ¥Æ¥£ ¤È¸Æ¤Ö¥×¥í¥Ñ¥Æ¥£¤ò 0 ¸Ä°Ê¾å»ý¤Ä¤³¤È¤¬¤Ç - ¤¤ë¡£Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Ï @e ¥¡¼ ¤È @e ÃÍ ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï¥·¥ó¥Ü¥ë¤Ç - ¤¢¤ê¡¢ÃÍ¤Ï (void *) ·¿¤Ë¥¥ã¥¹¥È¤Ç¤¤ë¤â¤Î¤Ê¤é²¿¤Ç¤â¤è¤¤¡£ - ¡ÖÊ¸»ú C ¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ K ¤Ç¤¢¤ë¤â¤Î¡×¤ò´ÊÃ±¤Ë - ¡ÖÊ¸»ú C ¤Î K ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£ */ -/*=*/ - -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include -#include - -#include "m17n-core.h" -#include "m17n-misc.h" -#include "internal.h" - -typedef struct -{ - MSymbol type; - void *mdb; - MCharTable *table; -} MCharPropRecord; - -static MPlist *char_prop_list; - -static void -free_string (int from, int to, void *str, void *arg) -{ - free (str); -} - - -/* Internal API */ - -int -mchar__init () -{ - char_prop_list = mplist (); - - Mname - = mchar_define_property ("name", Mstring); - Mcategory - = mchar_define_property ("category", Msymbol); - Mcombining_class - = mchar_define_property ("combining-class", Minteger); - Mbidi_category - = mchar_define_property ("bidirectional-category", Msymbol); - Msimple_case_folding - = mchar_define_property ("simple-case-folding", Minteger); - Mcomplicated_case_folding - = mchar_define_property ("complicated-case-folding", Mtext); - Mscript - = mchar_define_property ("script", Msymbol); - - return 0; -} - -void -mchar__fini (void) -{ - MPlist *p; - - for (p = char_prop_list; mplist_key (p) != Mnil; p = mplist_next (p)) - { - MCharPropRecord *record = mplist_value (p); - - if (record->table) - { - if (record->type == Mstring) - mchartable_map (record->table, NULL, free_string, NULL); - M17N_OBJECT_UNREF (record->table); - } - free (record); - } - M17N_OBJECT_UNREF (char_prop_list); -} - -/*** @} */ -#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ - -/* External API */ - -/*** @addtogroup m17nCharacter */ -/*** @{ */ -/*=*/ - -#ifdef FOR_DOXYGEN -/***en - @brief Maximum character code. - - The macro #MCHAR_MAX gives the maximum character code. */ - -/***ja - @brief Ê¸»ú¥³¡¼¥É¤ÎºÇÂçÃÍ. - - ¥Þ¥¯¥í #MCHAR_MAX ¤ÏÊ¸»ú¥³¡¼¥É¤ÎºÇÂçÃÍ¤òÍ¿¤¨¤ë¡£ */ - -#define MCHAR_MAX -/*=*/ -#endif /* FOR_DOXYGEN */ - -/***en - @ingroup m17nCharacter - @name Variables: Keys of character properties - - These symbols are used as keys of character properties. */ - -/***ja - @name ÊÑ¿ô: Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼ - - ¤³¤ì¤é¤Î¥·¥ó¥Ü¥ë¤ÏÊ¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£*/ -/*=*/ -/*** @{ */ - -/***en - @brief Key for script. - - The symbol #Mscript has the name "script" and is used as the key - of a character property. The value of such a property is a symbol - representing the script to which the character belongs. - - Each symbol that represents a script has one of the names listed in - the Unicode Technical Report #24. */ - -/***ja - @brief ¥¹¥¯¥ê¥×¥È¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mscript ¤Ï "script" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥× - ¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¤³¤ÎÊ¸»ú¤ÎÂ°¤¹ - ¤ë¥¹¥¯¥ê¥×¥È¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ - - ¥¹¥¯¥ê¥×¥È¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤ÎÌ¾Á°¤Ï¡¢Unicode Technical Report - #24 ¤Ë¥ê¥¹¥È¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£ */ - -MSymbol Mscript; - -/*=*/ - -/***en - @brief Key for character name. - - The symbol #Mname has the name "name" and is used as - the key of a character property. The value of such a property is a - C-string representing the name of the character. */ - -/***ja - @brief Ì¾Á°¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mname ¤Ï "name" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ - ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï C-string ¤Ç¤¢¤ê¡¢¤½ - ¤ÎÊ¸»ú¤ÎÌ¾Á°¤òÉ½¤ï¤¹¡£ */ - -MSymbol Mname; - -/*=*/ - -/***en - @brief Key for general category. - - The symbol #Mcategory has the name "category" and is - used as the key of a character property. The value of such a - property is a symbol representing the general category of - the character. - - Each symbol that represents a general category has one of the - names listed as abbreviations for General Category in - Unicode. */ - -/***ja - @brief °ìÈÌ¥«¥Æ¥´¥ê¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mcategory ¤Ï "category" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸ - »ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢ÂÐ±þ¤¹¤ë - °ìÈÌ¥«¥Æ¥´¥ê ¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ - - °ìÈÌ¥«¥Æ¥´¥ê¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤ÎÌ¾Á°¤Ï¡¢General Category¤Î - ¾ÊÎ¬·Á¤È¤·¤Æ Unicode ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ç¤¢¤ë¡£ */ - -MSymbol Mcategory; - -/*=*/ - -/***en - @brief Key for canonical combining class. - - The symbol #Mcombining_class has the name - "combining-class" and is used as the key of a character - property. The value of such a property is an integer that - represents the canonical combining class of the character. - - The meaning of each integer that represents a canonical combining - class is identical to the one defined in Unicode. */ - -/***ja - @brief É¸½à·ë¹ç¥¯¥é¥¹¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mcombining_class ¤Ï "combining-class" ¤È¤¤¤¦ - Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ - ¤Ï¡¢ÂÐ±þ¤¹¤ë @e É¸½à·ë¹ç¥¯¥é¥¹ ¤òÉ½¤ï¤¹À°¿ô¤Ç¤¢¤ë¡£ - - É¸½à·ë¹ç¥¯¥é¥¹¤òÉ½¤ï¤¹À°¿ô¤Î°ÕÌ£¤Ï¡¢Unicode ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î - ¤ÈÆ±¤¸¤Ç¤¢¤ë¡£ */ - -MSymbol Mcombining_class; -/*=*/ - -/***en - @brief Key for bidi category. - - The symbol #Mbidi_category has the name "bidi-category" - and is used as the key of a character property. The value of such - a property is a symbol that represents the bidirectional - category of the character. - - Each symbol that represents a bidirectional category has one of - the names listed as types of Bidirectional Category in - Unicode. */ - -/***ja - @brief ÁÐÊý¸þ¥«¥Æ¥´¥ê¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mbidi_category ¤Ï "bidi-category" ¤È¤¤¤¦Ì¾Á° - ¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢ - ÂÐ±þ¤¹¤ë @e ÁÐÊý¸þ¥«¥Æ¥´¥ê ¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ - - ÁÐÊý¸þ¥«¥Æ¥´¥ê¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤ÎÌ¾Á°¤Ï¡¢Bidirectional - Category ¤Î·¿¤È¤·¤Æ Unicode ¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤Ç¤¢¤ë¡£ */ - -MSymbol Mbidi_category; -/*=*/ - -/***en - @brief Key for corresponding single lowercase character. - - The symbol #Msimple_case_folding has the name - "simple-case-folding" and is used as the key of a - character property. The value of such a property is the - corresponding single lowercase character that is used when - comparing M-texts ignoring cases. - - If a character requires a complicated comparison (i.e. cannot be - compared by simply mapping to another single character), the value - of such a property is @c 0xFFFF. In this case, the character has - another property whose key is #Mcomplicated_case_folding. */ - -/***ja - @brief ÂÐ±þ¤¹¤ë¾®Ê¸»ú°ìÊ¸»ú¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Msimple_case_folding ¤Ï "simple-case-folding" - ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£ - ¤ÎÃÍ¤Ï¡¢ÂÐ±þ¤¹¤ë¾®Ê¸»ú°ìÊ¸»ú¤Ç¤¢¤ê¡¢ÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤¿ - Ê¸»úÎóÈæ³Ó¤ÎºÝ¤Ë»È¤ï¤ì¤ë¡£ - - Ê£»¨¤ÊÈæ³ÓÊýË¡¤òÉ¬Í×¤È¤¹¤ëÊ¸»ú¤Ç¤¢¤Ã¤¿¾ì¹ç¡ÊÊÌ¤Î°ìÊ¸»ú¤ÈÂÐ±þÉÕ¤±¤ë - ¤³¤È¤Ë¤è¤Ã¤ÆÈæ³Ó¤Ç¤¤Ê¤¤¾ì¹ç¡Ë¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï @c 0xFFFF ¤Ë - ¤Ê¤ë¡£¤³¤Î¾ì¹ç¤½¤ÎÊ¸»ú¤Ï¡¢#Mcomplicated_case_folding ¤È¤¤¤¦¥¡¼¤Î - Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¡£ */ - -MSymbol Msimple_case_folding; -/***en - @brief Key for corresponding multiple lowercase characters. - - The symbol #Mcomplicated_case_folding has the name - "complicated-case-folding" and is used as the key of a - character property. The value of such a property is the - corresponding M-text that contains a sequence of lowercase - characters to be used for comparing M-texts ignoring case. */ - -/***ja - @brief ÂÐ±þ¤¹¤ë¾®Ê¸»ú¤ÎÎó¤òÉ½¤ï¤¹¥¡¼. - - ¥·¥ó¥Ü¥ë #Mcomplicated_case_folding ¤Ï - "complicated-case-folding" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£ - ¤Î¥¡¼¤È¤·¤Æ»È¤ï¤ì¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢ÂÐ±þ¤¹¤ë¾®Ê¸»úÎó¤«¤é¤Ê - ¤ë M-text ¤Ç¤¢¤ê¡¢ÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤¿Ê¸»úÎóÈæ³Ó¤ÎºÝ¤Ë»È - ¤ï¤ì¤ë¡£ - */ - -MSymbol Mcomplicated_case_folding; -/*=*/ -/*** @} */ -/*=*/ - -/***en - @brief Define a character property. - - The mchar_define_property () function searches the m17n database - for a data whose tags are \<#Mchar_table, $TYPE, $SYM \>. - Here, $SYM is a symbol whose name is $NAME. $TYPE must be - #Mstring, #Mtext, #Msymbol, #Minteger, or #Mplist. - - @return - If the operation was successful, mchar_define_property () returns - $SYM. Otherwise it returns #Mnil. */ - -/***ja - @brief Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤òÄêµÁ¤¹¤ë. - - ´Ø¿ô mchar_define_property () ¤Ï¡¢ \<#Mchar_table, $TYPE, $SYM \> - ¤È¤¤¤¦¥¿¥°¤ò»ý¤Ã¤¿¥Ç¡¼¥¿¥Ù¡¼¥¹¤ò m17n ¸À¸ì¾ðÊó¥Ù¡¼¥¹¤«¤éÃµ¤¹¡£ ¤³ - ¤³¤Ç $SYM ¤Ï $NAME ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£$TYPE ¤Ï#Mstring, - #Mtext, #Msymbol, #Minteger, #Mplist ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ - - @return - ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mchar_define_property () ¤Ï$SYM ¤òÊÖ¤¹¡£ - ¼ºÇÔ¤·¤¿¾ì¹ç¤Ï #Mnil ¤òÊÖ¤¹¡£ */ - -/*** - @errors - @c MERROR_DB - - @seealso - mchar_get_prop (), mchar_put_prop () */ - -MSymbol -mchar_define_property (const char *name, MSymbol type) -{ - MSymbol key = msymbol (name); - MCharPropRecord *record; - - record = mplist_get (char_prop_list, key); - if (record) - { - if (record->table) - M17N_OBJECT_UNREF (record->table); - } - else - { - MSTRUCT_CALLOC (record, MERROR_CHAR); - mplist_put (char_prop_list, key, record); - } - - record->type = type; - if (mdatabase__finder - && (record->mdb = (*mdatabase__finder) (Mchar_table, type, key, Mnil))) - { - record->table = NULL; - } - else - { - void *default_value = NULL; - - record->mdb = NULL; - if (type == Minteger) - default_value = (void *) -1; - record->table = mchartable (type, default_value); - } - - return key; -} - -/*=*/ - -/***en - @brief Get the value of a character property. - - The mchar_get_prop () function searches character $C for the - character property whose key is $KEY. - - @return - If the operation was successful, mchar_get_prop () returns the - value of the character property. Otherwise it returns @c - NULL. */ - -/***ja - @brief Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë. - - ´Ø¿ô mchar_get_prop () ¤Ï¡¢Ê¸»ú $C ¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ - $KEY ¤Ç¤¢¤ë¤â¤Î¤òÃµ¤¹¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchar_get_prop () ¤Ï¸«¤Ä¤«¤Ã¤¿¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ - ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£ - - @latexonly \IPAlabel{mchar_get_prop} @endlatexonly -*/ -/*** - @errors - @c MERROR_SYMBOL, @c MERROR_DB - - @seealso - mchar_define_property (), mchar_put_prop () */ - -void * -mchar_get_prop (int c, MSymbol key) -{ - MCharPropRecord *record; - - record = mplist_get (char_prop_list, key); - if (! record) - return NULL; - if (record->mdb) - { - record->table = (*mdatabase__loader) (record->mdb); - if (! record->table) - MERROR (MERROR_DB, NULL); - record->mdb = NULL; - } - return mchartable_lookup (record->table, c); -} - -/*=*/ - -/***en - @brief Set the value of a character property. - - The mchar_put_prop () function searches character $C for the - character property whose key is $KEY and assigns $VAL to the value - of the found property. - - @return - If the operation was successful, mchar_put_prop () returns 0. - Otherwise, it returns -1. */ -/***ja - @brief Ê¸»ú¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÀßÄê¤¹¤ë. - - ´Ø¿ô mchar_put_prop () ¤Ï¡¢Ê¸»ú $C ¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ $KEY ¤Ç - ¤¢¤ë¤â¤Î¤òÃµ¤·¡¢¤½¤ÎÃÍ¤È¤·¤Æ $VAL ¤òÀßÄê¤¹¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchar_put_prop () ¤Ï0¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï-1¤òÊÖ - ¤¹¡£ */ -/*** - @errors - @c MERROR_SYMBOL, @c MERROR_DB - - @seealso - mchar_define_property (), mchar_get_prop () */ - -int -mchar_put_prop (int c, MSymbol key, void *val) -{ - MCharPropRecord *record; - - record = mplist_get (char_prop_list, key); - if (! record) - return -1; - if (record->mdb) - { - record->table = (*mdatabase__loader) (record->mdb); - if (! record->table) - MERROR (MERROR_DB, -1); - record->mdb = NULL; - } - return mchartable_set (record->table, c, val); -} - -/*** @} */ - -/* - Local Variables: - coding: euc-japan - End: -*/ diff --git a/src/character.h b/src/character.h deleted file mode 100644 index da63994..0000000 --- a/src/character.h +++ /dev/null @@ -1,288 +0,0 @@ -/* character.h -- header file for the character module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -#ifndef _M17N_CHARACTER_H_ -#define _M17N_CHARACTER_H_ - -/* UTF-8 format - - 0-7F 0xxxxxxx - 80-7FF 110xxxxx 10xxxxxx - 800-FFFF 1110xxxx 10xxxxxx 10xxxxxx - 10000-1FFFFF 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx - 200000-3FFFFFF 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx - 4000000-7FFFFFFF 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx - - Unicode range: - 0-10FFFF 0 - 11110uuu 10uuxxxx 10xxxxxx 10xxxxxx (uuuuu <= 0x10) - -*/ - -#define MAX_UTF8_CHAR_BYTES 6 -#define MAX_UNICODE_CHAR_BYTES 4 - -#define USHORT_SIZE (sizeof (unsigned short)) -#define UINT_SIZE (sizeof (unsigned int)) - -/* Return how many bytes one unit (char, short, or int) in FORMAT - occupies. */ - -#define UNIT_BYTES(format) \ - ((format) <= MTEXT_FORMAT_UTF_8 ? 1 \ - : (format) <= MTEXT_FORMAT_UTF_16BE ? USHORT_SIZE \ - : UINT_SIZE) - -/* Return how many units (char, short, or int) C will occupy in - MText->data. If C is not in the supported range, return 0. */ - -#define CHAR_UNITS_ASCII(c) ((c) < 0x80) - -#define CHAR_UNITS_UTF8(c) \ - ((c) < 0x80 ? 1 \ - : (c) < 0x800 ? 2 \ - : (c) < 0x10000 ? 3 \ - : (c) < 0x200000 ? 4 \ - : (c) < 0x4000000 ? 5 \ - : 6) - -#define CHAR_UNITS_UTF16(c) ((c) < 0x110000 ? (2 - ((c) < 0x10000)) : 0) - -#define CHAR_UNITS_UTF32(c) 1 - -#define CHAR_UNITS(c, format) \ - ((format) <= MTEXT_FORMAT_UTF_8 ? CHAR_UNITS_UTF8 (c) \ - : (format) <= MTEXT_FORMAT_UTF_16BE ? CHAR_UNITS_UTF16 (c) \ - : CHAR_UNITS_UTF32 (c)) - -#define CHAR_BYTES CHAR_UNITS_UTF8 - -#define CHAR_UNITS_AT_UTF8(p) \ - (!(*(p) & 0x80) ? 1 \ - : !(*(p) & 0x20) ? 2 \ - : !(*(p) & 0x10) ? 3 \ - : !(*(p) & 0x08) ? 4 \ - : !(*(p) & 0x04) ? 5 \ - : !(*(p) & 0x02) ? 6 \ - : 0) - -#define CHAR_UNITS_AT_UTF16(p) \ - (2 - (*(unsigned short *) (p) < 0xD800 \ - || *(unsigned short *) (p) >= 0xDC00)) - -#define CHAR_UNITS_AT(mt, p) \ - ((mt)->format <= MTEXT_FORMAT_UTF_8 ? CHAR_UNITS_AT_UTF8 (p) \ - : (mt)->format <= MTEXT_FORMAT_UTF_16BE ? CHAR_UNITS_AT_UTF16 (p) \ - : 1) - -#define CHAR_BYTES_AT CHAR_UNITS_AT_UTF8 - -#define CHAR_UNITS_BY_HEAD_UTF8(c) \ - (!((c) & 0x80) ? 1 \ - : !((c) & 0x20) ? 2 \ - : !((c) & 0x10) ? 3 \ - : !((c) & 0x08) ? 4 \ - : !((c) & 0x04) ? 5 \ - : !((c) & 0x02) ? 6 \ - : 0) - -#define CHAR_UNITS_BY_HEAD_UTF16(c) \ - (2 - ((unsigned short) (c) < 0xD800 || (unsigned short) (c) >= 0xDC00)) - -#define CHAR_UNITS_BY_HEAD(c, format) \ - ((format) <= MTEXT_FORMAT_UTF_8 ? CHAR_UNITS_BY_HEAD_UTF8 (c) \ - : (format) <= MTEXT_FORMAT_UTF_16BE ? CHAR_UNITS_BY_HEAD_UTF16 (c) \ - : 1) - -#define CHAR_BYTES_BY_HEAD CHAR_UNITS_BY_HEAD_UTF8 - -#define STRING_CHAR_UTF8(p) \ - (!((p)[0] & 0x80) ? (p)[0] \ - : !((p)[0] & 0x20) ? ((((p)[0] & 0x1F) << 6) \ - | ((p)[1] & 0x3F)) \ - : !((p)[0] & 0x10) ? ((((p)[0] & 0x0F) << 12) \ - | (((p)[1] & 0x3F) << 6) \ - | ((p)[2] & 0x3F)) \ - : !((p)[0] & 0x08) ? ((((p)[0] & 0x07) << 18) \ - | (((p)[1] & 0x3F) << 12) \ - | (((p)[2] & 0x3F) << 6) \ - | ((p)[3] & 0x3F)) \ - : !((p)[0] & 0x04) ? ((((p)[0] & 0x03) << 24) \ - | (((p)[1] & 0x3F) << 18) \ - | (((p)[2] & 0x3F) << 12) \ - | (((p)[3] & 0x3F) << 6) \ - | ((p)[4] & 0x3F)) \ - : ((((p)[0] & 0x01) << 30) \ - | (((p)[1] & 0x3F) << 24) \ - | (((p)[2] & 0x3F) << 18) \ - | (((p)[3] & 0x3F) << 12) \ - | (((p)[4] & 0x3F) << 6) \ - | ((p)[5] & 0x3F))) - -#define STRING_CHAR_UTF16(p) \ - (((unsigned short) (p)[0] < 0xD800 || (unsigned short) (p)[0] >= 0xDC00) \ - ? (p)[0] \ - : ((((p)[0] - 0xD800) << 10) + ((p)[1] - 0xDC00) + 0x10000)) - - -#define STRING_CHAR STRING_CHAR_UTF8 - - -#define STRING_CHAR_ADVANCE_UTF8(p) \ - (!(*(p) & 0x80) ? *(p)++ \ - : !(*(p) & 0x20) ? (((*(p)++ & 0x1F) << 6) \ - | (*(p)++ & 0x3F)) \ - : !(*(p) & 0x10) ? (((*(p)++ & 0x0F) << 12) \ - | ((*(p)++ & 0x3F) << 6) \ - | (*(p)++ & 0x3F)) \ - : !(*(p) & 0x08) ? (((*(p)++ & 0x07) << 18) \ - | ((*(p)++ & 0x3F) << 12) \ - | ((*(p)++ & 0x3F) << 6) \ - | (*(p)++ & 0x3F)) \ - : !(*(p) & 0x04) ? (((*(p)++ & 0x03) << 24) \ - | ((*(p)++ & 0x3F) << 18) \ - | ((*(p)++ & 0x3F) << 12) \ - | ((*(p)++ & 0x3F) << 6) \ - | (*(p)++ & 0x3F)) \ - : (((*(p)++ & 0x01) << 30) \ - | ((*(p)++ & 0x3F) << 24) \ - | ((*(p)++ & 0x3F) << 18) \ - | ((*(p)++ & 0x3F) << 12) \ - | ((*(p)++ & 0x3F) << 6) \ - | (*(p)++ & 0x3F))) - -#define STRING_CHAR_ADVANCE_UTF16(p) \ - (((unsigned short) (p)[0] < 0xD800 || (unsigned short) (p)[0] >= 0xDC00) \ - ? *(p)++ \ - : (((*(p)++ - 0xD800) << 10) + (*(p)++ - 0xDC00) + 0x10000)) - -#define STRING_CHAR_ADVANCE STRING_CHAR_ADVANCE_UTF8 - -#define STRING_CHAR_AND_UNITS_UTF8(p, bytes) \ - (!((p)[0] & 0x80) ? ((bytes) = 1, (p)[0]) \ - : !((p)[0] & 0x20) ? ((bytes) = 2, \ - ((((p)[0] & 0x1F) << 6) \ - | ((p)[1] & 0x3F))) \ - : !((p)[0] & 0x10) ? ((bytes) = 3, \ - ((((p)[0] & 0x0F) << 12) \ - | (((p)[1] & 0x3F) << 6) \ - | ((p)[2] & 0x3F))) \ - : !((p)[0] & 0x08) ? ((bytes) = 4, \ - ((((p)[0] & 0x07) << 18) \ - | (((p)[1] & 0x3F) << 12) \ - | (((p)[2] & 0x3F) << 6) \ - | ((p)[3] & 0x3F))) \ - : !((p)[0] & 0x04) ? ((bytes) = 5, \ - ((((p)[0] & 0x03) << 24) \ - | (((p)[1] & 0x3F) << 18) \ - | (((p)[2] & 0x3F) << 12) \ - | (((p)[3] & 0x3F) << 6) \ - | ((p)[4] & 0x3F))) \ - : ((bytes) = 6, \ - ((((p)[0] & 0x01) << 30) \ - | (((p)[1] & 0x3F) << 24) \ - | (((p)[2] & 0x3F) << 18) \ - | (((p)[3] & 0x3F) << 12) \ - | (((p)[4] & 0x3F) << 6) \ - | ((p)[5] & 0x3F)))) - -#define STRING_CHAR_AND_UNITS_UTF16(p, units) \ - (((unsigned short) (p)[0] < 0xD800 || (unsigned short) (p)[0] >= 0xDC00) \ - ? ((units) = 1, (p)[0]) \ - : ((units) = 2, \ - (((p)[0] - 0xD800) << 10) + ((p)[1] - 0xDC00) + 0x10000)) - -#define STRING_CHAR_AND_UNITS(p, units, format) \ - ((format) <= MTEXT_FORMAT_UTF_8 \ - ? STRING_CHAR_AND_UNITS_UTF8 (p, units) \ - : (format) <= MTEXT_FORMAT_UTF_16BE \ - ? STRING_CHAR_AND_UNITS_UTF16 (p, units) \ - : ((units) = 1, ((unsigned) (p))[0])) - - -#define STRING_CHAR_AND_BYTES STRING_CHAR_AND_UNITS_UTF8 - -#define CHAR_STRING_UTF8(c, p) \ - ((c) < 0x80 \ - ? ((p)[0] = (c), 1) \ - : (c) < 0x800 ? ((p)[0] = (0xC0 | ((c) >> 6)), \ - (p)[1] = (0x80 | ((c) & 0x3F)), \ - 2) \ - : (c) < 0x10000 ? ((p)[0] = (0xE0 | ((c) >> 12)), \ - (p)[1] = (0x80 | (((c) >> 6) & 0x3F)), \ - (p)[2] = (0x80 | ((c) & 0x3F)), \ - 3) \ - : (c) < 0x200000 ? ((p)[0] = (0xF0 | ((c) >> 18)), \ - (p)[1] = (0x80 | (((c) >> 12) & 0x3F)), \ - (p)[2] = (0x80 | (((c) >> 6) & 0x3F)), \ - (p)[3] = (0x80 | ((c) & 0x3F)), \ - 4) \ - : (c) < 0x4000000 ? ((p)[0] = 0xF8, \ - (p)[1] = (0x80 | ((c) >> 18)), \ - (p)[2] = (0x80 | (((c) >> 12) & 0x3F)), \ - (p)[3] = (0x80 | (((c) >> 6) & 0x3F)), \ - (p)[4] = (0x80 | ((c) & 0x3F)), \ - 5) \ - : ((p)[0] = (0xFC | ((c) >> 30)), \ - (p)[1] = (0x80 | (((c) >> 24) & 0x3F)), \ - (p)[2] = (0x80 | (((c) >> 18) & 0x3F)), \ - (p)[3] = (0x80 | (((c) >> 12) & 0x3F)), \ - (p)[4] = (0x80 | (((c) >> 6) & 0x3F)), \ - (p)[5] = (0x80 | ((c) & 0x3F)), \ - 6)) - -#define CHAR_STRING_UTF16(c, p) \ - ((c) < 0x10000 ? (p)[0] = (c), 1 \ - : (p[0] = (((c) - 0x10000) >> 10) + 0xD800, \ - p[1] = (((c) - 0x10000) & 0x3FF) + 0xDC00, \ - 2)) - -#define CHAR_STRING CHAR_STRING_UTF8 - -#define CHAR_HEAD_P_UTF8(p) \ - ((*(p) & 0xC0) != 0x80) - -#define CHAR_HEAD_P_UTF16(p) \ - (*(unsigned short *) (p) < 0xDC00 \ - || *(unsigned short *) (p) >= 0xE000) - -#define CHAR_HEAD_P CHAR_HEAD_P_UTF8 - -/** Locale-safe version of tolower (). It works only for an ASCII - character. */ -#define TOLOWER(c) (((c) >= 'A' && (c) <= 'Z') ? (c) + 32 : (c)) - -/** Locale-safe version of toupper (). It works only for an ASCII - character. */ -#define TOUPPER(c) (((c) >= 'a' && (c) <= 'z') ? (c) - 32 : (c)) - -/** Locale-safe version of isupper (). It works only for an ASCII - character. */ -#define ISUPPER(c) ((c) >= 'A' && (c) <= 'Z') - -/** Locale-safe version of isalnum (). It works only for an ASCII - character. */ -#define ISALNUM(c) \ - (((c) >= 'A' && (c) <= 'Z') \ - || ((c) >= 'a' && (c) <= 'z') \ - || ((c) >= '0' && (c) <= '9')) - -#endif /* not _M17N_CHARACTER_H_ */ diff --git a/src/charset.c b/src/charset.c deleted file mode 100644 index 0e2e458..0000000 --- a/src/charset.c +++ /dev/null @@ -1,1508 +0,0 @@ -/* charset.c -- charset module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ -/***en - @addtogroup m17nCharset - @brief Charset objects and API for them. - - The m17n library uses @e charset objects to represent a coded - character sets (CCS). The m17n library supports many predefined - coded character sets. Moreover, application programs can add - other charsets. A character can belong to multiple charsets. - - The m17n library distinguishes the following three concepts: - - @li A @e code-point is a number assigned by the CCS to each - character. Code-points may or may not be continuous. The type - @c unsigned is used to represent a code-point. An invalid - code-point is represented by the macro @c MCHAR_INVALID_CODE. - - @li A @e character @e index is the canonical index of a character - in a CCS. The character that has the character index N occupies - the Nth position when all the characters in the current CCS are - sorted by their code-points. Character indices in a CCS are - continuous and start with 0. - - @li A @e character @e code is the internal representation in the - m17n library of a character. A character code is a signed integer - of 21 bits or longer. - - Each charset object defines how characters are converted between - code-points and character codes. To @e encode means converting - code-points to character codes and to @e decode means converting - character codes to code-points. */ - -/***ja - @addtogroup m17nCharset - @brief Ê¸»ú¥»¥Ã¥È¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API. - - m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢Éä¹æ²½Ê¸»ú½¸¹ç (CCS) ¤ò @e Ê¸»ú¥»¥Ã¥È ¤È¸Æ¤Ö¥ª - ¥Ö¥¸¥§¥¯¥È¤ÇÉ½¸½¤¹¤ë¡£m17n ¥é¥¤¥Ö¥é¥ê¤ÏÂ¿¤¯¤ÎÉä¹æ²½Ê¸»ú½¸¹ç¤ò¤¢¤é¤«¤¸¤á - ¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¤·¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤¬ÆÈ¼«¤ËÊ¸»ú¥»¥Ã¥È¤ò - ÄÉ²Ã¤¹¤ë¤³¤È¤â²ÄÇ½¤Ç¤¢¤ë¡£°ì¤Ä¤ÎÊ¸»ú¤ÏÊ£¿ô¤ÎÊ¸»ú¥»¥Ã¥È¤ËÂ°¤·¤Æ¤â¤è - ¤¤¡£ - - m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢°Ê²¼¤Î³µÇ°¤ò¶èÊÌ¤·¤Æ¤¤¤ë: - - @li @e ¥³¡¼¥É¥Ý¥¤¥ó¥È ¤È¤Ï¡¢CCS ¤¬¤½¤ÎÃæ¤Î¸Ä¡¹¤ÎÊ¸»ú¤ËÂÐ¤·¤ÆÄêµÁ¤¹ - ¤ë¿ôÃÍ¤Ç¤¢¤ë¡£¥³¡¼¥É¥Ý¥¤¥ó¥È¤ÏÏ¢Â³¤·¤Æ¤¤¤ë¤È¤Ï¸Â¤é¤Ê¤¤¡£¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ï - @c unsigned ·¿¤Ë¤è¤Ã¤ÆÉ½¤µ¤ì¤ë¡£Ìµ¸ú¤Ê¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ï¥Þ¥¯¥í - @c MCHAR_INVALID_CODE ¤ÇÉ½¤µ¤ì¤ë¡£ - - @li @e Ê¸»ú¥¤¥ó¥Ç¥Ã¥¯¥¹ ¤È¤Ï¡¢CCS Æâ¤Ç³ÆÊ¸»ú¤Ë³ä¤êÅö¤Æ¤é¤ì¤ëÀµµ¬²½ - ¤µ¤ì¤¿¥¤¥ó¥Ç¥Ã¥¯¥¹¤Ç¤¢¤ë¡£Ê¸»ú¥¤¥ó¥Ç¥Ã¥¯¥¹¤¬ N ¤ÎÊ¸»ú¤Ï¡¢CCS Ãæ¤Î - Á´Ê¸»ú¤ò¥³¡¼¥É¥Ý¥¤¥ó¥È½ç¤ËÊÂ¤Ù¤¿¤È¤¤Ë N ÈÖÌÜ¤Ë¸½¤ï¤ì¤ë¡£CCS Ãæ¤Î - Ê¸»ú¥¤¥ó¥Ç¥Ã¥¯¥¹¤ÏÏ¢Â³¤·¤Æ¤ª¤ê¡¢0 ¤«¤é»Ï¤Þ¤ë¡£ - - @li @e Ê¸»ú¥³¡¼¥É ¤È¤Ï¡¢m17n ¥é¥¤¥Ö¥é¥êÆâ¤Ë¤ª¤±¤ëÊ¸»ú¤ÎÆâÉôÉ½¸½¤Ç¤¢ - ¤ê¡¢21 ¥Ó¥Ã¥È°Ê¾å¤ÎÄ¹¤µ¤ò»ý¤ÄÉä¹çÉÕ¤À°¿ô¤Ç¤¢¤ë¡£ - - ³ÆÊ¸»ú¥»¥Ã¥È¥ª¥Ö¥¸¥§¥¯¥È¤Ï¡¢¤½¤ÎÊ¸»ú¥»¥Ã¥È¤ËÂ°¤¹¤ëÊ¸»ú¤Î¥³¡¼¥É¥Ý¥¤ - ¥ó¥È¤ÈÊ¸»ú¥³¡¼¥É¤È¤Î´Ö¤ÎÊÑ´¹¤òµ¬Äê¤¹¤ë¡£¥³¡¼¥É¥Ý¥¤¥ó¥È¤«¤éÊ¸»ú¥³¡¼ - ¥É¤Ø¤ÎÊÑ´¹¤ò @e ¥Ç¥³¡¼¥É ¤È¸Æ¤Ó¡¢Ê¸»ú¥³¡¼¥É¤«¤é¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ø¤Î - ÊÑ´¹¤ò @e ¥¨¥ó¥³¡¼¥É ¤È¸Æ¤Ö¡£ */ - -/*=*/ -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include - -#include "m17n.h" -#include "m17n-misc.h" -#include "internal.h" -#include "symbol.h" -#include "charset.h" -#include "coding.h" -#include "chartab.h" -#include "plist.h" - -static int unified_max; - -/** List of all charsets ever defined. */ - -struct MCharsetList -{ - int size, inc, used; - MCharset **charsets; -}; - -static struct MCharsetList charset_list; - -static MPlist *charset_definition_list; - -/** Make a charset object from the template of MCharset structure - CHARSET, and return a pointer to the new charset object. - CHARSET->code_range[4N + 2] and CHARSET->code_range[4N + 3] are - not yet set. */ - -static MCharset * -make_charset (MCharset *charset) -{ - unsigned min_code, max_code; - int i, n; - int *range = charset->code_range; - - if (charset->dimension < 1 || charset->dimension > 4) - MERROR (MERROR_CHARSET, NULL); - if ((charset->final_byte > 0 && charset->final_byte < '0') - || charset->final_byte > 127) - MERROR (MERROR_CHARSET, NULL); - - for (i = 0, n = 1; i < 4; i++) - { - if (range[i * 4] > range[i * 4 + 1]) - MERROR (MERROR_CHARSET, NULL); - range[i * 4 + 2] = range[i * 4 + 1] - range[i * 4] + 1; - n *= range[i * 4 + 2]; - range[i * 4 + 3] = n; - } - - min_code = range[0] | (range[4] << 8) | (range[8] << 16) | (range[12] << 24); - if (charset->min_code == 0) - charset->min_code = min_code; - else if (charset->min_code < min_code) - MERROR (MERROR_CHARSET, NULL); - max_code = range[1] | (range[5] << 8) | (range[9] << 16) | (range[13] << 24); - if (charset->max_code == 0) - charset->max_code = max_code; - else if (charset->max_code > max_code) - MERROR (MERROR_CHARSET, NULL); - - charset->code_range_min_code = min_code; - charset->fully_loaded = 0; - charset->simple = 0; - - if (charset->method == Msubset) - { - MCharset *parent; - - if (charset->nparents != 1) - MERROR (MERROR_CHARSET, NULL); - parent = charset->parents[0]; - if (parent->method == Msuperset - || charset->min_code - charset->subset_offset < parent->min_code - || charset->max_code - charset->subset_offset > parent->max_code) - MERROR (MERROR_CHARSET, NULL); - } - else if (charset->method == Msuperset) - { - if (charset->nparents < 2) - MERROR (MERROR_CHARSET, NULL); - for (i = 0; i < charset->nparents; i++) - if (charset->min_code > charset->parents[i]->min_code - || charset->max_code < charset->parents[i]->max_code) - MERROR (MERROR_CHARSET, NULL); - } - else - { - charset->no_code_gap - = (charset->dimension == 1 - || (range[2] == 256 - && (charset->dimension == 2 - || (range[6] == 256 - && (charset->dimension == 3 - || range[10] == 256))))); - - if (! charset->no_code_gap) - { - int j; - - memset (charset->code_range_mask, 0, - sizeof charset->code_range_mask); - for (i = 0; i < 4; i++) - for (j = range[i * 4]; j <= range[i * 4 + 1]; j++) - charset->code_range_mask[j] |= (1 << i); - } - - if (charset->method == Moffset) - { - charset->max_char = charset->min_char + range[15] - 1; - if (charset->min_char < 0 - || charset->max_char < 0 || charset->max_char > unified_max) - MERROR (MERROR_CHARSET, NULL); - charset->simple = charset->no_code_gap; - charset->fully_loaded = 1; - } - else if (charset->method == Munify) - { - /* The magic number 12 below is to align to the SUB_BITS_2 - (defined in chartab.c) boundary in a char-table. */ - unified_max -= ((range[15] >> 12) + 1) << 12; - charset->unified_max = unified_max; - } - else if (charset->method != Mmap) - MERROR (MERROR_CHARSET, NULL); - } - - MLIST_APPEND1 (&charset_list, charsets, charset, MERROR_CHARSET); - - if (charset->final_byte > 0) - { - MLIST_APPEND1 (&mcharset__iso_2022_table, charsets, charset, - MERROR_CHARSET); - if (charset->revision <= 0) - { - int chars = range[2]; - - if (chars == 128) /* ASCII case */ - chars = 94; - else if (chars == 256) /* ISO-8859-X case */ - chars = 96; - MCHARSET_ISO_2022 (charset->dimension, chars, charset->final_byte) - = charset; - } - } - - return charset; -} - -static int -load_charset_fully (MCharset *charset) -{ - if (charset->method == Msubset) - { - MCharset *parent = charset->parents[0]; - - if (! parent->fully_loaded - && load_charset_fully (parent) < 0) - MERROR (MERROR_CHARSET, -1); - if (parent->method == Moffset) - { - unsigned code; - - code = charset->min_code - charset->subset_offset; - charset->min_char = DECODE_CHAR (parent, code); - code = charset->max_code - charset->subset_offset; - charset->max_char = DECODE_CHAR (parent, code); - } - else - { - unsigned min_code = charset->min_code - charset->subset_offset; - unsigned max_code = charset->max_code - charset->subset_offset; - int min_char = DECODE_CHAR (parent, min_code); - int max_char = min_char; - - for (++min_code; min_code <= max_code; min_code++) - { - int c = DECODE_CHAR (parent, min_code); - - if (c >= 0) - { - if (c < min_char) - min_char = c; - else if (c > max_char) - max_char = c; - } - } - charset->min_char = min_char; - charset->max_char = max_char; - } - } - else if (charset->method == Msuperset) - { - int min_char = 0, max_char = 0; - int i; - - for (i = 0; i < charset->nparents; i++) - { - MCharset *parent = charset->parents[i]; - - if (! parent->fully_loaded - && load_charset_fully (parent) < 0) - MERROR (MERROR_CHARSET, -1); - if (i == 0) - min_char = parent->min_char, max_char = parent->max_char; - else if (parent->min_char < min_char) - min_char = parent->min_char; - else if (parent->max_char > max_char) - max_char = parent->max_char; - } - charset->min_char = min_char; - charset->max_char = max_char; - } - else /* charset->method is Mmap or Munify */ - { - MDatabase *mdb = mdatabase_find (Mcharset, charset->name, Mnil, Mnil); - MPlist *plist; - - if (! mdb || ! (plist = mdatabase_load (mdb))) - MERROR (MERROR_CHARSET, -1); - charset->decoder = mplist_value (plist); - charset->encoder = mplist_value (mplist_next (plist)); - M17N_OBJECT_UNREF (plist); - mchartable_range (charset->encoder, - &charset->min_char, &charset->max_char); - if (charset->method == Mmap) - charset->simple = charset->no_code_gap; - else - charset->max_char = charset->unified_max + 1 + charset->code_range[15]; - } - - charset->fully_loaded = 1; - return 0; -} - - -/* Internal API */ - -MPlist *mcharset__cache; - -/* Predefined charsets. */ -MCharset *mcharset__ascii; -MCharset *mcharset__binary; -MCharset *mcharset__m17n; -MCharset *mcharset__unicode; - -MCharsetISO2022Table mcharset__iso_2022_table; - -/** Initialize charset handler. */ - -int -mcharset__init () -{ - MPlist *param, *pl; - - unified_max = MCHAR_MAX; - - mcharset__cache = mplist (); - mplist_set (mcharset__cache, Mt, NULL); - - MLIST_INIT1 (&charset_list, charsets, 128); - MLIST_INIT1 (&mcharset__iso_2022_table, charsets, 128); - charset_definition_list = mplist (); - - memset (mcharset__iso_2022_table.classified, 0, - sizeof (mcharset__iso_2022_table.classified)); - - Mcharset = msymbol ("charset"); - - Mmethod = msymbol ("method"); - Moffset = msymbol ("offset"); - Mmap = msymbol ("map"); - Munify = msymbol ("unify"); - Msubset = msymbol ("subset"); - Msuperset = msymbol ("superset"); - - Mdimension = msymbol ("dimension"); - Mmin_range = msymbol ("min-range"); - Mmax_range = msymbol ("max-range"); - Mmin_code = msymbol ("min-code"); - Mmax_code = msymbol ("max-code"); - Mascii_compatible = msymbol ("ascii-compatible"); - Mfinal_byte = msymbol ("final-byte"); - Mrevision = msymbol ("revision"); - Mmin_char = msymbol ("min-char"); - Mmapfile = msymbol_as_managing_key ("mapfile"); - Mparents = msymbol_as_managing_key ("parents"); - Msubset_offset = msymbol ("subset-offset"); - Mdefine_coding = msymbol ("define-coding"); - Maliases = msymbol_as_managing_key ("aliases"); - - param = mplist (); - pl = param; - /* Setup predefined charsets. */ - pl = mplist_add (pl, Mmethod, Moffset); - pl = mplist_add (pl, Mmin_range, (void *) 0); - pl = mplist_add (pl, Mmax_range, (void *) 0x7F); - pl = mplist_add (pl, Mascii_compatible, Mt); - pl = mplist_add (pl, Mfinal_byte, (void *) 'B'); - pl = mplist_add (pl, Mmin_char, (void *) 0); - Mcharset_ascii = mchar_define_charset ("ascii", param); - - mplist_put (param, Mmax_range, (void *) 0xFF); - mplist_put (param, Mfinal_byte, NULL); - Mcharset_iso_8859_1 = mchar_define_charset ("iso-8859-1", param); - - mplist_put (param, Mmax_range, (void *) 0x10FFFF); - Mcharset_unicode = mchar_define_charset ("unicode", param); - - mplist_put (param, Mmax_range, (void *) MCHAR_MAX); - Mcharset_m17n = mchar_define_charset ("m17n", param); - - mplist_put (param, Mmax_range, (void *) 0xFF); - Mcharset_binary = mchar_define_charset ("binary", param); - - M17N_OBJECT_UNREF (param); - - mcharset__ascii = MCHARSET (Mcharset_ascii); - mcharset__binary = MCHARSET (Mcharset_binary); - mcharset__m17n = MCHARSET (Mcharset_m17n); - mcharset__unicode = MCHARSET (Mcharset_unicode); - - return 0; -} - -void -mcharset__fini (void) -{ - int i; - MPlist *plist; - - for (i = 0; i < charset_list.used; i++) - { - MCharset *charset = charset_list.charsets[i]; - - if (charset->decoder) - free (charset->decoder); - if (charset->encoder) - M17N_OBJECT_UNREF (charset->encoder); - free (charset); - } - M17N_OBJECT_UNREF (mcharset__cache); - MLIST_FREE1 (&charset_list, charsets); - MLIST_FREE1 (&mcharset__iso_2022_table, charsets); - MPLIST_DO (plist, charset_definition_list) - M17N_OBJECT_UNREF (MPLIST_VAL (plist)); - M17N_OBJECT_UNREF (charset_definition_list); -} - - -MCharset * -mcharset__find (MSymbol name) -{ - MCharset *charset; - - charset = msymbol_get (name, Mcharset); - if (! charset) - { - MPlist *param = mplist_get (charset_definition_list, name); - - MPLIST_KEY (mcharset__cache) = Mt; - if (! param) - return NULL; - param = mplist__from_plist (param); - mchar_define_charset (MSYMBOL_NAME (name), param); - charset = msymbol_get (name, Mcharset); - M17N_OBJECT_UNREF (param); - } - MPLIST_KEY (mcharset__cache) = name; - MPLIST_VAL (mcharset__cache) = charset; - return charset; -} - - -/** Return the character corresponding to code-point CODE in CHARSET. - If CODE is invalid for CHARSET, return -1. */ - -int -mcharset__decode_char (MCharset *charset, unsigned code) -{ - int idx; - - if (code < 128 && charset->ascii_compatible) - return (int) code; - if (code < charset->min_code || code > charset->max_code) - return -1; - - if (! charset->fully_loaded - && load_charset_fully (charset) < 0) - MERROR (MERROR_CHARSET, -1); - - if (charset->method == Msubset) - { - MCharset *parent = charset->parents[0]; - - code -= charset->subset_offset; - return DECODE_CHAR (parent, code); - } - - if (charset->method == Msuperset) - { - int i; - - for (i = 0; i < charset->nparents; i++) - { - MCharset *parent = charset->parents[i]; - int c = DECODE_CHAR (parent, code); - - if (c >= 0) - return c; - } - return -1; - } - - idx = CODE_POINT_TO_INDEX (charset, code); - if (idx < 0) - return -1; - - if (charset->method == Mmap) - return charset->decoder[idx]; - - if (charset->method == Munify) - { - int c = charset->decoder[idx]; - - if (c < 0) - c = charset->unified_max + 1 + idx; - return c; - } - - /* Now charset->method should be Moffset. */ - return (charset->min_char + idx); -} - - -/** Return the code point of character C in CHARSET. If CHARSET does not - contain C, return MCHAR_INVALID_CODE. */ - -unsigned -mcharset__encode_char (MCharset *charset, int c) -{ - if (! charset->fully_loaded - && load_charset_fully (charset) < 0) - MERROR (MERROR_CHARSET, MCHAR_INVALID_CODE); - - if (charset->method == Msubset) - { - MCharset *parent = charset->parents[0]; - unsigned code = ENCODE_CHAR (parent, c); - - if (code == MCHAR_INVALID_CODE) - return code; - code += charset->subset_offset; - if (code >= charset->min_code && code <= charset->max_code) - return code; - return MCHAR_INVALID_CODE; - } - - if (charset->method == Msuperset) - { - int i; - - for (i = 0; i < charset->nparents; i++) - { - MCharset *parent = charset->parents[i]; - unsigned code = ENCODE_CHAR (parent, c); - - if (code != MCHAR_INVALID_CODE) - return code; - } - return MCHAR_INVALID_CODE; - } - - if (c < charset->min_char || c > charset->max_char) - return MCHAR_INVALID_CODE; - - if (charset->method == Mmap) - return (unsigned) mchartable_lookup (charset->encoder, c); - - if (charset->method == Munify) - { - if (c > charset->unified_max) - { - c -= charset->unified_max - 1; - return INDEX_TO_CODE_POINT (charset, c); - } - return (unsigned) mchartable_lookup (charset->encoder, c); - } - - /* Now charset->method should be Moffset */ - c -= charset->min_char; - return INDEX_TO_CODE_POINT (charset, c); -} - -int -mcharset__load_from_database () -{ - MDatabase *mdb = mdatabase_find (msymbol ("charset-list"), Mnil, Mnil, Mnil); - MPlist *def_list, *plist; - MPlist *definitions = charset_definition_list; - int mdebug_mask = MDEBUG_CHARSET; - - if (! mdb) - return 0; - MDEBUG_PUSH_TIME (); - def_list = (MPlist *) mdatabase_load (mdb); - MDEBUG_PRINT_TIME ("CHARSET", (stderr, " to load data.")); - MDEBUG_POP_TIME (); - if (! def_list) - return -1; - - MDEBUG_PUSH_TIME (); - MPLIST_DO (plist, def_list) - { - MPlist *pl, *p; - MSymbol name; - - if (! MPLIST_PLIST_P (plist)) - MERROR (MERROR_CHARSET, -1); - pl = MPLIST_PLIST (plist); - if (! MPLIST_SYMBOL_P (pl)) - MERROR (MERROR_CHARSET, -1); - name = MPLIST_SYMBOL (pl); - pl = MPLIST_NEXT (pl); - definitions = mplist_add (definitions, name, pl); - M17N_OBJECT_REF (pl); - p = mplist__from_plist (pl); - mchar_define_charset (MSYMBOL_NAME (name), p); - M17N_OBJECT_UNREF (p); - } - - M17N_OBJECT_UNREF (def_list); - MDEBUG_PRINT_TIME ("CHARSET", (stderr, " to parse the loaded data.")); - MDEBUG_POP_TIME (); - return 0; -} - -/*** @} */ -#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ - - -/* External API */ - -/*** @addtogroup m17nCharset */ -/*** @{ */ -/*=*/ - -#ifdef FOR_DOXYGEN -/***en - @brief Invalid code-point. - - The macro #MCHAR_INVALID_CODE gives the invalid code-point. */ - -/***ja - @brief Ìµ¸ú¤Ê¥³¡¼¥É¥Ý¥¤¥ó¥È. - - ¥Þ¥¯¥í #MCHAR_INVALID_CODE ¤ÏÌµ¸ú¤Ê¥³¡¼¥É¥Ý¥¤¥ó¥È¤òÍ¿¤¨¤ë¡£ */ - -#define MCHAR_INVALID_CODE -#endif -/*=*/ -/***en - @brief The symbol @c Mcharset. - - Any decoded M-text has a text property whose key is the predefined - symbol @c Mcharset. The name of @c Mcharset is - "charset". */ - -/***ja - @brief ¥·¥ó¥Ü¥ë @c Mcharset. - - ¥Ç¥³¡¼¥É¤µ¤ì¤¿ M-text ¤Ï¡¢¥¡¼¤¬ @c Mcharset ¤Ç¤¢¤ë¤è¤¦¤Ê¥Æ¥¥¹¥È - ¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¡£¥·¥ó¥Ü¥ë @c Mcharset ¤Ï "charset" ¤È¤¤ - ¤¦Ì¾Á°¤ò»ý¤Ä¡£ */ - -MSymbol Mcharset; -/*=*/ - -/***en - @name Variables: Symbols representing a charset. - - Each of the following symbols represents a predefined charset. */ - -/***ja - @name ÊÑ¿ô: Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë - - °Ê²¼¤Î³Æ¥·¥ó¥Ü¥ë¤Ï¡¢ÄêµÁºÑ¤ßÊ¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£ */ -/*=*/ -/*** @{ */ -/*=*/ -/***en - @brief Symbol representing the charset ASCII. - - The symbol #Mcharset_ascii has name "ascii" and represents - the charset ISO 646, USA Version X3.4-1968 (ISO-IR-6). */ -/***ja - @brief ASCII Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcharset_ascii ¤Ï "ascii" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - ISO 646, USA Version X3.4-1968 (ISO-IR-6) Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£ - */ - -MSymbol Mcharset_ascii; - -/*=*/ -/***en - @brief Symbol representing the charset ISO/IEC 8859/1. - - The symbol #Mcharset_iso_8859_1 has name "iso-8859-1" - and represents the charset ISO/IEC 8859-1:1998. */ -/***ja - @brief ISO/IEC 8859-1:1998 Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcharset_iso_8859_1 ¤Ï "iso-8859-1" ¤È¤¤¤¦Ì¾ - Á°¤ò»ý¤Á¡¢ISO/IEC 8859-1:1998 Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£ - */ - -MSymbol Mcharset_iso_8859_1; - -/***en - @brief Symbol representing the charset Unicode. - - The symbol #Mcharset_unicode has name "unicode" and - represents the charset Unicode. */ -/***ja - @brief Unicode Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcharset_unicode ¤Ï "unicode" ¤È¤¤¤¦Ì¾Á°¤ò»ý - ¤Á¡¢Unicode Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£ */ - -MSymbol Mcharset_unicode; - -/*=*/ -/***en - @brief Symbol representing the largest charset. - - The symbol #Mcharset_m17n has name "m17n" and - represents the charset that contains all characters supported by - the m17n library. */ -/***ja - @brief Á´Ê¸»ú¤ò´Þ¤àÊ¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcharset_m17n ¤Ï "m17n" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - m17n ¥é¥¤¥Ö¥é¥ê¤¬°·¤¦Á´¤Æ¤ÎÊ¸»ú¤ò´Þ¤àÊ¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£ */ - -MSymbol Mcharset_m17n; - -/*=*/ -/***en - @brief Symbol representing the charset for ill-decoded characters. - - The symbol #Mcharset_binary has name "binary" and - represents the fake charset which the decoding functions put to an - M-text as a text property when they encounter an invalid byte - (sequence). See @ref m17nConv @latexonly - (P.\pageref{group__m17nConv}) @endlatexonly for more details. */ - -/***ja - @brief Àµ¤·¤¯¥Ç¥³¡¼¥É¤Ç¤¤Ê¤¤Ê¸»ú¤ÎÊ¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcharset_binary ¤Ï "binary" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - µ¶¤Î (fake) Ê¸»ú¥»¥Ã¥È¤òÉ½¸½¤¹¤ë¡£¥Ç¥³¡¼¥É´Ø¿ô¤Ï¡¢M-text ¤Î¥Æ¥¥¹ - ¥È¥×¥í¥Ñ¥Æ¥£¤È¤·¤Æ¡¢Ìµ¸ú¤Ê¥Ð¥¤¥È¡Ê¥·¡¼¥¯¥¨¥ó¥¹¡Ë¤ËÁø¶ø¤·¤¿°ÌÃÖ¤òÉÕ²Ã¤¹¤ë¡£ - - ¾ÜºÙ¤Ï @ref m17nConv @latexonly - (P.\pageref{group__m17nConv}) @endlatexonly »²¾È¤Î¤³¤È¡£ */ - -MSymbol Mcharset_binary; - -/*=*/ -/*** @} */ -/*=*/ - -/***en - @name Variables: Parameter keys for mchar_define_charset (). - - These are the predefined symbols to use as parameter keys for the - function mchar_define_charset () (which see). */ - -/***ja - @name ÊÑ¿ô: mchar_define_charset ÍÑ¤Î¥Ñ¥é¥á¡¼¥¿¡¦¥¡¼ - - ¤³¤ì¤é¤Ï¡¢´Ø¿ô mchar_define_charset () ÍÑ¤Î¥Ñ¥é¥á¡¼¥¿¡¦¥¡¼¤È¤·¤Æ - »È¤ï¤ì¤ë¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ ¾Ü¤·¤¯¤Ï¤³¤Î´Ø¿ô¤Î²òÀâ¤ò»²¾È¤Î¤³¤È¡£*/ -/*** @{ */ -/*=*/ - -/***en - Parameter key for mchar_define_charset () (which see). */ - -/***ja - ´Ø¿ô mchar_define_charset () ÍÑ¤Î¥Ñ¥é¥á¡¼¥¿¡¦¥¡¼. */ - -MSymbol Mmethod; -MSymbol Mdimension; -MSymbol Mmin_range; -MSymbol Mmax_range; -MSymbol Mmin_code; -MSymbol Mmax_code; -MSymbol Mascii_compatible; -MSymbol Mfinal_byte; -MSymbol Mrevision; -MSymbol Mmin_char; -MSymbol Mmapfile; -MSymbol Mparents; -MSymbol Msubset_offset; -MSymbol Mdefine_coding; -MSymbol Maliases; -/*=*/ -/*** @} */ -/*=*/ - -/***en - @name Variables: Symbols representing charset methods. - - These are the predefined symbols that can be a value of the - #Mmethod parameter of a charset used in an argument to the - mchar_define_charset () function. - - A method specifies how code-points and character codes are - converted. See the documentation of the mchar_define_charset () - function for the details. */ - -/***ja - @name ÊÑ¿ô: Ê¸»ú¥»¥Ã¥È¤Î¥á¥½¥Ã¥É»ØÄê¤Ë»È¤ï¤ì¤ë¥·¥ó¥Ü¥ë - - ¤³¤ì¤é¤Ï¡¢Ê¸»ú¥»¥Ã¥È¤Î @e ¥á¥½¥Ã¥É ¤ò»ØÄê¤¹¤ë¤¿¤á¤ÎÄêµÁºÑ¤ß¥·¥ó¥Ü - ¥ë¤Ç¤¢¤ê¡¢Ê¸»ú¥»¥Ã¥È¤Î #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤Ê¤ë¤³¤È¤¬¤Ç¤¤ë¡£ - ¤³¤ÎÃÍ¤Ï´Ø¿ô mchar_define_charset () ¤Î°ú¿ô¤È¤·¤Æ»È¤ï¤ì¤ë¡£ - - ¥á¥½¥Ã¥É¤È¤Ï¡¢¥³¡¼¥É¥Ý¥¤¥ó¥È¤ÈÊ¸»ú¥³¡¼¥É¤òÁê¸ßÊÑ´¹¤¹¤ëºÝ¤ÎÊý¼°¤Î¤³ - ¤È¤Ç¤¢¤ë¡£¾Ü¤·¤¯¤Ï´Ø¿ô mchar_define_charset () ¤Î²òÀâ¤ò»²¾È¤Î¤³¤È¡£ */ -/*** @{ */ -/*=*/ -/***en - @brief Symbol for the offset type method of charset. - - The symbol #Moffset has the name "offset" and, when used - as a value of #Mmethod parameter of a charset, it means that the - conversion of code-points and character codes of the charset is - done by this calculation: - -@verbatim -CHARACTER-CODE = CODE-POINT - MIN-CODE + MIN-CHAR -@endverbatim - - where, MIN-CODE is a value of #Mmin_code parameter of the charset, - and MIN-CHAR is a value of #Mmin_char parameter. */ - -/***ja - @brief ¥ª¥Õ¥»¥Ã¥È·¿¤Î¥á¥½¥Ã¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Moffset ¤Ï "offset" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥»¥Ã - ¥È¤Î #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¥³¡¼¥É¥Ý¥¤¥ó - ¥È¤ÈÊ¸»ú¥»¥Ã¥È¤ÎÊ¸»ú¥³¡¼¥É¤Î´Ö¤ÎÊÑ´¹¤¬°Ê²¼¤Î¼°¤Ë½¾¤Ã¤Æ¹Ô¤ï¤ì¤ë¤³¤È - ¤ò°ÕÌ£¤¹¤ë¡£ - -@verbatim -Ê¸»ú¥³¡¼¥É = ¥³¡¼¥É¥Ý¥¤¥ó¥È - MIN-CODE + MIN-CHAR -@endverbatim - - ¤³¤³¤Ç¡¢MIN-CODE ¤ÏÊ¸»ú¥»¥Ã¥È¤Î #Mmin_code ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤Ç¤¢¤ê¡¢MIN-CHAR ¤Ï - #Mmin_char ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤Ç¤¢¤ë¡£ */ - -MSymbol Moffset; -/*=*/ - -/***en @brief Symbol for the map type method of charset. - - The symbol #Mmap has the name "map" and, when used as a - value of #Mmethod parameter of a charset, it means that the - conversion of code-points and character codes of the charset is - done by map looking up. The map must be given by #Mmapfile - parameter. */ - -/***ja @brief ¥Þ¥Ã¥×·¿¤Î¥á¥½¥Ã¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mmap ¤Ï "map" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥»¥Ã¥È¤Î - #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¥³¡¼¥É¥Ý¥¤¥ó¥È¤È - Ê¸»ú¥»¥Ã¥È¤ÎÊ¸»ú¥³¡¼¥É¤Î´Ö¤ÎÊÑ´¹¤¬¥Þ¥Ã¥×¤ò»²¾È¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¹Ô¤ï - ¤ì¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£¥Þ¥Ã¥×¤Ï #Mmapfile ¥Ñ¥é¥á¡¼¥¿¤È¤·¤ÆÍ¿¤¨¤Ê¤±¤ì - ¤Ð¤Ê¤é¤Ê¤¤¡£ */ - -MSymbol Mmap; -/*=*/ - -/***en @brief Symbol for the unify type method of charset. - - The symbol #Munify has the name "unify" and, when used as - a value of #Mmethod parameter of a charset, it means that the - conversion of code-points and character codes of the charset is - done by map looking up and offsetting. The map must be given by - #Mmapfile parameter. For this kind of charset, a unique - continuous character code space for all characters is assigned. - - If the map has an entry for a code-point, the conversion is done - by looking up the map. Otherwise, the conversion is done by this - calculation: - -@verbatim -CHARACTER-CODE = CODE-POINT - MIN-CODE + LOWEST-CHAR-CODE -@endverbatim - - where, MIN-CODE is a value of #Mmin_code parameter of the charset, - and LOWEST-CHAR-CODE is the lowest character code of the assigned - code space. */ - -/***ja @brief ¥æ¥Ë¥Õ¥¡¥¤·¿¤Î¥á¥½¥Ã¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Minherit ¤Ï "unify" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥»¥Ã - ¥È¤Î #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¥³¡¼¥É¥Ý¥¤¥ó - ¥È¤ÈÊ¸»ú¥»¥Ã¥È¤ÎÊ¸»ú¥³¡¼¥É¤Î´Ö¤ÎÊÑ´¹¤¬¡¢¥Þ¥Ã¥×¤Î»²¾È¤È¥ª¥Õ¥»¥Ã¥È¤Î - ÁÈ¤ß¹ç¤ï¤»¤Ë¤è¤Ã¤Æ¹Ô¤ï¤ì¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£¥Þ¥Ã¥×¤Ï #Mmapfile ¥Ñ¥é - ¥á¡¼¥¿¤È¤·¤ÆÍ¿¤¨¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤Î¼ï¤Î³ÆÊ¸»ú¥»¥Ã¥È¤Ë¤Ï¡¢Á´Ê¸»ú - ¤ËÂÐ¤·¤ÆÏ¢Â³¤¹¤ë¥³¡¼¥É¥¹¥Ú¡¼¥¹¤¬¤½¤ì¤¾¤ì³ä¤êÅö¤Æ¤é¤ì¤ë¡£ - - ¥³¡¼¥É¥Ý¥¤¥ó¥È¤¬¥Þ¥Ã¥×¤Ë´Þ¤Þ¤ì¤Æ¤¤¤ì¤Ð¡¢ÊÑ´¹¤Ï¥Þ¥Ã¥×»²¾È¤Ë¤è¤Ã¤Æ¹Ô - ¤ï¤ì¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢°Ê²¼¤Î¼°¤Ë½¾¤¦¡£ - -@verbatim -CHARACTER-CODE = CODE-POINT - MIN-CODE + LOWEST-CHAR-CODE -@endverbatim - - ¤³¤³¤Ç¡¢MIN-CODE ¤ÏÊ¸»ú¥»¥Ã¥È¤Î #Mmin_code ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤Ç¤¢¤ê¡¢ - LOWEST-CHAR-CODE ¤Ï³ä¤êÅö¤Æ¤é¤ì¤¿¥³¡¼¥É¥¹¥Ú¡¼¥¹¤ÎºÇ¤â¾®¤µ¤¤Ê¸»ú¥³¡¼ - ¥É¤Ç¤¢¤ë¡£ - */ - -MSymbol Munify; -/*=*/ - -/***en - @brief Symbol for the subset type method of charset. - - The symbol #Msubset has the name "subset" and, when used - as a value of #Mmethod parameter of a charset, it means that the - charset is a subset of a parent charset. The parent charset must - be given by #Mparents parameter. The conversion of code-points - and character codes of the charset is done conceptually by this - calculation: - -@verbatim -CHARACTER-CODE = PARENT-CODE (CODE-POINT) + SUBSET-OFFSET -@endverbatim - - where, PARENT-CODE is a pseudo function that returns a character - code of CODE-POINT in the parent charset, and SUBSET-OFFSET is a - value given by #Msubset_offset parameter. */ - -/***ja @brief ¥µ¥Ö¥»¥Ã¥È·¿¤Î¥á¥½¥Ã¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Msubset ¤Ï "subset" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú¥»¥Ã - ¥È¤Î #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¤³¤ÎÊ¸»ú¥»¥Ã - ¥È¤¬ÊÌ¤ÎÊ¸»ú¥»¥Ã¥È¡Ê¿ÆÊ¸»ú¥»¥Ã¥È¡Ë¤ÎÉôÊ¬½¸¹ç¤Ç¤¢¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£ - ¿ÆÊ¸»ú¥»¥Ã¥È¤Ï #Mparents ¥Ñ¥é¥á¡¼¥¿¤Ë¤è¤Ã¤ÆÍ¿¤¨¤é¤ì¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - ¥³¡¼¥É¥Ý¥¤¥ó¥È¤ÈÊ¸»ú¥»¥Ã¥È¤ÎÊ¸»ú¥³¡¼¥É¤Î´Ö¤ÎÊÑ´¹¤Ï¡¢³µÇ°Åª¤Ë¤Ï - °Ê²¼¤Î¼°¤Ë½¾¤¦¡£ - -@verbatim -CHARACTER-CODE = PARENT-CODE (CODE-POINT) + SUBSET-OFFSET -@endverbatim - - ¤³¤³¤Ç PARENT-CODE ¤Ï CODE-POINT ¤Î¿ÆÊ¸»ú¥»¥Ã¥ÈÃæ¤Ç¤ÎÊ¸»ú¥³¡¼¥É¤ò - ÊÖ¤¹µ¼´Ø¿ô¤Ç¤¢¤ê¡¢SUBSET-OFFSET ¤Ï #Msubset_offset ¥Ñ¥é¥á¡¼¥¿¤ÇÍ¿ - ¤¨¤é¤ì¤ëÃÍ¤Ç¤¢¤ë¡£ - */ - -MSymbol Msubset; -/*=*/ - -/***en - @brief Symbol for the superset type method of charset. - - The symbol #Msuperset has the name "superset" and, when - used as a value of #Mmethod parameter of a charset, it means that - the charset is a superset of parent charsets. The parent charsets - must be given by #Mparents parameter. */ - -/***ja - @brief ¥¹¡¼¥Ñ¡¼¥»¥Ã¥È·¿¤Î¥á¥½¥Ã¥É¤ò¼¨¤¹¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Msuperset ¤Ï "superset" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢Ê¸»ú - ¥»¥Ã¥È¤Î #Mmethod ¥Ñ¥é¥á¡¼¥¿¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¤³¤ÎÊ¸»ú - ¥»¥Ã¥È¤¬ÊÌ¤ÎÊ¸»ú¥»¥Ã¥È¡Ê¿ÆÊ¸»ú¥»¥Ã¥È¡Ë¤Î¾å°Ì½¸¹ç¤Ç¤¢¤ë¤³¤È¤ò°ÕÌ£¤¹ - ¤ë¡£¿ÆÊ¸»ú¥»¥Ã¥È¤Ï #Mparents ¥Ñ¥é¥á¡¼¥¿¤Ë¤è¤Ã¤ÆÍ¿¤¨¤é¤ì¤Ê¤¯¤Æ¤Ï¤Ê - ¤é¤Ê¤¤¡£ - */ - -MSymbol Msuperset; -/*=*/ -/*** @} */ - -/***en - @brief Define a charset. - - The mchar_define_charset () function defines a new charset and - makes it accessible via a symbol whose name is $NAME. $PLIST - specifies parameters of the charset as below: - -

Key is #Mmethod, value is a symbol. - - The value specifies the method for decoding/encoding code-points - in the charset. It must be #Moffset, #Mmap (default), #Munify, - #Msubset, or #Msuperset. - -
Key is #Mdimension, value is an integer - - The value specifies the dimension of code-points of the charset. - It must be 1 (default), 2, 3, or 4. - -
Key is #Mmin_range, value is an unsigned integer - - The value specifies the minimum range of a code-point, which means - that the Nth byte of the value is the minimum Nth byte of - code-points of the charset. The default value is 0. - -
Key is #Mmax_range, value is an unsigned integer - - The value specifies the maximum range of a code-point, which means - that the Nth byte of the value is the maximum Nth byte of - code-points of the charset. The default value is 0xFF, 0xFFFF, - 0xFFFFFF, or 0xFFFFFFFF if the dimension is 1, 2, 3, or 4 - respectively. - -
Key is #Mmin_code, value is an unsigned integer - - The value specifies the minimum code-point of - the charset. The default value is the minimum range. - -
Key is #Mmax_code, value is an unsigned integer - - The value specifies the maximum code-point of - the charset. The default value is the maximum range. - -
Key is #Mascii_compatible, value is a symbol - - The value specifies whether the charset is ASCII compatible or - not. If the value is #Mnil (default), it is not ASCII - compatible, else compatible. - -
Key is #Mfinal_byte, value is an integer - - The value specifies the @e final @e byte of the charset registered - in The International Registry. It must be 0 (default) or 32..127. - The value 0 means that the charset is not in the registry. - -
Key is #Mrevision, value is an integer - - The value specifies the @e revision @e number of the charset - registered in The International Registry. It must be 0..127. If - the charset is not in The International Registry, the value is - ignored. The value 0 means that the charset has no revision - number. - -
Key is #Mmin_char, value is an integer - - The value specifies the minimum character code of the charset. - The default value is 0. - -
Key is #Mmapfile, value is an M-text - - If the method is #Mmap or #Munify, a data that contains - mapping information is added to the m17n database by calling - mdatabase_define () with the value as an argument $EXTRA_INFO, - i.e. the value is used as a file name of the data. - - Otherwise, this parameter is ignored. - -
Key is #Mparents, value is a plist - - If the method is #Msubset, the value must is a plist of length - 1, and the value of the plist must be a symbol representing a - parent charset. - - If the method is #Msuperset, the value must be a plist of length - less than 9, and the values of the plist must be symbols - representing subset charsets. - - Otherwise, this parameter is ignored. - -
Key is #Mdefine_coding, value is a symbol - - If the dimension of the charset is 1, the value specifies whether - or not to define a coding system of the same name whose type is - #Mcharset. A coding system is defined if the value is not #Mnil. - - Otherwise, this parameter is ignored. - -

- - @return - If the operation was successful, mchar_define_charset () returns a - symbol whose name is $NAME. Otherwise it returns #Mnil and - assigns an error code to the external variable #merror_code. */ - -/***ja - @brief Ê¸»ú¥»¥Ã¥È¤òÄêµÁ¤¹¤ë. - - ´Ø¿ô mchar_define_charset () ¤Ï¿·¤·¤¤Ê¸»ú¥»¥Ã¥È¤òÄêµÁ¤·¡¢¤½¤ì¤ò - $NAME ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë·ÐÍ³¤Ç¥¢¥¯¥»¥¹¤Ç¤¤ë¤è¤¦¤Ë¤¹¤ë¡£ - $PLIST ¤ÏÄêµÁ¤µ¤ì¤ëÊ¸»ú¥»¥Ã¥È¤Î¥Ñ¥é¥á¡¼¥¿¤ò°Ê²¼¤Î¤è¤¦¤Ë»ØÄê¤¹¤ë¡£ - -

¥¡¼¤¬ #Mmethod ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - ÃÍ¤Ï¡¢#Moffset, #Mmap (¥Ç¥Õ¥©¥ë¥ÈÃÍ), #Munify, #Msubset, - #Msuperset ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ê¡¢Ê¸»ú¥»¥Ã¥È¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤ò¥Ç¥³¡¼¥É¡¿ - ¥¨¥ó¥³¡¼¥É¤¹¤ëºÝ¤Î¥á¥½¥Ã¥É¤ò»ØÄê¤¹¤ë¡£ - -
¥¡¼¤¬ #Mdimension ¤ÇÃÍ¤¬À°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¡¢1 (¥Ç¥Õ¥©¥ë¥ÈÃÍ), 2, 3, 4 ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ê¡¢Ê¸»ú¥»¥Ã¥È¤Î¥³¡¼ - ¥É¥Ý¥¤¥ó¥È¤Î¼¡¸µ¤Ç¤¢¤ë¡£ - -
¥¡¼¤¬ #Mmin_range ¤ÇÃÍ¤¬ÈóÉéÀ°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¥³¡¼¥É¥Ý¥¤¥ó¥È¤ÎºÇ¾®¤ÎÃÍ¤Ç¤¢¤ë¡£¤¹¤Ê¤ï¤Á¡¢¤³¤ÎÃÍ¤Î N ÈÖÌÜ¤Î¥Ð - ¥¤¥È¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤Î N ÈÖÌÜ¤Î¥Ð¥¤¥È¤ÎºÇ¾®¤Î¤â¤Î - ¤È¤Ê¤ë¡£¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï 0 ¡£ - -
¥¡¼¤¬ #Mmax_range ¤ÇÃÍ¤¬ÈóÉéÀ°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¥³¡¼¥É¥Ý¥¤¥ó¥È¤ÎºÇÂç¤ÎÃÍ¤Ç¤¢¤ë¡£¤¹¤Ê¤ï¤Á¡¢¤³¤ÎÃÍ¤Î N ÈÖÌÜ¤Î¥Ð - ¥¤¥È¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤Î N ÈÖÌÜ¤Î¥Ð¥¤¥È¤ÎºÇÂç¤Î¤â¤Î - ¤È¤Ê¤ë¡£¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï¡¢¥³¡¼¥É¥Ý¥¤¥ó¥È¤Î¼¡¸µ¤¬ 1, 2, 3, 4 ¤Î»þ¡¢¤½ - ¤ì¤¾¤ì 0xFF, 0xFFFF, 0xFFFFFF, 0xFFFFFFFF ¡£ - -
¥¡¼¤¬ #Mmin_code ¤ÇÃÍ¤¬ÈóÉéÀ°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤ÎºÇ¾®¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ç¤¢¤ë¡£¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï - #Mmin_range ¤ÎÃÍ¡£ - -
¥¡¼¤¬ #Mmax_code ¤ÇÃÍ¤¬ÈóÉéÀ°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤ÎºÇÂç¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ç¤¢¤ë¡£¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï - #Mmax_range ¤ÎÃÍ¡£ - -
¥¡¼¤¬ #Mascii_compatible ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - ÃÍ¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤¬ ASCII ¸ß´¹¤Ç¤¢¤ë¤«¤É¤¦¤«¤ò¼¨¤¹¡£¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Î - #Mnil ¤Ç¤¢¤ì¤Ð¸ß´¹¤Ç¤Ï¤Ê¤¯¡¢¤½¤ì°Ê³°¤Î¾ì¹ç¤Ï¸ß´¹¤Ç¤¢¤ë¡£ - -
¥¡¼¤¬ #Mfinal_byte ¤ÇÃÍ¤¬À°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤Î The International Registry ¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë - @e ½ªÃ¼¥Ð¥¤¥È ¤Ç¤¢¤ê¡¢0 (¥Ç¥Õ¥©¥ë¥ÈÃÍ) ¤Ç¤¢¤ë¤« 32..127 ¤Ç¤¢¤ë¡£0 - ¤ÏÅÐÏ¿¤µ¤ì¤Æ¤¤¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¡£ - -
¥¡¼¤¬ #Mrevision ¤ÇÃÍ¤¬À°¿ôÃÍ¤Î»þ - - ÃÍ¤Ï The International Registry ¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤ë @e revision @e - number ¤Ç¤¢¤ê¡¢0..127 ¤Ç¤¢¤ë¡£Ê¸»ú¥»¥Ã¥È¤¬ÅÐÏ¿¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¤Ï - ¤³¤ÎÃÍ¤ÏÌµ»ë¤µ¤ì¤ë¡£ 0 ¤Ï revision number ¤¬Â¸ºß¤·¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹ - ¤ë¡£ - -
¥¡¼¤¬ #Mmapfile ¤ÇÃÍ¤¬ M-text ¤Î»þ - - ¥á¥½¥Ã¥É¤¬ #Mmap ¤« #Munify ¤Î»þ¡¢´Ø¿ô mdatabase_define () ¤ò¤³¤Î - ÃÍ¤ò°ú¿ô $EXTRA_INFO ¤È¤·¤Æ¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥Þ¥Ã¥Ô¥ó¥°¤Ë´Ø¤¹¤ë¥Ç¡¼ - ¥¿¤¬ m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ËÄÉ²Ã¤µ¤ì¤ë¡£¤¹¤Ê¤ï¤Á¡¢¤³¤ÎÃÍ¤Ï¥Ç¡¼¥¿¥Õ¥¡¥¤ - ¥ë¤ÎÌ¾Á°¤Ç¤¢¤ë¡£ - - ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£ - -
¥¡¼¤¬ #Mparents ¤ÇÃÍ¤¬ plist ¤Î»þ - - ¥á¥½¥Ã¥É¤¬ #Msubset ¤Ê¤é¤Ð¡¢ÃÍ¤ÏÄ¹¤µ 1 ¤Î plist ¤Ç¤¢¤ê¡¢¤½¤ÎÃÍ¤Ï¤³ - ¤ÎÊ¸»ú¥»¥Ã¥È¤Î¾å°Ì½¸¹ç¤È¤Ê¤ëÊ¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£ - - ¥á¥½¥Ã¥É¤¬ #Msuperset ¤Ê¤é¤Ð¡¢ÃÍ¤ÏÄ¹¤µ 8 °Ê²¼¤Î plist ¤Ç¤¢¤ê¡¢¤½¤ì - ¤é¤ÎÃÍ¤Ï¤³¤ÎÊ¸»ú¥»¥Ã¥È¤Î²¼°Ì½¸¹ç¤Ç¤¢¤ëÊ¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢ - ¤ë¡£ - - ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£ - -
¥¡¼¤¬ #Mdefine_coding ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - Ê¸»ú¥»¥Ã¥È¤Î¼¡¸µ¤¬ 1 ¤Ê¤é¤Ð¡¢ÃÍ¤Ï #Mcharset ¥¿¥¤¥×¤ÇÆ±¤¸Ì¾Á°¤Î¥³¡¼ - ¥É·Ï¤òÄêµÁ¤¹¤ë¤«¤É¤¦¤«¤ò»ØÄê¤¹¤ë¡£ÃÍ¤¬ #Mnil °Ê³°¤Î¾ì¹ç¤ËÄêµÁ¤¹¤ë¡£ - - ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£ - -

- - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mchar_define_charset() ¤Ï $NAME ¤È¤¤¤¦Ì¾ - Á°¤Î¥· ¥ó¥Ü¥ë¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð #Mnil ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô - #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£*/ - -/*** - @errors - @c MERROR_CHARSET */ - -MSymbol -mchar_define_charset (const char *name, MPlist *plist) -{ - MSymbol sym = msymbol (name); - MCharset *charset; - int i; - unsigned min_range, max_range; - MPlist *pl; - MText *mapfile = (MText *) mplist_get (plist, Mmapfile); - - MSTRUCT_CALLOC (charset, MERROR_CHARSET); - charset->name = sym; - charset->method = (MSymbol) mplist_get (plist, Mmethod); - if (! charset->method) - { - if (mapfile) - charset->method = Mmap; - else - charset->method = Moffset; - } - if (charset->method == Mmap || charset->method == Munify) - { - if (! mapfile) - MERROR (MERROR_CHARSET, Mnil); - mdatabase_define (Mcharset, sym, Mnil, Mnil, NULL, mapfile->data); - } - if (! (charset->dimension = (int) mplist_get (plist, Mdimension))) - charset->dimension = 1; - - min_range = (unsigned) mplist_get (plist, Mmin_range); - if ((pl = mplist_find_by_key (plist, Mmax_range))) - { - max_range = (unsigned) MPLIST_VAL (pl); - if (max_range >= 0x1000000) - charset->dimension = 4; - else if (max_range >= 0x10000 && charset->dimension < 3) - charset->dimension = 3; - else if (max_range >= 0x100 && charset->dimension < 2) - charset->dimension = 2; - } - else if (charset->dimension == 1) - max_range = 0xFF; - else if (charset->dimension == 2) - max_range = 0xFFFF; - else if (charset->dimension == 3) - max_range = 0xFFFFFF; - else - max_range = 0xFFFFFFFF; - - memset (charset->code_range, 0, sizeof charset->code_range); - for (i = 0; i < charset->dimension; i++, min_range >>= 8, max_range >>= 8) - { - charset->code_range[i * 4] = min_range & 0xFF; - charset->code_range[i * 4 + 1] = max_range & 0xFF; - } - if ((charset->min_code = (int) mplist_get (plist, Mmin_code)) < min_range) - charset->min_code = min_range; - if ((charset->max_code = (int) mplist_get (plist, Mmax_code)) > max_range) - charset->max_code = max_range; - charset->ascii_compatible - = (MSymbol) mplist_get (plist, Mascii_compatible) != Mnil; - charset->final_byte = (int) mplist_get (plist, Mfinal_byte); - charset->revision = (int) mplist_get (plist, Mrevision); - charset->min_char = (int) mplist_get (plist, Mmin_char); - pl = (MPlist *) mplist_get (plist, Mparents); - charset->nparents = pl ? mplist_length (pl) : 0; - if (charset->nparents > 8) - charset->nparents = 8; - for (i = 0; i < charset->nparents; i++, pl = MPLIST_NEXT (pl)) - { - MSymbol parent_name; - - if (MPLIST_KEY (pl) != Msymbol) - MERROR (MERROR_CHARSET, Mnil); - parent_name = MPLIST_SYMBOL (pl); - if (! (charset->parents[i] = MCHARSET (parent_name))) - MERROR (MERROR_CHARSET, Mnil); - } - - charset->subset_offset = (int) mplist_get (plist, Msubset_offset); - - msymbol_put (sym, Mcharset, charset); - charset = make_charset (charset); - if (! charset) - return Mnil; - msymbol_put (msymbol__canonicalize (sym), Mcharset, charset); - - for (pl = (MPlist *) mplist_get (plist, Maliases); - pl && MPLIST_KEY (pl) == Msymbol; - pl = MPLIST_NEXT (pl)) - { - MSymbol alias = MPLIST_SYMBOL (pl); - - msymbol_put (alias, Mcharset, charset); - msymbol_put (msymbol__canonicalize (alias), Mcharset, charset); - } - - if (mplist_get (plist, Mdefine_coding) - && charset->dimension == 1 - && charset->code_range[0] == 0 && charset->code_range[1] == 255) - mconv__register_charset_coding (sym); - return (sym); -} - -/*=*/ - -/***en - @brief Resolve charset name. - - The mchar_resolve_charset () function returns $SYMBOL if it - represents a charset. Otherwise, canonicalize $SYMBOL as to a - charset name, and if the canonicalized name represents a charset, - return it. Otherwise, return #Mnil. */ - -/***ja - @brief Ê¸»ú¥»¥Ã¥ÈÌ¾¤ò²ò·è¤¹¤ë. - - ´Ø¿ô mchar_resolve_charset () ¤Ï $SYMBOL ¤¬Ê¸»ú¥»¥Ã¥È¤ò¼¨¤·¤Æ¤¤¤ì - ¤Ð¤½¤ì¤òÊÖ¤¹¡£ - - ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢$SYMBOL ¤òÊ¸»ú¥»¥Ã¥ÈÌ¾¤È¤·¤ÆÀµµ¬²½¤·¡¢¤½¤ì¤¬Ê¸»ú¥»¥Ã - ¥È¤ò¼¨¤·¤Æ¤¤¤Æ¤¤¤ì¤ÐÀµµ¬²½¤·¤¿¤â¤Î¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢#Mnil ¤ò - ÊÖ¤¹¡£ */ - -MSymbol -mchar_resolve_charset (MSymbol symbol) -{ - MCharset *charset = (MCharset *) msymbol_get (symbol, Mcharset); - - if (! charset) - { - symbol = msymbol__canonicalize (symbol); - charset = (MCharset *) msymbol_get (symbol, Mcharset); - } - - return (charset ? charset->name : Mnil); -} - -/*=*/ - -/***en - @brief List symbols representing charsets. - - The mchar_list_charsets () function makes an array of symbols - representing a charset, stores the pointer to the array in a place - pointed to by $SYMBOLS, and returns the length of the array. */ - -/***ja - @brief Ê¸»ú¥»¥Ã¥È¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤òÎóµó¤¹¤ë. - - ´Ø¿ô mchar_list_charsets () ¤Ï¡¢Ê¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤òÊÂ¤Ù¤¿ÇÛ - Îó¤òºî¤ê¡¢$SYMBOLS ¤Ç¥Ý¥¤¥ó¥È¤µ¤ì¤¿¾ì½ê¤Ë¤³¤ÎÇÛÎó¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÃÖ - ¤¡¢ÇÛÎó¤ÎÄ¹¤µ¤òÊÖ¤¹¡£ */ - -int -mchar_list_charset (MSymbol **symbols) -{ - int i; - - MTABLE_MALLOC ((*symbols), charset_list.used, MERROR_CHARSET); - for (i = 0; i < charset_list.used; i++) - (*symbols)[i] = charset_list.charsets[i]->name; - return i; -} - -/*=*/ - -/***en - @brief Decode a code-point. - - The mchar_decode () function decodes code-point $CODE in the - charset represented by the symbol $CHARSET_NAME to get a character - code. - - @return - If decoding was successful, mchar_decode () returns the decoded - character code. Otherwise it returns -1. */ - -/***ja - @brief ¥³¡¼¥É¥Ý¥¤¥ó¥È¤ò¥Ç¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mchar_decode () ¤Ï¡¢¥·¥ó¥Ü¥ë $CHARSET_NAME ¤Ç¼¨¤µ¤ì¤ëÊ¸»ú¥»¥Ã - ¥ÈÆâ¤Î $CODE ¤È¤¤¤¦¥³¡¼¥É¥Ý¥¤¥ó¥È¤ò¥Ç¥³¡¼¥É¤·¤ÆÊ¸»ú¥³¡¼¥É¤òÆÀ¤ë¡£ - - @return - ¥Ç¥³¡¼¥É¤¬À®¸ù¤¹¤ì¤Ð¡¢mchar_decode () ¤Ï¥Ç¥³¡¼¥É¤µ¤ì¤¿Ê¸»ú¥³¡¼¥É¤ò - ÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£ */ - -/*** - @seealso - mchar_encode () */ - -int -mchar_decode (MSymbol charset_name, unsigned code) -{ - MCharset *charset = MCHARSET (charset_name); - - if (! charset) - return MCHAR_INVALID_CODE; - return DECODE_CHAR (charset, code); -} - -/*=*/ - -/***en - @brief Encode a character code. - - The mchar_encode () function encodes character code $C to get a - code-point in the charset represented by the symbol $CHARSET_NAME. - - @return - If encoding was successful, mchar_encode () returns the encoded - code-point. Otherwise it returns #MCHAR_INVALID_CODE. */ - -/***ja - @brief Ê¸»ú¥³¡¼¥É¤ò¥¨¥ó¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mchar_encode () ¤Ï¡¢Ê¸»ú¥³¡¼¥É $C ¤ò¥¨¥ó¥³¡¼¥É¤·¤Æ¥·¥ó¥Ü¥ë - $CHARSET_NAME ¤Ç¼¨¤µ¤ì¤ëÊ¸»ú¥»¥Ã¥ÈÆâ¤Ë¤ª¤±¤ë¥³¡¼¥É¥Ý¥¤¥ó¥È¤òÆÀ¤ë¡£ - - @return - ¥¨¥ó¥³¡¼¥É¤¬À®¸ù¤¹¤ì¤Ð¡¢mchar_encode () ¤Ï¥¨¥ó¡¼¥É¤µ¤ì¤¿¥³¡¼¥É¥Ý¥¤ - ¥ó¥È¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð #MCHAR_INVALID_CODE ¤òÊÖ¤¹¡£ */ - -/*** - @seealso - mchar_decode () */ - -unsigned -mchar_encode (MSymbol charset_name, int c) -{ - MCharset *charset = MCHARSET (charset_name); - - if (! charset) - return MCHAR_INVALID_CODE; - return ENCODE_CHAR (charset, c); -} - -/*=*/ - -/***en - @brief Call a function for all the characters in a specified charset. - - The mcharset_map_chars () function calls $FUNC for all the - characters in the charset named $CHARSET_NAME. A call is done for - a chunk of consecutive characters rather than character by - character. - - $FUNC receives three arguments: $FROM, $TO, and $ARG. $FROM and - $TO specify the range of character codes in $CHARSET. $ARG is the - same as $FUNC_ARG. - - @return - If the operation was successful, mcharset_map_chars () returns 0. - Otherwise, it returns -1 and assigns an error code to the external - variable #merror_code. */ - -/***ja - @brief »ØÄê¤·¤¿Ê¸»ú¥»¥Ã¥È¤Î¤¹¤Ù¤Æ¤ÎÊ¸»ú¤ËÂÐ¤·¤Æ´Ø¿ô¤ò¸Æ¤Ö. - - ´Ø¿ô mcharset_map_chars () ¤Ï $CHARSET_NAME ¤È¤¤¤¦Ì¾Á°¤ò»ý¤ÄÊ¸»ú¥»¥Ã - ¥ÈÃæ¤Î¤¹¤Ù¤Æ¤ÎÊ¸»ú¤ËÂÐ¤·¤Æ $FUNC ¤ò¸Æ¤Ö¡£¸Æ¤Ó½Ð¤·¤Ï°ìÊ¸»úËè¤Ç¤Ï¤Ê - ¤¯¡¢Ï¢Â³¤·¤¿Ê¸»ú¤Î¤Þ¤È¤Þ¤êÃ±°Ì¤Ç¹Ô¤Ê¤ï¤ì¤ë¡£ - - ´Ø¿ô $FUNC ¤Ë¤Ï$FROM, $TO, $ARG ¤Î£³°ú¿ô¤¬ÅÏ¤µ¤ì¤ë¡£$FROM ¤È $TO - ¤Ï $CHARSET Ãæ¤ÎÊ¸»ú¥³¡¼¥É¤ÎÈÏ°Ï¤ò»ØÄê¤¹¤ë¡£$ARG ¤Ï $FUNC_ARG ¤ÈÆ± - ¤¸¤Ç¤¢¤ë¡£ - - @return - ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mcharset_map_chars () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð - -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CHARSET */ - -int -mchar_map_charset (MSymbol charset_name, - void (*func) (int from, int to, void *arg), - void *func_arg) -{ - MCharset *charset; - - charset = MCHARSET (charset_name); - if (! charset) - MERROR (MERROR_CHARSET, -1); - - if (charset->encoder) - { - int c = charset->min_char; - int next_c; - - if ((int) mchartable__lookup (charset->encoder, c, &next_c, 1) < 0) - c = next_c; - while (c <= charset->max_char) - { - if ((int) mchartable__lookup (charset->encoder, c, &next_c, 1) >= 0) - (*func) (c, next_c - 1, func_arg); - c = next_c; - } - } - else - (*func) (charset->min_char, charset->max_char, func_arg); - return 0; -} - -/*=*/ - -/*** @} */ - -/* - Local Variables: - coding: euc-japan - End: -*/ diff --git a/src/charset.h b/src/charset.h deleted file mode 100644 index 5b9e430..0000000 --- a/src/charset.h +++ /dev/null @@ -1,253 +0,0 @@ -/* charset.h -- header file for the charset module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -#ifndef _M17N_CHARSET_H_ -#define _M17N_CHARSET_H_ - -/** @file charset.h - @brief Header for charset handlers. -*/ - -enum mcharset_method - { - MCHARSET_METHOD_OFFSET, - MCHARSET_METHOD_MAP, - MCHARSET_METHOD_DEFERRED, - MCHARSET_METHOD_SUBSET, - MCHARSET_METHOD_SUPERSET, - MCHARSET_METHOD_MAX - }; - -/** Structure for charset. */ - -typedef struct MCharset MCharset; - -struct MCharset -{ - /** The value is always 0 because all charsets are static. */ - unsigned ref_count; - - /** Symbol indicating the name of the charset. */ - MSymbol name; - - /** Number of dimensions of the charset. It must be 1, 2, 3, or - 4. */ - int dimension; - - /** Byte code range of each dimension. [4N] is a - minimum byte code of the (N+1)th dimension, [4N+1] - is a maximum byte code of the (N+1)th dimension, - [4N+2] is ([4N+1] - [4N] + - 1), [4N+3] is a number of characters contained in the - first to (N+1)th dimensions. We get "char-index" of a - "code-point" from this information. */ - int code_range[16]; - - /** The minimum code-point calculated from . It may be - smaller than . */ - int code_range_min_code; - - /** Nonzero means there is no gap in code points of the charset. If - is 1, is always 1. Otherwise, - is 1 iff [4N] is zero and - [4N+1] is 256 for N = 0..-2. If - is nonzero, "char-index" is "code-point" - - . */ - int no_code_gap; - - /** If the byte code B is valid in the (N+1)th dimension, - ([B] & (1 << N)) is 1. Otherwise, - ([B] & (1 << N)) is 0. */ - unsigned char code_range_mask[256]; - - /** Minimum and maximum code-point of the charset. */ - unsigned min_code, max_code; - - /** Nonzero means the charset encodes ASCII characters as is. */ - int ascii_compatible; - - /** Minimum and maximum character of the charset. If - is nonzero, is actually the - minimum non-ASCII character of the charset. */ - int min_char, max_char; - - /** ISO 2022 final byte of the charset. It must be in the range - 48..127, or -1. The value -1 means that the charset is not - encodable by ISO 2022 based coding systems. */ - int final_byte; - - /** ISO 2022 revision number of the charset, or -1. The value -1 - means that the charset has no revision number. Used only when - is not -1. */ - int revision; - - /** Specify how to encode/decode code-point of the charset. It must - be Moffset, Mmap, Munify, Msubset, or Msuperset. */ - MSymbol method; - - /** Array of integers to decode a code-point of the charset. It is - indexed by a "char-index" of the code-point, and the - corresponding element is a character of the charset, or -1 if - the code point is not valid in the charset. Used only when - is Mmap or Munify. */ - int *decoder; - - /** Char-table to encode a character of the charset. It is indexed - by a character code, and the corresponding element is a code - point of the character in the charset, or - MCHAR_INVALID_CODE if the character is not included in the - charset. Used only when is Mmap or Munify. */ - MCharTable *encoder; - - int unified_max; - - /** Array of pointers to parent charsets. Used only when - is Msubset or Msuperset. Atmost 8 parents are supported. */ - MCharset *parents[8]; - - /* Number of parent charsets. */ - int nparents; - - unsigned subset_min_code, subset_max_code; - int subset_offset; - - int simple; - - /** If the charset is fully loaded (i.e. all the above member are - set to correct values), the value is 1. Otherwise, the value is - 0. */ - int fully_loaded; -}; - -extern MPlist *mcharset__cache; - -/** Return a charset associated with the symbol CHARSET_SYM. */ - -#define MCHARSET(charset_sym) \ - (((charset_sym) == MPLIST_KEY (mcharset__cache) \ - || (MPLIST_KEY (mcharset__cache) = (charset_sym), \ - MPLIST_VAL (mcharset__cache) \ - = (MCharset *) msymbol_get ((charset_sym), Mcharset))) \ - ? MPLIST_VAL (mcharset__cache) \ - : mcharset__find (charset_sym)) - - -/** Return index of a character whose code-point in CHARSET is CODE. - If CODE is not valid, return -1. */ - -#define CODE_POINT_TO_INDEX(charset, code) \ - ((charset)->no_code_gap \ - ? (code) - (charset)->min_code \ - : (((charset)->code_range_mask[(code) >> 24] & 0x8) \ - && ((charset)->code_range_mask[((code) >> 16) & 0xFF] & 0x4) \ - && ((charset)->code_range_mask[((code) >> 8) & 0xFF] & 0x2) \ - && ((charset)->code_range_mask[(code) & 0xFF] & 0x1)) \ - ? (((((code) >> 24) - (charset)->code_range[12]) \ - * (charset)->code_range[11]) \ - + (((((code) >> 16) & 0xFF) - (charset)->code_range[8]) \ - * (charset)->code_range[7]) \ - + (((((code) >> 8) & 0xFF) - (charset)->code_range[4]) \ - * (charset)->code_range[3]) \ - + (((code) & 0xFF) - (charset)->code_range[0]) \ - - ((charset)->min_code - (charset)->code_range_min_code)) \ - : -1) - - -/* Return code-point of a character whose index is IDX. - The validness of IDX is not checked. IDX may be modified. */ - -#define INDEX_TO_CODE_POINT(charset, idx) \ - ((charset)->no_code_gap \ - ? (idx) + (charset)->min_code \ - : (idx += (charset)->min_code - (charset)->code_range_min_code, \ - (((charset)->code_range[0] + (idx) % (charset)->code_range[2]) \ - | (((charset)->code_range[4] \ - + ((idx) / (charset)->code_range[3] % (charset)->code_range[6])) \ - << 8) \ - | (((charset)->code_range[8] \ - + ((idx) / (charset)->code_range[7] % (charset)->code_range[10])) \ - << 16) \ - | (((charset)->code_range[12] + ((idx) / (charset)->code_range[11])) \ - << 24)))) - - -/** Return a character whose code-point in CHARSET is CODE. If CODE - is invalid, return -1. */ - -#define DECODE_CHAR(charset, code) \ - (((code) < 128 && (charset)->ascii_compatible) \ - ? (int) (code) \ - : ((code) < (charset)->min_code || (code) > (charset)->max_code) \ - ? -1 \ - : ! (charset)->simple \ - ? mcharset__decode_char ((charset), (code)) \ - : (charset)->method == Moffset \ - ? (code) - (charset)->min_code + (charset)->min_char \ - : (charset)->decoder[(code) - (charset)->min_code]) - - -/** Return a code-point in CHARSET for character C. If CHARSET - does not contain C, return MCHAR_INVALID_CODE. */ - -#define ENCODE_CHAR(charset, c) \ - (! (charset)->simple \ - ? mcharset__encode_char ((charset), (c)) \ - : ((c) < (charset)->min_char || (c) > (charset)->max_char) \ - ? MCHAR_INVALID_CODE \ - : (charset)->method == Moffset \ - ? (c) - (charset)->min_char + (charset)->min_code \ - : (unsigned) mchartable_lookup ((charset)->encoder, (c))) - - -extern MCharset *mcharset__ascii; -extern MCharset *mcharset__binary; -extern MCharset *mcharset__m17n; -extern MCharset *mcharset__unicode; - -#define ISO_MAX_DIMENSION 3 -#define ISO_MAX_CHARS 2 -#define ISO_MAX_FINAL 0x80 /* only 0x30..0xFF are used */ - -typedef struct -{ - /* Table of ISO-2022 charsets. */ - int size, inc, used; - MCharset **charsets; - - /** A 3-dimensional table indexed by "dimension", "chars", and - "final byte" of an ISO-2022 charset to get the correponding - charset. A charset that has a revision number is not stored in - this table. */ - MCharset *classified[ISO_MAX_DIMENSION][ISO_MAX_CHARS][ISO_MAX_FINAL]; -} MCharsetISO2022Table; - -extern MCharsetISO2022Table mcharset__iso_2022_table; - -#define MCHARSET_ISO_2022(dim, chars, final) \ - mcharset__iso_2022_table.classified[(dim) - 1][(chars) == 96][(final)] - -extern MCharset *mcharset__find (MSymbol name); -extern int mcharset__decode_char (MCharset *charset, unsigned code); -extern unsigned mcharset__encode_char (MCharset *charset, int c); -extern int mcharset__load_from_database (); - -#endif /* _M17N_CHARSET_H_ */ diff --git a/src/chartab.c b/src/chartab.c deleted file mode 100644 index 2df14d3..0000000 --- a/src/chartab.c +++ /dev/null @@ -1,983 +0,0 @@ -/* chartab.h -- character table module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @addtogroup m17nChartable - @brief Chartable objects and API for them. - - The m17n library supports enormous number of characters. Thus, if - attributes of each character are to be stored in a simple array, - such an array would be impractically big. The attributes usually - used, however, are often assigned only to a range of characters. - Even when all characters have attributes, characters of - consecutive character code tend to have the same attribute values. - - The m17n library utilizes this tendency to store characters and - their attribute values efficiently in an object called @e - Chartable. Although a chartable object is not a simple array, - application programs can handle chartables as if they were arrays. - Attribute values of a character can be obtained by accessing a - Chartable for the attribute with the character code of the - specified character. - - A chartable is a managed object. */ - -/***ja - @addtogroup m17nChartable Ê¸»ú¥Æ¡¼¥Ö¥ë - - @brief Ê¸»ú¥Æ¡¼¥Ö¥ë¤È¤½¤ì¤Ë´Ø¤¹¤ë API. - - m17n ¥é¥¤¥Ö¥é¥ê¤¬°·¤¦Ê¸»ú¤Î¶õ´Ö¤Ï¹Âç¤Ç¤¢¤ë¤¿¤á¡¢Ê¸»úËè¤Î¾ðÊó¤òÃ± - ½ã¤ÊÇÛÎó¤Ë³ÊÇ¼¤·¤è¤¦¤È¤¹¤ë¤È¡¢¤½¤ÎÇÛÎó¤ÏµðÂç¤Ë¤Ê¤ê¤¹¤®¡¢Èó¼ÂÍÑÅª¤Ç - ¤¢¤ë¡£¤·¤«¤·ÄÌ¾ïÉ¬Í×¤È¤Ê¤ëÊ¸»ú¤Ë¤Ä¤¤¤Æ¤Î¾ðÊó¤Ï¡¢¤¢¤ëÆÃÄê¤ÎÈÏ°Ï¤ÎÊ¸ - »ú¤Ë¤Î¤ßÉÕ¤¤¤Æ¤¤¤ë¤³¤È¤¬Â¿¤¤¡£Á´Ê¸»ú¤Ë´Ø¤·¤Æ¾ðÊó¤¬¤¢¤ë¾ì¹ç¤Ë¤â¡¢Ï¢ - Â³¤·¤¿Ê¸»ú¥³¡¼¥É¤ò»ý¤ÄÊ¸»ú¤ÏÆ±¤¸¾ðÊó¤ò»ý¤Ä¤³¤È¤¬Â¿¤¤¡£ - - ¤³¤Î¤è¤¦¤Ê·¹¸þ¤òÍøÍÑ¤·¤ÆÊ¸»ú¤È¤½¤ÎÉÕ²Ã¾ðÊó¤ò¸úÎ¨Åª¤Ë³ÊÇ¼¤¹¤ë¤¿¤á¤Ë¡¢ - m17n ¥é¥¤¥Ö¥é¥ê¤Ï @e Ê¸»ú¥Æ¡¼¥Ö¥ë (chartable) ¤È¸Æ¤Ö¥ª¥Ö¥¸¥§¥¯¥È¤ò - ÍÑ¤¤¤ë¡£Ê¸»ú¥Æ¡¼¥Ö¥ë¤ÏÇÛÎó¤Ç¤Ï¤Ê¤¤¤¬¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï - Ê¸»ú¥Æ¡¼¥Ö¥ë¤òÇÛÎó¤Î°ì¼ï¤È¤·¤Æ°·¤¦¤³¤È¤¬¤Ç¤¤ë¡£¤¢¤ëÊ¸»ú¤Ë¤Ä¤¤¤Æ¤ÎÆÃ - Äê¤Î¾ðÊó¤Ï¡¢¤½¤Î¾ðÊó¤ò»ý¤ÄÊ¸»ú¥Æ¡¼¥Ö¥ë¤ò¤½¤ÎÊ¸»ú¤Î¥³¡¼¥É¤Ç°ú¤¯¤³¤È - ¤ÇÆÀ¤é¤ì¤ë¡£ - - Ê¸»ú¥Æ¡¼¥Ö¥ë¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë¡£ */ - -/*=*/ -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include -#include - -#include "m17n.h" -#include "m17n-misc.h" -#include "internal.h" -#include "symbol.h" - -static M17NObjectArray chartable_table; - -/*** Maximum depth of char-table. */ -#define CHAR_TAB_MAX_DEPTH 3 - -/** @name Define: Number of characters covered by char-table of each level. - @{ */ - -/** BITs for number of characters covered by char-table of each - level. */ -#if MCHAR_MAX < 0x400000 - -#define SUB_BITS_0 22 /* i.e. 0x400000 chars */ -#define SUB_BITS_1 16 /* i.e. 0x10000 chars */ -#define SUB_BITS_2 12 /* i.e. 0x1000 chars */ -#define SUB_BITS_3 7 /* i.e. 0x80 chars */ - -#else /* MCHAR_MAX >= 0x400000 */ - -#define SUB_BITS_0 31 -#define SUB_BITS_1 24 -#define SUB_BITS_2 16 -#define SUB_BITS_3 8 -#endif - -/** @} */ - -/** How many characters a char-table covers at each level. */ -static const int chartab_chars[] = - { (1 << SUB_BITS_0), - (1 << SUB_BITS_1), - (1 << SUB_BITS_2), - (1 << SUB_BITS_3) }; - -/** How many slots a char-table has at each level. */ -static const int chartab_slots[] = - { (1 << (SUB_BITS_0 - SUB_BITS_1)), - (1 << (SUB_BITS_1 - SUB_BITS_2)), - (1 << (SUB_BITS_2 - SUB_BITS_3)), - (1 << SUB_BITS_3) }; - -/** Mask bits to obtain the valid bits from a character code for looking - up a char-table of each level. */ -static const int chartab_mask[] = - { (int) ((((unsigned) 1) << SUB_BITS_0) - 1), - (1 << SUB_BITS_1) - 1, - (1 << SUB_BITS_2) - 1, - (1 << SUB_BITS_3) - 1 }; - -/** Bit-shifting counts to obtain a valid index from a character code - for looking up a char-table of each level. */ -static const int chartab_shift[] = - { SUB_BITS_1, SUB_BITS_2, SUB_BITS_3, 0 }; - - -/** Index for looking up character C in a char-table at DEPTH. */ -#define SUB_IDX(depth, c) \ - (((c) & chartab_mask[depth]) >> chartab_shift[depth]) - - -/** Structure of sub char-table. */ -typedef struct MSubCharTable MSubCharTable; - -struct MSubCharTable -{ -#if SUB_BITS_0 > 24 - - /* The depth of the table; 0, 1, 2, or 3. */ - int depth; - - /* The minimum character covered by the table. */ - int min_char; - -#else /* SUB_BITS_0 <= 24 */ - - /* The value is (( << 24) | ). */ - int depth_min_char; - -#endif /* SUB_BITS_0 <= 24 */ - - /** The default value of characters covered by the table. */ - void *default_value; - - /** For a table of bottom level, array of values. For a non-bottom - table, array of sub char-tables. It may be NULL if all - characters covered by the table has . */ - union { - void **values; - MSubCharTable *tables; - } contents; -}; - -#if SUB_BITS_0 > 24 -#define TABLE_DEPTH(table) ((table)->depth) -#define TABLE_MIN_CHAR(table) ((table)->min_char) -#define SET_DEPTH_MIN_CHAR(table, DEPTH, MIN_CHAR) \ - ((table)->depth = (DEPTH), (table)->min_char = (MIN_CHAR)) -#else /* SUB_BITS_0 <= 24 */ -#define TABLE_DEPTH(table) ((table)->depth_min_char >> 24) -#define TABLE_MIN_CHAR(table) ((table)->depth_min_char & 0xFFFFFF) -#define SET_DEPTH_MIN_CHAR(table, DEPTH, MIN_CHAR) \ - ((table)->depth_min_char = ((DEPTH) << 24) | (MIN_CHAR)) -#endif /* SUB_BITS_0 <= 24 */ - -/** Structure of char-table. */ - -struct MCharTable -{ - /** Common header for a managed object. */ - M17NObject control; - - /** Key of the table. */ - MSymbol key; - - /** The minimum and maximum characters covered by the table. */ - int min_char, max_char; - - MSubCharTable subtable; -}; - - - - -/* Local functions. */ - -/** Allocate and initialize an array of sub-tables for sub char-table - TABLE. It is assumed that TABLE_DEPTH (TABLE) < - CHAR_TAB_MAX_DEPTH.*/ - -static void -make_sub_tables (MSubCharTable *table, int managedp) -{ - int depth = TABLE_DEPTH (table); - int min_char = TABLE_MIN_CHAR (table); - int slots = chartab_slots[depth]; - int chars = chartab_chars[depth + 1]; - MSubCharTable *tables; - int i; - - MTABLE_MALLOC (tables, slots, MERROR_CHARTABLE); - - for (i = 0; i < slots; i++, min_char += chars) - { - SET_DEPTH_MIN_CHAR (tables + i, depth + 1, min_char); - tables[i].default_value = table->default_value; - tables[i].contents.tables = NULL; - } - if (managedp && table->default_value) - M17N_OBJECT_REF_NTIMES (tables->default_value, slots); - table->contents.tables = tables; -} - - -/** Allocate and initialize an array of values for sub char-table - TABLE. It is assumed that TABLE_DEPTH (TABLE) == - CHAR_TAB_MAX_DEPTH. */ - -static void -make_sub_values (MSubCharTable *table, int managedp) -{ - int slots = chartab_slots[CHAR_TAB_MAX_DEPTH]; - void **values; - int i; - - MTABLE_MALLOC (values, slots, MERROR_CHARTABLE); - - for (i = 0; i < slots; i++) - values[i] = table->default_value; - if (managedp && table->default_value) - M17N_OBJECT_REF_NTIMES (table->default_value, slots); - table->contents.values = values; -} - - -/** Free contents of sub char-table TABLE and the default value of - TABLE. Free also the sub-tables recursively. */ - -static void -free_sub_tables (MSubCharTable *table, int managedp) -{ - int depth = TABLE_DEPTH (table); - int slots = chartab_slots[depth]; - - if (table->contents.tables) - { - if (depth < CHAR_TAB_MAX_DEPTH) - { - while (slots--) - free_sub_tables (table->contents.tables + slots, managedp); - free (table->contents.tables); - } - else - { - if (managedp) - while (slots--) - { - if (table->contents.values[slots]) - M17N_OBJECT_UNREF (table->contents.values[slots]); - } - free (table->contents.values); - } - table->contents.tables = NULL; - } - if (managedp && table->default_value) - M17N_OBJECT_UNREF (table->default_value); -} - - -/** In sub char-table TABLE, set value VAL for characters of the range - FROM and TO. */ - -static void -set_chartable_range (MSubCharTable *table, int from, int to, void *val, - int managedp) -{ - int depth = TABLE_DEPTH (table); - int min_char = TABLE_MIN_CHAR (table); - int max_char = min_char + (chartab_chars[depth] - 1); - int i; - - if (max_char < 0 || max_char > MCHAR_MAX) - max_char = MCHAR_MAX; - - if (from < min_char) - from = min_char; - if (to > max_char) - to = max_char; - - if (from == min_char && to == max_char) - { - free_sub_tables (table, managedp); - if (managedp && val) - M17N_OBJECT_REF (val); - table->default_value = val; - return; - } - - if (depth < CHAR_TAB_MAX_DEPTH) - { - if (! table->contents.tables) - make_sub_tables (table, managedp); - i = SUB_IDX (depth, from); - table = table->contents.tables + i; - while (i < chartab_slots[depth] && TABLE_MIN_CHAR (table) <= to) - { - set_chartable_range (table, from, to, val, managedp); - table++, i++; - } - } - else - { - int idx_from = SUB_IDX (depth, from); - int idx_to = SUB_IDX (depth, to); - - if (! table->contents.values) - make_sub_values (table, managedp); - for (i = idx_from; i <= idx_to; i++) - { - if (managedp && table->contents.values[i]) - M17N_OBJECT_UNREF (table->contents.values[i]); - table->contents.values[i] = val; - } - if (managedp && val) - M17N_OBJECT_REF_NTIMES (val, (idx_to - idx_from + 1)); - } -} - - -/** Lookup the sub char-table TABLE for the character C. If NEXT_C is - not NULL, set *NEXT_C to the next interesting character to lookup - for. If DEFAULT_P is zero, the next interesting character is what - possibly has the different value than C. Otherwise, the next - interesting character is what possibly has the default value (if C - has a value deferent from the default value) or has a value - different from the default value (if C has the default value). */ - -static void * -lookup_chartable (MSubCharTable *table, int c, int *next_c, int default_p) -{ - int depth = TABLE_DEPTH (table); - void *val; - void *default_value = table->default_value; - int idx; - - while (1) - { - if (! table->contents.tables) - { - if (next_c) - *next_c = TABLE_MIN_CHAR (table) + chartab_chars[depth]; - return table->default_value; - } - if (depth == CHAR_TAB_MAX_DEPTH) - break; - table = table->contents.tables + SUB_IDX (depth, c); - depth++; - } - - idx = SUB_IDX (depth, c); - val = table->contents.values[idx]; - - if (next_c) - { - int max_char = TABLE_MIN_CHAR (table) + (chartab_chars[depth] - 1); - - if (max_char < 0 || max_char > MCHAR_MAX) - max_char = MCHAR_MAX; - if (default_p && val != default_value) - { - do { c++, idx++; } - while (c >= 0 && c <= max_char - && table->contents.values[idx] != default_value); - } - else - { - do { c++, idx++; } - while (c >= 0 && c <= max_char - && table->contents.values[idx] == val); - } - *next_c = c; - } - return val; -} - -/** Call FUNC for characters in sub char-table TABLE. Ignore such - characters that has a value IGNORE. FUNC is called with four - arguments; FROM, TO, VAL, and ARG (same as FUNC_ARG). If - DEFAULT_P is zero, FROM and TO are range of characters that has - the same value VAL. Otherwise, FROM and TO are range of - characters that has the different value than the default value of - TABLE. */ - -static void -map_chartable (MSubCharTable *table, void *ignore, int default_p, - void (*func) (int, int, void *, void *), - void *func_arg) -{ - void *current; - int from = 0; - int c, next_c; - - current = lookup_chartable (table, 0, &next_c, default_p); - c = next_c; - while (c >= 0 && c <= MCHAR_MAX) - { - void *next = lookup_chartable (table, c, &next_c, default_p); - - if (current != next) - { - if (current != ignore) - (*func) (from, c - 1, current, func_arg); - current = next; - from = c; - } - c = next_c; - } - if (from <= MCHAR_MAX && current != ignore) - (*func) (from, MCHAR_MAX, current, func_arg); -} - - -/* Return the smallest character whose value is not DEFAULT_VALUE in - TABLE. If all characters in TABLE have DEFAULT_VALUE, return - -1. */ - -static int -chartab_min_non_default_char (MSubCharTable *table, void *default_value) -{ - int depth = TABLE_DEPTH (table); - int slots; - int i, c; - - if (!table->contents.tables) - return (default_value == table->default_value - ? -1 : TABLE_MIN_CHAR (table)); - - slots = chartab_slots[depth]; - - if (depth == CHAR_TAB_MAX_DEPTH) - { - for (i = 0; i < slots; i++) - if (table->contents.values[i] != default_value) - return (TABLE_MIN_CHAR (table) + i); - } - else - { - for (i = 0; i < slots; i++) - if ((c = chartab_min_non_default_char (table->contents.tables + i, - default_value)) - >= 0) - return c; - } - return -1; -} - - -/* Return the largest character whose value is not DEFAULT_VALUE in - TABLE. If all characters in TABLE have DEFAULT_VALUE, return - -1. */ - -static int -chartab_max_non_default_char (MSubCharTable *table, void *default_value) -{ - int depth = TABLE_DEPTH (table); - int slots; - int i, c; - - if (!table->contents.tables) - return (default_value == table->default_value - ? -1 : TABLE_MIN_CHAR (table) + chartab_chars[depth] - 1); - - slots = chartab_slots[depth]; - - if (depth == CHAR_TAB_MAX_DEPTH) - { - for (i = slots - 1; i >= 0; i--) - if (table->contents.values[i] != default_value) - return (TABLE_MIN_CHAR (table) + i); - } - else - { - for (i = slots - 1; i >= 0; i--) - if ((c = chartab_max_non_default_char (table->contents.tables + i, - default_value)) - >= 0) - return c; - } - return -1; -} - -static void -free_chartable (void *object) -{ - MCharTable *table = (MCharTable *) object; - int managedp = table->key != Mnil && table->key->managing_key; - - if (table->subtable.contents.tables) - { - int i; - - for (i = 0; i < chartab_slots[0]; i++) - free_sub_tables (table->subtable.contents.tables + i, managedp); - free (table->subtable.contents.tables); - if (managedp && table->subtable.default_value) - M17N_OBJECT_UNREF (table->subtable.default_value); - } - M17N_OBJECT_UNREGISTER (chartable_table, table); - free (object); -} - -#include - -/* Support function of mdebug_dump_chartab. */ - -static void -dump_sub_chartab (MSubCharTable *table, void *default_value, - MSymbol key, int indent) -{ - int depth = TABLE_DEPTH (table); - int min_char = TABLE_MIN_CHAR (table); - int max_char = min_char + (chartab_chars[depth] - 1); - char *prefix = (char *) alloca (indent + 1); - int i; - - if (max_char < 0 || max_char > MCHAR_MAX) - max_char = MCHAR_MAX; - - memset (prefix, 32, indent); - prefix[indent] = 0; - - if (! table->contents.tables && table->default_value == default_value) - return; - fprintf (stderr, "\n%s(sub%d (U+%04X U+%04X) ", - prefix, depth, min_char, max_char); - if (key == Msymbol) - { - if (table->default_value) - fprintf (stderr, "(default %s)", - ((MSymbol) table->default_value)->name); - else - fprintf (stderr, "(default nil)"); - } - else - fprintf (stderr, "(default #x%X)", (unsigned) table->default_value); - - default_value = table->default_value; - if (table->contents.tables) - { - if (depth < CHAR_TAB_MAX_DEPTH) - for (i = 0; i < chartab_slots[depth]; i++) - dump_sub_chartab (table->contents.tables + i, default_value, - key, indent + 2); - else - for (i = 0; i < chartab_slots[depth]; i++, min_char++) - { - void **val = table->contents.values + i; - - if (val == default_value) - continue; - default_value = *val; - fprintf (stderr, "\n%s (U+%04X", prefix, min_char); - while (i + 1 < chartab_slots[depth] - && val[1] == default_value) - i++, val++, min_char++; - fprintf (stderr, "-U+%04X ", min_char); - if (key == Msymbol) - { - if (default_value) - fprintf (stderr, "%s)", ((MSymbol) default_value)->name); - else - fprintf (stderr, "nil)"); - } - else - fprintf (stderr, " #xx%X)", (unsigned) default_value); - } - } - fprintf (stderr, ")"); -} - - -/* Internal API */ - -int -mchartable__init () -{ - chartable_table.count = 0; - return 0; -} - -void -mchartable__fini () -{ - mdebug__report_object ("Chartable", &chartable_table); -} - -void * -mchartable__lookup (MCharTable *table, int c, int *next_c, int default_p) -{ - return lookup_chartable (&table->subtable, c, next_c, default_p); -} - -/*** @} */ -#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ - - -/* External API */ - -/*** @addtogroup m17nChartable */ -/*** @{ */ -/*=*/ - -/***en - @brief Symbol whose name is "char-table". - - The symbol @c Mchar_table has the name "char-table". */ - -/***ja - @brief "char-table" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë @c Mchar_table ¤ÏÌ¾Á° "char-table" ¤ò»ý¤Ä¡£ - */ - -MSymbol Mchar_table; - -/*=*/ - -/***en - @brief Create a new chartable. - - The mchartable () function creates a new chartable object with - symbol $KEY and the default value $DEFAULT_VALUE. If $KEY is a - managing key, the elements of the table (including the default - value) are managed objects or NULL. - - @return - If the operation was successful, mchartable () returns a pointer - to the created chartable. Otherwise it returns @c NULL and - assigns an error code to the external variable #merror_code. */ - -/***ja - @brief ¿·¤·¤¤Ê¸»ú¥Æ¡¼¥Ö¥ë¤òºî¤ë. - - ´Ø¿ô mchartable () ¤Ï¥¡¼¤¬ $KEY ¤ÇÍ×ÁÇ¤Î¥Ç¥Õ¥©¥ë¥ÈÃÍ¤¬ - $DEFAULT_VALUE ¤Ç¤¢¤ë¿·¤·¤¤Ê¸»ú¥Æ¡¼¥Ö¥ë¤òºî¤ë¡£¤â¤· $KEY ¤¬´ÉÍý¥¡¼ - ¤Ç¤¢¤ì¤Ð¡¢¤³¤Î¥Æ¡¼¥Ö¥ë¤ÎÍ×ÁÇ¤Ï¡Ê¥Ç¥Õ¥©¥ë¥ÈÃÍ¤ò´Þ¤á¤Æ¡Ë´ÉÍý²¼¥ª¥Ö¥¸¥§ - ¥¯¥È¤« NULL ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchartable () ¤ÏºîÀ®¤µ¤ì¤¿Ê¸»ú¥Æ¡¼¥Ö¥ë¤Ø¤Î¥Ý¥¤¥ó - ¥¿¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨ - ¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -MCharTable * -mchartable (MSymbol key, void *default_value) -{ - MCharTable *table; - - M17N_OBJECT (table, free_chartable, MERROR_CHARTABLE); - M17N_OBJECT_REGISTER (chartable_table, table); - table->key = key; - table->min_char = 0; - table->max_char = -1; - SET_DEPTH_MIN_CHAR (&table->subtable, 0, 0); - table->subtable.default_value = default_value; - if (key != Mnil && key->managing_key && default_value) - M17N_OBJECT_REF (default_value); - table->subtable.contents.tables = NULL; - return table; -} - -/*=*/ - -/***en - @brief Return the assigned value of a character in a chartable. - - The mchartable_lookup () function returns the value assigned to - character $C in chartable $TABLE. If no value has been set for $C - explicitly, the default value of $TABLE is returned. If $C is not - a valid character, mchartable_lookup () returns @c NULL and - assigns an error code to the external variable #merror_code. */ - -/***ja - @brief Ê¸»ú¥Æ¡¼¥Ö¥ëÃæ¤ÇÊ¸»ú¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿ÃÍ¤òÊÖ¤¹. - - ´Ø¿ô mchartable_lookup () ¤ÏÊ¸»ú¥Æ¡¼¥Ö¥ë $TABLE Ãæ¤ÇÊ¸»ú $C ¤Ë³ä¤ê - Åö¤Æ¤é¤ì¤¿ÃÍ¤òÊÖ¤¹¡£$C ¤ËÂÐ¤¹¤ëÌÀ¼¨Åª¤ÊÃÍ¤¬¤Ê¤±¤ì¤Ð¡¢$TABLE ¤Î¥Ç¥Õ¥© - ¥ë¥ÈÃÍ¤òÊÖ¤¹¡£$C ¤¬ÂÅÅö¤ÊÊ¸»ú¤Ç¤Ê¤±¤ì¤Ð¡¢mchartable_lookup () ¤Ï - @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CHAR - - @seealso - mchartable_set () */ - -void * -mchartable_lookup (MCharTable *table, int c) -{ - M_CHECK_CHAR (c, NULL); - - if (c < table->min_char || c > table->max_char) - return table->subtable.default_value; - return lookup_chartable (&table->subtable, c, NULL, 0); -} - -/*=*/ - -/***en - @brief Assign a value to a character in a chartable. - - The mchartable_set () function sets the value of character $C in - chartable $TABLE to $VAL. - - @return - If the operation was successful, mchartable_set () returns 0. - Otherwise it returns -1 and assigns an error code to the external - variable #merror_code. */ - -/***ja - @brief Ê¸»ú¥Æ¡¼¥Ö¥ëÃæ¤Ç¤ÎÊ¸»ú¤ÎÃÍ¤òÀßÄê¤¹¤ë. - - ´Ø¿ô mchartable_set () ¤Ï¡¢Ê¸»ú¥Æ¡¼¥Ö¥ë $TABLE Ãæ¤ÎÊ¸»ú $C ¤Ë - ÃÍ $VAL ¤ò³ä¤êÅö¤Æ¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mchartable_set () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 - ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CHAR - - @seealso - mchartable_lookup (), mchartable_set_range () */ - - -int -mchartable_set (MCharTable *table, int c, void *val) -{ - int managedp = table->key != Mnil && table->key->managing_key; - MSubCharTable *sub = &table->subtable; - int i; - - M_CHECK_CHAR (c, -1); - - if (table->max_char < 0) - table->min_char = table->max_char = c; - else - { - if (c < table->min_char) - table->min_char = c; - else if (c > table->max_char) - table->max_char = c; - } - - for (i = 0; i < CHAR_TAB_MAX_DEPTH; i++) - { - if (! sub->contents.tables) - { - if (sub->default_value == val) - return 0; - make_sub_tables (sub, managedp); - } - sub = sub->contents.tables + SUB_IDX (i, c); - } - if (! sub->contents.values) - { - if (sub->default_value == val) - return 0; - make_sub_values (sub, managedp); - } - sub->contents.values[SUB_IDX (3, c)] = val; - if (managedp && val) - M17N_OBJECT_REF (val); - return 0; -} - -/*=*/ - -/***en - @brief Assign a value to the characters in the specified range. - - The mchartable_set_range () function assigns value $VAL to the - characters from $FROM to $TO (both inclusive) in chartable $TABLE. - - @return - If the operation was successful, mchartable_set_range () returns - 0. Otherwise it returns -1 and assigns an error code to the - external variable #merror_code. If $FROM is greater than $TO, - mchartable_set_range () returns immediately without an error. */ - -/***ja - @brief »ØÄêÈÏ°Ï¤ÎÊ¸»ú¤ËÃÍ¤òÀßÄê¤¹¤ë. - - ´Ø¿ô mchartable_set_range () ¤Ï¡¢Ê¸»ú¥Æ¡¼¥Ö¥ë $TABLE Ãæ¤Î $FROM ¤« - ¤é $TO ¤Þ¤Ç¡ÊÎ¾Ã¼¤ò´Þ¤à¡Ë¤ÎÊ¸»ú¤Ë¡¢ÃÍ¤È¤·¤Æ $VAL ¤òÀßÄê¤¹¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mchartable_set_range () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð - -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£$FROM ¤¬ - $TO ¤è¤êÂç¤¤¤¤È¤¤Ë¤Ï¡¢ mchartable_set_range () ¤Ï²¿¤â¤»¤º¡¢¥¨¥é¡¼ - ¤âµ¯¤³¤µ¤Ê¤¤¡£ */ - -/*** - @errors - @c MERROR_CHAR - - @seealso - mchartable_set () */ - -int -mchartable_set_range (MCharTable *table, int from, int to, void *val) -{ - int managedp = table->key != Mnil && table->key->managing_key; - - M_CHECK_CHAR (from, -1); - M_CHECK_CHAR (to, -1); - - if (from > to) - return 0; - - if (table->max_char < 0) - table->min_char = from, table->max_char = to; - else{ - if (from < table->min_char) - table->min_char = from; - if (to > table->max_char) - table->max_char = to; - } - set_chartable_range (&table->subtable, from, to, val, managedp); - return 0; -} - -/*=*/ - -/***en - @brief Search for characters that have non-default value. - - The mchartable_range () function searches chartable $TABLE for the - first and the last character codes that do not have the default - value of $TABLE, and set $FROM and $TO to them, respectively. If - all characters have the default value, both $FROM and $TO are set - to -1. */ - -/***ja - @brief ÃÍ¤¬¥Ç¥Õ¥©¥ë¥È¤È°Û¤Ê¤ëÊ¸»ú¤òÃµ¤¹. - - ´Ø¿ô mchartable_range () ¤ÏÊ¸»ú¥Æ¡¼¥Ö¥ë $TABLE Ãæ¤Ç¡¢$TABLE ¤Î¥Ç¥Õ¥© - ¥ë¥ÈÃÍ°Ê³°¤ÎÃÍ¤ò»ý¤ÄºÇ½é¤ÈºÇ¸å¤ÎÊ¸»ú¤òÃµ¤·¡¢¤½¤ì¤¾¤ì¤ò $FROM ¤È - $TO ¤ËÀßÄê¤¹¤ë¡£¤¹¤Ù¤Æ¤ÎÊ¸»ú¤¬¥Ç¥Õ¥©¥ë¥ÈÃÍ¤òÃÍ¤È¤·¤Æ»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢ - $FROM ¤È $TO ¤ò -1¤ËÀßÄê¤¹¤ë¡£ */ - -void -mchartable_range (MCharTable *table, int *from, int *to) -{ - *from = chartab_min_non_default_char (&table->subtable, - table->subtable.default_value); - if (*from == -1) - *to = -1; - else - *to = chartab_max_non_default_char (&table->subtable, - table->subtable.default_value); -} - -/*=*/ - -/***en - @brief Call a function for characters in a chartable. - - The mchartable_map () function calls function $FUNC for characters - in chartable $TABLE. No function call occurs for characters that - have value $IGNORE in $TABLE. Comparison of $IGNORE and character - value is done with the operator @c ==. Be careful when you use - string literals or pointers. - - Instead of calling $FUNC for each character, mchartable_map () - tries to optimize the number of function calls, i.e. it makes a - single function call for a chunk of characters when those - consecutive characters have the same value. - - No matter how long the character chunk is, $FUNC is called with - four arguments; $FROM, $TO, $VAL, and $ARG. $FROM and $TO (both - inclusive) defines the range of characters that have value $VAL. - $ARG is the same as $FUNC_ARG. - - @return - This function always returns 0. */ - -/***ja - @brief Ê¸»ú¥Æ¡¼¥Ö¥ëÃæ¤ÎÊ¸»ú¤ËÂÐ¤·¤Æ»ØÄê¤Î´Ø¿ô¤ò¸Æ¤Ö. - - ´Ø¿ô mchartable_map () ¤Ï¡¢Ê¸»ú¥Æ¡¼¥Ö¥ë $TABLE Ãæ¤ÎÊ¸»ú¤ËÂÐ¤·¤Æ´Ø - ¿ô $FUNC ¤ò¸Æ¤Ö¡£¤¿¤À¤·$TABLE Ãæ¤Ç¤âÃÍ¤¬ $IGNORE ¤Ç¤¢¤ëÊ¸»ú¤Ë¤Ä¤¤ - ¤Æ¤Ï´Ø¿ô¸Æ¤Ó½Ð¤·¤ò¹Ô¤Ê¤ï¤Ê¤¤¡£$IGNORE ¤ÈÊ¸»ú¤ÎÃÍ¤ÎÈæ³Ó¤Ï @c == ¤Ç - ¹Ô¤Ê¤¦¤Î¤Ç¡¢Ê¸»úÎó¥ê¥Æ¥é¥ë¤ä¥Ý¥¤¥ó¥¿¤ò»È¤¦ºÝ¤Ë¤ÏÃí°Õ¤òÍ×¤¹¤ë¡£ - - mchartable_map () ¤Ï¡¢°ìÊ¸»ú¤´¤È¤Ë $FUNC ¤ò¸Æ¤Ö¤Î¤Ç¤Ï¤Ê¤¯¡¢´Ø¿ô¸Æ - ¤Ó½Ð¤·¤Î²ó¿ô¤òºÇÅ¬²½¤·¤è¤¦¤È¤¹¤ë¡£¤¹¤Ê¤ï¤Á¡¢Ï¢Â³¤·¤¿Ê¸»ú¤¬Æ±¤¸ÃÍ¤ò - »ý¤Ã¤Æ¤¤¤¿¾ì¹ç¤Ë¤Ï¡¢¤½¤ÎÊ¸»ú¤Î¤Þ¤È¤Þ¤êÁ´ÂÎ¤Ë¤Ä¤¤¤Æ°ìÅÙ¤Î´Ø¿ô¸Æ¤Ó½Ð - ¤·¤·¤«¹Ô¤Ê¤ï¤Ê¤¤¡£ - - Ê¸»ú¤Î¤Þ¤È¤Þ¤ê¤ÎÂç¤¤µ¤Ë¤«¤«¤ï¤é¤º¡¢$FUNC ¤Ï $FROM, $TO, $VAL, $ARG - ¤Î£´°ú¿ô¤Ç¸Æ¤Ð¤ì¤ë¡£$FROM ¤È $TO ¡ÊÎ¾Ã¼¤ò´Þ¤à¡Ë¤Ï $VAL ¤òÃÍ¤È¤·¤Æ - »ý¤ÄÊ¸»ú¤ÎÈÏ°Ï¤ò¼¨¤·¡¢$ARG ¤Ï $FUNC_ARG ¤½¤Î¤â¤Î¤Ç¤¢¤ë¡£ - - @return - ¤³¤Î´Ø¿ô¤Ï¾ï¤Ë0¤òÊÖ¤¹¡£ */ - -int -mchartable_map (MCharTable *table, void *ignore, - void (*func) (int, int, void *, void *), - void *func_arg) -{ - map_chartable (&table->subtable, ignore, 0, func, func_arg); - return 0; -} - -/*=*/ - -/*** @} */ - -/*** @addtogroup m17nDebug */ -/*=*/ -/*** @{ */ - -/***en - @brief Dump a chartable. - - The mdebug_dump_chartab () function prints a chartable $TABLE in a - human readable way to the stderr. $INDENT specifies how many - columns to indent the lines but the first one. - - @return - This function returns $TABLE. */ - -/***ja - @brief Ê¸»ú¥Æ¡¼¥Ö¥ë¤ò¥À¥ó¥×¤¹¤ë. - - ´Ø¿ô mdebug_dump_chartab () ¤ÏÊ¸»ú¥Æ¡¼¥Ö¥ë $TABLE ¤ò stderr ¤Ë¿Í´Ö - ¤Ë²ÄÆÉ¤Ê·Á¤Ç°õºþ¤¹¤ë¡£$INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£ - - @return - ¤³¤Î´Ø¿ô¤Ï $TABLE ¤òÊÖ¤¹¡£ */ - -MCharTable * -mdebug_dump_chartab (MCharTable *table, int indent) -{ - fprintf (stderr, "(chartab (U+%04X U+%04X)", - table->min_char, table->max_char); - dump_sub_chartab (&table->subtable, table->subtable.default_value, - table->key, indent + 2); - fprintf (stderr, ")"); - return table; -} - -/*** @} */ - -/* - Local Variables: - coding: euc-japan - End: -*/ diff --git a/src/chartab.h b/src/chartab.h deleted file mode 100644 index 715acbf..0000000 --- a/src/chartab.h +++ /dev/null @@ -1,30 +0,0 @@ -/* chartab.h -- header file for the character table module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -#ifndef _M17N_CHARTAB_H_ -#define _M17N_CHARTAB_H_ - -extern void *mchartable__lookup (MCharTable *table, int c, - int *next_c, int default_p); - -#endif /* not _M17N_CHARTAB_H_ */ - diff --git a/src/coding.c b/src/coding.c deleted file mode 100644 index f79451d..0000000 --- a/src/coding.c +++ /dev/null @@ -1,5067 +0,0 @@ -/* coding.c -- code conversion module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @addtogroup m17nConv - @brief Coding system objects and API for them. - - The m17n library represents a character encoding scheme (CES) of - coded character sets (CCS) as an object called @e coding @e - system. Application programs can add original coding systems. - - To @e encode means converting code-points to character codes and - to @e decode means converting character codes back to code-points. - - Application programs can decode a byte sequence with a specified - coding system into an M-text, and inversely, can encode an M-text - into a byte sequence. */ - -/***ja - @addtogroup m17nConv - @brief ¥³¡¼¥É·Ï¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API. - - m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢Éä¹æ²½Ê¸»ú½¸¹ç (coded character set; CCS) ¤ÎÊ¸ - »úÉä¹ç²½Êý¼° (character encoding scheme; CES) ¤ò @e ¥³¡¼¥É·Ï ¤È¸Æ - ¤Ö¥ª¥Ö¥¸¥§¥¯¥È¤ÇÉ½¸½¤¹¤ë¡£¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤ÏÆÈ¼«¤Ë¥³¡¼¥É - ·Ï¤òÄÉ²Ã¤¹¤ë¤³¤È¤â¤Ç¤¤ë¡£ - - ¥³¡¼¥É¥Ý¥¤¥ó¥È¤«¤éÊ¸»ú¥³¡¼¥É¤Ø¤ÎÊÑ´¹¤ò @e ¥¨¥ó¥³¡¼¥É ¤È¸Æ¤Ó¡¢Ê¸»ú - ¥³¡¼¥É¤«¤é¥³¡¼¥É¥Ý¥¤¥ó¥È¤Ø¤ÎÊÑ´¹¤ò @e ¥Ç¥³¡¼¥É ¤È¸Æ¤Ö¡£ - - ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¡¢»ØÄê¤µ¤ì¤¿¥³¡¼¥É·Ï¤Ç¥Ð¥¤¥ÈÎó¤ò¥Ç¥³¡¼ - ¥É¤¹¤ë¤³¤È¤Ç M-text ¤òÆÀ¤ë¤³¤È¤¬¤Ç¤¤ë¡£¤Þ¤¿µÕ¤Ë¡¢»ØÄê¤µ¤ì¤¿¥³¡¼¥É - ·Ï¤Ç M-text ¤ò¥¨¥ó¥³¡¼¥É¤·¤¹¤ë¤³¤È¤Ç¥Ð¥¤¥ÈÎó¤òÆÀ¤ë¤³¤È¤¬¤Ç¤¤ë¡£ */ - -/*=*/ - -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include -#include -#include -#include - -#include "m17n.h" -#include "m17n-misc.h" -#include "internal.h" -#include "plist.h" -#include "character.h" -#include "charset.h" -#include "coding.h" -#include "mtext.h" -#include "symbol.h" -#include "mlocale.h" - -#define NUM_SUPPORTED_CHARSETS 32 - -/** Structure for coding system object. */ - -typedef struct -{ - /** Name of the coding system. */ - MSymbol name; - - /** Type of the coding system. */ - MSymbol type; - - /* Number of supported charsets. */ - int ncharsets; - - /** Array of supported charsets. */ - MCharset *charsets[NUM_SUPPORTED_CHARSETS]; - - /** If non-NULL, function to call at the time of creating and - reseting a converter. */ - int (*resetter) (MConverter *converter); - - int (*decoder) (const unsigned char *str, int str_bytes, MText *mt, - MConverter *converter); - - int (*encoder) (MText *mt, int from, int to, - unsigned char *str, int str_bytes, - MConverter *converter); - - /** If non-zero, the coding system decode/encode ASCII characters as - is. */ - int ascii_compatible; - - /** Pointer to extra information given when the coding system is - defined. The meaning depends on . */ - void *extra_info; - - /** Pointer to information referred on conversion. The meaning - depends on . The value NULL means that the coding system - is not yet setup. */ - void *extra_spec; - - int ready; -} MCodingSystem; - -struct MCodingList -{ - int size, inc, used; - MCodingSystem **codings; -}; - -static struct MCodingList coding_list; - -static MPlist *coding_definition_list; - -typedef struct { - /**en - Pointer to a structure of a coding system. */ - /**ja - ¥³¡¼¥É·Ï¤òÉ½¤ï¤¹¥Ç¡¼¥¿¹½Â¤¤Ø¤Î¥Ý¥¤¥ó¥¿ */ - MCodingSystem *coding; - - /**en - Buffer for carryover bytes generated while decoding. */ - /**ja - ¥Ç¥³¡¼¥ÉÃæ¤Î¥¥ã¥ê¥£¥ª¡¼¥Ð¡¼¥Ð¥¤¥ÈÍÑ¥Ð¥Ã¥Õ¥¡ */ - unsigned char carryover[256]; - - /**en - Number of carryover bytes. */ - /**ja - ¥¥ã¥ê¥£¥ª¡¼¥Ð¡¼¥Ð¥¤¥È¿ô */ - int carryover_bytes; - - /**en - Beginning of the byte sequence bound to this converter. */ - /**ja - ¤³¤Î¥³¥ó¥Ð¡¼¥¿¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥Ð¥¤¥ÈÎó¤ÎÀèÆ¬°ÌÃÖ */ - unsigned char *buf; - - /**en - Size of buf. */ - /**ja - buf ¤ÎÂç¤¤µ */ - int bufsize; - - /**en - Number of bytes already consumed in buf. */ - /**ja - buf Æâ¤Ç¤¹¤Ç¤Ë¾ÃÈñ¤µ¤ì¤¿¥Ð¥¤¥È¿ô */ - int used; - - /**en - Stream bound to this converter. */ - /**ja - ¤³¤Î¥³¥ó¥Ð¡¼¥¿¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥¹¥È¥ê¡¼¥à */ - FILE *fp; - - /**en - Which of above two is in use. */ - /**ja - ¾åµ2¼Ô¤Î¤¤¤º¤ì¤¬»È¤ï¤ì¤Æ¤¤¤ë¤« */ - int binding; - - /**en - Buffer for unget. */ - /**ja - Unget ÍÑ¥Ð¥Ã¥Õ¥¡ */ - MText *unread; - - /*en - Working area. */ - /*ja - ºî¶ÈÎÎ°è */ - MText *work_mt; - - int seekable; -} MConverterStatus; - - - -/* Local macros and functions. */ - -/** At first, set SRC_BASE to SRC. Then check if we have already - produced AT_MOST chars. If so, set SRC_END to SRC, and jump to - source_end. Otherwise, get one more byte C from SRC. In that - case, if SRC == SRC_END, jump to the label source_end. */ - -#define ONE_MORE_BASE_BYTE(c) \ - do { \ - src_base = src; \ - if (nchars == at_most) \ - { \ - src_end = src; \ - goto source_end; \ - } \ - if (src == src_stop) \ - { \ - if (src == src_end) \ - goto source_end; \ - src_base = src = source; \ - if (src == src_end) \ - goto source_end; \ - src_stop = src_end; \ - } \ - (c) = *src++; \ - } while (0) - - -/** Get one more byte C from SRC. If SRC == SRC_END, jump to the - label source_end. */ - -#define ONE_MORE_BYTE(c) \ - do { \ - if (src == src_stop) \ - { \ - if (src == src_end) \ - goto source_end; \ - src = source; \ - if (src == src_end) \ - goto source_end; \ - src_stop = src_end; \ - } \ - (c) = *src++; \ - } while (0) - - -#define REWIND_SRC_TO_BASE() \ - do { \ - if (src_base < source || src_base >= src_end) \ - src_stop = internal->carryover + internal->carryover_bytes; \ - src = src_base; \ - } while (0) - - -/** Push back byte C to SRC. */ - -#define UNGET_ONE_BYTE(c) \ - do { \ - if (src > source) \ - src--; \ - else \ - { \ - internal->carryover[0] = c; \ - internal->carryover_bytes = 1; \ - src = internal->carryover; \ - src_stop = src + 1; \ - } \ - } while (0); - - -/** Store multibyte representation of character C at DST and increment - DST to the next of the produced bytes. DST must be a pointer to - data area of M-text MT. If the produced bytes are going to exceed - DST_END, enlarge the data area of MT. */ - -#define EMIT_CHAR(c) \ - do { \ - int bytes = CHAR_BYTES (c); \ - int len; \ - \ - if (dst + bytes + 1 > dst_end) \ - { \ - len = dst - mt->data; \ - bytes = mt->allocated + bytes + (src_stop - src); \ - mtext__enlarge (mt, bytes); \ - dst = mt->data + len; \ - dst_end = mt->data + mt->allocated; \ - } \ - dst += CHAR_STRING (c, dst); \ - nchars++; \ - } while (0) - - -/* Check if there is enough room to produce LEN bytes at DST. If not, - go to the label insufficient_destination. */ - -#define CHECK_DST(len) \ - do { \ - if (dst + (len) > dst_end) \ - goto insufficient_destination; \ - } while (0) - - -/** Take NUM_CHARS characters (NUM_BYTES bytes) already stored at - (MT->data + MT->nbytes) into MT, and put charset property on - them with CHARSET->name. */ - -#define TAKEIN_CHARS(mt, num_chars, num_bytes, charset) \ - do { \ - int chars = (num_chars); \ - \ - if (chars > 0) \ - { \ - mtext__takein ((mt), chars, (num_bytes)); \ - if (charset) \ - mtext_put_prop ((mt), (mt)->nchars - chars, (mt)->nchars, \ - Mcharset, (void *) ((charset)->name)); \ - } \ - } while (0) - - -#define SET_SRC(mt, format, from, to) \ - do { \ - if (format <= MTEXT_FORMAT_UTF_8) \ - { \ - src = mt->data + POS_CHAR_TO_BYTE (mt, from); \ - src_end = mt->data + POS_CHAR_TO_BYTE (mt, to); \ - } \ - else if (format <= MTEXT_FORMAT_UTF_16BE) \ - { \ - src \ - = mt->data + (sizeof (short)) * POS_CHAR_TO_BYTE (mt, from); \ - src_end \ - = mt->data + (sizeof (short)) * POS_CHAR_TO_BYTE (mt, to); \ - } \ - else \ - { \ - src = mt->data + (sizeof (int)) * from; \ - src_end = mt->data + (sizeof (int)) * to; \ - } \ - } while (0) - - -#define ONE_MORE_CHAR(c, bytes, format) \ - do { \ - if (src == src_end) \ - goto finish; \ - if (format <= MTEXT_FORMAT_UTF_8) \ - c = STRING_CHAR_AND_BYTES (src, bytes); \ - else if (format <= MTEXT_FORMAT_UTF_16BE) \ - { \ - c = mtext_ref_char (mt, from++); \ - bytes = (sizeof (short)) * CHAR_UNITS_UTF16 (c); \ - } \ - else \ - { \ - c = ((unsigned *) (mt->data))[from++]; \ - bytes = sizeof (int); \ - } \ - } while (0) - - -static int -encode_unsupporeted_char (int c, unsigned char *dst, unsigned char *dst_end, - MText *mt, int pos) -{ - int len; - char *format; - - len = c < 0x10000 ? 8 : 10; - if (dst + len > dst_end) - return 0; - - mtext_put_prop (mt, pos, pos + 1, Mcoding, Mnil); - format = (c < 0xD800 ? "" - : c < 0xE000 ? "" - : c < 0x10000 ? "" - : c < 0x110000 ? "" - : ""); - sprintf ((char *) dst, format, c); - return len; -} - - - -/** Finish decoding of bytes at SOURCE (ending at SRC_END) into NCHARS - characters by CONVERTER into M-text MT. SRC is a pointer to the - not-yet processed bytes. ERROR is 1 iff an invalid byte was - found. */ - -static int -finish_decoding (MText *mt, MConverter *converter, int nchars, - const unsigned char *source, const unsigned char *src_end, - const unsigned char *src, - int error) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - if (src == src_end) - internal->carryover_bytes = 0; - else if (error - || (converter->last_block - && ! converter->lenient)) - converter->result = MCONVERSION_RESULT_INVALID_BYTE; - else if (! converter->last_block) - { - unsigned char *dst = internal->carryover; - - if (src < source || src > src_end) - { - dst += internal->carryover_bytes; - src = source; - } - while (src < src_end) - *dst++ = *src++; - internal->carryover_bytes = dst - internal->carryover; - converter->result = MCONVERSION_RESULT_INSUFFICIENT_SRC; - } - else - { - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - const unsigned char *src_stop = src_end; - int c; - int last_nchars = nchars; - - if (src < source || src > src_end) - src_stop = internal->carryover + internal->carryover_bytes; - while (1) - { - if (converter->at_most && nchars == converter->at_most) - break; - if (src == src_stop) - { - if (src == src_end) - break; - src = source; - if (src == src_end) - break; - src_stop = src_end; - } - c = *src++; - EMIT_CHAR (c); - } - TAKEIN_CHARS (mt, nchars - last_nchars, dst - (mt->data + mt->nbytes), - mcharset__binary); - internal->carryover_bytes = 0; - } - - converter->nchars += nchars; - converter->nbytes += ((src < source || src > src_end) ? 0 : src - source); - return (converter->result == MCONVERSION_RESULT_INVALID_BYTE ? -1 : 0); -} - - - -/* Staffs for coding-systems of type MCODING_TYPE_CHARSET. */ - -static int -setup_coding_charset (MCodingSystem *coding) -{ - int ncharsets = coding->ncharsets; - unsigned *code_charset_table; - - if (ncharsets > 1) - { - /* At first, reorder charset list by dimensions (a charset of - smaller dimension comes first). As the number of charsets is - usually very small (at most 32), we do a simple sort. */ - MCharset **charsets; - int idx = 0; - int i, j; - - MTABLE_ALLOCA (charsets, NUM_SUPPORTED_CHARSETS, MERROR_CODING); - memcpy (charsets, coding->charsets, - sizeof (MCharset *) * NUM_SUPPORTED_CHARSETS); - for (i = 0; i < 4; i++) - for (j = 0; j < ncharsets; j++) - if (charsets[j]->dimension == i) - coding->charsets[idx++] = charsets[j]; - } - - MTABLE_CALLOC (code_charset_table, 256, MERROR_CODING); - while (ncharsets--) - { - int dim = coding->charsets[ncharsets]->dimension; - int from = coding->charsets[ncharsets]->code_range[(dim - 1) * 4]; - int to = coding->charsets[ncharsets]->code_range[(dim - 1) * 4 + 1]; - - if (coding->charsets[ncharsets]->ascii_compatible) - coding->ascii_compatible = 1; - while (from <= to) - code_charset_table[from++] |= 1 << ncharsets; - } - - coding->extra_spec = (void *) code_charset_table; - return 0; -} - -static int -reset_coding_charset (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - - if (! coding->ready - && setup_coding_charset (coding) < 0) - return -1; - coding->ready = 1; - return 0; -} - -static int -decode_coding_charset (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - - unsigned *code_charset_table = (unsigned *) coding->extra_spec; - MCharset **charsets = coding->charsets; - MCharset *charset = mcharset__ascii; - int error = 0; - - while (1) - { - MCharset *this_charset = NULL; - int c; - unsigned mask; - - ONE_MORE_BASE_BYTE (c); - mask = code_charset_table[c]; - if (mask) - { - int idx = 0; - unsigned code = c; - int nbytes = 1; - int dim; - - while (mask) - { - while (! (mask & 1)) mask >>= 1, idx++; - this_charset = charsets[idx]; - dim = this_charset->dimension; - while (nbytes < dim) - { - ONE_MORE_BYTE (c); - code = (code << 8) | c; - nbytes++; - } - c = DECODE_CHAR (this_charset, code); - if (c >= 0) - goto emit_char; - mask >>= 1, idx++; - } - } - - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - c = *src++; - this_charset = mcharset__binary; - - emit_char: - if (this_charset != mcharset__ascii - && this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c); - } - /* We reach here because of an invalid byte. */ - error = 1; - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); -} - -static int -encode_coding_charset (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - int ncharsets = coding->ncharsets; - MCharset **charsets = coding->charsets; - int ascii_compatible = coding->ascii_compatible; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - while (1) - { - int c, bytes; - - ONE_MORE_CHAR (c, bytes, format); - - if (c < 0x80 && ascii_compatible) - { - CHECK_DST (1); - *dst++ = c; - } - else - { - unsigned code; - MCharset *charset = NULL; - int i = 0; - - while (1) - { - charset = charsets[i]; - code = ENCODE_CHAR (charset, c); - if (code != MCHAR_INVALID_CODE) - break; - if (++i == ncharsets) - goto unsupported_char; - } - - CHECK_DST (charset->dimension); - if (charset->dimension == 1) - { - *dst++ = code; - } - else if (charset->dimension == 2) - { - *dst++ = code >> 8; - *dst++ = code & 0xFF; - } - else if (charset->dimension == 3) - { - *dst++ = code >> 16; - *dst++ = (code >> 8) & 0xFF; - *dst++ = code & 0xFF; - } - else - { - *dst++ = code >> 24; - *dst++ = (code >> 16) & 0xFF; - *dst++ = (code >> 8) & 0xFF; - *dst++ = code & 0xFF; - } - } - src += bytes; - nchars++; - continue; - - unsupported_char: - { - int len; - - if (! converter->lenient) - break; - len = encode_unsupporeted_char (c, dst, dst_end, mt, from + nchars); - if (len == 0) - goto insufficient_destination; - dst += len; - src += bytes; - nchars++; - } - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - - -/* Staffs for coding-systems of type MCODING_TYPE_UTF (8). */ - -#define UTF8_CHARSET(p) \ - (! ((p)[0] & 0x80) ? (mcharset__unicode) \ - : CHAR_HEAD_P ((p) + 1) ? (mcharset__binary) \ - : ! ((p)[0] & 0x20) ? (mcharset__unicode) \ - : CHAR_HEAD_P ((p) + 2) ? (mcharset__binary) \ - : ! ((p)[0] & 0x10) ? (mcharset__unicode) \ - : CHAR_HEAD_P ((p) + 3) ? (mcharset__binary) \ - : ! ((p)[0] & 0x08) ? ((((((p)[0] & 0x07) << 2) \ - & (((p)[1] & 0x30) >> 4)) <= 0x10) \ - ? (mcharset__unicode) \ - : (mcharset__m17n)) \ - : CHAR_HEAD_P ((p) + 4) ? (mcharset__binary) \ - : ! ((p)[0] & 0x04) ? (mcharset__m17n) \ - : CHAR_HEAD_P ((p) + 5) ? (mcharset__binary) \ - : ! ((p)[0] & 0x02) ? (mcharset__m17n) \ - : (mcharset__binary)) - - -static int -decode_coding_utf_8 (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - int error = 0; - int full = converter->lenient || (coding->charsets[0] == mcharset__m17n); - MCharset *charset = NULL; - - while (1) - { - int c, c1, bytes; - MCharset *this_charset = NULL; - - ONE_MORE_BASE_BYTE (c); - - if (!(c & 0x80)) - bytes = 1; - else if (!(c & 0x40)) - goto invalid_byte; - else if (!(c & 0x20)) - bytes = 2, c &= 0x1F; - else if (!(c & 0x10)) - bytes = 3, c &= 0x0F; - else if (!(c & 0x08)) - bytes = 4, c &= 0x07; - else if (!(c & 0x04)) - bytes = 5, c &= 0x03; - else if (!(c & 0x02)) - bytes = 6, c &= 0x01; - else - goto invalid_byte; - - while (bytes-- > 1) - { - ONE_MORE_BYTE (c1); - if ((c1 & 0xC0) != 0x80) - goto invalid_byte; - c = (c << 6) | (c1 & 0x3F); - } - - if (full - || c < 0xD800 || (c >= 0xE000 && c < 0x110000)) - goto emit_char; - - invalid_byte: - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - c = *src++; - this_charset = mcharset__binary; - - emit_char: - if (this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c); - } - /* We reach here because of an invalid byte. */ - error = 1; - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); -} - -static int -encode_coding_utf_8 (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - - if (format <= MTEXT_FORMAT_UTF_8 - && (converter->lenient - || coding->charsets[0] == mcharset__m17n)) - { - if (dst_bytes < src_end - src) - { - int byte_pos = (src + dst_bytes) - mt->data; - - to = POS_BYTE_TO_CHAR (mt, byte_pos); - byte_pos = POS_CHAR_TO_BYTE (mt, to); - src_end = mt->data + byte_pos; - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - } - memcpy (destination, src, src_end - src); - nchars = to - from; - dst += src_end - src; - goto finish; - } - - while (1) - { - int c, bytes; - - ONE_MORE_CHAR (c, bytes, format); - - if ((c >= 0xD800 && c < 0xE000) || c >= 0x110000) - break; - CHECK_DST (bytes); - dst += CHAR_STRING (c, dst); - src += bytes; - nchars++; - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - - -/* Staffs for coding-systems of type MCODING_TYPE_UTF (16 & 32). */ - -enum utf_bom - { - UTF_BOM_MAYBE, - UTF_BOM_NO, - UTF_BOM_YES, - UTF_BOM_MAX - }; - -enum utf_endian - { - UTF_BIG_ENDIAN, - UTF_LITTLE_ENDIAN, - UTF_ENDIAN_MAX - }; - -struct utf_status -{ - int surrogate; - enum utf_bom bom; - enum utf_endian endian; -}; - -static int -setup_coding_utf (MCodingSystem *coding) -{ - MCodingInfoUTF *info = (MCodingInfoUTF *) (coding->extra_info); - MCodingInfoUTF *spec; - - if (info->code_unit_bits == 8) - coding->ascii_compatible = 1; - else if (info->code_unit_bits == 16 - || info->code_unit_bits == 32) - { - if (info->bom < 0 || info->bom > 2 - || info->endian < 0 || info->endian > 1) - MERROR (MERROR_CODING, -1); - } - else - return -1; - - MSTRUCT_CALLOC (spec, MERROR_CODING); - *spec = *info; - coding->extra_spec = (void *) (spec); - return 0; -} - -static int -reset_coding_utf (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - struct utf_status *status = (struct utf_status *) &(converter->status); - - if (! coding->ready - && setup_coding_utf (coding) < 0) - return -1; - coding->ready = 1; - - status->surrogate = 0; - status->bom = ((MCodingInfoUTF *) (coding->extra_spec))->bom; - status->endian = ((MCodingInfoUTF *) (coding->extra_spec))->endian; - return 0; -} - -static int -decode_coding_utf_16 (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - struct utf_status *status = (struct utf_status *) &(converter->status); - unsigned char b1, b2; - MCharset *charset = NULL; - int error = 0; - - if (status->bom != UTF_BOM_NO) - { - int c; - - ONE_MORE_BASE_BYTE (b1); - ONE_MORE_BYTE (b2); - c = (b1 << 8) | b2; - if (c == 0xFEFF) - status->endian = UTF_BIG_ENDIAN; - else if (c == 0xFFFE) - status->endian = UTF_LITTLE_ENDIAN; - else if (status->bom == UTF_BOM_MAYBE - || converter->lenient) - { - status->endian = UTF_BIG_ENDIAN; - REWIND_SRC_TO_BASE (); - } - else - { - error = 1; - goto source_end; - } - status->bom = UTF_BOM_NO; - } - - while (1) - { - int c, c1; - MCharset *this_charset = NULL; - - ONE_MORE_BASE_BYTE (b1); - ONE_MORE_BYTE (b2); - if (status->endian == UTF_BIG_ENDIAN) - c = ((b1 << 8) | b2); - else - c = ((b2 << 8) | b1); - if (c < 0xD800 || c >= 0xE000) - goto emit_char; - else if (c < 0xDC00) - { - ONE_MORE_BYTE (b1); - ONE_MORE_BYTE (b2); - if (status->endian == UTF_BIG_ENDIAN) - c1 = ((b1 << 8) | b2); - else - c1 = ((b2 << 8) | b1); - if (c1 < 0xDC00 || c1 >= 0xE000) - goto invalid_byte; - c = 0x10000 + ((c - 0xD800) << 10) + (c1 - 0xDC00); - goto emit_char; - } - - invalid_byte: - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - ONE_MORE_BYTE (b1); - ONE_MORE_BYTE (b2); - if (status->endian == UTF_BIG_ENDIAN) - c = ((b1 << 8) | b2); - else - c = ((b2 << 8) | b1); - this_charset = mcharset__binary; - - emit_char: - if (this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c); - } - /* We reach here because of an invalid byte. */ - error = 1; - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); -} - - -static int -decode_coding_utf_32 (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - struct utf_status *status = (struct utf_status *) &(converter->status); - unsigned char b1, b2, b3, b4; - MCharset *charset = NULL; - int error = 0; - - if (status->bom != UTF_BOM_NO) - { - unsigned c; - - ONE_MORE_BASE_BYTE (b1); - ONE_MORE_BYTE (b2); - ONE_MORE_BYTE (b3); - ONE_MORE_BYTE (b4); - c = (b1 << 24) | (b2 << 16) | (b3 << 8) | b4; - if (c == 0x0000FEFF) - status->endian = UTF_BIG_ENDIAN; - else if (c == 0xFFFE0000) - status->endian = UTF_LITTLE_ENDIAN; - else if (status->bom == UTF_BOM_MAYBE - || converter->lenient) - { - status->endian = UTF_BIG_ENDIAN; - REWIND_SRC_TO_BASE (); - } - else - { - error = 1; - goto source_end; - } - status->bom = UTF_BOM_NO; - } - - while (1) - { - unsigned c; - MCharset *this_charset = NULL; - - ONE_MORE_BASE_BYTE (b1); - ONE_MORE_BYTE (b2); - ONE_MORE_BYTE (b3); - ONE_MORE_BYTE (b4); - if (status->endian == UTF_BIG_ENDIAN) - c = (b1 << 24) | (b2 << 16) | (b3 << 8) | b4; - else - c = (b4 << 24) | (b3 << 16) | (b2 << 8) | b1; - if (c < 0xD800 || (c >= 0xE000 && c < 0x110000)) - goto emit_char; - - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - ONE_MORE_BYTE (c); - this_charset = mcharset__binary; - - emit_char: - if (this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c); - } - /* We reach here because of an invalid byte. */ - error = 1; - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); -} - - -static int -encode_coding_utf_16 (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - struct utf_status *status = (struct utf_status *) &(converter->status); - int big_endian = status->endian == UTF_BIG_ENDIAN; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - - if (status->bom != UTF_BOM_NO) - { - CHECK_DST (2); - if (big_endian) - *dst++ = 0xFE, *dst++ = 0xFF; - else - *dst++ = 0xFF, *dst++ = 0xFE; - status->bom = UTF_BOM_NO; - } - - while (1) - { - int c, bytes; - - ONE_MORE_CHAR (c, bytes, format); - - if (c < 0xD800 || (c >= 0xE000 && c < 0x10000)) - { - CHECK_DST (2); - if (big_endian) - *dst++ = c >> 8, *dst++ = c & 0xFF; - else - *dst++ = c & 0xFF, *dst++ = c >> 8; - } - else if (c >= 0x10000 && c < 0x110000) - { - int c1, c2; - - CHECK_DST (4); - c -= 0x10000; - c1 = (c >> 10) + 0xD800; - c2 = (c & 0x3FF) + 0xDC00; - if (big_endian) - *dst++ = c1 >> 8, *dst++ = c1 & 0xFF, - *dst++ = c2 >> 8, *dst++ = c2 & 0xFF; - else - *dst++ = c1 & 0xFF, *dst++ = c1 >> 8, - *dst++ = c2 & 0xFF, *dst++ = c2 >> 8; - } - else - { - unsigned char buf[11]; - int len, i; - - if (! converter->lenient) - break; - len = encode_unsupporeted_char (c, buf, buf + (dst_end - dst), - mt, from + nchars); - if (len == 0) - goto insufficient_destination; - if (big_endian) - for (i = 0; i < len; i++) - *dst++ = 0, *dst++ = buf[i]; - else - for (i = 0; i < len; i++) - *dst++ = buf[i], *dst++ = 0; - } - src += bytes; - nchars++; - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - -static int -encode_coding_utf_32 (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - struct utf_status *status = (struct utf_status *) &(converter->status); - int big_endian = status->endian == UTF_BIG_ENDIAN; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - - if (status->bom != UTF_BOM_NO) - { - CHECK_DST (4); - if (big_endian) - *dst++ = 0x00, *dst++ = 0x00, *dst++ = 0xFE, *dst++ = 0xFF; - else - *dst++ = 0xFF, *dst++ = 0xFE, *dst++ = 0x00, *dst++ = 0x00; - status->bom = UTF_BOM_NO; - } - - while (1) - { - int c, bytes; - - ONE_MORE_CHAR (c, bytes, format); - - if (c < 0xD800 || (c >= 0xE000 && c < 0x110000)) - { - CHECK_DST (4); - if (big_endian) - *dst++ = 0x00, *dst++ = c >> 16, - *dst++ = (c >> 8) & 0xFF, *dst++ = c & 0xFF; - else - *dst++ = c & 0xFF, *dst++ = (c >> 8) & 0xFF, - *dst++ = c >> 16, *dst++ = 0x00; - } - else - { - unsigned char buf[11]; - int len, i; - - if (! converter->lenient) - break; - len = encode_unsupporeted_char (c, buf, buf + (dst_end - dst), - mt, from + nchars); - if (len == 0) - goto insufficient_destination; - if (big_endian) - for (i = 0; i < len; i++) - *dst++ = 0, *dst++ = buf[i]; - else - for (i = 0; i < len; i++) - *dst++ = buf[i], *dst++ = 0; - } - src += bytes; - nchars++; - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - - -/* Staffs for coding-systems of type MCODING_TYPE_ISO_2022. */ - -#define ISO_CODE_STX 0x02 /* start text */ -#define ISO_CODE_SO 0x0E /* shift-out */ -#define ISO_CODE_SI 0x0F /* shift-in */ -#define ISO_CODE_SS2_7 0x19 /* single-shift-2 for 7-bit code */ -#define ISO_CODE_ESC 0x1B /* escape */ -#define ISO_CODE_SS2 0x8E /* single-shift-2 */ -#define ISO_CODE_SS3 0x8F /* single-shift-3 */ - -/** Structure pointed by MCodingSystem.extra_spec. */ - -struct iso_2022_spec -{ - unsigned flags; - - /** Initial graphic registers (0..3) invoked to each graphic - plane left and right. */ - int initial_invocation[2]; - - /** Initially designated charsets for each graphic register. */ - MCharset *initial_designation[4]; - - int n_designations; - char *designations; - - int use_esc; -}; - -struct iso_2022_status -{ - int invocation[2]; - MCharset *designation[4]; - unsigned single_shifting : 1; - unsigned bol : 1; - unsigned r2l : 1; - unsigned utf8_shifting : 1; - MCharset *non_standard_charset; - int non_standard_charset_bytes; - int non_standard_encoding; -}; - -enum iso_2022_code_class { - ISO_control_0, /* Control codes in the range - 0x00..0x1F and 0x7F, except for the - following 4 codes. */ - ISO_shift_out, /* ISO_CODE_SO (0x0E) */ - ISO_shift_in, /* ISO_CODE_SI (0x0F) */ - ISO_single_shift_2_7, /* ISO_CODE_SS2_7 (0x19) */ - ISO_escape, /* ISO_CODE_SO (0x1B) */ - ISO_control_1, /* Control codes in the range - 0x80..0x9F, except for the - following 3 codes. */ - ISO_single_shift_2, /* ISO_CODE_SS2 (0x8E) */ - ISO_single_shift_3, /* ISO_CODE_SS3 (0x8F) */ - ISO_control_sequence_introducer, /* ISO_CODE_CSI (0x9B) */ - ISO_0x20_or_0x7F, /* Codes of the values 0x20 or 0x7F. */ - ISO_graphic_plane_0, /* Graphic codes in the range 0x21..0x7E. */ - ISO_0xA0_or_0xFF, /* Codes of the values 0xA0 or 0xFF. */ - ISO_graphic_plane_1 /* Graphic codes in the range 0xA1..0xFE. */ -} iso_2022_code_class[256]; - - -#define MCODING_ISO_DESIGNATION_MASK \ - (MCODING_ISO_DESIGNATION_G0 \ - | MCODING_ISO_DESIGNATION_G1 \ - | MCODING_ISO_DESIGNATION_CTEXT \ - | MCODING_ISO_DESIGNATION_CTEXT_EXT) - -static int -setup_coding_iso_2022 (MCodingSystem *coding) -{ - MCodingInfoISO2022 *info = (MCodingInfoISO2022 *) (coding->extra_info); - int ncharsets = coding->ncharsets; - struct iso_2022_spec *spec; - int designation_policy = info->flags & MCODING_ISO_DESIGNATION_MASK; - int i; - - coding->ascii_compatible = 0; - - MSTRUCT_CALLOC (spec, MERROR_CODING); - - spec->flags = info->flags; - spec->initial_invocation[0] = info->initial_invocation[0]; - spec->initial_invocation[1] = info->initial_invocation[1]; - for (i = 0; i < 4; i++) - spec->initial_designation[i] = NULL; - if (designation_policy) - { - spec->n_designations = ncharsets; - if (spec->flags & MCODING_ISO_FULL_SUPPORT) - spec->n_designations += mcharset__iso_2022_table.used; - MTABLE_CALLOC (spec->designations, spec->n_designations, MERROR_CODING); - for (i = 0; i < spec->n_designations; i++) - spec->designations[i] = -1; - } - else - { - if (spec->flags & MCODING_ISO_FULL_SUPPORT) - MERROR (MERROR_CODING, -1); - spec->designations = NULL; - } - - for (i = 0; i < ncharsets; i++) - { - int reg = info->designations[i]; - - if (reg != -5 - && coding->charsets[i]->final_byte > 0 - && (reg < -4 || reg > 3)) - MERROR (MERROR_CODING, -1); - if (reg >= 0) - { - if (spec->initial_designation[reg]) - MERROR (MERROR_CODING, -1); - spec->initial_designation[reg] = coding->charsets[i]; - } - else if (reg >= -4) - { - if (! designation_policy - && ! (spec->flags & MCODING_ISO_EUC_TW_SHIFT)) - MERROR (MERROR_CODING, -1); - reg += 4; - } - - if (designation_policy) - spec->designations[i] = reg; - if (coding->charsets[i] == mcharset__ascii) - coding->ascii_compatible = 1; - } - - if (coding->ascii_compatible - && (spec->flags & (MCODING_ISO_DESIGNATION_G0 - | MCODING_ISO_DESIGNATION_CTEXT - | MCODING_ISO_DESIGNATION_CTEXT_EXT - | MCODING_ISO_LOCKING_SHIFT))) - coding->ascii_compatible = 0; - - if (spec->flags & MCODING_ISO_FULL_SUPPORT) - for (i = 0; i < mcharset__iso_2022_table.used; i++) - { - MCharset *charset = mcharset__iso_2022_table.charsets[i]; - - spec->designations[ncharsets + i] - = ((designation_policy == MCODING_ISO_DESIGNATION_CTEXT - || designation_policy == MCODING_ISO_DESIGNATION_CTEXT_EXT) - ? (charset->code_range[0] == 32 - || charset->code_range[1] == 255) - : designation_policy == MCODING_ISO_DESIGNATION_G1); - } - - spec->use_esc = ((spec->flags & MCODING_ISO_DESIGNATION_MASK) - || ((spec->flags & MCODING_ISO_LOCKING_SHIFT) - && (spec->initial_designation[2] - || spec->initial_designation[3])) - || (! (spec->flags & MCODING_ISO_EIGHT_BIT) - && (spec->flags & MCODING_ISO_SINGLE_SHIFT)) - || (spec->flags & MCODING_ISO_ISO6429)); - - coding->extra_spec = (void *) spec; - - return 0; -} - -static int -reset_coding_iso_2022 (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - struct iso_2022_status *status - = (struct iso_2022_status *) &(converter->status); - struct iso_2022_spec *spec; - int i; - - if (! coding->ready - && setup_coding_iso_2022 (coding) < 0) - return -1; - coding->ready = 1; - - spec = (struct iso_2022_spec *) coding->extra_spec; - status->invocation[0] = spec->initial_invocation[0]; - status->invocation[1] = spec->initial_invocation[1]; - for (i = 0; i < 4; i++) - status->designation[i] = spec->initial_designation[i]; - status->single_shifting = 0; - status->bol = 1; - status->r2l = 0; - - return 0; -} - -#define ISO2022_DECODE_DESIGNATION(reg, dim, chars, final, rev) \ - do { \ - MCharset *charset; \ - \ - if ((final) < '0' || (final) >= 128) \ - goto invalid_byte; \ - if (rev < 0) \ - { \ - charset = MCHARSET_ISO_2022 ((dim), (chars), (final)); \ - if (! (spec->flags & MCODING_ISO_FULL_SUPPORT)) \ - { \ - int i; \ - \ - for (i = 0; i < coding->ncharsets; i++) \ - if (charset == coding->charsets[i]) \ - break; \ - if (i == coding->ncharsets) \ - goto invalid_byte; \ - } \ - } \ - else \ - { \ - int i; \ - \ - for (i = 0; i < mcharset__iso_2022_table.used; i++) \ - { \ - charset = mcharset__iso_2022_table.charsets[i]; \ - if (charset->revision == (rev) \ - && charset->dimension == (dim) \ - && charset->final_byte == (final) \ - && (charset->code_range[1] == (chars) \ - || ((chars) == 96 && charset->code_range[1] == 255))) \ - break; \ - } \ - if (i == mcharset__iso_2022_table.used) \ - goto invalid_byte; \ - } \ - status->designation[reg] = charset; \ - } while (0) - - -static MCharset * -find_ctext_non_standard_charset (char *charset_name) -{ - MCharset *charset; - - if (! strcmp (charset_name, "koi8-r")) - charset = MCHARSET (msymbol ("koi8-r")); - else if (! strcmp (charset_name, "big5-0")) - charset = MCHARSET (msymbol ("big5")); - else - charset = NULL; - return charset; -} - -static int -decode_coding_iso_2022 (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - struct iso_2022_spec *spec = (struct iso_2022_spec *) coding->extra_spec; - struct iso_2022_status *status - = (struct iso_2022_status *) &(converter->status); - MCharset *charset0, *charset1, *charset; - int error = 0; - MCharset *cns_charsets[15]; - - charset0 = (status->invocation[0] >= 0 - ? status->designation[status->invocation[0]] : NULL); - charset1 = (status->invocation[1] >= 0 - ? status->designation[status->invocation[1]] : NULL); - charset = mcharset__ascii; - - if (spec->flags & MCODING_ISO_EUC_TW_SHIFT) - { - int i; - - memset (cns_charsets, 0, sizeof (cns_charsets)); - for (i = 0; i < coding->ncharsets; i++) - if (coding->charsets[i]->dimension == 2 - && coding->charsets[i]->code_range[1] == 126) - { - int final = coding->charsets[i]->final_byte; - - if (final >= 'G' && final <= 'M') - cns_charsets[final - 'G'] = coding->charsets[i]; - else if (final < 0) - cns_charsets[14] = coding->charsets[i]; - } - } - - while (1) - { - MCharset *this_charset = NULL; - int c1, c2, c3; - - ONE_MORE_BASE_BYTE (c1); - - if (status->utf8_shifting) - { - int buf[6]; - int bytes = CHAR_BYTES_BY_HEAD (c1); - int i; - - buf[0] = c1; - for (i = 1; i < bytes; i++) - { - ONE_MORE_BYTE (c1); - buf[i] = c1; - } - this_charset = UTF8_CHARSET (buf); - c1 = STRING_CHAR_UTF8 (buf); - goto emit_char; - } - - if (status->non_standard_encoding > 0) - { - int i; - - this_charset = status->non_standard_charset; - for (i = 1; i < status->non_standard_charset_bytes; i++) - { - ONE_MORE_BYTE (c2); - c1 = (c1 << 8) | c2; - } - c1 = DECODE_CHAR (this_charset, c1); - goto emit_char; - } - - switch (iso_2022_code_class[c1]) - { - case ISO_graphic_plane_0: - this_charset = charset0; - break; - - case ISO_0x20_or_0x7F: - if (! charset0 - || (charset0->code_range[0] != 32 - && charset0->code_range[1] != 255)) - /* This is SPACE or DEL. */ - this_charset = mcharset__ascii; - else - /* This is a graphic character of plane 0. */ - this_charset = charset0; - break; - - case ISO_graphic_plane_1: - if (!charset1) - goto invalid_byte; - this_charset = charset1; - break; - - case ISO_0xA0_or_0xFF: - if (! charset1 - || charset1->code_range[0] == 33 - || ! (spec->flags & MCODING_ISO_EIGHT_BIT)) - goto invalid_byte; - /* This is a graphic character of plane 1. */ - if (! charset1) - goto invalid_byte; - this_charset = charset1; - break; - - case ISO_control_0: - this_charset = mcharset__ascii; - break; - - case ISO_control_1: - goto invalid_byte; - - case ISO_shift_out: - if ((spec->flags & MCODING_ISO_LOCKING_SHIFT) - && status->designation[1]) - { - status->invocation[0] = 1; - charset0 = status->designation[1]; - continue; - } - this_charset = mcharset__ascii; - break; - - case ISO_shift_in: - if (spec->flags & MCODING_ISO_LOCKING_SHIFT) - { - status->invocation[0] = 0; - charset0 = status->designation[0]; - continue; - } - this_charset = mcharset__ascii; - break; - - case ISO_single_shift_2_7: - if (! (spec->flags & MCODING_ISO_SINGLE_SHIFT_7)) - { - this_charset = mcharset__ascii; - break; - } - c1 = 'N'; - goto label_escape_sequence; - - case ISO_single_shift_2: - if (spec->flags & MCODING_ISO_EUC_TW_SHIFT) - { - ONE_MORE_BYTE (c1); - if (c1 < 0xA1 || (c1 > 0xA7 && c1 < 0xAF) || c1 > 0xAF - || ! cns_charsets[c1 - 0xA1]) - goto invalid_byte; - status->designation[2] = cns_charsets[c1 - 0xA1]; - } - else if (! (spec->flags & MCODING_ISO_SINGLE_SHIFT)) - goto invalid_byte; - /* SS2 is handled as an escape sequence of ESC 'N' */ - c1 = 'N'; - goto label_escape_sequence; - - case ISO_single_shift_3: - if (! (spec->flags & MCODING_ISO_SINGLE_SHIFT)) - goto invalid_byte; - /* SS2 is handled as an escape sequence of ESC 'O' */ - c1 = 'O'; - goto label_escape_sequence; - - case ISO_control_sequence_introducer: - /* CSI is handled as an escape sequence of ESC '[' ... */ - c1 = '['; - goto label_escape_sequence; - - case ISO_escape: - if (! spec->use_esc) - { - this_charset = mcharset__ascii; - break; - } - ONE_MORE_BYTE (c1); - label_escape_sequence: - /* Escape sequences handled here are invocation, - designation, and direction specification. */ - switch (c1) - { - case '&': /* revision of following character set */ - if (! (spec->flags & MCODING_ISO_DESIGNATION_MASK)) - goto unused_escape_sequence; - ONE_MORE_BYTE (c1); - if (c1 < '@' || c1 > '~') - goto invalid_byte; - ONE_MORE_BYTE (c1); - if (c1 != ISO_CODE_ESC) - goto invalid_byte; - ONE_MORE_BYTE (c1); - goto label_escape_sequence; - - case '$': /* designation of 2-byte character set */ - if (! (spec->flags & MCODING_ISO_DESIGNATION_MASK)) - goto unused_escape_sequence; - ONE_MORE_BYTE (c1); - if (c1 >= '@' && c1 <= 'B') - { /* designation of JISX0208.1978, GB2312.1980, or - JISX0208.1980 */ - ISO2022_DECODE_DESIGNATION (0, 2, 94, c1, -1); - } - else if (c1 >= 0x28 && c1 <= 0x2B) - { /* designation of (dimension 2, chars 94) character set */ - ONE_MORE_BYTE (c2); - ISO2022_DECODE_DESIGNATION (c1 - 0x28, 2, 94, c2, -1); - } - else if (c1 >= 0x2C && c1 <= 0x2F) - { /* designation of (dimension 2, chars 96) character set */ - ONE_MORE_BYTE (c2); - ISO2022_DECODE_DESIGNATION (c1 - 0x2C, 2, 96, c2, -1); - } - else - goto invalid_byte; - /* We must update these variables now. */ - charset0 = status->designation[status->invocation[0]]; - charset1 = status->designation[status->invocation[1]]; - continue; - - case 'n': /* invocation of locking-shift-2 */ - if (! (spec->flags & MCODING_ISO_LOCKING_SHIFT) - || ! status->designation[2]) - goto invalid_byte; - status->invocation[0] = 2; - charset0 = status->designation[2]; - continue; - - case 'o': /* invocation of locking-shift-3 */ - if (! (spec->flags & MCODING_ISO_LOCKING_SHIFT) - || ! status->designation[3]) - goto invalid_byte; - status->invocation[0] = 3; - charset0 = status->designation[3]; - continue; - - case 'N': /* invocation of single-shift-2 */ - if (! ((spec->flags & MCODING_ISO_SINGLE_SHIFT) - || (spec->flags & MCODING_ISO_EUC_TW_SHIFT)) - || ! status->designation[2]) - goto invalid_byte; - this_charset = status->designation[2]; - ONE_MORE_BYTE (c1); - if (c1 < 0x20 || (c1 >= 0x80 && c1 < 0xA0)) - goto invalid_byte; - break; - - case 'O': /* invocation of single-shift-3 */ - if (! (spec->flags & MCODING_ISO_SINGLE_SHIFT) - || ! status->designation[3]) - goto invalid_byte; - this_charset = status->designation[3]; - ONE_MORE_BYTE (c1); - if (c1 < 0x20 || (c1 >= 0x80 && c1 < 0xA0)) - goto invalid_byte; - break; - - case '[': /* specification of direction */ - if (! (spec->flags & MCODING_ISO_ISO6429)) - goto invalid_byte; - /* For the moment, nested direction is not supported. - So, (coding->mode & CODING_MODE_DIRECTION) zero means - left-to-right, and nonzero means right-to-left. */ - ONE_MORE_BYTE (c1); - switch (c1) - { - case ']': /* end of the current direction */ - case '0': /* end of the current direction */ - status->r2l = 0; - break; - - case '1': /* start of left-to-right direction */ - ONE_MORE_BYTE (c1); - if (c1 != ']') - goto invalid_byte; - status->r2l = 0; - break; - - case '2': /* start of right-to-left direction */ - ONE_MORE_BYTE (c1); - if (c1 != ']') - goto invalid_byte; - status->r2l = 1; - break; - - default: - goto invalid_byte; - } - continue; - - case '%': - { - char charset_name[16]; - int bytes; - int i; - - if (! spec->flags & MCODING_ISO_DESIGNATION_CTEXT_EXT) - goto invalid_byte; - /* Compound-text uses these escape sequences: - - ESC % G -- utf-8 bytes -- ESC % @ - ESC % / 1 M L -- charset name -- STX -- bytes -- - ESC % / 2 M L -- charset name -- STX -- bytes -- - ESC % / 3 M L -- charset name -- STX -- bytes -- - ESC % / 4 M L -- charset name -- STX -- bytes -- - - It also uses this sequence but that is not yet - supported here. - - ESC % / 0 M L -- charset name -- STX -- bytes -- */ - - ONE_MORE_BYTE (c1); - if (c1 == 'G') - { - status->utf8_shifting = 1; - continue; - } - if (c1 == '@') - { - if (! status->utf8_shifting) - goto invalid_byte; - status->utf8_shifting = 0; - continue; - } - if (c1 != '/') - goto invalid_byte; - ONE_MORE_BYTE (c1); - if (c1 < '1' || c1 > '4') - goto invalid_byte; - status->non_standard_charset_bytes = c1 - '0'; - ONE_MORE_BYTE (c1); - ONE_MORE_BYTE (c2); - if (c1 < 128 || c2 < 128) - goto invalid_byte; - bytes = (c1 - 128) * 128 + (c2 - 128); - for (i = 0; i < 16; i++) - { - ONE_MORE_BYTE (c1); - if (c1 == ISO_CODE_STX) - break; - charset_name[i] = TOLOWER (c1); - } - if (i == 16) - goto invalid_byte; - charset_name[i++] = '\0'; - this_charset = find_ctext_non_standard_charset (charset_name); - if (! this_charset) - goto invalid_byte; - status->non_standard_charset = this_charset; - status->non_standard_encoding = bytes - i; - continue; - } - - default: - if (! (spec->flags & MCODING_ISO_DESIGNATION_MASK)) - goto unused_escape_sequence; - if (c1 >= 0x28 && c1 <= 0x2B) - { /* designation of (dimension 1, chars 94) charset */ - ONE_MORE_BYTE (c2); - ISO2022_DECODE_DESIGNATION (c1 - 0x28, 1, 94, c2, -1); - } - else if (c1 >= 0x2C && c1 <= 0x2F) - { /* designation of (dimension 1, chars 96) charset */ - ONE_MORE_BYTE (c2); - ISO2022_DECODE_DESIGNATION (c1 - 0x2C, 1, 96, c2, -1); - } - else - goto invalid_byte; - /* We must update these variables now. */ - charset0 = status->designation[status->invocation[0]]; - charset1 = status->designation[status->invocation[1]]; - continue; - - unused_escape_sequence: - UNGET_ONE_BYTE (c1); - c1 = ISO_CODE_ESC; - this_charset = mcharset__ascii; - } - } - - if (this_charset->dimension == 1) - { - if (this_charset->code_range[1] <= 128) - c1 &= 0x7F; - } - else if (this_charset->dimension == 2) - { - ONE_MORE_BYTE (c2); - c1 = ((c1 & 0x7F) << 8) | (c2 & 0x7F); - } - else /* i.e. (dimension == 3) */ - { - ONE_MORE_BYTE (c2); - ONE_MORE_BYTE (c3); - c1 = ((c1 & 0x7F) << 16) | ((c2 & 0x7F) << 8) | (c3 & 0x7F); - } - c1 = DECODE_CHAR (this_charset, c1); - goto emit_char; - - invalid_byte: - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - c1 = *src++; - this_charset = mcharset__binary; - - emit_char: - if (this_charset != mcharset__ascii - && this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c1); - if (status->non_standard_encoding > 0) - status->non_standard_encoding -= status->non_standard_charset_bytes; - } - /* We reach here because of an invalid byte. */ - error = 1; - - - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); - -} - -/* Produce codes (escape sequence) for designating CHARSET to graphic - register REG at DST, and increment DST. If CHARSET->final-char is - '@', 'A', or 'B' and SHORT_FORM is nonzero, produce designation - sequence of short-form. Update STATUS->designation. */ - -#define ISO2022_ENCODE_DESIGNATION(reg, charset, spec, status) \ - do { \ - char *intermediate_char_94 = "()*+"; \ - char *intermediate_char_96 = ",-./"; \ - \ - if (dst + 4 > dst_end) \ - goto memory_shortage; \ - *dst++ = ISO_CODE_ESC; \ - if (charset->dimension == 1) \ - { \ - if (charset->code_range[0] != 32 \ - && charset->code_range[1] != 255) \ - *dst++ = (unsigned char) (intermediate_char_94[reg]); \ - else \ - *dst++ = (unsigned char) (intermediate_char_96[reg]); \ - } \ - else \ - { \ - *dst++ = '$'; \ - if (charset->code_range[0] != 32 \ - && charset->code_range[1] != 255) \ - { \ - if (spec->flags & MCODING_ISO_LONG_FORM \ - || reg != 0 \ - || charset->final_byte < '@' || charset->final_byte > 'B') \ - *dst++ = (unsigned char) (intermediate_char_94[reg]); \ - } \ - else \ - *dst++ = (unsigned char) (intermediate_char_96[reg]); \ - } \ - *dst++ = charset->final_byte; \ - \ - status->designation[reg] = charset; \ - } while (0) - - -/* The following two macros produce codes (control character or escape - sequence) for ISO-2022 single-shift functions (single-shift-2 and - single-shift-3). */ - -#define ISO2022_ENCODE_SINGLE_SHIFT_2(spec, status) \ - do { \ - if (dst + 2 > dst_end) \ - goto memory_shortage; \ - if (! (spec->flags & MCODING_ISO_EIGHT_BIT)) \ - *dst++ = ISO_CODE_ESC, *dst++ = 'N'; \ - else \ - *dst++ = ISO_CODE_SS2; \ - status->single_shifting = 1; \ - } while (0) - - -#define ISO2022_ENCODE_SINGLE_SHIFT_3(spec, status) \ - do { \ - if (dst + 2 > dst_end) \ - goto memory_shortage; \ - if (! (spec->flags & MCODING_ISO_EIGHT_BIT)) \ - *dst++ = ISO_CODE_ESC, *dst++ = 'O'; \ - else \ - *dst++ = ISO_CODE_SS3; \ - status->single_shifting = 1; \ - } while (0) - - -/* The following four macros produce codes (control character or - escape sequence) for ISO-2022 locking-shift functions (shift-in, - shift-out, locking-shift-2, and locking-shift-3). */ - -#define ISO2022_ENCODE_SHIFT_IN(status) \ - do { \ - if (dst + 1 > dst_end) \ - goto memory_shortage; \ - *dst++ = ISO_CODE_SI; \ - status->invocation[0] = 0; \ - } while (0) - - -#define ISO2022_ENCODE_SHIFT_OUT(status) \ - do { \ - if (dst + 1 > dst_end) \ - goto memory_shortage; \ - *dst++ = ISO_CODE_SO; \ - status->invocation[0] = 1; \ - } while (0) - - -#define ISO2022_ENCODE_LOCKING_SHIFT_2(status) \ - do { \ - if (dst + 2 > dst_end) \ - goto memory_shortage; \ - *dst++ = ISO_CODE_ESC, *dst++ = 'n'; \ - status->invocation[0] = 2; \ - } while (0) - - -#define ISO2022_ENCODE_LOCKING_SHIFT_3(status) \ - do { \ - if (dst + 2 > dst_end) \ - goto memory_shortage; \ - *dst++ = ISO_CODE_ESC, *dst++ = 'o'; \ - status->invocation[0] = 3; \ - } while (0) - -#define ISO2022_ENCODE_UTF8_SHIFT_START(len) \ - do { \ - CHECK_DST (3 + len); \ - *dst++ = ISO_CODE_ESC; \ - *dst++ = '%'; \ - *dst++ = 'G'; \ - status->utf8_shifting = 1; \ - } while (0) - - -#define ISO2022_ENCODE_UTF8_SHIFT_END() \ - do { \ - CHECK_DST (3); \ - *dst++ = ISO_CODE_ESC; \ - *dst++ = '%'; \ - *dst++ = '@'; \ - status->utf8_shifting = 0; \ - } while (0) - - -#define ISO2022_ENCODE_NON_STANDARD(name, len) \ - do { \ - CHECK_DST (6 + len + 1 + non_standard_charset_bytes); \ - non_standard_begin = dst; \ - *dst++ = ISO_CODE_ESC; \ - *dst++ = '%'; \ - *dst++ = '/'; \ - *dst++ = '0' + non_standard_charset_bytes; \ - *dst++ = 0, *dst++ = 0; /* filled later */ \ - memcpy (dst, name, len); \ - dst += len; \ - *dst++ = ISO_CODE_STX; \ - non_standard_bytes = len + 1; \ - } while (0) - - -static char * -find_ctext_non_standard_name (MCharset *charset, int *bytes) -{ - char *name = msymbol_name (charset->name); - - if (! strcmp (name, "koi8-r")) - *bytes = 1; - else if (! strcmp (name, "big5")) - name = "big5-0", *bytes = 2; - else - return NULL; - return name; -} - -/* Designate CHARSET to a graphic register specified in - SPEC->designation. If the register is not yet invoked to graphic - left not right, invoke it to graphic left. DSTP points to a - variable containing a memory address where the output must go. - DST_END is the limit of that memory. - - Return 0 if it succeeds. Return -1 otherwise, which means that the - memory area is too short. By side effect, update the variable that - DSTP points to. */ - -static int -iso_2022_designate_invoke_charset (MCodingSystem *coding, - MCharset *charset, - struct iso_2022_spec *spec, - struct iso_2022_status *status, - unsigned char **dstp, - unsigned char *dst_end) -{ - int i; - unsigned char *dst = *dstp; - - for (i = 0; i < 4; i++) - if (charset == status->designation[i]) - break; - - if (i >= 4) - { - /* CHARSET is not yet designated to any graphic registers. */ - for (i = 0; i < coding->ncharsets; i++) - if (charset == coding->charsets[i]) - break; - if (i == coding->ncharsets) - { - for (i = 0; i < mcharset__iso_2022_table.used; i++) - if (charset == mcharset__iso_2022_table.charsets[i]) - break; - i += coding->ncharsets; - } - i = spec->designations[i]; - ISO2022_ENCODE_DESIGNATION (i, charset, spec, status); - } - - if (status->invocation[0] != i - && status->invocation[1] != i) - { - /* Graphic register I is not yet invoked. */ - switch (i) - { - case 0: /* graphic register 0 */ - ISO2022_ENCODE_SHIFT_IN (status); - break; - - case 1: /* graphic register 1 */ - ISO2022_ENCODE_SHIFT_OUT (status); - break; - - case 2: /* graphic register 2 */ - if (spec->flags & MCODING_ISO_SINGLE_SHIFT) - ISO2022_ENCODE_SINGLE_SHIFT_2 (spec, status); - else - ISO2022_ENCODE_LOCKING_SHIFT_2 (status); - break; - - case 3: /* graphic register 3 */ - if (spec->flags & MCODING_ISO_SINGLE_SHIFT) - ISO2022_ENCODE_SINGLE_SHIFT_3 (spec, status); - else - ISO2022_ENCODE_LOCKING_SHIFT_3 (status); - break; - } - } - *dstp = dst; - return 0; - - memory_shortage: - *dstp = dst; - return -1; -} - - -/* Reset the invocation/designation status to the initial one. SPEC - and STATUS contain information about the current and initial - invocation /designation status respectively. DSTP points to a - variable containing a memory address where the output must go. - DST_END is the limit of that memory. - - Return 0 if it succeeds. Return -1 otherwise, which means that the - memory area is too short. By side effect, update the variable that - DSTP points to. */ - -static int -iso_2022_reset_invocation_designation (struct iso_2022_spec *spec, - struct iso_2022_status *status, - unsigned char **dstp, - unsigned char *dst_end) -{ - unsigned char *dst = *dstp; - int i; - - /* Reset the invocation status of GL. We have not yet supported GR - invocation. */ - if (status->invocation[0] != spec->initial_invocation[0] - && spec->initial_invocation[0] >= 0) - { - if (spec->initial_invocation[0] == 0) - ISO2022_ENCODE_SHIFT_IN (status); - else if (spec->initial_invocation[0] == 1) - ISO2022_ENCODE_SHIFT_OUT (status); - else if (spec->initial_invocation[0] == 2) - ISO2022_ENCODE_LOCKING_SHIFT_2 (status); - else /* i.e. spec->initial_invocation[0] == 3 */ - ISO2022_ENCODE_LOCKING_SHIFT_3 (status); - } - - /* Reset the designation status of G0..G3. */ - for (i = 0; i < 4; i++) - if (status->designation[i] != spec->initial_designation[i] - && spec->initial_designation[i]) - { - MCharset *charset = spec->initial_designation[i]; - - ISO2022_ENCODE_DESIGNATION (i, charset, spec, status); - } - - *dstp = dst; - return 0; - - memory_shortage: - *dstp = dst; - return -1; -} - - -static int -encode_coding_iso_2022 (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - unsigned char *dst_base; - struct iso_2022_spec *spec = (struct iso_2022_spec *) coding->extra_spec; - int full_support = spec->flags & MCODING_ISO_FULL_SUPPORT; - struct iso_2022_status *status - = (struct iso_2022_status *) &(converter->status); - MCharset *primary, *charset0, *charset1; - int next_primary_change; - int ncharsets = coding->ncharsets; - MCharset **charsets = coding->charsets; - MCharset *cns_charsets[15]; - int ascii_compatible = coding->ascii_compatible; - MCharset *non_standard_charset = NULL; - int non_standard_charset_bytes = 0; - int non_standard_bytes = 0; - unsigned char *non_standard_begin = NULL; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - - if (spec->flags & MCODING_ISO_EUC_TW_SHIFT) - { - int i; - - memset (cns_charsets, 0, sizeof (cns_charsets)); - for (i = 0; i < ncharsets; i++) - if (charsets[i]->dimension == 2) - { - int final = charsets[i]->final_byte; - - if (final >= 'G' && final <= 'M') - cns_charsets[final - 'G'] = charsets[i]; - else if (final < 0) - cns_charsets[14] = charsets[i]; - } - } - - next_primary_change = from; - primary = NULL; - charset0 = status->designation[status->invocation[0]]; - charset1 = (status->invocation[1] < 0 ? NULL - : status->designation[status->invocation[1]]); - - while (1) - { - int bytes, c; - - dst_base = dst; - ONE_MORE_CHAR (c, bytes, format); - - if (c < 128 && ascii_compatible) - { - if (status->utf8_shifting) - ISO2022_ENCODE_UTF8_SHIFT_END (); - CHECK_DST (1); - *dst++ = c; - } - else if (c <= 32 || c == 127) - { - if (status->utf8_shifting) - ISO2022_ENCODE_UTF8_SHIFT_END (); - if (spec->flags & MCODING_ISO_RESET_AT_CNTL - || (c == '\n' && spec->flags & MCODING_ISO_RESET_AT_EOL)) - { - if (iso_2022_reset_invocation_designation (spec, status, - &dst, dst_end) < 0) - goto insufficient_destination; - charset0 = status->designation[status->invocation[0]]; - charset1 = (status->invocation[1] < 0 ? NULL - : status->designation[status->invocation[1]]); - } - CHECK_DST (1); - *dst++ = c; - } - else - { - unsigned code = MCHAR_INVALID_CODE; - MCharset *charset = NULL; - int gr_mask; - int pos = from + nchars; - - if (pos >= next_primary_change) - { - MSymbol primary_charset - = (MSymbol) mtext_get_prop (mt, pos, Mcharset); - primary = MCHARSET (primary_charset); - if (primary && primary != mcharset__binary) - { - if (primary->final_byte <= 0) - primary = NULL; - else if (! full_support) - { - int i; - - for (i = 0; i < ncharsets; i++) - if (primary == charsets[i]) - break; - if (i == ncharsets) - primary = NULL; - } - } - - mtext_prop_range (mt, Mcharset, pos, - NULL, &next_primary_change, 0); - } - - if (primary && primary != mcharset__binary) - { - code = ENCODE_CHAR (primary, c); - if (code != MCHAR_INVALID_CODE) - charset = primary; - } - if (! charset) - { - if (c <= 32 || c == 127) - { - code = c; - charset = mcharset__ascii; - } - else - { - int i; - - for (i = 0; i < ncharsets; i++) - { - charset = charsets[i]; - code = ENCODE_CHAR (charset, c); - if (code != MCHAR_INVALID_CODE) - break; - } - if (i == ncharsets) - { - if (spec->flags & MCODING_ISO_FULL_SUPPORT) - { - for (i = 0; i < mcharset__iso_2022_table.used; i++) - { - charset = mcharset__iso_2022_table.charsets[i]; - code = ENCODE_CHAR (charset, c); - if (code != MCHAR_INVALID_CODE) - break; - } - if (i == mcharset__iso_2022_table.used) - { - if (spec->flags & MCODING_ISO_DESIGNATION_CTEXT_EXT) - goto unsupported_char; - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - } - } - else - goto unsupported_char; - } - } - } - - if (charset - && (charset->final_byte >= 0 - || spec->flags & MCODING_ISO_EUC_TW_SHIFT)) - { - if (code >= 0x80 && code < 0xA0) - goto unsupported_char; - code &= 0x7F7F7F7F; - if (status->utf8_shifting) - ISO2022_ENCODE_UTF8_SHIFT_END (); - if (charset == charset0) - gr_mask = 0; - else if (charset == charset1) - gr_mask = 0x80; - else - { - unsigned char *p = NULL; - - if (spec->flags & MCODING_ISO_EUC_TW_SHIFT) - { - int i; - - if (cns_charsets[0] == charset) - { - CHECK_DST (2); - } - else - { - for (i = 1; i < 15; i++) - if (cns_charsets[i] == charset) - break; - CHECK_DST (4); - *dst++ = ISO_CODE_SS2; - *dst++ = 0xA1 + i; - } - status->single_shifting = 1; - p = dst; - } - else - { - if (iso_2022_designate_invoke_charset - (coding, charset, spec, status, &dst, dst_end) < 0) - goto insufficient_destination; - charset0 = status->designation[status->invocation[0]]; - charset1 = (status->invocation[1] < 0 ? NULL - : status->designation[status->invocation[1]]); - } - if (status->single_shifting) - gr_mask - = (spec->flags & MCODING_ISO_EIGHT_BIT) ? 0x80 : 0; - else if (charset == charset0) - gr_mask = 0; - else - gr_mask = 0x80; - } - if (charset->dimension == 1) - { - CHECK_DST (1); - *dst++ = code | gr_mask; - } - else if (charset->dimension == 2) - { - CHECK_DST (2); - *dst++ = (code >> 8) | gr_mask; - *dst++ = (code & 0xFF) | gr_mask; - } - else - { - CHECK_DST (3); - *dst++ = (code >> 16) | gr_mask; - *dst++ = ((code >> 8) & 0xFF) | gr_mask; - *dst++ = (code & 0xFF) | gr_mask; - } - status->single_shifting = 0; - } - else if (charset && spec->flags & MCODING_ISO_DESIGNATION_CTEXT_EXT) - { - if (charset != non_standard_charset) - { - char *name = (find_ctext_non_standard_name - (charset, &non_standard_charset_bytes)); - - if (name) - { - int len = strlen (name); - - ISO2022_ENCODE_NON_STANDARD (name, len); - non_standard_charset = charset; - } - else - non_standard_charset = NULL; - } - - if (non_standard_charset) - { - if (dst + non_standard_charset_bytes > dst_end) - goto insufficient_destination; - non_standard_bytes += non_standard_charset_bytes; - non_standard_begin[4] = (non_standard_bytes / 128) | 0x80; - non_standard_begin[5] = (non_standard_bytes % 128) | 0x80; - if (non_standard_charset_bytes == 1) - *dst++ = code; - else if (non_standard_charset_bytes == 2) - *dst++ = code >> 8, *dst++ = code & 0xFF; - else if (non_standard_charset_bytes == 3) - *dst++ = code >> 16, *dst++ = (code >> 8) & 0xFF, - *dst++ = code & 0xFF; - else /* i.e non_standard_charset_bytes == 3 */ - *dst++ = code >> 24, *dst++ = (code >> 16) & 0xFF, - *dst++ = (code >> 8) & 0xFF, *dst++ = code & 0xFF; - } - else - { - int len = CHAR_BYTES (c); - - if (c >= 0x110000) - goto unsupported_char; - if (! status->utf8_shifting) - ISO2022_ENCODE_UTF8_SHIFT_START (len); - else - CHECK_DST (len); - CHAR_STRING (c, dst); - } - } - else - goto unsupported_char; - } - src += bytes; - nchars++; - continue; - - unsupported_char: - { - int len; - - if (iso_2022_designate_invoke_charset (coding, mcharset__ascii, - spec, status, - &dst, dst_end) < 0) - goto insufficient_destination; - if (! converter->lenient) - break; - len = encode_unsupporeted_char (c, dst, dst_end, mt, from + nchars); - if (len == 0) - goto insufficient_destination; - dst += len; - src += bytes; - nchars++; - } - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - dst = dst_base; - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - if (converter->result == MCONVERSION_RESULT_SUCCESS - && converter->last_block) - { - if (status->utf8_shifting) - { - ISO2022_ENCODE_UTF8_SHIFT_END (); - dst_base = dst; - } - if (spec->flags & MCODING_ISO_RESET_AT_EOL - && charset0 != spec->initial_designation[0]) - { - if (iso_2022_reset_invocation_designation (spec, status, - &dst, dst_end) < 0) - goto insufficient_destination; - } - } - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - - -/* Staffs for coding-systems of type MCODING_TYPE_MISC. */ - -/* For SJIS handling... */ - -#define SJIS_TO_JIS(s1, s2) \ - (s2 >= 0x9F \ - ? (((s1 * 2 - (s1 >= 0xE0 ? 0x160 : 0xE0)) << 8) \ - | (s2 - 0x7E)) \ - : (((s1 * 2 - ((s1 >= 0xE0) ? 0x161 : 0xE1)) << 8) \ - | (s2 - ((s2 >= 0x7F) ? 0x20 : 0x1F)))) - -#define JIS_TO_SJIS(c1, c2) \ - ((c1 & 1) \ - ? (((c1 / 2 + ((c1 < 0x5F) ? 0x71 : 0xB1)) << 8) \ - | (c2 + ((c2 >= 0x60) ? 0x20 : 0x1F))) \ - : (((c1 / 2 + ((c1 < 0x5F) ? 0x70 : 0xB0)) << 8) \ - | (c2 + 0x7E))) - - -static int -reset_coding_sjis (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - - if (! coding->ready) - { - MSymbol kanji_sym = msymbol ("jisx0208.1983"); - MCharset *kanji = MCHARSET (kanji_sym); - MSymbol kana_sym = msymbol ("jisx0201-kana"); - MCharset *kana = MCHARSET (kana_sym); - - if (! kanji || ! kana) - return -1; - coding->ncharsets = 3; - coding->charsets[1] = kanji; - coding->charsets[2] = kana; - } - coding->ready = 1; - return 0; -} - -static int -decode_coding_sjis (const unsigned char *source, int src_bytes, MText *mt, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - const unsigned char *src = internal->carryover; - const unsigned char *src_stop = src + internal->carryover_bytes; - const unsigned char *src_end = source + src_bytes; - const unsigned char *src_base; - unsigned char *dst = mt->data + mt->nbytes; - unsigned char *dst_end = mt->data + mt->allocated - MAX_UTF8_CHAR_BYTES; - int nchars = 0; - int last_nchars = 0; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - - MCharset *charset_roman = coding->charsets[0]; - MCharset *charset_kanji = coding->charsets[1]; - MCharset *charset_kana = coding->charsets[2]; - MCharset *charset = mcharset__ascii; - int error = 0; - - while (1) - { - MCharset *this_charset; - int c, c1, c2; - - ONE_MORE_BASE_BYTE (c1); - - c2 = -1; - if (c1 < 0x80) - { - this_charset = ((c1 <= 0x20 || c1 == 0x7F) - ? mcharset__ascii - : charset_roman); - } - else if ((c1 >= 0x81 && c1 <= 0x9F) || (c1 >= 0xE0 && c1 <= 0xEF)) - { - ONE_MORE_BYTE (c2); - if ((c2 >= 0x40 && c2 <= 0x7F) || (c2 >= 80 && c2 <= 0xFC)) - { - this_charset = charset_kanji; - c1 = SJIS_TO_JIS (c1, c2); - } - else - goto invalid_byte; - } - else if (c1 >= 0xA1 && c1 <= 0xDF) - { - this_charset = charset_kana; - c1 &= 0x7F; - } - else - goto invalid_byte; - - c = DECODE_CHAR (this_charset, c1); - if (c >= 0) - goto emit_char; - - invalid_byte: - if (! converter->lenient) - break; - REWIND_SRC_TO_BASE (); - c = *src++; - this_charset = mcharset__binary; - - emit_char: - if (this_charset != mcharset__ascii - && this_charset != charset) - { - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - charset = this_charset; - last_nchars = nchars; - } - EMIT_CHAR (c); - } - /* We reach here because of an invalid byte. */ - error = 1; - - source_end: - TAKEIN_CHARS (mt, nchars - last_nchars, - dst - (mt->data + mt->nbytes), charset); - return finish_decoding (mt, converter, nchars, - source, src_end, src_base, error); -} - -static int -encode_coding_sjis (MText *mt, int from, int to, - unsigned char *destination, int dst_bytes, - MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - MCodingSystem *coding = internal->coding; - unsigned char *src, *src_end; - unsigned char *dst = destination; - unsigned char *dst_end = dst + dst_bytes; - int nchars = 0; - MCharset *charset_roman = coding->charsets[0]; - MCharset *charset_kanji = coding->charsets[1]; - MCharset *charset_kana = coding->charsets[2]; - enum MTextFormat format = mt->format; - - SET_SRC (mt, format, from, to); - - while (1) - { - int c, bytes, len; - unsigned code; - - ONE_MORE_CHAR (c, bytes, format); - - if (c <= 0x20 || c == 0x7F) - { - CHECK_DST (1); - *dst++ = c; - } - else - { - if ((code = ENCODE_CHAR (charset_roman, c)) != MCHAR_INVALID_CODE) - { - CHECK_DST (1); - *dst++ = c; - } - else if ((code = ENCODE_CHAR (charset_kanji, c)) - != MCHAR_INVALID_CODE) - { - int c1 = code >> 8, c2 = code & 0xFF; - code = JIS_TO_SJIS (c1, c2); - CHECK_DST (2); - *dst++ = code >> 8; - *dst++ = code & 0xFF; - } - else if ((code = ENCODE_CHAR (charset_kana, c)) - != MCHAR_INVALID_CODE) - { - CHECK_DST (1); - *dst++ = code | 0x80; - } - else - { - if (! converter->lenient) - break; - len = encode_unsupporeted_char (c, dst, dst_end, - mt, from + nchars); - if (len == 0) - goto insufficient_destination; - dst += len; - } - } - src += bytes; - nchars++; - } - /* We reach here because of an unsupported char. */ - converter->result = MCONVERSION_RESULT_INVALID_CHAR; - goto finish; - - insufficient_destination: - converter->result = MCONVERSION_RESULT_INSUFFICIENT_DST; - - finish: - converter->nchars += nchars; - converter->nbytes += dst - destination; - return (converter->result == MCONVERSION_RESULT_INVALID_CHAR ? -1 : 0); -} - - -static MCodingSystem * -find_coding (MSymbol name) -{ - MCodingSystem *coding = (MCodingSystem *) msymbol_get (name, Mcoding); - - if (! coding) - { - MPlist *plist, *pl; - MSymbol sym = msymbol__canonicalize (name); - - plist = mplist_find_by_key (coding_definition_list, sym); - if (! plist) - return NULL; - pl = MPLIST_PLIST (plist); - name = MPLIST_VAL (pl); - mconv_define_coding (MSYMBOL_NAME (name), MPLIST_NEXT (pl), - NULL, NULL, NULL, NULL); - coding = (MCodingSystem *) msymbol_get (name, Mcoding); - plist = mplist_pop (plist); - M17N_OBJECT_UNREF (plist); - } - return coding; -} - -#define BINDING_NONE 0 -#define BINDING_BUFFER 1 -#define BINDING_STREAM 2 - -#define CONVERT_WORKSIZE 0x10000 - - -/* Internal API */ - -int -mcoding__init (void) -{ - int i; - MPlist *param, *charsets, *pl; - - MLIST_INIT1 (&coding_list, codings, 128); - coding_definition_list = mplist (); - - /* ISO-2022 specific initialize routine. */ - for (i = 0; i < 0x20; i++) - iso_2022_code_class[i] = ISO_control_0; - for (i = 0x21; i < 0x7F; i++) - iso_2022_code_class[i] = ISO_graphic_plane_0; - for (i = 0x80; i < 0xA0; i++) - iso_2022_code_class[i] = ISO_control_1; - for (i = 0xA1; i < 0xFF; i++) - iso_2022_code_class[i] = ISO_graphic_plane_1; - iso_2022_code_class[0x20] = iso_2022_code_class[0x7F] = ISO_0x20_or_0x7F; - iso_2022_code_class[0xA0] = iso_2022_code_class[0xFF] = ISO_0xA0_or_0xFF; - iso_2022_code_class[0x0E] = ISO_shift_out; - iso_2022_code_class[0x0F] = ISO_shift_in; - iso_2022_code_class[0x19] = ISO_single_shift_2_7; - iso_2022_code_class[0x1B] = ISO_escape; - iso_2022_code_class[0x8E] = ISO_single_shift_2; - iso_2022_code_class[0x8F] = ISO_single_shift_3; - iso_2022_code_class[0x9B] = ISO_control_sequence_introducer; - - Mcoding = msymbol ("coding"); - - Mutf = msymbol ("utf"); - Miso_2022 = msymbol ("iso-2022"); - - Mreset_at_eol = msymbol ("reset-at-eol"); - Mreset_at_cntl = msymbol ("reset-at-cntl"); - Meight_bit = msymbol ("eight-bit"); - Mlong_form = msymbol ("long-form"); - Mdesignation_g0 = msymbol ("designation-g0"); - Mdesignation_g1 = msymbol ("designation-g1"); - Mdesignation_ctext = msymbol ("designation-ctext"); - Mdesignation_ctext_ext = msymbol ("designation-ctext-ext"); - Mlocking_shift = msymbol ("locking-shift"); - Msingle_shift = msymbol ("single-shift"); - Msingle_shift_7 = msymbol ("single-shift-7"); - Meuc_tw_shift = msymbol ("euc-tw-shift"); - Miso_6429 = msymbol ("iso-6429"); - Mrevision_number = msymbol ("revision-number"); - Mfull_support = msymbol ("full-support"); - Mmaybe = msymbol ("maybe"); - - Mtype = msymbol ("type"); - Mcharsets = msymbol_as_managing_key ("charsets"); - Mflags = msymbol_as_managing_key ("flags"); - Mdesignation = msymbol_as_managing_key ("designation"); - Minvocation = msymbol_as_managing_key ("invocation"); - Mcode_unit = msymbol ("code-unit"); - Mbom = msymbol ("bom"); - Mlittle_endian = msymbol ("little-endian"); - - param = mplist (); - charsets = mplist (); - pl = param; - /* Setup predefined codings. */ - mplist_set (charsets, Msymbol, Mcharset_ascii); - pl = mplist_add (pl, Mtype, Mcharset); - pl = mplist_add (pl, Mcharsets, charsets); - Mcoding_us_ascii = mconv_define_coding ("us-ascii", param, - NULL, NULL, NULL, NULL); - - { - MSymbol alias = msymbol ("ANSI_X3.4-1968"); - MCodingSystem *coding - = (MCodingSystem *) msymbol_get (Mcoding_us_ascii, Mcoding); - - msymbol_put (alias, Mcoding, coding); - alias = msymbol__canonicalize (alias); - msymbol_put (alias, Mcoding, coding); - } - - mplist_set (charsets, Msymbol, Mcharset_iso_8859_1); - Mcoding_iso_8859_1 = mconv_define_coding ("iso-8859-1", param, - NULL, NULL, NULL, NULL); - - mplist_set (charsets, Msymbol, Mcharset_m17n); - mplist_put (param, Mtype, Mutf); - mplist_put (param, Mcode_unit, (void *) 8); - Mcoding_utf_8_full = mconv_define_coding ("utf-8-full", param, - NULL, NULL, NULL, NULL); - - mplist_set (charsets, Msymbol, Mcharset_unicode); - Mcoding_utf_8 = mconv_define_coding ("utf-8", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 16); - mplist_put (param, Mbom, Mmaybe); -#ifndef WORDS_BIGENDIAN - mplist_put (param, Mlittle_endian, Mt); -#endif - Mcoding_utf_16 = mconv_define_coding ("utf-16", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 32); - Mcoding_utf_32 = mconv_define_coding ("utf-32", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 16); - mplist_put (param, Mbom, Mnil); - mplist_put (param, Mlittle_endian, Mnil); - Mcoding_utf_16be = mconv_define_coding ("utf-16be", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 32); - Mcoding_utf_32be = mconv_define_coding ("utf-32be", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 16); - mplist_put (param, Mlittle_endian, Mt); - Mcoding_utf_16le = mconv_define_coding ("utf-16le", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mcode_unit, (void *) 32); - Mcoding_utf_32le = mconv_define_coding ("utf-32le", param, - NULL, NULL, NULL, NULL); - - mplist_put (param, Mtype, Mnil); - mplist_set (charsets, Msymbol, Mcharset_ascii); - Mcoding_sjis = mconv_define_coding ("sjis", param, - reset_coding_sjis, - decode_coding_sjis, - encode_coding_sjis, NULL); - - M17N_OBJECT_UNREF (charsets); - M17N_OBJECT_UNREF (param); - - return 0; -} - -void -mcoding__fini (void) -{ - int i; - MPlist *plist; - - for (i = 0; i < coding_list.used; i++) - { - MCodingSystem *coding = coding_list.codings[i]; - - if (coding->extra_info) - free (coding->extra_info); - if (coding->extra_spec) - { - if (coding->type == Miso_2022) - free (((struct iso_2022_spec *) coding->extra_spec)->designations); - free (coding->extra_spec); - } - free (coding); - } - MLIST_FREE1 (&coding_list, codings); - MPLIST_DO (plist, coding_definition_list) - M17N_OBJECT_UNREF (MPLIST_VAL (plist)); - M17N_OBJECT_UNREF (coding_definition_list); -} - -void -mconv__register_charset_coding (MSymbol sym) -{ - MSymbol name = msymbol__canonicalize (sym); - - if (! mplist_find_by_key (coding_definition_list, name)) - { - MPlist *param = mplist (), *charsets = mplist (); - - mplist_set (charsets, Msymbol, sym); - mplist_add (param, Msymbol, sym); - mplist_add (param, Mtype, Mcharset); - mplist_add (param, Mcharsets, charsets); - mplist_put (coding_definition_list, name, param); - M17N_OBJECT_UNREF (charsets); - } -} - - -int -mcoding__load_from_database () -{ - MDatabase *mdb = mdatabase_find (msymbol ("coding-list"), Mnil, Mnil, Mnil); - MPlist *def_list, *plist; - MPlist *definitions = coding_definition_list; - int mdebug_mask = MDEBUG_CODING; - - if (! mdb) - return 0; - MDEBUG_PUSH_TIME (); - def_list = (MPlist *) mdatabase_load (mdb); - MDEBUG_PRINT_TIME ("CODING", (stderr, " to load the data.")); - MDEBUG_POP_TIME (); - if (! def_list) - return -1; - - MDEBUG_PUSH_TIME (); - MPLIST_DO (plist, def_list) - { - MPlist *pl; - MSymbol name, canonicalized; - - if (! MPLIST_PLIST_P (plist)) - MERROR (MERROR_CHARSET, -1); - pl = MPLIST_PLIST (plist); - if (! MPLIST_SYMBOL_P (pl)) - MERROR (MERROR_CHARSET, -1); - name = MPLIST_SYMBOL (pl); - canonicalized = msymbol__canonicalize (name); - pl = mplist__from_plist (MPLIST_NEXT (pl)); - mplist_push (pl, Msymbol, name); - definitions = mplist_add (definitions, canonicalized, pl); - } - - M17N_OBJECT_UNREF (def_list); - MDEBUG_PRINT_TIME ("CODING", (stderr, " to parse the loaded data.")); - MDEBUG_POP_TIME (); - return 0; -} - -/*** @} */ -#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ - -/* External API */ - -/*** @addtogroup m17nConv */ -/*** @{ */ -/*=*/ - -/***en @name Variables: Symbols representing coding systems */ -/***ja @name ÊÑ¿ô: ÄêµÁºÑ¤ß¥³¡¼¥É·Ï¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥·¥ó¥Ü¥ë */ -/*** @{ */ -/*=*/ - -/***en - @brief Symbol for the coding system US-ASCII. - - The symbol #Mcoding_us_ascii has name "us-ascii" and - represents a coding system for the CES US-ASCII. */ - -/***ja - @brief US-ASCII ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_us_ascii ¤Ï "us-ascii" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES US-ASCII ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ - */ -MSymbol Mcoding_us_ascii; -/*=*/ - -/***en - @brief Symbol for the coding system ISO-8859-1. - - The symbol #Mcoding_iso_8859_1 has name "iso-8859-1" and - represents a coding system for the CES ISO-8859-1. */ - -/***ja - @brief ISO-8859-1 ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_iso_8859_1 ¤Ï "iso-8859-1" ¤È¤¤¤¦Ì¾Á° - ¤ò»ý¤Á¡¢CES ISO-8859-1 ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_iso_8859_1; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-8. - - The symbol #Mcoding_utf_8 has name "utf-8" and represents - a coding system for the CES UTF-8. */ - -/***ja - @brief UTF-8 ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_8 ¤Ï "utf-8" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢CES - UTF-8 ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ - */ - -MSymbol Mcoding_utf_8; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-8-FULL. - - The symbol #Mcoding_utf_8_full has name "utf-8-full" and - represents a coding system that is a extension of UTF-8. This - coding system uses the same encoding algorithm as UTF-8 but is not - limited to the Unicode characters. It can encode all characters - supported by the m17n library. */ - -/***ja - @brief UTF-8-FULL ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_8_full ¤Ï "utf-8-full" ¤È¤¤¤¦Ì¾Á°¤ò - »ý¤Á¡¢"UTF-8" ¤Î³ÈÄ¥¤Ç¤¢¤ë¥³¡¼¥É·Ï¤ò¼¨¤¹¡£¤³¤Î¥³¡¼¥É·Ï¤Ï - UTF-8 ¤ÈÆ±¤¸¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¥¢¥ë¥´¥ê¥º¥à¤òÍÑ¤¤¤ë¤¬¡¢ÂÐ¾Ý¤Ï Unicode - ¤ÎÊ¸»ú¤Ë¸Â¤é¤Ê¤¤¡£¤Þ¤¿m17n ¥é¥¤¥Ö¥é¥ê¤¬°·¤¦Á´¤Æ¤ÎÊ¸»ú¤ò¥¨¥ó¥³¡¼¥É - ¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£ - */ - -MSymbol Mcoding_utf_8_full; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-16. - - The symbol #Mcoding_utf_16 has name "utf-16" and - represents a coding system for the CES UTF-16 (RFC 2279). */ -/***ja - @brief UTF-16 ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_16 ¤Ï "utf-16" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-16 (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ - */ - -MSymbol Mcoding_utf_16; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-16BE. - - The symbol #Mcoding_utf_16be has name "utf-16be" and - represents a coding system for the CES UTF-16BE (RFC 2279). */ - -/***ja - @brief UTF-16BE ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_16be ¤Ï "utf-16be" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-16BE (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_utf_16be; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-16LE. - - The symbol #Mcoding_utf_16le has name "utf-16le" and - represents a coding system for the CES UTF-16LE (RFC 2279). */ - -/***ja - @brief UTF-16LE ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_16le ¤Ï "utf-16le" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-16LE (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_utf_16le; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-32. - - The symbol #Mcoding_utf_32 has name "utf-32" and - represents a coding system for the CES UTF-32 (RFC 2279). */ - -/***ja - @brief UTF-32 ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_32 ¤Ï "utf-32" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-32 (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_utf_32; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-32BE. - - The symbol #Mcoding_utf_32be has name "utf-32be" and - represents a coding system for the CES UTF-32BE (RFC 2279). */ -/***ja - @brief UTF-32BE ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_32be ¤Ï "utf-32be" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-32BE (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_utf_32be; -/*=*/ - -/***en - @brief Symbol for the coding system UTF-32LE. - - The symbol #Mcoding_utf_32le has name "utf-32le" and - represents a coding system for the CES UTF-32LE (RFC 2279). */ -/***ja - @brief UTF-32LE ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_utf_32le ¤Ï "utf-32le" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES UTF-32LE (RFC 2279) ÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_utf_32le; -/*=*/ - -/***en - @brief Symbol for the coding system SJIS. - - The symbol #Mcoding_sjis has name "sjis" and represents a coding - system for the CES Shift-JIS. */ -/***ja - @brief SJIS ¥³¡¼¥É·Ï¤Î¥·¥ó¥Ü¥ë. - - ¥·¥ó¥Ü¥ë #Mcoding_sjis has ¤Ï "sjis" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢ - CES Shift-JISÍÑ¤Î¥³¡¼¥É·Ï¤ò¼¨¤¹¡£ */ - -MSymbol Mcoding_sjis; -/*** @} */ -/*=*/ - -/***en - @name Variables: Parameter keys for mconv_define_coding (). */ -/***ja - @name ÊÑ¿ô: mconv_define_coding () ÍÑ¥Ñ¥é¥á¡¼¥¿¥¡¼ */ -/*** @{ */ -/*=*/ - -/***en - Parameter key for mconv_define_coding () (which see). */ -/***ja - mconv_define_coding () ÍÑ¥Ñ¥é¥á¡¼¥¿¥¡¼ (¾ÜºÙ¤Ï mconv_define_coding ()»²¾È). */ -MSymbol Mtype; -/*=*/ - -MSymbol Mcharsets; -MSymbol Mflags; -MSymbol Mdesignation; -MSymbol Minvocation; -MSymbol Mcode_unit; -MSymbol Mbom; -MSymbol Mlittle_endian; -/*** @} */ -/*=*/ - -/***en - @name Variables: Symbols representing coding system types. */ -/***ja - @name ÊÑ¿ô¡§ ¥³¡¼¥É·Ï¤Î¥¿¥¤¥×¤ò¼¨¤¹¥·¥ó¥Ü¥ë. */ -/*** @{ */ -/*=*/ - -/***en - Symbol that can be a value of the #Mtype parameter of a coding - system used in an argument to the mconv_define_coding () function - (which see). */ -/***ja - ´Ø¿ô mconv_define_coding () ¤Î°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡¢¥³¡¼¥É·Ï¤Î - ¥Ñ¥é¥á¡¼¥¿ #Mtype ¤ÎÃÍ¤È¤Ê¤êÆÀ¤ë¥·¥ó¥Ü¥ë¡£(¾ÜºÙ¤Ï - mconv_define_coding ()»²¾È)¡£ */ - -MSymbol Mutf; -/*=*/ -MSymbol Miso_2022; -/*=*/ -/*** @} */ -/*=*/ - -/***en - @name Variables: Symbols appearing in the value of #Mflags parameter. */ -/***ja - @name ÊÑ¿ô¡§ ¥Ñ¥é¥á¡¼¥¿ #Mflags ¤ÎÃÍ¤È¤Ê¤êÆÀ¤ë¥·¥ó¥Ü¥ë. */ -/*** @{ */ -/*=*/ - -/***en - Symbols that can be a value of the #Mflags parameter of a coding - system used in an argument to the mconv_define_coding () function - (which see). */ -/***ja - ´Ø¿ô mconv_define_coding () ¤Î°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡¢¥³¡¼¥É·Ï¤Î - ¥Ñ¥é¥á¡¼¥¿ #Mflags ¤ÎÃÍ¤È¤Ê¤êÆÀ¤ë¥·¥ó¥Ü¥ë¡£(¾ÜºÙ¤Ï - mconv_define_coding ()»²¾È)¡£ */ -MSymbol Mreset_at_eol; -/*=*/ -MSymbol Mreset_at_cntl; -MSymbol Meight_bit; -MSymbol Mlong_form; -MSymbol Mdesignation_g0; -MSymbol Mdesignation_g1; -MSymbol Mdesignation_ctext; -MSymbol Mdesignation_ctext_ext; -MSymbol Mlocking_shift; -MSymbol Msingle_shift; -MSymbol Msingle_shift_7; -MSymbol Meuc_tw_shift; -MSymbol Miso_6429; -MSymbol Mrevision_number; -MSymbol Mfull_support; -/*** @} */ -/*=*/ - -/***en - @name Variables: etc - - Remaining variables. */ -/***ja @name ÊÑ¿ô: ¤½¤ÎÂ¾ - - ¤Û¤«¤ÎÊÑ¿ô¡£ */ -/*** @{ */ -/*=*/ -/***en - @brief Symbol whose name is "maybe". - - The variable #Mmaybe is a symbol of name "maybe". It is - used a value of #Mbom parameter of the function - mconv_define_coding () (which see). */ -/***ja - @brief "maybe"¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë. - - ÊÑ¿ô #Mmaybe ¤Ï "maybe" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¡£¤³¤ì¤Ï´Ø¿ô - mconv_define_coding () ¥Ñ¥é¥á¡¼¥¿ #Mbom ¤ÎÃÍ¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£(¾Ü - ºÙ¤Ï mconv_define_coding () »²¾È)¡£ */ - -MSymbol Mmaybe; -/*=*/ - -/***en - @brief The symbol @c Mcoding. - - Any decoded M-text has a text property whose key is the predefined - symbol @c Mcoding. The name of @c Mcoding is - "coding". */ - -/***ja - @brief ¥·¥ó¥Ü¥ë @c Mcoding. - - ¥Ç¥³¡¼¥É¤µ¤ì¤¿ M-text ¤Ï¤¹¤Ù¤Æ¡¢¥¡¼¤¬ÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë @c Mcoding - ¤Ç¤¢¤ë¤è¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¡£¥·¥ó¥Ü¥ë @c Mcoding ¤Ï - "coding" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¡£ */ - -MSymbol Mcoding; -/*=*/ -/*** @} */ -/*=*/ - -/***en - @brief Define a coding system. - - The mconv_define_coding () function defines a new coding system - and makes it accessive via a symbol whose name is $NAME. $PLIST - specifies parameters of the coding system as below: - -

Key is @c Mtype, value is a symbol - - The value specifies the type of the coding system. It must be - #Mcharset, #Mutf, #Miso_2022, or #Mnil. - - If the type is #Mcharset, $EXTRA_INFO is ignored. - - If the type is #Mutf, $EXTRA_INFO must be a pointer to - #MCodingInfoUTF. - - If the type is #Miso_2022, $EXTRA_INFO must be a pointer to - #MCodingInfoISO2022. - - If the type is #Mnil, the argument $RESETTER, $DECODER, and - $ENCODER must be supplied. $EXTRA_INFO is ignored. Otherwise, - they can be @c NULL and the m17n library provides proper defaults. - -
Key is #Mcharsets, value is a plist - - The value specifies a list charsets supported by the coding - system. The keys of the plist must be #Msymbol, and the values - must be symbols representing charsets. - -
Key is #Mflags, value is a plist - - If the type is #Miso_2022, the values specifies flags to control - the ISO 2022 interpreter. The keys of the plist must e #Msymbol, - and values must be one of the following. - -
- #Mreset_at_eol - - If this flag exists, designation and invocation status is reset to - the initial state at the end of line. - -
- #Mreset_at_cntl - - If this flag exists, designation and invocation status is reset to - the initial state at a control character. - -
- #Meight_bit - - If this flag exists, the graphic plane right is used. - -
- #Mlong_form - - If this flag exists, the over-long escape sequences (ESC '$' '(' - ) are used for designating the CCS JISX0208.1978, - GB2312, and JISX0208. - -
- #Mdesignation_g0 - - If this flag and #Mfull_support exists, designates charsets not - listed in the charset list to the graphic register G0. - -
- #Mdesignation_g1 - - If this flag and #Mfull_support exists, designates charsets not - listed in the charset list to the graphic register G1. - -
- #Mdesignation_ctext - - If this flag and #Mfull_support exists, designates charsets not - listed in the charset list to a graphic register G0 or G1 based on - the criteria of the Compound Text. - -
- #Mdesignation_ctext_ext - - If this flag and #Mfull_support exists, designates charsets not - listed in the charset list to a graphic register G0 or G1, or use - extended segment for such charsets based on the criteria of the - Compound Text. - -
- #Mlocking_shift - - If this flag exists, use locking shift. - -
- #Msingle_shift - - If this flag exists, use single shift. - -
- #Msingle_shift_7 - - If this flag exists, use 7-bit single shift code (0x19). - -
- #Meuc_tw_shift; - - If this flag exists, use a special shifting according to EUC-TW. - -
- #Miso_6429 - - This flag is currently ignored. - -
- #Mrevision_number - - If this flag exists, use a revision number escape sequence to - designate a charset that has a revision number. - -
- #Mfull_support - - If this flag exists, support all charsets registered in the - International Registry. - -
- -
Key is #Mdesignation, value is a plist - - If the type is #Miso_2022, the value specifies how to designate - each supported characters. The keys of the plist must be - #Minteger, and the values must be numbers indicating a graphic - registers. The Nth element value is for the Nth charset of the - charset list. The value 0..3 means that it is assumed that a - charset is already designated to the graphic register 0..3. The - negative value G (-4..-1) means that a charset is not designated - to any register at first, and if necessary, is designated to the - (G+4) graphic register. - -
Key is #Minvocation, value is a plist - - If the type is #Miso_2022, the value specifies how to invocate - each graphic registers. The plist length must be one or two. The - keys of the plist must be #Minteger, and the values must be - numbers indicating a graphic register. The value of the first - element specifies which graphic register is invocated to the - graphic plane left. If the length is one, no graphic register is - invocated to the graphic plane right. Otherwise, the value of the - second element specifies which graphic register is invocated to - the graphic plane right. - -
Key is #Mcode_unit, value is an integer - - If the type is #Mutf, the value specifies the bit length of a - code-unit. It must be 8, 16, or 32. - -
Key is #Mbom, value is a symbol - - If the type is #Mutf and the code-unit bit length is 16 or 32, - it specifies whether or not to use BOM (Byte Order Mark). If the - value is #Mnil (default), BOM is not used, else if the value is - #Mmaybe, the existence of BOM is detected at decoding time, else - BOM is used. - -
Key is #Mlittle_endian, value is a symbol - - If the type is #Mutf and the code-unit bit length is 16 or 32, - it specifies whether or not the encoding is little endian. If the - value is #Mnil (default), it is big endian, else it is little - endian. - -

- - $RESETTER is a pointer to a function that resets a converter for - the coding system to the initial status. The pointed function is - called with one argument, a pointer to a converter object. - - $DECODER is a pointer to a function that decodes a byte sequence - according to the coding system. The pointed function is called - with four arguments: - - @li A pointer to the byte sequence to decode. - @li The number of bytes to decode. - @li A pointer to an M-text to which the decoded characters are appended. - @li A pointer to a converter object. - - $DECODER must return 0 if it succeeds. Otherwise it must return -1. - - $ENCODER is a pointer to a function that encodes an M-text - according to the coding system. The pointed function is called - with six arguments: - - @li A pointer to the M-text to encode. - @li The starting position of the encoding. - @li The ending position of the encoding. - @li A pointer to a memory area where the produced bytes are stored. - @li The size of the memory area. - @li A pointer to a converter object. - - $ENCODER must return 0 if it succeeds. Otherwise it must return -1. - - $EXTRA_INFO is a pointer to a data structure that contains extra - information about the coding system. The type of the data - structure depends on $TYPE. - - @return - - If the operation was successful, mconv_define_coding () returns a - symbol whose name is $NAME. If an error is detected, it returns - #Mnil and assigns an error code to the external variable #merror_code. */ - -/***ja - @brief ¥³¡¼¥É·Ï¤òÄêµÁ¤¹¤ë. - - ´Ø¿ô mconv_define_coding () ¤Ï¡¢¿·¤·¤¤¥³¡¼¥É·Ï¤òÄêµÁ¤·¡¢¤½¤ì¤ò - $NAME ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë·ÐÍ³¤Ç¥¢¥¯¥»¥¹¤Ç¤¤ë¤è¤¦¤Ë¤¹¤ë¡£ $PLIST - ¤Ç¤ÏÄêµÁ¤¹¤ë¥³¡¼¥É·Ï¤Î¥Ñ¥é¥á¡¼¥¿¤ò°Ê²¼¤Î¤è¤¦¤Ë»ØÄê¤¹¤ë¡£ - -

¥¡¼¤¬ @c Mtype ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - ÃÍ¤Ï¥³¡¼¥É·Ï¤Î¥¿¥¤¥×¤òÉ½¤·¡¢#Mcharset, #Mutf, #Miso_2022, #Mnil ¤Î - ¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - - ¥¿¥¤¥×¤¬ #Mcharset ¤Ê¤é¤Ð $EXTRA_INFO ¤ÏÌµ»ë¤µ¤ì¤ë¡£ - - ¥¿¥¤¥×¤¬ #Mutf ¤Ê¤é¤Ð $EXTRA_INFO ¤Ï #MCodingInfoUTF ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç - ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - - ¥¿¥¤¥×¤¬ #Miso_2022¤Ê¤é¤Ð $EXTRA_INFO ¤Ï #MCodingInfoISO2022 ¤Ø¤Î¥Ý - ¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - - ¥¿¥¤¥×¤¬ #Mnil ¤Ê¤é¤Ð¡¢°ú¿ô $RESETTER, $DECODER, $ENCODER ¤òÍ¿¤¨¤Ê - ¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£$EXTRA_INFO ¤ÏÌµ»ë¤µ¤ì¤ë¡£¤½¤ì°Ê³°¤Î¾ì¹ç¤Ë¤Ï¤³¤ì¤é - ¤Ï @c NULL ¤Ç¹½¤ï¤Ê¤¤¡£¤½¤ÎºÝ¤Ë¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤¬Å¬ÀÚ¤Ê¥Ç¥Õ¥©¥ë - ¥ÈÃÍ¤òÍ¿¤¨¤ë¡£ - -
¥¡¼¤¬ #Mcharsets ¤ÇÃÍ¤¬ plist ¤Î»þ - - ÃÍ¤Ï¤³¤Î¥³¡¼¥É·Ï¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤ëÊ¸»ú¥»¥Ã¥È¤Î¥ê¥¹¥È¤Ç¤¢¤ë¡£plist¤Î¥¡¼¤Ï - #Msymbol¡¢ÃÍ¤ÏÊ¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - -
¥¡¼¤¬ #Mflags ÃÍ¤¬ plist ¤Î»þ - - ¥¿¥¤¥×¤¬ #Miso_2022 ¤Ê¤é¤Ð¡¢¤³¤ÎÃÍ¤Ï, ISO 2022 ¥¤¥ó¥¿¥×¥ê¥¿ÍÑ¤ÎÀ© - ¸æ¥Õ¥é¥Ã¥°¤ò¼¨¤¹¡£plist¤Î¥¡¼¤Ï#Msymbol¡¢ÃÍ¤Ï°Ê²¼¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯ - ¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ - -
- #Mreset_at_eol - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢¿Þ·ÁÊ¸»ú½¸¹ç¤Î»Ø¼¨¤ä¸Æ½Ð¤Ï¹ÔËö¤Ç¥ê¥»¥Ã¥È¤µ¤ì¤Æ - Åö½é¤Î¾õÂÖ¤ËÌá¤ë¡£ - -
- #Mreset_at_cntl - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢¿Þ·ÁÊ¸»ú½¸¹ç¤Î»Ø¼¨¤ä¸Æ½Ð¤ÏÀ©¸æÊ¸»ú¤Ë½Ð²ñ¤Ã¤¿»þ - ÅÀ¤Ç¥ê¥»¥Ã¥È¤µ¤ì¤ÆÅö½é¤Î¾õÂÖ¤ËÌá¤ë¡£ - -
- #Meight_bit - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢¿Þ·ÁÊ¸»ú½¸¹ç¤Î±¦È¾ÌÌ¤¬ÍÑ¤¤¤é¤ì¤ë¡£ - -
- #Mlong_form - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢Ê¸»ú½¸¹ç JISX0208.1978, GB2312, JISX0208 ¤ò»Ø - ¼¨¤¹¤ëºÝ¤Ë over-long ¥¨¥¹¥±¡¼¥×¥·¡¼¥±¥ó¥¹ (ESC '$' '(' - ) ¤¬ÍÑ¤¤¤é¤ì¤ë¡£ - -
- #Mdesignation_g0 - - ¤³¤Î¥Õ¥é¥°¤È #Mfull_support ¤¬¤¢¤ì¤Ð¡¢Ê¸»ú¥»¥Ã¥È¥ê¥¹¥È¤Ë¸½¤ï¤ì¤Ê¤¤ - Ê¸»ú¥»¥Ã¥È¤ò G0 ½¸¹ç¤Ë»Ø¼¨¤¹¤ë¡£ - -
- #Mdesignation_g1 - - ¤³¤Î¥Õ¥é¥°¤È #Mfull_support ¤¬¤¢¤ì¤Ð¡¢Ê¸»ú¥»¥Ã¥È¥ê¥¹¥È¤Ë¸½¤ï¤ì¤Ê¤¤ - Ê¸»ú¥»¥Ã¥È¤ò G1 ½¸¹ç¤Ë»Ø¼¨¤¹¤ë¡£ - -
- #Mdesignation_ctext - - ¤³¤Î¥Õ¥é¥°¤È #Mfull_support ¤¬¤¢¤ì¤Ð¡¢Ê¸»ú¥»¥Ã¥È¥ê¥¹¥È¤Ë¸½¤ï¤ì¤Ê¤¤ - Ê¸»ú¥»¥Ã¥È¤ò G0 ½¸¹ç¤Þ¤¿¤Ï G1 ½¸¹ç¤Ë¡¢¥³¥ó¥Ñ¥¦¥ó¥É¥Æ¥¥¹¥È¤Î´ð½à¤Ë - ¤½¤Ã¤Æ»Ø¼¨¤¹¤ë¡£ - -
- #Mdesignation_ctext_ext - - ¤³¤Î¥Õ¥é¥°¤È #Mfull_support ¤¬¤¢¤ì¤Ð¡¢Ê¸»ú¥»¥Ã¥È¥ê¥¹¥È¤Ë¸½¤ï¤ì¤Ê¤¤ - Ê¸»ú¥»¥Ã¥È¤ò G0 ½¸¹ç¤Þ¤¿¤Ï G1 ½¸¹ç¤Ë¡¢¤¢¤ë¤¤¤Ï³ÈÄ¥¥»¥°¥á¥ó¥È¤Ë¥³¥ó - ¥Ñ¥¦¥ó¥É¥Æ¥¥¹¥È¤Î´ð½à¤Ë¤½¤Ã¤Æ»Ø¼¨¤¹¤ë¡£ - -
- #Mlocking_shift - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢¥í¥Ã¥¥ó¥°¥·¥Õ¥È¤òÍÑ¤¤¤ë¡£ - -
- #Msingle_shift - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢¥·¥ó¥°¥ë¥·¥Õ¥È¤òÍÑ¤¤¤ë¡£ - -
- #Msingle_shift_7 - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢7-bit ¥·¥ó¥°¥ë¥·¥Õ¥È¥³¡¼¥É (0x19) ¤òÍÑ¤¤¤ë¡£ - -
- #Meuc_tw_shift; - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢EUC-TW ¤Ë±è¤Ã¤¿ÆÃÊÌ¤Ê¥·¥Õ¥È¤òÍÑ¤¤¤ë¡£ - -
- #Miso_6429 - - ¸½»þÅÀ¤Ç¤ÏÍÑ¤¤¤é¤ì¤Æ¤¤¤Ê¤¤¡£ - -
- #Mrevision_number - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢revision number ¤ò»ý¤ÄÊ¸»ú¥»¥Ã¥È¤ò»Ø¼¨¤¹¤ëºÝ¤Ë - revision number ¥¨¥¹¥±¡¼¥×¥·¡¼¥¯¥¨¥ó¥¹¤òÍÑ¤¤¤ë¡£ - -
- #Mfull_support - - ¤³¤Î¥Õ¥é¥°¤¬¤¢¤ì¤Ð¡¢the International Registry ¤ËÅÐÏ¿¤µ¤ì¤Æ¤¤¤ëÁ´ - Ê¸»ú¥»¥Ã¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£ - -
- -
¥¡¼¤¬ #Mdesignation¤ÇÃÍ¤¬ plist ¤Î»þ - - ¥¿¥¤¥×¤¬ #Miso_2022 ¤Ê¤é¤Ð¡¢ÃÍ¤Ï³ÆÊ¸»ú¤ò¤É¤Î¤è¤¦¤Ë»Ø¼¨¤¹¤ë¤«¤ò¼¨¤¹¡£ - plist ¤Î¥¡¼¤Ï #Minteger¡¢ÃÍ¤Ï½¸¹ç¡Êgraphic register¡Ë¤ò¼¨¤¹¿ô»ú¤Ç - ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£NÈÖÌÜ¤ÎÍ×ÁÇ¤ÎÃÍ¤Ï¡¢Ê¸»ú¥»¥Ã¥È¥ê¥¹¥È¤Î N ÈÖÌÜ ¤Î - Ê¸»ú¥»¥Ã¥È¤ËÂÐ±þ¤¹¤ë¡£ÃÍ¤¬ 0..3 ¤Ç¤¢¤ì¤Ð¡¢Ê¸»ú¥»¥Ã¥È¤¬¤¹¤Ç¤Ë - G0..G3 ¤Ë»Ø¼¨ ¤µ¤ì¤Æ¤¤¤ë¡£ - - ÃÍ¤¬Éé(-4..-1) ¤Ç¤¢¤ì¤Ð¡¢½é´ü¾õÂÖ¤Ç¤ÏÊ¸»ú¥»¥Ã¥È¤¬¤É¤³¤Ë¤â»Ø¼¨¤µ¤ì - ¤Æ¤¤¤Ê¤¤¤³¤È¡¢É¬Í×¤ÊºÝ¤Ë¤ÏG0..G3 ¤Î¤½¤ì¤¾¤ì¤Ë»Ø¼¨¤¹¤ë¤³¤È¤ò°ÕÌ£¤¹ - ¤ë¡£ - -
¥¡¼¤¬ #Minvocation¤ÇÃÍ¤¬ plist ¤Î»þ - - ¥¿¥¤¥×¤¬ #Miso_2022 ¤Ê¤é¤Ð¡¢ÃÍ¤Ï³Æ½¸¹ç¤ò¤É¤Î¤è¤¦¤Ë¸Æ¤Ó½Ð¤¹¤«¤ò¼¨¤¹¡£ - plist ¤ÎÄ¹¤µ¤Ï 1 ¤Ê¤¤¤· 2 ¤Ç¤¢¤ë¡£plist ¤Î¥¡¼¤Ï #Minteger¡¢ÃÍ¤Ï½¸ - ¹ç¡Êgraphic register)¤ò¼¨¤¹¿ô»ú¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ºÇ½é¤ÎÍ×ÁÇ¤ÎÃÍ - ¤¬¿Þ·ÁÊ¸»ú½¸¹çº¸È¾ÌÌ¤Ë¸Æ¤Ó½Ð¤µ¤ì¤ë½¸¹ç¤Ç¤¢¤ë¡£ plist ¤ÎÄ¹¤µ¤¬ 1 ¤Ê - ¤é¤Ð¡¢±¦È¾ÌÌ¤Ë¤Ï²¿¤â¸Æ¤Ó½Ð¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤±¤ì¤Ð¡¢£²¤Ä¤á¤ÎÍ×ÁÇ¤ÎÃÍ - ¤¬¿Þ·ÁÊ¸»ú½¸¹ç±¦È¾ÌÌ¤Ë¸Æ¤Ó½Ð¤µ¤ì¤ë½¸¹ç¤È¤Ê¤ë¡£ - -
¥¡¼¤¬ #Mcode_unit ¤ÇÃÍ¤¬À°¿ôÃÍ¤Î»þ - - ¥¿¥¤¥×¤¬ #Mutf ¤Ê¤é¤Ð¡¢ÃÍ¤Ï¥³¡¼¥É¥æ¥Ë¥Ã¥È¤Î¥Ó¥Ã¥ÈÄ¹¤Ç¤¢¤ê¡¢8, 16, - 32 ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£ - -
¥¡¼¤¬ #Mbom ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - ¥¿¥¤¥×¤¬ #Mutf ¤Ç¥³¡¼¥É¥æ¥Ë¥Ã¥È¤Î¥Ó¥Ã¥ÈÄ¹¤¬ 16 ¤« 32¤Ê¤é¤Ð¡¢ÃÍ¤Ï - BOM (Byte Order Mark) ¤ò»ÈÍÑ¤¹¤ë¤«¤É¤¦¤«¤ò¼¨¤¹¡£ÃÍ¤¬¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Î - #Mnil ¤Ê¤é¤Ð¡¢»ÈÍÑ¤·¤Ê¤¤¡£ÃÍ¤¬#Mmaybe ¤Ê¤é¤Ð¥Ç¥³¡¼¥É»þ¤Ë BOM ¤¬¤¢ - ¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë¡£¤½¤ì°Ê³°¤Ê¤é¤Ð»ÈÍÑ¤¹¤ë¡£ - -
¥¡¼¤¬ #Mlittle_endian ¤ÇÃÍ¤¬¥·¥ó¥Ü¥ë¤Î»þ - - ¥¿¥¤¥×¤¬ #Mutf ¤Ç¥³¡¼¥É¥æ¥Ë¥Ã¥È¤Î¥Ó¥Ã¥ÈÄ¹¤¬ 16 ¤« 32¤Ê¤é¤Ð¡¢ÃÍ¤Ï¥¨ - ¥ó¥³¡¼¥É¤¬ little endian ¤«¤É¤¦¤«¤ò¼¨¤¹¡£ÃÍ¤¬¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Î #Mnil - ¤Ê¤é¤Ð big endian ¤Ç¤¢¤ê¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð little endian ¤Ç¤¢¤ë¡£ - -

- - $RESETTER ¤Ï¤³¤Î¥³¡¼¥É·ÏÍÑ¤Î¥³¥ó¥Ð¡¼¥¿¤ò½é´ü¾õÂÖ¤Ë¥ê¥»¥Ã¥È¤¹¤ë´Ø¿ô - ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¤³¤Î´Ø¿ô¤Ï¥³¥ó¥Ð¡¼¥¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤È - ¤¤¤¦£±°ú¿ô¤ò¤È¤ë¡£ - - $DECODER ¤Ï¥Ð¥¤¥ÈÎó¤ò¤³¤Î¥³¡¼¥É·Ï¤Ë½¾¤Ã¤Æ¥Ç¥³¡¼¥É¤¹¤ë´Ø¿ô¤Ø¤Î¥Ý¥¤ - ¥ó¥¿¤Ç¤¢¤ë¡£¤³¤Î´Ø¿ô¤Ï°Ê²¼¤Î4°ú¿ô¤ò¤È¤ë¡£ - - @li ¥Ç¥³¡¼¥É¤¹¤ë¥Ð¥¤¥ÈÎó¤Ø¤Î¥Ý¥¤¥ó¥¿ - @li ¥Ç¥³¡¼¥É¤¹¤Ù¤¥Ð¥¤¥È¿ô - @li ¥Ç¥³¡¼¥É·ë²Ì¤ÎÊ¸»ú¤òÉÕ²Ã¤¹¤ë M-text ¤Ø¤Î¥Ý¥¤¥ó¥¿ - @li ¥³¥ó¥Ð¡¼¥¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿ - - $DECODER ¤ÏÀ®¸ù¤·¤¿¤È¤¤Ë¤Ï0¤ò¡¢¼ºÇÔ¤·¤¿¤È¤¤Ë¤Ï-1¤òÊÖ¤µ¤Ê¤¯¤Æ¤Ï¤Ê - ¤é¤Ê¤¤¡£ - - $ENCODER ¤Ï M-text ¤ò¤³¤Î¥³¡¼¥É·Ï¤Ë½¾¤Ã¤Æ¥¨¥ó¥³¡¼¥É¤¹¤ë´Ø¿ô¤Ø¤Î¥Ý - ¥¤¥ó¥¿¤Ç¤¢¤ë¡£¤³¤Î´Ø¿ô¤Ï°Ê²¼¤Î6°ú¿ô¤ò¤È¤ë¡£ - - @li ¥¨¥ó¥³¡¼¥É¤¹¤ëM-text ¤Ø¤Î¥Ý¥¤¥ó¥¿ - @li M-text ¤Î¥¨¥ó¥³¡¼¥É³«»Ï°ÌÃÖ - @li M-text ¤Î¥¨¥ó¥³¡¼¥É½ªÎ»°ÌÃÖ - @li À¸À®¤·¤¿¥Ð¥¤¥È¤òÊÝ»ý¤¹¤ë¥á¥â¥êÎÎ°è¤Ø¤Î¥Ý¥¤¥ó¥¿ - @li ¥á¥â¥êÎÎ°è¤Î¥µ¥¤¥º - @li ¥³¥ó¥Ð¡¼¥¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿ - - $ENCODER ¤ÏÀ®¸ù¤·¤¿¤È¤¤Ë¤Ï0¤ò¡¢¼ºÇÔ¤·¤¿¤È¤¤Ë¤Ï-1¤òÊÖ¤µ¤Ê¤¯¤Æ¤Ï¤Ê - ¤é¤Ê¤¤¡£ - - $EXTRA_INFO ¤Ï¥³¡¼¥Ç¥£¥°¥·¥¹¥Æ¥à¤Ë´Ø¤¹¤ëÄÉ²Ã¾ðÊó¤ò´Þ¤à¥Ç¡¼¥¿¹½Â¤¤Ø - ¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¤³¤Î¥Ç¡¼¥¿¹½Â¤¤Î¥¿¥¤¥×¤Ï $TYPE ¤Ë°ÍÂ¸¤¹¤ë¡£ - - @return - - ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mconv_define_coding () ¤Ï $NAME ¤È¤¤¤¦Ì¾Á°¤Î¥· - ¥ó¥Ü¥ë¤òÊÖ¤¹¡£ ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì - ¤¿¾ì¹ç¤Ï #Mnil ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ - */ - -/*** - @errors - @c MERROR_CODING */ - -MSymbol -mconv_define_coding (const char *name, MPlist *plist, - int (*resetter) (MConverter *), - int (*decoder) (const unsigned char *, int, MText *, - MConverter *), - int (*encoder) (MText *, int, int, - unsigned char *, int, - MConverter *), - void *extra_info) -{ - MSymbol sym = msymbol (name); - int i; - MCodingSystem *coding; - MPlist *pl; - - MSTRUCT_MALLOC (coding, MERROR_CODING); - coding->name = sym; - if ((coding->type = (MSymbol) mplist_get (plist, Mtype)) == Mnil) - coding->type = Mcharset; - pl = (MPlist *) mplist_get (plist, Mcharsets); - if (! pl) - MERROR (MERROR_CODING, Mnil); - coding->ncharsets = mplist_length (pl); - if (coding->ncharsets > NUM_SUPPORTED_CHARSETS) - coding->ncharsets = NUM_SUPPORTED_CHARSETS; - for (i = 0; i < coding->ncharsets; i++, pl = MPLIST_NEXT (pl)) - { - MSymbol charset_name; - - if (MPLIST_KEY (pl) != Msymbol) - MERROR (MERROR_CODING, Mnil); - charset_name = MPLIST_SYMBOL (pl); - if (! (coding->charsets[i] = MCHARSET (charset_name))) - MERROR (MERROR_CODING, Mnil); - } - - coding->resetter = resetter; - coding->decoder = decoder; - coding->encoder = encoder; - coding->ascii_compatible = 0; - coding->extra_info = extra_info; - coding->extra_spec = NULL; - coding->ready = 0; - - if (coding->type == Mcharset) - { - if (! coding->resetter) - coding->resetter = reset_coding_charset; - if (! coding->decoder) - coding->decoder = decode_coding_charset; - if (! coding->encoder) - coding->encoder = encode_coding_charset; - } - else if (coding->type == Mutf) - { - MCodingInfoUTF *info = malloc (sizeof (MCodingInfoUTF)); - MSymbol val; - - if (! coding->resetter) - coding->resetter = reset_coding_utf; - - info->code_unit_bits = (int) mplist_get (plist, Mcode_unit); - if (info->code_unit_bits == 8) - { - if (! coding->decoder) - coding->decoder = decode_coding_utf_8; - if (! coding->encoder) - coding->encoder = encode_coding_utf_8; - } - else if (info->code_unit_bits == 16) - { - if (! coding->decoder) - coding->decoder = decode_coding_utf_16; - if (! coding->encoder) - coding->encoder = encode_coding_utf_16; - } - else if (info->code_unit_bits == 32) - { - if (! coding->decoder) - coding->decoder = decode_coding_utf_32; - if (! coding->encoder) - coding->encoder = encode_coding_utf_32; - } - else - MERROR (MERROR_CODING, Mnil); - val = (MSymbol) mplist_get (plist, Mbom); - if (val == Mnil) - info->bom = 1; - else if (val == Mmaybe) - info->bom = 0; - else - info->bom = 2; - - info->endian = (mplist_get (plist, Mlittle_endian) ? 1 : 0); - coding->extra_info = info; - } - else if (coding->type == Miso_2022) - { - MCodingInfoISO2022 *info = malloc (sizeof (MCodingInfoISO2022)); - - if (! coding->resetter) - coding->resetter = reset_coding_iso_2022; - if (! coding->decoder) - coding->decoder = decode_coding_iso_2022; - if (! coding->encoder) - coding->encoder = encode_coding_iso_2022; - - info->initial_invocation[0] = 0; - info->initial_invocation[1] = -1; - pl = (MPlist *) mplist_get (plist, Minvocation); - if (pl) - { - if (MPLIST_KEY (pl) != Minteger) - MERROR (MERROR_CODING, Mnil); - info->initial_invocation[0] = MPLIST_INTEGER (pl); - if (! MPLIST_TAIL_P (pl)) - { - pl = MPLIST_NEXT (pl); - if (MPLIST_KEY (pl) != Minteger) - MERROR (MERROR_CODING, Mnil); - info->initial_invocation[1] = MPLIST_INTEGER (pl); - } - } - memset (info->designations, 0, sizeof (info->designations)); - for (i = 0, pl = (MPlist *) mplist_get (plist, Mdesignation); - i < 32 && pl && MPLIST_KEY (pl) == Minteger; - i++, pl = MPLIST_NEXT (pl)) - info->designations[i] = MPLIST_INTEGER (pl); - - info->flags = 0; - MPLIST_DO (pl, (MPlist *) mplist_get (plist, Mflags)) - { - MSymbol val; - - if (MPLIST_KEY (pl) != Msymbol) - MERROR (MERROR_CODING, Mnil); - val = MPLIST_SYMBOL (pl); - if (val == Mreset_at_eol) - info->flags |= MCODING_ISO_RESET_AT_EOL; - else if (val == Mreset_at_cntl) - info->flags |= MCODING_ISO_RESET_AT_CNTL; - else if (val == Meight_bit) - info->flags |= MCODING_ISO_EIGHT_BIT; - else if (val == Mlong_form) - info->flags |= MCODING_ISO_LOCKING_SHIFT; - else if (val == Mdesignation_g0) - info->flags |= MCODING_ISO_DESIGNATION_G0; - else if (val == Mdesignation_g1) - info->flags |= MCODING_ISO_DESIGNATION_G1; - else if (val == Mdesignation_ctext) - info->flags |= MCODING_ISO_DESIGNATION_CTEXT; - else if (val == Mdesignation_ctext_ext) - info->flags |= MCODING_ISO_DESIGNATION_CTEXT_EXT; - else if (val == Mlocking_shift) - info->flags |= MCODING_ISO_LOCKING_SHIFT; - else if (val == Msingle_shift) - info->flags |= MCODING_ISO_SINGLE_SHIFT; - else if (val == Msingle_shift_7) - info->flags |= MCODING_ISO_SINGLE_SHIFT_7; - else if (val == Meuc_tw_shift) - info->flags |= MCODING_ISO_EUC_TW_SHIFT; - else if (val == Miso_6429) - info->flags |= MCODING_ISO_ISO6429; - else if (val == Mrevision_number) - info->flags |= MCODING_ISO_REVISION_NUMBER; - else if (val == Mfull_support) - info->flags |= MCODING_ISO_FULL_SUPPORT; - } - - coding->extra_info = info; - } - else - { - if (! coding->decoder || ! coding->encoder) - MERROR (MERROR_CODING, Mnil); - if (! coding->resetter) - coding->ready = 1; - } - - msymbol_put (sym, Mcoding, coding); - msymbol_put (msymbol__canonicalize (sym), Mcoding, coding); - plist = (MPlist *) mplist_get (plist, Maliases); - if (plist) - { - MPLIST_DO (pl, plist) - { - MSymbol alias; - - if (MPLIST_KEY (pl) != Msymbol) - continue; - alias = MPLIST_SYMBOL (pl); - msymbol_put (alias, Mcoding, coding); - msymbol_put (msymbol__canonicalize (alias), Mcoding, coding); - } - } - - MLIST_APPEND1 (&coding_list, codings, coding, MERROR_CODING); - - return sym; -} - -/*=*/ - -/***en - @brief Resolve coding system name. - - The mconv_resolve_coding () function returns $SYMBOL if it - represents a coding system. Otherwise, canonicalize $SYMBOL as to - a coding system name, and if the canonicalized name represents a - coding system, return it. Otherwise, return #Mnil. */ -/***ja - @brief ¥³¡¼¥É·Ï¤ÎÌ¾Á°¤ò²ò·è¤¹¤ë. - - ´Ø¿ô mconv_resolve_coding () ¤Ï $SYMBOL ¤¬¥³¡¼¥É·Ï¤ò¼¨¤·¤Æ¤¤¤ì¤Ð¤½ - ¤ì¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥³¡¼¥É·Ï¤ÎÌ¾Á°¤È¤·¤Æ $SYMBOL ¤òÀµµ¬²½¤·¡¢ - ¤½¤ì¤¬¥³¡¼¥É·Ï¤ò¼¨¤·¤Æ¤¤¤ì¤ÐÀµµ¬²½¤·¤¿Ì¾Á°¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð - #Mnil ¤òÊÖ¤¹¡£ */ - - - -MSymbol -mconv_resolve_coding (MSymbol symbol) -{ - MCodingSystem *coding = find_coding (symbol); - - if (! coding) - { - symbol = msymbol__canonicalize (symbol); - coding = find_coding (symbol); - } - return (coding ? coding->name : Mnil); -} - -/*=*/ - - -/***en - @brief List symbols representing coding systems. - - The mconv_list_codings () function makes an array of symbols - representing a coding system, stores the pointer to the array in a - place pointed to by $SYMBOLS, and returns the length of the array. */ -/***ja - @brief ¥³¡¼¥É·Ï¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤òÎóµó¤¹¤ë. - - ´Ø¿ô mchar_list_codings () ¤Ï¡¢¥³¡¼¥É·Ï¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤òÊÂ¤Ù¤¿ÇÛÎó - ¤òºî¤ê¡¢$SYMBOLS ¤Ç¥Ý¥¤¥ó¥È¤µ¤ì¤¿¾ì½ê¤Ë¤³¤ÎÇÛÎó¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÃÖ¤¡¢ - ÇÛÎó¤ÎÄ¹¤µ¤òÊÖ¤¹¡£ */ - -int -mconv_list_codings (MSymbol **symbols) -{ - int i = coding_list.used + mplist_length (coding_definition_list); - int j; - MPlist *plist; - - MTABLE_MALLOC ((*symbols), i, MERROR_CODING); - i = 0; - MPLIST_DO (plist, coding_definition_list) - { - MPlist *pl = MPLIST_VAL (plist); - (*symbols)[i++] = MPLIST_SYMBOL (pl); - } - for (j = 0; j < coding_list.used; j++) - if (! mplist_find_by_key (coding_definition_list, - coding_list.codings[j]->name)) - (*symbols)[i++] = coding_list.codings[j]->name; - return i; -} - -/*=*/ - -/***en - @brief Create a code converter bound to a buffer. - - The mconv_buffer_converter () function creates a pointer to a code - converter for coding system $CODING. The code converter is bound - to buffer area of $N bytes pointed to by $BUF. Subsequent - decodings and encodings are done to/from this buffer area. - - $CODING can be #Mnil. In this case, a coding system associated - with the current locale (LC_CTYPE) is used. - - @return - If the operation was successful, mconv_buffer_converter () returns - the created code converter. Otherwise it returns @c NULL and - assigns an error code to the external variable #merror_code. */ - -/***ja - @brief ¥Ð¥Ã¥Õ¥¡¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤òºî¤ë. - - ´Ø¿ô mconv_buffer_converter () ¤Ï¡¢¥³¡¼¥É·Ï $CODING ÍÑ¤Î¥³¡¼¥É¥³¥ó - ¥Ð¡¼¥¿¤òºî¤ë¡£¤³¤Î¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤Ï¡¢$BUF ¤Ç¼¨¤µ¤ì¤ëÂç¤¤µ $N ¥Ð - ¥¤¥È¤Î¥Ð¥Ã¥Õ¥¡ÎÎ°è¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤ë¡£¤³¤ì°Ê¹ß¤Î¥Ç¥³¡¼¥É¤ª¤è¤Ó - ¥¨¥ó¥³¡¼¥É¤Ï¡¢¤³¤Î¥Ð¥Ã¥Õ¥¡ÎÎ°è¤ËÂÐ¤·¤Æ¹Ô¤Ê¤ï¤ì¤ë¡£ - - $CODING ¤Ï #Mnil ¤Ç¤¢¤Ã¤Æ¤â¤è¤¤¡£¤³¤Î¾ì¹ç¤Ï¸½ºß¤Î¥í¥±¡¼¥ë - (LC_CTYPE) ¤Ë´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥³¡¼¥É·Ï¤¬»È¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð mconv_buffer_converter () ¤Ï ºîÀ®¤·¤¿¥³¡¼¥É¥³ - ¥ó¥Ð¡¼¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code - ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ - - @latexonly \IPAlabel{mconverter} @endlatexonly */ - -/*** - @errors - @c MERROR_SYMBOL, @c MERROR_CODING - - @seealso - mconv_stream_converter () */ - -MConverter * -mconv_buffer_converter (MSymbol name, unsigned char *buf, int n) -{ - MCodingSystem *coding; - MConverter *converter; - MConverterStatus *internal; - - if (name == Mnil) - name = mlocale_get_prop (mlocale__ctype, Mcoding); - coding = find_coding (name); - if (! coding) - MERROR (MERROR_CODING, NULL); - MSTRUCT_CALLOC (converter, MERROR_CODING); - MSTRUCT_CALLOC (internal, MERROR_CODING); - converter->internal_info = internal; - internal->coding = coding; - if (coding->resetter - && (*coding->resetter) (converter) < 0) - { - free (internal); - free (converter); - MERROR (MERROR_CODING, NULL); - } - - internal->unread = mtext (); - internal->work_mt = mtext (); - mtext__enlarge (internal->work_mt, MAX_UTF8_CHAR_BYTES); - internal->buf = buf; - internal->used = 0; - internal->bufsize = n; - internal->binding = BINDING_BUFFER; - - return converter; -} - -/*=*/ - -/***en - @brief Create a code converter bound to a stream. - - The mconv_stream_converter () function create a pointer to a code - converter for coding system $CODING. The code converter is bound - to stream $FP. Subsequent decodings and encodings are done - to/from this stream. - - $CODING can be #Mnil. In this case, a coding system associated - with the current locale (LC_CTYPE) is used. - - @return If the operation was successful, mconv_stream_converter () - returns the created code converter. Otherwise it returns @c NULL - and assigns an error code to the external variable - #merror_code. */ - -/***ja - @brief ¥¹¥È¥ê¡¼¥à¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤òºî¤ë. - - ´Ø¿ô mconv_stream_converter () ¤Ï¡¢¥³¡¼¥É·Ï $CODING ÍÑ¤Î¥³¡¼¥É¥³¥ó - ¥Ð¡¼¥¿¤òºî¤ë¡£¤³¤Î¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤Ï¡¢¥¹¥È¥ê¡¼¥à $FP ¤Ë·ë¤ÓÉÕ¤±¤é - ¤ì¤ë¡£¤³¤ì°Ê¹ß¤Î¥Ç¥³¡¼¥É¤ª¤è¤Ó¥¨¥ó¥³¡¼¥É¤Ï¡¢¤³¤Î¥¹¥È¥ê¡¼¥à¤ËÂÐ¤·¤Æ - ¹Ô¤Ê¤ï¤ì¤ë¡£ - - $CODING ¤Ï #Mnil ¤Ç¤¢¤Ã¤Æ¤â¤è¤¤¡£¤³¤Î¾ì¹ç¤Ï¸½ºß¤Î¥í¥±¡¼¥ë - (LC_CTYPE) ¤Ë´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥³¡¼¥É·Ï¤¬»È¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_stream_converter () ¤ÏºîÀ®¤·¤¿ - ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô - #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ - - @latexonly \IPAlabel{mconverter} @endlatexonly */ - -/*** - @errors - @c MERROR_SYMBOL, @c MERROR_CODING - - @seealso - mconv_buffer_converter () */ - -MConverter * -mconv_stream_converter (MSymbol name, FILE *fp) -{ - MCodingSystem *coding; - MConverter *converter; - MConverterStatus *internal; - - if (name == Mnil) - name = mlocale_get_prop (mlocale__ctype, Mcoding); - coding = find_coding (name); - if (! coding) - MERROR (MERROR_CODING, NULL); - MSTRUCT_CALLOC (converter, MERROR_CODING); - MSTRUCT_CALLOC (internal, MERROR_CODING); - converter->internal_info = internal; - internal->coding = coding; - if (coding->resetter - && (*coding->resetter) (converter) < 0) - { - free (internal); - free (converter); - MERROR (MERROR_CODING, NULL); - } - - if (fseek (fp, 0, SEEK_CUR) < 0) - { - if (errno == EBADF) - { - free (internal); - free (converter); - return NULL; - } - internal->seekable = 0; - } - else - internal->seekable = 1; - internal->unread = mtext (); - internal->work_mt = mtext (); - mtext__enlarge (internal->work_mt, MAX_UTF8_CHAR_BYTES); - internal->fp = fp; - internal->binding = BINDING_STREAM; - - return converter; -} - -/*=*/ - -/***en - @brief Reset a code converter. - - The mconv_reset_converter () function resets code converter - $CONVERTER to the initial state. - - @return - If $CONVERTER->coding has its own reseter function, - mconv_reset_converter () returns the result of that function - applied to $CONVERTER. Otherwise it returns 0. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ò¥ê¥»¥Ã¥È¤¹¤ë. - - ´Ø¿ô mconv_reset_converter () ¤Ï¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤ò½é´ü - ¾õÂÖ¤ËÌá¤¹¡£ - - @return - ¤â¤· $CONVERTER->coding ¤Ë¥ê¥»¥Ã¥ÈÍÑ¤Î´Ø¿ô¤¬ÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤Ê¤é¤Ð¡¢ - mconv_reset_converter () ¤Ï¤½¤Î´Ø¿ô¤Ë $CONVERTER ¤òÅ¬ÍÑ¤·¤¿·ë²Ì¤ò - ÊÖ¤·¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð0¤òÊÖ¤¹¡£ */ - -int -mconv_reset_converter (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - converter->nchars = converter->nbytes = 0; - converter->result = MCONVERSION_RESULT_SUCCESS; - internal->carryover_bytes = 0; - mtext_reset (internal->unread); - if (internal->coding->resetter) - return (*internal->coding->resetter) (converter); - return 0; -} - -/*=*/ - -/***en - @brief Free a code converter. - - The mconv_free_converter () function frees the code converter - $CONVERTER. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ò²òÊü¤¹¤ë. - - ´Ø¿ô mconv_free_converter () ¤Ï¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤ò²òÊü - ¤¹¤ë¡£ */ - -void -mconv_free_converter (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - M17N_OBJECT_UNREF (internal->work_mt); - M17N_OBJECT_UNREF (internal->unread); - free (internal); - free (converter); -} - -/*=*/ - -/***en - @brief Bind a buffer to a code converter. - - The mconv_rebind_buffer () function binds buffer area of $N bytes - pointed to by $BUF to code converter $CONVERTER. Subsequent - decodings and encodings are done to/from this newly bound buffer - area. - - @return - This function always returns $CONVERTER. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤Ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤ò·ë¤ÓÉÕ¤±¤ë. - - ´Ø¿ô mconv_rebind_buffer () ¤Ï¡¢$BUF ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤¿Âç¤¤µ $N ¥Ð - ¥¤¥È¤Î¥Ð¥Ã¥Õ¥¡ÎÎ°è¤ò¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤Ë·ë¤ÓÉÕ¤±¤ë¡£¤³¤ì - °Ê¹ß¤Î¥Ç¥³¡¼¥É¤ª¤è¤Ó¥¨¥ó¥³¡¼¥É¤Ï¡¢¤³¤Î¿·¤¿¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥Ð¥Ã¥Õ¥¡ - ÎÎ°è¤ËÂÐ¤·¤Æ¹Ô¤Ê¤ï¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¡£ - - @return - ¤³¤Î´Ø¿ô¤Ï¾ï¤Ë $CONVERTER ¤òÊÖ¤¹¡£ - - @latexonly \IPAlabel{mconv_rebind_buffer} @endlatexonly */ - -/*** - @seealso - mconv_rebind_stream () */ - -MConverter * -mconv_rebind_buffer (MConverter *converter, unsigned char *buf, int n) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - internal->buf = buf; - internal->used = 0; - internal->bufsize = n; - internal->binding = BINDING_BUFFER; - return converter; -} - -/*=*/ - -/***en - @brief Bind a stream to a code converter. - - The mconv_rebind_stream () function binds stream $FP to code - converter $CONVERTER. Following decodings and encodings are done - to/from this newly bound stream. - - @return - This function always returns $CONVERTER. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤Ë¥¹¥È¥ê¡¼¥à¤ò·ë¤ÓÉÕ¤±¤ë. - - ´Ø¿ô mconv_rebind_stream () ¤Ï¡¢¥¹¥È¥ê¡¼¥à $FP ¤ò¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ - $CONVERTER ¤Ë·ë¤ÓÉÕ¤±¤ë¡£¤³¤ì°Ê¹ß¤Î¥Ç¥³¡¼¥É¤ª¤è¤Ó¥¨¥ó¥³¡¼¥É¤Ï¡¢ - ¤³¤Î¿·¤¿¤Ë·ë¤ÓÉÕ¤±¤é¤ì¤¿¥¹¥È¥ê¡¼¥à¤ËÂÐ¤·¤Æ¹Ô¤Ê¤ï¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¡£ - - @return - ¤³¤Î´Ø¿ô¤Ï¾ï¤Ë $CONVERTER ¤òÊÖ¤¹¡£ - - @latexonly \IPAlabel{mconv_rebind_stream} @endlatexonly */ - -/*** - @seealso - mconv_rebind_buffer () */ - -MConverter * -mconv_rebind_stream (MConverter *converter, FILE *fp) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - if (fseek (fp, 0, SEEK_CUR) < 0) - { - if (errno == EBADF) - return NULL; - internal->seekable = 0; - } - else - internal->seekable = 1; - internal->fp = fp; - internal->binding = BINDING_STREAM; - return converter; -} - -/*=*/ - -/***en - @brief Decode a byte sequence into an M-text. - - The mconv_decode () function decodes a byte sequence and appends - the result at the end of M-text $MT. The source byte sequence is - taken from currently bound the buffer area or the stream. - - @return - If the operation was successful, mconv_decode () returns updated - $MT. Otherwise it returns @c NULL and assigns an error code to - the external variable #merror_code. */ - -/***ja - @brief ¥Ð¥¤¥ÈÎó¤ò M-text ¤Ë¥Ç¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mconv_decode () ¤Ï¡¢¥Ð¥¤¥ÈÎó¤ò¥Ç¥³¡¼¥É¤·¤Æ¤½¤Î·ë²Ì¤ò M-text - $MT ¤ÎËöÈø¤ËÄÉ²Ã¤¹¤ë¡£¥Ç¥³¡¼¥É¸µ¤Î¥Ð¥¤¥ÈÎó¤Ï¡¢¸½ºß·ë¤ÓÉÕ¤±¤é¤ì¤Æ¤¤¤ë - ¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼¥à¤«¤é¼è¤é¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_decode () ¤Ï¹¹¿·¤µ¤ì¤¿ $MT ¤òÊÖ¤¹¡£¤½ - ¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤ò - ÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_rebind_buffer (), mconv_rebind_stream (), - mconv_encode (), mconv_encode_range (), - mconv_decode_buffer (), mconv_decode_stream () */ - -MText * -mconv_decode (MConverter *converter, MText *mt) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - int at_most = converter->at_most > 0 ? converter->at_most : -1; - int n; - - M_CHECK_READONLY (mt, NULL); - - if (mt->format != MTEXT_FORMAT_UTF_8) - mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8); - - if (! mt->data) - mtext__enlarge (mt, MAX_UTF8_CHAR_BYTES); - - converter->nchars = converter->nbytes = 0; - converter->result = MCONVERSION_RESULT_SUCCESS; - - n = mtext_nchars (internal->unread); - if (n > 0) - { - int limit = n; - int i; - - if (at_most > 0 && at_most < limit) - limit = at_most; - - for (i = 0, n -= 1; i < limit; i++, converter->nchars++, n--) - mtext_cat_char (mt, mtext_ref_char (internal->unread, n)); - mtext_del (internal->unread, n + 1, internal->unread->nchars); - if (at_most > 0) - { - if (at_most == limit) - return mt; - converter->at_most -= converter->nchars; - } - } - - if (internal->binding == BINDING_BUFFER) - { - (*internal->coding->decoder) (internal->buf + internal->used, - internal->bufsize - internal->used, - mt, converter); - internal->used += converter->nbytes; - } - else if (internal->binding == BINDING_STREAM) - { - unsigned char work[CONVERT_WORKSIZE]; - int last_block = converter->last_block; - int use_fread = at_most < 0 && internal->seekable; - - converter->last_block = 0; - while (1) - { - int nbytes, prev_nbytes; - - if (feof (internal->fp)) - nbytes = 0; - else if (use_fread) - nbytes = fread (work, sizeof (unsigned char), CONVERT_WORKSIZE, - internal->fp); - else - { - int c = getc (internal->fp); - - if (c != EOF) - work[0] = c, nbytes = 1; - else - nbytes = 0; - } - - if (ferror (internal->fp)) - { - converter->result = MCONVERSION_RESULT_IO_ERROR; - break; - } - - if (nbytes == 0) - converter->last_block = last_block; - prev_nbytes = converter->nbytes; - (*internal->coding->decoder) (work, nbytes, mt, converter); - if (converter->nbytes - prev_nbytes < nbytes) - { - if (use_fread) - fseek (internal->fp, converter->nbytes - prev_nbytes - nbytes, - SEEK_CUR); - else - ungetc (work[0], internal->fp); - break; - } - if (nbytes == 0 - || (converter->at_most > 0 - && converter->nchars == converter->at_most)) - break; - } - converter->last_block = last_block; - } - else /* internal->binding == BINDING_NONE */ - MERROR (MERROR_CODING, NULL); - - converter->at_most = at_most; - return ((converter->result == MCONVERSION_RESULT_SUCCESS - || converter->result == MCONVERSION_RESULT_INSUFFICIENT_SRC) - ? mt : NULL); -} - -/*=*/ - -/***en - @brief Decode a buffer area based on a coding system. - - The mconv_decode_buffer () function decodes $N bytes of buffer - area pointed to by $BUF based on the coding system $NAME. A - temporary code converter for decoding is automatically created - and freed. - - @return - If the operation was successful, mconv_decode_buffer () - returns the resulting M-text. Otherwise it returns @c NULL and - assigns an error code to the external variable #merror_code. */ - -/***ja - @brief ¥³¡¼¥É·Ï¤Ë´ð¤Å¤¤¤Æ¥Ð¥Ã¥Õ¥¡ÎÎ°è¤ò¥Ç¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mconv_decode_buffer () ¤Ï¡¢$BUF ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤¿ $N ¥Ð¥¤¥È¤Î - ¥Ð¥Ã¥Õ¥¡ÎÎ°è¤ò¡¢¥³¡¼¥É·Ï $NAME ¤Ë´ð¤Å¤¤¤Æ¥Ç¥³¡¼¥É¤¹¤ë¡£¥Ç¥³¡¼¥É¤Ë - É¬Í×¤Ê¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ÎºîÀ®¤È²òÊü¤Ï¼«Æ°Åª¤Ë¹Ô¤Ê¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_decode_buffer () ¤ÏÆÀ¤é¤ì¤¿ M-text ¤ò - ÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼ - ¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_decode (), mconv_decode_stream () */ - -MText * -mconv_decode_buffer (MSymbol name, unsigned char *buf, int n) -{ - MConverter *converter = mconv_buffer_converter (name, buf, n); - MText *mt; - - if (! converter) - return NULL; - mt = mtext (); - if (! mconv_decode (converter, mt)) - { - M17N_OBJECT_UNREF (mt); - mt = NULL; - } - mconv_free_converter (converter); - return mt; -} - -/*=*/ - -/***en - @brief Decode a stream input based on a coding system. - - The mconv_decode_stream () function decodes the entire byte - sequence read in from stream $FP based on the coding system $NAME. - A code converter for decoding is automatically created and freed. - - @return - If the operation was successful, mconv_decode_stream () returns - the resulting M-text. Otherwise it returns @c NULL and assigns an - error code to the external variable #merror_code. */ - -/***ja - @brief ¥³¡¼¥É·Ï¤Ë´ð¤Å¤¤¤Æ¥¹¥È¥ê¡¼¥àÆþÎÏ¤ò¥Ç¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mconv_decode_stream () ¤Ï¡¢¥¹¥È¥ê¡¼¥à $FP ¤«¤éÆÉ¤ß¹þ¤Þ¤ì¤ë¥Ð - ¥¤¥ÈÎóÁ´ÂÎ¤ò¡¢¥³¡¼¥É·Ï $NAME ¤Ë´ð¤Å¤¤¤Æ¥Ç¥³¡¼¥É¤¹¤ë¡£¥Ç¥³¡¼¥É¤ËÉ¬ - Í×¤Ê¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ÎºîÀ®¤È²òÊü¤Ï¼«Æ°Åª¤Ë¹Ô¤Ê¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_decode_stream () ¤ÏÆÀ¤é¤ì¤¿ M-text ¤òÊÖ - ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼ - ¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_decode (), mconv_decode_buffer () */ - -MText * -mconv_decode_stream (MSymbol name, FILE *fp) -{ - MConverter *converter = mconv_stream_converter (name, fp); - MText *mt; - - if (! converter) - return NULL; - mt = mtext (); - if (! mconv_decode (converter, mt)) - { - M17N_OBJECT_UNREF (mt); - mt = NULL; - } - mconv_free_converter (converter); - return mt; -} - -/*=*/ - -/***en @brief Encode an M-text into a byte sequence. - - The mconv_encode () function encodes M-text $MT and writes the - resulting byte sequence into the buffer area or the stream that is - currently bound to code converter $CONVERTER. - - @return - If the operation was successful, mconv_encode () returns the - number of written bytes. Otherwise it returns -1 and assigns an - error code to the external variable #merror_code. */ - -/***ja - @brief M-text ¤ò¥Ð¥¤¥ÈÎó¤Ë¥¨¥ó¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mconv_encode () ¤Ï¡¢M-text $MT ¤ò¥¨¥ó¥³¡¼¥É¤·¤Æ¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼ - ¥¿ $CONVERTER ¤Ë¸½ºß·ë¤ÓÉÕ¤±¤é¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼ - ¥à¤ËÆÀ¤é¤ì¤¿¥Ð¥¤¥ÈÎó¤ò½ñ¤¹þ¤à¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_encode () ¤Ï½ñ¤¹þ¤Þ¤ì¤¿¥Ð¥¤¥È¿ô¤òÊÖ¤¹¡£ - ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê - ¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_rebind_buffer (), mconv_rebind_stream(), - mconv_decode (), mconv_encode_range () */ - -int -mconv_encode (MConverter *converter, MText *mt) -{ - return mconv_encode_range (converter, mt, 0, mtext_nchars (mt)); -} - -/*=*/ - -/***en - @brief Encode a part of an M-text. - - The mconv_encode_range () function encodes the text between $FROM - (inclusive) and $TO (exclusive) in M-text $MT and writes the - resulting byte sequence into the buffer area or the stream that is - currently bound to code converter $CONVERTER. - - @return - If the operation was successful, mconv_encode_range () returns the - number of written bytes. Otherwise it returns -1 and assigns an - error code to the external variable #merror_code. */ - -/***ja - @brief M-text ¤Î°ìÉô¤ò¤ò¥Ð¥¤¥ÈÎó¤Ë¥¨¥ó¥³¡¼¥É¤¹¤ë. - - ´Ø¿ô mconv_encode_range () ¤Ï¡¢M-text $MT ¤Î $FROM ¡Ê´Þ¤à¡Ë¤«¤é - $TO ¡Ê´Þ¤Þ¤Ê¤¤¡Ë¤Þ¤Ç¤ÎÈÏ°Ï¤Î¥Æ¥¥¹¥È¤ò¥¨¥ó¥³¡¼¥É¤·¤Æ¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼ - ¥¿ $CONVERTER ¤Ë¸½ºß·ë¤ÓÉÕ¤±¤é¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼ - ¥à¤ËÆÀ¤é¤ì¤¿¥Ð¥¤¥ÈÎó¤ò½ñ¤¹þ¤à¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_encode_range () ¤Ï½ñ¤¹þ¤Þ¤ì¤¿¥Ð¥¤¥È¿ô - ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼ - ¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_RANGE, @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_rebind_buffer (), mconv_rebind_stream(), - mconv_decode (), mconv_encode () */ - -int -mconv_encode_range (MConverter *converter, MText *mt, int from, int to) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - M_CHECK_POS_X (mt, from, -1); - M_CHECK_POS_X (mt, to, -1); - if (to < from) - to = from; - - if (converter->at_most > 0 && from + converter->at_most < to) - to = from + converter->at_most; - - converter->nchars = converter->nbytes = 0; - converter->result = MCONVERSION_RESULT_SUCCESS; - - mtext_put_prop (mt, from, to, Mcoding, internal->coding->name); - if (internal->binding == BINDING_BUFFER) - { - (*internal->coding->encoder) (mt, from, to, - internal->buf + internal->used, - internal->bufsize - internal->used, - converter); - internal->used += converter->nbytes; - } - else if (internal->binding == BINDING_STREAM) - { - unsigned char work[CONVERT_WORKSIZE]; - - while (from < to) - { - int written = 0; - int prev_nbytes = converter->nbytes; - int this_nbytes; - - (*internal->coding->encoder) (mt, from, to, work, - CONVERT_WORKSIZE, converter); - this_nbytes = converter->nbytes - prev_nbytes; - while (written < this_nbytes) - { - int wrtn = fwrite (work + written, sizeof (unsigned char), - this_nbytes - written, internal->fp); - - if (ferror (internal->fp)) - break; - written += wrtn; - } - if (written < this_nbytes) - { - converter->result = MCONVERSION_RESULT_IO_ERROR; - break; - } - from += converter->nchars; - } - } - else /* fail safe */ - MERROR (MERROR_CODING, -1); - - return ((converter->result == MCONVERSION_RESULT_SUCCESS - || converter->result == MCONVERSION_RESULT_INSUFFICIENT_DST) - ? converter->nbytes : -1); -} - -/*=*/ - -/***en - @brief Encode an M-text into a buffer area. - - The mconv_encode_buffer () function encodes M-text $MT based on - coding system $NAME and writes the resulting byte sequence into the - buffer area pointed to by $BUF. At most $N bytes are written. A - temporary code converter for encoding is automatically created - and freed. - - @return - If the operation was successful, mconv_encode_buffer () returns - the number of written bytes. Otherwise it returns -1 and assigns - an error code to the external variable #merror_code. */ - -/***ja - @brief M-text ¤ò¥¨¥ó¥³¡¼¥É¤·¤Æ¥Ð¥Ã¥Õ¥¡ÎÎ°è¤Ë½ñ¤¹þ¤à. - - ´Ø¿ô mconv_encode_buffer () ¤ÏM-text $MT ¤ò¥³¡¼¥É·Ï $NAME ¤Ë´ð¤Å¤¤ - ¤Æ¥¨¥ó¥³¡¼¥É¤·¡¢ÆÀ¤é¤ì¤¿¥Ð¥¤¥ÈÎó¤ò $BUF ¤Î»Ø¤¹¥Ð¥Ã¥Õ¥¡ÎÎ°è¤Ë½ñ¤¹þ - ¤à¡£$N ¤Ï½ñ¤¹þ¤àºÇÂç¥Ð¥¤¥È¿ô¤Ç¤¢¤ë¡£¥¨¥ó¥³¡¼¥É¤ËÉ¬Í×¤Ê¥³¡¼¥É¥³¥ó - ¥Ð¡¼¥¿¤ÎºîÀ®¤È²òÊü¤Ï¼«Æ°Åª¤Ë¹Ô¤Ê¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_encode_buffer () ¤Ï½ñ¤¹þ¤Þ¤ì¤¿¥Ð¥¤¥È - ¿ô¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð-1¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼ - ¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_encode (), mconv_encode_stream () */ - -int -mconv_encode_buffer (MSymbol name, MText *mt, unsigned char *buf, int n) -{ - MConverter *converter = mconv_buffer_converter (name, buf, n); - int ret; - - if (! converter) - return -1; - ret = mconv_encode (converter, mt); - mconv_free_converter (converter); - return ret; -} - -/*=*/ - -/***en - @brief Encode an M-text to write to a stream. - - The mconv_encode_stream () function encodes M-text $MT based on - coding system $NAME and writes the resulting byte sequence to - stream $FP. A temporary code converter for encoding is - automatically created and freed. - - @return - If the operation was successful, mconv_encode_stream () returns - the number of written bytes. Otherwise it returns -1 and assigns - an error code to the external variable #merror_code. */ - -/***ja - @brief M-text ¤ò¥¨¥ó¥³¡¼¥É¤·¤Æ¥¹¥È¥ê¡¼¥à¤Ë½ñ¤¹þ¤à. - - ´Ø¿ô mconv_encode_stream () ¤ÏM-text $MT ¤ò¥³¡¼¥É·Ï $NAME ¤Ë´ð¤Å¤¤ - ¤Æ¥¨¥ó¥³¡¼¥É¤·¡¢ÆÀ¤é¤ì¤¿¥Ð¥¤¥ÈÎó¤ò¥¹¥È¥ê¡¼¥à $FP ¤Ë½ñ¤½Ð¤¹¡£¥¨¥ó - ¥³¡¼¥É¤ËÉ¬Í×¤Ê¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ÎºîÀ®¤È²òÊü¤Ï¼«Æ°Åª¤Ë¹Ô¤Ê¤ï¤ì¤ë¡£ - - @return - ¤â¤·½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_encode_stream () ¤Ï½ñ¤¹þ¤Þ¤ì¤¿¥Ð¥¤¥È¿ô - ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð-1¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É - ¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_IO, @c MERROR_CODING - - @seealso - mconv_encode (), mconv_encode_buffer (), mconv_encode_file () */ - -int -mconv_encode_stream (MSymbol name, MText *mt, FILE *fp) -{ - MConverter *converter = mconv_stream_converter (name, fp); - int ret; - - if (! converter) - return -1; - ret = mconv_encode (converter, mt); - mconv_free_converter (converter); - return ret; -} - -/*=*/ - -/***en - @brief Read a character via a code converter. - - The mconv_getc () function reads one character from the buffer - area or the stream that is currently bound to code converter - $CONVERTER. The decoder of $CONVERTER is used to decode the byte - sequence. The internal status of $CONVERTER is updated - appropriately. - - @return - If the operation was successful, mconv_getc () returns the - character read in. If the input source reaches EOF, it returns @c - EOF without changing the external variable #merror_code. If an - error is detected, it returns @c EOF and assigns an error code to - #merror_code. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿·ÐÍ³¤Ç1Ê¸»úÆÉ¤à. - - ´Ø¿ô mconv_getc () ¤Ï¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤Ë¸½ºß·ë¤ÓÉÕ¤± - ¤é¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼¥à¤«¤é 1 Ê¸»ú¤òÆÉ¤ß¹þ¤à¡£¥Ð - ¥¤¥ÈÎó¤Î¥Ç¥³¡¼¥É¤Ë¤Ï $CONVERTER ¤Î¥Ç¥³¡¼¥À¤¬ÍÑ¤¤¤é¤ì¤ë¡£$CONVERTER - ¤ÎÆâÉô¾õÂÖ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¹¹¿·¤µ¤ì¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_getc () ¤ÏÆÉ¤ß¹þ¤Þ¤ì¤¿Ê¸»ú¤òÊÖ¤¹¡£ÆþÎÏ¸»¤¬ - EOF ¤ËÃ£¤·¤¿¾ì¹ç¤Ï¡¢³°ÉôÊÑ¿ô #merror_code ¤òÊÑ¤¨¤º¤Ë @c EOF ¤òÊÖ¤¹¡£ - ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c EOF ¤òÊÖ¤·¡¢#merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É - ¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CODING - - @seealso - mconv_ungetc (), mconv_putc (), mconv_gets () */ - -int -mconv_getc (MConverter *converter) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - int at_most = converter->at_most; - - mtext_reset (internal->work_mt); - converter->at_most = 1; - mconv_decode (converter, internal->work_mt); - converter->at_most = at_most; - return (converter->nchars == 1 - ? STRING_CHAR (internal->work_mt->data) - : EOF); -} - -/*=*/ - -/***en - @brief Push a character back to a code converter. - - The mconv_ungetc () function pushes character $C back to code - converter $CONVERTER. Any number of characters can be pushed - back. The lastly pushed back character is firstly read by the - subsequent mconv_getc () call. The characters pushed back are - registered only in $CONVERTER; they are not written to the input - source. The internal status of $CONVERTER is updated - appropriately. - - @return - If the operation was successful, mconv_ungetc () returns $C. - Otherwise it returns @c EOF and assigns an error code to the - external variable #merror_code. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤Ë1Ê¸»úÌá¤¹. - - ´Ø¿ô mconv_ungetc () ¤Ï¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤ËÊ¸»ú $C ¤ò - ²¡¤·Ìá¤¹¡£Ìá¤¹Ê¸»ú¿ô¤ËÀ©¸Â¤Ï¤Ê¤¤¡£¤³¤Î¸å¤Ë mconv_getc () ¤ò¸Æ¤Ó½Ð - ¤¹¤È¡¢ºÇ¸å¤ËÌá¤µ¤ì¤¿Ê¸»ú¤¬ºÇ½é¤ËÆÉ¤Þ¤ì¤ë¡£Ìá¤µ¤ì¤¿Ê¸»ú¤Ï - $CONVERTER ¤ÎÆâÉô¤ËÃß¤¨¤é¤ì¤ë¤À¤±¤Ç¤¢¤ê¡¢¼ÂºÝ¤ËÆþÎÏ¸»¤Ë½ñ¤¹þ¤Þ¤ì - ¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¡£$CONVERTER ¤ÎÆâÉô¾õÂÖ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¹¹¿·¤µ¤ì¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_ungetc () ¤Ï $C ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c - EOF ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CODING, @c MERROR_CHAR - - @seealso - mconv_getc (), mconv_putc (), mconv_gets () */ - -int -mconv_ungetc (MConverter *converter, int c) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - M_CHECK_CHAR (c, EOF); - - converter->result = MCONVERSION_RESULT_SUCCESS; - mtext_cat_char (internal->unread, c); - return c; -} - -/*=*/ - -/***en - @brief Write a character via a code converter. - - The mconv_putc () function writes character $C to the buffer area - or the stream that is currently bound to code converter - $CONVERTER. The encoder of $CONVERTER is used to encode the - character. The number of bytes actually written is set to the @c - nbytes member of $CONVERTER. The internal status of $CONVERTER - is updated appropriately. - - @return - If the operation was successful, mconv_putc () returns $C. - If an error is detected, it returns @c EOF and assigns - an error code to the external variable #merror_code. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ò·ÐÍ³¤Ç1Ê¸»ú½ñ¤¯. - - ´Ø¿ô mconv_putc () ¤Ï¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤Ë¸½ºß·ë¤ÓÉÕ¤± - ¤é¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼¥à¤ËÊ¸»ú $C ¤ò½ñ¤½Ð¤¹¡£Ê¸»ú - ¤Î¥¨¥ó¥³¡¼¥É¤Ë¤Ï $CONVERTER ¤Î¥¨¥ó¥³¡¼¥À¤¬ÍÑ¤¤¤é¤ì¤ë¡£¼ÂºÝ¤Ë½ñ¤½Ð - ¤µ¤ì¤¿¥Ð¥¤¥È¿ô¤Ï¡¢$CONVERTER ¤Î ¥á¥ó¥Ð¡¼ @c nbytes ¤Ë¥»¥Ã¥È¤µ¤ì¤ë¡£ - $CONVERTER ¤ÎÆâÉô¾õÂÖ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¹¹¿·¤µ¤ì¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_putc () ¤Ï $C ¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç - ¤Ï @c EOF ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CODING, @c MERROR_IO, @c MERROR_CHAR - - @seealso - mconv_getc (), mconv_ungetc (), mconv_gets () */ - -int -mconv_putc (MConverter *converter, int c) -{ - MConverterStatus *internal = (MConverterStatus *) converter->internal_info; - - M_CHECK_CHAR (c, EOF); - mtext_reset (internal->work_mt); - mtext_cat_char (internal->work_mt, c); - if (mconv_encode_range (converter, internal->work_mt, 0, 1) < 0) - return EOF; - return c; -} - -/*=*/ - -/***en - @brief Read a line using a code converter. - - The mconv_gets () function reads one line from the buffer area or - the stream that is currently bound to code converter $CONVERTER. - The decoder of $CONVERTER is used for decoding. The decoded - character sequence is appended at the end of M-text $MT. The - final newline character in the original byte sequence is not - appended. The internal status of $CONVERTER is updated - appropriately. - - @return - If the operation was successful, mconv_gets () returns the - modified $MT. If it encounters EOF without reading a single - character, it returns $MT without changing it. If an error is - detected, it returns @c NULL and assigns an error code to - #merror_code. */ - -/***ja - @brief ¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿¤ò»È¤Ã¤Æ1¹ÔÆÉ¤à. - - ´Ø¿ô mconv_gets () ¤Ï¡¢¥³¡¼¥É¥³¥ó¥Ð¡¼¥¿ $CONVERTER ¤Ë¸½ºß·ë¤ÓÉÕ¤± - ¤é¤ì¤Æ¤¤¤ë¥Ð¥Ã¥Õ¥¡ÎÎ°è¤¢¤ë¤¤¤Ï¥¹¥È¥ê¡¼¥à¤«¤é 1 ¹Ô¤òÆÉ¤ß¹þ¤à¡£¥Ð¥¤ - ¥ÈÎó¤Î¥Ç¥³¡¼¥É¤Ë¤Ï $CONVERTER ¤Î¥Ç¥³¡¼¥À¤¬ÍÑ¤¤¤é¤ì¤ë¡£¥Ç¥³¡¼¥É¤µ¤ì - ¤¿Ê¸»úÎó¤Ï M-text $MT ¤ÎËöÈø¤ËÄÉ²Ã¤µ¤ì¤ë¡£¸µ¤Î¥Ð¥¤¥ÈÎó¤Î½ªÃ¼²þ¹ÔÊ¸ - »ú¤ÏÄÉ²Ã¤µ¤ì¤Ê¤¤¡£$CONVERTER ¤ÎÆâÉô¾õÂÖ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¹¹¿·¤µ¤ì¤ë¡£ - - @return - ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mconv_gets () ¤ÏÊÑ¹¹¤µ¤ì¤¿ $MT ¤òÊÖ¤¹¡£¤â¤·1Ê¸»ú - ¤âÆÉ¤Þ¤º¤Ë EOF ¤ËÅö¤¿¤Ã¤¿¾ì¹ç¤Ï¡¢$MT ¤òÊÑ¹¹¤»¤º¤Ë¤½¤Î¤Þ¤ÞÊÖ¤¹¡£¥¨ - ¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢#merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤ò - ÀßÄê¤¹¤ë¡£ */ - -/*** - @errors - @c MERROR_CODING - - @seealso - mconv_getc (), mconv_ungetc (), mconv_putc () */ - -MText * -mconv_gets (MConverter *converter, MText *mt) -{ - int c; - - M_CHECK_READONLY (mt, NULL); - if (mt->format != MTEXT_FORMAT_UTF_8) - mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8); - - while (1) - { - c = mconv_getc (converter); - if (c == EOF || c == '\n') - break; - mtext_cat_char (mt, c); - } - if (c == EOF && converter->result != MCONVERSION_RESULT_SUCCESS) - /* mconv_getc () sets #merror_code */ - return NULL; - return mt; -} - -/*=*/ - -/*** @} */ - -/* - Local Variables: - coding: euc-japan - End: -*/ diff --git a/src/coding.h b/src/coding.h deleted file mode 100644 index 2d698eb..0000000 --- a/src/coding.h +++ /dev/null @@ -1,30 +0,0 @@ -/* coding.h -- header file for the code conversion module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -#ifndef _M17N_CODING_H_ -#define _M17N_CODING_H_ - -extern void mconv__register_charset_coding (MSymbol name); - -extern int mcoding__load_from_database (); - -#endif /* _M17N_CODING_H_ */ diff --git a/src/database.c b/src/database.c deleted file mode 100644 index ac406b9..0000000 --- a/src/database.c +++ /dev/null @@ -1,866 +0,0 @@ -/* database.c -- database module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @addtogroup m17nDatabase - @brief The m17n database and API for it. - - The m17n library dynamically acquires various kinds of information - in need from data in the m17n database. Application - programs can also add/load their original data to/from the m17n - database. The m17n database contains multiple heterogeneous data, - and each data is identified by four tags; TAG0, TAG1, TAG2, TAG3. - Each tag must be a symbol. - - TAG0 specifies the type of data stored in the database as below. - - @li - If TAG0 is #Mchar_table, the data is of the @e chartable @e - type and provides information about each character. In this case, - TAG1 specifies the type of the information and must be #Msymbol, - #Minteger, #Mstring, #Mtext, or #Mplist. TAG2 and TAG3 can be any - symbols. - - @li - If TAG0 is #Mcharset, the data is of the @e charset @e type - and provides a decode/encode mapping table for a charset. In this - case, TAG1 must be a symbol representing a charset. TAG2 and TAG3 - can be any symbols. - - @li - If TAG0 is neither #Mchar_table nor #Mcharset, the data is of - the @e plist @e type. See the documentation of the - mdatabase_load () function for the details. - In this case, TAG1, TAG2, and TAG3 can be any symbols. - - The notation \ means a data with those - tags. - - Application programs first calls the mdatabase_find () function to - get a pointer to an object of the type #MDatabase. That object - holds information about the specified data. When it is - successfully returned, the mdatabase_load () function loads the - data. The implementation of the structure #MDatabase is - concealed from application programs. -*/ - -/***ja - @addtogroup m17nDatabase - @brief m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤È¤½¤ì¤Ë´Ø¤¹¤ë API. - - m17n ¥é¥¤¥Ö¥é¥ê¤ÏÉ¬Í×¤Ë±þ¤¸¤ÆÆ°Åª¤Ë @e m17n @e ¥Ç¡¼¥¿¥Ù¡¼¥¹ ¤«¤é¾ð - Êó¤ò¼èÆÀ¤¹¤ë¡£¤Þ¤¿¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤âÆÈ¼«¤Î¥Ç¡¼¥¿¤ò - m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ËÄÉ²Ã¤·¡¢¤½¤ì¤òÆ°Åª¤Ë¼èÆÀ¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£m17n - ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤ÏÊ£¿ô¤ÎÂ¿ÍÍ¤Ê¥Ç¡¼¥¿¤¬´Þ¤Þ¤ì¤Æ¤ª¤ê¡¢³Æ¥Ç¡¼¥¿¤Ï£´¤Ä¤Î - ¥¿¥° TAG0, TAG1, TAG2, TAG3¡Ê¤¹¤Ù¤Æ¥·¥ó¥Ü¥ë¡Ë¤Ë¤è¤Ã¤Æ¼±ÊÌ¤µ¤ì¤ë¡£ - - TAG0 ¤Ï¥Ç¡¼¥¿¥Ù¡¼¥¹Æâ¤Î¥Ç¡¼¥¿¤Î¥¿¥¤¥×¤ò°Ê²¼¤Î¤è¤¦¤Ë»ØÄê¤¹¤ë¡£ - - @li - TAG0 ¤¬ #Mchar_table ¤Ç¤¢¤ë¥Ç¡¼¥¿¤Ï @e chartable¥¿¥¤¥× ¤È¸Æ¤Ð¤ì¡¢ - ³ÆÊ¸»ú¤Ë´Ø¤¹¤ë¾ðÊó¤òÄó¶¡¤¹¤ë¡£¤³¤Î¾ì¹ç TAG1 ¤Ï¾ðÊó¤Î¼ïÎà¤ò»ØÄê¤¹¤ë - ¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢#Msymbol, #Minteger, #Mstring, #Mtext, #Mplist ¤Î - ¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£TAG2 ¤È TAG3 ¤ÏÇ¤°Õ¤Î¥·¥ó¥Ü¥ë¤Ç¤è¤¤¡£ - - @li - TAG0 ¤¬ #Mcharset ¤Ç¤¢¤ë¥Ç¡¼¥¿¤Ï @e charset¥¿¥¤¥× ¤È¸Æ¤Ð¤ì¡¢Ê¸ - »ú¥»¥Ã¥ÈÍÑ¤Î¥Ç¥³¡¼¥É¡¿¥¨¥ó¥³¡¼¥É¥Þ¥Ã¥×¤òÄó¶¡¤¹¤ë¡£¤³¤Î¾ì¹ç TAG1 ¤Ï - Ê¸»ú¥»¥Ã¥È¤Î¥·¥ó¥Ü¥ë¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£TAG2 ¤È TAG3 ¤ÏÇ¤°Õ¤Î¥·¥ó - ¥Ü¥ë¤Ç¤è¤¤¡£ - - @li - TAG0 ¤¬ #Mchar_table ¤Ç¤â #Mcharset ¤Ç¤â¤Ê¤¤¾ì¹ç¡¢¤½¤Î¥Ç¡¼¥¿¤Ï @e - plist ¥¿¥¤¥× ¤Ç¤¢¤ë¡£¾ÜºÙ¤Ë´Ø¤·¤Æ¤Ï´Ø¿ô mdatabase_load () ¤ÎÀâÌÀ¤ò - »²¾È¤Î¤³¤È¡£¤³¤Î¾ì¹ç TAG1¡¢TAG2¡¢TAG3 ¤ÏÇ¤°Õ¤Î¥·¥ó¥Ü¥ë¤Ç¤è¤¤¡£ - - ÆÃÄê¤Î¥¿¥°¤ò»ý¤Ä¥Ç¡¼¥¿¥Ù¡¼¥¹¤ò \ ¤È¤¤¤¦·Á - ¼°¤ÇÉ½¤ï¤¹¡£ - - ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¡¢¤Þ¤º´Ø¿ô mdatabase_find () ¤ò»È¤Ã¤Æ¥Ç¡¼ - ¥¿¥Ù¡¼¥¹¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÝ»ý¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¡Ê#MDatabase ·¿¡Ë¤Ø¤Î - ¥Ý¥¤¥ó¥¿¤òÆÀ¤ë¡£¤½¤ì¤ËÀ®¸ù¤·¤¿¤é¡¢ mdatabase_load () ¤Ë¤è¤Ã¤Æ¼ÂºÝ - ¤Ë¥Ç¡¼¥¿¥Ù¡¼¥¹¤ò¥í¡¼¥É¤¹¤ë¡£¹½Â¤ÂÎ #MDatabase ¼«¿È¤¬¤É¤¦¼ÂÁõ¤µ¤ì - ¤Æ¤¤¤ë¤«¤Ï¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£ - - @latexonly \IPAlabel{database} @endlatexonly -*/ - -/*=*/ - -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include "m17n.h" -#include "m17n-misc.h" -#include "internal.h" -#include "mtext.h" -#include "character.h" -#include "charset.h" -#include "database.h" -#include "coding.h" -#include "plist.h" - -/** The file containing a list of databases. */ -#define MDB_DIR "mdb.dir" -#define MDB_DIR_LEN 8 - -/** List of database directories. */ -static MPlist *mdb_dir_list; - -/** Structure for a data in the m17n database. */ - -struct MDatabase -{ - /** Tags to identify the data. [0] specifies the type of - database. If it is #Mchar_table, the type is @e chartable, if - it is #Mcharset, the type is @e charset, otherwise the type is - @e plist. */ - MSymbol tag[4]; - - void *(*loader) (MSymbol *tags, void *extra_info); - - /** The meaning of the value is dependent on . If - is load_database (), the value is a string of the file name that - contains the data. */ - void *extra_info; -}; - -/** List of all data. */ -struct MDatabaseList -{ - int size, inc, used; - MDatabase *mdbs; -}; - -static struct MDatabaseList mdb_list; - - -static int -read_number (char *buf, int *i) -{ - int idx = *i; - int c = buf[idx++]; - int n; - - if (!c) - return -1; - - while (c && isspace (c)) c = buf[idx++]; - - if (c == '0') - { - if (buf[idx] == 'x') - { - for (idx++, c = 0; (n = hex_mnemonic[(unsigned) buf[idx]]) < 16; - idx++) - c = (c << 4) | n; - *i = idx; - return c; - } - c = 0; - } - else if (c == '\'') - { - c = buf[idx++]; - if (c == '\\') - { - c = buf[idx++]; - n = escape_mnemonic[c]; - if (n != 255) - c = n; - } - while (buf[idx] && buf[idx++] != '\''); - *i = idx; - return c; - } - else if (hex_mnemonic[c] < 10) - c -= '0'; - else - return -1; - - while ((n = hex_mnemonic[(unsigned) buf[idx]]) < 10) - c = (c * 10) + n, idx++; - *i = idx; - return c; -} - - -/** Load a data of type @c chartable from the file FD, and return the - newly created chartable. */ - -static void * -load_chartable (FILE *fp, MSymbol type) -{ - int c, from, to; - char buf[1024]; - void *val; - MCharTable *table; - - if (! fp) - MERROR (MERROR_DB, NULL); - - table = mchartable (type, (type == Msymbol ? (void *) Mnil - : type == Minteger ? (void *) -1 - : NULL)); - - while (! feof (fp)) - { - int i, len; - - for (len = 0; len < 1023 && (c = getc (fp)) != EOF && c != '\n'; len++) - buf[len] = c; - buf[len] = '\0'; - if (hex_mnemonic[(unsigned) buf[0]] >= 10) - /* skip comment/invalid line */ - continue; - i = 0; - from = read_number (buf, &i); - if (buf[i] == '-') - i++, to = read_number (buf, &i); - else - to = from; - if (from < 0 || to < 0) - goto label_error; - - while (buf[i] && isspace ((unsigned) buf[i])) i++; - c = buf[i]; - if (!c) - break; - - if (type == Mstring) - { - /* VAL is a C-string. */ - if (! (val = strdup (buf + i))) - MEMORY_FULL (MERROR_DB); - } - else if (type == Minteger) - { - /* VAL is an integer. */ - int positive = 1; - int n; - - if (c == '-') - i++, positive = -1; - n = read_number (buf, &i); - if (n < 0) - goto label_error; - val = (void *) (n * positive); - } - else if (type == Mtext) - { - /* VAL is an M-text. */ - MText *mt; - if (c == '"') - mt = mconv_decode_buffer (Mcoding_utf_8, - (unsigned char *) (buf + i), - len - i - 1); - else - { - mt = mtext (); - while ((c = read_number (buf, &i)) >= 0) - mt = mtext_cat_char (mt, c); - } - val = (void *) mt; - } - else if (type == Msymbol) - { - if (! strcmp (buf + i, "nil")) - val = (void *) Mnil; - else - val = (void *) msymbol (buf + i); - } - else if (type == Mplist) - { - val = (void *) mplist__from_string ((unsigned char *) buf + i, - strlen (buf + i)); - } - else - val = NULL; - - if (from == to) - mchartable_set (table, from, val); - else - mchartable_set_range (table, from, to, val); - } - return table; - - label_error: - M17N_OBJECT_UNREF (table); - MERROR (MERROR_DB, NULL); -} - - -/** Load a data of type @c charset from the file FD. */ - -static void * -load_charset (FILE *fp, MSymbol charset_name) -{ - MCharset *charset = MCHARSET (charset_name); - int *decoder; - MCharTable *encoder; - int size; - int i, c; - int found = 0; - MPlist *plist; - - if (! charset) - MERROR (MERROR_DB, NULL); - size = (charset->code_range[15] - - (charset->min_code - charset->code_range_min_code)); - MTABLE_MALLOC (decoder, size, MERROR_DB); - for (i = 0; i < size; i++) - decoder[i] = -1; - encoder = mchartable (Minteger, (void *) MCHAR_INVALID_CODE); - - while ((c = getc (fp)) != EOF) - { - unsigned code1, code2, c1, c2; - int idx1, idx2; - char buf[256]; - - ungetc (c, fp); - fgets (buf, 256, fp); - if (c != '#') - { - if (sscanf (buf, "0x%x-0x%x 0x%x", &code1, &code2, &c1) == 3) - { - idx1 = CODE_POINT_TO_INDEX (charset, code1); - if (idx1 >= size) - continue; - idx2 = CODE_POINT_TO_INDEX (charset, code2); - if (idx2 >= size) - idx2 = size - 1; - c2 = c1 + (idx2 - idx1); - } - else if (sscanf (buf, "0x%x 0x%x", &code1, &c1) == 2) - { - idx1 = idx2 = CODE_POINT_TO_INDEX (charset, code1); - if (idx1 >= size) - continue; - c2 = c1; - } - else - continue; - if (idx1 >= 0 && idx2 >= 0) - { - decoder[idx1] = c1; - mchartable_set (encoder, c1, (void *) code1); - for (idx1++, c1++; idx1 <= idx2; idx1++, c1++) - { - code1 = INDEX_TO_CODE_POINT (charset, idx1); - decoder[idx1] = c1; - mchartable_set (encoder, c1, (void *) code1); - } - found++; - } - } - } - - if (! found) - { - free (decoder); - M17N_OBJECT_UNREF (encoder); - return NULL; - } - plist = mplist (); - mplist_add (plist, Mt, decoder); - mplist_add (plist, Mt, encoder); - return plist; -} - -static char * -gen_database_name (char *buf, MSymbol *tags) -{ - int i; - - strcpy (buf, msymbol_name (tags[0])); - for (i = 1; i < 4; i++) - { - strcat (buf, ", "); - strcat (buf, msymbol_name (tags[i])); - } - return buf; -} - -static void * -load_database (MSymbol *tags, void *extra_info) -{ - FILE *fp; - char *filename = (char *) extra_info; - void *value; - - if (filename[0] == '/') - fp = fopen (filename, "r"); - else - { - MPlist *plist; - char path[PATH_MAX]; - - MPLIST_DO (plist, mdb_dir_list) - { - strcpy (path, (char *) MPLIST_VAL (plist)); - strcat (path, filename); - fp = fopen (path, "r"); - if (fp) - break; - } - } - if (! fp) - MERROR (MERROR_DB, NULL); - - if (tags[0] == Mchar_table) - value = load_chartable (fp, tags[1]); - else if (tags[0] == Mcharset) - value = load_charset (fp, tags[1]); - else - value = mplist__from_file (fp); - fclose (fp); - - if (! value) - MERROR (MERROR_DB, NULL); - return value; -} - - -/** Copy DIRNAME to a newly allocated memory and return it. If - DIRNAME does not end with a slash, append a slash to the new memory. */ - -static char * -duplicate_dirname (char *dirname) -{ - struct stat buf; - int len; - char *str; - - if (! dirname - || stat (dirname, &buf) < 0) - return NULL; - - len = strlen (dirname); - MTABLE_MALLOC (str, len + 2, MERROR_DB); - memcpy (str, dirname, len + 1); - if (str[len - 1] != '/') - { - str[len] = '/'; - str[len + 1] = '\0'; - } - return str; -} - - -/* Internal API */ - -int -mdatabase__init () -{ - char *dir; - int i; - MPlist *plist; - FILE *fp; - - Mchar_table = msymbol ("char-table"); - - mdb_dir_list = mplist (); - /** The macro M17NDIR specifies a directory where the system-wide - MDB_DIR file exists. */ - if ((dir = duplicate_dirname (M17NDIR))) - mplist_set (mdb_dir_list, Mt, dir); - - /* The variable mdatabase_dir specifies a directory where an - application program specific MDB_DIR file exists. */ - if ((dir = duplicate_dirname (mdatabase_dir))) - mplist_push (mdb_dir_list, Mt, dir); - - /* The environment variable M17NDIR (if non-NULL) specifies a - directory where a user specific MDB_DIR file exists. */ - if ((dir = duplicate_dirname (getenv ("M17NDIR")))) - mplist_push (mdb_dir_list, Mt, dir); - - MLIST_INIT1 (&mdb_list, mdbs, 256); - MPLIST_DO (plist, mdb_dir_list) - { - MPlist *pl, *p; - int len; - char path[PATH_MAX]; - - dir = (char *) MPLIST_VAL (plist); - len = strlen (dir); - if (len + MDB_DIR_LEN >= PATH_MAX) - continue; - memcpy (path, dir, len); - memcpy (path + len, MDB_DIR, MDB_DIR_LEN); - if (! (fp = fopen (path, "r"))) - continue; - pl = mplist__from_file (fp); - fclose (fp); - if (! pl) - continue; - MPLIST_DO (p, pl) - { - MDatabase mdb; - MPlist *p1; - int nbytes; - - if (! MPLIST_PLIST_P (p)) - continue; - for (i = 0, p1 = MPLIST_PLIST (p); - i < 4 && MPLIST_KEY (p1) == Msymbol; - i++, p1 = MPLIST_NEXT (p1)) - mdb.tag[i] = MPLIST_SYMBOL (p1); - if (i == 0 - || ! MPLIST_MTEXT_P (p1)) - continue; - for (; i < 4; i++) - mdb.tag[i] = Mnil; - if (mdatabase_find (mdb.tag[0], mdb.tag[1], - mdb.tag[2], mdb.tag[3])) - continue; - - mdb.loader = load_database; - nbytes = mconv_encode_buffer (Mcoding_utf_8, MPLIST_MTEXT (p1), - (unsigned char *) path, PATH_MAX); - if (nbytes < 0 || nbytes >= PATH_MAX) - continue; - path[nbytes++] = '\0'; - mdb.extra_info = (void *) strdup (path); - MLIST_APPEND1 (&mdb_list, mdbs, mdb, MERROR_DB); - } - M17N_OBJECT_UNREF (pl); - } - - mdatabase__finder = ((void *(*) (MSymbol, MSymbol, MSymbol, MSymbol)) - mdatabase_find); - mdatabase__loader = (void *(*) (void *)) mdatabase_load; - - return 0; -} - -void -mdatabase__fini (void) -{ - int i; - MPlist *plist; - - MPLIST_DO (plist, mdb_dir_list) - free (MPLIST_VAL (plist)); - M17N_OBJECT_UNREF (mdb_dir_list); - - for (i = 0; i < mdb_list.used; i++) - { - MDatabase *mdb = mdb_list.mdbs + i; - - if (mdb->loader == load_database) - free (mdb->extra_info); - } - MLIST_FREE1 (&mdb_list, mdbs); -} - -/*** @} */ -#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ - - -/* External API */ - -/*** @addtogroup m17nDatabase */ -/*** @{ */ - -/*=*/ -/***en - @brief Directory for application specific data. - - If an application program wants to provide a data specific to the - program or a data overriding what supplied by the m17n database, - it must set this variable to a name of directory that contains the - data files before it calls the macro M17N_INIT (). The directory - may contain a file "mdb.dir" which contains a list of data - definitions in the format described in @ref mdbDir "mdbDir(5)". - - The default value is NULL. */ -/***ja - @brief ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¸ÇÍ¤Î¥Ç¡¼¥¿ÍÑ¥Ç¥£¥ì¥¯¥È¥ê. - - ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤¬¡¢¤½¤Î¥×¥í¥°¥é¥à¸ÇÍ¤Î¥Ç¡¼¥¿¤ä m17n ¥Ç¡¼ - ¥¿¥Ù¡¼¥¹¤ò¾å½ñ¤¤¹¤ë¥Ç¡¼¥¿¤òÄó¶¡¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢¥Þ¥¯¥í M17N_INIT () - ¤ò¸Æ¤ÖÁ°¤Ë¤³¤ÎÊÑ¿ô¤ò¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥êÌ¾¤Ë¥»¥Ã¥È¤·¤Ê - ¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤Ï "mdb.dir" ¥Õ¥¡¥¤¥ë¤ò¤ª¤¯¤³¤È¤¬¤Ç - ¤¤ë¡£¤½¤Î"mdb.dir"¥Õ¥¡¥¤¥ë¤Ë¤Ï¡¢ @ref mdbDir "mdbDir(5)" ¤ÇÀâÌÀ¤µ - ¤ì¤Æ¤¤¤ë¥Õ¥©¡¼¥Þ¥Ã¥È¤Ç¥Ç¡¼¥¿ÄêµÁ¤Î¥ê¥¹¥È¤òµ½Ò¤¹¤ë¡£ - - ¥Ç¥Õ¥©¥ë¥È¤ÎÃÍ¤Ï NULL ¤Ç¤¢¤ë¡£ */ - -char *mdatabase_dir; - -/*=*/ -/***en - @brief Look for a data in the database. - - The mdatabase_find () function searches the m17n database for a - data who has tags $TAG0 through $TAG3, and returns a pointer to - the data. If such a data is not found, it returns @c NULL. */ - -/***ja - @brief ¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤Î¥Ç¡¼¥¿¤òÃµ¤¹. - - ´Ø¿ô mdatabase_find () ¤Ï¡¢ m17n ¸À¸ì¾ðÊó¥Ù¡¼¥¹Ãæ¤Ç $TAG0 ¤«¤é - $TAG3 ¤Þ¤Ç¤Î¥¿¥°¤ò»ý¤Ä¥Ç¡¼¥¿¤òÃµ¤·¡¢¤½¤ì¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤Î¤è - ¤¦¤Ê¥Ç¡¼¥¿¤¬¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£ - - @latexonly \IPAlabel{mdatabase_find} @endlatexonly */ - -MDatabase * -mdatabase_find (MSymbol tag0, MSymbol tag1, MSymbol tag2, MSymbol tag3) -{ - int i; - - for (i = 0; i < mdb_list.used; i++) - { - MDatabase *mdb = mdb_list.mdbs + i; - - if (tag0 == mdb->tag[0] - && tag1 == mdb->tag[1] - && tag2 == mdb->tag[2] - && tag3 == mdb->tag[3]) - return mdb; - } - return NULL; -} - -/*=*/ -/***en - @brief Return a data list of the m17n database. - - The mdatabase_list () function searches the m17n database for data - who have tags $TAG0 through $TAG3, and returns their list by a - plist. The value #Mnil in $TAGn means a wild card that matches - any tag. Each element of the plist has key #Mt and value a - pointer to type #MDatabase. */ -/***ja - @brief m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥Ç¡¼¥¿¥ê¥¹¥È¤òÊÖ¤¹. - - ´Ø¿ô mdatabase_list () ¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤«¤é $TAG0 ¤«¤é$TAG3 - ¤Þ¤Ç¤Î¥¿¥°¤ò»ý¤Ä¥Ç¡¼¥¿¤òÃµ¤·¡¢¤½¤Î¥ê¥¹¥È¤òplist ¤È¤·¤ÆÊÖ¤¹¡£ $TAGn - ¤¬ #Mnil ¤Ç¤¢¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢Ç¤°Õ¤Î¥¿¥°¤Ë¥Þ¥Ã¥Á¤¹¤ë¥ï¥¤¥ë¥É¥«¡¼¥É¤È - ¤·¤Æ¼è¤ê°·¤ï¤ì¤ë¡£ÊÖ¤µ¤ì¤ë plist ¤Î³ÆÍ×ÁÇ¤Ï¥¡¼ ¤È¤·¤Æ #Mt ¤ò¡¢ÃÍ - ¤È¤·¤Æ #MDatabase ·¿¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý¤Ä¡£ */ - - -MPlist * -mdatabase_list (MSymbol tag0, MSymbol tag1, MSymbol tag2, MSymbol tag3) -{ - int i; - MPlist *plist = NULL, *pl; - - for (i = 0; i < mdb_list.used; i++) - { - MDatabase *mdb = mdb_list.mdbs + i; - - if ((tag0 == Mnil || tag0 == mdb->tag[0]) - && (tag1 == Mnil || tag1 == mdb->tag[1]) - && (tag2 == Mnil || tag2 == mdb->tag[2]) - && (tag3 == Mnil || tag3 == mdb->tag[3])) - { - if (! plist) - plist = pl = mplist (); - pl = mplist_add (pl, Mt, mdb); - } - } - return plist; -} - - - -/*=*/ -/***en - @brief Define a data of the m17n database. - - The mdatabase_define () function defines a data that has tags - $TAG0 through $TAG3 and additional information $EXTRA_INFO. - - $LOADER is a pointer to a function that loads the data from the - database. This function is called from the mdatabase_load () - function with the two arguments $TAGS and $EXTRA_INFO. Here, - $TAGS is the array of $TAG0 through $TAG3. - - If $LOADER is @c NULL, the default loader of the m17n library is - used. In this case, $EXTRA_INFO must be a string specifying a - filename that contains the data. - - @return - If the operation was successful, mdatabase_define () returns a - pointer to the defined data, which can be used as an argument to - mdatabase_load (). Otherwise, it returns @c NULL. */ - -/***ja - @brief m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥Ç¡¼¥¿¤òÄêµÁ¤¹¤ë. - - ´Ø¿ô mdatabase_define () ¤Ï $TAG0 ¤«¤é $TAG3 ¤Þ¤Ç¤Î¥¿¥°¤ª¤è¤ÓÉÕ²Ã - ¾ðÊó $EXTRA_INFO ¤ò»ý¤Ä¥Ç¡¼¥¿¤òÄêµÁ¤¹¤ë¡£ - - $LOADER ¤Ï¤½¤Î¥Ç¡¼¥¿¤Î¥í¡¼¥É¤ËÍÑ¤¤¤é¤ì¤ë´Ø¿ô¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¤³ - ¤Î´Ø¿ô¤Ï mdatabase_load () ¤«¤é $TAGS ¤È $EXTRA_INFO ¤È¤¤¤¦2 ¤Ä¤Î - °ú¿ôÉÕ¤¤Ç¸Æ¤Ó½Ð¤µ¤ì¤ë¡£¤³¤³¤Ç $TAGS ¤Ï $TAG0 ¤«¤é $TAG3 ¤Þ¤Ç¤ÎÇÛ - Îó¤Ç¤¢¤ë¡£ - - ¤â¤· $LOADER ¤¬ @c NULL ¤Ê¤é¡¢m17n ¥é¥¤¥Ö¥é¥êÉ¸½à¤Î¥í¡¼¥À¤¬»È¤ï¤ì - ¤ë¡£¤³¤Î¾ì¹ç¤Ë¤Ï $EXTRA_INFO ¤Ï¥Ç¡¼¥¿¤ò´Þ¤à¥Õ¥¡¥¤¥ëÌ¾¤Ç¤Ê¤¯¤Æ¤Ï¤Ê - ¤é¤Ê¤¤¡£ - - @return - ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mdatabase_define () ¤ÏÄêµÁ¤µ¤ì¤¿¥Ç¡¼¥¿¥Ù¡¼ - ¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤³¤Î¥Ý¥¤¥ó¥¿¤Ï´Ø¿ô mdatabase_load () ¤Î°ú¿ô - ¤È¤·¤ÆÍÑ¤¤¤ë¤³¤È¤¬¤Ç¤¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£ - - @latexonly \IPAlabel{mdatabase_define} @endlatexonly */ - -/*** - @seealso - mdatabase_load (), mdatabase_define () */ - -MDatabase * -mdatabase_define (MSymbol tag0, MSymbol tag1, MSymbol tag2, MSymbol tag3, - void *(*loader) (MSymbol *, void *), - void *extra_info) -{ - MDatabase *mdb; - - mdb = mdatabase_find (tag0, tag1, tag2, tag3); - if (! mdb) - { - MDatabase template; - - template.tag[0] = tag0, template.tag[1] = tag1; - template.tag[2] = tag2, template.tag[3] = tag3; - MLIST_APPEND1 (&mdb_list, mdbs, template, MERROR_DB); - mdb = mdb_list.mdbs + (mdb_list.used - 1); - } - mdb->loader = loader ? loader : load_database; - mdb->extra_info = extra_info; - if (mdb->loader == load_database) - mdb->extra_info = strdup ((char *) extra_info); - return (&(mdb_list.mdbs[mdb_list.used - 1])); -} - -/*=*/ -/***en - @brief Load a data from the database. - - The mdatabase_load () function loads a data specified in $MDB and - returns the contents. The type of contents depends on the type of - the data. - - If the data is of the @e plist type, this function returns a - pointer to @e plist. - - If the database is of the @e chartable type, it returns a - chartable. The default value of the chartable is set according to - the second tag of the data as below: - - @li If the tag is #Msymbol, the default value is #Mnil. - @li If the tag is #Minteger, the default value is -1. - @li Otherwise, the default value is @c NULL. - - If the data is of the @e charset type, it returns a plist of length 2 - (keys are both #Mt). The value of the first element is an array - of integers that maps code points to the corresponding character - codes. The value of the second element is a chartable of integers - that does the reverse mapping. The charset must be defined in - advance. */ - - -/***ja - @brief ¥Ç¡¼¥¿¥Ù¡¼¥¹¤«¤é¥Ç¡¼¥¿¤ò¥í¡¼¥É¤¹¤ë. - - ´Ø¿ô mdatabase_load () ¤Ï $MDB ¤¬»Ø¤¹¥Ç¡¼¥¿¤ò¥í¡¼¥É¤·¡¢¤½¤Î - Ãæ¿È¤òÊÖ¤¹¡£ÊÖ¤µ¤ì¤ë¤â¤Î¤Ï¥Ç¡¼¥¿¤Î¥¿¥¤¥×¤Ë¤è¤Ã¤Æ°Û¤Ê¤ë¡£ - - ¥Ç¡¼¥¿¤¬ @e plist ¥¿¥¤¥×¤Ê¤é¤Ð¡¢ @e plist ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£ - - ¥Ç¡¼¥¿¤¬ @e chartable ¥¿¥¤¥×¤Ê¤é¤ÐÊ¸»ú¥Æ¡¼¥Ö¥ë¤òÊÖ¤¹¡£Ê¸»ú¥Æ¡¼¥Ö¥ë - ¤Î¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï¡¢¥Ç¡¼¥¿¤ÎÂè2¥¿¥°¤Ë¤è¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë·è¤Þ¤ë¡£ - - @li ¥¿¥°¤¬ #Msymbol ¤Ê¤é¡¢¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï #Mnil - @li ¥¿¥°¤¬ #Minteger ¤Ê¤é¡¢¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï -1 - @li ¤½¤ì°Ê³°¤Ê¤é¡¢¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï @c NULL - - ¥Ç¡¼¥¿¤¬ @e charset ¥¿¥¤¥×¤Ê¤é¤ÐÄ¹¤µ 2 ¤Î plist ¤òÊÖ¤¹¡Ê¥¡¼¤Ï¶¦¤Ë - #Mt ¡Ë¡£ºÇ½é¤ÎÍ×ÁÇ¤ÎÃÍ¤Ï¥³¡¼¥É¥Ý¥¤¥ó¥È¤òÂÐ±þ¤¹¤ëÊ¸»ú¥³¡¼¥É¤Ë¥Þ¥Ã¥× - ¤¹¤ëÀ°¿ô¤ÎÇÛÎó¤Ç¤¢¤ë¡££²ÈÖÌÜ¤ÎÍ×ÁÇ¤ÎÃÍ¤ÏµÕ¤Î¥Þ¥Ã¥×¤ò¤¹¤ëÊ¸»ú¥Æ¡¼¥Ö - ¥ë¤Ç¤¢¤ë¡£¤³¤ÎÊ¸»ú¥»¥Ã¥È¤ÏÍ½¤áÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ - - @latexonly \IPAlabel{mdatabase_load} @endlatexonly - */ - -/*** - @seealso - mdatabase_load (), mdatabase_define () */ - -void * -mdatabase_load (MDatabase *mdb) -{ - int mdebug_mask = MDEBUG_DATABASE; - char buf[256]; - - MDEBUG_PRINT1 (" [DATABASE] loading <%s>.\n", - gen_database_name (buf, mdb->tag)); - return (*mdb->loader) (mdb->tag, mdb->extra_info); -} - -/*=*/ -/***en - @brief Get tags of a data. - - The mdatabase_tag () function returns an array of tags (symbols) - that identify the data in $MDB. The length of the array is - four. */ - -/***ja - @brief ¥Ç¡¼¥¿¤Î¥¿¥°¤òÆÀ¤ë. - - ´Ø¿ô mdatabase_tag () ¤Ï¡¢¥Ç¡¼¥¿ $MDB ¤Î¥¿¥°¡Ê¥·¥ó¥Ü¥ë¡Ë¤ÎÇÛÎó¤òÊÖ - ¤¹¡£ÇÛÎó¤ÎÄ¹¤µ¤Ï 4 ¤Ç¤¢¤ë¡£ - - @latexonly \IPAlabel{mdatabase_tag} @endlatexonly */ - -MSymbol * -mdatabase_tag (MDatabase *mdb) -{ - return mdb->tag; -} - -/*** @} */ - -/* - Local Variables: - coding: euc-japan - End: -*/ diff --git a/src/database.h b/src/database.h deleted file mode 100644 index a6d948d..0000000 --- a/src/database.h +++ /dev/null @@ -1,30 +0,0 @@ -/* database.h -- header file for the database module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -#ifndef _M17N_DATABASE_H_ -#define _M17N_DATABASE_H_ - -#ifndef M17NDIR -#define M17NDIR "/usr/local/share/m17n" -#endif - -#endif /* not _M17N_DATABASE_H_ */ diff --git a/src/draw.c b/src/draw.c deleted file mode 100644 index 05b6f24..0000000 --- a/src/draw.c +++ /dev/null @@ -1,2864 +0,0 @@ -/* draw.c -- drawing module. - Copyright (C) 2003, 2004 - National Institute of Advanced Industrial Science and Technology (AIST) - Registration Number H15PRO112 - - This file is part of the m17n library. - - The m17n library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - The m17n library 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 - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the m17n library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307, USA. */ - -/***en - @addtogroup m17nDraw - @brief Drawing M-texts on a window. - - The m17n GUI API provides functions to draw M-texts. - - The fonts used for drawing are selected automatically based on the - fontset and the properties of a face. A face also specifies the - appearance of M-texts, i.e. font size, color, underline, etc. - - The drawing format of M-texts can be controlled in a variety of - ways, which provides powerful 2-dimensional layouting - facility. */ - -/***ja - @addtogroup m17nDraw - @brief M-text ¤ò¥¦¥£¥ó¥É¥¦¤ËÉÁ²è¤¹¤ë. - - m17n-gui API ¤Ë¤Ï¡¢M-text ¤òÉ½¼¨¤¹¤ë¤¿¤á¤Î´Ø¿ô¤¬ÍÑ°Õ¤µ¤ì¤Æ¤¤¤ë¡£ - - É½¼¨¤ËÍÑ¤¤¤é¤ì¤ë¥Õ¥©¥ó¥È¤Ï¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤È face ¥×¥í¥Ñ¥Æ¥£¤Ë´ð¤Å - ¤¤¤Æ¼«Æ°Åª¤Ë·èÄê¤µ¤ì¤ë¡£¤Þ¤¿¡¢¥Õ¥©¥ó¥È¤Î¥µ¥¤¥º¤ä¿§¤ä²¼Àþ¤Ê¤É¤Î¸«±É - ¤¨¤â face ¤Ë¤è¤Ã¤Æ·è¤Þ¤ë¡£ - - M-text ¤ÎÉÁ²è¥Õ¥©¡¼¥Þ¥Ã¥È¤ÏÂ¿ÍÍ¤ÊÊýË¡¤ÇÀ©¸æ¤Ç¤¤ë¤Î¤Ç¡¢¶¯ÎÏ¤ÊÆó¼¡ - ¸µ¥ì¥¤¥¢¥¦¥Èµ¡Ç½¤¬¼Â¸½¤Ç¤¤ë¡£ - */ - -/*=*/ - -#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE) -/*** @addtogroup m17nInternal - @{ */ - -#include -#include -#include -#include -#include - -#include "config.h" -#include "m17n-gui.h" -#include "m17n-misc.h" -#include "internal.h" -#include "symbol.h" -#include "textprop.h" -#include "internal-gui.h" -#include "face.h" -#include "font.h" - -#ifdef HAVE_FRIBIDI -#include -#endif /* HAVE_FRIBIDI */ - -#define MAX(x, y) ((x) > (y) ? (x) : (y)) -#define MIN(x, y) ((x) < (y) ? (x) : (y)) - -static MSymbol M_glyph_string; - -/* Special scripts */ -static MSymbol Mlatin, Minherited; -/* Special categories */ -static MSymbol McatCc, McatCf; - - -/* Glyph-string composer. */ - -static MSymbol MbidiR; -static MSymbol MbidiAL; -static MSymbol MbidiRLE; -static MSymbol MbidiRLO; -static MSymbol MbidiBN; -static MSymbol MbidiS; - -static void -visual_order (MGlyphString *gstring) -{ - int len = gstring->used - 2; - MGlyph *glyphs; - int *idx = alloca (sizeof (int) * len); - int gidx; - int bidi_sensitive = gstring->control.orientation_reversed; - int size = 0; - MGlyph *g = MGLYPH (1); - int i; -#ifdef HAVE_FRIBIDI - FriBidiCharType base = (gstring->control.orientation_reversed - ? FRIBIDI_TYPE_RTL : FRIBIDI_TYPE_LTR); - FriBidiChar *logical = alloca (sizeof (FriBidiChar) * len); - FriBidiChar *visual; - FriBidiStrIndex *indices; - FriBidiLevel *levels = alloca (sizeof (FriBidiLevel) * len); -#else /* not HAVE_FRIBIDI */ - int *logical = alloca (sizeof (int) * len); - int *indices; - char *levels = alloca (len); -#endif /* not HAVE_FRIBIDI */ - - while (g->type != GLYPH_ANCHOR) - { - MSymbol bidi = (MSymbol) mchar_get_prop (g->c, Mbidi_category); - - if (bidi == MbidiR || bidi == MbidiAL - || bidi == MbidiRLE || bidi == MbidiRLO) - { - bidi_sensitive = 1; - levels[size] = 1; - } - else - levels[size] = 0; - idx[size] = GLYPH_INDEX (g); - logical[size++] = g++->c; - while (g->type != GLYPH_ANCHOR && g->combining_code) - g++; - } - - if (! bidi_sensitive) - return; - - glyphs = alloca (sizeof (MGlyph) * gstring->used); - memcpy (glyphs, gstring->glyphs, (sizeof (MGlyph) * gstring->used)); -#ifdef HAVE_FRIBIDI - visual = alloca (sizeof (FriBidiChar) * size); - indices = alloca (sizeof (FriBidiStrIndex) * size); - - fribidi_log2vis (logical, size, &base, visual, NULL, indices, levels); -#else /* not HAVE_FRIBIDI */ - indices = alloca (sizeof (int) * size); - for (i = 0; i < size; i++) - { - if (levels[i]) - { - int j, k; - - for (j = i + 1; j < size && levels[j]; j++); - for (k = j--; i < k; i++, j--) - indices[i] = j; - i--; - } - else - indices[i] = i; - } -#endif /* not HAVE_FRIBIDI */ - - /* IDX are indices to gstring->glyphs[]. The glyphs for LOGICAL[N] - starts from gstring->glyphs[IDX[N]]. - - INDICES are indices to LOGICAL[]. The glyph for VISUAL[N] is - originally at LOGICAL[INDICES[N]]. */ - - for (i = 0, gidx = 1; i < size; i++) - { - int j = indices[i]; - int k = idx[j]; - - glyphs[k].bidi_level = levels[j]; -#ifdef HAVE_FRIBIDI - if (visual[i] != logical[j]) - { - /* Mirrored. */ - glyphs[k].c = visual[i]; - if (glyphs[k].rface->rfont) - glyphs[k].code = mfont__encode_char (glyphs[k].rface->rfont, - glyphs[k].c); - } -#endif /* not HAVE_FRIBIDI */ - *(MGLYPH (gidx)) = glyphs[k]; - for (gidx++, k++; - k < gstring->used - 1 && glyphs[k].combining_code; - gidx++, k++) - { - glyphs[k].bidi_level = levels[j]; - *(MGLYPH (gidx)) = glyphs[k]; - } - } -} - -static void -reorder_combining_chars (MGlyphString *gstring, int from, int to) -{ - MGlyph *g, *gbeg = MGLYPH (from + 1), *gend = MGLYPH (to), temp; - int reordered = 1; - - while (reordered) - { - reordered = 0; - for (g = gbeg; g != gend; g++) - if (COMBINING_CODE_CLASS (g->combining_code) > 0 - && (COMBINING_CODE_CLASS (g[-1].combining_code) - > COMBINING_CODE_CLASS (g->combining_code))) - { - reordered = 1; - temp = *g; - *g = g[-1]; - g[-1] = temp; - } - } -} - - -/** Scan M-text MT from FROM to TO, and compose glyphs in GSTRING for - displaying them on FRAME. - - This function fills members , , , , , -

 of glyphs.  The other members are filled by
-    layout_glyph_string.  */
-
-static void
-compose_glyph_string (MFrame *frame, MText *mt, int from, int to,
-		      MGlyphString *gstring)
-{
-  MRealizedFace *default_rface = frame->rface;
-  int stop, face_change, language_change, charset_change;
-  MGlyph g_tmp, *g;
-  int pos;
-  MSymbol language = Mnil, script = Mnil, charset = Mnil;
-  MRealizedFace *rface = default_rface;
-  int size = gstring->control.fixed_width;
-  int i;
-  int last;
-
-  MLIST_RESET (gstring);
-  gstring->from = from;
-
-  /* At first generate glyphs while using the member  as a
-     flag for rface re-checking.  */
-  INIT_GLYPH (g_tmp);
-
-  /** Put anchor glyphs at the head and tail.  */
-  g_tmp.type = GLYPH_ANCHOR;
-  g_tmp.pos = g_tmp.to = from;
-  g_tmp.c = 0;
-  APPEND_GLYPH (gstring, g_tmp);
-
-  stop = face_change = charset_change = language_change = pos = from;
-  last = 0;
-  while (1)
-    {
-      int c;
-      MSymbol this_script;
-
-      if (pos < mtext_nchars (mt))
-	c = mtext_ref_char (mt, pos);
-      else
-	c = '\n';
-      if (c < 0x100)
-	{
-	  /* Short cut for the obvious case.  */
-	  g_tmp.category = Mnil;
-	  if (c == ' ' || c == '\n' || c == '\t')
-	    g_tmp.type = GLYPH_SPACE, this_script = Mnil;
-	  else
-	    g_tmp.type = GLYPH_CHAR, this_script = Mlatin;
-	}
-      else
-	{
-	  g_tmp.category = mchar_get_prop (c, Mcategory);
-	  g_tmp.type = GLYPH_CHAR;
-	  this_script = (MSymbol) mchar_get_prop (c, Mscript);
-	  if (this_script == Minherited || this_script == Mnil)
-	    this_script = script;
-	  if (this_script == Mnil)
-	    /* Search forward for a character that explicitly
-	       specifies a script.  */
-	    for (i = pos + 1; i < to; i++)
-	      {
-		int c1 = mtext_ref_char (mt, i); 
-		MSymbol sym = ((c1 > 0x20 && c1 < 0x100) ? Mlatin
-			       : mchar_get_prop (c1, Mscript));
-		
-		if (sym != Minherited && sym != Mnil)
-		  {
-		    this_script = sym;
-		    break;
-		  }
-	      }
-	}
-
-      if (pos == stop || script != this_script
-	  || MGLYPH (last)->type != g_tmp.type)
-	{
-	  g = MGLYPH (last);
-	  if (g->type == GLYPH_CHAR)
-	    while (g < gstring->glyphs + gstring->used)
-	      g = mface__for_chars (script, language, charset,
-				    g, gstring->glyphs + gstring->used, size);
-	  if (pos == to)
-	    break;
-	  last = gstring->used;
-	  script = this_script;
-	  if (pos == stop)
-	    {
-	      if (pos < mtext_nchars (mt) && pos == language_change)
-		{
-		  language = (MSymbol) mtext_get_prop (mt, pos, Mlanguage);
-		  mtext_prop_range (mt, Mlanguage, pos, NULL,
-				    &language_change, 0);
-		}
-	      if (pos < mtext_nchars (mt) && pos == charset_change)
-		{
-		  charset = (MSymbol) mtext_get_prop (mt, pos, Mcharset);
-		  mtext_prop_range (mt, Mcharset, pos, NULL,
-				    &charset_change, 0);
-		}
-	      if (pos < mtext_nchars (mt) && pos == face_change)
-		{
-		  MFace *faces[64];
-		  int num = mtext_get_prop_values (mt, pos, Mface,
-						   (void **) faces, 64);
-
-		  mtext_prop_range (mt, Mface, pos, NULL, &face_change, 1);
-		  rface = (num > 0
-			   ? mface__realize (frame, faces, num,
-					     language, charset, size)
-			   : default_rface);
-		}
-	      stop = to;
-	      if (stop > language_change)
-		stop = language_change;
-	      if (stop > charset_change)
-		stop = charset_change;
-	      if (face_change < stop)
-		stop = face_change;		
-	    }
-	}
-
-      g_tmp.c = c;
-      g_tmp.pos = pos++;
-      g_tmp.to = pos;
-      g_tmp.rface = rface;
-      
-      if ((c <= 32 || c == 127) && g_tmp.type == GLYPH_CHAR)
-	{
-	  g_tmp.c = '^';
-	  APPEND_GLYPH (gstring, g_tmp);
-	  if (c < ' ')
-	    g_tmp.c = c + 0x40;
-	  else
-	    g_tmp.c = '?';
-	}
-      APPEND_GLYPH (gstring, g_tmp);
-      if (c == '\n'
-	  && gstring->control.two_dimensional)
-	break;
-    }
-
-  /* Append an anchor glyph.  */
-  g_tmp.type = GLYPH_ANCHOR;
-  g_tmp.c = 0;
-  g_tmp.code = MCHAR_INVALID_CODE;
-  g_tmp.pos = g_tmp.to = pos;
-  g_tmp.rface = NULL;
-  APPEND_GLYPH (gstring, g_tmp);
-
-  gstring->to = pos;
-
-  /* Next, run FLT if necessary.  */
-  for (i = 1, g = MGLYPH (i); g->type != GLYPH_ANCHOR;)
-    {
-      MGlyph *this = g;
-
-      if (this->type == GLYPH_CHAR && this->rface->rfont)
-	{
-	  int start = i++;
-
-	  if (this->rface->rfont->layouter != Mnil)
-	    {
-	      MGlyph *prev;
-	      unsigned code;
-
-	      for (prev = MGLYPH (start - 1);
-		   (prev->type == GLYPH_CHAR
-		    && prev->category == McatCf
-		    && (code = mfont__encode_char (this->rface->rfont, prev->c)
-			!= MCHAR_INVALID_CODE));
-		   start--, prev--)
-		prev->code = code;
-
-	      for (g++;
-		   (g->type == GLYPH_CHAR
-		    && (g->rface->rfont == this->rface->rfont
-			|| (g->category == McatCf
-			    && ((code = mfont__encode_char (this->rface->rfont,
-							    g->c))
-				!= MCHAR_INVALID_CODE))));
-		   i++, g++)
-		if (g->rface->rfont != this->rface->rfont)
-		  {
-		    g->rface->rfont = this->rface->rfont;
-		    g->code = code;
-		  }
-	      i = mfont__flt_run (gstring, start, i, this->rface);
-	    }
-	  else
-	    {
-	      while (this->type == GLYPH_CHAR
-		     && this->c >= 0x100
-		     && this->category
-		     && MSYMBOL_NAME (this->category)[0] == 'M'
-		     && this->rface->rfont
-		     && this->rface->rfont->layouter == Mnil)
-		{
-		  int class = (int) mchar_get_prop (this->c,
-						    Mcombining_class);
-		  this->combining_code
-		    = MAKE_COMBINING_CODE_BY_CLASS (class);
-		  i++, this++;
-		}
-	      if (start + 1 < i)
-		reorder_combining_chars (gstring, start, i);
-	      if (this->type == GLYPH_ANCHOR)
-		break;
-	    }
-	  g = MGLYPH (i);
-	}
-      else
-	i++, g++;
-    }
-
-  /* At last, reorder glyphs visually if necessary.  */
-  if (gstring->control.enable_bidi)
-    visual_order (gstring);
-}
-
-
-static int
-combining_code_from_class (int class)
-{
-  int code;
-
-  if (class < 200)
-    code = MAKE_COMBINING_CODE (3, 1, 3, 1, 128, 128);
-  else if (class == 200)	/* below left attached */
-    code = MAKE_COMBINING_CODE (2, 0, 0, 1, 128, 128);
-  else if (class == 202)	/* below attached*/
-    code = MAKE_COMBINING_CODE (2, 1, 0, 1, 128, 128);
-  else if (class == 204)	/* below right attached */
-    code = MAKE_COMBINING_CODE (2, 2, 0, 1, 128, 128);
-  else if (class == 208)	/* left attached */
-    code = MAKE_COMBINING_CODE (3, 0, 3, 2, 128, 128);
-  else if (class == 210)	/* right attached */
-    code = MAKE_COMBINING_CODE (3, 2, 3, 0, 128, 128);
-  else if (class == 212)	/* above left attached */
-    code = MAKE_COMBINING_CODE (0, 0, 2, 1, 128, 128);
-  else if (class == 214)	/* above attached */
-    code = MAKE_COMBINING_CODE (0, 1, 2, 1, 128, 128);
-  else if (class == 216)	/* above right attached */
-    code = MAKE_COMBINING_CODE (0, 2, 2, 1, 128, 128);
-  else if (class == 218)	/* below left */
-    code = MAKE_COMBINING_CODE (2, 0, 0, 1, 122, 128);
-  else if (class == 220)	/* below */
-    code = MAKE_COMBINING_CODE (2, 1, 0, 1, 122, 128);
-  else if (class == 222)	/* below right */
-    code = MAKE_COMBINING_CODE (2, 2, 0, 1, 122, 128);
-  else if (class == 224)	/* left */
-    code = MAKE_COMBINING_CODE (3, 0, 3, 2, 128, 122);
-  else if (class == 226)	/* right */
-    code = MAKE_COMBINING_CODE (3, 2, 3, 0, 128, 133);
-  else if (class == 228)	/* above left */
-    code = MAKE_COMBINING_CODE (0, 0, 2, 1, 133, 128);
-  else if (class == 230)	/* above */
-    code = MAKE_COMBINING_CODE (0, 1, 2, 1, 133, 128);
-  else if (class == 232)	/* above right */
-    code = MAKE_COMBINING_CODE (0, 2, 2, 1, 133, 128);
-  else if (class == 233)	/* double below */
-    code = MAKE_COMBINING_CODE (2, 2, 0, 2, 122, 128);
-  else if (class == 234)	/* double above */
-    code = MAKE_COMBINING_CODE (0, 2, 2, 2, 133, 128);
-  else if (class == 240)	/* iota subscript */
-    code = MAKE_COMBINING_CODE (2, 1, 0, 1, 122, 128);
-  else				/* unknown */
-    code = MAKE_COMBINING_CODE (3, 1, 3, 1, 128, 128);
-  return code;
-}
-
-
-static void
-layout_glyphs (MFrame *frame, MGlyphString *gstring, int from, int to)
-{
-  int g_physical_ascent, g_physical_descent;
-  int g_width, g_lbearing, g_rbearing;
-  MGlyph *g = MGLYPH (from);
-  MGlyph *last_g = MGLYPH (to);
-
-  g_physical_ascent = gstring->physical_ascent;
-  g_physical_descent = gstring->physical_descent;
-  g_width = g_lbearing = g_rbearing = 0;
-
-  mfont__get_metric (gstring, from, to);
-
-  while (g < last_g)
-    {
-      MGlyph *base = g++;
-      MRealizedFont *rfont = base->rface->rfont;
-      int size = rfont->font.property[MFONT_SIZE];
-      int width, lbearing, rbearing;
-
-      if (g == last_g || ! g->combining_code)
-	{
-	  /* No combining.  */
-	  if (base->left_padding && base->lbearing < 0)
-	    {
-	      base->xoff = - base->lbearing;
-	      base->width += base->xoff;
-	      base->rbearing += base->xoff;
-	      base->lbearing = 0;
-	    }
-	  if (base->right_padding && base->rbearing > base->width)
-	    {
-	      base->width = base->rbearing;
-	    }
-	  lbearing = (base->lbearing < 0 ? base->lbearing : 0);
-	  rbearing = base->rbearing;
-	}
-      else
-	{
-	  /* With combining glyphs.  */
-	  int left = -base->width;
-	  int right = 0;
-	  int top = - base->ascent;
-	  int bottom = base->descent;
-	  int height = bottom - top;
-	  int begin = base->pos;
-	  int end = base->to;
-	  int i;
-
-	  width = base->width;
-	  lbearing = (base->lbearing < 0 ? base->lbearing : 0);
-	  rbearing = base->rbearing;
-
-	  while (g != last_g && g->combining_code)
-	    {
-	      int combining_code, base_x, base_y, add_x, add_y, off_x, off_y;
-
-	      combining_code = g->combining_code;
-	      if (COMBINING_BY_CLASS_P (combining_code))
-		g->combining_code = combining_code
-		  = combining_code_from_class (COMBINING_CODE_CLASS
-					       (combining_code));
-
-	      rfont = g->rface->rfont;
-	      size = rfont->font.property[MFONT_SIZE];
-	      off_x = (size * (COMBINING_CODE_OFF_X (combining_code) - 128)
-		       / 1000);
-	      off_y = (size * (COMBINING_CODE_OFF_Y (combining_code) - 128)
-		       / 1000);
-	      base_x = COMBINING_CODE_BASE_X (combining_code);
-	      base_y = COMBINING_CODE_BASE_Y (combining_code);
-	      add_x = COMBINING_CODE_ADD_X (combining_code);
-	      add_y = COMBINING_CODE_ADD_Y (combining_code);
-
-	      if (begin > g->pos)
-		begin = g->pos;
-	      else if (end < g->to)
-		end = g->to;
-		
-	      g->xoff = left + (width * base_x - g->width * add_x) / 2 + off_x;
-	      if (g->xoff < left)
-		left = g->xoff;
-	      if (g->xoff + g->width > right)
-		right = g->xoff + g->width;
-	      width = right - left;
-	      if (g->xoff + g->lbearing < left + lbearing)
-		lbearing = g->xoff + g->lbearing - left;
-	      if (g->xoff + g->rbearing > left + rbearing)
-		rbearing = g->xoff + g->rbearing - left;
-
-	      if (base_y < 3)
-		g->yoff = top + height * base_y / 2;
-	      else
-		g->yoff = 0;
-	      if (add_y < 3)
-		g->yoff -= (g->ascent + g->descent) * add_y / 2 - g->ascent;
-	      g->yoff -= off_y;
-	      if (g->yoff - g->ascent < top)
-		top = g->yoff - g->ascent;
-	      if (g->yoff + g->descent > bottom)
-		bottom = g->yoff + g->descent;
-	      height = bottom - top;
-
-	      g->width = 0;
-	      g++;
-	    }
-
-	  base->ascent = - top;
-	  base->descent = bottom;
-	  base->lbearing = lbearing;
-	  base->rbearing = rbearing;
-	  if (left < - base->width)
-	    {
-	      base->xoff = - base->width - left;
-	      base->width += base->xoff;
-	      base->rbearing += base->xoff;
-	      base->lbearing += base->xoff;
-	    }
-	  if (right > 0)
-	    {
-	      base->width += right;
-	      base->rbearing += right;
-	      base->right_padding = 1;
-	      for (i = 1; base + i != g; i++)
-		base[i].xoff -= right;
-	    }
-
-	  for (i = 0; base + i != g; i++)
-	    {
-	      base[i].pos = begin;
-	      base[i].to = end;
-	    }
-	}
-
-      g_physical_ascent = MAX (g_physical_ascent, base->ascent);
-      g_physical_descent = MAX (g_physical_descent, base->descent);
-      g_lbearing = MIN (g_lbearing, g_width + lbearing);
-      g_rbearing = MAX (g_rbearing, g_width + rbearing);
-      g_width += base->width;
-    }
-
-  gstring->physical_ascent = g_physical_ascent;
-  gstring->physical_descent = g_physical_descent;
-  gstring->sub_width = g_width;
-  gstring->sub_lbearing = g_lbearing;
-  gstring->sub_rbearing = g_rbearing;
-}
-
-
-/** Decide the layout of glyphs in GSTRING.  Space glyphs are handled
-    by this function directly.  Character glyphs are handled by
-    layouter functions registered in font drivers.
-
-    This function fill-in all the remaining members of glyphs.  */
-
-static void
-layout_glyph_string (MFrame *frame, MGlyphString *gstring)
-{
-  /* Default width of TAB.  */
-  int tab_width = frame->space_width * (gstring->control.tab_width
-					? gstring->control.tab_width : 8);
-  int tab_found = 0;
-  MGlyph *g;
-  MGlyph pad;
-  MDrawControl *control = &(gstring->control);
-  int width;
-  MFaceBoxProp *box;
-  int box_line_height = 0;
-  int ignore_formatting_char = control->ignore_formatting_char;
-
-  gstring->ascent = gstring->descent = 0;
-  gstring->physical_ascent = gstring->physical_descent = 0;
-  gstring->width = gstring->lbearing = gstring->rbearing = 0;
-
-  g = MGLYPH (1);
-  box = NULL;
-  while (g->type != GLYPH_ANCHOR)
-    {
-      if (box != g->rface->box)
-	{
-	  int gidx = GLYPH_INDEX (g);
-
-	  if (box)
-	    {
-	      /* Insert the right side of the box.  That glyph belongs
-		 to the previous grapheme cluster.  */
-	      MGlyph box_glyph = g[-1];
-
-	      box_glyph.type = GLYPH_BOX;
-	      box_glyph.width
-		= (control->fixed_width
-		   ? frame->space_width
-		   : box->inner_hmargin + box->width + box->outer_hmargin);
-	      box_glyph.lbearing = 0;
-	      box_glyph.rbearing = box_glyph.width;
-	      box_glyph.xoff = 0;
-	      box_glyph.right_padding = 1;
-	      gstring->width += box_glyph.width;
-	      gstring->rbearing += box_glyph.width;
-	      INSERT_GLYPH (gstring, gidx, box_glyph);
-	      gidx++;
-	      g = MGLYPH (gidx);
-	    }
-	  box = g->rface->box;
-	  if (box)
-	    {
-	      /* Insert the left side of the box.  That glyph belongs
-		 to the following grapheme cluster.  */
-	      MGlyph box_glyph = *g;
-	      int box_height = (box->width
-				+ box->inner_vmargin + box->outer_vmargin);
-
-	      if (box_line_height < box_height)
-		box_line_height = box_height;
-	      box_glyph.type = GLYPH_BOX;
-	      box_glyph.width
-		= (control->fixed_width
-		   ? frame->space_width
-		   : box->inner_hmargin + box->width + box->outer_hmargin);
-	      box_glyph.lbearing = 0;
-	      box_glyph.rbearing = box_glyph.width;
-	      box_glyph.xoff = 0;
-	      box_glyph.left_padding = 1;
-	      gstring->width += box_glyph.width;
-	      gstring->rbearing += box_glyph.width;
-	      INSERT_GLYPH (gstring, gidx, box_glyph);
-	      gidx++;
-	      g = MGLYPH (gidx);
-	    }
-	}
-
-      if (g->category == McatCf && ignore_formatting_char)
-	g->type = GLYPH_SPACE;
-
-      if (g->type == GLYPH_CHAR)
-	{
-	  MRealizedFace *rface = g->rface;
-	  MRealizedFont *rfont = rface->rfont;
-	  MGlyph *fromg = g;
-	  int from = GLYPH_INDEX (g);
-
-	  for (g++; g->type == GLYPH_CHAR; g++)
-	    if (! rfont != ! g->rface->rfont
-		|| box != g->rface->box
-		|| ((fromg->code == MCHAR_INVALID_CODE)
-		    != (g->code == MCHAR_INVALID_CODE))
-		|| (g->category == McatCf && ignore_formatting_char))
-	      break;
-	  if (rfont && fromg->code != MCHAR_INVALID_CODE)
-	    {
-	      int extra_width;
-	      int to = GLYPH_INDEX (g);
-
-	      layout_glyphs (frame, gstring, from, to);
-	      extra_width = - gstring->sub_lbearing;
-	      if (extra_width > 0
-		  && (GLYPH_INDEX (g) > 1
-		      || control->align_head))
-		{
-		  g = MGLYPH (from);
-		  pad = *g;
-		  pad.type = GLYPH_PAD;
-		  pad.xoff = 0;
-		  pad.lbearing = 0;
-		  pad.width = pad.rbearing = extra_width;
-		  INSERT_GLYPH (gstring, from, pad);
-		  to++;
-		  gstring->sub_lbearing = 0;
-		  gstring->sub_width += extra_width;
-		  gstring->sub_rbearing += extra_width;
-
-		  g = MGLYPH (from - 1);
-		  if (g->type == GLYPH_SPACE)
-		    {
-		      /* The pad just inserted is absorbed (maybe
-			 partially) by the previous space while
-			 keeping at least some space width.  For the
-			 moment, we use the arbitrary width 2-pixel.
-			 Perhaps, it should be decided by the current
-			 face, or a default value of the current
-			 frame, which is, however, not yet
-			 implemented.  */
-		      if (extra_width + 2 < g->width)
-			{
-			  g->width -= extra_width;
-			}
-		      else
-			{
-			  extra_width -= g->width - 2;
-			  g->width = 2;
-			}
-		      gstring->width -= extra_width;
-		      gstring->rbearing -= extra_width;
-		    }
-		}
-
-	      extra_width = gstring->sub_rbearing - gstring->sub_width;
-	      if (extra_width > 0)
-		{
-		  g = MGLYPH (to);
-		  if (g->type == GLYPH_SPACE && box == g->rface->box)
-		    {
-		      g--;
-		      pad = *g;
-		      pad.type = GLYPH_PAD;
-		      pad.xoff = 0;
-		      pad.lbearing = 0;
-		      pad.width = pad.rbearing = extra_width;
-		      INSERT_GLYPH (gstring, to, pad);
-		      to++;
-		    }
-		  else
-		    g[-1].width += extra_width;
-		  gstring->sub_width += extra_width;
-		}
-
-	      if (gstring->lbearing > gstring->width + gstring->sub_lbearing)
-		gstring->lbearing = gstring->width + gstring->sub_lbearing;
-	      if (gstring->rbearing < gstring->width + gstring->sub_rbearing)
-		gstring->rbearing = gstring->width + gstring->sub_rbearing;
-	      gstring->width += gstring->sub_width;
-	      if (gstring->ascent < rface->ascent)
-		gstring->ascent = rface->ascent;
-	      if (gstring->descent < rface->descent)
-		gstring->descent = rface->descent;
-	      g = MGLYPH (to);
-	    }
-	  else
-	    {
-	      for (; fromg < g; fromg++)
-		{
-		  if ((fromg->c >= 0x200B && fromg->c <= 0x200F)
-		      || (fromg->c >= 0x202A && fromg->c <= 0x202E))
-		    fromg->width = fromg->rbearing = 1;
-		  else
-		    fromg->width = fromg->rbearing = rface->space_width;
-		  fromg->xoff = fromg->lbearing = 0;
-		  fromg->ascent = fromg->descent = 0;
-		  gstring->width += fromg->width;
-		  gstring->rbearing += fromg->width;
-		}
-	      if (gstring->ascent < frame->rface->ascent)
-		gstring->ascent = frame->rface->ascent;
-	      if (gstring->descent < frame->descent)
-		gstring->descent = frame->rface->descent;
-	    }
-	}
-      else if (g->type == GLYPH_SPACE)
-	{
-	  if (g->c == ' ')
-	    g->width = g->rface->space_width;
-	  else if (g->c == '\n')
-	    {
-	      g->width = control->cursor_width;
-	      if (g->width)
-		{
-		  if (control->cursor_bidi)
-		    g->width = 3;
-		  else if (g->width < 0)
-		    g->width = g->rface->space_width;
-		}
-	    }
-	  else if (g->c == '\t')
-	    {
-	      g->width = tab_width - ((gstring->indent + gstring->width)
-				      % tab_width);
-	      tab_found = 1;
-	    }
-	  else
-	    g->width = 1;
-	  if (g[-1].type == GLYPH_PAD)
-	    {
-	      /* This space glyph absorbs (maybe partially) the
-		 previous padding glyph.  */
-	      g->width -= g[-1].width;
-	      if (g->width < 1)
-		/* But, keep at least some space width.  For the
-		   moment, we use the arbitrary width 2-pixel.  */
-		g->width = 2;
-	    }
-	  g->rbearing = g->width;
-	  gstring->width += g->width;
-	  gstring->rbearing += g->width;
-	  if (g->rface->rfont)
-	    {
-	      if (gstring->ascent < g->rface->ascent)
-		gstring->ascent = g->rface->ascent;
-	      if (gstring->descent < g->rface->descent)
-		gstring->descent = g->rface->descent;
-	    }
-	  g++;
-	}
-      else
-	{
-	  gstring->width += g->width;
-	  gstring->rbearing += g->width;
-	  g++;
-	}
-    }
-
-  if (box)
-    {
-      /* Insert the right side of the box.  */
-      int gidx = GLYPH_INDEX (g);
-      MGlyph box_glyph = g[-1];
-
-      box_glyph.type = GLYPH_BOX;
-      box_glyph.width
-	= (control->fixed_width
-	   ? frame->space_width
-	   : box->inner_hmargin + box->width + box->outer_hmargin);
-      box_glyph.lbearing = 0;
-      box_glyph.rbearing = box_glyph.width;
-      box_glyph.xoff = 0;
-      box_glyph.right_padding = 1;
-      gstring->width += box_glyph.width;
-      gstring->rbearing += box_glyph.width;
-      INSERT_GLYPH (gstring, gidx, box_glyph);
-    }
-
-  gstring->text_ascent = gstring->ascent;
-  gstring->text_descent = gstring->descent;
-  if (gstring->text_ascent < gstring->physical_ascent)
-    gstring->text_ascent = gstring->physical_ascent;
-  if (gstring->text_descent < gstring->physical_descent)
-    gstring->text_descent = gstring->physical_descent;
-  gstring->line_ascent = gstring->text_ascent;
-  gstring->line_descent = gstring->text_descent;
-  if (box_line_height > 0)
-    {
-      gstring->line_ascent += box_line_height;
-      gstring->physical_ascent = gstring->line_ascent;
-      gstring->line_descent += box_line_height;
-      gstring->physical_descent = gstring->line_descent;
-    }
-
-  if (gstring->line_ascent < control->min_line_ascent)
-    gstring->line_ascent = control->min_line_ascent;
-  else if (control->max_line_ascent
-	   && control->max_line_ascent > control->min_line_ascent
-	   && gstring->line_ascent > control->max_line_ascent)
-    gstring->line_ascent = control->max_line_ascent;
-
-  if (gstring->line_descent < control->min_line_descent)
-    gstring->line_descent = control->min_line_descent;
-  else if (control->max_line_descent
-	   && control->max_line_descent > control->min_line_descent
-	   && gstring->line_descent > control->max_line_descent)
-    gstring->line_descent = control->max_line_descent;
-  gstring->height = gstring->line_ascent + gstring->line_descent;
-
-  if (control->orientation_reversed
-      && tab_found)
-    {
-      /* We must adjust TAB width for RTL orientation.  */
-      width = gstring->indent;
-
-      for (g = MGLYPH (gstring->used - 2); g->type != GLYPH_ANCHOR; g--)
-	{
-	  if (g->type == GLYPH_CHAR && g->c == '\t')
-	    {
-	      int this_width = tab_width - (width % tab_width);
-
-	      if (g[1].type == GLYPH_PAD)
-		this_width -= g[1].width;
-	      if (g[-1].type == GLYPH_PAD)
-		this_width -= g[-1].width;		
-	      if (this_width < 2)
-		this_width = 2;
-	      gstring->width += this_width - g->width;
-	      gstring->rbearing += this_width - g->width;
-	      g->width = this_width;
-	      width += this_width;
-	    }
-	  else
-	    width += g->width;
-	}
-    }
-}
-
-
-static MDrawRegion
-draw_background (MFrame *frame, MDrawWindow win, int x, int y,
-		 MGlyphString *gstring, int from, int to,
-		 int *from_idx, int *to_idx, int *to_x)
-{
-  MGlyph *g = MGLYPH (1);
-  MDrawRegion region = (MDrawRegion) NULL;
-  MDrawControl *control = &gstring->control;
-  int cursor_pos = -1;
-  int prev_pos = -1;
-  int cursor_bidi = control->cursor_bidi;
-
-  if (control->with_cursor && control->cursor_width)
-    {
-      if (gstring->from <= control->cursor_pos
-	  && gstring->to > control->cursor_pos)
-	cursor_pos = control->cursor_pos;
-      if (cursor_bidi
-	  && gstring->from <= control->cursor_pos - 1
-	  && gstring->to > control->cursor_pos - 1)
-	prev_pos = control->cursor_pos - 1;
-    }
-
-  *from_idx = *to_idx = 0;
-  while (g->type != GLYPH_ANCHOR)
-    {
-      if (g->pos >= from && g->pos < to)
-	{
-	  MGlyph *fromg = g, *cursor = NULL;
-	  MRealizedFace *rface = g->rface;
-	  int width = 0;
-	  int cursor_width = 0;
-	  int cursor_x;
-
-	  if (! *from_idx)
-	    *from_idx = GLYPH_INDEX (g);
-	  while (g->pos >= from && g->pos < to
-		 && g->rface == rface)
-	    {
-	      g->enabled = 1;
-	      if (g->type != GLYPH_BOX
-		  && g->pos <= cursor_pos && g->to > cursor_pos)
-		{
-		  if (! cursor)
-		    cursor = g, cursor_x = x + width;
-		  cursor_width += g->width;
-		}
-	      width += g++->width;
-	    }
-	  if (width > 0
-	      && (control->as_image
-		  || rface->face.property[MFACE_VIDEOMODE] == Mreverse))
-	    {
-	      int this_x = x, this_width = width;
-
-	      if (fromg->type == GLYPH_BOX)
-		this_x += fromg->width, this_width -= fromg->width;
-	      if (g[-1].type == GLYPH_BOX)
-		this_width -= g[-1].width;
-	      (frame->driver->fill_space)
-		(frame, win, rface, 0,
-		 this_x, y - gstring->text_ascent, this_width,
-		 gstring->text_ascent + gstring->text_descent,
-		 control->clip_region);
-	    }
-	  if (cursor)
-	    {
-	      MDrawMetric rect;
-	    
-	      rect.x = cursor_x;
-	      rect.y = y - gstring->text_ascent;
-	      rect.height = gstring->text_ascent + gstring->text_descent;
-	      if (! cursor_bidi)
-		{
-		  rect.width = ((control->cursor_width > 0
-				 && control->cursor_width < cursor_width)
-				? control->cursor_width : cursor_width);
-		}
-	      else
-		{
-		  if (cursor->bidi_level % 2)
-		    rect.x += cursor_width - 1;
-		  rect.width = 1;
-		}
-	      (*frame->driver->fill_space)
-		(frame, win, rface, 1, rect.x, rect.y, rect.width, rect.height,
-		 control->clip_region);
-	      if (! region)
-		region = (*frame->driver->region_from_rect) (&rect);
-	      else
-		(*frame->driver->region_add_rect) (region, &rect);
-	      if (cursor_bidi)
-		{
-		  if (cursor->bidi_level % 2)
-		    rect.x -= 3;
-		  rect.height = 2;
-		  rect.width = cursor_width < 4 ? cursor_width : 4;
-		  (*frame->driver->fill_space)
-		    (frame, win, rface, 1,
-		     rect.x, rect.y, rect.width, rect.height,
-		     control->clip_region);
-		  (*frame->driver->region_add_rect) (region, &rect);
-		}
-	    }
-
-	  if (prev_pos >= 0)
-	    {
-	      int temp_width = 0;
-
-	      cursor_width = 0;
-	      cursor = NULL;
-	      while (fromg < g)
-		{
-		  if (fromg->type != GLYPH_BOX
-		      && fromg->pos <= prev_pos && fromg->to > prev_pos)
-		    {
-		      if (! cursor)
-			cursor = fromg, cursor_x = x + temp_width;
-		      cursor_width += fromg->width;
-		    }
-		  temp_width += fromg++->width;
-		}
-	      if (cursor)
-		{
-		  MDrawMetric rect;
-
-		  rect.x = cursor_x;
-		  if (! (cursor->bidi_level % 2))
-		    rect.x += cursor_width - 1;
-		  rect.y = y - gstring->text_ascent;
-		  rect.height = gstring->text_ascent + gstring->text_descent;
-		  rect.width = 1;
-		  (*frame->driver->fill_space)
-		    (frame, win, rface, 1,
-		     rect.x, rect.y, rect.width, rect.height,
-		     control->clip_region);
-		  if (! region)
-		    region = (*frame->driver->region_from_rect) (&rect);
-		  else
-		    (*frame->driver->region_add_rect) (region, &rect);
-		  rect.y += rect.height - 2;
-		  rect.height = 2;
-		  rect.width = cursor_width < 4 ? cursor_width : 4;
-		  if (! (cursor->bidi_level % 2))
-		    rect.x -= rect.width - 1;
-		  (*frame->driver->fill_space) (frame, win, rface, 1,
-				    rect.x, rect.y, rect.width, rect.height,
-				    control->clip_region);
-		  (*frame->driver->region_add_rect) (region, &rect);
-		}
-	    }
-	  x += width;
-	  *to_idx = GLYPH_INDEX (g);
-	  *to_x = x;
-	}
-      else
-	g++->enabled = 0;
-    }
-  return region;
-}
-
-static void
-render_glyphs (MFrame *frame, MDrawWindow win, int x, int y, int width,
-	       MGlyphString *gstring, int from_idx, int to_idx,
-	       int reverse, MDrawRegion region)
-{
-  MGlyph *g = MGLYPH (from_idx), *gend = MGLYPH (to_idx);
-
-  if (region)
-    {
-      MDrawMetric rect;
-
-      (*frame->driver->region_to_rect) (region, &rect);
-      if (rect.x > x)
-	{
-	  while (g != gend && x + g->rbearing <= rect.x)
-	    {
-	      x += g->width;
-	      width -= g++->width;
-	      while (! g->enabled && g != gend)
-		g++;
-	    }
-	}
-      rect.x += rect.width;
-      if (rect.x < x + width)
-	{
-	  while (g != gend
-		 && (x + width - gend[-1].width + gend[-1].lbearing >= rect.x))
-	    {
-	      width -= (--gend)->width;
-	      while (! gend->enabled && g != gend)
-		gend--;
-	    }
-	  if (g != gend)
-	    while (gend[-1].to == gend->to) gend++;
-	}
-    }
-
-  while (g != gend)
-    {
-      if (g->enabled)
-	{
-	  MRealizedFace *rface = g->rface;
-	  int width = g->width;
-	  MGlyph *from_g = g++;
-
-	  /* Handle the glyphs of the same type/face at once.  */
-	  while (g != gend
-		 && g->type == from_g->type
-		 && g->rface == rface
-		 && (g->code < 0) == (from_g->code < 0)
-		 && g->enabled)
-	    width += g++->width;
-
-	  if (from_g->type == GLYPH_CHAR)
-	    {
-	      if (rface->rfont && from_g->code != MCHAR_INVALID_CODE)
-		(rface->rfont->driver->render) (win, x, y, gstring, from_g, g,
-						reverse, region);
-	      else
-		(*frame->driver->draw_empty_boxes) (win, x, y, gstring, from_g, g,
-					reverse, region);
-	    }
-	  else if (from_g->type == GLYPH_BOX)
-	    {
-	      /* Draw the left or right side of a box.  If
-		 from_g->lbearing is nonzero, this is the left side,
-		 else this is the right side.  */
-	      (*frame->driver->draw_box) (frame, win, gstring, from_g, x, y, 0, region);
-	    }
-
-	  if (from_g->type != GLYPH_BOX)
-	    {
-	      if (rface->hline)
-		(*frame->driver->draw_hline) (frame, win, gstring, rface, reverse,
-				  x, y, width, region);
-	      if (rface->box
-		  && ! reverse)
-		/* Draw the top and bottom side of a box.  */
-		(*frame->driver->draw_box) (frame, win, gstring, from_g,
-				   x, y, width, region);
-	    }
-	  x += width;
-	}
-      else
-	g++;
-    }
-}
-
-
-static int
-find_overlapping_glyphs (MGlyphString *gstring, int *left, int *right,
-			 int *from_x, int *to_x)
-{
-  MGlyph *g;
-  int left_idx = *left, right_idx = *right;
-  int left_x, right_x, x;
-
-  for (g = MGLYPH (*left) - 1, x = 0; g->type != GLYPH_ANCHOR; g--)
-    {
-      x -= g->width;
-      if (x + g->rbearing > 0)
-	{
-	  while (g[-1].pos == g->pos && g[-1].type != GLYPH_ANCHOR)
-	    x -= (--g)->width;
-	  left_idx = GLYPH_INDEX (g);
-	  left_x = x;
-	}
-    }
-
-  for (g = MGLYPH (*right), x = 0; g->type != GLYPH_ANCHOR; g++)
-    {
-      x += g->width;
-      if (x - g->width + g->lbearing < 0)
-	{
-	  while (g->pos == g[1].pos && g[1].type != GLYPH_ANCHOR)
-	    x += (++g)->width;
-	  right_idx = GLYPH_INDEX (g) + 1;
-	  right_x = x;
-	}
-    }
-
-  if (*left == left_idx && *right == right_idx)
-    return 0;
-
-  if (*left != left_idx)
-    {
-      for (g = MGLYPH (*left) - 1; GLYPH_INDEX (g) >= left_idx; g--)
-	g->enabled = 1;
-      *left = left_idx;
-      *from_x += left_x;
-    }
-  if (*right != right_idx)
-    {
-      for (g = MGLYPH (*right); GLYPH_INDEX (g) < right_idx; g++)
-	g->enabled = 1;
-      *right = right_idx;
-      *to_x += right_x;
-    }
-  return 1;
-}
-
-
-static int
-gstring_width (MGlyphString *gstring, int from, int to, int *rbearing)
-{
-  MGlyph *g;
-  int width;
-
-  if (from <= gstring->from && to >= gstring->to)
-    {
-      if (rbearing)
-	*rbearing = gstring->rbearing;
-      return gstring->width;
-    }
-
-  if (rbearing)
-    *rbearing = 0;
-  for (g = MGLYPH (1), width = 0; g->type != GLYPH_ANCHOR; g++)
-    if (g->pos >= from && g->pos < to)
-      {
-	if (rbearing && width + g->rbearing > *rbearing)
-	  *rbearing = width + g->rbearing;
-	width += g->width;
-      }
-  return width;
-}
-
-
-static void
-render_glyph_string (MFrame *frame, MDrawWindow win, int x, int y,
-		     MGlyphString *gstring, int from, int to)
-{
-  MDrawControl *control = &gstring->control;
-  MDrawMetric rect;
-  MDrawRegion clip_region, cursor_region;
-  int from_idx, to_idx;
-  int to_x;
-
-  if (control->orientation_reversed)
-    x -= gstring->indent + gstring_width (gstring, from, to, NULL);
-  else
-    x += gstring->indent;
-
-  /* At first, draw all glyphs without cursor.  */
-  cursor_region = draw_background (frame, win, x, y, gstring, from, to,
-				   &from_idx, &to_idx, &to_x);
-
-  if (control->partial_update)
-    {
-      rect.x = x;
-      rect.width = to_x - x;
-      if (find_overlapping_glyphs (gstring, &from_idx, &to_idx, &x, &to_x))
-	{
-	  rect.y = y - gstring->line_ascent;
-	  rect.height = gstring->height;
-	  clip_region = (*frame->driver->region_from_rect) (&rect);
-	  if (control->clip_region)
-	    (*frame->driver->intersect_region) (clip_region, control->clip_region);
-	}
-      else
-	clip_region = control->clip_region;
-    }
-  else
-    clip_region = control->clip_region;
-
-  render_glyphs (frame, win, x, y, to_x - x, gstring, from_idx, to_idx,
-		 0, clip_region);
-  if (cursor_region)
-    {
-      if (clip_region)
-	(*frame->driver->intersect_region) (cursor_region, clip_region);
-      render_glyphs (frame, win, x, y, to_x - x, gstring, from_idx, to_idx,
-		     1, cursor_region);
-    }
-  if (clip_region != control->clip_region)
-    (*frame->driver->free_region) (clip_region);
-  if (cursor_region)
-    (*frame->driver->free_region) (cursor_region);
-  return;
-}
-
-static int gstring_num;
-
-static void
-free_gstring (void *object)
-{
-  MGlyphString *gstring = (MGlyphString *) object;
-
-  if (gstring->next)
-    free_gstring (gstring->next);
-  if (gstring->size > 0)
-    free (gstring->glyphs);
-  free (gstring);
-  gstring_num--;
-}
-
-
-static MGlyphString scratch_gstring;
-
-static MGlyphString *
-alloc_gstring (MFrame *frame, MText *mt, int pos, MDrawControl *control,
-	       int line, int y)
-{
-  MGlyphString *gstring;
-
-  if (pos == mt->nchars)
-    {
-      gstring = &scratch_gstring;
-    }
-  else
-    {
-      M17N_OBJECT (gstring, free_gstring, MERROR_DRAW);
-      MLIST_INIT1 (gstring, glyphs, 128);
-      gstring_num++;
-    }
-
-  gstring->frame = frame;
-  gstring->tick = frame->tick;
-  gstring->top = gstring;
-  gstring->mt = mt;
-  gstring->control = *control;
-  gstring->indent = gstring->width_limit = 0;
-  if (control->format)
-    (*control->format) (line, y, &(gstring->indent), &(gstring->width_limit));
-  else
-    gstring->width_limit = control->max_line_width;
-  gstring->anti_alias = control->anti_alias;
-  return gstring;
-}
-
-/* Truncate the line width of GSTRING to GSTRING->width_limit.  */
-
-static void
-truncate_gstring (MFrame *frame, MText *mt, MGlyphString *gstring)
-{
-  int width;
-  int i;
-  int *pos_width;
-  MGlyph *g;
-  int pos;
-
-  /* Setup the array POS_WIDTH so that POS_WIDTH[I - GSTRING->from] is
-     a width of glyphs for the character at I of GSTRING->mt.  If I is
-     not a beginning of a grapheme cluster, the corresponding element
-     is 0.  */
-  MTABLE_ALLOCA (pos_width, gstring->to - gstring->from, MERROR_DRAW);
-  memset (pos_width, 0, sizeof (int) * (gstring->to - gstring->from));
-  for (g = MGLYPH (1); g->type != GLYPH_ANCHOR; g++)
-    pos_width[g->pos - gstring->from] += g->width;
-  for (i = 0, width = 0; i < gstring->to - gstring->from; i++)
-    {
-      if (pos_width[i] > 0)
-	{
-	  if (width + pos_width[i] > gstring->width_limit)
-	    break;
-	}
-      width += pos_width[i];
-    }
-
-  pos = gstring->from + i;
-  if (gstring->control.line_break)
-    {
-      pos = (*gstring->control.line_break) (gstring->mt, gstring->from + i,
-					    gstring->from, gstring->to, 0, 0);
-      if (pos <= gstring->from || pos >= gstring->to)
-	return;
-    }
-  compose_glyph_string (frame, mt, gstring->from, pos, gstring);
-  layout_glyph_string (frame, gstring);
-}
-
-
-/* Return a gstring that covers a character at POS.  */
-
-static MGlyphString *
-get_gstring (MFrame *frame, MText *mt, int pos, int to, MDrawControl *control)
-{
-  MGlyphString *gstring = NULL;
-
-  if (pos < mtext_nchars (mt))
-    {
-      MTextProperty *prop = mtext_get_property (mt, pos, M_glyph_string);
-
-      if (prop
-	  && ((prop->start != 0
-	       && mtext_ref_char (mt, prop->start - 1) != '\n')
-	      || (prop->end < mtext_nchars (mt)
-		  && mtext_ref_char (mt, prop->end - 1) != '\n')))
-	{
-	  mtext_detach_property (prop);
-	  prop = NULL;
-	}
-      if (prop)
-	{
-	  gstring = prop->val;
-	  if (gstring->frame != frame
-	      || gstring->tick != frame->tick
-	      || memcmp (control, &gstring->control,
-			 (char *) (&control->with_cursor)
-			 - (char *) (control)))
-	    {
-	      mtext_detach_property (prop);
-	      gstring = NULL;
-	    }
-	}
-    }
-  else if (! control->cursor_width)
-    return NULL;
-
-  if (gstring)
-    {
-      MGlyphString *gst;
-      int offset;
-
-      offset = mtext_character (mt, pos, 0, '\n');
-      if (offset < 0)
-	offset = 0;
-      else
-	offset++;
-      offset -= gstring->from;
-      if (offset)
-	for (gst = gstring; gst; gst = gst->next)
-	  {
-	    int i;
-
-	    gst->from += offset;
-	    gst->to += offset;
-	    for (i = 0; i < gst->used; i++)
-	      {
-		gst->glyphs[i].pos += offset;
-		gst->glyphs[i].to += offset;
-	      }
-	  }
-      M17N_OBJECT_REF (gstring);
-    }
-  else
-    {
-      int beg, end;
-      int line = 0, y = 0;
-
-      if (control->two_dimensional)
-	{
-	  beg = mtext_character (mt, pos, 0, '\n');
-	  if (beg < 0)
-	    beg = 0;
-	  else
-	    beg++;
-	  end = mtext_nchars (mt) + (control->cursor_width != 0);
-	}
-      else
-	{
-	  beg = pos;
-	  end = to;
-	}
-      gstring = alloc_gstring (frame, mt, beg, control, line, y);
-      compose_glyph_string (frame, mt, beg, end, gstring);
-      layout_glyph_string (frame, gstring);
-      end = gstring->to;
-      if (control->two_dimensional
-	  && gstring->width_limit
-	  && gstring->width > gstring->width_limit)
-	{
-	  MGlyphString *gst = gstring;
-
-	  truncate_gstring (frame, mt, gst);
-	  while (gst->to < end)
-	    {
-	      line++, y += gst->height;
-	      gst->next = alloc_gstring (frame, mt, gst->from, control,
-					 line, y);
-	      gst->next->top = gstring;
-	      compose_glyph_string (frame, mt, gst->to, end, gst->next);
-	      gst = gst->next;
-	      layout_glyph_string (frame, gst);
-	      if (gst->width <= gst->width_limit)
-		break;
-	      truncate_gstring (frame, mt, gst);
-	    }
-	}
-
-      if (! control->disable_caching && pos < mtext_nchars (mt))
-	{
-	  MTextProperty *prop = mtext_property (M_glyph_string, gstring,
-						MTEXTPROP_VOLATILE_STRONG);
-
-	  if (end > mtext_nchars (mt))
-	    end = mtext_nchars (mt);
-	  mtext_attach_property (mt, beg, end, prop);
-	  M17N_OBJECT_UNREF (prop);
-	}
-    }
-
-  while (gstring->to <= pos)
-    {
-      if (! gstring->next)
-	mdebug_hook ();
-      gstring = gstring->next;
-    }
-  gstring->control = *control;
-
-  return gstring;
-}
-
-
-static MDrawControl control_noop;
-
-#define ASSURE_CONTROL(control)	\
-  if (! control)		\
-    control = &control_noop;	\
-  else
-
-
-static int
-draw_text (MFrame *frame, MDrawWindow win, int x, int y,
-	   MText *mt, int from, int to,
-	   MDrawControl *control)
-{
-  MGlyphString *gstring;
-
-  M_CHECK_POS_X (mt, from, -1);
-  ASSURE_CONTROL (control);
-  if (to > mtext_nchars (mt) + (control->cursor_width != 0))
-    to = mtext_nchars (mt) + (control->cursor_width != 0);
-  else if (to < from)
-    to = from;
-
-  gstring = get_gstring (frame, mt, from, to, control);
-  if (! gstring)
-    MERROR (MERROR_DRAW, -1);
-  render_glyph_string (frame, win, x, y, gstring, from, to);
-  from = gstring->to;
-  while (from < to)
-    {
-      y += gstring->line_descent;
-      M17N_OBJECT_UNREF (gstring->top);
-      gstring = get_gstring (frame, mt, from, to, control);
-      y += gstring->line_ascent;
-      render_glyph_string (frame, win, x, y, gstring, from, to);
-      from = gstring->to;
-    }
-  M17N_OBJECT_UNREF (gstring->top);
-
-  return 0;
-}
-
-
-static MGlyph *
-find_glyph_in_gstring (MGlyphString *gstring, int pos, int forwardp)
-{
-  MGlyph *g;
-
-  if (forwardp)
-    {
-      for (g = MGLYPH (1); g->type != GLYPH_ANCHOR; g++)
-	if (g->pos <= pos && g->to > pos)
-	  break;
-    }
-  else
-    {
-      for (g = MGLYPH (gstring->used - 2); g->type != GLYPH_ANCHOR; g--)
-	if (g->pos <= pos && g->to > pos)
-	  break;
-    }
-  return g;
-}
-
-
-/* for debugging... */
-char work[16];
-
-char *
-dump_combining_code (int code)
-{
-  char *vallign = "tcbB";
-  char *hallign = "lcr";
-  char *p;
-  int off_x, off_y;
-
-  if (! code)
-    return "none";
-  if (COMBINING_BY_CLASS_P (code))
-    code = combining_code_from_class (COMBINING_CODE_CLASS (code));
-  work[0] = vallign[COMBINING_CODE_BASE_Y (code)];
-  work[1] = hallign[COMBINING_CODE_BASE_X (code)];
-  off_y = COMBINING_CODE_OFF_Y (code) - 128;
-  off_x = COMBINING_CODE_OFF_X (code) - 128;
-  if (off_y > 0)
-    sprintf (work + 2, "+%d", off_y);
-  else if (off_y < 0)
-    sprintf (work + 2, "%d", off_y);
-  else if (off_x == 0)
-    sprintf (work + 2, ".");
-  p = work + strlen (work);
-  if (off_x > 0)
-    sprintf (p, ">%d", off_x);
-  else if (off_x < 0)
-    sprintf (p, "<%d", -off_x);
-  p += strlen (p);
-  p[0] = vallign[COMBINING_CODE_ADD_Y (code)];
-  p[1] = hallign[COMBINING_CODE_ADD_X (code)];
-  p[2] = '\0';
-  return work;
-}
-
-void
-dump_gstring (MGlyphString *gstring, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MGlyph *g, *last_g = gstring->glyphs + gstring->used;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(glyph-string");
-
-  for (g = MGLYPH (0); g < last_g; g++)
-    fprintf (stderr,
-	     "\n%s  (%02d %s pos:%d-%d c:%04X code:%04X face:%x cmb:%s w:%02d bidi:%d)",
-	     prefix,
-	     g - gstring->glyphs,
-	     (g->type == GLYPH_SPACE ? "SPC": g->type == GLYPH_PAD ? "PAD"
-	      : g->type == GLYPH_ANCHOR ? "ANC"
-	      : g->type == GLYPH_BOX ? "BOX" : "CHR"),
-	     g->pos, g->to, g->c, g->code, (unsigned) g->rface,
-	     dump_combining_code (g->combining_code),
-	     g->width, g->bidi_level);
-  fprintf (stderr, ")");
-}
-
-
-/* m17n-X internal APIs */
-
-int
-mdraw__init ()
-{
-  M_glyph_string = msymbol_as_managing_key ("  glyph-string");
-
-  memset (&scratch_gstring, 0, sizeof (scratch_gstring));
-  MLIST_INIT1 (&scratch_gstring, glyphs, 3);
-
-  Mlatin = msymbol ("latin");
-  Minherited = msymbol ("inherited");
-
-  McatCc = msymbol ("Cc");
-  McatCf = msymbol ("Cf");
-
-  MbidiR = msymbol ("R");
-  MbidiAL = msymbol ("AL");
-  MbidiRLE = msymbol ("RLE");
-  MbidiRLO = msymbol ("RLO");
-  MbidiBN = msymbol ("BN");
-  MbidiS = msymbol ("S");
-#ifdef HAVE_FRIBIDI
-  fribidi_set_mirroring (TRUE);
-#endif
-
-  return 0;
-}
-
-void
-mdraw__fini ()
-{
-  MLIST_FREE1 (&scratch_gstring, glyphs);
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-/*** @addtogroup m17nDraw */
-/*** @{ */
-
-/*=*/
-/***en
-    @brief Draw an M-text on a window.
-
-    The mdraw_text () function draws the text between $FROM and $TO of
-    M-text $MT on window $WIN of frame $FRAME at coordinate ($X, $Y).
-
-    The appearance of the text (size, style, color, etc) is specified
-    by the value of the text property whose key is @c Mface.  If the
-    M-text or a part of the M-text does not have such a text property,
-    the default face of $FRAME is used.
-
-    The font used to draw a character in the M-text is selected from
-    the value of the fontset property of a face by the following
-    algorithm:
-
-    
-
-     Search the text properties given to the character for the one
-	 whose key is @c Mcharset; its value should be either a symbol
-	 specifying a charset or #Mnil.  If the value is #Mnil,
-	 proceed to the next step.
-
-	 Otherwise, search the mapping table of the fontset for the
-	 charset.  If no entry is found proceed to the next step.  
-
-         If an entry is found, use one of the fonts in the entry that
-	 has a glyph for the character and that matches best with the
-	 face properties.  If no such font exists, proceed to the next
-	 step.
-
-    
 Get the character property "script" of the character.  If it is
-	 inherited, get the script property from the previous
-	 characters.  If there is no previous character, or none of
-	 them has the script property other than inherited, proceed to
-	 the next step.
-
-	 Search the text properties given to the character for the one
-         whose key is @c Mlanguage; its value should be either a
-         symbol specifying a language or @c Mnil.
-
-	 Search the mapping table of the fontset for the combination
-	 of the script and language.  If no entry is found, proceed to
-	 the next step.  
-
-        If an entry is found, use one of the fonts in the entry that
-	 has a glyph for the character and that matches best with the
-	 face properties.  If no such font exists, proceed to the next
-	 step.
-
-    
 Search the fall-back table of the fontset for a font that has
-	 a glyph of the character.  If such a font is found, use that
-	 font.
-
-    
-
-    If no font is found by the algorithm above, this function draws an
-    empty box for the character.
-
-    This function draws only the glyph foreground.  To specify the
-    background color, use mdraw_image_text () or
-    mdraw_text_with_control ().
-
-    This function is the counterpart of XDrawString (),
-    XmbDrawString (), and XwcDrawString () functions
-    in the X Window System.
-
-    @return
-    If the operation was successful, mdraw_text () returns 0.  If an
-    error is detected, it returns -1 and assigns an error code to the
-    external variable #merror_code.  */
-/***ja
-    @brief ¥¦¥£¥ó¥É¥¦¤Ë M-text ¤òÉÁ²è¤¹¤ë.
-
-    ´Ø¿ô mdraw_text () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¤Î¥¦¥£¥ó¥É¥¦ $WIN ¤ÎºÂÉ¸ 
-    ($X, $Y) ¤Ë¡¢M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤Î¥Æ¥¥¹¥È¤ò
-    ÉÁ²è¤¹¤ë¡£
-
-    ¥Æ¥¥¹¥È¤Î¸«±É¤¨¡Ê¥Õ¥©¥ó¥È¡¢¥¹¥¿¥¤¥ë¡¢¿§¤Ê¤É¡Ë¤Ï¡¢¥¡¼¤¬ @c Mface 
-    ¤Ç¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ë¤è¤Ã¤Æ·è¤Þ¤ë¡£M-text ¤Î°ìÉô¤¢¤ë¤¤¤Ï
-    Á´Éô¤Ë¤½¤Î¤è¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢$FRAME 
-    ¤Î¥Ç¥Õ¥©¥ë¥È¥Õ¥§¡¼¥¹¤¬ÍÑ¤¤¤é¤ì¤ë¡£
-
-    M-text ¤Î³ÆÊ¸»ú¤òÉ½¼¨¤¹¤ë¥Õ¥©¥ó¥È¤Ï¡¢¥Õ¥§¡¼¥¹¤Î fontset ¥×¥í¥Ñ¥Æ¥£
-    ¤ÎÃÍ¤«¤é°Ê²¼¤Î¥¢¥ë¥´¥ê¥º¥à¤ÇÁª¤Ð¤ì¤ë¡£
-
-    
-
-     ¤½¤ÎÊ¸»ú¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬ @c Mcharset ¤Ç¤¢¤ë
-         ¤â¤Î¤ÎÃÍ¤òÄ´¤Ù¤ë¡£¤³¤ÎÃÍ¤ÏÊ¸»ú¥»¥Ã¥È¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤« #Mnil 
-         ¤Î¤É¤Á¤é¤«¤Ç¤¢¤ë¡£#Mnil ¤Ê¤é¤Ð¡¢¼¡¤Î¥¹¥Æ¥Ã¥×¤Ë¿Ê¤à¡£¤½¤¦¤Ç¤Ê
-         ¤±¤ì¤Ð¡¢¤½¤Î¥Õ¥©¥ó¥È¥»¥Ã¥È¤Î¥Þ¥Ã¥Ô¥ó¥°¥Æ¡¼¥Ö¥ë¤«¤é¤½¤ÎÊ¸»ú¥»¥Ã
-         ¥ÈÍÑ¤Î¤â¤Î¤òÃµ¤¹¡£¥Õ¥©¥ó¥È¤¬¤ß¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢¼¡¤Î¥¹¥Æ¥Ã¥×¤Ë
-         ¿Ê¤à¡£
-         
-         ¤½¤ÎÊ¸»ú¥»¥Ã¥ÈÍÑ¤Î¥Õ¥©¥ó¥È¤¬¤ß¤Ä¤«¤ì¤Ð¡¢¤½¤ì¤é¤Î¤¦¤Á¸½ºß¤ÎÊ¸
-	 »úÍÑ¤Î¥°¥ê¥Õ¤ò»ý¤Á¡¢¥Õ¥§¡¼¥¹¤Î³Æ¥×¥í¥Ñ¥Æ¥£¤ËºÇ¤â¤è¤¯¹çÃ×¤·¤Æ
-	 ¤¤¤ë¤â¤Î¤ò»È¤¦¡£¤½¤Î¤è¤¦¤Ê¥Õ¥©¥ó¥È¤¬Ìµ¤±¤ì¤Ð¼¡¤Î¥¹¥Æ¥Ã¥×¤Ë¿Ê
-	 ¤à¡£
-
-    
 ¤½¤ÎÊ¸»ú¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£ "script" ¡Ê¥¹¥¯¥ê¥×¥È¡Ë¤òÄ´¤Ù¤ë¡£·Ñ
-         ¾µ¤µ¤ì¤Æ¤¤¤ë¤Ê¤é¤Ð¤½¤ì°ÊÁ°¤ÎÊ¸»ú¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£ "script" ¤ò
-         Ä´¤Ù¤ë¡£Á°¤ÎÊ¸»ú¤¬¤Ê¤«¤Ã¤¿¤ê¡¢¤½¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ã¤Æ¤¤¤Ê
-         ¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢¼¡¤Î¥¹¥Æ¥Ã¥×¤Ë¿Ê¤à¡£
-
-         ¤½¤ÎÊ¸»ú¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬ @c Mlanguage ¤Ç¤¢
-         ¤ë¤â¤Î¤ÎÃÍ¤òÄ´¤Ù¤ë¡£¤³¤ÎÃÍ¤Ï¸À¸ì¤òÉ½¤ï¤¹¥·¥ó¥Ü¥ë¤« @c Mnil ¤Î
-         ¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
-
-	 ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¤½¤Î¸À¸ì¤È¥¹¥¯¥ê¥×¥È¤ÎÁÈ¤ß¹ç¤ï¤»ÍÑ¤Î¥Õ¥©¥ó¥È
-	 ¥»¥Ã¥È¤ò¥Þ¥Ã¥Ô¥ó¥°¥Æ¡¼¥Ö¥ë¤«¤éÃµ¤¹¡£¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¼¡¤Î¥¹¥Æ¥Ã
-	 ¥×¤Ë¿Ê¤à¡£
-
-	 ¤½¤Î¤è¤¦¤ÊÊ¸»ú¥»¥Ã¥ÈÍÑ¤Î¥Õ¥©¥ó¥È¤¬¤ß¤Ä¤«¤ì¤Ð¡¢¤½¤ì¤é¤Î¤¦¤Á¸½
-	 ºß¤ÎÊ¸»úÍÑ¤Î¥°¥ê¥Õ¤ò»ý¤Á¡¢¥Õ¥§¡¼¥¹¤Î³Æ¥×¥í¥Ñ¥Æ¥£¤ËºÇ¤â¤è¤¯¹ç
-	 Ã×¤·¤Æ¤¤¤ë¤â¤Î¤ò»È¤¦¡£¤½¤Î¤è¤¦¤Ê¥Õ¥©¥ó¥È¤¬Ìµ¤±¤ì¤Ð¼¡¤Î¥¹¥Æ¥Ã
-	 ¥×¤Ë¿Ê¤à¡£
-
-    
 ¤½¤ÎÊ¸»ú¤Î¥°¥ê¥Õ¤ò»ý¤Ä¥Õ¥©¥ó¥È¤ò¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Îfall-back¥Æ¡¼
-         ¥Ö¥ë¤«¤éÃµ¤¹¡£¥Õ¥©¥ó¥È¤¬¸«¤Ä¤«¤ì¤Ð¤½¤ì¤ò»È¤¦¡£
-
-    
-
-    °Ê¾å¤Î¥¢¥ë¥´¥ê¥º¥à¤Ç¥Õ¥©¥ó¥È¤¬¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¤½¤ÎÊ¸»ú
-    ¤È¤·¤Æ¶õ¤Î»Í³Ñ·Á¤òÉ½¼¨¤¹¤ë¡£
-
-    ¤³¤Î´Ø¿ô¤¬ÉÁ²è¤¹¤ë¤Î¤Ï¥°¥ê¥Õ¤ÎÁ°·Ê¤À¤±¤Ç¤¢¤ë¡£ÇØ·Ê¿§¤ò»ØÄê¤¹¤ë¤Ë¤Ï¡¢
-    ´Ø¿ô mdraw_image_text () ¤«´Ø¿ô mdraw_text_with_control () ¤ò»È¤¦
-    ¤³¤È¡£
-
-    ¤³¤Î´Ø¿ô¤Ï¡¢X ¥¦¥£¥ó¥É¥¦¤Ë¤ª¤±¤ë´Ø¿ô XDrawString (),
-    XmbDrawString (), XwcDrawString () ¤ËÁêÅö¤¹¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mdraw_text () ¤Ï 0 ÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì
-    ¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mdraw_text} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mdraw_image_text ()  */
-
-int
-mdraw_text (MFrame *frame, MDrawWindow win, int x, int y,
-	    MText *mt, int from, int to)
-{
-  MDrawControl control;
-
-  M_CHECK_WRITABLE (frame, MERROR_DRAW, -1);
-  memset (&control, 0, sizeof control);
-  control.as_image = 0;
-  return draw_text (frame, win, x, y, mt, from, to, &control);
-}
-
-/*=*/
-
-
-/***en
-    @brief Draw an M-text on a window as an image.
-
-    The mdraw_image_text () function draws the text between $FROM and
-    $TO of M-text $MT as image on window $WIN of frame $FRAME at
-    coordinate ($X, $Y).
-
-    The way to draw a text is the same as in mdraw_text () except that
-    this function also draws the background with the color specified
-    by faces.
-
-    This function is the counterpart of XDrawImageString (),
-    XmbDrawImageString (), and XwcDrawImageString ()
-    functions in the X Window System.
-
-    @return
-    If the operation was successful, mdraw_image_text () returns 0.
-    If an error is detected, it returns -1 and assigns an error code
-    to the external variable #merror_code.  */
-
-/***ja
-    @brief ¥Ç¥£¥¹¥×¥ì¥¤¤ËM-text ¤ò²èÁü¤È¤·¤ÆÉÁ¤¯.
-  
-    ´Ø¿ô mdraw_image_text () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¤Î¥¦¥£¥ó¥É¥¦ $WIN ¤Î
-    ºÂÉ¸ ($X, $Y) ¤Ë¡¢M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤Î¥Æ¥¥¹¥È¤ò²è
-    Áü¤È¤·¤ÆÉÁ¤¯¡£
-
-    ¥Æ¥¥¹¥È¤ÎÉÁ²èÊýË¡¤Ï mdraw_text () ¤È¤Û¤ÜÆ±¤¸¤Ç¤¢¤ë¤¬¡¢¤³¤Î´Ø¿ô¤Ç
-    ¤Ï¥Õ¥§¡¼¥¹¤Ç»ØÄê¤µ¤ì¤¿¿§¤ÇÇØ·Ê¤âÉÁ¤¯ÅÀ¤¬°Û¤Ê¤Ã¤Æ¤¤¤ë¡£
-
-    ¤³¤Î´Ø¿ô¤Ï¡¢X ¥¦¥£¥ó¥É¥¦¤Ë¤ª¤±¤ë XDrawImageString (),
-    XmbDrawImageString (), XwcDrawImageString () ¤Ë
-    ÁêÅö¤¹¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mdraw_image_text () ¤Ï 0 ¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð
-    ¤µ¤ì¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #m_errro ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹
-    ¤ë¡£
-
-    @latexonly \IPAlabel{mdraw_image_text} @endlatexonly   */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mdraw_text ()  */
-
-int
-mdraw_image_text (MFrame *frame, MDrawWindow win, int x, int y,
-		  MText *mt, int from, int to)
-{
-  MDrawControl control;
-
-  M_CHECK_WRITABLE (frame, MERROR_DRAW, -1);
-  memset (&control, 0, sizeof control);
-  control.as_image = 1;
-  return draw_text (frame, win, x, y, mt, from, to, &control);
-}
-
-/*=*/
-
-/***en
-    @brief Draw an M-text on a window with fine control.
-
-    The mdraw_text_with_control () function draws the text between
-    $FROM and $TO of M-text $MT on windows $WIN of frame $FRAME at
-    coordinate ($X, $Y).
-
-    The way to draw a text is the same as in mdraw_text () except that
-    this function also follows what specified in the drawing control
-    object $CONTROL.
-
-    For instance, if  of $CONTROL is nonzero, this
-    function draw an M-text 2-dimensionally, i.e., newlines in M-text
-    breaks lines and the following characters are drawn in the next
-    line.  See the documentation of the structure @ MDrawControl for
-    more detail.  */
-
-/***ja
-    @brief ¥Ç¥£¥¹¥×¥ì¥¤¤ËM-text ¤òÉÁ¤¯¡Ê¾ÜºÙ¤ÊÀ©¸æ¤Ä¤¡Ë.
-
-    ´Ø¿ô mdraw_text_with_control () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¤Î¥¦¥£¥ó¥É¥¦ 
-    $WIN ¤ÎºÂÉ¸ ($X, $Y) ¤Ë¡¢M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤Î¥Æ¥¥¹
-    ¥È¤òÉÁ¤¯¡£
-
-    ¥Æ¥¥¹¥È¤ÎÉÁ²èÊýË¡¤Ï mdraw_text () ¤È¤Û¤ÜÆ±¤¸¤Ç¤¢¤ë¤¬¡¢¤³¤Î´Ø¿ô¤Ï
-    ÉÁ²èÀ©¸æÍÑ¤Î¥ª¥Ö¥¸¥§¥¯¥È $CONTROL ¤Ç¤Î»Ø¼¨¤Ë¤â½¾¤¦ÅÀ¤¬°Û¤Ê¤Ã¤Æ¤¤¤ë¡£
-
-    ¤¿¤È¤¨¤Ð $CONTROL ¤Î  ¤¬¥¼¥í¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô
-    ¤ÏM-text ¤ò2¼¡¸µÅª¤ËÉÁ¤¯¡£¤¹¤Ê¤ï¤Á M-text Ãæ¤Î²þ¹Ô¤Ç¹Ô¤ò²þ¤á¡¢Â³¤¯
-    Ê¸»ú¤Ï¼¡¤Î¹Ô¤ËÉÁ¤¯¡£¾ÜºÙ¤Ï¹½Â¤ÂÎ @ MDrawControl ¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³
-    ¤È¡£*/
-
-int
-mdraw_text_with_control (MFrame *frame, MDrawWindow win, int x, int y,
-			 MText *mt, int from, int to, MDrawControl *control)
-{
-  M_CHECK_WRITABLE (frame, MERROR_DRAW, -1);
-  return draw_text (frame, win, x, y, mt, from, to, control);
-}
-
-/*=*/
-
-/***en
-    @brief Compute text pixel width.
-
-    The mdraw_text_extents () function computes the width of text
-    between $FROM and $TO of M-text $MT when it is drawn on a window
-    of frame $FRAME using the mdraw_text_with_control () function with
-    the drawing control object $CONTROL.
-
-    If $OVERALL_INK_RETURN is not @c NULL, this function also computes
-    the bounding box of character ink of the M-text, and stores the
-    results in the members of the structure pointed to by
-    $OVERALL_INK_RETURN.  If the M-text has a face specifying a
-    surrounding box, the box is included in the bounding box.
-
-    If $OVERALL_LOGICAL_RETURN is not @c NULL, this function also
-    computes the bounding box that provides mininum spacing to other
-    graphical features (such as surrounding box) for the M-text, and
-    stores the results in the members of the structure pointed to by
-    $OVERALL_LOGICAL_RETURN.
-
-    If $OVERALL_LINE_RETURN is not @c NULL, this function also
-    computes the bounding box that provides mininum spacing to the
-    other M-text drawn, and stores the results in the members of the
-    structure pointed to by $OVERALL_LINE_RETURN.  This is a union of
-    $OVERALL_INK_RETURN and $OVERALL_LOGICAL_RETURN if the members
-    min_line_ascent, min_line_descent, max_line_ascent, and
-    max_line_descent of $CONTROL are all zero.
-
-    @return
-    This function returns the width of the text to be drawn in the
-    unit of pixels.  If $CONTROL->two_dimensional is nonzero and the
-    text is drawn in multiple physical lines, it returns the width of
-    the widest line.  If an error occurs, it returns -1 and assigns an
-    error code to the external variable #merror_code.  */
-
-
-/***ja 
-    @brief ¥Æ¥¥¹¥È¤ÎÉý¡Ê¥Ô¥¯¥»¥ëÃ±°Ì¡Ë¤ò·×»»¤¹¤ë.
-
-    ´Ø¿ô mdraw_text_extents () ¤Ï¡¢´Ø¿ô mdraw_text_with_control () ¤¬
-    ÉÁ²èÀ©¸æ¥ª¥Ö¥¸¥§¥¯¥È $CONTROL ¤òÍÑ¤¤¤Æ M-text $MT ¤Î $FROM ¤«¤é $TO 
-    ¤Þ¤Ç¤ò¥Õ¥ì¡¼¥à $FRAME ¤ËÉ½¼¨¤¹¤ëºÝ¤ËÉ¬Í×¤È¤Ê¤ëÉý¤òÊÖ¤¹¡£
-
-    $OVERALL_INK_RETURN ¤¬ @c NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï M-text ¤ÎÊ¸
-    »ú¤Î¥¤¥ó¥¯¤Î¥Ð¥¦¥ó¥Ç¥£¥ó¥°¥Ü¥Ã¥¯¥¹¤â·×»»¤·¡¢$OVERALL_INK_RETURN ¤¬
-    »Ø¤¹¹½Â¤ÂÎ¤Î¥á¥ó¥Ð¤Ë¤½¤Î·ë²Ì¤òÀßÄê¤¹¤ë¡£M-text ¤Ë°Ï¤ßÏÈ(surrounding box)
-    ¤ò»ØÄê¤¹¤ë¥Õ¥§¡¼¥¹¤¬¤¢¤ì¤Ð¡¢¤½¤ì¤â¥Ð¥¦¥ó¥Ç¥£¥ó¥°¥Ü¥Ã¥¯¥¹¤Ë´Þ¤à¡£
-
-    $OVERALL_LOGICAL_RETURN ¤¬ @c NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï M-text 
-    ¤ÈÂ¾¤Î graphical feature ¡Ê°Ï¤ßÏÈ¤Ê¤É¡Ë¤È¤Î´Ö¤ÎºÇ¾®¤Î¥¹¥Ú¡¼¥¹¤ò¼¨
-    ¤¹¥Ð¥¦¥ó¥Ç¥£¥ó¥°¥Ü¥Ã¥¯¥¹¤â·×»»¤·¡¢$OVERALL_LOGICAL_RETURN ¤¬»Ø¤¹¹½
-    Â¤ÂÎ¤Î¥á¥ó¥Ð¤Ë¤½¤Î·ë²Ì¤òÀßÄê¤¹¤ë¡£
-
-    $OVERALL_LINE_RETURN ¤¬ @c NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤ÏÂ¾¤Î M-text 
-    ¤È¤Î´Ö¤ÎºÇ¾®¤Î¥¹¥Ú¡¼¥¹¤ò¼¨¤¹¥Ð¥¦¥ó¥Ç¥£¥ó¥°¥Ü¥Ã¥¯¥¹¤â·×»»¤·¡¢
-    $OVERALL_LINE_RETURN ¤¬»Ø¤¹¹½Â¤ÂÎ¤Î¥á¥ó¥Ð¤Ë¤½¤Î·ë²Ì¤òÀßÄê¤¹¤ë¡£¥ª
-    ¥Ö¥¸¥§¥¯¥È $CONTROL ¤Î¥á¥ó¥Ð min_line_ascent, min_line_descent,
-    max_line_ascent, max_line_descent ¤¬¤¹¤Ù¤Æ0¤Î»þ¤Ë¤Ï¡¢¤³¤ÎÃÍ¤Ï 
-    $OVERALL_INK_RETURN ¤È$OVERALL_LOGICAL_RETURN ¤ÎÏÂ¤È¤Ê¤ë¡£
-
-    @return ¤³¤Î´Ø¿ô¤ÏÉ½¼¨¤ËÉ¬Í×¤Ê¥Æ¥¥¹¥È¤ÎÉý¤ò¥Ô¥¯¥»¥ëÃ±°Ì¤ÇÊÖ¤¹¡£
-    $CONTROL->two_dimensional ¤¬0¤Ç¤Ê¤¯¡¢¥Æ¥¥¹¥È¤¬Ê£¿ô¤Î¹Ô¤ËÅÏ¤Ã¤ÆÉÁ
-    ¤«¤ì¤ë¾ì¹ç¤Ë¤Ï¡¢ºÇÂç¤ÎÉý¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬À¸¤¸¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°
-    ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mdraw_text_extents} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE  */
-
-int
-mdraw_text_extents (MFrame *frame,
-		    MText *mt, int from, int to, MDrawControl *control,
-		    MDrawMetric *overall_ink_return,
-		    MDrawMetric *overall_logical_return,
-		    MDrawMetric *overall_line_return)
-{
-  MGlyphString *gstring;
-  int y = 0;
-  int width, rbearing;
-
-  ASSURE_CONTROL (control);
-  M_CHECK_POS_X (mt, from, -1);
-  if (to > mtext_nchars (mt) + (control->cursor_width != 0))
-    to = mtext_nchars (mt) + (control->cursor_width != 0);
-  else if (to < from)
-    to = from;
-
-  gstring = get_gstring (frame, mt, from, to, control);
-  if (! gstring)
-    MERROR (MERROR_DRAW, -1);
-  width = gstring_width (gstring, from, to, &rbearing);
-  if (overall_ink_return)
-    {
-      overall_ink_return->y = - gstring->physical_ascent;
-      overall_ink_return->x = gstring->lbearing;
-    }
-  if (overall_logical_return)
-    {
-      overall_logical_return->y = - gstring->ascent;
-      overall_logical_return->x = 0;
-    }
-  if (overall_line_return)
-    {
-      overall_line_return->y = - gstring->line_ascent;
-      overall_line_return->x = gstring->lbearing;
-    }
-
-  for (from = gstring->to; from < to; from = gstring->to)
-    {
-      int this_width, this_rbearing;
-
-      y += gstring->line_descent;
-      M17N_OBJECT_UNREF (gstring->top);
-      gstring = get_gstring (frame, mt, from, to, control);
-      this_width = gstring_width (gstring, from, to, &this_rbearing);
-      y += gstring->line_ascent;
-      if (width < this_width)
-	width = this_width;
-      if (rbearing < this_rbearing)
-	rbearing = this_rbearing;
-    }
-  if (overall_ink_return)
-    {
-      overall_ink_return->width = rbearing;
-      overall_ink_return->height
-	= y + gstring->physical_descent - overall_ink_return->y;
-    }
-  if (overall_logical_return)
-    {
-      overall_logical_return->width = width;
-      overall_logical_return->height
-	= y + gstring->descent - overall_logical_return->y;
-    }
-  if (overall_line_return)
-    {
-      overall_line_return->width = MAX (width, rbearing);
-      overall_line_return->height
-	= y + gstring->line_descent - overall_line_return->y;
-    }
-
-  M17N_OBJECT_UNREF (gstring->top);
-  return width;
-}
-
-/*=*/
-
-/***en
-    @brief Compute the text dimensions of each character of M-text.
-
-    The mdraw_text_per_char_extents () function computes the drawn
-    metric of each character between $FROM and $TO of M-text $MT
-    assuming that they are drawn on a window of frame $FRAME using the
-    mdraw_text_with_control () function with the drawing control
-    object $CONTROL.
-
-    $ARRAY_SIZE specifies the size of $INK_ARRAY_RETURN and
-    $LOGICAL_ARRAY_RETURN.  Each successive element of
-    $INK_ARRAY_RETURN and $LOGICAL_ARRAY_RETURN are set to the drawn
-    ink and logical metrics of successive characters respectively,
-    relative to the drawing origin of the M-text.  The number of
-    elements of $INK_ARRAY_RETURN and $LOGICAL_ARRAY_RETURN that have
-    been set is returned to $NUM_CHARS_RETURN.
-
-    If $ARRAY_SIZE is too small to return all metrics, the function
-    returns -1 and store the requested size in $NUM_CHARS_RETURN.
-    Otherwise, it returns zero.
-
-    If pointer $OVERALL_INK_RETURN and $OVERALL_LOGICAL_RETURN are not
-    @c NULL, this function also computes the metrics of the overall
-    text and stores the results in the members of the structure
-    pointed to by $OVERALL_INK_RETURN and $OVERALL_LOGICAL_RETURN.
-
-    If $CONTROL->two_dimensional is nonzero, this function computes
-    only the metrics of characters in the first line.  */
-/***ja
-    @brief  M-text ¤Î³ÆÊ¸»ú¤ÎÉ½¼¨ÈÏ°Ï¤ò·×»»¤¹¤ë.
-
-    ´Ø¿ô mdraw_text_per_char_extents () ¤Ï¡¢´Ø¿ô 
-    mdraw_text_with_control () ¤¬ÉÁ²èÀ©¸æ¥ª¥Ö¥¸¥§¥¯¥È $CONTROL ¤òÍÑ¤¤
-    ¤Æ M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤ò¥Õ¥ì¡¼¥à $FRAME ¤ËÉ½¼¨¤¹¤ëºÝ
-    ¤Î³ÆÊ¸»ú¤Î¥µ¥¤¥º¤ò·×»»¤¹¤ë¡£
-
-    $ARRAY_SIZE ¤Ë¤è¤Ã¤Æ $INK_ARRAY_RETURN ¤È$LOGICAL_ARRAY_RETURN ¤Î
-    ¥µ¥¤¥º¤ò»ØÄê¤¹¤ë¡£$INK_ARRAY_RETURN ¤È$LOGICAL_ARRAY_RETURN ¤Î³ÆÍ×
-    ÁÇ¤Ï¡¢¤½¤ì¤¾¤ìÊ¸»ú¤ÎÉÁ²è¥¤¥ó¥¯¤ÈÏÀÍý¥µ¥¤¥º¡ÊM-text¤ÎÉ½¼¨¸¶ÅÀ¤«¤é¤Î
-    ÁêÂÐ°ÌÃÍ¡Ë¤Ë¤è¤Ã¤Æ½ç¤ËËä¤á¤é¤ì¤ë¡£ÀßÄê¤µ¤ì¤¿ $INK_ARRAY_RETURN ¤È 
-    $LOGICAL_ARRAY_RETURN ¤ÎÍ×ÁÇ¤Î¿ô¤Ï¡¢$NUM_CHARS_RETURN ¤ËÌá¤µ¤ì¤ë¡£
-   
-    $ARRAY_SIZE ¤¬¤¹¤Ù¤Æ¤ÎÀ£Ë¡¤òÌá¤»¤Ê¤¤¤Û¤É¾®¤µ¤¤¾ì¹ç¤Ë¤Ï¡¢´Ø¿ô¤Ï -1 
-    ¤òÊÖ¤·¡¢É¬Í×¤ÊÂç¤¤µ¤ò $NUM_CHARS_RETURN ¤ËÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 0 
-    ¤òÊÖ¤¹¡£
-
-    ¥Ý¥¤¥ó¥¿ $OVERALL_INK_RETURN ¤È $OVERALL_LOGICAL_RETURN ¤¬@c NULL 
-    ¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¥Æ¥¥¹¥ÈÁ´ÂÎ¤Î¥µ¥¤¥º¤â·×»»¤·¡¢·ë²Ì¤ò
-    $OVERALL_INK_RETURN ¤È $OVERALL_LOGICAL_RETURN ¤Ç»Ø¤µ¤ì¤ë¹½Â¤¤Î¥á
-    ¥ó¥Ð¤ËÊÝÂ¸¤¹¤ë¡£
-
-    $CONTROL->two_dimensional ¤¬0¤Ç¤Ê¤±¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤ÏºÇ½é¤Î¹Ô¤ÎÊ¸»ú
-    ¤Î¥µ¥¤¥º¤À¤±¤ò·×»»¤¹¤ë¡£ */
-
-int
-mdraw_text_per_char_extents (MFrame *frame,
-			     MText *mt, int from, int to,
-			     MDrawControl *control,
-			     MDrawMetric *ink_array_return,
-			     MDrawMetric *logical_array_return,
-			     int array_size,
-			     int *num_chars_return,
-			     MDrawMetric *overall_ink_return,
-			     MDrawMetric *overall_logical_return)
-{
-  MGlyphString *gstring;
-  MGlyph *g;
-  int x;
-
-  ASSURE_CONTROL (control);
-  *num_chars_return = to - from;
-  if (array_size < *num_chars_return)
-    MERROR (MERROR_DRAW, -1);
-  if (overall_logical_return)
-    memset (overall_logical_return, 0, sizeof (MDrawMetric));
-  if (overall_ink_return)
-    memset (overall_ink_return, 0, sizeof (MDrawMetric));
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-  gstring = get_gstring (frame, mt, from, to, control);
-  if (! gstring)
-    {
-      *num_chars_return = 0;
-      return 0;
-    }
-
-  for (g = MGLYPH (1), x = 0; g->type != GLYPH_ANCHOR;)
-    if (g->pos >= from && g->pos < to)
-      {
-	int start = g->pos;
-	int end = g->to;
-	int width = g->width;
-	int lbearing = g->lbearing;
-	int rbearing = g->rbearing;
-	int ascent = g->ascent;
-	int descent = g->descent;
-	int logical_ascent = g->rface->rfont->ascent;
-	int logical_descent = g->rface->rfont->descent;
-
-	for (g++; g->type != GLYPH_ANCHOR && g->pos == start; g++)
-	  {
-	    if (lbearing < width + g->lbearing)
-	      lbearing = width + g->lbearing;
-	    if (rbearing < width + g->rbearing)
-	      rbearing = width + g->rbearing;
-	    width += g->width;
-	    if (ascent < g->ascent)
-	      ascent = g->ascent;
-	    if (descent < g->descent)
-	      descent = g->descent;
-	  }
-
-	if (end > to)
-	  end = to;
-	while (start < end)
-	  {
-	    ink_array_return[start - from].x = x + lbearing;
-	    ink_array_return[start - from].y = - ascent;
-	    ink_array_return[start - from].width = rbearing - lbearing;
-	    ink_array_return[start - from].height = ascent + descent;
-	    logical_array_return[start - from].x = x;
-	    logical_array_return[start - from].y = - logical_descent;
-	    logical_array_return[start - from].height
-	      = logical_ascent + logical_descent;
-	    logical_array_return[start - from].width = width;
-	    start++;
-	  }
-	x += width;
-      }
-
-  if (overall_ink_return)
-    {
-      overall_ink_return->y = - gstring->line_ascent;
-      overall_ink_return->x = gstring->lbearing;
-      overall_ink_return->width = x - gstring->lbearing;
-      overall_ink_return->height = gstring->height;
-    }
-  if (overall_logical_return)
-    {
-      overall_logical_return->y = - gstring->ascent;
-      overall_logical_return->x = 0;
-      overall_logical_return->width = x;
-      overall_logical_return->height = gstring->ascent + gstring->descent;
-    }
-
-  M17N_OBJECT_UNREF (gstring->top);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Return the character position nearest to the coordinates.
-
-    The mdraw_coordinates_position () function checks which character
-    is to be drawn at coordinate ($X, $Y) when the text between $FROM
-    and $TO of M-text $MT is drawn at the coordinate (0, 0) using the
-    mdraw_text_with_control () function with the drawing control
-    object $CONTROL.  Here, the character position means the number of
-    characters that precede the character in question in $MT, that is,
-    the character position of the first character is 0.
-
-    $FRAME is used only to get the default face information.
-
-    @return
-    If the glyph image of a character covers coordinate ($X, $Y),
-    mdraw_coordinates_position () returns the character position of
-    that character.\n\n
-    If $Y is less than the minimum Y-coordinate of the drawn area, it
-    returns $FROM.\n\n\n
-    If $Y is greater than the maximum Y-coordinate of the drawn area,
-    it returns $TO.\n\n\n
-    If $Y fits in with the drawn area but $X is less than the minimum
-    X-coordinate, it returns the character position of the first
-    character drawn on the line $Y.\n\n\n
-    If $Y fits in with the drawn area but $X is greater than the
-    maximum X-coordinate, it returns the character position of the
-    last character drawn on the line $Y.  */
-
-/***ja
-    @brief »ØÄê¤·¤¿ºÂÉ¸¤ËºÇ¤â¶á¤¤Ê¸»ú¤ÎÊ¸»ú°ÌÃÖ¤òÆÀ¤ë.
-
-    ´Ø¿ô mdraw_coordinates_position () ¤Ï¡¢´Ø¿ô 
-    mdraw_text_with_control () ¤¬ÉÁ²èÀ©¸æ¥ª¥Ö¥¸¥§¥¯¥È $CONTROL ¤òÍÑ¤¤
-    ¤ÆM-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤òºÂÉ¸ (0, 0) ¤òµ¯ÅÀ¤È¤·¤ÆÉÁ²è
-    ¤·¤¿¾ì¹ç¤Ë¡¢ºÂÉ¸ ($X, $Y) ¤ËÉÁ²è¤µ¤ì¤ëÊ¸»ú¤ÎÊ¸»ú°ÌÃÖ¤òÊÖ¤¹¡£¤³¤³¤Ç
-    Ê¸»ú°ÌÃÖ¤È¤Ï¡¢Åö³º M-text Ãæ¤Ë¤ª¤¤¤Æ¤½¤ÎÊ¸»ú¤¬ºÇ½é¤«¤é²¿ÈÖÌÜ¤«¤ò¼¨
-    ¤¹À°¿ô¤Ç¤¢¤ë¡£¤¿¤À¤·ºÇ½é¤ÎÊ¸»ú¤ÎÊ¸»ú°ÌÃÖ¤Ï0¤È¤¹¤ë¡£
-
-    $FRAME ¤Ï¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤Î¾ðÊó¤òÆÀ¤ë¤¿¤á¤À¤±¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    @return
-    ºÂÉ¸ ($X, $Y) ¤¬¤¢¤ëÊ¸»ú¤Î¥°¥ê¥Õ¤ÇÊ¤¤ï¤ì¤ë¾ì¹ç¡¢ ´Ø¿ô 
-    mdraw_coordinates_position () ¤Ï¤½¤ÎÊ¸»ú¤ÎÊ¸»ú°ÌÃÖ¤òÊÖ¤¹¡£
-
-    ¤â¤· $Y ¤¬ÉÁ²èÎÎ°è¤ÎºÇ¾®YºÂÉ¸¤è¤ê¤â¾®¤µ¤¤¤Ê¤é¤Ð $FROM ¤òÊÖ¤¹¡£
-
-    ¤â¤· $Y ¤¬ÉÁ²èÎÎ°è¤ÎºÇÂçYºÂÉ¸¤è¤ê¤âÂç¤¤¤¤Ê¤é¤Ð $TO ¤òÊÖ¤¹¡£
-
-    ¤â¤· $Y ¤¬ÉÁ²èÎÎ°è¤Ë¾è¤Ã¤Æ¤¤¤Æ¤«¤Ä $X ¤¬ÉÁ²èÎÎ°è¤ÎºÇ¾®XºÂÉ¸¤è¤ê¤â
-    ¾®¤µ¤¤¾ì¹ç¤Ï¡¢Ä¾Àþ y = $Y ¾å¤ËÉÁ²è¤µ¤ì¤ëºÇ½é¤ÎÊ¸»ú¤ÎÊ¸»ú°ÌÃÖ¤òÊÖ¤¹¡£
-
-    ¤â¤· $Y ¤¬ÉÁ²èÎÎ°è¤Ë¾è¤Ã¤Æ¤¤¤Æ¤«¤Ä $X ¤¬ÉÁ²èÎÎ°è¤ÎºÇÂçXºÂÉ¸¤è¤ê¤â
-    Âç¤¤¤¾ì¹ç¤Ï¡¢Ä¾Àþ y = $Y ¾å¤ËÉÁ²è¤µ¤ì¤ëºÇ¸å¤ÎÊ¸»ú¤ÎÊ¸»ú°ÌÃÖ¤òÊÖ¤¹¡£ */
-
-int
-mdraw_coordinates_position (MFrame *frame, MText *mt, int from, int to,
-			    int x_offset, int y_offset, MDrawControl *control)
-{
-  MGlyphString *gstring;
-  int y = 0;
-  int width;
-  MGlyph *g;
-
-  M_CHECK_POS_X (mt, from, -1);
-  if (to > mtext_nchars (mt) + (control->cursor_width != 0))
-    to = mtext_nchars (mt) + (control->cursor_width != 0);
-  else if (to < from)
-    to = from;
-
-  if (from == to)
-    return from;
-  ASSURE_CONTROL (control);
-  gstring = get_gstring (frame, mt, from, to, control);
-  while (y + gstring->line_descent <= y_offset
-	 && gstring->to < to)
-    {
-      from = gstring->to;
-      y += gstring->line_descent;
-      M17N_OBJECT_UNREF (gstring->top);
-      gstring = get_gstring (frame, mt, from, to, control);
-      y += gstring->line_ascent;
-    }
-
-  /* Accumulate width of glyphs in WIDTH until it exceeds X. */
-  if (! control->orientation_reversed)
-    {
-      width = gstring->indent;
-      for (g = MGLYPH (1); g[1].type != GLYPH_ANCHOR; g++)
-	if (g->pos >= from && g->pos < to)
-	  {
-	    width += g->width;
-	    if (width > x_offset)
-	      break;
-	  }
-    }
-  else
-    {
-      width = - gstring->indent;
-      for (g = MGLYPH (gstring->used - 2); g->type != GLYPH_ANCHOR; g--)
-	if (g->pos >= from && g->pos < to)
-	  {
-	    width -= g->width;
-	    if (width < x_offset)
-	      break;
-	  }
-    }
-  from = g->pos;
-  M17N_OBJECT_UNREF (gstring->top);
-
-  return from;
-}
-
-/*=*/
-
-/***en
-    @brief Compute information about a glyph.
-
-    The mdraw_glyph_info () function computes information about a
-    glyph that covers a character at position $POS of the M-text $MT
-    assuming that the text is drawn from the character at $FROM of $MT
-    on a window of frame $FRAME using the mdraw_text_with_control ()
-    function with the drawing control object $CONTROL.
-
-    The information is stored in the members of $INFO.  */
-/***ja
-    @brief ¥°¥ê¥Õ¤Ë´Ø¤¹¤ë¾ðÊó¤ò·×»»¤¹¤ë.
-
-    ´Ø¿ô mdraw_glyph_info () ¤Ï¡¢´Ø¿ô mdraw_text_with_control () ¤¬ÉÁ
-    ²èÀ©¸æ¥ª¥Ö¥¸¥§¥¯¥È $CONTROL ¤òÍÑ¤¤¤ÆM-text $MT ¤Î $FROM ¤«¤é $TO 
-    ¤Þ¤Ç¤ò¥Õ¥ì¡¼¥à $FRAME ¤ËÉÁ²è¤·¤¿¾ì¹ç¡¢M-text ¤ÎÊ¸»ú°ÌÃÖ $POS ¤ÎÊ¸
-    »ú¤òÊ¤¤¦¥°¥ê¥Õ¤Ë´Ø¤¹¤ë¾ðÊó¤ò·×»»¤¹¤ë¡£
-
-    ¾ðÊó¤Ï$INFO ¤Î¥á¥ó¥Ð¤ËÊÝ»ý¤µ¤ì¤ë¡£  */
-
-/***
-    @seealso
-    MDrawGlyphInfo
-*/
-
-int
-mdraw_glyph_info (MFrame *frame, MText *mt, int from, int pos,
-		  MDrawControl *control, MDrawGlyphInfo *info)
-{
-  MGlyphString *gstring;
-  MGlyph *g;
-  int y = 0;
-
-  M_CHECK_RANGE_X (mt, from, pos, -1);
-
-  ASSURE_CONTROL (control);
-  gstring = get_gstring (frame, mt, from, pos + 1, control);
-  if (! gstring)
-    MERROR (MERROR_DRAW, -1);
-  while (gstring->to <= pos)
-    {
-      y += gstring->line_descent;
-      M17N_OBJECT_UNREF (gstring->top);
-      gstring = get_gstring (frame, mt, gstring->to, pos + 1, control);
-      y += gstring->line_ascent;
-    }
-  info->line_from = gstring->from;
-  if (info->line_from < from)
-    info->line_from = from;
-  info->line_to = gstring->to;
-
-  info->y = y;
-  if (! control->orientation_reversed)
-    {
-      info->x = gstring->indent;
-      for (g = MGLYPH (1); g->pos > pos || g->to <= pos; g++)
-	info->x += g->width;
-    }
-  else
-    {
-      info->x = - gstring->indent;
-      for (g = MGLYPH (gstring->used - 2); g->pos > pos || g->to <= pos; g--)
-	info->x -= g->width;
-      while (g[-1].to == g->to)
-	g--;
-    }
-  info->from = g->pos;
-  info->to = g->to;
-  info->glyph_code = g->code;
-  info->this.x = g->lbearing;
-  info->this.y = - gstring->line_ascent;
-  info->this.height = gstring->height;
-  info->this.width = - g->lbearing + g->width;
-  if (g->rface->rfont)
-    info->font = &g->rface->rfont->font;
-  else
-    info->font = NULL;
-  /* info->logical_width is calculated later.  */
-
-  if (info->from > info->line_from)
-    {
-      /* The logically previous glyph is on this line.  */
-      MGlyph *g_tmp = find_glyph_in_gstring (gstring, info->from - 1, 1);
-
-      info->prev_from = g_tmp->pos;
-    }
-  else if (info->line_from > 0)
-    {
-      /* The logically previous glyph is on the previous line.  */
-      MGlyphString *gst = get_gstring (frame, mt, gstring->from - 1,
-				       gstring->from, control);
-      MGlyph *g_tmp = find_glyph_in_gstring (gst, info->from - 1, 1);
-
-      info->prev_from = g_tmp->pos;
-      M17N_OBJECT_UNREF (gst->top);
-    }
-  else
-    info->prev_from = -1;
-
-  if (GLYPH_INDEX (g) > 1)
-    info->left_from = g[-1].pos, info->left_to = g[-1].to;
-  else if (! control->orientation_reversed)
-    {
-      if (info->line_from > 0)
-	{
-	  MGlyph *g_tmp;
-	  MGlyphString *gst;
-	  int p = gstring->from - 1;
-
-	  gst = get_gstring (frame, mt, p, gstring->from, control);
-	  g_tmp = gst->glyphs + (gst->used - 2);
-	  info->left_from = g_tmp->pos, info->left_to = g_tmp->to;
-	  M17N_OBJECT_UNREF (gst->top);
-	}
-      else
-	info->left_from = info->left_to = -1;
-    }
-  else
-    {
-      if (gstring->to + (control->cursor_width == 0) <= mtext_nchars (mt))
-	{
-	  MGlyph *g_tmp;
-	  MGlyphString *gst;
-	  int p = gstring->to;
-
-	  gst = get_gstring (frame, mt, p, p + 1, control);
-	  g_tmp = gst->glyphs + (gst->used - 2);
-	  info->left_from = g_tmp->pos, info->left_to = g_tmp->to;
-	  M17N_OBJECT_UNREF (gst->top);
-	}
-      else
-	info->left_from = info->left_to = -1;
-    }
-
-  if (info->to < gstring->to)
-    {
-      /* The logically next glyph is on this line.   */
-      MGlyph *g_tmp = find_glyph_in_gstring (gstring, info->to, 0);
-
-      info->next_to = g_tmp->to;
-    }
-  else if (info->to + (control->cursor_width == 0) <= mtext_nchars (mt))
-    {
-      /* The logically next glyph is on the next line.   */
-      int p = info->to;
-      MGlyphString *gst = get_gstring (frame, mt, p, p + 1, control);
-      MGlyph *g_tmp = find_glyph_in_gstring (gst, p, 0);
-
-      info->next_to = g_tmp->to;
-      M17N_OBJECT_UNREF (gst->top);
-    }
-  else
-    info->next_to = -1;
-
-  for (info->logical_width = (g++)->width;
-       g->pos == pos && g->type != GLYPH_ANCHOR;
-       info->this.width += g->width, info->logical_width += (g++)->width);
-  info->this.width += g[-1].rbearing - g[-1].width;
-
-  if (g->type != GLYPH_ANCHOR)
-    info->right_from = g->pos, info->right_to = g->to;
-  else if (! control->orientation_reversed)
-    {
-      if (gstring->to + (control->cursor_width == 0) <= mtext_nchars (mt))
-	{
-	  pos = gstring->to;
-	  M17N_OBJECT_UNREF (gstring->top);
-	  gstring = get_gstring (frame, mt, pos, pos + 1, control);
-	  g = MGLYPH (1);
-	  info->right_from = g->pos, info->right_to = g->to;
-	}
-      else
-	info->right_from = info->right_to = -1;
-    }
-  else
-    {
-      if (info->line_from > 0)
-	{
-	  pos = gstring->from - 1;
-	  M17N_OBJECT_UNREF (gstring->top);
-	  gstring = get_gstring (frame, mt, pos, pos + 1, control);
-	  g = MGLYPH (1);
-	  info->right_from = g->pos, info->right_to = g->to;
-	}
-      else
-	info->right_from = info->right_to = -1;
-    }
-
-  M17N_OBJECT_UNREF (gstring->top);
-  return 0;
-}
-
-/*=*/
-
-int
-mdraw_glyph_list (MFrame *frame, MText *mt, int from, int to,
-		  MDrawControl *control, MDrawGlyphInfo *info,
-		  int array_size, int *num_glyphs_return)
-{
-  MGlyphString *gstring;
-  MGlyph *g;
-  int n;
-
-  ASSURE_CONTROL (control);
-  *num_glyphs_return = 0;
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-  gstring = get_gstring (frame, mt, from, to, control);
-  if (! gstring)
-    return -1;
-  for (g = MGLYPH (1), n = 0; g->type != GLYPH_ANCHOR; g++)
-    {
-      if (g->type == GLYPH_BOX
-	  || g->pos < from || g->pos >= to)
-	continue;
-      if (n < array_size)
-	{
-	  info->from = g->pos;
-	  info->to = g->to;
-	  info->glyph_code = (g->type == GLYPH_CHAR ? g->code : 0);
-	  info->x = g->xoff;
-	  info->y = g->yoff;
-	  info->this.x = g->lbearing;
-	  info->this.y = - g->ascent;
-	  info->this.height = g->ascent + g->descent;
-	  info->this.width = g->rbearing - g->lbearing;
-	  info->logical_width = g->width;
-	  if (g->rface->rfont)
-	    info->font = &g->rface->rfont->font;
-	  else
-	    info->font = NULL;
-	  info++;
-	}
-      n++;
-    }
-  M17N_OBJECT_UNREF (gstring->top);
-
-  *num_glyphs_return = n;
-  return (n <= array_size ? 0 : -1);
-}
-
-/*=*/
-
-/***en
-    @brief Draw one or more textitems.
-
-    The mdraw_text_items () function draws one or more M-texts on
-    window $WIN of $FRAME at coordinate ($X, $Y).  $ITEMS is an array
-    of the textitems to be drawn and $NITEMS is the number of
-    textimtems in the array.  */
-
-/***ja
-    @brief textitem ¤òÉ½¼¨¤¹¤ë.
-
-    ´Ø¿ô mdraw_text_items () ¤Ï¡¢°ì¸Ä°Ê¾å¤Î¥Æ¥¥¹¥È¥¢¥¤¥Æ¥à¤ò¡¢¥Õ¥ì¡¼
-    ¥à $FRAME ¤Î¥¦¥£¥ó¥É¥¦ $WIN ¤ÎºÂÉ¸ ($X, $Y) ¤ËÉ½¼¨¤¹¤ë¡£$ITEMS ¤Ï
-    É½¼¨¤¹¤Ù¤¥Æ¥¥¹¥È¥¢¥¤¥Æ¥à¤ÎÇÛÎó¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ê¡¢$NITEMS ¤Ï¤½¤Î
-    ¸Ä¿ô¤Ç¤¢¤ë¡£
-
-    @latexonly \IPAlabel{mdraw_text_items} @endlatexonly  */
-
-/***
-    @seealso
-    MTextItem, mdraw_text ().  */
-
-void
-mdraw_text_items (MFrame *frame, MDrawWindow win, int x, int y,
-		  MDrawTextItem *items, int nitems)
-{
-  if (! (frame->device_type & MDEVICE_SUPPORT_OUTPUT))
-    return;
-  while (nitems-- > 0)
-    {
-      if (items->face)
-	mtext_push_prop (items->mt, 0, mtext_nchars (items->mt), Mface,
-			 items->face);
-      mdraw_text_with_control (frame, win, x, y,
-			       items->mt, 0, mtext_nchars (items->mt),
-			       items->control);
-      x += mdraw_text_extents (frame, items->mt, 0, mtext_nchars (items->mt),
-			       items->control, NULL, NULL, NULL);
-      x += items->delta;
-      if (items->face)
-	mtext_pop_prop (items->mt, 0, mtext_nchars (items->mt), Mface);
-    }
-}
-
-/*=*/
-/***en 
-      @brief   calculate a line breaking position.
-
-      The function mdraw_default_line_break () calculates a line
-      breaking position based on the line number $LINE and the
-      coordinate $Y, when a line is too long to fit within the width
-      limit.  $POS is the position of the character next to the last
-      one that fits within the limit.  $FROM is the position of the
-      first character of the line, and TO is the position of the last
-      character displayed on the line if there were not width limit.
-      LINE and Y are reset to 0 when a line is broken by a newline
-      character, and incremented each time when a long line is broken
-      because of the width limit.  
-
-      @return 
-      This function returns a character position to break the
-      line.
-
-*/
-/***ja 
-      @brief ²þ¹Ô°ÌÃÖ¤ò·×»»¤¹¤ë.
-
-      ´Ø¿ô mdraw_default_line_break () ¤Ï¡¢¹Ô¤¬ºÇÂçÉýÃæ¤Ë¼ý¤Þ¤é¤Ê¤¤¾ì
-      ¹ç¤Ë¹Ô¤ò²þ¤á¤ë°ÌÃÖ¤ò¡¢¹ÔÈÖ¹æ LINE ¤ÈºÂÉ¸ Y ¤Ë´ð¤Å¤¤¤Æ·×»»¤¹¤ë¡£
-      $POS ¤ÏºÇÂçÉý¤Ë¼ý¤Þ¤ëºÇ¸å¤ÎÊ¸»ú¤Î¼¡¤ÎÊ¸»ú¤Î°ÌÃÖ¤Ç¤¢¤ë¡£$FROM ¤Ï
-      ¹Ô¤ÎºÇ½é¤ÎÊ¸»ú¤Î°ÌÃÖ¡¢$TO ¤ÏºÇÂçÉý¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤½¤Î¹Ô¤Ë
-      É½¼¨¤µ¤ì¤ëºÇ¸å¤ÎÊ¸»ú¤Î°ÌÃÖ¤Ç¤¢¤ë¡£ LINE ¤È Y ¤Ï²þ¹ÔÊ¸»ú¤Ë¤è¤Ã¤Æ
-      ¹Ô¤¬²þ¤Þ¤Ã¤¿ºÝ¤Ë¤Ï 0 ¤Ë¥ê¥»¥Ã¥È¤µ¤ì¡¢ºÇÂçÉý¤Ë¤è¤Ã¤Æ¹Ô¤¬²þ¤Þ¤Ã¤¿
-      ¾ì¹ç¤Ë¤Ï 1 ¤Å¤ÄÁý¤ä¤µ¤ì¤ë¡£
-
-      @return 
-      ¤³¤Î´Ø¿ô¤Ï¹Ô¤ò²þ¤á¤ëÊ¸»ú°ÌÃÖ¤òÊÖ¤¹¡£
-*/
-
-int
-mdraw_default_line_break (MText *mt, int pos,
-			  int from, int to, int line, int y)
-{
-  int c = mtext_ref_char (mt, pos);
-  int orig_pos = pos;
-
-  if (c == ' ' || c == '\t')
-    {
-      pos++;
-      while (pos < to
-	     && ((c = mtext_ref_char (mt, pos)) == ' ' || c == '\t'))
-	pos++;
-    }
-  else
-    {
-      while (pos > from)
-	{
-	  if (c == ' ' || c == '\t')
-	    break;
-	  pos--;
-	  c = mtext_ref_char (mt, pos);
-	}
-      if (pos == from)
-	pos = orig_pos;
-      else
-	pos++;
-    }
-  return pos;
-}
-
-/*=*/
-
-/***en
-    @brief Obtain per character dimension information.
-
-    The mdraw_per_char_extents () function computes the text dimension
-    of each character in M-text $MT.  The faces given as text
-    properties in $MT and the default face of frame $FRAME determine
-    the fonts to draw the text.  Each successive element in
-    $ARRAY_RETURN is set to the drawn metrics of successive
-    characters, which is relative to the origin of the drawing, and a
-    rectangle for each character in $MT.  The number of elements of
-    $ARRAY_RETURN must be equal to or greater than the number of
-    characters in $MT.
-
-    If pointer $OVERALL_RETURN is not @c NULL, this function also
-    computes the extents of the overall text and stores the results in
-    the members of the structure pointed to by $OVERALL_RETURN.  */
-
-/***ja
-    @brief M-text ¤ÎÊ¸»úËè¤ÎÉ½¼¨ÈÏ°Ï¾ðÊó¤òÆÀ¤ë.
-
-    ´Ø¿ô mdraw_per_char_extents () ¤Ï¡¢M-text $MT Ãæ¤Î³ÆÊ¸»ú¤ÎÉ½¼¨ÈÏ°Ï
-    ¤ò·×»»¤¹¤ë¡£¤³¤Î·×»»¤ËÍÑ¤¤¤ë¥Õ¥©¥ó¥È¤Ï¡¢$MT ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ç
-    »ØÄê¤µ¤ì¤¿¥Õ¥§¡¼¥¹¤Èa¡¢¥Õ¥ì¡¼¥à $FRAME ¤Î¥Ç¥Õ¥©¥ë¥È¥Õ¥§¡¼¥¹¤Ë¤è¤Ã¤Æ
-    ·è¤Þ¤ë¡£$ARRAY_RETURN ¤Î³ÆÍ×ÁÇ¤Ï¡¢Åö³º M-text Ãæ¤Î³ÆÊ¸»ú¤ÎÉ½¼¨ÈÏ°Ï
-    ¾ðÊó¤Ë¤è¤Ã¤Æ½ç¤ËËä¤á¤é¤ì¤ë¡£¤³¤ÎÉ½¼¨ÈÏ°Ï¾ðÊó¤Ï¡¢M-text ¤ÎÉ½¼¨¸¶ÅÀ¤«
-    ¤é¤ÎÁêÂÐ°ÌÃÖ¤Ç¤¢¤ë¡£$ARRAY_RETURN ¤ÎÍ×ÁÇ¿ô¤Ï¡¢M-text ¤Î°Ê¾å¤Ç¤Ê¤±¤ì
-    ¤Ð¤Ê¤é¤Ê¤¤¡£
-
-    ¥Ý¥¤¥ó¥¿ $OVERALL_RETURN ¤¬ @c NULL ¤Ç¤Ê¤¤¾ì¹ç¤Ï¡¢¥Æ¥¥¹¥ÈÁ´ÂÎ¤ÎÉ½
-    ¼¨ÈÏ°Ï¾ðÊó¤â·×»»¤·¡¢¤½¤Î·ë²Ì¤ò $OVERALL_RETURN ¤Î»Ø¤¹¹½Â¤ÂÎ¤Ë³ÊÇ¼
-    ¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mdraw_per_char_extents} @endlatexonly  */
-
-void
-mdraw_per_char_extents (MFrame *frame, MText *mt,
-			MDrawMetric *array_return,
-			MDrawMetric *overall_return)
-{
-  int n = mtext_nchars (mt);
-
-  mdraw_text_per_char_extents (frame, mt, 0, n, NULL, array_return, NULL,
-			       n, &n, overall_return, NULL);
-}
-
-/***en 
-    @brief clear cached information.    
-
-    The mdraw_clear_cache () function clear cached information
-    on M-text $MT that was attached by any of the drawing functions.
-    When the behaviour of `format' or `line_break'
-    member functions of MDrawControl is changed, the cache must be cleared.
-
-    @seealso
-    MDrawControl */
-/***ja 
-    @brief ¥¥ã¥Ã¥·¥å¾ðÊó¤ò¾Ã¤¹.
-
-    ´Ø¿ô mdraw_clear_cache () ¤ÏÉÁ²è´Ø¿ô¤Ë¤è¤Ã¤Æ M-text $MT ¤ËÉÕ²Ã
-    ¤µ¤ì¤¿¥¥ã¥Ã¥·¥å¾ðÊó¤ò¤¹¤Ù¤Æ¾Ãµî¤¹¤ë¡£MDrawControl ¤Î `format' ¤¢
-    ¤ë¤¤¤Ï `line_break' ¥á¥ó¥Ð´Ø¿ô¤Î¿¶Éñ¤¤¤¬ÊÑ¤ï¤Ã¤¿¾ì¹ç¤Ë¤Ï¥¥ã¥Ã¥·¥å
-    ¤ò¾Ãµî¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    @seealso
-    MDrawControl */
-
-void
-mdraw_clear_cache (MText *mt)
-{
-  mtext_pop_prop (mt, 0, mtext_nchars (mt), M_glyph_string);
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/face.c b/src/face.c
deleted file mode 100644
index e815545..0000000
--- a/src/face.c
+++ /dev/null
@@ -1,1827 +0,0 @@
-/* face.c -- face module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nFace
-    @brief A face is an object to control appearance of M-text.
-
-    A @e face is an object of the type #MFace and controls how to
-    draw M-texts.  A face has a fixed number of @e face @e properties.
-    Like other types of properties, a face property consists of a key
-    and a value.  A key is one of the following symbols:
-
-    #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
-    #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
-    #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
-
-    "The face property that belongs to face F and whose key is @c xxx"
-    may be shortened to "the xxx property of F".
-
-    The M-text drawing functions first search an M-text for the text
-    property whose key is the symbol #Mface, then draw the M-text
-    using the value of that text property.  This value must be a
-    pointer to a face object.
-
-    If there are multiple text properties whose key is @c Mface, and
-    they are not conflicting one another, properties of those faces
-    are merged and used.
-
-    If no faces specify a certain property, the value of the default
-    face is used.  */
-
-/***ja
-    @addtogroup m17nFace
-    @brief ¥Õ¥§¡¼¥¹¤È¤Ï¡¢M-text ¤Î¸«±É¤¨¤òÀ©¸æ¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
-
-    @e ¥Õ¥§¡¼¥¹ ¤Ï #MFace ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ê¡¢M-text ¤ÎÉ½¼¨ÊýË¡
-    ¤òÀ©¸æ¤¹¤ë¡£¥Õ¥§¡¼¥¹¤Ï¸ÇÄê¸Ä¿ô¤Î @e ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£ ¤ò»ý¤Ä¡£
-    ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Ï¥¡¼¤ÈÃÍ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
-
-    #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox, 
-    #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle, 
-    #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
-
-    ¡Ö¥Õ¥§¡¼¥¹ F ¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ @c Mxxx ¤Ç¤¢¤ë¤â¤Î¡×
-    ¤Î¤³¤È¤ò´ÊÃ±¤Ë¡ÖF ¤Î xxx ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£
-
-    M-text ¤ÎÉ½¼¨´Ø¿ô¤Ï¡¢¤Þ¤ººÇ½é¤Ë¤½¤Î M-text ¤«¤é¥¡¼¤¬¥·¥ó¥Ü¥ë 
-    #Mface ¤Ç¤¢¤ë¤è¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÃµ¤·¡¢¼¡¤Ë¤½¤ÎÃÍ¤Ë½¾¤Ã¤Æ 
-    M-text ¤òÉ½¼¨¤¹¤ë¡£¤³¤ÎÃÍ¤Ï¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤±
-    ¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
-
-     M-text ¤¬¡¢#Mface ¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊ£¿ô»ý¤Ã¤Æ¤ª¤ê¡¢
-    ¤«¤Ä¤½¤ì¤é¤ÎÃÍ¤Î´Ö¤Ë¾×ÆÍ¤¬¤Ê¤¤¤Ê¤é¤Ð¡¢¥Õ¥§¡¼¥¹¾ðÊó¤ÏÁÈ¤ß¹ç¤ï¤µ¤ì¤Æ
-    ÍÑ¤¤¤é¤ì¤ë¡£
-
-    ¤¢¤ë¥Æ¥¥¹¥ÈÂ°À¤¬¤É¤Î¥Õ¥§¡¼¥¹¤Ë¤è¤Ã¤Æ¤â»ØÄê¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢¥Ç
-    ¥Õ¥©¥ë¥È¥Õ¥§¡¼¥¹¤ÎÃÍ¤¬ÍÑ¤¤¤é¤ì¤ë¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "charset.h"
-#include "symbol.h"
-#include "plist.h"
-#include "mtext.h"
-#include "textprop.h"
-#include "internal-gui.h"
-#include "face.h"
-#include "font.h"
-#include "fontset.h"
-
-static M17NObjectArray face_table;
-
-static MSymbol Mlatin;
-
-static MSymbol M_face_prop_index;
-
-static MPlist *hline_prop_list;
-static MPlist *box_prop_list;
-
-/** Special hook function pointer that does nothing.  */
-static MFaceHookFunc noop_hook;
-
-/**  */
-static MFaceHLineProp *
-get_hline_create (MFaceHLineProp *prop)
-{
-  MPlist *plist;
-  MFaceHLineProp *hline;
-
-  if (prop->width == 0)
-    return MPLIST_VAL (hline_prop_list);
-  MPLIST_DO (plist, MPLIST_NEXT (hline_prop_list))
-    {
-      hline = MPLIST_VAL (plist);
-      if (prop->type == hline->type
-	  && prop->width == hline->width
-	  && prop->color == hline->color)
-	return hline;
-    }
-  MSTRUCT_MALLOC (hline, MERROR_FACE);
-  *hline = *prop;
-  mplist_push (plist, Mt, hline);
-  return hline;
-}
-
-static MFaceBoxProp *
-get_box_create (MFaceBoxProp *prop)
-{
-  MPlist *plist;
-  MFaceBoxProp *box;
-
-  if (prop->width == 0)
-    return MPLIST_VAL (box_prop_list);
-  MPLIST_DO (plist, MPLIST_NEXT (box_prop_list))
-    {
-      box = MPLIST_VAL (plist);
-      if (prop->width == box->width
-	  && prop->color_top == box->color_top
-	  && prop->color_bottom == box->color_bottom
-	  && prop->color_left == box->color_left
-	  && prop->color_right == box->color_right
-	  && prop->inner_hmargin == box->inner_hmargin
-	  && prop->inner_vmargin == box->inner_vmargin
-	  && prop->outer_hmargin == box->inner_hmargin
-	  && prop->inner_vmargin == box->inner_vmargin)
-	return box;
-    }
-  MSTRUCT_MALLOC (box, MERROR_FACE);
-  *box = *prop;
-  mplist_push (plist, Mt, box);
-  return box;
-}
-
-/** From FRAME->realized_face_list, find a realized face based on
-    FACE.  */
-
-static MRealizedFace *
-find_realized_face (MFrame *frame, MFace *face)
-{
-  MPlist *plist;
-
-  MPLIST_DO (plist, frame->realized_face_list)
-    {
-      MRealizedFace *rface = MPLIST_VAL (plist);
-
-      if (memcmp (rface->face.property, face->property, sizeof face->property)
-	  == 0)
-	return rface;
-    }
-  return NULL;
-}
-
-static void
-free_face (void *object)
-{
-  MFace *face = (MFace *) object;
-
-  if (face->property[MFACE_FONTSET])
-    M17N_OBJECT_UNREF (face->property[MFACE_FONTSET]);
-  M17N_OBJECT_UNREF (face->frame_list);
-  M17N_OBJECT_UNREGISTER (face_table, face);
-  free (object);
-}
-
-
-static MPlist *
-serialize_hline (MPlist *plist, MFaceHLineProp *hline)
-{
-  if (hline->width > 0)
-    {
-      MPlist *pl = mplist ();
-
-      mplist_add (pl, Minteger, (void *) hline->type);
-      mplist_add (pl, Minteger, (void *) hline->width);
-      mplist_add (pl, Msymbol, hline->color);
-      plist = mplist_add (plist, Mplist, pl);
-      M17N_OBJECT_UNREF (pl);
-    }
-  return plist;
-}
-
-static MPlist *
-serialize_box (MPlist *plist, MFaceBoxProp *box)
-{
-  if (box->width > 0)
-    {
-      MPlist *pl = mplist ();
-
-      mplist_add (pl, Minteger, (void *) box->width);
-      mplist_add (pl, Minteger, (void *) box->inner_hmargin);
-      mplist_add (pl, Minteger, (void *) box->inner_vmargin);
-      mplist_add (pl, Minteger, (void *) box->outer_hmargin);
-      mplist_add (pl, Minteger, (void *) box->outer_vmargin);
-      mplist_add (pl, Msymbol, box->color_top);
-      mplist_add (pl, Msymbol, box->color_bottom);
-      mplist_add (pl, Msymbol, box->color_left);
-      mplist_add (pl, Msymbol, box->color_right);
-      plist = mplist_add (plist, Mplist, pl);
-      M17N_OBJECT_UNREF (pl);
-    }
-  return plist;
-}
-
-static MPlist *
-serialize_face (void *val)
-{
-  MFace *face = val;
-  MPlist *plist = mplist (), *pl = plist;
-  int i;
-  struct {
-    MSymbol *key;
-    MSymbol *type;
-    MPlist *(*func) (MPlist *plist, void *val);
-  } serializer[MFACE_PROPERTY_MAX]
-      = { { &Mfoundry,		&Msymbol },
-	  { &Mfamily,		&Msymbol },
-	  { &Mweight,		&Msymbol },
-	  { &Mstyle,		&Msymbol },
-	  { &Mstretch,		&Msymbol },
-	  { &Madstyle,		&Msymbol },
-	  { &Msize,		&Minteger },
-	  { &Mfontset,		NULL },
-	  { &Mforeground,	&Msymbol },
-	  { &Mbackground,	&Msymbol },
-	  { &Mhline,		NULL },
-	  { &Mbox,		NULL },
-	  { &Mvideomode, 	&Msymbol },
-	  { NULL,		NULL}, /* MFACE_HOOK_FUNC */
-	  { NULL,		NULL}, /* MFACE_HOOK_ARG */
-	  { &Mratio,		&Minteger } };
-  
-  for (i = 0; i < MFACE_PROPERTY_MAX; i++)
-    if (face->property[i] && serializer[i].key)
-      {
-	pl = mplist_add (pl, Msymbol, *serializer[i].key);
-	if (serializer[i].type)
-	  pl = mplist_add (pl, *serializer[i].type, face->property[i]);
-	else if (i == MFACE_FONTSET)
-	  pl = mplist_add (pl, Msymbol, mfontset_name ((MFontset *)
-						       face->property[i]));
-	else if (i == MFACE_HLINE)
-	  pl = serialize_hline (pl, (MFaceHLineProp *) face->property[i]);
-	else if (i == MFACE_BOX)
-	  pl = serialize_box (pl, (MFaceBoxProp *) face->property[i]);
-      }
-
-  return plist;
-}
-
-static void *
-deserialize_hline (MPlist *plist)
-{
-  MFaceHLineProp hline, *hline_ret;
-
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  hline.type = MPLIST_INTEGER_P (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  hline.width = MPLIST_INTEGER_P (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  hline.color = MPLIST_SYMBOL (plist);
-  MSTRUCT_MALLOC (hline_ret, MERROR_FACE);
-  *hline_ret = hline;
-  return hline_ret;
-}
-
-static void *
-deserialize_box (MPlist *plist)
-{
-  MFaceBoxProp box, *box_ret;
-
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.width = MPLIST_INTEGER (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.inner_hmargin = MPLIST_INTEGER (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.inner_vmargin = MPLIST_INTEGER (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.outer_hmargin = MPLIST_INTEGER (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_INTEGER_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.outer_vmargin = MPLIST_INTEGER (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.color_top = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.color_bottom = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.color_left = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_FACE, NULL);
-  box.color_right = MPLIST_SYMBOL (plist);
-  MSTRUCT_MALLOC (box_ret, MERROR_FACE);
-  *box_ret = box;
-  return box_ret;
-}
-
-static void *
-deserialize_face (MPlist *plist)
-{
-  MFace *face = mface ();
-
-  MPLIST_DO (plist, plist)
-    {
-      MSymbol key;
-      int index;
-      void *val;
-
-      if (! MPLIST_SYMBOL_P (plist))
-	break;
-      key = MPLIST_SYMBOL (plist);
-      index = (int) msymbol_get (key, M_face_prop_index) - 1;
-      plist = MPLIST_NEXT (plist);
-      if (MPLIST_TAIL_P (plist))
-	break;
-      if (index < 0 || index >= MFACE_PROPERTY_MAX)
-	continue;
-      if (key == Mfoundry || key == Mfamily || key == Mweight || key == Mstyle
-	  || key == Mstretch || key == Madstyle
-	  || key == Mforeground || key == Mbackground || key == Mvideomode)
-	{
-	  if (! MPLIST_SYMBOL_P (plist))
-	    continue;
-	  val = MPLIST_VAL (plist);
-	}
-      else if (key == Msize || key == Mratio)
-	{
-	  if (! MPLIST_INTEGER_P (plist))
-	    continue;
-	  val = MPLIST_VAL (plist);
-	}
-      else if (key == Mfontset)
-	{
-	  if (! MPLIST_SYMBOL_P (plist))
-	    continue;
-	  val = mfontset (MSYMBOL_NAME (MPLIST_SYMBOL (plist)));
-	}
-      else if (key == Mhline)
-	{
-	  if (! MPLIST_PLIST_P (plist))
-	    continue;
-	  val = deserialize_hline (MPLIST_PLIST (plist));
-	}
-      else if (key == Mbox)
-	{
-	  if (! MPLIST_PLIST_P (plist))
-	    continue;
-	  val = deserialize_box (MPLIST_PLIST (plist));
-	}
-      face->property[index] = val;
-    }
-  return face;
-}
-
-static MGlyphString work_gstring;
-
-
-
-/* Internal API */
-
-MFace *mface__default;
-
-int
-mface__init ()
-{
-  int i;
-  MFaceHLineProp *hline;
-  MFaceBoxProp *box;
-
-  face_table.count = 0;
-  Mface = msymbol_as_managing_key ("face");
-  msymbol_put (Mface, Mtext_prop_serializer, (void *) serialize_face);
-  msymbol_put (Mface, Mtext_prop_deserializer, (void *) deserialize_face);
-
-  Mforeground = msymbol ("foreground");
-  Mbackground = msymbol ("background");
-  Mvideomode = msymbol ("videomode");
-  Mnormal = msymbol ("normal");
-  Mreverse = msymbol ("reverse");
-  Mratio = msymbol ("ratio");
-  Mhline = msymbol ("hline");
-  Mbox = msymbol ("box");
-  Mhook_func = msymbol ("hook-func");
-  Mhook_arg = msymbol ("hook-arg");
-
-  Mlatin = msymbol ("latin");
-  M_face_prop_index = msymbol ("  face-prop-index");
-
-  {
-    struct {
-      /* Pointer to the key symbol of the face property.  */
-      MSymbol *key;
-      /* Index (enum face_property) of the face property. */
-      int index;
-    } mface_prop_data[MFACE_PROPERTY_MAX] =
-	{ { &Mfoundry,		MFACE_FOUNDRY },
-	  { &Mfamily,		MFACE_FAMILY },
-	  { &Mweight,		MFACE_WEIGHT },
-	  { &Mstyle,		MFACE_STYLE },
-	  { &Mstretch,		MFACE_STRETCH },
-	  { &Madstyle,		MFACE_ADSTYLE },
-	  { &Msize,		MFACE_SIZE },
-	  { &Mfontset,		MFACE_FONTSET },
-	  { &Mforeground,	MFACE_FOREGROUND },
-	  { &Mbackground,	MFACE_BACKGROUND },
-	  { &Mhline,		MFACE_HLINE },
-	  { &Mbox,		MFACE_BOX },
-	  { &Mvideomode, 	MFACE_VIDEOMODE },
-	  { &Mhook_func,	MFACE_HOOK_FUNC },
-	  { &Mhook_arg,		MFACE_HOOK_ARG },
-	  { &Mratio,		MFACE_RATIO },
-	};
-
-    for (i = 0; i < MFACE_PROPERTY_MAX; i++)
-      /* We add one to distinguish it from no-property.  */
-      msymbol_put (*mface_prop_data[i].key, M_face_prop_index,
-		   (void *) (mface_prop_data[i].index + 1));
-  }
-
-  hline_prop_list = mplist ();
-  MSTRUCT_CALLOC (hline, MERROR_FACE);
-  mplist_push (hline_prop_list, Mt, hline);
-  box_prop_list = mplist ();
-  MSTRUCT_CALLOC (box, MERROR_FACE);
-  mplist_push (box_prop_list, Mt, box);
-
-  mface__default = mface ();
-  mface__default->property[MFACE_FOUNDRY] = msymbol ("misc");
-  mface__default->property[MFACE_FAMILY] = msymbol ("fixed");
-  mface__default->property[MFACE_WEIGHT] = msymbol ("medium");
-  mface__default->property[MFACE_STYLE] = msymbol ("r");
-  mface__default->property[MFACE_STRETCH] = msymbol ("normal");
-  mface__default->property[MFACE_ADSTYLE] = msymbol ("");
-  mface__default->property[MFACE_SIZE] = (void *) 120;
-  mface__default->property[MFACE_FONTSET] = mfontset (NULL);
-  mface__default->property[MFACE_FOREGROUND] = msymbol ("black");
-  mface__default->property[MFACE_BACKGROUND] = msymbol ("white");
-  mface__default->property[MFACE_HLINE] = hline;
-  mface__default->property[MFACE_BOX] = box;
-  mface__default->property[MFACE_VIDEOMODE] = Mnormal;
-  mface__default->property[MFACE_HOOK_FUNC] = (void *) noop_hook;
-
-  mface_normal_video = mface ();
-  mface_normal_video->property[MFACE_VIDEOMODE] = (void *) Mnormal;
-
-  mface_reverse_video = mface ();
-  mface_reverse_video->property[MFACE_VIDEOMODE] = (void *) Mreverse;
-
-  {
-    MFaceHLineProp hline_prop;
-
-    hline_prop.type = MFACE_HLINE_UNDER;
-    hline_prop.width = 1;
-    hline_prop.color = Mnil;
-    mface_underline = mface ();
-    mface_put_prop (mface_underline, Mhline, &hline_prop);
-  }
-
-  mface_medium = mface ();
-  mface_medium->property[MFACE_WEIGHT] = (void *) msymbol ("medium");
-  mface_bold = mface ();
-  mface_bold->property[MFACE_WEIGHT] = (void *) msymbol ("bold");
-  mface_italic = mface ();
-  mface_italic->property[MFACE_STYLE] = (void *) msymbol ("i");
-  mface_bold_italic = mface_copy (mface_bold);
-  mface_bold_italic->property[MFACE_STYLE]
-    = mface_italic->property[MFACE_STYLE];
-
-  mface_xx_small = mface ();
-  mface_xx_small->property[MFACE_RATIO] = (void *) 50;
-  mface_x_small = mface ();
-  mface_x_small->property[MFACE_RATIO] = (void *) 67;
-  mface_small = mface ();
-  mface_small->property[MFACE_RATIO] = (void *) 75;
-  mface_normalsize = mface ();
-  mface_normalsize->property[MFACE_RATIO] = (void *) 100;
-  mface_large = mface ();
-  mface_large->property[MFACE_RATIO] = (void *) 120;
-  mface_x_large = mface ();
-  mface_x_large->property[MFACE_RATIO] = (void *) 150;
-  mface_xx_large = mface ();
-  mface_xx_large->property[MFACE_RATIO] = (void *) 200;
-
-  mface_black = mface ();
-  mface_black->property[MFACE_FOREGROUND] = (void *) msymbol ("black");
-  mface_white = mface ();
-  mface_white->property[MFACE_FOREGROUND] = (void *) msymbol ("white");
-  mface_red = mface ();
-  mface_red->property[MFACE_FOREGROUND] = (void *) msymbol ("red");
-  mface_green = mface ();
-  mface_green->property[MFACE_FOREGROUND] = (void *) msymbol ("green");
-  mface_blue = mface ();
-  mface_blue->property[MFACE_FOREGROUND] = (void *) msymbol ("blue");
-  mface_cyan = mface ();
-  mface_cyan->property[MFACE_FOREGROUND] = (void *) msymbol ("cyan");
-  mface_yellow = mface ();
-  mface_yellow->property[MFACE_FOREGROUND] = (void *) msymbol ("yellow");
-  mface_magenta = mface ();
-  mface_magenta->property[MFACE_FOREGROUND] = (void *) msymbol ("magenta");
-
-  work_gstring.glyphs = malloc (sizeof (MGlyph) * 2);
-  work_gstring.size = 2;
-  work_gstring.used = 0;
-  work_gstring.inc = 1;
-  return 0;
-}
-
-void
-mface__fini ()
-{
-  MPlist *plist;
-
-  M17N_OBJECT_UNREF (mface__default);
-  M17N_OBJECT_UNREF (mface_normal_video);
-  M17N_OBJECT_UNREF (mface_reverse_video);
-  M17N_OBJECT_UNREF (mface_underline);
-  M17N_OBJECT_UNREF (mface_medium);
-  M17N_OBJECT_UNREF (mface_bold);
-  M17N_OBJECT_UNREF (mface_italic);
-  M17N_OBJECT_UNREF (mface_bold_italic);
-  M17N_OBJECT_UNREF (mface_xx_small);
-  M17N_OBJECT_UNREF (mface_x_small);
-  M17N_OBJECT_UNREF (mface_small);
-  M17N_OBJECT_UNREF (mface_normalsize);
-  M17N_OBJECT_UNREF (mface_large);
-  M17N_OBJECT_UNREF (mface_x_large);
-  M17N_OBJECT_UNREF (mface_xx_large);
-  M17N_OBJECT_UNREF (mface_black);
-  M17N_OBJECT_UNREF (mface_white);
-  M17N_OBJECT_UNREF (mface_red);
-  M17N_OBJECT_UNREF (mface_green);
-  M17N_OBJECT_UNREF (mface_blue);
-  M17N_OBJECT_UNREF (mface_cyan);
-  M17N_OBJECT_UNREF (mface_yellow);
-  M17N_OBJECT_UNREF (mface_magenta);
-
-  MPLIST_DO (plist, hline_prop_list)
-    free (MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (hline_prop_list);
-  MPLIST_DO (plist, box_prop_list)
-    free (MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (box_prop_list);
-
-  free (work_gstring.glyphs);
-
-  mdebug__report_object ("Face", &face_table);
-}
-
-/** Return a realized face for ASCII characters from NUM number of
-    base faces pointed by FACES on the frame FRAME.  */
-
-MRealizedFace *
-mface__realize (MFrame *frame, MFace **faces, int num,
-		MSymbol language, MSymbol charset, int size)
-{
-  MRealizedFace *rface;
-  MRealizedFont *rfont;
-  MFace merged_face = *(frame->face);
-  void **props;
-  int i, j;
-  MGlyph g;
-  MFaceHookFunc func;
-
-  if (num == 0 && language == Mnil && charset == Mnil && frame->rface)
-    return frame->rface;
-
-  for (i = 0; i < MFACE_PROPERTY_MAX; i++)
-    for (j = num - 1; j >= 0; j--)
-      if (faces[j]->property[i])
-	{
-	  merged_face.property[i] = faces[j]->property[i];
-	  break;
-	}
-
-  if (! mplist_find_by_value (frame->face->frame_list, frame))
-    mplist_push (frame->face->frame_list, Mt, frame);
-  for (i = 0; i < num; i++)
-    if (! mplist_find_by_value (faces[i]->frame_list, frame))
-      mplist_push (faces[i]->frame_list, Mt, frame);
-
-  if (merged_face.property[MFACE_RATIO])
-    {
-      int font_size = (int) merged_face.property[MFACE_SIZE];
-
-      font_size *= (int) merged_face.property[MFACE_RATIO];
-      font_size /= 100;
-      merged_face.property[MFACE_SIZE] = (void *) font_size;
-      merged_face.property[MFACE_RATIO] = 0;
-    }
-
-  rface = find_realized_face (frame, &merged_face);
-  if (rface)
-    return rface;
-
-  MSTRUCT_CALLOC (rface, MERROR_FACE);
-  mplist_push (frame->realized_face_list, Mt, rface);
-  rface->frame = frame;
-  rface->face = merged_face;
-  props = rface->face.property;
-  rface->rfontset = mfont__realize_fontset (frame,
-					    (MFontset *) props[MFACE_FONTSET],
-					    &merged_face);
-  g.c = ' ';
-  num = 1;
-  rfont = mfont__lookup_fontset (rface->rfontset, &g, &num,
-				 msymbol ("latin"), language, Mnil,
-				 size);
-
-  if (rfont)
-    {
-      rface->rfont = rfont;
-      g.otf_encoded = 0;
-      work_gstring.glyphs[0] = g;
-      work_gstring.glyphs[0].rface = rface;
-      work_gstring.glyphs[1].code = MCHAR_INVALID_CODE;
-      work_gstring.glyphs[1].rface = rface;
-      mfont__get_metric (&work_gstring, 0, 2);
-      rface->space_width = work_gstring.glyphs[0].width;
-      rface->ascent = work_gstring.glyphs[1].ascent;
-      rface->descent = work_gstring.glyphs[1].descent;
-    }
-  else
-    {
-      rface->rfont = NULL;
-      rface->space_width = frame->space_width;
-    }
-
-  rface->hline = (MFaceHLineProp *) props[MFACE_HLINE];
-  if (rface->hline && rface->hline->width == 0)
-    rface->hline = NULL;
-  rface->box = (MFaceBoxProp *) props[MFACE_BOX];
-  if (rface->box && rface->box->width == 0)
-    rface->box = NULL;
-  rface->ascii_rface = rface;
-  (*frame->driver->realize_face) (rface);
-
-  func = (MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC];
-  if (func && func != noop_hook)
-    (func) (&(rface->face), rface->info, rface->face.property[MFACE_HOOK_ARG]);
-
-  rface->non_ascii_list = mplist ();
-  if (rface->rfont)
-    {
-      MRealizedFace *nofont;
-
-      MSTRUCT_CALLOC (nofont, MERROR_FACE);
-      *nofont = *rface;
-      nofont->non_ascii_list = NULL;
-      nofont->rfont = NULL;
-      mplist_add (rface->non_ascii_list, Mt, nofont);
-    }
-
-  return rface;
-}
-
-
-MGlyph *
-mface__for_chars (MSymbol script, MSymbol language, MSymbol charset,
-		  MGlyph *from_g, MGlyph *to_g, int size)
-{
-  MRealizedFace *rface = from_g->rface->ascii_rface, *new;
-  MRealizedFont *rfont;
-  int num = to_g - from_g, i;
-  MPlist *plist;
-
-  rfont = mfont__lookup_fontset (from_g->rface->rfontset, from_g, &num,
-				 script, language, charset, size);
-  if (! rfont)
-    {
-      if (rface->rfont)
-	MPLIST_DO (plist, rface->non_ascii_list)
-	  {
-	    rface = MPLIST_VAL (plist);
-	    if (! rface->rfont)
-	      break;
-	  }
-      num = 1;
-      goto finish;
-    }
-  if (rface->rfont == rfont)
-    goto finish;
-
-  MPLIST_DO (plist, rface->non_ascii_list)
-    if (((MRealizedFace *) MPLIST_VAL (plist))->rfont == rfont)
-      break;
-  if (! MPLIST_TAIL_P (plist))
-    {
-      rface = MPLIST_VAL (plist);
-      goto finish;
-    }
-
-  MSTRUCT_MALLOC (new, MERROR_FACE);
-  mplist_push (rface->non_ascii_list, Mt, new);
-  *new = *rface;
-  rface = new;
-  rface->rfont = rfont;
-  rface->non_ascii_list = NULL;
-  work_gstring.glyphs[0].code = MCHAR_INVALID_CODE;
-  work_gstring.glyphs[0].rface = rface;
-  mfont__get_metric (&work_gstring, 0, 1);
-  rface->ascent = work_gstring.glyphs[0].ascent;
-  rface->descent = work_gstring.glyphs[0].descent;
-  
- finish:
-  for (i = 0; i < num; i++, from_g++)
-    from_g->rface = rface;
-  return from_g;
-}
-
-
-void
-mface__free_realized (MRealizedFace *rface)
-{
-  MPlist *plist;
-
-  MPLIST_DO (plist, rface->non_ascii_list)
-    free (MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (rface->non_ascii_list);
-  free (rface);
-}
-
-void
-mface__update_frame_face (MFrame *frame)
-{
-  frame->rface = NULL;
-  frame->rface = mface__realize (frame, NULL, 0, Mnil, Mnil, 0);
-  frame->space_width = frame->rface->space_width;
-  frame->ascent = frame->rface->ascent;
-  frame->descent = frame->rface->descent;
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API  */
-/*** @addtogroup m17nFace */
-/*** @{ */
-/*=*/
-
-/***en @name Variables: Keys of face property */
-/***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼  */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Key of a face property specifying foreground color.
-
-    The variable #Mforeground is used as a key of face property.  The
-    property value must be a symbol whose name is a color name, or
-    #Mnil.
-
-    #Mnil means that the face does not specify a foreground color.
-    Otherwise, the foreground of an M-text is drawn by the specified
-    color.  */
-
-/***ja
-    @brief Á°·Ê¿§¤ò»ØÄê¤¹¤ë¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mforeground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
-
-    #Mnil ¤Î¾ì¹ç¡¢Á°·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text ¤ÎÁ°·Ê¤Ï
-    »ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MSymbol Mforeground;
-
-/***en
-    @brief Key of a face property specifying background color.
-
-    The variable #Mbackground is used as a key of face property.  The
-    property value must be a symbol whose name is a color name, or
-    #Mnil.
-
-    #Mnil means that the face does not specify a background color.
-    Otherwise, the background of an M-text is drawn by the specified
-    color.  */
-
-/***ja
-    @brief ÇØ·Ê¿§¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mbackground ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¿§Ì¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤« #Mnil ¤Ç¤¢¤ë¡£
-
-    #Mnil ¤Î¾ì¹ç¡¢ÇØ·Ê¿§¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð M-text ¤ÎÇØ·Ê¤Ï
-    »ØÄê¤µ¤ì¤¿¿§¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MSymbol Mbackground;
-
-/***en
-    @brief Key of a face property specifying video mode.
-
-    The variable #Mvideomode is used as a key of face property.  The
-    property value must be #Mnormal, #Mreverse, or #Mnil.
-
-    #Mnormal means that an M-text is drawn in normal video mode
-    (i.e. the foreground is drawn by foreground color, the background
-    is drawn by background color).
-
-    #Mreverse means that an M-text is drawn in reverse video mode
-    (i.e. the foreground is drawn by background color, the background
-    is drawn by foreground color).
-
-    #Mnil means that the face does not specify a video mode.  */
-
-/***ja
-    @brief ¥Ó¥Ç¥ª¥â¡¼¥É¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mvideomode ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢#Mnormal, #Mreverse, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    #Mnormal ¤Î¾ì¹ç¤Ï¡¢M-text ¤ÏÉ¸½à¤Î¥Ó¥Ç¥ª¥â¡¼¥É¡ÊÁ°·Ê¤òÁ°·Ê¿§¤Ç¡¢ÇØ
-    ·Ê¤òÇØ·Ê¿§¤Ç¡Ë¤ÇÉ½¼¨¤¹¤ë¡£
-
-    #Mreverse ¤Î¾ì¹ç¤Ï¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥â¡¼¥É¤Ç¡ÊÁ°·Ê¤òÇØ·Ê¿§¤Ç¡¢ÇØ·Ê¤òÁ°
-    ·Ê¿§¤Ç¡ËÉ½¼¨¤¹¤ë¡£
-
-    #Mnil ¤Î¾ì¹ç¤Ï¥Ó¥Ç¥ª¥â¡¼¥É¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
-    */
-
-MSymbol Mvideomode;
-
-/***en
-    @brief Key of a face property specifying font size ratio.
-
-    The variable #Mratio is used as a key of face property.  The value
-    RATIO must be an integer.
-
-    The value 0 means that the face does not specify a font size
-    ratio.  Otherwise, an M-text is drawn by a font of size (FONTSIZE
-    * RATIO / 100) where FONTSIZE is a font size specified by the face
-    property #Msize.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î¥µ¥¤¥º¤ÎÈæÎ¨¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mratio ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ RATIO 
-    ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ÃÍ¤¬0¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥µ¥¤¥º¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢M-text 
-    ¤Ï(FONTSIZE * RATIO / 100) ¤È¤¤¤¦¥µ¥¤¥º¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£¤³
-    ¤³¤Ç FONTSIZE ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼ #Msize ¤Ç»ØÄê¤µ¤ì¤¿¥µ¥¤¥º¤Ç¤¢
-    ¤ë¡£ */
-
-MSymbol Mratio;
-
-/***en
-    @brief Key of a face property specifying horizontal line.
-
-    The variable #Mhline is used as a key of face property.  The value
-    must be a pointer to an object of type #MFaceHLineProp, or @c
-    NULL.
-
-    The value @c NULL means that the face does not specify this
-    property.  Otherwise, an M-text is drawn with a horizontal line by
-    a way specified by the object that the value points to.  */
-
-/***ja
-    @brief ¿åÊ¿Àþ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mhline ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï 
-    #MFaceHLineProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê
-    ¤é¤Ê¤¤¡£
-
-    ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
-   ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë¿åÊ¿Àþ¤òÉÕ²Ã¤·¤Æ M-text ¤òÉ½¼¨
-   ¤¹¤ë¡£*/
-
-MSymbol Mhline;
-
-/***en
-    @brief Key of a face property specifying box.
-
-    The variable #Mbox is used as a key of face property.  The value
-    must be a pointer to an object of type #MFaceBoxProp, or @c NULL.
-
-    The value @c NULL means that the face does not specify a box.
-    Otherwise, an M-text is drawn with a surrounding box by a way
-    specified by the object that the value points to.  */
-
-/***ja
-    @brief °Ï¤ßÏÈ¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mbox ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï 
-    #MFaceBoxProp ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é
-    ¤Ê¤¤¡£
-
-    ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¤³¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
-    ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¤è¤¦¤Ë°Ï¤ßÏÈ¤òÉÕ²Ã¤·¤Æ M-text ¤òÉ½¼¨
-    ¤¹¤ë¡£*/
-
-MSymbol Mbox;
-
-/***en
-    @brief Key of a face property specifying fontset.
-
-    The variable #Mfontset is used as a key of face property.  The
-    value must be a pointer to an object of type #Mfontset, or @c
-    NULL.
-
-    The value @c NULL means that the face does not specify a fontset.
-    Otherwise, an M-text is drawn with a font selected from what
-    specified in the fontset.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mfontset ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï 
-    #Mfontset ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÃÍ
-    ¤¬»Ø¤¹¥ª¥Ö¥¸¥§¥¯¥È¤Ë»ØÄê¤µ¤ì¤¿¥Õ¥©¥ó¥È¥»¥Ã¥È¤«¤éÁª¤ó¤À¥Õ¥©¥ó¥È¤Ç 
-    M-text ¤òÉ½¼¨¤¹¤ë¡£*/
-    
-MSymbol Mfontset;
-
-/***en
-    @brief Key of a face property specifying hook.
-
-    The variable #Mhook_func is used as a key of face property.  The
-    value must be a function of type #MFaceHookFunc, or @c NULL.
-
-    The value @c NULL means that the face does not specify a hook.
-    Otherwise, the specified function is called before the face is
-    realized.  */
-/***ja
-    @brief ¥Õ¥Ã¥¯¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mhook_func ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï 
-    #MFaceHookFunc ·¿¤Î´Ø¿ô¤« @c NULL ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ÃÍ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Õ¥Ã¥¯¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¥Õ¥§¡¼¥¹¤ò
-    ¼Â¸½¤¹¤ëÁ°¤Ë»ØÄê¤·¤¿´Ø¿ô¤¬¸Æ¤Ð¤ì¤ë¡£      */
-MSymbol Mhook_func;
-
-/***en
-    @brief Key of a face property specifying argument of hook.
-
-    The variable #Mhook_arg is used as a key of face property.  The
-    value can be anything that is passed a hook function specified by
-    the face property #Mhook_func.  */
-/***ja
-    @brief ¥Õ¥Ã¥¯¤Î°ú¿ô¤ò»ØÄê¤¹¤ë¤¿¤á¤Î¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¡¼¤Î¥¡¼.
-
-    ÊÑ¿ô #Mhook_arg ¤Ï¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï 
-    ²¿¤Ç¤â¤è¤¯¡¢¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£ #Mhook_func ¤Ç»ØÄê¤µ¤ì¤ë´Ø¿ô¤ËÅÏ¤µ
-    ¤ì¤ë¡£ */
-MSymbol Mhook_arg;
-
-/*** @} */
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en @name Variables: Possible values of #Mvideomode property of face */
-/***ja @name ÊÑ¿ô¡§  ¥Õ¥§¡¼¥¹¤Î #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤Î²ÄÇ½¤ÊÃÍ */
-/*** @{ */
-/*=*/
-
-/***en
-    See the documentation of the variable #Mvideomode.  */ 
-/***ja
-    ÊÑ¿ô #Mvideomode ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£  */ 
-MSymbol Mnormal;
-MSymbol Mreverse;
-/*** @} */
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en @name Variables: Predefined faces  */
-/***ja @name ÊÑ¿ô: ÄêµÁºÑ¤ß¥Õ¥§¡¼¥¹  */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Normal video face.
-
-    The variable #mface_normal_video points to a face that has the
-    #Mvideomode property with value #Mnormal.  The other properties
-    are not specified.  An M-text drawn with this face appear normal
-    colors (i.e. the foreground is drawn by foreground color, and
-    background is drawn by background color).  */
-/***ja
-    @brief É¸½à¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_normal_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ #Mnormal 
-    ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£
-    ¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text ¤ÏÉ¸½à¤Î¿§ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÁ°·Ê¿§¡¢
-    ÇØ·Ê¤ÏÇØ·Ê¿§¡Ë¤ÇÉÁ¤«¤ì¤ë¡£  */
-
-MFace *mface_normal_video;
-
-/***en
-    @brief Reverse video face.
-
-    The variable #mface_reverse_video points to a face that has the
-    #Mvideomode property with value #Mreverse.  The other properties
-    are not specified.  An M-text drawn with this face appear in
-    reversed colors (i.e. the foreground is drawn by background
-    color, and background is drawn by foreground color).  */
-/***ja
-    @brief ¥ê¥Ð¡¼¥¹¥Ó¥Ç¥ª¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_reverse_video ¤Ï #Mvideomode ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 
-    #Mreverse ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê
-    ¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ÇÉ½¼¨¤µ¤ì¤ëM-text ¤ÏÁ°·Ê¿§¤ÈÇØ·Ê¿§¤¬Æþ¤ìÂØ
-    ¤ï¤Ã¤Æ (¤¹¤Ê¤ï¤ÁÁ°·Ê¤ÏÇØ·Ê¿§¡¢ÇØ·Ê¤ÏÁ°·Ê¿§¡ËÉÁ¤«¤ì¤ë¡£  */
-
-MFace *mface_reverse_video;
-
-/***en
-    @brief Underline face.
-
-    The variable #mface_underline points to a face that has the
-    #Mhline property with value a pointer to an object of type
-    #MFaceHLineProp.  The members of the object are as follows:
-
-@verbatim
-    member  value
-    -----   -----
-    type    MFACE_HLINE_UNDER
-    width   1
-    color   Mnil
-@endverbatim
-
-    The other properties are not specified.  An M-text that has this
-    face is drawn with an underline.  */ 
-/***ja
-    @brief ²¼Àþ¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_underline ¤Ï #Mhline ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ #MFaceHLineProp 
-    ·¿¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥ª¥Ö
-    ¥¸¥§¥¯¥È¤Î¥á¥ó¥Ð¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
-
-@verbatim
-    ¥á¥ó¥Ð  ÃÍ
-    -----   -----
-    type    MFACE_HLINE_UNDER
-    width   1
-    color   Mnil
-@endverbatim
-
-    Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï²¼ÀþÉÕ¤
-    ¤ÇÉ½¼¨¤µ¤ì¤ë¡£*/ 
-
-MFace *mface_underline;
-
-/***en
-    @brief Medium face.
-
-    The variable #mface_medium points to a face that has the #Mweight
-    property with value a symbol of name "medium".  The other
-    properties are not specified.  An M-text that has this face is
-    drawn with a font of medium weight.  */
-/***ja
-    @brief ¥ß¥Ç¥£¥¢¥à¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_medium ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "medium" ¤È¤¤¤¦Ì¾
-    Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
-    ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥ß¥Ç¥£¥¢¥à¥¦¥§
-    ¥¤¥È¤Î¥Õ¥©¥ó¥È¤ÇÉ½¼¨¤µ¤ì¤ë¡£  */
-MFace *mface_medium;
-
-/***en
-    @brief Bold face.
-
-    The variable #mface_bold points to a face that has the #Mweight
-    property with value a symbol of name "bold".  The other properties
-    are not specified.  An M-text that has this face is drawn with a
-    font of bold weight.  */
-
-/***ja
-    @brief ¥Ü¡¼¥ë¥É¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_bold ¤Ï #Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold" ¤È¤¤¤¦Ì¾Á°¤ò
-    ¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£
-    ¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥Ü¡¼¥ë¥É¤Î¥Õ¥©¥ó¥È¤Ç
-    É½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_bold;
-
-/***en
-    @brief Italic face.
-
-    The variable #mface_italic points to a face that has the #Mstyle
-    property with value a symbol of name "italic".  The other
-    properties are not specified.  An M-text that has this face is
-    drawn with a font of italic style.  */
-
-/***ja
-    @brief ¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_italic ¤Ï #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic" ¤È¤¤¤¦Ì¾Á°
-    ¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ
-    ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½
-    ¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_italic;
-
-/***en
-    @brief Bold italic face.
-
-    The variable #mface_bold_italic points to a face that has the
-    #Mweight property with value a symbol of name "bold", and #Mstyle
-    property with value a symbol of name "italic".  The other
-    properties are not specified.  An M-text that has this face is
-    drawn with a font of bold weight and italic style.  */
-
-/***ja
-    @brief ¥Ü¡¼¥ë¥É¥¤¥¿¥ê¥Ã¥¯¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_bold_italic ¤Ï¡¢#Mweight ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "bold" ¤È¤¤
-    ¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¤«¤Ä #Mstyle ¥×¥í¥Ñ¥Æ¥¤¤ÎÃÍ¤¬ "italic" 
-    ¤È¤¤¤¦Ì¾Á°¤ò¤â¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£
-    Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤Ï¡¢¥Ü¡¼¥ë
-    ¥É¥¤¥¿¥ê¥Ã¥¯ÂÎ¤ÇÉ½¼¨¤µ¤ì¤ë¡£
-    */
-
-MFace *mface_bold_italic;
-
-/***en
-    @brief Smallest face.
-
-    The variable #mface_xx_small points to a face that has the #Mratio
-    property with value 50.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    50% of a normal font.  */
-
-/***ja
-    @brief ºÇ¾®¤Î¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_xx_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 50 ¤Ç¤¢¤ë¥Õ¥§¡¼
-    ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
-    ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 50% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_xx_small;
-
-/***en
-    @brief Smaller face.
-
-    The variable #mface_x_small points to a face that has the #Mratio
-    property with value 66.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    66% of a normal font.  */
-
-/***ja
-    @brief ¤â¤Ã¤È¾®¤µ¤¤¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_x_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 66 ¤Ç¤¢¤ë¥Õ¥§¡¼
-    ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
-    ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 66% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_x_small;
-
-/***en
-    @brief Small face.
-
-    The variable #mface_x_small points to a face that has the #Mratio
-    property with value 75.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    75% of a normal font.  */
-
-/***ja
-    @brief ¾®¤µ¤¤¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_small ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 75 ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹¤ò
-    »Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý
-    ¤Ä M-text ¤ÏÉ¸½à¤Î 75% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_small;
-
-/***en
-    @brief Normalsize face.
-
-    The variable #mface_normalsize points to a face that has the
-    #Mratio property with value 100.  The other properties are not
-    specified.  An M-text that has this face is drawn with a font
-    whose size is the same as a normal font.  */
-
-/***ja
-    @brief É¸½à¤ÎÂç¤¤µ¤Î¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_normalsize ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 100 ¤Ç¤¢¤ë¥Õ¥§¡¼
-    ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
-    ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤ÈÆ±¤¸Âç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_normalsize;
-
-/***en
-    @brief Large face.
-
-    The variable #mface_large points to a face that has the #Mratio
-    property with value 120.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    120% of a normal font.  */
-
-/***ja
-    @brief Âç¤¤¤¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 120 ¤Ç¤¢¤ë¥Õ¥§¡¼¥¹
-    ¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò
-    »ý¤Ä M-text ¤ÏÉ¸½à¤Î 120% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_large;
-
-/***en
-    @brief Larger face.
-
-    The variable #mface_x_large points to a face that has the #Mratio
-    property with value 150.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    150% of a normal font.  */
-
-/***ja
-    @brief ¤â¤Ã¤ÈÂç¤¤¤¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_x_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 150 ¤Ç¤¢¤ë¥Õ¥§¡¼
-    ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
-    ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 150% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_x_large;
-
-/***en
-    @brief Largest face.
-
-    The variable #mface_xx_large points to a face that has the #Mratio
-    property with value 200.  The other properties are not specified.
-    An M-text that has this face is drawn with a font whose size is
-    200% of a normal font.  */
-
-/***ja
-    @brief ºÇÂç¤Î¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_xx_large ¤Ï¡¢#Mratio ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬ 200 ¤Ç¤¢¤ë¥Õ¥§¡¼
-    ¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹
-    ¤ò»ý¤Ä M-text ¤ÏÉ¸½à¤Î 200% ¤ÎÂç¤¤µ¤Î¥Õ¥©¥ó¥È¤òÍÑ¤¤¤ÆÉ½¼¨¤µ¤ì¤ë¡£
-     */
-
-MFace *mface_xx_large;
-
-/***en
-    @brief Black face.
-
-    The variable #mface_black points to a face that has the
-    #Mforeground property with value a symbol of name "black".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with black foreground.  */
-
-/***ja 
-    @brief ¹õ¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_black ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "black" ¤È
-    ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
-    ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò¹õ¤È¤·
-    ¤ÆÉ½¼¨¤µ¤ì¤ë¡£     */
-
-MFace *mface_black;
-
-/***en
-    @brief White face.
-
-    The variable #mface_white points to a face that has the
-    #Mforeground property with value a symbol of name "white".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with white foreground.  */
-
-/***ja
-    @brief Çò¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_white ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "white" ¤È
-    ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
-    ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÇò¤È¤·
-    ¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_white;
-
-/***en
-    @brief Red face.
-
-    The variable #mface_red points to a face that has the
-    #Mforeground property with value a symbol of name "red".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with red foreground.  */
-
-/***ja
-    @brief ÀÖ¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_red ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "red" ¤È¤¤¤¦
-    Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ
-    ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÀÖ¤È¤·¤ÆÉ½
-    ¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_red;
-
-/***en
-    @brief Green face.
-
-    The variable #mface_green points to a face that has the
-    #Mforeground property with value a symbol of name "green".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with green foreground.  */
-
-/***ja
-    @brief ÎÐ¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_green ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "green" ¤È
-    ¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×
-    ¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÎÐ¤È¤·
-    ¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_green;
-
-/***en
-    @brief Blue face.
-
-    The variable #mface_blue points to a face that has the
-    #Mforeground property with value a symbol of name "blue".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with blue foreground.  */
-
-/***ja
-    @brief ÀÄ¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_blue ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "blue" ¤È¤¤
-    ¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
-    ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤òÀÄ¤È¤·¤Æ
-    É½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_blue;
-
-/***en
-    @brief Cyan face.
-
-    The variable #mface_cyan points to a face that has the
-    #Mforeground property with value a symbol of name "cyan".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with cyan foreground.  */
-
-/***ja
-    @brief ¥·¥¢¥ó¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_cyan ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "cyan" ¤È¤¤
-    ¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î¥×¥í
-    ¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò¥·¥¢¥ó¤È
-    ¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_cyan;
-
-/***en
-    @brief yellow face.
-
-    The variable #mface_yellow points to a face that has the
-    #Mforeground property with value a symbol of name "yellow".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with yellow foreground.  */
-
-/***ja
-    @brief ²«¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_yellow ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ "yellow" 
-    ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£Â¾¤Î
-    ¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°·Ê¿§¤ò²«¿§
-    ¤È¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_yellow;
-
-/***en
-    @brief Magenta face.
-
-    The variable #mface_magenta points to a face that has the
-    #Mforeground property with value a symbol of name "magenta".  The
-    other properties are not specified.  An M-text that has this face
-    is drawn with magenta foreground.  */
-
-/***ja
-    @brief ¥Þ¥¼¥ó¥¿¥Õ¥§¡¼¥¹.
-
-    ÊÑ¿ô #mface_magenta ¤Ï¡¢#Mforeground ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ 
-    "magenta" ¤È¤¤¤¦Ì¾Á°¤Î¥·¥ó¥Ü¥ë¤ò»ý¤Ä¤è¤¦¤Ê¥Õ¥§¡¼¥¹¤ò»Ø¤¹¥Ý¥¤¥ó¥¿¤Ç
-    ¤¢¤ë¡£Â¾¤Î¥×¥í¥Ñ¥Æ¥£¤Ï»ØÄê¤µ¤ì¤Ê¤¤¡£¤³¤Î¥Õ¥§¡¼¥¹¤ò»ý¤Ä M-text ¤ÏÁ°
-    ·Ê¿§¤ò¥Þ¥¼¥ó¥¿¤È¤·¤ÆÉ½¼¨¤µ¤ì¤ë¡£  */
-
-MFace *mface_magenta;
-
-/*** @} */
-/*=*/
-
-/***en @name Variables: The other symbols for face handling.  */
-/***ja @name ÊÑ¿ô: ¥Õ¥§¡¼¥¹¤ò¼è¤ê°·¤¦¤¿¤á¤Î¤½¤ÎÂ¾¤Î¥·¥ó¥Ü¥ë  */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Key of a text property specifying a face.
-
-    The variable #Mface is a symbol of name "face".  A text
-    property whose key is
-    this symbol must have a pointer to an object
-    of type #MFace
-.  This is a managing key.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤ò»ØÄê¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-
-    ÊÑ¿ô #Mface ¤Ï "face" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£¤³
-    ¤Î¥·¥ó¥Ü¥ë¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¡¢#MFace ·¿¤Î¥ª¥Ö¥¸¥§¥¯
-    ¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý¤¿¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤ì¤Ï´ÉÍý¥¡¼¤Ç¤¢¤ë¡£  */
-
-MSymbol Mface;
-/*=*/
-/*** @} */
-/*=*/
-
-/***en
-    @brief Create a new face.
-
-    The mface () function creates a new face object that specifies no
-    property.
-
-    @return
-    This function returns a pointer to the created face.  */
-
-/***ja
-    @brief ¿·¤·¤¤¥Õ¥§¡¼¥¹¤ò¤Ä¤¯¤ë.
-
-    ´Ø¿ô mface () ¤Ï¥×¥í¥Ñ¥Æ¥£¤ò°ìÀÚ»ý¤¿¤Ê¤¤¿·¤·¤¤¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È
-    ¤òºî¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥§¡¼¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
-
-MFace *
-mface ()
-{
-  MFace *face;
-
-  M17N_OBJECT (face, free_face, MERROR_FACE);
-  face->frame_list = mplist ();
-  M17N_OBJECT_REGISTER (face_table, face);
-  return face;
-}
-
-/*=*/
-
-/***en
-    @brief Make a copy of a face.
-
-    The mface_copy () function makes a copy of $FACE and returns a
-    pointer to the created copy.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î¥³¥Ô¡¼¤òºî¤ë.
-
-    ´Ø¿ô mface_copy () ¤Ï¥Õ¥§¡¼¥¹ $FACE ¤Î¥³¥Ô¡¼¤òºî¤ê¡¢¤½¤Î¥³¥Ô¡¼¤Ø¤Î
-    ¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
-
-MFace *
-mface_copy (MFace *face)
-{
-  MFace *copy;
-
-  MSTRUCT_CALLOC (copy, MERROR_FACE);
-  *copy = *face;
-  copy->control.ref_count = 1;
-  M17N_OBJECT_REGISTER (face_table, copy);
-  copy->frame_list = mplist ();
-  if (copy->property[MFACE_FONTSET])
-    M17N_OBJECT_REF (copy->property[MFACE_FONTSET]);
-  return copy;
-}
-
-/*=*/
-/***en
-    @brief Merge faces.
-
-    The mface_merge () functions merges the properties of face $SRC
-    into $DST.
-
-    @return
-    This function returns $DST.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤òÅý¹ç¤¹¤ë.
-
-    ´Ø¿ô mface_merge () ¤Ï¡¢¥Õ¥§¡¼¥¹ $SRC ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥Õ¥§¡¼¥¹ $DST 
-    ¤ËÅý¹ç¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $DST ¤òÊÖ¤¹¡£  */
-
-MFace *
-mface_merge (MFace *dst, MFace *src)
-{
-  int i;
-  MPlist *plist;
-
-  for (i = 0; i < MFACE_PROPERTY_MAX; i++)
-    if (src->property[i])
-      {
-	if (i == MFACE_FONTSET)
-	  {
-	    M17N_OBJECT_UNREF (dst->property[i]);
-	    M17N_OBJECT_REF (src->property[i]);
-	  }
-	dst->property[i] = src->property[i];
-      }
-
-  MPLIST_DO (plist, dst->frame_list)
-    {
-      MFrame *frame = MPLIST_VAL (plist);
-
-      frame->tick++;
-      if (dst == frame->face)
-	mface__update_frame_face (frame);
-    }
-
-  return dst;
-}
-
-/*=*/
-
-/***en
-    @brief Make a face from a font.
-
-    The mface_from_font () function return a newly created face while
-    reflecting the properties of $FONT in its properties.   */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤«¤é¥Õ¥§¡¼¥¹¤òºî¤ë.
-
-    ´Ø¿ô mface_from_font () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥×¥í¥Ñ¥Æ¥£¤ò¥×¥í¥Ñ¥Æ¥£
-    ¤È¤·¤Æ»ý¤Ä¿·¤·¤¤¥Õ¥§¡¼¥¹¤òºî¤ê¡¢¤½¤ì¤òÊÖ¤¹¡£  */
-
-MFace *
-mface_from_font (MFont *font)
-{
-  MFace *face = mface ();
-
-  face->property[MFACE_FOUNDRY] = mfont_get_prop (font, Mfoundry);
-  face->property[MFACE_FAMILY] = mfont_get_prop (font, Mfamily);
-  face->property[MFACE_WEIGHT] = mfont_get_prop (font, Mweight);
-  face->property[MFACE_STYLE] = mfont_get_prop (font, Mstyle);
-  face->property[MFACE_STRETCH] = mfont_get_prop (font, Mstretch);
-  face->property[MFACE_ADSTYLE] = mfont_get_prop (font, Madstyle);
-  face->property[MFACE_SIZE] = mfont_get_prop (font, Msize);
-  return face;
-}
-
-/*=*/
-
-/***en
-    @brief Get the value of a face property.
-
-    The mface_get_prop () function returns the value of the face
-    property whose key is $KEY in face $FACE.  $KEY must be one of the
-    followings:
-
-        #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
-        #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
-        #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
-
-    @return
-    The actual type of the returned value depends of $KEY.  See
-    documentation of the above keys.  If an error is detected, it
-    returns @c NULL and assigns an error code to the external variable
-    #merror_code.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô mface_get_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE ¤¬»ý¤Ä¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£
-    ¤ÎÆâ¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤ÎÃÍ¤òÊÖ¤¹¡£$KEY ¤Ï²¼µ¤Î¤¤¤º¤ì¤«¤Ç¤Ê
-    ¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
-
-        #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
-        #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
-        #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
-
-    @return 
-    Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³
-    ¤È¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code 
-    ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @seealso
-    mface_put_prop ()
-
-    @errors
-    @c MERROR_FACE  */
-
-void *
-mface_get_prop (MFace *face, MSymbol key)
-{
-  int index = (int) msymbol_get (key, M_face_prop_index) - 1;
-
-  if (index < 0)
-    MERROR (MERROR_FACE, NULL);
-  return face->property[index];
-}
-
-/*=*/
-
-/***en
-    @brief Set a value of a face property.
-
-    The mface_put_prop () function assigns $VAL to the property whose
-    key is $KEY in face $FACE.  $KEY must be one the followings:
-
-        #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
-        #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
-        #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg
-
-    Among them, font related properties (#Mfoundry through #Msize) are
-    used as the default values when a font in the fontset of $FACE
-    does not specify those values.
-
-    The actual type of the returned value depends of $KEY.  See
-    documentation of the above keys.
-
-    @return
-    If the operation was successful, mface_put_prop () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mface_put_prop () ¤Ï¡¢¥Õ¥§¡¼¥¹ $FACE Æâ¤Ç¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥×
-    ¥í¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£$KEY ¤Ï°Ê²¼¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê
-    ¤é¤Ê¤¤¡£
-
-        #Mforeground, #Mbackground, #Mvideomode, #Mhline, #Mbox,
-        #Mfoundry, #Mfamily, #Mweight, #Mstyle, #Mstretch, #Madstyle,
-        #Msize, #Mfontset, #Mratio, #Mhook_func, #Mhook_arg.
-
-    ¤³¤ì¤é¤Î¤¦¤Á¤Î¡¢¥Õ¥©¥ó¥È´ØÏ¢¤Î¥×¥í¥Ñ¥Æ¥£ (#Mfamily ¤«¤é #Msize 
-    ¤Þ¤Ç) ¤Ï¡¢¥Õ¥§¡¼¥¹¤Î¥Õ¥©¥ó¥È¥»¥Ã¥ÈÃæ¤Î¥Õ¥©¥ó¥È¤Ë´Ø¤¹¤ë¥Ç¥Õ¥©¥ë¥ÈÃÍ
-    ¤È¤Ê¤ê¡¢¸Ä¡¹¤Î¥Õ¥©¥ó¥È¤¬ÃÍ¤ò»ØÄê¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    Ìá¤êÃÍ¤Î·¿¤Ï $KEY ¤Ë°ÍÂ¸¤¹¤ë¡£¾åµ¤Î¥¡¼¤ÎÀâÌÀ¤ò»²¾È¤¹¤ë¤³¤È¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mface_put_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï 
-    -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @seealso
-    mface_get_prop ()
-
-    @errors
-    @c MERROR_FACE  */
-
-int
-mface_put_prop (MFace *face, MSymbol key, void *val)
-{
-  int index = (int) msymbol_get (key, M_face_prop_index) - 1;
-  MPlist *plist;
-
-  if (index < 0)
-    MERROR (MERROR_FACE, -1);
-  if (key == Mfontset)
-    {
-      if (face->property[index])
-	M17N_OBJECT_UNREF (face->property[index]);
-      M17N_OBJECT_REF (val);
-    }
-  else if (key == Mhline)
-    val = get_hline_create (val);
-  else if (key == Mbox)
-    val = get_box_create (val);
-  face->property[index] = val;
-
-  MPLIST_DO (plist, face->frame_list)
-    {
-      MFrame *frame = MPLIST_VAL (plist);
-
-      frame->tick++;
-      if (face == frame->face)
-	mface__update_frame_face (frame);
-    }
-
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Update a face.
-
-    The mface_update () function update face $FACE on frame $FRAME by
-    calling a hook function of $FACE (if any).  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤ò¹¹¿·¤¹¤ë.
-
-    ´Ø¿ô mface_update () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥Õ¥§¡¼¥¹ $FACE ¤ò $FACE 
-    ¤Î¥Õ¥Ã¥¯´Ø¿ô¤ò¡Ê¤¢¤ì¤Ð¡Ë¸Æ¤ó¤Ç¹¹¿·¤¹¤ë¡£  */
-
-void
-mface_update (MFrame *frame, MFace *face)
-{
-  MFaceHookFunc func = (MFaceHookFunc) face->property[MFACE_HOOK_FUNC];
-  MPlist *rface_list;
-  MRealizedFace *rface;
-
-  if (func && func != noop_hook)
-    {
-      MPLIST_DO (rface_list, frame->realized_face_list)
-	{
-	  rface = MPLIST_VAL (rface_list);
-	  if ((MFaceHookFunc) rface->face.property[MFACE_HOOK_FUNC] == func)
-	    (func) (&(rface->face), rface->face.property[MFACE_HOOK_ARG],
-		    rface->info);
-	}
-    }
-}
-/*=*/
-
-/*** @} */
-/*=*/
-
-/*** @addtogroup m17nDebug */
-/*** @{  */
-/*=*/
-
-/***en
-    @brief Dump a face.
-
-    The mdebug_dump_face () function prints face $FACE in a human readable
-    way to the stderr.  $INDENT specifies how many columns to indent
-    the lines but the first one.
-
-    @return
-    This function returns $FACE.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_face () ¤Ï¥Õ¥§¡¼¥¹ $FACE ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê
-    ·Á¤Ç°õºþ¤¹¤ë¡£ $INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $FACE ¤òÊÖ¤¹¡£  */
-
-MFace *
-mdebug_dump_face (MFace *face, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MFont spec;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-  mfont__set_spec_from_face (&spec, face);
-  fprintf (stderr, "(face font:\"");
-  mdebug_dump_font (&spec);
-  fprintf (stderr, "\"\n %s  fore:%s back:%s", prefix,
-	   msymbol_name ((MSymbol) face->property[MFACE_FOREGROUND]),
-	   msymbol_name ((MSymbol) face->property[MFACE_BACKGROUND]));
-  if (face->property[MFACE_FONTSET])
-    fprintf (stderr, " non-default-fontset");
-  fprintf (stderr, " hline:%s", face->property[MFACE_HLINE] ? "yes" : "no");
-  fprintf (stderr, " box:%s)", face->property[MFACE_BOX] ? "yes" : "no");
-  return face;
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/face.h b/src/face.h
deleted file mode 100644
index 276ac09..0000000
--- a/src/face.h
+++ /dev/null
@@ -1,128 +0,0 @@
-/* face.h -- header file for the face module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_FACE_H_
-#define _M17N_FACE_H_
-
-enum MFaceProperty
-  {
-    /** The font related properties.  */
-    /* The order of MFACE_FOUNDRY to MFACE_ADSTYLE must be the same as
-       MFONT_FOUNDRY to MFONT_ADSTYLE of enum MFontProperty.  */
-    MFACE_FOUNDRY,
-    MFACE_FAMILY,
-    MFACE_WEIGHT,
-    MFACE_STYLE,
-    MFACE_STRETCH,
-    MFACE_ADSTYLE,
-    MFACE_SIZE,
-    MFACE_FONTSET,
-
-    /** The color related properties.   */
-    MFACE_FOREGROUND,
-    MFACE_BACKGROUND,
-
-    /** The other properties.   */
-    MFACE_HLINE,
-    MFACE_BOX,
-    MFACE_VIDEOMODE,
-
-    /** Extention by applications.  */
-    MFACE_HOOK_FUNC,
-    MFACE_HOOK_ARG,
-
-    /* In a realized face, this is already reflected in MFACE_SIZE,
-       thus is ignored.  */
-    MFACE_RATIO,
-
-    MFACE_PROPERTY_MAX
-  };
-
-struct MFace
-{
-  M17NObject control;
-
-  /** Properties of the face.  */
-  void *property[MFACE_PROPERTY_MAX];
-
-  /** List of frames affected by the face modification.  */
-  MPlist *frame_list;
-};
-
-
-/** A realized face is registered in MFrame->face_list, thus it does
-    not have to be a managed object.  */
-
-struct MRealizedFace
-{
-  /** Frame on which this realized face is created.  */
-  MFrame *frame;
-
-  /** Properties of all stacked faces are merged into here.  */
-  MFace face;
-
-  /** From what faces this is realized.  Keys are Mface and values are
-     (MFace *).  */
-  MPlist *base_face_list;
-
-  /* Realized font, one of ->realized_font_list.  */
-  MRealizedFont *rfont;
-
-  /* Realized fontset, one of ->realized_fontset_list.  */
-  MRealizedFontset *rfontset;
-
-  MSymbol layouter;
-
-  MFaceHLineProp *hline;
-
-  MFaceBoxProp *box;
-
-  /** Realized face for ASCII chars that has the same face
-      properties. */
-  MRealizedFace *ascii_rface;
-
-  /** List of realized faces that have the same face properties.  */
-  MPlist *non_ascii_list;
-
-  int ascent, descent;
-  int space_width;
-
-  /** Pointer to a window system dependent object.  */
-  void *info;
-};
-
-
-extern MFace *mface__default;
-
-extern MRealizedFace *mface__realize (MFrame *frame, MFace **faces, int num,
-				      MSymbol language, MSymbol charset,
-				      int limitted_size);
-
-extern MGlyph *mface__for_chars (MSymbol script, MSymbol language,
-				 MSymbol charset, MGlyph *from_g, MGlyph *to_g,
-				 int size);
-
-extern void mface__free_realized (MRealizedFace *rface);
-
-extern void mface__update_frame_face (MFrame *frame);
-
-#endif /* _M17N_FACE_H_ */
diff --git a/src/font-flt.c b/src/font-flt.c
deleted file mode 100644
index 525e7ae..0000000
--- a/src/font-flt.c
+++ /dev/null
@@ -1,1600 +0,0 @@
-/* font-flt.c -- Font Layout Table sub-module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include "config.h"
-
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "mtext.h"
-#include "symbol.h"
-#include "plist.h"
-#include "internal-gui.h"
-#include "font.h"
-#include "face.h"
-
-/* Font Layouter */
-
-/* Font Layout Table (FLT)
-
-Predefined terms: SYMBOL, INTEGER, STRING
-
-FLT ::=	'(' STAGE + ')'
-
-STAGE ::= CATEGORY-TABLE ? FONT-LAYOUT-RULE
-
-;; Each STAGE consumes a source (code sequence) and produces another
-;; code sequence that is given to the next STAGE as a source.  The
-;; source given to the first stage is a sequence of character codes
-;; that are assigned category codes by CATEGORY-TABLE.  The output of
-;; the last stage is a glyph code sequence given to the renderer.
-
-CATEGORY-TABLE ::=
-	'(' 'category' CATEGORY-SPEC + ')'
-CATEGORY-SPEC ::=
-	'(' CODE [ CODE ] CATEGORY ')'
-CODE ::= INTEGER
-CATEGORY ::= INTEGER
-;; ASCII character codes of alphabet ('A' .. 'Z' 'a' .. 'z').
-;; Ex: CATEGORY-TABLE
-;; (category
-;;   (0x0900 0x097F	?E)	; All Devanagari characters
-;;   (0x093C		?N))	; DEVANAGARI-LETTER NUKTA
-;;	Assign the category 'E' to all Devanagari characters but 0x093C,
-;;	assign the category 'N' to 0x093C.
-
-FONT-LAYOUT-RULE ::=
-	'(' 'generator' RULE MACRO-DEF * ')'
-
-RULE ::= COMMAND | REGEXP-RULE | MATCH-RULE | MAP-RULE
-	 | COND-STRUCT | MACRO-NAME
-
-COMMAND ::=
-	DIRECT-CODE | COMBINING | PREDEFIND-COMMAND | OTF-COMMAND
-
-DIRECT-CODE ::= INTEGER
-;; Always succeed.  Produce the code.  Consume no source.
-
-PREDEFIND-COMMAND ::=
-	'=' | '*' | '<' | '>' | '|'
-
-;; '=': Succeed when the current run contains at least one code.
-;; Consume the first code in the current run, and produce it as is.
-
-;; '*': If the the previous command succeeded, repeat it until it
-;; fails.  
-
-;; '<': Produce a special code that indicates the start of grapheme
-;; cluster.  Succeed always, consume nothing.
-
-;; '>': Produce a special code that indicates the end of grapheme
-;; cluster.  Succeed always, consume nothing.
-
-;; '|': Produce a special code whose category is ' '.  Succeed always,
-;; consume nothing.
-
-OTF-COMMAND ::=
-	'otf:''SCRIPT'[':'['LANGSYS'][':'[GSUB-FEATURES][':'GPOS-FEATURES]]]
-;; Run the Open Type Layout Table on the current run.  Succeed always,
-;; consume nothing.
-
-SCRIPT ::= OTF-TAG
-;;	OTF's ScriptTag name (four letters) listed at:
-;;	
-LANGSYS ::= OTF-TAG
-;;	OTF's Language System name (four letters) listed at:
-;;	
-
-GSUB-FEATURES ::= [FEATURE[,FEATURE]*] | ' '
-GPOS-FEATURES ::= [FEATURE[,FEATURE]*] | ' '
-FEATURE ::= OTF-TAG
-;;	OTF's Feature name (four letters) listed at:
-;;	
-
-OTF-TAG ::= PRINTABLE-CHAR PRINTABLE-CHAR PRINTABLE-CHAR PRINTABLE-CHAR
-
-;; Ex. OTF-COMMAND
-;; 'otf:deva'
-;;	Run all features in the default langsys of 'deva' script.
-;; 'otf:deva::nukt:haln'
-;;	Run all GSUB features, run 'nukt' and 'haln' GPOS features.
-;; 'otf:deva:: :'
-;;	Run all GSUB features, run no GPOS features.
-
-REGEXP-RULE ::=
-	'(' REGEXP RULE * ')'
-
-;; Succeed if REGXP matches the head of source.  Run RULEs while
-;; limiting the source to the matching part.  Consume that part.
-
-REGEXP ::= STRING
-;; Must be composed only from ASCII characters.  'A' - 'Z', 'a' - 'z'
-;; correspond to CATEGORY.
-
-;; Ex: REGEXP-RULE
-;; ("VA?"
-;;   < | vowel * | >)
-
-MATCH-RULE ::=
-	'(' MATCH-IDX RULE * ')'
-
-;; Succeed if the previous REGEXP-RULE found a matching part for
-;; MATCH-IDX.  Run RULEs while limiting the source to the matching
-;; part.  If MATCH-IDX is zero, consume the whole part, else consume
-;; nothing.
-
-MATCH-IDX ::= INTEGER
-;; Must be 0..20.
-
-;; Ex. MATCH-RULE
-;; (2 consonant *)
-
-MAP-RULE ::=
-	'(' ( SOURCE-SEQ | SOURCE-RANGE ) RULE * ')'
-
-;; Succeed if the source matches SOURCE-SEQ or SOURCE-RANGE.  Run
-;; RULEs while limiting the source to the matching part.  Consume that
-;; part.
-
-SOURCE-SEQ ::=
-	'(' CODE + ')'
-SOURCE-RANGE ::=
-	'(' 'range' CODE CODE ')'
-;; Ex. MAP-RULE
-;; ((0x0915 0x094D)		0x43)
-;;	If the source code sequence is 0x0915 0x094D, produce 0x43.
-;; ((range 0x0F40 0x0F6A)	0x2221)
-;;	If the first source code CODE is in the range 0x0F40..0x0F6A, 
-;;	produce (0x2221 + (CODE - 0x0F40)).
-
-COND-STRUCT ::=
-	'(' 'cond' RULE + ')'
-
-;; Try each rule in sequence until one succeeds.  Succeed if one
-;; succeeds.  Consume nothing.
-
-;; Ex. COND-STRUCT
-;; (cond
-;;  ((0x0915 0x094D)		0x43)
-;;  ((range 0x0F40 0x0F6A)	0x2221)
-;;  = )
-
-COMBINING ::= 'V''H''O''V''H'
-V ::= ( 't' | 'c' | 'b' | 'B' )
-H ::= ( 'l' | 'c' | 'r' )
-O ::= ( '.' | XOFF | YOFF | XOFF YOFF )
-XOFF ::= '<'INTEGER | '>'INTEGER 
-YOFF ::= '+'INTEGER | '-'INTEGER
-;; INTEGER must be integer 0..127
-
-;; VH pair indicates 12 reference points of a glyph as below:
-;;
-;;   0----1----2 <---- ascent	 0:tl (top-left)
-;;   |         |		 1:tc (top-center)
-;;   |         |		 2:tr (top-right)
-;;   |         |		 3:Bl (base-left)
-;;   9   10   11 <---- center	 4:Bc (base-center)
-;;   |         |		 5:Br (base-right)
-;; --3----4----5-- <-- baseline	 6:bl (bottom-left)
-;;   |         |		 7:bc (bottom-center)
-;;   6----7----8 <---- descent	 8:br (bottom-right)
-;;				 9:cl (center-left)
-;;   |    |    |		10:cc (center-center)
-;; left center right		11:cr (center-right)
-;;
-;; Ex. COMBINING
-;; 'tc.bc':
-;;	Align top-left point of the previous glyph and bottom-center
-;;	point of the current glyph.
-;; 'Bl<20-10Br'
-;;	Align 20% left and 10% below of base-left point of the previous
-;;	glyph and base-right point of the current glyph.
-
-MACRO-DEF ::=
-	'(' MACRO-NAME RULE + ')'
-MACRO-NAME ::= SYMBOL
-
-*/
-
-static int mdebug_mask = MDEBUG_FONT_FLT;
-
-MSymbol Mlayouter;
-
-static MPlist *flt_list;
-
-/* Command ID:
-	         0 ...		: direct code
-	           -1		: invalid
-	     -0x0F .. -2	: builtin commands
-	-0x100000F .. -0x10	: combining code
-	          ... -0x1000010: index to FontLayoutStage->cmds
- */
-
-#define INVALID_CMD_ID -1
-#define CMD_ID_OFFSET_BUILTIN	-2
-#define CMD_ID_OFFSET_COMBINING	-0x10
-#define CMD_ID_OFFSET_INDEX	-0x1000010
-
-/* Builtin commands. */
-#define CMD_ID_COPY		-2 /* '=' */
-#define CMD_ID_REPEAT		-3 /* '*' */
-#define CMD_ID_CLUSTER_BEGIN	-4 /* '<' */
-#define CMD_ID_CLUSTER_END	-5 /* '>' */
-#define CMD_ID_SEPARATOR	-6 /* '|' */
-#define CMD_ID_LEFT_PADDING	-7 /* '[' */
-#define CMD_ID_RIGHT_PADDING	-8 /* ']' */
-
-#define CMD_ID_TO_COMBINING_CODE(id) (CMD_ID_OFFSET_COMBINING - (id))
-#define COMBINING_CODE_TO_CMD_ID(code) (CMD_ID_OFFSET_COMBINING - (code))
-
-#define CMD_ID_TO_INDEX(id) (CMD_ID_OFFSET_INDEX - (id))
-#define INDEX_TO_CMD_ID(idx) (CMD_ID_OFFSET_INDEX - (idx))
-
-static MSymbol Mcond, Mrange;
-
-#define GLYPH_CODE_P(code)	\
-  ((code) >= GLYPH_CODE_MIN && (code) <= GLYPH_CODE_MAX)
-
-#define GLYPH_CODE_INDEX(code) ((code) - GLYPH_CODE_MIN)
-
-enum FontLayoutCmdRuleSrcType
-  {
-    SRC_REGEX,
-    SRC_INDEX,
-    SRC_SEQ,
-    SRC_RANGE
-  };
-
-typedef struct
-{
-  enum FontLayoutCmdRuleSrcType src_type;
-  union {
-    struct {
-      char *pattern;
-      regex_t preg;
-    } re;
-    int match_idx;
-    struct {
-      int n_codes;
-      int *codes;
-    } seq;
-    struct {
-      int from, to;
-    } range;
-  } src;
-
-  int n_cmds;
-  int *cmd_ids;
-} FontLayoutCmdRule;
-
-typedef struct
-{
-  /* Beginning and end indices of series of SEQ commands.  */
-  int seq_beg, seq_end;
-  /* Range of the first character appears in the above series.  */
-  int seq_from, seq_to;
-
-  int n_cmds;
-  int *cmd_ids;
-} FontLayoutCmdCond;
-
-typedef struct
-{
-  MSymbol script;
-  MSymbol langsys;
-  MSymbol gsub_features;
-  MSymbol gpos_features;
-} FontLayoutCmdOTF;
-
-enum FontLayoutCmdType
-  {
-    FontLayoutCmdTypeRule,
-    FontLayoutCmdTypeCond,
-    FontLayoutCmdTypeOTF,
-    FontLayoutCmdTypeMAX
-  };
-
-typedef struct
-{
-  enum FontLayoutCmdType type;
-  union {
-    FontLayoutCmdRule rule;
-    FontLayoutCmdCond cond;
-    FontLayoutCmdOTF otf;
-  } body;
-} FontLayoutCmd;
-
-typedef struct 
-{
-  MCharTable *category;
-  int size, inc, used;
-  FontLayoutCmd *cmds;
-} FontLayoutStage;
-
-typedef MPlist MFontLayoutTable; /* t vs FontLayoutStage */
-
-/* Font layout table loader */
-
-/* Load a category table from PLIST.  PLIST has this form:
-      PLIST ::= ( FROM-CODE TO-CODE ? CATEGORY-CHAR ) *
-*/
-
-static MCharTable *
-load_category_table (MPlist *plist)
-{
-  MCharTable *table;
-
-  table = mchartable (Minteger, (void *) 0);
-
-  MPLIST_DO (plist, plist)
-    {
-      MPlist *elt;
-      int from, to, category_code;
-
-      if (! MPLIST_PLIST (plist))
-	MERROR (MERROR_FONT, NULL);
-      elt = MPLIST_PLIST (plist);
-      if (! MPLIST_INTEGER_P (elt))
-	MERROR (MERROR_FONT, NULL);
-      from = MPLIST_INTEGER (elt);
-      elt = MPLIST_NEXT (elt);
-      if (! MPLIST_INTEGER_P (elt))
-	MERROR (MERROR_FONT, NULL);
-      to = MPLIST_INTEGER (elt);
-      elt = MPLIST_NEXT (elt);
-      if (MPLIST_TAIL_P (elt))
-	{
-	  category_code = to;
-	  to = from;
-	}
-      else
-	{
-	  if (! MPLIST_INTEGER_P (elt))
-	    MERROR (MERROR_FONT, NULL);
-	  category_code = MPLIST_INTEGER (elt);
-	}
-      if (! isalpha (category_code))
-	MERROR (MERROR_FONT, NULL);
-
-      if (from == to)
-	mchartable_set (table, from, (void *) category_code);
-      else
-	mchartable_set_range (table, from, to, (void *) category_code);
-    }
-
-  return table;
-}
-
-
-/* Parse OTF command name NAME and store the result in CMD.
-   NAME has this form:
-	:SCRIPT[/[LANGSYS][=[GSUB-FEATURES][+GPOS-FEATURES]]]
-   where GSUB-FEATURES and GPOS-FEATURES have this form:
-	[FEATURE[,FEATURE]*] | ' '  */
-
-static int
-load_otf_command (FontLayoutCmd *cmd, char *name)
-{
-  char *p = name, *beg;
-
-  cmd->type = FontLayoutCmdTypeOTF;
-  cmd->body.otf.script = cmd->body.otf.langsys = Mnil;
-  cmd->body.otf.gsub_features = cmd->body.otf.gpos_features = Mt;
-
-  while (*p)
-    {
-      if (*p == ':')
-	{
-	  for (beg = ++p; *p && *p != '/' && *p != '=' && *p != '+'; p++);
-	  if (beg < p)
-	    cmd->body.otf.script = msymbol__with_len (beg, p - beg);
-	}
-      else if (*p == '/')
-	{
-	  for (beg = ++p; *p && *p != '=' && *p != '+'; p++);
-	  if (beg < p)
-	    cmd->body.otf.langsys = msymbol__with_len (beg, p - beg);
-	}
-      else if (*p == '=')
-	{
-	  for (beg = ++p; *p && *p != '+'; p++);
-	  if (beg < p)
-	    cmd->body.otf.gsub_features = msymbol__with_len (beg, p - beg);
-	  else
-	    cmd->body.otf.gsub_features = Mnil;
-	}
-      else if (*p == '+')
-	{
-	  for (beg = ++p; *p && *p != '+'; p++);
-	  if (beg < p)
-	    cmd->body.otf.gpos_features = msymbol__with_len (beg, p - beg);
-	  else
-	    cmd->body.otf.gpos_features = Mnil;
-	}
-      else
-	p++;
-    }
-
-  return (cmd->body.otf.script == Mnil ? -1 : 0);
-}
-
-
-/* Read a decimal number from STR preceded by one of "+-><".  '+' and
-   '>' means a plus sign, '-' and '<' means a minus sign.  If the
-   number is greater than 127, limit it to 127.  */
-
-static int
-read_decimal_number (char **str)
-{
-  char *p = *str;
-  int sign = (*p == '-' || *p == '<') ? -1 : 1;
-  int n = 0;
-
-  p++;
-  while (*p >= '0' && *p <= '9')
-    n = n * 10 + *p++ - '0';
-  *str = p;
-  if (n == 0)
-    n = 5;
-  return (n < 127 ? n * sign : 127 * sign);
-}
-
-
-/* Read a horizontal and vertical combining positions from STR, and
-   store them in the place pointed by X and Y.  The horizontal
-   position left, center, and right are represented by 0, 1, and 2
-   respectively.  The vertical position top, center, bottom, and base
-   are represented by 0, 1, 2, and 3 respectively.  If successfully
-   read, return 0, else return -1.  */
-
-static int
-read_combining_position (char *str, int *x, int *y)
-{
-  int c = *str++;
-  int i;
-
-  /* Vertical position comes first.  */
-  for (i = 0; i < 4; i++)
-    if (c == "tcbB"[i])
-      {
-	*y = i;
-	break;
-      }
-  if (i == 4)
-    return -1;
-  c = *str;
-  /* Then comse horizontal position.  */
-  for (i = 0; i < 3; i++)
-    if (c == "lcr"[i])
-      {
-	*x = i;
-	return 0;
-      }
-  return -1;
-}
-
-
-/* Return a combining code corresponding to SYM.  */
-
-static int
-get_combining_command (MSymbol sym)
-{
-  char *str = msymbol_name (sym);
-  int base_x, base_y, add_x, add_y, off_x, off_y;
-  int c;
-
-  if (read_combining_position (str, &base_x, &base_y) < 0)
-    return 0;
-  str += 2;
-  c = *str;
-  if (c == '.')
-    {
-      off_x = off_y = 128;
-      str++;
-    }
-  else
-    {
-      if (c == '+' || c == '-')
-	{
-	  off_y = read_decimal_number (&str) + 128;
-	  c = *str;
-	}
-      else
-	off_y = 128;
-      if (c == '<' || c == '>')
-	off_x = read_decimal_number (&str) + 128;
-      else
-	off_x = 128;
-    }
-  if (read_combining_position (str, &add_x, &add_y) < 0)
-    return 0;
-
-  c = MAKE_COMBINING_CODE (base_y, base_x, add_y, add_x, off_y, off_x);
-  return (COMBINING_CODE_TO_CMD_ID (c));
-}
-
-
-/* Load a command from PLIST into STAGE, and return that
-   identification number.  If ID is not INVALID_CMD_ID, that means we
-   are loading a top level command or a macro.  In that case, use ID
-   as the identification number of the command.  Otherwise, generate a
-   new id number for the command.  MACROS is a list of raw macros.  */
-
-static int
-load_command (FontLayoutStage *stage, MPlist *plist,
-	      MPlist *macros, int id)
-{
-  int i;
-
-  if (MPLIST_INTEGER_P (plist))
-    {
-      int code = MPLIST_INTEGER (plist);
-
-      if (code < 0)
-	MERROR (MERROR_DRAW, INVALID_CMD_ID);
-      return code;
-    }
-  else if (MPLIST_PLIST_P (plist))
-    {
-      /* PLIST ::= ( cond ... ) | ( STRING ... ) | ( INTEGER ... )
- 	           | ( ( INTEGER INTEGER ) ... )
-		   | ( ( range INTEGER INTEGER ) ... )  */
-      MPlist *elt = MPLIST_PLIST (plist);
-      int len = MPLIST_LENGTH (elt) - 1;
-      FontLayoutCmd *cmd;
-
-      if (id == INVALID_CMD_ID)
-	{
-	  FontLayoutCmd dummy;
-	  id = INDEX_TO_CMD_ID (stage->used);
-	  MLIST_APPEND1 (stage, cmds, dummy, MERROR_DRAW);
-	}
-      cmd = stage->cmds + CMD_ID_TO_INDEX (id);
-
-      if (MPLIST_SYMBOL_P (elt))
-	{
-	  FontLayoutCmdCond *cond;
-
-	  if (MPLIST_SYMBOL (elt) != Mcond)
-	    MERROR (MERROR_DRAW, INVALID_CMD_ID);
-	  elt = MPLIST_NEXT (elt);
-	  cmd->type = FontLayoutCmdTypeCond;
-	  cond = &cmd->body.cond;
-	  cond->seq_beg = cond->seq_end = -1;
-	  cond->seq_from = cond->seq_to = 0;
-	  cond->n_cmds = len;
-	  MTABLE_CALLOC (cond->cmd_ids, len, MERROR_DRAW);
-	  for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt))
-	    {
-	      int this_id = load_command (stage, elt, macros, INVALID_CMD_ID);
-
-	      if (this_id == INVALID_CMD_ID)
-		MERROR (MERROR_DRAW, INVALID_CMD_ID);
-	      /* The above load_command may relocate stage->cmds.  */
-	      cmd = stage->cmds + CMD_ID_TO_INDEX (id);
-	      cond = &cmd->body.cond;
-	      cond->cmd_ids[i] = this_id;
-	      if (this_id <= CMD_ID_OFFSET_INDEX)
-		{
-		  FontLayoutCmd *this_cmd
-		    = stage->cmds + CMD_ID_TO_INDEX (this_id);
-
-		  if (this_cmd->type == FontLayoutCmdTypeRule
-		      && this_cmd->body.rule.src_type == SRC_SEQ)
-		    {
-		      int first_char = this_cmd->body.rule.src.seq.codes[0];
-
-		      if (cond->seq_beg < 0)
-			{
-			  /* The first SEQ command.  */
-			  cond->seq_beg = i;
-			  cond->seq_from = cond->seq_to = first_char;
-			}
-		      else if (cond->seq_end < 0)
-			{
-			  /* The following SEQ command.  */
-			  if (cond->seq_from > first_char)
-			    cond->seq_from = first_char;
-			  else if (cond->seq_to < first_char)
-			    cond->seq_to = first_char;
-			}
-		    }
-		  else
-		    {
-		      if (cond->seq_beg >= 0 && cond->seq_end < 0)
-			/* The previous one is the last SEQ command.  */
-			cond->seq_end = i;
-		    }
-		}
-	      else
-		{
-		  if (cond->seq_beg >= 0 && cond->seq_end < 0)
-		    /* The previous one is the last SEQ command.  */
-		    cond->seq_end = i;
-		}
-	    }
-	  if (cond->seq_beg >= 0 && cond->seq_end < 0)
-	    /* The previous one is the last SEQ command.  */
-	    cond->seq_end = i;
-	}
-      else
-	{
-	  cmd->type = FontLayoutCmdTypeRule;
-	  if (MPLIST_MTEXT_P (elt))
-	    {
-	      char *str = (char *) MTEXT_DATA (MPLIST_MTEXT (elt));
-
-	      if (regcomp (&cmd->body.rule.src.re.preg, str, REG_EXTENDED))
-		MERROR (MERROR_FONT, INVALID_CMD_ID);
-	      cmd->body.rule.src_type = SRC_REGEX;
-	      cmd->body.rule.src.re.pattern = strdup (str);
-	    }
-	  else if (MPLIST_INTEGER_P (elt))
-	    {
-	      cmd->body.rule.src_type = SRC_INDEX;
-	      cmd->body.rule.src.match_idx = MPLIST_INTEGER (elt);
-	    }
-	  else if (MPLIST_PLIST_P (elt))
-	    {
-	      MPlist *pl = MPLIST_PLIST (elt);
-	      int size = MPLIST_LENGTH (pl);
-
-	      if (MPLIST_INTEGER_P (pl))
-		{
-		  int i;
-
-		  cmd->body.rule.src_type = SRC_SEQ;
-		  cmd->body.rule.src.seq.n_codes = size;
-		  MTABLE_CALLOC (cmd->body.rule.src.seq.codes, size,
-				 MERROR_FONT);
-		  for (i = 0; i < size; i++, pl = MPLIST_NEXT (pl))
-		    {
-		      if (! MPLIST_INTEGER_P (pl))
-			MERROR (MERROR_DRAW, INVALID_CMD_ID);
-		      cmd->body.rule.src.seq.codes[i]
-			= (unsigned) MPLIST_INTEGER (pl);
-		    }
-		}
-	      else if (MPLIST_SYMBOL_P (pl) && size == 3)
-		{
-		  cmd->body.rule.src_type = SRC_RANGE;
-		  pl = MPLIST_NEXT (pl);
-		  if (! MPLIST_INTEGER_P (pl))
-		    MERROR (MERROR_DRAW, INVALID_CMD_ID);
-		  cmd->body.rule.src.range.from
-		    = (unsigned) MPLIST_INTEGER (pl);
-		  pl = MPLIST_NEXT (pl);
-		  if (! MPLIST_INTEGER_P (pl))
-		    MERROR (MERROR_DRAW, INVALID_CMD_ID);
-		  cmd->body.rule.src.range.to
-		    = (unsigned) MPLIST_INTEGER (pl);
-		}
-	      else
-		MERROR (MERROR_DRAW, INVALID_CMD_ID);
-	    }
-	  else
-	    MERROR (MERROR_DRAW, INVALID_CMD_ID);
-
-	  elt = MPLIST_NEXT (elt);
-	  cmd->body.rule.n_cmds = len;
-	  MTABLE_CALLOC (cmd->body.rule.cmd_ids, len, MERROR_DRAW);
-	  for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt))
-	    {
-	      int this_id = load_command (stage, elt, macros, INVALID_CMD_ID);
-
-	      if (this_id == INVALID_CMD_ID)
-		MERROR (MERROR_DRAW, INVALID_CMD_ID);
-	      /* The above load_command may relocate stage->cmds.  */
-	      cmd = stage->cmds + CMD_ID_TO_INDEX (id);
-	      cmd->body.rule.cmd_ids[i] = this_id;
-	    }
-	}
-    }
-  else if (MPLIST_SYMBOL_P (plist))
-    {
-      MPlist *elt;
-      MSymbol sym = MPLIST_SYMBOL (plist);
-      char *name = msymbol_name (sym);
-      int len = strlen (name);
-      FontLayoutCmd cmd;
-
-      if (len > 4
-	  && ! strncmp (name, "otf:", 4)
-	  && load_otf_command (&cmd, name + 3) >= 0)
-	{
-	  if (id == INVALID_CMD_ID)
-	    {
-	      id = INDEX_TO_CMD_ID (stage->used);
-	      MLIST_APPEND1 (stage, cmds, cmd, MERROR_DRAW);
-	    }
-	  else
-	    stage->cmds[CMD_ID_TO_INDEX (id)] = cmd;
-	  return id;
-	}
-
-      if (len == 1)
-	{
-	  if (*name == '=')
-	    return CMD_ID_COPY;
-	  else if (*name == '*')
-	    return CMD_ID_REPEAT;
-	  else if (*name == '<')
-	    return CMD_ID_CLUSTER_BEGIN;
-	  else if (*name == '>')
-	    return CMD_ID_CLUSTER_END;
-	  else if (*name == '|')
-	    return CMD_ID_SEPARATOR;
-	  else if (*name == '[')
-	    return CMD_ID_LEFT_PADDING;
-	  else if (*name == ']')
-	    return CMD_ID_RIGHT_PADDING;
-	  else
-	    id = 0;
-	}
-      else
-	{
-	  id = get_combining_command (sym);
-	  if (id)
-	    return id;
-	}
-
-      i = 1;
-      MPLIST_DO (elt, macros)
-	{
-	  if (sym == MPLIST_SYMBOL (MPLIST_PLIST (elt)))
-	    {
-	      id = INDEX_TO_CMD_ID (i);
-	      if (stage->cmds[i].type == FontLayoutCmdTypeMAX)
-		id = load_command (stage, MPLIST_NEXT (MPLIST_PLIST (elt)),
-				   macros, id);
-	      return id;
-	    }
-	  i++;
-	}
-      MERROR (MERROR_DRAW, INVALID_CMD_ID);
-    }
-  else
-    MERROR (MERROR_DRAW, INVALID_CMD_ID);
-
-  return id;
-}
-
-static void
-free_flt_command (FontLayoutCmd *cmd)
-{
-  if (cmd->type == FontLayoutCmdTypeRule)
-    {
-      FontLayoutCmdRule *rule = &cmd->body.rule;
-
-      if (rule->src_type == SRC_REGEX)
-	{
-	  free (rule->src.re.pattern);
-	  regfree (&rule->src.re.preg);
-	}
-      else if (rule->src_type == SRC_SEQ)
-	free (rule->src.seq.codes);
-      free (rule->cmd_ids);
-    }
-  else if (cmd->type == FontLayoutCmdTypeCond)
-    free (cmd->body.cond.cmd_ids);
-}
-
-/* Load a generator from PLIST into a newly allocated FontLayoutStage,
-   and return it.  PLIST has this form:
-      PLIST ::= ( COMMAND ( CMD-NAME COMMAND ) * )
-*/
-
-static FontLayoutStage *
-load_generator (MPlist *plist)
-{
-  FontLayoutStage *stage;
-  MPlist *elt, *pl;
-  FontLayoutCmd dummy;
-
-  MSTRUCT_CALLOC (stage, MERROR_DRAW);
-  MLIST_INIT1 (stage, cmds, 32);
-  dummy.type = FontLayoutCmdTypeMAX;
-  MLIST_APPEND1 (stage, cmds, dummy, MERROR_FONT);
-  MPLIST_DO (elt, MPLIST_NEXT (plist))
-    {
-      if (! MPLIST_PLIST_P (elt))
-	MERROR (MERROR_FONT, NULL);
-      pl = MPLIST_PLIST (elt);
-      if (! MPLIST_SYMBOL_P (pl))
-	MERROR (MERROR_FONT, NULL);
-      MLIST_APPEND1 (stage, cmds, dummy, MERROR_FONT);
-    }
-
-  /* Load the first command from PLIST into STAGE->cmds[0].  Macros
-     called in the first command are also loaded from MPLIST_NEXT
-     (PLIST) into STAGE->cmds[n].  */
-  if (load_command (stage, plist, MPLIST_NEXT (plist), INDEX_TO_CMD_ID (0))
-      == INVALID_CMD_ID)
-    {
-      MLIST_FREE1 (stage, cmds);
-      free (stage);
-      MERROR (MERROR_DRAW, NULL);
-    }
-
-  return stage;
-}
-
-
-/* Load FLT of name LAYOUTER_NAME from the m17n database into a newly
-   allocated memory, and return it.  */
-
-static MFontLayoutTable *
-load_flt (MSymbol layouter_name)
-{
-  MDatabase *mdb;
-  MPlist *top = NULL, *plist;
-  MSymbol Mcategory = msymbol ("category");
-  MSymbol Mgenerator = msymbol ("generator");
-  MFontLayoutTable *layouter = NULL;
-  MCharTable *category = NULL;
-
-  if (! (mdb = mdatabase_find (Mfont, Mlayouter, layouter_name, Mnil)))
-    MERROR_GOTO (MERROR_FONT, finish);
-  if (! (top = (MPlist *) mdatabase_load (mdb)))
-    MERROR_GOTO (0, finish);
-  if (! MPLIST_PLIST_P (top))
-    MERROR_GOTO (MERROR_FONT, finish);
-
-  MPLIST_DO (plist, top)
-    {
-      MSymbol sym;
-      MPlist *elt;
-
-      if (! MPLIST_PLIST (plist))
-	MERROR_GOTO (MERROR_FONT, finish);
-      elt = MPLIST_PLIST (plist);
-      if (! MPLIST_SYMBOL_P (elt))
-	MERROR_GOTO (MERROR_FONT, finish);
-      sym = MPLIST_SYMBOL (elt);
-      elt = MPLIST_NEXT (elt);
-      if (! elt)
-	MERROR_GOTO (MERROR_FONT, finish);
-      if (sym == Mcategory)
-	{
-	  if (category)
-	    M17N_OBJECT_UNREF (category);
-	  category = load_category_table (elt);
-	}
-      else if (sym == Mgenerator)
-	{
-	  FontLayoutStage *stage;
-
-	  if (! category)
-	    MERROR_GOTO (MERROR_FONT, finish);
-	  stage = load_generator (elt);
-	  if (! stage)
-	    MERROR_GOTO (MERROR_FONT, finish);
-	  stage->category = category;
-	  M17N_OBJECT_REF (category);
-	  if (! layouter)
-	    {
-	      layouter = mplist ();
-	      /* Here don't do M17N_OBJECT_REF (category) because we
-		 don't unref the value of the element added below.  */
-	      mplist_add (layouter, Mcategory, category);
-	    }
-	  mplist_add (layouter, Mt, stage);
-	}
-      else
-	MERROR_GOTO (MERROR_FONT, finish);
-    }
-
-  if (category)
-    M17N_OBJECT_UNREF (category);
-
- finish:
-  M17N_OBJECT_UNREF (top);
-  mplist_add (flt_list, layouter_name, layouter);
-  return layouter;
-}
-
-
-static void
-free_flt_stage (FontLayoutStage *stage)
-{
-  int i;
-
-  M17N_OBJECT_UNREF (stage->category);
-  for (i = 0; i < stage->used; i++)
-    free_flt_command (stage->cmds + i);
-  MLIST_FREE1 (stage, cmds);
-  free (stage);
-}
-
-
-static MFontLayoutTable *
-get_font_layout_table (MSymbol layouter_name)
-{
-  MPlist *plist = mplist_find_by_key (flt_list, layouter_name);
-
-  return (plist ? MPLIST_VAL (plist) : load_flt (layouter_name));
-}
-
-
-/* FLS (Font Layout Service) */
-
-/* Structure to hold information about a context of FLS.  */
-
-typedef struct
-{
-  /* Pointer to the current stage.  */
-  FontLayoutStage *stage;
-
-  /* Encode each MGlyph->code by the current category table into this
-     array.  An element is a category.  */
-  char *encoded;
-  /* [GIDX - ] gives a category for the glyph
-     index GIDX.  */
-  int encoded_offset;
-  int *match_indices;
-  int code_offset;
-  int cluster_begin_idx;
-  int cluster_begin_pos;
-  int cluster_end_pos;
-  int combining_code;
-  int left_padding;
-  MRealizedFont *rfont;
-} FontLayoutContext;
-
-static int run_command (int depth,
-			int, MGlyphString *, int, int, FontLayoutContext *);
-
-#define NMATCH 20
-
-static int
-run_rule (int depth,
-	  FontLayoutCmdRule *rule, MGlyphString *gstring, int from, int to,
-	  FontLayoutContext *ctx)
-{
-  int *saved_match_indices = ctx->match_indices;
-  int match_indices[NMATCH * 2];
-  int consumed;
-  int i;
-  int orig_from = from;
-
-  if (ctx->cluster_begin_idx)
-    {
-      if (ctx->cluster_begin_pos > MGLYPH (from)->pos)
-	ctx->cluster_begin_pos = MGLYPH (from)->pos;
-      if (ctx->cluster_end_pos < MGLYPH (to)->pos)
-	ctx->cluster_end_pos = MGLYPH (to)->pos;
-    }
-
-  if (rule->src_type == SRC_SEQ)
-    {
-      int len;
-
-      len = rule->src.seq.n_codes;
-      if (len > (to - from))
-	return 0;
-      for (i = 0; i < len; i++)
-	if (rule->src.seq.codes[i] != gstring->glyphs[from + i].code)
-	  break;
-      if (i < len)
-	return 0;
-      to = from + len;
-      MDEBUG_PRINT1 (" (SEQ 0x%X", rule->src.seq.codes[0]);
-    }
-  else if (rule->src_type == SRC_RANGE)
-    {
-      int head;
-
-      if (from >= to)
-	return 0;
-      head = gstring->glyphs[from].code;
-      if (head < rule->src.range.from || head > rule->src.range.to)
-	return 0;
-      ctx->code_offset = head - rule->src.range.from;
-      to = from + 1;
-      MDEBUG_PRINT2 (" (RANGE 0x%X-0x%X",
-		     rule->src.range.from, rule->src.range.to);
-    }
-  else if (rule->src_type == SRC_REGEX)
-    {
-      regmatch_t pmatch[NMATCH];
-      char saved_code;
-      int result;
-
-      if (from > to)
-	return 0;
-      saved_code = ctx->encoded[to - ctx->encoded_offset];
-      ctx->encoded[to - ctx->encoded_offset] = '\0';
-      result = regexec (&(rule->src.re.preg),
-			ctx->encoded + from - ctx->encoded_offset,
-			NMATCH, pmatch, 0);
-      if (result == 0 && pmatch[0].rm_so == 0)
-	{
-	  MDEBUG_PRINT3 (" (REGEX \"%s\" \"%s\" %d",
-			 rule->src.re.pattern,
-			 ctx->encoded + from - ctx->encoded_offset,
-			 pmatch[0].rm_eo);
-	  ctx->encoded[to - ctx->encoded_offset] = saved_code;
-	  for (i = 0; i < NMATCH; i++)
-	    {
-	      if (pmatch[i].rm_so < 0)
-		match_indices[i * 2] = match_indices[i * 2 + 1] = -1;
-	      else
-		{
-		  match_indices[i * 2] = from + pmatch[i].rm_so;
-		  match_indices[i * 2 + 1] = from + pmatch[i].rm_eo;
-		}
-	    }
-	  ctx->match_indices = match_indices;
-	  to = match_indices[1];
-	}
-      else
-	{
-	  ctx->encoded[to - ctx->encoded_offset] = saved_code;
-	  return 0;
-	}
-    }
-  else if (rule->src_type == SRC_INDEX)
-    {
-      if (rule->src.match_idx >= NMATCH)
-	return 0;
-      from = ctx->match_indices[rule->src.match_idx * 2];
-      if (from < 0)
-	return 0;
-      to = ctx->match_indices[rule->src.match_idx * 2 + 1];
-      MDEBUG_PRINT1 (" (INDEX %d", rule->src.match_idx);
-    }
-
-  consumed = 0;
-  depth++;
-  for (i = 0; i < rule->n_cmds; i++)
-    {
-      int pos;
-
-      if (rule->cmd_ids[i] == CMD_ID_REPEAT)
-	{
-	  if (! consumed)
-	    continue;
-	  i--;
-	}
-      pos = run_command (depth, rule->cmd_ids[i], gstring, from, to, ctx);
-      if (pos < 0)
-	MERROR (MERROR_DRAW, -1);
-      consumed = pos > from;
-      if (consumed)
-	from = pos;
-    }
-
-  ctx->match_indices = saved_match_indices;
-  MDEBUG_PRINT (")");
-  return (rule->src_type == SRC_INDEX ? orig_from : to);
-}
-
-static int
-run_cond (int depth,
-	  FontLayoutCmdCond *cond, MGlyphString *gstring, int from, int to,
-	  FontLayoutContext *ctx)
-{
-  int i, pos = 0;
-
-  MDEBUG_PRINT2 ("\n [FLT] %*s(COND", depth, "");
-  depth++;
-  for (i = 0; i < cond->n_cmds; i++)
-    {
-      /* TODO: Write a code for optimization utilizaing the info
-	 cond->seq_XXX.  */
-      if ((pos = run_command (depth, cond->cmd_ids[i], gstring, from, to, ctx))
-	  != 0)
-	break;
-    }
-  if (pos < 0)
-    MERROR (MERROR_DRAW, -1);
-  MDEBUG_PRINT (")");
-  return (pos);
-}
-
-static int
-run_otf (int depth,
-	 FontLayoutCmdOTF *otf_cmd, MGlyphString *gstring, int from, int to,
-	 FontLayoutContext *ctx)
-{
-#ifdef HAVE_OTF
-  int gidx = gstring->used;
-
-  to = mfont__ft_drive_otf (gstring, from, to, ctx->rfont,
-			    otf_cmd->script, otf_cmd->langsys,
-			    otf_cmd->gsub_features, otf_cmd->gpos_features);
-  if (gidx < gstring->used)
-    MGLYPH (gidx)->left_padding = ctx->left_padding;
-#endif
-  return to;
-}
-
-static int
-run_command (int depth, int id, MGlyphString *gstring, int from, int to,
-	     FontLayoutContext *ctx)
-{
-  MGlyph g;
-
-  if (id >= 0)
-    {
-      int i;
-
-      /* Direct code (== id + ctx->code_offset) output.
-	 The source is not consumed.  */
-      if (from < to)
-	g = *(MGLYPH (from));
-      else
-	g = *(MGLYPH (from - 1));
-      g.type = GLYPH_CHAR;
-      g.code = ctx->code_offset + id;
-      MDEBUG_PRINT1 (" (DIRECT 0x%X", g.code);
-      if (ctx->combining_code)
-	g.combining_code = ctx->combining_code;
-      if (ctx->left_padding)
-	g.left_padding = ctx->left_padding;
-      for (i = from; i < to; i++)
-	{
-	  MGlyph *tmp = MGLYPH (i);
-
-	  if (g.pos > tmp->pos)
-	    g.pos = tmp->pos;
-	  else if (g.to < tmp->to)
-	    g.to = tmp->to;
-	}
-      APPEND_GLYPH (gstring, g);
-      ctx->code_offset = ctx->combining_code = ctx->left_padding = 0;
-      MDEBUG_PRINT (")");
-      return (from);
-    }
-
-  if (id <= CMD_ID_OFFSET_INDEX)
-    {
-      int idx = CMD_ID_TO_INDEX (id);
-      FontLayoutCmd *cmd;
-
-      if (idx >= ctx->stage->used)
-	MERROR (MERROR_DRAW, -1);
-      cmd = ctx->stage->cmds + idx;
-      if (cmd->type == FontLayoutCmdTypeRule)
-	to = run_rule (depth, &cmd->body.rule, gstring, from, to, ctx);
-      else if (cmd->type == FontLayoutCmdTypeCond)
-	to = run_cond (depth, &cmd->body.cond, gstring, from, to, ctx);
-      else if (cmd->type == FontLayoutCmdTypeOTF)
-	to = run_otf (depth, &cmd->body.otf, gstring, from, to, ctx);
-
-      if (to < 0)
-	return -1;
-      return to;
-    }
-
-  if (id <= CMD_ID_OFFSET_COMBINING)
-    {
-      ctx->combining_code = CMD_ID_TO_COMBINING_CODE (id);
-      return from;
-    }
-
-  switch (id)
-    {
-    case CMD_ID_COPY:
-      {
-	if (from >= to)
-	  return from;
-	g = *(MGLYPH (from));
-	if (ctx->combining_code)
-	  g.combining_code = ctx->combining_code;
-	if (ctx->left_padding)
-	  g.left_padding = ctx->left_padding;
-	APPEND_GLYPH (gstring, g);
-	ctx->code_offset = ctx->combining_code = ctx->left_padding = 0;
-	return (from + 1);
-      }
-
-    case CMD_ID_CLUSTER_BEGIN:
-      if (! ctx->cluster_begin_idx)
-	{
-	  MDEBUG_PRINT1 (" <%d", MGLYPH (from)->pos);
-	  ctx->cluster_begin_idx = gstring->used;
-	  ctx->cluster_begin_pos = MGLYPH (from)->pos;
-	  ctx->cluster_end_pos = MGLYPH (from)->to;
-	}
-      return from;
-
-    case CMD_ID_CLUSTER_END:
-      if (ctx->cluster_begin_idx && ctx->cluster_begin_idx < gstring->used)
-	{
-	  int i;
-
-	  MDEBUG_PRINT1 (" %d>", ctx->cluster_end_pos);
-	  for (i = ctx->cluster_begin_idx; i < gstring->used; i++)
-	    {
-	      MGLYPH (i)->pos = ctx->cluster_begin_pos;
-	      MGLYPH (i)->to = ctx->cluster_end_pos;
-	    }
-	  ctx->cluster_begin_idx = 0;
-	}
-      return from;
-
-    case CMD_ID_SEPARATOR:
-      {
-	if (from < to)
-	  g = *(MGLYPH (from));
-	else
-	  g = *(MGLYPH (from - 1));
-	g.type = GLYPH_PAD;
-	/* g.c = g.code = 0; */
-	g.width = 0;
-	APPEND_GLYPH (gstring, g);
-	return from;
-      }
-
-    case CMD_ID_LEFT_PADDING:
-      ctx->left_padding = 1;
-      return from;
-
-    case CMD_ID_RIGHT_PADDING:
-      if (gstring->used > 0)
-	gstring->glyphs[gstring->used - 1].right_padding = 1;
-      return from;
-    }
-
-  MERROR (MERROR_DRAW, -1);
-}
-
-
-/* Internal API */
-
-int
-mfont__flt_init (void)
-{
-  Mcond = msymbol ("cond");
-  Mrange = msymbol ("range");
-  Mlayouter = msymbol ("layouter");
-  flt_list = mplist ();
-  return 0;
-}
-
-void
-mfont__flt_fini (void)
-{
-  MPlist *plist, *pl;
-
-  MPLIST_DO (plist, flt_list)
-    {
-      pl = MPLIST_PLIST (plist);
-      if (pl)
-	{
-	  MPLIST_DO (pl, MPLIST_NEXT (pl))
-	    free_flt_stage (MPLIST_VAL (pl));
-	  pl = MPLIST_PLIST (plist);
-	  M17N_OBJECT_UNREF (pl);
-	}
-    }
-  M17N_OBJECT_UNREF (flt_list);
-}
-
-unsigned
-mfont__flt_encode_char (MSymbol layouter_name, int c)
-{
-  MFontLayoutTable *layouter = get_font_layout_table (layouter_name);
-  MCharTable *table;
-  unsigned code;
-
-  if (! layouter)
-    return MCHAR_INVALID_CODE;
-  table = MPLIST_VAL (layouter);
-  code = (unsigned) mchartable_lookup (table, c);
-  return (code ? code : MCHAR_INVALID_CODE);
-}
-
-int
-mfont__flt_run (MGlyphString *gstring, int from, int to, MRealizedFace *rface)
-{
-  int stage_idx = 0;
-  int gidx;
-  int i;
-  FontLayoutContext ctx;
-  MCharTable *table;
-  int encoded_len;
-  int match_indices[NMATCH];
-  MSymbol layouter_name = rface->rfont->layouter;
-  MFontLayoutTable *layouter = get_font_layout_table (layouter_name);
-  MRealizedFace *ascii_rface = rface->ascii_rface;
-  FontLayoutStage *stage;
-  int from_pos, to_pos;
-  MGlyph dummy;
-
-  if (! layouter)
-    {
-      /* FLT not found.  Make all glyphs invisible.  */
-      while (from < to)
-	gstring->glyphs[from++].code = MCHAR_INVALID_CODE;
-      return to;
-    }
-
-  dummy = gstring->glyphs[from];
-  MDEBUG_PRINT1 (" [FLT] (%s", msymbol_name (layouter_name));
-
-  /* Setup CTX.  */
-  memset (&ctx, 0, sizeof ctx);
-  ctx.rfont = rface->rfont;
-  table = MPLIST_VAL (layouter);
-  layouter = MPLIST_NEXT (layouter);
-  stage = (FontLayoutStage *) MPLIST_VAL (layouter);
-  gidx = from;
-  /* Find previous glyphs that are also supported by the layouter.  */
-  while (gidx > 1
-	 && mchartable_lookup (table, MGLYPH (gidx - 1)->c))
-    gidx--;
-  /* + 2 is for a separator ' ' and a terminator '\0'.  */
-  encoded_len = gstring->used - gidx + 2;
-  ctx.encoded = (char *) alloca (encoded_len);
-
-  for (i = 0; gidx < from; i++, gidx++)
-    ctx.encoded[i] = (int) mchartable_lookup (table, MGLYPH (gidx)->c);
-
-  ctx.encoded[i++] = ' ';
-  ctx.encoded_offset = from - i;
-
-  /* Now each MGlyph->code contains encoded char.  Set it in
-     ctx.encoded[], and set MGlyph->c to MGlyph->code.  */
-  for (gidx = from; gidx < to ; i++, gidx++)
-    {
-      ctx.encoded[i] = (int) MGLYPH (gidx)->code;
-      MGLYPH (gidx)->code = (unsigned) MGLYPH (gidx)->c;
-    }
-  ctx.encoded[i++] = '\0';
-
-  match_indices[0] = from;
-  match_indices[1] = to;
-  for (i = 2; i < NMATCH; i++)
-    match_indices[i] = -1;
-  ctx.match_indices = match_indices;
-
-  from_pos = MGLYPH (from)->pos;
-  to_pos = MGLYPH (to)->pos;
-
-  for (stage_idx = 0; 1; stage_idx++)
-    {
-      int len = to - from;
-      int result;
-
-      MDEBUG_PRINT1 ("\n [FLT]   (STAGE %d", stage_idx);
-      gidx = gstring->used;
-      ctx.stage = stage;
-
-      result = run_command (2, INDEX_TO_CMD_ID (0), gstring,
-			    ctx.encoded_offset, to, &ctx);
-      MDEBUG_PRINT (")");
-      if (result < 0)
-	return -1;
-      to = from + (gstring->used - gidx);
-      REPLACE_GLYPHS (gstring, gidx, from, len);
-
-      layouter = MPLIST_NEXT (layouter);
-      /* If this is the last stage, break the loop. */
-      if (MPLIST_TAIL_P (layouter))
-	break;
-
-      /* Otherwise, prepare for the next iteration.   */
-      stage = (FontLayoutStage *) MPLIST_VAL (layouter);
-      table = stage->category;
-      if (to - from >= encoded_len)
-	{
-	  encoded_len = to + 1;
-	  ctx.encoded = (char *) alloca (encoded_len);
-	}
-
-      for (i = from; i < to; i++)
-	{
-	  MGlyph *g = MGLYPH (i);
-
-	  if (g->type == GLYPH_PAD)
-	    ctx.encoded[i - from] = ' ';
-	  else if (! g->otf_encoded)
-	    ctx.encoded[i - from] = (int) mchartable_lookup (table, g->code);
-#ifdef HAVE_FREETYPE
-	  else
-	    {
-	      int c = mfont__ft_decode_otf (g);
-
-	      if (c >= 0)
-		{
-		  c = (int) mchartable_lookup (table, c);
-		  if (! c)
-		    c = -1;
-		}
-	      ctx.encoded[i - from] = (c >= 0 ? c : 1);
-	    }
-#endif	/* HAVE_FREETYPE */
-	}
-      ctx.encoded[i - from] = '\0';
-      ctx.encoded_offset = from;
-      ctx.match_indices[0] = from;
-      ctx.match_indices[1] = to;
-    }
-
-  MDEBUG_PRINT (")\n");
-
-  if (from == to)
-    {
-      /* Somehow there's no glyph contributing to characters between
-	 FROM_POS and TO_POS.  We must add one dummy space glyph for
-	 those characters.  */
-      MGlyph g;
-
-      g.type = GLYPH_SPACE;
-      g.c = ' ', g.code = ' ';
-      g.pos = from_pos, g.to = to_pos;
-      g.rface = ascii_rface;
-      INSERT_GLYPH (gstring, from, g);
-      to = from + 1;
-    }
-  else
-    {
-      /* Get actual glyph IDs of glyphs.  Also check if all characters
-	 in the range is covered by some glyph(s).  If not, change
-	  and  of glyphs to cover uncovered characters.  */
-      int len = to_pos - from_pos;
-      int pos;
-      MGlyph **glyphs = alloca (sizeof (MGlyph) * len);
-      MGlyph *g, *gend = MGLYPH (to);
-      MGlyph *latest = gend;
-
-      for (g = MGLYPH (from); g != gend; g++)
-	if (g->type == GLYPH_CHAR && ! g->otf_encoded)
-	  g->code
-	    = (rface->rfont->driver->encode_char) (rface->rfont, g->code);
-      for (i = 0; i < len; i++)
-	glyphs[i] = NULL;
-      for (g = MGLYPH (from); g != gend; g++)
-	{
-	  if (g->pos < latest->pos)
-	    latest = g;
-	  if (! glyphs[g->pos - from_pos])
-	    {
-	      for (i = g->pos; i < g->to; i++)
-		glyphs[i - from_pos] = g;
-	    }
-	}
-      i = 0;
-      if (! glyphs[0])
-	{
-	  pos = latest->pos;
-	  for (g = latest; g->pos == pos; g++)
-	    g->pos = from_pos;
-	  i++;
-	}
-      for (; i < len; i++)
-	{
-	  if (! glyphs[i])
-	    {
-	      for (g = latest; g->pos == latest->pos; g++)
-		g->to = from_pos + i + 1;
-	    }
-	  else
-	    latest = glyphs[i];
-	}
-    }
-  return to;
-}
-
-
-/* for debugging... */
-
-static void
-dump_flt_cmd (FontLayoutStage *stage, int id, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  if (id >= 0)
-    fprintf (stderr, "0x%02X", id);
-  else if (id <= CMD_ID_OFFSET_INDEX)
-    {
-      int idx = CMD_ID_TO_INDEX (id);
-      FontLayoutCmd *cmd = stage->cmds + idx;
-
-      if (cmd->type == FontLayoutCmdTypeRule)
-	{
-	  FontLayoutCmdRule *rule = &cmd->body.rule;
-	  int i;
-
-	  fprintf (stderr, "(rule ");
-	  if (rule->src_type == SRC_REGEX)
-	    fprintf (stderr, "\"%s\"", rule->src.re.pattern);
-	  else if (rule->src_type == SRC_INDEX)
-	    fprintf (stderr, "%d", rule->src.match_idx);
-	  else if (rule->src_type == SRC_SEQ)
-	    fprintf (stderr, "(seq)");
-	  else if (rule->src_type == SRC_RANGE)
-	    fprintf (stderr, "(range)");
-	  else
-	    fprintf (stderr, "(invalid src)");
-
-	  for (i = 0; i < rule->n_cmds; i++)
-	    {
-	      fprintf (stderr, "\n%s  ", prefix);
-	      dump_flt_cmd (stage, rule->cmd_ids[i], indent + 2);
-	    }
-	  fprintf (stderr, ")");
-	}
-      else if (cmd->type == FontLayoutCmdTypeCond)
-	{
-	  FontLayoutCmdCond *cond = &cmd->body.cond;
-	  int i;
-
-	  fprintf (stderr, "(cond");
-	  for (i = 0; i < cond->n_cmds; i++)
-	    {
-	      fprintf (stderr, "\n%s  ", prefix);
-	      dump_flt_cmd (stage, cond->cmd_ids[i], indent + 2);
-	    }
-	  fprintf (stderr, ")");
-	}
-      else if (cmd->type == FontLayoutCmdTypeOTF)
-	{
-	  fprintf (stderr, "(otf)");
-	}
-      else
-	fprintf (stderr, "(error-command)");
-    }
-  else if (id <= CMD_ID_OFFSET_COMBINING)
-    fprintf (stderr, "cominging-code");
-  else
-    fprintf (stderr, "(predefiend %d)", id);
-}
-
-void
-dump_flt (MFontLayoutTable *flt, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MPlist *plist;
-  int stage_idx = 0;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-  fprintf (stderr, "(flt");
-  MPLIST_DO (plist, flt)
-    {
-      FontLayoutStage *stage = (FontLayoutStage *) MPLIST_VAL (plist);
-      int i;
-
-      fprintf (stderr, "\n%s  (stage %d", prefix, stage_idx);
-      for (i = 0; i < stage->used; i++)
-	{
-	  fprintf (stderr, "\n%s    ", prefix);
-	  dump_flt_cmd (stage, INDEX_TO_CMD_ID (i), indent + 4);
-	}
-      fprintf (stderr, ")");
-      stage_idx++;
-    }
-  fprintf (stderr, ")");
-}
diff --git a/src/font-ft.c b/src/font-ft.c
deleted file mode 100644
index 0f6a451..0000000
--- a/src/font-ft.c
+++ /dev/null
@@ -1,1057 +0,0 @@
-/* font-ft.c -- FreeType interface sub-module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include "config.h"
-
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "plist.h"
-#include "symbol.h"
-#include "internal-gui.h"
-#include "font.h"
-#include "face.h"
-
-#ifdef HAVE_FREETYPE
-
-#include 
-
-#ifdef HAVE_FONTCONFIG
-#include 
-
-int fontconfig_initialized = 0;
-FcConfig *fc_config;
-#endif	/* not HAVE_FONTCONFIG */
-
-static MSymbol Municode_bmp, Municode_full, Miso10646_1, Miso8859_1;
-
-static FT_Library ft_library;
-
-typedef struct
-{
-  MSymbol ft_style;
-  MSymbol weight, style, stretch;
-} MFTtoProp;
-
-static int ft_to_prop_size;
-static MFTtoProp *ft_to_prop;
-
-/** List of FreeType fonts.  Keys are family names, values are plists
-    contains fonts of the corresponding family.  In the deeper plist,
-    keys are Mt, values are (MFTInfo *).  */
-static MPlist *ft_font_list;
-
-static int all_fonts_scaned;
-
-/** Return 0 if NAME implies TrueType or OpenType fonts.  Othersize
-    return -1.  */
-
-static int
-check_otf_filename (const char *name)
-{
-  int len = strlen (name);
-  const char *ext = name + (len - 4);
-
-  if (len < 5
-      || (memcmp (ext, ".ttf", 4)
-	  && memcmp (ext, ".TTF", 4)
-	  && memcmp (ext, ".otf", 4)
-	  && memcmp (ext, ".OTF", 4)))
-    return -1;
-  return 0;
-}
-
-/** Setup members of FT_INFO from FT_FACE.  Return the family name.  */
-
-static MSymbol
-set_font_info (FT_Face ft_face, MFTInfo *ft_info, MSymbol family)
-{
-  MFont *font = &ft_info->font;
-  MSymbol style;
-  int len;
-  char *buf, *p;
-  MPlist *charmap_list;
-  int unicode_bmp = -1, unicode_full = -1, unicode = -1;
-  int i;
-
-  MFONT_INIT (font);
-
-  if (family == Mnil)
-    {
-      len = strlen (ft_face->family_name) + 1;
-      buf = (char *) alloca (len);
-      memcpy (buf, ft_face->family_name, len);
-      for (p = buf; *p; p++)
-	if (*p >= 'A' && *p <= 'Z')
-	  *p += 'a' - 'A';
-      family = msymbol (buf);
-    }
-  mfont__set_property (font, MFONT_FAMILY, family);
-
-  if (ft_face->style_name)
-    {
-      len = strlen (ft_face->style_name) + 1;
-      buf = (char *) alloca (len);
-      memcpy (buf, ft_face->style_name, len);
-      for (p = buf; *p; p++)
-	if (*p >= 'A' && *p <= 'Z')
-	  *p += 'a' - 'A';
-      style = msymbol (buf);
-      for (i = 0; i < ft_to_prop_size; i++)
-	if (ft_to_prop[i].ft_style == style)
-	  {
-	    mfont__set_property (font, MFONT_WEIGHT, ft_to_prop[i].weight);
-	    mfont__set_property (font, MFONT_STYLE, ft_to_prop[i].style);
-	    mfont__set_property (font, MFONT_STRETCH, ft_to_prop[i].stretch);
-	    break;
-	  }
-    }
-  else
-    i = ft_to_prop_size;
-
-  if (i == ft_to_prop_size)
-    {
-      mfont__set_property (font, MFONT_WEIGHT, msymbol ("medium"));
-      mfont__set_property (font, MFONT_STYLE, msymbol ("r"));
-      mfont__set_property (font, MFONT_STRETCH, msymbol ("normal"));
-    }
-
-  mfont__set_property (font, MFONT_ADSTYLE, msymbol (""));
-
-  charmap_list = mplist ();
-  mplist_add (charmap_list, Mt, (void *) -1);
-  for (i = 0; i < ft_face->num_charmaps; i++)
-    {
-      char registry_buf[16];
-      MSymbol registry;
-
-      sprintf (registry_buf, "%d-%d",
-	       ft_face->charmaps[i]->platform_id,
-	       ft_face->charmaps[i]->encoding_id);
-      registry = msymbol (registry_buf);
-      mplist_add (charmap_list, registry, (void *) i);
-      
-      if (ft_face->charmaps[i]->platform_id == 0)
-	{
-	  if (ft_face->charmaps[i]->encoding_id == 3)
-	    unicode_bmp = i;
-	  else if (ft_face->charmaps[i]->encoding_id == 4)
-	    unicode_full = i;
-	}
-      else if (ft_face->charmaps[i]->platform_id == 3)
-	{
-	  if (ft_face->charmaps[i]->encoding_id == 1)
-	    unicode_bmp = i;
-	  else if (ft_face->charmaps[i]->encoding_id == 10)
-	    unicode_full = i;
-	}
-      else if (ft_face->charmaps[i]->platform_id == 1
-	       && ft_face->charmaps[i]->encoding_id == 0)
-	mplist_add (charmap_list, msymbol ("apple-roman"), (void *) i);
-    }
-  if (unicode_full >= 0)
-    {
-      mplist_add (charmap_list, Municode_full, (void *) unicode_full);
-      mplist_add (charmap_list, Municode_bmp, (void *) unicode_full);
-      mplist_add (charmap_list, Miso10646_1, (void *) unicode_full);
-      unicode = unicode_full;
-    }
-  else if (unicode_bmp >= 0)
-    {
-      mplist_add (charmap_list, Municode_bmp, (void *) unicode_bmp);
-      mplist_add (charmap_list, Miso10646_1, (void *) unicode_bmp);
-      unicode = unicode_bmp;
-    }
-  if (unicode >= 0)
-    {
-      FT_Set_Charmap (ft_face, ft_face->charmaps[unicode]);
-      for (i = 255; i >= 32; i--)
-	{
-	  if (i == 160)
-	    i = 126;
-	  if (FT_Get_Char_Index (ft_face, (FT_ULong) i) == 0)
-	    break;
-	}
-      if (i == 31)
-	mplist_add (charmap_list, Miso8859_1, (void *) unicode);
-    }
-
-  ft_info->charmap_list = charmap_list;
-
-  if (! FT_IS_SCALABLE (ft_face))
-    {
-      BDF_PropertyRec prop;
-      
-      FT_Get_BDF_Property (ft_face, "PIXEL_SIZE", &prop);
-      font->property[MFONT_SIZE] = prop.u.integer * 10;
-      FT_Get_BDF_Property (ft_face, "RESOLUTION_Y", &prop);
-      font->property[MFONT_RESY] = prop.u.integer;
-    }
-
-  return family;
-}
-
-
-static void
-close_ft (void *object)
-{
-  MFTInfo *ft_info = object;
-
-  if (ft_info->ft_face)
-    {
-      if (ft_info->extra_info)
-	M17N_OBJECT_UNREF (ft_info->extra_info);
-      FT_Done_Face (ft_info->ft_face);
-#ifdef HAVE_OTF
-      if (ft_info->otf)
-	OTF_close (ft_info->otf);
-#endif /* HAVE_OTF */
-    }
-  free (ft_info->filename);
-  M17N_OBJECT_UNREF (ft_info->charmap_list);
-  free (ft_info);
-}
-
-static void
-add_font_info (char *filename, MSymbol family)
-{
-  FT_Face ft_face;
-  BDF_PropertyRec prop;
-  MFTInfo *ft_info = NULL;
-
-  if (FT_New_Face (ft_library, filename, 0, &ft_face) == 0)
-    {
-      if (FT_IS_SCALABLE (ft_face)
-	  || FT_Get_BDF_Property (ft_face, "PIXEL_SIZE", &prop) == 0)
-	{
-	  MSymbol fam;
-	  MPlist *plist;
-
-	  M17N_OBJECT (ft_info, close_ft, MERROR_FONT_FT);
-	  ft_info->filename = strdup (filename);
-	  ft_info->otf_flag = check_otf_filename (filename);
-	  fam = set_font_info (ft_face, ft_info, family);
-	  plist = mplist_get (ft_font_list, fam);
-	  if (! plist)
-	    {
-	      plist = mplist ();
-	      mplist_add (ft_font_list, fam, plist);
-	    }
-	  mplist_add (plist, fam, ft_info);
-	}
-      FT_Done_Face (ft_face);
-    }
-}
-
-#ifdef HAVE_FONTCONFIG
-
-static void
-fc_list (MSymbol family)
-{
-  FcPattern *pattern;
-  FcObjectSet *os;
-  FcFontSet *fs;
-  int i;
-
-  if (! fc_config)
-    {
-      char *pathname;
-      struct stat buf;
-      MPlist *plist;
-
-      FcInit ();
-      fc_config = FcConfigGetCurrent ();
-      MPLIST_DO (plist, mfont_freetype_path)
-	if (MPLIST_STRING_P (plist)
-	    && (pathname = MPLIST_STRING (plist))
-	    && stat (pathname, &buf) == 0)
-	  FcConfigAppFontAddDir (fc_config, (FcChar8 *) pathname);
-    }
-
-  pattern = FcPatternCreate ();
-  if (family)
-    FcPatternAddString (pattern, FC_FAMILY,
-			(FcChar8 *) (msymbol_name (family)));
-  os = FcObjectSetBuild (FC_FILE, FC_FOUNDRY, FC_FAMILY, FC_STYLE, FC_PIXEL_SIZE, NULL);
-  fs = FcFontList (fc_config, pattern, os);
-  if (fs)
-    {
-      char *filename;
-
-      if (fs->nfont > 0)
-	for (i = 0; i < fs->nfont; i++)
-	  {
-	    FcPatternGetString (fs->fonts[i], FC_FILE, 0, 
-				(FcChar8 **) &filename);
-	    add_font_info (filename, family);
-	  }
-      else
-	{
-	  FcPattern *match;
-	  FcResult result;
-
-	  FcConfigSubstitute (fc_config, pattern, FcMatchPattern);
-	  FcDefaultSubstitute (pattern);
-	  match = FcFontMatch (fc_config, pattern, &result);
-	  if (FcPatternGetString (match, FC_FILE, 0, (FcChar8 **) &filename)
-	      == FcResultMatch)
-	    add_font_info (filename, family);
-	  FcPatternDestroy (match);
-	}
-      FcFontSetDestroy (fs);
-    }
-  FcObjectSetDestroy (os);
-  FcPatternDestroy (pattern);
-}
-
-#else  /* not HAVE_FONTCONFIG */
-
-static void
-ft_list ()
-{
-  MPlist *plist;
-  struct stat buf;
-  char *pathname;
-
-  MPLIST_DO (plist, mfont_freetype_path)
-    if (MPLIST_STRING_P (plist)
-	&& (pathname = MPLIST_STRING (plist))
-	&& stat (pathname, &buf) == 0)
-      {
-	if (S_ISREG (buf.st_mode))
-	  add_font_info (pathname, Mnil);
-	else if (S_ISDIR (buf.st_mode))
-	  {
-	    int len = strlen (pathname);
-	    char path[PATH_MAX];
-	    DIR *dir = opendir (pathname);
-	    struct dirent *dp;
-
-	    if (dir)
-	      {
-		strcpy (path, pathname);
-		strcpy (path + len, "/");
-		len++;
-		while ((dp = readdir (dir)) != NULL)
-		  {
-		    strcpy (path + len, dp->d_name);
-		    add_font_info (path, Mnil);
-		  }
-		closedir (dir);
-	      }
-	  }
-      }
-}
-
-#endif	/* not HAVE_FONTCONFIG */
-
-/* The FreeType font driver function SELECT.  */
-
-static MRealizedFont *
-ft_select (MFrame *frame, MFont *spec, MFont *request, int limited_size)
-{
-  MPlist *plist, *pl;
-  MFTInfo *best_font;
-  int best_score;
-  MRealizedFont *rfont;
-  MSymbol family, registry;
-
-  best_font = NULL;
-  best_score = 0;
-  family = FONT_PROPERTY (spec, MFONT_FAMILY);
-  if (family == Mnil)
-    family = FONT_PROPERTY (request, MFONT_FAMILY);
-  registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
-  if (registry == Mnil)
-    registry = Mt;
-
-  if (! ft_font_list)
-    ft_font_list = mplist ();
-#ifdef HAVE_FONTCONFIG
-  if (family != Mnil)
-    {
-      plist = mplist_get (ft_font_list, family);
-      if (! plist)
-	{
-	  fc_list (family);
-	  plist = mplist_get (ft_font_list, family);
-	  if (! plist)
-	    {
-	      mplist_add (ft_font_list, family, plist = mplist ());
-	      return NULL;
-	    }
-	}
-    }
-  else
-    {
-      if (! all_fonts_scaned)
-	{
-	  fc_list (Mnil);
-	  all_fonts_scaned = 1;
-	}
-    }
-#else  /* not HAVE_FONTCONFIG */
-  if (! all_fonts_scaned)
-    {
-      ft_list ();
-      all_fonts_scaned = 1;
-    }
-  if (family != Mnil)
-    {
-      plist = mplist_get (ft_font_list, family);
-      if (! plist)
-	return NULL;
-    }
-#endif	/* not HAVE_FONTCONFIG */
-
-  if (family == Mnil)
-    plist = MPLIST_VAL (ft_font_list);
-
- retry:
-  MPLIST_DO (pl, plist)
-    {
-      MFTInfo *ft_info = MPLIST_VAL (pl);
-      int score;
-
-      if (! mplist_find_by_key (ft_info->charmap_list, registry))
-	continue;
-      /* We always ignore FOUNDRY.  */
-      ft_info->font.property[MFONT_FOUNDRY] = spec->property[MFONT_FOUNDRY];
-      score = mfont__score (&ft_info->font, spec, request, limited_size);
-      if (score >= 0
-	  && (! best_font
-	      || best_score > score))
-	{
-	  best_font = ft_info;
-	  best_score = score;
-	  if (score == 0)
-	    break;
-	}
-    }
-  if (family == Mnil)
-    {
-      plist = MPLIST_NEXT (plist);
-      if (! MPLIST_TAIL_P (plist))
-	goto retry;
-    }
-  if (! best_font)
-    return NULL;
-
-  MSTRUCT_CALLOC (rfont, MERROR_FONT_FT);
-  rfont->frame = frame;
-  rfont->spec = *spec;
-  rfont->request = *request;
-  rfont->font = best_font->font;
-  rfont->font.property[MFONT_SIZE] = request->property[MFONT_SIZE];
-  rfont->font.property[MFONT_REGISTRY] = spec->property[MFONT_REGISTRY];
-  rfont->score = best_score;
-  rfont->info = best_font;
-  M17N_OBJECT_REF (best_font);
-  return rfont;
-}
-
-
-/* The FreeType font driver function OPEN.  */
-
-static int
-ft_open (MRealizedFont *rfont)
-{
-  MFTInfo *base = rfont->info, *ft_info;
-  MSymbol registry = FONT_PROPERTY (&rfont->font, MFONT_REGISTRY);
-  int mdebug_mask = MDEBUG_FONT;
-  int size;
-
-  M17N_OBJECT (ft_info, close_ft, MERROR_FONT_FT);
-  ft_info->font = base->font;
-  ft_info->filename = strdup (base->filename);
-  ft_info->otf_flag = base->otf_flag;
-  ft_info->charmap_list = base->charmap_list;
-  M17N_OBJECT_REF (ft_info->charmap_list);
-  M17N_OBJECT_UNREF (base);
-  rfont->info = ft_info;
-
-  rfont->status = -1;
-  ft_info->ft_face = NULL;
-  if (FT_New_Face (ft_library, ft_info->filename, 0, &ft_info->ft_face))
-    goto err;
-  if (registry == Mnil)
-    registry = Mt;
-  ft_info->charmap_index
-    = (int) mplist_get (((MFTInfo *) rfont->info)->charmap_list, registry);
-  if (ft_info->charmap_index >= 0
-      && FT_Set_Charmap (ft_info->ft_face, 
-			 ft_info->ft_face->charmaps[ft_info->charmap_index]))
-    goto err;
-  size = rfont->font.property[MFONT_SIZE] / 10;
-  if (FT_Set_Pixel_Sizes (ft_info->ft_face, 0, size))
-    goto err;
-
-  MDEBUG_PRINT1 (" [FT-FONT] o %s\n", ft_info->filename);
-  rfont->status = 1;
-  rfont->ascent = ft_info->ft_face->ascender >> 6;
-  rfont->descent = - (ft_info->ft_face->descender >> 6);
-  return 0;
-
- err:
-  MDEBUG_PRINT1 (" [FT-FONT] x %s\n", ft_info->filename);
-  if (ft_info->ft_face)
-    FT_Done_Face (ft_info->ft_face);
-  M17N_OBJECT_UNREF (ft_info->charmap_list);
-  free (ft_info->filename);
-  free (ft_info);
-  rfont->info = NULL;
-  return -1;
-}
-
-/* The FreeType font driver function FIND_METRIC.  */
-
-static void
-ft_find_metric (MRealizedFont *rfont, MGlyphString *gstring,
-		int from, int to)
-{
-  MFTInfo *ft_info = (MFTInfo *) rfont->info;
-  FT_Face ft_face = ft_info->ft_face;
-  MGlyph *g = MGLYPH (from), *gend = MGLYPH (to);
-  FT_Int32 load_flags = FT_LOAD_RENDER;
-
-#ifdef FT_LOAD_TARGET_MONO
-  load_flags |= FT_LOAD_TARGET_MONO;
-#else
-  load_flags |= FT_LOAD_MONOCHROME;
-#endif
-
-  for (; g != gend; g++)
-    {
-      if (g->code == MCHAR_INVALID_CODE)
-	{
-	  if (FT_IS_SCALABLE (ft_face))
-	    {
-	      unsigned unitsPerEm = ft_face->units_per_EM;
-	      int size = rfont->font.property[MFONT_SIZE] / 10;
-
-	      g->lbearing = 0;
-	      g->rbearing = ft_face->max_advance_width * size / unitsPerEm;
-	      g->width = ft_face->max_advance_width * size / unitsPerEm;
-	      g->ascent = ft_face->ascender * size / unitsPerEm;
-	      g->descent = (- ft_face->descender) * size / unitsPerEm;
-	    }
-	  else
-	    {
-	      BDF_PropertyRec prop;
-
-	      g->lbearing = 0;
-	      g->rbearing = g->width = ft_face->available_sizes->width;
-	      if (FT_Get_BDF_Property (ft_face, "ASCENT", &prop) == 0)
-		{
-		  g->ascent = prop.u.integer;
-		  FT_Get_BDF_Property (ft_face, "DESCENT", &prop);
-		  g->descent = prop.u.integer;
-		}
-	      else
-		{
-		  g->ascent = ft_face->available_sizes->height;
-		  g->descent = 0;
-		}
-	    }
-	}
-      else
-	{
-	  FT_Glyph_Metrics *metrics;
-
-	  FT_Load_Glyph (ft_face, (FT_UInt) g->code, FT_LOAD_RENDER);
-	  metrics = &ft_face->glyph->metrics;
-	  g->lbearing = (metrics->horiBearingX >> 6);
-	  g->rbearing = (metrics->horiBearingX + metrics->width) >> 6;
-	  g->width = metrics->horiAdvance >> 6;
-	  g->ascent = metrics->horiBearingY >> 6;
-	  g->descent = (metrics->height - metrics->horiBearingY) >> 6;
-	}
-    }
-}
-
-/* The FreeType font driver function ENCODE_CHAR.  */
-
-static unsigned
-ft_encode_char (MRealizedFont *rfont, unsigned code)
-{
-  MFTInfo *ft_info;
-
-  if (rfont->status == 0)
-    {
-      if ((rfont->driver->open) (rfont) < 0)
-	return -1;
-    }
-  ft_info = (MFTInfo *) rfont->info;
-  code = (unsigned) FT_Get_Char_Index (ft_info->ft_face, (FT_ULong) code);
-  if (! code)
-    return MCHAR_INVALID_CODE;
-  return (code);
-
-}
-
-/* The FreeType font driver function RENDER.  */
-
-#define NUM_POINTS 0x1000
-
-typedef struct {
-  MDrawPoint points[NUM_POINTS];
-  MDrawPoint *p;
-} MPointTable;
-
-static void
-ft_render (MDrawWindow win, int x, int y,
-	   MGlyphString *gstring, MGlyph *from, MGlyph *to,
-	   int reverse, MDrawRegion region)
-{
-  MFTInfo *ft_info;
-  FT_Face ft_face;
-  MRealizedFace *rface = from->rface;
-  MFrame *frame = rface->frame;
-  FT_Int32 load_flags = FT_LOAD_RENDER;
-  MGlyph *g;
-  int i, j;
-  MPointTable point_table[8];
-
-  if (from == to)
-    return;
-
-  /* It is assured that the all glyphs in the current range use the
-     same realized face.  */
-  ft_info = (MFTInfo *) rface->rfont->info;
-  ft_face = ft_info->ft_face;
-
-  if (! gstring->anti_alias)
-    {
-#ifdef FT_LOAD_TARGET_MONO
-      load_flags |= FT_LOAD_TARGET_MONO;
-#else
-      load_flags |= FT_LOAD_MONOCHROME;
-#endif
-    }
-
-  for (i = 0; i < 8; i++)
-    point_table[i].p = point_table[i].points;
-
-  for (g = from; g < to; x += g++->width)
-    {
-      unsigned char *bmp;
-      int intensity;
-      MPointTable *ptable;
-      int xoff, yoff;
-      int width, pitch;
-
-      FT_Load_Glyph (ft_face, (FT_UInt) g->code, load_flags);
-      yoff = y - ft_face->glyph->bitmap_top + g->yoff;
-      bmp = ft_face->glyph->bitmap.buffer;
-      width = ft_face->glyph->bitmap.width;
-      pitch = ft_face->glyph->bitmap.pitch;
-      if (! gstring->anti_alias)
-	pitch *= 8;
-      if (width > pitch)
-	width = pitch;
-
-      if (gstring->anti_alias)
-	for (i = 0; i < ft_face->glyph->bitmap.rows;
-	     i++, bmp += ft_face->glyph->bitmap.pitch, yoff++)
-	  {
-	    xoff = x + ft_face->glyph->bitmap_left + g->xoff;
-	    for (j = 0; j < width; j++, xoff++)
-	      {
-		intensity = bmp[j] >> 5;
-		if (intensity)
-		  {
-		    ptable = point_table + intensity;
-		    ptable->p->x = xoff;
-		    ptable->p->y = yoff;
-		    ptable->p++;
-		    if (ptable->p - ptable->points == NUM_POINTS)
-		      {
-			(*frame->driver->draw_points)
-			  (frame, win, rface,
-			   reverse ? 7 - intensity : intensity,
-			   ptable->points, NUM_POINTS, region);
-			ptable->p = ptable->points;
-		      }
-		  }
-	      }
-	  }
-      else
-	for (i = 0; i < ft_face->glyph->bitmap.rows;
-	     i++, bmp += ft_face->glyph->bitmap.pitch, yoff++)
-	  {
-	    xoff = x + ft_face->glyph->bitmap_left + g->xoff;
-	    for (j = 0; j < width; j++, xoff++)
-	      {
-		intensity = bmp[j / 8] & (1 << (7 - (j % 8)));
-		if (intensity)
-		  {
-		    ptable = point_table;
-		    ptable->p->x = xoff;
-		    ptable->p->y = yoff;
-		    ptable->p++;
-		    if (ptable->p - ptable->points == NUM_POINTS)
-		      {
-			(*frame->driver->draw_points) (frame, win, rface,
-					   reverse ? 0 : 7,
-					   ptable->points, NUM_POINTS, region);
-			ptable->p = ptable->points;
-		      }		    
-		  }
-	      }
-	}
-    }
-
-  if (gstring->anti_alias)
-    {
-      for (i = 1; i < 8; i++)
-	if (point_table[i].p != point_table[i].points)
-	  (*frame->driver->draw_points) (frame, win, rface, reverse ? 7 - i : i,
-			     point_table[i].points,
-			     point_table[i].p - point_table[i].points, region);
-    }
-  else
-    {
-      if (point_table[0].p != point_table[0].points)
-	(*frame->driver->draw_points) (frame, win, rface, reverse ? 0 : 7,
-			   point_table[0].points,
-			   point_table[0].p - point_table[0].points, region);
-    }
-}
-
-
-/* Internal API */
-
-MFontDriver mfont__ft_driver =
-  { ft_select, ft_open, ft_find_metric, ft_encode_char, ft_render };
-
-int
-mfont__ft_init ()
-{
-  struct {
-    char *ft_style;
-    char *weight, *style, *stretch;
-  } ft_to_prop_name[] =
-    { { "regular", "medium", "r", "normal" },
-      { "italic", "medium", "i", "normal" },
-      { "bold", "bold", "r", "normal" },
-      { "bold italic", "bold", "i", "normal" },
-      { "narrow", "medium", "r", "condensed" },
-      { "narrow italic", "medium", "i", "condensed" },
-      { "narrow bold", "bold", "r", "condensed" },
-      { "narrow bold italic", "bold", "i", "condensed" },
-      { "black", "black", "r", "normal" },
-      { "black italic", "black", "i", "normal" },
-      { "oblique", "medium", "o", "normal" },
-      { "boldoblique", "bold", "o", "normal" } };
-  int i;
-
-  if (FT_Init_FreeType (&ft_library) != 0)
-    MERROR (MERROR_FONT_FT, -1);
-
-  ft_to_prop_size = sizeof (ft_to_prop_name) / sizeof (ft_to_prop_name[0]);
-  MTABLE_MALLOC (ft_to_prop, ft_to_prop_size, MERROR_FONT_FT);
-  for (i = 0; i < ft_to_prop_size; i++)
-    {
-      ft_to_prop[i].ft_style = msymbol (ft_to_prop_name[i].ft_style);
-      ft_to_prop[i].weight = msymbol (ft_to_prop_name[i].weight);
-      ft_to_prop[i].style = msymbol (ft_to_prop_name[i].style);
-      ft_to_prop[i].stretch = msymbol (ft_to_prop_name[i].stretch);
-    }
-
-  Municode_bmp = msymbol ("unicode-bmp");
-  Municode_full = msymbol ("unicode-full");
-  Miso10646_1 = msymbol ("iso10646-1");
-  Miso8859_1 = msymbol ("iso8859-1");
-
-  return 0;
-}
-
-void
-mfont__ft_fini ()
-{
-  MPlist *plist, *p;
-
-  if (ft_font_list)
-    {
-      MPLIST_DO (plist, ft_font_list)
-	{
-	  MPLIST_DO (p, MPLIST_VAL (plist))
-	    {
-	      MFTInfo *ft_info = MPLIST_VAL (p);
-
-	      M17N_OBJECT_UNREF (ft_info);
-	    }
-	  M17N_OBJECT_UNREF (MPLIST_VAL (plist));
-	}
-      M17N_OBJECT_UNREF (ft_font_list);
-      ft_font_list = NULL;
-    }
-  free (ft_to_prop);
-  FT_Done_FreeType (ft_library);
-  all_fonts_scaned = 0;
-}
-
-
-#ifdef HAVE_FONTCONFIG
-int
-mfont__ft_parse_name (char *name, MFont *font)
-{
-  FcPattern *pat = FcNameParse ((FcChar8 *) name);
-  FcResult result;
-  FcChar8 *str;
-  double size;
-  
-  if (! pat)
-    return -1;
-  if ((result = FcPatternGetString (pat, FC_FOUNDRY, 0, &str)) == FcResultMatch)
-    mfont__set_property (font, MFONT_FOUNDRY, msymbol ((char *) str));
-  if ((result = FcPatternGetString (pat, FC_FAMILY, 0, &str)) == FcResultMatch)
-    mfont__set_property (font, MFONT_FAMILY, msymbol ((char *) str));
-  if ((result = FcPatternGetString (pat, FC_STYLE, 0, &str)) == FcResultMatch)
-    {
-      MSymbol style = msymbol ((char *) str);
-      int i;
-
-      for (i = 0; i < ft_to_prop_size; i++)
-	if (ft_to_prop[i].ft_style == style)
-	  {
-	    mfont__set_property (font, MFONT_WEIGHT, ft_to_prop[i].weight);
-	    mfont__set_property (font, MFONT_STYLE, ft_to_prop[i].style);
-	    mfont__set_property (font, MFONT_STRETCH, ft_to_prop[i].stretch);
-	    break;
-	  }
-    }
-  if ((result = FcPatternGetDouble (pat, FC_PIXEL_SIZE, 0, &size))
-      == FcResultMatch)
-    font->property[MFONT_SIZE] = size * 10;
-  FcPatternDestroy (pat);
-  return 0;
-}
-
-char *
-mfont__ft_unparse_name (MFont *font)
-{
-  FcPattern *pat = FcPatternCreate ();
-  MSymbol sym, weight, style, stretch;
-  char *name;
-  int i;
-
-  if ((sym = (MSymbol) FONT_PROPERTY (font, MFONT_FOUNDRY)) != Mnil)
-    FcPatternAddString (pat, FC_FOUNDRY, (FcChar8 *) MSYMBOL_NAME (sym));
-  if ((sym = (MSymbol) FONT_PROPERTY (font, MFONT_FAMILY)) != Mnil)
-    FcPatternAddString (pat, FC_FAMILY, (FcChar8 *) MSYMBOL_NAME (sym));
-  if ((weight = (MSymbol) FONT_PROPERTY (font, MFONT_WEIGHT)) == Mnil)
-    weight = msymbol ("medium");
-  if ((style = (MSymbol) FONT_PROPERTY (font, MFONT_STYLE)) == Mnil)
-    style = msymbol ("r");
-  if ((stretch = (MSymbol) FONT_PROPERTY (font, MFONT_STRETCH)) == Mnil)
-    stretch = msymbol ("normal");
-  for (i = 0; i < ft_to_prop_size; i++)
-    if (ft_to_prop[i].weight == weight
-	&& ft_to_prop[i].style == style
-	&& ft_to_prop[i].stretch == stretch)
-      FcPatternAddString (pat, FC_STYLE,
-			  (FcChar8 *) MSYMBOL_NAME (ft_to_prop[i].ft_style));
-  name = (char *) FcNameUnparse (pat);
-  FcPatternDestroy (pat);
-  return name;
-}
-#endif	/* HAVE_FONTCONFIG */
-
-int
-mfont__ft_drive_otf (MGlyphString *gstring, int from, int to,
-		     MRealizedFont *rfont,
-		     MSymbol script, MSymbol langsys, 
-		     MSymbol gsub_features, MSymbol gpos_features)
-{
-  int len = to - from;
-  MGlyph g;
-  int i;
-#ifdef HAVE_OTF
-  MFTInfo *ft_info;
-  OTF *otf;
-  OTF_GlyphString otf_gstring;
-  OTF_Glyph *otfg;
-  char *script_name, *language_name;
-  char *gsub_feature_names, *gpos_feature_names;
-  int from_pos, to_pos;
-  int unitsPerEm;
-
-  if (len == 0)
-    return from;
-
-  ft_info = (MFTInfo *) rfont->info;
-  if (ft_info->otf_flag < 0)
-    goto simple_copy;
-  otf = ft_info->otf;
-  if (! otf && (otf = OTF_open (ft_info->filename)))
-    {
-      if (OTF_get_table (otf, "head") < 0
-	  || (OTF_check_table (otf, "GSUB") < 0
-	      && OTF_check_table (otf, "GPOS") < 0))
-	{
-	  OTF_close (otf);
-	  ft_info->otf_flag = -1;
-	  ft_info->otf = NULL;
-	  goto simple_copy;
-	}
-      ft_info->otf = otf;
-    }
-
-  script_name = msymbol_name (script);
-  language_name = langsys != Mnil ? msymbol_name (langsys) : NULL;
-  gsub_feature_names
-    = (gsub_features == Mt ? "*"
-       : gsub_features == Mnil ? NULL
-       : msymbol_name (gsub_features));
-  gpos_feature_names
-    = (gpos_features == Mt ? "*"
-       : gpos_features == Mnil ? NULL
-       : msymbol_name (gpos_features));
-
-  g = gstring->glyphs[from];
-  from_pos = g.pos;
-  to_pos = g.to;
-  for (i = from + 1; i < to; i++)
-    {
-      if (from_pos > gstring->glyphs[i].pos)
-	from_pos = gstring->glyphs[i].pos;
-      if (to_pos < gstring->glyphs[i].to)
-	to_pos = gstring->glyphs[i].to;
-    }
-
-  unitsPerEm = otf->head->unitsPerEm;
-  otf_gstring.size = otf_gstring.used = len;
-  otf_gstring.glyphs = (OTF_Glyph *) alloca (sizeof (OTF_Glyph) * len);
-  memset (otf_gstring.glyphs, 0, sizeof (OTF_Glyph) * len);
-  for (i = 0; i < len; i++)
-    {
-      if (gstring->glyphs[from + i].otf_encoded)
-	{
-	  otf_gstring.glyphs[i].c = gstring->glyphs[from + i].c;
-	  otf_gstring.glyphs[i].glyph_id = gstring->glyphs[from + i].code;
-	}
-      else
-	{
-	  otf_gstring.glyphs[i].c = gstring->glyphs[from + i].code;
-	}
-    }
-      
-  if (OTF_drive_tables (otf, &otf_gstring, script_name, language_name,
-			gsub_feature_names, gpos_feature_names) < 0)
-    goto simple_copy;
-  g.pos = from_pos;
-  g.to = to_pos;
-  for (i = 0, otfg = otf_gstring.glyphs; i < otf_gstring.used; i++, otfg++)
-    {
-      g.combining_code = 0;
-      g.c = otfg->c;
-      if (otfg->glyph_id)
-	{
-	  g.code = otfg->glyph_id;
-	  switch (otfg->positioning_type)
-	    {
-	    case 1: case 2:
-	      {
-		int off_x = 128, off_y = 128;
-
-		if (otfg->f.f1.format & OTF_XPlacement)
-		  off_x = ((double) (otfg->f.f1.value->XPlacement)
-			   * 100 / unitsPerEm + 128);
-		if (otfg->f.f1.format & OTF_YPlacement)
-		  off_y = ((double) (otfg->f.f1.value->YPlacement)
-			   * 100 / unitsPerEm + 128);
-		g.combining_code
-		  = MAKE_COMBINING_CODE (3, 2, 3, 0, off_y, off_x);
-		if ((otfg->f.f1.format & OTF_XAdvance)
-		    || (otfg->f.f1.format & OTF_YAdvance))
-		  off_y--;
-	      }
-	      break;
-	    case 3:
-	      /* Not yet supported.  */
-	      break;
-	    case 4:
-	      {
-		int off_x, off_y;
-
-		off_x = ((double) (otfg->f.f4.base_anchor->XCoordinate
-				   - otfg->f.f4.mark_anchor->XCoordinate)
-			 * 100 / unitsPerEm + 128);
-		off_y = ((double) (otfg->f.f4.base_anchor->YCoordinate
-				   - otfg->f.f4.mark_anchor->YCoordinate)
-			 * 100 / unitsPerEm + 128);
-		g.combining_code
-		  = MAKE_COMBINING_CODE (3, 0, 3, 0, off_y, off_x);
-	      }
-	      break;
-	    case 5:
-	      /* Not yet supported.  */
-	      break;
-	    default:		/* i.e case 6 */
-	      /* Not yet supported.  */
-	      break;
-	    }
-	  g.otf_encoded = 1;
-	}
-      else
-	{
-	  g.code = otfg->c;
-	  g.otf_encoded = 0;
-	}
-      MLIST_APPEND1 (gstring, glyphs, g, MERROR_FONT_OTF);
-    }
-  return to;
-
- simple_copy:
-#endif	/* HAVE_OTF */
-  for (i = 0; i < len; i++)
-    {
-      g = gstring->glyphs[from + i];
-      MLIST_APPEND1 (gstring, glyphs, g, MERROR_FONT_OTF);
-    }
-  return to;
-}
-
-int
-mfont__ft_decode_otf (MGlyph *g)
-{
-#ifdef HAVE_OTF
-  MFTInfo *ft_info = (MFTInfo *) g->rface->rfont->info;
-  int c = OTF_get_unicode (ft_info->otf, (OTF_GlyphID) g->code);
-
-  return (c ? c : -1);
-#else  /* not HAVE_OTF */
-  return -1;
-#endif	/* not HAVE_OTF */
-}
-
-#endif /* HAVE_FREETYPE */
diff --git a/src/font.c b/src/font.c
deleted file mode 100644
index 90e9db6..0000000
--- a/src/font.c
+++ /dev/null
@@ -1,2070 +0,0 @@
-/* font.c -- font module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nFont
-    @brief Font object.
-
-    The m17n GUI API represents a font by an object of the type @c
-    MFont.  A font can have @e font @e properties.  Like other types
-    of properties, a font property consists of a key and a value.  The
-    key of a font property must be one of the following symbols:
-
-    @c Mfoundry, @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-    @c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
-
-    When the key of a font property is @c Msize or @c Mresolution, its
-    value is an integer.  Otherwise the value is a symbol.  "The font
-    property that belongs to font F and whose key is @c Mxxx" may be
-    shortened to "the xxx property of F".
-
-    The value of a foundry property is a symbol representing font
-    foundry information, e.g. adobe, misc, etc.
-
-    The value of a family property is a symbol representing font family
-    information, e.g. times, helvetica, etc.
-
-    The value of a weight property is a symbol representing weight
-    information, e.g. normal, bold, etc.
-
-    The value of a style property is a symbol representing slant
-    information, e.g. normal, italic, etc.
-
-    The value of a stretch property is a symbol representing width
-    information, e.g. normal, semicondensed, etc.
-
-    The value of an adstyle property is a symbol representing abstract
-    font family information, e.g. serif, sans-serif, etc.
-
-    The value of a registry property is a symbol representing registry
-    information, e.g. iso10646-1, iso8895-1, etc.
-
-    The value of a size property is an integer representing design
-    size in the unit of 1/10 point.
-
-    The value of a resolution property is an integer representing
-    assumed device resolution in the unit of dots per inch (dpi)
-
-    The m17n library uses font objects for two purposes: to receive
-    font specification from an application program, and to present
-    available fonts to an application program.  When the m17n library
-    presents an available font to an application program, all font
-    properties have a concrete value.
-
-    The m17n library supports three kinds of fonts: Window system fonts,
-    FreeType fonts, and OpenType fonts.
-
-    
-
-     Window system fonts
-
-    The m17n-X library supports all fonts handled by an X server and
-    an X font server.  The correspondence between XLFD fields and font
-    properties are shown below.
-
-@verbatim
-    XLFD field                                  property
-    ---------------                             --------
-    FOUNDRY                                     foundry
-    FAMILY_NAME                                 family
-    WEIGHT_NAME                                 weight
-    SLANT                                       style
-    SETWIDTH_NAME                               stretch
-    ADD_STYLE_NAME                              adstyle
-    POINT_SIZE                                  size
-    RESOLUTION_Y                                resolution
-    CHARSET_REGISTRY-CHARSET_ENCODING           registry
-@endverbatim
-
-    XLFD fields not listed in the above table are ignored.
-
-    
 FreeType fonts
-
-    The m17n library, if configured to use the FreeType library,
-    supports all fonts that can be handled by the FreeType library.
-    The variable #mfont_freetype_path is initialized properly according
-    to the configuration of the m17n library and the environment
-    variable @c M17NDIR.  See the documentation of the variable for
-    details.
-
-    If the m17n library is configured to use the fontconfig librray,
-    in addition to #mfont_freetype_path, all fonts available via
-    fontconfig are supported.
-
-    The family name of a FreeType font corresponds to the family
-    property.  Style names of FreeType fonts correspond to the weight,
-    style, and stretch properties as below.
-
-@verbatim
-    style name          weight  style   stretch
-    ----------          ------  -----   -------
-    Regular             medium  r       normal
-    Italic              medium  i       normal
-    Bold                bold    r       normal
-    Bold Italic         bold    i       normal
-    Narrow              medium  r       condensed
-    Narrow Italic       medium  i       condensed
-    Narrow Bold         bold    r       condensed
-    Narrow Bold Italic  bold    i       condensed
-    Black               black   r       normal
-    Black Italic        black   i       normal
-    Oblique             medium  o       normal
-    BoldOblique         bold    o       normal
-@endverbatim
-
-    Style names not listed in the above table are treated as
-    "Regular".
-
-    Combination of a platform ID and an encoding ID corresponds to the
-    registry property.  For example, if a font has the combination (1
-    1), the registry property is 1-1.  Some frequent combinations have
-    a predefined registry property as below.
-
-@verbatim
-    platform ID         encoding ID     registry property
-    -----------         -----------     -----------------
-    0                   3               unicode-bmp
-    0                   4               unicode-full
-    1                   0               apple-roman
-    3                   1               unicode-bmp
-    3                   1               unicode-full
-@endverbatim
-
-    Thus, a font that has two combinations (1 0) and (3 1) corresponds
-    to four font objects whose registries are 1-0, apple-roman, 3-1,
-    and unicode-bmp.
-
-    
 OpenType fonts 
-
-    The m17n library, if configured to use both the FreeType library
-    and the OTF library, supports any OpenType fonts.  The list of
-    actually available fonts is created in the same way as in the case
-    of FreeType fonts.  If a fontset instructs to use an OpenType font
-    via an FLT (Font Layout Table), and the FLT has an OTF-related
-    command (e.g. otf:deva), the OTF library converts a character
-    sequence to a glyph code sequence according to the OpenType layout
-    tables of the font, and the FreeType library gives a bitmap image
-    for each glyph.
-
-    
-
-  */
-
-/***ja
-    @addtogroup m17nFont
-    @brief ¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È.
-
-    m17n GUI API ¤Ï¥Õ¥©¥ó¥È¤ò @c MFont ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤È¤·¤ÆÉ½¸½¤¹¤ë¡£
-    ¥Õ¥©¥ó¥È¤Ï @e ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£ ¤ò»ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£Â¾¤Î¥¿¥¤¥×¤Î
-    ¥×¥í¥Ñ¥Æ¥£Æ±ÍÍ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Ï¥¡¼¤ÈÃÍ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï°Ê²¼¤Î¥·
-    ¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£
-
-    @c Mfoundry, @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-    @c Madstyle, @c Mregistry, @c Msize, @c Mresolution
-
-    ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤¬ @c Msize ¤¢¤ë¤¤¤Ï @c Mresolution ¤Î¾ì¹ç¡¢
-    ÃÍ¤ÏÀ°¿ôÃÍ¤Ç¤¢¤ê¡¢¥¡¼¤¬¤½¤ì°Ê³°¤Î¾ì¹ç¡¢ÃÍ¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£¡Ö¥Õ¥©
-    ¥ó¥È F ¤Î¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ @c Mxxx ¤Ç¤¢¤ë¤â¤Î¡×¤Î¤³¤È
-    ¤ò´ÊÃ±¤Ë¡ÖF ¤Î xxx ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£
-
-    foundry ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢adobe, misc Åù¤Î¥Õ¥©¥ó¥È¤Î³«È¯¸µ¾ðÊó¤ò¼¨
-    ¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    family ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢times, helvetica Åù¤Î¥Õ¥©¥ó¥È¥Õ¥¡¥ß¥ê¡¼¤ò
-    ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    weight ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, bold Åù¤ÎÂÀ¤µ¤Ë´Ø¤¹¤ë¾ðÊó¤ò¼¨¤¹¥·
-    ¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    style ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, italic Åù¤Î¥¹¥¿¥¤¥ë¤Ë´Ø¤¹¤ë¾ðÊó¤ò
-    ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    stretch ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢normal, semicondensed Åù¤ÎÊ¸»úÉý¤Ë´Ø¤¹¤ë
-    ¾ðÊó¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    adstyle ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢serif, sans-serif Åù¤ÎÃê¾ÝÅª¤Ê¥Õ¥©¥ó¥È¥Õ¥¡
-    ¥ß¥ê¡¼¤Ë´Ø¤¹¤ë¾ðÊó¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    registry ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢iso10646, iso8895-1 Åù¤Î¥ì¥¸¥¹¥È¥ê¾ðÊó¤ò
-    ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    size ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î¥Ç¥¶¥¤¥ó¥µ¥¤¥º¤òÉ½¤ï¤¹À°¿ôÃÍ¤Ç¤¢
-    ¤ê¡¢Ã±°Ì¤Ï 1/10 ¥Ý¥¤¥ó¥È¤Ç¤¢¤ë¡£
-
-    resolution ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢ÁÛÄê¤µ¤ì¤Æ¤¤¤ë¥Ç¥Ð¥¤¥¹¤Î²òÁüÅÙ¤òÉ½¤ï
-    ¤¹À°¿ôÃÍ¤Ç¤¢¤ê¡¢Ã±°Ì¤Ï dots per inch (dpi) ¤Ç¤¢¤ë¡£  
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤ò£²¤Ä¤ÎÌÜÅª¤ÇÍÑ¤¤¤Æ¤¤¤ë¡£¥¢
-    ¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¥Õ¥©¥ó¥È¤Î»ØÄê¤ò¼õ¤±¼è¤ëÌÜÅª¤È¡¢¥¢¥×¥ê
-    ¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤ËÍøÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤òÄó¼¨¤¹¤ëÌÜÅª¤Ç¤¢¤ë¡£¥¢¥×
-    ¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤ËÂÐ¤·¤ÆÄó¼¨¤ò¹Ô¤¦ºÝ¤Ë¤Ï¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£
-    ¤Ï¤¹¤Ù¤Æ¶ñÂÎÅª¤ÊÃÍ¤ò»ý¤Ä¡£
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï Window ¥·¥¹¥Æ¥à¥Õ¥©¥ó¥È¡¢FreeType¥Õ¥©¥ó¥È¡¢
-    OpenType¥Õ¥©¥ó¥È¤Î£³¼ïÎà¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¡£
-
-    
-
-     Window ¥·¥¹¥Æ¥à¥Õ¥©¥ó¥È
-
-    m17n X ¥é¥¤¥Ö¥é¥ê¤Ï¡¢X ¥µ¡¼¥Ð¤È X ¥Õ¥©¥ó¥È¥µ¡¼¥Ð¤¬¼è¤ê°·¤¦Á´¤Æ¤Î¥Õ¥©
-    ¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£XLFD ¤Î³Æ¥Õ¥£¡¼¥ë¥É¤È¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤ÎÂÐ±þ
-    ¤Ï°Ê²¼¤ÎÄÌ¤ê¡£¤³¤ÎÉ½¤Ë¤Ê¤¤¥Õ¥£¡¼¥ë¥É¤ÏÌµ»ë¤µ¤ì¤ë¡£
-
-@verbatim
-    XLFD ¥Õ¥£¡¼¥ë¥É                             ¥×¥í¥Ñ¥Æ¥£
-    ---------------                             --------
-    FOUNDRY                                     foundry
-    FAMILY_NAME                                 family
-    WEIGHT_NAME                                 weight
-    SLANT                                       style
-    SETWIDTH_NAME                               stretch
-    ADD_STYLE_NAME                              adstyle
-    POINT_SIZE                                  size
-    RESOLUTION_Y                                resolution
-    CHARSET_REGISTRY-CHARSET_ENCODING           registry
-@endverbatim
-
-    
 FreeType fonts
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢FreeType ¥é¥¤¥Ö¥é¥ê¤ò»È¤¦¤è¤¦¤ËÀßÄê¤µ¤ì¤¿¾ì¹ç¤Ë
-    ¤Ï¡¢FreeType ¤¬°·¤¦¤¹¤Ù¤Æ¤Î¥Õ¥©¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£ÊÑ¿ô 
-    #mfont_freetype_path ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤ÎÀßÄê¤È´Ä¶ÊÑ¿ô @c M17NDIR 
-    ¤Ë±þ¤¸¤Æ½é´ü²½¤µ¤ì¤ë¡£¾ÜºÙ¤ÏÊÑ¿ô¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
-
-    ¤â¤· m17n ¥é¥¤¥Ö¥é¥ê¤¬ fontconfig ¥é¥¤¥Ö¥é¥ê¤ò»È¤¦¤è¤¦¤ËÀßÄê¤µ¤ì¤¿
-    ¾ì¹ç¤Ë¤Ï¡¢#mfont_freetype_path ¤Ë²Ã¤¨¤Æ¡¢ fontconfig ¤Ç»ÈÍÑ²ÄÇ½¤Ê¥Õ¥©
-    ¥ó¥È¤â¤¹¤Ù¤Æ¥µ¥Ý¡¼¥È¤µ¤ì¤ë¡£
-
-    FreeType ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥êÌ¾¤Ï family ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ±þ¤¹¤ë¡£
-    FreeType ¥Õ¥©¥ó¥È¤Î¥¹¥¿¥¤¥ëÌ¾¤Ï¡¢²¼¤ÎÉ½¤Î¤è¤¦¤Ë weight, style,
-    stretch ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ±þ¤¹¤ë¡£
-
-@verbatim
-    ¥¹¥¿¥¤¥ëÌ¾          weight  style   stretch
-    ----------          ------  -----   -------
-    Regular             medium  r       normal
-    Italic              medium  i       normal
-    Bold                bold    r       normal
-    Bold Italic         bold    i       normal
-    Narrow              medium  r       condensed
-    Narrow Italic       medium  i       condensed
-    Narrow Bold         bold    r       condensed
-    Narrow Bold Italic  bold    i       condensed
-    Black               black   r       normal
-    Black Italic        black   i       normal
-    Oblique             medium  o       normal
-    BoldOblique         bold    o       normal
-@endverbatim
-
-    ¾å¤ÎÉ½¤Ë¸½¤ï¤ì¤Ê¤¤¥¹¥¿¥¤¥ëÌ¾¤Ï "Regular" ¤È¤·¤Æ°·¤ï¤ì¤ë¡£
-
-    platform ID ¤È encoding ID ¤ÎÁÈ¤ß¹ç¤ï¤»¤Ï registry ¥×¥í¥Ñ¥Æ¥£¤ËÂÐ
-    ±þ¤¹¤ë¡£¤¿¤È¤¨¤Ð¤¢¤ë¥Õ¥©¥ó¥È¤¬ (1 1) ¤È¤¤¤¦ ID ¤ÎÁÈ¹ç¤»¤ò»ý¤Æ¤Ð¡¢
-    registry ¥×¥í¥Ñ¥Æ¥£¤Ï 1-1 ¤È¤Ê¤ë¡£ÉÑÈË¤Ë¤¢¤é¤ï¤ì¤ëÁÈ¹ç¤»¤Ë¤Ï°Ê²¼¤Î
-    ¤è¤¦¤ÊÄêµÁºÑ¤ß registry ¥×¥í¥Ñ¥Æ¥£ ¤¬Í¿¤¨¤é¤ì¤Æ¤¤¤ë¡£
-
-@verbatim
-    platform ID         encoding ID     registry ¥×¥í¥Ñ¥Æ¥£
-    -----------         -----------     -----------------
-    0                   3               unicode-bmp
-    0                   4               unicode-full
-    1                   0               apple-roman
-    3                   1               unicode-bmp
-    3                   1               unicode-full
-@endverbatim
-
-    ¤·¤¿¤¬¤Ã¤Æ¡¢Æó¤Ä¤ÎÁÈ¹ç¤» (1 0) ¡¢(3 1) ¤ò»ý¤Ä¥Õ¥©¥ó¥È¤Ï¡¢¤½¤ì¤¾¤ì
-    registry ¥×¥í¥Ñ¥Æ¥£¤¬ 1-0, apple-roman, 3-1, unicode-bmp ¤Ç¤¢¤ë£´¤Ä
-    ¤Î¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤ËÂÐ±þ¤¹¤ë¡£
-
-    
 OpenType ¥Õ¥©¥ó¥È
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢FreeType ¥é¥¤¥Ö¥é¥ê¤È OTF ¥é¥¤¥Ö¥é¥ê¤ò»ÈÍÑ¤¹¤ë¤è
-    ¤¦¤ËÀßÄê¤¹¤ì¤Ð¡¢¤¹¤Ù¤Æ¤Î OpenType ¥Õ¥©¥ó¥È¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£¼ÂºÝ¤ËÍø
-    ÍÑ¤Ç¤¤ë¥Õ¥©¥ó¥È¤Î¥ê¥¹¥È¤Ï FreeType ¥Õ¥©¥ó¥È¤Î¾ì¹ç¤ÈÆ±ÍÍ¤Ëºî¤é¤ì¤ë¡£
-    OpenType ¥Õ¥©¥ó¥È¤ò FLT (Font Layout Table) ·ÐÍ³¤Ç»ÈÍÑ¤¹¤ë¤è¤¦¥Õ¥©
-    ¥ó¥È¥»¥Ã¥È¤Ë»ØÄê¤µ¤ì¤Æ¤ª¤ê¡¢FLT ¤Ë OTF ´ØÏ¢¤Î¥³¥Þ¥ó¥É (¤¿¤È¤¨¤Ð
-    otf:deva) ¤¬¤¢¤ì¤Ð¡¢OTF ¥é¥¤¥Ö¥é¥ê¤¬¥Õ¥©¥ó¥È¤Î OpenType ¥ì¥¤¥¢¥¦¥È
-    ¥Æ¡¼¥Ö¥ë¤Ë½¾¤Ã¤ÆÊ¸»úÎó¤ò¥°¥ê¥Õ¥³¡¼¥ÉÎó¤ËÊÑ´¹¤·¡¢FreeType ¥é¥¤¥Ö¥é¥ê
-    ¤¬³Æ¥°¥ê¥Õ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥¤¥á¡¼¥¸¤òÄó¶¡¤¹¤ë¡£
-
-    
-
-*/
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include "config.h"
-
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "mtext.h"
-#include "symbol.h"
-#include "plist.h"
-#include "charset.h"
-#include "internal-gui.h"
-#include "font.h"
-#include "face.h"
-
-MPlist *mfont__driver_list;
-
-/** Indices to font properties sorted by their priority.  */
-static int font_score_priority[] =
-  { MFONT_SIZE,
-    MFONT_ADSTYLE,
-    MFONT_FAMILY,
-    MFONT_WEIGHT,
-    MFONT_STYLE,
-    MFONT_STRETCH,
-    MFONT_FOUNDRY
-  };
-
-#define FONT_SCORE_PRIORITY_SIZE	\
-  (sizeof font_score_priority / sizeof font_score_priority[0])
-
-/* Indexed by a font property MFONT_XXX, and the value is how many
-   bits to shift the difference of property values.  */
-static int font_score_shift_bits[MFONT_PROPERTY_MAX];
-
-/** Predefined symbols for each font property.  The order is important
-    because the function score_font () decides how well a font matches
-    with a spec by checking how close the index is.  */
-
-static char *common_foundry[] =
-  { "misc",
-    "adobe" };
-static char *common_family[] =
-  { "fixed",
-    "courier",
-    "helvetica",
-    "times" };
-static char *common_weight[] =
-  { "ultralight",
-    "extralight",
-    "light",
-    "demilight",
-    "book",
-    "normal",
-    "medium",
-    "regular",
-    "demibold",
-    "bold",
-    "extrabold",
-    "ultrabold",
-    "black" };
-static char *common_style[] =
-  { "o",
-    "i",
-    "r",
-    "ri",
-    "ro" };
-static char *common_stretch[] =
-  { "condensed",
-    "narrow",
-    "semicondensed",
-    "normal",
-    "semiexpanded",
-    "expanded" };
-static char *common_adstyle[] =
-  { "serif",
-    "",
-    "sans" };
-static char *common_registry[] =
-  { "iso8859-1" };
-
-/* Table containing all the data above.  */
-
-struct MFontCommonNames
-{
-  int num;
-  char **names;
-};
-
-static struct MFontCommonNames font_common_names[] =
-  {
-    { sizeof (common_foundry) / sizeof (char *), common_foundry},
-    { sizeof (common_family) / sizeof (char *), common_family},
-    { sizeof (common_weight) / sizeof (char *), common_weight},
-    { sizeof (common_style) / sizeof (char *), common_style},
-    { sizeof (common_stretch) / sizeof (char *), common_stretch},
-    { sizeof (common_adstyle) / sizeof (char *), common_adstyle},
-    { sizeof (common_registry) / sizeof (char *), common_registry}
-  };
-
-
-/** Table of available font property names.  */
-
-MFontPropertyTable mfont__property_table[MFONT_REGISTRY + 1];
-
-
-/** Return the numeric value of SYMBOL as the Nth font property.  */
-
-#define FONT_PROPERTY_NUMERIC(symbol, n)	\
-  ((symbol) == Mnil				\
-   ? 0						\
-   : ((int) msymbol_get ((symbol), mfont__property_table[(n)].property)))
-
-
-/** Set the numeric value of SYMBOL as the Nth font property to NUMERIC.  */
-
-#define SET_FONT_PROPERTY_NUMERIC(symbol, n, numeric)		\
-  msymbol_put((symbol), mfont__property_table[(n)].property,	\
-	      (void *) (numeric))
-
-static char *
-gen_font_name (char *buf, MFont *font)
-{
-  char size[16];
-  int i;
-
-  buf[0] = '\0';
-  for (i = 0; i <= MFONT_REGISTRY; i++)
-    if (FONT_PROPERTY (font, i) != Mnil)
-      {
-	char *name = msymbol_name (FONT_PROPERTY (font, i));
-
-	if (name[0])
-	  {
-	    if (i > 0)
-	      strcat (buf, ",");
-	    strcat (buf, name);
-	  }
-      }
-  sprintf (size, ",%d", font->property[MFONT_SIZE] / 10);
-  strcat (buf, size);
-  return buf;
-}
-
-
-
-/* Font selector.  */
-
-struct MFontEncoding {
-  MFont spec;
-  MSymbol encoding_name;
-  MCharset *encoding_charset;
-  MSymbol repertory_name;
-  MCharset *repertory_charset;
-};
-
-static MPlist *font_encoding_list;
-static MFontEncoding default_encoding;
-
-/** Load font encoding table from the data .
-    The data has this form:
-	(FONT-SPEC ENCODING) ...
-    where FONT-SPEC has this form:
-	([FOUNDRY FAMILY [WEIGHT [STYLE [STRETCH [ADSTYLE]]]]] REGISTRY)
-    All elements are symbols.  */
-
-static int
-load_font_encoding_table ()
-{
-  MDatabase *mdb;
-  MPlist *encoding_list, *plist, *pl, *elt;
-
-  font_encoding_list = pl = mplist ();
-
-  mdb = mdatabase_find (Mfont, msymbol ("encoding"), Mnil, Mnil);
-  if (! mdb
-      || ! (encoding_list = (MPlist *) mdatabase_load (mdb)))
-    MERROR (MERROR_FONT, -1);
-
-  MPLIST_DO (plist, encoding_list)
-    {
-      MFontEncoding *encoding;
-      MSymbol registry;
-
-      MSTRUCT_CALLOC (encoding, MERROR_FONT);
-
-      if (! MPLIST_PLIST_P (plist)
-	  || (elt = MPLIST_PLIST (plist), mplist_length (elt) < 2)
-	  || ! MPLIST_PLIST_P (elt))
-	MWARNING (MERROR_FONT);
-      registry = mfont__set_spec_from_plist (&encoding->spec,
-					     MPLIST_PLIST (elt));
-      elt = MPLIST_NEXT (elt);
-      if (! MPLIST_SYMBOL_P (elt))
-	MWARNING (MERROR_FONT);
-      encoding->encoding_name = MPLIST_SYMBOL (elt);
-      elt = MPLIST_NEXT (elt);
-      if (MPLIST_TAIL_P (elt))
-	encoding->repertory_name = encoding->encoding_name;
-      else if (! MPLIST_SYMBOL_P (elt))
-	MWARNING (MERROR_FONT);
-      else
-	encoding->repertory_name = MPLIST_SYMBOL (elt);
-
-      if (registry == Mnil)
-	registry = Mt;
-      pl = mplist_add (pl, registry, encoding);
-      continue;
-
-    warning:
-      free (encoding);
-    }
-
-  M17N_OBJECT_UNREF (encoding_list);
-  return 0;
-}
-
-typedef struct {
-  MFont spec;
-  int resize;
-} MFontResize;
-
-static MPlist *font_resize_list;
-
-/** Load font size table from the data .
-    The data has this form:
-	(FONT-SPEC RESIZE-FACTOR) ...
-    where FONT-SPEC has this form:
-	([FOUNDRY FAMILY [WEIGHT [STYLE [STRETCH [ADSTYLE]]]]] REGISTRY)
-    All elements of FONT-SPEC are symbols.  */
-
-static int
-load_font_resize_table ()
-{
-  MDatabase *mdb;
-  MPlist *size_adjust_list, *plist, *pl, *elt;
-
-  font_resize_list = pl = mplist ();
-
-  mdb = mdatabase_find (Mfont, msymbol ("resize"), Mnil, Mnil);
-  if (! mdb)
-    return -1;
-  if (! (size_adjust_list = (MPlist *) mdatabase_load (mdb)))
-    MERROR (MERROR_FONT, -1);
-
-  MPLIST_DO (plist, size_adjust_list)
-    {
-      MFontResize *resize;
-      MSymbol registry;
-
-      MSTRUCT_CALLOC (resize, MERROR_FONT);
-
-      if (! MPLIST_PLIST_P (plist)
-	  || (elt = MPLIST_PLIST (plist), mplist_length (elt) != 2)
-	  || ! MPLIST_PLIST_P (elt))
-	MWARNING (MERROR_FONT);
-      registry = mfont__set_spec_from_plist (&resize->spec,
-					     MPLIST_PLIST (elt));
-      elt = MPLIST_NEXT (elt);
-      if (! MPLIST_INTEGER_P (elt))
-	MWARNING (MERROR_FONT);
-      resize->resize = MPLIST_INTEGER (elt);
-
-      if (registry == Mnil)
-	registry = Mt;
-      pl = mplist_add (pl, registry, resize);
-      continue;
-
-    warning:
-      free (resize);
-    }
-
-  M17N_OBJECT_UNREF (size_adjust_list);
-  return 0;
-}
-
-/** Return a font encoding (and repertory) of FONT.  */
-
-static MFontEncoding *
-find_encoding (MFont *font)
-{
-  MSymbol registry = FONT_PROPERTY (font, MFONT_REGISTRY);
-  MFontEncoding *encoding = NULL;
-  MPlist *plist;
-
-  if (! font_encoding_list)
-    load_font_encoding_table ();
-  if (! MPLIST_TAIL_P (font_encoding_list))
-    while (1)
-      {
-	plist = font_encoding_list;
-	while (registry ? (plist = mplist_find_by_key (plist, registry))
-	       : plist)
-	  {
-	    encoding = (MFontEncoding *) MPLIST_VAL (plist);
-	    if (mfont__match_p (font, &encoding->spec, MFONT_ADSTYLE))
-	      {
-		if (! encoding->encoding_charset)
-		  encoding->encoding_charset
-		    = MCHARSET (encoding->encoding_name);
-		if (! encoding->encoding_charset)
-		  {
-		    mplist_pop (plist);
-		    continue;
-		  }
-		if (encoding->repertory_name == encoding->encoding_name)
-		  encoding->repertory_charset = encoding->encoding_charset;
-		else if (encoding->repertory_name != Mnil)
-		  {
-		    encoding->repertory_charset
-		      = MCHARSET (encoding->repertory_name);
-		    if (! encoding->repertory_charset)
-		      {
-			mplist_pop (plist);
-			continue;
-		      }
-		  }
-		return encoding;
-	      }
-	    else
-	      plist = MPLIST_NEXT (plist);
-	  }
-	if (registry == Mnil || registry == Mt)
-	  break;
-	registry = Mt;
-      }
-  return &default_encoding;
-}
-
-/* XLFD parser/generator */
-
-/** Indices to each field of split font name.  */
-
-enum xlfd_field_idx
-  {
-    XLFD_FOUNDRY,
-    XLFD_FAMILY,
-    XLFD_WEIGHT,
-    XLFD_SLANT,
-    XLFD_SWIDTH,
-    XLFD_ADSTYLE,
-    XLFD_PIXEL,
-    XLFD_POINT,
-    XLFD_RESX,
-    XLFD_RESY,
-    XLFD_SPACING,
-    XLFD_AVGWIDTH,
-    XLFD_REGISTRY,		/* This contains ENCODING.  */
-    /* anchor */
-    XLFD_FIELD_MAX
-  };
-
-static int
-xlfd_parse_name (char *name, MFont *font)
-{
-  char *field[XLFD_FIELD_MAX];
-  unsigned short size, resy;
-  MSymbol attrs[MFONT_PROPERTY_MAX];
-  char copy[513];
-  int i;
-  char *p;
-
-  if (name[0] != '-')
-    return -1;
-
-  field[0] = copy;
-  for (i = 1, p = copy, name++; *name; p++, name++)
-    {
-      if (p - copy > 512)
-	return -1;
-      if (*name == '-'
-	  && i < XLFD_FIELD_MAX)
-	{
-	  *p = '\0';
-	  if (field[i - 1][0] == '*')
-	    field[i - 1] = NULL;
-	  field[i++] = p + 1;
-	}
-      else
-	*p = tolower (*name);
-    }
-  *p = '\0';
-  if (field[i - 1][0] == '*')
-    field[i - 1] = NULL;
-  while (i < XLFD_FIELD_MAX)
-    field[i++] = NULL;
-
-  resy = field[XLFD_RESY] ? atoi (field[XLFD_RESY]) : 0;
-  if (! field[XLFD_PIXEL])
-    size = field[XLFD_POINT] ? atoi (field[XLFD_POINT]) * resy / 72 : 0;
-  else if (field[XLFD_PIXEL][0] == '[')
-    {
-      /* The pixel size field specifies a transformation matrix of the
-	 form "[A B C D]".  The XLFD spec says that the scalar value N
-	 for the pixel size is equivalent to D.  */
-      char *p0 = field[XLFD_PIXEL] + 1, *p1;
-      double d;
-
-      for (i = 0; i < 4; i++, p0 = p1)
-	d = strtod (p0, &p1);
-      size = d * 10;
-    }
-  else
-    size = atoi (field[XLFD_PIXEL]) * 10;
-
-  attrs[MFONT_FOUNDRY]
-    = field[XLFD_FOUNDRY] ? msymbol (field[XLFD_FOUNDRY]) : Mnil;
-  attrs[MFONT_FAMILY]
-    = field[XLFD_FAMILY] ? msymbol (field[XLFD_FAMILY]) : Mnil;
-  attrs[MFONT_WEIGHT]
-    = field[XLFD_WEIGHT] ? msymbol (field[XLFD_WEIGHT]) : Mnil;
-  attrs[MFONT_STYLE]
-    = field[XLFD_SLANT] ? msymbol (field[XLFD_SLANT]) : Mnil;
-  attrs[MFONT_STRETCH]
-    = field[XLFD_SWIDTH] ? msymbol (field[XLFD_SWIDTH]) : Mnil;
-  attrs[MFONT_ADSTYLE]
-    = field[XLFD_ADSTYLE] ? msymbol (field[XLFD_ADSTYLE]) : Mnil;
-  attrs[MFONT_REGISTRY]
-    = field[XLFD_REGISTRY] ? msymbol (field[XLFD_REGISTRY]) : Mnil;
-  mfont__set_spec (font, attrs, size, resy);
-  return 0;
-}
-
-static char *
-xlfd_unparse_name (MFont *font)
-{
-  MSymbol prop[7];
-  char name[513];
-  char *str[7];
-  int len, i;
-  unsigned short size, resy;
-
-  prop[0] = (MSymbol) mfont_get_prop (font, Mfoundry);
-  prop[1] = (MSymbol) mfont_get_prop (font, Mfamily);
-  prop[2] = (MSymbol) mfont_get_prop (font, Mweight);
-  prop[3] = (MSymbol) mfont_get_prop (font, Mstyle);
-  prop[4] = (MSymbol) mfont_get_prop (font, Mstretch);
-  prop[5] = (MSymbol) mfont_get_prop (font, Madstyle);
-  prop[6] = (MSymbol) mfont_get_prop (font, Mregistry);
-  for (len = 0, i = 0; i < 7; i++)
-    {
-      if (prop[i] != Mnil)
-	{
-	  str[i] = msymbol_name (prop[i]);
-	  len += strlen (str[i]);
-	}
-      else
-	{
-	  str[i] = "*";
-	  len++;
-	}
-    }
-  if ((len
-       + 12			/* 12 dashes */
-       + 3			/* 3 asterisks */
-       + 30			/* 3 integers (each 10 digits) */
-       + 1)			/* '\0' terminal */
-      > 513)
-    return NULL;
-
-  size = (int) mfont_get_prop (font, Msize);
-  if ((size % 10) < 5)
-    size /= 10;
-  else
-    size = size / 10 + 1;
-  resy = (int) mfont_get_prop (font, Mresolution);
-
-  sprintf (name, "-%s-%s-%s-%s-%s-%s-%d-*-%d-%d-*-*-%s",
-	   str[0], str[1], str[2], str[3], str[4], str[5],
-	   size, resy, resy,  str[6]);
-  return strdup (name);
-}
-
-
-/* Internal API */
-
-int
-mfont__init ()
-{
-  int i, shift;
-
-  Mfoundry = msymbol ("foundry");
-  mfont__property_table[MFONT_FOUNDRY].property = Mfoundry;
-  Mfamily = msymbol ("family");
-  mfont__property_table[MFONT_FAMILY].property = Mfamily;
-  Mweight = msymbol ("weight");
-  mfont__property_table[MFONT_WEIGHT].property = Mweight;
-  Mstyle = msymbol ("style");
-  mfont__property_table[MFONT_STYLE].property = Mstyle;
-  Mstretch = msymbol ("stretch");
-  mfont__property_table[MFONT_STRETCH].property = Mstretch;
-  Madstyle = msymbol ("adstyle");
-  mfont__property_table[MFONT_ADSTYLE].property = Madstyle;
-  Mregistry = msymbol ("registry");
-  mfont__property_table[MFONT_REGISTRY].property = Mregistry;
-
-  Msize = msymbol ("size");
-  Mresolution = msymbol ("resolution");
-
-  Mfontconfig = msymbol ("fontconfig");
-
-  /* The first entry of each mfont__property_table must be Mnil so
-     that actual properties get positive numeric numbers.  */
-  for (i = 0; i <= MFONT_REGISTRY; i++)
-    {
-      MLIST_INIT1 (&mfont__property_table[i], names, 8);
-      MLIST_APPEND1 (&mfont__property_table[i], names, Mnil, MERROR_FONT);
-    }
-
-  /* Register predefined font property names.  */
-  for (i = 0; i <= MFONT_REGISTRY; i++)
-    {
-      int j;
-
-      for (j = 0; j < font_common_names[i].num; j++)
-	{
-	  MSymbol sym = msymbol (font_common_names[i].names[j]);
-
-	  if (sym == Mnil)
-	    return -1;
-	  if (msymbol_put(sym, mfont__property_table[i].property,
-			  (void *) (j + 1)) < 0)
-	    return -1;
-	  MLIST_APPEND1 (&mfont__property_table[i], names, sym, MERROR_FONT);
-	}
-    }
-
-  /* Here, SHIFT starts from 1, not 0.  This is because the lowest bit
-     of a score is a flag for a scalable font (see the documentation
-     of mfont_score).  */
-  i = FONT_SCORE_PRIORITY_SIZE - 1;
-  for (shift = 1; i >= 0; i--)
-    {
-      font_score_shift_bits[font_score_priority[i]] = shift;
-      if (font_score_priority[i] == MFONT_SIZE)
-	shift += 16;
-      else
-	shift += 2;
-    }
-
-  MFONT_INIT (&default_encoding.spec);
-  default_encoding.encoding_name = Mnil;
-  default_encoding.encoding_charset = NULL;
-  default_encoding.repertory_name = Mnil;
-  default_encoding.repertory_charset = NULL;
-  {
-    char *path, *buf;
-    int bufsize;
-
-    mfont_freetype_path = mplist ();
-    bufsize = strlen (M17NDIR) + 7;
-    buf = alloca (bufsize);
-    sprintf (buf, "%s/fonts", M17NDIR);
-    mplist_add (mfont_freetype_path, Mstring, strdup (buf));
-    path = getenv ("M17NDIR");
-    if (path)
-      {
-	i = strlen (path) + 7;
-	if (i > bufsize)
-	  buf = alloca (i);
-	sprintf (buf, "%s/fonts", path);
-	mplist_push (mfont_freetype_path, Mstring, strdup (buf));
-      }
-  }
-
-#ifdef HAVE_FREETYPE
-  if (mfont__ft_init () < 0)
-    return -1;
-#endif /* HAVE_FREETYPE */
-  if (mfont__flt_init () < 0)
-    return -1;
-
-  return 0;
-}
-
-void
-mfont__fini ()
-{
-  MPlist *plist;
-  int i;
-
-  mfont__flt_fini ();
-#ifdef HAVE_FREETYPE
-  mfont__ft_fini ();
-#endif /* HAVE_FREETYPE */
-
-  MPLIST_DO (plist, mfont_freetype_path)
-    free (MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (mfont_freetype_path);
-
-  if (font_resize_list)
-    {
-      MPLIST_DO (plist, font_resize_list)
-	free (MPLIST_VAL (plist));
-      M17N_OBJECT_UNREF (font_resize_list);
-      font_resize_list = NULL;
-    }
-  if (font_encoding_list)
-    {
-      MPLIST_DO (plist, font_encoding_list)
-	free (MPLIST_VAL (plist));
-      M17N_OBJECT_UNREF (font_encoding_list);
-      font_encoding_list = NULL;
-    }
-  for (i = 0; i <= MFONT_REGISTRY; i++)
-    MLIST_FREE1 (&mfont__property_table[i], names);
-}
-
-void
-mfont__free_realized (MRealizedFont *rfont)
-{
-  M17N_OBJECT_UNREF (rfont->info);
-  free (rfont);
-}
-
-
-/* Compare FONT with REQUEST and return how much they differs.  If
-   FONT does not match with SPEC, return -1.  */
-
-int
-mfont__score (MFont *font, MFont *spec, MFont *request, int limited_size)
-{
-  int score = 0;
-  int i = FONT_SCORE_PRIORITY_SIZE;
-
-  while (--i >= 0)
-    {
-      enum MFontProperty prop = font_score_priority[i];
-
-      if (request->property[prop] != 0)
-	{
-	  int val = 0;
-
-	  if (spec->property[prop] && font->property[prop]
-	      && font->property[prop] != spec->property[prop])
-	    return -1;
-	  if (font->property[prop])
-	    val = abs (font->property[prop] - request->property[prop]);
-	  if (prop == MFONT_SIZE)
-	    {
-	      if (font->property[MFONT_RESY] == 0)
-		/* This is a scalable font.  We prefer a bitmap font
-		   if the size matches exactly.  */
-		score |= 1;
-	      else
-		score |= (val << font_score_shift_bits[MFONT_SIZE]
-			  | ((limited_size && val > 0) ? 0x400000 : 0));
-	    }
-	  else
-	    score |= (val > 3 ? 3 : val) << font_score_shift_bits[prop];
-	}
-    }
-  return score;
-}
-
-
-/** Return 1 iff FONT matches SPEC.  */
-
-int
-mfont__match_p (MFont *font, MFont *spec, int prop)
-{
-  for (; prop >= 0; prop--)
-    if (spec->property[prop] && font->property[prop]
-	&& font->property[prop] != spec->property[prop])
-      return 0;
-  return 1;
-}
-
-
-void
-mfont__set_spec_from_face (MFont *spec, MFace *face)
-{
-  int i;
-
-  for (i = 0; i <= MFONT_ADSTYLE; i++)
-    mfont__set_property (spec, i, face->property[i]);
-  /* The value 1 is "iso8859-1".  */
-  spec->property[MFONT_REGISTRY] = 1;
-  spec->property[MFONT_SIZE] = (int) (face->property[MFACE_SIZE]);
-  spec->property[MFONT_RESY] = 0;
-}
-
-
-extern MSymbol
-mfont__set_spec_from_plist (MFont *spec, MPlist *plist)
-{
-  int i;
-  MSymbol spec_list[MFONT_REGISTRY + 1];
-  MSymbol registry;
-
-  MFONT_INIT (spec);
-  memset (spec_list, 0, sizeof spec_list);
-  for (i = 0; ! MPLIST_TAIL_P (plist); i++, plist = MPLIST_NEXT (plist))
-    {
-      if (! MPLIST_SYMBOL_P (plist))
-	MERROR (MERROR_FONT, Mnil);	
-      spec_list[i] = MPLIST_SYMBOL (plist);
-    }
-  registry = spec_list[i - 1];
-  mfont__set_property (spec, MFONT_REGISTRY, registry);
-  for (i -= 2; i >= 0; i--)
-    mfont__set_property (spec, i, spec_list[i]);
-  return registry;
-}
-
-MRealizedFont *
-mfont__select (MFrame *frame, MFont *spec, MFont *request, int limited_size,
-	       MSymbol layouter)
-{
-  MSymbol registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
-  MPlist *plist;
-  MRealizedFont *best;
-  int i;
-  int mdebug_mask = MDEBUG_FONT;
-
-  if (registry == Mnil)
-    registry = Mt;
-
-  MPLIST_DO (plist, frame->realized_font_list)
-    {
-      best = MPLIST_VAL (plist);
-      if (MPLIST_KEY (plist) == registry
-	  && ! memcmp (&best->spec, spec, sizeof (MFont))
-	  && ! memcmp (&best->request, request, sizeof (MFont)))
-	{
-	  if (best->layouter != layouter)
-	    {
-	      MRealizedFont *copy;
-
-	      MSTRUCT_MALLOC (copy, MERROR_FONT);
-	      *copy = *best;
-	      copy->layouter = layouter;
-	      mplist_add (frame->realized_font_list, registry, copy);
-	      if (copy->info)
-		M17N_OBJECT_REF (copy->info);
-	      best = copy;
-	    }
-	  return best;
-	}
-    }
-
-  MDEBUG_PUSH_TIME ();
-  best = NULL;
-  MPLIST_DO (plist, frame->font_driver_list)
-    {
-      MFontDriver *driver = MPLIST_VAL (plist);
-      MRealizedFont *this
-	= (driver->select) (frame, spec, request, limited_size);
-
-      if (this)
-	{
-	  this->driver = driver;
-	  if (! best
-	      || this->score < best->score)
-	    {
-	      if (best)
-		mfont__free_realized (best);
-	      best = this;
-	      if (this->score == 0)
-		break;
-	    }
-	  else
-	    mfont__free_realized (this);
-	}
-    }
-
-  if (mdebug__flag & mdebug_mask)
-    {
-      char buf1[256], buf2[256];
-      MFont font = *spec;
-
-      for (i = 0; i < MFONT_PROPERTY_MAX; i++)
-	if (! font.property[i])
-	  font.property[i] = request->property[i];
-      gen_font_name (buf2, &font);
-
-      if (best)
-	MDEBUG_PRINT_TIME ("FONT", 
-			   (stderr, " to select <%s> (%x)from <%s>.",
-			    gen_font_name (buf1, &best->font),
-			    best->score,
-			    buf2));
-      else
-	MDEBUG_PRINT_TIME ("FONT", (stderr, " to fail to find <%s>.", buf2));
-      MDEBUG_POP_TIME ();
-    }
-
-  if (! best)
-    return NULL;
-  best->layouter = layouter;
-  mplist_add (frame->realized_font_list, registry, best);
-  return best;
-}
-
-
-/** Open a font specified in RFONT.  Return 0 if successfully
-    opened, otherwise return -1.  */
-
-int
-mfont__open (MRealizedFont *rfont)
-{
-  return (rfont->driver->open) (rfont);
-}
-
-void
-mfont__resize (MFont *spec, MFont *request)
-{
-  MSymbol registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
-  MFontResize *resize;
-  MPlist *plist;
-
-  if (! font_resize_list)
-    load_font_resize_table ();
-  if (! MPLIST_TAIL_P (font_resize_list))
-    while (1)
-      {
-	plist = font_resize_list;
-	while (registry ? (plist = mplist_find_by_key (plist, registry))
-	       : plist)
-	  {
-	    resize = (MFontResize *) MPLIST_VAL (plist);
-	    if (mfont__match_p (spec, &resize->spec, MFONT_ADSTYLE))
-	      {
-		request->property[MFONT_SIZE]
-		  = request->property[MFONT_SIZE] * resize->resize / 100;
-		return;
-	      }
-	    plist = MPLIST_NEXT (plist);
-	  }
-	if (registry == Mt)
-	  break;
-	registry = Mt;
-      }
-}
-
-
-unsigned
-mfont__encode_char (MRealizedFont *rfont, int c)
-{
-  MFontEncoding *encoding;
-  unsigned code;
-
-  if (rfont->layouter != Mnil)
-    return mfont__flt_encode_char (rfont->layouter, c);
-  if (! rfont->encoding)
-    rfont->encoding = find_encoding (&rfont->font);
-  encoding = rfont->encoding;
-  if (! encoding->encoding_charset)
-    return MCHAR_INVALID_CODE;
-  if (encoding->repertory_charset
-      && ENCODE_CHAR (encoding->repertory_charset, c) == MCHAR_INVALID_CODE)
-    return MCHAR_INVALID_CODE;
-  code = ENCODE_CHAR (encoding->encoding_charset, c);
-  if (code == MCHAR_INVALID_CODE)
-    return MCHAR_INVALID_CODE;
-  return (rfont->driver->encode_char) (rfont, code);
-}
-
-void
-mfont__get_metric (MGlyphString *gstring, int from, int to)
-{
-  MGlyph *from_g = MGLYPH (from), *to_g = MGLYPH (to), *g;
-  MRealizedFont *rfont = from_g->rface->rfont;
-
-  for (g = from_g; g != to_g; g++)
-    if (g->rface->rfont != rfont)
-      {
-	int idx = GLYPH_INDEX (g);
-
-	(rfont->driver->find_metric) (rfont, gstring, from, idx);
-	from_g = g;
-	rfont = g->rface->rfont;
-	from = idx;
-      }
-  (rfont->driver->find_metric) (rfont, gstring, from, GLYPH_INDEX (g));
-}
-
-
-void
-mfont__set_property (MFont *font, enum MFontProperty key, MSymbol val)
-{
-  int numeric;
-
-  if (val == Mnil)
-    numeric = 0;
-  else
-    {
-      numeric = FONT_PROPERTY_NUMERIC (val, key);
-      if (! numeric)
-	{
-	  numeric = mfont__property_table[key].used;
-	  MLIST_APPEND1 (mfont__property_table + key, names, val, MERROR_FONT);
-	  SET_FONT_PROPERTY_NUMERIC (val, key, numeric);
-	}
-    }
-  font->property[key] = numeric;
-}
-
-void
-mfont__set_spec (MFont *font, MSymbol *attrs,
-		 unsigned short size, unsigned short resy)
-{
-  int i;
-
-  for (i = 0; i <= MFONT_REGISTRY; i++)
-    mfont__set_property (font, i, attrs[i]);
-  font->property[MFONT_SIZE] = size;
-  font->property[MFONT_RESY] = resy;
-}
-
-int
-mfont__parse_name_into_font (char *name, MSymbol format, MFont *font)
-{
-  int result = -1;
-
-  if (format == Mx || format == Mnil)
-    result = xlfd_parse_name (name, font);
-#ifdef HAVE_FONTCONFIG
-  if (format == Mfontconfig || (! result && format == Mnil))
-    result = mfont__ft_parse_name (name, font);
-#endif
-  return result;
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-
-/* External API */
-
-/*** @addtogroup m17nFont */
-/*** @{ */
-/*=*/
-
-/***en @name Variables: Keys of font property.  */
-/***ja @name ÊÑ¿ô: ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤ò»ØÄê¤¹¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Key of font property specifying foundry.
-
-    The variable #Mfoundry is a symbol of name "foundry" and
-    is used as a key of font property and face property.  The property
-    value must be a symbol whose name is a foundry name of a font.  */
-/***ja
-    @brief ³«È¯¸µ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mfoundry ¤Ï "fonudry" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
-    ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î³«È¯¸µÌ¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mfoundry;
-
-/***en
-    @brief Key of font property specifying family.
-
-    The variable #Mfamily is a symbol of name "family" and is
-    used as a key of font property and face property.  The property
-    value must be a symbol whose name is a family name of a font.  */ 
-/***ja
-    @brief ¥Õ¥¡¥ß¥ê¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mfamily ¤Ï "family" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
-    ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
-    ¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥ß¥êÌ¾¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mfamily;
-
-/***en
-    @brief Key of font property specifying weight.
-
-    The variable #Mweight is a symbol of name "weight" and is
-    used as a key of font property and face property.  The property
-    value must be a symbol whose name is a weight name of a font (e.g
-    "medium", "bold").  */ 
-/***ja
-    @brief ÂÀ¤µ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mweight ¤Ï "weight" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
-    ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
-    ¥Õ¥©¥ó¥È¤ÎÂÀ¤µÌ¾ ( "medium", "bold" Åù) ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç
-    ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mweight;
-
-/***en
-    @brief Key of font property specifying style.
-
-    The variable #Mstyle is a symbol of name "style" and is
-    used as a key of font property and face property.  The property
-    value must be a symbol whose name is a style name of a font (e.g
-    "r", "i", "o").  */ 
-/***ja
-    @brief ¥¹¥¿¥¤¥ë¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mstyle ¤Ï "style" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
-    ¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
-    ¥Õ¥©¥ó¥È¤Î¥¹¥¿¥¤¥ëÌ¾ ("r", "i", "o" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç
-    ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mstyle;
-
-/***en
-    @brief Key of font property specifying stretch.
-
-    The variable #Mstretch is a symbol of name "stretch" and
-    is used as a key of font property and face property.  The property
-    value must be a symbol whose name is a stretch name of a font (e.g
-    "normal", "condensed").  */ 
-/***ja
-    @brief Éý¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mstretch ¤Ï "stretch" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
-    ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤ÎÊ¸»úÉýÌ¾ ( "normal", "condensed" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý
-    ¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mstretch;
-
-/***en
-    @brief Key of font property specifying additional style.
-
-    The variable #Madstyle is a symbol of name "adstyle" and
-    is used as a key of font property and face property.  The property
-    value must be a symbol whose name is an additional style name of a
-    font (e.g "serif", "", "sans").  */ 
-/***ja
-    @brief adstyle ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Madstyle ¤Ï "adstyle" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢
-    ¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-    ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î adstyle Ì¾("serif", "", "sans" Åù)¤òÌ¾Á°¤È¤·¤Æ»ý
-    ¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Madstyle;
-
-/***en
-    @brief Key of font property specifying registry.
-
-    The variable #Mregistry is a symbol of name "registry"
-    and is used as a key of font property.  The property value must be
-    a symbol whose name is a registry name a font registry
-    (e.g. "iso8859-1", "jisx0208.1983-0").  */ 
-/***ja
-    @brief ¥ì¥¸¥¹¥È¥ê¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mregistry ¤Ï "registry" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¥Õ¥©¥ó
-    ¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢¥Õ¥©
-    ¥ó¥È¤Î¥ì¥¸¥¹¥È¥êÌ¾ ( "iso8859-1", "jisx0208.1983-0" Åù) ¤òÌ¾Á°¤È¤·
-    ¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mregistry;
-
-/***en
-    @brief Key of font property specifying size.
-
-    The variable #Msize is a symbol of name "size" and is
-    used as a key of font property and face property.  The property
-    value must be an integer specifying a font design size in the unit
-    of 1/10 point (on 100 dpi display).  */ 
-/***ja
-    @brief ¥µ¥¤¥º¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Msize ¤Ï "size" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢¥Õ¥©
-    ¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£ÃÍ¤Ï¡¢
-    100 dpi ¤Î¥Ç¥£¥¹¥×¥ì¥¤¾å¤Ç¤Î¥Õ¥©¥ó¥È¤Î¥Ç¥¶¥¤¥ó¥µ¥¤¥º¤ò 1/10 ¥Ý¥¤¥ó
-    ¥ÈÃ±°Ì¤Ç¼¨¤¹À°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Msize;
-
-/***en
-    @brief Key of font property specifying resolution.
-
-    The variable #Mresolution is a symbol of name "resolution" and
-    is used as a key of font property and face property.  The property
-    value must be an integer to specifying a font resolution in the
-    unit of dots per inch (dpi).  */ 
-/***ja
-    @brief ²òÁüÅÙ¤ò»ØÄê¤¹¤ë¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼.
-    
-    ÊÑ¿ô #Mresolution ¤Ï "resolution" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü
-    ¥ë¤Ç¤¢¤ê¡¢¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤È¥Õ¥§¡¼¥¹¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤È¤·¤ÆÍÑ¤¤¤é
-    ¤ì¤ë¡£ÃÍ¤Ï¡¢¥Õ¥©¥ó¥È¤Î²òÁüÅÙ¤ò dots per inch (dpi) Ã±°Ì¤Ç¼¨¤¹À°¿ô
-    ÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    */
-
-MSymbol Mresolution;
-
-/***en
-    @brief Symobl of name "fontconfig".
-
-    The variable #Mfontconfig is to be used as an argument of the
-    functions mfont_parse_name () and mfont_unparse_name ().  */
-
-MSymbol Mfontconfig;
-
-/*=*/
-/*** @} */
-/*=*/
-
-/***en
-    @brief List of font files and directories that contain font files.
-
-    The variable @c mfont_freetype_path is a plist of FreeType font
-    files and directories that contain FreeType font files.  Key of
-    the element is @c Mstring, and the value is a string that
-    represents a font file or a directory.
-
-    The macro M17N_INIT () sets up this variable to contain the
-    sub-directory "fonts" of the m17n database and the environment
-    variable "M17NDIR".  The first call of mframe () creates the
-    internal list of the actually available fonts from this variable.
-    Thus, an application program, if necessary, must modify the
-    variable before calling mframe ().  If it is going to add a new
-    element, value must be a string that can be safely freed.
-
-    If the m17n library is not configured to use the FreeType library,
-    this variable is not used.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤È¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥ê¤Î¥ê¥¹¥È.
-
-    ÊÑ¿ô @c mfont_freetype_path ¤Ï¡¢¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤È¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë
-    ¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥ê¤Î plist ¤Ç¤¢¤ë¡£³ÆÍ×ÁÇ¤Î¥¡¼¤Ï @c Mstring ¤Ç¤¢
-    ¤ê¡¢ÃÍ¤Ï¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤«¥Ç¥£¥ì¥¯¥È¥ê¤ò¼¨¤¹Ê¸»úÎó¤Ç¤¢¤ë¡£
-
-    ¥Þ¥¯¥í M17N_INIT () ¤Ë¤è¤Ã¤Æ¡¢¤³¤ÎÊÑ¿ô¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤È´Ä¶ÊÑ
-     ¿ô "M17NDIR" ÁÐÊý¤Î¥µ¥Ö¥Ç¥£¥ì¥¯¥È¥ê "fonts" ¤ò´Þ¤à¤è¤¦¤ËÀßÄê¤µ¤ì¤ë¡£
-     mframe () ¤ÎºÇ½é¤Î¸Æ¤Ó½Ð¤·¤ÎºÝ¤Ë¡¢¤³¤ÎÊÑ¿ô¤«¤é¼ÂºÝ¤Ë»ÈÍÑ¤Ç¤¤ë¥Õ¥©
-     ¥ó¥È¤ÎÆâÉô¥ê¥¹¥È¤¬ºî¤é¤ì¤ë¡£¤½¤³¤Ç¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¡¢
-     mframe () ¤ò¸Æ¤ÖÁ°¤Ë¡ÊÉ¬Í×¤Ê¤é¤Ð¡Ë¤³¤ÎÊÑ¿ô¤òÊÑ¹¹¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê
-     ¤¤¡£¿·¤·¤¤Í×ÁÇ¤òÄÉ²Ã¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢¤½¤ÎÃÍ¤Ï°ÂÁ´¤Ë³«Êü¤Ç¤¤ëÊ¸»úÎó
-     ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤¬ FreeType ¥é¥¤¥Ö¥é¥ê¤ò»È¤¦¤è¤¦¤ËÀßÄê¤µ¤ì¤Æ¤Ê¤¤¾ì
-    ¹ç¤Ë¤Ï¡¢¤³¤ÎÊÑ¿ô¤ÏÍÑ¤¤¤é¤ì¤Ê¤¤¡£ */
-
-MPlist *mfont_freetype_path;
-
-/*=*/
-
-/***en
-    @brief Create a new font.
-
-    The mfont () function creates a new font object that has no
-    property.
-
-    @return
-    This function returns a pointer to the created font object.  */
-/***ja
-    @brief ¿·¤·¤¤¥Õ¥©¥ó¥È¤òºî¤ë.
-
-    ´Ø¿ô mfont () ¤Ï¥×¥í¥Ñ¥Æ¥£¤ò°ìÀÚ»ý¤¿¤Ê¤¤¿·¤·¤¤¥Õ¥©¥ó¥È¤ò¥ª¥Ö¥¸¥§¥¯
-    ¥È¤òºî¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ïºî¤Ã¤¿¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  */
-
-MFont *
-mfont ()
-{
-  MFont *font;
-
-  MSTRUCT_CALLOC (font, MERROR_FONT);
-  return font;
-}
-
-/*=*/
-
-/***en
-    @brief Create a font by parsing a fontname.
-
-    The mfont_parse_name () function creates a new font object.  The
-    properties are extracted fontname $NAME.
-
-    $FORMAT specifies the format of $NAME.  If $FORMAT is #Mx, $NAME
-    is parsed as XLFD (X Logical Font Description).  If $FORMAT is
-    #Mfontconfig, $NAME is parsed as Fontconfig's textual
-    representation of font.  If $FORMAT is #Mnil, $NAME is at first
-    parsed as XLFD, and it it fails, parsed as Fontconfig's
-    representation.
-
-    @return
-    If the operation was successful, this function returns a pointer
-    to the created font.  Otherwise it returns @c NULL.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
-
-    ´Ø¿ô mfont_parse_name () ¤Ï¡¢¥Õ¥©¥ó¥ÈÌ¾ $NAME ¤«¤é¼è¤ê½Ð¤µ¤ì¤¿¥×¥í¥Ñ
-    ¥Æ¥£¤ò»ý¤Ä¡¢¿·¤·¤¤¥Õ¥©¥ó¥È¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ë¡£
-
-    $FORMAT ¤Ï $NAME ¤Î¥Õ¥©¡¼¥Þ¥Ã¥È¤ò»ØÄê¤¹¤ë¡£$FORMAT ¤¬ #Mx ¤Ç¤¢¤ì¤Ð¡¢
-    $NAME ¤Ï XLFD (X Logical Font Description) ¤Ë½¾¤Ã¤Æ²òÀÏ¤µ¤ì¤ë¡£
-    $FORMAT ¤¬ #Mfontconfig ¤Ç¤¢¤ì¤Ð $NAME ¤Ï Fontfonfig ¤Î¥Õ¥©¥ó¥È¥Æ¥
-    ¥¹¥ÈÉ½¸½¤Ë½¾¤Ã¤Æ²òÀÏ¤µ¤ì¤ë¡£$FORMAT ¤¬ #Mnil ¤Ç¤¢¤ì¤Ð¡¢¤Þ¤º XLFD ¤Ë
-    ½¾¤Ã¤Æ²òÀÏ¤µ¤ì¡¢¤½¤ì¤Ë¼ºÇÔ¤·¤¿¤é Fontconfig ¤Ë½¾¤Ã¤Æ²òÀÏ¤µ¤ì¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mfont_parse_name () ¤Ï¿·¤·¤¯ºî¤é¤ì¤¿¥Õ¥©¥ó¥È¤Ø¤Î
-    ¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
-
-MFont *
-mfont_parse_name (char *name, MSymbol format)
-{
-  MFont template, *font;
-  
-  MFONT_INIT (&template);
-  if (mfont__parse_name_into_font (name, format, &template) < 0)
-    MERROR (MERROR_FONT, NULL);
-  MSTRUCT_CALLOC (font, MERROR_FONT);
-  *font = template;
-  return font;
-}
-
-/*=*/
-
-/***en
-    @brief Create a fontname from a font.
-
-    The mfont_unparse_name () function creates a fontname string
-    from font $FONT according to $FORMAT.
-
-    $FORMAT must be #Mx or #Mfontconfig.  If it is #Mx, the fontname
-    is in XLFD (X Logical Font Description) format.  If it is
-    #Mfontconfig, the fontname is in the style of Fontconfig's text
-    representation.
-
-    @return
-    This function returns a newly allocated fontname string, which is
-    not freed unless the user explicitly does so by free ().  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
-
-    ´Ø¿ô mfont_unparse_name () ¤Ï $FORMAT ¤Ë¤·¤¿¤¬¤Ã¤¿¥Õ¥©¥ó¥ÈÌ¾¤ÎÊ¸»ú
-    Îó¤ò¥Õ¥©¥ó¥È$FONT ¤ò¸µ¤Ëºî¤ë¡£
-
-    $FORMAT ¤Ï #Mx ¤Þ¤¿¤Ï #Mfontconfig ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£#Mx ¤Ê¤é¤Ð¥Õ¥©
-    ¥ó¥ÈÌ¾¤Ï XLFD (X Logical Font Description) ¤Ë½¾¤¦¡£#Mfontconfig ¤Ê
-    ¤é¤Ð¥Õ¥©¥ó¥ÈÌ¾¤Ï Fontconfig ¤Î¥Õ¥©¥ó¥È¥Æ¥¥¹¥ÈÉ½¸½¤Ë½¾¤¦¡£
-
-    @return 
-    ¤³¤Î´Ø¿ô¤Ï¿·¤¿¤Ë¥¢¥í¥±¡¼¥È¤·¤¿¥Õ¥©¥ó¥ÈÌ¾¤ÎÊ¸»úÎó¤òÊÖ¤¹¡£Ê¸»úÎó¤Ï¡¢
-    ¥æ¡¼¥¶¤¬ free () ¤Ë¤è¤Ã¤ÆÌÀ¼¨Åª¤Ë²òÊü¤·¤Ê¤¤¸Â¤ê²òÊü¤µ¤ì¤Ê¤¤¡£  */
-
-char *
-mfont_unparse_name (MFont *font, MSymbol format)
-{
-  char *name;
-
-  if (format == Mx)
-    name = xlfd_unparse_name (font);
-#ifdef HAVE_FONTCONFIG
-  else if (format == Mfontconfig)
-    name = mfont__ft_unparse_name (font);
-#endif
-  else
-    MERROR (MERROR_FONT, NULL);
-  return name;
-}
-
-/*=*/
-
-/***en
-    @brief Make a copy of a font.
-
-    The mfont_copy () function returns a new copy of font $FONT.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î¥³¥Ô¡¼¤òºî¤ë.
-
-    ´Ø¿ô Mfont_copy () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥³¥Ô¡¼¤òºî¤ê¡¢¤½¤ì¤òÊÖ¤¹¡£ */
-
-MFont *
-mfont_copy (MFont *font)
-{
-  MFont *copy;
-
-  MSTRUCT_MALLOC (copy, MERROR_FONT);
-  *copy = *font;
-  return copy;
-}
-
-/*=*/
-
-/***en
-    @brief Get a property value of a font.
-
-    The mfont_get_prop () function gets the value of $KEY property of
-    font $FONT.  $KEY must be one of the following symbols:
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
-
-    @return
-    If $KEY is @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch, @c
-    Madstyle, or @c Mregistry, this function returns the
-    corresponding value as a symbol.  If the font does not have $KEY
-    property, it returns @c Mnil.
-    If $KEY is @c Msize or @c Mresolution, this function returns the
-    corresponding value as an integer.  If the font does not have $KEY
-    property, it returns 0.
-    If $KEY is something else, it returns @c NULL and assigns an error
-    code to the external variable #merror_code.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô mfont_get_prop () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬ 
-    $KEY ¤Ç¤¢¤ë¤â¤Î¤ÎÃÍ¤òÊÖ¤¹¡£$KEY ¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì
-    ¤Ð¤Ê¤é¤Ê¤¤¡£
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
-
-    @return 
-    $KEY ¤¬ @c Mfamily, @c Mweight, @c Mstyle, @c Mstretch, @c
-    Madstyle, @c Mregistry ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ì¤Ð¡¢ÁêÅö¤¹¤ëÃÍ¤ò¥·¥ó¥Ü¥ë¤È
-    ¤·¤ÆÊÖ¤¹¡£¥Õ¥©¥ó¥È¤¬¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¾ì¹ç¤Ë¤Ï @c Mnil ¤òÊÖ¤¹¡£
-    $KEY ¤¬ @c Msize ¤¢¤ë¤¤¤Ï @c Mresolution ¤Î¾ì¹ç¤Ë¤Ï¡¢ÁêÅö¤¹¤ëÃÍ¤ò
-    ¤ÏÀ°¿ôÃÍ¤È¤·¤ÆÊÖ¤¹¡£¥Õ¥©¥ó¥È¤¬¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¾ì¹ç¤Ë¤Ï 0 ¤ò
-    ÊÖ¤¹¡£
-    $KEY ¤¬¤½¤ì°Ê³°¤Î¤â¤Î¤Ç¤¢¤ì¤Ð¡¢@c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô 
-    #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-void *
-mfont_get_prop (MFont *font, MSymbol key)
-{
-  if (key == Mfoundry)
-    return (void *) FONT_PROPERTY (font, MFONT_FOUNDRY);
-  if (key == Mfamily)
-    return (void *) FONT_PROPERTY (font, MFONT_FAMILY);
-  if (key == Mweight)
-    return (void *) FONT_PROPERTY (font, MFONT_WEIGHT);
-  if (key == Mstyle)
-    return (void *) FONT_PROPERTY (font, MFONT_STYLE);
-  if (key == Mstretch)
-    return (void *) FONT_PROPERTY (font, MFONT_STRETCH);
-  if (key == Madstyle)
-    return (void *) FONT_PROPERTY (font, MFONT_ADSTYLE);
-  if (key == Mregistry)
-    return (void *) FONT_PROPERTY (font, MFONT_REGISTRY);
-  if (key == Msize)
-    {
-      int size = font->property[MFONT_SIZE];
-      return (void *) size;
-    }
-  if (key == Mresolution)
-    {
-      int resy = font->property[MFONT_RESY];
-      return (void *) resy;
-    }
-
-  MERROR (MERROR_FONT, NULL);
-}
-
-
-/*=*/
-/***en
-    @brief Put a property value to a font.
-
-    The mfont_put_prop () function puts a font property whose key is
-    $KEY and value is $VAL to font $FONT.  $KEY must be one of the
-    following symbols:
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
-
-    If $KEY is @c Msize or @c Mresolution, $VAL must be an integer.
-    Otherwise, $VAL must be a symbol.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î¥×¥í¥Ñ¥Æ¥£¤ËÃÍ¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mfont_put_prop () ¤Ï¡¢¥Õ¥©¥ó¥È $FONT ¤Î¥¡¼¤¬$KEY ¤Ç¤¢¤ë¥×¥í
-    ¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£$KEY ¤Ï°Ê²¼¤Î¥·¥ó¥Ü¥ë¤Î¤¤¤º¤ì¤«¤Ç¤¢
-    ¤ë¡£
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Mregistry, @c Msize, @c Mresolution.
-
-    $KEY ¤¬ @c Msize ¤« @c Mresolution ¤Ç¤¢¤ì¤Ð $VAL ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ
-    ¤Ï¤é¤Ê¤¤¡£¤½¤ì°Ê³°¤Î¾ì¹ç¡¢$VAL ¤Ï¥·¥ó¥Ü¥ë¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£*/
-
-int
-mfont_put_prop (MFont *font, MSymbol key, void *val)
-{
-  if (key == Mfoundry)
-    mfont__set_property (font, MFONT_FOUNDRY, (MSymbol) val);
-  else if (key == Mfamily)
-    mfont__set_property (font, MFONT_FAMILY, (MSymbol) val);
-  else if (key == Mweight)
-    mfont__set_property (font, MFONT_WEIGHT, (MSymbol) val);
-  else if (key == Mstyle)
-    mfont__set_property (font, MFONT_STYLE, (MSymbol) val);
-  else if (key == Mstretch)
-    mfont__set_property (font, MFONT_STRETCH, (MSymbol) val);
-  else if (key == Madstyle)
-    mfont__set_property (font, MFONT_ADSTYLE, (MSymbol) val);
-  else if (key == Mregistry)
-    mfont__set_property (font, MFONT_REGISTRY, (MSymbol) val);
-  else if (key == Msize)
-    {
-      unsigned size = (unsigned) val;
-      font->property[MFONT_SIZE] = size;
-    }
-  else if (key == Mresolution)
-    {
-      unsigned resy = (unsigned) val;
-      font->property[MFONT_RESY] =  resy;
-    }
-  else
-    MERROR (MERROR_FONT, -1);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Return the font selection priority.
-
-    The mfont_selection_priority () function returns a newly created
-    array of six symbols.  The elements are the following
-    keys of font properties ordered by priority.
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Msize.
-
-   The m17n library selects the best matching font according to the
-   order of this array.  A font that has a different value for a
-   property of lower priority is preferred to a font that has a
-   different value for a property of higher priority.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÊÖ¤¹.
-
-    ´Ø¿ô mfont_selection_priority () ¤Ï6¤Ä¤Î¥·¥ó¥Ü¥ë¤«¤é¤Ê¤ëÇÛÎó¤òºî¤Ã
-    ¤ÆÊÖ¤¹¡£ÇÛÎó¤ÎÍ×ÁÇ¤Ï¡¢°Ê²¼¤Î¥Õ¥©¥ó¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÍ¥ÀèÅÙ½ç¤ËÊÂ
-    ¤Ù¤¿¤â¤Î¤Ç¤¢¤ë¡£
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Msize.
-
-   m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤ÎÇÛÎó¤Ë½¾¤Ã¤Æ¡¢ºÇ¤â¹çÃ×¤¹¤ë¥Õ¥©¥ó¥È¤òÁªÂò¤¹¤ë¡£
-   Í¥ÀèÅÙ¤ÎÄã¤¤¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬°ã¤¦¥Õ¥©¥ó¥È¤ÈÍ¥ÀèÅÙ¤Î¹â¤¤¥×¥í¥Ñ¥Æ¥£¤Î
-   ÃÍ¤¬°ã¤¦¥Õ¥©¥ó¥È¤¬¤¢¤ë¾ì¹ç¡¢Á°¼Ô¤¬ÁªÂò¤µ¤ì¤ë¡£
-   */
-
-MSymbol *
-mfont_selection_priority ()
-{
-  MSymbol *keys;
-  int i;
-
-  MTABLE_MALLOC (keys, FONT_SCORE_PRIORITY_SIZE, MERROR_FONT);
-  for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++)
-    {
-      enum MFontProperty prop = font_score_priority[i];
-
-      if (prop == MFONT_SIZE)
-	keys[i] = Msize;
-      else if (prop == MFONT_ADSTYLE)
-	keys[i] = Madstyle;
-      else if (prop == MFONT_FAMILY)
-	keys[i] = Mfamily;
-      else if (prop == MFONT_WEIGHT)
-	keys[i] = Mweight;
-      else if (prop == MFONT_STYLE)
-	keys[i] = Mstyle;
-      else if (prop == MFONT_STRETCH)
-	keys[i] = Mstretch;
-      else
-	keys[i] = Mfoundry;
-    }
-  return keys;
-}
-
-/*=*/
-
-/***en
-    @brief Set the font selection priority.
-
-    The mfont_set_selection_priority () function sets font selection
-    priority according to $KEYS, which is an array of six symbols.
-    Each element must be one of the below.  No two elements must be
-    the same.
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Msize.
-
-    See the documentation of the function mfont_selection_priority ()
-    for details.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mfont_set_selection_priority () ¤Ï¡¢6¤Ä¤Î¥·¥ó¥Ü¥ë¤ÎÇÛÎó $KEYS 
-    ¤Ë¤·¤¿¤¬¤Ã¤Æ¥Õ¥©¥ó¥ÈÁªÂòÍ¥ÀèÅÙ¤òÀßÄê¤¹¤ë¡£³ÆÍ×ÁÇ¤Ï°Ê²¼¤Î¤¦¤Á¤Î¤É¤ì
-    ¤«¤Ç¤¢¤ê¡¢Á´¤Æ°Û¤Ê¤Ã¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-	@c Mfamily, @c Mweight, @c Mstyle, @c Mstretch,
-	@c Madstyle, @c Msize.
-
-    ¾ÜºÙ¤Ï´Ø¿ô mfont_selection_priority () ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
-     */
-
-int
-mfont_set_selection_priority (MSymbol *keys)
-{
-  int priority[FONT_SCORE_PRIORITY_SIZE];
-  int i, j;
-
-  for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++, keys++)
-    {
-      enum MFontProperty prop;
-
-      if (*keys == Msize)
-	prop = MFONT_SIZE;
-      else if (*keys == Madstyle)
-	prop = MFONT_ADSTYLE;
-      else if (*keys == Mfamily)
-	prop = MFONT_FAMILY;
-      else if (*keys == Mweight)
-	prop = MFONT_WEIGHT;
-      else if (*keys == Mstyle)
-	prop = MFONT_STYLE;
-      else if (*keys == Mstretch)
-	prop = MFONT_STRETCH;
-      else if (*keys == Mfoundry)
-	prop = MFONT_FOUNDRY;
-      else
-	/* Invalid element.  */
-	return -1;
-      for (j = 0; j < i; j++)
-	if (priority[j] == prop)
-	  /* Duplicated element.  */
-	  return -1;
-      priority[i] = prop;
-    }
-  for (i = 0; i < FONT_SCORE_PRIORITY_SIZE; i++)
-    font_score_priority[i] = priority[i];
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Find a font.
-
-    The mfont_find () function returns a pointer to the available font
-    that matches best the specification $SPEC on frame $FRAME.
-
-    $SCORE, if not NULL, must point to a place to store the score
-    value that indicates how well the found font matches to $SPEC.  The
-    smaller score means a better match.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤òÃµ¤¹.
-
-    ´Ø¿ô mfont_find () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¾å¤Ç¥Õ¥©¥ó¥ÈÄêµÁ $SPEC ¤Ë¤â¤Ã
-    ¤È¤â¹çÃ×¤¹¤ëÍøÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  
-
-    $SCORE ¤Ï NULL ¤Ç¤¢¤ë¤«¡¢¸«¤Ä¤«¤Ã¤¿¥Õ¥©¥ó¥È¤¬ $SPEC ¤Ë¤É¤ì¤Û¤É¹ç¤Ã
-    ¤Æ¤¤¤ë¤«¤ò¼¨¤¹¥¹¥³¥¢¤òÊÝÂ¸¤¹¤ë¾ì½ê¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥¹¥³¥¢¤¬¾®¤µ
-    ¤¤¤Û¤ÉÎÉ¤¯¹ç¤Ã¤Æ¤¤¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£
-    */
-
-MFont *
-mfont_find (MFrame *frame, MFont *spec, int *score, int limited_size)
-{
-  MFont spec_copy;
-  MRealizedFont *rfont;
-
-  MFONT_INIT (&spec_copy);
-  spec_copy.property[MFONT_REGISTRY] = spec->property[MFONT_REGISTRY];
-
-  rfont = mfont__select (frame, &spec_copy, spec, limited_size, Mnil);
-  if (!rfont)
-    return NULL;
-  if (score)
-    *score = rfont->score;
-  return &rfont->font;
-}
-
-/*=*/
-/***en
-    @brief Set encoding of a font.
-
-    The mfont_set_encoding () function sets the encoding information
-    of font $FONT.
-
-    $ENCODING_NAME is a symbol representing a charset that has the
-    same encoding as the font.
-
-    $REPERTORY_NAME is @c Mnil or a symbol representing a charset that
-    has the same repertory as the font.  If it is @c Mnil, whether a
-    specific character is supported by the font is asked to each font
-    driver.
-
-    @return
-    If the operation was successful, this function returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mfont_set_encoding () ¤Ï¥Õ¥©¥ó¥È $FONT ¤Î¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¾ðÊó
-    ¤òÀßÄê¤¹¤ë¡£
-
-    $ENCODING_NAME ¤Ï¥Õ¥©¥ó¥È¤ÈÆ±¤¸¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¤ò»ý¤ÄÊ¸»ú¥»¥Ã¥È¤ò
-    ¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-
-    $REPERTORY_NAME ¤Ï @c Mnil ¤Ç¤¢¤ë¤«¡¢¥Õ¥©¥ó¥È¤ÈÆ±¤¸¥¨¥ó¥³¡¼¥Ç¥£¥ó
-    ¥°¤ò»ý¤ÄÊ¸»ú¥»¥Ã¥È¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£@c Mnil ¤Ç¤¢¤ì¤Ð¡¢¸Ä¡¹¤ÎÊ¸
-    »ú¤¬¤½¤Î¥Õ¥©¥ó¥È¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ï¡¢¥Õ¥©¥ó¥È¥É¥é¥¤¥Ð¤Ë
-    Ìä¤¤¹ç¤ï¤»¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¤³¤Î´Ø¿ô¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°
-    ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-
-int
-mfont_set_encoding (MFont *font, MSymbol encoding_name, MSymbol repertory_name)
-{
-  MCharset *encoding_charset = MCHARSET (encoding_name);
-  MCharset *repertory_charset;
-  MSymbol registry;
-  MFontEncoding *encoding;
-  MPlist *plist;
-
-  if (! encoding_charset)
-    MERROR (MERROR_FONT, -1);
-  if (repertory_name != Mnil)
-    {
-      repertory_charset = MCHARSET (repertory_name);
-      if (! repertory_charset)
-	MERROR (MERROR_FONT, -1);
-    }
-  else
-    repertory_charset = NULL;
-
-  MSTRUCT_CALLOC (encoding, MERROR_FONT);
-  encoding->spec = *font;
-  encoding->encoding_name = encoding_name;
-  encoding->encoding_charset = encoding_charset;
-  encoding->repertory_name = repertory_name;
-  encoding->repertory_charset = repertory_charset;
-  registry = FONT_PROPERTY (font, MFONT_REGISTRY);
-  if (registry == Mnil)
-    registry = Mt;
-  if (! font_encoding_list)
-    load_font_encoding_table ();
-  mplist_push (font_encoding_list, registry, encoding);
-  MPLIST_DO (plist, MPLIST_NEXT (font_encoding_list))
-    if (! memcmp (font, &((MFontEncoding *) MPLIST_VAL (plist))->spec,
-		  sizeof (MFont)))
-      {
-	mplist_pop (plist);
-	break;
-      }
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Create a fontname from a font.
-
-    This function is obsolete.   Use mfont_unparse_name instead. */
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
-
-    ¤³¤Î´Ø¿ô¤ÏÇÑ»ßÍ½Äê¤Ç¤¢¤ë¡£ mfont_unparse_name () ¤ò»ÈÍÑ¤Î¤³¤È¡£ */
-
-char *
-mfont_name (MFont *font)
-{
-  return mfont_unparse_name (font, Mx);
-}
-
-/*=*/
-
-/***en
-    @brief Create a new font from fontname.
-
-    This function is obsolete.  Use mfont_parse_name () instead.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥ÈÌ¾¤«¤é¥Õ¥©¥ó¥È¤òºî¤ë.
-
-    ¤³¤ì¤Ï´Ø¿ô¤ÏÇÑ»ßÍ½Äê¤Ç¤¢¤ë¡£ mfont_parse_name () ¤ò»ÈÍÑ¤Î¤³¤È¡£  */
-
-MFont *
-mfont_from_name (char *name)
-{
-  return mfont_parse_name (name, Mx);
-}
-
-/*** @} */
-
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{ */
-
-/***en
-    @brief Dump a font.
-
-    The mdebug_dump_font () function prints font $FONT in a human readable
-    way to the stderr.
-
-    @return
-    This function returns $FONT.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_font () ¤Ï¥Õ¥©¥ó¥È $FONT ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê
-    ·Á¤Ç°õºþ¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $FONT ¤òÊÖ¤¹¡£  */
-
-MFont *
-mdebug_dump_font (MFont *font)
-{
-  char *name;
-  
-  name = mfont_unparse_name (font, Mx);
-  if (name)
-    {
-      fprintf (stderr, "%s", name);
-      free (name);
-    }
-  return font;
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/font.h b/src/font.h
deleted file mode 100644
index 06b54b8..0000000
--- a/src/font.h
+++ /dev/null
@@ -1,277 +0,0 @@
-/* font.h -- header file for the font module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_FONT_H_
-#define _M17N_FONT_H_
-
-/** Type of font.  Now obsolete.  */
-
-enum MFontType
-  {
-    /** Fonts supproted by a window system natively.  On X Window
-	System, it is an X font.  */
-    MFONT_TYPE_WIN,
-
-    /** Fonts supported by FreeType library.  */
-    MFONT_TYPE_FT,
-
-    /** anchor */
-    MFONT_TYPE_MAX
-  };
-
-
-enum MFontProperty
-  {
-    /* The order of MFONT_FOUNDRY to MFONT_ADSTYLE must be the same as
-       enum MFaceProperty.  */
-    MFONT_FOUNDRY,
-    MFONT_FAMILY,
-    MFONT_WEIGHT,
-    MFONT_STYLE,
-    MFONT_STRETCH,
-    MFONT_ADSTYLE,
-    MFONT_REGISTRY,
-    MFONT_SIZE,
-    MFONT_RESY,
-    /* anchor */
-    MFONT_PROPERTY_MAX
-  };
-
-/** Information about a font.  This structure is used in three ways:
-    FONT-OBJ, FONT-OPENED, and FONT-SPEC.  
-
-    FONT-OBJ: To store information of an existing font.  Instances
-    appear only in  of MDisplay.
-
-    FONT-OPENED: To store information of an opened font.  Instances
-    appear only in  of MDisplay.
-
-    FONT-SPEC: To store specifications of a font.  Instances appear
-    only in  of MFontset.  */
-
-struct MFont
-{
-  /** Numeric value of each font property.  Also used as an index to
-      the table @c mfont__property_table to get the actual name of the
-      property.
-
-      For FONT-OBJ, FONT-OPENED: The value is greater than zero.
-
-      For FONT-SPEC: The value is equal to or greater than zero.  Zero
-      means that the correponding property is not specified (i.e. wild
-      card).
-
-      [MFONT_SIZE] is the size of the font in 1/10 pixels.
-
-      For FONT-OBJ: If the value is 0, the font is scalable or
-      auto-scaled.
-
-      For FONT-OPENED: The actual size of opened font.
-
-      [MFONT_RESY] is the designed resolution of the font in
-      DPI, or zero.  Zero means that the font is scalable.
-
-      For the time being, we mention only Y-resolution (resy) and
-      assume that resx is always equal to resy.  */
-  unsigned short property[MFONT_PROPERTY_MAX];
-};
-
-typedef struct
-{
-  int size, inc, used;
-  MSymbol property;
-  MSymbol *names;
-} MFontPropertyTable;
-
-extern MFontPropertyTable mfont__property_table[MFONT_REGISTRY + 1];
-
-/** Return the symbol of the Nth font property of FONT.  */
-#define FONT_PROPERTY(font, n)	\
-  mfont__property_table[(n)].names[(font)->property[(n)]]
-
-typedef struct MFontEncoding MFontEncoding;
-
-struct MRealizedFont
-{
-  /* Frame on which the font is realized.  */
-  MFrame *frame;
-
-  /* Font spec used to find the font.  */
-  MFont spec;
-
-  /* Font spec requested by a face.  */
-  MFont request;
-
-  /* The found font.  */
-  MFont font;
-
-  /* How well  matches with .  */
-  int score;
-
-  MFontDriver *driver;
-
-  /* Font Layout Table for the font.  */
-  MSymbol layouter;
-
-  /* 0: not yet tried to open
-     -1: failed to open
-     1: succeessfully opened.  */
-  int status;
-
-  /* Extra information set by ->select or ->open.  If
-     non-NULL, it must be a pointer to a managed object.  */
-  void *info;
-
-  short ascent, descent;
-
-  MFontEncoding *encoding;
-};
-
-/** Structure to hold a list of fonts of each registry.  */
-
-typedef struct
-{
-  MSymbol tag;
-  int nfonts;
-  MFont *fonts;
-} MFontList;
-
-
-struct MFontDriver
-{
-  /** Return a font satisfying REQUEST and best matching with SPEC.
-      For the moment, LIMITTED_SIZE is ignored.  */
-  MRealizedFont *(*select) (MFrame *frame, MFont *spec, MFont *request,
-			    int limitted_size);
-
-  /** Open a font specified by RFONT.  */
-  int (*open) (MRealizedFont *rfont);
-
-  /** Set metrics of glyphs in GSTRING from FROM to TO.  */
-  void (*find_metric) (MRealizedFont *rfont, MGlyphString *gstring,
-		       int from, int to);
-
-  /** Encode CODE into a glyph code the font.  CODE is a code point of
-      a character in rfont->encoder->encoding_charset.  If the font
-      has no glyph for CODE, return MCHAR_INVALID_CODE.  */
-  unsigned (*encode_char) (MRealizedFont *rfont, unsigned code);
-
-  /** Draw glyphs from FROM to TO (exclusive) on window WIN of FRAME
-      at coordinate (X, Y) relative to WIN.  */
-  void (*render) (MDrawWindow win, int x, int y,
-		  MGlyphString *gstring, MGlyph *from, MGlyph *to,
-		  int reverse, MDrawRegion region);
-};
-
-/** Initialize the members of FONT.  */
-
-#define MFONT_INIT(font) memset ((font), 0, sizeof (MFont))
-
-extern MSymbol Mlayouter;
-
-extern int mfont__flt_init ();
-
-extern void mfont__flt_fini ();
-
-#ifdef HAVE_FREETYPE
-#include 
-#include FT_FREETYPE_H
-
-#ifdef HAVE_OTF
-#include 
-#endif /* HAVE_OTF */
-
-typedef struct
-{
-  M17NObject control;
-  MFont font;
-  char *filename;
-  int otf_flag;	/* This font is OTF (1), may be OTF (0), is not OTF (-1).  */
-  MPlist *charmap_list;
-  int charmap_index;
-  FT_Face ft_face;
-#ifdef HAVE_OTF
-  OTF *otf;
-#endif /* HAVE_OTF */
-  void *extra_info;		/* Xft uses this member.  */
-} MFTInfo;
-
-extern MFontDriver mfont__ft_driver;
-
-extern int mfont__ft_init ();
-
-extern void mfont__ft_fini ();
-
-extern int mfont__ft_parse_name (char *name, MFont *font);
-
-extern char *mfont__ft_unparse_name (MFont *font);
-
-extern int mfont__ft_drive_otf (MGlyphString *gstring, int from, int to,
-				MRealizedFont *rfont,
-				MSymbol script, MSymbol langsys,
-				MSymbol gsub_features, MSymbol gpos_features);
-extern int mfont__ft_decode_otf (MGlyph *g);
-
-#endif /* HAVE_FREETYPE */
-
-extern void mfont__free_realized (MRealizedFont *rfont);
-
-extern int mfont__match_p (MFont *font, MFont *spec, int prop);
-
-extern int mfont__score (MFont *font, MFont *spec, MFont *request,
-			 int limitted_size);
-
-extern void mfont__set_spec_from_face (MFont *spec, MFace *face);
-
-extern MSymbol mfont__set_spec_from_plist (MFont *spec, MPlist *plist);
-
-extern void mfont__resize (MFont *spec, MFont *request);
-
-extern unsigned mfont__encode_char (MRealizedFont *rfont, int c);
-
-extern MRealizedFont *mfont__select (MFrame *frame, MFont *spec,
-				     MFont *request, int limitted_size,
-				     MSymbol layouter);
-
-extern int mfont__open (MRealizedFont *rfont);
-
-extern void mfont__get_metric (MGlyphString *gstring, int from, int to);
-
-extern void mfont__set_property (MFont *font, enum MFontProperty key,
-				 MSymbol val);
-
-extern int mfont__split_name (char *name, int *property_idx,
-			      unsigned short *point, unsigned short *resy);
-
-extern void mfont__set_spec (MFont *font,
-			     MSymbol attrs[MFONT_PROPERTY_MAX],
-			     unsigned short size, unsigned short resy);
-
-extern int mfont__parse_name_into_font (char *name, MSymbol format,
-					MFont *font);
-
-extern unsigned mfont__flt_encode_char (MSymbol layouter_name, int c);
-
-extern int mfont__flt_run (MGlyphString *gstring, int from, int to,
-			   MRealizedFace *rface);
-
-#endif /* _M17N_FONT_H_ */
diff --git a/src/fontset.c b/src/fontset.c
deleted file mode 100644
index 8e72f9f..0000000
--- a/src/fontset.c
+++ /dev/null
@@ -1,1129 +0,0 @@
-/* fontset.c -- fontset module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nFontset
-    @brief A fontset is an object that maps a character to fonts.
-
-    A @e fontset is an object of the type @c MFontset.  When drawing an
-    M-text, a fontset provides rules to select a font for each
-    character in the M-text according to the following information.
-
-    @li The script character property of a character.
-    @li The language text property of a character.
-    @li The charset text property of a character.
-
-    The documentation of mdraw_text () describes how that information is
-    used.  */
-
-/***ja @addtogroup m17nFontset 
-
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ÏÊ¸»ú¤«¤é¥Õ¥©¥ó¥È¤Ø¤ÎÂÐ±þÉÕ¤±¤ò¹Ô¤¦¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
-
-    @e ¥Õ¥©¥ó¥È¥»¥Ã¥È ¤Ï @c MFontset ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë¡£M-text ¤ò
-    É½¼¨¤¹¤ëºÝ¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ï M-text Ãæ¤Î¸Ä¡¹¤ÎÊ¸»ú¤ËÂÐ¤·¤Æ¤É¤Î¥Õ¥©
-    ¥ó¥È¤òÍÑ¤¤¤ë¤«¤Îµ¬Â§¤ò¡¢°Ê²¼¤Î¾ðÊó¤Ë½¾¤Ã¤ÆÍ¿¤¨¤ë¡£
-
-    @li Ê¸»ú¤ÎÊ¸»ú¥×¥í¥Ñ¥Æ¥£ "¥¹¥¯¥ê¥×¥È"
-    @li Ê¸»ú¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ "¸À¸ì"
-    @li Ê¸»ú¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ "Ê¸»ú¥»¥Ã¥È"
-
-    ¤³¤ì¤é¤Î¾ðÊó¤¬¤É¤Î¤è¤¦¤ËÍÑ¤¤¤é¤ì¤ë¤«¤Ï mdraw_text () ¤ÎÀâÌÀ¤ò»²¾È
-    ¤Î¤³¤È¡£
-
-    */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "symbol.h"
-#include "plist.h"
-#include "character.h"
-#include "charset.h"
-#include "internal-gui.h"
-#include "font.h"
-#include "fontset.h"
-
-struct MFontset
-{
-  M17NObject control;
-
-  /* Name of the fontset.  */
-  MSymbol name;
-
-  /* Initialized to 0, and incremented by one each time the fontset is
-     modified.  */
-  unsigned tick;
-
-  /* Database from which to load the contents of the fontset.  Once
-     loaded, this member is set to NULL.  */
-  MDatabase *mdb;
-
-  /* SCRIPT vs PER-LANGUAGE (which is a plist LANGUAGE vs FONT-GROUP) */
-  MPlist *per_script;
-
-  /* CHARSET vs FONT-GROUP */
-  MPlist *per_charset;
-
-  /* FONT-GROUP */
-  MPlist *fallback;
-
-  /* Plist of Mt vs font specs. */
-  MPlist *font_spec_list;
-};
-
-static MFontset *default_fontset;
-
-static MPlist *fontset_list;
-
-struct MRealizedFontset
-{
-  /* Fontset from which the realized fontset is realized.  */
-  MFontset *fontset;
-
-  /* Initialized to ->tick.  */
-  unsigned tick;
-
-  /* Font spec extracted from a face.  */
-  MFont spec;
-
-  /* The frame on which the realized fontset is realized.  */
-  MFrame *frame;
-
-  MPlist *per_script;
-
-  MPlist *per_charset;
-
-  MPlist *fallback;
-};
-
-
-static MPlist *
-load_font_group (MPlist *plist, MPlist *elt, MPlist *spec_list)
-{
-  MPLIST_DO (elt, elt)
-    {
-      /* ELT ::= ( FONT-SPEC-LIST [ LAYOUTER ] ) ...  */
-      MPlist *elt2, *p;
-      MFont font, *spec = NULL;
-      MSymbol layouter_name;
-
-      if (! MPLIST_PLIST_P (elt))
-	MWARNING (MERROR_FONTSET);
-      elt2 = MPLIST_PLIST (elt);
-      if (! MPLIST_PLIST_P (elt2))
-	MWARNING (MERROR_FONTSET);
-      mfont__set_spec_from_plist (&font, MPLIST_PLIST (elt2));
-      MPLIST_DO (p, spec_list)
-        {
-	  if (! memcmp (MPLIST_VAL (p), &font, sizeof (MFont)))
-	    {
-	      spec = MPLIST_VAL (p);
-	      break;
-	    }
-        }
-      if (! spec)
-	{
-	  MSTRUCT_MALLOC (spec, MERROR_FONTSET);
-	  *spec = font;
-	  mplist_add (spec_list, Mt, spec);
-	}
-      elt2 = MPLIST_NEXT (elt2);
-      layouter_name = Mt;
-      if (MPLIST_SYMBOL_P (elt2))
-	layouter_name = MPLIST_SYMBOL (elt2);
-      if (layouter_name == Mnil)
-	layouter_name = Mt;
-      plist = mplist_add (plist, layouter_name, spec);
-      continue;
-    warning:
-      /* ANSI-C requires some statement after a label.  */
-      continue;
-    }
-  return plist;
-}
-
-/* Load FONTSET->per_script from the data in FONTSET->mdb.  */
-
-static void
-load_fontset_contents (MFontset *fontset)
-{
-  MPlist *per_script, *per_charset, *fallback, *spec_list, *font_group;
-  MSymbol script, lang;
-  MPlist *fontset_def, *plist;
-
-  fontset->per_script = per_script = mplist ();
-  fontset->per_charset = per_charset = mplist ();
-  fontset->fallback = fallback = mplist ();
-  fontset->font_spec_list = spec_list = mplist ();
-  if (! (fontset_def = (MPlist *) mdatabase_load (fontset->mdb)))
-    return;
-
-  MPLIST_DO (plist, fontset_def)
-    {
-      /* PLIST ::= ( SCRIPT ( LANGUAGE FONT-SPEC-ELT ... ) ... )
-		   | (CHARSET FONT-SPEC-ELT ...)
-		   | FONT-SPEC-ELT  */
-      MPlist *elt;
-
-      if (! MPLIST_PLIST_P (plist))
-	MWARNING (MERROR_FONTSET);
-      elt = MPLIST_PLIST (plist);
-      if (! MPLIST_SYMBOL_P (elt))
-	MWARNING (MERROR_FONTSET);
-      script = MPLIST_SYMBOL (elt);
-      elt = MPLIST_NEXT (elt);
-      if (! MPLIST_PLIST_P (elt))
-	MWARNING (MERROR_FONTSET);
-      if (script == Mnil)
-	fallback = load_font_group (fallback, elt, spec_list);
-      else if (MPLIST_PLIST_P (MPLIST_PLIST (elt)))
-	{
-	  font_group = mplist_find_by_key (fontset->per_charset, script);
-	  if (! font_group)
-	    {
-	      font_group = mplist ();
-	      per_charset = mplist_add (per_charset, script, font_group);
-	    }
-	  load_font_group (font_group, elt, spec_list);
-	}
-      else
-	{
-	  MPlist *per_lang = mplist_find_by_key (fontset->per_script, script);
-
-	  if (! per_lang)
-	    {
-	      per_lang = mplist ();
-	      per_script = mplist_add (per_script, script, per_lang);
-	    }
-
-	  MPLIST_DO (elt, elt)
-	    {
-	      /* ELT ::= ( LANGUAGE FONT-DEF ...) ... */
-	      MPlist *elt2;
-
-	      if (! MPLIST_PLIST_P (elt))
-		MWARNING (MERROR_FONTSET);
-	      elt2 = MPLIST_PLIST (elt);
-	      if (! MPLIST_SYMBOL_P (elt2))
-		MWARNING (MERROR_FONTSET);
-	      lang = MPLIST_SYMBOL (elt2);
-	      if (lang == Mnil)
-		lang = Mt;
-	      font_group = mplist_find_by_key (per_lang, lang);
-	      if (! font_group)
-		{
-		  font_group = mplist ();
-		  mplist_add (per_lang, lang, font_group);
-		}
-	      elt2 = MPLIST_NEXT (elt2);
-	      load_font_group (font_group, elt2, spec_list);
-	    }
-	}
-      continue;
-
-    warning:
-      /* ANSI-C requires some statement after a label.  */
-      continue;
-    }
-
-  M17N_OBJECT_UNREF (fontset_def);
-  fontset->mdb = NULL;
-}
-
-static void
-free_fontset (void *object)
-{
-  MFontset *fontset = (MFontset *) object;
-  MPlist *plist, *pl, *p;
-
-  if (fontset->per_script)
-    {
-      MPLIST_DO (plist, fontset->per_script)
-	{
-	  MPLIST_DO (pl, MPLIST_PLIST (plist))
-	    {
-	      p = MPLIST_PLIST (pl);
-	      M17N_OBJECT_UNREF (p);
-	    }
-	  pl = MPLIST_PLIST (plist);
-	  M17N_OBJECT_UNREF (pl);
-	}
-      M17N_OBJECT_UNREF (fontset->per_script);
-    }
-  if (fontset->per_charset)
-    {
-      MPLIST_DO (plist, fontset->per_charset)
-	{
-	  pl = MPLIST_PLIST (plist);
-	  M17N_OBJECT_UNREF (pl);
-	}
-      M17N_OBJECT_UNREF (fontset->per_charset);
-    }
-  if (fontset->fallback)
-    M17N_OBJECT_UNREF (fontset->fallback);
-  plist = mplist_find_by_key (fontset_list, fontset->name);
-  if (! plist)
-    mdebug_hook ();
-  mplist_pop (plist);
-  if (fontset->font_spec_list)
-    {
-      if (((M17NObject *) (fontset->font_spec_list))->ref_count == 1)
-	MPLIST_DO (plist, fontset->font_spec_list)
-	  free (MPLIST_VAL (plist));
-      M17N_OBJECT_UNREF (fontset->font_spec_list);
-    }
-  free (object);
-}
-
-static void
-realize_font_group (MFrame *frame, MFont *request, MPlist *font_group,
-		    int size)
-{
-  MPlist *plist = MPLIST_VAL (font_group), *pl, *p;
-
-  mplist_set (font_group, Mnil, NULL);
-  MPLIST_DO (pl, plist)
-    {
-      MSymbol layouter = MPLIST_KEY (pl);
-      MFont this_request = *request;
-      MRealizedFont *rfont;
-
-      mfont__resize (MPLIST_VAL (pl), &this_request);
-      rfont = mfont__select (frame, MPLIST_VAL (pl), &this_request,
-			     size, layouter == Mt ? Mnil : layouter);
-
-      if (rfont)
-	{
-	  MPLIST_DO (p, font_group)
-	    if (((MRealizedFont *) (MPLIST_VAL (p)))->score > rfont->score)
-	      break;
-	  mplist_push (p, Mt, rfont);
-	}
-    }
-}
-
-static void
-realize_fontset_elements (MFrame *frame, MRealizedFontset *realized,
-			  MFontset *fontset, MFont *request)
-{
-  MPlist *per_script, *per_lang, *per_charset, *font_group;
-  MPlist *plist, *pl;
-
-  realized->fontset = fontset;
-  realized->tick = fontset->tick;
-  realized->spec = *request;
-  realized->frame = frame;
-  realized->per_script = per_script = mplist ();
-  MPLIST_DO (plist, fontset->per_script)
-    {
-      per_lang = mplist ();
-      per_script = mplist_add (per_script, MPLIST_KEY (plist), per_lang);
-      MPLIST_DO (pl, MPLIST_PLIST (plist))
-	{
-	  font_group = mplist ();
-	  mplist_add (font_group, Mplist, MPLIST_VAL (pl));
-	  per_lang = mplist_add (per_lang, MPLIST_KEY (pl), font_group);
-	}
-    }
-
-  realized->per_charset = per_charset = mplist ();
-  MPLIST_DO (plist, fontset->per_charset)
-    {
-      font_group = mplist ();
-      mplist_add (font_group, Mplist, MPLIST_VAL (plist));
-      per_charset = mplist_add (per_charset, MPLIST_KEY (plist), font_group);
-    }
-
-  realized->fallback = mplist ();
-  mplist_add (realized->fallback, Mplist, fontset->fallback);
-
-}
-
-static void
-free_realized_fontset_elements (MRealizedFontset *realized)
-{
-  MPlist *plist, *pl, *p;
-  MRealizedFont *rfont;
-
-  if (realized->per_script)
-    {
-      MPLIST_DO (plist, realized->per_script)
-	{
-	  MPLIST_DO (pl, MPLIST_PLIST (plist))
-	    {
-	      MPLIST_DO (p, MPLIST_PLIST (pl))
-		if ((rfont = MPLIST_VAL (p)) && ! rfont->frame)
-		  free (rfont);
-	      p = MPLIST_PLIST (pl);
-	      M17N_OBJECT_UNREF (p);
-	    }
-	  pl = MPLIST_PLIST (plist);
-	  M17N_OBJECT_UNREF (pl);
-	}
-      M17N_OBJECT_UNREF (realized->per_script);
-    }
-  if (realized->per_charset)
-    {
-      MPLIST_DO (plist, realized->per_charset)
-	{
-	  MPLIST_DO (pl, MPLIST_PLIST (plist))
-	    if ((rfont = MPLIST_VAL (pl)) && ! rfont->frame)
-	      free (rfont);
-	  pl = MPLIST_PLIST (plist);
-	  M17N_OBJECT_UNREF (pl);
-	}
-      M17N_OBJECT_UNREF (realized->per_charset);
-    }
-  if (realized->fallback)
-    {
-      MPLIST_DO (plist, realized->fallback)
-	if ((rfont = MPLIST_VAL (plist)) && ! rfont->frame)
-	  free (rfont);
-      M17N_OBJECT_UNREF (realized->fallback);
-    }
-}
-
-static void
-update_fontset_elements (MRealizedFontset *realized)
-{
-  free_realized_fontset_elements (realized);
-  realize_fontset_elements (realized->frame, realized, realized->fontset,
-			    &realized->spec);
-}
-
-
-
-
-/* Internal API */
-
-int
-mfont__fontset_init ()
-{
-  Mfontset = msymbol ("fontset");
-  Mfontset->managing_key = 1;
-  fontset_list = mplist ();
-  default_fontset = mfontset ("default");
-  if (! default_fontset->mdb)
-    {
-      MFont font;
-
-      MFONT_INIT (&font);
-      mfont_put_prop (&font, Mregistry, msymbol ("iso8859-1"));
-      mfontset_modify_entry (default_fontset, Mnil, Mnil, Mnil,
-			     &font, Mnil, 1);
-      mfont_put_prop (&font, Mregistry, msymbol ("iso10646-1"));
-      mfontset_modify_entry (default_fontset, Mnil, Mnil, Mnil,
-			     &font, Mnil, 1);
-    }
-  return 0;
-}
-
-
-void
-mfont__fontset_fini ()
-{
-  while (! MPLIST_TAIL_P (fontset_list))
-    free_fontset ((MFontset *) MPLIST_VAL (fontset_list));
-  M17N_OBJECT_UNREF (fontset_list);
-  fontset_list = NULL;
-}
-
-
-MRealizedFontset *
-mfont__realize_fontset (MFrame *frame, MFontset *fontset, MFace *face)
-{
-  MRealizedFontset *realized;
-  MFont request;
-  MPlist *plist;
-
-  if (fontset->mdb)
-    load_fontset_contents (fontset);
-
-  mfont__set_spec_from_face (&request, face);
-  if (request.property[MFONT_SIZE] <= 0)
-    {
-      mdebug_hook ();
-      request.property[MFONT_SIZE] = 120;
-    }
-  MPLIST_DO (plist, frame->realized_fontset_list)
-    {
-      realized = (MRealizedFontset *) MPLIST_VAL (plist);
-      if (fontset->name == MPLIST_KEY (plist)
-	  && ! memcmp (&request, &realized->spec, sizeof (request)))
-	return realized;
-    }
-
-  MSTRUCT_MALLOC (realized, MERROR_FONTSET);
-  realize_fontset_elements (frame, realized, fontset, &request);
-  mplist_add (frame->realized_fontset_list, fontset->name, realized);
-  return realized;
-}
-
-
-void
-mfont__free_realized_fontset (MRealizedFontset *realized)
-{
-  free_realized_fontset_elements (realized);
-  free (realized);
-}
-
-
-MRealizedFont *
-mfont__lookup_fontset (MRealizedFontset *realized, MGlyph *g, int *num,
-		       MSymbol script, MSymbol language, MSymbol charset,
-		       int size)
-{
-  MFrame *frame = realized->frame;
-  MCharset *preferred_charset = (charset == Mnil ? NULL : MCHARSET (charset));
-  MPlist *per_charset, *per_script, *per_lang;
-  MPlist *font_groups[256], *plist;
-  int n_font_group = 0;
-  MRealizedFont *rfont;
-  int i;
-
-  if (realized->tick != realized->fontset->tick)
-    update_fontset_elements (realized);
-
-  if (preferred_charset
-      && (per_charset = mplist_get (realized->per_charset, charset)) != NULL)
-    font_groups[n_font_group++] = per_charset;
-  if (script != Mnil
-      && ((per_script = mplist_find_by_key (realized->per_script, script))
-	  != NULL))
-    {
-      /* We prefer font groups in this order:
-	  (1) group matching LANGUAGE
-	  (2) group for generic LANGUAGE
-	  (3) group non-matching LANGUAGE  */
-      if (language == Mnil)
-	language = Mt;
-      per_lang = mplist_find_by_key (MPLIST_PLIST (per_script), language);
-      if (per_lang)
-	{
-	  font_groups[n_font_group++] = MPLIST_PLIST (per_lang);
-	  if (language == Mt)
-	    {
-	      MPLIST_DO (per_lang, MPLIST_PLIST (per_script))
-		if (MPLIST_KEY (per_lang) != language)
-		  font_groups[n_font_group++] = MPLIST_PLIST (per_lang);
-	    }
-	}
-      if (language != Mt)
-	{
-	  plist = mplist_get (MPLIST_PLIST (per_script), Mt);
-	  if (plist)
-	    font_groups[n_font_group++] = plist;
-	}
-      MPLIST_DO (per_lang, MPLIST_PLIST (per_script))
-	if (MPLIST_KEY (per_lang) != language
-	    && MPLIST_KEY (per_lang) != Mt)
-	  font_groups[n_font_group++] = MPLIST_PLIST (per_lang);
-    }
-  font_groups[n_font_group++] = realized->fallback;
-
-  if (n_font_group == 1)
-    {
-      /* As we only have a fallback font group, try all the other
-	 fonts too.  */
-      MPLIST_DO (per_script, realized->per_script)
-	MPLIST_DO (per_lang, MPLIST_PLIST (per_script))
-	  font_groups[n_font_group++] = MPLIST_PLIST (per_lang);
-      MPLIST_DO (per_charset, realized->per_charset)
-	font_groups[n_font_group++] = MPLIST_PLIST (per_charset);
-    }
-
-  for (i = 0; i < n_font_group; i++)
-    {
-      int j;
-      
-      if (MPLIST_PLIST_P (font_groups[i]))
-	realize_font_group (frame, &realized->spec, font_groups[i], size);
-
-      MPLIST_DO (plist, font_groups[i])
-        {
-	  rfont = (MRealizedFont *) MPLIST_VAL (plist);
-	  if (rfont->status < 0)
-	    continue;
-	  /* Check if this font can display all glyphs.  */
-	  for (j = 0; j < *num; j++)
-	    {
-	      g[j].code = mfont__encode_char (rfont, g[j].c);
-	      if (g[j].code == MCHAR_INVALID_CODE)
-		break;
-	    }
-	  if (j == *num)
-	    {
-	      if (rfont->status > 0
-		  || mfont__open (rfont) == 0)
-		/* We found a font that can display all glyphs.  */
-		break;
-	    }
-	}
-      if (! MPLIST_TAIL_P (plist))
-	break;
-    }
-
-  if (i < n_font_group) 
-    return rfont;
-
-  /* We couldn't find a font that can display all glyphs.  Find one
-     that can display at least the first glyph.  */
-  for (i = 0; i < n_font_group; i++)
-    {
-      MPLIST_DO (plist, font_groups[i])
-	{
-	  rfont = (MRealizedFont *) MPLIST_VAL (plist);
-	  if (rfont->status < 0)
-	    continue;
-	  g->code = mfont__encode_char (rfont, g->c);
-	  if (g->code != MCHAR_INVALID_CODE)
-	    {
-	      if (rfont->status > 0
-		  || mfont__open (rfont) == 0)
-		break;
-	    }
-	}
-      if (! MPLIST_TAIL_P (plist))
-	break;
-    }
-  return (i < n_font_group ? rfont : NULL);
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nFontset */
-/*** @{ */
-
-/*=*/
-/***en
-    @brief Return a fontset.
-
-    The mfontset () function returns a pointer to a fontset object of
-    name $NAME.  If $NAME is @c NULL, it returns a pointer to the
-    default fontset.
-
-    If no fontset has the name $NAME, a new one is created.  At that
-    time, if there exists a data \<@c fontset, $NAME\> in the m17n
-    database, the fontset contents are initialized according to the
-    data.  If no such data exists, the fontset contents are left
-    vacant.
-
-    The macro M17N_INIT () creates the default fontset.  An
-    application program can modify it before the first call of 
-    mframe ().
-
-    @return
-    This function returns a pointer to the found or newly created
-    fontset.  */
-/***ja 
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤òÊÖ¤¹.
-
-    ´Ø¿ô mfontset () ¤ÏÌ¾Á° $NAME ¤ò»ý¤Ä¥Õ¥©¥ó¥È¥»¥Ã¥È¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î
-    ¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£ $NAME ¤¬ @c NULL ¤Ê¤é¤Ð¡¢¥Ç¥Õ¥©¥ë¥È¥Õ¥©¥ó¥È¥»¥Ã¥È
-    ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
-    $NAME ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥Õ¥©¥ó¥È¥»¥Ã¥È¤¬¤Ê¤±¤ì¤Ð¡¢¿·¤·¤¤¤â¤Î¤¬ºî¤é¤ì
-    ¤ë¡£¤½¤ÎºÝ¡¢m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë \<@c fontset, $NAME\> ¤È¤¤¤¦¥Ç¡¼¥¿
-    ¤¬¤¢¤ì¤Ð¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ï¤½¤Î¥Ç¡¼¥¿¤Ë±è¤Ã¤Æ½é´ü²½¤µ¤ì¤ë¡£¤Ê¤±¤ì¤Ð¡¢
-    ¶õ¤Î¤Þ¤Þ¤Ë¤µ¤ì¤ë¡£
-
-    ¥Þ¥¯¥í M17N_INIT () ¤Ï¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¥»¥Ã¥È¤òºî¤ë¡£¥¢¥×¥ê¥±¡¼
-    ¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï mframe () ¤ò½é¤á¤Æ¸Æ¤Ö¤Þ¤Ç¤Ï¥Ç¥Õ¥©¥ë¥È¥Õ¥©¥ó¥È
-    ¥»¥Ã¥È¤òÊÑ¹¹¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¸«¤Ä¤«¤Ã¤¿¡¢¤¢¤ë¤¤¤Ïºî¤Ã¤¿¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-     */
-
-MFontset *
-mfontset (char *name)
-{
-  MSymbol sym;
-  MFontset *fontset;
-
-  if (! name)
-    fontset = default_fontset;
-  else
-    {
-      sym = msymbol (name);
-      fontset = mplist_get (fontset_list, sym);
-      if (! fontset)
-	{
-	  M17N_OBJECT (fontset, free_fontset, MERROR_FONTSET);
-	  fontset->name = sym;
-	  fontset->mdb = mdatabase_find (Mfontset, sym, Mnil, Mnil);
-	  if (! fontset->mdb)
-	    {
-	      fontset->per_script = mplist ();
-	      fontset->per_charset = mplist ();
-	      fontset->fallback = mplist ();
-	    }
-	  mplist_put (fontset_list, sym, fontset);
-	}
-    }
-  M17N_OBJECT_REF (fontset);
-  return fontset;
-}
-
-/*=*/
-
-/***en
-    @brief Return the name of a fontset.
-
-    The mfontset_name () function returns the name of fontset $FONTSET.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ÎÌ¾Á°¤òÊÖ¤¹.
-
-    ´Ø¿ô mfontset_name () ¤Ï¥Õ¥©¥ó¥È¥»¥Ã¥È $FONTSET ¤ÎÌ¾Á°¤òÊÖ¤¹¡£  */
-MSymbol
-mfontset_name (MFontset *fontset)
-{
-  return fontset->name;
-}
-
-/*=*/
-
-/***en
-    @brief Make a copy of a fontset.
-
-    The mfontset_copy () function makes a copy of fontset $FONTSET, gives it a
-    name $NAME, and returns a pointer to the created copy.  $NAME must
-    not be a name of existing fontset.  In such case, this function
-    returns NULL without making a copy.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤Î¥³¥Ô¡¼¤òºî¤ë.
-
-    ´Ø¿ô mfontset_copy () ¤Ï¥Õ¥©¥ó¥È¥»¥Ã¥È $FONTSET ¤Î¥³¥Ô¡¼¤òºî¤Ã¤Æ¡¢
-    Ì¾Á° $NAME ¤òÍ¿¤¨¡¢¤½¤Î¥³¥Ô¡¼¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£$NAME ¤Ï´ûÂ¸¤Î
-    ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ÎÌ¾Á°¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤½¤Î¾ì¹ç¤Ë¤Ï¥³¥Ô¡¼¤òºî¤é¤º
-    NULL ¤òÊÖ¤¹¡£  */
-
-MFontset *
-mfontset_copy (MFontset *fontset, char *name)
-{
-  MSymbol sym = msymbol (name);
-  MFontset *copy = mplist_get (fontset_list, sym);
-  MPlist *plist, *pl;
-
-  if (copy)
-    return NULL;
-  M17N_OBJECT (copy, free_fontset, MERROR_FONTSET);
-  copy->name = sym;
-
-  if (fontset->per_script)
-    {
-      copy->per_script = mplist ();
-      MPLIST_DO (plist, fontset->per_script)
-        {
-	  MPlist *new = mplist ();
-
-	  MPLIST_DO (pl, MPLIST_PLIST (plist))
-	    mplist_add (new, MPLIST_KEY (pl), mplist_copy (MPLIST_PLIST (pl)));
-	  mplist_add (copy->per_script, MPLIST_KEY (plist), new);
-	}
-    }
-  if (fontset->per_charset)
-    {
-      copy->per_charset = mplist ();
-      MPLIST_DO (plist, fontset->per_charset)
-	mplist_add (copy->per_charset, MPLIST_KEY (plist),
-		    mplist_copy (MPLIST_PLIST (plist)));
-    }
-  if (fontset->fallback)
-    copy->fallback = mplist_copy (fontset->fallback);
-
-  copy->font_spec_list = fontset->font_spec_list;
-  M17N_OBJECT_REF (copy->font_spec_list);
-
-  mplist_put (fontset_list, sym, copy);
-  M17N_OBJECT_REF (copy);
-  return copy;
-}
-
-/*=*/
-
-/***en
-    @brief Modify the contents of a fontset.
-
-    The mfontset_modify_entry () function associates, in fontset
-    $FONTSET, a copy of $FONT with the $SCRIPT / $LANGUAGE pair or
-    with $CHARSET.
-
-    Each font in a fontset is associated with a particular
-    script/language pair, with a particular charset, or with the
-    symbol @c Mnil.  The fonts that are associated with the same item
-    make a group.
-
-    If $SCRIPT is not @c Mnil, it must be a symbol identifying a
-    script.  In this case, $LANGUAGE is either a symbol identifying a
-    language or @c Mnil, and $FONT is associated with the $SCRIPT /
-    $LANGUAGE pair.
-
-    If $CHARSET is not @c Mnil, it must be a symbol representing a
-    charset object.  In this case, $FONT is associated with that
-    charset.
-
-    If both $SCRIPT and $CHARSET are not @c Mnil, two copies of $FONT
-    are created.  Then one is associated with the $SCRIPT / $LANGUAGE
-    pair and the other with that charset.
-
-    If both $SCRIPT and $CHARSET are @c Mnil, $FONT is associated with
-    @c Mnil.  This kind of fonts are called @e fallback @e fonts.
-
-    The argument $HOW specifies the priority of $FONT.  If $HOW is
-    positive, $FONT has the highest priority in the group of fonts
-    that are associated with the same item.  If $HOW is negative,
-    $FONT has the lowest priority.  If $HOW is zero, $FONT becomes the
-    only available font for the associated item; all the other fonts
-    are removed from the group.
-
-    If $LAYOUTER_NAME is not @c Mnil, it must be a symbol
-    representing a @ref flt.  In that case, if $FONT is selected for
-    drawing an M-text, that font layout table is used to generate a
-    glyph code sequence from a character sequence.
-
-    @return
-    If the operation was successful, mfontset_modify_entry () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ÎÆâÍÆ¤òÊÑ¹¹¤¹¤ë.
-
-    ´Ø¿ô mfontset_modify_entry () ¤Ï¡¢$LANGUAGE ¤È $SCRIPT ¤ÎÁÈ¤ß¹ç¤ï
-    ¤»¤Þ¤¿¤Ï $CHARSET ¤ËÂÐ¤·¤Æ $FONT ¤Î¥³¥Ô¡¼¤ò»È¤¦¤è¤¦¤Ë¡¢¥Õ¥©¥ó¥È¥»¥Ã
-    ¥È $FONTSET ¤òÀßÄê¤¹¤ë¡£
-
-    ¥Õ¥©¥ó¥È¥»¥Ã¥È¤Î³Æ¥Õ¥©¥ó¥È¤Ï¡¢ÆÃÄê¤Î¥¹¥¯¥ê¥×¥È¤È¸À¸ì¤Î¥Ú¥¢¡¢ÆÃÄê¤Î
-    Ê¸»ú¥»¥Ã¥È¡¢¥·¥ó¥Ü¥ë @c Mnil ¤Î¤¤¤º¤ì¤«¤È´ØÏ¢ÉÕ¤±¤é¤ì¤Æ¤¤¤ë¡£Æ±¤¸
-    ¤â¤Î¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥Õ¥©¥ó¥È¤Ï¥°¥ë¡¼¥×¤ò¹½À®¤¹¤ë¡£
-
-    $SCRIPT ¤Ï @c Mnil ¤Ç¤¢¤ë¤«¡¢¥¹¥¯¥ê¥×¥È¤òÆÃÄê¤¹¤ë¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-    ¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢$LANGUAGE ¤Ï¸À¸ì¤òÆÃÄê¤¹¤ë¥·¥ó¥Ü¥ë¤« @c
-    Mnil ¤Ç¤¢¤ê¡¢$FONT ¤Ïthe $SCRIPT / $LANGUAGE ¥Ú¥¢¤Ë´ØÏ¢ÉÕ¤±¤é¤ì¤ë¡£
-
-    $CHARSET ¤Ï @c Mnil ¤Ç¤¢¤ë¤«¡¢Ê¸»ú¥»¥Ã¥È¥ª¥Ö¥¸¥§¥¯¥È¤òÉ½¤¹¥·¥ó¥Ü¥ë
-    ¤Ç¤¢¤ë¡£¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¾ì¹ç¤Ë¤Ï $FONT ¤Ï¤½¤ÎÊ¸»ú¥»¥Ã¥È¤È´ØÏ¢ÉÕ¤±¤é¤ì
-    ¤ë¡£
-
-    $SCRIPT ¤È $CHARSET ¤ÎÁÐÊý¤¬ @c Mnil ¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Ï $FONT ¤Î¥³¥Ô¡¼
-    ¤¬£²¤Äºî¤é¤ì¡¢¤½¤ì¤¾¤ì $SCRIPT / $LANGUAGE ¥Ú¥¢¤ÈÊ¸»ú¥»¥Ã¥È¤Ë´ØÏ¢
-    ÉÕ¤±¤é¤ì¤ë¡£
-
-    $SCRIPT ¤È $CHARSET ¤ÎÁÐÊý¤¬ @c Mnil ¤Ê¤é¤Ð¡¢ $FONT ¤Ï @c Mnil ¤È
-    ´ØÏ¢ÉÕ¤±¤é¤ì¤ë¡£¤³¤Î¼ï¤Î¥Õ¥©¥ó¥È¤Ï @e fallback @e font ¤È¸Æ¤Ð¤ì¤ë¡£
-
-    °ú¿ô $HOW ¤Ï $FONT ¤ÎÍ¥ÀèÅÙ¤ò»ØÄê¤¹¤ë¡£$HOW ¤¬Àµ¤Ê¤é¤Ð¡¢$FONT ¤ÏÆ±
-    ¤¸¤â¤Î¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥°¥ë¡¼¥×Ãæ¤ÇºÇ¹â¤ÎÍ¥ÀèÅÙ¤ò»ý¤Ä¡£$HOW ¤¬Éé¤Ê
-    ¤é¤Ð¡¢ºÇÄã¤ÎÍ¥ÀèÅÙ¤ò»ý¤Ä¡£$HOW ¤¬ 0 ¤Ê¤é¤Ð¡¢$FONT ¤Ï´ØÏ¢ÉÕ¤±¤é¤ì¤¿
-    ¤â¤Î¤ËÂÐ¤¹¤ëÍ£°ì¤ÎÍøÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤È¤Ê¤ê¡¢Â¾¤Î¥Õ¥©¥ó¥È¤Ï¥°¥ë¡¼¥×
-    ¤«¤é¼è¤ê½ü¤«¤ì¤ë¡£
-
-    $LAYOUTER_NAME ¤Ï @c Mnil ¤Ç¤¢¤ë¤«¡¢@ref flt ¤ò¼¨¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£
-    ¥·¥ó¥Ü¥ë¤Ç¤¢¤ì¤Ð¡¢$FONT ¤òÍÑ¤¤¤ÆM-text ¤òÉ½¼¨¤¹¤ëºÝ¤Ë¤Ï¡¢¤½¤Î FONT
-    LAYOUT TABLE ¤ò»È¤Ã¤ÆÊ¸»úÎó¤«¤é¥°¥ê¥Õ¥³¡¼¥ÉÎó¤òÀ¸À®¤¹¤ë¡£
-
-    @return 
-    ½èÍý¤¬À®¸ù¤·¤¿¤È¤¡¢mfontset_modify_entry () ¤Ï 0 ¤òÊÖ¤¹¡£
-    ¼ºÇÔ¤·¤¿¤È¤¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤ò
-    ÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_SYMBOL  */
-
-int
-mfontset_modify_entry (MFontset *fontset,
-		       MSymbol script, MSymbol language, MSymbol charset,
-		       MFont *spec, MSymbol layouter_name,
-		       int how)
-{
-  MPlist *per_lang, *plist[3], *pl;
-  MFont *font = NULL;
-  int i;
-
-  if (fontset->mdb)
-    load_fontset_contents (fontset);
-
-  if (! fontset->font_spec_list)
-    fontset->font_spec_list = mplist ();
-  else
-    MPLIST_DO (pl, fontset->font_spec_list)
-      {
-	if (! memcmp (MPLIST_VAL (pl), spec, sizeof (MFont)))
-	  {
-	    font = MPLIST_VAL (pl);
-	    break;
-	  }
-      }
-  if (! font)
-    {
-      font = mfont ();
-      *font = *spec;
-      mplist_add (fontset->font_spec_list, Mt, font);
-    }
-
-  i = 0;
-  if (script != Mnil)
-    {
-      if (language == Mnil)
-	language = Mt;
-      per_lang = mplist_get (fontset->per_script, script);
-      if (! per_lang)
-	mplist_add (fontset->per_script, script, per_lang = mplist ());
-      plist[i] = mplist_get (per_lang, language);
-      if (! plist[i])
-	mplist_add (per_lang, language, plist[i] = mplist ());
-      i++;
-    }
-  if (charset != Mnil)
-    {
-      plist[i] = mplist_get (fontset->per_charset, charset);
-      if (! plist[i])
-	mplist_add (fontset->per_charset, charset, plist[i] = mplist ());
-      i++;
-    }
-  if (script == Mnil && charset == Mnil)
-    {
-      plist[i++] = fontset->fallback;
-    }
-
-  if (layouter_name == Mnil)
-    layouter_name = Mt;
-  for (i--; i >= 0; i--)
-    {
-      if (how == -1)
-	mplist_push (plist[i], layouter_name, font);
-      else if (how == 1)
-	mplist_add (plist[i], layouter_name, font);
-      else
-	{
-	  mplist_set (plist[i], Mnil, NULL);
-	  mplist_add (plist[i], layouter_name, font);
-	}
-    }
-
-  fontset->tick++;
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Lookup a fontset.
-
-    The mfontset_lookup () function lookups $FONTSET and returns a
-    plist that describes the contents of $FONTSET corresponding to the
-    specified script, language, and charset.
-
-    If $SCRIPT is @c Mt, keys of the returned plist are script name
-    symbols for which some fonts are specified and values are NULL.
-
-    If $SCIRPT is a script symbol, the returned plist is decided by
-    $LANGUAGE.
-
-    If $LANGUAGE is @c Mt, keys of the plist are language name symbols
-    for which some fonts are specified and values are NULL.  A key may
-    be @c Mt which means some fallback fonts are specified for the
-    script.
-
-    If $LANGUAGE is a language name symbol, the plist is a @c
-    FONT-GROUP for the specified script and langauge.
-
-    If $LANGAUGE is @c Mt, the plist is fallback @c FONT-GROUP for the
-    script.
-
-    If $SCRIPT is @c Mnil, the returned plist is decided as below.
-
-    If $CHARSET is @c Mt, keys of the returned plist are charset name
-    symbols for which some fonts are specified and values are NULL.
-
-    If $CHARSET is a charset symbol, the plist is a @c FONT-GROUP for
-    the charset.
-
-    If $CHARSET is @c Mnil, the plist is a fallback @c FONT-GROUP.
-
-    @c FONT-GROUP is a plist whose keys are FLT name symbols (@c Mt if
-    no FLT is associated with the font) and values are pointers to
-    #MFont.
-
-    @return
-    It returns a plist describing the contents of a fontset.  The
-    plist should be freed by m17n_object_unref ().  */
-
-MPlist *
-mfontset_lookup (MFontset *fontset,
-		 MSymbol script, MSymbol language, MSymbol charset)
-{
-  MPlist *plist = mplist (), *pl, *p;
-
-  if (fontset->mdb)
-    load_fontset_contents (fontset);
-  if (script == Mt)
-    {
-      if (! fontset->per_script)
-	return plist;
-      p = plist;
-      MPLIST_DO (pl, fontset->per_script)
-	p = mplist_add (p, MPLIST_KEY (pl), NULL);
-      return plist;
-    }
-  if (script != Mnil)
-    {
-      if (! fontset->per_script)
-	return plist;
-      pl = mplist_get (fontset->per_script, script);
-      if (! pl)
-	return plist;
-      if (language == Mt)
-	{
-	  p = plist;
-	  MPLIST_DO (pl, pl)
-	    p = mplist_add (p, MPLIST_KEY (pl), NULL);
-	  return plist;
-	}
-      if (language == Mnil)
-	language = Mt;
-      pl = mplist_get (pl, language);
-    }
-  else if (charset != Mnil)
-    {
-      if (! fontset->per_charset)
-	return plist;
-      if (charset == Mt)
-	{
-	  p = plist;
-	  MPLIST_DO (pl, fontset->per_charset)
-	    p = mplist_add (p, MPLIST_KEY (pl), NULL);
-	  return plist;
-	}
-      pl = mplist_get (fontset->per_charset, charset);
-    }
-  else
-    pl = fontset->fallback;
-  if (! pl)
-    return plist;
-  return mplist_copy (pl);
-}
-
-
-/*** @} */
-
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{  */
-
-/***en
-    @brief Dump a fontset.
-
-    The mdebug_dump_fontset () function prints fontset $FONTSET in a human readable
-    way to the stderr.  $INDENT specifies how many columns to indent
-    the lines but the first one.
-
-    @return
-    This function returns $FONTSET.  */
-/***ja
-    @brief ¥Õ¥©¥ó¥È¥»¥Ã¥È¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_face () ¤Ï¥Õ¥©¥ó¥È¥»¥Ã¥È $FONTSET ¤ò stderr ¤Ë¿Í
-    ´Ö¤Ë²ÄÆÉ¤Ê·Á¤Ç°õºþ¤¹¤ë¡£ $INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹
-    ¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $FONTSET ¤òÊÖ¤¹¡£  */
-
-MFontset *
-mdebug_dump_fontset (MFontset *fontset, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MPlist *plist, *pl, *p;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(fontset %s", fontset->name->name);
-  if (fontset->per_script)
-    MPLIST_DO (plist, fontset->per_script)
-      {
-	fprintf (stderr, "\n  %s(%s", prefix, MPLIST_KEY (plist)->name);
-	MPLIST_DO (pl, MPLIST_PLIST (plist))
-	  {
-	    fprintf (stderr, "\n    %s(%s", prefix, MPLIST_KEY (pl)->name);
-	    MPLIST_DO (p, MPLIST_PLIST (pl))
-	      {
-		fprintf (stderr, "\n      %s(%s ", prefix,
-			 MPLIST_KEY (p)->name);
-		mdebug_dump_font (MPLIST_VAL (p));
-		fprintf (stderr, ")");
-	      }
-	    fprintf (stderr, ")");
-	  }
-	fprintf (stderr, ")");
-      }
-  if (fontset->per_charset)
-    MPLIST_DO (pl, fontset->per_charset)
-      {
-	fprintf (stderr, "\n  %s(%s", prefix, MPLIST_KEY (pl)->name);
-	MPLIST_DO (p, MPLIST_PLIST (pl))
-	  {
-	    fprintf (stderr, "\n    %s(%s ", prefix, MPLIST_KEY (p)->name);
-	    mdebug_dump_font (MPLIST_VAL (p));
-	    fprintf (stderr, ")");
-	  }
-	fprintf (stderr, ")");
-      }
-
-  if (fontset->fallback)
-    MPLIST_DO (p, fontset->fallback)
-      {
-	fprintf (stderr, "\n  %s(%s ", prefix, MPLIST_KEY (p)->name);
-	mdebug_dump_font (MPLIST_VAL (p));
-	fprintf (stderr, ")");
-      }
-
-  fprintf (stderr, ")");
-  return fontset;
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/fontset.h b/src/fontset.h
deleted file mode 100644
index 872650a..0000000
--- a/src/fontset.h
+++ /dev/null
@@ -1,37 +0,0 @@
-/* fontset.h -- header file for the fontset module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_FONTSET_H_
-#define _M17N_FONTSET_H_
-
-extern MRealizedFontset *mfont__realize_fontset (MFrame *frame,
-						 MFontset *fontset,
-						 MFace *face);
-
-void mfont__free_realized_fontset (MRealizedFontset *realized);
-
-extern MRealizedFont *mfont__lookup_fontset (MRealizedFontset *realized,
-					     MGlyph *g, int *num,
-					     MSymbol script, MSymbol language,
-					     MSymbol charset, int size);
-
-#endif /* _M17N_FONTSET_H_ */
diff --git a/src/input-gui.c b/src/input-gui.c
deleted file mode 100644
index 60ebcc8..0000000
--- a/src/input-gui.c
+++ /dev/null
@@ -1,741 +0,0 @@
-/* input-gui.c -- gui-based input method module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nInputMethodWin
-    @brief Input method support on window systems.
-
-    The input driver @c minput_gui_driver is provided for internal
-    input methods that is useful on window systems.  It displays
-    preedit text and status text at the inputting spot.  See the
-    documentation of @c minput_gui_driver for more details.
-
-    In the m17n-X library, the foreign input method of name @c Mxim is
-    provided.  It uses XIM (X Input Method) as a background input
-    engine.  The symbol @c Mxim has a property @c Minput_driver whose
-    value is a pointer to the input driver @c minput_xim_driver.  See
-    the documentation of @c minput_xim_driver for more details.  */
-
-/***ja
-    @addtogroup m17nInputMethodWin
-    @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Î¥µ¥Ý¡¼¥È.
-
-    ÆþÎÏ¥É¥é¥¤¥Ð @c minput_gui_driver ¤Ï¡¢¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤ÇÍÑ¤¤¤é
-    ¤ì¤ëÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥É¥é¥¤¥Ð¤ÏÆþÎÏ¥¹¥Ý¥Ã¥È¤Ë preedit 
-    ¥Æ¥¥¹¥È¤È status ¥Æ¥¥¹¥È¤òÉ½¼¨¤¹¤ë¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï @c
-    minput_gui_driver ¤ÎÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
-
-    m17n-X ¥é¥¤¥Ö¥é¥ê¤Ï¡¢@c Mxim ¤È¸À¤¦Ì¾Á°¤ò»ý¤Ä³°ÉôÆþÎÏ¥á¥½¥Ã¥É¤òÄó
-    ¶¡¤·¤Æ¤¤¤ë¡£¤³¤ì¤Ï XIM (X Input Method) ¤ò¥Ð¥Ã¥¯¥°¥é¥¦¥ó¥É¤ÎÆþÎÏ¥¨
-    ¥ó¥¸¥ó¤È¤·¤ÆÍøÍÑ¤¹¤ë¡£¥·¥ó¥Ü¥ë @c Mxim ¤Ï @c Minput_driver ¤È¤¤¤¦
-    ¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ã¤Æ¤ª¤ê¡¢¤½¤ÎÃÍ¤ÏÆþÎÏ¥É¥é¥¤¥Ð @c minput_xim_driver 
-    ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£ ¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï @c minput_xim_driver ¤ÎÀâÌÀ¤ò
-    »²¾È¤Î¤³¤È¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "internal-gui.h"
-#include "input.h"
-
-typedef struct
-{
-  MDrawWindow win;
-  MDrawMetric geometry;
-  MDrawControl control;
-  int mapped;
-} MInputGUIWinInfo;
-
-typedef struct
-{
-  MInputContextInfo *ic_info;
-
-  MFrame *frame;
-  /* .x and .y are not used.  */
-  MInputGUIWinInfo client;
-  /* In the following members,  is relative to .  */
-  MInputGUIWinInfo focus;
-  MInputGUIWinInfo preedit;
-  MInputGUIWinInfo status;
-  MInputGUIWinInfo candidates;
-} MInputGUIContextInfo;
-
-static MFace *status_face;
-static MFaceBoxProp face_box_prop;
-
-static int
-win_create_ic (MInputContext *ic)
-{
-  MInputGUIContextInfo *win_ic_info;
-  MInputGUIArgIC *win_info = (MInputGUIArgIC *) ic->arg;
-  MFrame *frame = win_info->frame;
-
-  if ((*minput_default_driver.create_ic) (ic) < 0)
-    return -1;
-
-  MSTRUCT_CALLOC (win_ic_info, MERROR_IM);
-  win_ic_info->ic_info = (MInputContextInfo *) ic->info;
-  win_ic_info->frame = frame;
-  win_ic_info->client.win = win_info->client;
-  (*frame->driver->window_geometry) (frame, win_info->client, win_info->client,
-			 &win_ic_info->client.geometry);
-  win_ic_info->focus.win = win_info->focus;
-  (*frame->driver->window_geometry) (frame, win_info->focus, win_info->client,
-			 &win_ic_info->focus.geometry);
-
-  win_ic_info->preedit.win = (*frame->driver->create_window) (frame, win_info->client);
-  win_ic_info->preedit.control.two_dimensional = 1;
-  win_ic_info->preedit.control.as_image = 0;
-  win_ic_info->preedit.control.with_cursor = 1;
-  win_ic_info->preedit.control.cursor_width = 1;
-  win_ic_info->preedit.control.enable_bidi = 1;
-  win_ic_info->preedit.geometry.x = -1;
-  win_ic_info->preedit.geometry.y = -1;
-
-  win_ic_info->status.win = (*frame->driver->create_window) (frame, win_info->client);
-  win_ic_info->status.control.as_image = 1;
-  win_ic_info->status.control.enable_bidi = 1;
-
-  win_ic_info->candidates.win = (*frame->driver->create_window) (frame, win_info->client);
-  win_ic_info->candidates.control.as_image = 1;
-
-  ic->info = win_ic_info;
-
-  return 0;
-}
-
-static void
-win_destroy_ic (MInputContext *ic)
-{
-  MInputGUIContextInfo *win_ic_info = (MInputGUIContextInfo *) ic->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) win_ic_info->ic_info;
-  MFrame *frame = win_ic_info->frame;
-
-  (*frame->driver->destroy_window) (frame, win_ic_info->preedit.win);
-  (*frame->driver->destroy_window) (frame, win_ic_info->status.win);
-  (*frame->driver->destroy_window) (frame, win_ic_info->candidates.win);
-  ic->info = ic_info;
-  (*minput_default_driver.destroy_ic) (ic);
-  free (win_ic_info);
-}
-
-static int
-win_filter (MInputContext *ic, MSymbol key, void *arg)
-{
-  MInputGUIContextInfo *win_ic_info = (MInputGUIContextInfo *) ic->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) win_ic_info->ic_info;
-  int ret;
-
-  if (! ic
-      || ! ic->active)
-    return 0;
-
-  if (key == Mnil)
-    {
-      if (! arg)
-	return 0;
-      key = minput_event_to_key (win_ic_info->frame, arg);
-      if (key == Mnil)
-	return 1;
-    }
-  ic->info = ic_info;
-  ret = (*minput_default_driver.filter) (ic, key, arg);
-  ic->info = win_ic_info;
-  return ret;
-}
-
-static void
-adjust_window_and_draw (MFrame *frame, MInputContext *ic, MText *mt, int type)
-{
-  MInputGUIContextInfo *win_ic_info = (MInputGUIContextInfo *) ic->info;
-  MDrawControl *control;
-  MDrawWindow win;
-  MDrawMetric *geometry, physical, logical;
-  int xoff = win_ic_info->focus.geometry.x;
-  int yoff = win_ic_info->focus.geometry.y;
-  int x0, x1, y0, y1;
-  int len = mtext_nchars (mt);
-
-  if (type == 0)
-    {
-      win = win_ic_info->preedit.win;
-      control = &win_ic_info->preedit.control;
-      geometry = &win_ic_info->preedit.geometry;
-      len++;
-    }
-  else if (type == 1)
-    {
-      win = win_ic_info->status.win;
-      control = &win_ic_info->status.control;
-      geometry = &win_ic_info->status.geometry;
-    }
-  else
-    {
-      win = win_ic_info->candidates.win;
-      control = &win_ic_info->candidates.control;
-      geometry = &win_ic_info->candidates.geometry;
-    }
-
-  mdraw_text_extents (frame, mt, 0, len, control, &physical, &logical, NULL);
-  x0 = physical.x, x1 = x0 + physical.width;
-  y0 = physical.y, y1 = y0 + physical.height;
-  if (x0 > logical.x)
-    x0 = logical.x;
-  if (x1 < logical.x + logical.width)
-    x1 = logical.x + logical.width;
-  if (y0 > logical.y)
-    y0 = logical.y;
-  if (y1 < logical.y + logical.height)
-    y1 = logical.y + logical.height;
-  physical.width = x1 - x0;
-  physical.height = y1 - y0;
-  physical.x = xoff + ic->spot.x;
-  if (physical.x + physical.width > win_ic_info->client.geometry.width)
-    physical.x = win_ic_info->client.geometry.width - physical.width;
-  if (type == 0)
-    {
-      if (len <= 1)
-	{
-	  physical.height = physical.width = 1;
-	  physical.x = physical.y = -1;
-	}
-      else
-	{
-	  if (y0 > - ic->spot.ascent)
-	    {
-	      physical.height += y0 + ic->spot.ascent;
-	      y0 = - ic->spot.ascent;
-	    }
-	  if (y1 < ic->spot.descent)
-	    {
-	      physical.height += ic->spot.descent - y1;
-	    }
-	  physical.y = yoff + ic->spot.y + y0;
-	}
-    }
-  else if (type == 1)
-    {
-      physical.y = yoff + ic->spot.y + ic->spot.descent + 2;
-      if (physical.y + physical.height > win_ic_info->client.geometry.height
-	  && yoff + ic->spot.y - ic->spot.ascent - 2 - physical.height >= 0)
-	physical.y = yoff + ic->spot.y - ic->spot.ascent - 2 - physical.height;
-    }
-  else
-    {
-      if (win_ic_info->status.mapped)
-	{
-	  /* We assume that status is already drawn.  */
-	  if (win_ic_info->status.geometry.y < yoff + ic->spot.y)
-	    /* As there was no lower room for status, candidates must also
-	       be drawn upper.  */
-	    physical.y = win_ic_info->status.geometry.y - 1 - physical.height;
-	  else
-	    {
-	      /* There was a lower room for status.  */
-	      physical.y = (win_ic_info->status.geometry.y
-			    + win_ic_info->status.geometry.height
-			    + 1);
-	      if (physical.y + physical.height
-		  > win_ic_info->client.geometry.height)
-		/* But not for candidates.  */
-		physical.y = (yoff + ic->spot.y - ic->spot.ascent - 1
-			      - physical.height);
-	    }
-	}
-      else
-	{
-	  physical.y = yoff + ic->spot.y + ic->spot.descent + 2;
-	  if ((physical.y + physical.height
-	       > win_ic_info->client.geometry.height)
-	      && (yoff + ic->spot.y - ic->spot.ascent - 2 - physical.height
-		  >= 0))
-	    physical.y = (yoff + ic->spot.y - ic->spot.ascent - 2
-			  - physical.height);
-	}
-    }
-
-  (*frame->driver->adjust_window) (frame, win, geometry, &physical);
-  mdraw_text_with_control (frame, win, -x0, -y0, mt, 0, len, control);
-}
-
-static void
-win_callback (MInputContext *ic, MSymbol command)
-{
-  MInputGUIContextInfo *win_ic_info = (MInputGUIContextInfo *) ic->info;
-  MFrame *frame = win_ic_info->frame;
-
-  if (command == Minput_preedit_draw)
-    {
-      MText *mt;
-      MFace *face = mface ();
-
-      if (! win_ic_info->preedit.mapped)
-	{
-	  (*frame->driver->map_window) (frame, win_ic_info->preedit.win);
-	  win_ic_info->preedit.mapped = 1;
-	}
-      win_ic_info->preedit.control.cursor_pos = ic->cursor_pos;
-      if (ic->spot.fontsize)
-	mface_put_prop (face, Msize, (void *) ic->spot.fontsize);
-      mface_merge (face, mface_underline);
-      mtext_push_prop (ic->preedit, 0, mtext_nchars (ic->preedit),
-		       Mface, face);
-      M17N_OBJECT_UNREF (face);
-      if (ic->im->language != Mnil)
-	mtext_put_prop (ic->preedit, 0, mtext_nchars (ic->preedit), Mlanguage,
-			ic->im->language);
-      if (ic->candidate_list)
-	mtext_push_prop (ic->preedit, ic->candidate_from, ic->candidate_to,
-			 Mface, mface_reverse_video);
-      if (mtext_nchars (ic->produced) == 0)
-	mt = ic->preedit;
-      else
-	{
-	  mt = mtext_dup (ic->produced);
-	  mtext_cat (mt, ic->preedit);
-	  win_ic_info->preedit.control.cursor_pos
-	    += mtext_nchars (ic->produced);
-	}
-      adjust_window_and_draw (frame, ic, mt, 0);
-      if (ic->candidate_list)
-	mtext_pop_prop (ic->preedit, 0, mtext_nchars (ic->preedit), Mface);
-      mtext_pop_prop (ic->preedit, 0, mtext_nchars (ic->preedit), Mface);
-      if (mtext_nchars (ic->produced) != 0)
-	M17N_OBJECT_UNREF (mt);
-    }
-  else if (command == Minput_status_draw)
-    {
-      if (! win_ic_info->client.win)
-	return;
-      mtext_put_prop (ic->status, 0, mtext_nchars (ic->status), Mface,
-		      status_face);
-      if (ic->im->language != Mnil)
-	mtext_put_prop (ic->status, 0, mtext_nchars (ic->status), Mlanguage,
-			ic->im->language);
-      adjust_window_and_draw (frame, ic, ic->status, 1);
-    }
-  else if (command == Minput_candidates_draw)
-    {
-      MPlist *group;
-      MText *mt;
-      int i, len;
-      int from, to;
-
-      if (! ic->candidate_list || ! ic->candidate_show)
-	{
-	  if (win_ic_info->candidates.mapped)
-	    {
-	      (*frame->driver->unmap_window) (frame, win_ic_info->candidates.win);
-	      win_ic_info->candidates.mapped = 0;
-	    }
-	  return;
-	}
-
-      if (! win_ic_info->candidates.mapped)
-	{
-	  (*frame->driver->map_window) (frame, win_ic_info->candidates.win);
-	  win_ic_info->candidates.mapped = 1;
-	}
-
-      i = 0;
-      group = ic->candidate_list;
-      while (1)
-	{
-	  if (mplist_key (group) == Mtext)
-	    len = mtext_len (mplist_value (group));
-	  else
-	    len = mplist_length (mplist_value (group));
-	  if (i + len > ic->candidate_index)
-	    break;
-	  i += len;
-	  group = mplist_next (group);
-	}
-
-      mt = mtext ();
-      if (mplist_key (group) == Mtext)
-	{
-	  MText *candidates = (MText *) mplist_value (group);
-
-	  from = (ic->candidate_index - i) * 2 + 1;
-	  to = from + 1;
-	  for (i = 0; i < len; i++)
-	    {
-	      mtext_cat_char (mt, ' ');
-	      mtext_cat_char (mt, mtext_ref_char (candidates, i));
-	    }
-	}
-      else
-	{
-	  MPlist *pl;
-
-	  for (pl = (MPlist *) mplist_value (group);
-	       i < ic->candidate_index && mplist_key (pl) != Mnil;
-	       i++, pl = mplist_next (pl))
-	    {
-	      mtext_cat_char (mt, ' ');
-	      mtext_cat (mt, (MText *) mplist_value (pl));
-	    }
-	  from = mtext_nchars (mt) + 1;
-	  to = from + mtext_nchars ((MText *) mplist_value (pl));
-	  for (; mplist_key (pl) != Mnil; pl = mplist_next (pl))
-	    {
-	      mtext_cat_char (mt, ' ');
-	      mtext_cat (mt, (MText *) mplist_value (pl));
-	    }
-	}
-      mtext_cat_char (mt, ' ');
-      mtext_push_prop (mt, 0, mtext_nchars (mt), Mface, status_face);
-      mtext_push_prop (mt, from, to, Mface, mface_reverse_video);
-      if (ic->im->language != Mnil)
-	mtext_put_prop (mt, 0, mtext_nchars (mt), Mlanguage, ic->im->language);
-      adjust_window_and_draw (frame, ic, mt, 2);
-      M17N_OBJECT_UNREF (mt);
-    }
-  else if (command == Minput_set_spot)
-    {
-      minput__callback (ic, Minput_preedit_draw);
-      minput__callback (ic, Minput_status_draw);
-      minput__callback (ic, Minput_candidates_draw);
-    }
-  else if (command == Minput_toggle)
-    {
-      if (ic->active)
-	{
-	  minput__callback (ic, Minput_preedit_done);
-	  minput__callback (ic, Minput_status_done);
-	  minput__callback (ic, Minput_candidates_done);
-	}
-      else
-	{
-	  minput__callback (ic, Minput_preedit_start);
-	  minput__callback (ic, Minput_status_start);
-	  minput__callback (ic, Minput_candidates_start);
-	}
-    }
-  else if (command == Minput_preedit_start)
-    {
-    }
-  else if (command == Minput_preedit_done)
-    {
-      if (win_ic_info->preedit.mapped)
-	{
-	  (*frame->driver->unmap_window) (frame, win_ic_info->preedit.win);
-	  win_ic_info->preedit.mapped = 0;
-	}
-    }
-  else if (command == Minput_status_start)
-    {
-      if (! win_ic_info->status.mapped)
-	{
-	  (*frame->driver->map_window) (frame, win_ic_info->status.win);
-	  win_ic_info->status.mapped = 1;
-	}
-    }
-  else if (command == Minput_status_done)
-    {
-      if (win_ic_info->status.mapped)
-	{
-	  (*frame->driver->unmap_window) (frame, win_ic_info->status.win);
-	  win_ic_info->status.mapped = 0;
-	}
-    }
-  else if (command == Minput_candidates_start)
-    {
-      if (! win_ic_info->candidates.mapped)
-	{
-	  (*frame->driver->map_window) (frame, win_ic_info->candidates.win);
-	  win_ic_info->candidates.mapped = 1;
-	}
-    }
-  else if (command == Minput_candidates_done)
-    {
-      if (win_ic_info->candidates.mapped)
-	{
-	  (*frame->driver->unmap_window) (frame, win_ic_info->candidates.win);
-	  win_ic_info->candidates.mapped = 0;
-	}
-    }
-}
-
-static int
-win_lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
-{
-  MInputGUIContextInfo *win_ic_info = (MInputGUIContextInfo *) ic->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) win_ic_info->ic_info;
-  int ret;
-
-  ic->info = ic_info;
-  ret = (*minput_default_driver.lookup) (ic, key, arg, mt);
-  ic->info = win_ic_info;
-  return ret;
-}
-
-
-
-int
-minput__win_init ()
-{
-  minput_gui_driver = minput_default_driver;
-
-  minput_gui_driver.create_ic = win_create_ic;
-  minput_gui_driver.destroy_ic = win_destroy_ic;
-  minput_gui_driver.filter = win_filter;
-  minput_gui_driver.lookup = win_lookup;
-  {
-    MPlist *plist = mplist ();
-
-    minput_gui_driver.callback_list = plist;
-    plist = mplist_add (plist, Minput_preedit_start, (void *) win_callback);
-    plist = mplist_add (plist, Minput_preedit_draw, (void *) win_callback);
-    plist = mplist_add (plist, Minput_preedit_done, (void *) win_callback);
-    plist = mplist_add (plist, Minput_status_start, (void *) win_callback);
-    plist = mplist_add (plist, Minput_status_draw, (void *) win_callback);
-    plist = mplist_add (plist, Minput_status_done, (void *) win_callback);
-    plist = mplist_add (plist, Minput_candidates_start, (void *) win_callback);
-    plist = mplist_add (plist, Minput_candidates_draw, (void *) win_callback);
-    plist = mplist_add (plist, Minput_candidates_done, (void *) win_callback);
-    plist = mplist_add (plist, Minput_set_spot, (void *) win_callback);
-    plist = mplist_add (plist, Minput_toggle, (void *) win_callback);
-  }
-  minput_driver = &minput_gui_driver;
-
-  face_box_prop.width = 1;
-  face_box_prop.color_top = face_box_prop.color_left
-    = face_box_prop.color_bottom = face_box_prop.color_right
-    = msymbol ("black");
-  face_box_prop.inner_hmargin = face_box_prop.inner_vmargin = 2;
-  face_box_prop.outer_hmargin = face_box_prop.outer_vmargin = 1;
-  status_face = mface ();
-  mface_put_prop (status_face, Mbox, &face_box_prop);
-
-  return 0;
-}
-
-void
-minput__win_fini ()
-{
-  M17N_OBJECT_UNREF (status_face);
-  if (minput_gui_driver.callback_list)
-    {
-      M17N_OBJECT_UNREF (minput_gui_driver.callback_list);
-      minput_gui_driver.callback_list = NULL;
-    }
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nInputMethodWin */
-/*** @{ */
-
-/*=*/
-/***en
-    @brief Input driver for internal input methods on window systems.
-
-    The input driver @c minput_gui_driver is for internal input
-    methods to be used on window systems.
-
-    It creates sub-windows for a preedit text and a status text, and
-    displays them at the input spot set by the function
-    minput_set_spot ().
-
-    The macro M17N_INIT () set the variable @c minput_driver to the
-    pointer to this driver so that all internal input methods use it.
-
-    Therefore, unless @c minput_driver is changed from the default,
-    the driver dependent arguments to the functions whose name begin
-    with minput_ must are treated as follows.
-
-    The argument $ARG of the function minput_open_im () is ignored.
-
-    The argument $ARG of the function minput_create_ic () must be a
-    pointer to the structure @c MInputGUIArgIC.  See the documentation
-    of @c MInputGUIArgIC for more details.
-
-    If the argument $KEY is @c Mnil, the argument $ARG of the
-    function minput_filter () must be a pointer to the object of type
-    @c XEvent.  In that case, $KEY is generated from $ARG.
-
-    The argument $ARG of the function minput_lookup () must be the
-    same one as that of the function minput_filter (). */
-
-/***ja
-    @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤ÎÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑÆþÎÏ¥É¥é¥¤¥Ð.
-
-    ÆþÎÏ¥É¥é¥¤¥Ð @c minput_gui_driver ¤Ï¡¢¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤ÇÍÑ¤¤¤é
-    ¤ì¤ëÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤Ç¤¢¤ë¡£
-
-    ¤³¤Î¥É¥é¥¤¥Ð¤Ï¡¢´Ø¿ô minput_set_spot () ¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤¿ÆþÎÏ¥¹¥Ý¥Ã
-    ¥È¤Ë preedit ¥Æ¥¥¹¥ÈÍÑ¤Î¥µ¥Ö¥¦¥£¥ó¥É¥¦¤È status ¥Æ¥¥¹¥ÈÍÑ¤Î¥µ¥Ö
-    ¥¦¥£¥ó¥É¥¦¤òºî¤ê¡¢¤½¤ì¤¾¤ì¤òÉ½¼¨¤¹¤ë¡£
-
-    ¥Þ¥¯¥í M17N_INIT () ¤ÏÊÑ¿ô @c minput_driver ¤ò¤³¤Î¥É¥é¥¤¥Ð
-    ¤Ø¤Î¥Ý¥¤¥ó¥¿¤ËÀßÄê¤·¡¢Á´¤Æ¤ÎÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤¬¤³¤Î¥É¥é¥¤¥Ð¤ò»È¤¦¤è
-    ¤¦¤Ë¤¹¤ë¡£
-
-    ¤·¤¿¤¬¤Ã¤Æ¡¢@c minput_driver ¤¬¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Î¤Þ¤Þ¤Ç¤¢¤ì¤Ð¡¢minput_ 
-    ¤Ç»Ï¤Þ¤ëÌ¾Á°¤ò»ý¤Ä´Ø¿ô¤Î°ú¿ô¤Î¤¦¤Á¥É¥é¥¤¥Ð°ÍÂ¸¤Î¤â¤Î¤Ï°Ê²¼¤Î¤è¤¦¤Ë
-    ¤Ê¤ë¡£
-
-    ´Ø¿ô minput_open_im () ¤Î°ú¿ô $ARG ¤ÏÌµ»ë¤µ¤ì¤ë¡£
-
-    ´Ø¿ô minput_create_ic () ¤Î°ú¿ô $ARG ¤Ï¹½Â¤ÂÎ @c MInputGUIArgIC ¤Ø
-    ¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï @c MInputGUIArgIC ¤Î
-    ÀâÌÀ¤ò»²¾È¤Î¤³¤È¡£
-
-    ´Ø¿ô minput_filter () ¤Î°ú¿ô $ARG ¤¬ @c Mnil ¤Î¾ì¹ç¡¢ $ARG ¤Ï @c
-    XEvent ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤³¤Î¾ì¹ç 
-    $KEY ¤Ï $ARG ¤«¤éÀ¸À®¤µ¤ì¤ë¡£
-
-    ´Ø¿ô minput_lookup () ¤Î°ú¿ô $ARG ¤Ï´Ø¿ô minput_filter () ¤Î°ú¿ô 
-    $ARG ¤ÈÆ±¤¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ */
-
-MInputDriver minput_gui_driver;
-
-/*=*/
-
-/***en
-    @brief Symbol of the name "xim".
-
-    The variable Mxim is a symbol of name "xim".  It is a name of the
-    input method driver #minput_xim_driver.  */ 
-/***ja
-    @brief "xim"¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë .
-
-    ÊÑ¿ô Mxim ¤Ï"xim"¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë¤Ç¤¢¤ë¡£"xim" ¤ÏÆþÎÏ¥á¥½¥Ã
-    ¥É¥É¥é¥¤¥Ð #minput_xim_driver ¤ÎÌ¾Á°¤Ç¤¢¤ë¡£  */ 
-
-MSymbol Mxim;
-
-/*=*/
-
-/***en
-    @brief Convert an event to an input key.
-
-    The minput_event_to_key () function returns the input key
-    corresponding to event $EVENT on $FRAME by a window system
-    dependent manner.
-
-    In the m17n-X library, $EVENT must be a pointer to the structure
-    @c XKeyEvent, and it is handled as below.
-
-    At first, the keysym name of $EVENT is acquired by the function @c
-    XKeysymToString.  Then, the name is modified as below.
-
-    If the name is one of "a" .. "z" and $EVENT has a Shift modifier,
-    the name is converted to "A" .. "Z" respectively, and the Shift
-    modifier is cleared.
-
-    If the name is one byte length and $EVENT has a Control modifier,
-    the byte is bitwise anded by 0x1F and the Control modifier is
-    cleared.
-
-    If $EVENT still has Shift, Control, Meta, Alt, Super, and/or Hyper
-    modifiers, the name is preceded by "S-", "C-", "M-", "A-", "s-",
-    and/or "H-" respectively in this order.
-
-    For instance, if the keysym name is "a" and the event has Shift,
-    Meta, and Hyper modifiers, the resulting name is "H-M-A".
-
-    At last, a symbol who has the name is returned.  */
-
-/***ja
-    @brief ¥¤¥Ù¥ó¥È¤òÆþÎÏ¥¡¼¤ËÊÑ´¹¤¹¤ë.
-
-    ´Ø¿ô minput_name_to_key () ¤Ï¡¢$FRAME ¤Î¥¤¥Ù¥ó¥È $EVENT ¤ËÂÐ±þ¤¹¤ë
-    ÆþÎÏ¥¡¼¤òÊÖ¤¹¡£¤³¤³¤Ç¤Î¡ÖÂÐ±þ¡×¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à°ÍÂ¸¤Ç¤¢¤ë¡£
-
-    m17n-X ¥é¥¤¥Ö¥é¥ê¤Î¾ì¹ç¤Ë¤Ï¡¢$EVENT ¤Ï ¹½Â¤ÂÎ @c XKeyEvent ¤Ø¤Î¥Ý
-    ¥¤¥ó¥¿¤Ç¤¢¤ê¡¢¼¡¤Î¤è¤¦¤Ë½èÍý¤µ¤ì¤ë¡£
-
-    ¤Þ¤º¡¢´Ø¿ô @c XKeysymToString ¤Ë¤è¤Ã¤Æ¡¢$EVENT ¤Î keysym Ì¾¤ò¼èÆÀ
-    ¤·¡¢¼¡¤¤¤Ç°Ê²¼¤ÎÊÑ¹¹¤ò²Ã¤¨¤ë¡£
-
-    Ì¾Á°¤¬ "a" .. "z" ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤Ã¤Æ $EVENT ¤Ë Shift ¥â¥Ç¥£¥Õ¥¡¥¤
-    ¥¢¤¬¤¢¤ì¤Ð¡¢Ì¾Á°¤Ï¤½¤ì¤¾¤ì "A" .. "Z" ¤ËÊÑ´¹¤µ¤ì¡¢Shift ¥â¥Ç¥£¥Õ¥¡
-    ¥¤¥¢¤Ï¼è¤ê½ü¤«¤ì¤ë¡£
-
-    Ì¾Á°¤¬£±¥Ð¥¤¥ÈÄ¹¤Ç $EVENT ¤Ë Control ¥â¥Ç¥£¥Õ¥¡¥¤¥¢¤¬¤¢¤ì¤Ð¡¢Ì¾Á°
-    ¤È 0x1F ¤ò¥Ó¥Ã¥ÈÃ±°Ì and ±é»»¤¹¤ë¡£Control ¥â¥Ç¥£¥Õ¥¡¥¤¥¢¤Ï¼è¤ê½ü
-    ¤«¤ì¤ë¡£
-
-    $EVENT ¤Ë¤Þ¤À Shift, Control, Meta, Alt, Super, Hyper ¤Ê¤É¤Î¥â¥Ç¥£
-    ¥Õ¥¡¥¤¥¢¤¬¤¢¤ì¤Ð¡¢Ì¾Á°¤ÎÁ°¤Ë¤½¤ì¤¾¤ì"S-", "C-", "M-", "A-", "s-",
-    "H-" ¤¬ÉÕ¤¯¡£
-    
-    ¤¿¤È¤¨¤Ð¡¢keysym Ì¾¤¬ "a" ¤Ç¥¤¥Ù¥ó¥È¤¬ Shift, Meta, and Hyper ¥â¥Ç¥£
-    ¥Õ¥¡¥¤¥¢¤ò»ý¤Æ¤Ð¡¢ÆÀ¤é¤ì¤ëÌ¾Á°¤Ï "H-M-A" ¤Ç¤¢¤ë¡£
-
-    ºÇ¸å¤Ë¤½¤ÎÌ¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£*/
-
-
-MSymbol
-minput_event_to_key (MFrame *frame, void *event)
-{
-  int modifiers;
-  MSymbol key;
-  char *name, *str;
-
-  M_CHECK_READABLE (frame, MERROR_IM, Mnil);
-  key = (*frame->driver->parse_event) (frame, event, &modifiers);
-  if (! modifiers)
-    return key;
-
-  name = msymbol_name (key);
-  str = alloca (strlen (name) + 2 * 6 + 1);
-  str[0] = '\0';
-  if (modifiers & MINPUT_KEY_SHIFT_MODIFIER)
-    strcat (str, "S-");
-  if (modifiers & MINPUT_KEY_CONTROL_MODIFIER)
-    strcat (str, "C-");
-  if (modifiers & MINPUT_KEY_META_MODIFIER)
-    strcat (str, "M-");
-  if (modifiers & MINPUT_KEY_ALT_MODIFIER)
-    strcat (str, "A-");
-  if (modifiers & MINPUT_KEY_SUPER_MODIFIER)
-    strcat (str, "s-");
-  if (modifiers & MINPUT_KEY_HYPER_MODIFIER)
-    strcat (str, "H-");
-  strcat (str, name);
-
-  return msymbol (str);
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/input.c b/src/input.c
deleted file mode 100644
index 63e8843..0000000
--- a/src/input.c
+++ /dev/null
@@ -1,2421 +0,0 @@
-/* input.c -- input method module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nInputMethod
-    @brief API for Input method.
-
-    An input method is an object to enable inputting various
-    characters.  An input method is identified by a pair of symbols,
-    LANGUAGE and NAME.  This pair decides a input method driver of the
-    input method.  An input method driver is a set of functions for
-    handling the input method.  There are two kinds of input methods;
-    internal one and foreign one.
-
-    
-     Internal Input Method
-
-    An internal input method has non @c Mnil LANGUAGE, and the body is
-    defined in the m17n database by the tag .  For this kind of input methods, the m17n library uses two
-    predefined input method drivers, one for CUI use and the other for
-    GUI use.  Those driver utilize the input processing engine
-    provided by the m17n library itself.  The m17n database may
-    provides an input method that is not only for a specific language.
-    The database uses @c Mt as LANGUAGE of such an input method.
-
-    An internal input method accepts an input key which is a symbol
-    associated with an input event.  As there is no way for the @c
-    m17n @c library to know how input events are represented in an
-    application program, an application programmer have to convert an
-    input event to an input key by himself.  See the documentation of
-    the function minput_event_to_key () for the detail.
-
-    
 Foreign Input Method
-
-    A foreign input method has @c Mnil LANGUAGE, and the body is
-    defined in an external resources (e.g. XIM of X Window System).
-    For this kind of input methods, the symbol NAME must have a
-    property of key @c Minput_driver, and the value must be a pointer
-    to an input method driver.  Therefore, by preparing a proper
-    driver, any kind of input method can be treated in the framework
-    of the @c m17n @c library.
-
-    For convenience, the m17n-X library provides an input method
-    driver that enables the input style of OverTheSpot for XIM, and
-    stores @c Minput_driver property of the symbol @c Mxim with a
-    pointer to the driver.  See the documentation of m17n GUI API for
-    the detail.
-
-    
-
-    PROCESSING FLOW
-
-    The typical processing flow of handling an input method is: 
-
-     @li open an input method
-     @li create an input context for the input method
-     @li filter an input key
-     @li look up a produced text in the input context  */
-
-/*=*/
-/***ja
-    @addtogroup m17nInputMethod
-    @brief ÆþÎÏ¥á¥½¥Ã¥ÉÍÑAPI.
-
-    ÆþÎÏ¥á¥½¥Ã¥É¤ÏÂ¿ÍÍ¤ÊÊ¸»ú¤òÆþÎÏ¤¹¤ë¤¿¤á¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë¡£ÆþÎÏ¥á
-    ¥½¥Ã¥É¤Ï¥·¥ó¥Ü¥ë LANGUAGE ¤È NAME ¤ÎÁÈ¤Ë¤è¤Ã¤Æ¼±ÊÌ¤µ¤ì¡¢¤³¤ÎÁÈ¤Ë¤è¤Ã
-    ¤ÆÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤¬·è¤Þ¤ë¡£ÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤È¤Ï¤¢¤ëÆþÎÏ¥á
-    ¥½¥Ã¥É¤ò°·¤¦¤¿¤á¤Î´Ø¿ô¤Î½¸¤Þ¤ê¤Ç¤¢¤ë¡£ ÆþÎÏ¥á¥½¥Ã¥É¤Ë¤ÏÆâÉô¥á¥½¥Ã
-    ¥É¤È³°Éô¥á¥½¥Ã¥É¤ÎÆóÄÌ¤ê¤¬¤¢¤ë¡£
-
-     
-     ÆâÉôÆþÎÏ¥á¥½¥Ã¥É
-
-    ÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤Ï LANGUAGE ¤¬ @c Mnil °Ê³°¤Î¤â¤Î¤Ç¤¢¤ê¡¢ËÜÂÎ¤Ï
-    m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë ¤È¤¤¤¦¥¿¥°ÉÕ¤
-    ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£¤³¤Î¼ï¤ÎÆþÎÏ¥á¥½¥Ã¥É¤ËÂÐ¤·¤Æ¡¢m17n ¥é¥¤¥Ö¥é¥ê¤Ë
-    ¤ÏCUIÍÑ¤ÈGUIÍÑ¤½¤ì¤¾¤ì¤ÎÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤¬¤¢¤é¤«¤¸¤á½àÈ÷¤µ¤ì¤Æ
-    ¤¤¤ë¡£¤³¤ì¤é¤Î¥É¥é¥¤¥Ð¤Ïm17n¥é¥¤¥Ö¥é¥ê¼«¿È¤ÎÆþÎÏ½èÍý¥¨¥ó¥¸¥ó¤òÍøÍÑ
-    ¤¹¤ë¡£m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¤Ï¡¢ÆÃÄê¤Î¸À¸ìÀìÍÑ¤Ç¤Ê¤¤ÆþÎÏ¥á¥½¥Ã¥É¤âÄê
-    µÁ¤¹¤ë¤³¤È¤¬¤Ç¤¡¢¤½¤Î¤è¤¦¤ÊÆþÎÏ¥á¥½¥Ã¥É¤Î LANGUAGE ¤Ï @c Mt ¤Ç¤¢
-    ¤ë¡£
-
-    ÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤Ï¡¢¥æ¡¼¥¶¤ÎÆþÎÏ¥¤¥Ù¥ó¥È¤ËÂÐ±þ¤·¤¿¥·¥ó¥Ü¥ë¤Ç¤¢¤ëÆþ
-    ÎÏ¥¡¼¤ò¼õ¤±¼è¤ë¡£@c m17n @c ¥é¥¤¥Ö¥é¥ê ¤ÏÆþÎÏ¥¤¥Ù¥ó¥È¤¬¥¢¥×¥ê¥±¡¼
-    ¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ç¤É¤¦É½¸½¤µ¤ì¤Æ¤¤¤ë¤«¤òÃÎ¤ë½Ñ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç¡¢ÆþÎÏ
-    ¥¤¥Ù¥ó¥È¤«¤éÆþÎÏ¥¡¼¤Ø¤ÎÊÑ´¹¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥Þ¤ÎÀÕÇ¤¤Ç¹Ô
-    ¤ï¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï´Ø¿ô minput_event_to_key () ¤ÎÀâ
-    ÌÀ¤ò»²¾È¡£
-
-    
 ³°ÉôÆþÎÏ¥á¥½¥Ã¥É
-
-    ³°ÉôÆþÎÏ¥á¥½¥Ã¥É¤Ï LANGUAGE ¤¬ @c Mnil ¤Î¤â¤Î¤Ç¤¢¤ê¡¢ËÜÂÎ¤Ï³°Éô¤Î
-    ¥ê¥½¡¼¥¹¤È¤·¤ÆÄêµÁ¤µ¤ì¤ë¡£¡Ê¤¿¤È¤¨¤ÐX Window System ¤ÎXIM ¤Ê¤É¡£) 
-    ¤³¤Î¼ï¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¡¢¥·¥ó¥Ü¥ë NAME ¤Ï@c Minput_driver ¤ò¥¡¼
-    ¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Á¡¢¤½¤ÎÃÍ¤ÏÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç
-    ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤·¤¿¤¬¤Ã¤Æ¡¢Å¬ÀÚ¤Ê¥É¥é¥¤¥Ð¤ò½àÈ÷¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢
-    ¤¤¤«¤Ê¤ë¼ïÎà¤ÎÆþÎÏ¥á¥½¥Ã¥É¤â @c m17n @c ¥é¥¤¥Ö¥é¥ê ¤ÎÏÈÁÈ¤ÎÃæ¤Ç°·
-    ¤¦»ö¤¬¤Ç¤¤ë¡£
-
-    ÍøÊØÀ¤Î¤¿¤á¡¢m17n X ¥é¥¤¥Ö¥é¥ê¤Ï XIM ¤Î OverTheSpot ¤ÎÆþÎÏ¥¹¥¿¥¤¥ë
-    ¤ò¼Â¸½¤¹¤ëÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤òÄó¶¡¤·¡¢¤Þ¤¿¥·¥ó¥Ü¥ë @c Mxim ¤Î @c
-    Minput_driver ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤È¤·¤Æ¤½¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÝ»ý¤·
-    ¤Æ¤¤¤ë¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï m17n GUI API ¤Î¥É¥¥å¥á¥ó¥È¤ò»²¾È¤Î¤³¤È¡£
-
-     
-
-    ½èÍý¤ÎÎ®¤ì
-
-    ÆþÎÏ¥á¥½¥Ã¥É½èÍý¤ÎÅµ·¿Åª¤Ê½èÍý¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£
-    
-    @li ÆþÎÏ¥á¥½¥Ã¥É¤Î¥ª¡¼¥×¥ó
-    @li ¤½¤ÎÆþÎÏ¥á¥½¥Ã¥É¤ÎÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤ÎÀ¸À®
-    @li ÆþÎÏ¥¤¥Ù¥ó¥È¤Î¥Õ¥£¥ë¥¿
-    @li ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Ç¤ÎÀ¸À®¥Æ¥¥¹¥È¤Î¸¡º÷     */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-
-#include "config.h"
-
-#ifdef HAVE_DLFCN_H
-#include 
-#endif
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "mtext.h"
-#include "input.h"
-#include "symbol.h"
-#include "plist.h"
-
-static MSymbol Minput_method;
-
-/** Symbols to load an input method data.  */
-static MSymbol Mtitle, Mmacro, Mmodule, Mstate;
-
-/** Symbols for actions.  */
-static MSymbol Minsert, Mdelete, Mmark, Mmove, Mpushback, Mundo, Mcall, Mshift;
-static MSymbol Mselect, Mshow, Mhide;
-static MSymbol Mset, Madd, Msub, Mmul, Mdiv, Mequal, Mless, Mgreater;
-
-static MSymbol Mcandidate_list, Mcandidate_index;
-
-static MSymbol Minit, Mfini;
-
-/** Symbols for key events.  */
-static MSymbol one_char_symbol[256];
-
-static MSymbol M_key_alias;
-
-/** Structure to hold a map.  */
-
-struct MIMMap
-{
-  /** List of actions to take when we reach the map.  In a root map,
-      the actions are executed only when there's no more key.  */
-  MPlist *map_actions;
-
-  /** List of deeper maps.  If NULL, this is a terminal map.  */
-  MPlist *submaps;
-
-  /** List of actions to take when we leave the map successfully.  In
-      a root map, the actions are executed only when none of submaps
-      handle the current key.  */
-  MPlist *branch_actions;
-};
-
-typedef MPlist *(*MIMExternalFunc) (MPlist *plist);
-
-typedef struct
-{
-  void *handle;
-  MPlist *func_list;		/* function name vs (MIMExternalFunc *) */
-} MIMExternalModule;
-
-struct MIMState
-{
-  /** Name of the state.  */
-  MSymbol name;
-
-  /** Title of the state, or NULL.  */
-  MText *title;
-
-  /** Key translation map of the state.  Built by merging all maps of
-      branches.  */
-  MIMMap *map;
-};
-
-
-static int
-marker_code (MSymbol sym)
-{
-  char *name;
-
-  if (sym == Mnil)
-    return -1;
-  name = MSYMBOL_NAME (sym);
-  return ((name[0] == '@'
-	   && ((name[1] >= '0' && name[1] <= '9')
-	       || name[1] == '<' || name[1] == '>'
-	       || name[1] == '=' || name[1] == '+' || name[1] == '-'
-	       || name[1] == '[' || name[1] == ']')
-	   && name[2] == '\0')
-	  ? name[1] : -1);
-}
-
-int
-integer_value (MInputContext *ic, MPlist *arg)
-{
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-  int code;
-  MText *preedit = ic->preedit;
-  int len = mtext_nbytes (preedit);
-
-  if (MPLIST_INTEGER_P (arg))
-    return MPLIST_INTEGER (arg);
-  code = marker_code (MPLIST_SYMBOL (arg));
-  if (code < 0)
-    return (int) mplist_get (ic_info->vars, MPLIST_SYMBOL (arg));
-  if (code >= '0' && code <= '9')
-    code -= '0';
-  else if (code == '=')
-    code = ic->cursor_pos;
-  else if (code == '-' || code == '[')
-    code = ic->cursor_pos - 1;
-  else if (code == '+' || code == ']')
-    code = ic->cursor_pos + 1;
-  else if (code == '<')
-    code = 0;
-  else if (code == '<')
-    code = len;
-  return (code >= 0 && code < len ? mtext_ref_char (preedit, code) : -1);
-}
-
-
-/* Parse PLIST as an action list while modifying the list to regularize
-   actions.  PLIST should have this form:
-      PLIST ::= ( (ACTION-NAME ACTION-ARG *) *).
-   Return 0 if successfully parsed, otherwise return -1.  */
-
-static int
-parse_action_list (MPlist *plist, MPlist *macros)
-{
-  MPLIST_DO (plist, plist)
-    {
-      if (MPLIST_MTEXT_P (plist))
-	{
-	  /* This is a short form of (insert MTEXT).  */
-	  /* if (mtext_nchars (MPLIST_MTEXT (plist)) == 0)
-	     MERROR (MERROR_IM, -1); */
-	}
-      else if (MPLIST_PLIST_P (plist)
-	       && (MPLIST_MTEXT_P (MPLIST_PLIST (plist))
-		   || MPLIST_PLIST_P (MPLIST_PLIST (plist))))
-	{
-	  MPlist *pl;
-
-	  /* This is a short form of (insert (GROUPS *)).  */
-	  MPLIST_DO (pl, MPLIST_PLIST (plist))
-	    {
-	      if (MPLIST_PLIST_P (pl))
-		{
-		  MPlist *elt;
-
-		  MPLIST_DO (elt, MPLIST_PLIST (pl))
-		    if (! MPLIST_MTEXT_P (elt)
-			|| mtext_nchars (MPLIST_MTEXT (elt)) == 0)
-		      MERROR (MERROR_IM, -1);
-		}
-	      else
-		{
-		  if (! MPLIST_MTEXT_P (pl)
-		      || mtext_nchars (MPLIST_MTEXT (pl)) == 0)
-		    MERROR (MERROR_IM, -1);
-		}
-	    }
-	}
-      else if (MPLIST_INTEGER_P (plist))
-	{
-	  int c = MPLIST_INTEGER (plist);
-
-	  if (c < 0 || c > MCHAR_MAX)
-	    MERROR (MERROR_IM, -1);
-	}
-      else if (MPLIST_PLIST_P (plist)
-	       && MPLIST_SYMBOL_P (MPLIST_PLIST (plist)))
-	{
-	  MPlist *pl = MPLIST_PLIST (plist);
-	  MSymbol action_name = MPLIST_SYMBOL (pl);
-
-	  pl = MPLIST_NEXT (pl);
-
-	  if (action_name == Minsert)
-	    {
-	      if (MPLIST_MTEXT_P (pl))
-		{
-		  if (mtext_nchars (MPLIST_MTEXT (pl)) == 0)
-		    MERROR (MERROR_IM, -1);
-		}
-	      else if (MPLIST_PLIST_P (pl))
-		{
-		  MPLIST_DO (pl, pl)
-		    {
-		      if (MPLIST_PLIST_P (pl))
-			{
-			  MPlist *elt;
-
-			  MPLIST_DO (elt, MPLIST_PLIST (pl))
-			    if (! MPLIST_MTEXT_P (elt)
-				|| mtext_nchars (MPLIST_MTEXT (elt)) == 0)
-			      MERROR (MERROR_IM, -1);
-			}
-		      else
-			{
-			  if (! MPLIST_MTEXT_P (pl)
-			      || mtext_nchars (MPLIST_MTEXT (pl)) == 0)
-			    MERROR (MERROR_IM, -1);
-			}
-		    }
-		}
-	      else if (! MPLIST_SYMBOL_P (pl))
-		MERROR (MERROR_IM, -1); 
-	    }
-	  else if (action_name == Mselect
-		   || action_name == Mdelete
-		   || action_name == Mmove)
-	    {
-	      if (! MPLIST_SYMBOL_P (pl)
-		  && ! MPLIST_INTEGER_P (pl))
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (action_name == Mmark
-		   || action_name == Mcall
-		   || action_name == Mshift)
-	    {
-	      if (! MPLIST_SYMBOL_P (pl))
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (action_name == Mshow || action_name == Mhide
-		   || action_name == Mundo)
-	    {
-	      if (! MPLIST_TAIL_P (pl))
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (action_name == Mpushback)
-	    {
-	      if (! MPLIST_INTEGER_P (pl))
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (action_name == Mset || action_name == Madd
-		   || action_name == Msub || action_name == Mmul
-		   || action_name == Mdiv)
-	    {
-	      if (! (MPLIST_SYMBOL_P (pl)
-		     && (MPLIST_INTEGER_P (MPLIST_NEXT (pl))
-			 || MPLIST_SYMBOL_P (MPLIST_NEXT (pl)))))
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (action_name == Mequal || action_name == Mless
-		   || action_name == Mgreater)
-	    {
-	      if (! ((MPLIST_INTEGER_P (pl) || MPLIST_SYMBOL_P (pl))
-		     && (MPLIST_INTEGER_P (MPLIST_NEXT (pl))
-			 || MPLIST_SYMBOL_P (MPLIST_NEXT (pl)))))
-		MERROR (MERROR_IM, -1);
-	      pl = MPLIST_NEXT (MPLIST_NEXT (pl));
-	      if (! MPLIST_PLIST_P (pl))
-		MERROR (MERROR_IM, -1);
-	      if (parse_action_list (MPLIST_PLIST (pl), macros) < 0)
-		MERROR (MERROR_IM, -1);
-	      pl = MPLIST_NEXT (pl);
-	      if (MPLIST_PLIST_P (pl)
-		  && parse_action_list (MPLIST_PLIST (pl), macros) < 0)
-		MERROR (MERROR_IM, -1);
-	    }
-	  else if (! macros || ! mplist_get (macros, action_name))
-	    MERROR (MERROR_IM, -1);
-	}
-      else
-	MERROR (MERROR_IM, -1);
-    }
-
-  return 0;
-}
-
-
-/* Load a translation into MAP from PLIST.
-   PLIST has this form:
-      PLIST ::= ( KEYSEQ MAP-ACTION * )  */
-
-static int
-load_translation (MIMMap *map, MPlist *plist, MPlist *branch_actions,
-		  MPlist *macros)
-{
-  MSymbol *keyseq;
-  int len, i;
-
-  if (MPLIST_MTEXT_P (plist))
-    {
-      MText *mt = MPLIST_MTEXT (plist);
-
-      len = mtext_nchars (mt);
-      if (len == 0 || len != mtext_nbytes (mt))
-	MERROR (MERROR_IM, -1);
-      keyseq = (MSymbol *) alloca (sizeof (MSymbol) * len);
-      for (i = 0; i < len; i++)
-	keyseq[i] = one_char_symbol[MTEXT_DATA (mt)[i]];
-    }
-  else if (MPLIST_PLIST_P (plist))
-    {
-      MPlist *elt = MPLIST_PLIST (plist);
-	  
-      len = MPLIST_LENGTH (elt);
-      if (len == 0)
-	MERROR (MERROR_IM, -1);
-      keyseq = (MSymbol *) alloca (sizeof (int) * len);
-      for (i = 0; i < len; i++, elt = MPLIST_NEXT (elt))
-	{
-	  if (MPLIST_INTEGER_P (elt))
-	    {
-	      int c = MPLIST_INTEGER (elt);
-
-	      if (c < 0 || c >= 0x100)
-		MERROR (MERROR_IM, -1);
-	      keyseq[i] = one_char_symbol[c];
-	    }
-	  else if (MPLIST_SYMBOL_P (elt))
-	    keyseq[i] = MPLIST_SYMBOL (elt);
-	  else
-	    MERROR (MERROR_IM, -1);
-	}
-    }
-  else
-    MERROR (MERROR_IM, -1);
-
-  for (i = 0; i < len; i++)
-    {
-      MIMMap *deeper = NULL;
-
-      if (map->submaps)
-	deeper = mplist_get (map->submaps, keyseq[i]);
-      else
-	map->submaps = mplist ();
-      if (! deeper)
-	{
-	  /* Fixme: It is better to make all deeper maps at once.  */
-	  MSTRUCT_CALLOC (deeper, MERROR_IM);
-	  mplist_put (map->submaps, keyseq[i], deeper);
-	}
-      map = deeper;
-    }
-
-  /* We reach a terminal map.  */
-  if (map->map_actions
-      || map->branch_actions)
-    /* This map is already defined.  We avoid overriding it.  */
-    return 0;
-
-  plist = MPLIST_NEXT (plist);
-  if (! MPLIST_TAIL_P (plist))
-    {
-      if (parse_action_list (plist, macros) < 0)
-	MERROR (MERROR_IM, -1);
-      map->map_actions = plist;
-      M17N_OBJECT_REF (plist);
-    }
-  if (branch_actions)
-    {
-      map->branch_actions = branch_actions;
-      M17N_OBJECT_REF (branch_actions);
-    }
-
-  return 0;
-}
-
-/* Load a branch from PLIST into MAP.  PLIST has this form:
-      PLIST ::= ( MAP-NAME BRANCH-ACTION * )
-   MAPS is a plist of raw maps.
-   STATE is the current state.  */
-
-static int
-load_branch (MPlist *plist, MPlist *maps, MIMMap *map, MPlist *macros)
-{
-  MSymbol map_name;
-  MPlist *branch_actions;
-
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_IM, -1);
-  map_name = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (MPLIST_TAIL_P (plist))
-    branch_actions = NULL;
-  else if (parse_action_list (plist, macros) < 0)
-    MERROR (MERROR_IM, -1);
-  else
-    branch_actions = plist;
-  if (map_name == Mnil)
-    {
-      map->branch_actions = branch_actions;
-      if (branch_actions)
-	M17N_OBJECT_REF (branch_actions);
-    }
-  else if (map_name == Mt)
-    {
-      map->map_actions = branch_actions;
-      if (branch_actions)
-	M17N_OBJECT_REF (branch_actions);
-    }
-  else
-    {
-      plist = (MPlist *) mplist_get (maps, map_name);
-      if (! plist || ! MPLIST_PLIST_P (plist))
-	MERROR (MERROR_IM, -1);
-      MPLIST_DO (plist, plist)
-	if (! MPLIST_PLIST_P (plist)
-	    || (load_translation (map, MPLIST_PLIST (plist), branch_actions,
-				  macros)
-		< 0))
-	  MERROR (MERROR_IM, -1);
-    }
-
-  return 0;
-}
-
-/* Load a macro from PLIST into MACROS.
-   PLIST has this from:
-      PLIST ::= ( MACRO-NAME ACTION * )
-   MACROS is a plist of macro names vs action list.  */
-static int
-load_macros (MPlist *plist, MPlist *macros)
-{
-  MSymbol name; 
-
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_IM, -1);
-  name = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (MPLIST_TAIL_P (plist)
-      || parse_action_list (plist, macros) < 0)
-    MERROR (MERROR_IM, -1);
-  mplist_put (macros, name, plist);
-  M17N_OBJECT_REF (plist);
-  return 0;
-}
-
-/* Load an external module from PLIST into EXTERNALS.
-   PLIST has this form:
-      PLIST ::= ( MODULE-NAME FUNCTION * )
-   EXTERNALS is a plist of MODULE-NAME vs (MIMExternalModule *).  */
-
-#ifndef DLOPEN_SHLIB_EXT
-#define DLOPEN_SHLIB_EXT ".so"
-#endif
-
-static int
-load_external_module (MPlist *plist, MPlist *externals)
-{
-  void *handle;
-  MSymbol module;
-  char *module_file;
-  MIMExternalModule *external;
-  MPlist *func_list;
-  void *func;
-
-  if (MPLIST_MTEXT_P (plist))
-    module = msymbol ((char *) MTEXT_DATA (MPLIST_MTEXT (plist)));
-  else if (MPLIST_SYMBOL_P (plist))
-    module = MPLIST_SYMBOL (plist);
-  module_file = alloca (strlen (MSYMBOL_NAME (module))
-			+ strlen (DLOPEN_SHLIB_EXT) + 1);
-  sprintf (module_file, "%s%s", MSYMBOL_NAME (module), DLOPEN_SHLIB_EXT);
-
-  handle = dlopen (module_file, RTLD_NOW);
-  if (! handle)
-    {
-      fprintf (stderr, "%s\n", dlerror ());
-      MERROR (MERROR_IM, -1);
-    }
-  func_list = mplist ();
-  MPLIST_DO (plist, MPLIST_NEXT (plist))
-    {
-      if (! MPLIST_SYMBOL_P (plist))
-	MERROR_GOTO (MERROR_IM, err_label);
-      func = dlsym (handle, MSYMBOL_NAME (MPLIST_SYMBOL (plist)));
-      if (! func)
-	MERROR_GOTO (MERROR_IM, err_label);
-      mplist_add (func_list, MPLIST_SYMBOL (plist), func);
-    }
-
-  MSTRUCT_MALLOC (external, MERROR_IM);
-  external->handle = handle;
-  external->func_list = func_list;
-  mplist_add (externals, module, external);
-  return 0;
-
- err_label:
-  dlclose (handle);
-  M17N_OBJECT_UNREF (func_list);
-  return -1;
-}
-
-
-/** Load a state from PLIST into a newly allocated state object.
-    PLIST has this form:
-      PLIST ::= ( STATE-NAME STATE-TITLE ? BRANCH * )
-      BRANCH ::= ( MAP-NAME BRANCH-ACTION * )
-   MAPS is a plist of defined maps.
-   Return the state object.  */
-
-static MIMState *
-load_state (MPlist *plist, MPlist *maps, MSymbol language, MPlist *macros)
-{
-  MIMState *state;
-
-  MSTRUCT_CALLOC (state, MERROR_IM);
-  if (! MPLIST_SYMBOL_P (plist))
-    MERROR (MERROR_IM, NULL);
-  state->name = MPLIST_SYMBOL (plist);
-  plist = MPLIST_NEXT (plist);
-  if (MPLIST_MTEXT_P (plist))
-    {
-      state->title = MPLIST_MTEXT (plist);
-      mtext_put_prop (state->title, 0, mtext_nchars (state->title),
-		      Mlanguage, language);
-      M17N_OBJECT_REF (state->title);
-      plist = MPLIST_NEXT (plist);
-    }
-  MSTRUCT_CALLOC (state->map, MERROR_IM);
-  MPLIST_DO (plist, plist)
-    if (! MPLIST_PLIST_P (plist)
-	|| load_branch (MPLIST_PLIST (plist), maps, state->map, macros) < 0)
-      MERROR (MERROR_IM, NULL);
-  return state;
-}
-
-
-static void
-free_map (MIMMap *map)
-{
-  MPlist *plist;
-
-  M17N_OBJECT_UNREF (map->map_actions);
-  if (map->submaps)
-    {
-      MPLIST_DO (plist, map->submaps)
-	free_map ((MIMMap *) MPLIST_VAL (plist));
-      M17N_OBJECT_UNREF (map->submaps);
-    }
-  M17N_OBJECT_UNREF (map->branch_actions);
-  free (map);
-}
-
-/* Load an input method from PLIST into IM_INTO, and return it.  */
-
-static int
-load_input_method (MSymbol language, MSymbol name, MPlist *plist,
-		   MInputMethodInfo *im_info)
-{
-  MText *title = NULL;
-  MPlist *maps = NULL;
-  MPlist *states = NULL;
-  MPlist *externals = NULL;
-  MPlist *macros = NULL;
-  MPlist *elt;
-
-  if (! MPLIST_PLIST_P (plist))
-    MERROR (MERROR_IM, -1);
-  for (; MPLIST_PLIST_P (plist); plist = MPLIST_NEXT (plist))
-    {
-      elt = MPLIST_PLIST (plist);
-      if (! MPLIST_SYMBOL_P (elt))
-	MERROR_GOTO (MERROR_IM, err);
-      if (MPLIST_SYMBOL (elt) == Mtitle)
-	{
-	  elt = MPLIST_NEXT (elt);
-	  if (MPLIST_MTEXT_P (elt))
-	    {
-	      title = MPLIST_MTEXT (elt);
-	      M17N_OBJECT_REF (title);
-	    }
-	  else
-	    MERROR_GOTO (MERROR_IM, err);
-	}
-      else if (MPLIST_SYMBOL (elt) == Mmap)
-	{
-	  maps = mplist__from_alist (MPLIST_NEXT (elt));
-	  if (! maps)
-	    MERROR_GOTO (MERROR_IM, err);
-	}
-      else if (MPLIST_SYMBOL (elt) == Mmacro)
-	{
-	  macros = mplist ();
-	  MPLIST_DO (elt, MPLIST_NEXT (elt))
-	  {
-	    if (! MPLIST_PLIST_P (elt)
-		|| load_macros (MPLIST_PLIST (elt), macros) < 0)
-	      MERROR_GOTO (MERROR_IM, err);
-	  }
-	}
-      else if (MPLIST_SYMBOL (elt) == Mmodule)
-	{
-	  externals = mplist ();
-	  MPLIST_DO (elt, MPLIST_NEXT (elt))
-	  {
-	    if (! MPLIST_PLIST_P (elt)
-		|| load_external_module (MPLIST_PLIST (elt), externals) < 0)
-	      MERROR_GOTO (MERROR_IM, err);
-	  }
-	}
-      else if (MPLIST_SYMBOL (elt) == Mstate)
-	{
-	  states = mplist ();
-	  MPLIST_DO (elt, MPLIST_NEXT (elt))
-	  {
-	    MIMState *state;
-
-	    if (! MPLIST_PLIST_P (elt))
-	      MERROR_GOTO (MERROR_IM, err);
-	    state = load_state (MPLIST_PLIST (elt), maps, language, macros);
-	    if (! state)
-	      MERROR_GOTO (MERROR_IM, err);
-	    mplist_put (states, state->name, state);
-	  }
-	}
-    }
-
-  MPLIST_DO (elt, maps)
-    M17N_OBJECT_UNREF (MPLIST_VAL (elt));
-  M17N_OBJECT_UNREF (maps);
-  if (! title)
-    title = mtext_from_data (MSYMBOL_NAME (name), MSYMBOL_NAMELEN (name),
-			     MTEXT_FORMAT_US_ASCII);
-  im_info->title = title;
-  im_info->externals = externals;
-  im_info->macros = macros;
-  im_info->states = states;
-  return 0;
-
- err:
-  if (maps)
-    {
-      MPLIST_DO (elt, maps)
-	M17N_OBJECT_UNREF (MPLIST_VAL (elt));
-      M17N_OBJECT_UNREF (maps);
-    }
-  if (title)
-    M17N_OBJECT_UNREF (title);
-  if (states)
-    {
-      MPLIST_DO (plist, states)
-      {
-	MIMState *state = (MIMState *) MPLIST_VAL (plist);
-
-	if (state->title)
-	  M17N_OBJECT_UNREF (state->title);
-	if (state->map)
-	  free_map (state->map);
-	free (state);
-      }
-      M17N_OBJECT_UNREF (states);
-    }
-  if (externals)
-    {
-      MPLIST_DO (plist, externals)
-      {
-	MIMExternalModule *external = MPLIST_VAL (plist);
-
-	dlclose (external->handle);
-	M17N_OBJECT_UNREF (external->func_list);
-	free (external);
-	MPLIST_KEY (plist) = Mt;
-      }
-      M17N_OBJECT_UNREF (externals);
-    }
-  return -1;
-}
-
-
-
-static int take_action_list (MInputContext *ic, MPlist *action_list);
-
-static void
-shift_state (MInputContext *ic, MSymbol state_name)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-  MIMState *state = ic_info->state;
-
-  /* Find a state to shift to.  If not found, shift to the initial
-     state.  */
-  state = (MIMState *) mplist_get (im_info->states, state_name);
-  if (! state)
-    state = (MIMState *) MPLIST_VAL (im_info->states);
-
-  /* Enter the new state.  */
-  ic_info->state = state;
-  ic_info->map = state->map;
-  ic_info->state_key_head = ic_info->key_head;
-  if (state == (MIMState *) MPLIST_VAL (im_info->states))
-    {
-      /* We have shifted to the initial state.  */
-      MPlist *p;
-
-      mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
-			     Mcandidate_list, NULL, 0);
-      mtext_put_prop_values (ic->preedit, 0, mtext_nchars (ic->preedit),
-			     Mcandidate_index, NULL, 0);
-      mtext_cat (ic->produced, ic->preedit);
-      mtext_reset (ic->preedit);
-      ic->candidate_list = NULL;
-      ic->candidate_show = 0;
-      ic->preedit_changed = ic->candidates_changed = 1;
-      MPLIST_DO (p, ic_info->markers)
-	MPLIST_VAL (p) = 0;
-      MPLIST_DO (p, ic_info->vars)
-	MPLIST_VAL (p) = 0;
-      ic->cursor_pos = 0;
-      memmove (ic_info->keys, ic_info->keys + ic_info->state_key_head,
-	       sizeof (int) * (ic_info->used - ic_info->state_key_head));
-      ic_info->used -= ic_info->state_key_head;
-      ic_info->state_key_head = ic_info->key_head = 0;
-    }
-  mtext_cpy (ic_info->preedit_saved, ic->preedit);
-  ic_info->state_pos = ic->cursor_pos;
-  ic->status = state->title;
-  if (! ic->status)
-    ic->status = im_info->title;
-  ic->status_changed = 1;
-  if (ic_info->key_head == ic_info->used
-      && ic_info->map == ic_info->state->map
-      && ic_info->map->map_actions)
-    take_action_list (ic, ic_info->map->map_actions);
-}
-
-
-static MPlist *
-find_candidates_group (MPlist *plist, int index,
-		       int *start_index, int *end_index, int *group_index)
-{
-  int i = 0, gidx = 0, len;
-
-  MPLIST_DO (plist, plist)
-    {
-      if (MPLIST_MTEXT_P (plist))
-	len = mtext_nchars (MPLIST_MTEXT (plist));
-      else
-	len = mplist_length (MPLIST_PLIST (plist));
-      if (i + len > index)
-	{
-	  if (start_index)
-	    *start_index = i;
-	  if (end_index)
-	    *end_index = i + len;
-	  if (group_index)
-	    *group_index = gidx;
-	  return plist;
-	}
-      i += len;
-      gidx++;
-    }
-  return NULL;
-}
-
-static void
-preedit_insert (MInputContext *ic, int pos, MText *mt, int c)
-{
-  MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
-  MPlist *markers;
-  int nchars = mt ? mtext_nchars (mt) : 1;
-
-  if (mt)
-    mtext_ins (ic->preedit, pos, mt);
-  else
-    mtext_ins_char (ic->preedit, pos, c, 1);
-  MPLIST_DO (markers, ic_info->markers)
-    if (MPLIST_INTEGER (markers) > pos)
-      MPLIST_VAL (markers) = (void *) (MPLIST_INTEGER (markers) + nchars);
-  if (ic->cursor_pos >= pos)
-    ic->cursor_pos += nchars;
-  ic->preedit_changed = 1;
-}
-
-
-static void
-preedit_delete (MInputContext *ic, int from, int to)
-{
-  MInputContextInfo *ic_info = ((MInputContext *) ic)->info;
-  MPlist *markers;
-
-  mtext_del (ic->preedit, from, to);
-  MPLIST_DO (markers, ic_info->markers)
-    {
-      if (MPLIST_INTEGER (markers) > to)
-	MPLIST_VAL (markers)
-	  = (void *) (MPLIST_INTEGER (markers) - (to - from));
-      else if (MPLIST_INTEGER (markers) > from);
-	MPLIST_VAL (markers) = (void *) from;
-    }
-  if (ic->cursor_pos >= to)
-    ic->cursor_pos -= to - from;
-  else if (ic->cursor_pos > from)
-    ic->cursor_pos = from;
-  ic->preedit_changed = 1;
-}
-
-
-static int
-new_index (MInputContext *ic, int current, int limit, MSymbol sym, MText *mt)
-{
-  int code = marker_code (sym);
-
-  if (mt && (code == '[' || code == ']'))
-    {
-      int pos = current;
-
-      if (code == '[' && current > 0)
-	{
-	  if (mtext_prop_range (mt, Mcandidate_list, pos - 1, &pos, NULL, 1)
-	      && pos > 0)
-	    current = pos;
-	}
-      else if (code == ']' && current < mtext_nchars (mt))
-	{
-	  if (mtext_prop_range (mt, Mcandidate_list, pos, NULL, &pos, 1))
-	    current = pos;
-	}
-      return current;
-    }
-  if (code >= 0)
-    return (code == '<' ? 0
-	    : code == '>' ? limit
-	    : code == '-' ? current - 1
-	    : code == '+' ? current + 1
-	    : code == '=' ? current
-	    : code - '0' > limit ? limit
-	    : code - '0');
-  if (! ic)  
-    return 0;
-  return (int) mplist_get (((MInputContextInfo *) ic->info)->markers, sym);
-}
-
-static void
-udpate_candidate (MInputContext *ic, MTextProperty *prop, int idx)
-{
-  int from = mtext_property_start (prop);
-  int to = mtext_property_end (prop);
-  int start;
-  MPlist *candidate_list = mtext_property_value (prop);
-  MPlist *group = find_candidates_group (candidate_list, idx, &start,
-					 NULL, NULL);
-  int ingroup_index = idx - start;
-  MText *mt;
-
-  preedit_delete (ic, from, to);
-  if (MPLIST_MTEXT_P (group))
-    {
-      mt = MPLIST_MTEXT (group);
-      preedit_insert (ic, from, NULL, mtext_ref_char (mt, ingroup_index));
-      to = from + 1;
-    }
-  else
-    {
-      int i;
-      MPlist *plist;
-
-      for (i = 0, plist = MPLIST_PLIST (group); i < ingroup_index;
-	   i++, plist = MPLIST_NEXT (plist));
-      mt = MPLIST_MTEXT (plist);
-      preedit_insert (ic, from, mt, 0);
-      to = from + mtext_nchars (mt);
-    }
-  mtext_put_prop (ic->preedit, from, to, Mcandidate_list, candidate_list);
-  mtext_put_prop (ic->preedit, from, to, Mcandidate_index, (void *) idx);
-  ic->cursor_pos = to;
-}
-
-
-static int
-take_action_list (MInputContext *ic, MPlist *action_list)
-{
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-  MPlist *candidate_list = ic->candidate_list;
-  int candidate_index = ic->candidate_index;
-  int candidate_show = ic->candidate_show;
-  MTextProperty *prop;
-
-  MPLIST_DO (action_list, action_list)
-    {
-      MPlist *action;
-      MSymbol name;
-      MPlist *args;
-
-      if (MPLIST_MTEXT_P (action_list)
-	  || MPLIST_INTEGER_P (action_list))
-	name = Minsert, args = action_list;
-      else if (MPLIST_PLIST_P (action_list)
-	       && (MPLIST_MTEXT_P (MPLIST_PLIST (action_list))
-		   || MPLIST_PLIST_P (MPLIST_PLIST (action_list))))
-	name = Minsert, args = action_list;
-      else
-	{
-	  action = MPLIST_PLIST (action_list);
-	  name = MPLIST_SYMBOL (action);
-	  args = MPLIST_NEXT (action);
-	}
-
-      if (name == Minsert)
-	{
-	  if (MPLIST_MTEXT_P (args))
-	    preedit_insert (ic, ic->cursor_pos, MPLIST_MTEXT (args), 0);
-	  else if (MPLIST_INTEGER_P (args))
-	    preedit_insert (ic, ic->cursor_pos, NULL, MPLIST_INTEGER (args));
-	  else if (MPLIST_SYMBOL_P (args))
-	    {
-	      int c = integer_value (ic, args);
-
-	      if (c >= 0 && c <= MCHAR_MAX)
-		preedit_insert (ic, ic->cursor_pos, NULL, c);
-	    }
-	  else
-	    {
-	      MText *mt;
-	      int len;
-
-	      args = MPLIST_PLIST (args);
-	      if (MPLIST_MTEXT_P (args))
-		{
-		  preedit_insert (ic, ic->cursor_pos, NULL,
-				  mtext_ref_char (MPLIST_MTEXT (args), 0));
-		  len = 1;
-		}
-	      else
-		{
-		  mt = MPLIST_MTEXT (MPLIST_PLIST (args));
-		  preedit_insert (ic, ic->cursor_pos, mt, 0);
-		  len = mtext_nchars (mt);
-		}
-	      mtext_put_prop (ic->preedit,
-			      ic->cursor_pos - len, ic->cursor_pos,
-			      Mcandidate_list, args);
-	      mtext_put_prop (ic->preedit,
-			      ic->cursor_pos - len, ic->cursor_pos,
-			      Mcandidate_index, (void *) 0);
-	    }
-	}
-      else if (name == Mselect)
-	{
-	  int start, end;
-	  int code, idx, gindex;
-	  int pos = ic->cursor_pos;
-	  MPlist *group;
-
-	  if (pos == 0
-	      || ! (prop = mtext_get_property (ic->preedit, pos - 1,
-					       Mcandidate_list)))
-	    continue;
-	  if (MPLIST_SYMBOL_P (args))
-	    {
-	      code = marker_code (MPLIST_SYMBOL (args));
-	      if (code < 0)
-		continue;
-	    }
-	  else
-	    code = -1;
-	  idx = (int) mtext_get_prop (ic->preedit, pos - 1, Mcandidate_index);
-	  group = find_candidates_group (mtext_property_value (prop), idx,
-					 &start, &end, &gindex);
-
-	  if (code != '[' && code != ']')
-	    {
-	      idx = (start
-		     + (code >= 0
-			? new_index (NULL, ic->candidate_index - start,
-				     end - start - 1, MPLIST_SYMBOL (args),
-				     NULL)
-			: MPLIST_INTEGER (args)));
-	      if (idx < 0
-		  || (idx >= end
-		      && MPLIST_TAIL_P (MPLIST_NEXT (group))))
-		idx = 0;
-	    }
-	  else
-	    {
-	      int ingroup_index = idx - start;
-	      int len;
-
-	      group = mtext_property_value (prop);
-	      len = mplist_length (group);
-	      if (code == '[')
-		{
-		  gindex--;
-		  if (gindex < 0)
-		    gindex = len - 1;;
-		}
-	      else
-		{
-		  gindex++;
-		  if (gindex >= len)
-		    gindex = 0;
-		}
-	      for (idx = 0; gindex > 0; gindex--, group = MPLIST_NEXT (group))
-		idx += (MPLIST_MTEXT_P (group)
-			? mtext_nchars (MPLIST_MTEXT (group))
-			: mplist_length (MPLIST_PLIST (group)));
-	      len = (MPLIST_MTEXT_P (group)
-		     ? mtext_nchars (MPLIST_MTEXT (group))
-		     : mplist_length (MPLIST_PLIST (group)));
-	      if (ingroup_index >= len)
-		ingroup_index = len - 1;
-	      idx += ingroup_index;
-	    }
-	  udpate_candidate (ic, prop, idx);
-	}
-      else if (name == Mshow)
-	ic->candidate_show = 1;
-      else if (name == Mhide)
-	ic->candidate_show = 0;
-      else if (name == Mdelete)
-	{
-	  int len = mtext_nchars (ic->preedit);
-	  int to = (MPLIST_SYMBOL_P (args)
-		    ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
-				 ic->preedit)
-		    : MPLIST_INTEGER (args));
-
-	  if (to < 0)
-	    to = 0;
-	  else if (to > len)
-	    to = len;
-	  if (to < ic->cursor_pos)
-	    preedit_delete (ic, to, ic->cursor_pos);
-	  else if (to > ic->cursor_pos)
-	    preedit_delete (ic, ic->cursor_pos, to);
-	}
-      else if (name == Mmove)
-	{
-	  int len = mtext_nchars (ic->preedit);
-	  int pos
-	    = (MPLIST_SYMBOL_P (args)
-	       ? new_index (ic, ic->cursor_pos, len, MPLIST_SYMBOL (args),
-			    ic->preedit)
-	       : MPLIST_INTEGER (args));
-
-	  if (pos < 0)
-	    pos = 0;
-	  else if (pos > len)
-	    pos = len;
-	  if (pos != ic->cursor_pos)
-	    {
-	      ic->cursor_pos = pos;
-	      ic->preedit_changed = 1;
-	    }
-	}
-      else if (name == Mmark)
-	{
-	  int code = marker_code (MPLIST_SYMBOL (args));
-
-	  if (code < 0)
-	    mplist_put (ic_info->markers, MPLIST_SYMBOL (args),
-			(void *) ic->cursor_pos);
-	}
-      else if (name == Mpushback)
-	{
-	  int num = MPLIST_INTEGER (args);
-
-	  if (num > 0)
-	    ic_info->key_head -= num;
-	  else
-	    ic_info->key_head = num;
-	  if (ic_info->key_head > ic_info->used)
-	    ic_info->key_head = ic_info->used;
-	}
-      else if (name == Mcall)
-	{
-	  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-	  MIMExternalFunc func = NULL;
-	  MSymbol module, func_name;
-	  MPlist *func_args, *val;
-	  int ret = 0;
-
-	  module = MPLIST_SYMBOL (args);
-	  args = MPLIST_NEXT (args);
-	  func_name = MPLIST_SYMBOL (args);
-
-	  if (im_info->externals)
-	    {
-	      MIMExternalModule *external
-		= (MIMExternalModule *) mplist_get (im_info->externals,
-						    module);
-	      if (external)
-		func = (MIMExternalFunc) mplist_get (external->func_list,
-						     func_name);
-	    }
-	  if (! func)
-	    continue;
-	  func_args = mplist ();
-	  mplist_add (func_args, Mt, ic);
-	  MPLIST_DO (args, MPLIST_NEXT (args))
-	    {
-	      int code;
-
-	      if (MPLIST_KEY (args) == Msymbol
-		  && MPLIST_KEY (args) != Mnil
-		  && (code = marker_code (MPLIST_SYMBOL (args))) >= 0)
-		{
-		  code = new_index (ic, ic->cursor_pos, 
-				    mtext_nchars (ic->preedit),
-				    MPLIST_SYMBOL (args), ic->preedit);
-		  mplist_add (func_args, Minteger, (void *) code);
-		}
-	      else
-		mplist_add (func_args, MPLIST_KEY (args), MPLIST_VAL (args));
-	    }
-	  val = (func) (func_args);
-	  M17N_OBJECT_UNREF (func_args);
-	  if (val && ! MPLIST_TAIL_P (val))
-	    ret = take_action_list (ic, val);
-	  M17N_OBJECT_UNREF (val);
-	  if (ret < 0)
-	    return ret;
-	}
-      else if (name == Mshift)
-	{
-	  shift_state (ic, MPLIST_SYMBOL (args));
-	}
-      else if (name == Mundo)
-	{
-	  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-	  int unhandle = 0;
-
-	  mtext_reset (ic->preedit);
-	  mtext_reset (ic_info->preedit_saved);
-	  ic->cursor_pos = ic_info->state_pos = 0;
-	  ic_info->state_key_head = ic_info->key_head = 0;
-	  ic_info->used -= 2;
-	  if (ic_info->used < 0)
-	    {
-	      ic_info->used = 0;
-	      unhandle = 1;
-	    }
-	  shift_state (ic, ((MIMState *) MPLIST_VAL (im_info->states))->name);
-	  if (unhandle)
-	    return -1;
-	  break;
-	}
-      else if (name == Mset || name == Madd || name == Msub
-	       || name == Mmul || name == Mdiv)
-	{
-	  MSymbol sym = MPLIST_SYMBOL (args);
-	  int val1 = (int) mplist_get (ic_info->vars, sym), val2;
-
-	  args = MPLIST_NEXT (args);
-	  val2 = integer_value (ic, args);
-	  if (name == Mset)
-	    val1 = val2;
-	  else if (name == Madd)
-	    val1 += val2;
-	  else if (name == Msub)
-	    val1 -= val2;
-	  else if (name == Mmul)
-	    val1 *= val2;
-	  else
-	    val1 /= val2;
-	  mplist_put (ic_info->vars, sym, (void *) val1);
-	}
-      else if (name == Mequal || name == Mless || name == Mgreater)
-	{
-	  int val1, val2;
-	  MPlist *actions1, *actions2;
-	  int ret;
-
-	  val1 = integer_value (ic, args);
-	  args = MPLIST_NEXT (args);
-	  val2 = integer_value (ic, args);
-	  args = MPLIST_NEXT (args);
-	  actions1 = MPLIST_PLIST (args);
-	  args = MPLIST_NEXT (args);
-	  if (MPLIST_TAIL_P (args))
-	    actions2 = NULL;
-	  else
-	    actions2 = MPLIST_PLIST (args);
-	  if (name == Mequal ? val1 == val2
-	      : name == Mless ? val1 < val2
-	      : val1 > val2)
-	    ret = take_action_list (ic, actions1);
-	  else if (actions2)
-	    ret = take_action_list (ic, actions2);
-	  if (ret < 0)
-	    return ret;
-	}
-      else
-	{
-	  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-	  MPlist *actions;
-
-	  if (im_info->macros
-	      && (actions = mplist_get (im_info->macros, name)))
-	    {
-	      if (take_action_list (ic, actions) < 0)
-		return -1;
-	    };
-	}
-    }
-
-  prop = NULL;
-  ic->candidate_list = NULL;
-  if (ic->cursor_pos > 0
-      && (prop = mtext_get_property (ic->preedit, ic->cursor_pos - 1,
-				     Mcandidate_list)))
-    {
-      ic->candidate_list = mtext_property_value (prop);
-      ic->candidate_index
-	= (int) mtext_get_prop (ic->preedit, ic->cursor_pos - 1,
-				Mcandidate_index);
-      ic->candidate_from = mtext_property_start (prop);
-      ic->candidate_to = mtext_property_end (prop);
-    }
-
-  ic->candidates_changed |= (candidate_list != ic->candidate_list
-			     || candidate_index != ic->candidate_index
-			     || candidate_show != ic->candidate_show);
-  return 0;
-}
-
-
-/* Handle the input key KEY in the current state and map specified in
-   the input context IC.  If KEY is handled correctly, return 0.
-   Otherwise, return -1.  */
-
-static int
-handle_key (MInputContext *ic)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-  MIMMap *map = ic_info->map;
-  MIMMap *submap = NULL;
-  MSymbol key = ic_info->keys[ic_info->key_head];
-  int i;
-
-  if (map->submaps)
-    {
-      submap = mplist_get (map->submaps, key);
-      if (! submap && (key = msymbol_get (key, M_key_alias)) != Mnil)
-	submap = mplist_get (map->submaps, key);
-    }
-
-  if (submap)
-    {
-      mtext_cpy (ic->preedit, ic_info->preedit_saved);
-      ic->cursor_pos = ic_info->state_pos;
-      ic_info->key_head++;
-      ic_info->map = map = submap;
-      if (map->map_actions)
-	{
-	  if (take_action_list (ic, map->map_actions) < 0)
-	    return -1;
-	}
-      else if (map->submaps)
-	{
-	  for (i = ic_info->state_key_head; i < ic_info->key_head; i++)
-	    {
-	      MSymbol key = ic_info->keys[i];
-	      char *name = msymbol_name (key);
-
-	      if (! name[0] || ! name[1])
-		mtext_ins_char (ic->preedit, ic->cursor_pos++, name[0], 1);
-	    }
-	  ic->preedit_changed = 1;
-	}
-
-      /* If this is the terminal map or we have shifted to another
-	 state, perform branch actions (if any).  */
-      if (! map->submaps || map != ic_info->map)
-	{
-	  if (map->branch_actions)
-	    {
-	      if (take_action_list (ic, map->branch_actions) < 0)
-		return -1;
-	    }
-	  /* If MAP is still not the root map, shift to the current
-	     state.  */
-	  if (ic_info->map != ic_info->state->map)
-	    shift_state (ic, ic_info->state->name);
-	}
-    }
-  else
-    {
-      /* MAP can not handle KEY.  */
-
-      /* If MAP is the root map of the initial state, it means that
-	 the current input method can not handle KEY.  */
-      if (map == ((MIMState *) MPLIST_VAL (im_info->states))->map)
-	return -1;
-
-      if (map != ic_info->state->map)
-	{
-	  /* If MAP is not the root map... */
-	  /* If MAP has branch actions, perform them.  */
-	  if (map->branch_actions)
-	    take_action_list (ic, map->branch_actions);
-	  /* If MAP is still not the root map, shift to the current
-	     state. */
-	  if (ic_info->map != ic_info->state->map)
-	    {
-	      shift_state (ic, ic_info->state->name);
-	      /* If MAP has branch_actions, perform them.  */
-	      if (ic_info->map->branch_actions)
-		take_action_list (ic, ic_info->map->branch_actions);
-	    }
-	}
-      else
-	{
-	  /* MAP is the root map, perform branch actions (if any) or
-	     shift to the initial state.  */
-	  if (map->branch_actions)
-	    take_action_list (ic, map->branch_actions);
-	  else
-	    shift_state (ic,
-			 ((MIMState *) MPLIST_VAL (im_info->states))->name);
-	}
-    }
-  return 0;
-}
-
-static void
-reset_ic (MInputContext *ic)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-
-  MLIST_RESET (ic_info);
-  ic_info->state = (MIMState *) MPLIST_VAL (im_info->states);
-  ic_info->map = ic_info->state->map;
-  ic_info->state_key_head = ic_info->key_head = 0;
-  ic->cursor_pos = ic_info->state_pos = 0;
-  ic->status = ic_info->state->title;
-  if (! ic->status)
-    ic->status = im_info->title;
-  ic->candidate_list = NULL;
-  ic->candidate_show = 0;
-  ic->status_changed = ic->preedit_changed = ic->candidates_changed = 1;
-  if (ic_info->map->map_actions)
-    take_action_list (ic, ic_info->map->map_actions);
-}
-
-static int
-open_im (MInputMethod *im)
-{
-  MDatabase *mdb;
-  MInputMethodInfo *im_info;
-  MPlist *plist;
-  int result;
-
-  mdb = mdatabase_find (Minput_method, im->language, im->name, Mnil);
-  if (! mdb)
-    return -1;
-  plist = mdatabase_load (mdb);
-  if (! plist)
-    MERROR (MERROR_IM, -1);
-  MSTRUCT_CALLOC (im_info, MERROR_IM);
-  im->info = im_info;
-  result = load_input_method (im->language, im->name, plist, im_info);
-  M17N_OBJECT_UNREF (plist);
-  if (result < 0)
-    MERROR (MERROR_IM, -1);
-  return 0;
-}
-
-static void
-close_im (MInputMethod *im)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) im->info;
-  MPlist *plist;
-
-  if (im_info->title)
-    M17N_OBJECT_UNREF (im_info->title);
-  if (im_info->states)
-    {
-      MPLIST_DO (plist, im_info->states)
-	{
-	  MIMState *state = (MIMState *) MPLIST_VAL (plist);
-
-	  if (state->title)
-	    M17N_OBJECT_UNREF (state->title);
-	  if (state->map)
-	    free_map (state->map);
-	  free (state);
-	}
-      M17N_OBJECT_UNREF (im_info->states);
-    }
-
-  if (im_info->macros)
-    {
-      MPLIST_DO (plist, im_info->macros)
-	M17N_OBJECT_UNREF (MPLIST_VAL (plist));	
-      M17N_OBJECT_UNREF (im_info->macros);
-    }
-
-  if (im_info->externals)
-    {
-      MPLIST_DO (plist, im_info->externals)
-	{
-	  MIMExternalModule *external = MPLIST_VAL (plist);
-
-	  dlclose (external->handle);
-	  M17N_OBJECT_UNREF (external->func_list);
-	  free (external);
-	  MPLIST_KEY (plist) = Mt;
-	}
-      M17N_OBJECT_UNREF (im_info->externals);
-    }
-  free (im_info);
-  im->info = NULL;
-}
-
-
-static int
-create_ic (MInputContext *ic)
-{
-  MInputMethod *im = ic->im;
-  MInputMethodInfo *im_info = (MInputMethodInfo *) im->info;
-  MInputContextInfo *ic_info;
-
-  if (ic->info)
-    ic_info = (MInputContextInfo *) ic->info;
-  else
-    {
-      MSTRUCT_CALLOC (ic_info, MERROR_IM);
-      ic->info = ic_info;
-    }
-  MLIST_INIT1 (ic_info, keys, 8);
-  ic_info->markers = mplist ();
-  ic_info->vars = mplist ();
-  ic_info->preedit_saved = mtext ();
-  if (im_info->externals)
-    {
-      MPlist *func_args = mplist (), *plist;
-
-      mplist_add (func_args, Mt, ic);
-      MPLIST_DO (plist, im_info->externals)
-	{
-	  MIMExternalModule *external = MPLIST_VAL (plist);
-	  MIMExternalFunc func
-	    = (MIMExternalFunc) mplist_get (external->func_list, Minit);
-
-	  if (func)
-	    (func) (func_args);
-	}
-      M17N_OBJECT_UNREF (func_args);
-    }
-  reset_ic (ic);
-  return 0;
-}
-
-static void
-destroy_ic (MInputContext *ic)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-
-  if (im_info->externals)
-    {
-      MPlist *func_args = mplist (), *plist;
-
-      mplist_add (func_args, Mt, ic);
-      MPLIST_DO (plist, im_info->externals)
-	{
-	  MIMExternalModule *external = MPLIST_VAL (plist);
-	  MIMExternalFunc func
-	    = (MIMExternalFunc) mplist_get (external->func_list, Mfini);
-
-	  if (func)
-	    (func) (func_args);
-	}
-      M17N_OBJECT_UNREF (func_args);
-    }
-  MLIST_FREE1 (ic_info, keys);
-  M17N_OBJECT_UNREF (ic_info->preedit_saved);
-  M17N_OBJECT_UNREF (ic_info->markers);
-  M17N_OBJECT_UNREF (ic_info->vars);
-  free (ic->info);
-}
-
-
-/** Handle the input key KEY in the current state and map of IC->info.
-    If KEY is handled but no text is produced, return 0, otherwise
-    return 1.
-
-    Ignore ARG.  */
-
-static int
-filter (MInputContext *ic, MSymbol key, void *arg)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) ic->im->info;
-  MInputContextInfo *ic_info = (MInputContextInfo *) ic->info;
-  int i = 0;
-
-  mtext_reset (ic->produced);
-  ic->status_changed = ic->preedit_changed = ic->candidates_changed = 0;
-  MLIST_APPEND1 (ic_info, keys, key, MERROR_IM);
-  ic_info->key_unhandled = 0;
-  do {
-    if (handle_key (ic) < 0)
-      {
-	/* KEY was not handled.  Reset the status and break the
-	   loop.  */
-	reset_ic (ic);
-	/* This forces returning 1.  */
-	ic_info->key_unhandled = 1;
-	break;
-      }
-    if (i++ == 100)
-      {
-	mdebug_hook ();
-	reset_ic (ic);
-	ic_info->key_unhandled = 1;
-	break;
-      }
-    /* Break the loop if all keys were handled.  */
-  } while (ic_info->key_head < ic_info->used);
-
-  /* If the current map is the root of the initial state, we should
-     produce any preedit text in ic->produced.  */
-  if (ic_info->map == ((MIMState *) MPLIST_VAL (im_info->states))->map
-      && mtext_nchars (ic->preedit) > 0)
-    shift_state (ic, ((MIMState *) MPLIST_VAL (im_info->states))->name);
-
-  if (mtext_nchars (ic->produced) > 0)
-    {
-      MSymbol lang = msymbol_get (ic->im->language, Mlanguage);
-
-      if (lang != Mnil)
-	mtext_put_prop (ic->produced, 0, mtext_nchars (ic->produced),
-			Mlanguage, ic->im->language);
-    }
-
-  return (! ic_info->key_unhandled && mtext_nchars (ic->produced) == 0);
-}
-
-
-/** Return 1 if the last event or key was not handled, otherwise
-    return 0.
-
-    There is no need of looking up because ic->produced should already
-    contain the produced text (if any).
-
-    Ignore KEY.  */
-
-static int
-lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
-{
-  mtext_cat (mt, ic->produced);
-  mtext_reset (ic->produced);
-  return (((MInputContextInfo *) ic->info)->key_unhandled ? -1 : 0);
-}
-
-/* Support functions for mdebug_dump_im.  */
-
-static void
-dump_im_map (MPlist *map_list, int indent)
-{
-  char *prefix;
-  MSymbol key = MPLIST_KEY (map_list);
-  MIMMap *map = (MIMMap *) MPLIST_VAL (map_list);
-
-  prefix = (char *) alloca (indent + 1);
-  memset (prefix, 32, indent);
-  prefix[indent] = '\0';
-
-  fprintf (stderr, "(\"%s\" ", msymbol_name (key));
-  if (map->map_actions)
-    mdebug_dump_plist (map->map_actions, indent + 2);
-  if (map->submaps)
-    {
-      MPLIST_DO (map_list, map->submaps)
-	{
-	  fprintf (stderr, "\n%s  ", prefix);
-	  dump_im_map (map_list, indent + 2);
-	}
-    }
-  if (map->branch_actions)
-    {
-      fprintf (stderr, "\n%s  (branch\n%s    ", prefix, prefix);
-      mdebug_dump_plist (map->branch_actions, indent + 4);
-      fprintf (stderr, ")");      
-    }
-  fprintf (stderr, ")");
-}
-
-
-static void
-dump_im_state (MIMState *state, int indent)
-{
-  char *prefix;
-  MPlist *map_list;
-
-  prefix = (char *) alloca (indent + 1);
-  memset (prefix, 32, indent);
-  prefix[indent] = '\0';
-
-  fprintf (stderr, "(%s", msymbol_name (state->name));
-  if (state->map->submaps)
-    {
-      MPLIST_DO (map_list, state->map->submaps)
-	{
-	  fprintf (stderr, "\n%s  ", prefix);
-	  dump_im_map (map_list, indent + 2);
-	}
-    }
-  fprintf (stderr, ")");
-}
-
-
-
-int
-minput__init ()
-{
-  char *key_names[32]
-    = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
-	"BackSpace", "Tab", "Linefeed", "Clear", NULL, "Return", NULL, NULL,
-	NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
-	NULL, NULL, NULL, "Escape", NULL, NULL, NULL, NULL };
-  char buf[6], buf2[256];
-  int i;
-
-  Minput_method = msymbol ("input-method");
-  Minput_driver = msymbol ("input-driver");
-  Mtitle = msymbol ("title");
-  Mmacro = msymbol ("macro");
-  Mmodule = msymbol ("module");
-  Mmap = msymbol ("map");
-  Mstate = msymbol ("state");
-  Minsert = msymbol ("insert");
-  Mdelete = msymbol ("delete");
-  Mmove = msymbol ("move");
-  Mmark = msymbol ("mark");
-  Mpushback = msymbol ("pushback");
-  Mundo = msymbol ("undo");
-  Mcall = msymbol ("call");
-  Mshift = msymbol ("shift");
-  Mselect = msymbol ("select");
-  Mshow = msymbol ("show");
-  Mhide = msymbol ("hide");
-  Mset = msymbol ("set");
-  Madd = msymbol ("add");
-  Msub = msymbol ("sub");
-  Mmul = msymbol ("mul");
-  Mdiv = msymbol ("div");
-  Mequal = msymbol ("=");
-  Mless = msymbol ("<");
-  Mgreater = msymbol (">");
-
-  Minput_preedit_start = msymbol ("input-preedit-start");
-  Minput_preedit_done = msymbol ("input-preedit-done");
-  Minput_preedit_draw = msymbol ("input-preedit-draw");
-  Minput_status_start = msymbol ("input-status-start");
-  Minput_status_done = msymbol ("input-status-done");
-  Minput_status_draw = msymbol ("input-status-draw");
-  Minput_candidates_start = msymbol ("input-candidates-start");
-  Minput_candidates_done = msymbol ("input-candidates-done");
-  Minput_candidates_draw = msymbol ("input-candidates-draw");
-  Minput_set_spot = msymbol ("input-set-spot");
-  Minput_toggle = msymbol ("input-toggle");
-
-  Mcandidate_list = msymbol_as_managing_key ("  candidate-list");
-  Mcandidate_index = msymbol ("  candidate-index");
-
-  Minit = msymbol ("init");
-  Mfini = msymbol ("fini");
-
-  M_key_alias = msymbol ("  key-alias");
-
-  buf[0] = 'C';
-  buf[1] = '-';
-  buf[3] = '\0';
-  for (i = 0, buf[2] = '@'; i < ' '; i++, buf[2]++)
-    {
-      one_char_symbol[i] = msymbol (buf);
-      if (key_names[i])
-	msymbol_put (one_char_symbol[i], M_key_alias,  msymbol (key_names[i]));
-    }
-  for (buf[2] = i; i < 127; i++, buf[2]++)
-    one_char_symbol[i] = msymbol (buf + 2);
-  one_char_symbol[i++] = msymbol ("Delete");
-  buf[2] = 'M';
-  buf[3] = '-';
-  buf[5] = '\0';
-  buf2[0] = 'M';
-  buf2[1] = '-';
-  for (buf[4] = '@'; i < 160; i++, buf[4]++)
-    {
-      one_char_symbol[i] = msymbol (buf);
-      if (key_names[i - 128])
-	{
-	  strcpy (buf2 + 2, key_names[i - 128]);
-	  msymbol_put (one_char_symbol[i], M_key_alias,  msymbol (buf2));
-	}
-    }
-  for (buf[4] = i - 128; i < 255; i++, buf[4]++)
-    one_char_symbol[i] = msymbol (buf + 2);
-  one_char_symbol[i] = msymbol ("M-Delete");
-
-  minput_default_driver.open_im = open_im;
-  minput_default_driver.close_im = close_im;
-  minput_default_driver.create_ic = create_ic;
-  minput_default_driver.destroy_ic = destroy_ic;
-  minput_default_driver.filter = filter;
-  minput_default_driver.lookup = lookup;
-  minput_default_driver.callback_list = NULL;
-  minput_driver = &minput_default_driver;
-  return 0;
-}
-
-void
-minput__fini ()
-{
-  if (minput_default_driver.callback_list)
-    {
-      M17N_OBJECT_UNREF (minput_default_driver.callback_list);
-      minput_default_driver.callback_list = NULL;
-    }
-  if (minput_driver->callback_list)
-    {
-      M17N_OBJECT_UNREF (minput_driver->callback_list);
-      minput_driver->callback_list = NULL;
-    }
-}
-
-void
-minput__callback (MInputContext *ic, MSymbol command)
-{
-  if (ic->im->driver.callback_list)
-    {
-      MInputCallbackFunc func
-	= (MInputCallbackFunc) mplist_get (ic->im->driver.callback_list,
-					   command);
-
-      if (func)
-	(func) (ic, command);
-    }
-}
-
-MSymbol
-minput__char_to_key (int c)
-{
-  if (c < 0 || c >= 0x100)
-    return Mnil;
-
-  return one_char_symbol[c];
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nInputMethod */
-/*** @{ */
-/*=*/
-
-/***en
-    @name Variables: Predefined symbols for callback commands.
-
-    These are the predefined symbols that are used as the @c COMMAND
-    argument of callback functions of an input method driver (see
-    #MInputDriver::callback_list ).  */ 
-/***ja
-    @name ÊÑ¿ô¡§ ¥³¡¼¥ë¥Ð¥Ã¥¯¥³¥Þ¥ó¥ÉÍÑÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë.
-
-    ÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Î¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Ë¤ª¤¤¤Æ @c COMMAND °ú¿ô¤È¤·
-    ¤ÆÍÑ¤¤¤é¤ì¤ëÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë (#MInputDriver::callback_list »²¾È)¡£
-      */ 
-/*** @{ */ 
-/*=*/
-
-MSymbol Minput_preedit_start;
-MSymbol Minput_preedit_done;
-MSymbol Minput_preedit_draw;
-MSymbol Minput_status_start;
-MSymbol Minput_status_done;
-MSymbol Minput_status_draw;
-MSymbol Minput_candidates_start;
-MSymbol Minput_candidates_done;
-MSymbol Minput_candidates_draw;
-MSymbol Minput_set_spot;
-MSymbol Minput_toggle;
-/*** @} */
-/*=*/
-
-/***en
-    @brief The default driver for internal input methods.
-
-    The variable #minput_default_driver is the default driver for
-    internal input methods.
-
-    The member MInputDriver::open_im () searches the m17n database for
-    an input method that matches the tag \< #Minput_method, $LANGUAGE,
-    $NAME\> and loads it.
-
-    The member MInputDriver::callback_list () is @c NULL.  Thus, it is
-    programmers responsibility to set it to a plist of proper callback
-    functions.  Otherwise, no feedback information (e.g. preedit text)
-    can be shown to users.
-
-    The macro M17N_INIT () sets the variable #minput_driver to the
-    pointer to this driver so that all internal input methods use it.
-
-    Therefore, unless @c minput_driver is set differently, the driver
-    dependent arguments $ARG of the functions whose name begin with
-    "minput_" are all ignored.  */
-
-/***ja
-    @brief ÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¥Ç¥Õ¥©¥ë¥È¥É¥é¥¤¥Ð.
-
-    ÆþÎÏ¥É¥é¥¤¥Ð #minput_default_driver ¤ÏÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤Î¥Ç¥Õ¥©¥ë
-    ¥È¤Î¥É¥é¥¤¥Ð¤Ç¤¢¤ë¡£
-
-    ¥á¥ó¥Ð MInputDriver::open_im () ¤Ï m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹Ãæ¤«¤é¥¿¥° 
-    \< #Minput_method, $LANGUAGE, $NAME\> ¤Ë¹çÃ×¤¹¤ëÆþÎÏ¥á¥½¥Ã¥É¤òÃµ¤·¡¢
-    ¤½¤ì¤ò¥í¡¼¥É¤¹¤ë¡£
-
-    ¥á¥ó¥Ð MInputDriver::callback_list () ¤Ï @c NULL ¤Ê¤Î¤Ç¡¢¥×¥í¥°¥é
-    ¥ÞÂ¦¤ÇÀÕÇ¤¤ò»ý¤Ã¤Æ, Å¬ÀÚ¤Ê¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î plist ¤ËÀßÄê¤·¤Ê¤¯¤Æ
-    ¤Ï¤Ê¤é¤Ê¤¤¡£¤µ¤â¤Ê¤¤¤È¡¢preedit ¥Æ¥¥¹¥È¤Ê¤É¤Î¥Õ¥£¡¼¥É¥Ð¥Ã¥¯¾ðÊó¤¬
-    ¥æ¡¼¥¶¤ËÉ½¼¨¤µ¤ì¤Ê¤¤¡£
-
-    ¥Þ¥¯¥í M17N_INIT () ¤ÏÊÑ¿ô #minput_driver ¤ò¤³¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó
-    ¥¿¤ËÀßÄê¤·¡¢Á´¤Æ¤ÎÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤¬¤³¤Î¥É¥é¥¤¥Ð¤ò»È¤¦¤è¤¦¤Ë¤¹¤ë¡£
-
-    ¤·¤¿¤¬¤Ã¤Æ¡¢@c minput_driver ¤¬¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Î¤Þ¤Þ¤Ç¤¢¤ì¤Ð¡¢minput_ 
-    ¤Ç»Ï¤Þ¤ë´Ø¿ô¤Î¥É¥é¥¤¥Ð¤Ë°ÍÂ¸¤¹¤ë°ú¿ô $ARG ¤Ï¤¹¤Ù¤ÆÌµ»ë¤µ¤ì¤ë¡£  */
-
-MInputDriver minput_default_driver;
-/*=*/
-
-/***en
-    @brief The driver for internal input methods.
-
-    The variable #minput_driver is a pointer to the input method
-    driver that is used by internal input methods.  The macro
-    M17N_INIT () initializes it to a pointer to #minput_default_driver
-    (if  is included) or to #minput_gui_driver (if
-     is included).  */ 
-/***ja
-    @brief ÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¥É¥é¥¤¥Ð.
-
-    ÊÑ¿ô #minput_driver ¤ÏÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤Ë¤è¤Ã¤Æ»ÈÍÑ¤µ¤ì¤Æ¤¤¤ëÆþÎÏ¥á
-    ¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥Þ¥¯¥íM17N_INIT () ¤Ï¤³¤Î¥Ý¥¤¥ó
-    ¥¿¤ò #minput_default_driver ( ¤¬´Þ¤Þ¤ì¤ë»þ) ¤Þ¤¿¤Ï 
-    #minput_gui_driver (  ¤¬´Þ¤Þ¤ì¤ë»þ) ¤Ë½é´ü²½¤¹¤ë¡£  */ 
-
-MInputDriver *minput_driver;
-
-MSymbol Minput_driver;
-
-/*=*/
-
-/***en
-    @brief Open an input method.
-
-    The minput_open_im () function opens an input method that matches
-    language $LANGUAGE and name $NAME, and returns a pointer to the
-    input method object newly allocated.
-
-    This function at first decides an driver for the input method as
-    below.
-
-    If $LANGUAGE is not #Mnil, the driver pointed by the variable
-    #minput_driver is used.
-
-    If $LANGUAGE is #Mnil and $NAME has #Minput_driver property, the
-    driver pointed to by the property value is used to open the input
-    method.  If $NAME has no such property, @c NULL is returned.
-
-    Then, the member MInputDriver::open_im () of the driver is
-    called.  
-
-    $ARG is set in the member @c arg of the structure MInputMethod so
-    that the driver can refer to it.  */
-
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë.
-
-    ´Ø¿ô minput_open_im () ¤Ï¸À¸ì $LANGUAGE ¤ÈÌ¾Á° $NAME ¤Ë¹çÃ×¤¹¤ëÆþ
-    ÎÏ¥á¥½¥Ã¥É¤ò¥ª¡¼¥×¥ó¤·¡¢¿·¤¿¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿ÆþÎÏ¥á¥½¥Ã¥É¥ª¥Ö¥¸¥§¥¯
-    ¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-    
-    ¤³¤Î´Ø¿ô¤Ï¡¢¤Þ¤ºÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤Î¥É¥é¥¤¥Ð¤ò°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ·èÄê¤¹¤ë¡£
-
-    $LANGUAGE ¤¬ #Mnil ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÑ¿ô #minput_driver ¤Ç»Ø¤µ¤ì¤Æ¤¤¤ë
-    ¥É¥é¥¤¥Ð¤òÍÑ¤¤¤ë¡£
-
-    $LANGUAGE ¤¬ #Mnil ¤Ç¤¢¤ê¡¢$NAME ¤¬ #Minput_driver ¥×¥í¥Ñ¥Æ¥£¤ò»ý
-    ¤Ä¾ì¹ç¤Ë¤Ï¡¢¤½¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ç»Ø¤µ¤ì¤Æ¤¤¤ëÆþÎÏ¥É¥é¥¤¥Ð¤òÍÑ¤¤¤ÆÆþ
-    ÎÏ¥á¥½¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë¡£$NAME ¤Ë¤½¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤¬Ìµ¤«¤Ã¤¿¾ì
-    ¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
-
-    ¼¡¤¤¤Ç¡¢¥É¥é¥¤¥Ð¤Î¥á¥ó¥Ð MInputDriver::open_im () ¤¬¸Æ¤Ð¤ì¤ë¡£
-
-    $ARG ¤Ï¡¢¥É¥é¥¤¥Ð¤¬»²¾È¤Ç¤¤ë¤è¤¦¤Ë¡¢¹½Â¤ÂÎ MInputMethod ¤Î¥á¥ó¥Ð 
-    @c arg ¤ËÀßÄê¤µ¤ì¤ë¡£
-
-    @latexonly \IPAlabel{minput_open} @endlatexonly
-
-*/
-
-MInputMethod *
-minput_open_im (MSymbol language, MSymbol name, void *arg)
-{
-  MInputMethod *im;
-  MInputDriver *driver;
-
-  if (language)
-    driver = minput_driver;
-  else
-    {
-      driver = (MInputDriver *) msymbol_get (name, Minput_driver);
-      if (! driver)
-	MERROR (MERROR_IM, NULL);
-    }
-
-  MSTRUCT_CALLOC (im, MERROR_IM);
-  im->language = language;
-  im->name = name;
-  im->arg = arg;
-  im->driver = *driver;
-  if ((*im->driver.open_im) (im) < 0)
-    {
-      free (im);
-      return NULL;
-    }
-  return im;
-}
-
-/*=*/
-
-/***en
-    @brief Close an input method.
-
-    The minput_close_im () function closes the input method $IM, which
-    must have been created by minput_open_im ().  */
-
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¤ò¥¯¥í¡¼¥º¤¹¤ë.
-
-    ´Ø¿ô minput_close_im () ¤Ï¡¢ÆþÎÏ¥á¥½¥Ã¥É $IM ¤ò¥¯¥í¡¼¥º¤¹¤ë¡£¤³¤Î
-    ÆþÎÏ¥á¥½¥Ã¥É $IM ¤Ï minput_open_im () ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê¤±¤ì
-    ¤Ð¤Ê¤é¤Ê¤¤¡£  */
-
-void
-minput_close_im (MInputMethod *im)
-{
-  (*im->driver.close_im) (im);
-  free (im);
-}
-
-/*=*/
-
-/***en
-    @brief Create an input context.
-
-    The minput_create_ic () function creates an input context object
-    associated with input method $IM, and calls callback functions
-    corresponding to #Minput_preedit_start, #Minput_status_start, and
-    #Minput_status_draw in this order.
-
-    @return
-
-    If an input context is successfully created, minput_create_ic ()
-    returns a pointer to it.  Otherwise it returns @c NULL.  */
-
-/***ja
-    @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÀ¸À®¤¹¤ë.
-
-    ´Ø¿ô minput_create_ic () ¤ÏÆþÎÏ¥á¥½¥Ã¥É $IM ¤ËÂÐ±þ¤¹¤ëÆþÎÏ¥³¥ó¥Æ¥¯
-    ¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤òÀ¸À®¤·¡¢ #Minput_preedit_start,
-    #Minput_status_start, #Minput_status_draw ¤ËÂÐ±þ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø
-    ¿ô¤ò¤³¤Î½ç¤Ë¸Æ¤Ö¡£
-
-    @return
-
-    ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤¬À¸À®¤µ¤ì¤¿¾ì¹ç¡¢minput_create_ic () ¤Ï¤½¤ÎÆþÎÏ¥³
-    ¥ó¥Æ¥¯¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¼ºÇÔ¤·¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤¹¡£
-      */
-
-MInputContext *
-minput_create_ic (MInputMethod *im, void *arg)
-{
-  MInputContext *ic;
-
-  MSTRUCT_CALLOC (ic, MERROR_IM);
-  ic->im = im;
-  ic->arg = arg;
-  ic->preedit = mtext ();
-  ic->candidate_list = NULL;
-  ic->produced = mtext ();
-  ic->spot.x = ic->spot.y = 0;
-  ic->active = 1;
-  ic->plist = mplist ();
-  if ((*im->driver.create_ic) (ic) < 0)
-    {
-      M17N_OBJECT_UNREF (ic->preedit);
-      M17N_OBJECT_UNREF (ic->produced);
-      M17N_OBJECT_UNREF (ic->plist);
-      free (ic);
-      return NULL;
-    };
-
-  if (im->driver.callback_list)
-    {
-      minput__callback (ic, Minput_preedit_start);
-      minput__callback (ic, Minput_status_start);
-      minput__callback (ic, Minput_status_draw);
-    }
-
-  return ic;
-}
-
-/*=*/
-
-/***en
-    @brief Destroy an input context.
-
-    The minput_destroy_ic () function destroys the input context $IC,
-    which must have been created by minput_create_ic ().  It calls
-    callback functions corresponding to #Minput_preedit_done,
-    #Minput_status_done, and #Minput_candidates_done in this order.  */
-
-/***ja
-    @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÇË²õ¤¹¤ë.
-
-    ´Ø¿ô minput_destroy_ic () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤òÇË²õ¤¹¤ë¡£¤³
-    ¤ÎÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Ï minput_create_ic () ¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¤â¤Î¤Ç¤Ê
-    ¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£¤³¤Î´Ø¿ô¤Ï#Minput_preedit_done,
-    #Minput_status_done, #Minput_candidates_done ¤ËÂÐ±þ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò
-    ¤³¤Î½ç¤Ë¸Æ¤Ö¡£
-  */
-
-void
-minput_destroy_ic (MInputContext *ic)
-{
-  if (ic->im->driver.callback_list)
-    {
-      minput__callback (ic, Minput_preedit_done);
-      minput__callback (ic, Minput_status_done);
-      minput__callback (ic, Minput_candidates_done);
-    }
-  (*ic->im->driver.destroy_ic) (ic);
-  M17N_OBJECT_UNREF (ic->preedit);
-  M17N_OBJECT_UNREF (ic->produced);
-  M17N_OBJECT_UNREF (ic->plist);
-  free (ic);
-}
-
-/*=*/
-
-/***en
-    @brief Filter an input key.
-
-    The minput_filter () function filters input key $KEY according to
-    input context $IC, and calls callback functions corresponding to
-    #Minput_preedit_draw, #Minput_status_draw, and
-    #Minput_candidates_draw if the preedit text, the status, and the
-    current candidate are changed respectively.
-
-    @return
-    If $KEY is filtered out, this function returns 1.  In that case,
-    the caller should discard the key.  Otherwise, it returns 0, and
-    the caller should handle the key, for instance, by calling the
-    function minput_lookup () with the same key.  */
-
-/***ja
-    @brief ÆþÎÏ¥¡¼¤ò¥Õ¥£¥ë¥¿¤¹¤ë.
-
-    ´Ø¿ô minput_filter () ¤ÏÆþÎÏ¥¡¼ $KEY ¤òÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤Ë±þ
-    ¤¸¤Æ¥Õ¥£¥ë¥¿¤·¡¢preedit ¥Æ¥¥¹¥È¡¢¥¹¥Æ¡¼¥¿¥¹¡¢¸½»þÅÀ¤Ç¤Î¸õÊä¤¬ÊÑ²½
-    ¤·¤¿ºÝ¤Ë¤Ï¤½¤ì¤¾¤ì#Minput_preedit_draw, #Minput_status_draw,
-    #Minput_candidates_draw ¤ËÂÐ±þ¤¹¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤ò¸Æ¤Ö¡£
-
-    @return 
-    $KEY ¤¬¥Õ¥£¥ë¥¿¤µ¤ì¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¸Æ¤Ó
-    ½Ð¤·Â¦¤Ï¤³¤Î¥¡¼¤ò¼Î¤Æ¤ë¤Ù¤¤Ç¤¢¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 0 ¤òÊÖ¤·¡¢¸Æ¤Ó
-    ½Ð¤·Â¦¤Ï¡¢¤¿¤È¤¨¤ÐÆ±¤¸¥¡¼¤Ç´Ø¿ô minput_lookup () ¤ò¸Æ¤Ö¤Ê¤É¤·¤Æ¡¢
-    ¤³¤Î¥¡¼¤ò½èÍý¤¹¤ë¡£
-
-    @latexonly \IPAlabel{minput_filter} @endlatexonly
-*/
-
-int
-minput_filter (MInputContext *ic, MSymbol key, void *arg)
-{
-  int ret;
-
-  if (! ic
-      || ! ic->active)
-    return 0;
-  ret = (*ic->im->driver.filter) (ic, key, arg);
-
-  if (ic->im->driver.callback_list)
-    {
-      if (ic->preedit_changed)
-	minput__callback (ic, Minput_preedit_draw);
-      if (ic->status_changed)
-	minput__callback (ic, Minput_status_draw);
-      if (ic->candidates_changed)
-	minput__callback (ic, Minput_candidates_draw);
-      ic->preedit_changed = ic->status_changed = ic->candidates_changed = 0;
-    }
-
-  return ret;
-}
-
-/*=*/
-
-/***en
-    @brief Lookup a text produced in the input context.
-
-    The minput_lookup () function looks up a text in the input context
-    $IC.  $KEY must be the same one provided to the previous call of
-    minput_filter ().
-
-    If a text was produced by the input method, it is concatenated
-    to M-text $MT.
-
-    This function calls #MInputDriver::lookup .
-
-    @return
-    If $KEY was correctly handled by the input method, this function
-    returns 0.  Otherwise, returns -1, even in that case, some text
-    may be produced in $MT.  */
-
-/***ja
-    @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥ÈÃæ¤Î¥Æ¥¥¹¥È¤Î¸¡º÷.
-
-    ´Ø¿ô minput_lookup () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC Ãæ¤Î¥Æ¥¥¹¥È¤ò¸¡º÷¤¹
-    ¤ë¡£$KEY ¤Ï´Ø¿ôminput_filter () ¤Ø¤ÎÄ¾Á°¤Î¸Æ¤Ó½Ð¤·¤ËÍÑ¤¤¤é¤ì¤¿¤â¤Î
-    ¤ÈÆ±¤¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ¥Æ¥¥¹¥È¤¬ÆþÎÏ¥á¥½¥Ã¥É¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢¥Æ¥¥¹¥È¤Ï M-text
-    $MT ¤ËÏ¢·ë¤µ¤ì¤ë¡£
-
-    ¤³¤Î´Ø¿ô¤Ï¡¢#MInputDriver::lookup ¤ò¸Æ¤Ö¡£
-
-    @return 
-    $KEY ¤¬ÆþÎÏ¥á¥½¥Ã¥É¤Ë¤è¤Ã¤ÆÅ¬ÀÚ¤Ë½èÍý¤Ç¤¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï 0 ¤òÊÖ¤¹¡£
-    ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¤Ç¤â $MT ¤Ë²¿¤é¤«¤Î¥Æ¥¥¹¥È¤¬À¸
-    À®¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¡£
-
-    @latexonly \IPAlabel{minput_lookup} @endlatexonly  */
-
-int
-minput_lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
-{
-  return (ic ? (*ic->im->driver.lookup) (ic, key, arg, mt) : -1);
-}
-/*=*/
-
-/***en
-    @brief Set the spot of the input context.
-
-    The minput_set_spot () function set the spot of input context $IC
-    to coordinate ($X, $Y ) with the height $ASCENT and $DESCENT .
-    The semantics of these values depend on the input method driver.
-    $FONTSIZE specfies the fontsize of a preedit text in 1/10 point.
-
-    For instance, an driver designed to work in CUI environment may
-    use $X and $Y as column and row numbers, and ignore $ASCENT and
-    $DESCENT .  An driver designed to work on a window system may
-    treat $X and $Y as pixel offsets relative to the origin of the
-    client window, and treat $ASCENT and $DESCENT as ascent and
-    descent pixels of a line at ($X . $Y ).
-
-    $MT and $POS is an M-text and a character position at the spot.
-    $MT may be @c NULL, in which case, the input method cannot get
-    information about the text around the spot.  */
-
-/***ja
-    @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Î¥¹¥Ý¥Ã¥È¤òÀßÄê¤¹¤ë
-
-    ´Ø¿ô minput_set_spot () ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤Î¥¹¥Ý¥Ã¥È¤ò¡¢ºÂ
-    É¸ ($X, $Y )¤Ë ¡¢¹â¤µ $ASCENT¡¢ $DESCENT ¤ÇÀßÄê¤¹¤ë¡£ ¤³¤ì¤é¤ÎÃÍ¤Î
-    °ÕÌ£¤ÏÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ë°ÍÂ¸¤¹¤ë¡£$FONTSIZE ¤Ïpreedit ¥Æ¥¥¹¥È
-    ¤Î¥Õ¥©¥ó¥È¥µ¥¤¥º¤ò 1/10 ¥Ý¥¤¥ó¥ÈÃ±°Ì¤Ç»ØÄê¤¹¤ë¡£
-
-    ¤¿¤È¤¨¤Ð CUI ´Ä¶¤ÇÆ°ºî¤¹¤ë¥É¥é¥¤¥Ð¤Ï $X ¤È $Y ¤ò¤½¤ì¤¾¤ìÎó¤È¹Ô¤Î
-    ÈÖ¹æ¤È¤·¤ÆÍÑ¤¤¡¢$ASCENT ¤È $DESCENT ¤òÌµ»ë¤¹¤ë¤«¤â¤·¤ì¤Ê¤¤¡£ ¤Þ¤¿
-    ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥àÍÑ¤Î¥É¥é¥¤¥Ð¤Ï $X ¤È $Y ¤ò¥¯¥é¥¤¥¢¥ó¥È¥¦¥£¥ó¥É¥¦
-    ¤Î¸¶ÅÀ¤«¤é¤Î¥ª¥Õ¥»¥Ã¥È¤ò¥Ô¥¯¥»¥ëÃ±°Ì¤ÇÉ½¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¤¡¢
-    $ASCENT ¤È $DESCENT ¤ò ($X . $Y ) ¤ÎÎó¤Î¥¢¥»¥ó¥È¤È¥Ç¥£¥»¥ó¥È¤ò¥Ô¥¯
-    ¥»¥ëÃ±°Ì¤ÇÉ½¤·¤¿¤â¤Î¤È¤·¤Æ°·¤¦¤«¤â¤·¤ì¤Ê¤¤¡£
-
-    $MT ¤È $POS ¤Ï¤½¤Î¥¹¥Ý¥Ã¥È¤Î M-text ¤ÈÊ¸»ú°ÌÃÖ¤Ç¤¢¤ë¡£$MT ¤Ï @c
-    NULL ¤Ç¤â¤è¤¯¡¢¤½¤Î¾ì¹ç¤Ë¤ÏÆþÎÏ¥á¥½¥Ã¥É¤Ï¥¹¥Ý¥Ã¥È¼þÊÕ¤Î¥Æ¥¥¹¥È¤Ë
-    ´Ø¤¹¤ë¾ðÊó¤òÆÀ¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¡£
-    */
-
-void
-minput_set_spot (MInputContext *ic, int x, int y,
-		 int ascent, int descent, int fontsize,
-		 MText *mt, int pos)
-{
-  ic->spot.x = x;
-  ic->spot.y = y;
-  ic->spot.ascent = ascent;
-  ic->spot.descent = descent;
-  ic->spot.fontsize = fontsize;
-  ic->spot.mt = mt;
-  ic->spot.pos = pos;
-  if (ic->im->driver.callback_list)
-    minput__callback (ic, Minput_set_spot);
-}
-/*=*/
-
-/***en
-    @brief Toggle input method.
-
-    The minput_toggle () function toggles the input method associated
-    with the input context $IC.  */
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¤òÀÚÂØ¤¨¤ë.
-
-    ´Ø¿ô minput_toggle () ¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤ËÂÐ±þÉÕ¤±¤é¤ì¤¿ÆþÎÏ
-    ¥á¥½¥Ã¥É¤ò¥È¥°¥ë¤¹¤ë¡£
-    */
-
-void
-minput_toggle (MInputContext *ic)
-{
-  if (ic->im->driver.callback_list)
-    minput__callback (ic, Minput_toggle);
-  ic->active = ! ic->active;
-}
-
-
-/*** @} */
-/*=*/
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{  */
-/*=*/
-
-/***en
-    @brief Dump an input method.
-
-    The mdebug_dump_im () function prints the input method $IM in a
-    human readable way to the stderr.  $INDENT specifies how many
-    columns to indent the lines but the first one.
-
-    @return
-    This function returns $IM.  */
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_im () ¤ÏÆþÎÏ¥á¥½¥Ã¥É $IM ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê
-    ·Á¤Ç°õºþ¤¹¤ë¡£$INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $IM ¤òÊÖ¤¹¡£  */
-
-MInputMethod *
-mdebug_dump_im (MInputMethod *im, int indent)
-{
-  MInputMethodInfo *im_info = (MInputMethodInfo *) im->info;
-  char *prefix;
-
-  prefix = (char *) alloca (indent + 1);
-  memset (prefix, 32, indent);
-  prefix[indent] = '\0';
-
-  fprintf (stderr, "(input-method %s %s ", msymbol_name (im->language),
-	   msymbol_name (im->name));
-  mdebug_dump_mtext (im_info->title, 0, 0);
-  if (im->name != Mnil)
-    {
-      MPlist *state;
-
-      MPLIST_DO (state, im_info->states)
-	{
-	  fprintf (stderr, "\n%s  ", prefix);
-	  dump_im_state (MPLIST_VAL (state), indent + 2);
-	}
-    }
-  fprintf (stderr, ")");
-  return im;
-}
-
-/*** @} */ 
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/input.h b/src/input.h
deleted file mode 100644
index 1e00f0e..0000000
--- a/src/input.h
+++ /dev/null
@@ -1,84 +0,0 @@
-/* input.h -- header file for the input method module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_INPUT_H_
-#define _M17N_INPUT_H_
-
-typedef struct
-{
-  MText *title;
-  MPlist *states;
-  MPlist *macros;
-  MPlist *externals;
-} MInputMethodInfo;
-
-typedef struct MIMState MIMState;
-
-typedef struct MIMMap MIMMap;
-
-typedef struct
-{
-  /** The current state.  */
-  MIMState *state;
-
-  /** The current map.  */
-  MIMMap *map;
-
-  /** Table of typed keys.  */
-  int size, inc, used;
-  MSymbol *keys;
-
-  /** Index of the key handled firstly in the current state.  */
-  int state_key_head;
-
-  /** Index of the key not yet handled.  */
-  int key_head;
-
-  /** Saved M-text when entered in the current state.  */
-  MText *preedit_saved;
-
-  /** The insertion position when shifted to the current state.  */
-  int state_pos;
-
-  /** List of markers.  */
-  MPlist *markers;
-
-  /* List of variables. */
-  MPlist *vars;
-
-  int key_unhandled;
-
-  /** Used by minput_win_driver (input-win.c).  */
-  void *win_info;
-} MInputContextInfo;
-
-#define MINPUT_KEY_SHIFT_MODIFIER	(1 << 0)
-#define MINPUT_KEY_CONTROL_MODIFIER	(1 << 1)
-#define MINPUT_KEY_META_MODIFIER	(1 << 2)
-#define MINPUT_KEY_ALT_MODIFIER		(1 << 3)
-#define MINPUT_KEY_SUPER_MODIFIER	(1 << 4)
-#define MINPUT_KEY_HYPER_MODIFIER	(1 << 5)
-
-extern void minput__callback (MInputContext *ic, MSymbol command);
-extern MSymbol minput__char_to_key (int c);
-
-#endif /* not _M17N_INPUT_H_ */
diff --git a/src/internal-gui.h b/src/internal-gui.h
deleted file mode 100644
index 8944a9b..0000000
--- a/src/internal-gui.h
+++ /dev/null
@@ -1,300 +0,0 @@
-/* internal-gui.h -- common header file for the internal GUI API.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M_INTERNAL_GUI_H
-#define _M_INTERNAL_GUI_H
-
-enum MDeviceType
-  {
-    MDEVICE_SUPPORT_OUTPUT = 1,
-    MDEVICE_SUPPORT_INPUT = 2
-  };
-
-extern MSymbol Mfont;
-
-typedef struct MRealizedFont MRealizedFont;
-typedef struct MRealizedFace MRealizedFace;
-typedef struct MRealizedFontset MRealizedFontset;
-typedef struct MDeviceDriver MDeviceDriver;
-
-/** Information about a frame.  */
-
-struct MFrame
-{
-  M17NObject control;
-
-  MSymbol foreground, background, videomode;
-
-  MFont *font;
-
-  /** The default face of the frame.  */
-  MFace *face;
-
-  /** The default realized face of the frame.  */
-  MRealizedFace *rface;
-
-  /** The default width of one-char space.  It is a width of SPACE
-      character of the default face.  */
-  int space_width;
-
-  /** The default ascent and descent of a line.  It is ascent and
-      descent of ASCII font of the default face.  */
-  int ascent, descent;
-
-  /** Initialized to 0 and incremented on each modification of a face
-      on which one of the realized faces is based.  */
-  unsigned tick;
-
-  /** Pointer to device dependent information associated with the
-      frame.  */
-  void *device;
-
-  /** The following members are set by "device_open" function of a
-      device dependent library.  */
-
-  /** Logical OR of enum MDeviceType.  */
-  int device_type;
-
-  /** Correction of functions to manipulate the device.  */
-  MDeviceDriver *driver;
-
-  /** List of font drivers.  */
-  MPlist *font_driver_list;
-
-  /** List of realized fonts.  */
-  MPlist *realized_font_list;
-
-  /** List of realized faces.  */
-  MPlist *realized_face_list;
-
-  /** List of realized fontsets.  */
-  MPlist *realized_fontset_list;
-};
-
-#define M_CHECK_WRITABLE(frame, err, ret)			\
-  do {								\
-    if (! ((frame)->device_type & MDEVICE_SUPPORT_OUTPUT))	\
-      MERROR ((err), (ret));					\
-  } while (0)
-
-#define M_CHECK_READABLE(frame, err, ret)			\
-  do {								\
-    if (! ((frame)->device_type & MDEVICE_SUPPORT_INPUT))	\
-      MERROR ((err), (ret));					\
-  } while (0)
-
-enum glyph_type
-  {
-    GLYPH_CHAR,
-    GLYPH_SPACE,
-    GLYPH_PAD,
-    GLYPH_BOX,
-    GLYPH_ANCHOR,
-    GLYPH_TYPE_MAX
-  };
-
-typedef struct
-{
-  int pos, to;
-  int c;
-  unsigned code;
-  MSymbol category;
-  MRealizedFace *rface;
-  short width, ascent, descent, lbearing, rbearing;
-  short xoff, yoff;
-  unsigned enabled : 1;
-  unsigned left_padding : 1;
-  unsigned right_padding : 1;
-  unsigned otf_encoded : 1;
-  unsigned bidi_level : 6;
-  enum glyph_type type : 3;
-  int combining_code;
-} MGlyph;
-
-struct MGlyphString
-{
-  M17NObject head;
-
-  MFrame *frame;
-  int tick;
-
-  int size, inc, used;
-  MGlyph *glyphs;
-  MText *mt;
-  int from, to;
-  short width, height, ascent, descent;
-  short physical_ascent, physical_descent, lbearing, rbearing;
-  short text_ascent, text_descent, line_ascent, line_descent;
-  int indent, width_limit;
-
-  /* Members to keep temporary data while layouting.  */
-  short sub_width, sub_lbearing, sub_rbearing;
-
-  /* Copied for .anti_alias but never set if the frame's
-     depth is less than 8.  */
-  unsigned anti_alias : 1;
-
-  MDrawControl control;
-
-  MDrawRegion region;
-
-  struct MGlyphString *next, *top;
-};
-
-#define MGLYPH(idx)	\
-  (gstring->glyphs + ((idx) >= 0 ? (idx) : (gstring->used + (idx))))
-
-#define GLYPH_INDEX(g)	\
-  ((g) - gstring->glyphs)
-
-#define INIT_GLYPH(g)	\
-  (memset (&(g), 0, sizeof (g)))
-
-#define APPEND_GLYPH(gstring, g)	\
-  MLIST_APPEND1 ((gstring), glyphs, (g), MERROR_DRAW)
-
-#define INSERT_GLYPH(gstring, at, g)				\
-  do {								\
-    MLIST_INSERT1 ((gstring), glyphs, (at), 1, MERROR_DRAW);	\
-    (gstring)->glyphs[at] = g;					\
-  } while (0)
-
-#define DELETE_GLYPH(gstring, at)		\
-  do {						\
-    MLIST_DELETE1 (gstring, glyphs, at, 1);	\
-  } while (0)
-
-#define REPLACE_GLYPHS(gstring, from, to, len)				  \
-  do {									  \
-    int newlen = (gstring)->used - (from);				  \
-    int diff = newlen - (len);						  \
-									  \
-    if (diff < 0)							  \
-      MLIST_DELETE1 (gstring, glyphs, (to) + newlen, -diff);		  \
-    else if (diff > 0)							  \
-      MLIST_INSERT1 ((gstring), glyphs, (to) + (len), diff, MERROR_DRAW); \
-    memmove ((gstring)->glyphs + to, (gstring)->glyphs + (from + diff),	  \
-	     (sizeof (MGlyph)) * newlen);				  \
-    (gstring)->used -= newlen;						  \
-  } while (0)
-
-#define MAKE_COMBINING_CODE(base_y, base_x, add_y, add_x, off_y, off_x)	\
-  (((off_y) << 16)							\
-   | ((off_x) << 8)							\
-   | ((base_x) << 6)							\
-   | ((base_y) << 4)							\
-   | ((add_x) << 2)							\
-   | (add_y))
-
-#define COMBINING_CODE_OFF_Y(code) (((code) >> 16) & 0xFF)
-#define COMBINING_CODE_OFF_X(code) (((code) >> 8) & 0xFF)
-#define COMBINING_CODE_BASE_X(code) (((code) >> 6) & 0x3)
-#define COMBINING_CODE_BASE_Y(code) (((code) >> 4) & 0x3)
-#define COMBINING_CODE_ADD_X(code) (((code) >> 2) & 0x3)
-#define COMBINING_CODE_ADD_Y(code) ((code) & 0x3)
-
-#define MAKE_COMBINING_CODE_BY_CLASS(class) (0x1000000 | class)
-
-#define COMBINING_BY_CLASS_P(code) ((code) & 0x1000000)
-
-#define COMBINING_CODE_CLASS(code) ((code) & 0xFFFFFF)
-
-typedef struct MGlyphString MGlyphString;
-
-typedef struct MFontDriver MFontDriver;
-
-typedef struct
-{
-  short x, y;
-} MDrawPoint;
-
-extern MPlist *m17n__device_library_list;
-
-struct MDeviceDriver
-{
-  int initialized;
-  int (*init) ();
-  int (*fini) ();
-  int (*open) (MFrame *frame, MPlist *param);
-  void (*close) (MFrame *frame);
-  void *(*get_prop) (MFrame *frame, MSymbol key);
-  void (*realize_face) (MRealizedFace *rface);
-  void (*free_realized_face) (MRealizedFace *rface);
-  void (*fill_space) (MFrame *frame, MDrawWindow win,
-		      MRealizedFace *rface, int reverse,
-		      int x, int y, int width, int height,
-		      MDrawRegion region);
-  void (*draw_empty_boxes) (MDrawWindow win, int x, int y,
-			    MGlyphString *gstring,
-			    MGlyph *from, MGlyph *to,
-			    int reverse, MDrawRegion region);
-  void (*draw_hline) (MFrame *frame, MDrawWindow win,
-		      MGlyphString *gstring,
-		      MRealizedFace *rface, int reverse,
-		      int x, int y, int width, MDrawRegion region);
-  void (*draw_box) (MFrame *frame, MDrawWindow win,
-		    MGlyphString *gstring,
-		    MGlyph *g, int x, int y, int width,
-		    MDrawRegion region);
-
-  void (*draw_points) (MFrame *frame, MDrawWindow win,
-		       MRealizedFace *rface,
-		       int intensity, MDrawPoint *points, int num,
-		       MDrawRegion region);
-  MDrawRegion (*region_from_rect) (MDrawMetric *rect);
-  void (*union_rect_with_region) (MDrawRegion region, MDrawMetric *rect);
-  void (*intersect_region) (MDrawRegion region1, MDrawRegion region2);
-  void (*region_add_rect) (MDrawRegion region, MDrawMetric *rect);
-  void (*region_to_rect) (MDrawRegion region, MDrawMetric *rect);
-  void (*free_region) (MDrawRegion region);
-  void (*dump_region) (MDrawRegion region);
-  MDrawWindow (*create_window) (MFrame *frame, MDrawWindow parent);
-  void (*destroy_window) (MFrame *frame, MDrawWindow win);
-  void (*map_window) (MFrame *frame, MDrawWindow win);
-  void (*unmap_window) (MFrame *frame, MDrawWindow win);
-  void (*window_geometry) (MFrame *frame, MDrawWindow win,
-			   MDrawWindow parent, MDrawMetric *geometry);
-  void (*adjust_window) (MFrame *frame, MDrawWindow win,
-			 MDrawMetric *current, MDrawMetric *new);
-  MSymbol (*parse_event) (MFrame *frame, void *arg, int *modifiers);
-};
-
-extern MSymbol Mx;
-extern MSymbol Mgd;
-extern MSymbol Mfreetype;
-
-extern int mfont__init ();
-extern void mfont__fini ();
-
-extern int mface__init ();
-extern void mface__fini ();
-
-extern int mdraw__init ();
-extern void mdraw__fini ();
-
-extern int mfont__fontset_init ();
-extern void mfont__fontset_fini ();
-
-extern int minput__win_init ();
-extern void minput__win_fini ();
-
-#endif /* _M_INTERNAL_GUI_H */
diff --git a/src/internal.h b/src/internal.h
deleted file mode 100644
index 1dd0782..0000000
--- a/src/internal.h
+++ /dev/null
@@ -1,590 +0,0 @@
-/* internal.h -- common header file for the internal CORE and SHELL APIs.
-   Copyright (C) 2003, 2004				
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_INTERNAL_H_
-#define _M17N_INTERNAL_H_
-
-/** @file internal.h
-    @brief a documentation for internal.h
-
-    longer version of internal.h description 
-*/
-
-extern int mdebug_hook ();
-
-/** Return with code RET while setting merror_code to ERR.  */
-
-#define MERROR(err, ret)	\
-  do {				\
-    merror_code = (err);	\
-    mdebug_hook ();		\
-    return (ret);		\
-  } while (0)
-
-
-#define MERROR_GOTO(err, label)	\
-  do {				\
-    if ((err))			\
-      merror_code = (err);	\
-    mdebug_hook ();		\
-    goto label;			\
-  } while (0)
-
-
-#define MWARNING(err)	\
-  do {			\
-    mdebug_hook ();	\
-    goto warning;	\
-  } while (0)
-
-
-#define M_CHECK_CHAR(c, ret)		\
-  if ((c) < 0 || (c) > MCHAR_MAX)	\
-    MERROR (MERROR_CHAR, (ret));	\
-  else
-
-
-/** Memory allocation stuffs.  */
-
-/* Call a handler function for memory full situation with argument
-   ERR.  ERR must be one of enum MErrorCode.  By default, the
-   handler function just calls exit () with argument ERR.  */
-
-#define MEMORY_FULL(err)		\
-  do {					\
-    (*m17n_memory_full_handler) (err);	\
-    exit (err);				\
-  } while (0)
-
-
-/** The macro MTABLE_MALLOC () allocates memory (by malloc) for an
-    array of SIZE objects.  The size of each object is determined by
-    the type of P.  Then, it sets P to the allocated memory.  ERR must
-    be one of enum MErrorCode.  If the allocation fails, the macro
-    MEMORY_FULL () is called with argument ERR.  */
-
-#define MTABLE_MALLOC(p, size, err)		\
-  do {						\
-    int bytes = sizeof (*(p)) * (size);		\
-    if (! ((p) = (void *) malloc (bytes)))	\
-      MEMORY_FULL (err);			\
-  } while (0)
-
-
-/** The macro MTABLE_CALLOC() is like the macro MTABLE_MALLOC but use
-    calloc instead of malloc, thus the allocated memory are zero
-    cleared.  */
-
-#define MTABLE_CALLOC(p, size, err)				\
-  do {								\
-    if (! ((p) = (void *) calloc (sizeof (*(p)), size)))	\
-      MEMORY_FULL (err);					\
-  } while (0)
-
-
-/** The macro MTABLE_REALLOC () changes the size of memory block
-    pointed to by P to a size suitable for an array of SIZE objects.
-    The size of each object is determined by the type of P.  ERR must
-    be one of enum MErrorCode.  If the allocation fails, the macro
-    MEMORY_FULL () is called with argument ERR.  */
-
-#define MTABLE_REALLOC(p, size, err)					\
-  do {									\
-    if (! ((p) = (void *) realloc ((p), sizeof (*(p)) * (size))))	\
-      MEMORY_FULL (err);						\
-  } while (0)
-
-
-/** The macro MTABLE_ALLOCA () allocates memory (by alloca) for an
-    array of SIZE objects.  The size of each object is determined by
-    the type of P.  Then, it sets P to the allocated memory.  ERR must
-    be one of enum MErrorCode.  If the allocation fails, the macro
-    MEMORY_FULL () is called with argument ERR.  */
-
-#define MTABLE_ALLOCA(p, size, err)		\
-  do {						\
-    int bytes = sizeof (*(p)) * (size);		\
-    if (! ((p) = (void *) alloca (bytes)))	\
-      MEMORY_FULL (err);			\
-    memset ((p), 0, bytes);			\
-  } while (0)
-
-
-/** short description of MSTRUCT_MALLOC */
-/** The macro MSTRUCT_MALLOC () allocates memory (by malloc) for an
-    object whose size is determined by the type of P, and sets P to
-    the allocated memory.  ERR must be one of enum MErrorCode.  If
-    the allocation fails, the macro MEMORY_FULL () is called with
-    argument ERR.  */
-
-#define MSTRUCT_MALLOC(p, err)				\
-  do {							\
-    if (! ((p) = (void *) malloc (sizeof (*(p)))))	\
-      MEMORY_FULL (err);				\
-  } while (0)
-
-
-#define MSTRUCT_CALLOC(p, err) MTABLE_CALLOC ((p), 1, (err))
-
-
-/** Extendable array.  */
-
-#define MLIST_RESET(list)	\
-  ((list)->used = 0)
-
-
-#define MLIST_INIT1(list, mem, increment)	\
-  do {						\
-    (list)->size = (list)->used = 0;		\
-    (list)->inc = (increment);			\
-    (list)->mem = NULL;				\
-  } while (0)
-
-
-#define MLIST_APPEND1(list, mem, elt, err)			\
-  do {								\
-    if ((list)->inc <= 0)					\
-      mdebug_hook ();						\
-    if ((list)->size == (list)->used)				\
-      {								\
-	(list)->size += (list)->inc;				\
-	MTABLE_REALLOC ((list)->mem, (list)->size, (err));	\
-      }								\
-    (list)->mem[(list)->used++] = (elt);			\
-  } while (0)
-
-
-#define MLIST_PREPEND1(list, mem, elt, err)			\
-  do {								\
-    if ((list)->inc <= 0)					\
-      mdebug_hook ();						\
-    if ((list)->size == (list)->used)				\
-      {								\
-	(list)->size += (list)->inc;				\
-	MTABLE_REALLOC ((list)->mem, (list)->size, (err));	\
-      }								\
-    memmove ((list)->mem + 1, (list)->mem,			\
-	     sizeof *((list)->mem) * ((list)->used));		\
-    (list)->mem[0] = (elt);					\
-    (list)->used++;						\
-  } while (0)
-
-
-#define MLIST_INSERT1(list, mem, idx, len, err)				\
-  do {									\
-    while ((list)->used + (len) > (list)->size)				\
-      {									\
-	(list)->size += (list)->inc;					\
-	MTABLE_REALLOC ((list)->mem, (list)->size, (err));		\
-      }									\
-    memmove ((list)->mem + ((idx) + (len)), (list)->mem + (idx),	\
-	     (sizeof *((list)->mem)) * ((list)->used - (idx)));		\
-    (list)->used += (len);						\
-  } while (0)
-
-
-#define MLIST_DELETE1(list, mem, idx, len)				\
-  do {									\
-    memmove ((list)->mem + (idx), (list)->mem + (idx) + (len),		\
-	     (sizeof *((list)->mem)) * ((list)->used - (idx) - (len)));	\
-    (list)->used -= (len);						\
-  } while (0)
-
-
-#define MLIST_COPY1(list0, list1, mem, err)			\
-  do {								\
-    (list0)->size = (list0)->used = (list1)->used;		\
-    (list0)->inc = 1;						\
-    MTABLE_MALLOC ((list0)->mem, (list0)->used, (err));		\
-    memcpy ((list0)->mem, (list1)->mem,				\
-	    (sizeof (list0)->mem) * (list0)->used);		\
-  } while (0)
-
-
-#define MLIST_FREE1(list, mem)		\
-  if ((list)->size)			\
-    {					\
-      free ((list)->mem);		\
-      (list)->mem = NULL;		\
-      (list)->size = (list)->used = 0;	\
-    }					\
-  else
-
-
-
-typedef struct
-{
-  void (*freer) (void *);
-  int size, inc, used;
-  unsigned *counts;
-} M17NObjectRecord;
-
-typedef struct
-{
-  /**en Reference count of the object.  */
-  unsigned ref_count : 16;
-
-  unsigned ref_count_extended : 1;
-
-  /**en A flag bit used for various perpose.  */
-  unsigned flag : 15;
-
-  union {
-    /**en If  is zero, a function to free the
-       object.  */
-    void (*freer) (void *);
-    /**en If  is nonzero, a pointer to the
-       struct M17NObjectRecord.  */
-    M17NObjectRecord *record;
-  } u;
-} M17NObject;
-
-
-/** Allocate a managed object OBJECT which has freer FREE_FUNC.  */
-
-#define M17N_OBJECT(object, free_func, err)		\
-  do {							\
-    MSTRUCT_CALLOC ((object), (err));			\
-    ((M17NObject *) (object))->ref_count = 1;		\
-    ((M17NObject *) (object))->u.freer = free_func;	\
-  } while (0)
-
-
-/**en Increment the reference count of OBJECT if the count is not
-   0.  */
-
-#define M17N_OBJECT_REF(object)				\
-  do {							\
-    if (((M17NObject *) (object))->ref_count_extended)	\
-      m17n_object_ref (object);				\
-    else if (((M17NObject *) (object))->ref_count > 0)	\
-      {							\
-	((M17NObject *) (object))->ref_count++;		\
-	if (! ((M17NObject *) (object))->ref_count)	\
-	  {						\
-	    ((M17NObject *) (object))->ref_count--;	\
-	    m17n_object_ref (object);			\
-	  }						\
-      }							\
-  } while (0)
-
-
-#define M17N_OBJECT_REF_NTIMES(object, n)				\
-  do {									\
-    int i;								\
-									\
-    if (((M17NObject *) (object))->ref_count_extended)			\
-      for (i = 0; i < n; i++)						\
-	m17n_object_ref (object);					\
-    else if (((M17NObject *) (object))->ref_count > 0)			\
-      {									\
-	int orig_ref_count = ((M17NObject *) (object))->ref_count;	\
-									\
-	for (i = 0; i < n; i++)						\
-	  if (! ++((M17NObject *) (object))->ref_count)			\
-	    {								\
-	      ((M17NObject *) (object))->ref_count = orig_ref_count;	\
-	      for (i = 0; i < n; i++)					\
-		m17n_object_ref (object);				\
-	    }								\
-      }									\
-  } while (0)
-
-
-/**en Decrement the reference count of OBJECT if the count is greater
-    than 0.  In that case, if the count becomes 0, free OBJECT.  */
-
-#define M17N_OBJECT_UNREF(object)				\
-  do {								\
-    if (object)							\
-      {								\
-	if (((M17NObject *) (object))->ref_count_extended)	\
-	  m17n_object_unref (object);				\
-	else if (((M17NObject *) (object))->ref_count == 0)	\
-	  break;						\
-	else if (((M17NObject *) (object))->ref_count > 1)	\
-	  ((M17NObject *) (object))->ref_count--;		\
-	else							\
-	  {							\
-	    if (((M17NObject *) (object))->u.freer)		\
-	      (((M17NObject *) (object))->u.freer) (object);	\
-	    else						\
-	      free (object);					\
-	  }							\
-      }								\
-  } while (0)
-
-
-typedef struct
-{
-  int count;
-  int size, inc, used;
-  void **objects;
-} M17NObjectArray;
-
-extern void mdebug__register_object (M17NObjectArray *array, void *object);
-
-#define M17N_OBJECT_REGISTER(array, object)	\
-  if (mdebug__flag & MDEBUG_FINI)		\
-    mdebug__register_object (&array, object);	\
-  else
-
-extern void mdebug__unregister_object (M17NObjectArray *array, void *object);
-
-#define M17N_OBJECT_UNREGISTER(array, object)	\
-  if (mdebug__flag & MDEBUG_FINI)		\
-    mdebug__unregister_object (&array, object);	\
-  else
-
-extern void mdebug__report_object (char *name, M17NObjectArray *array);
-
-
-
-struct MTextPlist;
-
-struct MText
-{
-  M17NObject control;
-
-  enum MTextFormat format;
-
-  /**en Number of characters in the M-text */
-  /**ja M-text Ãæ¤ÎÊ¸»ú¿ô */
-  int nchars;
-
-  /**en Number of bytes used to represent the characters in the M-text. */
-  /**ja M-text Ãæ¤ÎÊ¸»ú¤òÉ½¤ï¤¹¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë¥Ð¥¤¥È¿ô */
-  int nbytes;
-
-  /**en Character sequence of the M-text. */
-  /**ja M-text Ãæ¤ÎÊ¸»úÎó */
-  unsigned char *data;
-
-  /**en Number of bytes allocated for the @c data member. */
-  /**ja ¥á¥ó¥Ð @c data ¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿¥Ð¥¤¥È¿ô */
-  int allocated;
-
-  /**en Pointer to the property list of the M-text. */
-  /**ja M-text ¤Î¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿ */
-  struct MTextPlist *plist;
-
-  /**en Caches of the character position and the corresponding byte position. */
-  /**ja Ê¸»ú°ÌÃÖ¤ª¤è¤ÓÂÐ±þ¤¹¤ë¥Ð¥¤¥È°ÌÃÖ¤Î¥¥ã¥Ã¥·¥å */
-  int cache_char_pos, cache_byte_pos;
-};
-
-/** short description of M_CHECK_POS */
-/** longer description of M_CHECK_POS */
-
-#define M_CHECK_POS(mt, pos, ret)		\
-  do {						\
-    if ((pos) < 0 || (pos) >= (mt)->nchars)	\
-      MERROR (MERROR_RANGE, (ret));		\
-  } while (0)
-
-
-/** short description of M_CHECK_POS_X */
-/** longer description of M_CHECK_POS_X */
-
-#define M_CHECK_POS_X(mt, pos, ret)		\
-  do {						\
-    if ((pos) < 0 || (pos) > (mt)->nchars)	\
-      MERROR (MERROR_RANGE, (ret));		\
-  } while (0)
-
-
-/** short description of M_CHECK_RANGE */
-/** longer description of M_CHECK_RANGE */
-
-#define M_CHECK_RANGE(mt, from, to, ret, ret2)			\
-  do {								\
-    if ((from) < 0 || (to) < (from) || (to) > (mt)->nchars)	\
-      MERROR (MERROR_RANGE, (ret));				\
-    if ((from) == (to))						\
-      return (ret2);						\
-  } while (0)
-
-#define M_CHECK_RANGE_X(mt, from, to, ret)			\
-  do {								\
-    if ((from) < 0 || (to) < (from) || (to) > (mt)->nchars)	\
-      MERROR (MERROR_RANGE, (ret));				\
-  } while (0)
-
-
-#define M_CHECK_POS_NCHARS(mt, pos, nchars, ret, ret2)	\
-  do {							\
-    int to = (pos) + (nchars);			\
-							\
-    M_CHECK_RANGE ((mt), (pos), (to), (ret), (ret2));	\
-  } while (0)
-
-
-#define MTEXT_READ_ONLY_P(mt) ((mt)->allocated < 0)
-
-#define M_CHECK_READONLY(mt, ret)	\
-  do {					\
-    if ((mt)->allocated < 0)		\
-      MERROR (MERROR_MTEXT, (ret));	\
-  } while (0)
-
-#define mtext_nchars(mt) ((mt)->nchars)
-
-#define mtext_nbytes(mt) ((mt)->nbytes)
-
-#define mtext_allocated(mt) ((mt)->allocated)
-
-#define mtext_reset(mt) (mtext_del ((mt), 0, (mt)->nchars))
-
-
-
-enum MDebugMaskBit
-  {
-    MDEBUG_INIT =	0x01,
-    MDEBUG_FINI =	0x02,
-    MDEBUG_CHARSET =	0x04,
-    MDEBUG_CODING =	0x08,
-    MDEBUG_DATABASE =	0x10,
-    MDEBUG_FONT =	0x0100,
-    MDEBUG_FONT_FLT =	0x0200,
-    MDEBUG_FONT_OTF =	0x0400,
-    MDEBUG_INPUT = 	0x0800,
-    MDEBUG_MAX
-  };
-
-extern int mdebug__flag;
-extern void mdebug__push_time ();
-extern void mdebug__pop_time ();
-extern void mdebug__print_time ();
-
-#define MDEBUG_PRINT(msg)		\
-  do {					\
-    if (mdebug__flag & mdebug_mask)	\
-      fprintf (stderr, (msg));		\
-  } while (0)
-
-#define MDEBUG_PRINT1(fmt, arg)		\
-  do {					\
-    if (mdebug__flag & mdebug_mask)	\
-      fprintf (stderr, (fmt), (arg));	\
-  } while (0)
-
-#define MDEBUG_PRINT2(fmt, arg1, arg2)		\
-  do {						\
-    if (mdebug__flag & mdebug_mask)		\
-      fprintf (stderr, (fmt), (arg1), (arg2));	\
-  } while (0)
-
-#define MDEBUG_PRINT3(fmt, arg1, arg2, arg3)		\
-  do {							\
-    if (mdebug__flag & mdebug_mask)			\
-      fprintf (stderr, (fmt), (arg1), (arg2), (arg3));	\
-  } while (0)
-
-#define MDEBUG_PRINT4(fmt, arg1, arg2, arg3, arg4)		\
-  do {								\
-    if (mdebug__flag & mdebug_mask)				\
-      fprintf (stderr, (fmt), (arg1), (arg2), (arg3), (arg4));	\
-  } while (0)
-
-
-#define MDEBUG_PUSH_TIME()		\
-  do {					\
-    if (mdebug__flag & mdebug_mask)	\
-      mdebug__push_time ();		\
-  } while (0)
-
-
-#define MDEBUG_POP_TIME()		\
-  do {					\
-    if (mdebug__flag & mdebug_mask)	\
-      mdebug__pop_time ();		\
-  } while (0)
-
-
-#define MDEBUG_PRINT_TIME(tag, ARG_LIST)	\
-  do {						\
-    if (mdebug__flag & mdebug_mask)		\
-      {						\
-	fprintf (stderr, " [%s] ", tag);	\
-	mdebug__print_time ();			\
-	fprintf ARG_LIST;			\
-	fprintf (stderr, "\n");			\
-      }						\
-  } while (0)
-
-
-#define SWAP_16(c) (((c) >> 8) | (((c) & 0xFF) << 8))
-
-#define SWAP_32(c)			\
-  (((c) >> 24) | (((c) >> 8) & 0xFF00)	\
-   | (((c) & 0xFF00) << 8) | (((c) & 0xFF) << 24))
-
-
-extern void *(*mdatabase__finder) (MSymbol tag1, MSymbol tag2,
-				   MSymbol tag3, MSymbol tag4);
-extern void *(*mdatabase__loader) (void *);
-
-/* Initialize/finalize function.  */
-
-extern int msymbol__init ();
-extern void msymbol__fini ();
-
-extern int mplist__init ();
-extern void mplist__fini ();
-
-extern int mtext__init ();
-extern void mtext__fini ();
-
-extern int mtext__prop_init ();
-extern void mtext__prop_fini ();
-
-extern int mchartable__init ();
-extern void mchartable__fini ();
-
-extern int mcharset__init ();
-extern void mcharset__fini ();
-
-extern int mcoding__init ();
-extern void mcoding__fini ();
-
-extern int mdatabase__init (void);
-extern void mdatabase__fini (void);
-
-extern int mchar__init ();
-extern void mchar__fini ();
-
-extern int mlang__init ();
-extern void mlang__fini ();
-
-extern int mlocale__init ();
-extern void mlocale__fini ();
-
-extern int minput__init ();
-extern void minput__fini ();
-
-#endif /* _M17N_INTERNAL_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/language.c b/src/language.c
deleted file mode 100644
index 02bc214..0000000
--- a/src/language.c
+++ /dev/null
@@ -1,250 +0,0 @@
-/* language.c -- language module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include 
-#include 
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "language.h"
-#include "symbol.h"
-
-
-/* Internal API */
-
-int
-mlang__init ()
-{
-  /* ISO 639 */
-  struct {
-    char *name, *fullname;
-  } lang_rec[] =
-      { {"ab", "Abkhazian"},
-	{"aa", "Afar"},
-	{"af", "Afrikaans"},
-	{"sq", "Albanian"},
-	{"am", "Amharic"},
-	{"ar", "Arabic"},
-	{"hy", "Armenian"},
-	{"as", "Assamese"},
-	{"ay", "Aymara"},
-	{"az", "Azerbaijani"},
-	{"ba", "Bashkir"},
-	{"eu", "Basque"},
-	{"bn", "Bengali"},		/* Bangla */
-	{"dz", "Bhutani"},
-	{"bh", "Bihari"},
-	{"bi", "Bislama"},
-	{"br", "Breton"},
-	{"bg", "Bulgarian"},
-	{"my", "Burmese"},
-	{"be", "Byelorussian"},	/* Belarusian */
-	{"km", "Cambodian"},	/* Khmer */
-	{"ca", "Catalan"},
-#if 0
-	{"??", "Cherokee"},
-	{"??", "Chewa"},
-#endif
-	{"zh", "Chinese"},
-	{"co", "Corsican"},
-	{"hr", "Croatian"},
-	{"cs", "Czech"},
-	{"da", "Danish"},
-#if 0
-	{"??", "Divehi"},
-#endif
-	{"nl", "Dutch"},
-#if 0
-	{"??", "Edo"},
-#endif
-	{"en", "English"},
-	{"eo", "Esperanto"},
-	{"et", "Estonian"},
-	{"fo", "Faeroese"},
-	{"fa", "Farsi"},
-	{"fj", "Fiji"},
-	{"fi", "Finnish"},
-#if 0
-	{"??", "Flemish"},
-#endif
-	{"fr", "French"},
-	{"fy", "Frisian"},
-#if 0
-	{"??", "Fulfulde"},
-#endif
-	{"gl", "Galician"},
-	{"gd", "Gaelic(Scottish)"},		/* Scottish */
-	{"gv", "Gaelic(Manx)"},		/* Manx */
-	{"ka", "Georgian"},
-	{"de", "German"},
-	{"el", "Greek"},
-	{"kl", "Greenlandic"},
-	{"gn", "Guarani"},
-	{"gu", "Gujarati"},
-	{"ha", "Hausa"},
-#if 0
-	{"??", "Hawaiian"},
-	{"iw", "Hebrew"},
-#endif
-	{"he", "Hebrew"},
-	{"hi", "Hindi"},
-	{"hu", "Hungarian"},
-#if 0
-	{"??", "Ibibio"},
-#endif
-	{"is", "Icelandic"},
-#if 0
-	{"??", "Igbo"},
-	{"in", "Indonesian"},
-#endif
-	{"id", "Indonesian"},
-#if 0
-	{"ia", "Interlingua"},
-	{"ie", "Interlingue"},
-#endif
-	{"iu", "Inuktitut"},
-	{"ik", "Inupiak"},
-	{"ga", "Irish"},
-	{"it", "Italian"},
-	{"ja", "Japanese"},
-	{"jw", "Javanese"},
-	{"kn", "Kannada"},
-#if 0
-	{"??", "Kanuri"},
-#endif
-	{"ks", "Kashmiri"},
-	{"kk", "Kazakh"},
-	{"rw", "Kinyarwanda"},	/* Ruanda */
-	{"ky", "Kirghiz"},
-	{"rn", "Kirundi"},		/* Rundi */
-	{"ko", "Korean"},
-	{"ku", "Kurdish"},
-	{"lo", "Laothian"},
-	{"la", "Latin"},
-	{"lv", "Latvian"},		/* Lettish */
-	{"ln", "Lingala"},
-	{"lt", "Lithuanian"},
-	{"mk", "Macedonian"},
-	{"mg", "Malagasy"},
-	{"ms", "Malay"},
-	{"ml", "Malayalam"},
-#if 0
-	{"??", "Manipuri"},
-#endif
-	{"mt", "Maltese"},
-	{"mi", "Maori"},
-	{"mr", "Marathi"},
-	{"mo", "Moldavian"},
-	{"mn", "Mongolian"},
-	{"na", "Nauru"},
-	{"ne", "Nepali"},
-	{"no", "Norwegian"},
-	{"oc", "Occitan"},
-	{"or", "Oriya"},
-	{"om", "Oromo"},		/* Afan, Galla */
-#if 0
-	{"??", "Papiamentu"},
-#endif
-	{"ps", "Pashto"},		/* Pushto */
-	{"pl", "Polish"},
-	{"pt", "Portuguese"},
-	{"pa", "Punjabi"},
-	{"qu", "Quechua"},
-	{"rm", "Rhaeto-Romance"},
-	{"ro", "Romanian"},
-	{"ru", "Russian"},
-#if 0
-	{"??", "Sami"},		/* Lappish */
-#endif
-	{"sm", "Samoan"},
-	{"sg", "Sangro"},
-	{"sa", "Sanskrit"},
-	{"sr", "Serbian"},
-	{"sh", "Serbo-Croatian"},
-	{"st", "Sesotho"},
-	{"tn", "Setswana"},
-	{"sn", "Shona"},
-	{"sd", "Sindhi"},
-	{"si", "Sinhalese"},
-	{"ss", "Siswati"},
-	{"sk", "Slovak"},
-	{"sl", "Slovenian"},
-	{"so", "Somali"},
-	{"es", "Spanish"},
-	{"su", "Sundanese"},
-	{"sw", "Swahili"},		/* Kiswahili */
-	{"sv", "Swedish"},
-#if 0
-	{"??", "Syriac"},
-#endif
-	{"tl", "Tagalog"},
-	{"tg", "Tajik"},
-#if 0
-	{"??", "Tamazight"},
-#endif
-	{"ta", "Tamil"},
-	{"tt", "Tatar"},
-	{"te", "Telugu"},
-	{"th", "Thai"},
-	{"bo", "Tibetan"},
-	{"ti", "Tigrinya"},
-	{"to", "Tonga"},
-	{"ts", "Tsonga"},
-	{"tr", "Turkish"},
-	{"tk", "Turkmen"},
-	{"tw", "Twi"},
-	{"ug", "Uighur"},
-	{"uk", "Ukrainian"},
-	{"ur", "Urdu"},
-	{"uz", "Uzbek"},
-#if 0
-	{"??", "Venda"},
-#endif
-	{"vi", "Vietnamese"},
-	{"vo", "Volapuk"},
-	{"cy", "Welsh"},
-	{"wo", "Wolof"},
-	{"xh", "Xhosa"},
-#if 0
-	{"??", "Yi"},
-	{"ji", "Yiddish"},
-#endif
-	{"yi", "Yiddish"},
-	{"yo", "Yoruba"},
-	{"zu", "Zulu"} };
-  int i;
-
-  Mlanguage = msymbol ("language");
-  msymbol_put (Mlanguage, Mtext_prop_serializer,
-	       (void *) msymbol__serializer);
-  msymbol_put (Mlanguage, Mtext_prop_deserializer,
-	       (void *) msymbol__deserializer);
-  for (i = 0; i < ((sizeof lang_rec) / (sizeof lang_rec[0])); i++)
-    msymbol_put (msymbol (lang_rec[i].name), Mlanguage,
-		 msymbol (lang_rec[i].fullname));
-  return 0;
-}
-
-void
-mlang__fini (void)
-{
-}
diff --git a/src/language.h b/src/language.h
deleted file mode 100644
index 3e495d1..0000000
--- a/src/language.h
+++ /dev/null
@@ -1,26 +0,0 @@
-/* language.h -- header file for the language module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_LANGUAGE_H_
-#define _M17N_LANGUAGE_H_
-
-#endif /* _M17N_LANGUAGE_H_ */
diff --git a/src/linkcore.c b/src/linkcore.c
deleted file mode 100644
index 4a5da33..0000000
--- a/src/linkcore.c
+++ /dev/null
@@ -1,32 +0,0 @@
-/* linkcore.c -- test program for linking with m17n-core.so.
-   Copyright (C) 2003
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-This file is part of the m17n library.
-
-The m17n library 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 2, or (at
-your option) any later version.
-
-The m17n library 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 the m17n library; see the file COPYING.  If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.  */
-
-#include 
-#include "m17n-core.h"
-
-int
-main ()
-{
-  M17N_INIT ();
-  M17N_FINI ();
-  exit (0);
-}
diff --git a/src/linkgui.c b/src/linkgui.c
deleted file mode 100644
index 5b70689..0000000
--- a/src/linkgui.c
+++ /dev/null
@@ -1,33 +0,0 @@
-/* linkgui.c -- test program for linking with m17n-X.so.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include 
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-
-int
-main ()
-{
-  M17N_INIT ();
-  M17N_FINI ();
-  exit (0);
-}
diff --git a/src/linkshell.c b/src/linkshell.c
deleted file mode 100644
index 7190e4d..0000000
--- a/src/linkshell.c
+++ /dev/null
@@ -1,32 +0,0 @@
-/* linkshell.c -- test program for linking with m17n.so.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include 
-#include 
-
-int
-main ()
-{
-  M17N_INIT ();
-  M17N_FINI ();
-  exit (0);
-}
diff --git a/src/locale.c b/src/locale.c
deleted file mode 100644
index 6dda33c..0000000
--- a/src/locale.c
+++ /dev/null
@@ -1,663 +0,0 @@
-/* locale.c -- locale module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nLocale
-    @brief Locale objects and API for them.
-
-    The m17n library represents locale related information as objects
-    of type #MLocale.  */
-
-/***ja
-    @addtogroup m17nLocale
-    @brief ¥í¥±¡¼¥ë¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¥í¥±¡¼¥ë´ØÏ¢¾ðÊó¤ò #MLocale ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç
-    É½¸½¤¹¤ë¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#define _GNU_SOURCE
-
-#include 
-#include 
-#include 
-#include 
-#include 
-#ifdef HAVE_LANGINFO_H
-#include 
-#endif
-#include 
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "symbol.h"
-#include "coding.h"
-#include "textprop.h"
-#include "mlocale.h"
-
-static MSymbol M_locale;
-static MSymbol M_xfrm;
-
-
-/** Structure of locales.  */
-
-struct MLocale
-{
-  M17NObject control;
-  MSymbol name;
-  MSymbol language;
-  MSymbol territory;
-  MSymbol modifier;
-  MSymbol codeset;
-  MSymbol coding;
-};
-
-
-/** The current locales of each category.  */
-MLocale *mlocale__collate, *mlocale__ctype;
-MLocale *mlocale__messages, *mlocale__time;
-
-/* These are currently not used.  */
-#if 0
-MLocale *mlocale_monetary, *mlocale_numeric, ;
-#endif
-
-/** Parse locale name NAME and return a newly created MLocale object.
-    If the locale is not supported by the system, return NULL.  */
-
-static MLocale *
-make_locale (const char *name)
-{
-  char *current, *new, *str;
-  int len;
-  MLocale *locale;
-  char c;
-
-  str = setlocale (LC_CTYPE, NULL);
-  len = strlen (str) + 1;
-  current = alloca (len);
-  memcpy (current, str, len); 
-
-  if (! (new = setlocale (LC_CTYPE, name)))
-    return NULL;
-
-
-  M17N_OBJECT (locale, NULL, MERROR_LOCALE);
-  locale->name = msymbol (new);
-  msymbol_put (locale->name, M_locale, (void *) locale);
-  M17N_OBJECT_UNREF (locale);
-
-  len = strlen (new) + 1;
-  str = alloca (len);
-  memcpy (str, new, len);
-
-  c = '\0';
-  while (1)
-    {
-      char c1;
-      int i;
-
-      for (i = 0; str[i]; i++)
-	if (str[i] == '_' || str[i] == '.' || str[i] == '@')
-	  break;
-      c1 = str[i];
-      str[i] = '\0';
-      if (c == '\0')
-	/* The first field is for language.  */
-	locale->language = msymbol (name);	
-      else if (c == '_')
-	/* The field following '_' is for territory.  */
-	locale->territory = msymbol (name);
-      else if (c == '.')
-	/* The field following '.' is for codeset.  */
-	locale->codeset = msymbol (name);
-      else
-	/* The other field is for modifier.  */
-	locale->modifier = msymbol (name);
-      if (! c1)
-	break;
-      c = c1;
-      name += i + 1;
-    }
-
-#ifdef HAVE_NL_LANGINFO
-#ifdef CODESET
-  /* If we can use nl_langinfo () to retrieve a codeset name, respect
-     it over the codeset name extracted from the locale name.  */
-  locale->codeset = msymbol (nl_langinfo (CODESET));
-#endif
-#endif
-
-  /* If the locale name specifies a codeset, get the corresponding
-     coding system.  */
-  if (locale->codeset != Mnil)
-    {
-      locale->coding = mconv_resolve_coding (locale->codeset);
-      if (locale->coding == Mnil)
-	locale->coding = Mcoding_us_ascii;
-    }
-  else
-    locale->coding = Mcoding_us_ascii;
-
-  setlocale (LC_CTYPE, current);
-  return locale;
-}
-
-
-/** Decode the byte sequence at BUF of length SIZE bytes by the coding
-    system associated with LOCALE, and return a generated M-text.  */
-
-static MText *
-decode_locale (unsigned char *buf, int size, MLocale *locale)
-{
-  return mconv_decode_buffer (locale->coding, buf, size);
-}
-
-
-/** Encode the M-text MT by the coding system associated with LOCALE,
-    and store the resulting bytes in the memory area at BUF of *SIZE
-    bytes.  If the area is too short, allocate a new and wider area.
-    Store the length of the generated bytes in the place pointed by
-    SIZE, and return the address of those bytes.  */
-
-static unsigned char *
-encode_locale (MText *mt, unsigned char *buf, int *size, MLocale *locale)
-{
-  int nbytes = mconv_encode_buffer (locale->coding, mt, buf, *size - 1);
-
-  if (nbytes < 0)
-    {
-      buf = NULL;
-      *size *= 2;
-      do {
-	MTABLE_REALLOC (buf, *size, MERROR_LOCALE);
-	nbytes = mconv_encode_buffer (mlocale__ctype->coding, mt, buf,
-				      *size - 1);
-      } while (nbytes < 0);
-    }
-  buf[nbytes] = '\0';
-  *size = nbytes;
-  return buf;
-}
-
-
-/** Structure of transformed strings.  The function mtext_coll ()
-    caches this object in an M-text as a text property.  */
-
-typedef struct {
-  /* Common header for a managed object.  */
-  M17NObject control;
-
-  /* Locale corresponding to .  */
-  MLocale *locale;
-
-  /** Result of strxfrm.  */
-  char *str;
-} MXfrm;
-
-
-static void
-free_xfrm (void *object)
-{
-  MXfrm *xfrm = (MXfrm *) object;
-
-  M17N_OBJECT_UNREF (xfrm->locale);
-  free (xfrm->str);
-}
-
-static char *
-get_xfrm (MText *mt)
-{
-  MTextProperty *prop = mtext_get_property (mt, 0, M_xfrm);
-  MXfrm *xfrm;
-  int size;
-  unsigned char *buf, *newbuf;
-  int request;
-
-  if (prop)
-    {
-      if (prop->end == mt->nchars)
-	{
-	  xfrm = (MXfrm *) prop->val;
-	  if (xfrm->locale == mlocale__ctype)
-	    return xfrm->str;
-	}
-      mtext_detach_property (prop);
-    }
-
-  size = mt->nbytes;
-  buf = alloca (size);
-  newbuf = encode_locale (mt, buf, &size, mlocale__ctype);
-  M17N_OBJECT (xfrm, free_xfrm, MERROR_MTEXT);
-  xfrm->str = malloc (size);
-  request = strxfrm (xfrm->str, (char *) newbuf, size);
-  if (request >= size)
-    {
-      xfrm->str = realloc (xfrm->str, request);
-      strxfrm (xfrm->str, (char *) newbuf, size);
-    }
-  if (buf != newbuf)
-    free (newbuf);
-  prop = mtext_property (M_xfrm, xfrm, MTEXTPROP_VOLATILE_WEAK);
-  mtext_attach_property (mt, 0, mt->nchars, prop);
-  M17N_OBJECT_UNREF (prop);
-  return xfrm->str;
-}
-
-
-/* Internal API */
-
-int
-mlocale__init ()
-{
-  M_locale = msymbol_as_managing_key ("  locale");
-
-  Mlanguage = msymbol ("language");
-  Mterritory = msymbol ("territory");
-  Mcodeset = msymbol ("codeset");
-
-  mlocale__collate = mlocale_set (LC_COLLATE, NULL);
-  M17N_OBJECT_REF (mlocale__collate);
-  mlocale__ctype = mlocale_set (LC_CTYPE, NULL);
-  M17N_OBJECT_REF (mlocale__ctype);
-  mlocale__messages = mlocale_set (LC_MESSAGES, NULL);
-  M17N_OBJECT_REF (mlocale__messages);
-  mlocale__time = mlocale_set (LC_TIME, NULL);
-  M17N_OBJECT_REF (mlocale__time);
-
-  M_xfrm = msymbol_as_managing_key ("  xfrm");
-  return 0;
-}
-
-void
-mlocale__fini ()
-{
-  M17N_OBJECT_UNREF (mlocale__collate);
-  M17N_OBJECT_UNREF (mlocale__ctype);
-  M17N_OBJECT_UNREF (mlocale__messages);
-  M17N_OBJECT_UNREF (mlocale__time);
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-/*** @addtogroup m17nLocale */
-/*** @{ */
-
-/*=*/
-/***en The symbol whose name is "language".  */
-/***ja "language" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë.  */
-MSymbol Mlanguage;
-
-/*=*/
-/***en The symbol whose name is "territory".  */
-/***ja  "territory" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë. */
-MSymbol Mterritory;
-
-/*=*/
-/***en The symbol whose name is "modifier".  */
-/***ja  "modifier" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë. */
-MSymbol Mmodifier;
-
-/*=*/
-/***en The symbol whose name is "codeset".  */
-/***ja  "codeset" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë. */
-MSymbol Mcodeset;
-
-/*=*/
-
-/***en
-    @brief Set the current locale.
-
-    The mlocale_set () function sets or query a part of the current
-    locale.  The part is specified by $CATEGORY which must be a valid
-    first argument to setlocale ().
-
-    If $LOCALE is not NULL, the locale of the specified part is set to
-    $LOCALE.  If $LOCALE is not supported by the system, the current
-    locale is not changed.
-
-    If $LOCALE is NULL, the current locale of the specified part is
-    queried.
-
-    @return
-    If the call is successful, mlocale_set () returns an opaque locale
-    object that corresponds to the locale.  The name of the locale can
-    be acquired by the function mlocale_get_prop ().
-
-    Otherwise, it returns NULL.  */
-
-/***ja
-    @brief ¸½ºß¤Î¥í¥±¡¼¥ë¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mlocale_set () ¤Ï¸½ºß¤Î¥í¥±¡¼¥ë¤Î°ìÉô¤òÀßÄê¤·¤¿¤êÌä¤¤¹ç¤ï¤»¤¿
-    ¤ê¤¹¤ë¡£¤³¤³¤Ç°ìÉô¤È¤Ï $CATEGORY ¤Ç»ØÄê¤µ¤ì¡¢setlocale () 
-    ¤ÎÍ¸ú¤ÊÂè°ì°ú¿ô¤È¤Ê¤ë¤â¤Î¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    $LOCALE ¤¬ NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢»ØÄê¤·¤¿ÉôÊ¬¤Î¥í¥±¡¼¥ë¤¬$LOCALE ¤ËÀßÄê
-    ¤µ¤ì¤ë¡£ $LOCALE ¤¬¥·¥¹¥Æ¥à¤Ë¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¡¢ÀßÄê¤Ï¹Ô¤ï
-    ¤ì¤º¡¢¸½ºß¤Î¥í¥±¡¼¥ë¤ÏÊÑ¤ï¤é¤Ê¤¤¡£
-
-    $LOCALE ¤¬ NULL ¤Ê¤é¤Ð¡¢¸½ºß¤Î¥í¥±¡¼¥ë¤Î»ØÄê¤·¤¿ÉôÊ¬¤òÌä¤¤¹ç¤ï¤»¤ë¡£
-
-    @return 
-
-    ¸Æ¤Ó½Ð¤·¤ËÀ®¸ù¤¹¤ì¤Ð¡¢mlocale_set () ¤Ï¥í¥±¡¼¥ë¤ËÂÐ±þ¤¹¤ë opaque 
-    ¥í¥±¡¼¥ë¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤¹¡£¥í¥±¡¼¥ë¤ÎÌ¾Á°¤Ï´Ø¿ô
-    mlocale_get_prop () ¤Ë¤è¤Ã¤ÆÆÀ¤ë¤³¤È¤¬¤Ç¤¤ë¡£
-
-    ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð NULL ¤òÊÖ¤¹¡£
-     */
-
-/***
-    @errors
-    @c MERROR_LOCALE  */
-
-MLocale *
-mlocale_set (int category, const char *name)
-{
-  char *new;
-  MLocale *locale;
-
-  new = setlocale (category, name);
-  if (! new)
-    return NULL;
-
-  locale = (MLocale *) msymbol_get (msymbol (new), M_locale);
-  if (! locale)
-    locale = make_locale (new);
-  if (! locale)
-    return NULL;
-  if (name && (category == LC_ALL || category == LC_COLLATE))
-    {
-      M17N_OBJECT_REF (locale);
-      M17N_OBJECT_UNREF (mlocale__collate);
-      mlocale__collate = locale;
-    }
-  else if (name && (category == LC_ALL || category == LC_CTYPE))
-    {
-      M17N_OBJECT_REF (locale);
-      M17N_OBJECT_UNREF (mlocale__ctype);
-      mlocale__ctype = locale;
-    }
-  if (name && (category == LC_ALL || category == LC_MESSAGES))
-    {
-      M17N_OBJECT_REF (locale);
-      M17N_OBJECT_UNREF (mlocale__messages);
-      mlocale__messages = locale;
-    }
-  if (name && (category == LC_ALL || category == LC_TIME))
-    {
-      M17N_OBJECT_REF (locale);
-      M17N_OBJECT_UNREF (mlocale__time);
-      mlocale__time = locale;
-    }
-  return locale;
-}
-
-/*=*/
-
-/***en
-    @brief Get the value of a locale property.
-
-    The mlocale_get_prop () function returns the value of a property
-    $KEY of local $LOCALE.  $KEY must be #Mname, #Mlanguage,
-    #Mterritory, #Mcodeset, #Mmodifier, or #Mcoding.  */ 
-
-/***ja
-    @brief ¥í¥±¡¼¥ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô mlocale_get_prop () ¤Ï¡¢¥í¥±¡¼¥ë $LOCALE ¤Î $KEY ¥×¥í¥Ñ¥Æ¥£¤Î
-    ÃÍ¤òÊÖ¤¹¡£ $KEY ¤Ï #Mname, #Mlanguage, #Mterritory, #Mcodeset,
-    #Mmodifier, #Mcoding ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£ */ 
-
-MSymbol
-mlocale_get_prop (MLocale *locale, MSymbol key)
-{
-  if (key == Mcoding)
-    return locale->coding;
-  if (key == Mname)
-    return locale->name;
-  if (key == Mlanguage)
-    return locale->language;
-  if (key == Mterritory)
-    return locale->territory;
-  if (key == Mcodeset)
-    return locale->codeset;
-  if (key == Mmodifier)
-    return locale->modifier;
-  return Mnil;
-}
-
-/*=*/
-/***en
-    @brief Format date and time.
-
-    The mtext_ftime () function formats the broken-down time $TM
-    according to the format specification $FORMAT and append the
-    result to the M-text $MT.  The formating is done according to the
-    locale $LOCALE (if not NULL) or the current locale (LC_TIME).
-
-    The meaning of the arguments $TM and $FORMAT are the same as those
-    of strftime ().
-
-    @seealso
-    strftime ()
-*/
-/***ja
-    @brief ÆüÉÕ¤È»þ´Ö¤ò¥Õ¥©¡¼¥Þ¥Ã¥È¤¹¤ë.
-
-    ´Ø¿ô mtext_ftime () ¤Ï»þ¹ï¥Ç¡¼¥¿ (broken-down time) $TM ¤ò$FORMAT 
-    ¤Ç»ØÄê¤µ¤ì¤¿·Á¼°¤ËÀ¶½ñ¤·¡¢·ë²Ì¤òM-text $MT ¤ËÉÕ²Ã¤¹¤ë¡£¥Õ¥©¡¼¥Þ¥Ã
-    ¥È¤Ï NULL ¤Ç¤Ê¤±¤ì¤Ð ¥í¥±¡¼¥ë $LOCALE ¤Ë¡¢¤Þ¤¿¤Ï¸½ºß¤Î¥í¥±¡¼¥ë 
-    (LC_TIME) ¤Ë½¾¤¦¡£
-
-    °ú¿ô $TM ¤È $FORMAT ¤Î°ÕÌ£¤Ï strftime () ¤Î¾ì¹ç¤ÈÆ±¤¸¡£
-
-    @seealso
-    strftime ()
-*/
-
-int
-mtext_ftime (MText *mt, const char *format, const struct tm *tm,
-	     MLocale *locale)
-{
-  int bufsize;
-  unsigned char *buf;
-  size_t nbytes, nchars;
-  char *current_locale = NULL;
-
-  if (locale)
-    {
-      char *str = setlocale (LC_TIME, NULL);
-      int len = strlen (str) + 1;
-
-      current_locale = alloca (len);
-      memcpy (current_locale, str, len);
-      mlocale_set (LC_TIME, msymbol_name (locale->name));
-    }
-
-  bufsize = 1024;
-  while (1)
-    {
-      MTABLE_ALLOCA (buf, bufsize, MERROR_MTEXT);
-      buf[0] = 1;
-      nbytes = strftime ((char *) buf, bufsize, format, tm);
-      if (nbytes > 0
-	  || ! buf[0])
-	break;
-      bufsize *= 2;
-    }
-
-  if (nbytes > 0)
-    {
-      MText *work = decode_locale (buf, nbytes, mlocale__time);
-
-      if (work)
-	{
-	  nchars = work->nchars;
-	  mtext_cat (mt, work);
-	  M17N_OBJECT_UNREF (work);
-	}
-      else
-	nchars = 0;
-    }
-  else
-    nchars = 0;
-
-  if (current_locale)
-    mlocale_set (LC_TIME, current_locale);
-
-  return nchars;
-}
-	  
-/*=*/
-
-/***en
-    @brief Get an environment variable.
-
-    The mtext_getenv () function searches the environment variable
-    list for a string that matches the string pointed to by $NAME.
-
-    If there is a match, the function decodes the value according to
-    the current locale (LC_CTYPE) into an M-text, and return that
-    M-text.
-
-    If there is no match, the function returns NULL.  */
-/***ja
-    @brief ´Ä¶ÊÑ¿ô¤òÆÀ¤ë.
-
-    ´Ø¿ô mtext_getenv () ¤Ï $NAME ¤Ç»Ø¤µ¤ì¤ëÊ¸»úÎó¤È¹çÃ×¤¹¤ëÊ¸»úÎó¤ò
-    ´Ä¶ÊÑ¿ô¤Î¥ê¥¹¥ÈÃæ¤«¤éÃµ¤¹¡£
-
-    ¸«¤Ä¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢¤½¤ÎÃÍ¤ò¸½ºß¤Î¥í¥±¡¼¥ë(LC_CTYPE) ¤Ë½¾¤Ã¤Æ 
-    M-text ¤Ë¥Ç¥³¡¼¥É¤·¡¢¤½¤ÎM-text ¤òÊÖ¤¹¡£
-
-    ¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢NULL ¤òÊÖ¤¹¡£  */
-
-MText *
-mtext_getenv (const char *name)
-{
-  char *p = getenv (name);
-
-  if (!p)
-    return NULL;
-  return decode_locale ((unsigned char *) p, strlen (p), mlocale__ctype);
-}
-
-/*=*/
-
-/***en
-    @brief Change or add an environment variable.
-
-    The mtext_putenv () function changes or adds the value of
-    environment variables according to M-text $MT.  It calls the
-    function putenv with an argument generated by encoding
-    $MT according to the current locale (LC_CTYPE).
-
-    @return
-    This function returns zero on success, or -1 if an error
-    occurs.  */
-/***ja
-    @brief ´Ä¶ÊÑ¿ô¤òÊÑ¹¹¡¿ÄÉ²Ã¤¹¤ë.
-
-    ´Ø¿ô mtext_putenv () ¤Ï M-text $MT ¤Ë½¾¤Ã¤Æ¡¢´Ä¶ÊÑ¿ô¤ÎÃÍ¤òÊÑ¹¹¤·
-    ¤¿¤êÄÉ²Ã¤·¤¿¤ê¤¹¤ë¡£¤³¤Î´Ø¿ô¤Ï¡¢¸½ºß¤Î¥í¥±¡¼¥ë(LC_CTYPE) ¤Ë½¾¤Ã¤Æ 
-    $MT ¤ò¥¨¥ó¥³¡¼¥É¤·¡¢¤½¤ì¤ò°ú¿ô¤È¤·¤Æ´Ø¿ô putenv ¤ò¸Æ¤Ö¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢À®¸ù¤·¤¿¾ì¹ç¤Ë¤Ï 0 ¤ò¡¢¥¨¥é¡¼¤¬µ¯¤³¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-    */
-
-
-int
-mtext_putenv (MText *mt)
-{
-  unsigned char buf[1024];
-  int size = 1024;
-  unsigned char *newbuf;
-  int result;
-
-  newbuf = encode_locale (mt, buf, &size, mlocale__ctype);
-  result = putenv ((char *) newbuf);
-  if (buf != newbuf)
-    free (newbuf);
-  return result;
-}
-
-/*=*/
-
-/***en
-    @brief Compare two M-texts using the current locale.
-
-    The mtext_coll () function compares the two M-texts $MT1 and $MT2.
-    It returns an integer less than, equal to, or greater than zero if
-    $MT1 is found, respectively, to be less than, to match, or to be
-    greater than $MT2.  The comparison is based on texts as
-    appropriate for the current locale (LC_COLLATE).
-
-    This function makes use of information that is automatically
-    cached in the M-texts as a text property.  So, the second call of
-    this function with $MT1 or $MT2 finishes faster than the first
-    call.  */
-/***ja
-    @brief ¸½ºß¤Î¥í¥±¡¼¥ë¤òÍÑ¤¤¤Æ£²¤Ä¤Î M-text ¤òÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_coll () ¤Ï£²¤Ä¤Î M-text $MT1 ¤È $MT2 ¤òÈæ³Ó¤¹¤ë¡£Ìá¤êÃÍ
-    ¤ÏÉé¤ÎÀ°¿ôÃÍ, 0, Àµ¤ÎÀ°¿ôÃÍ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ê¡¢¤½¤ì¤¾¤ì$MT1 ¤¬ $MT2 
-    ¤è¤ê¾®¤µ¤¤¡¢Æ±¤¸¡¢Âç¤¤¤¾ì¹ç¤ËÁêÅö¤¹¤ë¡£Èæ³Ó¤Ï¸½ºß¤Î¥í¥±¡¼¥ë 
-    (LC_COLLATE) ¤Ë´ð¤Å¤¤¤Æ¹Ô¤ï¤ì¤ë¡£
-
-    ¤³¤Î´Ø¿ô¤Ï M-text ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤È¤·¤Æ¼«Æ°Åª¤Ë¥¥ã¥Ã¥·¥å¤µ¤ì
-    ¤ë¾ðÊó¤òÍøÍÑ¤¹¤ë¤Î¤Ç¡¢£²ÅÙÌÜ°Ê¹ß¤ÎÆ±¤¸Èæ³Ó¤Ï£±ÅÙÌÜ¤è¤êÂ®¤¯¼Â¹Ô¤µ¤ì
-    ¤ë¡£  */
-
-int
-mtext_coll (MText *mt1, MText *mt2)
-{
-  char *str1, *str2;
-
-  if (mt1->nchars == 0)
-    return (mt2->nchars == 0 ? 0 : -1);
-  else if (mt2->nchars == 0)
-    return 1;
-
-  str1 = get_xfrm (mt1);
-  str2 = get_xfrm (mt2);
-  return strcoll (str1, str2);
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-X.c b/src/m17n-X.c
deleted file mode 100644
index 28a6c0e..0000000
--- a/src/m17n-X.c
+++ /dev/null
@@ -1,2259 +0,0 @@
-/* m17n-X.c -- implementation of the GUI API on X Windows.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include "config.h"
-
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#ifdef HAVE_XFT2
-#include 
-#endif	/* HAVE_XFT2 */
-
-#include "m17n-gui.h"
-#include "m17n-X.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "internal-gui.h"
-#include "symbol.h"
-#include "input.h"
-#include "font.h"
-#include "fontset.h"
-#include "face.h"
-
-typedef struct
-{
-  /* Common header for the m17n object.  */
-  M17NObject control;
-
-  Display *display;
-
-  /* If nonzero,  is opened by this library.  Thus it should
-     be closed on freeing this structure.  */
-  int auto_display;
-
-  /** List of available fonts on the display (except for iso8859-1 and
-      iso10646-1 fonts).  Keys are font registries, values are
-      (MFontList *).  */
-  MPlist *font_registry_list;
-
-  MPlist *iso8859_1_family_list;
-
-  MPlist *iso10646_1_family_list;
-
-  /* List of information about each font.  Keys are font registries,
-     values are (MFontInfo *).  */
-  MPlist *realized_font_list;
-
- /** Modifier bit masks of the display.  */
-  int meta_mask;
-  int alt_mask;
-  int super_mask;
-  int hyper_mask;
-} MDisplayInfo;
-
-/* Anchor of the chain of MDisplayInfo objects.  */
-static MPlist *display_info_list;
-
-
-/* Color value and the corresponding GC.  */
-typedef struct
-{
-  unsigned int rgb;	       /* (red << 16) | (green << 8) | blue */
-  GC gc;
-} RGB_GC;
-
-enum gc_index
-  {
-    GC_INVERSE,
-    GC_NORMAL = GC_INVERSE + 7,
-    GC_HLINE,
-    GC_BOX_TOP,
-    GC_BOX_BOTTOM,
-    GC_BOX_LEFT,
-    GC_BOX_RIGHT,
-    GC_MAX
-  };
-
-typedef struct
-{
-  int rgb_fore;
-  int rgb_back;
-  /* The first 8 elements are indexed by an intensity for
-     anti-aliasing.  The 2nd to 7th are created on demand.  */
-  GC gc[GC_MAX];
-#ifdef HAVE_XFT2
-  XftColor xft_color_fore, xft_color_back;
-#endif
-} GCInfo;
-
-typedef struct
-{
-  /* Common header for the m17n object.  */
-  M17NObject control;
-
-  MDisplayInfo *display_info;
-
-  int screen_num;
-
-  Drawable drawable;
-
-  unsigned depth;
-
-  Colormap cmap;
-
-  GC scratch_gc;
-
-#ifdef HAVE_XFT2
-  XftDraw *xft_draw;
-#endif
-
-  /** List of pointers to realized faces on the frame.  */
-  MPlist *realized_face_list;
-
-  /** List of pointers to realized fontsets on the frame.  */
-  MPlist *realized_fontset_list;
-
-  /** List of XColors vs GCs on the frame.  */
-  MPlist *gc_list;
-} MWDevice;
-
-static MPlist *device_list;
-
-static MSymbol M_iso8859_1, M_iso10646_1;
-
-#define FRAME_DEVICE(frame) ((MWDevice *) (frame)->device)
-#define FRAME_DISPLAY(frame) (FRAME_DEVICE (frame)->display_info->display)
-#define FRAME_SCREEN(frame) (FRAME_DEVICE (frame)->screen_num)
-#define FRAME_CMAP(frame) (FRAME_DEVICE (frame)->cmap)
-#define FRAME_VISUAL(frame) DefaultVisual (FRAME_DISPLAY (frame), \
-					   FRAME_SCREEN (frame))
-
-#define DEFAULT_FONT "-misc-fixed-medium-r-normal--*-120-*-*-*-*-iso8859-1"
-#define FALLBACK_FONT "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso8859-1"
-
-typedef struct
-{
-  String font;
-  String foreground;
-  String background;
-  Boolean reverse_video;
-} AppData, *AppDataPtr;
-
-static void
-free_display_info (void *object)
-{
-  MDisplayInfo *disp_info = (MDisplayInfo *) object;
-  MPlist *plist;
-
-  MPLIST_DO (plist, disp_info->font_registry_list)
-    {
-      MFontList *registry_list = MPLIST_VAL (plist);
-
-      if (registry_list->fonts)
-	free (registry_list->fonts);
-      free (registry_list);
-    }
-  M17N_OBJECT_UNREF (disp_info->font_registry_list);
-
-  MPLIST_DO (plist, disp_info->iso8859_1_family_list)
-    {
-      MFontList *family_list = MPLIST_VAL (plist);
-
-      if (family_list->fonts)
-	free (family_list->fonts);
-      free (family_list);
-    }
-  M17N_OBJECT_UNREF (disp_info->iso8859_1_family_list);
-
-  MPLIST_DO (plist, disp_info->iso10646_1_family_list)
-    {
-      MFontList *family_list = MPLIST_VAL (plist);
-
-      if (family_list->fonts)
-	free (family_list->fonts);
-      free (family_list);
-    }
-  M17N_OBJECT_UNREF (disp_info->iso10646_1_family_list);
-
-  MPLIST_DO (plist, disp_info->realized_font_list)
-    mfont__free_realized ((MRealizedFont *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (disp_info->realized_font_list);
-
-  if (disp_info->auto_display)
-    XCloseDisplay (disp_info->display);
-
-  free (object);
-}
-
-static void
-free_device (void *object)
-{
-  MWDevice *device = object;
-  MPlist *plist;
-
-  for (plist = device->realized_fontset_list;
-       mplist_key (plist) != Mnil; plist = mplist_next (plist))
-    mfont__free_realized_fontset ((MRealizedFontset *) mplist_value (plist));
-  M17N_OBJECT_UNREF (device->realized_fontset_list);
-
-  MPLIST_DO (plist, device->realized_face_list)
-    {
-      MRealizedFace *rface = MPLIST_VAL (plist);
-
-      free (rface->info);
-      mface__free_realized (rface);
-    }
-  M17N_OBJECT_UNREF (device->realized_face_list);
-
-  MPLIST_DO (plist, device->gc_list)
-    {
-      XFreeGC (device->display_info->display,
-	       ((RGB_GC *) MPLIST_VAL (plist))->gc);
-      free (MPLIST_VAL (plist));
-    }
-  M17N_OBJECT_UNREF (device->gc_list);
-  XFreeGC (device->display_info->display, device->scratch_gc);
-
-#ifdef HAVE_XFT2
-  XftDrawDestroy (device->xft_draw);
-#endif
-
-  XFreePixmap (device->display_info->display, device->drawable);
-  M17N_OBJECT_UNREF (device->display_info);
-  free (object);
-}
-
-
-static void
-find_modifier_bits (MDisplayInfo *disp_info)
-{
-  Display *display = disp_info->display;
-  XModifierKeymap *mods;
-  KeyCode meta_l = XKeysymToKeycode (display, XK_Meta_L);
-  KeyCode meta_r = XKeysymToKeycode (display, XK_Meta_R);
-  KeyCode alt_l = XKeysymToKeycode (display, XK_Alt_L);
-  KeyCode alt_r = XKeysymToKeycode (display, XK_Alt_R);
-  KeyCode super_l = XKeysymToKeycode (display, XK_Super_L);
-  KeyCode super_r = XKeysymToKeycode (display, XK_Super_R);
-  KeyCode hyper_l = XKeysymToKeycode (display, XK_Hyper_L);
-  KeyCode hyper_r = XKeysymToKeycode (display, XK_Hyper_R);
-  int i, j;
-
-  mods = XGetModifierMapping (display);
-  /* We skip the first three sets for Shift, Lock, and Control.  The
-     remaining sets are for Mod1, Mod2, Mod3, Mod4, and Mod5.  */
-  for (i = 3; i < 8; i++)
-    for (j = 0; j < mods->max_keypermod; j++)
-      {
-	KeyCode code = mods->modifiermap[i * mods->max_keypermod + j];
-
-	if (! code)
-	  continue;
-	if (code == meta_l || code == meta_r)
-	  disp_info->meta_mask |= (1 << i);
-	else if (code == alt_l || code == alt_r)
-	  disp_info->alt_mask |= (1 << i);
-	else if (code == super_l || code == super_r)
-	  disp_info->super_mask |= (1 << i);
-	else if (code == hyper_l || code == hyper_r)
-	  disp_info->hyper_mask |= (1 << i);
-      }
-
-  /* If meta keys are not in any modifier, use alt keys as meta
-     keys.  */
-  if (! disp_info->meta_mask)
-    {
-      disp_info->meta_mask = disp_info->alt_mask;
-      disp_info->alt_mask = 0;
-    }
-  /* If both meta and alt are assigned to the same modifier, give meta
-     keys priority.  */
-  if (disp_info->meta_mask & disp_info->alt_mask)
-    disp_info->alt_mask &= ~disp_info->meta_mask;
-
-  XFreeModifiermap (mods);
-}
-
-static RGB_GC *
-get_rgb_gc (MWDevice *device, XColor *xcolor)
-{
-  int rgb = (((xcolor->red >> 8) << 16) | ((xcolor->green >> 8) << 8)
-	     | (xcolor->blue >> 8));
-  MPlist *plist;
-  RGB_GC *rgb_gc;
-  unsigned long valuemask = GCForeground;
-  XGCValues values;
-
-  MPLIST_DO (plist, device->gc_list)
-    {
-      rgb_gc = MPLIST_VAL (plist);
-
-      if (rgb_gc->rgb == rgb)
-	return rgb_gc;
-      if (rgb_gc->rgb > rgb)
-	break;
-    }
-
-  if (! XAllocColor (device->display_info->display, device->cmap, xcolor))
-    return NULL;
-
-  rgb_gc = malloc (sizeof (RGB_GC));
-  rgb_gc->rgb = rgb;
-  values.foreground = xcolor->pixel;
-  rgb_gc->gc = XCreateGC (device->display_info->display,
-			  device->drawable, valuemask, &values);
-  mplist_push (plist, Mt, rgb_gc);
-  return rgb_gc;
-}
-
-static GC
-get_gc (MFrame *frame, MSymbol color, int for_foreground, int *rgb_ret)
-{
-  MWDevice *device = FRAME_DEVICE (frame);
-  XColor xcolor;
-  RGB_GC *rgb_gc;
-
-  if (color == Mnil)
-    {
-      if (frame->rface)
-	goto no_color;
-      color = for_foreground ? frame->foreground : frame->background;
-    }
-  if (! XParseColor (FRAME_DISPLAY (frame), device->cmap,
-		     msymbol_name (color), &xcolor))
-    goto no_color;
-  rgb_gc = get_rgb_gc (device, &xcolor);
-  if (! rgb_gc)
-    goto no_color;
-  if (rgb_ret)
-    *rgb_ret = rgb_gc->rgb;
-  return rgb_gc->gc;
-
- no_color:
-  {
-    GCInfo *info = frame->rface->info;
-    GC gc;
-    int rgb;
-
-    if (for_foreground)
-      rgb = info->rgb_fore, gc = info->gc[GC_NORMAL];
-    else
-      rgb = info->rgb_back, gc = info->gc[GC_INVERSE];
-    if (rgb_ret)
-      *rgb_ret = rgb;
-    return gc;
-  }
-}
-
-static GC
-get_gc_for_anti_alias (MWDevice *device, GCInfo *info, int intensity)
-{
-  int rgb_fore, rgb_back;
-  XColor xcolor;
-  RGB_GC *rgb_gc;
-  GC gc;
-
-  if (info->gc[intensity])
-    return info->gc[intensity];
-
-  rgb_fore = info->rgb_fore, rgb_back = info->rgb_back;
-  xcolor.red = ((((rgb_fore & 0xFF0000) >> 16) * intensity
-		 + ((rgb_back & 0xFF0000) >> 16) * (7 - intensity)) / 7) << 8;
-  xcolor.green = ((((rgb_fore & 0xFF00) >> 8) * intensity
-		   + ((rgb_back & 0xFF00) >> 8) * (7 - intensity)) / 7) << 8;
-  xcolor.blue = (((rgb_fore & 0xFF) * intensity
-		  + (rgb_back & 0xFF) * (7 - intensity)) / 7) << 8;
-  rgb_gc = get_rgb_gc (device, &xcolor);
-  if (rgb_gc)
-    gc = rgb_gc->gc;
-  else
-    gc =get_gc_for_anti_alias (device, info,
-			       intensity < 4 ? intensity - 1 : intensity + 1);
-  return (info->gc[intensity] = gc);
-}
-
-static GC
-set_region (MFrame *frame, GC gc, MDrawRegion region)
-{
-  unsigned long valuemask = GCForeground;
-
-  XCopyGC (FRAME_DISPLAY (frame), gc, valuemask,
-	   FRAME_DEVICE (frame)->scratch_gc);
-  XSetRegion (FRAME_DISPLAY (frame), FRAME_DEVICE (frame)->scratch_gc, region);
-  return FRAME_DEVICE (frame)->scratch_gc;
-}
-
-
-/** X font handler */
-
-static MRealizedFont *xfont_select (MFrame *, MFont *, MFont *, int);
-static int xfont_open (MRealizedFont *);
-static void xfont_find_metric (MRealizedFont *, MGlyphString *, int, int);
-static unsigned xfont_encode_char (MRealizedFont *, unsigned);
-static void xfont_render (MDrawWindow, int, int, MGlyphString *,
-			  MGlyph *, MGlyph *, int, MDrawRegion);
-
-static MFontDriver xfont_driver =
-  { xfont_select, xfont_open,
-    xfont_find_metric, xfont_encode_char, xfont_render };
-
-typedef struct
-{
-  M17NObject control;
-  Display *display;
-  XFontStruct *xfont;
-} MXFontInfo;
-
-static MFontList *
-build_font_list (MFrame *frame, MSymbol family, MSymbol registry,
-		 MPlist *plist)
-{
-  char pattern[1024];
-  MFontList *font_list;
-  char **fontnames;
-  int nfonts;
-  int i, j;
-
-  MSTRUCT_CALLOC (font_list, MERROR_WIN);
-
-  if (family == Mnil)
-    {
-      sprintf (pattern, "-*-*-*-*-*-*-*-*-*-*-*-*-%s",
-	       msymbol_name (registry));
-      font_list->tag = registry;
-    }
-  else
-    {
-      sprintf (pattern, "-*-%s-*-*-*-*-*-*-*-*-*-*-%s",
-	       msymbol_name (family), msymbol_name (registry));
-      font_list->tag = family;
-    }
-
-  fontnames = XListFonts (FRAME_DISPLAY (frame), pattern, 0x8000, &nfonts);
-  if (nfonts > 0)
-    {
-      MTABLE_MALLOC (font_list->fonts, nfonts, MERROR_WIN);
-      for (i = j = 0; i < nfonts; i++)
-	if ((mfont__parse_name_into_font (fontnames[i], Mx,
-					  font_list->fonts + j)
-	     == 0)
-	    && (font_list->fonts[j].property[MFONT_SIZE] != 0
-		|| font_list->fonts[j].property[MFONT_RESY] == 0))
-	  j++;
-      XFreeFontNames (fontnames);
-      font_list->nfonts = j;
-    }
-  mplist_add (plist, font_list->tag, font_list);
-  return (nfonts > 0 ? font_list : NULL);
-}
-
-/* The X font driver function SELECT.  */
-
-static MRealizedFont *
-xfont_select (MFrame *frame, MFont *spec, MFont *request, int limited_size)
-{
-  MSymbol registry = FONT_PROPERTY (spec, MFONT_REGISTRY);
-  MRealizedFont *rfont;
-  MFontList *font_list = NULL;
-  int i;
-  MFont *best_font;
-  int best_score, score;
-
-  if (registry == Mnil
-      || ! strchr (MSYMBOL_NAME (registry), '-'))
-    return NULL;
-
-  /* We handles iso8859-1 and iso10646-1 fonts specially because there
-     exists so many such fonts.  */
-  if (registry == M_iso8859_1 || registry == M_iso10646_1)
-    {
-      MPlist *family_list
-	= (registry == M_iso8859_1
-	   ? FRAME_DEVICE (frame)->display_info->iso8859_1_family_list
-	   : FRAME_DEVICE (frame)->display_info->iso10646_1_family_list);
-      MSymbol family = FONT_PROPERTY (spec, MFONT_FAMILY);
-
-      if (family != Mnil)
-	{
-	  font_list = (MFontList *) mplist_get (family_list, family);
-	  if (! font_list)
-	    font_list = build_font_list (frame, family, registry, family_list);
-	}
-      if (! font_list)
-	{
-	  family = FONT_PROPERTY (request, MFONT_FAMILY);
-	  font_list = (MFontList *) mplist_get (family_list, family);
-	  if (! font_list)
-	    font_list = build_font_list (frame, family, registry, family_list);
-	}
-    }
-  if (! font_list)
-    {
-      MPlist *registry_list
-	= FRAME_DEVICE (frame)->display_info->font_registry_list;
-
-      font_list = (MFontList *) mplist_get (registry_list, registry);
-      if (! font_list)
-	font_list = build_font_list (frame, Mnil, registry, registry_list);
-    }
-  if (! font_list)
-    return NULL;
-
-  for (i = 0, best_score = -1, best_font = NULL; i < font_list->nfonts; i++)
-    if ((best_score = mfont__score (font_list->fonts + i, spec, request,
-				    limited_size)) >= 0)
-      break;
-  if (best_score < 0)
-    return NULL;
-  best_font = font_list->fonts + i;
-  for (; best_score > 0 && i < font_list->nfonts ; i++)
-    {
-      score = mfont__score (font_list->fonts + i, spec, request,
-			    limited_size);
-      if (score >= 0 && score < best_score)
-	{
-	  best_font = font_list->fonts + i;
-	  best_score = score;
-	}
-    }
-
-  MSTRUCT_CALLOC (rfont, MERROR_WIN);
-  rfont->frame = frame;
-  rfont->spec = *spec;
-  rfont->request = *request;
-  rfont->font = *best_font;
-  if (best_font->property[MFONT_SIZE] == 0)
-    rfont->font.property[MFONT_SIZE] = request->property[MFONT_SIZE];
-  rfont->score = best_score;
-  return rfont;
-}
-
-
-/* The X font driver function CLOSE.  */
-
-static void
-close_xfont (void *object)
-{
-  MXFontInfo *xfont_info = object;
-
-  XFreeFont (xfont_info->display, xfont_info->xfont);
-  free (object);
-}
-
-
-/* The X font driver function OPEN.  */
-
-static int
-xfont_open (MRealizedFont *rfont)
-{
-  char *name;
-  MXFontInfo *xfont_info;
-  MFrame *frame = rfont->frame;
-  int mdebug_mask = MDEBUG_FONT;
-
-  /* This never fail to generate a valid fontname because open_spec
-     should correspond to a font available on the system.  */
-  name = mfont_unparse_name (&rfont->font, Mx);
-  M17N_OBJECT (xfont_info, close_xfont, MERROR_WIN);
-  xfont_info->display = FRAME_DISPLAY (frame);
-  xfont_info->xfont = XLoadQueryFont (FRAME_DISPLAY (frame), name);
-  if (! xfont_info->xfont)
-    {
-      rfont->status = -1;
-      free (xfont_info);
-      MDEBUG_PRINT1 (" [XFONT] x %s\n", name);
-      free (name);
-      return -1;
-    }
-  rfont->info = xfont_info;
-  MDEBUG_PRINT1 (" [XFONT] o %s\n", name);
-  free (name);
-  rfont->status = 1;
-  rfont->ascent = xfont_info->xfont->ascent;
-  rfont->descent = xfont_info->xfont->descent;
-  return 0;
-}
-
-
-/* The X font driver function FIND_METRIC.  */
-
-static void
-xfont_find_metric (MRealizedFont *rfont, MGlyphString *gstring,
-		   int from, int to)
-{
-  MXFontInfo *xfont_info = rfont->info;
-  XFontStruct *xfont = xfont_info->xfont;
-  MGlyph *g = MGLYPH (from), *gend = MGLYPH (to);
-
-  for (; g != gend; g++)
-    {
-      if (g->code == MCHAR_INVALID_CODE)
-	{
-	  g->lbearing = xfont->max_bounds.lbearing;
-	  g->rbearing = xfont->max_bounds.rbearing;
-	  g->width = xfont->max_bounds.width;
-	  g->ascent = xfont->ascent;
-	  g->descent = xfont->descent;
-	}
-      else
-	{
-	  int byte1 = g->code >> 8, byte2 = g->code & 0xFF;
-	  XCharStruct *pcm = NULL;
-
-	  if (xfont->per_char != NULL)
-	    {
-	      if (xfont->min_byte1 == 0 && xfont->max_byte1 == 0)
-		{
-		  if (byte1 == 0
-		      && byte2 >= xfont->min_char_or_byte2
-		      && byte2 <= xfont->max_char_or_byte2)
-		    pcm = xfont->per_char + byte2 - xfont->min_char_or_byte2;
-		}
-	      else
-		{
-		  if (byte1 >= xfont->min_byte1
-		      && byte1 <= xfont->max_byte1
-		      && byte2 >= xfont->min_char_or_byte2
-		      && byte2 <= xfont->max_char_or_byte2)
-		    {
-		      pcm = (xfont->per_char
-			     + ((xfont->max_char_or_byte2
-				 - xfont->min_char_or_byte2 + 1)
-				* (byte1 - xfont->min_byte1))
-			     + (byte2 - xfont->min_char_or_byte2));
-		    }
-		}
-	    }
-
-	  if (pcm)
-	    {
-	      g->lbearing = pcm->lbearing;
-	      g->rbearing = pcm->rbearing;
-	      g->width = pcm->width;
-	      g->ascent = pcm->ascent;
-	      g->descent = pcm->descent;
-	    }
-	  else
-	    {
-	      /* If the per_char pointer is null, all glyphs between
-		 the first and last character indexes inclusive have
-		 the same information, as given by both min_bounds and
-		 max_bounds.  */
-	      g->lbearing = 0;
-	      g->rbearing = xfont->max_bounds.width;
-	      g->width = xfont->max_bounds.width;
-	      g->ascent = xfont->ascent;
-	      g->descent = xfont->descent;
-	    }
-	}
-    }
-}
-
-
-/* The X font driver function GET_GLYPH_ID.  */
-
-static unsigned
-xfont_encode_char (MRealizedFont *rfont, unsigned code)
-{
-  MXFontInfo *xfont_info;
-  XFontStruct *xfont;
-  unsigned min_byte1, max_byte1, min_byte2, max_byte2;
-  int all_chars_exist;
-
-  if (rfont->status < 0 || code >= 0x10000)
-    return MCHAR_INVALID_CODE;
-  if (rfont->status == 0)
-    {
-      if (xfont_open (rfont) < 0)
-	return MCHAR_INVALID_CODE;
-    }
-  xfont_info = rfont->info;
-  xfont = xfont_info->xfont;
-  all_chars_exist = (! xfont->per_char || xfont->all_chars_exist == True);
-  min_byte1 = xfont->min_byte1;
-  max_byte1 = xfont->max_byte1;
-  min_byte2 = xfont->min_char_or_byte2;
-  max_byte2 = xfont->max_char_or_byte2;
-
-  if (min_byte1 == 0 && max_byte1 == 0)
-    {
-      XCharStruct *pcm;
-
-      if (code < min_byte2 || code > max_byte2)
-	return MCHAR_INVALID_CODE;
-      if (all_chars_exist)
-	return code;
-      pcm = xfont->per_char + (code - min_byte2);
-      return ((pcm->width > 0 || pcm->rbearing != pcm->lbearing)
-	      ? code : MCHAR_INVALID_CODE);
-    }
-  else
-    {
-      unsigned byte1 = code >> 8, byte2 = code & 0xFF;
-      XCharStruct *pcm;
-
-      if (byte1 < min_byte1 || byte1 > max_byte1
-	  || byte2 < min_byte2 || byte2 > max_byte2)
-	return MCHAR_INVALID_CODE;
-
-      if (all_chars_exist)
-	return code;
-      pcm = xfont->per_char + ((byte1 - min_byte1) * (max_byte2 - min_byte2 + 1)
-			   + (byte2 - min_byte2));
-      return ((pcm->width > 0 || pcm->rbearing != pcm->lbearing)
-	      ? code : MCHAR_INVALID_CODE);
-    }
-}
-
-/* The X font driver function RENDER.  */
-
-static void
-xfont_render (MDrawWindow win, int x, int y, MGlyphString *gstring,
-	      MGlyph *from, MGlyph *to, int reverse, MDrawRegion region)
-{
-  MRealizedFace *rface = from->rface;
-  MXFontInfo *xfont_info = rface->rfont->info;
-  Display *display;
-  XChar2b *code;
-  GC gc = ((GCInfo *) rface->info)->gc[reverse ? GC_INVERSE : GC_NORMAL];
-  MGlyph *g;
-  int i;
-
-  if (from == to)
-    return;
-
-  /* It is assured that the all glyphs in the current range use the
-     same realized face.  */
-  display = FRAME_DISPLAY (rface->frame);
-
-  if (region)
-    gc = set_region (rface->frame, gc, region);
-  XSetFont (display, gc, xfont_info->xfont->fid);
-  code = (XChar2b *) alloca (sizeof (XChar2b) * (to - from));
-  for (i = 0, g = from; g < to; i++, g++)
-    {
-      code[i].byte1 = g->code >> 8;
-      code[i].byte2 = g->code & 0xFF;
-    }
-
-  g = from;
-  while (g < to)
-    {
-      if (g->type == GLYPH_PAD)
-	x += g++->width;
-      else if (g->type == GLYPH_SPACE)
-	for (; g < to && g->type == GLYPH_SPACE; g++)
-	  x += g->width;
-      else if (! g->rface->rfont)
-	{
-	  if ((g->c >= 0x200B && g->c <= 0x200F)
-	      || (g->c >= 0x202A && g->c <= 0x202E))
-	    x += g++->width;
-	  else
-	    {
-	      /* As a font is not found for this character, draw an
-		 empty box.  */
-	      int box_width = g->width;
-	      int box_height = gstring->ascent + gstring->descent;
-
-	      if (box_width > 4)
-		box_width -= 2;
-	      if (box_height > 4)
-		box_height -= 2;
-	      XDrawRectangle (display, (Window) win, gc,
-			      x, y - gstring->ascent, box_width, box_height);
-	      x += g++->width;
-	    }
-	}
-      else if (g->xoff != 0 || g->yoff != 0 || g->right_padding)
-	{
-	  XDrawString16 (display, (Window) win, gc,
-			 x + g->xoff, y + g->yoff, code + (g - from), 1);
-	  x += g->width;
-	  g++;
-	}
-      else
-	{
-	  int orig_x = x;
-	  int code_idx = g - from;
-
-	  for (i = 0;
-	       g < to && g->type == GLYPH_CHAR && g->xoff == 0 && g->yoff == 0;
-	       i++, g++)
-	      x += g->width;
-	  XDrawString16 (display, (Window) win, gc, orig_x, y,
-			 code + code_idx, i);
-	}
-    }
-}
-
-
-/* Xft Handler */
-
-#ifdef HAVE_XFT2
-
-typedef struct
-{
-  M17NObject control;
-  Display *display;
-  XftFont *font_aa;
-  XftFont *font_no_aa;
-} MXftFontInfo;
-
-static int xft_open (MRealizedFont *);
-static void xft_find_metric (MRealizedFont *, MGlyphString *, int, int);
-static void xft_render (MDrawWindow, int, int, MGlyphString *,
-			MGlyph *, MGlyph *, int, MDrawRegion);
-
-MFontDriver xft_driver =
-  { NULL,			/* Set to ft_select in mwin__init (). */
-    xft_open, xft_find_metric,
-    NULL,			/* Set to ft_encode_char in mwin__init (). */
-    xft_render };
-
-
-static void
-close_xft (void *object)
-{
-  MXftFontInfo *font_info = object;
-
-  XftFontClose (font_info->display, font_info->font_aa);
-  XftFontClose (font_info->display, font_info->font_no_aa);
-  free (font_info);
-}
-
-
-static XftFont *
-xft_open_font (MFrame *frame, MFTInfo *ft_info, int size, int anti_alias)
-{
-  XftPattern *pattern;
-  XftFontInfo *xft_font_info;
-  XftFont *font;
-
-  pattern = XftPatternCreate ();
-  XftPatternAddString (pattern, XFT_FILE, ft_info->filename);
-  XftPatternAddDouble (pattern, XFT_PIXEL_SIZE, (double) size);
-  XftPatternAddBool (pattern, XFT_ANTIALIAS, anti_alias);
-  xft_font_info = XftFontInfoCreate (FRAME_DISPLAY (frame), pattern);
-  if (! xft_font_info)
-    return NULL;
-  font = XftFontOpenInfo (FRAME_DISPLAY (frame), pattern, xft_font_info);
-  XftFontInfoDestroy (FRAME_DISPLAY (frame), xft_font_info);
-  return font;
-}
-
-
-static int
-xft_open (MRealizedFont *rfont)
-{
-  MFrame *frame;
-  MFTInfo *ft_info;
-  MXftFontInfo *font_info;
-  int size;
-
-  if ((mfont__ft_driver.open) (rfont) < 0)
-    return -1;
-
-  size = rfont->font.property[MFONT_SIZE] / 10;
-  frame = rfont->frame;
-
-  ft_info = rfont->info;
-  M17N_OBJECT (font_info, close_xft, MERROR_WIN);
-  ft_info->extra_info = font_info;
-  font_info->display = FRAME_DISPLAY (frame);
-  font_info->font_aa = xft_open_font (frame, ft_info, size, 1);
-  if (font_info->font_aa)
-    {
-      font_info->font_no_aa = xft_open_font (frame, ft_info, size, 0);
-      if (font_info->font_no_aa)
-	return 0;
-      XftFontClose (FRAME_DISPLAY (rfont->frame), font_info->font_aa);
-    }
-  free (font_info);  
-  ft_info->extra_info = NULL;
-  rfont->status = -1;
-  return -1;
-}
-
-
-static void
-xft_find_metric (MRealizedFont *rfont, MGlyphString *gstring,
-		int from, int to)
-{
-  MFTInfo *ft_info = rfont->info;
-  MXftFontInfo *font_info = ft_info->extra_info;
-  MGlyph *g = MGLYPH (from), *gend = MGLYPH (to);
-
-  for (; g != gend; g++)
-    {
-      if (g->code == MCHAR_INVALID_CODE)
-	{
-	  MGlyph *start = g++;
-
-	  while (g != gend && g->code == MCHAR_INVALID_CODE) g++;
-	  (mfont__ft_driver.find_metric) (rfont, gstring, GLYPH_INDEX (start),
-					  GLYPH_INDEX (g));
-	  g--;
-	}
-      else
-	{
-	  XGlyphInfo extents;
-
-	  XftGlyphExtents (FRAME_DISPLAY (rfont->frame),
-			   font_info->font_aa, &g->code, 1, &extents);
-	  g->lbearing = - extents.x;
-	  g->rbearing = extents.width - extents.x;
-	  g->width = extents.xOff;
-	  g->ascent = extents.y;
-	  g->descent = extents.height - extents.y;
-	}
-    }
-}
-
-
-static void 
-xft_render (MDrawWindow win, int x, int y,
-	    MGlyphString *gstring, MGlyph *from, MGlyph *to,
-	    int reverse, MDrawRegion region)
-{
-  MRealizedFace *rface = from->rface;
-  MFrame *frame = rface->frame;
-  MFTInfo *ft_info = rface->rfont->info;
-  MXftFontInfo *font_info = ft_info->extra_info;
-  XftDraw *xft_draw = FRAME_DEVICE (frame)->xft_draw;
-  XftColor *xft_color = (! reverse
-			 ? &((GCInfo *) rface->info)->xft_color_fore
-			 : &((GCInfo *) rface->info)->xft_color_back);
-  XftFont *xft_font = (gstring->control.anti_alias
-		       && FRAME_DEVICE (frame)->depth > 1
-		       ? font_info->font_aa : font_info->font_no_aa);
-  MGlyph *g;
-  FT_UInt *glyphs;
-  int last_x;
-  int nglyphs;
-
-  if (from == to)
-    return;
-
-  XftDrawChange (xft_draw, (Drawable) win);
-  XftDrawSetClip (xft_draw, (Region) region);
-      
-  glyphs = alloca (sizeof (FT_UInt) * (to - from));
-  for (last_x = x, nglyphs = 0, g = from; g < to; x += g++->width)
-    {
-      if (g->xoff == 0 && g->yoff == 0)
-	glyphs[nglyphs++] = g->code;
-      else
-	{
-	  if (nglyphs > 0)
-	    XftDrawGlyphs (xft_draw, xft_color, xft_font,
-			   last_x, y, glyphs, nglyphs);
-	  nglyphs = 0;
-	  XftDrawGlyphs (xft_draw, xft_color, xft_font,
-			 x + g->xoff, y + g->yoff, (FT_UInt *) &g->code, 1);
-	  last_x = x + g->width;
-	}
-    }
-  if (nglyphs > 0)
-    XftDrawGlyphs (xft_draw, xft_color, xft_font, last_x, y, glyphs, nglyphs);
-}
-
-#endif
-
-
-/* Functions for the device driver.  */
-
-static int
-mwin__device_init ()
-{
-  M_iso8859_1 = msymbol ("iso8859-1");
-  M_iso10646_1 = msymbol ("iso10646-1");
-
-  display_info_list = mplist ();
-  device_list = mplist ();
-
-  Mxim = msymbol ("xim");
-  msymbol_put (Mxim, Minput_driver, &minput_xim_driver);
-
-  return 0;
-}
-
-static int
-mwin__device_fini ()
-{
-  M17N_OBJECT_UNREF (display_info_list);
-  M17N_OBJECT_UNREF (device_list);
-  return 0;
-}
-
-/** Return an MWDevice object corresponding to a display specified in
-    PLIST.
-
-    It searches device_list for a device matching the display.  If
-    found, return the found object.  Otherwise, return a newly created
-    object.  */
-
-static int
-mwin__open_device (MFrame *frame, MPlist *param)
-{
-  Display *display = NULL;
-  Screen *screen = NULL;
-  int screen_num;
-  Drawable drawable = 0;
-  Widget widget = NULL;
-  Colormap cmap = 0;
-  int auto_display = 0;
-  MDisplayInfo *disp_info = NULL;
-  MWDevice *device = NULL;
-  MSymbol key;
-  XWindowAttributes attr;
-  unsigned depth = 0;
-  MPlist *plist;
-  AppData app_data;
-  MFace *face;
-
-  for (plist = param; (key = mplist_key (plist)) != Mnil;
-       plist = mplist_next (plist))
-    {
-      if (key == Mdisplay)
-	display = (Display *) mplist_value (plist);
-      else if (key == Mscreen)
-	screen = mplist_value (plist);
-      else if (key == Mdrawable)
-	drawable = (Drawable) mplist_value (plist);
-      else if (key == Mdepth)
-	depth = (unsigned) mplist_value (plist);
-      else if (key == Mwidget)
-	widget = (Widget) mplist_value (plist);
-      else if (key == Mcolormap)
-	cmap = (Colormap) mplist_value (plist);
-    }
-
-  if (widget)
-    {
-      display = XtDisplay (widget);
-      screen_num = XScreenNumberOfScreen (XtScreen (widget));
-      depth = DefaultDepth (display, screen_num);
-    }
-  else if (drawable)
-    {
-      Window root_window;
-      int x, y;
-      unsigned width, height, border_width;
-
-      if (! display)
-	MERROR (MERROR_WIN, -1);
-      XGetGeometry (display, drawable, &root_window,
-		    &x, &y, &width, &height, &border_width, &depth);
-      XGetWindowAttributes (display, root_window, &attr);
-      screen_num = XScreenNumberOfScreen (attr.screen);
-    }
-  else
-    {
-      if (screen)
-	display = DisplayOfScreen (screen);
-      else
-	{
-	  if (! display)
-	    {
-	      display = XOpenDisplay (NULL);
-	      if (! display)
-		MERROR (MERROR_WIN, -1);
-	      auto_display = 1;
-	    }
-	  screen = DefaultScreenOfDisplay (display);
-	}
-      screen_num = XScreenNumberOfScreen (screen);
-      if (! depth)
-	depth = DefaultDepth (display, screen_num);
-    }
-
-  if (! cmap)
-    cmap = DefaultColormap (display, screen_num);
-
-  for (plist = display_info_list; mplist_key (plist) != Mnil;
-       plist = mplist_next (plist))
-    {
-      disp_info = (MDisplayInfo *) mplist_value (plist);
-      if (disp_info->display == display)
-	break;
-    }
-
-  if (mplist_key (plist) != Mnil)
-    M17N_OBJECT_REF (disp_info);
-  else
-    {
-      M17N_OBJECT (disp_info, free_display_info, MERROR_WIN);
-      disp_info->display = display;
-      disp_info->auto_display = auto_display;
-      disp_info->font_registry_list = mplist ();
-      disp_info->iso8859_1_family_list = mplist ();
-      disp_info->iso10646_1_family_list = mplist ();
-      disp_info->realized_font_list = mplist ();
-      find_modifier_bits (disp_info);
-      mplist_add (display_info_list, Mt, disp_info);
-    }  
-
-  for (plist = device_list; mplist_key (plist) != Mnil;
-       plist = mplist_next (plist))
-    {
-      device = (MWDevice *) mplist_value (plist);
-      if (device->display_info == disp_info
-	  && device->depth == depth
-	  && device->cmap == cmap)
-	break;
-    }
-
-  if (mplist_key (plist) != Mnil)
-    M17N_OBJECT_REF (device);
-  else
-    {
-      unsigned long valuemask = GCForeground;
-      XGCValues values;
-
-      M17N_OBJECT (device, free_device, MERROR_WIN);
-      device->display_info = disp_info;
-      device->screen_num = screen_num;
-      /* A drawable on which to create GCs.  */
-      device->drawable = XCreatePixmap (display,
-					RootWindow (display, screen_num),
-					1, 1, depth);
-      device->depth = depth;
-      device->cmap = cmap;
-      device->realized_face_list = mplist ();
-      device->realized_fontset_list = mplist ();
-      device->gc_list = mplist ();
-      values.foreground = BlackPixel (display, screen_num);
-      device->scratch_gc = XCreateGC (display, device->drawable,
-				      valuemask, &values);
-#ifdef HAVE_XFT2
-      device->xft_draw = XftDrawCreate (display, device->drawable,
-					DefaultVisual (display, screen_num),
-					cmap);
-#endif
-    }
-
-  frame->device = device;
-  frame->device_type = MDEVICE_SUPPORT_OUTPUT | MDEVICE_SUPPORT_INPUT;
-  frame->font_driver_list = mplist ();
-  mplist_add (frame->font_driver_list, Mx, &xfont_driver);
-#ifdef HAVE_XFT2
-  mplist_add (frame->font_driver_list, Mfreetype, &xft_driver);
-#elif HAVE_FREETYPE
-  mplist_add (frame->font_driver_list, Mfreetype, &mfont__ft_driver);
-#endif
-  frame->realized_font_list = disp_info->realized_font_list;
-  frame->realized_face_list = device->realized_face_list;
-  frame->realized_fontset_list = device->realized_fontset_list;
-
-  if (widget)
-    {
-      XtResource resources[] = {
-	{ XtNfont, XtCFont, XtRString, sizeof (String),
-	  XtOffset (AppDataPtr, font), XtRString, DEFAULT_FONT },
-	{ XtNforeground, XtCForeground, XtRString, sizeof (String),
-	  XtOffset (AppDataPtr, foreground), XtRString, "black" },
-	{ XtNbackground, XtCBackground, XtRString, sizeof (String),
-	  XtOffset (AppDataPtr, background), XtRString, "white" },
-	{ XtNreverseVideo, XtCReverseVideo, XtRBoolean, sizeof (Boolean),
-	  XtOffset (AppDataPtr, reverse_video), XtRImmediate, (caddr_t) FALSE }
-      };
-
-      XtGetApplicationResources (widget, &app_data,
-				 resources, XtNumber (resources), NULL, 0);
-      frame->foreground = msymbol (app_data.foreground);
-      frame->background = msymbol (app_data.background);
-      frame->videomode = app_data.reverse_video == True ? Mreverse : Mnormal;
-    }
-  else
-    {
-      app_data.font = DEFAULT_FONT;
-      frame->foreground = msymbol ("black");
-      frame->background = msymbol ("white");
-      frame->videomode = Mnormal;
-    }
-
-  {
-    int nfonts;
-    char **names = XListFonts (display, app_data.font, 1, &nfonts);
-
-    if (nfonts > 0)
-      {
-	if (! (frame->font = mfont_parse_name (names[0], Mx)))
-	  {
-	    /* The font name does not conform to XLFD.  Try to open the
-	       font and get XA_FONT property.  */
-	    XFontStruct *xfont = XLoadQueryFont (display, names[0]);
-
-	    nfonts = 0;
-	    if (xfont)
-	      {
-		unsigned long value;
-		char *name;
-
-		if (XGetFontProperty (xfont, XA_FONT, &value)
-		    && (name = ((char *)
-				XGetAtomName (display, (Atom) value))))
-		  {
-		    if ((frame->font = mfont_parse_name (name, Mx)))
-		      nfonts = 1;
-		  }
-		XFreeFont (display, xfont);
-	      }
-	  }
-	XFreeFontNames (names);
-      }
-    if (! nfonts)
-      frame->font = mfont_parse_name (FALLBACK_FONT, Mx);
-  }
-
-  face = mface_from_font (frame->font);
-  face->property[MFACE_FONTSET] = mfontset (NULL);
-  face->property[MFACE_FOREGROUND] = frame->foreground;
-  face->property[MFACE_BACKGROUND] = frame->background;
-  mface_put_prop (face, Mhline, mface_get_prop (mface__default, Mhline));
-  mface_put_prop (face, Mbox, mface_get_prop (mface__default, Mbox));
-  face->property[MFACE_VIDEOMODE] = frame->videomode;
-  mface_put_prop (face, Mhook_func, 
-		  mface_get_prop (mface__default, Mhook_func));
-  face->property[MFACE_RATIO] = (void *) 100;
-  mplist_push (param, Mface, face);
-  M17N_OBJECT_UNREF (face);
-
-#ifdef X_SET_ERROR_HANDLER
-  XSetErrorHandler (x_error_handler);
-  XSetIOErrorHandler (x_io_error_handler);
-#endif
-
-  return 0;
-}
-
-
-static void
-mwin__close_device (MFrame *frame)
-{
-  M17N_OBJECT_UNREF (FRAME_DEVICE (frame));
-}
-
-static void *
-mwin__device_get_prop (MFrame *frame, MSymbol key)
-{
-  MWDevice *device = FRAME_DEVICE (frame);
-
-  if (key == Mdisplay)
-    return (void *) device->display_info->display;
-  if (key == Mscreen)
-    return (void *) ScreenOfDisplay(device->display_info->display,
-				    device->screen_num);
-  if (key == Mcolormap)
-    return (void *) device->cmap;
-  if (key == Mdepth)
-    return (void *) device->depth;
-  return NULL;
-}
-
-static void
-mwin__realize_face (MRealizedFace *rface)
-{
-  MFrame *frame;
-  MSymbol foreground, background, videomode;
-  MFaceHLineProp *hline;
-  MFaceBoxProp *box;
-  GCInfo *info;
-
-  if (rface != rface->ascii_rface)
-    {
-      rface->info = rface->ascii_rface->info;
-      return;
-    }
-
-  frame = rface->frame;
-  MSTRUCT_CALLOC (info, MERROR_WIN);
-
-  foreground = rface->face.property[MFACE_FOREGROUND];
-  background = rface->face.property[MFACE_BACKGROUND];
-  videomode = rface->face.property[MFACE_VIDEOMODE];
-  if (! videomode)
-    videomode = frame->videomode;
-  if (videomode != Mreverse)
-    {
-      info->gc[GC_NORMAL] = get_gc (frame, foreground, 1, &info->rgb_fore);
-      info->gc[GC_INVERSE] = get_gc (frame, background, 0, &info->rgb_back);
-    }
-  else
-    {
-      info->gc[GC_NORMAL] = get_gc (frame, background, 0, &info->rgb_fore);
-      info->gc[GC_INVERSE] = get_gc (frame, foreground, 1, &info->rgb_back);
-    }
-#ifdef HAVE_XFT2
-  if (foreground == Mnil)
-    foreground = frame->foreground;
-  if (background == Mnil)
-    background = frame->background;
-  if (videomode == Mreverse)
-    {
-      MSymbol temp = foreground;
-      foreground = background;
-      background = temp;
-    }
-  if (! XftColorAllocName (FRAME_DISPLAY (frame),
-			   FRAME_VISUAL (frame),
-			   FRAME_CMAP (frame),
-			   MSYMBOL_NAME (foreground),
-			   &info->xft_color_fore))
-    mdebug_hook ();
-  if (! XftColorAllocName (FRAME_DISPLAY (frame),
-			   FRAME_VISUAL (frame),
-			   FRAME_CMAP (frame),
-			   MSYMBOL_NAME (background),
-			   &info->xft_color_back))
-    mdebug_hook ();
-#endif
-
-  hline = rface->hline;
-  if (hline)
-    {
-      if (hline->color)
-	info->gc[GC_HLINE] = get_gc (frame, hline->color, 1, NULL);
-      else
-	info->gc[GC_HLINE] = info->gc[GC_NORMAL];
-    }
-
-  box = rface->box;
-  if (box)
-    {
-      if (box->color_top)
-	info->gc[GC_BOX_TOP] = get_gc (frame, box->color_top, 1, NULL);
-      else
-	info->gc[GC_BOX_TOP] = info->gc[GC_NORMAL];
-
-      if (box->color_left && box->color_left != box->color_top)
-	info->gc[GC_BOX_LEFT] = get_gc (frame, box->color_left, 1, NULL);
-      else
-	info->gc[GC_BOX_LEFT] = info->gc[GC_BOX_TOP];
-
-      if (box->color_bottom && box->color_bottom != box->color_top)
-	info->gc[GC_BOX_BOTTOM] = get_gc (frame, box->color_bottom, 1, NULL);
-      else
-	info->gc[GC_BOX_BOTTOM] = info->gc[GC_BOX_TOP];
-
-      if (box->color_right && box->color_right != box->color_bottom)
-	info->gc[GC_BOX_RIGHT] = get_gc (frame, box->color_right, 1, NULL);
-      else
-	info->gc[GC_BOX_RIGHT] = info->gc[GC_BOX_BOTTOM];
-    }
-
-  rface->info = info;
-}
-
-
-static void
-mwin__free_realized_face (MRealizedFace *rface)
-{
-  if (rface == rface->ascii_rface)
-    free (rface->info);
-}
-
-
-static void
-mwin__fill_space (MFrame *frame, MDrawWindow win, MRealizedFace *rface,
-		  int reverse,
-		  int x, int y, int width, int height, MDrawRegion region)
-{
-  GC gc = ((GCInfo *) rface->info)->gc[reverse ? GC_NORMAL : GC_INVERSE];
-
-  if (region)
-    gc = set_region (frame, gc, region);
-
-  XFillRectangle (FRAME_DISPLAY (frame), (Window) win, gc,
-		  x, y, width, height);
-}
-
-
-static void
-mwin__draw_empty_boxes (MDrawWindow win, int x, int y,
-			MGlyphString *gstring, MGlyph *from, MGlyph *to,
-			int reverse, MDrawRegion region)
-{
-  MRealizedFace *rface = from->rface;
-  Display *display = FRAME_DISPLAY (rface->frame);
-  GC gc = ((GCInfo *) rface->info)->gc[reverse ? GC_INVERSE : GC_NORMAL];
-
-  if (from == to)
-    return;
-
-  if (region)
-    gc = set_region (rface->frame, gc, region);
-  for (; from < to; from++)
-    {
-      XDrawRectangle (display, (Window) win, gc,
-		      x, y - gstring->ascent + 1, from->width - 1,
-		      gstring->ascent + gstring->descent - 2);
-      x += from->width;
-    }
-}
-
-
-static void
-mwin__draw_hline (MFrame *frame, MDrawWindow win, MGlyphString *gstring,
-		 MRealizedFace *rface, int reverse,
-		 int x, int y, int width, MDrawRegion region)
-{
-  enum MFaceHLineType type = rface->hline->type;
-  GCInfo *info = rface->info;
-  GC gc = gc = info->gc[GC_HLINE];
-  int i;
-
-  y = (type == MFACE_HLINE_BOTTOM
-       ? y + gstring->text_descent - rface->hline->width
-       : type == MFACE_HLINE_UNDER
-       ? y + 1
-       : type == MFACE_HLINE_STRIKE_THROUGH
-       ? y - ((gstring->ascent + gstring->descent) / 2)
-       : y - gstring->text_ascent);
-  if (region)
-    gc = set_region (frame, gc, region);
-
-  for (i = 0; i < rface->hline->width; i++)
-    XDrawLine (FRAME_DISPLAY (frame), (Window) win, gc,
-	       x, y + i, x + width - 1, y + i);
-}
-
-
-static void
-mwin__draw_box (MFrame *frame, MDrawWindow win, MGlyphString *gstring,
-		MGlyph *g, int x, int y, int width, MDrawRegion region)
-{
-  Display *display = FRAME_DISPLAY (frame);
-  MRealizedFace *rface = g->rface;
-  MFaceBoxProp *box = rface->box;
-  GCInfo *info = rface->info;
-  GC gc_top, gc_left, gc_right, gc_btm;
-  int y0, y1;
-  int i;
-
-  y0 = y - (gstring->text_ascent
-	    + rface->box->inner_vmargin + rface->box->width);
-  y1 = y + (gstring->text_descent
-	    + rface->box->inner_vmargin + rface->box->width - 1);
-
-  gc_top = info->gc[GC_BOX_TOP];
-  if (region)
-    gc_top = set_region (frame, gc_top, region);
-  if (info->gc[GC_BOX_TOP] == info->gc[GC_BOX_BOTTOM])
-    gc_btm = gc_top;
-  else
-    gc_btm = info->gc[GC_BOX_BOTTOM];
-
-  if (g->type == GLYPH_BOX)
-    {
-      int x0, x1;
-
-      if (g->left_padding)
-	x0 = x + box->outer_hmargin, x1 = x + g->width - 1;
-      else
-	x0 = x, x1 = x + g->width - box->outer_hmargin - 1;
-
-      /* Draw the top side.  */
-      for (i = 0; i < box->width; i++)
-	XDrawLine (display, (Window) win, gc_top, x0, y0 + i, x1, y0 + i);
-
-      /* Draw the bottom side.  */
-      if (region && gc_btm != gc_top)
-	gc_btm = set_region (frame, gc_btm, region);
-      for (i = 0; i < box->width; i++)
-	XDrawLine (display, (Window) win, gc_btm, x0, y1 - i, x1, y1 - i);
-
-      if (g->left_padding > 0)
-	{
-	  /* Draw the left side.  */
-	  if (info->gc[GC_BOX_LEFT] == info->gc[GC_BOX_TOP])
-	    gc_left = gc_top;
-	  else
-	    {
-	      gc_left = info->gc[GC_BOX_LEFT];
-	      if (region)
-		gc_left = set_region (frame, gc_left, region);
-	    }
-	  for (i = 0; i < rface->box->width; i++)
-	    XDrawLine (display, (Window) win, gc_left,
-		       x0 + i, y0 + i, x0 + i, y1 - i);
-	}
-      else
-	{
-	  /* Draw the right side.  */
-	  if (info->gc[GC_BOX_RIGHT] == info->gc[GC_BOX_TOP])
-	    gc_right = gc_top;
-	  else
-	    {
-	      gc_right = info->gc[GC_BOX_RIGHT];
-	      if (region)
-		gc_right = set_region (frame, gc_right, region);
-	    }
-	  for (i = 0; i < rface->box->width; i++)
-	    XDrawLine (display, (Window) win, gc_right,
-		       x1 - i, y0 + i, x1 - i, y1 - i);
-	}
-    }
-  else
-    {
-      /* Draw the top side.  */
-      for (i = 0; i < box->width; i++)
-	XDrawLine (display, (Window) win, gc_top,
-		   x, y0 + i, x + width - 1, y0 + i);
-
-      /* Draw the bottom side.  */
-      if (region && gc_btm != gc_top)
-	gc_btm = set_region (frame, gc_btm, region);
-      for (i = 0; i < box->width; i++)
-	XDrawLine (display, (Window) win, gc_btm,
-		   x, y1 - i, x + width - 1, y1 - i);
-    }
-}
-
-
-#if 0
-static void
-mwin__draw_bitmap (MFrame *frame, MDrawWindow win, MRealizedFace *rface,
-		   int reverse, int x, int y,
-		   int width, int height, int row_bytes, unsigned char *bmp,
-		   MDrawRegion region)
-{
-  Display *display = FRAME_DISPLAY (frame);
-  int i, j;
-  GC gc = ((GCInfo *) rface->info)->gc[reverse ? GC_INVERSE : GC_NORMAL];
-
-  if (region)
-    gc = set_region (frame, gc, region);
-
-  for (i = 0; i < height; i++, bmp += row_bytes)
-    for (j = 0; j < width; j++)
-      if (bmp[j / 8] & (1 << (7 - (j % 8))))
-	XDrawPoint (display, (Window) win, gc, x + j, y + i);
-}
-#endif
-
-static void
-mwin__draw_points (MFrame *frame, MDrawWindow win, MRealizedFace *rface,
-		   int intensity, MDrawPoint *points, int num,
-		   MDrawRegion region)
-{
-  GCInfo *info = rface->info;
-  GC gc;
-
-  if (! (gc = info->gc[intensity]))
-    gc = info->gc[intensity] = get_gc_for_anti_alias (FRAME_DEVICE (frame),
-						      info, intensity);
-  if (region)
-    gc = set_region (frame, gc, region);
-
-  XDrawPoints (FRAME_DISPLAY (frame), (Window) win, gc,
-	       (XPoint *) points, num, CoordModeOrigin);
-}
-
-
-static MDrawRegion
-mwin__region_from_rect (MDrawMetric *rect)
-{
-  MDrawRegion region1 = XCreateRegion ();
-  MDrawRegion region2 = XCreateRegion ();
-  XRectangle xrect;
-
-  xrect.x = rect->x;
-  xrect.y = rect->y;
-  xrect.width = rect->width;
-  xrect.height = rect->height;
-  XUnionRectWithRegion (&xrect, region1, region2);
-  XDestroyRegion (region1);
-  return region2;
-}
-
-static void
-mwin__union_rect_with_region (MDrawRegion region, MDrawMetric *rect)
-{
-  MDrawRegion region1 = XCreateRegion ();
-  XRectangle xrect;
-
-  xrect.x = rect->x;
-  xrect.y = rect->y;
-  xrect.width = rect->width;
-  xrect.height = rect->height;
-
-  XUnionRegion (region, region, region1);
-  XUnionRectWithRegion (&xrect, region1, region);
-  XDestroyRegion (region1);
-}
-
-static void
-mwin__intersect_region (MDrawRegion region1, MDrawRegion region2)
-{
-  MDrawRegion region = XCreateRegion ();
-
-  XUnionRegion (region1, region1, region);
-  XIntersectRegion (region, region2, region1);
-  XDestroyRegion (region);
-}
-
-static void
-mwin__region_add_rect (MDrawRegion region, MDrawMetric *rect)
-{
-  MDrawRegion region1 = XCreateRegion ();
-  XRectangle xrect;
-
-  xrect.x = rect->x;
-  xrect.y = rect->y;
-  xrect.width = rect->width;
-  xrect.height = rect->height;
-  XUnionRectWithRegion (&xrect, region1, region);
-  XDestroyRegion (region1);
-}
-
-static void
-mwin__region_to_rect (MDrawRegion region, MDrawMetric *rect)
-{
-  XRectangle xrect;
-
-  XClipBox (region, &xrect);
-  rect->x = xrect.x;
-  rect->y = xrect.y;
-  rect->width = xrect.width;
-  rect->height = xrect.height;
-}
-
-static void
-mwin__free_region (MDrawRegion region)
-{
-  XDestroyRegion (region);
-}
-
-static void
-mwin__dump_region (MDrawRegion region)
-{
-  XRectangle rect;
-  XClipBox (region, &rect);
-  fprintf (stderr, "(%d %d %d %d)\n", rect.x, rect.y, rect.width, rect.height);
-}
-
-
-static MDrawWindow
-mwin__create_window (MFrame *frame, MDrawWindow parent)
-{
-  Display *display = FRAME_DISPLAY (frame);
-  Window win;
-  XWMHints wm_hints = { InputHint, False };
-  XClassHint class_hints = { "M17N-IM", "m17n-im" };
-  XSetWindowAttributes set_attrs;
-  unsigned long mask;
-  XGCValues values;
-  GCInfo *info = frame->rface->info;
-
-  if (! parent)
-    parent = (MDrawWindow) RootWindow (display, FRAME_SCREEN (frame));
-  mask = GCForeground;
-  XGetGCValues (display, info->gc[GC_INVERSE], mask, &values);
-  set_attrs.background_pixel = values.foreground;
-  set_attrs.backing_store = Always;
-  set_attrs.override_redirect = True;
-  set_attrs.save_under = True;
-  mask = CWBackPixel | CWBackingStore | CWOverrideRedirect | CWSaveUnder;
-  win = XCreateWindow (display, (Window) parent, 0, 0, 1, 1, 0,
-		       CopyFromParent, InputOutput, CopyFromParent,
-		       mask, &set_attrs);
-  XSetWMProperties (display, (Window) win, NULL, NULL, NULL, 0,
-		    NULL, &wm_hints, &class_hints);
-  XSelectInput (display, (Window) win, StructureNotifyMask | ExposureMask);
-  return (MDrawWindow) win;
-}
-
-static void
-mwin__destroy_window (MFrame *frame, MDrawWindow win)
-{
-  XDestroyWindow (FRAME_DISPLAY (frame), (Window) win);
-}
-
-#if 0
-static MDrawWindow
-mwin__event_window (void *event)
-{
-  return ((MDrawWindow) ((XEvent *) event)->xany.window);
-}
-
-static void
-mwin__print_event (void *arg, char *win_name)
-{
-  char *event_name;
-  XEvent *event = (XEvent *) arg;
-
-  switch (event->xany.type)
-    {
-    case 2: event_name = "KeyPress"; break;
-    case 3: event_name = "KeyRelease"; break;
-    case 4: event_name = "ButtonPress"; break;
-    case 5: event_name = "ButtonRelease"; break;
-    case 6: event_name = "MotionNotify"; break;
-    case 7: event_name = "EnterNotify"; break;
-    case 8: event_name = "LeaveNotify"; break;
-    case 9: event_name = "FocusIn"; break;
-    case 10: event_name = "FocusOut"; break;
-    case 11: event_name = "KeymapNotify"; break;
-    case 12: event_name = "Expose"; break;
-    case 13: event_name = "GraphicsExpose"; break;
-    case 14: event_name = "NoExpose"; break;
-    case 15: event_name = "VisibilityNotify"; break;
-    case 16: event_name = "CreateNotify"; break;
-    case 17: event_name = "DestroyNotify"; break;
-    case 18: event_name = "UnmapNotify"; break;
-    case 19: event_name = "MapNotify"; break;
-    case 20: event_name = "MapRequest"; break;
-    case 21: event_name = "ReparentNotify"; break;
-    case 22: event_name = "ConfigureNotify"; break;
-    case 23: event_name = "ConfigureRequest"; break;
-    case 24: event_name = "GravityNotify"; break;
-    case 25: event_name = "ResizeRequest"; break;
-    case 26: event_name = "CirculateNotify"; break;
-    case 27: event_name = "CirculateRequest"; break;
-    case 28: event_name = "PropertyNotify"; break;
-    case 29: event_name = "SelectionClear"; break;
-    case 30: event_name = "SelectionRequest"; break;
-    case 31: event_name = "SelectionNotify"; break;
-    case 32: event_name = "ColormapNotify"; break;
-    case 33: event_name = "ClientMessage"; break;
-    case 34: event_name = "MappingNotify"; break;
-    default: event_name = "unknown";
-    }
-
-  fprintf (stderr, "%s: %s\n", win_name, event_name);
-}
-#endif
-
-static void
-mwin__map_window (MFrame *frame, MDrawWindow win)
-{
-  XMapRaised (FRAME_DISPLAY (frame), (Window) win);
-}
-
-static void
-mwin__unmap_window (MFrame *frame, MDrawWindow win)
-{
-  XUnmapWindow (FRAME_DISPLAY (frame), (Window) win);
-}
-
-static void
-mwin__window_geometry (MFrame *frame, MDrawWindow win, MDrawWindow parent_win,
-		       MDrawMetric *geometry)
-{
-  Display *display = FRAME_DISPLAY (frame);
-  XWindowAttributes attr;
-  Window parent = (Window) parent_win, root;
-
-  XGetWindowAttributes (display, (Window) win, &attr);
-  geometry->x = attr.x + attr.border_width;
-  geometry->y = attr.y + attr.border_width;
-  geometry->width = attr.width;
-  geometry->height = attr.height; 
-
-  if (! parent)
-    parent = RootWindow (display, FRAME_SCREEN (frame));
-  while (1)
-    {
-      Window this_parent, *children;
-      unsigned n;
-
-      XQueryTree (display, (Window) win, &root, &this_parent, &children, &n);
-      if (children)
-	XFree (children);
-      if (this_parent == parent || this_parent == root)
-	break;
-      win = (MDrawWindow) this_parent;
-      XGetWindowAttributes (display, (Window) win, &attr);
-      geometry->x += attr.x + attr.border_width;
-      geometry->y += attr.y + attr.border_width;
-    }
-}
-
-static void
-mwin__adjust_window (MFrame *frame, MDrawWindow win,
-		     MDrawMetric *current, MDrawMetric *new)
-{
-  Display *display = FRAME_DISPLAY (frame);
-  unsigned int mask = 0;
-  XWindowChanges values;
-
-  if (current->width != new->width)
-    {
-      mask |= CWWidth;
-      if (new->width <= 0)
-	new->width = 1;
-      values.width = current->width = new->width;
-    }
-  if (current->height != new->height)
-    {
-      mask |= CWHeight;
-      if (new->height <= 0)
-	new->height = 1;
-      values.height = current->height = new->height;
-    }
-  if (current->x != new->x)
-    {
-      mask |= CWX;
-      values.x = current->x = new->x;
-    }
-  if (current->y != new->y)
-    {
-      mask |= CWY;
-      current->y = new->y;
-      values.y = current->y = new->y;
-    }
-  if (mask)
-    XConfigureWindow (display, (Window) win, mask, &values);
-  XClearWindow (display, (Window) win);
-}
-
-static MSymbol
-mwin__parse_event (MFrame *frame, void *arg, int *modifiers)
-{
-  XEvent *event = (XEvent *) arg;
-  MDisplayInfo *disp_info = FRAME_DEVICE (frame)->display_info;
-  int len;
-  char buf[512];
-  KeySym keysym;
-  MSymbol key;
-
-  *modifiers = 0;
-  if (event->xany.type != KeyPress
-      /* && event->xany.type != KeyRelease */
-      )
-    return Mnil;
-  len = XLookupString ((XKeyEvent *) event, (char *) buf, 512, &keysym, NULL);
-  if (len > 1)
-    return Mnil;
-  if (len == 1)
-    {
-      int c = keysym;
-
-      if (c < XK_space || c > XK_asciitilde)
-	c = buf[0];
-      if ((c == ' ' || c == 127) && ((XKeyEvent *) event)->state & ShiftMask)
-	*modifiers |= MINPUT_KEY_SHIFT_MODIFIER;
-      if (((XKeyEvent *) event)->state & ControlMask)
-	{
-	  if (c >= 'a' && c <= 'z')
-	    c += 'A' - 'a';
-	  if (c >= ' ' && c < 127)
-	    *modifiers |= MINPUT_KEY_CONTROL_MODIFIER;
-	}
-      key = minput__char_to_key (c);
-    }
-  else if (keysym >= XK_Shift_L && keysym <= XK_Hyper_R)
-    return Mnil;
-  else
-    {
-      char *str = XKeysymToString (keysym);
-
-      if (! str)
-	return Mnil;
-      key = msymbol (str);
-      if (((XKeyEvent *) event)->state & ShiftMask)
-	*modifiers |= MINPUT_KEY_SHIFT_MODIFIER;
-      if (((XKeyEvent *) event)->state & ControlMask)
-	*modifiers |= MINPUT_KEY_CONTROL_MODIFIER;
-    }
-  if (((XKeyEvent *) event)->state & disp_info->meta_mask)
-    *modifiers |= MINPUT_KEY_META_MODIFIER;
-  if (((XKeyEvent *) event)->state & disp_info->alt_mask)
-    *modifiers |= MINPUT_KEY_ALT_MODIFIER;
-  if (((XKeyEvent *) event)->state & disp_info->super_mask)
-    *modifiers |= MINPUT_KEY_SUPER_MODIFIER;
-  if (((XKeyEvent *) event)->state & disp_info->hyper_mask)
-    *modifiers |= MINPUT_KEY_HYPER_MODIFIER;
-
-  return key;
-}
-
-
-void
-mwin__dump_gc (MFrame *frame, MRealizedFace *rface)
-{
-  unsigned long valuemask = GCForeground | GCBackground | GCClipMask;
-  XGCValues values;
-  Display *display = FRAME_DISPLAY (frame);
-  GCInfo *info = rface->info;
-  int i;
-
-  for (i = 0; i <= GC_INVERSE; i++)
-    {
-      XGetGCValues (display, info->gc[i], valuemask, &values);
-      fprintf (stderr, "GC%d: fore/#%lX back/#%lX", i,
-	       values.foreground, values.background);
-      fprintf (stderr, "\n");
-    }
-}
-
-static MDeviceDriver x_driver =
-  {
-    0,
-    mwin__device_init,
-    mwin__device_fini,
-    mwin__open_device,
-    mwin__close_device,
-    mwin__device_get_prop,
-    mwin__realize_face,
-    mwin__free_realized_face,
-    mwin__fill_space,
-    mwin__draw_empty_boxes,
-    mwin__draw_hline,
-    mwin__draw_box,
-    mwin__draw_points,
-    mwin__region_from_rect,
-    mwin__union_rect_with_region,
-    mwin__intersect_region,
-    mwin__region_add_rect,
-    mwin__region_to_rect,
-    mwin__free_region,
-    mwin__dump_region,
-    mwin__create_window,
-    mwin__destroy_window,
-    mwin__map_window,
-    mwin__unmap_window,
-    mwin__window_geometry,
-    mwin__adjust_window,
-    mwin__parse_event
-  };
-
-
-
-/* XIM (X Input Method) handler */
-
-typedef struct MInputXIMMethodInfo
-{
-  Display *display;
-  XIM xim;
-  MSymbol language;
-  MSymbol coding;
-} MInputXIMMethodInfo;
-
-typedef struct MInputXIMContextInfo
-{
-  XIC xic;
-  Window win;
-  MConverter *converter;
-} MInputXIMContextInfo;
-
-static int
-xim_open_im (MInputMethod *im)
-{
-  MInputXIMArgIM *arg = (MInputXIMArgIM *) im->arg;
-  MLocale *saved, *this;
-  char *save_modifier_list;
-  XIM xim;
-  MInputXIMMethodInfo *im_info;
-
-  saved = mlocale_set (LC_CTYPE, NULL);
-  this = mlocale_set (LC_CTYPE, arg->locale ? arg->locale : "");
-  if (! this)
-    /* The specified locale is not supported.  */
-    MERROR (MERROR_LOCALE, -1);
-  if (mlocale_get_prop (this, Mcoding) == Mnil)
-    {
-      /* Unable to decode the output of XIM.  */
-      mlocale_set (LC_CTYPE, msymbol_name (mlocale_get_prop (saved, Mname)));
-      MERROR (MERROR_LOCALE, -1);
-    }
-
-  if (arg->modifier_list)
-    save_modifier_list = XSetLocaleModifiers (arg->modifier_list);
-  else
-    save_modifier_list = XSetLocaleModifiers ("");
-  if (! save_modifier_list)
-    {
-      /* The specified locale is not supported by X.  */
-      mlocale_set (LC_CTYPE, msymbol_name (mlocale_get_prop (saved, Mname)));
-      MERROR (MERROR_LOCALE, -1);
-    }
-
-  xim = XOpenIM (arg->display, arg->db, arg->res_name, arg->res_class);
-  if (! xim)
-    {
-      /* No input method is available in the current locale.  */
-      XSetLocaleModifiers (save_modifier_list);
-      mlocale_set (LC_CTYPE, msymbol_name (mlocale_get_prop (saved, Mname)));
-      MERROR (MERROR_WIN, -1);
-    }
-
-  MSTRUCT_MALLOC (im_info, MERROR_WIN);
-  im_info->display = arg->display;
-  im_info->xim = xim;
-  im_info->language = mlocale_get_prop (this, Mlanguage);
-  im_info->coding = mlocale_get_prop (this, Mcoding);
-  im->info = im_info;
-
-  XSetLocaleModifiers (save_modifier_list);
-  mlocale_set (LC_CTYPE, msymbol_name (mlocale_get_prop (saved, Mname)));
-
-  return 0;
-}
-
-static void
-xim_close_im (MInputMethod *im)
-{
-  MInputXIMMethodInfo *im_info = (MInputXIMMethodInfo *) im->info;
-
-  XCloseIM (im_info->xim);
-  free (im_info);
-}
-
-static int
-xim_create_ic (MInputContext *ic)
-{
-  MInputXIMArgIC *arg = (MInputXIMArgIC *) ic->arg;
-  MInputXIMMethodInfo *im_info = (MInputXIMMethodInfo *) ic->im->info;
-  MInputXIMContextInfo *ic_info;
-  XIC xic;
-
-  if (! arg->input_style)
-    {
-      /* By default, use Root style.  */
-      arg->input_style = XIMPreeditNothing | XIMStatusNothing;
-      arg->preedit_attrs = NULL;
-      arg->status_attrs = NULL;
-    }
-
-  if (! arg->preedit_attrs && ! arg->status_attrs)
-    xic = XCreateIC (im_info->xim,
-		     XNInputStyle, arg->input_style,
-		     XNClientWindow, arg->client_win,
-		     XNFocusWindow, arg->focus_win,
-		     NULL);
-  else if (arg->preedit_attrs && ! arg->status_attrs)
-    xic = XCreateIC (im_info->xim,
-		     XNInputStyle, arg->input_style,
-		     XNClientWindow, arg->client_win,
-		     XNFocusWindow, arg->focus_win,
-		     XNPreeditAttributes, arg->preedit_attrs,
-		     NULL);
-  else if (! arg->preedit_attrs && arg->status_attrs)
-    xic = XCreateIC (im_info->xim,
-		     XNInputStyle, arg->input_style,
-		     XNClientWindow, arg->client_win,
-		     XNFocusWindow, arg->focus_win,
-		     XNStatusAttributes, arg->status_attrs,
-		     NULL);
-  else
-    xic = XCreateIC (im_info->xim,
-		     XNInputStyle, arg->input_style,
-		     XNClientWindow, arg->client_win,
-		     XNFocusWindow, arg->focus_win,
-		     XNPreeditAttributes, arg->preedit_attrs,
-		     XNStatusAttributes, arg->status_attrs,
-		     NULL);
-  if (! xic)
-    MERROR (MERROR_WIN, -1);
-
-  MSTRUCT_MALLOC (ic_info, MERROR_WIN);
-  ic_info->xic = xic;
-  ic_info->win = arg->focus_win;
-  ic_info->converter = mconv_buffer_converter (im_info->coding, NULL, 0);
-  ic->info = ic_info;
-  return 0;
-}
-
-static void
-xim_destroy_ic (MInputContext *ic)
-{
-  MInputXIMContextInfo *ic_info = (MInputXIMContextInfo *) ic->info;
-
-  XDestroyIC (ic_info->xic);
-  mconv_free_converter (ic_info->converter);
-  free (ic_info);
-  ic->info = NULL;
-}
-
-static int
-xim_filter (MInputContext *ic, MSymbol key, void *event)
-{
-  MInputXIMContextInfo *ic_info = (MInputXIMContextInfo *) ic->info;
-
-  return (XFilterEvent ((XEvent *) event, ic_info->win) == True);
-}
-
-
-static int
-xim_lookup (MInputContext *ic, MSymbol key, void *arg, MText *mt)
-{
-  MInputXIMMethodInfo *im_info = (MInputXIMMethodInfo *) ic->im->info;
-  MInputXIMContextInfo *ic_info = (MInputXIMContextInfo *) ic->info;
-  XKeyPressedEvent *ev = (XKeyPressedEvent *) arg;
-  KeySym keysym;
-  Status status;
-  char *buf;
-  int len;
-
-  buf = (char *) alloca (512);
-  len = XmbLookupString (ic_info->xic, ev, buf, 512, &keysym, &status);
-  if (status == XBufferOverflow)
-    {
-      buf = (char *) alloca (len);
-      len = XmbLookupString (ic_info->xic, ev, buf, len, &keysym, &status);
-    }
-
-  mtext_reset (ic->produced);
-  if (len == 0)
-    return 1;
-
-  mconv_reset_converter (ic_info->converter);
-  mconv_rebind_buffer (ic_info->converter, (unsigned char *) buf, len);
-  mconv_decode (ic_info->converter, ic->produced);
-  mtext_put_prop (ic->produced, 0, mtext_nchars (ic->produced),
-		  Mlanguage, (void *) im_info->language);
-  mtext_cpy (mt, ic->produced);
-  mtext_reset (ic->produced);  
-  return 0;
-}
-
-
-
-#ifdef X_SET_ERROR_HANDLER
-static int
-x_error_handler (Display *display, XErrorEvent *error)
-{
-  mdebug_hook ();
-  return 0;
-}
-
-static int
-x_io_error_handler (Display *display)
-{
-  mdebug_hook ();
-  return 0;
-}
-#endif
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-/* External API */
-
-int
-m17n_init_X ()
-{
-  x_driver.initialized = 0;
-  mplist_put (m17n__device_library_list, Mx, &x_driver);
-
-#ifdef HAVE_XFT2
-  xft_driver.select = mfont__ft_driver.select;
-  xft_driver.encode_char = mfont__ft_driver.encode_char;
-#endif
-
-  return 0;
-}
-
-/*=*/
-/*** @addtogroup m17nInputMethodWin */
-/*=*/
-/*** @{ */
-
-/***en
-    @brief Input method driver for XIM.
-
-    The driver #minput_xim_driver is for the foreign input method of
-    name #Mxim.  It uses XIM (X Input Methods) as a background input
-    engine.
-
-    As the symbol #Mxim has property #Minput_driver whose value is
-    a pointer to this driver, the input method of language #Mnil
-    and name #Mxim uses this driver.
-
-    Therefore, for such input methods, the driver dependent arguments
-    to the functions whose name begin with minput_ must be as follows.
-
-    The argument $ARG of the function minput_open_im () must be a
-    pointer to the structure #MInputXIMArgIM.  See the documentation
-    of #MInputXIMArgIM for more details.
-
-    The argument $ARG of the function minput_create_ic () must be a
-    pointer to the structure #MInputXIMArgIC. See the documentation
-    of #MInputXIMArgIC for more details.
-
-    The argument $ARG of the function minput_filter () must be a
-    pointer to the structure @c XEvent.  The argument $KEY is ignored.
-
-    The argument $ARG of the function minput_lookup () must be the
-    same one as that of the function minput_filter ().  The argument
-    $KEY is ignored.  */
-
-/***ja
-    @brief XIMÍÑÆþÎÏ¥É¥é¥¤¥Ð.
-
-    ¥É¥é¥¤¥Ð #minput_xim_driver ¤Ï #Mxim ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä³°ÉôÆþÎÏ¥á¥½¥Ã
-    ¥ÉÍÑ¤Ç¤¢¤ê¡¢ XIM (X Input Methods) ¤ò¥Ð¥Ã¥¯¥°¥é¥¦¥ó¥É¤ÎÆþÎÏ¥¨¥ó¥¸
-    ¥ó¤È¤·¤Æ»ÈÍÑ¤¹¤ë¡£
-
-    ¥·¥ó¥Ü¥ë #Mxim ¤Ï¤³¤Î¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÃÍ¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£
-    #Minput_driver ¤ò»ý¤Á¡¢LANGUAGE ¤¬ #Mnil ¤ÇÌ¾Á°¤¬ #Mxim ¤Ç¤¢¤ëÆþÎÏ
-    ¥á¥½¥Ã¥É¤Ï¤³¤Î¥É¥é¥¤¥Ð¤òÍøÍÑ¤¹¤ë¡£
-
-    ¤·¤¿¤¬¤Ã¤Æ¡¢¤½¤ì¤é¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¡¢minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤ò»ý¤Ä´Ø
-    ¿ô¤Î¥É¥é¥¤¥Ð¤Ë°ÍÂ¸¤¹¤ë°ú¿ô¤Ï¼¡¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ´Ø¿ô minput_open_im () ¤Î°ú¿ô $ARG ¤Ï¹½Â¤ÂÎ #MInputXIMArgIM ¤Ø¤Î¥Ý
-    ¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï #MInputXIMArgIM ¤ÎÀâÌÀ¤ò
-    »²¾È¡£
-
-    ´Ø¿ô minput_create_ic () ¤Î°ú¿ô $ARG ¤Ï¹½Â¤ÂÎ #MInputXIMArgIC ¤Ø¤Î
-    ¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï #MInputXIMArgIC ¤ÎÀâÌÀ
-    ¤ò»²¾È¡£
-
-    ´Ø¿ô minput_filter () ¤Î°ú¿ô $ARG ¤Ï¹½Â¤ÂÎ @c XEvent ¤Ø¤Î¥Ý¥¤¥ó¥¿
-    ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£°ú¿ô $KEY ¤ÏÌµ»ë¤µ¤ì¤ë¡£
-
-    ´Ø¿ô minput_lookup () ¤Î°ú¿ô $ARG ¤Ï´Ø¿ô function minput_filter () 
-    ¤Î°ú¿ô $ARG ¤ÈÆ±¤¸¤â¤Î¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ °ú¿ô $KEY ¤Ï¡¢Ìµ»ë¤µ¤ì
-    ¤ë¡£  */
-
-MInputDriver minput_xim_driver =
-  { xim_open_im, xim_close_im, xim_create_ic, xim_destroy_ic,
-    xim_filter, xim_lookup, NULL };
-
-/*** @} */ 
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-X.h b/src/m17n-X.h
deleted file mode 100644
index 4bc4c3e..0000000
--- a/src/m17n-X.h
+++ /dev/null
@@ -1,166 +0,0 @@
-/* m17n-X.h -- header file for the GUI API on X Windows.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_X_H_
-#define _M17N_X_H_
-
-#include 
-#include 
-#include 
-
-#ifndef _M17N_GUI_H_
-#include 
-#endif
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-extern int m17n_init_X (void);
-#undef M17N_INIT_X
-#define M17N_INIT_X() m17n_init_X ()
-
-#undef M17N_INIT
-#define M17N_INIT()			\
-  do {					\
-    if (m17n_init_win () < 0) break;	\
-    if (M17N_INIT_GD () < 0) break;	\
-    M17N_INIT_X ();			\
-  } while (0)
-
-/* For inputting.  */
-
-extern MInputDriver minput_xim_driver;
-extern MSymbol Mxim;
-
-/*** @ingroup m17nInputMethodWin */
-/***en
-    @brief Structure pointed to by the argument $ARG of the function minput_open_im ().
-
-    The type #MInputXIMArgIM is the structure pointed to by the
-    argument $ARG of the function minput_open_im () for the foreign
-    input method of name #Mxim.  */
-
-/***ja
-    @brief ´Ø¿ô minput_open_im () ¤Î°ú¿ô $ARG ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤ë¹½Â¤ÂÎ.
-
-    #MInputXIMArgIM ·¿¤Ï¡¢´Ø¿ô minput_open_im () ¤¬Ì¾Á° #Mxim ¤ò»ý
-    ¤Ä³°ÉôÆþÎÏ¥á¥½¥Ã¥É¤òÀ¸À®¤¹¤ëºÝ¤Ë°ú¿ô $ARG ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤ë¹½Â¤ÂÎ¤Ç
-    ¤¢¤ë¡£  */
-
-typedef struct
-{
-  /***en The meaning of the following four members are the same as
-      arguments to XOpenIM ().  */
-  /***ja °Ê²¼¤Î£´¤Ä¤Î¥á¥ó¥Ð¤Î°ÕÌ£¤Ï¡¢XOpenIM () ¤Î°ú¿ô¤Î°ÕÌ£¤ÈÆ±¤¸¤Ç¤¢
-      ¤ë¡£  */
-
-  /***en Display of the client.  */
-  /***ja ¥¯¥é¥¤¥¢¥ó¥È¤Î¥Ç¥£¥¹¥×¥ì¥¤  */
-  Display *display;
-
-  /***en Pointer to the X resource database.  */
-  /***ja X ¥ê¥½¡¼¥¹¡¦¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ø¤Î¥Ý¥¤¥ó¥¿  */
-  XrmDatabase db;
-
-  /***en Full class name of the application.  */
-  /***ja ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î´°Á´¤Ê¥¯¥é¥¹Ì¾  */
-  char *res_class;
-
-  /***en Full resource name of the application.  */
-  /***ja ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î´°Á´¤Ê¥ê¥½¡¼¥¹Ì¾  */
-  char *res_name;
-
-  /***en Locale name under which an XIM is opened.  */
-  /***ja XIM¤¬¥ª¡¼¥×¥ó¤µ¤ì¤¿¥í¥±¡¼¥ëÌ¾  */
-  char *locale;
-
-  /***en Arguments to XSetLocaleModifiers ().  */
-  /***ja XSetLocaleModifiers () ¤Î°ú¿ô  */
-  char *modifier_list;
-} MInputXIMArgIM;
-
-/*=*/
-
-/*** @ingroup m17nInputMethodWin */
-/***en
-    @brief Structure pointed to by the argument $ARG of the function minput_create_ic ().
-
-    The type #MInputXIMArgIC is the structure pointed to by the
-    argument $ARG of the function minput_create_ic () for the foreign
-    input method of name #Mxim.  */
-
-/***ja
-    @brief ´Ø¿ô minput_create_ic () ¤Î°ú¿ô $ARG ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤ë¹½Â¤ÂÎ.
-
-    #MInputXIMArgIC ·¿¤Ï¡¢´Ø¿ô minput_create_ic () ¤¬Ì¾Á° #Mxim ¤ò
-    »ý¤Ä³°ÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤Ë¸Æ¤Ð¤ì¤ëºÝ¤Ë¡¢°ú¿ô $ARG ¤Ë¤è¤Ã¤Æ»Ø¤µ¤ì¤ë¹½
-    Â¤ÂÎ¤Ç¤¢¤ë¡£ */
-
-typedef struct
-{
-  /***en Used as the arguments of @c XCreateIC following @c
-      XNInputStyle.  If this is zero, ( @c XIMPreeditNothing | @c
-      XIMStatusNothing) is used, and  and
-       are set to @c NULL.  */
-  /***ja @c XCreateIC ¤Î @c XNInputStyle ¤ËÂ³¤¯°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-      ¥¼¥í¤Ê¤é¤Ð¡¢ ( @c XIMPreeditNothing | @c XIMStatusNothing) ¤¬ÍÑ
-      ¤¤¤é¤ì¡¢  ¤È  ¤Ï @c NULL ¤ËÀßÄê¤µ¤ì
-      ¤ë¡£ */
-
-  XIMStyle input_style;
-  /***en Used as the argument of @c XCreateIC following @c XNClientWindow.  */
-  /***ja @c XCreateIC ¤Î @c XNClientWindow ¤ËÂ³¤¯°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£  */
-
-
-  Window client_win;
-  /***en Used as the argument of @c XCreateIC following @c XNFocusWindow.  */
-  /***ja @c XCreateIC ¤Î @c XNFocusWindow ¤ËÂ³¤¯°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£  */
-
-  Window focus_win;
-  /***en If non- @c NULL, used as the argument of @c XCreateIC following
-      @c XNPreeditAttributes.  */
-  /***ja @c NULL¤Ç¤Ê¤±¤ì¤Ð¡¢ @c XCreateIC following ¤Î@c
-      XNPreeditAttributes ¤ËÂ³¤¯°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£  */
-
-  XVaNestedList preedit_attrs;
-  /***en If non- @c NULL, used as the argument of @c XCreateIC following
-      @c XNStatusAttributes.  */ 
-  /***ja @c NULL¤Ç¤Ê¤±¤ì¤Ð¡¢ @c XCreateIC following ¤Î @c
-      XNStatusAttributes ¤ËÂ³¤¯°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£  */
-
-  XVaNestedList status_attrs;
-} MInputXIMArgIC;
-/*=*/
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* not _M17N_X_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-core.c b/src/m17n-core.c
deleted file mode 100644
index c2c01ae..0000000
--- a/src/m17n-core.c
+++ /dev/null
@@ -1,1014 +0,0 @@
-/* m17n-core.c -- body of the CORE API.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nIntro
-    @brief Introduction to the m17n library.
-
-    API LEVELS
-
-    The API of the m17n library is divided into these four.
-
-    
-     CORE API
-
-    It provides basic modules to handle M-texts.  They do not require
-    the m17n database.  To use this API, an application program must
-    include  and be linked by -lm17n-core.
-
-    
 SHELL API
-
-    It provides modules that utilize the m17n database (code
-    conversion, character property, etc).  They load various kinds of
-    data from the database on demand.  To use this API, an application
-    program must include  and be linked by -lm17n (some system
-    requires -lm17n-core in addition).  With that, CORE API is also available.
-
-    
 GUI API
-
-    It provides GUI modules such as drawing and inputting M-texts on a
-    graphic device.  The API itself is independent on a graphic device
-    but most of functions require an argument MFrame which is created
-    for a specific type of graphic device.  Currently, X Window
-    System, gdImagePtr of GD library, and null device are supported as
-    a graphic device.  To use this API, an application program must
-    include , and be linked by -lm17n-gui (some system
-    requires -lm17n-core -lm17n in addition).  With that, CORE and
-    SHELL APIs are also available.
-
-    
 MISC API
-
-    It provides miscellaneous functions to support error handling and
-    debugging.  This API cannot be used by itself, but with one or more
-    APIs listed above.  To use the API, an application program must
-    include  in addition to one of ,
-    , and .
-
-    
-
-    See also the section @ref m17n-config "m17n-config(1)".
-
-    ENVIRONMENT VARIABLE
-
-    The m17n library pays attention to these environment variables.
-
-    
-     @c M17NDIR
-
-    Name of a directory that contains data of the m17n database.  See
-    @ref m17nDatabase for more details.
-
-    
 @c MDEBUG_XXXX
-
-    Environment variables whose name start by "MDEBUG_" controls
-    printing of debug information.  See @ref m17nDebug for more
-    details.
-
-    
-
-    API NAMING CONVENTION
-
-    The library exports functions, variables, macros, and types.  All
-    of them start by the letter 'm' or 'M' followed by an object name
-    (e.g. "symbol" and "plist", but "mtext" object is given the name
-    "text" to avoid double 'm' at the head) or a module name
-    (e.g. draw, input).
-    
-    
-
-     functions -- mobject () or mobject_xxx ()
-
-    They start with 'm' followed by lower case object name.  For
-    example, msymbol (), mtext_ref_char (), mdraw_text ().
-
-    
 non-symbol variables -- mobject, or mobject_xxx
-    
-    The naming convention is the same as functions (e.g. mface_large).
-
-    
 symbol variables -- Mname
-
-    Variables of type MSymbol start with 'M' followed by their names
-    (e.g. Mlanguage (name is "language"), Miso_2022 (name is
-    "iso-2022").
-
-    
 macros -- MOBJECT_XXX
-
-    They start by 'M' followed by upper case object names.
-
-    
 types -- MObject or MObjectXxx
-
-    They start by 'M' followed by capitalized object names (e.g.
-    MConverter, MInputDriver).
-
-    
-
-  */
-
-/***ja
-    @addtogroup m17nIntro
-    @brief m17n ¥é¥¤¥Ö¥é¥ê ¥¤¥ó¥È¥í¥À¥¯¥·¥ç¥ó.
-
-    @em API¤Î¥ì¥Ù¥ë
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Î API ¤Ï°Ê²¼¤Î£´¼ï¤ËÊ¬Îà¤µ¤ì¤Æ¤¤¤ë¡£
-
-    
-     ¥³¥¢ API
-
-    M-text ¤ò°·¤¦¤¿¤á¤Î´ðËÜÅª¤Ê¥â¥¸¥å¡¼¥ë¤òÄó¶¡¤¹¤ë¡£¤³¤ÎÊ¬Îà¤Î API ¤Ï
-    m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤òÉ¬Í×¤È¤·¤Ê¤¤¡£ÍøÍÑ¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¥¢¥×¥ê¥±¡¼¥·¥ç
-    ¥ó¥×¥í¥°¥é¥à¤Ï ¤ò include ¤·¡¢ -lm17n-core ¤Ç¥ê¥ó¥¯¤µ
-    ¤ì¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    
 ¥·¥§¥ë API
-
-    m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤òÍøÍÑ¤¹¤ë¥â¥¸¥å¡¼¥ë¡Ê¥³¡¼¥ÉÊÑ´¹¡¢Ê¸»ú¥×¥í¥Ñ¥Æ¥£
-    Åù¡Ë¤òÄó¶¡¤¹¤ë¡£¥â¥¸¥å¡¼¥ë¤Ï¥Ç¡¼¥¿¥Ù¡¼¥¹¤«¤éÉ¬Í×¤Ë±þ¤¸¤ÆÂ¿ÍÍ¤Ê¥Ç¡¼
-    ¥¿¤ò¥í¡¼¥É¤¹¤ë¡£ÍøÍÑ¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï
-     ¤ò include ¤·¡¢ -lm17n ¤Ç¥ê¥ó¥¯¤µ¤ì¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡Ê¥·¥¹
-    ¥Æ¥à¤Ë¤è¤Ã¤Æ¤Ï -lm17n-core ¤âÉ¬Í×¡Ë¡£¤³¤¦¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¥³¥¢ API
-    ¤â»ÈÍÑ¤Ç¤¤ë¡£
-
-    
 GUI API
-
-    M-texts ¤ò¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð¥¤¥¹¾å¤ÇÉ½¼¨¤·¤¿¤êÆþÎÏ¤·¤¿¤ê¤¹¤ë¤È¤¤¤Ã¤¿¡¢
-    ¥°¥é¥Õ¥£¥Ã¥¯¥æ¡¼¥¶¥¤¥ó¥¿¥Õ¥§¡¼¥¹¥â¥¸¥å¡¼¥ë¤òÄó¶¡¤¹¤ë¡£API ¼«ÂÎ¤Ï¥¦¥£
-    ¥ó¥É¥¦¥·¥¹¥Æ¥à¤È¤ÏÆÈÎ©¤Ç¤¢¤ë¤¬¡¢Â¿¤¯¤Î´Ø¿ô¤ÏÆÃÄê¤Î¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð
-    ¥¤¥¹¾å¤ËºîÀ®¤µ¤ì¤¿ MFrame ¤ò°ú¿ô¤Ë¼è¤ë¡£¸½»þÅÀ¤Ç¤Ï¡¢X ¥¦¥£¥ó¥É¥¦¥·
-    ¥¹¥Æ¥à¡¢GD ¥é¥¤¥Ö¥é¥ê¤Î gdImagePtr¡¢¥Ì¥ë¥Ç¥Ð¥¤¥¹¤¬¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð
-    ¥¤¥¹¤È¤·¤Æ¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¡£ÍøÍÑ¤¹¤ë¤¿¤á¤Ë¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í
-    ¥°¥é¥à¤Ï  ¤ò include ¤·¡¢-lm17n-gui ¤Ç¥ê¥ó¥¯¤µ¤ì¤Ê¤¯¤Æ
-    ¤Ï¤Ê¤é¤Ê¤¤¡Ê¥·¥¹¥Æ¥à¤Ë¤è¤Ã¤Æ¤Ï -lm17n-core -lm17n ¤âÉ¬Í×¡Ë¡£¤³¤¦¤¹
-    ¤ë¤³¤È¤Ë¤è¤Ã¤Æ¥³¥¢ API ¤È¥·¥§¥ë API ¤â»ÈÍÑ¤Ç¤¤ë¡£
-
-    
 ¤½¤ÎÂ¾¤Î API
-
-    ¥¨¥é¡¼½èÍý¡¢¥Ç¥Ð¥Ã¥°ÍÑ¤Î¤½¤ÎÂ¾¤Î´Ø¿ô¤òÄó¶¡¤¹¤ë¡£¤³¤Î API ¤Ï¤½¤ì¤À
-    ¤±¤Ç¤Ï»ÈÍÑ¤Ç¤¤º¡¢¾åµ¤ÎÂ¾¤Î¤â¤Î¤È¶¦¤Ë»È¤¦¡£ÍøÍÑ¤¹¤ë¤¿¤á¤Ë¤Ï
-    , ,  ¤Î¤¤¤º¤ì¤«¤Ë²Ã¤¨¤Æ¡¢ 
-     ¤ò include ¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    
-
-    @ref m17n-config "m17n-config(1)" Àá¤â»²¾È¡£
-
-    @em ´Ä¶ÊÑ¿ô
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¼¡¤Î´Ä¶ÊÑ¿ô¤ò¹ÍÎ¸¤¹¤ë¡£
-
-    
-     @c M17NDIR
-
-    m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥Ç¡¼¥¿¤ò´Þ¤à¥Ç¥£¥ì¥¯¥È¥ê¤ÎÌ¾Á°¡£¾ÜºÙ¤Ï@ref
-    m17nDatabase »²¾È¡£
-
-    
 @c MDEBUG_XXXX
-
-    "MDEBUG_" ¤Ç»Ï¤Þ¤ëÌ¾Á°¤ò»ý¤Ä´Ä¶ÊÑ¿ô¤Ï¥Ç¥Ð¥Ã¥°¾ðÊó¤òÀ©¸æ¤¹¤ë¡£¾ÜºÙ
-    ¤Ï@ref m17nDebug »²¾È¡£
-
-    
-
-    @em API @em ¤ÎÌ¿Ì¾µ¬Â§ ¥³¥Þ¥ó¥É
-
-    ¥é¥¤¥Ö¥é¥ê¤Ï¡¢´Ø¿ô¡¢ÊÑ¿ô¡¢¥Þ¥¯¥í¡¢·¿¤ò export ¤¹¤ë¡£¤½¤ì¤é¤Ï'm' ¤Þ
-    ¤¿¤Ï 'M' ¤Î¤¢¤È¤Ë¥ª¥Ö¥¸¥§¥¯¥ÈÌ¾("symbol" ¤ä "plist" ¤Ê¤É¡£¤¿¤À¤· 
-    "mtext" ¥ª¥Ö¥¸¥§¥¯¥È¤Ï¤Ï¤¸¤á¤Î 'm' ¤Î½ÅÊ£¤òÈò¤±¤ë¤¿¤á "text" ¤òÍÑ
-    ¤¤¤ë¡£) ¤Þ¤¿¤Ï¥â¥¸¥å¡¼¥ëÌ¾(draw, input ¤Ê¤É) ¤òÂ³¤±¤¿¤â¤Î¤Ç¤¢¤ë¡£
-    
-    
-
-     ´Ø¿ô -- mobject () ¤Þ¤¿¤Ï mobject_xxx ()
-
-    'm' ¤Î¤¢¤È¤Ë¾®Ê¸»ú¤Ç¥ª¥Ö¥¸¥§¥¯¥ÈÌ¾¤¬Â³¤¯¡£¤¿¤È¤¨¤Ð¡¢msymbol (),
-     mtext_ref_char (), mdraw_text () ¤Ê¤É¡£
-
-    
 ¥·¥ó¥Ü¥ë¤Ç¤Ê¤¤ÊÑ¿ô -- mobject,  ¤Þ¤¿¤Ï mobject_xxx
-    
-    ´Ø¿ô¤ÈÆ±¤¸Ì¿Ì¾µ¬Â§¤Ë½¾¤¦¡£(¤¿¤È¤¨¤Ð  mface_large)
-
-    
 ¥·¥ó¥Ü¥ëÊÑ¿ô -- Mname
-
-    MSymbol ·¿ÊÑ¿ô¤Ï¡¢'M' ¤Î¸å¤ËÌ¾Á°¤¬Â³¤¯¡£¤¿¤È¤¨¤Ð Mlanguage (Ì¾Á°¤Ï 
-    "language"), Miso_2022 (Ì¾Á°¤Ï"iso-2022")¤Ê¤É¡£
-
-    
 ¥Þ¥¯¥í -- MOBJECT_XXX
-
-    'M' ¤Î¸å¤ËÂçÊ¸»ú¤Ç¥ª¥Ö¥¸¥§¥¯¥ÈÌ¾¤¬Â³¤¯¡£
-
-    
 ¥¿¥¤¥× -- MObject ¤Þ¤¿¤Ï MObjectXxx
-
-    'M' ¤Î¸å¤ËÂçÊ¸»ú¤Ç»Ï¤á¤Æ¥ª¥Ö¥¸¥§¥¯¥ÈÌ¾¤ò¤¬Â³¤¯¡£ (¤¿¤È¤¨¤Ð
-    MConverter, MInputDriver)
-
-    
-    
-    */
-/*=*/
-/*** @{ */
-#ifdef FOR_DOXYGEN
-/***en
-    The #M17NLIB_MAJOR_VERSION macro gives the major version number
-    of the m17n library.  */
-
-/***ja
-    ¥Þ¥¯¥í #M17NLIB_MAJOR_VERSION ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤Î¥á¥¸¥ã¡¼¥Ð¡¼¥¸¥ç
-    ¥óÈÖ¹æ¤òÍ¿¤¨¤ë¡£  */
-
-#define M17NLIB_MAJOR_VERSION
-
-/*=*/
-
-/***en
-    The #M17NLIB_MINOR_VERSION macro gives the minor version number
-    of the m17n library.  */
-
-/***ja
-    ¥Þ¥¯¥í #M17NLIB_MINOR_VERSION ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤Î¥Þ¥¤¥Ê¡¼¥Ð¡¼¥¸¥ç
-    ¥óÈÖ¹æ¤òÍ¿¤¨¤ë¡£  */
-
-#define M17NLIB_MINOR_VERSION
-
-/*=*/
-
-/***en
-    The #M17NLIB_PATCH_LEVEL macro gives the patch level number
-    of the m17n library.  */
-
-/***ja
-    ¥Þ¥¯¥í #M17NLIB_PATCH_LEVEL ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤Î¥Ñ¥Ã¥Á¥ì¥Ù¥ëÈÖ¹æ¤ò
-    Í¿¤¨¤ë¡£  */
-
-#define M17NLIB_PATCH_LEVEL
-
-/*=*/
-
-/***en
-    The #M17NLIB_VERSION_NAME macro gives the version name of the
-    m17n library as a string.  */
-
-/***ja
-    ¥Þ¥¯¥í #M17NLIB_VERSION_NAME ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤Î¥Ð¡¼¥¸¥ç¥óÌ¾¤ò
-    Ê¸»úÎó¤È¤·¤ÆÍ¿¤¨¤ë¡£  */
-
-#define M17NLIB_VERSION_NAME
-
-/*=*/
-
-/***en
-    @brief Initialize the m17n library.
-
-    The macro M17N_INIT () initializes the m17n library.  This macro
-    must be called before any m17n functions are used.
-
-    If the initialization was successful, the external variable
-    #merror_code is set to 0.  Otherwise it is set to -1.  */
-
-/***ja
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¤ò½é´ü²½¤¹¤ë.
-
-    ¥Þ¥¯¥í M17N_INIT () ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤ò½é´ü²½¤¹¤ë¡£m17n ¤Î´Ø¿ô¤ò
-    ÍøÍÑ¤¹¤ëÁ°¤Ë¡¢¤³¤Î¥Þ¥¯¥í¤ò¤Þ¤º¸Æ¤Ð¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    
-    ³°ÉôÊÑ¿ô #merror_code ¤Ï¡¢½é´ü²½¤¬À®¸ù¤¹¤ì¤Ð 0 ¤Ë¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 
-    -1 ¤ËÀßÄê¤µ¤ì¤ë¡£  */
-
-#define M17N_INIT()
-
-/*=*/
-
-/***en
-    @brief Finalize the m17n library.
-
-    The macro M17N_FINI () finalizes the m17n library.  It frees all the
-    memory area used by the m17n library.  Once this macro is
-    called, no m17n functions should be used until the
-    macro M17N_INIT () is called again.  */
-/***ja
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¤ò½ªÎ»¤¹¤ë. 
-
-    ¥Þ¥¯¥í M17N_FINI () ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤ò½ªÎ»¤¹¤ë¡£m17n ¥é¥¤¥Ö¥é¥ê
-    ¤¬»È¤Ã¤¿Á´¤Æ¤Î¥á¥â¥êÎÎ°è¤Ï²òÊü¤µ¤ì¤ë¡£°ìÅÙ¤³¤Î¥Þ¥¯¥í¤¬¸Æ¤Ð¤ì¤¿¤é¡¢
-    ¥Þ¥¯¥í M17N_INIT () ¤¬ºÆÅÙ¸Æ¤Ð¤ì¤ë¤Þ¤Ç m17n ´Ø¿ô¤Ï»È¤¦¤Ù¤¤Ç¤Ê¤¤¡£
- */
-
-#define M17N_FINI()
-#endif /* FOR_DOXYGEN */
-/*=*/
-/*** @} */ 
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-core.h"
-#include "m17n-misc.h"
-#include "internal.h"
-
-static int core_initialized;
-
-static void
-default_error_handler (enum MErrorCode err)
-{
-  exit (err);
-}
-
-static struct timeval time_stack[16];
-static int time_stack_index;
-
-static int report_header_printed;
-
-
-/* Internal API */
-
-void
-mdebug__report_object (char *name, M17NObjectArray *array)
-{
-  if (! (mdebug__flag & MDEBUG_FINI))
-    return;
-  if (! report_header_printed)
-    {
-      fprintf (stderr, "%16s %7s %7s %7s\n",
-	       "object", "created", "freed", "alive");
-      fprintf (stderr, "%16s %7s %7s %7s\n",
-	       "------", "-------", "-----", "-----");
-      report_header_printed = 1;
-    }
-  fprintf (stderr, "%16s %7d %7d %7d\n", name,
-	   array->used, array->used - array->count, array->count);
-  if (array->used > 0)
-    {
-      free (array->objects);
-      array->count = array->used = 0;
-    }
-}
-
-
-void *(*mdatabase__finder) (MSymbol tag1, MSymbol tag2,
-			   MSymbol tag3, MSymbol tag4);
-void *(*mdatabase__loader) (void *);
-
-int mdebug__flag;
-
-void
-mdebug__push_time ()
-{
-  struct timezone tz;
-
-  gettimeofday (time_stack + time_stack_index++, &tz);
-}
-
-void
-mdebug__pop_time ()
-{
-  time_stack_index--;
-}
-
-void
-mdebug__print_time ()
-{
-  struct timeval tv;
-  struct timezone tz;
-  long diff;
-
-  gettimeofday (&tv, &tz);
-  diff = ((tv.tv_sec - time_stack[time_stack_index - 1].tv_sec) * 1000000
-	  + (tv.tv_usec - time_stack[time_stack_index - 1].tv_usec));
-  fprintf (stderr, "%8ld ms.", diff);
-  time_stack[time_stack_index - 1] = tv;
-}
-
-#define SET_DEBUG_FLAG(env_name, mask)		\
-  do {						\
-    char *env_value = getenv (env_name);	\
-						\
-    if (env_value && env_value[0] == '1')	\
-      mdebug__flag |= (mask);			\
-  } while (0)
-
-
-void
-mdebug__register_object (M17NObjectArray *array, void *object)
-{
-  if (array->used == 0)
-    MLIST_INIT1 (array, objects, 256);
-  array->count++;
-  MLIST_APPEND1 (array, objects, object, MERROR_OBJECT);
-}
-
-void
-mdebug__unregister_object (M17NObjectArray *array, void *object)
-{
-  array->count--;
-  if (array->count >= 0)
-    {
-      int i = 0;
-
-      while (i < array->used && array->objects[i] != object) i++;
-      if (i < array->used)
-	array->objects[i] = NULL;
-      else
-	mdebug_hook ();
-    }
-  else									\
-    mdebug_hook ();
-}
-
-
-/* External API */
-
-/* The following two are actually not exposed to a user but concealed
-   by the macro M17N_INIT (). */
-
-void
-m17n_init_core (void)
-{
-  int mdebug_mask = MDEBUG_INIT;
-
-  if (core_initialized++)
-    return;
-
-  merror_code = MERROR_NONE;
-  m17n_memory_full_handler = default_error_handler;
-
-  mdebug__flag = 0;
-  SET_DEBUG_FLAG ("MDEBUG_INIT", MDEBUG_INIT);
-  SET_DEBUG_FLAG ("MDEBUG_FINI", MDEBUG_FINI);
-  SET_DEBUG_FLAG ("MDEBUG_CHARSET", MDEBUG_CHARSET);
-  SET_DEBUG_FLAG ("MDEBUG_CODING", MDEBUG_CODING);
-  SET_DEBUG_FLAG ("MDEBUG_DATABASE", MDEBUG_DATABASE);
-  SET_DEBUG_FLAG ("MDEBUG_FONT", MDEBUG_FONT); 
-  SET_DEBUG_FLAG ("MDEBUG_FONT_FLT", MDEBUG_FONT_FLT);
-  SET_DEBUG_FLAG ("MDEBUG_FONT_OTF", MDEBUG_FONT_OTF);
-  SET_DEBUG_FLAG ("MDEBUG_INPUT", MDEBUG_INPUT);
-
-  MDEBUG_PUSH_TIME ();
-  MDEBUG_PUSH_TIME ();
-  if (msymbol__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize symbol module."));
-  if  (mplist__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize plist module."));
-  if (mtext__init () < 0)
-    goto err;
-  if (mtext__prop_init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize mtext module."));
-  if  (mchartable__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize chartable module."));
-
-  mdatabase__finder = NULL;
-  mdatabase__loader = NULL;
-
- err:
-  MDEBUG_POP_TIME ();
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize the core modules."));
-  MDEBUG_POP_TIME ();
-}
-
-void
-m17n_fini_core (void)
-{
-  int mdebug_mask = MDEBUG_FINI;
-
-  if (core_initialized > 1)
-    core_initialized--;
-  else
-    {
-      core_initialized = 0;
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize chartable module."));
-      mchartable__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize textprop module."));
-      mtext__prop_fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize mtext module."));
-      mtext__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize symbol module."));
-      msymbol__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize plist module."));
-      mplist__fini ();
-      MDEBUG_POP_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize the core modules."));
-      MDEBUG_POP_TIME ();
-    }
-  report_header_printed = 0;
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-/*=*/
-
-/***en
-    @addtogroup m17nObject
-    @brief Managed objects are objects managed by the reference count.
-
-    There are some types of m17n objects that are managed by their
-    reference count.  Those objects are called @e managed @e objects.
-    When created, the reference count of a managed object is
-    initialized to one.  The m17n_object_ref () function increments
-    the reference count of a managed object by one, and the
-    m17n_object_unref () function decrements by one.  A managed
-    object is automatically freed when its reference count becomes
-    zero.
-
-    A property whose key is a managing key can have only a managed
-    object as its value.  Such functions as msymbol_put () and
-    mplist_put () pay special attention to such a property.
-
-    In addition to the predefined managed object types, users can
-    define their own managed object types.  See the documentation of
-    the m17n_object () for more details.  */
-/***ja
-    @addtogroup m17nObject
-    @brief ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤È¤Ï»²¾È¿ô¤Ë¤è¤Ã¤Æ´ÉÍý¤µ¤ì¤Æ¤¤¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
-
-    m17n ¥ª¥Ö¥¸¥§¥¯¥È¤Î¤¢¤ë·¿¤Î¤â¤Î¤Ï¡¢»²¾È¿ô¤Ë¤è¤Ã¤Æ´ÉÍý¤µ¤ì¤Æ¤¤¤ë¡£
-    ¤½¤ì¤é¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ï @e ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È ¤È¸Æ¤Ð¤ì¤ë¡£À¸À®¤µ¤ì
-    ¤¿»þÅÀ¤Ç¤Î»²¾È¿ô¤Ï 0 ¤Ë½é´ü²½¤µ¤ì¤Æ¤¤¤ë¡£´Ø¿ô m17n_object_ref () 
-    ¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Î»²¾È¿ô¤ò 1 Áý¤ä¤·¡¢´Ø¿ôm17n_object_unref () 
-    ¤Ï 1 ¸º¤é¤¹¡£»²¾È¿ô¤¬ 0 ¤Ë¤Ê¤Ã¤¿´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ï¼«Æ°Åª¤Ë²òÊü¤µ
-    ¤ì¤ë¡£
-
-    ¥¡¼¤¬´ÉÍý¥¡¼¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤Ï¡¢ÃÍ¤È¤·¤Æ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤À¤±¤ò
-    ¼è¤ë¡£´Ø¿ô msymbol_put () ¤ä mplist_put () ¤Ê¤É¤Ï¤½¤ì¤é¤Î¥×¥í¥Ñ¥Æ¥£
-    ¤òÆÃÊÌ°·¤¤¤¹¤ë¡£
-
-    ÄêµÁºÑ¤ß´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¥¿¥¤¥×¤ÎÂ¾¤Ë¡¢¥æ¡¼¥¶¤ÏÉ¬Í×¤Ê´ÉÍý²¼¥ª¥Ö¥¸¥§
-    ¥¯¥È¥¿¥¤¥×¤ò¼«Ê¬¤ÇÄêµÁ¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£¾ÜºÙ¤Ïm17n_object () ¤ÎÀâ
-    ÌÀ¤ò»²¾È¡£  */
-
-/*** @{  */
-/*=*/
-/***en
-    @brief Allocate a managed object.
-
-    The m17n_object () function allocates a new managed object of
-    $SIZE bytes and sets its reference count to 1.  $FREER is the
-    function that is used to free the object when the reference count
-    becomes 0.  If $FREER is NULL, the object is freed by the free ()
-    function.
-
-    The heading bytes of the allocated object is occupied by
-    #M17NObjectHead.  That area is reserved for the m17n library and
-    application programs should never touch it.
-
-    @return
-    This function returns a newly allocated object.
-
-    @errors
-    This function never fails.  */
-
-/***ja
-    @brief ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤ò³ä¤êÅö¤Æ¤ë.
-
-    ´Ø¿ô m17n_object () ¤Ï$SIZE ¥Ð¥¤¥È¤Î¿·¤·¤¤´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤ò³ä¤ê
-    Åö¤Æ¡¢¤½¤Î»²¾È¿ô¤ò 1 ¤È¤¹¤ë¡£ $FREER ¤Ï»²¾È¿ô¤¬ 0 ¤Ë¤Ê¤Ã¤¿ºÝ¤Ë¤½¤Î
-    ¥ª¥Ö¥¸¥§¥¯¥È¤ò²òÊü¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë´Ø¿ô¤Ç¤¢¤ë¡£$FREER ¤¬ NULL¤Ê
-    ¤é¤Ð¡¢¥ª¥Ö¥¸¥§¥¯¥È¤Ï´Ø¿ô free () ¤Ë¤è¤Ã¤Æ²òÊü¤µ¤ì¤ë¡£
-
-    ³ä¤êÅö¤Æ¤é¤ì¤¿¥ª¥Ö¥¸¥§¥¯¥ÈËÁÆ¬¤Î¥Ð¥¤¥È¤Ï¡¢#M17NObjectHead ¤¬Àê¤á¤ë¡£ 
-    ¤³¤ÎÎÎ°è¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤¬»ÈÍÑ¤¹¤ë¤Î¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é
-    ¥à¤Ï¿¨¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¿·¤·¤¯³ä¤êÅö¤Æ¤é¤ì¤¿¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤¹¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï¼ºÇÔ¤·¤Ê¤¤¡£    */
-
-#if EXAMPLE_CODE
-typedef struct
-{
-  M17NObjectHead head;
-  int mem1;
-  char *mem2;
-} MYStruct;
-
-void
-my_freer (void *obj)
-{
-  free (((MYStruct *) obj)->mem2);
-  free (obj);
-}
-
-void
-my_func (MText *mt, MSymbol key, int num, char *str)
-{
-  MYStruct *st = m17n_object (sizeof (MYStruct), my_freer);
-
-  st->mem1 = num;
-  st->mem2 = strdup (str);
-  /* KEY must be a managing key.   */
-  mtext_put_prop (mt, 0, mtext_len (mt), key, st);
-  /* This sets the reference count of ST back to 1.  */
-  m17n_object_unref (st);
-}
-#endif
-
-void *
-m17n_object (int size, void (*freer) (void *))
-{
-  M17NObject *obj = malloc (size);
-
-  obj->ref_count = 1;
-  obj->u.freer = freer;
-  return obj;
-}
-
-/*=*/
-
-/***en
-    @brief Increment the reference count of a managed object.
-
-    The m17n_object_ref () function increments the reference count of
-    the managed object pointed to by $OBJECT.
-
-    @return
-    This function returns the resulting reference count if it fits in
-    a 16-bit unsigned integer (i.e. less than 0x10000).  Otherwise, it
-    return -1.
-
-    @errors
-    This function never fails.  */
-/***ja
-    @brief ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Î»²¾È¿ô¤ò 1 Áý¤ä¤¹.
-
-    ´Ø¿ô m17n_object_ref () ¤Ï $OBJECT ¤Ç»Ø¤µ¤ì¤ë´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Î
-    »²¾È¿ô¤ò 1 Áý¤ä¤¹¡£
-
-    @return 
-    ¤³¤Î´Ø¿ô¤Ï¡¢Áý¤ä¤·¤¿»²¾È¿ô¤¬ 16 ¥Ó¥Ã¥È¤ÎÉä¹æÌµ¤·À°¿ôÃÍ(¤¹¤Ê¤ï¤Á 
-    0x10000 Ì¤Ëþ)¤Ë¤ª¤µ¤Þ¤ì¤Ð¡¢¤½¤ì¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï¼ºÇÔ¤·¤Ê¤¤¡£    */
-
-int
-m17n_object_ref (void *object)
-{
-  M17NObject *obj = (M17NObject *) object;
-  M17NObjectRecord *record;
-  unsigned *count;
-
-  if (! obj->ref_count_extended)
-    {
-      if (++obj->ref_count)
-	return (int) obj->ref_count;
-      MSTRUCT_MALLOC (record, MERROR_OBJECT);
-      record->freer = obj->u.freer;
-      MLIST_INIT1 (record, counts, 1);
-      MLIST_APPEND1 (record, counts, 0, MERROR_OBJECT);
-      obj->u.record = record;
-      obj->ref_count_extended = 1;
-    }
-  else
-    record = obj->u.record;
-
-  count = record->counts;
-  while (*count == 0xFFFFFFFF)
-    *(count++) = 0;
-  (*count)++;
-  if (*count == 0xFFFFFFFF)
-    MLIST_APPEND1 (record, counts, 0, MERROR_OBJECT);
-  return -1;
-}
-
-/*=*/
-
-/***en
-    @brief Decrement the reference count of a managed object.
-
-    The m17n_object_unref () function decrements the reference count
-    of the managed object pointed to by $OBJECT.  When the reference
-    count becomes zero, the object is freed by its freer function.
-
-    @return
-    This function returns the resulting reference count if it fits in
-    a 16-bit unsigned integer (i.e. less than 0x10000).  Otherwise, it
-    returns -1.  Thus, the return value zero means that $OBJECT is
-    freed.
-
-    @errors
-    This function never fails.  */
-/***ja
-    @brief ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Î»²¾È¿ô¤ò 1 ¸º¤é¤¹.
-
-    ´Ø¿ô m17n_object_unref () ¤Ï $OBJECT ¤Ç»Ø¤µ¤ì¤ë´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È
-    ¤Î»²¾È¿ô¤ò 1 ¸º¤é¤¹¡£»²¾È¿ô¤¬ 0 ¤Ë¤Ê¤ì¤Ð¡¢¥ª¥Ö¥¸¥§¥¯¥È¤Ï²òÊü´Ø¿ô¤Ë
-    ¤è¤Ã¤Æ²òÊü¤µ¤ì¤ë¡£
-
-    @return 
-    ¤³¤Î´Ø¿ô¤Ï¡¢¸º¤é¤·¤¿»²¾È¿ô¤¬ 16 ¥Ó¥Ã¥È¤ÎÉä¹æÌµ¤·À°¿ôÃÍ(¤¹¤Ê¤ï¤Á 
-    0x10000 Ì¤Ëþ)¤Ë¤ª¤µ¤Þ¤ì¤Ð¡¢¤½¤ì¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-    ¤Ä¤Þ¤ê¡¢0 ¤¬ÊÖ¤Ã¤ÆÍè¤¿¾ì¹ç¤Ï$OBJECT ¤Ï²òÊü¤µ¤ì¤Æ¤¤¤ë¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï¼ºÇÔ¤·¤Ê¤¤¡£    */
-int
-m17n_object_unref (void *object)
-{
-  M17NObject *obj = (M17NObject *) object;
-  M17NObjectRecord *record;
-  unsigned *count;
-
-  if (! obj->ref_count_extended)
-    {
-      if (! --obj->ref_count)
-	{
-	  if (obj->u.freer)
-	    (obj->u.freer) (object);
-	  else
-	    free (object);
-	  return 0;
-	}
-      return (int) obj->ref_count;
-    }
-
-  record = obj->u.record;
-  count = record->counts;
-  while (! *count)
-    *(count++) = 0xFFFFFFFF;
-  (*count)--;
-  if (! record->counts[0])
-    {
-      obj->ref_count_extended = 0;
-      obj->ref_count--;
-      obj->u.freer = record->freer;
-      MLIST_FREE1 (record, counts);
-      free (record);
-    }
-  return -1;
-}
-
-/*=*/
-
-/*** @} */
-
-/***en
-    @addtogroup m17nError Error handling
-    @brief Error handling of the m17n library.
-
-    There are two types of errors that may happen in a function of
-    the m17n library.
-
-    The first type is argument errors.  When a library function is
-    called with invalid arguments, it returns a value that indicates
-    error and at the same time sets the external variable #merror_code
-    to a non-zero integer.
-
-    The second type is memory allocation errors.  When the required
-    amount of memory is not available on the system, m17n library
-    functions call a function pointed to by the external variable @c
-    m17n_memory_full_handler.  The default value of the variable is a
-    pointer to the default_error_handle () function, which just calls
-     exit ().  */
-
-/***ja
-    @addtogroup m17nError ¥¨¥é¡¼½èÍý
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¤Î¥¨¥é¡¼½èÍý.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Î´Ø¿ô¤Ç¤Ï¡¢£²¤Ä¤Î¼ïÎà¤Î¥¨¥é¡¼¤¬µ¯¤³¤êÆÀ¤ë¡£
-
-    °ì¤Ä¤Ï°ú¿ô¤Î¥¨¥é¡¼¤Ç¤¢¤ë¡£¥é¥¤¥Ö¥é¥ê¤Î´Ø¿ô¤¬ÂÅÅö¤Ç¤Ê¤¤°ú¿ô¤È¤È¤â¤Ë
-    ¸Æ¤Ð¤ì¤¿¾ì¹ç¡¢¤½¤Î´Ø¿ô¤Ï¥¨¥é¡¼¤ò°ÕÌ£¤¹¤ëÃÍ¤òÊÖ¤·¡¢Æ±»þ¤Ë³°ÉôÊÑ¿ô 
-    #merror_code ¤Ë¥¼¥í¤Ç¤Ê¤¤À°¿ô¤ò¥»¥Ã¥È¤¹¤ë¡£
-
-    ¤â¤¦°ì¤Ä¤Î¼ïÎà¤Ï¥á¥â¥ê³äÅö¤Æ¥¨¥é¡¼¤Ç¤¢¤ë¡£¥·¥¹¥Æ¥à¤¬É¬Í×¤ÊÎÌ¤Î¥á¥â
-    ¥ê¤ò³äÅö¤Æ¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¾ì¹ç¡¢¥é¥¤¥Ö¥é¥ê´Ø¿ô¤Ï³°ÉôÊÑ¿ô @c
-    m17n_memory_full_handler ¤¬»Ø¤¹´Ø¿ô¤ò¸Æ¤Ö¡£¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢´Ø¿ô 
-    default_error_handle () ¤ò»Ø¤·¤Æ¤ª¤ê¡¢¤³¤Î´Ø¿ô¤ÏÃ±¤Ë exit
-    () ¤ò¸Æ¤Ö¡£
-*/
-
-/*** @{ */
-
-/*=*/
-
-/***en 
-    @brief External variable to hold error code of the m17n library.
-
-    The external variable #merror_code holds an error code of the
-    m17n library.  When a library function is called with an invalid
-    argument, it sets this variable to one of @c enum #MErrorCode.
-
-    This variable initially has the value 0.  */
-
-/***ja 
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¤Î¥¨¥é¡¼¥³¡¼¥É¤òÊÝ»ý¤¹¤ë³°ÉôÊÑ¿ô.
-
-    ³°ÉôÊÑ¿ô #merror_code ¤Ï¡¢m17n ¥é¥¤¥Ö¥é¥ê¤Î¥¨¥é¡¼¥³¡¼¥É¤òÊÝ»ý¤¹¤ë¡£
-    ¥é¥¤¥Ö¥é¥ê´Ø¿ô¤¬ÂÅÅö¤Ç¤Ê¤¤°ú¿ô¤È¤È¤â¤Ë¸Æ¤Ð¤ì¤¿ºÝ¤Ë¤Ï¡¢¤³¤ÎÊÑ¿ô¤ò 
-    @c enum #MErrorCode ¤Î°ì¤Ä¤Ë¥»¥Ã¥È¤¹¤ë¡£
-
-    ¤³¤ÎÊÑ¿ô¤Î½é´üÃÍ¤Ï 0 ¤Ç¤¢¤ë¡£  */
-
-enum MErrorCode merror_code;
-
-/*=*/
-
-/***en 
-    @brief Memory allocation error handler.
-
-    The external variable #m17n_memory_full_handler holds a pointer
-    to the function to call when a library function failed to allocate
-    memory.  $ERR is one of @c enum #MErrorCode indicating in which
-    function the error occurred.
-
-    This variable initially points a function that simply calls the
-    exit () function with $ERR as an argument.
-
-    An application program that needs a different error handling can
-    change this variable to point a proper function.  */
-
-/***ja 
-    @brief ¥á¥â¥ê³äÅö¤Æ¥¨¥é¡¼¥Ï¥ó¥É¥é.
-
-    ÊÑ¿ô #m17n_memory_full_handler ¤Ï¡¢¥é¥¤¥Ö¥é¥ê´Ø¿ô¤¬¥á¥â¥ê³äÅö¤Æ
-    ¤Ë¼ºÇÔ¤·¤¿ºÝ¤Ë¸Æ¤Ö¤Ù¤´Ø¿ô¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£$ERR ¤Ï @c enum
-    #MErrorCode ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ê¡¢¤É¤Î¥é¥¤¥Ö¥é¥ê´Ø¿ô¤Ç¥¨¥é¡¼¤¬µ¯¤Ã¤¿
-    ¤«¤ò¼¨¤¹¡£
-
-    @anchor test
-
-    ½é´üÀßÄê¤Ç¤Ï¡¢¤³¤ÎÊÑ¿ô¤ÏÃ±¤Ë exit () ¤ò $ERR ¤ò°ú¿ô¤È¤·¤Æ
-    ¸Æ¤Ö´Ø¿ô¤ò»Ø¤·¤Æ¤¤¤ë¡£
-
-    ¤³¤ì¤È¤Ï°Û¤Ê¤ë¥¨¥é¡¼½èÍý¤òÉ¬Í×¤È¤¹¤ë¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Ï¡¢¤³¤ÎÊÑ¿ô¤ò
-    Å¬Åö¤Ê´Ø¿ô¤ËÀßÄê¤¹¤ë¤³¤È¤Ç¡¢ÌÜÅª¤òÃ£À®¤Ç¤¤ë¡£  */
-
-void (*m17n_memory_full_handler) (enum MErrorCode err);
-
-/*** @} */
-
-/*=*/
-
-/***en
-    @addtogroup m17nDebug
-    @brief Support for m17n library users to debug their programs.
-
-    The m17n library provides the following facilities to support the
-    library users to debug their programs.
-
-    
-
-     Environment variables to control printing of various
-    information.
-
-    
-
-     MDEBUG_INIT -- If set to 1, print information about the
-    library initialization on the call of M17N_INIT ().
-
-    
 MDEBUG_FINI -- If set to 1, print counts of objects that are
-    not yet freed on the call of M17N_FINI ().
-
-    
 MDEBUG_CHARSET -- If set to 1, print information about
-    charsets being loaded from the m17n database.
-
-    
 MDEBUG_CODING -- If set to 1, print information about coding
-    systems being loaded from the m17n database.
-
-    
 MDEBUG_DATABASE -- If set to 1, print information about
-    data being loaded from the m17n database.
-
-    
 MDEBUG_FONT -- If set to 1, print information about fonts
-    being selected and opened.
-
-    
 MDEBUG_FONT_FLT -- If set to 1, print information about which
-    command of Font Layout Table are being executed.
-
-    
 MDEBUG_FONT_OTF -- If set to 1, print information about which
-    feature of OpenType Layout Table are being executed.
-
-    
 MDEBUG_INPUT -- If set to 1, print information about how an
-    input method is running.
-
-    
 MDEBUG_ALL -- Setting this variable to 1 is equivalent to
-    setting all the above variables to 1.
-
-    
-
-    
 Functions to print various objects in a human readable way.
-    See the documentation of mdebug_dump_XXXX () functions.
-
-    
 The hook function called on an error.  See the documentation
-    of mdebug_hook ().
-
-    
-*/
-/***ja
-    @addtogroup m17nDebug
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¥æ¡¼¥¶¤Î¤¿¤á¤Î¥×¥í¥°¥é¥à¥Ç¥Ð¥Ã¥°¥µ¥Ý¡¼¥È.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢¤½¤Î¥æ¡¼¥¶¤¬¼«Ê¬¤Î¥×¥í¥°¥é¥à¤ò¥Ç¥Ð¥Ã¥°¤¹¤ë¤¿¤á
-    ¤Ë¡¢°Ê²¼¤Îµ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¡£
-
-    
-
-     ¤µ¤Þ¤¶¤Þ¤Ê¾ðÊó¤Î¥×¥ê¥ó¥È¤òÀ©¸æ¤¹¤ë´Ä¶ÊÑ¿ô¡£
-
-    
-
-     MDEBUG_INIT -- 1 ¤Ê¤é¤Ð¡¢M17N_INIT () ¤¬¸Æ¤Ð¤ì¤¿»þÅÀ¤Ç¡¢¥é¥¤
-    ¥Ö¥é¥ê¤Î½é´ü²½¤Ë´Ø¤¹¤ë¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_FINI -- 1 ¤Ê¤é¤Ð¡¢M17N_FINI () ¤¬¸Æ¤Ð¤ì¤¿»þÅÀ¤Ç¡¢¤Þ¤À
-    ²òÊü¤µ¤ì¤Æ¤¤¤Ê¤¤¥ª¥Ö¥¸¥§¥¯¥È¤Î»²¾È¿ô¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_CHARSET -- 1 ¤Ê¤é¤Ð¡¢m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤«¤é¥í¡¼¥É¤µ¤ì¤¿
-    Ê¸»ú¥»¥Ã¥È¤Ë¤Ä¤¤¤Æ¤Î¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_CODING --  1 ¤Ê¤é¤Ð¡¢m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤«¤é¥í¡¼¥É¤µ¤ì¤¿
-    ¥³¡¼¥É·Ï¤Ë¤Ä¤¤¤Æ¤Î¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_DATABASE -- 1 ¤Ê¤é¤Ð¡¢m17n ¥Ç¡¼¥¿¥Ù¡¼¥¹¤«¤é¥í¡¼¥É¤µ¤ì
-    ¤¿¥Ç¡¼¥¿¤Ë¤Ä¤¤¤Æ¤Î¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_FONT -- 1 ¤Ê¤é¤Ð¡¢ÁªÂò¤µ¤ì¤Æ¥ª¡¼¥×¥ó¤µ¤ì¤¿¥Õ¥©¥ó¥È¤Ë¤Ä
-    ¤¤¤Æ¤Î¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_FONT_FLT -- 1 ¤Ê¤é¤Ð¡¢Font Layout Table ¤Î¤É¤Î¥³¥Þ¥ó¥É
-    ¤¬¼Â¹ÔÃæ¤«¤Ë¤Ä¤¤¤Æ¤Î¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_FONT_OTF -- 1 ¤Ê¤é¤Ð¡¢OpenType Layout Table ¤Î¤É¤ÎÂ°À
-    ¤¬¼Â¹ÔÃæ¤«¤Ë¤Ä¤¤¤Æ¤Î¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_INPUT -- 1 ¤Ê¤é¤Ð¡¢¼Â¹ÔÃæ¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Î¾õÂÖ¤ËÉÕ¤¤¤Æ
-    ¤Î¾ðÊó¤ò¥×¥ê¥ó¥È¤¹¤ë¡£
-
-    
 MDEBUG_ALL -- 1 ¤Ê¤é¤Ð¡¢¾åµ¤¹¤Ù¤Æ¤ÎÊÑ¿ô¤ò 1 ¤Ë¤·¤¿¤Î¤ÈÆ±¤¸¸ú
-    ²Ì¤ò»ý¤Ä¡£
-
-    
-
-    
 ¼ï¡¹¤Î¥ª¥Ö¥¸¥§¥¯¥È¤ò¿Í´Ö¤Ë²ÄÆÉ¤Ê·Á¤Ç¥×¥ê¥ó¥È¤¹¤ë´Ø¿ô¡£¾ÜºÙ¤Ï
-    ´Ø¿ô mdebug_dump_XXXX () ¤ÎÀâÌÀ»²¾È¡£
-
-    
 ¥¨¥é¡¼È¯À¸»þ¤Ë¸Æ¤Ð¤ì¤ë¥Õ¥Ã¥¯´Ø¿ô¡£mdebug_hook () ¤ÎÀâÌÀ»²¾È¡£
-
-    
-*/
-
-/*=*/
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Hook function called on an error.
-
-    The mdebug_hook () function is called when an error happens.  It
-    returns -1 without doing anything.  It is useful to set a break
-    point on this function in a debugger.  */ 
-/***ja
-    @brief ¥¨¥é¡¼¤ÎºÝ¤Ë¸Æ¤Ð¤ì¤ë¥Õ¥Ã¥¯´Ø¿ô.
-
-    ´Ø¿ô mdebug_hook () ¤Ï¥¨¥é¡¼¤¬µ¯¤³¤Ã¤¿ºÝ¤Ë¸Æ¤Ð¤ì¡¢²¿¤â¤»¤º¤Ë-1 ¤ò
-    ÊÖ¤¹¡£¥Ç¥Ð¥Ã¥¬Æâ¤Ç¥Ö¥ì¡¼¥¯¥Ý¥¤¥ó¥È¤òÀßÄê¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤ë¤³¤È¤¬¤Ç¤
-    ¤ë¡£
-    */ 
-
-int
-mdebug_hook ()
-{
-  return -1;
-}
-
-/*=*/
-
-/*** @} */ 
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-core.h b/src/m17n-core.h
deleted file mode 100644
index 2245fca..0000000
--- a/src/m17n-core.h
+++ /dev/null
@@ -1,591 +0,0 @@
-/* m17n-core.h -- header file for the CORE API of the m17n library.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_CORE_H_
-#define _M17N_CORE_H_
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-/*
- * Header file for m17n library.
- */
-
-/* (C1) Introduction */
-
-/***en @defgroup m17nIntro Introduction  */
-/***ja @defgroup m17nIntro ¤Ï¤¸¤á¤Ë  */
-/*=*/
-
-#define M17NLIB_MAJOR_VERSION 1
-#define M17NLIB_MINOR_VERSION 1
-#define M17NLIB_PATCH_LEVEL 0
-#define M17NLIB_VERSION_NAME "1.1.0"
-
-extern void m17n_init_core (void);
-#define M17N_INIT() m17n_init_core ()
-extern void m17n_fini_core (void);
-#define M17N_FINI() m17n_fini_core ()
-
-/***en @defgroup m17nCore CORE API  */
-/***ja @defgroup m17nCore ¥³¥¢ API */
-/*=*/
-/*** @ingroup m17nCore */
-/***en @defgroup m17nObject Managed Object */
-/***ja @defgroup m17nObject ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È */
-/*=*/
-
-/*** @ingroup m17nObject  */
-/***en
-    @brief The first member of a managed object.
-
-    When an application program defines a new structure for managed
-    objects, its first member must be of the type @c struct
-    #M17NObjectHead.  Its contents are used by the m17n library, and
-    application programs should never touch them.  */
-/***ja
-    @brief ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤ÎºÇ½é¤Î¥á¥ó¥Ð.
-
-    ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤¬¿·¤·¤¤¹½Â¤ÂÎ¤ò´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤È¤·¤Æ
-     ÄêµÁ¤¹¤ëºÝ¤Ë¤Ï¡¢ºÇ½é¤Î¥á¥ó¥Ð¤Ï @c #M17NObjectHead ¹½Â¤ÂÎ·¿¤Ç¤Ê¤¯
-     ¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£@c #M17NObjectHead ¤ÎÆâÍÆ¤Ï m17n ¥é¥¤¥Ö¥é¥ê¤¬»ÈÍÑ¤¹
-     ¤ë¤Î¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¿¨¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-     */
-
-typedef struct
-{
-  void *filler[2];
-} M17NObjectHead;
-
-/*=*/
-
-/* Return a newly allocated managed object.  */
-extern void *m17n_object_setup (int size, void (*freer) (void *));
-
-/* Increment the reference count of managed object OBJECT.  */
-extern int m17n_object_ref (void *object);
-
-/* Decrement the reference count of managed object OBJECT.  */
-extern int m17n_object_unref (void *object);
-
-/*=*/
-
-/* (C2) Symbol handling */
-
-/*** @ingroup m17nCore */
-/***en @defgroup m17nSymbol Symbol  */
-/***ja @defgroup m17nSymbol ¥·¥ó¥Ü¥ë */
-/*=*/
-
-/***
-    @ingroup m17nSymbol */
-/***en
-    @brief Type of symbols.
-
-    The type #MSymbol is for a @e symbol object.  Its internal
-    structure is concealed from application programs.  */
-
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¤Î·¿Àë¸À.
-
-    #MSymbol ¤Ï¥·¥ó¥Ü¥ë¥ª¥Ö¥¸¥§¥¯¥È¤Î·¿¤Ç¤¢¤ë¡£ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç
-    ¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-typedef struct MSymbolStruct *MSymbol;
-
-/*=*/
-
-/* Predefined symbols. */ 
-extern MSymbol Mnil;
-extern MSymbol Mt;
-extern MSymbol Mstring;
-extern MSymbol Msymbol;
-extern MSymbol Mtext;
-
-/* Return a symbol of name NAME.  */
-extern MSymbol msymbol (const char *name);
-
-/* Return a managing key of name NAME.  */
-extern MSymbol msymbol_as_managing_key (const char *name);
-
-/* Return a symbol of name NAME if it already exists.  */
-extern MSymbol msymbol_exist (const char *name);
-
-/* Return the name of SYMBOL.  */
-extern char *msymbol_name (MSymbol symbol);
-
-/* Give SYMBOL KEY property with value VALUE.  */
-extern int msymbol_put (MSymbol symbol, MSymbol key, void *val);
-
-/*** Return KEY property value of SYMBOL.  */
-extern void *msymbol_get (MSymbol symbol, MSymbol key);
-
-/* 
- *  (2-1) Property List
- */
-/*=*/
-/*** @ingroup m17nCore */
-/***en @defgroup m17nPlist Property List */
-/***ja @defgroup m17nPlist ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È */
-/*=*/
-
-/***
-    @ingroup m17nPlist */ 
-/***en
-    @brief Type of property list objects.
-
-    The type #MPlist is for a @e property @e list object.  Its internal
-    structure is concealed from application programs.  */
-
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¡¦¥ª¥Ö¥¸¥§¥¯¥È¤Î·¿Àë¸À.
-
-    #MPlist ¤Ï @e ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È (Property list) ¥ª¥Ö¥¸¥§¥¯¥È¤Î·¿¤Ç¤¢¤ë¡£
-    ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-typedef struct MPlist MPlist;
-
-/*=*/
-
-extern MSymbol Mplist, Minteger;
-
-extern MPlist *mplist ();
-
-extern MPlist *mplist_copy (MPlist *plist);
-
-extern MPlist *mplist_add (MPlist *plist, MSymbol key, void *val);
-
-extern MPlist *mplist_push (MPlist *plist, MSymbol key, void *val);
-
-extern void *mplist_pop (MPlist *plist);
-
-extern MPlist *mplist_put (MPlist *plist, MSymbol key, void *val);
-
-extern void *mplist_get (MPlist *plist, MSymbol key);
-
-extern MPlist *mplist_find_by_key (MPlist *plist, MSymbol key);
-
-extern MPlist *mplist_find_by_value (MPlist *plist, void *val);
-
-extern MPlist *mplist_next (MPlist *plist);
-
-extern MPlist *mplist_set (MPlist *plist, MSymbol key, void *val);
-
-extern int mplist_length (MPlist *plist);
-
-extern MSymbol mplist_key (MPlist *plist);
-
-extern void *mplist_value (MPlist *plist);
-
-/* (S1) Characters */
-
-/*=*/
-/*** @ingroup m17nCore */
-/***en @defgroup m17nCharacter Character */
-/***ja @defgroup m17nCharacter Ê¸»ú */
-/*=*/
-
-#define MCHAR_MAX 0x3FFFFF
-/*#define MCHAR_MAX 0x7FFFFFFF*/
-
-extern MSymbol Mscript;
-extern MSymbol Mname;
-extern MSymbol Mcategory;
-extern MSymbol Mcombining_class;
-extern MSymbol Mbidi_category;
-extern MSymbol Msimple_case_folding;
-extern MSymbol Mcomplicated_case_folding;
-
-extern MSymbol mchar_define_property (const char *name, MSymbol type);
-
-extern void *mchar_get_prop (int c, MSymbol key);
-
-extern int mchar_put_prop (int c, MSymbol key, void *val);
-
-/* (C3) Handling chartable */
-
-/*** @ingroup m17nCore */
-/***en @defgroup m17nChartable Chartable */
-/***ja @defgroup m17nChartable Ê¸»ú¥Æ¡¼¥Ö¥ë */
-/*=*/
-extern MSymbol Mchar_table;
-
-/***
-    @ingroup m17nChartable */
-/***en
-    @brief Type of chartables.
-
-    The type #MCharTable is for a @e chartable objects.  Its
-    internal structure is concealed from application programs.  */
-
-/***ja
-    @brief Ê¸»ú¥Æ¡¼¥Ö¥ë¤Î·¿Àë¸À.
-
-    #MCharTable ¤Ï @e Ê¸»ú¥Æ¡¼¥Ö¥ë (chartable) ¥ª¥Ö¥¸¥§¥¯¥È¤Î·¿¤Ç¤¢¤ë¡£
-    ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-typedef struct MCharTable MCharTable;
-/*=*/
-
-extern MCharTable *mchartable (MSymbol key, void *default_value);
-
-extern void *mchartable_lookup (MCharTable *table, int c);
-
-extern int mchartable_set (MCharTable *table, int c, void *val);
-
-extern int mchartable_set_range (MCharTable *table, int from, int to,
-				 void *val);
-
-extern int mchartable_map (MCharTable *table, void *ignore,
-			   void (*func) (int from, int to,
-					 void *val, void *arg), 
-			   void *func_arg);
-
-extern void mchartable_range (MCharTable *table, int *from, int *to);
-
-/*
- *  (5) Handling M-text.
- *	"M" of M-text stands for:
- *	o Multilingual
- *	o Metamorphic
- *	o More than string
- */
-
-/*** @ingroup m17nCore */
-/***en @defgroup m17nMtext M-text */
-/***ja @defgroup m17nMtext M-text */
-/*=*/
-
-/*
- * (5-1) M-text basics
- */
-/*=*/
-/*** @ingroup m17nMtext */
-/***en
-    @brief Type of @e M-texts.
-
-    The type #MText is for an @e M-text object.  Its internal
-    structure is concealed from application programs.  */
-
-/***ja
-    @brief @e MText ¤Î·¿Àë¸À.
-
-    #Mtext ¤Ï @e M-text ¥ª¥Ö¥¸¥§¥¯¥È¤Î·¿¤Ç¤¢¤ë¡£
-    ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£ 
-
-    @latexonly \IPAlabel{MText} @endlatexonly
-    @latexonly \IPAlabel{MText->MPlist} @endlatexonly  */
-
-typedef struct MText MText;
-
-/*=*/
-
-extern MText *mtext ();
-
-/*=*/
-
-/***en
-    @brief Enumeration for specifying the format of an M-text.
-
-    The enum #MTextFormat is used as an argument of the
-    mtext_from_data () function to specify the format of data from
-    which an M-text is created.  */
-
-/***ja
-    @brief M-text ¤Î¥Õ¥©¡¼¥Þ¥Ã¥È¤ò»ØÄê¤¹¤ëÎóµó·¿.
-
-    Îóµó·¿ #MTextFormat ¤Ï
-    ´Ø¿ô mtext_from_data () ¤Î°ú¿ô¤È¤·¤ÆÍÑ¤¤¤é¤ì¡¢
-    M-text ¤òÀ¸À®¤¹¤ë¸µ¤È¤Ê¤ë¥Ç¡¼¥¿¤Î¥Õ¥©¡¼¥Þ¥Ã¥È¤ò»ØÄê¤¹¤ë¡£  */
-
-enum MTextFormat
-  {
-    MTEXT_FORMAT_US_ASCII,
-    MTEXT_FORMAT_UTF_8,
-    MTEXT_FORMAT_UTF_16LE,
-    MTEXT_FORMAT_UTF_16BE,
-    MTEXT_FORMAT_UTF_32LE,
-    MTEXT_FORMAT_UTF_32BE,
-    MTEXT_FORMAT_MAX
-  };
-/*=*/
-
-extern MText *mtext_from_data (const void *data, int nitems,
-			       enum MTextFormat format);
-
-
-/*=*/
-
-/*
- *  (5-2) Functions to manipulate M-texts.  They correspond to string
- *   manipulating functions in libc.
- *   In the following functions, mtext_XXX() corresponds to strXXX().
- */
-
-extern int mtext_len (MText *mt);
-
-extern int mtext_ref_char (MText *mt, int pos);
-
-extern int mtext_set_char (MText *mt, int pos, int c);
-
-extern MText *mtext_copy (MText *mt1, int pos, MText *mt2, int from, int to);
-
-extern int mtext_compare (MText *mt1, int from1, int to1,
-			  MText *mt2, int from2, int to2);
-
-extern int mtext_case_compare (MText *mt1, int from1, int to1,
-			       MText *mt2, int from2, int to2);
-
-extern int mtext_character (MText *mt, int from, int to, int c);
-
-extern int mtext_del (MText *mt, int from, int to);
-
-extern int mtext_ins (MText *mt1, int pos, MText *mt2);
-
-extern int mtext_ins_char (MText *mt, int pos, int c, int n);
-
-extern MText *mtext_cat_char (MText *mt, int c);
-
-extern MText *mtext_duplicate (MText *mt, int from, int to);
-
-extern MText *mtext_dup (MText *mt);
-
-extern MText *mtext_cat (MText *mt1, MText *mt2);
-
-extern MText *mtext_ncat (MText *mt1, MText *mt2, int n);
-
-extern MText *mtext_cpy (MText *mt1, MText *mt2);
-
-extern MText *mtext_ncpy (MText *mt1, MText *mt2, int n);
-
-extern int mtext_chr (MText *mt, int c);
-
-extern int mtext_rchr (MText *mt, int c);
-
-extern int mtext_cmp (MText *mt1, MText *mt2);
-
-extern int mtext_ncmp (MText *mt1, MText *mt2, int n);
-
-extern int mtext_spn (MText *mt1, MText *mt2);
-
-extern int mtext_cspn (MText *mt1, MText *mt2);
-
-extern int mtext_pbrk (MText *mt1, MText *mt2);
-
-extern int mtext_text (MText *mt1, int pos, MText *mt2);
-
-extern int mtext_search (MText *mt1, int from, int to, MText *mt2);
-
-extern MText *mtext_tok (MText *mt, MText *delim, int *pos);
-
-extern int mtext_casecmp (MText *mt1, MText *mt2);
-
-extern int mtext_ncasecmp (MText *mt1, MText *mt2, int n);
-
-/*** @ingroup m17nPlist */
-extern MPlist *mplist_deserialize (MText *mt);
-
-/*
- * (5-3) Text properties
- */
-/*=*/
-/*** @ingroup m17nCore */
-/***en @defgroup m17nTextProperty Text Property */
-/***ja @defgroup m17nTextProperty ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ */
-/*=*/
-/*** @ingroup m17nTextProperty */
-/***en
-    @brief Flag bits to control text property.
-
-    The mtext_property () funciton accepts logical OR of these flag
-    bits as an argument.  They control the behaviour of the created
-    text property as described in the documentation of each flag
-    bit.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÀ©¸æ¤¹¤ë¥Õ¥é¥°¥Ó¥Ã¥È.
-
-    ´Ø¿ô mtext_property () ¤Ï°Ê²¼¤Î¥Õ¥é¥°¥Ó¥Ã¥È¤ÎÏÀÍý OR ¤ò°ú¿ô¤È¤·¤Æ
-    ¤È¤ë¤³¤È¤¬¤Ç¤¤ë¡£¥Õ¥é¥°¥Ó¥Ã¥È¤ÏÀ¸À®¤µ¤ì¤¿¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¿¶Éñ
-    ¤¤¤òÀ©¸æ¤¹¤ë¡£¾ÜºÙ¤Ï³Æ¥Õ¥é¥°¥Ó¥Ã¥È¤ÎÀâÌÀ¤ò»²¾È¡£*/
-
-enum MTextPropertyControl
-  {
-    /***en If this flag bit is on, an M-text inserted at the start
-	position or at the middle of the text property inherits the
-	text property.  */
-    /***ja ¤³¤Î¥Ó¥Ã¥È¤¬ on ¤Ê¤é¤Ð¡¢¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î»Ï¤Þ¤ëÅÀ¤¢
-	¤ë¤¤¤ÏÃæ´Ö¤ËÁÞÆþ¤µ¤ì¤¿ M-text ¤Ï¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò·Ñ¾µ¤¹¤ë¡£
-	*/
-    MTEXTPROP_FRONT_STICKY = 0x01,
-
-    /***en If this flag bit is on, an M-text inserted at the end
-	position or at the middle of the text property inherits the
-	text property.  */
-    /***ja ¤³¤Î¥Ó¥Ã¥È¤¬ on ¤Ê¤é¤Ð¡¢¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î½ª¤ï¤ëÅÀ¤¢
-	¤ë¤¤¤ÏÃæ´Ö¤ËÁÞÆþ¤µ¤ì¤¿ M-text ¤Ï¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò·Ñ¾µ¤¹¤ë¡£
-	*/
-    MTEXTPROP_REAR_STICKY = 0x02,
-
-    /***en If this flag bit is on, the text property is removed if a
-	text in its region is modified.  */
-    /***ja ¤³¤Î¥Ó¥Ã¥È¤¬ on ¤Ê¤é¤Ð¡¢¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÈÏ°ÏÆâ¤Î
-	¥Æ¥¥¹¥È¤¬ÊÑ¹¹¤µ¤ì¤¿¾ì¹ç¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¼è¤ê½ü¤«¤ì¤ë¡£  */
-    MTEXTPROP_VOLATILE_WEAK = 0x04,
-
-    /***en If this flag bit is on, the text property is removed if a
-	text or the other text property in its region is modified.  */
-    /***ja ¤³¤Î¥Ó¥Ã¥È¤¬ on ¤Ê¤é¤Ð¡¢¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÈÏ°ÏÆâ¤Î
-	¥Æ¥¥¹¥È¤¢¤ë¤¤¤ÏÊÌ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬ÊÑ¹¹¤µ¤ì¤¿¾ì¹ç¤³¤Î¥Æ¥
-	¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¼è¤ê½ü¤«¤ì¤ë¡£*/
-    MTEXTPROP_VOLATILE_STRONG = 0x08,
-
-    /***en If this flag bit is on, the text property is not
-	automatically merged with the others.  */
-    /***ja ¤³¤Î¥Ó¥Ã¥È¤¬ on ¤Ê¤é¤Ð¡¢¤³¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÏÂ¾¤Î¥×¥í¥Ñ
-	¥Æ¥£¤È¼«Æ°Åª¤Ë¤Ï¥Þ¡¼¥¸¤µ¤ì¤Ê¤¤¡£ */
-    MTEXTPROP_NO_MERGE = 0x10,
-
-    MTEXTPROP_CONTROL_MAX = 0x1F
-  };
-
-/*=*/
-extern MSymbol Mtext_prop_serializer;
-extern MSymbol Mtext_prop_deserializer;
-
-
-/*** @ingroup m17nTextProperty */
-/***en
-    @brief Type of serializer functions.
-
-    This is the type of serializer functions.  If the key of a symbol
-    property is #Msymbol_prop_serializer, the value must be of this
-    type.
-
-    @seealso Mtext_prop_serialize (), Mtext_prop_serializer
-*/
-/***ja
-    @brief ¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤Î·¿Àë¸À.
-
-    ¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤Î·¿¤Ç¤¢¤ë¡£ ¤¢¤ë¥·¥ó¥Ü¥ë¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤¬ @c
-    #Msymbol_prop_serializer ¤Ç¤¢¤ë¤È¤¡¢ ÃÍ¤Ï¤³¤Î·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    @seealso Mtext_prop_serialize (), Mtext_prop_serializer
-*/
-
-typedef MPlist *(*MTextPropSerializeFunc) (void *val);
-
-/*** @ingroup m17nTextProperty */
-/***en
-    @brief Type of deserializer functions.
-
-    This is the type of deserializer functions.  If the key of a
-    symbol property is #Msymbol_prop_deserializer, the value must be
-    of this type.
-
-    @seealso Mtext_prop_deserialize (), Mtext_prop_deserializer
-*/
-/***ja
-    @brief ¥Ç¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤Î·¿Àë¸À.
-
-    ¥Ç¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤Î·¿¤Ç¤¢¤ë¡£ ¤¢¤ë¥·¥ó¥Ü¥ë¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤¬ @c
-    #Msymbol_prop_deserializer ¤Ç¤¢¤ë¤È¤¡¢ ÃÍ¤Ï¤³¤Î·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    @seealso Mtext_prop_deserialize (), Mtext_prop_deserializer
-*/
-typedef void *(*MTextPropDeserializeFunc) (MPlist *plist);
-
-extern void *mtext_get_prop (MText *mt, int pos, MSymbol key);
-
-extern int mtext_get_prop_values (MText *mt, int pos, MSymbol key,
-				  void **values, int num);
-
-extern int mtext_get_prop_keys (MText *mt, int pos, MSymbol **keys);
-
-extern int mtext_put_prop (MText *mt, int from, int to,
-			   MSymbol key, void *val);
-
-extern int mtext_put_prop_values (MText *mt, int from, int to,
-				  MSymbol key, void **values, int num);
-
-extern int mtext_push_prop (MText *mt, int from, int to,
-			    MSymbol key, void *val);
-
-extern int mtext_pop_prop (MText *mt, int from, int to,
-			   MSymbol key);
-
-extern int mtext_change_prop (MText *mt, int from, int to,
-			      MSymbol key,
-			      int (*func) (int, void ***, int *));
-
-extern int mtext_prop_range (MText *mt, MSymbol key, int pos,
-			     int *from, int *to, int deeper);
-
-/*=*/
-typedef struct MTextProperty MTextProperty;
-
-/*=*/
-
-extern MTextProperty *mtext_property (MSymbol key, void *val,
-				      int control_bits);
-
-extern MText *mtext_property_mtext (MTextProperty *prop);
-
-extern MSymbol mtext_property_key (MTextProperty *prop);
-
-extern void *mtext_property_value (MTextProperty *prop);
-
-extern int mtext_property_start (MTextProperty *prop);
-
-extern int mtext_property_end (MTextProperty *prop);
-
-extern MTextProperty *mtext_get_property (MText *mt, int pos, MSymbol key);
-
-extern int mtext_get_properties (MText *mt, int pos, MSymbol key,
-				 MTextProperty **props, int num);
-
-extern int mtext_attach_property (MText *mt, int from, int to,
-				  MTextProperty *prop);
-
-extern int mtext_detach_property (MTextProperty *prop);
-
-extern int mtext_push_property (MText *mt, int from, int to,
-				MTextProperty *prop);
-
-extern MText *mtext_serialize (MText *mt, int from, int to,
-			       MPlist *property_list);
-
-extern MText *mtext_deserialize (MText *mt);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* _M17N_CORE_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-gd.c b/src/m17n-gd.c
deleted file mode 100644
index 6ffdc84..0000000
--- a/src/m17n-gd.c
+++ /dev/null
@@ -1,800 +0,0 @@
-/* m17n-gd.c -- implementation of the GUI API on GD Library.
-   Copyright (C) 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include "config.h"
-
-#if defined (HAVE_FREETYPE) && defined (HAVE_GD)
-
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "internal-gui.h"
-#include "symbol.h"
-#include "font.h"
-#include "fontset.h"
-#include "face.h"
-
-static MPlist *realized_fontset_list;
-static MPlist *realized_font_list;
-static MPlist *realized_face_list;
-
-/* The first element is for 256 color, the second for true color.  */
-static gdImagePtr scratch_images[2];
-
-enum ColorIndex
-  {
-    COLOR_NORMAL,
-    COLOR_INVERSE,
-    COLOR_HLINE,
-    COLOR_BOX_TOP,
-    COLOR_BOX_BOTTOM,
-    COLOR_BOX_LEFT,
-    COLOR_BOX_RIGHT,
-    COLOR_MAX
-  };
-
-static MSymbol M_rgb;
-
-static void
-read_rgb_txt ()
-{
-  FILE *fp = fopen ("/usr/lib/X11/rgb.txt", "r");
-  int r, g, b;
-
-  if (! fp)
-    fp = fopen ("/usr/X11R6/lib/X11/rgb.txt", "r");
-  if (! fp)
-    return;
-  while (1)
-    {
-      char buf[256];
-      int c, len;
-
-      if ((c = getc (fp)) == EOF) 
-	break;
-      if (c == '!')
-	{
-	  while ((c = getc (fp)) != EOF && c != '\n');
-	  continue;
-	}
-      ungetc (c, fp);
-      if (fscanf (fp, "%d %d %d", &r, &g, &b) != 3)
-	break;
-      while ((c = getc (fp)) != EOF && isspace (c));
-      if (c == EOF)
-	break;
-      buf[0] = c;
-      fgets (buf + 1, 255, fp);
-      len = strlen (buf);
-      if (buf[len - 1] == '\n')
-	buf[len - 1] = '\0';
-      b |= (r << 16) | (g << 8);
-      msymbol_put (msymbol (buf), M_rgb, (void *) b);
-    }
-  fclose (fp);
-}
-   
-
-static int
-parse_color (MSymbol sym)
-{
-  char *name = MSYMBOL_NAME (sym);
-  unsigned r = 0x80, g = 0x80, b = 0x80;
-  int i;
-  
-  do {
-    if (strncmp (name , "rgb:", 4) == 0)
-      {
-	name += 4;
-	if (sscanf (name, "%x", &r) < 1)
-	  break;
-	for (i = 0; *name != '/'; i++, name++);
-	r = (i == 1 ? ((r << 1) | r) : (r >> (i - 2)));
-	name++;
-	if (sscanf (name, "%x", &g) < 1)
-	  break;
-	for (i = 0; *name != '/'; i++, name++);
-	g = (i == 1 ? ((g << 1) | g) : (g >> (i - 2)));
-	name += 4;
-	if (sscanf (name, "%x", &b) < 1)
-	  break;
-	for (i = 0; *name; i++, name++);
-	b = (i == 1 ? ((b << 1) | b) : (b >> (i - 2)));
-      }
-    else if (*name == '#')
-      {
-	name++;
-	i = strlen (name);
-	if (i == 3)
-	  {
-	    if (sscanf (name, "%1x%1x%1x", &r, &g, &b) < 3)
-	      break;
-	    r <<= 4, g <<= 4, b <<= 4;
-	  }
-	else if (i == 6)
-	  {
-	    if (sscanf (name, "%2x%2x%2x", &r, &g, &b) < 3)
-	      break;
-	  }
-	else if (i == 9)
-	  {
-	    if (sscanf (name, "%3x%3x%3x", &r, &g, &b) < 3)
-	      break;
-	    r >>= 1, g >>= 1, b >>= 1;
-	  }
-	else if (i == 12)
-	  {
-	    if (sscanf (name, "%4x%4x%4x", &r, &g, &b) < 3)
-	      break;
-	    r >>= 2, g >>= 2, b >>= 2;
-	  }
-      }
-    else
-      return (int) msymbol_get (sym, M_rgb);
-  } while (0);
-
-  return ((r << 16) | (g << 8) | b);
-}
-
-
-static gdImagePtr
-get_scrach_image (gdImagePtr img, int width, int height)
-{
-  int index;
-  gdImagePtr scratch;
-
-#if HAVE_GD == 1
-  index = 0;
-#else
-  index = img->trueColor ? 1 : 0;
-#endif
-  scratch = scratch_images[index];
-
-  if (scratch)
-    {
-      if (scratch->sx <= width && scratch->sy <= height)
-	return scratch;
-      gdImageDestroy (scratch);
-    }
-#if HAVE_GD > 1
-  if (img->trueColor)
-    scratch = scratch_images[1] = gdImageCreateTrueColor (width, height);
-  else
-#endif
-    scratch = scratch_images[0] = gdImageCreate (width, height);
-  return scratch;
-}  
-
-static int
-intersect_rectangle (MDrawMetric *r1, MDrawMetric *r2, MDrawMetric *rect)
-{
-  *rect = *r1;
-  if (rect->x < r2->x)
-    rect->width -= (r2->x - rect->x), rect->x = r2->x;
-  if (rect->x + rect->width > r2->x + r2->width)
-    rect->width -= (r2->x + r2->width - rect->x - rect->width);
-  if (rect->y < r2->y)
-    rect->height -= (r2->y - rect->y), rect->y = r2->y;
-  if (rect->y + rect->height > r2->y + r2->height)
-    rect->height -= (r2->y + r2->height - rect->y - rect->height);
-  return 1;
-}
-
-
-#define INTERSECT_RECTANGLE(r1, r2, rect)	\
-  (((r1)->x + (r1->width) <= (r2)->x		\
-    || (r2)->x + (r2)->width <= (r1)->x		\
-    || (r1)->y + (r1->height) <= (r2)->y	\
-    || (r2)->y + (r2)->height <= (r1)->y)	\
-   ? 0						\
-   : intersect_rectangle (r1, r2, rect))
-
-
-#define RESOLVE_COLOR(img, color)					\
-  gdImageColorResolve ((img), (color) >> 16, ((color) >> 8) & 0xFF,	\
-		       (color) & 0xFF)
-
-
-static void
-gd_close (MFrame *frame)
-{
-}
-
-static void *
-gd_get_prop (MFrame *frame, MSymbol key)
-{
-  return NULL;
-}
-
-static void
-gd_realize_face (MRealizedFace *rface)
-{
-  int *colors;
-  MFaceHLineProp *hline;
-  MFaceBoxProp *box;
-  MSymbol *props = (MSymbol *) rface->face.property;
-
-  if (rface != rface->ascii_rface)
-    {
-      rface->info = rface->ascii_rface->info;
-      return;
-    }
-  colors = malloc (sizeof (int) * COLOR_MAX);
-  colors[COLOR_NORMAL] = parse_color (props[MFACE_FOREGROUND]);
-  colors[COLOR_INVERSE] = parse_color (props[MFACE_BACKGROUND]);
-  if (rface->face.property[MFACE_VIDEOMODE] == Mreverse)
-    {
-      colors[COLOR_HLINE] = colors[COLOR_NORMAL];
-      colors[COLOR_NORMAL] = colors[COLOR_INVERSE];
-      colors[COLOR_INVERSE] = colors[COLOR_HLINE];
-    }
-  colors[COLOR_HLINE] = 0;
-
-  hline = rface->hline;
-  if (hline)
-    {
-      if (hline->color)
-	colors[COLOR_HLINE] = parse_color (hline->color);
-      else
-	colors[COLOR_HLINE] = colors[COLOR_NORMAL];
-    }
-
-  box = rface->box;
-  if (box)
-    {
-      if (box->color_top)
-	colors[COLOR_BOX_TOP] = parse_color (box->color_top);
-      else
-	colors[COLOR_BOX_TOP] = colors[COLOR_NORMAL];
-
-      if (box->color_left && box->color_left != box->color_top)
-	colors[COLOR_BOX_LEFT] = parse_color (box->color_left);
-      else
-	colors[COLOR_BOX_LEFT] = colors[COLOR_BOX_TOP];
-
-      if (box->color_bottom && box->color_bottom != box->color_top)
-	colors[COLOR_BOX_BOTTOM] = parse_color (box->color_bottom);
-      else
-	colors[COLOR_BOX_BOTTOM] = colors[COLOR_BOX_TOP];
-
-      if (box->color_right && box->color_right != box->color_bottom)
-	colors[COLOR_BOX_RIGHT] = parse_color (box->color_right);
-      else
-	colors[COLOR_BOX_RIGHT] = colors[COLOR_BOX_BOTTOM];
-    }
-
-  rface->info = colors;
-}
-
-static void
-gd_free_realized_face (MRealizedFace *rface)
-{
-  free (rface->info);
-}
-
-static void
-gd_fill_space (MFrame *frame, MDrawWindow win, MRealizedFace *rface,
-	       int reverse,
-	       int x, int y, int width, int height, MDrawRegion region)
-{
-  gdImagePtr img = (gdImagePtr) win;
-  int *colors = rface->info;
-  int color = colors[reverse ? COLOR_NORMAL : COLOR_INVERSE];
-  MPlist *region_list = region, *plist;
-
-  color = RESOLVE_COLOR (img, color);
-  if (! region)
-    gdImageFilledRectangle (img, x, y, x + width - 1, y + height - 1, color);
-  else
-    {
-      MDrawMetric rect;;
-
-      rect.x = x, rect.y = y, rect.width = width, rect.height = height;
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *r = MPLIST_VAL (plist), new;
-
-	  if (INTERSECT_RECTANGLE (r, &rect, &new))
-	    gdImageFilledRectangle (img, new.x, new.y, new.x + new.width - 1,
-				    new.y + new.height - 1, color);
-	}
-    }
-}
-
-static void
-gd_draw_empty_boxes (MDrawWindow win, int x, int y,
-		     MGlyphString *gstring, MGlyph *from, MGlyph *to,
-		     int reverse, MDrawRegion region)
-{
-  gdImagePtr img = (gdImagePtr) win;
-  int *colors = from->rface->info;
-  int color = colors[reverse ? COLOR_INVERSE : COLOR_NORMAL];
-  MPlist *region_list = region, *plist;
-  int height;
-
-  if (from == to)
-    return;
-
-  color = RESOLVE_COLOR (img, color);
-  y -= gstring->ascent - 1;
-  height = gstring->ascent + gstring->descent - 2;
-  if (! region)
-    for (; from < to; x += from++->width)
-      gdImageRectangle (img, x, y, x + from->width - 2, y + height - 1, color);
-  else
-    {
-      gdImagePtr cpy;
-      MGlyph *g;
-      int width, x1;
-
-      for (g = from, width = 0; g < to; width += g++->width);
-      cpy = get_scrach_image (img, width, height);
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *rect = MPLIST_VAL (plist);
-	  gdImageCopy (cpy, img, rect->x - x, rect->y - y, rect->x, rect->y,
-		       rect->x + rect->width, rect->y + rect->height);
-	}
-      for (x1 = 0; from < to; x1 += from++->width)
-	gdImageRectangle (cpy, x1, 0, x1 + from->width - 2, height - 1, color);
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *rect = MPLIST_VAL (plist);
-	  gdImageCopy (img, cpy, rect->x, rect->y, rect->x - x, rect->y - y,
-		       rect->x + rect->width, rect->y + rect->height);
-	}
-    }
-}
-
-
-static void
-gd_draw_hline (MFrame *frame, MDrawWindow win, MGlyphString *gstring,
-	       MRealizedFace *rface, int reverse,
-	       int x, int y, int width, MDrawRegion region)
-{
-  enum MFaceHLineType type = rface->hline->type;
-  int height = rface->hline->width;
-  gdImagePtr img = (gdImagePtr) win;
-  int *colors = rface->info;
-  int color = colors[COLOR_HLINE];
-  MPlist *region_list = region, *plist;
-
-  color = RESOLVE_COLOR (img, color);
-  y = (type == MFACE_HLINE_BOTTOM
-       ? y + gstring->text_descent - height
-       : type == MFACE_HLINE_UNDER
-       ? y + 1
-       : type == MFACE_HLINE_STRIKE_THROUGH
-       ? y - ((gstring->ascent + gstring->descent) / 2)
-       : y - gstring->text_ascent);
-  if (! region)
-    gdImageFilledRectangle (img, x, y, x + width - 1, y + height - 1, color);
-  else
-    {
-      MDrawMetric rect;
-
-      rect.x = x, rect.y = y, rect.width = width, rect.height = height;
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *r = MPLIST_VAL (plist), new;
-
-	  if (INTERSECT_RECTANGLE (r, &rect, &new))
-	    gdImageFilledRectangle (img, new.x, new.y, new.x + new.width - 1,
-				    new.y + new.height - 1, color);
-	}
-    }
-}
-
-
-static void
-gd_draw_box (MFrame *frame, MDrawWindow win, MGlyphString *gstring,
-	     MGlyph *g, int x, int y, int width, MDrawRegion region)
-{
-  gdImagePtr img = (gdImagePtr) win;
-  int *colors = g->rface->info;
-  int color;
-  MRealizedFace *rface = g->rface;
-  MFaceBoxProp *box = rface->box;
-  MPlist *region_list = region, *plist;
-  int y0, y1;
-  int i;
-
-  y0 = y - (gstring->text_ascent
-	    + rface->box->inner_vmargin + rface->box->width);
-  y1 = y + (gstring->text_descent
-	    + rface->box->inner_vmargin + rface->box->width - 1);
-
-  if (region)
-    {
-      int height = y1 - y0;
-      gdImagePtr cpy;
-
-      if (g->type == GLYPH_BOX)
-	width = g->width;
-      cpy = get_scrach_image (img, width, height);
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *rect = MPLIST_VAL (plist);
-	  gdImageCopy (cpy, img, rect->x - x, rect->y - y, rect->x, rect->y,
-		       rect->x + rect->width, rect->y + rect->height);
-	}
-      gd_draw_box (frame, win, gstring, g, 0, y - y0, width, NULL);
-      MPLIST_DO (plist, region_list)
-	{
-	  MDrawMetric *rect = MPLIST_VAL (plist);
-	  gdImageCopy (img, cpy, rect->x, rect->y, rect->x - x, rect->y - y,
-		       rect->x + rect->width, rect->y + rect->height);
-	}
-      return;
-    }
-
-  if (g->type == GLYPH_BOX)
-    {
-      int x0, x1;
-
-      if (g->left_padding)
-	x0 = x + box->outer_hmargin, x1 = x + g->width - 1;
-      else
-	x0 = x, x1 = x + g->width - box->outer_hmargin - 1;
-
-      /* Draw the top side.  */
-      color = RESOLVE_COLOR (img, colors[COLOR_BOX_TOP]);
-      for (i = 0; i < box->width; i++)
-	gdImageLine (img, x0, y0 + i, x1, y0 + i, color);
-
-      /* Draw the bottom side.  */
-      color = RESOLVE_COLOR (img, colors[COLOR_BOX_BOTTOM]);
-      for (i = 0; i < box->width; i++)
-	gdImageLine (img, x0, y1 - i, x1, y1 - i, color);
-
-      if (g->left_padding > 0)
-	{
-	  /* Draw the left side.  */
-	  color = RESOLVE_COLOR (img, colors[COLOR_BOX_LEFT]);
-	  for (i = 0; i < rface->box->width; i++)
-	    gdImageLine (img, x0 + i, y0 + i, x0 + i, y1 - i, color);
-	}
-      else
-	{
-	  /* Draw the right side.  */
-	  color = RESOLVE_COLOR (img, colors[COLOR_BOX_RIGHT]);
-	  for (i = 0; i < rface->box->width; i++)
-	    gdImageLine (img, x1 - i, y0 + i, x1 - i, y1 - i, color);
-	}
-
-    }
-  else
-    {
-      /* Draw the top side.  */
-      color = RESOLVE_COLOR (img, colors[COLOR_BOX_TOP]);
-      for (i = 0; i < box->width; i++)
-	gdImageLine (img, x, y0 + i, x + width - 1, y0 + i, color);
-
-      /* Draw the bottom side.  */
-      color = RESOLVE_COLOR (img, colors[COLOR_BOX_BOTTOM]);
-      for (i = 0; i < box->width; i++)
-	gdImageLine (img, x, y1 - i, x + width - 1, y1 - i, color);
-    }
-}
-
-
-static MDrawRegion
-gd_region_from_rect (MDrawMetric *rect)
-{
-  MDrawMetric *new;
-  MPlist *plist = mplist ();
-
-  MSTRUCT_MALLOC (new, MERROR_GD);
-  *new = *rect;
-  mplist_add (plist, Mt, new);
-  return (MDrawRegion) plist;
-}
-
-static void
-gd_union_rect_with_region (MDrawRegion region, MDrawMetric *rect)
-{
-  MPlist *plist = (MPlist *) region;
-  MDrawMetric *r;
-
-  MSTRUCT_MALLOC (r, MERROR_GD);
-  *r = *rect;
-  mplist_push (plist, Mt, r);
-}
-
-static void
-gd_intersect_region (MDrawRegion region1, MDrawRegion region2)
-{
-  MPlist *plist1 = (MPlist *) region1, *p1 = plist1;
-  MPlist *plist2 = (MPlist *) region2;
-  MPlist *p2;
-  MDrawMetric rect, *rect1, *rect2, *r;
-
-  while (! MPLIST_TAIL_P (p1))
-    {
-      rect1 = mplist_pop (p1);
-      MPLIST_DO (p2, plist2)
-	{
-	  rect2 = MPLIST_VAL (p2);
-	  if (INTERSECT_RECTANGLE (rect1, rect2, &rect))
-	    {
-	      MSTRUCT_MALLOC (r, MERROR_GD);
-	      *r = rect;
-	      mplist_push (p1, Mt, r);
-	      p1 = MPLIST_NEXT (p1);
-	    }
-	}
-      free (rect1);
-    }
-}
-
-static void
-gd_region_add_rect (MDrawRegion region, MDrawMetric *rect)
-{
-  MPlist *plist = (MPlist *) region;
-  MDrawMetric *new;
-
-  MSTRUCT_MALLOC (new, MERROR_GD);
-  *new = *rect;
-  mplist_push (plist, Mt, new);
-}
-
-static void
-gd_region_to_rect (MDrawRegion region, MDrawMetric *rect)
-{
-  MPlist *plist = (MPlist *) region;
-  MDrawMetric *r = MPLIST_VAL (plist);
-  int min_x = r->x, max_x = min_x + r->width;
-  int min_y = r->y, max_y = min_y + r->height;
-  
-  MPLIST_DO (plist, MPLIST_NEXT (plist))
-    {
-      r = MPLIST_VAL (plist);
-      if (r->x < min_x)
-	min_x = r->x;
-      if (r->x + r->width > max_x)
-	max_x = r->x + r->width;
-      if (r->y < min_y)
-	min_y = r->y;
-      if (r->y + r->height > max_y)
-	max_y = r->y + r->height;
-    }
-  rect->x = min_x;
-  rect->y = min_y;
-  rect->width = max_x - min_x;
-  rect->height =max_y - min_y;
-}
-
-static void
-gd_free_region (MDrawRegion region)
-{
-  MPlist *plist = (MPlist *) region;
-
-  MPLIST_DO (plist, plist)
-    free (MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (region);
-}
-
-static void
-gd_dump_region (MDrawRegion region)
-{
-  MDrawMetric rect;
-
-  gd_region_to_rect (region, &rect);
-  fprintf (stderr, "(%d %d %d %d)\n", rect.x, rect.y, rect.width, rect.height);
-}
-
-static MDeviceDriver gd_driver =
-  {
-    gd_close,
-    gd_get_prop,
-    gd_realize_face,
-    gd_free_realized_face,
-    gd_fill_space,
-    gd_draw_empty_boxes,
-    gd_draw_hline,
-    gd_draw_box,
-    NULL,
-    gd_region_from_rect,
-    gd_union_rect_with_region,
-    gd_intersect_region,
-    gd_region_add_rect,
-    gd_region_to_rect,
-    gd_free_region,
-    gd_dump_region,
-  };
-
-
-static void
-gd_render (MDrawWindow win, int x, int y,
-	   MGlyphString *gstring, MGlyph *from, MGlyph *to,
-	   int reverse, MDrawRegion region)
-{
-  gdImagePtr img = (gdImagePtr) win;
-  MFTInfo *ft_info;
-  FT_Face ft_face;
-  MRealizedFace *rface = from->rface;
-  FT_Int32 load_flags = FT_LOAD_RENDER;
-  int i, j;
-  int color, pixel;
-  int r, g, b;
-  
-  pixel = RESOLVE_COLOR (img, color);
-
-  if (from == to)
-    return;
-
-  /* It is assured that the all glyphs in the current range use the
-     same realized face.  */
-  ft_info = (MFTInfo *) rface->rfont->info;
-  ft_face = ft_info->ft_face;
-  color = ((int *) rface->info)[reverse ? COLOR_INVERSE : COLOR_NORMAL];
-  pixel = RESOLVE_COLOR (img, color);
-
-  if (gstring->anti_alias)
-    r = color >> 16, g = (color >> 8) & 0xFF, b = color & 0xFF;
-  else
-    {
-#ifdef FT_LOAD_TARGET_MONO
-      load_flags |= FT_LOAD_TARGET_MONO;
-#else
-      load_flags |= FT_LOAD_MONOCHROME;
-#endif
-    }
-
-  for (; from < to; x += from++->width)
-    {
-      unsigned char *bmp;
-      int xoff, yoff;
-      int width, pitch;
-
-      FT_Load_Glyph (ft_face, (FT_UInt) from->code, load_flags);
-      yoff = y - ft_face->glyph->bitmap_top + from->yoff;
-      bmp = ft_face->glyph->bitmap.buffer;
-      width = ft_face->glyph->bitmap.width;
-      pitch = ft_face->glyph->bitmap.pitch;
-      if (! gstring->anti_alias)
-	pitch *= 8;
-      if (width > pitch)
-	width = pitch;
-
-      if (gstring->anti_alias)
-	for (i = 0; i < ft_face->glyph->bitmap.rows;
-	     i++, bmp += ft_face->glyph->bitmap.pitch, yoff++)
-	  {
-	    xoff = x + ft_face->glyph->bitmap_left + from->xoff;
-	    for (j = 0; j < width; j++, xoff++)
-	      if (bmp[j])
-		{
-		  int f = bmp[j] >> 5;
-		  int pixel1 = pixel;
-
-		  if (f < 7)
-		    {
-		      int r1, g1, b1, color1;
-
-		      pixel1 = gdImageGetPixel (img, xoff, yoff);
-		      r1 = gdImageRed (img, pixel1);
-		      g1 = gdImageGreen (img, pixel1);
-		      b1 = gdImageBlue (img, pixel1);
-		      color1 = ((((r * f + r1 * (7 - f)) / 7) << 16)
-				| (((g * f + g1 * (7 - f)) / 7) << 8)
-				| ((b * f + b1 * (7 - f)) / 7));
-		      pixel1 = RESOLVE_COLOR (img, color1);
-		    }
-		  gdImageSetPixel (img, xoff, yoff, pixel1);
-		}
-	  }
-      else
-	for (i = 0; i < ft_face->glyph->bitmap.rows;
-	     i++, bmp += ft_face->glyph->bitmap.pitch, yoff++)
-	  {
-	    xoff = x + ft_face->glyph->bitmap_left + from->xoff;
-	    for (j = 0; j < width; j++, xoff++)
-	      if (bmp[j / 8] & (1 << (7 - (j % 8))))
-		gdImageSetPixel (img, xoff, yoff, pixel);
-	  }
-    }
-}
-
-
-static MFontDriver gd_font_driver =
-  { NULL, NULL, NULL, NULL, gd_render };
-
-int
-device_init ()
-{
-  M_rgb = msymbol ("  rgb");
-  read_rgb_txt ();
-  realized_fontset_list = mplist ();
-  realized_font_list = mplist ();
-  realized_face_list = mplist ();  
-  scratch_images[0] = scratch_images[1] = NULL;
-
-  gd_font_driver.select = mfont__ft_driver.select;
-  gd_font_driver.open = mfont__ft_driver.open;
-  gd_font_driver.find_metric = mfont__ft_driver.find_metric;
-  gd_font_driver.encode_char = mfont__ft_driver.encode_char;
-
-  return 0;
-}
-
-int
-device_fini ()
-{
-  MPlist *plist;
-  int i;
-
-  MPLIST_DO (plist, realized_fontset_list)
-    mfont__free_realized_fontset ((MRealizedFontset *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (realized_fontset_list);
-
-  MPLIST_DO (plist, realized_face_list)
-    {
-      MRealizedFace *rface = MPLIST_VAL (plist);
-
-      free (rface->info);
-      mface__free_realized (rface);
-    }
-  M17N_OBJECT_UNREF (realized_face_list);
-
-  MPLIST_DO (plist, realized_font_list)
-    mfont__free_realized ((MRealizedFont *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (realized_font_list);
-
-  for (i = 0; i < 2; i++)
-    if (scratch_images[i])
-      gdImageDestroy (scratch_images[i]);
-  return 0;
-}
-
-void *
-device_open (MFrame *frame, MPlist *param)
-{
-  MFace *face;
-
-  frame->device_type = MDEVICE_SUPPORT_OUTPUT;
-  frame->driver = &gd_driver;
-  frame->font_driver_list = mplist ();
-  mplist_add (frame->font_driver_list, Mfreetype, &gd_font_driver);
-  frame->realized_font_list = realized_font_list;
-  frame->realized_face_list = realized_face_list;
-  frame->realized_fontset_list = realized_fontset_list;
-  face = mface_copy (mface__default);
-  mplist_push (param, Mface, face);
-  M17N_OBJECT_UNREF (face);
-  return Mt;
-}
-
-#endif	/* not HAVE_GD nor HAVE_FREETYPE */
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
diff --git a/src/m17n-gui.c b/src/m17n-gui.c
deleted file mode 100644
index 6488e93..0000000
--- a/src/m17n-gui.c
+++ /dev/null
@@ -1,796 +0,0 @@
-/* m17n-gui.c -- body of the GUI API.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nGUI
-    @brief GUI support for a window system.
-
-    This section defines the m17n GUI API concerning M-text drawing
-    and inputting under a window system.
-
-    All the definitions here are independent of window systems.  An
-    actual library file, however, can depend on a specific window
-    system.  For instance, the library file m17n-X.so is an example of
-    implementation of the m17n GUI API for the X Window System.
-
-    Actually the GUI API is mainly for toolkit libraries or to
-    implement XOM, not for direct use from application programs.
-*/
-
-/***ja
-    @addtogroup m17nGUI
-    @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤Î GUI ¥µ¥Ý¡¼¥È.
-
-    ¤³¤Î¥»¥¯¥·¥ç¥ó¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Î¤â¤È¤Ç¤Î M-text ¤ÎÉ½¼¨¤ÈÆþÎÏ¤Ë
-    ¤«¤«¤ï¤ë m17n GUI API ¤òÄêµÁ¤¹¤ë¡£
-
-    ¤³¤³¤Ç¤Î¤¹¤Ù¤Æ¤ÎÄêµÁ¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤È¤ÏÆÈÎ©¤Ç¤¢¤ë¡£¤·¤«¤·¡¢¼Â
-    ºÝ¤Î¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë¤Ï¸ÄÊÌ¤Î¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¾ì¹ç¤¬¤¢
-    ¤ë¡£¤¿¤È¤¨¤Ð¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë m17n-X.so ¤Ï¡¢m17n GUI API ¤Î X ¥¦¥£
-    ¥ó¥É¥¦ÍÑ¤Î¼ÂÁõÎã¤Ç¤¢¤ë¡£
-
-    ¸½¼Â¤Ë¤Ï¡¢GUI API ¤Ï¼ç¤Ë¥Ä¡¼¥ë¥¥Ã¥È¥é¥¤¥Ö¥é¥ê¸þ¤±¤Ç¤¢¤ë¤«¡¢¤Þ¤¿¤Ï 
-    XOM ¤ò¼ÂÁõ¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤Æ¤ª¤ê¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é
-    ¤ÎÄ¾ÀÜ¤ÎÍøÍÑ¤òÇ°Æ¬¤Ë¤ª¤¤¤¿¤â¤Î¤Ç¤Ï¤Ê¤¤¡£
-*/
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include "config.h"
-
-#include 
-#include 
-#include 
-
-#include "config.h"
-#ifdef HAVE_DLFCN_H
-#include 
-#endif
-
-#include "m17n-gui.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "plist.h"
-#include "internal-gui.h"
-#include "font.h"
-#include "fontset.h"
-#include "face.h"
-
-static int win_initialized;
-
-#ifndef DLOPEN_SHLIB_EXT
-#define DLOPEN_SHLIB_EXT ".so"
-#endif
-
-/** Information about a dynamic library supporting a specific graphic
-    device.  */
-typedef struct
-{
-  /** Name of the dynamic library (e.g. "libm17n-X.so").  */
-  char *library;
-  /** Handle fo the dynamic library.  */
-  void *handle;
-  /** Function to call just after loading the library.  */
-  int (*init) ();
-  /** Function to call to open a frame on the graphic device.  */
-  void *(*open) (MFrame *frame, MPlist *param);
-  /** Function to call just before unloading the library.  */
-  int (*fini) ();
-} MDeviceLibraryInterface;
-
-
-/** Plist of device symbol vs MDeviceLibraryInterface.  */
-
-static MPlist *device_library_list;
-
-
-/** Close MFrame and free it.  */
-
-static void
-free_frame (void *object)
-{
-  MFrame *frame = (MFrame *) object;
-
-  (*frame->driver->close) (frame);
-  M17N_OBJECT_UNREF (frame->face);
-  free (frame->font);
-  M17N_OBJECT_UNREF (frame->font_driver_list);
-  free (object);
-}
-
-
-/** Register a dynamic library of name LIB by a key NAME.  */
-
-static int
-register_device_library (MSymbol name, char *lib)
-{
-  MDeviceLibraryInterface *interface;
-
-  MSTRUCT_CALLOC (interface, MERROR_WIN);
-  interface->library = malloc (strlen (lib) 
-			       + strlen (DLOPEN_SHLIB_EXT) + 1);
-  sprintf (interface->library, "%s%s", lib, DLOPEN_SHLIB_EXT);
-  if (! device_library_list)
-    device_library_list = mplist ();
-  mplist_add (device_library_list, name, interface);
-  return 0;
-}
-
-
-#ifdef HAVE_FREETYPE
-/** Null device support.  */
-
-static struct {
-  MPlist *realized_fontset_list;
-  MPlist *realized_font_list;
-  MPlist *realized_face_list;
-} null_device;
-
-static void
-null_device_close (MFrame *frame)
-{
-}
-
-void *
-null_device_get_prop (MFrame *frame, MSymbol key)
-{
-  return NULL;
-}
-
-void
-null_device_realize_face (MRealizedFace *rface)
-{
-  rface->info = NULL;
-}
-
-void
-null_device_free_realized_face (MRealizedFace *rface)
-{
-}
-
-static MDeviceDriver null_driver =
-  {
-    null_device_close,
-    null_device_get_prop,
-    null_device_realize_face,
-    null_device_free_realized_face
-  };
-
-static int
-null_device_init ()
-{
-  null_device.realized_fontset_list = mplist ();
-  null_device.realized_font_list = mplist ();
-  null_device.realized_face_list = mplist ();  
-  return 0;
-}
-
-static int
-null_device_fini ()
-{
-  MPlist *plist;
-
-  MPLIST_DO (plist, null_device.realized_fontset_list)
-    mfont__free_realized_fontset ((MRealizedFontset *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (null_device.realized_fontset_list);
-
-  MPLIST_DO (plist, null_device.realized_face_list)
-    mface__free_realized ((MRealizedFace *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (null_device.realized_face_list);
-
-  MPLIST_DO (plist, null_device.realized_font_list)
-    mfont__free_realized ((MRealizedFont *) MPLIST_VAL (plist));
-  M17N_OBJECT_UNREF (null_device.realized_font_list);
-  return 0;
-}
-
-static void *
-null_device_open (MFrame *frame, MPlist *param)
-{
-  MFace *face;
-
-  frame->device_type = 0;
-  frame->driver = &null_driver;
-  frame->font_driver_list = mplist ();
-  mplist_add (frame->font_driver_list, Mfreetype, &mfont__ft_driver);
-  frame->realized_font_list = null_device.realized_font_list;
-  frame->realized_face_list = null_device.realized_face_list;
-  frame->realized_fontset_list = null_device.realized_fontset_list;
-  face = mface_copy (mface__default);
-  mplist_push (param, Mface, face);
-  M17N_OBJECT_UNREF (face);
-  return &null_device;
-}
-
-static MDeviceLibraryInterface null_interface =
-  { NULL, NULL, null_device_init, null_device_open, null_device_fini };
-
-#endif
-
-/* Internal API */
-
-MSymbol Mfreetype;
-
-/*** @} */ 
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-void
-m17n_init_win (void)
-{
-  int mdebug_mask = MDEBUG_INIT;
-
-  if (win_initialized++)
-    return;
-  m17n_init ();
-  if (merror_code != MERROR_NONE)
-    return;
-
-  MDEBUG_PUSH_TIME ();
-
-  Mx = msymbol ("x");
-  Mgd = msymbol ("gd");
-
-  Mfreetype = msymbol ("freetype");
-  Mfont = msymbol ("font");
-  Mfont_width = msymbol ("font-width");
-  Mfont_ascent = msymbol ("font-ascent");
-  Mfont_descent = msymbol ("font-descent");
-  Mdevice = msymbol ("device");
-
-  Mdisplay = msymbol ("display");
-  Mscreen = msymbol ("screen");
-  Mdrawable = msymbol ("drawable");
-  Mdepth = msymbol ("depth");
-  Mwidget = msymbol ("widget");
-
-  register_device_library (Mx, "libm17n-X");
-  register_device_library (Mgd, "libm17n-gd");
-
-  MDEBUG_PUSH_TIME ();
-  if (mfont__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize font module."));
-  if (mfont__fontset_init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize fontset module."));
-  if (mface__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize face module."));
-  if (mdraw__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize draw module."));
-  if (minput__win_init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize input-win module."));
-  mframe_default = NULL;
-
- err:
-  MDEBUG_POP_TIME ();
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize the m17n GUI module."));
-  MDEBUG_POP_TIME ();
-  return;
-}
-
-void
-m17n_fini_win (void)
-{
-  int mdebug_mask = MDEBUG_FINI;
-
-  if (win_initialized > 1)
-    win_initialized--;
-  else
-    {
-      MPlist *plist;
-
-      win_initialized = 0;
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize device modules."));
-      MPLIST_DO (plist, device_library_list)
-	{
-	  MDeviceLibraryInterface *interface = MPLIST_VAL (plist);
-
-	  if (interface->handle && interface->fini)
-	    {
-	      (*interface->fini) ();
-	      dlclose (interface->handle);
-	    }
-	  free (interface->library);
-	  free (interface);
-	}
-      M17N_OBJECT_UNREF (device_library_list);
-#ifdef HAVE_FREETYPE
-      if (null_interface.handle)
-	(*null_interface.fini) ();
-#endif	/* not HAVE_FREETYPE */
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize input-gui module."));
-      minput__win_fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize draw module."));
-      mdraw__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize face module."));
-      mface__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize fontset module."));
-      mfont__fontset_fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize font module."));
-      mfont__fini ();
-      mframe_default = NULL;
-      MDEBUG_POP_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize the gui modules."));
-      MDEBUG_POP_TIME ();
-    }
-  m17n_fini ();
-}
-
-/*** @addtogroup m17nFrame */
-/***en
-    @brief A @e frame is an object corresponding to the graphic device.
-
-    A @e frame is an object of the type #MFrame to hold various
-    information about each display/input device.  Almost all m17n GUI
-    functions require a pointer to a frame as an argument.  */
-
-/***ja
-    @brief @e ¥Õ¥ì¡¼¥à ¤È¤Ï¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð¥¤¥¹¤ËÂÐ±þ¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
-
-    @e ¥Õ¥ì¡¼¥à ¤È¤Ï #MFrame ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ê¡¢¸Ä¡¹¤ÎÉ½¼¨¡¿ÆþÎÏ¥Ç
-    ¥Ð¥¤¥¹¤Î¾ðÊó¤ò³ÊÇ¼¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë¡£¤Û¤È¤ó¤É¤¹¤Ù¤Æ¤Î m17n GUI
-    ´Ø¿ô¤Ï¡¢°ú¿ô¤È¤·¤Æ¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÍ×µá¤¹¤ë¡£  */
-
-/*** @{ */
-/*=*/
-
-/***en
-    @name Variables: Keys of frame parameter
-
-    These are the symbols to use in a parameter to creat a frame.  See
-    the function mframe () for details.
-
-    #Mdevice, #Mdisplay, #Mscreen, #Mdrawable, #Mdepth, and #Mcolormap
-    are also keys of a frame property.  */
-
-/***ja
-    @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥Ñ¥é¥á¡¼¥¿ÍÑ¥¡¼
-
-    ¥Õ¥ì¡¼¥à¤òÀ¸À®¤¹¤ëºÝ¤Î¥Ñ¥é¥á¡¼¥¿¤ËÍÑ¤¤¤ë¥·¥ó¥Ü¥ë¡£¾Ü¤·¤¯¤Ï´Ø¿ô
-    mframe () ¤ÎÀâÌÀ»²¾È¡£
-
-    #Mdevice¡¢ #Mdisplay¡¢ #Mscreen¡¢ #Mdrawable¡¢ #Mdepth¡¢#Mcolormap
-    ¤Ï¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Ç¤â¤¢¤ë¡£  */
-
-/*=*/
-
-MSymbol Mdevice, Mdisplay, Mscreen, Mdrawable, Mdepth, Mcolormap, Mwidget; 
-
-MSymbol Mx, Mgd;
-
-/*=*/
-
-/***en
-    @name Variables: Keys of frame property
-
-    These are the symbols to use as an argument to the function
-    mframe_get_prop ().  */
-/***ja
-    @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼
-
-    ´Ø¿ô mframe_get_prop () ¤Î°ú¿ô¤ËÍÑ¤¤¤é¤ì¤ë¥·¥ó¥Ü¥ë¡£  */ 
-/*** @{ */ 
-/*=*/
-MSymbol Mfont;
-MSymbol Mfont_width;
-MSymbol Mfont_ascent;
-MSymbol Mfont_descent;
-
-/*=*/
-
-/*** @} */ 
-/*=*/
-
-/***en
-    @brief Create a new frame.
-
-    The mframe () function creates a new frame with parameters listed
-    in $PLIST which may be @c NULL.
-
-    The recognized keys in $PLIST are window system dependent.
-
-    The following key is always recognized.
-
-    
-
-     #Mdevice, the value must be one of #Mx, #Mgd, and #Mnil.
-
-    If the value is #Mx, the frame is for X Window System.  The
-    argument #MDrawWindow specified together with the frame must be of
-    type @c Window.  The frame is both readable and writable, thus all
-    GUI functions can be used.
-
-    If the value is #Mgd, the frame is for an image object of GD
-    library.  The argument #MDrawWindow specified together with the
-    frame must be of type @c gdImagePtr.  The frame is writable
-    only, thus functions minput_XXX can't be used for the frame.
-
-    If the value is #Mnil, the frame is for a null device.  The frame
-    is not writable nor readable, thus functions mdraw_XXX that
-    require the argument #MDrawWindow and functions minput_XXX can't
-    be used for the frame.
-
-    
 #Mface, the value must be a pointer to #MFace.
-
-    The value is used as the default face of the frame.
-
-    
-
-    In addition, if the value of the key #Mdevice is #Mx, the
-    following keys are recognized.  They are to specify the root
-    window and the depth of drawables that can be used with the frame.
-
-    
-
-     #Mdrawable, the value type must be Drawable.
-
-    A parameter of key #Mdisplay must also be specified.  The
-    created frame can be used for drawables whose root window and
-    depth are the same as those of the specified drawable on the
-    specified display.
-
-    When this parameter is specified, the parameter of key #Mscreen
-    is ignored.
-
-    
 #Mwidget, the value type must be Widget.
-
-    The created frame can be used for drawables whose root window and
-    depth are the same as those of the specified widget.
-
-    If a parameter of key #Mface is not specified, the default face
-    is created from the resources of the widget.
-
-    When this parameter is specified, the parameters of key #Mdisplay,
-    #Mscreen, #Mdrawable, #Mdepth are ignored.
-
-    
 #Mdepth, the value type must be unsigned.
-
-    The created frame can be used for drawables of the specified
-    depth.
-
-    
 #Mscreen, the value type must be (Screen *).
-
-    The created frame can be used for drawables whose root window is
-    the same as the root window of the specified screen, and depth is
-    the same at the default depth of the screen.
-
-    When this parameter is specified, parameter of key #Mdisplay is
-    ignored.
-
-    
 #Mdisplay, the value type must be (Display *).
-
-    The created frame can be used for drawables whose root window is
-    the same as the root window for the default screen of the display,
-    and depth is the same as the default depth of the screen.
-
-    
 #Mcolormap, the value type must be (Colormap).
-
-    The created frame uses the specified colormap.
-
-    
-
-    @return
-    If the operation was successful, mframe () returns a pointer to a
-    newly created frame.  Otherwise, it returns @c NULL.  */
-
-/***ja
-    @brief ¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë.
-
-    ´Ø¿ô mframe () ¤Ï $PLIST Ãæ¤Î¥Ñ¥é¥á¡¼¥¿¤ò»ý¤Ä¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë¡£
-    $PLIST ¤Ï @c NULL ¤Ç¤âÎÉ¤¤¡£
-
-    $PLIST ¤Ë¸½¤ï¤ì¤ë¥¡¼¤Î¤¦¤Á¤É¤ì¤¬Ç§¼±¤µ¤ì¤ë¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à
-    ¤Ë°ÍÂ¸¤¹¤ë¡£
-
-    °Ê²¼¤Î¥¡¼¤Ï¾ï¤ËÇ§¼±¤µ¤ì¤ë¡£
-
-    
-
-     #Mdevice. ÃÍ¤Ï #Mx, #Mgd, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ÃÍ¤¬ #Mx ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï X ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥àÍÑ¤Ç¤¢¤ë¡£¤³
-    ¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô #MDrawWindow ¤Ï¡¢ @c Window ·¿¤Ç¤Ê
-    ¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤È¤â¤Ë²ÄÇ½¤Ç¤¢¤ê¡¢¤¹¤Ù¤Æ¤ÎGUI ´Ø
-    ¿ô¤¬»ÈÍÑ¤Ç¤¤ë¡£
-
-    ÃÍ¤¬ #Mgd ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï GD ¥é¥¤¥Ö¥é¥ê¤Î¥¤¥á¡¼¥¸¥ª¥Ö¥¸¥§
-    ¥¯¥ÈÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô #MDrawWindow ¤Ï¡¢ 
-    @c gdImagePtr ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤Ï½ñ¤½Ð¤·ÀìÍÑ¤Ç¤¢¤ê¡¢
-    minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
-
-    ÃÍ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï, null ¥Ç¥Ð¥¤¥¹ÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ
-    ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤Ç¤¤Ê¤¤¤Î¤Ç¡¢°ú¿ô #MDrawWindow ¤òÉ¬Í×¤È¤¹¤ëmdraw_ 
-    ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤ä¡¢minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
-
-    
 #Mface. ÃÍ¤Ï #MFace ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ¤³¤ÎÃÍ¤Ï¥Õ¥ì¡¼¥à¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
-
-    
-
-    ¤³¤ì¤é¤Î¥¡¼¤Ë²Ã¤¨¡¢#Mdevice ¤Î¥¡¼¤¬ #Mx ¤Ç¤¢¤ë¾ì¹ç¤Ë¸Â¤ê°Ê²¼¤Î¥¡¼
-    ¤âÇ§¼±¤µ¤ì¤ë¡£°Ê²¼¤Î¥¡¼¤Ï¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¡¢¥Õ¥ì¡¼¥à¤ÇÍøÍÑ¤Ç¤¤ë 
-    drawable ¤Î¿¼¤µ¤ò»ØÄê¤¹¤ë¡£
-
-    
-
-     #Mdrawable. ÃÍ¤Ï Drawable ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ¥¡¼ #Mdisplay ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤â»ØÄê¤µ¤ì¤Æ¤¤¤ëÉ¬Í×¤¬¤¢¤ë¡£À¸À®¤µ
-    ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤µ¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤¾å¤Î»ØÄê¤µ¤ì¤¿ drawable ¤ÈÆ±
-    ¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mscreen ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ
-    »ë¤µ¤ì¤ë¡£
-
-    
 #Mwidget. ÃÍ¤Ï Widget ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¦¥£¥¸¥§¥Ã¥È¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È
-    ¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    ¥¡¼ #Mface ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤¬¤Ê¤±¤ì¤Ð¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤Ï¤³¤Î
-    ¥¦¥£¥¸¥§¥Ã¥È¤Î¥ê¥½¡¼¥¹¤«¤éºî¤é¤ì¤ë¡£
-
-    ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay, #Mscreen, #Mdrawable,
-    #Mdepth ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
-
-    
 #Mdepth. ÃÍ¤Ï unsigned  ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¿¼¤µ¤Î drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    
 #Mscreen. ÃÍ¤Ï (Screen *) ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    À¸À®¤·¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¹¥¯¥ê¡¼¥ó¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ò»ý¤Á¡¢
-    ¥¹¥¯¥ê¡¼¥ó¤Î¥Ç¥Õ¥©¥ë¥È¤Î¿¼¤µ¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ
-    »ë¤µ¤ì¤ë¡£
-
-    
 #Mdisplay. ÃÍ¤Ï (Display *) ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥Ç¥£¥¹¥×¥ì¥¤¤Î¥Ç¥Õ¥©¥ë¥È¥¹¥¯¥ê¡¼¥ó¤È
-    Æ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ädrawables ¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    
 #Mcolormap. ÃÍ¤Ï (Colormap) ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥«¥é¡¼¥Þ¥Ã¥×¤ò»ÈÍÑ¤¹¤ë¡£
-
-    
-
-    @return
-    À®¸ù¤¹¤ì¤Ð mframe() ¤Ï¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±
-    ¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
-
-MFrame *
-mframe (MPlist *plist)
-{
-  MFrame *frame;
-  int plist_created = 0;
-  MPlist *pl;
-  MSymbol device;
-  MDeviceLibraryInterface *interface;
-
-  if (plist)
-    {
-      pl = mplist_find_by_key (plist, Mdevice);
-      if (pl)
-	device = MPLIST_VAL (pl);
-      else
-	device = Mx;
-    }
-  else
-    {
-      plist = mplist ();
-      plist_created = 1;
-      device = Mx;
-    }
-
-  if (device == Mnil)
-    {
-#ifdef HAVE_FREETYPE
-      interface = &null_interface;
-      if (! interface->handle)
-	{
-	  (*interface->init) ();
-	  interface->handle = Mt;
-	}
-#else  /* not HAVE_FREETYPE */
-      MERROR (MERROR_WIN, NULL);
-#endif	/* not HAVE_FREETYPE */
-    }
-  else
-    {
-      interface = mplist_get (device_library_list, device);
-      if (! interface)
-	MERROR (MERROR_WIN, NULL);
-      if (! interface->handle)
-	{
-	  interface->handle = dlopen (interface->library, RTLD_NOW);
-	  if (! interface->handle)
-	    MERROR (MERROR_WIN, NULL);
-	  interface->init = dlsym (interface->handle, "device_init");
-	  interface->open = dlsym (interface->handle, "device_open");
-	  interface->fini = dlsym (interface->handle, "device_fini");
-	  if (! interface->init || ! interface->open || ! interface->fini
-	      || (*interface->init) () < 0)
-	    {
-	      dlclose (interface->handle);
-	      MERROR (MERROR_WIN, NULL);
-	    }
-	}
-    }
-
-  M17N_OBJECT (frame, free_frame, MERROR_FRAME);
-  if (! (frame->device = (*interface->open) (frame, plist)))
-    {
-      free (frame);
-      MERROR (MERROR_WIN, NULL);
-    }
-
-  if (! mframe_default)
-    mframe_default = frame;
-
-  frame->face = mface ();
-  MPLIST_DO (pl, plist)
-    if (MPLIST_KEY (pl) == Mface)
-      mface_merge (frame->face, (MFace *) MPLIST_VAL (pl));
-  mface__update_frame_face (frame);
-
-  if (plist_created)
-    M17N_OBJECT_UNREF (plist);
-  return frame;
-}
-
-/*=*/
-
-/***en
-    @brief Return property value of frame.
-
-    The mframe_get_prop () function returns a value of property $KEY
-    of frame $FRAME.  The valid keys and the corresponding return
-    values are as follows.
-
-@verbatim
-
-        key             type of value   meaning of value
-        ---             -------------   ----------------
-        Mface           MFace *         The default face.
-
-        Mfont           MFont *         The default font.
-
-        Mfont_width     int             Width of the default font.
-
-        Mfont_ascent    int             Ascent of the default font.
-
-        Mfont_descent   int             Descent of the default font.
-
-@endverbatim
-
-    In the m17n-X library, the followings are also accepted.
-
-@verbatim
-
-        key             type of value   meaning of value
-        ---             -------------   ----------------
-        Mdisplay        Display *       Display associated with the frame.
-
-        Mscreen         int             Screen number of a screen associated
-                                        with the frame.
-
-        Mcolormap       Colormap        Colormap of the frame.
-
-        Mdepth          unsigned        Depth of the frame.
-@endverbatim
-*/
-
-/***ja
-    @brief ¥Õ¥ì¡¼¥à¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹.
-
-    ´Ø¿ô mframe_get_prop () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥¡¼ $KEY ¤ò»ý¤Ä¥×¥í¥Ñ
-    ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹¡£Í¸ú¤Ê¥¡¼¤È¤½¤ÎÃÍ¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
-
-@verbatim
-
-        ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
-        ---             -------------   ----------------
-        Mface           MFace *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹
-
-        Mfont           MFont *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È
-
-        Mfont_width     int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤ÎÉý
-
-        Mfont_ascent    int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î ascent
-
-        Mfont_descent   int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î descent
-
-@endverbatim
-
-     m17n-X ¥é¥¤¥Ö¥é¥ê¤Ç¤Ï¡¢°Ê²¼¤Î¥¡¼¤â»ÈÍÑ¤Ç¤¤ë¡£
-
-@verbatim
-
-        ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
-        ---             -------------   ----------------
-        Mdisplay        Display *       ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤
-
-        Mscreen         int             ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥¹¥¯¥ê¡¼¥ó
-                                        ¤Î¥¹¥¯¥ê¡¼¥ó¥Ê¥ó¥Ð
-
-        Mcolormap       Colormap        ¥Õ¥ì¡¼¥à¤Î¥«¥é¡¼¥Þ¥Ã¥×
-
-        Mdepth          unsigned        ¥Õ¥ì¡¼¥à¤Î¿¼¤µ
-@endverbatim
-
-*/
-
-void *
-mframe_get_prop (MFrame *frame, MSymbol key)
-{
-  if (key == Mface)
-    return frame->face;
-  if (key == Mfont)
-    return &frame->rface->rfont->font;
-  if (key == Mfont_width)
-    return (void *) (frame->space_width);
-  if (key == Mfont_ascent)
-    return (void *) (frame->ascent);
-  if (key == Mfont_descent)
-    return (void *) (frame->descent);
-  return (*frame->driver->get_prop) (frame, key);
-}
-
-/*=*/
-
-/***en
-    @brief The default frame.
-
-    The external variable #mframe_default contains a pointer to the
-    default frame that is created by the first call of mframe ().  */
-
-/***ja
-    @brief ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à.
-
-    ³°ÉôÊÑ¿ô #mframe_default ¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý
-    ¤Ä¡£¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ï¡¢ºÇ½é¤Ë mframe () ¤¬¸Æ¤Ó½Ð¤µ¤ì¤¿¤È¤¤Ë
-    ºî¤é¤ì¤ë¡£  */
-
-MFrame *mframe_default;
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-gui.h b/src/m17n-gui.h
deleted file mode 100644
index 0fc0c2f..0000000
--- a/src/m17n-gui.h
+++ /dev/null
@@ -1,934 +0,0 @@
-/* m17n-gui.h -- header file for the GUI API of the m17n library.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_GUI_H_
-#define _M17N_GUI_H_
-
-#ifndef _M17N_H_
-#include 
-#endif
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-extern void m17n_init_win (void);
-#undef M17N_INIT
-#define M17N_INIT() m17n_init_win ()
-
-extern void m17n_fini_win (void);
-#undef M17N_FINI
-#define M17N_FINI() m17n_fini_win ()
-
-/***en @defgroup m17nGUI GUI API */
-/***ja @defgroup m17nGUI GUI API */
-/*=*/
-
-/*** @ingroup m17nGUI */
-/***en @defgroup m17nFrame Frame */
-/***ja @defgroup m17nFrame ¥Õ¥ì¡¼¥à */
-/*=*/
-
-/*** @ingroup m17nFrame */
-/***en
-    @brief Type of frames.
-
-    The type #MFrame is for a @e frame object.  Each frame holds
-    various information about the corresponding physical display/input
-    device.
-
-    The internal structure of the type #MFrame is concealed from an
-    application program, and its contents depend on the window system
-    in use.  In the m17n-X library, it contains the information about
-    @e display and @e screen in the X Window System.  */
-
-/***ja
-    @brief ¥Õ¥ì¡¼¥à¤Î·¿Àë¸À.
-
-    #MFrame ¤Ï¡¢@e ¥Õ¥ì¡¼¥à ¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Î·¿¤Ç¤¢¤ë¡£¸Ä¡¹¤Î¥Õ¥ì¡¼¥à¤Ï¡¢
-    ¤½¤ì¤¬ÂÐ±þ¤¹¤ëÊªÍýÅª¤ÊÉ½¼¨¡¿ÆþÎÏ¥Ç¥Ð¥¤¥¹¤Î³Æ¼ï¾ðÊó¤òÊÝ»ý¤¹¤ë¡£
-
-    #MFrame ·¿¤ÎÆâÉô¹½Â¤¤Ï¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£
-    ¤Þ¤¿¤½¤ÎÆâÍÆ¤Ï»ÈÍÑ¤¹¤ë¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£¤Þ¤¿m17n-X ¥é
-    ¥¤¥Ö¥é¥ê¤Ë¤ª¤±¤ë¥Õ¥ì¡¼¥à¤Ï¡¢X ¥¦¥£¥ó¥É¥¦¤Î @e display ¤È @e screen 
-    ¤Ë´Ø¤¹¤ë¾ðÊó¤ò»ý¤Ä¡£
-      */
-
-typedef struct MFrame MFrame;
-
-/*=*/
-
-extern MSymbol Mdevice;
-
-extern MSymbol Mfont;
-extern MSymbol Mfont_width;
-extern MSymbol Mfont_ascent;
-extern MSymbol Mfont_descent;
-extern MFrame *mframe_default;
-
-extern MSymbol Mdisplay;
-extern MSymbol Mscreen;
-extern MSymbol Mdrawable;
-extern MSymbol Mwidget;
-extern MSymbol Mdepth;
-extern MSymbol Mcolormap;
-
-extern MSymbol Mx;
-
-extern MFrame *mframe (MPlist *plist);
-
-extern void *mframe_get_prop (MFrame *frame, MSymbol key);
-
-/* end of frame module */
-/*=*/
-
-/*** @ingroup m17nGUI  */
-/***en @defgroup m17nFont Font */
-/***ja @defgroup m17nFont ¥Õ¥©¥ó¥È */
-/*=*/
-
-/*** @ingroup m17nFont */
-/***en
-    @brief Type of fonts.
-
-    The type #MFont is the structure defining fonts.  It contains
-    information about the following properties of a font: foundry,
-    family, weight, style, stretch, adstyle, registry, size, and
-    resolution.
-
-    This structure is used both for specifying a font in a fontset
-    and for storing information about available system fonts.
-
-    The internal structure is concealed from an application program.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤Î·¿Àë¸À.
-
-    #MFont ·¿¤Ï¥Õ¥©¥ó¥È»ØÄêÍÑ¤Î¹½Â¤ÂÎ¤Ç¤¢¤ê¡¢¥Õ¥©¥ó¥È¤Î¥×¥í¥Ñ¥Æ¥£¤Ç¤¢
-    ¤ë foundry, family, weight, style, stretch, adstyle, registry,
-    size, resolution ¤Ë´Ø¤¹¤ë¾ðÊó¤ò´Þ¤à¡£
-
-    ¤³¤Î¹½Â¤ÂÎ¤Ï¥Õ¥©¥ó¥È¥»¥Ã¥ÈÆâ¤Î¥Õ¥©¥ó¥È¤ò»ØÄê¤¹¤ëºÝ¤È¡¢»ÈÍÑ²ÄÇ½¤Ê¥·
-    ¥¹¥Æ¥à¥Õ¥©¥ó¥È¤Î¾ðÊó¤ò³ÊÇ¼¤¹¤ëºÝ¤ÎÎ¾Êý¤ËÍÑ¤¤¤é¤ì¤ë¡£
-
-    ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-/***
-    @seealso
-    mfont (), mfont_from_name (), mfont_find ().  */
-
-typedef struct MFont MFont;
-
-/*=*/
-
-extern MSymbol Mfont;
-
-extern MPlist *mfont_freetype_path;
-
-extern MFont *mfont ();
-
-extern MFont *mfont_copy (MFont *font);
-
-extern MFont *mfont_parse_name (char *name, MSymbol format);
-
-extern char *mfont_unparse_name (MFont *font, MSymbol format);
-
-extern MFont *mfont_from_spec (char *family, char *weight, char *slant,
-			       char *swidth, char *adstyle, char *registry,
-			       unsigned short point, unsigned short res);
-
-/* These two are obsolete (from 1.1.0).  */
-extern char *mfont_name (MFont *font);
-extern MFont *mfont_from_name (char *name);
-
-extern MSymbol Mfoundry;
-extern MSymbol Mfamily;
-extern MSymbol Mweight;
-extern MSymbol Mstyle;
-extern MSymbol Mstretch;
-extern MSymbol Madstyle;
-extern MSymbol Mregistry;
-extern MSymbol Msize;
-extern MSymbol Mresolution;
-
-extern MSymbol Mfontconfig;
-
-extern void *mfont_get_prop (MFont *font, MSymbol key);
-
-extern int mfont_put_prop (MFont *font, MSymbol key, void *val);
-
-extern int mfont_set_encoding (MFont *font,
-			       MSymbol encoding_name, MSymbol repertory_name);
-
-
-/*=*/
-
-/***en
-    @brief Find a font.
-
-    The mfont_find () function returns a pointer to the available font
-    that matches best with the specification $SPEC in frame $FRAME.
-
-    $SCORE, if not NULL, must point to a place to store the score
-    value which indicates how well the found font matches $SPEC.  The
-    smaller score means a better match.
-
-    $LIMITED_SIZE, if nonzero, forces the font selector to find a
-    font not greater than the #Msize property of $SPEC.  */
-
-/***ja
-    @brief ¥Õ¥©¥ó¥È¤òÃµ¤¹.
-
-    ´Ø¿ô mfont_find () ¤Ï¡¢¥Õ¥ì¡¼¥à $FRAME ¾å¤Ç¥Õ¥©¥ó¥ÈÄêµÁ $SPEC ¤Ë¤â¤Ã
-    ¤È¤â¹çÃ×¤¹¤ë»ÈÍÑ²ÄÇ½¤Ê¥Õ¥©¥ó¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£  
-
-    $SCORE ¤Ï NULL ¤Ç¤¢¤ë¤«¡¢¸«¤Ä¤«¤Ã¤¿¥Õ¥©¥ó¥È¤¬ $SPEC ¤Ë¤É¤ì¤Û¤É¹ç¤Ã
-    ¤Æ¤¤¤ë¤«¤ò¼¨¤¹¥¹¥³¥¢¤òÊÝÂ¸¤¹¤ë¾ì½ê¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¡£¥¹¥³¥¢¤¬¾®¤µ
-    ¤¤¤Û¤ÉÎÉ¤¯¹ç¤Ã¤Æ¤¤¤ë¤³¤È¤ò°ÕÌ£¤¹¤ë¡£
-
-    $LIMITED_SIZE ¤¬ 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢$SPEC ¤Î¥×¥í¥Ñ¥Æ¥£ #Msize ¤è¤êÂç¤
-    ¤¯¤Ê¤¤¥Õ¥©¥ó¥È¤À¤±¤¬Ãµ¤µ¤ì¤ë¡£
-*/
-
-extern MFont *mfont_find (MFrame *frame, MFont *spec,
-			  int *score, int limited_size);
-
-extern MSymbol *mfont_selection_priority ();
-
-extern int mfont_set_selection_priority (MSymbol *keys);
-
-/* end of font module */
-/*=*/
-
-/*** @ingroup m17nGUI  */
-/***en @defgroup m17nFontset Fontset */
-/***ja @defgroup m17nFontset ¥Õ¥©¥ó¥È¥»¥Ã¥È */
-/*=*/
-
-typedef struct MFontset MFontset;
-
-extern MFontset *mfontset (char *name);
-
-extern MSymbol mfontset_name (MFontset *fontset);
-
-extern MFontset *mfontset_copy (MFontset *fontset, char *name);
-
-extern int mfontset_modify_entry (MFontset *fontset,
-				  MSymbol language, MSymbol script,
-				  MSymbol charset,
-				  MFont *spec, MSymbol layouter_name,
-				  int how);
-
-extern MPlist *mfontset_lookup (MFontset *fontset, MSymbol script,
-				MSymbol language, MSymbol charset);
-
-/* end of fontset module */
-/*=*/
-
-/*** @ingroup m17nGUI */
-/***en @defgroup m17nFace Face */
-/***ja @defgroup m17nFace ¥Õ¥§¡¼¥¹ */
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en
-    @brief Type of faces.
-
-    The type #MFace is the structure of face objects.  The internal
-    structure is concealed from an application program.  */
-
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î·¿Àë¸À.
-
-    #MFace ·¿¤Ï¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤Î¤¿¤á¤Î¹½Â¤ÂÎ¤Ç¤¢¤ë¡£ÆâÉô¹½Â¤¤Ï
-    ¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-typedef struct MFace MFace;
-/*=*/
-
-extern MSymbol Mforeground;
-extern MSymbol Mbackground;
-extern MSymbol Mvideomode;
-extern MSymbol Mnormal;
-extern MSymbol Mreverse;
-extern MSymbol Mhline;
-extern MSymbol Mbox;
-extern MSymbol Mfontset;
-extern MSymbol Mratio;
-extern MSymbol Mhook_func;
-extern MSymbol Mhook_arg;
-
-/* Predefined faces.  */
-extern MFace *mface_normal_video;
-extern MFace *mface_reverse_video;
-extern MFace *mface_underline;
-extern MFace *mface_medium;
-extern MFace *mface_bold;
-extern MFace *mface_italic;
-extern MFace *mface_bold_italic;
-extern MFace *mface_xx_small;
-extern MFace *mface_x_small;
-extern MFace *mface_small;
-extern MFace *mface_normalsize;
-extern MFace *mface_large;
-extern MFace *mface_x_large;
-extern MFace *mface_xx_large;
-extern MFace *mface_black;
-extern MFace *mface_white;
-extern MFace *mface_red;
-extern MFace *mface_green;
-extern MFace *mface_blue;
-extern MFace *mface_cyan;
-extern MFace *mface_yellow;
-extern MFace *mface_magenta;
-
-/* etc */
-extern MSymbol Mface;
-
-extern MFace *mface ();
-
-extern MFace *mface_copy (MFace *face);
-
-extern MFace *mface_merge (MFace *dst, MFace *src);
-
-extern MFace *mface_from_font (MFont *font);
-
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en
-    @brief Type of horizontal line spec of face.
-
-    The type #MFaceHLineProp is to specify the detail of #Mhline
-    property of a face.  The value of the property must be a pointer
-    to an object of this type.  */
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î¿åÊ¿Àþ»ØÄêÍÑ·¿Àë¸À.
-
-    #MFaceHLineProp ¤Ï¥Õ¥§¡¼¥¹¤Î #Mhline ¥×¥í¥Ñ¥Æ¥£¤Î¾ÜºÙ¤ò»ØÄê¤¹¤ë·¿
-    ¤Ç¤¢¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¤³¤Î·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-      */
-
-typedef struct
-{
-  /***en Type of the horizontal line.  */
-  /***ja ¿åÊ¿Àþ¤Î¥¿¥¤¥×.  */
-  enum MFaceHLineType
-    {
-      MFACE_HLINE_BOTTOM,      
-      MFACE_HLINE_UNDER,
-      MFACE_HLINE_STRIKE_THROUGH,
-      MFACE_HLINE_OVER,
-      MFACE_HLINE_TOP
-    } type;
-
-  /***en Width of the line in pixels.  */
-  /***ja ÀþÉý¡Ê¥Ô¥¯¥»¥ëÃ±°Ì¡Ë.  */
-  unsigned width;
-
-  /***en Color of the line.  If the value is Mnil, foreground color of
-      a merged face is used.  */
-  /***ja Àþ¤Î¿§.  Mnil ¤Ê¤é¤Ð¡¢Åý¹ç¤·¤¿¥Õ¥§¡¼¥¹¤ÎÁ°·Ê¿§¤¬»È¤ï¤ì¤ë¡£  */
-  
-  MSymbol color;
-} MFaceHLineProp;
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en
-    @brief Type of box spec of face.
-
-    The type #MFaceBoxProp is to specify the detail of #Mbox property
-    of a face.  The value of the property must be a pointer to an
-    object of this type.  */
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î°Ï¤ßÏÈ»ØÄêÍÑ·¿Àë¸À.
-
-    #MFaceBoxProp ¤Ï¥Õ¥§¡¼¥¹¤Î #Mbox ¥×¥í¥Ñ¥Æ¥£¤Î¾ÜºÙ¤ò»ØÄê¤¹¤ë·¿¤Ç¤¢
-    ¤ë¡£¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¤³¤Î·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-      */
-
-typedef struct
-{
-  /***en Width of the box line in pixels.  */
-  /***ja ÀþÉý¡Ê¥Ô¥¯¥»¥ëÃ±°Ì¡Ë.  */
-  unsigned width;
-
-  MSymbol color_top;
-  MSymbol color_bottom;
-  MSymbol color_left;
-  MSymbol color_right;
-
-  unsigned inner_hmargin;
-  unsigned inner_vmargin;
-  unsigned outer_hmargin;
-  unsigned outer_vmargin;
-
-} MFaceBoxProp;
-/*=*/
-
-/*** @ingroup m17nFace */
-/***en
-    @brief Type of hook function of face.
-
-    The type #MFaceHookFunc is to specify the #Mhook property of a
-    face.  The value of the property must be function of this
-    type.  */
-/***ja
-    @brief ¥Õ¥§¡¼¥¹¤Î¥Õ¥Ã¥¯´Ø¿ô¤Î·¿Àë¸À.
-
-    #MFaceHookFunc ¤Ï¥Õ¥§¡¼¥¹¤Î #Mhook ¥×¥í¥Ñ¥Æ¥£¤ò»ØÄê¤¹¤ë·¿¤Ç¤¢¤ë¡£
-    ¤³¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï¡¢¤³¤Î·¿¤Î´Ø¿ô¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-      */
-typedef void (*MFaceHookFunc) (MFace *face, void *arg, void *info);
-/*=*/
-
-extern void *mface_get_prop (MFace *face, MSymbol key);
-
-extern int mface_put_prop (MFace *face, MSymbol key, void *val);
-
-extern void mface_update (MFrame *frame, MFace *face);
-
-/* end of face module */
-/*=*/
-
-/*** @ingroup m17nGUI */
-/***en @defgroup m17nDraw Drawing */
-/***ja @defgroup m17nDraw É½¼¨ */
-/*=*/
-
-/*** @ingroup m17nDraw */
-/***en
-    @brief Window system dependent type for a window.
-
-    The type #MDrawWindow is for a window; a rectangular area that
-    works in several ways like a miniature screen.
-
-    What it actually points depends on a window system.  A program
-    that uses the m17n-X library must coerce the type @c Drawable to
-    this type.  */
-/***ja 
-    @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡¢¥¦¥£¥ó¥É¥¦¤Î·¿Àë¸À.
-
-    #MDrawWindow ¤Ï¥¦¥£¥ó¥É¥¦¡¢¤¹¤Ê¤ï¤Á´ö¤Ä¤«¤ÎÅÀ¤Ç¥¹¥¯¥ê¡¼¥ó¤Î¥ß¥Ë¥Á¥å
-    ¥¢¤È¤·¤ÆÆ¯¤¯¶ë·ÁÎÎ°èÍÑ¤Î·¿¤Ç¤¢¤ë¡£
-
-    ¼ÂºÝ¤Ë²¿¤ò»Ø¤¹¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£ m17n X ¥é¥¤¥Ö¥é¥ê
-    ¤òÍøÍÑ¤¹¤ë¥×¥í¥°¥é¥à¤Ï @c Drawable ·¿¤ò¤³¤Î·¿¤ËÊÑ´¹¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é
-    ¤Ê¤¤¡£ */
-
-typedef void *MDrawWindow;
-/*=*/
-
-/*** @ingroup m17nDraw */
-/***en
-    @brief Window system dependent type for a region.
-
-    The type #MDrawRegion is for a region; an arbitrary set of pixels
-    on the screen (typically a rectangular area).
-
-    What it actually points depends on a window system.  A program
-    that uses the m17n-X library must coerce the type @c Region to
-    this type.  */
-/***ja
-    @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡¢ÎÎ°è¤Î·¿Àë¸À.
-
-    #MDrawRegion ¤ÏÎÎ°è¡¢¤¹¤Ê¤ï¤Á¥¹¥¯¥ê¡¼¥ó¾å¤ÎÇ¤°Õ¤Î¥Ô¥¯¥»¥ë¤Î½¸¹ç
-   ¡ÊÅµ·¿Åª¤Ë¤Ï¶ë·ÁÎÎ°è¡ËÍÑ¤Î·¿¤Ç¤¢¤ë¡£
-
-    ¼ÂºÝ¤Ë²¿¤ò»Ø¤¹¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£ m17n X ¥é¥¤¥Ö¥é¥ê
-    ¤òÍøÍÑ¤¹¤ë¥×¥í¥°¥é¥à¤Ï @c Region ·¿¤ò¤³¤Î·¿¤ËÊÑ´¹¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é
-    ¤Ê¤¤¡£  */
-
-typedef void *MDrawRegion;
-/*=*/
-
-/*** @ingroup m17nDraw */
-/***en
-    @brief Type of a text drawing control.
-
-    The type #MDrawControl is the structure that controls how to draw
-    an M-text.  */
-/***ja
-    @brief ¥Æ¥¥¹¥ÈÉ½¼¨À©¸æ¤Î·¿Àë¸À.
-
-    #MDrawControl ·¿¤Ï¡¢M-text ¤ò¤É¤¦É½¼¨¤¹¤ë¤«¤òÀ©¸æ¤¹¤ë¹½Â¤ÂÎ¤Ç¤¢¤ë¡£
-      */
-
-
-typedef struct
-{
-  /***en If nonzero, draw an M-text as image, i.e. with background
-      filled with background colors of faces put on the M-text.
-      Otherwise, the background is not changed.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ M-text ¤ò²èÁü¤È¤·¤Æ¡¢¤¹¤Ê¤ï¤ÁÇØ·Ê¤ò M-text ¤Î
-      ¥Õ¥§¡¼¥¹¤Ç»ØÄê¤µ¤ì¤Æ¤¤¤ëÇØ·Ê¿§¤ÇËä¤á¤ÆÉ½¼¨¤¹¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤ÐÇØ
-      ·Ê¤ÏÊÑ¤ï¤é¤Ê¤¤¡£  */
-  unsigned as_image : 1;
-
-  /***en If nonzero and the first glyph of each line has negative
-      lbearing, shift glyphs horizontally to right so that no pixel is
-      drawn to the left of the specified position.  */
-  /***ja 0 ¤Ç¤Ê¤¯¡¢³Æ¹Ô¤ÎºÇ½é¤Î¥°¥ê¥Õ¤Îlbearing ¤¬Éé¤Ê¤é¤Ð¡¢¥°¥ê¥Õ¤ò¿å
-      Ê¿¤Ë±¦¤Ë¤º¤é¤·¤Æ¡¢»ØÄê¤·¤¿°ÌÃÖ¤è¤êº¸¤Ë¥Ô¥¯¥»¥ë¤¬ÉÁ¤«¤ì¤Ê¤¤¤è¤¦¤Ë
-      ¤¹¤ë¡£  */
-  unsigned align_head : 1;
-
-  /***en If nonzero, draw an M-text two-dimensionally, i.e., newlines
-      in M-text breaks lines and the following characters are drawn in
-      the next line.  If  is non-NULL, and the function
-      returns nonzero line width, a line longer than that width is
-      also broken.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢M-text ¤ò£²¼¡¸µÅª¤Ë¡¢¤¹¤Ê¤ï¤ÁM-text Ãæ¤Î 
-      newline ¤Ç²þ¹Ô¤·¡¢Â³¤¯Ê¸»ú¤Ï¼¡¤®¤Î¹Ô¤ËÉ½¼¨¤¹¤ë¡£¤â¤·  ¤¬ 
-      NULL ¤Ç¤Ê¤¯¡¢¤½¤Î´Ø¿ô¤¬ 0 ¤Ç¤Ê¤¤¹ÔÉý¤òÊÖ¤»¤Ð¡¢¤½¤ÎÉý¤è¤êÄ¹¤¤¹Ô¤â
-      ²þ¹Ô¤µ¤ì¤ë¡£  */
-  unsigned two_dimensional : 1;
-
-  /***en If nonzero, draw an M-text to the right of a specified
-      position.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢M-text ¤ò»ØÄê¤·¤¿°ÌÃÖ¤Î±¦¤ËÉ½¼¨¤¹¤ë¡£  */
-  unsigned orientation_reversed : 1;
-
-  /***en If nonzero, reorder glyphs correctly for bidi text.  */ 
-  /***ja 0 ¤Ê¤±¤ì¤Ð¡¢bidi ¥Æ¥¥¹¥ÈÍÑ¤Ë¥°¥ê¥Õ¤òÀµ¤·¤¯À°Îó¤¹¤ë¡£  */
-  unsigned enable_bidi : 1;
-
-  /***en If nonzero, don't draw characters whose general category (in
-      Unicode) is Cf (Other, format).  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢¥æ¥Ë¥³¡¼¥É¤ËÃÖ¤±¤ë°ìÈÌ¥«¥Æ¥´¥ê¤¬ Cf (Other,
-      format) ¤Ç¤¢¤ëÊ¸»ú¤òÉ½¼¨¤·¤Ê¤¤¡£  */
-  unsigned ignore_formatting_char : 1;
-
-  /***en If nonzero, draw glyphs suitable for a terminal.  Not yet
-      implemented.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢Ã¼ËöÍÑ¤Î¥°¥ê¥Õ¤òÉ½¼¨¤¹¤ë¡£¡ÊÌ¤¼ÂÁõ¡£¡Ë  */
-  unsigned fixed_width : 1;
-
-  /***en If nonzero, draw glyphs with anti-aliasing if a backend font
-      driver supports it.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢¥¢¥ó¥Á¥¨¡¼¥ê¥¢¥¹¤Ç¥°¥ê¥Õ¤òÉ½¼¨¤¹¤ë¡£¡Ê¥Ð¥Ã¥¯¥¨
-      ¥ó¥É¤Î¥Õ¥©¥ó¥È¥É¥é¥¤¥Ð¤¬¥¢¥ó¥Á¥¨¡¼¥ê¥¢¥¹µ¡Ç½¤ò¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¾ì
-      ¹ç¤Î¤ß¡£¡Ë */
-  unsigned anti_alias : 1;
-
-  /***en If nonzero, the values are minimum line ascent and descent
-      pixels.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï¹Ô¤Î ascent ¤È descent ¤ÎºÇ¾®ÃÍ¤ò¼¨¤¹¡£  */
-  unsigned int min_line_ascent;
-  unsigned int min_line_descent;
-
-  /***en If nonzero, the values are maximum line ascent and descent
-      pixels.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï¹Ô¤Î ascent ¤È descent ¤ÎºÇÂçÃÍ¤ò¼¨¤¹¡£  */
-  unsigned int max_line_ascent;
-  unsigned int max_line_descent;
-
-  /***en If nonzero, the value specifies how many pixels each line can
-      occupy on the display.  The value zero means that there is no
-      limit.  It is ignored if  is non-NULL.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï¤³¤Î¥Ç¥£¥¹¥×¥ì¥¤¾å¤Ç³Æ¹Ô¤¬Àê¤á¤ë¤³¤È¤Î¤Ç¤
-      ¤ë¥Ô¥¯¥»¥ë¿ô¤ò¼¨¤¹¡£ 0 ¤Ï¸ÂÄê¤µ¤ì¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¡£ ¤¬
-      NULL ¤Ç¤Ê¤±¤ì¤ÐÌµ»ë¤µ¤ì¤ë¡£   */
-  unsigned int max_line_width;
-
-  /***en If nonzero, the value specifies the distance between tab
-      stops in columns (the width of one column is the width of a
-      space in the default font of the frame).  The value zero means
-      8.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï¥¿¥Ö¥¹¥È¥Ã¥×´Ö¤Îµ÷Î¥¤ò¥³¥é¥àÃ±°Ì¡Ê¥³¥é¥à¤Ï
-      ¥Õ¥ì¡¼¥à¤Î¥Ç¥Õ¥©¥ë¥È¥Õ¥©¥ó¥È¤Ë¤ª¤±¤ë¶õÇòÊ¸»ú¤ÎÉý¤Ç¤¢¤ë¡Ë¤Ç¼¨¤¹¡£ 
-      0 ¤Ï 8 ¤ò°ÕÌ£¤¹¤ë¡£ */
-  unsigned int tab_width;
-
-  /***en If non-NULL, the value is a function that calculates the
-      indentation and width limit of each line based on the line
-      number LINE and the coordinate Y.  The function store the
-      indentation and width limit at the place pointed by INDENT and
-      WIDTH respectively.
-
-      The indentation specifies how many pixels the first glyph of
-      each line is shifted to the right (if the member
-       is zero) or to the left (otherwise).  If
-      the value is negative, each line is shifted to the reverse
-      direction.
-
-      The width limit specifies how many pixels each line can occupy
-      on the display.  The value 0 means that there is no limit.
-
-      LINE and Y are reset to 0 when a line is broken by a newline
-      character, and incremented each time when a long line is broken
-      because of the width limit.
-
-      This has an effect only when  is nonzero.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï´Ø¿ô¤Ç¤¢¤ê¡¢¤½¤Î´Ø¿ô¤Ï¹ÔÈÖ¹æ LINE ¤ÈºÂÉ¸ Y 
-      ¤Ë´ð¤Å¤¤¤Æ³Æ¹Ô¤Î¥¤¥ó¥Ç¥ó¥È¤ÈºÇÂçÉý¤ò·×»»¤·¡¢¤½¤ì¤¾¤ì¤òINDENT ¤È
-      WIDTH ¤Ç»Ø¤µ¤ì¤ë¾ì½ê¤ËÊÝÂ¸¤¹¤ë¡£
-
-      ¥¤¥ó¥Ç¥ó¥È¤Ï¡¢³Æ¹Ô¤ÎºÇ½é¤Î¥°¥ê¥Õ¤¬±¦¡Ê¥á¥ó¥Ð 
-       ¤¬ 0 ¤Î»þ¡Ë¤¢¤ë¤¤¤Ïº¸¡Ê¤½¤ì°Ê³°¤Î»þ¡Ë¤Ë²¿
-      ¥Ô¥¯¥»¥ë¤º¤é¤¹¤ò»ØÄê¤¹¤ë¡£ÃÍ¤¬Éé¤Ê¤é¤ÐµÕÊý¸þ¤Ë¤º¤é¤¹¡£
-
-      ºÇÂçÉý¤Ï¡¢³Æ¹Ô¤¬¥Ç¥£¥¹¥×¥ì¥¤¾å¤ÇÀê¤á¤ë¤³¤È¤Î¤Ç¤¤ë¥Ô¥¯¥»¥ë¿ô¤ÎºÇ
-      ÂçÃÍ¤Ç¤¢¤ë¡£ÃÍ¤¬ 0 ¤Î¾ì¹ç¤ÏÀ©¸Â¤ò¼õ¤±¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¡£
-
-      LINE ¤È Y ¤Ï²þ¹ÔÊ¸»ú¤Ë¤è¤Ã¤Æ¹Ô¤¬²þ¤Þ¤Ã¤¿ºÝ¤Ë¤Ï 0 ¤Ë¥ê¥»¥Ã¥È¤µ¤ì¡¢
-      ºÇÂçÉý¤Ë¤è¤Ã¤Æ¹Ô¤¬²þ¤Þ¤Ã¤¿¾ì¹ç¤Ë¤Ï 1 ¤Å¤ÄÁý¤ä¤µ¤ì¤ë¡£
-
-      ¤³¤ì¤Ï  ¤¬ 0 ¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Î¤ßÍ¸ú¤Ç¤¢¤ë¡£  */
-  void (*format) (int line, int y, int *indent, int *width);
-
-  /***en If non-NULL, the value is a function that calculates a line
-      breaking position when a line is too long to fit within the
-      width limit.  POS is the position of the character next to the
-      last one that fits within the limit.  FROM is the position of the
-      first character of the line, and TO is the position of the last
-      character displayed on the line if there were not width limit.
-      LINE and Y are the same as the arguments to .
-
-      The function must return a character position to break the
-      line.
-
-      The function should not modify MT.
-
-      The mdraw_default_line_break () function is useful for such a
-      script that uses SPACE as a word separator.  */
-  /***ja NULL ¤Ç¤Ê¤±¤ì¤Ð¡¢ÃÍ¤Ï¹Ô¤¬ºÇÂçÉýÃæ¤Ë¼ý¤Þ¤é¤Ê¤¤¾ì¹ç¤Ë¹Ô¤ò²þ¤á¤ë
-      °ÌÃÖ¤ò·×»»¤¹¤ë´Ø¿ô¤Ç¤¢¤ë¡£POS ¤ÏºÇÂçÉý¤Ë¼ý¤Þ¤ëºÇ¸å¤ÎÊ¸»ú¤Î¼¡¤ÎÊ¸
-      »ú¤Î°ÌÃÖ¤Ç¤¢¤ë¡£FROM ¤Ï¹Ô¤ÎºÇ½é¤ÎÊ¸»ú¤Î°ÌÃÖ¡¢TO ¤ÏºÇÂçÉý¤¬»ØÄê¤µ
-      ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤½¤Î¹Ô¤ËÉ½¼¨¤µ¤ì¤ëºÇ¸å¤ÎÊ¸»ú¤Î°ÌÃÖ¤Ç¤¢¤ë¡£LINE ¤È 
-      Y ¤Ï  ¤Î°ú¿ô¤ÈÆ±¤¸¤Ç¤¢¤ë¡£
-
-      ¤³¤Î´Ø¿ô¤Ï¹Ô¤ò²þ¤á¤ëÊ¸»ú°ÌÃÖ¤òÊÖ¤µ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¤Þ¤¿MT ¤ò
-      ÊÑ¹¹¤·¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-      ´Ø¿ô mdraw_default_line_break () ¤Ï¡¢¶õÇò¤ò¸ì¤Î¶èÀÚ¤ê¤È¤·¤ÆÍÑ¤¤
-      ¤ë¥¹¥¯¥ê¥×¥ÈÍÑ¤È¤·¤ÆÍÑ¤¤¤ë¤³¤È¤¬¤Ç¤¤ë¡£  */
-  int (*line_break) (MText *mt, int pos, int from, int to, int line, int y);
-
-  int with_cursor;
-
-  /***en Specifies the character position to display a cursor.  If it
-      is greater than the maximum character position, the cursor is
-      displayed next to the last character of an M-text.  If the value
-      is negative, even if  is nonzero, cursor is not
-      displayed.  */
-  /***ja ¥«¡¼¥½¥ë¤òÉ½¼¨¤¹¤ëÊ¸»ú°ÌÃÖ¤ò¼¨¤¹¡£ºÇÂç¤ÎÊ¸»ú°ÌÃÖ¤è¤êÂç¤¤±¤ì
-      ¤Ð¡¢¥«¡¼¥½¥ë¤ÏM-text ¤ÎºÇ¸å¤ÎÊ¸»ú¤ÎÎÙ¤ËÉ½¼¨¤µ¤ì¤ë¡£Éé¤Ê¤é¤Ð¡¢
-       ¤¬ 0 ¤Ç¤Ê¤¯¤Æ¤â¥«¡¼¥½¥ë¤ÏÉ½¼¨¤µ¤ì¤Ê¤¤¡£
-        */
-  int cursor_pos;
-
-  /***en If nonzero, display a cursor at the character position
-      .  If the value is positive, it is the pixel width
-      of the cursor.  If the value is negative, the cursor width is
-      the same as the underlining glyph(s).  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ ¤Ë¥«¡¼¥½¥ë¤òÉ½¼¨¤¹¤ë¡£ÃÍ¤¬Àµ¤Ê¤é¤Ð¡¢
-      ¥«¡¼¥½¥ë¤ÎÉý¤Ï¤½¤ÎÃÍ¡Ê¥Ô¥¯¥»¥ëÃ±°Ì¡Ë¤Ç¤¢¤ë¡£Éé¤Ê¤é¤Ð¡¢¥«¡¼¥½¥ë¤Î
-      ¤¢¤ë¥°¥ê¥Õ¤ÈÆ±¤¸Éý¤Ç¤¢¤ë¡£  */
-  int cursor_width;
-
-  /***en If nonzero and  is also nonzero, display double
-      bar cursors; at the character position  and at the
-      logically previous character.  Both cursors have one pixel width
-      with horizontal fringes at upper or lower positions.  */
-  /***ja If 0 ¤Ç¤Ê¤¯¡¢¤«¤Ä  ¤â 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢¥Ð¡¼¥«¡¼¥½
-      ¥ë¤òÊ¸»ú°ÌÃÖ ¤ÈÏÀÍýÅª¤Ë¤½¤ì¤ÎÁ°¤Ë¤¢¤ëÊ¸»ú¤Î£²¥ö½êÉ½
-      ¼¨¤¹¤ë¡£ÁÐÊý¤È¤â£±¥Ô¥¯¥»¥ëÉý¤Ç¡¢¾å²¼¤Ë¿åÊ¿¤Î¾þ¤ê¤¬¤Ä¤¯¡£*/
-  int cursor_bidi;
-
-  /***en If nonzero, on drawing partial text, pixels of surrounding
-      texts that intrude into the drawing area are also drawn.  For
-      instance, some CVC sequence of Thai text (C is consonant, V is
-      upper vowel) is drawn so that V is placed over the middle of two
-      Cs.  If this CVC sequence is already drawn and only the last C
-      is drawn again (for instance by updating cursor position), the
-      right half of V is erased if this member is zero.  By setting
-      this member to nonzero, even with such a drawing, we can keep
-      this CVC sequence correctly displayed.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢¥Æ¥¥¹¥È¤Î°ìÉôÊ¬¤òÉ½¼¨¤¹¤ëºÝ¤Ë¡¢Á°¸å¤Î¥Æ¥¥¹¥È
-      ¤Î¤¦¤Á¤½¤ÎÉ½¼¨ÎÎ°è¤Ë¿¯Æþ¤¹¤ëÉôÊ¬¤âÉ½¼¨¤¹¤ë¡£¤¿¤È¤¨¤Ð¡¢¥¿¥¤¸ìÊ¸½ñ
-      ¤Î»Ò²»-Êì²»-»Ò²»¤È¤¤¤¦¥·¡¼¥¯¥¨¥ó¥¹¤Î¤¤¤¯¤Ä¤«¤Ï¡¢Êì²»¤¬Æó¤Ä¤Î»Ò²»
-      ¤Î´Ö¤Ë¾å¤Ë¤Î¤ë¤è¤¦¤ËÉÁ¤«¤ì¤ë¡£¤³¤Î¤è¤¦¤Ê¥·¡¼¥¯¥¨¥ó¥¹¤¬¤¹¤Ç¤ËÉÁ¤«
-      ¤ì¤Æ¤ª¤ê¡¢ºÇ¸å¤Î»Ò²»¤À¤±¤òÉÁ¤Ä¾¤¹¾ì¹ç¡Ê¤¿¤È¤¨¤Ð¡¢¥«¡¼¥½¥ë°ÌÃÖ¤ò
-      ¹¹¿·¤¹¤ëºÝ¤Ê¤É¡Ë¤³¤Î¥á¥ó¥Ð¤¬ 0 ¤Ç¤¢¤ì¤Ð¡¢Êì²»¤Î±¦È¾Ê¬¤¬¾Ã¤µ¤ì¤Æ
-      ¤·¤Þ¤¦¡£¤³¤ì¤ò 0 °Ê³°¤Ë¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¤½¤Î¤è¤¦¤ÊºÝ¤Ë¤â»Ò²»-Êì
-      ²»-»Ò²»¥·¡¼¥¯¥¨¥ó¥¹¤òÀµ¤·¤¯É½¼¨¤·Â³¤±¤ë¤³¤È¤¬¤Ç¤¤ë¡£  */
-  int partial_update;
-
-  /***en If nonzero, don't cache the result of any drawing information
-      of an M-text.  */
-  /***ja 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢M-text ¤ÎÉ½¼¨¤Ë´Ø¤¹¤ë¾ðÊó¤ò¥¥ã¥Ã¥·¥å¤·¤Ê¤¤¡£
-       */
-  int disable_caching;
-
-  /* If non-NULL, limit the drawing effect to the specified region.  */
-  MDrawRegion clip_region;
-
-} MDrawControl;
-
-/*=*/
-
-/*** @ingroup m17nDraw */
-/***en
-    @brief Type of metric for gylphs and texts.
-
-    The type #MDrawMetric is for a metric of a glyph and a drawn text.
-    It is also used to represent a rectangle area of a graphic
-    device.  */
-/***ja
-    @brief ¥°¥ê¥Õ¤È¥Æ¥¥¹¥È¤ÎÀ£Ë¡¤Î·¿Àë¸À.
-
-    #MDrawMetric ¤Ï¥°¥ê¥Õ¤ÈÉ½¼¨¤µ¤ì¤¿¥Æ¥¥¹¥È¤ÎÀ£Ë¡ÍÑ¤Î·¿¤Ç¤¢¤ë¡£¤Þ¤¿¡¢
-    É½¼¨¥Ç¥Ð¥¤¥¹¤Î¶ë·ÁÎÎ°è¤òÉ½¤¹¤Î¤Ë¤âÍÑ¤¤¤é¤ì¤ë¡£ */
-
-typedef struct {
-  int x, y;
-  unsigned int width, height;
-} MDrawMetric;
-
-/*=*/
-
-/*** @ingroup m17nDraw */
-/***en
-    @brief Type of information about a glyph.
-
-    The type #MDrawGlyphInfo is the structure that contains
-    information about a glyph.  It is used by mdraw_glyph_info ().  */
-/***ja
-    @brief ¥°¥ê¥Õ¤Ë´Ø¤¹¤ë¾ðÊó¤Î·¿Àë¸À.
-
-    #MDrawGlyphInfo ·¿¤Ï¥°¥ê¥Õ¤Ë´Ø¤¹¤ë¾ðÊó¤ò´Þ¤à¹½Â¤ÂÎ¤Ç¤¢¤ë¡£
-    mdraw_glyph_info () ¤Ï¤³¤ì¤òÍÑ¤¤¤ë¡£  */
-
-typedef struct
-{
-  /***en Character range corresponding to the glyph.  */
-  /***ja ¥°¥ê¥Õ¤ËÂÐ±þ¤¹¤ëÊ¸»ú¤ÎÈÏ°Ï.  */
-  int from, to;
-
-  /***en Character ranges corresponding to the line of the glyph.  */
-  /***ja  ¥°¥ê¥Õ¤ÎÎó¤ËÂÐ±þ¤¹¤ëÊ¸»ú¤ÎÈÏ°Ï.  */
-  int line_from, line_to;
-
-  /***en X/Y coordinates of the glyph.  */
-  /***ja ¥°¥ê¥Õ¤Î X/Y ºÂÉ¸.  */
-  int x, y;
-
-  /***en Metric of the glyph.  */
-  /***ja ¥°¥ê¥Õ¤ÎÀ£Ë¡.  */
-  MDrawMetric this;
-
-  /***en Font used for the glyph.  Set to NULL if no font is found for
-      the glyph.  */
-  /***ja ¥°¥ê¥Õ¤Ë»È¤ï¤ì¤ë¥Õ¥©¥ó¥È¡£¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð NULL¡£
-      the glyph.  */
-  MFont *font;
-
-  /***en Character ranges corresponding to logically previous and next
-      glyphs.  Note that we do not need the members prev_to and
-      next_from because they must be the same as the members from and
-      to respectively.  */
-  /***ja ÏÀÍýÅª¤ÊÁ°¸å¤Î¥°¥ê¥Õ¤ËÂÐ±þ¤¹¤ëÊ¸»ú¤ÎÈÏ°Ï¡£¥á¥ó¥Ð prev_to ¤È
-      next_from ¤Ï¡¢¤½¤ì¤¾¤ì¥á¥ó¥Ð from ¤Èto ¤ÈÆ±¤¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤
-      ¤¿¤áÉÔÍ×¤Ç¤¢¤ë¤³¤È¤ËÃí°Õ¡£  */
-  int prev_from, next_to;
-
-  /***en Character ranges corresponding to visually left and right
-      glyphs. */
-  /***ja É½¼¨¾å¤Îº¸±¦¤Î¥°¥ê¥Õ¤ËÂÐ±þ¤¹¤ëÊ¸»ú¤ÎÈÏ°Ï¡£  */
-  int left_from, left_to;
-  int right_from, right_to;
-
-  /***en Font glyph code of the glyph.  */
-  /***ja ¥Õ¥©¥ó¥ÈÆâ¤Î¥°¥ê¥Õ¥³¡¼¥É¡£  */
-  int glyph_code;
-
-  /***en Logical width of the glyph.  Nominal distance to the next
-      glyph.  */
-  /***ja ¥°¥ê¥Õ¤ÎÏÀÍýÅªÉý¡£¼¡¤Î¥°¥ê¥Õ¤È¤ÎÌ¾ÌÜ¾å¤Îµ÷Î¥¡£  */
-  int logical_width;
-
-} MDrawGlyphInfo;
-
-/*=*/
-
-/***en
-    @brief Type of text items.
-
-    The type #MDrawTextItem is for @e textitem objects.
-    Each textitem contains an M-text and some other information to
-    control the drawing of the M-text.  */
-
-/***ja
-    @brief textitem ¤Î·¿Àë¸À.
-
-    #MDrawTextItem ¤Ï @e ¥Æ¥¥¹¥È¥¢¥¤¥Æ¥à ¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Î·¿¤Ç¤¢¤ë¡£³Æ
-    ¥Æ¥¥¹¥È¥¢¥¤¥Æ¥à¤Ï¡¢1¸Ä¤Î M-text ¤È¡¢¤½¤ÎÉ½¼¨¤òÀ©¸æ¤¹¤ë¤¿¤á¤Î³Æ¼ï
-    ¾ðÊó¤ò´Þ¤ó¤Ç¤¤¤ë¡£
-
-    @latexonly \IPAlabel{MTextItem} @endlatexonly  */
-
-typedef struct
-{
-  /***en M-text. */
-  /***ja M-text. */
-  MText *mt;                      
-
-  /***en Optional change in the position (in the unit of pixel) along
-      the X-axis before the M-text is drawn.  */
-  /***ja M-text É½¼¨Á°¤Ë¹Ô¤Ê¤¦X¼´Êý¸þ¤Î°ÌÃÖÄ´À° (¥Ô¥¯¥»¥ëÃ±°Ì) */
-  int delta;                     
-
-  /***en Pointer to a face object.  Each property of the face, if not
-      Mnil, overrides the same property of face(s) specified as a text
-      property in .  */
-  /***ja ¥Õ¥§¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¡£¥Õ¥§¡¼¥¹¤Î³Æ¥×¥í¥Ñ¥Æ¥£¤Ï 
-      Mnil ¤Ç¤Ê¤±¤ì¤Ð  ¤Ç»ØÄê¤µ¤ì¤¿¥Õ¥§¡¼¥¹¤ÎÆ±¤¸¥×¥í¥Ñ¥Æ¥£¤ËÍ¥Àè
-      ¤¹¤ë*/
-  MFace *face;
-
-  /***en Pointer to a draw control object.  The M-text  is drawn
-      by mdraw_text_with_control () with this control object.  */
-  /***ja É½¼¨À©¸æ¥ª¥Ö¥¸¥§¥¯¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¡£ mdraw_text_with_control () 
-      ¤Ï¤³¤Î¥ª¥Ö¥¸¥§¥¯¥È¤òÍÑ¤¤¤Æ M-text  ¤òÉ½¼¨¤¹¤ë¡£  */
-  MDrawControl *control;
-
-} MDrawTextItem;
-
-/*=*/
-
-extern int mdraw_text (MFrame *frame, MDrawWindow win, int x, int y,
-		       MText *mt, int from, int to);
-
-extern int mdraw_image_text (MFrame *frame, MDrawWindow win, int x, int y,
-			     MText *mt, int from, int to);
-
-extern int mdraw_text_with_control (MFrame *frame, MDrawWindow win,
-				    int x, int y, MText *mt, int from, int to,
-				    MDrawControl *control);
-
-extern int mdraw_coordinates_position (MFrame *frame,
-				       MText *mt, int from, int to,
-				       int x, int y, MDrawControl *control);
-
-extern int mdraw_text_extents (MFrame *frame,
-			       MText *mt, int from, int to,
-			       MDrawControl *control,
-			       MDrawMetric *overall_ink_return,
-			       MDrawMetric *overall_logical_return,
-			       MDrawMetric *overall_line_return);
-
-extern int mdraw_text_per_char_extents (MFrame *frame,
-					MText *mt, int from, int to,
-					MDrawControl *control,
-					MDrawMetric *ink_array_return,
-					MDrawMetric *logical_array_return,
-					int array_size,
-					int *num_chars_return,
-					MDrawMetric *overall_ink_return,
-					MDrawMetric *overall_logical_return);
-
-extern int mdraw_glyph_info (MFrame *frame, MText *mt, int from, int pos,
-			     MDrawControl *control, MDrawGlyphInfo *info);
-
-extern int mdraw_glyph_list (MFrame *frame, MText *mt, int from, int to,
-			     MDrawControl *control, MDrawGlyphInfo *info,
-			     int array_size, int *num_glyphs_return);
-
-extern void mdraw_text_items (MFrame *frame, MDrawWindow win, int x, int y,
-			      MDrawTextItem *items, int nitems);
-
-extern void mdraw_per_char_extents (MFrame *frame, MText *mt,
-				    MDrawMetric *array_return,
-				    MDrawMetric *overall_return);
-
-extern int mdraw_default_line_break (MText *mt, int pos,
-				     int from, int to, int line, int y);
-
-extern void mdraw_clear_cache (MText *mt);
-
-/* end of drawing module */
-/*=*/
-
-/*** @ingroup m17nGUI */
-/***en @defgroup m17nInputMethodWin Input Method (GUI) */
-/***ja @defgroup m17nInputMethodWin ÆþÎÏ¥á¥½¥Ã¥É (GUI) */
-/*=*/
-
-extern MInputDriver minput_gui_driver;
-
-/*=*/
-/*** @ingroup m17nInputMethodWin */
-/***en 
-    @brief Type of the argument to the function minput_create_ic ().
-
-    The type #MInputGUIArgIC is for the argument $ARG of the function
-    minput_create_ic () to create an input context of an internal
-    input method.  */
-
-/***ja
-    @brief ´Ø¿ô minput_create_ic () ¤Î°ú¿ô¤Î·¿Àë¸À.
-
-    #MInputGUIArgIC ¤Ï¡¢´Ø¿ô minput_create_ic () ¤¬ÆâÉôÆþÎÏ¥á¥½¥Ã¥É¤Î
-    ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÀ¸À®¤¹¤ëºÝ¤Î¡¢°ú¿ô $ARG ÍÑ¤Î·¿¤Ç¤¢¤ë¡£  */
-
-typedef struct
-{
-  /***en Frame of the client.  */
-  /***ja ¥¯¥é¥¤¥¢¥ó¥È¤Î¥Õ¥ì¡¼¥à  */
-  MFrame *frame;
-
-  /***en Window on which to display the preedit and status text.  */
-  /***ja preedit ¥Æ¥¥¹¥È¤È status ¥Æ¥¥¹¥È¤òÉ½¼¨¤¹¤ë¥¦¥£¥ó¥É¥¦  */
-  MDrawWindow client;
-
-  /***en Window that the input context has a focus on.  */
-  /***ja ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤¬¥Õ¥©¡¼¥«¥¹¤ò¤ª¤¤¤Æ¤¤¤ë¥¦¥£¥ó¥É¥¦  */
-  MDrawWindow focus;
-} MInputGUIArgIC;
-
-/*=*/
-
-extern MSymbol minput_event_to_key (MFrame *frame, void *event);
-
-/* end of input module */
-/*=*/
-/* end of window modules */
-/*=*/
-
-extern MFace *mdebug_dump_face (MFace *face, int indent);
-extern MFont *mdebug_dump_font (MFont *font);
-extern MFontset *mdebug_dump_fontset (MFontset *fontset, int indent);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* _M17N_GUI_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n-misc.h b/src/m17n-misc.h
deleted file mode 100644
index e848a23..0000000
--- a/src/m17n-misc.h
+++ /dev/null
@@ -1,124 +0,0 @@
-/* m17n-misc.h -- header file for the MISC API.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_ERR_H_
-#define _M17N_ERR_H_
-
-/*** @defgroup m17nMisc MISC API */
-/*=*/
-/*** @ingroup m17nMisc  */
-/***en @defgroup m17nError Error Handling */
-/***ja @defgroup m17nError ¥¨¥é¡¼½èÍý  */
-/*=*/
-
-/*** @ingroup m17nError */
-/***en 
-    @brief Enumeration for error code of the m17n library.
-
-    Enumeration for error code of the m17n library.
-
-    When a library function is called with an invalid argument, it
-    sets the external variable #merror_code to one of these values.
-    All the error codes are positive integers.
-
-    When a memory allocation error happens, the function pointed to by
-    the external variable #m17n_memory_full_handler is called with one
-    of these values as an argument.  */
-
-/***ja 
-    @brief m17n ¥é¥¤¥Ö¥é¥ê¥¨¥é¡¼¥³¡¼¥É¤ÎÎóµó.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¥¨¥é¡¼¥³¡¼¥É¤ÎÎóµó
-
-    ¥é¥¤¥Ö¥é¥ê¤Î´Ø¿ô¤¬ÂÅÅö¤Ç¤Ê¤¤°ú¿ô¤È¤È¤â¤Ë¸Æ¤Ð¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢ÊÑ¿ô 
-    #merror_code ¤ò¤³¤ì¤é¤ÎÃÍ¤Î¤É¤ì¤«¤Ë¥»¥Ã¥È¤¹¤ë¡£¤¹¤Ù¤Æ¤Î¥¨¥é¡¼¥³¡¼¥É
-    ¤ÏÀµ¤ÎÀ°¿ô¤Ç¤¢¤ë¡£
-
-    ¥á¥â¥ê³äÅö¤Æ¥¨¥é¡¼¤ÎºÝ¤Ë¤Ï¡¢³°ÉôÊÑ¿ô #m17n_memory_full_handler ¤Î»Ø
-    ¤¹´Ø¿ô¤¬¡¢¤³¤ì¤é¤ÎÃÍ¤Î¤¦¤Á¤Î¤É¤ì¤«¤ò°ú¿ô¤È¤·¤Æ¸Æ¤Ð¤ì¤ë¡£
-    */
-
-enum MErrorCode
-  {
-    MERROR_NONE,
-    MERROR_OBJECT,
-    MERROR_SYMBOL,
-    MERROR_MTEXT,
-    MERROR_TEXTPROP,
-    MERROR_CHAR,
-    MERROR_CHARTABLE,
-    MERROR_CHARSET,
-    MERROR_CODING,
-    MERROR_RANGE,
-    MERROR_LANGUAGE,
-    MERROR_LOCALE,
-    MERROR_PLIST,
-    MERROR_MISC,
-    MERROR_WIN,
-    MERROR_X,
-    MERROR_FRAME,
-    MERROR_FACE,
-    MERROR_DRAW,
-    MERROR_FONT,
-    MERROR_FONTSET,
-    MERROR_FONT_OTF,
-    MERROR_FONT_FT,
-    MERROR_IM,
-    MERROR_DB,
-    MERROR_IO,
-    MERROR_DEBUG,
-    MERROR_MEMORY,
-    MERROR_GD,
-    MERROR_MAX
-  };
-
-/*=*/
-
-extern enum MErrorCode merror_code;
-
-extern void (*m17n_memory_full_handler) (enum MErrorCode err);
-
-/*=*/
-/*** @ingroup m17nMisc  */
-/***en @defgroup m17nDebug Debugging */
-/***ja @defgroup m17nDebug ¥Ç¥Ð¥Ã¥°¥µ¥Ý¡¼¥È */
-/*=*/
-
-extern int mdebug_hook (void);
-
-extern MSymbol mdebug_dump_symbol (MSymbol sym, int indent);
-extern MSymbol mdebug_dump_all_symbols (int indent);
-extern MPlist *mdebug_dump_plist (MPlist *plist, int indent);
-extern MText *mdebug_dump_mtext (MText *mt, int fullp, int indent);
-extern MCharTable *mdebug_dump_chartab (MCharTable *table, int indent);
-
-#ifdef DOXYGEN_INTERNAL_MODULE
-/***en @defgroup m17nInternal Internal */
-/***ja @defgroup m17nInternal Internal */
-#endif
-#endif /* _M17N_ERR_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n.c b/src/m17n.c
deleted file mode 100644
index 90bdd20..0000000
--- a/src/m17n.c
+++ /dev/null
@@ -1,123 +0,0 @@
-/* m17n.c -- body of the SHELL API.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#include 
-#include 
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "charset.h"
-#include "coding.h"
-
-static int shell_initialized;
-
-
-/* Internal API */
-
-
-/* External API */
-
-void
-m17n_init (void)
-{
-  int mdebug_mask = MDEBUG_INIT;
-
-  if (shell_initialized++)
-    return;
-  m17n_init_core ();
-  if (merror_code != MERROR_NONE)
-    return;
-  MDEBUG_PUSH_TIME ();
-  MDEBUG_PUSH_TIME ();
-  if (mcharset__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize charset module."));
-  if (mcoding__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize conv module."));
-  if (mdatabase__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize database module."));
-  if (mcharset__load_from_database () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to load charset definitions."));
-  if (mcoding__load_from_database () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to load coding definitions."));
-  if (mchar__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize character module."));
-  if (mlang__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize language module"));
-  if (mlocale__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize locale module."));
-  if (minput__init () < 0)
-    goto err;
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize input module."));
-
- err:
-  MDEBUG_POP_TIME ();
-  MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize the shell modules."));
-  MDEBUG_POP_TIME ();
-}
-
-void
-m17n_fini (void)
-{
-  int mdebug_mask = MDEBUG_FINI;
-
-  if (shell_initialized > 1)
-    shell_initialized--;
-  else
-    {
-      shell_initialized = 0;
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PUSH_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize input module."));
-      minput__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize locale module."));
-      mlocale__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize language module."));
-      mlang__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize character module."));
-      mchar__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize database module."));
-      mdatabase__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize coding module."));
-      mcoding__fini ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize charset module."));
-      mcharset__fini ();
-      MDEBUG_POP_TIME ();
-      MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize the shell modules."));
-      MDEBUG_POP_TIME ();
-    }
-  m17n_fini_core ();
-}
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/m17n.h b/src/m17n.h
deleted file mode 100644
index 8d70a89..0000000
--- a/src/m17n.h
+++ /dev/null
@@ -1,1325 +0,0 @@
-/* m17n.h -- header file for the SHELL API of the m17n library.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_H_
-#define _M17N_H_
-
-#include 
-#include 
-#include 
-
-#ifndef _M17N_CORE_H_
-#include 
-#endif
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-extern void m17n_init (void);
-#undef M17N_INIT
-#define M17N_INIT() m17n_init ()
-
-extern void m17n_fini (void);
-#undef M17N_FINI
-#define M17N_FINI() m17n_fini ()
-
-/***en @defgroup m17nShell SHELL API */
-/***ja @defgroup m17nShell ¥·¥§¥ë API */
-/*=*/
-
-/*
- *  (11) Functions related to the m17n database
- */
-/*=*/
-
-/*** @ingroup m17nShell */
-/***en @defgroup m17nDatabase Database */
-/***ja @defgroup m17nDatabase ¥Ç¡¼¥¿¥Ù¡¼¥¹ */
-/*=*/
-
-/* Directory of an application specific databases.  */
-extern char *mdatabase_dir;
-/*=*/
-/***
-    @ingroup m17nDatabase  */ 
-/***en
-    @brief Type of database.
-
-    The type #MDatabase is for a database object.  Its internal
-    structure is concealed from an application program.  */
-/***ja 
-    @brief ¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î·¿Àë¸À.
-
-    #MDatabase ·¿¤Ï¥Ç¡¼¥¿¥Ù¡¼¥¹¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Î¹½Â¤ÂÎ¤Ç¤¢¤ë¡£ÆâÉô¹½Â¤
-    ¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£
-    */
-
-typedef struct MDatabase MDatabase;
-
-/*=*/
-
-/* Look for a data.  */
-extern MDatabase *mdatabase_find (MSymbol tag1, MSymbol tag2,
-				  MSymbol tag3, MSymbol tag4);
-
-extern MPlist *mdatabase_list (MSymbol tag0, MSymbol tag1,
-			       MSymbol tag2, MSymbol tag3);
-
-/* Load a data.  */
-void *mdatabase_load (MDatabase *mdb);
-
-/* Get tags of a data.  */
-extern MSymbol *mdatabase_tag (MDatabase *mdb);
-
-/* Define a data.  */
-extern MDatabase *mdatabase_define (MSymbol tag1, MSymbol tag2,
-				    MSymbol tag3, MSymbol tag4,
-				    void *(*loader) (MSymbol *, void *),
-				    void *extra_info);
-
-/*=*/
-/* (S2) Charset staffs */
-/*=*/
-
-/*** @ingroup m17nShell */
-/***en @defgroup m17nCharset Charset */
-/***ja @defgroup m17nCharset Ê¸»ú¥»¥Ã¥È */
-/*=*/
-#define MCHAR_INVALID_CODE 0xFFFFFFFF
-
-/* Predefined charsets */ 
-extern MSymbol Mcharset_ascii;
-extern MSymbol Mcharset_iso_8859_1;
-extern MSymbol Mcharset_unicode;
-extern MSymbol Mcharset_m17n;
-extern MSymbol Mcharset_binary;
-
-/* Predefined keys for mchar_define_charset ().  */ 
-extern MSymbol Mmethod;
-extern MSymbol Mdimension;
-extern MSymbol Mmin_range;
-extern MSymbol Mmax_range;
-extern MSymbol Mmin_code;
-extern MSymbol Mmax_code;
-extern MSymbol Mascii_compatible;
-extern MSymbol Mfinal_byte;
-extern MSymbol Mrevision;
-extern MSymbol Mmin_char;
-extern MSymbol Mmapfile;
-extern MSymbol Mparents;
-extern MSymbol Msubset_offset;
-extern MSymbol Mdefine_coding;
-extern MSymbol Maliases;
-
-/* Methods of a charset.  */
-extern MSymbol Moffset;
-extern MSymbol Mmap;
-extern MSymbol Munify;
-extern MSymbol Msubset;
-extern MSymbol Msuperset;
-
-/* etc. */
-extern MSymbol Mcharset;
-
-extern MSymbol mchar_define_charset (const char *name, MPlist *plist);
-
-extern MSymbol mchar_resolve_charset (MSymbol symbol);
-
-extern int mchar_list_charset (MSymbol **symbols);
-
-extern int mchar_decode (MSymbol charset_name, unsigned code);
-
-extern unsigned mchar_encode (MSymbol charset_name, int c);
-
-extern int mchar_map_charset (MSymbol charset_name,
-			      void (*func) (int from, int to, void *arg),
-			      void *func_arg);
-
-/*=*/
-
-/* (S3) code conversion */
-/*=*/
-/*** @ingroup m17nShell */
-/***en @defgroup m17nConv Code Conversion */
-/***ja @defgroup m17nConv ¥³¡¼¥ÉÊÑ´¹ */
-/*=*/
-
-/* Predefined coding systems */
-extern MSymbol Mcoding_us_ascii;
-extern MSymbol Mcoding_iso_8859_1;
-extern MSymbol Mcoding_utf_8;
-extern MSymbol Mcoding_utf_8_full;
-extern MSymbol Mcoding_utf_16;
-extern MSymbol Mcoding_utf_16be;
-extern MSymbol Mcoding_utf_16le;
-extern MSymbol Mcoding_utf_32;
-extern MSymbol Mcoding_utf_32be;
-extern MSymbol Mcoding_utf_32le;
-extern MSymbol Mcoding_sjis;
-
-/* Parameter keys for mconv_define_coding ().  */
-extern MSymbol Mtype;
-extern MSymbol Mcharsets;
-extern MSymbol Mflags;
-extern MSymbol Mdesignation;
-extern MSymbol Minvocation;
-extern MSymbol Mcode_unit;
-extern MSymbol Mbom;
-extern MSymbol Mlittle_endian;
-
-/* Symbols representing coding system type.  */
-extern MSymbol Mutf;
-extern MSymbol Miso_2022;
-
-/* Symbols appearing in the value of Mfrag parameter.  */
-extern MSymbol Mreset_at_eol;
-extern MSymbol Mreset_at_cntl;
-extern MSymbol Meight_bit;
-extern MSymbol Mlong_form;
-extern MSymbol Mdesignation_g0;
-extern MSymbol Mdesignation_g1;
-extern MSymbol Mdesignation_ctext;
-extern MSymbol Mdesignation_ctext_ext;
-extern MSymbol Mlocking_shift;
-extern MSymbol Msingle_shift;
-extern MSymbol Msingle_shift_7;
-extern MSymbol Meuc_tw_shift;
-extern MSymbol Miso_6429;
-extern MSymbol Mrevision_number;
-extern MSymbol Mfull_support;
-
-/* etc */
-extern MSymbol Mcoding;
-extern MSymbol Mmaybe;
-
-/*** @ingroup m17nConv */
-/***en
-    @brief Codes that represent the result of code conversion.
-
-    One of these values is set in @c MConverter-\>result.   */
-
-/***ja
-    @brief ¥³¡¼¥ÉÊÑ´¹¤Î·ë²Ì¤ò¼¨¤¹¥³¡¼¥É.
-
-    ¤³¤ì¤é¤ÎÃÍ¤Î¤¦¤Á°ì¤Ä¤¬ @c MConverter-\>result ¤ËÀßÄê¤µ¤ì¤ë¡£  */
-
-enum MConversionResult
-  {
-    /***en Code conversion is successful. */
-    /***ja ¥³¡¼¥ÉÊÑ´¹¤ÏÀ®¸ù. */
-    MCONVERSION_RESULT_SUCCESS,
-
-    /***en On decoding, the source contains an invalid byte. */
-    /***ja ¥Ç¥³¡¼¥É»þ¡¢¥½¡¼¥¹¤ËÉÔÀµ¤Ê¥Ð¥¤¥È¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë. */
-    MCONVERSION_RESULT_INVALID_BYTE,
-
-    /***en On encoding, the source contains a character that cannot be
-	encoded by the specified coding system. */
-    /***ja ¥¨¥ó¥³¡¼¥É»þ¡¢»ØÄê¤Î¥³¡¼¥É·Ï¤Ç¥¨¥ó¥³¡¼¥É¤Ç¤¤Ê¤¤Ê¸»ú¤¬¥½¡¼
-	¥¹¤Ë´Þ¤Þ¤ì¤Æ¤¤¤ë. */
-    MCONVERSION_RESULT_INVALID_CHAR,
-
-    /***en On decoding, the source ends with an incomplete byte sequence. */
-    /***ja ¥Ç¥³¡¼¥É»þ¡¢ÉÔ´°Á´¤Ê¥Ð¥¤¥ÈÎó¤Ç¥½¡¼¥¹¤¬½ª¤ï¤Ã¤Æ¤¤¤ë¡£*/
-    MCONVERSION_RESULT_INSUFFICIENT_SRC,
-
-    /***en On encoding, the destination is too short to store the result. */
-    /***ja ¥¨¥ó¥³¡¼¥É»þ¡¢·ë²Ì¤ò³ÊÇ¼¤¹¤ëÎÎ°è¤¬Ã»¤«¤¹¤®¤ë¡£ */
-    MCONVERSION_RESULT_INSUFFICIENT_DST,
-
-    /***en An I/O error occurred in the conversion.  */
-    /***ja ¥³¡¼¥ÉÊÑ´¹Ãæ¤Ë I/O ¥¨¥é¡¼¤¬µ¯¤³¤Ã¤¿¡£  */
-    MCONVERSION_RESULT_IO_ERROR
-  };
-/*=*/
-
-/*** @ingroup m17nConv */
-/***en
-    @brief Structure to be used in code conversion.
-
-    Structure to be used in code conversion.  The first three members
-    are to control the conversion.  */
-
-/***ja
-    @brief ¥³¡¼¥ÉÊÑ´¹¤ËÍÑ¤¤¤é¤ì¤ë¹½Â¤ÂÎ.
-
-    ¥³¡¼¥ÉÊÑ´¹¤ËÍÑ¤¤¤é¤ì¤ë¹½Â¤ÂÎ¡£ºÇ½é¤Î£³¤Ä¤Î¥á¥ó¥Ð¤ÏÊÑ´¹¤òÀ©¸æ¤¹¤ë¡£
-
-    @latexonly \IPAlabel{MConverter} @endlatexonly  
-*/
-
-typedef struct
-{
-  /***en
-      Set the value to nonzero if the conversion should be lenient.
-      By default, the conversion is strict (i.e. not lenient).
-
-      If the conversion is strict, the converter stops at the first
-      invalid byte (on decoding) or at the first character not
-      supported by the coding system (on encoding).  If this happens,
-      @c MConverter-\>result is set to @c
-      MCONVERSION_RESULT_INVALID_BYTE or @c
-      MCONVERSION_RESULT_INVALID_CHAR accordingly.
-
-      If the conversion is lenient, on decoding, an invalid byte is
-      kept per se, and on encoding, an invalid character is replaced
-      with "" (if the character is a Unicode character) or
-      with "" (otherwise).  */
-
-  /***ja 
-      ¸·Ì©¤ÊÊÑ´¹¤¬É¬Í×¤Ç¤Ê¤¤¾ì¹ç¤ËÃÍ¤ò 0 °Ê³°¤Ë¤¹¤ë¡£¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï¡¢
-      ÊÑ´¹¤Ï¸·Ì©¤Ç¤¢¤ë¡£
-
-      ÊÑ´¹¤¬¸·Ì©¤È¤Ï¡¢¥Ç¥³¡¼¥É¤ÎºÝ¤Ë¤ÏºÇ½é¤ÎÉÔÀµ¤Ê¥Ð¥¤¥È¤Ç¥³¥ó¥Ð¡¼¥¿
-      ¤¬»ß¤Þ¤ë¤³¤È¡¢¥¨¥ó¥³¡¼¥É¤ÎºÝ¤Ë¤ÏÊÑ´¹¤µ¤ì¤ë¥³¡¼¥É·Ï¤Ç¥µ¥Ý¡¼¥È¤µ
-      ¤ì¤Ê¤¤ºÇ½é¤ÎÊ¸»ú¤Ç¥³¥ó¥Ð¡¼¥¿¤¬»ß¤Þ¤ë¤³¤È¤ò»Ø¤¹¡£¤³¤ì¤é¤Î¾ì¹ç¡¢
-      @c MConverter-\>result ¤Ï¤½¤ì¤¾¤ì @c
-      MCONVERSION_RESULT_INVALID_BYTE ¤«@c
-      MCONVERSION_RESULT_INVALID_CHAR ¤È¤Ê¤ë¡£
-
-      ÊÑ´¹¤¬¸·Ì©¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢¥Ç¥³¡¼¥É¤ÎºÝ¤ÎÉÔÀµ¤Ê¥Ð¥¤¥È¤Ï¤½¤Î¥Ð¥¤¥È
-      ¤Î¤Þ¤Þ»Ä¤ë¡£¤Þ¤¿¥¨¥ó¥³¡¼¥É¤ÎºÝ¤Ë¤Ï¡¢ÉÔÀµ¤ÊÊ¸»ú¤Ï Unicode Ê¸»ú¤Î
-      ¾ì¹ç¤Ë¤Ï "" ¤Ë¡¢¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Ï "" ¤ËÃÖ¤´¹
-      ¤¨¤é¤ì¤ë¡£  */
-
-  int lenient;
-
-  /***en
-      Set the value to nonzero before decoding or encoding the last
-      block of the byte sequence or the character sequence
-      respectively.  The value influences the conversion as below.
-
-      On decoding, in the case that the last few bytes are too short
-      to form a valid byte sequence:
-
-	If the value is nonzero, the conversion terminates by error
-	(MCONVERSION_RESULT_INVALID_BYTE) at the first byte of the
-	sequence.
-
-	If the value is zero, the conversion terminates successfully.
-	Those bytes are stored in the converter as carryover and are
-	prepended to the byte sequence of the further conversion.
-
-      On encoding, in the case that the coding system is context
-      dependent:
-
-	If the value is nonzero, the conversion may produce a byte
-	sequence at the end to reset the context to the initial state
-	even if the source characters are zero.
-
-	If the value is zero, the conversion never produce such a byte
-	sequence at the end.  */
-
-/***ja 
-
-     ¥Ð¥¤¥ÈÎó¤Î½ªÃ¼¤Î¥Ö¥í¥Ã¥¯¤ò¥Ç¥³¡¼¥É¤¹¤ëºÝ¡¢¤Þ¤¿¤ÏÊ¸»úÎó¤Î½ªÃ¼¤Î¥Ö
-     ¥í¥Ã¥¯¤ò¥¨¥ó¥³¡¼¥É¤¹¤ëºÝ¤Ï¡¢ÃÍ¤ò 0 °Ê³°¤Ë¤¹¤ë¡£¤³¤ÎÃÍ¤Ï°Ê²¼¤Î¤è¤¦
-     ¤ËÊÑ´¹¤Ë±Æ¶Á¤¹¤ë¡£
-
-     ¥Ç¥³¡¼¥Ç¥£¥ó¥°¤ÎºÝ¤ËºÇ¸å¤Î¿ô¥Ð¥¤¥È¤¬Àµ¤·¤¤¥Ð¥¤¥È¥·¡¼¥¯¥¨¥ó¥¹¤ò·Á
-     À®¤¹¤ë¤Ë¤ÏÃ»¤¹¤®¤ë¾ì¹ç¡§
-
-       ÃÍ¤¬ 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÑ´¹¤Ï¤½¤Î¥·¡¼¥¯¥¨¥ó¥¹¤ÎºÇ½é¤Î¥Ð¥¤¥È¤Ë¤ª¤¤¤Æ¡¢
-       ¥¨¥é¡¼ (MCONVERSION_RESULT_INVALID_BYTE) ¤Ç½ª¤ë¡£
-
-       ÃÍ¤¬ 0 ¤Ê¤é¤Ð¡¢ÊÑ´¹¤ÏÀ®¸ù¤·¤Æ½ª¤ë¡£ÌäÂê¤Î¿ô¥Ð¥¤¥È¤Ï¥¥ã¥ê¡¼¥ª¡¼
-       ¥Ð¤È¤·¤Æ¥³¥ó¥Ð¡¼¥¿¤ËÊÝ»ý¤µ¤ì¡¢Â³¤¤ÎÊÑ´¹¤ò¹Ô¤¦ºÝ¤ËÊÑ´¹¤¹¤ë¥Ð¥¤
-       ¥ÈÎó¤ÎÁ°¤ËÉÕ¤±¤é¤ì¤ë¡£
-
-     ¥¨¥ó¥³¡¼¥Ç¥£¥ó¥°¤ÎºÝ¤Ë¥³¡¼¥É·Ï¤¬Ê¸Ì®°ÍÂ¸¤Î¾ì¹ç¡¢
-
-       ÃÍ¤¬ 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢¥³¥ó¥Æ¥¥¹¥È¤òºÇ½é¤ËÌá¤¹¤¿¤á¤Î¥Ð¥¤¥ÈÎó¤¬¥½¡¼
-       ¥¹¤ÎÊ¸»ú¤È¤«¤«¤ï¤ê¤Ê¤¯ÊÑ´¹¤Î·ë²ÌÀ¸À®¤µ¤ì¤ë¤³¤È¤¬¤¢¤ë¡£
-
-       ÃÍ¤¬ 0 ¤Ê¤é¤Ð¡¢¤½¤Î¤è¤¦¤Ê¥Ð¥¤¥ÈÎó¤ÏÀ¸À®¤µ¤ì¤Ê¤¤¡£
-
-	 */
-
-  int last_block;
-
-  /***en
-      If the value is nonzero, it specifies at most how many
-      characters to convert.  */
-  /***ja
-      0 ¤Ç¤Ê¤±¤ì¤Ð¡¢ÊÑ´¹¤µ¤ì¤ëºÇÂç¤ÎÊ¸»ú¿ô¤ò»ØÄê¤¹¤ë¡£
-      */
-
-  unsigned at_most;
-
-  /***en
-      The following three members are to report the result of the
-      conversion.  */
-  /***ja
-      °Ê²¼¤Î£³¤Ä¤Î¥á¥ó¥Ð¤ÏÊÑ´¹¤Î·ë²Ì¤òÊó¹ð¤¹¤ë¡£  */
-
-  /***en
-      Number of characters most recently decoded or encoded. */
-  /***ja
-      ºÇ¶á¤Ë¥Ç¥³¡¼¥É/¥¨¥ó¥³¡¼¥É¤µ¤ì¤¿Ê¸»ú¿ô¡£ */
-
-  int nchars;
-
-  /***en
-      Number of bytes recently decoded or encoded. */
-
-  /***ja
-      ºÇ¶á¤Ë¥Ç¥³¡¼¥É/¥¨¥ó¥³¡¼¥É¤µ¤ì¤¿¥Ð¥¤¥È¿ô¡£ */
-
-  int nbytes;
-
-  /***en
-      Result code of the conversion. */
-
-  /***ja
-      ¥³¡¼¥ÉÊÑ´¹¤Î·ë²Ì¤ò¼¨¤¹¥³¡¼¥É¡£ */
-
-  enum MConversionResult result;
-
-  /***en
-      Various information about the status of code conversion.  The
-      contents depend on the type of coding system.  It is assured
-      that @c status is aligned so that any type of casting is safe
-      and at least 256 bytes of memory space can be used.  */
-
-  /***ja
-      ¥³¡¼¥ÉÊÑ´¹¤Î¾õ¶·¤Ë´Ø¤¹¤ë¼ï¡¹¤Î¾ðÊó¡£ÆâÍÆ¤Ï¥³¡¼¥É·Ï¤Î¥¿¥¤¥×¤Ë¤è¤Ã
-      ¤Æ°Û¤Ê¤ë¡£@c status ¤Ï¤É¤Î¤è¤¦¤Ê·¿¤Ø¤Î¥¥ã¥¹¥È¤ËÂÐ¤·¤Æ¤â°ÂÁ´¤Ê¤è
-      ¤¦¤Ë¥á¥â¥ê¥¢¥é¥¤¥ó¤µ¤ì¤Æ¤ª¤ê¡¢¤Þ¤¿ºÇÄã256¥Ð¥¤¥È¤Î¥á¥â¥êÎÎ°è¤¬»È
-      ¤¨¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡£  */
-
-  union {
-    void *ptr;
-    double dbl;
-    char c[256];
-  } status;
-
-  /***en
-      This member is for internally use only.  An application program
-      should never touch it.  */
-  /***ja ¤³¤Î¥á¥ó¥Ð¤ÏÆâÉôÅª¤Ë»ÈÍÑ¤µ¤ì¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¿¨
-      ¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£ */
-  void *internal_info;
-} MConverter;
-/*=*/
-
-/*** @ingroup m17nConv */
-/***en 
-    @brief Types of coding system.  */
-/***ja 
-    @brief ¥³¡¼¥É·Ï¤Î¥¿¥¤¥×.  */
-
-enum MCodingType
-  {
-    /***en
-	A coding system of this type supports charsets directly.
-	The dimension of each charset defines the length of bytes to
-	represent a single character of the charset, and a byte
-	sequence directly represents the code-point of a character.
-
-	The m17n library provides the default decoding and encoding
-	routines of this type.  */
-
-    /***ja
-	¤³¤Î¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤ÏÊ¸»ú¥»¥Ã¥È¤òÄ¾ÀÜ¥µ¥Ý¡¼¥È¤¹¤ë¡£³ÆÊ¸»ú¥»¥Ã
-	¥È¤Î¼¡¸µ¤È¤Ï¡¢¤½¤ÎÊ¸»ú¥»¥Ã¥È¤Ç°ìÊ¸»ú¤òÉ½¸½¤¹¤ë¤¿¤á¤ËÉ¬Í×¤Ê¥Ð¥¤
-	¥È¿ô¤Ç¤¢¤ê¡¢¥Ð¥¤¥ÈÎó¤ÏÊ¸»ú¤Î¥³¡¼¥É¥Ý¥¤¥ó¥È¤òÄ¾ÀÜÉ½¤ï¤¹¡£
-
-	m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤Î¥¿¥¤¥×ÍÑ¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥¨¥ó¥³¡¼¥É¡¿¥Ç¥³¡¼
-	¥É¥ë¡¼¥Æ¥£¥ó¤òÄó¶¡¤¹¤ë¡£  */
-
-    MCODING_TYPE_CHARSET,
-
-    /***en
-	A coding system of this type supports byte sequences of a
-	UTF (UTF-8, UTF-16, UTF-32) like structure.
-
-	The m17n library provides the default decoding and encoding
-	routines of this type.  */
-
-    /***ja
-	¤³¤Î¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤Ï¡¢UTF ·Ï (UTF-8, UTF-16, UTF-32) ¤Î¥Ð¥¤
-	¥ÈÎó¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£
-
-	m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤Î¥¿¥¤¥×ÍÑ¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥¨¥ó¥³¡¼¥É¡¿¥Ç¥³¡¼
-	¥É¥ë¡¼¥Æ¥£¥ó¤òÄó¶¡¤¹¤ë¡£  */
-
-    MCODING_TYPE_UTF,
-
-    /***en
-	A coding system of this type supports byte sequences of an
-	ISO-2022 like structure.  The details of each structure are
-	specified by @c MCodingInfoISO2022 .
-
-	The m17n library provides decoding and encoding routines of
-	this type.  */
-
-    /***ja 
-        ¤³¤Î¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤Ï¡¢ISO-2022 ·Ï¤Î¥Ð¥¤¥ÈÎó¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£
-	³Æ¥³¡¼¥É·Ï¤Î¹½Â¤¤Î¾ÜºÙ¤Ï @c MCodingInfoISO2022 ¤Ç»ØÄê¤µ¤ì¤ë¡£
-
-	m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤Î¥¿¥¤¥×ÍÑ¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥¨¥ó¥³¡¼¥É¡¿¥Ç¥³¡¼
-	¥É¥ë¡¼¥Æ¥£¥ó¤òÄó¶¡¤¹¤ë¡£  */
-
-    MCODING_TYPE_ISO_2022,
-
-    /***en
-	A coding system of this type is for byte sequences of
-	miscellaneous structures.
-
-	The m17n library does not provide decoding and encoding
-	routines of this type.  They must be provided by the
-	application program.  */
-
-    /***ja
-	¤³¤Î¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤Ï¡¢¤½¤ÎÂ¾¤Î¹½Â¤¤Î¥Ð¥¤¥ÈÎó¤Î¤¿¤á¤Î¤â¤Î¤Ç¤¢
-	¤ë¡£
-
-	m17n ¥é¥¤¥Ö¥é¥ê¤Ï¤³¤Î¥¿¥¤¥×ÍÑ¤Î¥¨¥ó¥³¡¼¥É¡¿¥Ç¥³¡¼¥É¥ë¡¼¥Æ¥£¥ó
-        ¤òÄó¶¡¤·¤Ê¤¤¤Î¤Ç¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥àÂ¦¤Ç½àÈ÷¤¹
-        ¤ëÉ¬Í×¤¬¤¢¤ë¡£  */
-
-    MCODING_TYPE_MISC
-  };
-/*=*/
-
-/*** @ingroup m17nConv */
-/***en 
-    @brief  Bit-masks to specify the detail of coding system whose type is MCODING_TYPE_ISO_2022.  */
-/***ja 
-    @brief MCODING_TYPE_ISO_2022 ¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤Î¾ÜºÙ¤òÉ½¤ï¤¹¥Ó¥Ã¥È¥Þ¥¹¥¯.  */
-
-enum MCodingFlagISO2022
-  {
-    /***en
-	On encoding, reset the invocation and designation status to
-	initial at end of line.  */
-    /***ja ¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢¹ÔËö¤Ç¸Æ¤Ó½Ð¤· (invocation) ¤È»Ø¼¨
-	(designation) ¤Î¾õÂÖ¤ò½é´üÃÍ¤ËÌá¤¹¡£   */
-    MCODING_ISO_RESET_AT_EOL =		0x1,
-
-    /***en
-	On encoding, reset the invocation and designation status to
-	initial before any control codes.  */
-    /***ja
-	¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢¤¹¤Ù¤Æ¤ÎÀ©¸æÊ¸»ú¤ÎÁ°¤Ç¡¢¸Æ¤Ó½Ð¤·
-	(invocation) ¤È»Ø¼¨ (designation) ¤Î¾õÂÖ¤ò½é´üÃÍ¤ËÌá¤¹¡£        */
-    MCODING_ISO_RESET_AT_CNTL =		0x2,
-
-    /***en
-	Use the right graphic plane.  */
-    /***ja
-	¿Þ·ÁÊ¸»ú½¸¹ç¤Î±¦Â¦¤ò»È¤¦¡£  */
-    MCODING_ISO_EIGHT_BIT =		0x4,
-
-    /***en
-	Use the non-standard 4 bytes format for designation sequence
-	for charsets JISX0208.1978, GB2312, and JISX0208.1983.  */
-    /***ja
-	JISX0208.1978, GB2312, JISX0208.1983 ¤ÎÊ¸»ú½¸¹ç¤ËÂÐ¤¹¤ë»Ø¼¨¥·¡¼
-	¥¯¥¨¥ó¥¹¤È¤·¤Æ¡¢ÈóÉ¸½à¤Î4¥Ð¥¤¥È·Á¼°¤òÍÑ¤¤¤ë¡£ */
-
-    MCODING_ISO_LONG_FORM =		0x8,
-
-    /***en
-	On encoding, unless explicitly specified, designate charsets
-	to G0.  */
-    /***ja 
-        ¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢ÆÃ¤Ë»ØÄê¤µ¤ì¤Ê¤¤¸Â¤ê¡¢Ê¸»ú½¸¹ç¤ò G0 ¤Ë»Ø¼¨
-	¤¹¤ë¡£*/
-    MCODING_ISO_DESIGNATION_G0 =		0x10,
-
-    /***en
-	On encoding, unless explicitly specified, designate charsets
-	except for ASCII to G1.  */
-    /***ja
-	¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢ÆÃ¤Ë»ØÄê¤µ¤ì¤Ê¤¤¸Â¤ê¡¢ASCII °Ê³°¤ÎÊ¸»ú½¸¹ç¤ò G1 
-	¤Ë»Ø¼¨¤¹¤ë¡£*/
-    MCODING_ISO_DESIGNATION_G1 =		0x20,
-
-    /***en
-	On encoding, unless explicitly specified, designate 94-chars
-	charsets to G0, 96-chars charsets to G1.  */
-    /***ja
-	¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢ÆÃ¤Ë»ØÄê¤µ¤ì¤Ê¤¤¸Â¤ê¡¢94Ê¸»ú½¸¹ç¤ò G0 
-	¤Ë¡¢96Ê¸»ú½¸¹ç¤ò G1 ¤Ë»Ø¼¨¤¹¤ë¡£*/
-    MCODING_ISO_DESIGNATION_CTEXT =	0x40,
-
-    /***en
-	On encoding, encode such charsets not conforming to ISO-2022
-	by ESC % / ..., and encode non-supported Unicode characters by
-	ESC % G ... ESC % @@ .  On decoding, handle those escape
-	sequences.  */
-    /***ja
-	¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢ISO-2022 ¤Ë¹çÃ×¤·¤Ê¤¤Ê¸»ú½¸¹ç¤ò ESC % / ... ¤Ç¥¨
-	¥ó¥³¡¼¥É¤¹¤ë¡£¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤Ê¤¤ Unicode Ê¸»ú¤Ï ESC % G ...
-	ESC % @@ ¤Ç¥¨¥ó¥³¡¼¥É¤¹¤ë¡£
-	¥Ç¥³¡¼¥É¤ÎºÝ¡¢¤³¤ì¤é¤Î¥¨¥¹¥±¡¼¥×¡¦¥·¡¼¥±¥ó¥¹¤ò²ò¼á¤¹¤ë¡£  */
-    MCODING_ISO_DESIGNATION_CTEXT_EXT =	0x80,
-
-    /***en
-	Use locking shift.  */
-    /***ja
-	¥í¥Ã¥¥ó¥°¥·¥Õ¥È¤ò»È¤¦¡£  */
-    MCODING_ISO_LOCKING_SHIFT =	0x100,
-
-    /***en
-	Use single shift (SS2 (0x8E or ESC N), SS3 (0x8F or ESC O)).  */
-    /***ja
-	¥·¥ó¥°¥ë¥·¥Õ¥È (SS2 (0x8E or ESC N), SS3 (0x8F or ESC O)) ¤ò»È¤¦¡£  */
-    MCODING_ISO_SINGLE_SHIFT =	0x200,
-
-    /***en
-	Use 7-bit single shift 2 (SS2 (0x19)).  */
-    /***ja
-	7¥Ó¥Ã¥È¥·¥ó¥°¥ë¥·¥Õ¥È 2 (SS2 (0x19)) ¤ò»È¤¦¡£  */
-    MCODING_ISO_SINGLE_SHIFT_7 =	0x400,
-
-    /***en
-	Use EUC-TW like special shifting.  */
-    /***ja
-	EUC-TW É÷¤ÎÆÃÊÌ¤Ê¥·¥Õ¥È¤ò»È¤¦¡£  */
-    MCODING_ISO_EUC_TW_SHIFT =	0x800,
-
-    /***en
-	Use ISO-6429 escape sequences to indicate direction.
-	Not yet implemented.  */
-    /***ja
-	ISO-6429 ¤Î¥¨¥¹¥±¡¼¥×¥·¡¼¥¯¥¨¥ó¥¹¤ÇÊý¸þ¤ò»Ø¼¨¤¹¤ë¡£Ì¤¼ÂÁõ¡£ */
-    MCODING_ISO_ISO6429 =		0x1000,
-
-    /***en
-	On encoding, if a charset has revision number, produce escape
-	sequences to specify the number.  */
-    /***ja
-	¥¨¥ó¥³¡¼¥É¤ÎºÝ¡¢Ê¸»ú¥»¥Ã¥È¤Ë revision number ¤¬¤¢¤ì¤Ð¤½
-	¤ì¤òÉ½¤ï¤¹¥¨¥¹¥±¡¼¥×¥·¡¼¥¯¥¨¥ó¥¹¤òÀ¸À®¤¹¤ë¡£        */
-    MCODING_ISO_REVISION_NUMBER =	0x2000,
-
-    /***en
-	Support all ISO-2022 charsets.  */
-    /***ja
-	ISO-2022 ¤ÎÁ´Ê¸»ú½¸¹ç¤ò¥µ¥Ý¡¼¥È¤¹¤ë¡£  */
-    MCODING_ISO_FULL_SUPPORT =		0x3000,
-
-    MCODING_ISO_FLAG_MAX
-  };
-/*=*/
-
-/*** @ingroup m17nConv */
-/***en
-    @brief Structure for a coding system of type #MCODING_TYPE_ISO_2022.
-
-    Structure for extra information about a coding system of type
-    MCODING_TYPE_ISO_2022.  */
-
-/***ja 
-    @brief #MCODING_TYPE_ISO_2022 ¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤ÇÉ¬Í×¤ÊÉÕ²Ã¾ðÊóÍÑ¹½Â¤ÂÎ.
-
-    MCODING_TYPE_ISO_2022 ¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤ÇÉ¬Í×¤ÊÉÕ²Ã¾ðÊóÍÑ¤òÊÝ»ý¤¹¤ë
-    ¤¿¤á¤Î¹½Â¤ÂÎ¡£
-
-    @latexonly \IPAlabel{MCodingInfoISO2022} @endlatexonly  */
-
-typedef struct
-{
-  /***en
-      Table of numbers of an ISO2022 code extension element invoked
-      to each graphic plane (Graphic Left and Graphic Right).  -1
-      means no code extension element is invoked to that plane.  */
-
-  /***ja
-      ³Æ¿Þ·ÁÊ¸»úÎÎ°è (Graphic Left ¤È Graphic Right) ¤Ë¸Æ¤Ó½Ð¤µ¤ì¤Æ¤¤
-      ¤ë¡¢ISO2022 Éä¹ç³ÈÄ¥Í×ÁÇ¤ÎÈÖ¹æ¤Î¥Æ¡¼¥Ö¥ë¡£-1 ¤Ï¤½¤ÎÎÎ°è¤Ë¤É¤ÎÉä
-      ¹ç³ÈÄ¥Í×ÁÇ¤â¸Æ¤Ó½Ð¤µ¤ì¤Æ¤¤¤Ê¤¤¤³¤È¤ò¼¨¤¹¡£   */
-
-  int initial_invocation[2];
-
-  /***en
-      Table of code extension elements.  The Nth element corresponds
-      to the Nth charset in $CHARSET_NAMES, which is an argument given
-      to the mconv_define_coding () function.
-
-      If an element value is 0..3, it specifies a graphic register
-      number to designate the corresponds charset.  In addition, the
-      charset is initially designated to that graphic register.
-
-      If the value is -4..-1, it specifies a graphic register number
-      0..3 respectively to designate the corresponds charset.
-      Initially, the charset is not designated to any graphic
-      register.  */
-
-  /***ja
-      Éä¹ç³ÈÄ¥Í×ÁÇ¤Î¥Æ¡¼¥Ö¥ë¡£NÈÖÌÜ¤ÎÍ×ÁÇ¤Ï¡¢$CHARSET_NAMES ¤Î N ÈÖÌÜ
-      ¤ÎÊ¸»ú¥»¥Ã¥È¤ËÂÐ±þ¤¹¤ë¡£$CHARSET_NAMES ¤Ï´Ø¿ô 
-      mconv_define_coding () ¤Î°ú¿ô¤È¤Ê¤ë¡£
-
-      ÃÍ¤¬ 0..3 ¤À¤Ã¤¿¤é¡¢ÂÐ±þ¤¹¤ëÊ¸»ú¥»¥Ã¥È¤ò G0..G3 ¤Î¤½¤ì¤¾¤ì¤Ë»Ø¼¨
-      ¤¹¤ë¤³¤È¡¢½é´ü¾õÂÖ¤Ç¤¹¤Ç¤Ë G0..G3 ¤Ë»Ø¼¨¤µ¤ì¤Æ¤¤¤ë¤³¤È¤ò°ÕÌ£¤¹
-      ¤ë¡£
-
-      ÃÍ¤¬ -4..-1 ¤À¤Ã¤¿¤é¡¢ÂÐ±þ¤¹¤ëÊ¸»ú¥»¥Ã¥È¤ò G0..G3 ¤Î¤½¤ì¤¾¤ì¤Ë»Ø
-       ¼¨¤¹¤ë¤¬¡¢½é´ü¾õÂÖ¤Ç¤Ï¤É¤³¤Ë¤â»Ø¼¨¤µ¤ì¤Æ¤¤¤Ê¤¤¤³¤È¤ò°ÕÌ£¤¹¤ë¡£
-        */
-
-  char designations[32];
-
-  /***en
-      Bitwise OR of @c enum @c MCodingFlagISO2022 .  */
-
-  /***ja
-      @c enum @c MCodingFlagISO2022 ¤Î¥Ó¥Ã¥ÈÃ±°Ì¤Ç¤ÎÏÀÍý OR  */
-
-  unsigned flags;
-
-} MCodingInfoISO2022;
-/*=*/
-
-/*** @ingroup m17nConv */
-/***en
-    @brief Structure for extra information about a coding system of type #MCODING_TYPE_UTF.
-    */
-
-/***ja
-    @brief #MCODING_TYPE_UTF ¥¿¥¤¥×¤Î¥³¡¼¥É·Ï¤ÇÉ¬Í×¤ÊÉÕ²Ã¾ðÊóÍÑ¤Î¹½Â¤ÂÎ.
-
-    @latexonly \IPApage{MCodingInfoUTF} @endlatexonly
-
-    @latexonly \IPAlabel{MCodingInfoUTF} @endlatexonly  */
-
-typedef struct
-{
-  /***en
-      Specify bits of a code unit.  The value must be 8, 16, or 32.  */
-  /***ja
-      ¥³¡¼¥ÉÄ¹¡Ê¥Ó¥Ã¥È¿ô¡Ë¡£ÃÍ¤Ï 8, 16, 32 ¤Î¤¤¤º¤ì¤«¡£  */
-  int code_unit_bits;
-
-  /***en
-      Specify how to handle the heading BOM (byte order mark).  The
-      value must be 0, 1, or 2.  The meanings are as follows:
-
-      0: On decoding, check the first two byte.  If they are BOM,
-      decide endian by them. If not, decide endian by the member @c
-      endian.  On encoding, produce byte sequence according to
-      @c endian with heading BOM.
-
-      1: On decoding, do not handle the first two bytes as BOM, and
-      decide endian by @c endian.  On encoding, produce byte sequence
-      according to @c endian without BOM.
-
-      2: On decoding, handle the first two bytes as BOM and decide
-      ending by them.  On encoding, produce byte sequence according to
-      @c endian with heading BOM.
-
-      If  is 8, the value has no meaning.  */
-
-  /***ja
-      ÀèÆ¬¤Î BOM (¥Ð¥¤¥È¥ª¡¼¥À¡¼¥Þ¡¼¥¯) ¤Î¼è¤ê°·¤¤¤ò»ØÄê¤¹¤ë¡£ÃÍ¤Ï 0,
-      1, 2 ¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ê¡¢¤½¤ì¤¾¤ì¤Î°ÕÌ£¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£
-
-      0: ¥Ç¥³¡¼¥É¤ÎºÝ¤ËºÇ½é¤Î 2 ¥Ð¥¤¥È¤òÄ´¤Ù¤ë¡£¤â¤·¤½¤ì¤¬ BOM ¤Ç¤¢¤ì
-      ¤Ð¡¢¥¨¥ó¥Ç¥£¥¢¥ó¤ò¤½¤ì¤ÇÈ½Äê¤¹¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢¥á¥ó¥Ð @c
-      endian ¤Ë½¾¤Ã¤Æ¥¨¥ó¥Ç¥£¥¢¥ó¤ò·èÄê¤¹¤ë¡£¥¨¥ó¥³¡¼¥É¤ÎºÝ¤Ë¤Ï @c
-      endian ¤Ë½¾¤Ã¤¿¥Ð¥¤¥ÈÎó¤òÀèÆ¬¤Ë BOM ÉÕ¤ÇÀ¸À®¤¹¤ë¡£
-
-      1: ¥Ç¥³¡¼¥É¤ÎºÝ¡¢ºÇ½é¤Î 2 ¥Ð¥¤¥È¤ò BOM ¤È¤·¤Æ°·¤ï¤º¡¢¥¨¥ó¥Ç¥£¥¢
-      ¥ó¤Ï @c endian ¤ÇÈ½Äê¤¹¤ë¡£¥¨¥ó¥³¡¼¥É¤ÎºÝ¤Ë¤Ï¡¢BOM ¤ò½ÐÎÏ¤»¤º¡¢
-      @c endian ¤Ë±þ¤¸¤¿¥Ð¥¤¥ÈÎó¤òÀ¸À®¤¹¤ë¡£
-
-      2: ¥Ç¥³¡¼¥É¤ÎºÝ¤ËºÇ½é¤Î2¥Ð¥¤¥È¤ò BOM¤È¤·¤Æ°·¤¤¡¢¤½¤ì¤Ë½¾¤Ã¤Æ¥¨¥ó
-      ¥Ç¥£¥¢¥ó¤òÈ½Äê¤¹¤ë¡£¥¨¥ó¥³¡¼¥É¤ÎºÝ¤Ë¤Ï @c endian ¤Ë±þ¤¸¤¿¥Ð¥¤¥È
-      Îó¤òÀèÆ¬¤Ë BOM ÉÕ¤¤ÇÀ¸À®¤¹¤ë¡£  */
-  int bom;
-
-  /***en
-      Specify the endian type.  The value must be 0 or 1.  0 means
-      little endian, and 1 means big endian.
-
-      If  is 8, the value has no meaning.  */
-  /***ja
-      ¥¨¥ó¥Ç¥£¥¢¥ó¤Î¥¿¥¤¥×¤ò»ØÄê¤¹¤ë¡£ÃÍ¤Ï 0 ¤« 1 ¤Ç¤¢¤ê¡¢0 ¤Ê¤é¤Ð¥ê¥È
-      ¥ë¥¨¥ó¥Ç¥£¥¢¥ó¡¢1 ¤Ê¤é¤Ð¥Ó¥Ã¥°¥¨¥ó¥Ç¥£¥¢¥ó¤Ç¤¢¤ë¡£
-
-       ¤¬ 8 ¤Î¾ì¹ç¤Ë¤Ï¡¢¤³¤ÎÃÍ¤Ï°ÕÌ£¤ò»ý¤¿¤Ê¤¤¡£
-  */
-  int endian;
-} MCodingInfoUTF;
-/*=*/
-
-extern MSymbol mconv_define_coding (const char *name, MPlist *plist,
-				    int (*resetter) (MConverter *),
-				    int (*decoder) (const unsigned char *, int,
-						    MText *, MConverter *),
-				    int (*encoder) (MText *, int, int,
-						    unsigned char *, int,
-						    MConverter *),
-				    void *extra_info);
-
-extern MSymbol mconv_resolve_coding (MSymbol symbol);
-
-extern int mconv_list_codings (MSymbol **symbols);
-
-extern MConverter *mconv_buffer_converter (MSymbol coding, unsigned char *buf,
-					   int n);
-
-extern MConverter *mconv_stream_converter (MSymbol coding, FILE *fp);
-
-extern int mconv_reset_converter (MConverter *converter);
-
-extern void mconv_free_converter (MConverter *converter);
-
-extern MConverter *mconv_rebind_buffer (MConverter *converter,
-					unsigned char *buf, int n);
-
-extern MConverter *mconv_rebind_stream (MConverter *converter, FILE *fp);
-
-extern MText *mconv_decode (MConverter *converter, MText *mt);
-
-MText *mconv_decode_buffer (MSymbol name, unsigned char *buf, int n);
-
-MText *mconv_decode_stream (MSymbol name, FILE *fp);   
-
-extern int mconv_encode (MConverter *converter, MText *mt);
-
-extern int mconv_encode_range (MConverter *converter, MText *mt,
-			       int from, int to);
-
-extern int mconv_encode_buffer (MSymbol name, MText *mt,
-				unsigned char *buf, int n);
-
-extern int mconv_encode_stream (MSymbol name, MText *mt, FILE *fp);
-
-extern int mconv_getc (MConverter *converter);
-
-extern int mconv_ungetc (MConverter *converter, int c);
-
-extern int mconv_putc (MConverter *converter, int c);
-
-extern MText *mconv_gets (MConverter *converter, MText *mt);
-
-/* (S4) Locale related functions corresponding to libc functions */
-/*=*/
-/*** @ingroup m17nShell */
-/***en @defgroup m17nLocale Locale */
-/***ja @defgroup m17nLocale ¥í¥±¡¼¥ë */
-/*=*/
-
-/***en
-    @brief @c struct @c MLocale.
-
-    The structure @c MLocale is used to hold information about name,
-    language, territory, modifier, codeset, and the corresponding
-    coding system of locales.
-
-    The contents of this structure are implementation dependent.  Its
-    internal structure is concealed from application programs.  */
-
-/***ja
-    @brief @c MLocale ¹½Â¤ÂÎ.
-
-    @c MLocale ¹½Â¤ÂÎ¤Ï¡¢¥í¥±¡¼¥ë¤ÎÌ¾Á°¡¢¸À¸ì¡¢ÃÏ°è¡¢¥â¥Ç¥£¥Õ¥¡¥¤¥¢¡¢
-    ¥³¡¼¥É¥»¥Ã¥È¡¢¤ª¤è¤ÓÂÐ±þ¤¹¤ë¥³¡¼¥É·Ï¤Ë´Ø¤¹¤ë¾ðÊó¤òÊÝ»ý¤¹¤ë¤¿¤á¤ËÍÑ
-    ¤¤¤é¤ì¤ë¡£
-
-    ¤³¤Î¹½Â¤ÂÎ¤ÎÆâÍÆ¤Ï¼ÂÁõ¤Ë°ÍÂ¸¤¹¤ë¡£ ÆâÉô¹½Â¤¤Ï¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í
-    ¥°¥é¥à¤«¤é¤Ï¸«¤¨¤Ê¤¤¡£  */
-
-/***
-    @seealso
-    mlocale_get_prop () */
-
-typedef struct MLocale MLocale;
-
-/*=*/
-
-extern MSymbol Mlanguage;
-extern MSymbol Mterritory;
-extern MSymbol Mmodifier;
-extern MSymbol Mcodeset;
-
-extern MLocale *mlocale_set (int category, const char *locale);
-
-extern MSymbol mlocale_get_prop (MLocale *locale, MSymbol key);
-
-extern int mtext_ftime (MText *mt, const char *format, const struct tm *tm,
-			MLocale *locale);
-
-extern MText *mtext_getenv (const char *name);
-
-extern int mtext_putenv (MText *mt);
-
-extern int mtext_coll (MText *mt1, MText *mt2);
-
-/*
- *  (9) Miscellaneous functions of libc level (not yet implemented)
- */
-
-/*
-extern int mtext_width (MText *mt, int n);
-extern MText *mtext_tolower (MText *mt);
-extern MText *mtext_toupper (MText *mt);
-*/
-
-/*
- *  (10) Input method
- */
-/*=*/
-/*** @ingroup m17nShell */
-/***en @defgroup m17nInputMethod Input Method (basic) */
-/***ja @defgroup m17nInputMethod ÆþÎÏ¥á¥½¥Ã¥É (´ðËÜÉôÊ¬) */
-/*=*/
-
-/* Struct forward declaration.  */
-typedef struct MInputMethod MInputMethod;
-typedef struct MInputContext MInputContext;
-
-/*** @ingroup m17nInputMethod */
-
-/***en
-    @brief Type of input method callback functions.
-
-    This is the type of callback functions called from input method
-    drivers.  #IC is a pointer to an input context, #COMMAND is a name
-    of callback for which the function is called.   */
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î·¿Àë¸À.
-
-    ÆþÎÏ¥á¥½¥Ã¥É¤«¤é¸Æ¤Ð¤ì¤ë¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î·¿¤Ç¤¢¤ë¡£#IC ¤ÏÆþÎÏ¥³¥ó
-    ¥Æ¥¯¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¡¢#COMMAND ¤Ï´Ø¿ô¤¬¸Æ¤Ð¤ì¤ë¥³¡¼¥ë¥Ð¥Ã¥¯¤ÎÌ¾Á°
-    ¤Ç¤¢¤ë¡£  */
-
-typedef void (*MInputCallbackFunc) (MInputContext *ic, MSymbol command);
-/*=*/
-
-/***en
-    @brief Structure of input method driver.
-
-    The type @c MInputDriver is the structure of an input method driver that
-    contains several functions to handle an input method.  */
-
-/***ja
-    @brief ÆþÎÏ¥É¥é¥¤¥ÐÍÑ¹½Â¤ÂÎ.
-
-    @c MInputDriver ¤Ï¡¢ÆþÎÏ¥á¥½¥Ã¥É¤ò¼è¤ê°·¤¦´Ø¿ô¤ò´Þ¤àÆþÎÏ¥á¥½¥Ã¥É¥É
-    ¥é¥¤¥Ð¤Î¹½Â¤ÂÎ¤Î·¿¤Ç¤¢¤ë¡£  */
-
-typedef struct MInputDriver
-{
-  /***en
-      @brief Open an input method.
-
-      This function opens the input method $IM.  It is called from the
-      function minput_open_im () after all member of $IM but 
-      set.  If opening $IM succeeds, it returns 0.  Otherwise, it
-      returns -1.  The function can setup $IM->info to keep various
-      information that is referred by the other driver functions.  */
-
-  /***ja
-      @brief ÆþÎÏ¥á¥½¥Ã¥É¤ò¥ª¡¼¥×¥ó¤¹¤ë.
-
-      ¤³¤Î´Ø¿ô¤Ï¡¢ÆþÎÏ¥á¥½¥Ã¥É $IM ¤ò¥ª¡¼¥×¥ó¤¹¤ë¡£$IM ¤Î  °Ê³°
-      ¤ÎÁ´¥á¥ó¥Ð¡¼¤¬¥»¥Ã¥È¤µ¤ì¤¿¸å¤Ç¡¢´Ø¿ô minput_open_im () ¤«¤é¸Æ¤Ð
-      ¤ì¤ë¡£$IM ¤ò¥ª¡¼¥×¥ó¤Ç¤¤ì¤Ð 0 ¤ò¡¢¤Ç¤¤Ê¤±¤ì¤Ð -1¤òÊÖ¤¹¡£¤³¤Î´Ø
-      ¿ô¤Ï $IM->info ¤òÀßÄê¤·¤Æ¡¢Â¾¤Î¥É¥é¥¤¥Ð´Ø¿ô¤«¤é»²¾È¤µ¤ì¤ë¾ðÊó¤ò
-      ÊÝ»ý¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
-      */
-
-  int (*open_im) (MInputMethod *im);
-
-  /***en
-      @brief Close an input method.
-
-      This function closes the input method $IM.  It is called from
-      the function minput_close_im ().  It frees all memory allocated
-      for $IM->info (if any) after finishing all the tasks of closing
-      the input method.  But, the other members of $IM should not be
-      touched.  */
-
-  /***ja
-      @brief ÆþÎÏ¥á¥½¥Ã¥É¤ò¥¯¥í¡¼¥º¤¹¤ë.
-
-      ¤³¤Î´Ø¿ô¤Ï¡¢ÆþÎÏ¥á¥½¥Ã¥É $IM ¤ò¥¯¥í¡¼¥º¤¹¤ë¡£´Ø¿ô 
-      minput_close_im () ¤«¤é¸Æ¤Ð¤ì¤ë¡£ÆþÎÏ¥á¥½¥Ã¥É¤Î¥¯¥í¡¼¥º¤¬¤¹¤Ù¤Æ
-      ½ªÎ»¤·¤¿»þÅÀ¤Ç¡¢$IM->info ¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥á¥â¥ê¤ò(¤¢¤ì¤Ð)¤¹
-      ¤Ù¤Æ³«Êü¤¹¤ë¡£¤¿¤À¤·¡¢$IM ¤ÎÂ¾¤Î¥á¥ó¥Ð¤Ë±Æ¶Á¤òÍ¿¤¨¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-        */
-
-  void (*close_im) (MInputMethod *im);
-
-  /***en
-      @brief Create an input context.
-
-      This function creates the input context $IC.  It is called from
-      the function minput_create_ic () after all members of $IC but
-       are set.  If creating $IC succeeds, it returns 0.
-      Otherwise, it returns -1.  The function can setup $IC->info to
-      keep various information that is referred by the other driver
-      functions.  */
-
-  /***ja
-      @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÀ¸À®¤¹¤ë.
-
-      ¤³¤Î´Ø¿ô¤ÏÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤òÀ¸À®¤¹¤ë¡£$IC ¤Î  °Ê³°¤Î
-      Á´¥á¥ó¥Ð¡¼¤¬¥»¥Ã¥È¤µ¤ì¤¿¸å¤Ç¡¢´Ø¿ô minput_create_ic () ¤«¤é¸Æ¤Ð
-      ¤ì¤ë¡£$IC ¤òÀ¸À®¤Ç¤¤ì¤Ð 0 ¤ò¡¢¤Ç¤¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£¤³¤Î´Ø¿ô
-      ¤Ï $IC->info ¤òÀßÄê¤·¤Æ¡¢Â¾¤Î¥É¥é¥¤¥Ð´Ø¿ô¤«¤é»²¾È¤µ¤ì¤ë¾ðÊó¤òÊÝ
-      »ý¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£  */
-
-
-  int (*create_ic) (MInputContext *ic);
-
-  /***en
-      @brief Destroy an input context.
-
-      This function is called from the function minput_destroy_ic ()
-      and destroys the input context $IC.  It frees all memory
-      allocated for $IC->info (if any) after finishing all the tasks
-      of destroying the input method.  But, the other members of $IC
-      should not be touched.  */
-
-  /***ja
-      @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤òÇË²õ¤¹¤ë.
-
-      ´Ø¿ô minput_destroy_ic () ¤«¤é¸Æ¤Ð¤ì¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤òÇË
-      ²õ¤¹¤ë¡£ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤ÎÇË²õ¤¬¤¹¤Ù¤Æ½ªÎ»¤·¤¿»þÅÀ¤Ç¡¢$IC->info 
-      ¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥á¥â¥ê¤ò(¤¢¤ì¤Ð)¤¹¤Ù¤Æ³«Êü¤¹¤ë¡£¤¿¤À¤·¡¢$IC 
-      ¤ÎÂ¾¤Î¥á¥ó¥Ð¤Ë±Æ¶Á¤òÍ¿¤¨¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£  */
-
-  void (*destroy_ic) (MInputContext *ic);
-
-  /***en
-      @brief Filter an input key.
-
-      This function is called from the function minput_filter () and
-      filters an input key.  $KEY and $ARG are the same as what given
-      to minput_filter ().
-
-      The task of the function is to handle $KEY, update the internal
-      state of $IC.  If $KEY is absorbed by the input method and no
-      text is produced, it returns 1.  Otherwise, it returns 0.
-
-      It may update $IC->status, $IC->preedit, $IC->cursor_pos,
-      $IC->ncandidates, $IC->candidates, and $IC->produced if that is
-      necessary for the member .
-
-      The meaning of $ARG depends on the input method river.  See the
-      documentation of @c minput_default_driver and @c
-      minput_gui_driver for instance.  */
-
-  /***ja
-      @brief ÆþÎÏ¥¡¼¤ò¥Õ¥£¥ë¥¿¤¹¤ë.
-
-      ´Ø¿ô minput_filter () ¤«¤é¸Æ¤Ð¤ì¡¢ÆþÎÏ¥¡¼¤ò¥Õ¥£¥ë¥¿¤¹¤ë¡£°ú¿ô 
-      $KEY, $ARG ¤Ï´Ø¿ô minput_filter () ¤Î¤â¤Î¤ÈÆ±¤¸¡£
-
-      ¤³¤Î´Ø¿ô¤Ï $KEY ¤ò½èÍý¤·¡¢$IC ¤ÎÆâÉô¾õÂÖ¤ò¹¹¿·¤¹¤ë¡£ $KEY ¤¬ÆþÎÏ
-      ¥á¥½¥Ã¥É¤ËµÛ¼ý¤µ¤ì¤Æ¥Æ¥¥¹¥È¤¬À¸À®¤µ¤ì¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢ 1 ¤òÊÖ
-      ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 0 ¤òÊÖ¤¹¡£
-
-      ¥á¥ó¥Ð  ¤ËÉ¬Í×¤Ç¤¢¤ì¤Ð¡¢$IC->status, $IC->preedit,
-      $IC->cursor_pos, $IC->ncandidates, $IC->candidates,
-      $IC->produced ¤ò¹¹¿·¤Ç¤¤ë¡£
-
-      $ARG ¤Î°ÕÌ£¤ÏÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ë°ÍÂ¸¤¹¤ë¡£Îã¤Ï @c
-      minput_default_driver ¤Þ¤¿¤Ï @c minput_gui_driver ¤ÎÀâÌÀ¤ò»²¾È¤Î
-      ¤³¤È¡£ */
-
-  int (*filter) (MInputContext *ic, MSymbol key, void *arg);
-
-  /***en
-      @brief  Lookup a produced text in an input context.
-
-      It is called from the function minput_lookup () and looks up a
-      produced text in the input context $IC.  This function
-      concatenate a text produced by the input key $KEY (if any) to
-      M-text $MT.  If $KEY was correctly handled by the input method
-      of $IC, it returns 0.  Otherwise, it returns 1.
-
-      The meaning of $ARG depends on the input method driver.  See the
-      documentation of @c minput_default_driver and @c
-      minput_gui_driver for instance.  */
-
-  /***ja
-      @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤ÇÀ¸À®¤µ¤ì¤ë¥Æ¥¥¹¥È¤Î³ÍÆÀ.
-
-      ´Ø¿ô minput_lookup () ¤«¤é¸Æ¤Ð¤ì¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È $IC ¤ÇÀ¸À®¤µ
-      ¤ì¤ë¥Æ¥¥¹¥È¤ò¸¡º÷¤¹¤ë¡£ÆþÎÏ¥¡¼ $KEY ¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤ë¥Æ¥¥¹¥È
-      ¤¬¤¢¤ì¤Ð¡¢M-text $MT ¤ËÄÉ²Ã¤¹¤ë¡£ $KEY ¤¬ÆþÎÏ¥á¥½¥Ã¥É $IC ¤Ë¤è¤Ã
-      ¤ÆÀµ¤·¤¯½èÍý¤µ¤ì¤ì¤Ð 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 1 ¤òÊÖ¤¹¡£
-
-      $ARG ¤Î°ÕÌ£¤ÏÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ë°ÍÂ¸¤¹¤ë¡£Îã¤Ï @c
-      minput_default_driver ¤Þ¤¿¤Ï @c minput_gui_driver ¤ÎÀâÌÀ¤ò»²¾È¤Î
-      ¤³¤È¡£ */
-
-  int (*lookup) (MInputContext *ic, MSymbol key, void *arg, MText *mt);
-
-  /***en
-      @brief List of callback functions.
-
-      List of callback functions.  Keys are one of
-      #Minput_preedit_start, #Minput_preedit_draw,
-      #Minput_preedit_done, #Minput_status_start, #Minput_status_draw,
-      #Minput_status_done, #Minput_candidates_start,
-      #Minput_candidates_draw, #Minput_candidates_done,
-      #Minput_set_spot, and #Minput_toggle.  Values are functions of
-      type #MInputCallbackFunc.  */
-  /***ja
-      @brief ¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î¥ê¥¹¥È.
-
-      ¥³¡¼¥ë¥Ð¥Ã¥¯´Ø¿ô¤Î¥ê¥¹¥È¡£¥¡¼¤Ï¼¡¤Î¤¤¤º¤ì¤«¡£
-      #Minput_preedit_start, #Minput_preedit_draw,
-      #Minput_preedit_done, #Minput_status_start, #Minput_status_draw,
-      #Minput_status_done, #Minput_candidates_start,
-      #Minput_candidates_draw, #Minput_candidates_done,
-      #Minput_set_spot, #Minput_toggle¡£ ÃÍ¤Ï#MInputCallbackFunc ·¿¤Î
-      ´Ø¿ô¡£.  */
-  MPlist *callback_list;
-
-} MInputDriver;
-/*=*/
-
-extern MInputDriver minput_default_driver;
-
-extern MSymbol Minput_driver;
-
-extern MInputDriver *minput_driver;
-
-/** Symbols for callback commands.  */
-extern MSymbol Minput_preedit_start;
-extern MSymbol Minput_preedit_draw;
-extern MSymbol Minput_preedit_done;
-extern MSymbol Minput_status_start;
-extern MSymbol Minput_status_draw;
-extern MSymbol Minput_status_done;
-extern MSymbol Minput_candidates_start;
-extern MSymbol Minput_candidates_draw;
-extern MSymbol Minput_candidates_done;
-extern MSymbol Minput_set_spot;
-extern MSymbol Minput_toggle;
-
-/***en
-    @brief Structure of input method.
-
-    The type @c MInputMethod is the structure of input method
-    objects.  */
-/***ja
-    @brief ÆþÎÏ¥á¥½¥Ã¥É¤Î¹½Â¤ÂÎ.
-
-    @c MInputMethod ¤Ï¡¢ÆþÎÏ¥á¥½¥Ã¥É¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Î¹½Â¤ÂÎ¤Î·¿¤Ç¤¢¤ë¡£  */
-
-struct MInputMethod
-{
-  /***en Which language this input method is for.  The value is @c
-      Mnil if the input method is foreign.  */
-  /***ja ¤É¤Î¸À¸ìÍÑ¤ÎÆþÎÏ¥á¥½¥Ã¥É¤«¡£ÆþÎÏ¥á¥½¥Ã¥É¤¬³°Éô¤Î¤â¤Î¤Ç¤¢¤ë¾ì
-      ¹ç¤Ë¤ÏÃÍ¤È¤·¤Æ @c Mnil ¤ò»ý¤Ä¡£  */
-  MSymbol language;
-
-  /***en Name of the input method.  If the input method is foreign, it
-      must has a property of key @c Minput_driver and the value must be a
-      pointer to a proper input method driver.  */
-  /***ja ÆþÎÏ¥á¥½¥Ã¥É¤ÎÌ¾Á°¡£³°Éô¥á¥½¥Ã¥É¤Ç¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢@c
-      Minput_driver ¤ò¥¡¼¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Á¡¢¤½¤ÎÃÍ¤ÏÅ¬ÀÚ¤ÊÆþÎÏ¥á
-      ¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£*/
-  MSymbol name;
-
-  /***en Input method driver of the input method.  */
-  /***ja ¤½¤ÎÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤ÎÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¡£  */
-  MInputDriver driver;
-
-  /***en The argument given to minput_open_im (). */
-  /***ja minput_open_im () ¤ËÅÏ¤µ¤ì¤ë°ú¿ô¡£  */
-  void *arg;
-
-  /***en Pointer to extra information that .open_im ()
-      setups. */
-  /***ja .open_im () ¤¬ÀßÄê¤¹¤ëÄÉ²Ã¾ðÊó¤Ø¤Î¥Ý¥¤¥ó¥¿¡£ */
-  void *info;
-};
-
-/*=*/
-
-/***en
-    @brief Structure of input context.
-
-    The type @c MInputContext is the structure of input context
-    objects.  */
-
-/***ja
-    @brief ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥ÈÍÑ¹½Â¤ÂÎ.
-
-    @c MInputContext ¤Ï¡¢ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Î¹½Â¤ÂÎ¤Î·¿¤Ç
-    ¤¢¤ë¡£  */
-
-struct MInputContext
-{
-  /***en Backward pointer to the input method.  It is set up be the
-      function minput_create_ic ().  */
-  /***ja ÆþÎÏ¥á¥½¥Ã¥É¤Ø¤ÎµÕ¥Ý¥¤¥ó¥¿¡£´Ø¿ô minput_create_ic () ¤Ë¤è¤Ã¤Æ
-      ÀßÄê¤µ¤ì¤ë¡£  */ 
-  MInputMethod *im;
-
-  /***en M-text produced by the input method.  It is set up by the
-      function minput_lookup () .  */
-  /***ja ÆþÎÏ¥á¥½¥Ã¥É¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤ë M-text¡£´Ø¿ô minput_lookup () 
-      ¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ë¡£  */
-  MText *produced;
-
-  /***en Argument given to the function minput_create_im (). */
-  /***ja ´Ø¿ô minput_create_ic () ¤ËÅÏ¤µ¤ì¤ë°ú¿ô¡£ */
-  void *arg;
-
-  /***en Flag telling whether the input context is currently active or
-      inactive.  The value is set to 1 (active) when the input context
-      is created.  It can be toggled by the function minput_toggle
-      ().  */
-  /***ja ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤¬¥¢¥¯¥Æ¥£¥Ö¤«¤É¤¦¤«¤ò¼¨¤¹¥Õ¥é¥°¡£ÆþÎÏ¥³¥ó¥Æ
-      ¥¯¥¹¥È¤¬À¸À®¤µ¤ì¤¿»þÅÀ¤Ç¤ÏÃÍ¤Ï 1 ¡Ê¥¢¥¯¥Æ¥£¥Ö¡Ë¤Ç¤¢¤ê¡¢´Ø¿ô 
-      minput_toggle () ¤Ë¤è¤Ã¤Æ¥È¥°¥ë¤µ¤ì¤ë¡£  */
-  int active;
-
-
-  /***en Spot location and size of the input context.  */
-  /***ja ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Î¥¹¥Ý¥Ã¥È¤Î°ÌÃÖ¤ÈÂç¤¤µ.  */
-  struct {
-    /***en X and Y coordinate of the spot.  */
-    /***ja ¥¹¥Ý¥Ã¥È¤Î X, Y ºÂÉ¸.  */
-    int x, y;
-
-    /***en Ascent and descent pixels of the line of the spot.  */
-    /***ja ¥¹¥Ý¥Ã¥È¤Î¥¢¥»¥ó¥È¤È¥Ç¥£¥»¥ó¥È¤Î¥Ô¥¯¥»¥ë¿ô.  */
-    int ascent, descent;
-
-    /***en Font size for preedit text in 1/10 point.  */
-    /***ja preedit ¥Æ¥¥¹¥ÈÍÑ¤Î¥Õ¥©¥ó¥È¥µ¥¤¥º (1/10 ¥Ý¥¤¥ó¥ÈÃ±°Ì).  */
-    int fontsize;
-
-    /***en M-text at the spot, or NULL.  */
-    /***ja ¥¹¥Ý¥Ã¥È¾å¤Î M-text¡¢¤Þ¤¿¤Ï NULL.  */
-    MText *mt;
-
-    /***en Character position in  at the spot.  */
-    /***ja  ¤Ë¤ª¤±¤ë¥¹¥Ý¥Ã¥È¤ÎÊ¸»ú°ÌÃÖ.  */
-    int pos;
-  } spot;
-
-  /***en The usage of the following members depends on the input
-      method driver.  The descriptions below are for the driver of an
-      internal input method.  They are set by the function
-      ->driver.filter ().  */
-  /***ja °Ê²¼¤Î¥á¥ó¥Ð¤Î»ÈÍÑË¡¤ÏÆþÎÏ¥á¥½¥Ã¥É¥É¥é¥¤¥Ð¤Ë¤è¤Ã¤Æ°Û¤Ê¤ë¡£°Ê
-      ²¼¤ÎÀâÌÀ¤Ï¡¢ÆâÉôÆþÎÏ¥á¥½¥Ã¥ÉÍÑ¤ÎÆþÎÏ¥É¥é¥¤¥Ð¤ËÂÐ¤¹¤ë¤â¤Î¤Ç¤¢¤ë¡£
-      ¤³¤ì¤é¤Ï´Ø¿ô ->driver.filter () ¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ë¡£  */
-
-  /***en Pointer to extra information that ->driver.create_ic ()
-      setups.  It is used to record the internal state of the input
-      context.  */
-  /***ja ->driver.create_ic () ¤¬ÀßÄê¤¹¤ëÄÉ²Ã¾ðÊó¤Ø¤Î¥Ý¥¤¥ó¥¿¡£Æþ
-      ÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤ÎÆâÉô¾õÂÖ¤òµÏ¿¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë¡£ */
-  void *info;
-
-  /***en M-text describing the current status of the input
-      context.  */
-  /***ja ÆþÎÏ¥³¥ó¥Æ¥¯¥¹¥È¤Î¸½ºß¤Î¾õ¶·¤òÉ½¤¹ M-text  */
-  MText *status;
-
-  /***en The function ->driver.filter () sets the value to 1 when
-      it changes .  */
-  /***ja ´Ø¿ô ->driver.filter () ¤Ï¡¢ ¤òÊÑ¤¨¤¿»þ¤³¤ÎÃÍ¤ò 1 
-      ¤ËÀßÄê¤¹¤ë¡£  */
-  int status_changed;
-
-  /***en M-text containing the current preedit text.  The function
-      ->driver.filter () sets the value.  */
-  /***ja ¸½ºß¤Î preedit ¥Æ¥¥¹¥È¤ò´Þ¤à M-text¡£´Ø¿ô 
-      ->driver.filter () ¤¬¤³¤ÎÃÍ¤òÀßÄê¤¹¤ë¡£  */ 
-  MText *preedit;
-
-  /***en The function ->driver.filter () sets the value to 1 when
-      it changes .  */
-  /***ja ´Ø¿ô ->driver.filter () ¤Ï¡¢ ¤òÊÑ¤¨¤¿»þ¤³¤ÎÃÍ¤ò 
-      1 ¤ËÀßÄê¤¹¤ë¡£  */
-  int preedit_changed;
-
-  /***en Cursor position of .  */
-  /***ja ¤Î¥«¡¼¥½¥ë°ÌÃÖ  */
-  int cursor_pos;
-
-  int cursor_pos_changed;
-
-  /***en Array of the current candidate texts.  */
-  /***ja ¸½ºß¤Î¥Æ¥¥¹¥È¸õÊä¤ÎÇÛÎó.  */
-  MPlist *candidate_list;
-  int candidate_index;
-  int candidate_from, candidate_to;
-  int candidate_show;
-
-  /***en The function ->driver.filter () sets the value to 1 when
-      it changes one of the above members.  */
-  /***ja ´Ø¿ô ->driver.filter () ¤Ï¡¢¾åµ¤Î¥á¥ó¥Ð¤Î£±¤Ä¤òÊÑ¤¨¤¿»þ
-      ¤³¤ÎÃÍ¤ò 1 ¤ËÀßÄê¤¹¤ë¡£  */
-  int candidates_changed;
-
-  MPlist *plist;
-};
-
-/*=*/
-
-extern MInputMethod *minput_open_im (MSymbol language, MSymbol name,
-				     void *arg);
-
-/*=*/
-
-extern void minput_close_im (MInputMethod *im);
-
-extern MInputContext *minput_create_ic (MInputMethod *im, void *arg);
-
-extern void minput_destroy_ic (MInputContext *ic);
-
-extern int minput_filter (MInputContext *ic, MSymbol key, void *arg);
-
-extern int minput_lookup (MInputContext *ic, MSymbol key, void *arg,
-			  MText *mt);
-
-extern void minput_set_spot (MInputContext *ic, int x, int y,
-			     int ascent, int descent, int fontsize,
-			     MText *mt, int pos);
-
-extern void minput_toggle (MInputContext *ic);
-
-/*=*/
-
-extern MInputMethod *mdebug_dump_im (MInputMethod *im, int indent);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* _M17N_H_ */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/mlocale.h b/src/mlocale.h
deleted file mode 100644
index 306dfe9..0000000
--- a/src/mlocale.h
+++ /dev/null
@@ -1,30 +0,0 @@
-/* mlocale.c -- header file for the locale module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_LOCAL_H_
-#define _M17N_LOCAL_H_
-
-/** The current locales of each category.  */
-extern MLocale *mlocale__collate, *mlocale__ctype;
-extern MLocale *mlocale__messages, *mlocale__time;
-
-#endif /* _M17N_LOCAL_H_ */
diff --git a/src/mtext.c b/src/mtext.c
deleted file mode 100644
index f117cf2..0000000
--- a/src/mtext.c
+++ /dev/null
@@ -1,2810 +0,0 @@
-/* mtext.c -- M-text module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nMtext
-    @brief M-text objects and API for them.
-
-    In the m17n library, text is represented as an object called @e
-    M-text rather than as a C-string (char * or unsigned
-    char *).  An M-text is a sequence of characters whose length
-    is equals to or more than 0, and can be coined from various
-    character sources, e.g. C-strings, files, character codes, etc.
-
-    M-texts are more useful than C-strings in the following points.
-
-    @li M-texts can handle mixture of characters of various scripts,
-    including all Unicode characters and more.  This is an
-    indispensable facility when handling multilingual text.
-
-    @li Each character in an M-text can have properties called @e text
-    @e properties. Text properties store various kinds of information
-    attached to parts of an M-text to provide application programs
-    with a unified view of those information.  As rich information can
-    be stored in M-texts in the form of text properties, functions in
-    application programs can be simple.
-
-    In addition, the library provides many functions to manipulate an
-    M-text just the same way as a C-string.  */
-
-/***ja
-    @addtogroup m17nMtext
-
-    @brief M-text ¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢ C-string¡Êchar * ¤ä unsigned
-    char *¡Ë¤Ç¤Ï¤Ê¤¯ @e M-text ¤È¸Æ¤Ö¥ª¥Ö¥¸¥§¥¯¥È¤Ç¥Æ¥¥¹¥È¤òÉ½¸½¤¹¤ë¡£
-    M-text ¤ÏÄ¹¤µ 0 °Ê¾å¤ÎÊ¸»úÎó¤Ç¤¢¤ê¡¢¼ï¡¹¤ÎÊ¸»ú¥½¡¼¥¹¡Ê¤¿¤È¤¨¤Ð 
-    C-string¡¢¥Õ¥¡¥¤¥ë¡¢Ê¸»ú¥³¡¼¥ÉÅù¡Ë¤«¤éºîÀ®¤Ç¤¤ë¡£
-
-    M-text ¤Ë¤Ï¡¢C-string ¤Ë¤Ê¤¤°Ê²¼¤ÎÆÃÄ§¤¬¤¢¤ë¡£     
-
-    @li M-text ¤ÏÈó¾ï¤ËÂ¿¤¯¤Î¼ïÎà¤ÎÊ¸»ú¤ò¡¢Æ±»þ¤Ë¡¢º®ºß¤µ¤»¤Æ¡¢Æ±Åù¤Ë
-    °·¤¦¤³¤È¤¬¤Ç¤¤ë¡£Unicode ¤ÎÁ´¤Æ¤ÎÊ¸»ú¤Ï¤â¤Á¤í¤ó¡¢¤è¤êÂ¿¤¯¤ÎÊ¸»ú¤Þ
-    ¤Ç°·¤¨¤ë¡£¤³¤ì¤ÏÂ¿¸À¸ì¥Æ¥¥¹¥È¤ò°·¤¦¾å¤Ç¤ÏÉ¬¿Ü¤Îµ¡Ç½¤Ç¤¢¤ë¡£
-
-    @li M-text Æâ¤Î³ÆÊ¸»ú¤Ï¡¢@e ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ ¤È¸Æ¤Ð¤ì¤ë¥×¥í¥Ñ¥Æ¥£
-    ¤ò»ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ë¤è¤Ã¤Æ¡¢¥Æ¥¥¹¥È¤Î³ÆÉô°Ì¤Ë
-    ´Ø¤¹¤ëÍÍ¡¹¤Ê¾ðÊó¤ò M-text Æâ¤ËÊÝ»ý¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£¤½¤Î¤¿¤á¡¢¤½¤ì
-    ¤é¤Î¾ðÊó¤ò¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥àÆâ¤ÇÅý°ìÅª¤Ë°·¤¦¤³¤È¤¬¤Ç¤¤ë¡£
-    ¤Þ¤¿¡¢M-text ¼«ÂÎ¤¬ËÉÙ¤Ê¾ðÊó¤ò»ý¤Ä¤¿¤á¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é
-    ¥àÃæ¤Î³Æ´Ø¿ô¤ò´ÊÁÇ²½¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
-
-    ¤µ¤é¤Ëm17n ¥é¥¤¥Ö¥é¥ê¤Ï¡¢ C-string ¤òÁàºî¤¹¤ë¤¿¤á¤ËÄó¶¡¤µ¤ì¤ë¼ï¡¹
-    ¤Î´Ø¿ô¤ÈÆ±Åù¤Î¤â¤Î¤ò M-text ¤òÁàºî¤¹¤ë¤¿¤á¤Ë¥µ¥Ý¡¼¥È¤·¤Æ¤¤¤ë¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "textprop.h"
-#include "character.h"
-#include "mtext.h"
-#include "plist.h"
-
-static M17NObjectArray mtext_table;
-
-static MSymbol M_charbag;
-
-#ifdef WORDS_BIGENDIAN
-static enum MTextFormat default_utf_16 = MTEXT_FORMAT_UTF_16BE;
-static enum MTextFormat default_utf_32 = MTEXT_FORMAT_UTF_32BE;
-#else
-static enum MTextFormat default_utf_16 = MTEXT_FORMAT_UTF_16LE;
-static enum MTextFormat default_utf_32 = MTEXT_FORMAT_UTF_32LE;
-#endif
-
-/** Increment character position CHAR_POS and unit position UNIT_POS
-    so that they point to the next character in M-text MT.  No range
-    check for CHAR_POS and UNIT_POS.  */
-
-#define INC_POSITION(mt, char_pos, unit_pos)			\
-  do {								\
-    int c;							\
-								\
-    if ((mt)->format <= MTEXT_FORMAT_UTF_8)			\
-      {								\
-	c = (mt)->data[(unit_pos)];				\
-	(unit_pos) += CHAR_UNITS_BY_HEAD_UTF8 (c);		\
-      }								\
-    else if ((mt)->format <= MTEXT_FORMAT_UTF_16BE)		\
-      {								\
-	c = ((unsigned short *) ((mt)->data))[(unit_pos)];	\
-								\
-	if ((mt)->format != default_utf_16)			\
-	  c = SWAP_16 (c);					\
-	(unit_pos) += CHAR_UNITS_BY_HEAD_UTF16 (c);		\
-      }								\
-    else							\
-      (unit_pos)++;						\
-    (char_pos)++;						\
-  } while (0)
-
-
-/** Decrement character position CHAR_POS and unit position UNIT_POS
-    so that they point to the previous character in M-text MT.  No
-    range check for CHAR_POS and UNIT_POS.  */
-
-#define DEC_POSITION(mt, char_pos, unit_pos)				\
-  do {									\
-    if ((mt)->format <= MTEXT_FORMAT_UTF_8)				\
-      {									\
-	unsigned char *p1 = (mt)->data + (unit_pos);			\
-	unsigned char *p0 = p1 - 1;					\
-									\
-	while (! CHAR_HEAD_P (p0)) p0--;				\
-	(unit_pos) -= (p1 - p0);					\
-      }									\
-    else if ((mt)->format <= MTEXT_FORMAT_UTF_16BE)			\
-      {									\
-	int c = ((unsigned short *) ((mt)->data))[(unit_pos) - 1];	\
-									\
-	if ((mt)->format != default_utf_16)				\
-	  c = SWAP_16 (c);						\
-	(unit_pos) -= 2 - (c < 0xD800 || c >= 0xE000);			\
-      }									\
-    else								\
-      (unit_pos)--;							\
-    (char_pos)--;							\
-  } while (0)
-
-
-/* Compoare sub-texts in MT1 (range FROM1 and TO1) and MT2 (range
-   FROM2 to TO2). */
-
-static int
-compare (MText *mt1, int from1, int to1, MText *mt2, int from2, int to2)
-{
-  if (mt1->format == mt2->format
-      && (mt1->format <= MTEXT_FORMAT_UTF_8))
-    {
-      unsigned char *p1, *pend1, *p2, *pend2;
-      int unit_bytes = UNIT_BYTES (mt1->format);
-      int nbytes;
-      int result;
-
-      p1 = mt1->data + mtext__char_to_byte (mt1, from1) * unit_bytes;
-      pend1 = mt1->data + mtext__char_to_byte (mt1, to1) * unit_bytes;
-
-      p2 = mt2->data + mtext__char_to_byte (mt2, from2) * unit_bytes;
-      pend2 = mt2->data + mtext__char_to_byte (mt2, to2) * unit_bytes;
-
-      if (pend1 - p1 < pend2 - p2)
-	nbytes = pend1 - p1;
-      else
-	nbytes = pend2 - p2;
-      result = memcmp (p1, p2, nbytes);
-      if (result)
-	return result;
-      return ((pend1 - p1) - (pend2 - p2));
-    }
-  for (; from1 < to1 && from2 < to2; from1++, from2++)
-    {
-      int c1 = mtext_ref_char (mt1, from1);
-      int c2 = mtext_ref_char (mt2, from2);
-
-      if (c1 != c2)
-	return (c1 > c2 ? 1 : -1);
-    }
-  return (from2 == to2 ? (from1 < to1) : -1);
-}
-
-
-/* Return how many units are required in UTF-8 to represent characters
-   between FROM and TO of MT.  */
-
-static int
-count_by_utf_8 (MText *mt, int from, int to)
-{
-  int n, c;
-
-  for (n = 0; from < to; from++)
-    {
-      c = mtext_ref_char (mt, from);
-      n += CHAR_UNITS_UTF8 (c);
-    }
-  return n;
-}
-
-
-/* Return how many units are required in UTF-16 to represent
-   characters between FROM and TO of MT.  */
-
-static int
-count_by_utf_16 (MText *mt, int from, int to)
-{
-  int n, c;
-
-  for (n = 0; from < to; from++)
-    {
-      c = mtext_ref_char (mt, from);
-      n += CHAR_UNITS_UTF16 (c);
-    }
-  return n;
-}
-
-
-/* Insert text between FROM and TO of MT2 at POS of MT1.  */
-
-static MText *
-insert (MText *mt1, int pos, MText *mt2, int from, int to)
-{
-  int pos_unit = POS_CHAR_TO_BYTE (mt1, pos);
-  int from_unit = POS_CHAR_TO_BYTE (mt2, from);
-  int new_units = POS_CHAR_TO_BYTE (mt2, to) - from_unit;
-  int unit_bytes;
-
-  if (mt1->nchars == 0)
-    mt1->format = mt2->format;
-  else if (mt1->format != mt2->format)
-    {
-      /* Be sure to make mt1->format sufficient to contain all
-	 characters in mt2.  */
-      if (mt1->format == MTEXT_FORMAT_UTF_8
-	  || mt1->format == default_utf_32
-	  || (mt1->format == default_utf_16
-	      && mt2->format <= MTEXT_FORMAT_UTF_16BE
-	      && mt2->format != MTEXT_FORMAT_UTF_8))
-	;
-      else if (mt1->format == MTEXT_FORMAT_US_ASCII)
-	{
-	  if (mt2->format == MTEXT_FORMAT_UTF_8)
-	    mt1->format = MTEXT_FORMAT_UTF_8;
-	  else if (mt2->format == default_utf_16
-		   || mt2->format == default_utf_32)
-	    mtext__adjust_format (mt1, mt2->format);
-	  else
-	    mtext__adjust_format (mt1, MTEXT_FORMAT_UTF_8);
-	}
-      else
-	{
-	  mtext__adjust_format (mt1, MTEXT_FORMAT_UTF_8);
-	  pos_unit = POS_CHAR_TO_BYTE (mt1, pos);
-	}
-    }
-
-  unit_bytes = UNIT_BYTES (mt1->format);
-
-  if (mt1->format == mt2->format)
-    {
-      int pos_byte = pos_unit * unit_bytes;
-      int total_bytes = (mt1->nbytes + new_units) * unit_bytes;
-      int new_bytes = new_units * unit_bytes;
-
-      if (total_bytes + unit_bytes > mt1->allocated)
-	{
-	  mt1->allocated = total_bytes + unit_bytes;
-	  MTABLE_REALLOC (mt1->data, mt1->allocated, MERROR_MTEXT);
-	}
-      if (pos < mt1->nchars)
-	memmove (mt1->data + pos_byte + new_bytes, mt1->data + pos_byte,
-		 (mt1->nbytes - pos_unit + 1) * unit_bytes);
-      memcpy (mt1->data + pos_byte, mt2->data + from_unit * unit_bytes,
-	      new_bytes);
-    }
-  else if (mt1->format == MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p;
-      int total_bytes, i, c;
-
-      new_units = count_by_utf_8 (mt2, from, to);
-      total_bytes = mt1->nbytes + new_units;
-
-      if (total_bytes + 1 > mt1->allocated)
-	{
-	  mt1->allocated = total_bytes + 1;
-	  MTABLE_REALLOC (mt1->data, mt1->allocated, MERROR_MTEXT);
-	}
-      p = mt1->data + pos_unit;
-      memmove (p + new_units, p, mt1->nbytes - pos_unit + 1);
-      for (i = from; i < to; i++)
-	{
-	  c = mtext_ref_char (mt2, i);
-	  p += CHAR_STRING_UTF8 (c, p);
-	}
-    }
-  else if (mt1->format == default_utf_16)
-    {
-      unsigned short *p;
-      int total_bytes, i, c;
-
-      new_units = count_by_utf_16 (mt2, from, to);
-      total_bytes = (mt1->nbytes + new_units) * USHORT_SIZE;
-
-      if (total_bytes + USHORT_SIZE > mt1->allocated)
-	{
-	  mt1->allocated = total_bytes + USHORT_SIZE;
-	  MTABLE_REALLOC (mt1->data, mt1->allocated, MERROR_MTEXT);
-	}
-      p = (unsigned short *) mt1->data + pos_unit;
-      memmove (p + new_units, p,
-	       (mt1->nbytes - pos_unit + 1) * USHORT_SIZE);
-      for (i = from; i < to; i++)
-	{
-	  c = mtext_ref_char (mt2, i);
-	  p += CHAR_STRING_UTF16 (c, p);
-	}
-    }
-  else				/* default_utf_32 */
-    {
-      unsigned int *p;
-      int total_bytes, i;
-
-      new_units = to - from;
-      total_bytes = (mt1->nbytes + new_units) * UINT_SIZE;
-
-      if (total_bytes + UINT_SIZE > mt1->allocated)
-	{
-	  mt1->allocated = total_bytes + UINT_SIZE;
-	  MTABLE_REALLOC (mt1->data, mt1->allocated, MERROR_MTEXT);
-	}
-      p = (unsigned *) mt1->data + pos_unit;
-      memmove (p + new_units, p,
-	       (mt1->nbytes - pos_unit + 1) * UINT_SIZE);
-      for (i = from; i < to; i++)
-	*p++ = mtext_ref_char (mt2, i);
-    }
-
-  mtext__adjust_plist_for_insert
-    (mt1, pos, to - from,
-     mtext__copy_plist (mt2->plist, from, to, mt1, pos));
-  mt1->nchars += to - from;
-  mt1->nbytes += new_units;
-  if (mt1->cache_char_pos > pos)
-    {
-      mt1->cache_char_pos += to - from;
-      mt1->cache_byte_pos += new_units;
-    }
-
-  return mt1;
-}
-
-
-static MCharTable *
-get_charbag (MText *mt)
-{
-  MTextProperty *prop = mtext_get_property (mt, 0, M_charbag);
-  MCharTable *table;
-  int i;
-
-  if (prop)
-    {
-      if (prop->end == mt->nchars)
-	return ((MCharTable *) prop->val);
-      mtext_detach_property (prop);
-    }
-
-  table = mchartable (Msymbol, (void *) 0);
-  for (i = mt->nchars - 1; i >= 0; i--)
-    mchartable_set (table, mtext_ref_char (mt, i), Mt);
-  prop = mtext_property (M_charbag, table, MTEXTPROP_VOLATILE_WEAK);
-  mtext_attach_property (mt, 0, mtext_nchars (mt), prop);
-  M17N_OBJECT_UNREF (prop);
-  return table;
-}
-
-
-/* span () : Number of consecutive chars starting at POS in MT1 that
-   are included (if NOT is Mnil) or not included (if NOT is Mt) in
-   MT2.  */
-
-static int
-span (MText *mt1, MText *mt2, int pos, MSymbol not)
-{
-  int nchars = mtext_nchars (mt1);
-  MCharTable *table = get_charbag (mt2);
-  int i;
-
-  for (i = pos; i < nchars; i++)
-    if ((MSymbol) mchartable_lookup (table, mtext_ref_char (mt1, i)) == not)
-      break;
-  return (i - pos);
-}
-
-
-static int
-count_utf_8_chars (const void *data, int nitems)
-{
-  unsigned char *p = (unsigned char *) data;
-  unsigned char *pend = p + nitems;
-  int nchars = 0;
-
-  while (p < pend)
-    {
-      int i, n;
-
-      for (; p < pend && *p < 128; nchars++, p++);
-      if (p == pend)
-	return nchars;
-      if (! CHAR_HEAD_P_UTF8 (p))
-	return -1;
-      n = CHAR_UNITS_BY_HEAD_UTF8 (*p);
-      if (p + n > pend)
-	return -1;
-      for (i = 1; i < n; i++)
-	if (CHAR_HEAD_P_UTF8 (p + i))
-	  return -1;
-      p += n;
-      nchars++;
-    }
-  return nchars;
-}
-
-static int
-count_utf_16_chars (const void *data, int nitems, int swap)
-{
-  unsigned short *p = (unsigned short *) data;
-  unsigned short *pend = p + nitems;
-  int nchars = 0;
-  int prev_surrogate = 0;
-
-  for (; p < pend; p++)
-    {
-      int c = *p;
-
-      if (swap)
-	c = SWAP_16 (c);
-      if (prev_surrogate)
-	{
-	  if (c < 0xDC00 || c >= 0xE000)
-	    return -1;
-	  prev_surrogate = 0;
-	}
-      else
-	{
-	  if (c < 0xD800)
-	    ;
-	  else if (c < 0xDC00)
-	    prev_surrogate = 1;
-	  else if (c < 0xE000)
-	    return -1;
-	  nchars++;
-	}
-    }
-  if (prev_surrogate)
-    return -1;
-  return nchars;
-}
-
-
-static int
-find_char_forward (MText *mt, int from, int to, int c)
-{
-  int from_byte = POS_CHAR_TO_BYTE (mt, from);
-
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + from_byte;
-
-      while (from < to && STRING_CHAR_ADVANCE_UTF8 (p) != c) from++;
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      unsigned short *p = (unsigned short *) (mt->data) + from_byte;
-
-      if (mt->format == default_utf_16)
-	while (from < to && STRING_CHAR_ADVANCE_UTF16 (p) != c) from++;
-      else if (c < 0x10000)
-	{
-	  c = SWAP_16 (c);
-	  while (from < to && *p != c)
-	    {
-	      from++;
-	      p += ((*p & 0xFF) < 0xD8 || (*p & 0xFF) >= 0xE0) ? 1 : 2;
-	    }
-	}
-      else if (c < 0x110000)
-	{
-	  int c1 = (c >> 10) + 0xD800;
-	  int c2 = (c & 0x3FF) + 0xDC00;
-
-	  c1 = SWAP_16 (c1);
-	  c2 = SWAP_16 (c2);
-	  while (from < to && (*p != c1 || p[1] != c2))
-	    {
-	      from++;
-	      p += ((*p & 0xFF) < 0xD8 || (*p & 0xFF) >= 0xE0) ? 1 : 2;
-	    }
-	}
-      else
-	from = to;
-    }
-  else
-    {
-      unsigned *p = (unsigned *) (mt->data) + from_byte;
-      unsigned c1 = c;
-
-      if (mt->format != default_utf_32)
-	c1 = SWAP_32 (c1);
-      while (from < to && *p++ != c1) from++;
-    }
-
-  return (from < to ? from : -1);
-}
-
-
-static int
-find_char_backward (MText *mt, int from, int to, int c)
-{
-  int to_byte = POS_CHAR_TO_BYTE (mt, to);
-
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + to_byte;
-
-      while (from < to)
-	{
-	  for (p--; ! CHAR_HEAD_P (p); p--);
-	  if (c == STRING_CHAR (p))
-	    break;
-	  to--;
-	}
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16LE)
-    {
-      unsigned short *p = (unsigned short *) (mt->data) + to_byte;
-
-      if (mt->format == default_utf_16)
-	{
-	  while (from < to)
-	    {
-	      p--;
-	      if (*p >= 0xDC00 && *p < 0xE000)
-		p--;
-	      if (c == STRING_CHAR_UTF16 (p))
-		break;
-	      to--;
-	    }
-	}
-      else if (c < 0x10000)
-	{
-	  c = SWAP_16 (c);
-	  while (from < to && p[-1] != c)
-	    {
-	      to--;
-	      p -= ((p[-1] & 0xFF) < 0xD8 || (p[-1] & 0xFF) >= 0xE0) ? 1 : 2;
-	    }
-	}
-      else if (c < 0x110000)
-	{
-	  int c1 = (c >> 10) + 0xD800;
-	  int c2 = (c & 0x3FF) + 0xDC00;
-
-	  c1 = SWAP_16 (c1);
-	  c2 = SWAP_16 (c2);
-	  while (from < to && (p[-1] != c2 || p[-2] != c1))
-	    {
-	      to--;
-	      p -= ((p[-1] & 0xFF) < 0xD8 || (p[-1] & 0xFF) >= 0xE0) ? 1 : 2;
-	    }
-	}
-    }
-  else
-    {
-      unsigned *p = (unsigned *) (mt->data) + to_byte;
-      unsigned c1 = c;
-
-      if (mt->format != default_utf_32)
-	c1 = SWAP_32 (c1);
-      while (from < to && p[-1] != c1) to--, p--;
-    }
-
-  return (from < to ? to - 1 : -1);
-}
-
-
-static void
-free_mtext (void *object)
-{
-  MText *mt = (MText *) object;
-
-  if (mt->plist)
-    mtext__free_plist (mt);
-  if (mt->data && mt->allocated >= 0)
-    free (mt->data);
-  M17N_OBJECT_UNREGISTER (mtext_table, mt);
-  free (object);
-}
-
-/** Structure for an iterator used in case-fold comparison.  */
-
-struct casecmp_iterator {
-  MText *mt;
-  int pos;
-  MText *folded;
-  unsigned char *foldedp;
-  int folded_len;
-};
-
-static int
-next_char_from_it (struct casecmp_iterator *it)
-{
-  int c, c1;
-
-  if (it->folded)
-    {
-      c = STRING_CHAR_AND_BYTES (it->foldedp, it->folded_len);
-      return c;
-    }
-
-  c = mtext_ref_char (it->mt, it->pos);
-  c1 = (int) mchar_get_prop (c, Msimple_case_folding);
-  if (c1 == 0xFFFF)
-    {
-      it->folded
-	= (MText *) mchar_get_prop (c, Mcomplicated_case_folding);
-      it->foldedp = it->folded->data;
-      c = STRING_CHAR_AND_BYTES (it->foldedp, it->folded_len);
-      return c;
-    }
-
-  if (c1 >= 0)
-    c = c1;
-  return c;
-}
-
-static void
-advance_it (struct casecmp_iterator *it)
-{
-  if (it->folded)
-    {
-      it->foldedp += it->folded_len;
-      if (it->foldedp == it->folded->data + it->folded->nbytes)
-	it->folded = NULL;
-    }
-  if (! it->folded)
-    {
-      it->pos++;
-    }
-}
-
-static int
-case_compare (MText *mt1, int from1, int to1, MText *mt2, int from2, int to2)
-{
-  struct casecmp_iterator it1, it2;
-
-  it1.mt = mt1, it1.pos = from1, it1.folded = NULL;
-  it2.mt = mt2, it2.pos = from2, it2.folded = NULL;
-
-  while (it1.pos < to1 && it2.pos < to2)
-    {
-      int c1 = next_char_from_it (&it1);
-      int c2 = next_char_from_it (&it2);
-
-      if (c1 != c2)
-	return (c1 > c2 ? 1 : -1);
-      advance_it (&it1);
-      advance_it (&it2);
-    }
-  return (it2.pos == to2 ? (it1.pos < to1) : -1);
-}
-
-
-/* Internal API */
-
-int
-mtext__init ()
-{
-  M_charbag = msymbol_as_managing_key ("  charbag");
-  mtext_table.count = 0;
-  return 0;
-}
-
-
-void
-mtext__fini (void)
-{
-  mdebug__report_object ("M-text", &mtext_table);
-}
-
-
-int
-mtext__char_to_byte (MText *mt, int pos)
-{
-  int char_pos, byte_pos;
-  int forward;
-
-  if (pos < mt->cache_char_pos)
-    {
-      if (mt->cache_char_pos == mt->cache_byte_pos)
-	return pos;
-      if (pos < mt->cache_char_pos - pos)
-	{
-	  char_pos = byte_pos = 0;
-	  forward = 1;
-	}
-      else
-	{
-	  char_pos = mt->cache_char_pos;
-	  byte_pos = mt->cache_byte_pos;
-	  forward = 0;
-	}
-    }
-  else
-    {
-      if (mt->nchars - mt->cache_char_pos == mt->nbytes - mt->cache_byte_pos)
-	return (mt->cache_byte_pos + (pos - mt->cache_char_pos));
-      if (pos - mt->cache_char_pos < mt->nchars - pos)
-	{
-	  char_pos = mt->cache_char_pos;
-	  byte_pos = mt->cache_byte_pos;
-	  forward = 1;
-	}
-      else
-	{
-	  char_pos = mt->nchars;
-	  byte_pos = mt->nbytes;
-	  forward = 0;
-	}
-    }
-  if (forward)
-    while (char_pos < pos)
-      INC_POSITION (mt, char_pos, byte_pos);
-  else
-    while (char_pos > pos)
-      DEC_POSITION (mt, char_pos, byte_pos);
-  mt->cache_char_pos = char_pos;
-  mt->cache_byte_pos = byte_pos;
-  return byte_pos;
-}
-
-/* mtext__byte_to_char () */
-
-int
-mtext__byte_to_char (MText *mt, int pos_byte)
-{
-  int char_pos, byte_pos;
-  int forward;
-
-  if (pos_byte < mt->cache_byte_pos)
-    {
-      if (mt->cache_char_pos == mt->cache_byte_pos)
-	return pos_byte;
-      if (pos_byte < mt->cache_byte_pos - pos_byte)
-	{
-	  char_pos = byte_pos = 0;
-	  forward = 1;
-	}
-      else
-	{
-	  char_pos = mt->cache_char_pos;
-	  byte_pos = mt->cache_byte_pos;
-	  forward = 0;
-	}
-    }
-  else
-    {
-      if (mt->nchars - mt->cache_char_pos == mt->nbytes - mt->cache_byte_pos)
-	return (mt->cache_char_pos + (pos_byte - mt->cache_byte_pos));
-      if (pos_byte - mt->cache_byte_pos < mt->nbytes - pos_byte)
-	{
-	  char_pos = mt->cache_char_pos;
-	  byte_pos = mt->cache_byte_pos;
-	  forward = 1;
-	}
-      else
-	{
-	  char_pos = mt->nchars;
-	  byte_pos = mt->nbytes;
-	  forward = 0;
-	}
-    }
-  if (forward)
-    while (byte_pos < pos_byte)
-      INC_POSITION (mt, char_pos, byte_pos);
-  else
-    while (byte_pos > pos_byte)
-      DEC_POSITION (mt, char_pos, byte_pos);
-  mt->cache_char_pos = char_pos;
-  mt->cache_byte_pos = byte_pos;
-  return char_pos;
-}
-
-/* Estimated extra bytes that malloc will use for its own purpose on
-   each memory allocation.  */
-#define MALLOC_OVERHEAD 4
-#define MALLOC_MININUM_BYTES 12
-
-void
-mtext__enlarge (MText *mt, int nbytes)
-{
-  nbytes += MAX_UTF8_CHAR_BYTES;
-  if (mt->allocated >= nbytes)
-    return;
-  if (nbytes < MALLOC_MININUM_BYTES)
-    nbytes = MALLOC_MININUM_BYTES;
-  while (mt->allocated < nbytes)
-    mt->allocated = mt->allocated * 2 + MALLOC_OVERHEAD;
-  MTABLE_REALLOC (mt->data, mt->allocated, MERROR_MTEXT);
-}
-
-int
-mtext__takein (MText *mt, int nchars, int nbytes)
-{
-  if (mt->plist)
-    mtext__adjust_plist_for_insert (mt, mt->nchars, nchars, NULL);
-  mt->nchars += nchars;
-  mt->nbytes += nbytes;
-  mt->data[mt->nbytes] = 0;
-  return 0;
-}
-
-
-int
-mtext__cat_data (MText *mt, unsigned char *p, int nbytes,
-		 enum MTextFormat format)
-{
-  int nchars = -1;
-
-  if (mt->format > MTEXT_FORMAT_UTF_8)
-    MERROR (MERROR_MTEXT, -1);
-  if (format == MTEXT_FORMAT_US_ASCII)
-    nchars = nbytes;
-  else if (format == MTEXT_FORMAT_UTF_8)
-    nchars = count_utf_8_chars (p, nbytes);
-  if (nchars < 0)
-    MERROR (MERROR_MTEXT, -1);
-  mtext__enlarge (mt, mtext_nbytes (mt) + nbytes + 1);
-  memcpy (MTEXT_DATA (mt) + mtext_nbytes (mt), p, nbytes);
-  mtext__takein (mt, nchars, nbytes);
-  return nchars;
-}
-
-MText *
-mtext__from_data (const void *data, int nitems, enum MTextFormat format,
-		  int need_copy)
-{
-  MText *mt;
-  int nchars, nbytes, unit_bytes;
-
-  if (format == MTEXT_FORMAT_US_ASCII)
-    {
-      const char *p = (char *) data, *pend = p + nitems;
-
-      while (p < pend)
-	if (*p++ < 0)
-	  MERROR (MERROR_MTEXT, NULL);
-      nchars = nbytes = nitems;
-      unit_bytes = 1;
-    }
-  else if (format == MTEXT_FORMAT_UTF_8)
-    {
-      if ((nchars = count_utf_8_chars (data, nitems)) < 0)
-	MERROR (MERROR_MTEXT, NULL);
-      nbytes = nitems;
-      unit_bytes = 1;
-    }
-  else if (format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      if ((nchars = count_utf_16_chars (data, nitems,
-					format != default_utf_16)) < 0)
-	MERROR (MERROR_MTEXT, NULL);
-      nbytes = USHORT_SIZE * nitems;
-      unit_bytes = USHORT_SIZE;
-    }
-  else				/* MTEXT_FORMAT_UTF_32XX */
-    {
-      nchars = nitems;
-      nbytes = UINT_SIZE * nitems;
-      unit_bytes = UINT_SIZE;
-    }
-
-  mt = mtext ();
-  mt->format = format;
-  mt->allocated = need_copy ? nbytes + unit_bytes : -1;
-  mt->nchars = nchars;
-  mt->nbytes = nitems;
-  if (need_copy)
-    {
-      MTABLE_MALLOC (mt->data, mt->allocated, MERROR_MTEXT);
-      memcpy (mt->data, data, nbytes);
-      mt->data[nbytes] = 0;
-    }
-  else
-    mt->data = (unsigned char *) data;
-  return mt;
-}
-
-
-void
-mtext__adjust_format (MText *mt, enum MTextFormat format)
-{
-  int i, c;
-
-  if (mt->nchars > 0)
-    switch (format)
-      {
-      case MTEXT_FORMAT_US_ASCII:
-	{
-	  unsigned char *p = mt->data;
-
-	  for (i = 0; i < mt->nchars; i++)
-	    *p++ = mtext_ref_char (mt, i);
-	  mt->nbytes = mt->nchars;
-	  mt->cache_byte_pos = mt->cache_char_pos;
-	  break;
-	}
-
-      case MTEXT_FORMAT_UTF_8:
-	{
-	  unsigned char *p0, *p1;
-
-	  i = count_by_utf_8 (mt, 0, mt->nchars) + 1;
-	  MTABLE_MALLOC (p0, i, MERROR_MTEXT);
-	  mt->allocated = i;
-	  for (i = 0, p1 = p0; i < mt->nchars; i++)
-	    {
-	      c = mtext_ref_char (mt, i);
-	      p1 += CHAR_STRING_UTF8 (c, p1);
-	    }
-	  *p1 = '\0';
-	  free (mt->data);
-	  mt->data = p0;
-	  mt->nbytes = p1 - p0;
-	  mt->cache_char_pos = mt->cache_byte_pos = 0;
-	  break;
-	}
-
-      default:
-	if (format == default_utf_16)
-	  {
-	    unsigned short *p0, *p1;
-
-	    i = (count_by_utf_16 (mt, 0, mt->nchars) + 1) * USHORT_SIZE;
-	    MTABLE_MALLOC (p0, i, MERROR_MTEXT);
-	    mt->allocated = i;
-	    for (i = 0, p1 = p0; i < mt->nchars; i++)
-	      {
-		c = mtext_ref_char (mt, i);
-		p1 += CHAR_STRING_UTF16 (c, p1);
-	      }
-	    *p1 = 0;
-	    free (mt->data);
-	    mt->data = (unsigned char *) p0;
-	    mt->nbytes = p1 - p0;
-	    mt->cache_char_pos = mt->cache_byte_pos = 0;
-	    break;
-	  }
-	else
-	  {
-	    unsigned int *p;
-
-	    mt->allocated = (mt->nchars + 1) * UINT_SIZE;
-	    MTABLE_MALLOC (p, mt->allocated, MERROR_MTEXT);
-	    for (i = 0; i < mt->nchars; i++)
-	      p[i] = mtext_ref_char (mt, i);
-	    p[i] = 0;
-	    free (mt->data);
-	    mt->data = (unsigned char *) p;
-	    mt->nbytes = mt->nchars;
-	    mt->cache_byte_pos = mt->cache_char_pos;
-	  }
-      }
-  mt->format = format;
-}
-
-
-/* Find the position of a character at the beginning of a line of
-   M-Text MT searching backward from POS.  */
-
-int
-mtext__bol (MText *mt, int pos)
-{
-  int byte_pos;
-
-  if (pos == 0)
-    return pos;
-  byte_pos = POS_CHAR_TO_BYTE (mt, pos);
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + byte_pos;
-
-      if (p[-1] == '\n')
-	return pos;
-      p--;
-      while (p > mt->data && p[-1] != '\n')
-	p--;
-      if (p == mt->data)
-	return 0;
-      byte_pos = p - mt->data;
-      return POS_BYTE_TO_CHAR (mt, byte_pos);
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      unsigned short *p = ((unsigned short *) (mt->data)) + byte_pos;
-      unsigned short newline = mt->format == default_utf_16 ? 0x0A00 : 0x000A;
-
-      if (p[-1] == newline)
-	return pos;
-      p--;
-      while (p > (unsigned short *) (mt->data) && p[-1] != newline)
-	p--;
-      if (p == (unsigned short *) (mt->data))
-	return 0;
-      byte_pos = p - (unsigned short *) (mt->data);
-      return POS_BYTE_TO_CHAR (mt, byte_pos);;
-    }
-  else
-    {
-      unsigned *p = ((unsigned *) (mt->data)) + byte_pos;
-      unsigned newline = mt->format == default_utf_32 ? 0x0A000000 : 0x0000000A;
-
-      if (p[-1] == newline)
-	return pos;
-      p--, pos--;
-      while (p > (unsigned *) (mt->data) && p[-1] != newline)
-	p--, pos--;
-      return pos;
-    }
-}
-
-
-/* Find the position of a character at the end of a line of M-Text MT
-   searching forward from POS.  */
-
-int
-mtext__eol (MText *mt, int pos)
-{
-  int byte_pos;
-
-  if (pos == mt->nchars)
-    return pos;
-  byte_pos = POS_CHAR_TO_BYTE (mt, pos);
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + byte_pos;
-      unsigned char *endp;
-
-      if (*p == '\n')
-	return pos + 1;
-      p++;
-      endp = mt->data + mt->nbytes;
-      while (p < endp && *p != '\n')
-	p++;
-      if (p == endp)
-	return mt->nchars;
-      byte_pos = p + 1 - mt->data;
-      return POS_BYTE_TO_CHAR (mt, byte_pos);
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      unsigned short *p = ((unsigned short *) (mt->data)) + byte_pos;
-      unsigned short *endp;
-      unsigned short newline = mt->format == default_utf_16 ? 0x0A00 : 0x000A;
-
-      if (*p == newline)
-	return pos + 1;
-      p++;
-      endp = (unsigned short *) (mt->data) + mt->nbytes;
-      while (p < endp && *p != newline)
-	p++;
-      if (p == endp)
-	return mt->nchars;
-      byte_pos = p + 1 - (unsigned short *) (mt->data);
-      return POS_BYTE_TO_CHAR (mt, byte_pos);
-    }
-  else
-    {
-      unsigned *p = ((unsigned *) (mt->data)) + byte_pos;
-      unsigned *endp;
-      unsigned newline = mt->format == default_utf_32 ? 0x0A000000 : 0x0000000A;
-
-      if (*p == newline)
-	return pos + 1;
-      p++, pos++;
-      endp = (unsigned *) (mt->data) + mt->nbytes;
-      while (p < endp && *p != newline)
-	p++, pos++;
-      return pos;
-    }
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nMtext */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Allocate a new M-text.
-
-    The mtext () function allocates a new M-text of length 0 and
-    returns a pointer to it.  The allocated M-text will not be freed
-    unless the user explicitly does so with the m17n_object_free ()
-    function.  */
-
-/***ja
-    @brief ¿·¤·¤¤M-text¤ò³ä¤êÅö¤Æ¤ë.
-
-    ´Ø¿ô mtext () ¤Ï¡¢Ä¹¤µ 0 ¤Î¿·¤·¤¤ M-text ¤ò³ä¤êÅö¤Æ¡¢¤½¤ì¤Ø¤Î¥Ý¥¤
-    ¥ó¥¿¤òÊÖ¤¹¡£³ä¤êÅö¤Æ¤é¤ì¤¿ M-text ¤Ï¡¢´Ø¿ô m17n_object_free () ¤Ë
-    ¤è¤Ã¤Æ¥æ¡¼¥¶¤¬ÌÀ¼¨Åª¤Ë¹Ô¤Ê¤ï¤Ê¤¤¸Â¤ê¡¢²òÊü¤µ¤ì¤Ê¤¤¡£
-
-    @latexonly \IPAlabel{mtext} @endlatexonly  */
-
-/***
-    @seealso
-    m17n_object_free ()  */
-
-MText *
-mtext ()
-{
-  MText *mt;
-
-  M17N_OBJECT (mt, free_mtext, MERROR_MTEXT);
-  mt->format = MTEXT_FORMAT_UTF_8;
-  M17N_OBJECT_REGISTER (mtext_table, mt);
-  return mt;
-}
-
-/***en
-    @brief Allocate a new M-text with specified data.
-
-    The mtext_from_data () function allocates a new M-text whose
-    character sequence is specified by array $DATA of $NITEMS
-    elements.  $FORMAT specifies the format of $DATA.
-
-    When $FORMAT is either #MTEXT_FORMAT_US_ASCII or
-    #MTEXT_FORMAT_UTF_8, the contents of $DATA must be of the type @c
-    unsigned @c char, and $NITEMS counts by byte.
-
-    When $FORMAT is either #MTEXT_FORMAT_UTF_16LE or
-    #MTEXT_FORMAT_UTF_16BE, the contents of $DATA must be of the type
-    @c unsigned @c short, and $NITEMS counts by unsigned short.
-
-    When $FORMAT is either #MTEXT_FORMAT_UTF_32LE or
-    #MTEXT_FORMAT_UTF_32BE, the contents of $DATA must be of the type
-    @c unsigned, and $NITEMS counts by unsigned.
-
-    The character sequence of the M-text is not modifiable.  
-    The contents of $DATA must not be modified while the M-text is alive.
-
-    The allocated M-text will not be freed unless the user explicitly
-    does so with the m17n_object_free () function.  Even in that case,
-    $DATA is not freed.
-
-    @return
-    If the operation was successful, mtext_from_data () returns a
-    pointer to the allocated M-text.  Otherwise it returns @c NULL and
-    assigns an error code to the external variable #merror_code.  */
-/***ja
-    @brief »ØÄê¤Î¥Ç¡¼¥¿¤ò¸µ¤Ë¿·¤·¤¤ M-text ¤ò³ä¤êÅö¤Æ¤ë.
-
-    ´Ø¿ô mtext_from_data () ¤Ï¡¢Í×ÁÇ¿ô $NITEMS ¤ÎÇÛÎó $DATA ¤Ç»ØÄê¤µ¤ì
-    ¤¿Ê¸»úÎó¤ò»ý¤Ä¿·¤·¤¤ M-text ¤ò³ä¤êÅö¤Æ¤ë¡£$FORMAT ¤Ï $DATA ¤Î¥Õ¥©¡¼
-    ¥Þ¥Ã¥È¤ò¼¨¤¹¡£
-
-    $FORMAT ¤¬ #MTEXT_FORMAT_US_ASCII ¤« #MTEXT_FORMAT_UTF_8 ¤Ê¤é¤Ð¡¢
-    $DATA ¤ÎÆâÍÆ¤Ï @c unsigned @c char ·¿¤Ç¤¢¤ê¡¢$NITEMS ¤Ï¥Ð¥¤¥ÈÃ±°Ì
-    ¤ÇÉ½¤µ¤ì¤Æ¤¤¤ë¡£
-
-    $FORMAT ¤¬ #MTEXT_FORMAT_UTF_16LE ¤« #MTEXT_FORMAT_UTF_16BE ¤Ê¤é¤Ð¡¢
-    $DATA ¤ÎÆâÍÆ¤Ï @c unsigned @c short ·¿¤Ç¤¢¤ê¡¢$NITEMS ¤Ï unsigned
-    short Ã±°Ì¤Ç¤¢¤ë¡£
-
-    $FORMAT ¤¬ #MTEXT_FORMAT_UTF_32LE ¤« #MTEXT_FORMAT_UTF_32BE ¤Ê¤é¤Ð¡¢
-    $DATA ¤ÎÆâÍÆ¤Ï@c unsigned ·¿¤Ç¤¢¤ê¡¢$NITEMS ¤Ï unsigned Ã±°Ì¤Ç¤¢¤ë¡£
-
-    ³ä¤êÅö¤Æ¤é¤ì¤¿ M-text ¤ÎÊ¸»úÎó¤ÏÊÑ¹¹¤Ç¤¤Ê¤¤¡£$DATA ¤ÎÆâÍÆ¤Ï 
-    M-text ¤¬Í¸ú¤Ê´Ö¤ÏÊÑ¹¹¤·¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-
-    ³ä¤êÅö¤Æ¤é¤ì¤¿ M-text ¤Ï¡¢´Ø¿ô m17n_object_free () ¤Ë¤è¤Ã¤Æ¥æ¡¼¥¶
-    ¤¬ÌÀ¼¨Åª¤Ë¹Ô¤Ê¤ï¤Ê¤¤¸Â¤ê¡¢²òÊü¤µ¤ì¤Ê¤¤¡£¤½¤Î¾ì¹ç¤Ç¤â $DATA ¤Ï²òÊü
-    ¤µ¤ì¤Ê¤¤¡£
-
-    @return 
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_from_data () ¤Ï³ä¤êÅö¤Æ¤é¤ì¤¿M-text ¤Ø¤Î¥Ý
-    ¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·³°ÉôÊÑ¿ô #merror_code ¤Ë
-    ¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_MTEXT  */
-
-MText *
-mtext_from_data (const void *data, int nitems, enum MTextFormat format)
-{
-  if (nitems < 0
-      || format < MTEXT_FORMAT_US_ASCII || format >= MTEXT_FORMAT_MAX)
-    MERROR (MERROR_MTEXT, NULL);
-  return mtext__from_data (data, nitems, format, 0);
-}
-
-/*=*/
-
-/***en
-    @brief Number of characters in M-text.
-
-    The mtext_len () function returns the number of characters in
-    M-text $MT.  */
-
-/***ja
-    @brief M-text Ãæ¤ÎÊ¸»ú¤Î¿ô.
-
-    ´Ø¿ô mtext_len () ¤Ï M-text $MT Ãæ¤ÎÊ¸»ú¤Î¿ô¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_len} @endlatexonly  */
-
-int
-mtext_len (MText *mt)
-{
-  return (mt->nchars);
-}
-
-/*=*/
-
-/***en
-    @brief Return the character at the specified position in an M-text.
-
-    The mtext_ref_char () function returns the character at $POS in
-    M-text $MT.  If an error is detected, it returns -1 and assigns an
-    error code to the external variable #merror_code.  */
-
-/***ja
-    @brief M-text Ãæ¤Î»ØÄê¤µ¤ì¤¿°ÌÃÖ¤ÎÊ¸»ú¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_ref_char () ¤Ï¡¢M-text $MT ¤Î°ÌÃÖ $POS ¤ÎÊ¸»ú¤òÊÖ¤¹¡£
-    ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code
-    ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_ref_char} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE  */
-
-int
-mtext_ref_char (MText *mt, int pos)
-{
-  int c;
-
-  M_CHECK_POS (mt, pos, -1);
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + POS_CHAR_TO_BYTE (mt, pos);
-
-      c = STRING_CHAR_UTF8 (p);
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      unsigned short *p
-	= (unsigned short *) (mt->data) + POS_CHAR_TO_BYTE (mt, pos);
-      unsigned short p1[2];
-
-      if (mt->format != default_utf_16)
-	{
-	  p1[0] = SWAP_16 (*p);
-	  if (p1[0] >= 0xD800 || p1[0] < 0xDC00)
-	    p1[1] = SWAP_16 (p[1]);
-	  p = p1;
-	}
-      c = STRING_CHAR_UTF16 (p);
-    }
-  else
-    {
-      c = ((unsigned *) (mt->data))[pos];
-      if (mt->format != default_utf_32)
-	c = SWAP_32 (c);
-    }
-  return c;
-}
-
-/*=*/
-
-/***en
-    @brief Store a character into an M-text.
-
-    The mtext_set_char () function sets character $C, which has no
-    text properties, at $POS in M-text $MT.
-
-    @return
-    If the operation was successful, mtext_set_char () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief M-text ¤Ë°ìÊ¸»ú¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mtext_set_char () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£Ìµ¤·¤ÎÊ¸»ú $C ¤ò 
-    M-text $MT ¤Î°ÌÃÖ $POS ¤ËÀßÄê¤¹¤ë¡£
-
-    @return
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mtext_set_char () ¤Ï 0 ¤òÊÖ¤¹¡£¼ºÇÔ¤¹¤ì¤Ð -1 ¤òÊÖ
-    ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_set_char} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE */
-
-int
-mtext_set_char (MText *mt, int pos, int c)
-{
-  int pos_unit;
-  int old_units, new_units;
-  int delta;
-  unsigned char *p;
-  int unit_bytes;
-
-  M_CHECK_POS (mt, pos, -1);
-  M_CHECK_READONLY (mt, -1);
-
-  mtext__adjust_plist_for_change (mt, pos, pos + 1);
-
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      if (c >= 0x80)
-	mt->format = MTEXT_FORMAT_UTF_8;
-    }
-  else if (mt->format <= MTEXT_FORMAT_UTF_16BE)
-    {
-      if (c >= 0x110000)
-	mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8);
-      else if (mt->format != default_utf_16)
-	mtext__adjust_format (mt, default_utf_16);
-    }
-  else if (mt->format != default_utf_32)
-    mtext__adjust_format (mt, default_utf_32);
-
-  unit_bytes = UNIT_BYTES (mt->format);
-  pos_unit = POS_CHAR_TO_BYTE (mt, pos);
-  p = mt->data + pos_unit * unit_bytes;
-  old_units = CHAR_UNITS_AT (mt, p);
-  new_units = CHAR_UNITS (c, mt->format);
-  delta = new_units - old_units;
-
-  if (delta)
-    {
-      if (mt->cache_char_pos > pos)
-	mt->cache_byte_pos += delta;
-
-      if ((mt->nbytes + delta + 1) * unit_bytes > mt->allocated)
-	{
-	  mt->allocated = (mt->nbytes + delta + 1) * unit_bytes;
-	  MTABLE_REALLOC (mt->data, mt->allocated, MERROR_MTEXT);
-	}
-
-      memmove (mt->data + (pos_unit + new_units) * unit_bytes, 
-	       mt->data + (pos_unit + old_units) * unit_bytes,
-	       (mt->nbytes - pos_unit - old_units + 1) * unit_bytes);
-      mt->nbytes += delta;
-      mt->data[mt->nbytes * unit_bytes] = 0;
-    }
-  switch (mt->format)
-    {
-    case MTEXT_FORMAT_US_ASCII:
-      mt->data[pos_unit] = c;
-      break;
-    case MTEXT_FORMAT_UTF_8:
-      {
-	unsigned char *p = mt->data + pos_unit;
-	CHAR_STRING_UTF8 (c, p);
-	break;
-      }
-    default:
-      if (mt->format == default_utf_16)
-	{
-	  unsigned short *p = (unsigned short *) mt->data + pos_unit;
-
-	  CHAR_STRING_UTF16 (c, p);
-	}
-      else
-	((unsigned *) mt->data)[pos_unit] = c;
-    }
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief  Append a character to an M-text.
-
-    The mtext_cat_char () function appends character $C, which has no
-    text properties, to the end of M-text $MT.
-
-    @return
-    This function returns a pointer to the resulting M-text $MT.  If
-    $C is an invalid character, it returns @c NULL.  */
-
-/***ja
-    @brief M-text ¤Ë°ìÊ¸»úÄÉ²Ã¤¹¤ë.
-
-    ´Ø¿ô mtext_cat_char () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£Ìµ¤·¤ÎÊ¸»ú $C ¤ò 
-    M-text $MT ¤ÎËöÈø¤ËÄÉ²Ã¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤ÏÊÑ¹¹¤µ¤ì¤¿ M-text $MT ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£$C ¤¬Àµ¤·¤¤Ê¸
-    »ú¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Ï @c NULL ¤òÊÖ¤¹¡£  */
-
-/***
-    @seealso
-    mtext_cat (), mtext_ncat ()  */
-
-MText *
-mtext_cat_char (MText *mt, int c)
-{
-  int nunits;
-  int unit_bytes = UNIT_BYTES (mt->format);
-
-  M_CHECK_READONLY (mt, NULL);
-  if (c < 0 || c > MCHAR_MAX)
-    return NULL;
-  mtext__adjust_plist_for_insert (mt, mt->nchars, 1, NULL);
-
-  if (c >= 0x80
-      && (mt->format == MTEXT_FORMAT_US_ASCII
-	  || (c >= 0x10000
-	      && (mt->format == MTEXT_FORMAT_UTF_16LE
-		  || mt->format == MTEXT_FORMAT_UTF_16BE))))
-
-    {
-      mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8);
-      unit_bytes = 1;
-    }
-  else if (mt->format >= MTEXT_FORMAT_UTF_32LE)
-    {
-      if (mt->format != default_utf_32)
-	mtext__adjust_format (mt, default_utf_32);
-    }
-  else if (mt->format >= MTEXT_FORMAT_UTF_16LE)
-    {
-      if (mt->format != default_utf_16)
-	mtext__adjust_format (mt, default_utf_16);
-    }
-
-  nunits = CHAR_UNITS (c, mt->format);
-  if ((mt->nbytes + nunits + 1) * unit_bytes > mt->allocated)
-    {
-      mt->allocated = (mt->nbytes + nunits + 1) * unit_bytes;
-      MTABLE_REALLOC (mt->data, mt->allocated, MERROR_MTEXT);
-    }
-  
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + mt->nbytes;
-      p += CHAR_STRING_UTF8 (c, p);
-      *p = 0;
-    }
-  else if (mt->format == default_utf_16)
-    {
-      unsigned short *p = (unsigned short *) mt->data + mt->nbytes;
-      p += CHAR_STRING_UTF16 (c, p);
-      *p = 0;
-    }
-  else
-    {
-      unsigned *p = (unsigned *) mt->data + mt->nbytes;
-      *p++ = c;
-      *p = 0;
-    }
-
-  mt->nchars++;
-  mt->nbytes += nunits;
-  return mt;
-}
-
-/*=*/
-
-/***en
-    @brief  Create a copy of an M-text.
-
-    The mtext_dup () function creates a copy of M-text $MT while
-    inheriting all the text properties of $MT.
-
-    @return
-    This function returns a pointer to the created copy.  */
-
-/***ja
-    @brief M-text ¤Î¥³¥Ô¡¼¤òºî¤ë.
-
-    ´Ø¿ô mtext_dup () ¤Ï¡¢M-text $MT ¤Î¥³¥Ô¡¼¤òºî¤ë¡£$MT ¤Î¥Æ¥¥¹¥È¥×
-    ¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ïºî¤é¤ì¤¿¥³¥Ô¡¼¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
-     @latexonly \IPAlabel{mtext_dup} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_duplicate ()  */
-
-MText *
-mtext_dup (MText *mt)
-{
-  MText *new = mtext ();
-  int unit_bytes = UNIT_BYTES (mt->format);
-
-  *new = *mt;
-  if (mt->nchars > 0)
-    {
-      new->allocated = (mt->nbytes + 1) * unit_bytes;
-      MTABLE_MALLOC (new->data, new->allocated, MERROR_MTEXT);
-      memcpy (new->data, mt->data, new->allocated);
-      if (mt->plist)
-	new->plist = mtext__copy_plist (mt->plist, 0, mt->nchars, new, 0);
-    }
-  return new;
-}
-
-/*=*/
-
-/***en
-    @brief  Append an M-text to another.
-
-    The mtext_cat () function appends M-text $MT2 to the end of M-text
-    $MT1 while inheriting all the text properties.  $MT2 itself is not
-    modified.
-
-    @return
-    This function returns a pointer to the resulting M-text $MT1.  */
-
-/***ja
-    @brief 2¸Ä¤Î M-text¤òÏ¢·ë¤¹¤ë.
-
-    ´Ø¿ô mtext_cat () ¤Ï¡¢ M-text $MT2 ¤ò M-text $MT1 ¤ÎËöÈø¤ËÉÕ¤±²Ã¤¨
-    ¤ë¡£$MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£$MT2 ¤ÏÊÑ¹¹¤µ¤ì¤Ê
-    ¤¤¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤ÏÊÑ¹¹¤µ¤ì¤¿ M-text $MT1 ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_cat} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_ncat (), mtext_cat_char ()  */
-
-MText *
-mtext_cat (MText *mt1, MText *mt2)
-{
-  M_CHECK_READONLY (mt1, NULL);
-
-  if (mt2->nchars > 0)
-    insert (mt1, mt1->nchars, mt2, 0, mt2->nchars);
-  return mt1;
-}
-
-
-/*=*/
-
-/***en
-    @brief Append a part of an M-text to another.
-
-    The mtext_ncat () function appends the first $N characters of
-    M-text $MT2 to the end of M-text $MT1 while inheriting all the
-    text properties.  If the length of $MT2 is less than $N, all
-    characters are copied.  $MT2 is not modified.  
-
-    @return 
-    If the operation was successful, mtext_ncat () returns a
-    pointer to the resulting M-text $MT1.  If an error is detected, it
-    returns @c NULL and assigns an error code to the global variable
-    #merror_code.  */
-
-
-/***ja
-    @brief M-text ¤Î°ìÉô¤òÊÌ¤Î M-text ¤ËÉÕ²Ã¤¹¤ë.
-
-    ´Ø¿ô mtext_ncat () ¤Ï¡¢M-text $MT2 ¤Î¤Ï¤¸¤á¤Î $N Ê¸»ú¤ò M-text
-    $MT1 ¤ÎËöÈø¤ËÉÕ¤±²Ã¤¨¤ë¡£$MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì
-    ¤ë¡£$MT2 ¤ÎÄ¹¤µ¤¬ $N °Ê²¼¤Ê¤é¤Ð¡¢$MT2 ¤Î¤¹¤Ù¤Æ¤ÎÊ¸»ú¤¬ÉÕ²Ã¤µ¤ì¤ë¡£
-    $MT2 ¤ÏÊÑ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mtext_ncat () ¤ÏÊÑ¹¹¤µ¤ì¤¿ M-text $MT1 ¤Ø¤Î¥Ý
-    ¥¤¥ó¥¿¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô
-    #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_ncat} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_cat (), mtext_cat_char ()  */
-
-MText *
-mtext_ncat (MText *mt1, MText *mt2, int n)
-{
-  M_CHECK_READONLY (mt1, NULL);
-  if (n < 0)
-    MERROR (MERROR_RANGE, NULL);
-  if (mt2->nchars > 0)
-    insert (mt1, mt1->nchars, mt2, 0, mt2->nchars < n ? mt2->nchars : n);
-  return mt1;
-}
-
-
-/*=*/
-
-/***en
-    @brief Copy an M-text to another.
-
-    The mtext_cpy () function copies M-text $MT2 to M-text $MT1 while
-    inheriting all the text properties.  The old text in $MT1 is
-    overwritten and the length of $MT1 is extended if necessary.  $MT2
-    is not modified.
-
-    @return
-    This function returns a pointer to the resulting M-text $MT1.  */
-
-/***ja
-    @brief M-text ¤òÊÌ¤Î M-text ¤Ë¥³¥Ô¡¼¤¹¤ë.
-
-    ´Ø¿ô mtext_cpy () ¤Ï M-text $MT2 ¤ò M-text $MT1 ¤Ë¾å½ñ¤¥³¥Ô¡¼¤¹¤ë¡£
-    $MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£$MT1 ¤ÎÄ¹¤µ¤ÏÉ¬Í×¤Ë±þ
-    ¤¸¤Æ¿¤Ð¤µ¤ì¤ë¡£$MT2 ¤ÏÊÑ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤ÏÊÑ¹¹¤µ¤ì¤¿ M-text $MT1 ¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_cpy} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_ncpy (), mtext_copy ()  */
-
-MText *
-mtext_cpy (MText *mt1, MText *mt2)
-{
-  M_CHECK_READONLY (mt1, NULL);
-  mtext_del (mt1, 0, mt1->nchars);
-  if (mt2->nchars > 0)
-    insert (mt1, 0, mt2, 0, mt2->nchars);
-  return mt1;
-}
-
-/*=*/
-
-/***en
-    @brief Copy the first some characters in an M-text to another.
-
-    The mtext_ncpy () function copies the first $N characters of
-    M-text $MT2 to M-text $MT1 while inheriting all the text
-    properties.  If the length of $MT2 is less than $N, all characters
-    of $MT2 are copied.  The old text in $MT1 is overwritten and the
-    length of $MT1 is extended if necessary.  $MT2 is not modified.
-
-    @return
-    If the operation was successful, mtext_ncpy () returns a pointer
-    to the resulting M-text $MT1.  If an error is detected, it returns
-    @c NULL and assigns an error code to the global variable 
-    #merror_code.  */
-
-/***ja
-    @brief M-text ¤Ë´Þ¤Þ¤ì¤ëºÇ½é¤Î²¿Ê¸»ú¤«¤ò¥³¥Ô¡¼¤¹¤ë.
-
-    ´Ø¿ô mtext_ncpy () ¤Ï¡¢M-text $MT2 ¤ÎºÇ½é¤Î $N Ê¸»ú¤ò M-text $MT1 
-    ¤Ë¾å½ñ¤¥³¥Ô¡¼¤¹¤ë¡£$MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£
-    ¤â¤· $MT2 ¤ÎÄ¹¤µ¤¬ $N ¤è¤ê¤â¾®¤µ¤±¤ì¤Ð $MT2 ¤Î¤¹¤Ù¤Æ¤ÎÊ¸»ú¤ò¥³¥Ô¡¼
-    ¤¹¤ë¡£$MT1 ¤ÎÄ¹¤µ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¿¤Ð¤µ¤ì¤ë¡£$MT2 ¤ÏÊÑ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @return 
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mtext_ncpy () ¤ÏÊÑ¹¹¤µ¤ì¤¿ M-text $MT1 ¤Ø¤Î¥Ý
-    ¥¤¥ó¥¿¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô 
-    #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_ncpy} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_cpy (), mtext_copy ()  */
-
-MText *
-mtext_ncpy (MText *mt1, MText *mt2, int n)
-{
-  M_CHECK_READONLY (mt1, NULL);
-  if (n < 0)
-    MERROR (MERROR_RANGE, NULL);
-  mtext_del (mt1, 0, mt1->nchars);
-  if (mt2->nchars > 0)
-    insert (mt1, 0, mt2, 0, mt2->nchars < n ? mt2->nchars : n);
-  return mt1;
-}
-
-/*=*/
-
-/***en
-    @brief Create a new M-text from a part of an existing M-text.
-
-    The mtext_duplicate () function creates a copy of sub-text of
-    M-text $MT, starting at $FROM (inclusive) and ending at $TO
-    (exclusive) while inheriting all the text properties of $MT.  $MT
-    itself is not modified.
-
-    @return
-    If the operation was successful, mtext_duplicate () returns a
-    pointer to the created M-text.  If an error is detected, it returns 0
-    and assigns an error code to the external variable #merror_code.  */
-
-/***ja
-    @brief ´ûÂ¸¤Î M-text ¤Î°ìÉô¤«¤é¿·¤·¤¤ M-text ¤ò¤Ä¤¯¤ë.
-
-    ´Ø¿ô mtext_duplicate () ¤Ï¡¢M-text $MT ¤Î $FROM ¡Ê´Þ¤à¡Ë¤«¤é $TO 
-    ¡Ê´Þ¤Þ¤Ê¤¤¡Ë¤Þ¤Ç¤ÎÉôÊ¬¤Î¥³¥Ô¡¼¤òºî¤ë¡£¤³¤Î¤È¤ $MT ¤Î¥Æ¥¥¹¥È¥×¥í
-    ¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£$MT ¤½¤Î¤â¤Î¤ÏÊÑ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_duplicate () ¤Ïºî¤é¤ì¤¿ M-text ¤Ø¤Î¥Ý¥¤¥ó
-    ¥¿¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô 
-    #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_duplicate} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_dup ()  */
-
-MText *
-mtext_duplicate (MText *mt, int from, int to)
-{
-  MText *new;
-
-  M_CHECK_RANGE_X (mt, from, to, NULL);
-  new = mtext ();
-  new->format = mt->format;
-  if (from < to)
-    insert (new, 0, mt, from, to);
-  return new;
-}
-
-/*=*/
-
-/***en
-    @brief Copy characters in the specified range into an M-text.
-
-    The mtext_copy () function copies the text between $FROM
-    (inclusive) and $TO (exclusive) in M-text $MT2 to the region
-    starting at $POS in M-text $MT1 while inheriting the text
-    properties.  The old text in $MT1 is overwritten and the length of
-    $MT1 is extended if necessary.  $MT2 is not modified.
-
-    @return
-    If the operation was successful, mtext_copy () returns a pointer
-    to the modified $MT1.  Otherwise, it returns @c NULL and assigns
-    an error code to the external variable #merror_code.  */
-
-/***ja
-    @brief M-text ¤Ë»ØÄêÈÏ°Ï¤ÎÊ¸»ú¤ò¥³¥Ô¡¼¤¹¤ë.
-
-    ´Ø¿ô mtext_copy () ¤Ï¡¢ M-text $MT2 ¤Î $FROM ¡Ê´Þ¤à¡Ë¤«¤é $TO ¡Ê´Þ
-    ¤Þ¤Ê¤¤¡Ë¤Þ¤Ç¤ÎÈÏ°Ï¤Î¥Æ¥¥¹¥È¤ò M-text $MT1 ¤Î°ÌÃÖ $POS ¤«¤é¾å½ñ¤
-    ¥³¥Ô¡¼¤¹¤ë¡£$MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£$MT1 ¤ÎÄ¹
-    ¤µ¤ÏÉ¬Í×¤Ë±þ¤¸¤Æ¿¤Ð¤µ¤ì¤ë¡£$MT2 ¤ÏÊÑ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @latexonly \IPAlabel{mtext_copy} @endlatexonly
-
-    @return
-    ½èÍý¤¬À®¸ù¤·¤¿¾ì¹ç¡¢mtext_copy () ¤ÏÊÑ¹¹¤µ¤ì¤¿ $MT1 ¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò
-    ÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼
-    ¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_cpy (), mtext_ncpy ()  */
-
-MText *
-mtext_copy (MText *mt1, int pos, MText *mt2, int from, int to)
-{
-  M_CHECK_POS_X (mt1, pos, NULL);
-  M_CHECK_READONLY (mt1, NULL);
-  M_CHECK_RANGE_X (mt2, from, to, NULL);
-  mtext_del (mt1, pos, mt1->nchars);
-  return insert (mt1, pos, mt2, from, to);
-}
-
-/*=*/
-
-
-/***en
-    @brief Delete characters in the specified range destructively.
-
-    The mtext_del () function deletes the characters in the range
-    $FROM (inclusive) and $TO (exclusive) from M-text $MT
-    destructively.  As a result, the length of $MT shrinks by ($TO -
-    $FROM) characters.
-
-    @return
-    If the operation was successful, mtext_del () returns 0.
-    Otherwise, it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief »ØÄêÈÏ°Ï¤ÎÊ¸»ú¤òÇË²õÅª¤Ë¼è¤ê½ü¤¯.
-
-    ´Ø¿ô mtext_del () ¤Ï¡¢M-text $MT ¤Î $FROM ¡Ê´Þ¤à¡Ë¤«¤é $TO ¡Ê´Þ¤Þ
-    ¤Ê¤¤¡Ë¤Þ¤Ç¤ÎÊ¸»ú¤òÇË²õÅª¤Ë¼è¤ê½ü¤¯¡£·ë²ÌÅª¤Ë $MT ¤ÏÄ¹¤µ¤¬ ($TO @c
-    - $FROM) ¤À¤±½Ì¤à¤³¤È¤Ë¤Ê¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mtext_del () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ
-    ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_ins ()  */
-
-int
-mtext_del (MText *mt, int from, int to)
-{
-  int from_byte, to_byte;
-  int unit_bytes = UNIT_BYTES (mt->format);
-
-  M_CHECK_READONLY (mt, -1);
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  from_byte = POS_CHAR_TO_BYTE (mt, from);
-  to_byte = POS_CHAR_TO_BYTE (mt, to);
-
-  if (mt->cache_char_pos >= to)
-    {
-      mt->cache_char_pos -= to - from;
-      mt->cache_byte_pos -= to_byte - from_byte;
-    }
-  else if (mt->cache_char_pos > from)
-    {
-      mt->cache_char_pos -= from;
-      mt->cache_byte_pos -= from_byte;
-    }
-
-  mtext__adjust_plist_for_delete (mt, from, to - from);
-  memmove (mt->data + from_byte * unit_bytes, 
-	   mt->data + to_byte * unit_bytes,
-	   (mt->nbytes - to_byte + 1) * unit_bytes);
-  mt->nchars -= (to - from);
-  mt->nbytes -= (to_byte - from_byte);
-  mt->cache_char_pos = from;
-  mt->cache_byte_pos = from_byte;
-  return 0;
-}
-
-
-/*=*/
-
-/***en
-    @brief Insert an M-text into another M-text.
-
-    The mtext_ins () function inserts M-text $MT2 into M-text $MT1, at
-    position $POS.  As a result, $MT1 is lengthen by the length of
-    $MT2.  On insertion, all the text properties of $MT2 are
-    inherited.  The original $MT2 is not modified.
-
-    @return
-    If the operation was successful, mtext_ins () returns 0.
-    Otherwise, it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief M-text ¤òÊÌ¤Î M-text ¤ËÁÞÆþ¤¹¤ë.
-
-    ´Ø¿ô mtext_ins () ¤Ï M-text $MT1 ¤Î $POS ¤Î°ÌÃÖ¤Ë ÊÌ¤Î M-text $MT2 
-    ¤òÁÞÆþ¤¹¤ë¡£¤³¤Î·ë²Ì $MT1 ¤ÎÄ¹¤µ¤Ï $MT2 ¤ÎÄ¹¤µÊ¬¤À¤±Áý¤¨¤ë¡£ÁÞÆþ¤Î
-    ºÝ¡¢$MT2 ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¹¤Ù¤Æ·Ñ¾µ¤µ¤ì¤ë¡£$MT2 ¤½¤Î¤â¤Î¤ÏÊÑ
-    ¹¹¤µ¤ì¤Ê¤¤¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mtext_ins () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ
-    ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_del ()  */
-
-int
-mtext_ins (MText *mt1, int pos, MText *mt2)
-{
-  M_CHECK_READONLY (mt1, -1);
-  M_CHECK_POS_X (mt1, pos, -1);
-
-  if (mt2->nchars == 0)
-    return 0;
-  insert (mt1, pos, mt2, 0, mt2->nchars);
-  return 0;
-}
-
-
-/*=*/
-
-/***en
-    @brief Insert a character into an M-text.
-
-    The mtext_ins_char () function inserts $N copies of character $C
-    into M-text $MT at position $POS.  As a result, $MT is lengthen by
-    $N.
-
-    @return
-    If the operation was successful, mtext_ins () returns 0.
-    Otherwise, it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief M-text ¤ËÊ¸»ú¤òÁÞÆþ¤¹¤ë.
-
-    ´Ø¿ô mtext_ins_char () ¤Ï M-text $MT ¤Î $POS ¤Î°ÌÃÖ¤ËÊ¸»ú $C ¤ò $N
-    ¸ÄÁÞÆþ¤¹¤ë¡£¤³¤Î·ë²Ì $MT1 ¤ÎÄ¹¤µ¤Ï $N ¤À¤±Áý¤¨¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mtext_ins_char () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1
-    ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_ins, mtext_del ()  */
-
-int
-mtext_ins_char (MText *mt, int pos, int c, int n)
-{
-  int nunits;
-  int unit_bytes = UNIT_BYTES (mt->format);
-  int pos_unit;
-  int i;
-
-  M_CHECK_READONLY (mt, -1);
-  M_CHECK_POS_X (mt, pos, -1);
-  if (c < 0 || c > MCHAR_MAX)
-    MERROR (MERROR_MTEXT, -1);
-  if (n <= 0)
-    return 0;
-  mtext__adjust_plist_for_insert (mt, pos, n, NULL);
-
-  if (c >= 0x80
-      && (mt->format == MTEXT_FORMAT_US_ASCII
-	  || (c >= 0x10000 && (mt->format == MTEXT_FORMAT_UTF_16LE
-			       || mt->format == MTEXT_FORMAT_UTF_16BE))))
-    {
-      mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8);
-      unit_bytes = 1;
-    }
-  else if (mt->format >= MTEXT_FORMAT_UTF_32LE)
-    {
-      if (mt->format != default_utf_32)
-	mtext__adjust_format (mt, default_utf_32);
-    }
-  else if (mt->format >= MTEXT_FORMAT_UTF_16LE)
-    {
-      if (mt->format != default_utf_16)
-	mtext__adjust_format (mt, default_utf_16);
-    }
-
-  nunits = CHAR_UNITS (c, mt->format);
-  if ((mt->nbytes + nunits * n + 1) * unit_bytes > mt->allocated)
-    {
-      mt->allocated = (mt->nbytes + nunits * n + 1) * unit_bytes;
-      MTABLE_REALLOC (mt->data, mt->allocated, MERROR_MTEXT);
-    }
-  pos_unit = POS_CHAR_TO_BYTE (mt, pos);
-  if (mt->cache_char_pos > pos)
-    {
-      mt->cache_char_pos += n;
-      mt->cache_byte_pos += nunits + n;
-    }
-  memmove (mt->data + (pos_unit + nunits * n) * unit_bytes,
-	   mt->data + pos_unit * unit_bytes,
-	   (mt->nbytes - pos_unit + 1) * unit_bytes);
-  if (mt->format <= MTEXT_FORMAT_UTF_8)
-    {
-      unsigned char *p = mt->data + pos_unit;
-
-      for (i = 0; i < n; i++)
-	p += CHAR_STRING_UTF8 (c, p);
-    }
-  else if (mt->format == default_utf_16)
-    {
-      unsigned short *p = (unsigned short *) mt->data + pos_unit;
-
-      for (i = 0; i < n; i++)
-	p += CHAR_STRING_UTF16 (c, p);
-    }
-  else
-    {
-      unsigned *p = (unsigned *) mt->data + pos_unit;
-
-      for (i = 0; i < n; i++)
-	*p++ = c;
-    }
-  mt->nchars += n;
-  mt->nbytes += nunits * n;
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Search a character in an M-text.
-
-    The mtext_character () function searches M-text $MT for character
-    $C.  If $FROM is less than $TO, the search begins at position $FROM
-    and goes forward but does not exceed ($TO - 1).  Otherwise, the search
-    begins at position ($FROM - 1) and goes backward but does not
-    exceed $TO.  An invalid position specification is regarded as both
-    $FROM and $TO being 0.
-
-    @return
-    If $C is found, mtext_character () returns the position of its
-    first occurrence.  Otherwise it returns -1 without changing the
-    external variable #merror_code.  If an error is detected, it returns -1 and
-    assigns an error code to the external variable #merror_code.  */
-
-/***ja
-    @brief M-text Ãæ¤ÇÊ¸»ú¤òÃµ¤¹.
-
-    ´Ø¿ô mtext_character () ¤Ï M-text $MT Ãæ¤ÇÊ¸»ú $C ¤òÃµ¤¹¡£¤â¤· 
-    $FROM ¤¬ $TO ¤è¤ê¾®¤µ¤±¤ì¤Ð¡¢Ãµº÷¤Ï°ÌÃÖ $FROM ¤«¤éËöÈøÊý¸þ¤Ø¡¢ºÇÂç 
-    ($TO - 1) ¤Þ¤Ç¿Ê¤à¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð°ÌÃÖ ($FROM - 1) ¤«¤éÀèÆ¬Êý¸þ¤Ø¡¢
-    ºÇÂç $TO ¤Þ¤Ç¿Ê¤à¡£°ÌÃÖ¤Î»ØÄê¤Ë¸í¤ê¤¬¤¢¤ë¾ì¹ç¤Ï¡¢$FROM ¤È $TO ¤ÎÎ¾
-    Êý¤Ë 0 ¤¬»ØÄê¤µ¤ì¤¿¤â¤Î¤È¸«¤Ê¤¹¡£
-
-    @return
-    ¤â¤· $C ¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_character () ¤Ï¤½¤ÎºÇ½é¤Î½Ð¸½°ÌÃÖ¤òÊÖ
-    ¤¹¡£¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï³°ÉôÊÑ¿ô #merror_code ¤òÊÑ¹¹¤»¤º¤Ë -1 ¤òÊÖ
-    ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼
-    ¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @seealso
-    mtext_chr(), mtext_rchr ()  */
-
-int
-mtext_character (MText *mt, int from, int to, int c)
-{
-  if (from < to)
-    {
-      /* We do not use M_CHECK_RANGE () because this function should
-	 not set merror_code.  */
-      if (from < 0 || to > mt->nchars)
-	return -1;
-      return find_char_forward (mt, from, to, c);
-    }
-  else
-    {
-      /* ditto */
-      if (to < 0 || from > mt->nchars)
-	return -1;
-      return find_char_backward (mt, to, from, c);
-    }
-}
-
-
-/*=*/
-
-/***en
-    @brief Return the position of the first occurrence of a character in an M-text.
-
-    The mtext_chr () function searches M-text $MT for character $C.
-    The search starts from the beginning of $MT and goes toward the end.
-
-    @return
-    If $C is found, mtext_chr () returns its position; otherwise it
-    returns -1.  */
-
-/***ja
-    @brief M-text Ãæ¤Ç»ØÄê¤µ¤ì¤¿Ê¸»ú¤¬ºÇ½é¤Ë¸½¤ì¤ë°ÌÃÖ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_chr () ¤Ï M-text $MT Ãæ¤ÇÊ¸»ú $C ¤òÃµ¤¹¡£Ãµº÷¤Ï $MT ¤Î
-    ÀèÆ¬¤«¤éËöÈøÊý¸þ¤Ë¿Ê¤à¡£
-
-    @return
-    ¤â¤· $C ¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_chr () ¤Ï¤½¤Î½Ð¸½°ÌÃÖ¤òÊÖ¤¹¡£¸«¤Ä¤«¤é
-    ¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_chr} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_rchr (), mtext_character ()  */
-
-int
-mtext_chr (MText *mt, int c)
-{
-  return find_char_forward (mt, 0, mt->nchars, c);
-}
-
-/*=*/
-
-/***en
-    @brief Return the position of the last occurrence of a character in an M-text.
-
-    The mtext_rchr () function searches M-text $MT for character $C.
-    The search starts from the end of $MT and goes backwardly toward the
-    beginning.
-
-    @return
-    If $C is found, mtext_rchr () returns its position; otherwise it
-    returns -1.  */
-
-/***ja
-    @brief M-text Ãæ¤Ç»ØÄê¤µ¤ì¤¿Ê¸»ú¤¬ºÇ¸å¤Ë¸½¤ì¤ë°ÌÃÖ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_rchr () ¤Ï M-text $MT Ãæ¤ÇÊ¸»ú $C ¤òÃµ¤¹¡£Ãµº÷¤Ï $MT ¤Î
-    ºÇ¸å¤«¤éÀèÆ¬Êý¸þ¤Ø¤È¸å¸þ¤¤Ë¿Ê¤à¡£
-
-    @return
-    ¤â¤· $C ¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_rchr () ¤Ï¤½¤Î½Ð¸½°ÌÃÖ¤òÊÖ¤¹¡£¸«¤Ä¤«¤é
-    ¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_rchr} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_chr (), mtext_character ()  */
-
-int
-mtext_rchr (MText *mt, int c)
-{
-  return find_char_backward (mt, mt->nchars, 0, c);
-}
-
-
-/*=*/
-
-/***en
-    @brief Compare two M-texts character-by-character.
-
-    The mtext_cmp () function compares M-texts $MT1 and $MT2 character
-    by character.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  Comparison is based on
-    character codes.  */
-
-/***ja
-    @brief Æó¤Ä¤Î M-text ¤òÊ¸»úÃ±°Ì¤ÇÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_cmp () ¤Ï¡¢ M-text $MT1 ¤È $MT2 ¤òÊ¸»úÃ±°Ì¤ÇÈæ³Ó¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð 0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð 1¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£Èæ³Ó¤ÏÊ¸»ú¥³¡¼¥É¤Ë´ð¤Å
-    ¤¯¡£
-
-    @latexonly \IPAlabel{mtext_cmp} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_ncmp (), mtext_casecmp (), mtext_ncasecmp (),
-    mtext_compare (), mtext_case_compare ()  */
-
-int
-mtext_cmp (MText *mt1, MText *mt2)
-{
-  return compare (mt1, 0, mt1->nchars, mt2, 0, mt2->nchars);
-}
-
-
-/*=*/
-
-/***en
-    @brief Compare initial parts of two M-texts character-by-character.
-
-    The mtext_ncmp () function is similar to mtext_cmp (), but
-    compares at most $N characters from the beginning.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  */
-
-/***ja
-    @brief Æó¤Ä¤Î M-text ¤ÎÀèÆ¬ÉôÊ¬¤òÊ¸»úÃ±°Ì¤ÇÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_ncmp () ¤Ï¡¢´Ø¿ô mtext_cmp () Æ±ÍÍ¤Î M-text Æ±»Î¤ÎÈæ³Ó
-    ¤òÀèÆ¬¤«¤éºÇÂç $N Ê¸»ú¤Þ¤Ç¤Ë´Ø¤·¤Æ¹Ô¤Ê¤¦¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð 0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð 1¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_ncmp} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_cmp (), mtext_casecmp (), mtext_ncasecmp ()
-    mtext_compare (), mtext_case_compare ()  */
-
-int
-mtext_ncmp (MText *mt1, MText *mt2, int n)
-{
-  if (n < 0)
-    return 0;
-  return compare (mt1, 0, (mt1->nchars < n ? mt1->nchars : n),
-		  mt2, 0, (mt2->nchars < n ? mt2->nchars : n));
-}
-
-/*=*/
-
-/***en
-    @brief Compare specified regions of two M-texts.
-
-    The mtext_compare () function compares two M-texts $MT1 and $MT2,
-    character-by-character.  The compared regions are between $FROM1
-    and $TO1 in $MT1 and $FROM2 to $TO2 in MT2.  $FROM1 and $FROM2 are
-    inclusive, $TO1 and $TO2 are exclusive.  $FROM1 being equal to
-    $TO1 (or $FROM2 being equal to $TO2) means an M-text of length
-    zero.  An invalid region specification is regarded as both $FROM1
-    and $TO1 (or $FROM2 and $TO2) being 0.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  Comparison is based on
-    character codes.  */
-
-/***ja
-    @brief Æó¤Ä¤Î M-text ¤Î»ØÄê¤·¤¿ÎÎ°èÆ±»Î¤òÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_compare () ¤ÏÆó¤Ä¤Î M-text $MT1 ¤È $MT2 ¤òÊ¸»úÃ±°Ì¤ÇÈæ
-    ³Ó¤¹¤ë¡£Èæ³ÓÂÐ¾Ý¤È¤Ê¤ë¤Î¤Ï $MT1 ¤Ç¤Ï $FROM1 ¤«¤é $TO1 ¤Þ¤Ç¡¢$MT2 
-    ¤Ç¤Ï $FROM2 ¤«¤é $TO2 ¤Þ¤Ç¤Ç¤¢¤ë¡£$FROM1 ¤È $FROM2 ¤Ï´Þ¤Þ¤ì¡¢$TO1 
-    ¤È $TO2 ¤Ï´Þ¤Þ¤ì¤Ê¤¤¡£$FROM1 ¤È $TO1 ¡Ê¤¢¤ë¤¤¤Ï $FROM2 ¤È $TO2 ¡Ë
-    ¤¬Åù¤·¤¤¾ì¹ç¤ÏÄ¹¤µ¥¼¥í¤Î M-text ¤ò°ÕÌ£¤¹¤ë¡£ÈÏ°Ï»ØÄê¤Ë¸í¤ê¤¬¤¢¤ë¾ì
-    ¹ç¤Ï¡¢$FROM1 ¤È $TO1 ¡Ê¤¢¤ë¤¤¤Ï $FROM2 ¤È $TO2 ¡Ë Î¾Êý¤Ë 0 ¤¬»ØÄê¤µ
-    ¤ì¤¿¤â¤Î¤È¸«¤Ê¤¹¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð 0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð 1 ¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£Èæ³Ó¤ÏÊ¸»ú¥³¡¼¥É¤Ë´ð
-    ¤Å¤¯¡£  */
-
-/***
-    @seealso
-    mtext_cmp (), mtext_ncmp (), mtext_casecmp (), mtext_ncasecmp (),
-    mtext_case_compare ()  */
-
-int
-mtext_compare (MText *mt1, int from1, int to1, MText *mt2, int from2, int to2)
-{
-  if (from1 < 0 || from1 > to1 || to1 > mt1->nchars)
-    from1 = to1 = 0;
-
-  if (from2 < 0 || from2 > to2 || to2 > mt2->nchars)
-    from2 = to2 = 0;
-
-  return compare (mt1, from1, to1, mt2, from2, to2);
-}
-
-/*=*/
-
-/***en
-    @brief Search an M-text for a set of characters.
-
-    The mtext_spn () function returns the length of the initial
-    segment of M-text $MT1 that consists entirely of characters in
-    M-text $MT2.  */
-
-/***ja
-    @brief ¤¢¤ë½¸¹ç¤ÎÊ¸»ú¤ò M-text ¤ÎÃæ¤ÇÃµ¤¹.
-
-    ´Ø¿ô mtext_spn () ¤Ï¡¢M-text $MT1 ¤ÎÀèÆ¬ÉôÊ¬¤Ç M-text $MT2 ¤Ë´Þ¤Þ
-    ¤ì¤ëÊ¸»ú¤À¤±¤Ç¤Ç¤¤Æ¤¤¤ëÉôÊ¬¤ÎºÇÂçÄ¹¤µ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_spn} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_cspn ()  */
-
-int
-mtext_spn (MText *mt, MText *accept)
-{
-  return span (mt, accept, 0, Mnil);
-}
-
-/*=*/
-
-/***en
-    @brief Search an M-text for the complement of a set of characters.
-
-    The mtext_cspn () returns the length of the initial segment of
-    M-text $MT1 that consists entirely of characters not in M-text $MT2.  */
-
-/***ja
-    @brief ¤¢¤ë½¸¹ç¤ËÂ°¤µ¤Ê¤¤Ê¸»ú¤ò M-text ¤ÎÃæ¤ÇÃµ¤¹.
-
-    ´Ø¿ô mtext_cspn () ¤Ï¡¢M-text $MT1 ¤ÎÀèÆ¬ÉôÊ¬¤Ç M-text $MT2 ¤Ë´Þ¤Þ
-    ¤ì¤Ê¤¤Ê¸»ú¤À¤±¤Ç¤Ç¤¤Æ¤¤¤ëÉôÊ¬¤ÎºÇÂçÄ¹¤µ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_cspn} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_spn ()  */
-
-int
-mtext_cspn (MText *mt, MText *reject)
-{
-  return span (mt, reject, 0, Mt);
-}
-
-/*=*/
-
-/***en
-    @brief Search an M-text for any of a set of characters.
-
-    The mtext_pbrk () function locates the first occurrence in M-text
-    $MT1 of any of the characters in M-text $MT2.
-
-    @return
-    This function returns the position in $MT1 of the found character.
-    If no such character is found, it returns -1. */
-
-/***ja
-    @brief ¤¢¤ë½¸¹ç¤ÎÊ¸»ú¤Î¤É¤ì¤«¤ò M-text ¤ÎÃæ¤ÇÃµ¤¹.
-
-    ´Ø¿ô mtext_pbrk () ¤Ï¡¢M-text $MT1 Ãæ¤Ç M-text $MT2 ¤Î¤¤¤º¤ì¤«¤ÎÊ¸
-    »ú¤¬ºÇ½é¤Ë¸½¤ì¤ë°ÌÃÖ¤òÄ´¤Ù¤ë¡£
-
-    @return 
-    ¸«¤Ä¤«¤Ã¤¿Ê¸»ú¤Î¡¢$MT1 Æâ¤Ë¤ª¤±¤ë½Ð¸½°ÌÃÖ¤òÊÖ¤¹¡£¤â¤·¤½¤Î¤è¤¦¤ÊÊ¸
-    »ú¤¬¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_pbrk} @endlatexonly  */
-
-int
-mtext_pbrk (MText *mt, MText *accept)
-{
-  int nchars = mtext_nchars (mt);
-  int len = span (mt, accept, 0, Mt);
-
-  return (len == nchars ? -1 : len);
-}
-
-/*=*/
-
-/***en
-    @brief Look for a token in an M-text.
-
-    The mtext_tok () function searches a token that firstly occurs
-    after position $POS in M-text $MT.  Here, a token means a
-    substring each of which does not appear in M-text $DELIM.  Note
-    that the type of $POS is not @c int but pointer to @c int.
-
-    @return
-    If a token is found, mtext_tok () copies the corresponding part of
-    $MT and returns a pointer to the copy.  In this case, $POS is set
-    to the end of the found token.  If no token is found, it returns
-    @c NULL without changing the external variable #merror_code.  If an
-    error is detected, it returns @c NULL and assigns an error code
-    to the external variable #merror_code. */
-
-/***ja
-    @brief M-text Ãæ¤Î¥È¡¼¥¯¥ó¤òÃµ¤¹.
-
-    ´Ø¿ô mtext_tok () ¤Ï¡¢M-text $MT ¤ÎÃæ¤Ç°ÌÃÖ $POS °Ê¹ßºÇ½é¤Ë¸½¤ì¤ë
-    ¥È¡¼¥¯¥ó¤òÃµ¤¹¡£¤³¤³¤Ç¥È¡¼¥¯¥ó¤È¤Ï M-text $DELIM ¤ÎÃæ¤Ë¸½¤ï¤ì¤Ê¤¤
-    Ê¸»ú¤À¤±¤«¤é¤Ê¤ëÉôÊ¬Ê¸»úÎó¤Ç¤¢¤ë¡£$POS ¤Î·¿¤¬ @c int ¤Ç¤Ï¤Ê¤¯¤Æ @c
-    int ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤¢¤ë¤³¤È¤ËÃí°Õ¡£
-
-    @return
-    ¤â¤·¥È¡¼¥¯¥ó¤¬¸«¤Ä¤«¤ì¤Ð mtext_tok ()¤Ï¤½¤Î¥È¡¼¥¯¥ó¤ËÁêÅö¤¹¤ëÉôÊ¬
-    ¤Î $MT ¤ò¥³¥Ô¡¼¤·¡¢¤½¤Î¥³¥Ô¡¼¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢$POS ¤Ï
-    ¸«¤Ä¤«¤Ã¤¿¥È¡¼¥¯¥ó¤Î½ªÃ¼¤Ë¥»¥Ã¥È¤µ¤ì¤ë¡£¥È¡¼¥¯¥ó¤¬¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿
-    ¾ì¹ç¤Ï³°ÉôÊÑ¿ô #merror_code ¤òÊÑ¤¨¤º¤Ë @c NULL ¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð
-    ¤µ¤ì¤¿¾ì¹ç¤Ï @c NULL ¤òÊÖ¤·¡¢ÊÑÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤ò
-    ÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_tok} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE  */
-
-MText *
-mtext_tok (MText *mt, MText *delim, int *pos)
-{
-  int nchars = mtext_nchars (mt);
-  int pos2;
-
-  M_CHECK_POS (mt, *pos, NULL);
-
-  /*
-    Skip delimiters starting at POS in MT.
-    Never do *pos += span(...), or you will change *pos
-    even though no token is found.
-   */
-  pos2 = *pos + span (mt, delim, *pos, Mnil);
-
-  if (pos2 == nchars)
-    return NULL;
-
-  *pos = pos2 + span (mt, delim, pos2, Mt);
-  return (insert (mtext (), 0, mt, pos2, *pos));
-}
-
-/*=*/
-
-/***en
-    @brief Locate an M-text in another.
-
-    The mtext_text () function finds the first occurrence of M-text
-    $MT2 in M-text $MT1 after the position $POS while ignoring
-    difference of the text properties.
-
-    @return
-    If $MT2 is found in $MT1, mtext_text () returns the position of it
-    first occurrence.  Otherwise it returns -1.  If $MT2 is empty, it
-    returns 0.  */
-
-/***ja
-    @brief M-text Ãæ¤ÇÊÌ¤Î M-text ¤òÃµ¤¹.
-
-    ´Ø¿ô mtext_text () ¤Ï¡¢M-text $MT1 Ãæ¤Ç°ÌÃÖ $POS °Ê¹ß¤Ë¸½¤ï¤ì¤ë 
-    M-text $MT2 ¤ÎºÇ½é¤Î°ÌÃÖ¤òÄ´¤Ù¤ë¡£¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î°ã¤¤¤ÏÌµ»ë¤µ
-    ¤ì¤ë¡£
-
-    @return
-    $MT1 Ãæ¤Ë $MT2 ¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_text() ¤Ï¤½¤ÎºÇ½é¤Î½Ð¸½°ÌÃÖ¤òÊÖ
-    ¤¹¡£¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¤Ï -1 ¤òÊÖ¤¹¡£¤â¤· $MT2 ¤¬¶õ¤Ê¤é¤Ð 0 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_text} @endlatexonly  */
-
-int
-mtext_text (MText *mt1, int pos, MText *mt2)
-{
-  int from = pos;
-  int pos_byte = POS_CHAR_TO_BYTE (mt1, pos);
-  int c = mtext_ref_char (mt2, 0);
-  int nbytes1 = mtext_nbytes (mt1);
-  int nbytes2 = mtext_nbytes (mt2);
-  int limit;
-  int use_memcmp = (mt1->format == mt2->format
-		    || (mt1->format < MTEXT_FORMAT_UTF_8
-			&& mt2->format == MTEXT_FORMAT_UTF_8));
-  int unit_bytes = UNIT_BYTES (mt1->format);
-
-  if (nbytes2 > pos_byte + nbytes1)
-    return -1;
-  pos_byte = nbytes1 - nbytes2;
-  limit = POS_BYTE_TO_CHAR (mt1, pos_byte);
-
-  while (1)
-    {
-      if ((pos = mtext_character (mt1, from, limit, c)) < 0)
-	return -1;
-      pos_byte = POS_CHAR_TO_BYTE (mt1, pos);
-      if (use_memcmp
-	  ? ! memcmp (mt1->data + pos_byte * unit_bytes, 
-		      mt2->data, nbytes2 * unit_bytes)
-	  : ! compare (mt1, pos, mt2->nchars, mt2, 0, mt2->nchars))
-	break;
-      from = pos + 1;
-    }
-  return pos;
-}
-
-/***en
-    @brief Locate an M-text in a specific range of another.
-
-    The mtext_search () function searches for the first occurrence of
-    M-text $MT2 in M-text $MT1 in the region $FROM and $TO while
-    ignoring difference of the text properties.  If $FROM is less than
-    $TO, the forward search starts from $FROM, otherwise the backward
-    search starts from $TO.
-
-    @return
-    If $MT2 is found in $MT1, mtext_search () returns the position of the
-    first occurrence.  Otherwise it returns -1.  If $MT2 is empty, it
-    returns 0.  */
-
-/***ja
-    @brief M-text Ãæ¤ÎÆÃÄê¤ÎÎÎ°è¤ÇÊÌ¤Î M-text ¤òÃµ¤¹.
-
-    ´Ø¿ô mtext_search () ¤Ï¡¢M-text $MT1 Ãæ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤Î´Ö¤Î
-    ÎÎ°è¤ÇM-text $MT2 ¤¬ºÇ½é¤Ë¸½¤ï¤ì¤ë°ÌÃÖ¤òÄ´¤Ù¤ë¡£¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£
-    ¤Î°ã¤¤¤ÏÌµ»ë¤µ¤ì¤ë¡£¤â¤· $FROM ¤¬ $TO ¤è¤ê¾®¤µ¤±¤ì¤ÐÃµº÷¤Ï°ÌÃÖ 
-    $FROM ¤«¤éËöÈøÊý¸þ¤Ø¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð $TO ¤«¤éÀèÆ¬Êý¸þ¤ØºÇÂç $TO ¤Þ
-    ¤Ç¿Ê¤à¡£
-
-    @return
-    $MT1 Ãæ¤Ë $MT2 ¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_search() ¤Ï¤½¤ÎºÇ½é¤Î½Ð¸½°ÌÃÖ¤òÊÖ
-    ¤¹¡£¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¤Ï -1 ¤òÊÖ¤¹¡£¤â¤· $MT2 ¤¬¶õ¤Ê¤é¤Ð 0 ¤òÊÖ¤¹¡£
-    */
-
-int
-mtext_search (MText *mt1, int from, int to, MText *mt2)
-{
-  int c = mtext_ref_char (mt2, 0);
-  int from_byte;
-  int nbytes2 = mtext_nbytes (mt2);
-
-  if (mt1->format > MTEXT_FORMAT_UTF_8
-      || mt2->format > MTEXT_FORMAT_UTF_8)
-    MERROR (MERROR_MTEXT, -1);
-
-  if (from < to)
-    {
-      to -= mtext_nchars (mt2);
-      if (from > to)
-	return -1;
-      while (1)
-	{
-	  if ((from = find_char_forward (mt1, from, to, c)) < 0)
-	    return -1;
-	  from_byte = POS_CHAR_TO_BYTE (mt1, from);
-	  if (! memcmp (mt1->data + from_byte, mt2->data, nbytes2))
-	    break;
-	  from++;
-	}
-    }
-  else if (from > to)
-    {
-      from -= mtext_nchars (mt2);
-      if (from < to)
-	return -1;
-      while (1)
-	{
-	  if ((from = find_char_backward (mt1, from, to, c)) < 0)
-	    return -1;
-	  from_byte = POS_CHAR_TO_BYTE (mt1, from);
-	  if (! memcmp (mt1->data + from_byte, mt2->data, nbytes2))
-	    break;
-	  from--;
-	}
-    }
-
-  return from;
-}
-
-/*=*/
-
-/***en
-    @brief Compare two M-texts ignoring cases.
-
-    The mtext_casecmp () function is similar to mtext_cmp (), but
-    ignores cases on comparison.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  */
-
-/***ja
-    @brief Æó¤Ä¤Î M-text ¤òÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤ÆÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_casecmp () ¤Ï¡¢´Ø¿ô mtext_cmp () Æ±ÍÍ¤Î M-text Æ±»Î¤ÎÈæ
-    ³Ó¤ò¡¢ÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤Æ¹Ô¤Ê¤¦¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð 0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð 1¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_casecmp} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_cmp (), mtext_ncmp (), mtext_ncasecmp ()
-    mtext_compare (), mtext_case_compare ()  */
-
-int
-mtext_casecmp (MText *mt1, MText *mt2)
-{
-  return case_compare (mt1, 0, mt1->nchars, mt2, 0, mt2->nchars);
-}
-
-/*=*/
-
-/***en
-    @brief Compare initial parts of two M-texts ignoring cases.
-
-    The mtext_ncasecmp () function is similar to mtext_casecmp (), but
-    compares at most $N characters from the beginning.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  */
-
-/***ja
-    @brief Æó¤Ä¤Î M-text ¤ÎÀèÆ¬ÉôÊ¬¤òÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤ÆÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_ncasecmp () ¤Ï¡¢´Ø¿ô mtext_casecmp () Æ±ÍÍ¤Î M-text Æ±
-    »Î¤ÎÈæ³Ó¤òÀèÆ¬¤«¤éºÇÂç $N Ê¸»ú¤Þ¤Ç¤Ë´Ø¤·¤Æ¹Ô¤Ê¤¦¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð 0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð 1¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð -1 ¤òÊÖ¤¹¡£
-
-    @latexonly \IPAlabel{mtext_ncasecmp} @endlatexonly  */
-
-/***
-    @seealso
-    mtext_cmp (), mtext_casecmp (), mtext_casecmp ()
-    mtext_compare (), mtext_case_compare ()  */
-
-int
-mtext_ncasecmp (MText *mt1, MText *mt2, int n)
-{
-  if (n < 0)
-    return 0;
-  return case_compare (mt1, 0, (mt1->nchars < n ? mt1->nchars : n),
-		       mt2, 0, (mt2->nchars < n ? mt2->nchars : n));
-}
-
-/*=*/
-
-/***en
-    @brief Compare specified regions of two M-texts ignoring cases. 
-
-    The mtext_case_compare () function compares two M-texts $MT1 and
-    $MT2, character-by-character, ignoring cases.  The compared
-    regions are between $FROM1 and $TO1 in $MT1 and $FROM2 to $TO2 in
-    MT2.  $FROM1 and $FROM2 are inclusive, $TO1 and $TO2 are
-    exclusive.  $FROM1 being equal to $TO1 (or $FROM2 being equal to
-    $TO2) means an M-text of length zero.  An invalid region
-    specification is regarded as both $FROM1 and $TO1 (or $FROM2 and
-    $TO2) being 0.
-
-    @return
-    This function returns 1, 0, or -1 if $MT1 is found greater than,
-    equal to, or less than $MT2, respectively.  Comparison is based on
-    character codes.  */
-
-/***ja 
-    @brief Æó¤Ä¤Î M-text ¤Î»ØÄê¤·¤¿ÎÎ°è¤ò¡¢ÂçÊ¸»ú¡¿¾®Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤ÆÈæ³Ó¤¹¤ë.
-
-    ´Ø¿ô mtext_compare () ¤ÏÆó¤Ä¤Î M-text $MT1 ¤È $MT2 ¤ò¡¢ÂçÊ¸»ú¡¿¾®
-    Ê¸»ú¤Î¶èÊÌ¤òÌµ»ë¤·¤ÆÊ¸»úÃ±°Ì¤ÇÈæ³Ó¤¹¤ë¡£Èæ³ÓÂÐ¾Ý¤È¤Ê¤ë¤Î¤Ï $MT1 
-    ¤Ç¤Ï $FROM1 ¤«¤é $TO1 ¤Þ¤Ç¡¢$MT2 ¤Ç¤Ï $FROM2 ¤«¤é $TO2 ¤Þ¤Ç¤Ç¤¢¤ë¡£
-    $FROM1 ¤È $FROM2 ¤Ï´Þ¤Þ¤ì¡¢$TO1 ¤È $TO2 ¤Ï´Þ¤Þ¤ì¤Ê¤¤¡£$FROM1 ¤È 
-    $TO1 ¡Ê¤¢¤ë¤¤¤Ï $FROM2 ¤È $TO2 ¡Ë¤¬Åù¤·¤¤¾ì¹ç¤ÏÄ¹¤µ¥¼¥í¤Î M-text 
-    ¤ò°ÕÌ£¤¹¤ë¡£ÈÏ°Ï»ØÄê¤Ë¸í¤ê¤¬¤¢¤ë¾ì¹ç¤Ï¡¢$FROM1 ¤È $TO1 ¡Ê¤¢¤ë¤¤¤Ï 
-    $FROM2 ¤È $TO2 ¡ËÎ¾Êý¤Ë 0 ¤¬»ØÄê¤µ¤ì¤¿¤â¤Î¤È¸«¤Ê¤¹¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¡¢$MT1 ¤È $MT2 ¤¬Åù¤·¤±¤ì¤Ð0¡¢$MT1 ¤¬ $MT2 ¤è¤êÂç¤¤±¤ì
-    ¤Ð1¡¢$MT1 ¤¬ $MT2 ¤è¤ê¾®¤µ¤±¤ì¤Ð-1¤òÊÖ¤¹¡£Èæ³Ó¤ÏÊ¸»ú¥³¡¼¥É¤Ë´ð¤Å¤¯¡£
-
-  @latexonly \IPAlabel{mtext_case_compare} @endlatexonly
-*/
-
-/***
-    @seealso
-    mtext_cmp (), mtext_ncmp (), mtext_casecmp (), mtext_ncasecmp (),
-    mtext_compare ()  */
-
-int
-mtext_case_compare (MText *mt1, int from1, int to1,
-		    MText *mt2, int from2, int to2)
-{
-  if (from1 < 0 || from1 > to1 || to1 > mt1->nchars)
-    from1 = to1 = 0;
-
-  if (from2 < 0 || from2 > to2 || to2 > mt2->nchars)
-    from2 = to2 = 0;
-
-  return case_compare (mt1, from1, to1, mt2, from2, to2);
-}
-
-/*** @} */
-
-#include 
-
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{  */
-
-/***en
-    @brief Dump an M-text.
-
-    The mdebug_dump_mtext () function prints the M-text $MT in a human
-    readable way to the stderr.  $INDENT specifies how many columns to
-    indent the lines but the first one.  If $FULLP is zero, this
-    function prints only a character code sequence.  Otherwise, it
-    prints the internal byte sequence and text properties as well.
-
-    @return
-    This function returns $MT.  */
-/***ja
-    @brief M-text ¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_mtext () ¤Ï M-text $MT ¤ò stderr ¤Ë¿Í´Ö¤Ë²ÄÆÉ¤Ê 
-    ·Á¤Ç°õºþ¤¹¤ë¡£ $INDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£$FULLP 
-    ¤¬ 0 ¤Ê¤é¤Ð¡¢Ê¸»ú¥³¡¼¥ÉÎó¤À¤±¤ò°õºþ¤¹¤ë¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢ÆâÉô¥Ð¥¤
-    ¥ÈÎó¤È¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤â°õºþ¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $MT ¤òÊÖ¤¹¡£  */
-
-MText *
-mdebug_dump_mtext (MText *mt, int indent, int fullp)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  int i;
-  unsigned char *p;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  if (! fullp)
-    {
-      fprintf (stderr, "\"");
-      for (i = 0; i < mt->nbytes; i++)
-	{
-	  int c = mt->data[i];
-	  if (c >= ' ' && c < 127)
-	    fprintf (stderr, "%c", c);
-	  else
-	    fprintf (stderr, "\\x%02X", c);
-	}
-      fprintf (stderr, "\"");
-      return mt;
-    }
-
-  fprintf (stderr,
-	   "(mtext (size %d %d %d) (cache %d %d)",
-	   mt->nchars, mt->nbytes, mt->allocated,
-	   mt->cache_char_pos, mt->cache_byte_pos);
-  if (mt->nchars > 0)
-    {
-      fprintf (stderr, "\n%s (bytes \"", prefix);
-      for (i = 0; i < mt->nbytes; i++)
-	fprintf (stderr, "\\x%02x", mt->data[i]);
-      fprintf (stderr, "\")\n");
-      fprintf (stderr, "%s (chars \"", prefix);
-      p = mt->data;
-      for (i = 0; i < mt->nchars; i++)
-	{
-	  int len;
-	  int c = STRING_CHAR_AND_BYTES (p, len);
-
-	  if (c >= ' ' && c < 127 && c != '\\' && c != '"')
-	    fputc (c, stderr);
-	  else
-	    fprintf (stderr, "\\x%X", c);
-	  p += len;
-	}
-      fprintf (stderr, "\")");
-      if (mt->plist)
-	{
-	  fprintf (stderr, "\n%s ", prefix);
-	  dump_textplist (mt->plist, indent + 1);
-	}
-    }
-  fprintf (stderr, ")");
-  return mt;
-}
-
-/*** @} */ 
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/mtext.h b/src/mtext.h
deleted file mode 100644
index 78cbeb0..0000000
--- a/src/mtext.h
+++ /dev/null
@@ -1,67 +0,0 @@
-/* mtext.h -- header file for the M-text module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_MTEXT_H_
-#define _M17N_MTEXT_H_
-
-/** @file mtext.h
-    @brief Header for M-text handling.
-*/
-
-#define POS_CHAR_TO_BYTE(mt, pos)				\
-  (mtext_nchars (mt) == mtext_nbytes (mt) ? (pos)		\
-   : (pos) == (mt)->cache_char_pos ? (mt)->cache_byte_pos	\
-   : mtext__char_to_byte ((mt), (pos)))
-
-#define POS_BYTE_TO_CHAR(mt, pos_byte)				\
-  (mtext_nchars (mt) == mtext_nbytes (mt) ? (pos_byte)		\
-   : (pos_byte) == (mt)->cache_byte_pos ? (mt)->cache_char_pos	\
-   : mtext__byte_to_char ((mt), (pos_byte)))
-
-
-#define MTEXT_DATA(mt) ((mt)->data)
-
-extern int mtext__char_to_byte (MText *mt, int pos);
-
-extern int mtext__byte_to_char (MText *mt, int pos_byte);
-
-extern void mtext__enlarge (MText *mt, int nbytes);
-
-extern int mtext__takein (MText *mt, int nchars, int nbytes);
-
-extern int mtext__cat_data (MText *mt, unsigned char *p, int nbytes,
-			    enum MTextFormat format);
-
-#define MTEXT_CAT_ASCII(mt, str)				\
-  mtext__cat_data ((mt), (unsigned char *) (str), strlen (str),	\
-		   MTEXT_FORMAT_US_ASCII)
-
-extern MText *mtext__from_data (const void *data, int nitems,
-				enum MTextFormat format, int need_copy);
-
-extern void mtext__adjust_format (MText *mt, enum MTextFormat format);
-
-extern int mtext__bol (MText *mt, int pos);
-
-extern int mtext__eol (MText *mt, int pos);
-
-#endif /* _M17N_MTEXT_H_ */
diff --git a/src/plist.c b/src/plist.c
deleted file mode 100644
index bdab29e..0000000
--- a/src/plist.c
+++ /dev/null
@@ -1,1393 +0,0 @@
-/* plist.c -- plist module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nPlist
-
-    @brief Property List objects and API for them.
-
-    A @e property @e list (or @e plist for short) is a list of zero or
-    more properties.  A property consists of a @e key and a @e value,
-    where key is a symbol and value is anything that can be cast to
-    (void *).
-
-    If the key of a property is a @e managing @e key, its @e value is
-    a @e managed @e object.  A property list itself is a managed
-    objects.  */
-/***ja
-    @addtogroup m17nPlist
-
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API.
-
-    @e ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È (¤Þ¤¿¤Ï @e plist) ¤Ï 0 ¸Ä°Ê¾å¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥ê
-    ¥¹¥È¤Ç¤¢¤ë¡£¥×¥í¥Ñ¥Æ¥£¤Ï @e ¥¡¼ ¤È @e ÃÍ ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï¥·¥ó¥Ü¥ë
-    ¤Ç¤¢¤ê¡¢ÃÍ¤Ï (void *) ¤Ë¥¥ã¥¹¥È¤Ç¤¤ë¤â¤Î¤Ê¤é¤Ð²¿¤Ç¤âÎÉ
-    ¤¤¡£
-
-    ¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤¬ @e ´ÉÍý¥¡¼ ¤Ê¤é¤Ð¡¢¤½¤Î @e ÃÍ ¤Ï@e ´ÉÍý²¼
-    ¥ª¥Ö¥¸¥§¥¯¥È ¤Ç¤¢¤ë¡£¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¼«ÂÎ¤â´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢
-    ¤ë¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "character.h"
-#include "mtext.h"
-#include "symbol.h"
-#include "plist.h"
-
-static M17NObjectArray plist_table;
-
-/** Set PLIST to a newly allocated plist object.  */
-
-#define MPLIST_NEW(plist)				\
-  do {							\
-    M17N_OBJECT (plist, free_plist, MERROR_PLIST);	\
-    M17N_OBJECT_REGISTER (plist_table, plist);		\
-  } while (0)
-
-
-/** Set the element of PLIST to KEY and VAL.  If PLIST is an anchor,
-    append a new anchor.  */
-
-#define MPLIST_SET(plist, key, val)	\
-  do {					\
-    MPLIST_KEY (plist) = (key);		\
-    MPLIST_VAL (plist) = (val);		\
-    if (! (plist)->next)		\
-      MPLIST_NEW ((plist)->next);	\
-  } while (0)
-
-
-/** Set the element of PLIST to KEY and VAL.  PLIST must be an anchor.
-    Append a new anchor and set PLIST to that anchor.  */
-
-#define MPLIST_SET_ADVANCE(plist, key, val)	\
-  do {						\
-    MPLIST_KEY (plist) = (key);			\
-    MPLIST_VAL (plist) = (val);			\
-    MPLIST_NEW ((plist)->next);			\
-    plist = (plist)->next;			\
-  } while (0)
-
-
-static void
-free_plist (void *object)
-{
-  MPlist *plist = (MPlist *) object;
-
-  do {
-    MPlist *next = plist->next;
-
-    if (MPLIST_KEY (plist) != Mnil && MPLIST_KEY (plist)->managing_key)
-      M17N_OBJECT_UNREF (MPLIST_VAL (plist));
-    M17N_OBJECT_UNREGISTER (plist_table, plist);
-    free (plist);
-    plist = next;
-  } while (plist && plist->control.ref_count == 1);
-  M17N_OBJECT_UNREF (plist);
-}
-
-
-
-/* Load a plist from a string.  */
-
-#define READ_CHUNK 0x10000
-
-typedef struct
-{
-  /* File pointer if the stream is associated with a file.  Otherwise
-     NULL.  */
-  FILE *fp;
-  int eof;
-  unsigned char buffer[READ_CHUNK];
-  unsigned char *p, *pend;
-} MStream;
-
-static int
-get_byte (MStream *st)
-{
-  int n;
-
-  if (! st->fp || st->eof)
-    return EOF;
-  n = fread (st->buffer, 1, READ_CHUNK, st->fp);
-  if (n <= 0)
-    {
-      st->eof = 1;
-      return EOF;
-    }
-  st->p = st->buffer + 1;
-  st->pend = st->buffer + n;
-  return st->buffer[0];
-}
-
-#define GETC(st)	\
-  ((st)->p < (st)->pend ? *(st)->p++ : get_byte (st))
-
-
-#define UNGETC(c, st)	\
-  (*--(st)->p = (c))
-
-/** Mapping table for reading a number.  Hexadecimal chars
-    (0..9,A..F,a..F) are mapped to the corresponding numbers.
-    Apostrophe (code 39) is mapped to 254.  All the other bytes are
-    mapped to 255.  */
-unsigned char hex_mnemonic[256];
-
-/** Mapping table for escaped characters.  Mnemonic characters (e, b,
-    f, n, r, or t) that follows '\' are mapped to the corresponding
-    character code.  All the other bytes are mapped to themselves.  */
-unsigned char escape_mnemonic[256];
-
-
-/** Read an integer from the stream ST.  It is assumed that we have
-    already read one character C.  */
-
-static int
-read_decimal (MStream *st, int c)
-{
-  int num = 0;
-
-  while (c >= '0' && c <= '9')
-    {
-      num = (num * 10) + (c - '0');
-      c = GETC (st);
-    }
-
-  if (c != EOF)
-    UNGETC (c, st);
-  return num;
-}
-
-/** Read an unsigned from the stream ST.  */
-
-static unsigned
-read_hexadesimal (MStream *st)
-{
-  int c;
-  unsigned num = 0, n;
-
-  while ((c = GETC (st)) != EOF
-	 && (n = hex_mnemonic[c]) < 16)
-    num = (num << 4) | n;
-  if (c != EOF)
-    UNGETC (c, st);
-  return num;
-}
-
-
-/** Read an M-text element from ST, and add it to LIST.  Return a list
-    for the next element.  */
-
-static MPlist *
-read_mtext_element (MPlist *plist, MStream *st)
-{
-  unsigned char buffer[1024];
-  int bufsize = 1024;
-  unsigned char *buf = buffer;
-  int c, i;
-
-  i = 0;
-  while ((c = GETC (st)) != EOF && c != '"')
-    {
-      if (i + MAX_UTF8_CHAR_BYTES >= bufsize)
-	{
-	  bufsize *= 2;
-	  if (buf == buffer)
-	    {
-	      MTABLE_MALLOC (buf, bufsize, MERROR_PLIST);
-	      memcpy (buf, buffer, i);
-	    }
-	  else
-	    MTABLE_REALLOC (buf, bufsize, MERROR_PLIST);
-	}
-
-      if (c == '\\')
-	{
-	  c = GETC (st);
-	  if (c == EOF)
-	    break;
-	  if (c == 'x')
-	    {
-	      int next_c;
-
-	      c = read_hexadesimal (st);
-	      next_c = GETC (st);
-	      if (next_c != ' ')
-		UNGETC (next_c, st);
-	    }
-	  else
-	    c = escape_mnemonic[c];
-	}
-
-      buf[i++] = c;
-    }
-
-  MPLIST_SET_ADVANCE (plist, Mtext,
-		      mtext__from_data (buf, i, MTEXT_FORMAT_UTF_8, 1));
-  if (buf != buffer)
-    free (buf);
-  return plist;
-}
-
-static int
-read_character (MStream *st, int c)
-{
-  unsigned char buf[MAX_UTF8_CHAR_BYTES + 1];
-  int len = CHAR_BYTES_BY_HEAD (c);
-  int i;
-
-  buf[0] = c;
-  for (i = 1; i < len; i++)
-    {
-      c = GETC (st);
-      if (c == EOF
-	  || (c & 0xC0) != 0x80)
-	break;
-      buf[i] = c;
-    }
-  if (i == len)
-    c = STRING_CHAR_UTF8 (buf);
-  else
-    c = buf[0];
-  return c;
-}
-
-
-/** Read an integer element from ST, and add it to LIST.  Return a
-    list for the next element.  It is assumed that we have already
-    read the character C. */
-
-static MPlist *
-read_integer_element (MPlist *plist, MStream *st, int c)
-{
-  int num;
-
-  if (c == '0' || c == '#')
-    {
-      c = GETC (st);
-      if (c == 'x')
-	num = read_hexadesimal (st);
-      else
-	num = read_decimal (st, c);
-    }
-  else if (c == '?')
-    {
-      c = GETC (st);
-      if (c == EOF)
-	num = 0;
-      else if (c != '\\')
-	{
-	  if (c < 128 || ! CHAR_UNITS_BY_HEAD_UTF8 (c))
-	    num = c;
-	  else
-	    num = read_character (st, c);
-	}
-      else
-	{
-	  c = GETC (st);
-	  if (c == EOF)
-	    num = '\\';
-	  else if (c < 128 || ! CHAR_UNITS_BY_HEAD_UTF8 (c))
-	    num = escape_mnemonic[c];
-	  else
-	    num = read_character (st, c);
-	}
-    }
-  else if (c == '-')
-    num = - read_decimal (st, GETC (st));
-  else
-    num = read_decimal (st, c);
-
-  MPLIST_SET_ADVANCE (plist, Minteger, (void *) num);
-  return plist;
-}
-
-/** Read a symbol element from ST, and add it to LIST.  Return a list
-    for the next element.  */
-
-static MPlist *
-read_symbol_element (MPlist *plist, MStream *st)
-{
-  unsigned char buffer[1024];
-  int bufsize = 1024;
-  unsigned char *buf = buffer;
-  int c, i;
-
-  i = 0;
-  while ((c = GETC (st)) != EOF
-	 && c > ' '
-	 && c != ')' && c != '(' && c != '"')
-    {
-      if (i >= bufsize)
-	{
-	  bufsize *= 2;
-	  if (buf == buffer)
-	    {
-	      MTABLE_MALLOC (buf, bufsize, MERROR_PLIST);
-	      memcpy (buf, buffer, i);
-	    }
-	  else
-	    MTABLE_REALLOC (buf, bufsize, MERROR_PLIST);
-	}
-      if (c == '\\')
-	{
-	  c = GETC (st);
-	  if (c == EOF)
-	    break;
-	  c = escape_mnemonic[c];
-	}
-      buf[i++] = c;
-    }
-
-  buf[i] = 0;
-  MPLIST_SET_ADVANCE (plist, Msymbol, msymbol ((char *) buf));
-  if (buf != buffer)
-    free (buf);
-  if (c > ' ')
-    UNGETC (c, st);
-  return plist;
-}
-
-/* Read an element of various type from stream ST, and add it to LIST.
-   Return a list for the next element.  The element type is decided by
-   the first token character found as below:
-	'(': plist
-	'"': mtext
-	'0'..'9', '-': integer
-	'?': integer representing character code
-	the other ASCII letters: symbol
-*/
-
-static MPlist *
-read_element (MPlist *plist, MStream *st)
-{
-  int c;
-
-  /* Skip separators and comments.  */
-  while (1)
-    {
-      while ((c = GETC (st)) != EOF && c <= ' ');
-      if (c != ';')
-	break;
-      while ((c = GETC (st)) != EOF && c != '\n');
-      if (c == EOF)
-	break;
-    }
-
-  if (c == '(')
-    {
-      MPlist *pl, *p;
-
-      MPLIST_NEW (pl);
-      p = pl;
-      while ((p = read_element (p, st)));
-      MPLIST_SET_ADVANCE (plist, Mplist, pl);
-      return plist;
-    }
-  if (c == '"')
-    return read_mtext_element (plist, st);
-  if ((c >= '0' && c <= '9') || c == '-' || c == '?' || c == '#')
-    return read_integer_element (plist, st, c);
-  if (c == EOF || c == ')')
-    return NULL;
-  UNGETC (c, st);
-  return read_symbol_element (plist, st);
-}
-
-void
-write_element (MText *mt, MPlist *plist)
-{
-  if (MPLIST_SYMBOL_P (plist))
-    {
-      MSymbol sym = MPLIST_SYMBOL (plist);
-
-      if (sym == Mnil)
-	{
-	  MTEXT_CAT_ASCII (mt, "nil");
-	}
-      else
-	{
-	  char *name = MSYMBOL_NAME (sym);
-	  char *buf = alloca (MSYMBOL_NAMELEN (sym) * 2 + 1), *p = buf;
-
-	  while (*name)
-	    {
-	      if (*name <= ' ' || *name == '"' || *name == ')' || *name == ')')
-		*p++ = '\\';
-	      *p++ = *name++;
-	    }
-	  *p = '\0';
-	  MTEXT_CAT_ASCII (mt, buf);
-	}
-    }
-  else if (MPLIST_INTEGER_P (plist))
-    {
-      int num = MPLIST_INTEGER (plist);
-      char buf[128];
-
-      sprintf (buf, "%d", num);
-      MTEXT_CAT_ASCII (mt, buf);
-    }
-  else if (MPLIST_PLIST_P (plist))
-    {
-      MPlist *pl;
-
-      plist = MPLIST_PLIST (plist);
-      mtext_cat_char (mt, '(');
-      MPLIST_DO (pl, plist)
-	{
-	  if (pl != plist)
-	    mtext_cat_char (mt, ' ');
-	  write_element (mt, pl);
-	}
-      mtext_cat_char (mt, ')');
-    }
-  else if (MPLIST_MTEXT_P (plist))
-    {
-      mtext_cat_char (mt, '"');
-      /* Not yet implemnted */
-      mtext_cat_char (mt, '"');
-    }
-}
-
-/* Support functions for mdebug_dump_plist.  */
-
-static void
-dump_string (char *str)
-{
-  char *p = str, *pend = p + strlen (p), *new, *p1;
-
-  new = p1 = alloca ((pend - p) * 4 + 1);
-  while (p < pend)
-    {
-      if (*p < 0)
-	{
-	  sprintf (p1, "\\x%02X", (unsigned char) *p);
-	  p1 += 4;
-	}
-      else if (*p < ' ')
-	{
-	  *p1++ = '^';
-	  *p1++ = *p + '@';
-	}
-      else if (*p == ' ')
-	{
-	  *p1++ = '\\';
-	  *p1++ = ' ';
-	}
-      else
-	*p1++ = *p;
-      p++;
-    }
-  *p1 = '\0';
-  fprintf (stderr, "%s", new);
-}
-
-static void
-dump_plist_element (MPlist *plist, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MSymbol key;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  key = MPLIST_KEY (plist);
-  fprintf (stderr, "(%s(#%d) ", msymbol_name (MPLIST_KEY (plist)),
-	   plist->control.ref_count);
-  if (key == Msymbol)
-    dump_string (msymbol_name (MPLIST_SYMBOL (plist)));
-  else if (key == Mtext)
-    mdebug_dump_mtext (MPLIST_MTEXT (plist), indent, 0);
-  else if (key == Minteger)
-    fprintf (stderr, "%x", MPLIST_INTEGER (plist));
-  else if (key == Mstring) 
-    fprintf (stderr, "\"%s\"", MPLIST_STRING (plist));
-  else if (key == Mplist)
-    {
-      fprintf (stderr, "\n%s", prefix);
-      mdebug_dump_plist (MPLIST_PLIST (plist), indent);
-    }
-  else
-    fprintf (stderr, "0x%X", (unsigned) MPLIST_VAL (plist));
-  fprintf (stderr, ")");
-}
-
-
-/* Internal API */
-int
-mplist__init ()
-{
-  int i;
-
-  plist_table.count = 0;
-
-  Minteger = msymbol ("integer");
-  Mplist = msymbol_as_managing_key ("plist");
-  Mtext = msymbol_as_managing_key ("mtext");
-
-  for (i = 0; i < 256; i++)
-    hex_mnemonic[i] = 255;
-  for (i = '0'; i <= '9'; i++)
-    hex_mnemonic[i] = i - '0';
-  for (i = 'A'; i <= 'F'; i++)
-    hex_mnemonic[i] = i - 'A' + 10;
-  for (i = 'a'; i <= 'f'; i++)
-    hex_mnemonic[i] = i - 'a' + 10;
-  for (i = 0; i < 256; i++)
-    escape_mnemonic[i] = i;
-  escape_mnemonic['e'] = 27;
-  escape_mnemonic['b'] = '\b';
-  escape_mnemonic['f'] = '\f';
-  escape_mnemonic['n'] = '\n';
-  escape_mnemonic['r'] = '\r';
-  escape_mnemonic['t'] = '\t';
-  escape_mnemonic['\\'] = '\\';
-
-  return 0;
-}
-
-void
-mplist__fini (void)
-{
-  mdebug__report_object ("Plist", &plist_table);
-}
-
-
-/* Parse this form of PLIST:
-      (symbol:KEY1 TYPE1:VAL1 symbol:KEY2 TYPE2:VAL2 ...)
-   and return a newly created plist of this form:
-      (KEY1:VAL1 KEY2:VAL2 ...)  */
-
-MPlist *
-mplist__from_plist (MPlist *plist)
-{
-  MPlist *pl, *p;
-
-  MPLIST_NEW (pl);
-  p = pl;
-  while (! MPLIST_TAIL_P (plist))
-    {
-      MSymbol key, type;
-
-      if (! MPLIST_SYMBOL_P (plist))
-	MERROR (MERROR_PLIST, NULL);
-      key = MPLIST_SYMBOL (plist);
-      plist = MPLIST_NEXT (plist);
-      type = MPLIST_KEY (plist);
-      if (type->managing_key)
-	M17N_OBJECT_REF (MPLIST_VAL (plist));
-      MPLIST_SET_ADVANCE (p, key, MPLIST_VAL (plist));
-      plist = MPLIST_NEXT (plist);
-    }
-  return pl;
-}
-
-/** Parse this form of PLIST:
-      ((symbol:KEY1 ANY:VAL1 ... ) (symbol:KEY2 ANY:VAL2 ...) ...)
-    and return a newly created plist of this form:
-      (KEY1:(ANY:VAL1 ...) KEY2:(ANY:VAL2 ...) ...)
-    ANY can be any type.  */
-
-MPlist *
-mplist__from_alist (MPlist *plist)
-{
-  MPlist *pl, *p;
-
-  MPLIST_NEW (pl);
-  p = pl;
-  MPLIST_DO (plist, plist)
-    {
-      MPlist *elt;
-
-      if (! MPLIST_PLIST_P (plist))
-	MERROR (MERROR_PLIST, NULL);
-      elt = MPLIST_PLIST (plist);
-      if (! MPLIST_SYMBOL_P (elt))
-	MERROR (MERROR_PLIST, NULL);
-      MPLIST_SET_ADVANCE (p, MPLIST_SYMBOL (elt), MPLIST_NEXT (elt));
-      M17N_OBJECT_REF (MPLIST_NEXT (elt));
-    }
-  return pl;
-}
-
-
-MPlist *
-mplist__from_file (FILE *fp)
-{
-  MPlist *plist, *pl;
-  MStream st;
-
-  st.fp = fp;
-  st.eof = 0;
-  st.p = st.pend = st.buffer;
-  MPLIST_NEW (plist);
-  pl = plist;
-  while ((pl = read_element (pl, &st)));
-  return plist;
-}
-
-
-/** Parse $STR of $N bytes and return a property list object.  $FORMAT
-    must be either @c MTEXT_FORMAT_US_ASCII or @c MTEXT_FORMAT_UTF_8,
-    and controls how to produce @c STRING or @c M-TEXT in the
-    following definition.
-
-    The syntax of $STR is as follows.
-
-    PLIST ::= '(' ELEMENT * ')'
-
-    ELEMENT ::= SYMBOL | INTEGER | UNSIGNED | STRING | M-TEXT | PLIST
-
-    SYMBOL ::= ascii-character-sequence
-
-    INTEGER ::= '-' ? [ '0' | .. | '9' ]+
-
-    UNSIGNED ::= '0x' [ '0' | .. | '9' | 'A' | .. | 'F' | 'a' | .. | 'f' ]+
-
-    M-TEXT ::= '"' byte-sequence '"'
-
-    Each kind of @c ELEMENT is assigned one of these keys:
-	@c Msymbol, @c Mint, @c Munsigned, @c Mtext, @c Mplist
-
-    In an ascii-character-sequence, a backslush (\) is used as the escape
-    character, which means that, for instance, "abc\ def"
-    produces a symbol whose name is of length seven with the fourth
-    character being a space.
-
-    In a byte-sequence, "\r", "\n", "\e", and "\t" are replaced by CR,
-    NL, ESC, and TAB character respectively, "\xXX" are replaced by
-    byte 0xXX.  After this replacement, the byte-sequence is decoded
-    into M-TEXT by $CODING.  */
-
-MPlist *
-mplist__from_string (unsigned char *str, int n)
-{
-  MPlist *plist, *pl;
-  MStream st;
-
-  st.fp = NULL;
-  st.eof = 0;
-  st.p = str;
-  st.pend = str + n;
-  MPLIST_NEW (plist);
-  pl = plist;
-  while ((pl = read_element (pl, &st)));
-  return plist;
-}
-
-int
-mplist__serialize (MText *mt, MPlist *plist)
-{
-  MPlist *pl;
-
-  MPLIST_DO (pl, plist)
-    {
-      if (pl != plist)
-	mtext_cat_char (mt, ' ');
-      write_element (mt, pl);
-    }
-  return 0;
-}
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nPlist */
-/*** @{ */
-/*=*/
-
-/***en
-    @brief Symbol whose name is "integer".
-
-    The symbol @c Minteger has the name "integer".  A value
-    of a property whose key is @c Minteger must be an integer.  */
-/***ja
-    @brief "integer" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë @c Minteger ¤Ï "integer" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¡£¥¡¼¤¬
-    @c Minteger ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤ÏÀ°¿ôÃÍ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£  */
-
-MSymbol Minteger;
-/*=*/
-
-/***en
-    @brief Symbol whose name is "plist".
-
-    The symbol @c Mplist has the name "plist".  It is a
-    managing key.  A value of a property whose key is @c Mplist must
-    be a plist.  */
-/***ja
-    @brief "plist" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë @c Mplist ¤Ï "plist" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¡£¤³¤ì¤Ï´É
-    Íý¥¡¼¤Ç¤¢¤ë¡£¥¡¼¤¬ @c Mplist ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï plist ¤Ç¤Ê¤¯
-    ¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£  */
-
-MSymbol Mplist;
-/*=*/
-
-/***en
-    @brief Symbol whose name is "mtext".
-
-    The symbol @c Mtext has the name "mtext".  It is a
-    managing key.  A value of a property whose key is @c Mtext must be an
-    M-text.  */
-
-/***ja
-    @brief "mtext" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë @c Mtext ¤Ï "mtext" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä´ÉÍý¥¡¼¤Ç¤¢
-    ¤ë¡£¥¡¼¤¬ @c Mtext ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï M-text ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê
-    ¤¤¡£      */
-
-MSymbol Mtext;
-
-/*=*/
-/***en
-    @brief Create a property list object.
-
-    The mplist () function returns a newly created property list
-    object of length zero.
-
-    @returns
-    This function returns a newly created property list.
-
-    @errors
-    This function never fails.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤ë.
-
-    ´Ø¿ô mplist () ¤ÏÄ¹¤µ 0 ¤Î¿·¤·¤¯ºî¤é¤ì¤¿¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥ª¥Ö¥¸¥§¥¯
-    ¥È¤òÊÖ¤¹¡£
-
-    @returns
-    ¤³¤Î´Ø¿ô¤Ï¿·¤·¤¯ºî¤é¤ì¤¿¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥ª¥Ö¥¸¥§¥¯¥È¤òÊÖ¤¹¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï·è¤·¤Æ¼ºÇÔ¤·¤Ê¤¤¡£     */
-
-MPlist *
-mplist ()
-{
-  MPlist *plist;
-
-  MPLIST_NEW (plist);
-  return plist;
-}  
-
-/*=*/
-/***en
-    @brief Copy a property list.
-
-    The mplist_copy () function copies property list $PLIST.  In the
-    copy, the values are the same as those of $PLIST.
-
-    @return
-    This function returns a newly created plist which is a copy of
-    $PLIST.  
-
-    @errors
-    This function never fails.  */ 
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤ò¥³¥Ô¡¼¤¹¤ë.
-
-    ´Ø¿ô mplist_copy () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò¥³¥Ô¡¼¤¹¤ë¡£¥³¥Ô¡¼¤Î¤¹¤Ù¤Æ¤Î
-    ÃÍ¤Ï¥³¥Ô¡¼¸µ $PLIST ¤ÎÃÍ¤ÈÆ±¤¸¤Ç¤¢¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¿·¤·¤¯ºî¤é¤ì¤¿¡¢$PLIST ¤Î¥³¥Ô¡¼¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤òÊÖ¤¹¡£    
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï·è¤·¤Æ¼ºÇÔ¤·¤Ê¤¤¡£     */
-
-MPlist *
-mplist_copy (MPlist *plist)
-{
-  MPlist *copy = mplist (), *pl = copy;
-
-  MPLIST_DO (plist, plist)
-    pl = mplist_add (pl, MPLIST_KEY (plist), MPLIST_VAL (plist));
-  return copy;
-}
-
-/*=*/
-
-/***en
-    @brief Set the value of a property in a property list.
-
-    The mplist_put () function searches property list $PLIST
-    from the beginning for a property whose key is $KEY.  If such a
-    property is found, its value is changed to $VALUE.  Otherwise, a
-    new property whose key is $KEY and value is $VALUE is appended at
-    the end of $PLIST.  See the documentation of mplist_add () for
-    the restriction on $KEY and $VAL.
-
-    If $KEY is a managing key, $VAL must be a managed object.  In this
-    case, the reference count of the old value, if not @c NULL, is
-    decremented by one, and that of $VAL is incremented by one.
-
-    @return
-    If the operation was successful, mplist_put () returns a sublist of
-    $PLIST whose first element is the just modified or added one.
-    Otherwise, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mplist_put () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò»Ï¤á¤«¤éÃµ¤·¤Æ¡¢¥¡¼
-    ¤¬ $KEY ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ò¸«¤Ä¤±¤ë¡£¸«¤Ä¤«¤ì¤Ð¡¢¤½¤ÎÃÍ¤ò $VALUE ¤Ë
-    ÊÑ¹¹¤¹¤ë¡£¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢¥¡¼¤¬ $KEY ¤ÇÃÍ¤¬ $VALUE ¤Ç¤¢¤ë¿·¤·¤¤
-    ¥×¥í¥Ñ¥Æ¥£¤¬$PLIST ¤ÎËöÈø¤ËÄÉ²Ã¤µ¤ì¤ë¡£$KEY ¤È $VAL ¤ËÂÐ¤¹¤ëÀ©¸Â¤Ë
-    ¤Ä¤¤¤Æ¤Ï¡¢mplist_add () ¤ÎÀâÌÀ¤ò»²¾È¡£
-
-    $KEY ¤¬´ÉÍý¥¡¼¤Ê¤é¤Ð¡¢$VAL ¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    ¤³¤Î¾ì¹ç¡¢¸Å¤¤ÃÍ¤Î»²¾È¿ô¤Ï @c NULL ¤Ç¤Ê¤±¤ì¤Ð 1 ¸º¤é¤µ¤ì¡¢$VAL ¤Î
-    »²¾È¿ô¤Ï 1 Áý¤ä¤µ¤ì¤ë¡£
-
-    @return 
-     ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mplist_put () ¤ÏÊÑ¹¹¤µ¤ì¤¿¤«ÄÉ²Ã¤µ¤ì¤¿Í×ÁÇ¤«¤é»Ï
-    ¤Þ¤ë $PLIST ¤ÎÉôÊ¬¥ê¥¹¥È¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£   */
-
-MPlist *
-mplist_put (MPlist *plist, MSymbol key, void *val)
-{
-  if (key == Mnil)
-    MERROR (MERROR_PLIST, NULL);
-  MPLIST_FIND (plist, key);
-  if (key->managing_key)
-    {
-      if (! MPLIST_TAIL_P (plist))
-	M17N_OBJECT_UNREF (MPLIST_VAL (plist));
-      M17N_OBJECT_REF (val);
-    }
-  MPLIST_SET (plist, key, val);
-  return plist;
-}
-
-/*=*/
-
-/***en
-    @brief Get the value of a property in a property list.
-
-    The mplist_get () function searches property list $PLIST
-    from the beginning for a property whose key is $KEY.  If such a
-    property is found, a pointer to its value is returned as the type
-    of (void *).  If not found, @c NULL is returned.
-
-    When @c NULL is returned, there are two possibilities: one is the
-    case where no property is found (see above); the other is the case
-    where a property is found and its value is @c NULL.  In case that
-    these two cases must be distinguished, use the mplist_find_by_key ()
-    function.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô mplist_get () ¤Ï¡¢¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò»Ï¤á¤«¤éÃµ¤·¤Æ¡¢
-    ¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ò¸«¤Ä¤±¤ë¡£¸«¤Ä¤«¤ì¤Ð¡¢¤½¤ÎÃÍ¤Ø¤Î¥Ý¥¤
-    ¥ó¥¿¤ò (void *) ·¿¤ÇÊÖ¤¹¡£¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£
-
-    @c NULL ¤¬ÊÖ¤Ã¤¿ºÝ¤Ë¤ÏÆó¤Ä¤Î²ÄÇ½À¤¬¤¢¤ë:¾åµ¤Î¤è¤¦¤Ë¥×¥í¥Ñ¥Æ¥£¤¬
-    ¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¾ì¹ç¤È¡¢¥×¥í¥Ñ¥Æ¥£¤¬¸«¤Ä¤«¤ê¡¢¤½¤ÎÃÍ¤¬ @c NULL ¤Ç
-    ¤¢¤ë¾ì¹ç¤Ç¤¢¤ë¡£¤³¤ì¤é¤ò¶èÊÌ¤¹¤ëÉ¬Í×¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï´Ø¿ô 
-    mplist_find_by_key () ¤ò»È¤¦¤³¤È¡£  */
-
-/***
-    @seealso
-    mplist_find_by_key () */
-
-void *
-mplist_get (MPlist *plist, MSymbol key)
-{
-  MPLIST_FIND (plist, key);
-  return (MPLIST_TAIL_P (plist) ? NULL : MPLIST_VAL (plist));
-}
-
-/*=*/
-
-/***en
-    @brief Add a property at the end of a property list.
-
-    The mplist_add () function appends at the end of property list
-     $PLIST a property whose key is $KEY and value is $VAL.  $KEY can
-     be any symbol other than @c Mnil.
-
-    If $KEY is a managing key, $VAL must be a managed object.  In this
-    case, the reference count of $VAL is incremented by one.
-
-    @return
-    If the operation was successful, mplist_add () returns a sublist of
-    $PLIST whose first element is the just added one.  Otherwise, it
-    returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈËöÈø¤Ë¥×¥í¥Ñ¥Æ¥£¤òÄÉ²Ã¤¹¤ë.
-
-    ´Ø¿ô mplist_add () ¤Ï¡¢¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ÎËöÈø¤Ë¥¡¼¤¬ $KEY 
-    ¤ÇÃÍ¤¬ $VAL ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤òÄÉ²Ã¤¹¤ë¡£$KEY ¤Ï¡¢@c Mnil °Ê³°¤ÎÇ¤
-    °Õ¤Î¥·¥ó¥Ü¥ë¤Ç¤è¤¤¡£
-
-    $KEY ¤¬´ÉÍý¥¡¼¤Ê¤é¤Ð¡¢$VAL ¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    ¤³¤Î¾ì¹ç¡¢$VAL ¤Î»²¾È¿ô¤Ï 1 Áý¤ä¤µ¤ì¤ë¡£
-
-    @return
-     ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mplist_add () ¤ÏÄÉ²Ã¤µ¤ì¤¿Í×ÁÇ¤«¤é»Ï¤Þ¤ë $PLIST 
-    ¤ÎÉôÊ¬¥ê¥¹¥È¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
-
-MPlist *
-mplist_add (MPlist *plist, MSymbol key, void *val)
-{
-  if (key == Mnil)
-    MERROR (MERROR_PLIST, NULL);
-  MPLIST_FIND (plist, Mnil);
-  if (key->managing_key)
-    M17N_OBJECT_REF (val);
-  MPLIST_KEY (plist) = key;
-  MPLIST_VAL (plist) = val;
-  MPLIST_NEW (plist->next);
-  return plist;
-}
-
-/*=*/
-
-/***en
-    @brief Push a property to a property list.
-
-    The mplist_push () function pushes at the top of property list
-     $PLIST a property whose key is $KEY and value is $VAL.
-
-    If $KEY is a managing key, $VAL must be a managed object.  In this
-    case, the reference count of $VAL is incremented by one.
-
-    @return
-    If the operation was successful, this function returns $PLIST.
-    Otherwise, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥×¥Ã¥·¥å¤¹¤ë.
-
-    ´Ø¿ô mplist_push () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤Î¾å¤Ë¤Ë¥¡¼¤¬ $KEY 
-    ¤ÇÃÍ¤¬ $VAL ¤Ç¤¢¤ë¥ª¥Ö¥¸¥§¥¯¥È¤ò¥×¥Ã¥·¥å¤¹¤ë¡£
-
-    $KEY ¤¬´ÉÍý¥¡¼¤Ê¤é¤Ð¡¢$VAL ¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    ¤³¤Î¾ì¹ç¡¢$VAL ¤Î»²¾È¿ô¤Ï 1 Áý¤ä¤µ¤ì¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¤³¤Î´Ø¿ô¤Ï $PLIST ¤òÊÖ¤·¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð@c NULL ¤ò
-    ÊÖ¤¹¡£  */
-
-MPlist *
-mplist_push (MPlist *plist, MSymbol key, void *val)
-{
-  MPlist *pl;
-
-  if (key == Mnil)
-    MERROR (MERROR_PLIST, NULL);
-  MPLIST_NEW (pl);
-  MPLIST_KEY (pl) = MPLIST_KEY (plist);
-  MPLIST_VAL (pl) = MPLIST_VAL (plist);
-  pl->next = plist->next;
-  plist->next = pl;
-  if (key->managing_key)
-    M17N_OBJECT_REF (val);
-  MPLIST_KEY (plist) = key;
-  MPLIST_VAL (plist) = val;
-  return plist;
-}
-
-/*=*/
-
-/***en
-    @brief Pop a property from a property list.
-
-    The mplist_pop () function pops the topmost property from property
-    list $PLIST.  As a result, the key and value of $PLIST becomes
-    those of the next of $PLIST.
-
-    @return
-    If the operation was successful, this function return the value of
-    the just popped property.  Otherwise, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥Ý¥Ã¥×¤¹¤ë.
-
-    ´Ø¿ô mplist_pop () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤«¤éºÇ¾å°Ì¤Î¥×¥í¥Ñ¥Æ¥£
-    ¤ò¥Ý¥Ã¥×¤¹¤ë¡£·ë²Ì¤È¤·¤Æ $PLIST ¤Î¥¡¼¤ÈÃÍ¤Ï $PLIST ¤Î¼¡¤Î¥¡¼¤ÈÃÍ
-    ¤Ë¤Ê¤ë¡£
-
-    @return 
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¥Ý¥Ã¥×¤µ¤ì¤¿¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹¡£¤½¤¦
-    ¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£  */
-
-void *
-mplist_pop (MPlist *plist)
-{
-  void *val;
-  MPlist *next;
-
-  if (MPLIST_TAIL_P (plist))
-    return NULL;
-  val = MPLIST_VAL (plist);
-  next = plist->next;
-  MPLIST_KEY (plist) = MPLIST_KEY (next);
-  MPLIST_VAL (plist) = MPLIST_VAL (next);
-  if (MPLIST_KEY (plist) != Mnil
-      && MPLIST_KEY (plist)->managing_key
-      && MPLIST_VAL (plist))
-    M17N_OBJECT_REF (MPLIST_VAL (plist));
-  plist->next = next->next;
-  if (plist->next)
-    M17N_OBJECT_REF (plist->next);
-  M17N_OBJECT_UNREF (next);
-  return val;
-}
-
-/*=*/
-/***en
-    @brief Find a property of a specific key in a property list.
-
-    The mplist_find_by_key () function searches property list
-    $PLIST from the beginning for a property whose key is $KEY.  If
-    such a property is found, a sublist of $PLIST whose first element
-    is the found one is returned.  Otherwise, @c NULL is returned.
-
-    If $KEY is @c Mnil, it returns a sublist of $PLIST whose
-    first element is the last one of $PLIST.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤«¤é»ØÄê¤Î¥¡¼¤ò»ý¤Ä¥ª¥Ö¥¸¥§¥¯¥È¤òÃµ¤¹.
-
-    ´Ø¿ô mplist_find_by_key () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò»Ï¤á¤«¤éÃµ
-    ¤·¤Æ¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ò¸«¤Ä¤±¤ë¡£¸«¤Ä¤«¤ì¤Ð¡¢¤½¤Î¥×¥í
-    ¥Ñ¥Æ¥£¤«¤é»Ï¤Þ¤ë $PLIST ¤ÎÉôÊ¬¥ê¥¹¥È¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð@c NULL 
-    ¤òÊÖ¤¹¡£
-
-    $KEY ¤¬ @c Mnil ¤Ê¤é¤Ð¡¢$PLIST ¤ÎºÇ¸å¤ÎÍ×ÁÇ¤«¤é»Ï¤Þ¤ëÉôÊ¬¥ê¥¹¥È¤ò
-    ÊÖ¤¹¡£  */
-
-MPlist *
-mplist_find_by_key (MPlist *plist, MSymbol key)
-{
-  MPLIST_FIND (plist, key);
-  return (MPLIST_TAIL_P (plist)
-	  ? (key == Mnil ? plist : NULL)
-	  : plist);
-}
-
-/*=*/
-/***en
-    @brief Find a property of a specific value in a property list.
-
-    The mplist_find_by_value () function searches property list $PLIST
-    from the beginning for a property whose value is $VAL.  If such a
-    property is found, a sublist of $PLIST whose first element is the
-    found one is returned.  Otherwise, @c NULL is returned.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤«¤é»ØÄê¤ÎÃÍ¤ò»ý¤Ä¥ª¥Ö¥¸¥§¥¯¥È¤òÃµ¤¹.
-
-    ´Ø¿ô mplist_find_by_value () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò»Ï¤á¤«¤é
-    Ãµ¤·¤Æ¡¢ÃÍ¤¬ $VAL ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ò¸«¤Ä¤±¤ë¡£¸«¤Ä¤«¤ì¤Ð¡¢¤½¤Î¥×¥í
-    ¥Ñ¥Æ¥£¤«¤é»Ï¤Þ¤ë $PLIST ¤ÎÉôÊ¬¥ê¥¹¥È¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð@c NULL 
-    ¤òÊÖ¤¹¡£ */
-
-MPlist *
-mplist_find_by_value (MPlist *plist, void *val)
-{
-  MPLIST_DO (plist, plist)
-    {
-      if (MPLIST_VAL (plist) == val)
-	return plist;
-    }
-  return NULL;
-}
-
-/*=*/
-
-/***en
-    @brief Return the next sublist of a property list.
-
-    The mplist_next () function returns a pointer to the sublist of
-    property list $PLIST, which begins at the second element in $PLIST.  If the
-    length of $PLIST is zero, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤Î¼¡¤ÎÉôÊ¬¥ê¥¹¥È¤òÊÖ¤¹.
-
-    ´Ø¿ô mplist_next () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤Î£²ÈÖÌÜ
-    ¤ÎÍ×ÁÇ¤«¤é»Ï¤Þ¤ëÉôÊ¬¥ê¥¹¥È¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£$PLIST ¤ÎÄ¹¤µ¤¬ 0 ¤Ê
-    ¤é¤Ð @c NULL ¤òÊÖ¤¹¡£  */
-
-MPlist *
-mplist_next (MPlist *plist)
-{
-  return (MPLIST_TAIL_P (plist) ? NULL : plist->next);
-}
-
-/*=*/
-
-/***en
-    @brief Set the first property in a property list.
-
-    The mplist_set () function sets the key and value of the first
-    property in property list $PLIST to $KEY and $VALUE, respectively.
-    See the documentation of mplist_add () for the restriction on $KEY
-    and $VAL.
-
-    @return
-    If the operation was successful, mplist_set () returns $PLIST.
-    Otherwise, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤ÎºÇ½é¤Î¥×¥í¥Ñ¥Æ¥£¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mplist_set () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ÎºÇ½é¤Î¥×¥í¥Ñ¥Æ¥£¤Î
-    ¥¡¼¤ÈÃÍ¤ò¤½¤ì¤¾¤ì $KEY ¤È $VALUE ¤ËÀßÄê¤¹¤ë¡£$KEY ¤È $VAL ¤ËÂÐ¤¹
-    ¤ëÀ©¸Â¤Ë¤Ä¤¤¤Æ¤Ï¡¢mplist_add () ¤ÎÀâÌÀ¤ò»²¾È¡£
-
-    @return
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð mplist_set () ¤Ï $PLIST ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð
-    @c NULL ¤òÊÖ¤¹¡£  */
-
-MPlist *
-mplist_set (MPlist *plist, MSymbol key, void * val)
-{
-  if (key == Mnil)
-    {
-      if (! MPLIST_TAIL_P (plist))
-	{
-	  key = MPLIST_KEY (plist);
-	  M17N_OBJECT_UNREF (MPLIST_NEXT (plist));
-	  MPLIST_KEY (plist) = Mnil;
-	  if (key->managing_key && MPLIST_VAL (plist))
-	    M17N_OBJECT_UNREF (MPLIST_VAL (plist));
-	  plist->next = NULL;
-	}
-    }
-  else
-    {
-      if (! MPLIST_TAIL_P (plist)
-	  && MPLIST_KEY (plist)->managing_key
-	  && MPLIST_VAL (plist))
-	M17N_OBJECT_UNREF (MPLIST_VAL (plist));
-      if (key->managing_key)
-	M17N_OBJECT_REF (val);
-      MPLIST_SET (plist, key, val);
-    }
-  return plist;
-}
-
-/*=*/
-
-/***en
-    @brief Return the length of a property list.
-
-    The mplist_length () function returns the number of properties in
-    property list  $PLIST.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤ÎÄ¹¤µ¤òÊÖ¤¹.
-
-    ´Ø¿ô mplist_length () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST Ãæ¤Î¥×¥í¥Ñ¥Æ¥£¤Î¿ô
-    ¤òÊÖ¤¹¡£  */
-
-int
-mplist_length (MPlist *plist)
-{
-  int n;
-
-  for (n = 0; ! (MPLIST_TAIL_P (plist)); n++, plist = plist->next);
-  return n;
-}
-
-/*=*/
-
-/***en
-    @brief Return the key of the first property in a property list.
-
-    The mplist_key () function returns the key of the first property
-    in property list $PLIST.  If the length of $PLIST is zero,
-    it returns @c Mnil.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤ÎºÇ½é¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÊÖ¤¹.
-
-    ´Ø¿ô mplist_key () ¤Ï¡¢¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST Ãæ¤ÎºÇ
-    ½é¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÊÖ¤¹¡£$PLIST ¤ÎÄ¹¤µ¤¬ 0 ¤Ê¤é¤Ð¡¢ @c Mnil ¤ò
-    ÊÖ¤¹¡£  */
-
-MSymbol
-mplist_key (MPlist *plist)
-{
-  return MPLIST_KEY (plist);
-}
-
-/*=*/
-
-/***en
-    @brief Return the value of the first property in a property list.
-
-    The mplist_value () function returns the value of the first
-    property in property list  $PLIST.  If the length of $PLIST
-    is zero, it returns @c NULL.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥ÈÃæ¤ÎºÇ½é¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÊÖ¤¹.
-
-    ´Ø¿ô mplist_value () ¤Ï¡¢¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST Ãæ¤Î
-    ºÇ½é¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹¡£$PLIST ¤ÎÄ¹¤µ¤¬ 0 ¤Ê¤é¤Ð¡¢ @c Mnil ¤ò
-    ÊÖ¤¹¡£  */
-
-void *
-mplist_value (MPlist *plist)
-{
-  return MPLIST_VAL (plist);
-}
-
-/***en
-    @brief Generate a property list by deserializaing an M-text.
-
-    The mplist_deserialize () function parses M-text $MT and returns a
-    property list.
-
-    The syntax of $MT is as follows.
-
-    MT ::= '(' ELEMENT * ')'
-
-    ELEMENT ::= SYMBOL | INTEGER | M-TEXT | PLIST
-
-    SYMBOL ::= ascii-character-sequence
-
-    INTEGER ::= '-' ? [ '0' | .. | '9' ]+
-		| '0x' [ '0' | .. | '9' | 'A' | .. | 'F' | 'a' | .. | 'f' ]+
-
-    M-TEXT ::= '"' character-sequence '"'
-
-    Each alternatives of @c ELEMENT is assigned one of these keys: @c
-    Msymbol, @c Minteger, @c Mtext, @c Mplist
-
-    In an ascii-character-sequence, a backslush (\) is used as the escape
-    character, which means that, for instance, "abc\ def"
-    produces a symbol whose name is of length seven with the fourth
-    character being a space.  */
-/***ja
-    @brief M-text ¤ò¥Ç¥·¥ê¥¢¥é¥¤¥º¤·¤Æ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤òºî¤ë.
-
-    ´Ø¿ô mplist_deserialize () ¤Ï M-text $MT ¤ò²òÀÏ¤·¤Æ¥×¥í¥Ñ¥Æ¥£¥ê¥¹
-    ¥È¤òÊÖ¤¹¡£
-
-    $MT ¤Î¥·¥ó¥¿¥Ã¥¯¥¹¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
-
-    MT ::= '(' ELEMENT * ')'
-
-    ELEMENT ::= SYMBOL | INTEGER | M-TEXT | PLIST
-
-    SYMBOL ::= ¥¢¥¹¥¡¼Ê¸»úÎó
-
-    INTEGER ::= '-' ? [ '0' | .. | '9' ]+
-		| '0x' [ '0' | .. | '9' | 'A' | .. | 'F' | 'a' | .. | 'f' ]+
-
-    M-TEXT ::= '"' character-sequence '"'
-
-    @c ELEMENT ¤Î³ÆÁªÂò»è¤Ï¥¡¼¡§@c Msymbol, @c Minteger, @c Mtext,
-    @c Mplist ¤Î¤¤¤º¤ì¤«¤ò³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¡£
-
-    ¥¢¥¹¥¡¼Ê¸»úÎóÆâ¤Ç¤Ï¡¢¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å (\) ¤¬¥¨¥¹¥±¡¼¥×Ê¸»ú¤È¤·¤Æ
-    ÍÑ¤¤¤é¤ì¤ë¡£¤¿¤È¤¨¤Ð "abc\ def" ¤Ï£´Ê¸»úÌÜ¤¬¶õÇòÊ¸»ú¤Ç¤¢
-    ¤êÄ¹¤µ¤¬£·¤Ç¤¢¤ë»ý¤ÄÌ¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤òÀ¸À®¤¹¤ë¡£   */
-
-MPlist *
-mplist_deserialize (MText *mt)
-{
-  MPlist *plist;
-  MText *tmp = NULL;
-
-  if (mt->format > MTEXT_FORMAT_UTF_8)
-    {
-      if (MTEXT_READ_ONLY_P (mt))
-	mt = tmp = mtext_cpy (mtext (), mt);
-      else
-	mtext__adjust_format (mt, MTEXT_FORMAT_UTF_8);
-    }
-  plist = mplist__from_string (MTEXT_DATA (mt), mtext_nbytes (mt));
-  if (tmp)
-    M17N_OBJECT_UNREF (tmp);
-  return plist;
-}
-
-/*** @}  */
-
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{  */
-
-/***en
-    @brief Dump a property list.
-
-    The mdebug_dump_plist () function prints a property list $PLIST in
-    a human readable way to the stderr.  $INDENT specifies how many
-    columns to indent the lines but the first one.
-
-    @return
-    This function returns $PLIST.  */
-/***ja
-    @brief ¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_plist () ¤Ï¥×¥í¥Ñ¥Æ¥£¥ê¥¹¥È $PLIST ¤ò stderr ¤Ë¿Í
-    ´Ö¤Ë²ÄÆÉ¤Ê ·Á¤Ç°õºþ¤¹¤ë¡£ $UNDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹
-    ¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $PLIST ¤òÊÖ¤¹¡£  */
-MPlist *
-mdebug_dump_plist (MPlist *plist, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  MPlist *pl;
-  int first = 1;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(");
-  MPLIST_DO (pl, plist)
-    {
-      if (first)
-	first = 0;
-      else
-	fprintf (stderr, "\n%s ", prefix);
-      dump_plist_element (pl, indent + 2);
-    }
-  fprintf (stderr, ")");
-  return plist;
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/plist.h b/src/plist.h
deleted file mode 100644
index 10c175c..0000000
--- a/src/plist.h
+++ /dev/null
@@ -1,94 +0,0 @@
-/* plist.h -- header file for the plist module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_PLIST_H_
-#define _M17N_PLIST_H_
-
-struct MPlist
-{
-  /** Header for a managed object.  */
-  M17NObject control;
-
-  /**en Key of the first element of the plist.  If the value is Mnil,
-     this is the tail of the plist.  In that case,  and  is
-     NULL.  If the value is a managing key,  is a managed
-     object.  */
-  MSymbol key;
-
-  /**en Value of the first element of the plist.  */
-  void *val;
-
-  /**en Plist for the next element. */
-  MPlist *next;
-};
-
-/** Macros to access each member of PLIST.  */
-
-#define MPLIST_KEY(plist) ((plist)->key)
-#define MPLIST_VAL(plist) ((plist)->val)
-#define MPLIST_VAL_MANAGED_P(plist) ((plist)->control.flag)
-#define MPLIST_NEXT(plist) ((plist)->next)
-#define MPLIST_TAIL_P(plist) ((plist)->key == Mnil)
-
-#define MPLIST_SYMBOL_P(plist) (MPLIST_KEY (plist) == Msymbol)
-#define MPLIST_STRING_P(plist) (MPLIST_KEY (plist) == Mstring)
-#define MPLIST_MTEXT_P(plist) (MPLIST_KEY (plist) == Mtext)
-#define MPLIST_INTEGER_P(plist) (MPLIST_KEY (plist) == Minteger)
-#define MPLIST_PLIST_P(plist) (MPLIST_KEY (plist) == Mplist)
-
-#define MPLIST_SYMBOL(plist) ((MSymbol) MPLIST_VAL (plist))
-#define MPLIST_STRING(plist) ((char *) MPLIST_VAL (plist))
-#define MPLIST_MTEXT(plist) ((MText *) MPLIST_VAL (plist))
-#define MPLIST_INTEGER(plist) ((int) MPLIST_VAL (plist))
-#define MPLIST_PLIST(plist) ((MPlist *) MPLIST_VAL (plist))
-
-#define MPLIST_FIND(plist, key)						\
-  do {									\
-    while (! MPLIST_TAIL_P (plist) && MPLIST_KEY (plist) != (key))	\
-      (plist) = (plist)->next;						\
-  } while (0)
-
-
-#define MPLIST_DO(elt, plist)	\
-  for ((elt) = (plist); ! MPLIST_TAIL_P (elt); (elt) = MPLIST_NEXT (elt))
-
-#define MPLIST_LENGTH(plist)			\
-  (MPLIST_TAIL_P (plist) ? 0			\
-   : MPLIST_TAIL_P ((plist)->next) ? 1		\
-   : MPLIST_TAIL_P ((plist)->next->next) ? 2	\
-   : mplist_length (plist))
-
-
-extern unsigned char hex_mnemonic[256];
-extern unsigned char escape_mnemonic[256];
-
-extern MPlist *mplist__from_file (FILE *fp);
-
-extern MPlist *mplist__from_plist (MPlist *plist);
-
-extern MPlist *mplist__from_alist (MPlist *plist);
-
-extern MPlist *mplist__from_string (unsigned char *str, int n);
-
-extern int mplist__serialize (MText *mt, MPlist *plist);
-
-#endif  /* _M17N_PLIST_H_ */
diff --git a/src/symbol.c b/src/symbol.c
deleted file mode 100644
index f5b2308..0000000
--- a/src/symbol.c
+++ /dev/null
@@ -1,749 +0,0 @@
-/* symbol.c -- symbol module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nSymbol
-
-    @brief Symbol objects and API for them.
-
-    The m17n library uses objects called @e symbols as unambiguous
-    identifiers.  Symbols are similar to atoms in the X library, but a
-    symbol can have zero or more @e symbol @e properties.  A symbol
-    property consists of a @e key and a @e value, where key is also a
-    symbol and value is anything that can be cast to (void *).  
-    "The symbol property that belongs to the symbol S and
-    whose key is K" may be shortened to "K property of S".
-
-    Symbols are used mainly in the following three ways.
-
-    @li As keys of symbol properties and other properties.
-
-    @li To represent various objects, e.g. charsets, coding systems,
-    fontsets.
-
-    @li As arguments of the m17n library functions to control
-    their behavior.
-
-    There is a special kind of symbol, a @e managing @e key.  The
-    value of a property whose key is a managing key must be a @e
-    managed @e object.  See @ref m17nObject for the detail.
-*/
-/***ja
-    @addtogroup m17nSymbol ¥·¥ó¥Ü¥ë
-
-    @brief ¥·¥ó¥Ü¥ë¥ª¥Ö¥¸¥§¥¯¥È¤È¤½¤ì¤Ë´Ø¤¹¤ë API.
-
-    m17n ¥é¥¤¥Ö¥é¥ê¤Ï°ì°Õ¤Ë·è¤Þ¤ë¼±ÊÌ»Ò¤È¤·¤Æ @e ¥·¥ó¥Ü¥ë ¤È¸Æ¤Ö¥ª¥Ö¥¸¥§
-    ¥¯¥È¤òÍÑ¤¤¤ë¡£¥·¥ó¥Ü¥ë¤Ï X ¥é¥¤¥Ö¥é¥ê¤Î¥¢¥È¥à¤È»÷¤Æ¤¤¤ë¤¬¡¢0 ¸Ä°Ê
-    ¾å¤Î @e ¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£ ¤ò»ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£
-    ¤Ï @e ¥¡¼ ¤È @e ÃÍ ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï¤½¤ì¼«ÂÎ¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢ÃÍ¤Ï 
-    (void *) ·¿¤Ë¥¥ã¥¹¥È¤Ç¤¤ë¤â¤Î¤Ê¤é²¿¤Ç¤â¤è¤¤¡£¡Ö¥·¥ó¥Ü¥ë 
-    S ¤¬»ý¤Ä¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¥¡¼¤¬ K ¤Î¤â¤Î¡×¤ò´ÊÃ±¤Ë¡ÖS ¤Î K 
-    ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£
-
-    ¥·¥ó¥Ü¥ë¤ÎÍÑÅÓ¤Ï¼ç¤Ë°Ê²¼¤Î3ÄÌ¤ê¤Ç¤¢¤ë¡£
-
-    @li ¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤ª¤è¤ÓÂ¾¤Î¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÉ½¤ï¤¹¡£
-
-    @li Ê¸»ú¥»¥Ã¥È¡¢¥³¡¼¥É·Ï¡¢¥Õ¥©¥ó¥È¥»¥Ã¥È¤Ê¤É¤Î³Æ¼ï¥ª¥Ö¥¸¥§¥¯¥È¤òÉ½
-    ¤ï¤¹¡£
-
-    @li m17n ¥é¥¤¥Ö¥é¥ê´Ø¿ô¤Î°ú¿ô¤È¤Ê¤ê¡¢´Ø¿ô¤ÎµóÆ°¤òÀ©¸æ¤¹¤ë¡£
-
-    @e ´ÉÍý¥¡¼ ¤È¸Æ¤Ð¤ì¤ëÆÃÊÌ¤Ê¥·¥ó¥Ü¥ë¤¬¤¢¤ê¡¢´ÉÍý¥¡¼¤ò¥¡¼¤È¤·¤Æ»ý
-    ¤Ä¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Ï @e ´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¾ÜºÙ
-    ¤Ï @ref m17nObject »²¾È¡£
-*/
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "symbol.h"
-#include "character.h"
-#include "mtext.h"
-#include "plist.h"
-
-static int num_symbols;
-
-#define SYMBOL_TABLE_SIZE 1024
-
-static MSymbol symbol_table[SYMBOL_TABLE_SIZE];
-
-static unsigned
-hash_string (const char *str, int len)
-{
-  unsigned hash = 0;
-  const char *end = str + len;
-  unsigned c;
-
-  while (str < end)
-    {
-      c = *((unsigned char *) str++);
-      if (c >= 0140)
-	c -= 40;
-      hash = ((hash << 3) + (hash >> 28) + c);
-    }
-  return hash & (SYMBOL_TABLE_SIZE - 1);
-}
-
-
-static MPlist *
-serialize_symbol (void *val)
-{
-  MPlist *plist = mplist ();
-
-  mplist_add (plist, Msymbol, val);
-  return plist;
-}
-
-static void *
-deserialize_symbol (MPlist *plist)
-{
-  return (MPLIST_SYMBOL_P (plist) ? MPLIST_SYMBOL (plist) : Mnil);
-}
-
-
-/* Internal API */
-
-int
-msymbol__init ()
-{
-  num_symbols = 0;
-  Mnil = (MSymbol) 0;
-  Mt = msymbol ("t");
-  Msymbol = msymbol ("symbol");
-  Mstring = msymbol ("string");
-  return 0;
-}
-
-void
-msymbol__fini ()
-{
-  int i;
-  MSymbol sym, next;
-  int freed_symbols = 0;
-
-  for (i = 0; i < SYMBOL_TABLE_SIZE; i++)
-    for (sym = symbol_table[i]; sym; sym = sym->next)
-      if (! MPLIST_TAIL_P (&sym->plist))
-	{
-	  if (sym->plist.key->managing_key)
-	    M17N_OBJECT_UNREF (sym->plist.val);
-	  M17N_OBJECT_UNREF (sym->plist.next);
-	}
-  for (i = 0; i < SYMBOL_TABLE_SIZE; i++)
-    {
-      for (sym = symbol_table[i]; sym; sym = next)
-	{
-	  next = sym->next;
-	  free (sym->name);
-	  free (sym);
-	  freed_symbols++;
-	}
-      symbol_table[i] = NULL;
-    }
-  if (mdebug__flag & MDEBUG_FINI)
-    fprintf (stderr, "%16s %7d %7d %7d\n", "Symbol",
-	     num_symbols, freed_symbols, num_symbols - freed_symbols);
-  num_symbols = 0;
-}
-
-
-MSymbol
-msymbol__with_len (const char *name, int len)
-{
-  char *p = alloca (len + 1);
-
-  memcpy (p, name, len);
-  p[len] = '\0';
-  return msymbol (p);
-}
-
-
-/** Canonicalize the name of SYM, and return a symbol of the
-    canonicalized name.  Canonicalization is done by this rule:
-	o convert all uppercase characters to lowercase.
-	o remove all non alpha-numeric characters.
-	o change the leading "ibm" to "cp".
-	o change the leading "cp" to "ibm"
-	o remove the leading "iso".
-    For instance:
-	"ISO-8859-2" -> "88592"
-	"euc-JP" -> "eucjp"
-	"IBM851" -> "cp851"
-	"CP1250" -> "ibm1250"
-
-    This function is used to canonicalize charset and coding system
-    names.  */
-
-MSymbol
-msymbol__canonicalize (MSymbol sym)
-{
-  char *name = sym->name;
-  /* Extra 2 bytes are for changing "cpXXX" to "ibmXXX" and
-     terminating '\0'.  */
-  char *canon = (char *) alloca (strlen (name) + 2);
-  char *p = canon;
-
-  for (; *name; name++)
-    if (ISALNUM (*name))
-      *p++ = TOLOWER (*name);
-  *p = '\0';
-  if (p - canon > 3 && canon[0] == 'i')
-    {
-      if (canon[1] == 'b' && canon[2] == 'm' && isdigit (canon[3]))
-	{
-	  /* Change "ibmXXX" to "cpXXX".  */
-	  canon++;
-	  canon[0] = 'c';
-	  canon[1] = 'p';
-	}
-      else if (canon[1] == 's' && canon[2] == 'o')
-	{
-	  /* Change "isoXXX" to "XXX".  */
-	  canon += 3;
-	}
-    }
-  else if (p - canon > 2
-	   && canon[0] == 'c' && canon[1] == 'p' && isdigit (canon[2]))
-    {
-      /* Change "cpXXX" to "ibmXXX".  */
-      for (; p >= canon + 2; p--)
-	p[1] = p[0];
-      canon[0] = 'i';
-      canon[1] = 'b';
-      canon[2] = 'm';
-    }
-
-  return msymbol (canon);
-}
-
-MTextPropSerializeFunc msymbol__serializer = serialize_symbol;
-MTextPropDeserializeFunc msymbol__deserializer = deserialize_symbol;
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/* External API */
-
-/*** @addtogroup m17nSymbol */
-/*** @{ */
-
-/*=*/
-/***en
-    @brief Symbol whose name is "nil".
-
-    The symbol #Mnil has the name "nil" and, in general,
-    represents @e false or @e no.  When coerced to "int", its value is
-    zero.  #Mnil can't have any symbol property.  */
-
-/***ja
-    @brief "nil" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë #Mnil ¤Ï "nil" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢°ìÈÌ¤Ë¡Öµ¶¡×¤Þ
-    ¤¿¤Ï¡ÖÈÝÄê¡×¤ò°ÕÌ£¤¹¤ë¡£"int" ¤ËÊÑ´¹¤µ¤ì¤¿¾ì¹ç¡¢ÃÍ¤Ï 0 ¤Ç¤¢¤ë¡£
-    #Mnil ¼«¿È¤Ï¤¤¤«¤Ê¤ë¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤â»ý¤¿¤Ê¤¤¡£  */
-
-MSymbol Mnil;
-
-/*=*/
-
-/***en
-    @brief Symbol whose name is "t".
-
-    The symbol #Mt has the name "t" and, in general,
-    represents @e true or @e yes.  */
-
-/***ja
-    @brief "t" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë #Mt ¤Ï "t" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢°ìÈÌ¤Ë¡Ö¿¿¡×¤Þ¤¿¤Ï
-    ¡Ö¹ÎÄê¡×¤ò°ÕÌ£¤¹¤ë¡£  */
-
-MSymbol Mt;
-
-/*=*/
-
-/***en
-    @brief Symbol whose name is "string".
-
-    The symbol #Mstring has the name "string" and is used
-    as an argument of the functions mchar_define_property (),
-    etc.  */
-
-/***ja
-    @brief "string" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ¥·¥ó¥Ü¥ë #Mstring ¤Ï "string" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢´Ø¿ô 
-    mchar_define_property () ¤Î°ú¿ôÅù¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£  */
-
-MSymbol Mstring;
-
-/*=*/
-
-/***en
-    @brief Symbol whose name is "symbol".
-
-    The symbol #Msymbol has the name "symbol" and is used
-    as an argument of the functions mchar_define_property (),
-    etc.  */
-
-/***ja
-    @brief "symbol" ¤òÌ¾Á°¤È¤·¤Æ»ý¤Ä¥·¥ó¥Ü¥ë.
-
-    ÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë #Msymbol ¤Ï "symbol" ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Á¡¢
-    ´Ø¿ô mchar_define_property () ¤Î°ú¿ôÅù¤È¤·¤Æ»È¤ï¤ì¤ë¡£  */
-
-MSymbol Msymbol;
-
-/*=*/
-
-/***en
-    @brief Get a symbol.
-
-    The msymbol () function returns the canonical symbol whose name is
-    $NAME.  If there is none, one is created.  The created one is not
-    a managing key.
-
-    Symbols whose name starts by two spaces are reserved by the m17n
-    library, and are used by the library only internally.
-
-    @return
-    This function returns the found or created symbol.
-
-    @errors
-    This function never fails.  */
-
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¤òÆÀ¤ë.
-
-    ´Ø¿ô msymbol () ¤Ï $NAME ¤È¤¤¤¦Ì¾Á°¤ò»ý¤ÄÀµµ¬²½¤µ¤ì¤¿¥·¥ó¥Ü¥ë¤òÊÖ
-    ¤¹¡£¤½¤Î¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤¬Â¸ºß¤·¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢À¸À®¤¹¤ë¡£À¸À®¤µ¤ì¤¿¥·
-    ¥ó¥Ü¥ë¤Ï´ÉÍý¥¡¼¤Ç¤Ï¤Ê¤¤¡£
-
-    ¶õÇòÊ¸»úÆó¤Ä¤Ç»Ï¤Þ¤ë¥·¥ó¥Ü¥ë¤Ï m17n ¥é¥¤¥Ö¥é¥êÍÑ¤Ç¤¢¤ê¡¢ÆâÉôÅª¤Ë¤Î
-    ¤ßÍÑ¤¤¤é¤ì¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¸«¤Ä¤±¤¿¤«À¸À®¤·¤¿¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï·è¤·¤Æ¼ºÇÔ¤·¤Ê¤¤¡£
-
-    @latexonly \IPAlabel{msymbol} @endlatexonly  */
-
-/***
-    @seealso
-    msymbol_as_managing_key (), msymbol_name (), msymbol_exist ()  */
-
-MSymbol
-msymbol (const char *name)
-{
-  MSymbol sym;
-  int len;
-  unsigned hash;
-
-  len = strlen (name);
-  if (len == 3 && name[0] == 'n' && name[1] == 'i' && name[2] == 'l')
-    return Mnil;
-  hash = hash_string (name, len);
-  len++;
-  for (sym = symbol_table[hash]; sym; sym = sym->next)
-    if (len == sym->length
-	&& *name == *(sym->name)
-	&& ! memcmp (name, sym->name, len))
-      return sym;
-
-  num_symbols++;
-  MTABLE_CALLOC (sym, 1, MERROR_SYMBOL);
-  MTABLE_MALLOC (sym->name, len, MERROR_SYMBOL);
-  memcpy (sym->name, name, len);
-  sym->length = len;
-  sym->next = symbol_table[hash];
-  symbol_table[hash] = sym;
-  return sym;
-}
-
-/***en
-    @brief Create a managing key.
-
-    The msymbol_as_managing_key () function returns a newly created
-    managing key whose name is $NAME.  It there already exists a
-    symbol of name $NAME, it returns #Mnil.
-
-    Symbols whose name starts by two spaces are reserved by the m17n
-    library, and are used by the library only internally.
-
-    @return
-    If the operation was successful, this function returns the created
-    symbol.  Otherwise, it returns #Mnil.  */
-/***ja
-    @brief ´ÉÍý¥¡¼¤òºî¤ë.
-
-    ´Ø¿ô msymbol_as_managing_key () ¤ÏÌ¾Á° $NAME ¤ò»ý¤Ä¿·¤·¤¯ºî¤é¤ì¤¿
-    ´ÉÍý¥¡¼¤òÊÖ¤¹¡£¤¹¤Ç¤ËÌ¾Á° $NAME ¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤¬¤¢¤ì¤Ð¡¢#Mnil ¤ò
-    ÊÖ¤¹¡£
-
-    ¶õÇòÊ¸»úÆó¤Ä¤Ç»Ï¤Þ¤ë¥·¥ó¥Ü¥ë¤Ï m17n ¥é¥¤¥Ö¥é¥êÍÑ¤Ç¤¢¤ê¡¢ÆâÉôÅª¤Ë¤Î
-    ¤ßÍÑ¤¤¤é¤ì¤ë¡£
-
-    @return
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢¤³¤Î´Ø¿ô¤ÏÀ¸À®¤·¤¿¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð
-    #Mnil ¤òÊÖ¤¹¡£   */
-
-/***
-    @errors
-    MERROR_SYMBOL
-
-    @seealso
-    msymbol (), msymbol_exist ()  */
-
-MSymbol
-msymbol_as_managing_key (const char *name)
-{
-  MSymbol sym;
-  int len;
-  unsigned hash;
-
-  len = strlen (name);
-  if (len == 3 && name[0] == 'n' && name[1] == 'i' && name[2] == 'l')
-    MERROR (MERROR_SYMBOL, Mnil);
-  hash = hash_string (name, len);
-  len++;
-  for (sym = symbol_table[hash]; sym; sym = sym->next)
-    if (len == sym->length
-	&& *name == *(sym->name)
-	&& ! memcmp (name, sym->name, len))
-      MERROR (MERROR_SYMBOL, Mnil);
-
-  num_symbols++;
-  MTABLE_CALLOC (sym, 1, MERROR_SYMBOL);
-  sym->managing_key = 1;
-  MTABLE_MALLOC (sym->name, len, MERROR_SYMBOL);
-  memcpy (sym->name, name, len);
-  sym->length = len;
-  sym->next = symbol_table[hash];
-  symbol_table[hash] = sym;
-  return sym;
-}
-
-/*=*/
-
-/***en
-    @brief Search for a symbol that has a specified name.
-
-    The msymbol_exist () function searches for the symbol whose name
-    is $NAME.
-
-    @return
-    If such a symbol exists, msymbol_exist () returns that symbol.
-    Otherwise it returns the predefined symbol #Mnil.
-
-    @errors
-    This function never fails.  */
-
-/***ja
-    @brief »ØÄê¤µ¤ì¤¿Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤òÃµ¤¹.
-
-    ´Ø¿ô msymbol_exist () ¤Ï $NAME ¤È¤¤¤¦Ì¾Á°¤ò»ý¤Ä¥·¥ó¥Ü¥ë¤òÃµ¤¹¡£
-
-    @return
-    ¤â¤·¤½¤Î¤è¤¦¤Ê¥·¥ó¥Ü¥ë¤¬Â¸ºß¤¹¤ë¤Ê¤é¤Ð¤½¤Î¥·¥ó¥Ü¥ë¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê
-    ¤±¤ì¤Ð¡¢ÄêµÁºÑ¤ß¥·¥ó¥Ü¥ë #Mnil ¤òÊÖ¤¹¡£  
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï·è¤·¤Æ¼ºÇÔ¤·¤Ê¤¤¡£     */
-
-/***@seealso
-    msymbol_name (), msymbol ()  */
-
-MSymbol
-msymbol_exist (const char *name)
-{
-  MSymbol sym;
-  int len;
-  unsigned hash;
-
-  len = strlen (name);
-  if (len == 3 && name[0] == 'n' && name[1] == 'i' && name[2] == 'l')
-    return Mnil;
-  hash = hash_string (name, len);
-  len++;
-  for (sym = symbol_table[hash]; sym; sym = sym->next)
-    if (len == sym->length
-	&& *name == *(sym->name)
-	&& ! memcmp (name, sym->name, len))
-      return sym;
-  return Mnil;
-}
-
-/*=*/
-
-/***en
-    @brief Get symbol name.
-
-    The msymbol_name () function returns a pointer to a string
-    containing the name of $SYMBOL.
-
-    @errors
-    This function never fails.  */
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¤ÎÌ¾Á°¤òÆÀ¤ë.
-
-    ´Ø¿ô msymbol_name () ¤Ï»ØÄê¤µ¤ì¤¿¥·¥ó¥Ü¥ë $SYMBOL ¤ÎÌ¾Á°¤ò´Þ¤àÊ¸»ú
-    Îó¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£
-
-    @errors
-    ¤³¤Î´Ø¿ô¤Ï·è¤·¤Æ¼ºÇÔ¤·¤Ê¤¤¡£     */
-
-/***@seealso
-    msymbol (), msymbol_exist ()  */
-
-char *
-msymbol_name (MSymbol symbol)
-{
-  return (symbol == Mnil ? "nil" : symbol->name);
-}
-
-/*=*/
-/***en
-    @brief Set the value of a symbol property.
-
-    The msymbol_put () function assigns $VAL to the value of the
-    symbol property that belongs to $SYMBOL and whose key is $KEY.  If
-    the symbol property already has a value, $VAL overwrites the old
-    one.  Both $SYMBOL and $KEY must not be #Mnil.
-
-    If $KEY is a managing key, $VAL must be a managed object.  In this
-    case, the reference count of the old value, if not @c NULL, is
-    decremented by one, and that of $VAL is incremented by one.
-
-    @return
-    If the operation was successful, msymbol_put () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤ËÃÍ¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô msymbol_put () ¤Ï¡¢¥·¥ó¥Ü¥ë $SYMBOL Ãæ¤Ç¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥·
-    ¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤ò $VAL ¤ËÀßÄê¤¹¤ë¡£¤½¤Î¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤Ë¤¹
-    ¤Ç¤ËÃÍ¤¬¤¢¤ì¤Ð¾å½ñ¤¤¹¤ë¡£$SYMBOL, $KEY ¤È¤â #Mnil ¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é
-    ¤Ê¤¤¡£
-
-    $KEY ¤¬´ÉÍý¥¡¼¤Ê¤é¤Ð¡¢$VAL ¤Ï´ÉÍý²¼¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
-    ¤³¤Î¾ì¹ç¡¢¸Å¤¤ÃÍ¤Î»²¾È¿ô¤Ï @c NULL ¤Ç¤Ê¤±¤ì¤Ð 1 ¸º¤é¤µ¤ì¡¢$VAL ¤Î
-    »²¾È¿ô¤Ï 1 Áý¤ä¤µ¤ì¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢msymbol_put () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤ò
-    ÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_SYMBOL
-
-    @seealso
-    msymbol_get () */
-
-int
-msymbol_put (MSymbol symbol, MSymbol key, void *val)
-{
-  if (symbol == Mnil || key == Mnil)
-    MERROR (MERROR_SYMBOL, -1);
-  mplist_put (&symbol->plist, key, val);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Get the value of a symbol property.
-
-    The msymbol_get () function searches for the value of the symbol
-    property that belongs to $SYMBOL and whose key is $KEY.  If
-    $SYMBOL has such a symbol property, its value is returned.
-    Otherwise @c NULL is returned.
-
-    @return
-    If an error is detected, msymbol_get () returns @c NULL and
-    assigns an error code to the external variable #merror_code.  */
-
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô msymbol_get () ¤Ï¡¢¥·¥ó¥Ü¥ë $SYMBOL ¤¬»ý¤Ä¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£
-    ¤Î¤¦¤Á¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤òÃµ¤¹¡£¤â¤·³ºÅö¤¹¤ë¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£
-    ¤¬Â¸ºß¤¹¤ì¤Ð¡¢¤½¤ì¤ÎÃÍ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤¹¡£
-
-    @return 
-    ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¡¢msymbol_get () ¤Ï @c NULL ¤òÊÖ¤·¡¢
-    ³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-/***
-    @errors
-    @c MERROR_SYMBOL
-
-    @seealso
-    msymbol_put () */
-
-void *
-msymbol_get (MSymbol symbol, MSymbol key)
-{
-  MPlist *plist;
-
-  if (symbol == Mnil || key == Mnil)
-    return NULL;
-  plist = &symbol->plist;
-  MPLIST_FIND (plist, key);
-  return (MPLIST_TAIL_P (plist) ? NULL : MPLIST_VAL (plist));
-}
-
-/*** @} */
-
-#include 
-
-/*** @addtogroup m17nDebug */
-/*=*/
-/*** @{ */
-
-/***en
-    @brief Dump a symbol.
-
-    The mdebug_dump_symbol () function prints symbol $SYMBOL in a human
-    readable way to the stderr.  $INDENT specifies how many columns to
-    indent the lines but the first one.
-
-    @return
-    This function returns $SYMBOL.
-
-    @errors
-    MERROR_DEBUG  */
-/***ja
-    @brief ¥·¥ó¥Ü¥ë¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_symbol () ¤Ï¥·¥ó¥Ü¥ë $symbol ¤ò stderr ¤Ë¿Í´Ö¤Ë²Ä
-    ÆÉ¤Ê ·Á¤Ç°õºþ¤¹¤ë¡£ $UNDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï $SYMBOL ¤òÊÖ¤¹¡£ 
-
-    @errors
-    MERROR_DEBUG  */
-
-MSymbol
-mdebug_dump_symbol (MSymbol symbol, int indent)
-{
-  char *prefix;
-  MPlist *plist;
-  char *name;
-
-  if (indent < 0)
-    MERROR (MERROR_DEBUG, Mnil);
-  prefix = (char *) alloca (indent + 1);
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  if (symbol == Mnil)
-    plist = NULL, name = "nil";
-  else
-    plist = &symbol->plist, name = symbol->name;
-
-  fprintf (stderr, "%s%s", prefix, name);
-  while (plist && MPLIST_KEY (plist) != Mnil)
-    {
-      fprintf (stderr, ":%s", MPLIST_KEY (plist)->name);
-      plist = MPLIST_NEXT (plist);
-    }
-  return symbol;
-}
-
-/***en
-    @brief Dump all symbol names.
-
-    The mdebug_dump_all_symbols () function prints names of all
-    symbols to the stderr.  $INDENT specifies how many columns to
-    indent the lines but the first one.
-
-    @return
-    This function returns #Mnil.
-
-    @errors
-    MERROR_DEBUG  */
-/***ja
-    @brief ¤¹¤Ù¤Æ¤Î¥·¥ó¥Ü¥ëÌ¾¤ò¥À¥ó¥×¤¹¤ë.
-
-    ´Ø¿ô mdebug_dump_all_symbols () ¤Ï¡¢¤¹¤Ù¤Æ¤Î¥·¥ó¥Ü¥ë¤ÎÌ¾Á°¤ò 
-    stderr ¤Ë°õºþ¤¹¤ë¡£ $UNDENT ¤Ï£²¹ÔÌÜ°Ê¹ß¤Î¥¤¥ó¥Ç¥ó¥È¤ò»ØÄê¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï #Mnil ¤òÊÖ¤¹¡£ 
-
-    @errors
-    MERROR_DEBUG  */
-
-
-MSymbol
-mdebug_dump_all_symbols (int indent)
-{
-  char *prefix;
-  int i;
-  MSymbol sym;
-
-  if (indent < 0)
-    MERROR (MERROR_DEBUG, Mnil);
-  prefix = (char *) alloca (indent + 1);
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(symbol-list");
-  for (i = 0; i < SYMBOL_TABLE_SIZE; i++)
-    if ((sym = symbol_table[i]))
-      {
-	fprintf (stderr, "\n%s  (%4d", prefix, i);
-	for (; sym; sym = sym->next)
-	  fprintf (stderr, " '%s'", sym->name);
-	fprintf (stderr, ")");
-      }
-  fprintf (stderr, ")");
-  return Mnil;
-}
-
-/*** @} */ 
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/symbol.h b/src/symbol.h
deleted file mode 100644
index 7d98fa6..0000000
--- a/src/symbol.h
+++ /dev/null
@@ -1,56 +0,0 @@
-/* symbol.h -- header file for the symbol module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_SYMBOL_H_
-#define _M17N_SYMBOL_H_
-
-#include "plist.h"
-
-struct MSymbolStruct
-{
-  /** 1 iff a value of property (including text-property) whose key is
-      the symbol is a managed object.  */
-  unsigned managing_key : 1;
-
-  /* Name of the symbol. */
-  char *name;
-
-  /* Byte length of .  */
-  int length;
-
-  /* Plist of the symbol.  */
-  MPlist plist;
-
-  struct MSymbolStruct *next;
-};
-
-#define MSYMBOL_NAME(sym) ((sym)->name)
-#define MSYMBOL_NAMELEN(sym) ((sym)->length - 1)
-
-extern MSymbol msymbol__with_len (const char *name, int len);
-
-extern MSymbol msymbol__canonicalize (MSymbol sym);
-
-extern MTextPropSerializeFunc msymbol__serializer;
-extern MTextPropDeserializeFunc msymbol__deserializer;
-
-#endif /* _M17N_SYMBOL_H_ */
diff --git a/src/textprop.c b/src/textprop.c
deleted file mode 100644
index 40705e5..0000000
--- a/src/textprop.c
+++ /dev/null
@@ -1,3046 +0,0 @@
-/* textprop.c -- text property module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-/***en
-    @addtogroup m17nTextProperty
-    @brief Function to handle text properties.
-
-    Each character in an M-text can have properties called @e text @e
-    properties.  Text properties store various kinds of information
-    attached to parts of an M-text to provide application programs
-    with a unified view of those information.  As rich information can
-    be stored in M-texts in the form of text properties, functions in
-    application programs can be simple.
-
-    A text property consists of a @e key and @e values, where key is a
-    symbol and values are anything that can be cast to (void *)
-    .  Unlike other types of properties, a text property can
-    have multiple values.  "The text property whose key is K" may be
-    shortened to "K property".  */
-
-/***ja
-    @addtogroup m17nTextProperty
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÁàºî¤¹¤ë¤¿¤á¤Î´Ø¿ô.
-
-    M-text Æâ¤Î³ÆÊ¸»ú¤Ï¡¢@e ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ ¤È¸Æ¤Ð¤ì¤ë¥×¥í¥Ñ¥Æ¥£¤ò
-    »ý¤Ä¤³¤È¤¬¤Ç¤¤ë¡£¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¡¢M-text ¤Î³ÆÉô°Ì¤ËÉÕ²Ã¤µ¤ì
-    ¤¿¤µ¤Þ¤¶¤Þ¤Ê¾ðÊó¤òÊÝ»ý¤·¤Æ¤ª¤ê¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤Ï¤½¤ì¤é
-    ¤Î¾ðÊó¤òÅý°ìÅª¤Ë°·¤¦¤³¤È¤¬¤Ç¤¤ë¡£M-text ¼«ÂÎ¤¬ËÉÙ¤Ê¾ðÊó¤ò»ý¤Ä¤¿
-    ¤á¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥àÃæ¤Î´Ø¿ô¤ò´ÊÁÇ²½¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
-
-    ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï @e ¥¡¼ ¤È @e ÃÍ ¤«¤é¤Ê¤ë¡£¥¡¼¤Ï¥·¥ó¥Ü¥ë¤Ç¤¢
-    ¤ê¡¢ÃÍ¤Ï (void *) ·¿¤Ë¥¥ã¥¹¥È¤Ç¤¤ë¤â¤Î¤Ê¤é²¿¤Ç¤â¤è¤¤¡£
-    Â¾¤Î¥¿¥¤¥×¤Î¥×¥í¥Ñ¥Æ¥£¤È°Û¤Ê¤ê¡¢°ì¤Ä¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬Ê£¿ô¤ÎÃÍ
-    ¤ò»ý¤Ä¤³¤È¤¬µö¤µ¤ì¤ë¡£¡Ö¥¡¼¤¬ K ¤Ç¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¡×¤Î¤³¤È
-    ¤ò´ÊÃ±¤Ë¡ÖK ¥×¥í¥Ñ¥Æ¥£¡×¤È¸Æ¤Ö¤³¤È¤¬¤¢¤ë¡£  */
-
-/*=*/
-
-#if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
-/*** @addtogroup m17nInternal
-     @{ */
-
-#include 
-#include 
-#include 
-#include 
-
-#ifdef HAVE_XML2
-#include 
-#include 
-#include 
-#include 
-#endif
-
-#include "m17n.h"
-#include "m17n-misc.h"
-#include "internal.h"
-#include "symbol.h"
-#include "mtext.h"
-#include "textprop.h"
-
-#define TEXT_PROP_DEBUG
-
-#undef xassert
-#ifdef TEXT_PROP_DEBUG
-#define xassert(X)	do {if (!(X)) mdebug_hook ();} while (0)
-#else
-#define xassert(X)	(void) 0
-#endif	/* not FONTSET_DEBUG */
-
-/* Hierarchy of objects (MText, MTextPlist, MInterval, MTextProperty)
-
-MText
-  |    key/a         key/b                key/x
-  +--> MTextPlist -> MTextPlist -> ... -> MTextPlist
-         |             |
-         |             +- tail <-----------------------------------------+
-         |             |                                                 |
-         |             +- head <--> MInterval <--> ... <--> MInterval <--+
-         |
-         +- tail --------------------------------------------------------+
-         |                                                               |
-         +- head --> MInterval <--> MInterval <--> ... <--> MInterval <--+
-                       |               |
-                       +---------------+------------> MTextProperty
-                       +--> MTextProperty
-                       ...
-
-
-Examples:
-
-MTextProperty a/A                    [AAAAAAAAAAAAAAAAAAAAA]
-MTextProperty a/B           [BBBBBBBBBBBBBBBBB] 
-MTextPlist a     |--intvl1--|-intvl2-|-intvl3-|---intvl4---|-intvl5-|
-		
-
-MTextProperty b/A                    [AAAAAAAAAA]
-MTextProperty b/B         [BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB] 
-MTextPlist b     |-intvl1-|--intvl2--|--intvl3--|-intvl4-|--intvl5--|
-
-    M-text       |--------------------------------------------------|
-
-    (intvl == MInterval)
-
-*/
-
-/* The structure MTextProperty is defined in textprop.h.  */
-
-/** MInterval is the structure for an interval that holds text
-    properties of the same key in a specific range of M-text.
-    All intervals are stored in MIntervalPool.  */
-
-typedef struct MInterval MInterval;
-
-struct MInterval
-{
-  /** Stack of pointers to text properties.  If the interval does not
-      have any text properties, this member is NULL or contains random
-      values.  */
-  MTextProperty **stack;
-
-  /** How many values are in .  */
-  int nprops;
-
-  /** Length of .  */
-  int stack_length;
-
-  /** Start and end character positions of the interval.  If  is
-      negative, this interval is not in use.  */
-  int start, end;
-
-  /** Pointers to the previous and next intervals.  If  is 0,
-       is NULL and this interval is pointed by MTextPlist->head.
-      If  is the size of the M-text,  is NULL, and this
-      interval is pointed by MTextPlist->tail.  */
-  MInterval *prev, *next;
-};  
-
-/** MTextPlist is a structure to hold text properties of an M-text by
-   chain.  Each element in the chain is for a specific key.  */
-
-typedef struct MTextPlist MTextPlist;
-
-struct MTextPlist
-{
-  /** Key of the property.  */
-  MSymbol key;
-
-  /** The head and tail intervals.  ->start is always 0.
-      end is always MText->nchars.  */
-  MInterval *head, *tail;
-
-  /** Lastly accessed interval.  */
-  MInterval *cache;
-
-  /* Not yet implemented.  */
-  int (*modification_hook) (MText *mt, MSymbol key, int from, int to);
-
-  /** Pointer to the next property in the chain, or NULL if the
-      property is the last one in the chain.  */
-  MTextPlist *next;
-};
-
-
-/** How many intervals one interval-pool can contain. */
-
-#define INTERVAL_POOL_SIZE 1024
-
-typedef struct MIntervalPool MIntervalPool;
-
-
-/** MIntervalPool is the structure for an interval-pool which store
-    intervals.  Each interval-pool contains INTERVAL_POOL_SIZE number
-    of intervals, and is chained from the root #interval_pool.  */
-
-struct MIntervalPool
-{
-  /** Array of intervals.  */
-  MInterval intervals[INTERVAL_POOL_SIZE];
-
-  /** The smallest index to an unused interval.  */
-  int free_slot;
-
-  /** Pointer to the next interval-pool.  */
-  MIntervalPool *next;
-};
-
-
-/** Root of interval-pools.  */
-
-static MIntervalPool interval_pool_root;
-
-/* For debugging. */
-
-static M17NObjectArray text_property_table;
-
-/** Return a newly allocated interval pool.  */
-
-static MIntervalPool *
-new_interval_pool ()
-{
-  MIntervalPool *pool;
-  int i;
-
-  MSTRUCT_CALLOC (pool, MERROR_TEXTPROP);
-  for (i = 0; i < INTERVAL_POOL_SIZE; i++)
-    pool->intervals[i].end = -1;
-  pool->free_slot = 0;
-  pool->next = NULL;
-  return pool;
-}
-
-
-/** Return a new interval for the region START and END.  */
-
-static MInterval *
-new_interval (int start, int end)
-{
-  MIntervalPool *pool;
-  MInterval *interval;
-
-  for (pool = &interval_pool_root;
-       pool->free_slot >= INTERVAL_POOL_SIZE;
-       pool = pool->next)
-    {
-      if (! pool->next)
-	pool->next = new_interval_pool ();
-    }
-
-  interval = &(pool->intervals[pool->free_slot]);
-  interval->stack = NULL;
-  interval->nprops = 0;
-  interval->stack_length = 0;
-  interval->prev = interval->next = NULL;
-  interval->start = start;
-  interval->end = end;
-
-  pool->free_slot++;
-  while (pool->free_slot < INTERVAL_POOL_SIZE
-	 && pool->intervals[pool->free_slot].end >= 0)
-    pool->free_slot++;
-
-  return interval;
-}
-
-
-/** Free INTERVAL and return INTERVAL->next.  It assumes that INTERVAL
-    has no properties.  */
-
-static MInterval *
-free_interval (MInterval *interval)
-{
-  MIntervalPool *pool = &interval_pool_root;
-  int i;
-
-  xassert (interval->nprops == 0);
-  if (interval->stack)
-    free (interval->stack);
-  while ((interval < pool->intervals
-	  || interval >= pool->intervals + INTERVAL_POOL_SIZE)
-	 && pool->next)
-    pool = pool->next;
-
-  i = interval - pool->intervals;
-  interval->end = -1;
-  if (i < pool->free_slot)
-    pool->free_slot = i;
-  return interval->next;
-}
-
-
-/** If necessary, allocate a stack for INTERVAL so that it can contain
-   NUM number of text properties.  */
-
-#define PREPARE_INTERVAL_STACK(interval, num)				\
-  do {									\
-    if ((num) > (interval)->stack_length)				\
-      {									\
-	MTABLE_REALLOC ((interval)->stack, (num), MERROR_TEXTPROP);	\
-	(interval)->stack_length = (num);				\
-      }									\
-  } while (0)
-
-
-/** Return a copy of INTERVAL.  The copy still shares text properties
-    with INTERVAL.  If MASK_BITS is not zero, don't copy such text
-    properties whose control flags contains bits in MASK_BITS.  */
-
-static MInterval *
-copy_interval (MInterval *interval, int mask_bits)
-{
-  MInterval *new = new_interval (interval->start, interval->end);
-  int nprops = interval->nprops;
-  MTextProperty **props = alloca (sizeof (MTextProperty *) * nprops);
-  int i, n;
-
-  for (i = n = 0; i < nprops; i++)
-    if (! (interval->stack[i]->control.flag & mask_bits))
-      props[n++] = interval->stack[i];
-  new->nprops = n;
-  if (n > 0)
-    {
-      PREPARE_INTERVAL_STACK (new, n);
-      memcpy (new->stack, props, sizeof (MTextProperty *) * n);
-    }	
-
-  return new;
-}
-
-
-/** Free text property OBJECT.  */
-
-static void
-free_text_property (void *object)
-{
-  MTextProperty *prop = (MTextProperty *) object;
-
-  if (prop->key->managing_key)
-    M17N_OBJECT_UNREF (prop->val);
-  M17N_OBJECT_UNREGISTER (text_property_table, prop);
-  free (object);
-}
-
-
-/** Return a newly allocated text property whose key is KEY and value
-    is VAL.  */
-
-static MTextProperty *
-new_text_property (MText *mt, int from, int to, MSymbol key, void *val,
-		   int control_bits)
-{
-  MTextProperty *prop;
-
-  M17N_OBJECT (prop, free_text_property, MERROR_TEXTPROP);
-  prop->control.flag = control_bits;
-  prop->attach_count = 0;
-  prop->mt = mt;
-  prop->start = from;
-  prop->end = to;
-  prop->key = key;
-  prop->val = val;
-  if (key->managing_key)
-    M17N_OBJECT_REF (val);    
-  M17N_OBJECT_REGISTER (text_property_table, prop);
-  return prop;
-}
-
-
-/** Return a newly allocated copy of text property PROP.  */
-
-#define COPY_TEXT_PROPERTY(prop)				\
-  new_text_property ((prop)->mt, (prop)->start, (prop)->end,	\
-		     (prop)->key, (prop)->val, (prop)->control.flag)
-
-
-/** Split text property PROP at position INTERVAL->start, and make all
-    the following intervals contain the copy of PROP instead of PROP.
-    It assumes that PROP starts before INTERVAL.  */
-
-static void
-split_property (MTextProperty *prop, MInterval *interval)
-{
-  int end = prop->end;
-  MTextProperty *copy;
-  int i;
-
-  prop->end = interval->start;
-  copy = COPY_TEXT_PROPERTY (prop);
-  copy->start = interval->start;
-  copy->end = end;
-  /* Check all stacks of the following intervals, and if it contains
-     PROP, change it to the copy of it.  */
-  for (; interval && interval->start < end; interval = interval->next)
-    for (i = 0; i < interval->nprops; i++)
-      if (interval->stack[i] == prop)
-	{
-	  interval->stack[i] = copy;
-	  M17N_OBJECT_REF (copy);
-	  copy->attach_count++;
-	  prop->attach_count--;
-	  M17N_OBJECT_UNREF (prop);
-	}
-  M17N_OBJECT_UNREF (copy);
-}
-
-/** Divide INTERVAL of PLIST at POS if POS is in between the range of
-    INTERVAL.  */
-
-static void
-divide_interval (MTextPlist *plist, MInterval *interval, int pos)
-{
-  MInterval *new;
-  int i;
-
-  if (pos == interval->start || pos == interval->end)
-    return;
-  new = copy_interval (interval, 0);
-  interval->end = new->start = pos;
-  new->prev = interval;
-  new->next = interval->next;
-  interval->next = new;
-  if (new->next)
-    new->next->prev = new;
-  if (plist->tail == interval)
-    plist->tail = new;
-  for (i = 0; i < new->nprops; i++)
-    {
-      new->stack[i]->attach_count++;
-      M17N_OBJECT_REF (new->stack[i]);
-    }
-}
-
-
-/** Check if INTERVAL of PLIST can be merged with INTERVAL->next.  If
-    mergeable, extend INTERVAL to the end of INTEVAL->next, free
-    INTERVAL->next, and return INTERVAL.  Otherwise, return
-    INTERVAL->next.  */
-
-static MInterval *
-maybe_merge_interval (MTextPlist *plist, MInterval *interval)
-{
-  int nprops = interval->nprops;
-  MInterval *next = interval->next;
-  int i, j;
-
-  if (! next || nprops != next->nprops)
-    return next;
-
-  for (i = 0; i < nprops; i++)
-    {
-      MTextProperty *prop = interval->stack[i];
-      MTextProperty *old = next->stack[i];
-
-      if (prop != old
-	  && (prop->val != old->val
-	      || prop->end != old->start
-	      || prop->control.flag & MTEXTPROP_NO_MERGE
-	      || old->control.flag & MTEXTPROP_NO_MERGE))
-	return interval->next;
-    }
-
-
-  for (i = 0; i < nprops; i++)
-    {
-      MTextProperty *prop = interval->stack[i];
-      MTextProperty *old = next->stack[i];
-
-      if (prop != old)
-	{
-	  MInterval *tail;
-
-	  for (tail = next->next; tail && tail->start < old->end;
-	       tail = tail->next)
-	    for (j = 0; j < tail->nprops; j++)
-	      if (tail->stack[j] == old)
-		{
-		  old->attach_count--;
-		  xassert (old->attach_count);
-		  tail->stack[j] = prop;
-		  prop->attach_count++;
-		  M17N_OBJECT_REF (prop);
-		}
-	  xassert (old->attach_count == 1);
-	  old->mt = NULL;
-	  prop->end = old->end;
-	}
-      old->attach_count--;
-      M17N_OBJECT_UNREF (old);
-    }
-
-  interval->end = next->end;
-  interval->next = next->next;
-  if (next->next)
-    next->next->prev = interval;
-  if (plist->tail == next)
-    plist->tail = interval;
-  plist->cache = interval;
-  next->nprops = 0;
-  free_interval (next);
-  return interval;
-}
-
-
-/** Adjust start and end positions of intervals between HEAD and TAIL
-     (both inclusive) by diff.  Adjust also start and end positions
-     of text properties belonging to those intervals.  */
-
-static void
-adjust_intervals (MInterval *head, MInterval *tail, int diff)
-{
-  int i;
-  MTextProperty *prop;
-
-  if (diff < 0)
-    {
-      /* Adjust end poistions of properties starting before HEAD.  */
-      for (i = 0; i < head->nprops; i++)
-	{
-	  prop = head->stack[i];
-	  if (prop->start < head->start)
-	    prop->end += diff;
-	}
-
-      /* Adjust start and end positions of properties starting at
-	 HEAD, and adjust HEAD itself.  */
-      while (1)
-	{
-	  for (i = 0; i < head->nprops; i++)
-	    {
-	      prop = head->stack[i];
-	      if (prop->start == head->start)
-		prop->start += diff, prop->end += diff;
-	    }
-	  head->start += diff;
-	  head->end += diff;
-	  if (head == tail)
-	    break;
-	  head = head->next;
-	}
-    }
-  else
-    {
-      /* Adjust start poistions of properties ending after TAIL.  */
-      for (i = 0; i < tail->nprops; i++)
-	{
-	  prop = tail->stack[i];
-	  if (prop->end > tail->end)
-	    prop->start += diff;
-	}
-
-      /* Adjust start and end positions of properties ending at
-	 TAIL, and adjust TAIL itself.  */
-      while (1)
-	{
-	  for (i = 0; i < tail->nprops; i++)
-	    {
-	      prop = tail->stack[i];
-	      if (prop->end == tail->end)
-		prop->start += diff, prop->end += diff;
-	    }
-	  tail->start += diff;
-	  tail->end += diff;
-	  if (tail == head)
-	    break;
-	  tail = tail->prev;
-	}
-    }
-}
-
-/* Return an interval of PLIST that covers the position POS.  */
-
-static MInterval *
-find_interval (MTextPlist *plist, int pos)
-{
-  MInterval *interval;
-  MInterval *highest;
-
-  if (pos < plist->head->end)
-    return plist->head;
-  if (pos >= plist->tail->start)
-    return (pos < plist->tail->end ? plist->tail : NULL);
-
-  interval = plist->cache;
-
-  if (pos < interval->start)
-    highest = interval->prev, interval = plist->head->next;
-  else if (pos < interval->end)
-    return interval;
-  else
-    highest = plist->tail->prev, interval = interval->next;
-
-  if (pos - interval->start < highest->end - pos)
-    {
-      while (interval->end <= pos)
-	/* Here, we are sure that POS is not included in PLIST->tail,
-	   thus, INTERVAL->next always points a valid next
-	   interval.  */
-	interval = interval->next;
-    }
-  else
-    {
-      while (highest->start > pos)
-	highest = highest->prev;
-      interval = highest;
-    }
-  plist->cache = interval;
-  return interval;
-}
-
-/* Push text property PROP on the stack of INTERVAL.  */
-
-#define PUSH_PROP(interval, prop)		\
-  do {						\
-    int n = (interval)->nprops;			\
-						\
-    PREPARE_INTERVAL_STACK ((interval), n + 1);	\
-    (interval)->stack[n] = (prop);		\
-    (interval)->nprops += 1;			\
-    (prop)->attach_count++;			\
-    M17N_OBJECT_REF (prop);			\
-    if ((prop)->start > (interval)->start)	\
-      (prop)->start = (interval)->start;	\
-    if ((prop)->end < (interval)->end)		\
-      (prop)->end = (interval)->end;		\
-  } while (0)
-
-
-/* Pop the topmost text property of INTERVAL from the stack.  If it
-   ends after INTERVAL->end, split it.  */
-
-#define POP_PROP(interval)				\
-  do {							\
-    MTextProperty *prop;				\
-							\
-    (interval)->nprops--;				\
-    prop = (interval)->stack[(interval)->nprops];	\
-    xassert (prop->control.ref_count > 0);		\
-    xassert (prop->attach_count > 0);			\
-    if (prop->start < (interval)->start)		\
-      {							\
-	if (prop->end > (interval)->end)		\
-	  split_property (prop, (interval)->next);	\
-	prop->end = (interval)->start;			\
-      }							\
-    else if (prop->end > (interval)->end)		\
-      prop->start = (interval)->end;			\
-    prop->attach_count--;				\
-    if (! prop->attach_count)				\
-      prop->mt = NULL;					\
-    M17N_OBJECT_UNREF (prop);				\
-  } while (0)
-
-
-#define REMOVE_PROP(interval, prop)			\
-  do {							\
-    int i;						\
-							\
-    for (i = (interval)->nprops - 1; i >= 0; i--)	\
-      if ((interval)->stack[i] == (prop))		\
-	break;						\
-    if (i < 0)						\
-      break;						\
-    (interval)->nprops--;				\
-    for (; i < (interval)->nprops; i++)			\
-      (interval)->stack[i] = (interval)->stack[i + 1];	\
-    (prop)->attach_count--;				\
-    if (! (prop)->attach_count)				\
-      (prop)->mt = NULL;				\
-    M17N_OBJECT_UNREF (prop);				\
-  } while (0)
-
-
-#ifdef TEXT_PROP_DEBUG
-static int
-check_plist (MTextPlist *plist, int start)
-{
-  MInterval *interval = plist->head;
-  MInterval *cache = plist->cache;
-  int cache_found = 0;
-
-  if (interval->start != start
-      || interval->start >= interval->end)
-    return mdebug_hook ();
-  while (interval)
-    {
-      int i;
-
-      if (interval == interval->next)
-	return mdebug_hook ();
-
-      if (interval == cache)
-	cache_found = 1;
-
-      if (interval->start >= interval->end)
-	return mdebug_hook ();
-      if ((interval->next
-	   ? (interval->end != interval->next->start
-	      || interval != interval->next->prev)
-	   : interval != plist->tail))
-	return mdebug_hook ();
-      for (i = 0; i < interval->nprops; i++)
-	{
-	  if (interval->stack[i]->start > interval->start
-	      || interval->stack[i]->end < interval->end)
-	    return mdebug_hook ();
-
-	  if (! interval->stack[i]->attach_count)
-	    return mdebug_hook ();
-	  if (! interval->stack[i]->mt)
-	    return mdebug_hook ();
-	  if (interval->stack[i]->start == interval->start)
-	    {
-	      MTextProperty *prop = interval->stack[i];
-	      int count = prop->attach_count - 1;
-	      MInterval *interval2;
-
-	      for (interval2 = interval->next;
-		   interval2 && interval2->start < prop->end;
-		   count--, interval2 = interval2->next)
-		if (count == 0)
-		  return mdebug_hook ();
-	    }	      
-
-	  if (interval->stack[i]->end > interval->end)
-	    {
-	      MTextProperty *prop = interval->stack[i];
-	      MInterval *interval2;
-	      int j;
-
-	      for (interval2 = interval->next;
-		   interval2 && interval2->start < prop->end;
-		   interval2 = interval2->next)
-		{
-		  for (j = 0; j < interval2->nprops; j++)
-		    if (interval2->stack[j] == prop)
-		      break;
-		  if (j == interval2->nprops)
-		    return mdebug_hook ();
-		}
-	    }
-	  if (interval->stack[i]->start < interval->start)
-	    {
-	      MTextProperty *prop = interval->stack[i];
-	      MInterval *interval2;
-	      int j;
-
-	      for (interval2 = interval->prev;
-		   interval2 && interval2->end > prop->start;
-		   interval2 = interval2->prev)
-		{
-		  for (j = 0; j < interval2->nprops; j++)
-		    if (interval2->stack[j] == prop)
-		      break;
-		  if (j == interval2->nprops)
-		    return mdebug_hook ();
-		}
-	    }
-	}
-      interval = interval->next;
-    }
-  if (! cache_found)
-    return mdebug_hook ();
-  if (plist->head->prev || plist->tail->next)
-    return mdebug_hook ();    
-  return 0;
-}
-#endif
-
-
-/** Return a copy of plist that contains intervals between FROM and TO
-    of PLIST.  The copy goes to the position POS of M-text MT.  */
-
-static MTextPlist *
-copy_single_property (MTextPlist *plist, int from, int to, MText *mt, int pos)
-{
-  MTextPlist *new;
-  MInterval *interval1, *interval2;
-  MTextProperty *prop;
-  int diff = pos - from;
-  int i, j;
-  int mask_bits = MTEXTPROP_VOLATILE_STRONG | MTEXTPROP_VOLATILE_WEAK;
-
-  MSTRUCT_CALLOC (new, MERROR_TEXTPROP);
-  new->key = plist->key;
-  new->next = NULL;
-
-  interval1 = find_interval (plist, from);
-  new->head = copy_interval (interval1, mask_bits);
-  for (interval1 = interval1->next, interval2 = new->head;
-       interval1 && interval1->start < to;
-       interval1 = interval1->next, interval2 = interval2->next)
-    {
-      interval2->next = copy_interval (interval1, mask_bits);
-      interval2->next->prev = interval2;
-    }
-  new->tail = interval2;
-  new->head->start = from;
-  new->tail->end = to;
-  for (interval1 = new->head; interval1; interval1 = interval1->next)
-    for (i = 0; i < interval1->nprops; i++)
-      if (interval1->start == interval1->stack[i]->start
-	  || interval1 == new->head)
-	{
-	  prop = interval1->stack[i];
-	  interval1->stack[i] = COPY_TEXT_PROPERTY (prop);
-	  interval1->stack[i]->mt = mt;
-	  interval1->stack[i]->attach_count++;
-	  if (interval1->stack[i]->start < from)
-	    interval1->stack[i]->start = from;
-	  if (interval1->stack[i]->end > to)
-	    interval1->stack[i]->end = to;
-	  for (interval2 = interval1->next; interval2;
-	       interval2 = interval2->next)
-	    for (j = 0; j < interval2->nprops; j++)
-	      if (interval2->stack[j] == prop)
-		{
-		  interval2->stack[j] = interval1->stack[i];
-		  interval1->stack[i]->attach_count++;
-		  M17N_OBJECT_REF (interval1->stack[i]);
-		}
-	}
-  adjust_intervals (new->head, new->tail, diff);
-  new->cache = new->head;
-  for (interval1 = new->head; interval1 && interval1->next;
-       interval1 = maybe_merge_interval (new, interval1));
-  xassert (check_plist (new, pos) == 0);
-  if (new->head == new->tail
-      && new->head->nprops == 0)
-    {
-      free_interval (new->head);
-      free (new);
-      new = NULL;
-    }
-
-  return new;
-}
-
-/** Return a newly allocated plist whose key is KEY on M-text MT.  */
-
-static MTextPlist *
-new_plist (MText *mt, MSymbol key)
-{
-  MTextPlist *plist;
-
-  MSTRUCT_MALLOC (plist, MERROR_TEXTPROP);
-  plist->key = key;
-  plist->head = new_interval (0, mtext_nchars (mt));
-  plist->tail = plist->head;
-  plist->cache = plist->head;
-  plist->next = mt->plist;
-  mt->plist = plist;
-  return plist;
-}
-
-/* Free PLIST and return PLIST->next.  */
-
-static MTextPlist *
-free_textplist (MTextPlist *plist)
-{
-  MTextPlist *next = plist->next;
-  MInterval *interval = plist->head;
-
-  while (interval)
-    {
-      while (interval->nprops > 0)
-	POP_PROP (interval);
-      interval = free_interval (interval);
-    }
-  free (plist);
-  return next;
-}
-
-/** Return a plist that contains the property KEY of M-text MT.  If
-    such a plist does not exist and CREATE is nonzero, create a new
-    plist and return it.  */
-
-static MTextPlist *
-get_plist_create (MText *mt, MSymbol key, int create)
-{
-  MTextPlist *plist;
-
-  plist = mt->plist;
-  while (plist && plist->key != key)
-    plist = plist->next;
-
-  /* If MT does not have PROP, make one.  */
-  if (! plist && create)
-    plist = new_plist (mt, key);
-  return plist;
-}
-
-/* Detach PROP.  INTERVAL (if not NULL) contains PROP.  */
-
-static void
-detach_property (MTextPlist *plist, MTextProperty *prop, MInterval *interval)
-{
-  MInterval *head;
-  int to = prop->end;
-
-  xassert (prop->mt);
-  xassert (plist);
-
-  M17N_OBJECT_REF (prop);
-  if (interval)
-    while (interval->start > prop->start)
-      interval = interval->prev;
-  else
-    interval = find_interval (plist, prop->start);
-  head = interval;
-  while (1)
-    {
-      REMOVE_PROP (interval, prop);
-      if (interval->end == to)
-	break;
-      interval = interval->next;
-    }
-  xassert (prop->attach_count == 0 && prop->mt == NULL);
-  M17N_OBJECT_UNREF (prop);
-
-  while (head && head->end <= to)
-    head = maybe_merge_interval (plist, head);
-  xassert (check_plist (plist, 0) == 0);
-}
-
-/* Delete text properties of PLIST between FROM and TO.  MASK_BITS
-   specifies what kind of properties to delete.  If DELETING is
-   nonzero, delete such properties too that are completely included in
-   the region.
-
-   If the resulting PLIST still has any text properties, return 1,
-   else return 0.  */
-
-static int
-delete_properties (MTextPlist *plist, int from, int to,
-		   int mask_bits, int deleting)
-{
-  MInterval *interval;
-  int modified = 0;
-  int modified_from = from;
-  int modified_to = to;
-  int i;
-
- retry:
-  for (interval = find_interval (plist, from);
-       interval && interval->start < to;
-       interval = interval->next)
-    for (i = 0; i < interval->nprops; i++)
-      {
-	MTextProperty *prop = interval->stack[i];
-
-	if (prop->control.flag & mask_bits)
-	  {
-	    if (prop->start < modified_from)
-	      modified_from = prop->start;
-	    if (prop->end > modified_to)
-	      modified_to = prop->end;
-	    detach_property (plist, prop, interval);
-	    modified++;
-	    goto retry;
-	  }
-	else if (deleting && prop->start >= from && prop->end <= to)
-	  {
-	    detach_property (plist, prop, interval);
-	    modified++;
-	    goto retry;
-	  }
-      }
-
-  if (modified)
-    {
-      interval = find_interval (plist, modified_from);
-      while (interval && interval->start < modified_to)
-	interval = maybe_merge_interval (plist, interval);
-    }
-
-  return (plist->head != plist->tail || plist->head->nprops > 0);
-}
-
-static void
-pop_interval_properties (MInterval *interval)
-{
-  while (interval->nprops > 0)
-    POP_PROP (interval);
-}
-
-
-MInterval *
-pop_all_properties (MTextPlist *plist, int from, int to)
-{
-  MInterval *interval;
-
-  /* Be sure to have interval boundary at TO.  */
-  interval = find_interval (plist, to);
-  if (interval && interval->start < to)
-    divide_interval (plist, interval, to);
-
-  /* Be sure to have interval boundary at FROM.  */
-  interval = find_interval (plist, from);
-  if (interval->start < from)
-    {
-      divide_interval (plist, interval, from);
-      interval = interval->next;
-    }
-
-  pop_interval_properties (interval);
-  while (interval->end < to)
-    {
-      MInterval *next = interval->next;
-
-      pop_interval_properties (next);
-      interval->end = next->end;
-      interval->next = next->next;
-      if (interval->next)
-	interval->next->prev = interval;
-      if (next == plist->tail)
-	plist->tail = interval;
-      if (plist->cache == next)
-	plist->cache = interval;
-      free_interval (next);
-    }
-  return interval;
-}
-
-
-/* Delete volatile text properties between FROM and TO.  If KEY is
-   Mnil, we are going to delete text, thus both strongly and weakly
-   volatile properties must be deleted.  Otherwise we are going to
-   modify a text property KEY, thus only strongly volatile properties
-   whose key is not KEY must be deleted.  */
-
-static void
-prepare_to_modify (MText *mt, int from, int to, MSymbol key)
-{
-  MTextPlist *plist = mt->plist, *prev = NULL;
-  int mask_bits = MTEXTPROP_VOLATILE_STRONG;
-  int deleting = (key == Mnil) && (from < to);
-
-  if (key == Mnil)
-    mask_bits |= MTEXTPROP_VOLATILE_WEAK;
-  while (plist)
-    {
-      if (plist->key != key
-	  && ! delete_properties (plist, from, to, mask_bits, deleting))
-	{
-	  if (prev)
-	    plist = prev->next = free_textplist (plist);
-	  else
-	    plist = mt->plist = free_textplist (plist);
-	}
-      else
-	prev = plist, plist = plist->next;
-    }
-}
-
-void
-extract_text_properties (MText *mt, int from, int to, MSymbol key,
-			 MPlist *plist)
-{
-  MPlist *top;
-  MTextPlist *list = get_plist_create (mt, key, 0);
-  MInterval *interval;
-
-  if (! list)
-    return;
-  interval = find_interval (list, from);
-  if (interval->nprops == 0
-      && interval->start <= from && interval->end >= to)
-    return;
-  top = plist;
-  while (interval && interval->start < to)
-    {
-      if (interval->nprops == 0)
-	top = mplist_find_by_key (top, Mnil);
-      else
-	{
-	  MPlist *current = top, *place;
-	  int i;
-
-	  for (i = 0; i < interval->nprops; i++)
-	    {
-	      MTextProperty *prop = interval->stack[i];
-
-	      place = mplist_find_by_value (current, prop);
-	      if (place)
-		current = MPLIST_NEXT (place);
-	      else
-		{
-		  place = mplist_find_by_value (top, prop);
-		  if (place)
-		    {
-		      mplist_pop (place);
-		      if (MPLIST_NEXT (place) == MPLIST_NEXT (current))
-			current = place;
-		    }
-		  mplist_push (current, Mt, prop);
-		  current = MPLIST_NEXT (current);
-		}
-	    }
-	}
-      interval = interval->next;
-    }
-  return;
-}
-
-#define XML_TEMPLATE "\n\
-\n\
-  \n\
-  \n\
-  \n\
-  \n\
-  \n\
-  \n\
-  \n\
- ]>\n\
-\n\
-"
-
-
-/* for debugging... */
-#include 
-
-void
-dump_interval (MInterval *interval, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-  int i;
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(interval %d-%d (%d)", interval->start, interval->end,
-	   interval->nprops);
-  for (i = 0; i < interval->nprops; i++)
-    fprintf (stderr, "\n%s (%d %d/%d %d-%d 0x%x)",
-	     prefix, i,
-	     interval->stack[i]->control.ref_count,
-	     interval->stack[i]->attach_count,
-	     interval->stack[i]->start, interval->stack[i]->end,
-	     (unsigned) interval->stack[i]->val);
-  fprintf (stderr, ")");
-}
-
-void
-dump_textplist (MTextPlist *plist, int indent)
-{
-  char *prefix = (char *) alloca (indent + 1);
-
-  memset (prefix, 32, indent);
-  prefix[indent] = 0;
-
-  fprintf (stderr, "(properties");
-  if (! plist)
-    fprintf (stderr, ")\n");
-  else
-    {
-      fprintf (stderr, "\n");
-      while (plist)
-	{
-	  MInterval *interval = plist->head;
-
-	  fprintf (stderr, "%s (%s", prefix, msymbol_name (plist->key));
-	  while (interval)
-	    {
-	      fprintf (stderr, " (%d %d", interval->start, interval->end);
-	      if (interval->nprops > 0)
-		{
-		  int i;
-
-		  for (i = 0; i < interval->nprops; i++)
-		    fprintf (stderr, " 0x%x", (int) interval->stack[i]->val);
-		}
-	      fprintf (stderr, ")");
-	      interval = interval->next;
-	    }
-	  fprintf (stderr, ")\n");
-	  xassert (check_plist (plist, 0) == 0);
-	  plist = plist->next;
-	}
-    }
-}
-
-
-/* Internal API */
-
-int
-mtext__prop_init ()
-{
-  text_property_table.count = 0;
-  Mtext_prop_serializer = msymbol ("text-prop-serializer");
-  Mtext_prop_deserializer = msymbol ("text-prop-deserializer");
-  return 0;
-}
-
-void
-mtext__prop_fini ()
-{
-  MIntervalPool *pool = interval_pool_root.next;
-
-  while (pool)
-    {
-      MIntervalPool *next = pool->next;
-      free (pool);
-      pool = next;
-    }
-  interval_pool_root.next = NULL;  
-  mdebug__report_object ("Text property", &text_property_table);
-}
-
-
-/** Free all plists.  */
-
-void
-mtext__free_plist (MText *mt){
-
-  MTextPlist *plist = mt->plist;
-
-  while (plist)
-    plist = free_textplist (plist);
-  mt->plist = NULL;
-}
-
-
-/** Extract intervals between FROM and TO of all properties (except
-    for volatile ones) in PLIST, and make a new plist from them for
-    M-text MT.  */
-
-MTextPlist *
-mtext__copy_plist (MTextPlist *plist, int from, int to, MText *mt, int pos)
-{
-  MTextPlist *copy, *this;
-
-  if (from == to)
-    return NULL;
-  for (copy = NULL; plist && ! copy; plist = plist->next)
-    copy = copy_single_property (plist, from, to, mt, pos);
-  if (! plist)
-    return copy;
-  for (; plist; plist = plist->next)
-    if ((this = copy_single_property (plist, from, to, mt, pos)))
-      {
-	this->next = copy;
-	copy = this;
-      }
-
-  return copy;
-}
-
-void
-mtext__adjust_plist_for_delete (MText *mt, int pos, int len)
-{
-  MTextPlist *plist;
-  int to;
-
-  if (len == 0 || pos == mt->nchars)
-    return;
-  if (len == mt->nchars)
-    {
-      mtext__free_plist (mt);
-      return;
-    }      
-
-  to = pos + len;
-  prepare_to_modify (mt, pos, to, Mnil);
-  for (plist = mt->plist; plist; plist = plist->next)
-    {
-      MInterval *interval = pop_all_properties (plist, pos, to);
-      MInterval *prev = interval->prev, *next = interval->next;
-
-      if (prev)
-	prev->next = next;
-      else
-	plist->head = next;
-      if (next)
-	{
-	  adjust_intervals (next, plist->tail, -len);
-	  next->prev = prev;
-	}
-      else
-	plist->tail = prev;
-      if (prev && next)
-	next = maybe_merge_interval (plist, prev);
-      plist->cache = next ? next : prev;
-      free_interval (interval);
-      xassert (check_plist (plist, 0) == 0);
-    }
-}
-
-void
-mtext__adjust_plist_for_insert (MText *mt, int pos, int nchars,
-				MTextPlist *plist)
-{
-  MTextPlist *pl, *pl_last, *pl2, *p;
-  int i;
-  MInterval *interval;
-
-  if (mt->nchars == 0)
-    {
-      mtext__free_plist (mt);
-      mt->plist = plist;
-      return;
-    }
-  if (pos > 0 && pos < mtext_nchars (mt))
-    prepare_to_modify (mt, pos, pos, Mnil);
-
-  for (pl_last = NULL, pl = mt->plist; pl; pl_last = pl, pl = pl->next)
-    {
-      MInterval *interval, *prev, *next, *head, *tail;
-
-      if (pos == 0)
-	prev = NULL, next = pl->head;
-      else if (pos == mtext_nchars (mt))
-	prev = pl->tail, next = NULL;
-      else
-	{
-	  next = find_interval (pl, pos);
-	  if (next->start < pos)
-	    {
-	      divide_interval (pl, next, pos);
-	      next = next->next;
-	    }
-	  for (i = 0; i < next->nprops; i++)
-	    if (next->stack[i]->start < pos)
-	      split_property (next->stack[i], next);
-	  prev = next->prev;
-	}
-
-      xassert (check_plist (pl, 0) == 0);
-      for (p = NULL, pl2 = plist; pl2 && pl->key != pl2->key;
-	   p = pl2, pl2 = p->next);
-      if (pl2)
-	{
-	  xassert (check_plist (pl2, pl2->head->start) == 0);
-	  if (p)
-	    p->next = pl2->next;
-	  else
-	    plist = plist->next;
-
-	  head = pl2->head;
-	  tail = pl2->tail;
-	  free (pl2);
-	}
-      else
-	{
-	  head = tail = new_interval (pos, pos + nchars);
-	}
-      head->prev = prev;
-      tail->next = next;
-      if (prev)
-	prev->next = head;
-      else
-	pl->head = head;
-      if (next)
-	next->prev = tail;
-      else
-	pl->tail = tail;
-      if (next)
-	adjust_intervals (next, pl->tail, nchars);
-
-      xassert (check_plist (pl, 0) == 0);
-      if (prev && prev->nprops > 0)
-	{
-	  for (interval = prev;
-	       interval->next != next && interval->next->nprops == 0;
-	       interval = interval->next)
-	    for (i = 0; i < interval->nprops; i++)
-	      {
-		MTextProperty *prop = interval->stack[i];
-
-		if (prop->control.flag & MTEXTPROP_REAR_STICKY)
-		  PUSH_PROP (interval->next, prop);
-	      }
-	}
-      xassert (check_plist (pl, 0) == 0);
-      if (next && next->nprops > 0)
-	{
-	  for (interval = next;
-	       interval->prev != prev && interval->prev->nprops == 0;
-	       interval = interval->prev)
-	    for (i = 0; i < interval->nprops; i++)
-	      {
-		MTextProperty *prop = interval->stack[i];
-
-		if (prop->control.flag & MTEXTPROP_FRONT_STICKY)
-		  PUSH_PROP (interval->prev, prop);
-	      }
-	}
-
-      interval = prev ? prev : pl->head;
-      pl->cache = interval;
-      while (interval && interval->start <= pos + nchars)
-	interval = maybe_merge_interval (pl, interval);
-      xassert (check_plist (pl, 0) == 0);
-    }
-
-  if (pl_last)
-    pl_last->next = plist;
-  else
-    mt->plist = plist;
-
-  for (; plist; plist = plist->next)
-    {
-      plist->cache = plist->head;
-      if (pos > 0)
-	{
-	  if (plist->head->nprops)
-	    {
-	      interval = new_interval (0, pos);
-	      interval->next = plist->head;
-	      plist->head->prev = interval;
-	      plist->head = interval;
-	    }
-	  else
-	    plist->head->start = 0;
-	}
-      if (pos < mtext_nchars (mt))
-	{
-	  if (plist->tail->nprops)
-	    {
-	      interval = new_interval (pos + nchars,
-				       mtext_nchars (mt) + nchars);
-	      interval->prev = plist->tail;
-	      plist->tail->next = interval;
-	      plist->tail = interval;
-	    }
-	  else
-	    plist->tail->end = mtext_nchars (mt) + nchars;
-	}
-      xassert (check_plist (plist, 0) == 0);
-    }
-}
-
-void
-mtext__adjust_plist_for_change (MText *mt, int from, int to)
-{
-  MTextPlist *plist;
-
-  prepare_to_modify (mt, from, to, Mnil);
-  for (plist = mt->plist; plist; plist = plist->next)
-    {
-      pop_all_properties (plist, from, to);
-      xassert (check_plist (plist, 0) == 0);
-    }
-}
-
-
-/*** @} */
-#endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
-
-
-/** External API */
-
-/*** @addtogroup m17nTextProperty */
-/*** @{  */
-
-/*=*/
-/***en
-    @brief Get the value of the topmost text property.
-
-    The mtext_get_prop () function searches the character at $POS in
-    M-text $MT for the text property whose key is $KEY.
-
-    @return
-    If a text property is found, mtext_get_prop () returns the value
-    of the property.  If the property has multiple values, it returns
-    the topmost one.  If no such property is found, it returns @c NULL
-    without changing the external variable #merror_code.
-
-    If an error is detected, mtext_get_prop () returns @c NULL and
-    assigns an error code to the external variable #merror_code.
-
-    @note If @c NULL is returned without an error, there are two
-    possibilities:
-
-    @li  the character at $POS does not have a property whose key is $KEY, or 
-
-    @li  the character does have such a property and its value is @c NULL.  
-
-    If you need to distinguish these two cases, use the
-    mtext_get_prop_values () function instead.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î°ìÈÖ¾å¤ÎÃÍ¤òÆÀ¤ë.
-
-    ´Ø¿ô mtext_get_prop () ¤Ï¡¢M-text $MT Æâ¤Î°ÌÃÖ $POS ¤Ë¤¢¤ëÊ¸»ú¤Î¥Æ
-    ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤òÃµ¤¹¡£
-
-    @return
-    ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬¤ß¤Ä¤«¤ì¤Ð¡¢mtext_get_prop () ¤Ï¤½¤Î¥×¥í¥Ñ¥Æ¥£
-    ¤ÎÃÍ¤òÊÖ¤¹¡£ÃÍ¤¬Ê£¿ôÂ¸ºß¤¹¤ë¤È¤¤Ï¡¢°ìÈÖ¾å¤ÎÃÍ¤òÊÖ¤¹¡£¸«¤Ä¤«¤é¤Ê¤±
-    ¤ì¤Ð³°ÉôÊÑ¿ô #merror_code ¤òÊÑ¹¹¤¹¤ë¤³¤È¤Ê¤¯ @c NULL ¤òÊÖ¤¹¡£
-
-    ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç mtext_get_prop () ¤Ï @c NULL ¤òÊÖ¤·¡¢³°ÉôÊÑ
-    ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @note ¥¨¥é¡¼¤Ê¤·¤Ç @c NULL ¤¬ÊÖ¤µ¤ì¤¿¾ì¹ç¤Ë¤ÏÆó¤Ä¤Î²ÄÇ½À¤¬¤¢¤ë¡£
-
-    @li $POS ¤Î°ÌÃÖ¤ÎÊ¸»ú¤Ï $KEY ¤ò¥¡¼¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¡£
-
-    @li ¤½¤ÎÊ¸»ú¤Ï¤½¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Á¡¢¤½¤ÎÃÍ¤¬ @c NULL ¤Ç¤¢¤ë¡£
-
-    ¤³¤ÎÆó¤Ä¤ò¶èÊÌ¤¹¤ëÉ¬Í×¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢´Ø¿ô mtext_get_prop_values ()
-    ¤òÂå¤ï¤ê¤Ë»ÈÍÑ¤¹¤ë¤³¤È¡£
-
-     @latexonly \IPAlabel{mtext_get_prop} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_get_prop_values (), mtext_put_prop (), mtext_put_prop_values (),
-    mtext_push_prop (), mtext_pop_prop (), mtext_prop_range ()  */
-
-void *
-mtext_get_prop (MText *mt, int pos, MSymbol key)
-{
-  MTextPlist *plist;
-  MInterval *interval;
-  void *val;
-
-  M_CHECK_POS (mt, pos, NULL);
-
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    return NULL;
-
-  interval = find_interval (plist, pos);
-  val = (interval->nprops
-	 ? interval->stack[interval->nprops - 1]->val : NULL);
-  return val;
-}
-
-/*=*/
-
-/***en
-    @brief Get multiple values of a text property.
-
-    The mtext_get_prop_values () function searches the character at
-    $POS in M-text $MT for the property whose key is $KEY.  If such
-    a property is found, its values are stored in the memory area
-    pointed to by $VALUES.  $NUM limits the maximum number of stored
-    values.
-
-    @return
-    If the operation was successful, mtext_get_prop_values () returns
-    the number of actually stored values.  If the character at $POS
-    does not have a property whose key is $KEY, the return value is
-    0. If an error is detected, mtext_get_prop_values () returns -1 and
-    assigns an error code to the external variable #merror_code.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊ£¿ô¸ÄÆÀ¤ë.
-
-    ´Ø¿ô mtext_get_prop_values () ¤Ï¡¢M-text $MT Æâ¤Ç $POS ¤È¤¤¤¦°ÌÃÖ
-    ¤Ë¤¢¤ëÊ¸»ú¤Î¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¤â¤Î¤òÃµ¤¹¡£¤â¤·¤½
-    ¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤¬¸«¤Ä¤«¤ì¤Ð¡¢¤½¤ì¤¬»ý¤ÄÃÍ (Ê£¿ô²Ä) ¤ò $VALUES 
-    ¤Î»Ø¤¹¥á¥â¥êÎÎ°è¤Ë³ÊÇ¼¤¹¤ë¡£$NUM ¤Ï³ÊÇ¼¤¹¤ëÃÍ¤Î¿ô¤Î¾å¸Â¤Ç¤¢¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_get_prop_values () ¤Ï¼ÂºÝ¤Ë¥á¥â¥ê¤Ë³ÊÇ¼¤µ
-    ¤ì¤¿ÃÍ¤Î¿ô¤òÊÖ¤¹¡£$POS ¤Î°ÌÃÖ¤ÎÊ¸»ú¤¬ $KEY ¤ò¥¡¼¤È¤¹¤ë¥×¥í¥Ñ¥Æ¥£
-    ¤ò»ý¤¿¤Ê¤±¤ì¤Ð 0 ¤òÊÖ¤¹¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ï -1 ¤òÊÖ¤·¡¢³°Éô
-    ÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_get_prop_values} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_get_prop (), mtext_put_prop (), mtext_put_prop_values (),
-    mtext_push_prop (), mtext_pop_prop (), mtext_prop_range ()  */
-
-int
-mtext_get_prop_values (MText *mt, int pos, MSymbol key,
-		       void **values, int num)
-{
-  MTextPlist *plist;
-  MInterval *interval;
-  int nprops;
-  int i;
-  int offset;
-
-  M_CHECK_POS (mt, pos, -1);
-
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    return 0;
-
-  interval = find_interval (plist, pos);
-  /* It is assured that INTERVAL is not NULL.  */
-  nprops = interval->nprops;
-  if (nprops == 0 || num <= 0)
-    return 0;
-  if (nprops == 1 || num == 1)
-    {
-      values[0] = interval->stack[nprops - 1]->val;
-      return 1;
-    }
-
-  if (nprops <= num)
-    num = nprops, offset = 0;
-  else
-    offset = nprops - num;
-  for (i = 0; i < num; i++)
-    values[i] = interval->stack[offset + i]->val;
-  return num;
-}
-
-/*=*/
-
-/***en
-    @brief Get list of text property keys at a position of an M-text.
-
-    The mtext_get_prop_keys () function creates an array whose
-    elements are the keys of text properties found at position $POS in
-    M-text $MT, and sets *$KEYS to the address of the created array.
-    The user is responsible to free the memory allocated for
-    the array.
-
-    @returns
-    If the operation was successful, mtext_get_prop_keys () returns
-    the length of the key list.  Otherwise it returns -1 and assigns
-    an error code to the external variable #merror_code.
-
-*/
-
-/***ja
-    @brief M-text ¤Î»ØÄê¤·¤¿°ÌÃÖ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Î¥ê¥¹¥È¤òÆÀ¤ë.
-
-    ´Ø¿ô mtext_get_prop_keys () ¤Ï¡¢M-text $MT Æâ¤Ç $POS ¤Î°ÌÃÖ¤Ë¤¢¤ë
-    ¤¹¤Ù¤Æ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÍ×ÁÇ¤È¤¹¤ëÇÛÎó¤òºî¤ê¡¢¤½¤ÎÇÛÎó¤Î
-    ¥¢¥É¥ì¥¹¤ò *$KEYS ¤ËÀßÄê¤¹¤ë¡£¤³¤ÎÇÛÎó¤Î¤¿¤á¤Ë³ÎÊÝ¤µ¤ì¤¿¥á¥â¥ê¤ò²ò
-    Êü¤¹¤ë¤Î¤Ï¥æ¡¼¥¶¤ÎÀÕÇ¤¤Ç¤¢¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mtext_get_prop_keys () ¤ÏÆÀ¤é¤ì¤¿¥ê¥¹¥È¤ÎÄ¹¤µ¤òÊÖ
-    ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤ò
-    ÀßÄê¤¹¤ë¡£
-*/
-
-/***
-    @errors
-    @c MERROR_RANGE
-
-    @seealso
-    mtext_get_prop (), mtext_put_prop (), mtext_put_prop_values (),
-    mtext_get_prop_values (), mtext_push_prop (), mtext_pop_prop ()  */
-
-int
-mtext_get_prop_keys (MText *mt, int pos, MSymbol **keys)
-{
-  MTextPlist *plist;
-  int i;
-
-  M_CHECK_POS (mt, pos, -1);
-  for (i = 0, plist = mt->plist; plist; i++, plist = plist->next);
-  if (i == 0)
-    {
-      *keys = NULL;
-      return 0;
-    }
-  MTABLE_MALLOC (*keys, i, MERROR_TEXTPROP);
-  for (i = 0, plist = mt->plist; plist; plist = plist->next)
-    {
-      MInterval *interval = find_interval (plist, pos);
-
-      if (interval->nprops)
-	(*keys)[i++] = plist->key;
-    }
-  return i;
-}
-
-/*=*/
-
-/***en
-    @brief Set a text property.
-
-    The mtext_put_prop () function sets a text property to the
-    characters between $FROM (inclusive) and $TO (exclusive) in M-text
-    $MT.  $KEY and $VAL specify the key and the value of the text
-    property.  With this function,
-
-@verbatim
-                     FROM                   TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------ OLD_VAL -------------------->
-@endverbatim
-
-   becomes
-
-@verbatim
-                     FROM                   TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <-- OLD_VAL-><-------- VAL -------><-- OLD_VAL-->
-@endverbatim
-
-    @return
-    If the operation was successful, mtext_put_prop () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mtext_put_prop () ¤Ï¡¢M-text $MT ¤Î $FROM ¡Ê´Þ¤Þ¤ì¤ë¡Ë¤«¤é 
-    $TO ¡Ê´Þ¤Þ¤ì¤Ê¤¤¡Ë¤ÎÈÏ°Ï¤ÎÊ¸»ú¤Ë¡¢¥¡¼¤¬ $KEY ¤ÇÃÍ¤¬ $VAL ¤Ç¤¢¤ë¤è
-    ¤¦¤Ê¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÀßÄê¤¹¤ë¡£¤³¤Î´Ø¿ô¤Ë¤è¤Ã¤Æ
-
-
-@verbatim
-                         FROM                    TO
-M-text:      |<------------|-------- MT ---------|------------>|
-PROP:         <------------------ OLD_VAL -------------------->
-@endverbatim
-
-¤Ï¼¡¤Î¤è¤¦¤Ë¤Ê¤ë¡£
-
-@verbatim
-                         FROM                    TO
-M-text:       |<------------|-------- MT ---------|------------>|
-PROP:          <-- OLD_VAL-><-------- VAL -------><-- OLD_VAL-->
-@endverbatim
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð mtext_put_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 
-    ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_put_prop} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_put_prop_values (), mtext_get_prop (),
-    mtext_get_prop_values (), mtext_push_prop (),
-    mtext_pop_prop (), mtext_prop_range ()  */
-
-int
-mtext_put_prop (MText *mt, int from, int to, MSymbol key, void *val)
-{
-  MTextPlist *plist;
-  MTextProperty *prop;
-  MInterval *interval;
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  prepare_to_modify (mt, from, to, key);
-  plist = get_plist_create (mt, key, 1);
-  interval = pop_all_properties (plist, from, to);
-  prop = new_text_property (mt, from, to, key, val, 0);
-  PUSH_PROP (interval, prop);
-  M17N_OBJECT_UNREF (prop);
-  if (interval->next)
-    maybe_merge_interval (plist, interval);
-  if (interval->prev)
-    maybe_merge_interval (plist, interval->prev);
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Set multiple text properties with the same key.
-
-    The mtext_put_prop_values () function sets a text property to the
-    characters between $FROM (inclusive) and $TO (exclusive) in M-text
-    $MT.  $KEY and $VALUES specify the key and the values of the text
-    property.  $NUM specifies the number of property values to be set.
-
-    @return
-    If the operation was successful, mtext_put_prop_values () returns
-    0.  Otherwise it returns -1 and assigns an error code to the
-    external variable #merror_code.  */
-
-/***ja
-    @brief Æ±¤¸¥¡¼¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊ£¿ôÀßÄê¤¹¤ë.
-
-    ´Ø¿ô mtext_put_prop_values () ¤Ï¡¢M-Text $MT ¤Î$FROM ¡Ê´Þ¤Þ¤ì¤ë¡Ë
-    ¤«¤é $TO ¡Ê´Þ¤Þ¤ì¤Ê¤¤¡Ë¤ÎÈÏ°Ï¤ÎÊ¸»ú¤Ë¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÀßÄê¤¹
-    ¤ë¡£¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Ï $KEY ¤Ë¤è¤Ã¤Æ¡¢ÃÍ(Ê£¿ô²Ä)¤Ï $VALUES 
-    ¤Ë¤è¤Ã¤Æ»ØÄê¤µ¤ì¤ë¡£$NUM ¤ÏÀßÄê¤µ¤ì¤ëÃÍ¤Î¸Ä¿ô¤Ç¤¢¤ë¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_put_prop_values () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±
-    ¤ì¤Ð -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_put_prop_values} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_put_prop (), mtext_get_prop (), mtext_get_prop_values (),
-    mtext_push_prop (), mtext_pop_prop (), mtext_prop_range ()  */
-
-int
-mtext_put_prop_values (MText *mt, int from, int to,
-		       MSymbol key, void **values, int num)
-{
-  MTextPlist *plist;
-  MInterval *interval;
-  int i;
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  prepare_to_modify (mt, from, to, key);
-  plist = get_plist_create (mt, key, 1);
-  interval = pop_all_properties (plist, from, to);
-  if (num > 0)
-    {
-      PREPARE_INTERVAL_STACK (interval, num);
-      for (i = 0; i < num; i++)
-	{
-	  MTextProperty *prop
-	    = new_text_property (mt, from, to, key, values[i], 0);
-	  PUSH_PROP (interval, prop);
-	  M17N_OBJECT_UNREF (prop);
-	}
-    }
-  if (interval->next)
-    maybe_merge_interval (plist, interval);
-  if (interval->prev)
-    maybe_merge_interval (plist, interval->prev);
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Push a text property.
-
-    The mtext_push_prop () function pushes a text property whose key
-    is $KEY and value is $VAL to the characters between $FROM
-    (inclusive) and $TO (exclusive) in $MT.  With this function,
-
-@verbatim
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------ OLD_VAL -------------------->
-@endverbatim
-
-    becomes
-
-@verbatim 
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------- OLD_VAL ------------------->
-PROP  :               <-------- VAL ------->
-@endverbatim
-
-    @return
-    If the operation was successful, mtext_push_prop () returns 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥×¥Ã¥·¥å¤¹¤ë.
-
-    ´Ø¿ô mtext_push_prop () ¤Ï¡¢¥¡¼¤¬ $KEY ¤ÇÃÍ¤¬ $VAL ¤Ç¤¢¤ë¥Æ¥¥¹¥È
-    ¥×¥í¥Ñ¥Æ¥£¤ò¡¢M-text $MT Ãæ¤Î $FROM ¡Ê´Þ¤Þ¤ì¤ë¡Ë¤«¤é $TO ¡Ê´Þ¤Þ¤ì¤Ê
-    ¤¤¡Ë¤ÎÈÏ°Ï¤ÎÊ¸»ú¤Ë¥×¥Ã¥·¥å¤¹¤ë¡£¤³¤Î´Ø¿ô¤Ë¤è¤Ã¤Æ
-
-@verbatim
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------ OLD_VAL -------------------->
-@endverbatim
- ¤Ï¼¡¤Î¤è¤¦¤Ë¤Ê¤ë¡£
-@verbatim 
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------- OLD_VAL ------------------->
-PROP  :               <-------- VAL ------->
-@endverbatim
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_push_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð 
-    -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_push_prop} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_put_prop (), mtext_put_prop_values (),
-    mtext_get_prop (), mtext_get_prop_values (),
-    mtext_pop_prop (), mtext_prop_range ()  */
-
-int
-mtext_push_prop (MText *mt, int from, int to,
-		 MSymbol key, void *val)
-{
-  MTextPlist *plist;
-  MInterval *head, *tail, *interval;
-  MTextProperty *prop;
-  int check_head, check_tail;
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  prepare_to_modify (mt, from, to, key);
-  plist = get_plist_create (mt, key, 1);
-
-  /* Find an interval that covers the position FROM.  */
-  head = find_interval (plist, from);
-
-  /* If the found interval starts before FROM, divide it at FROM.  */
-  if (head->start < from)
-    {
-      divide_interval (plist, head, from);
-      head = head->next;
-      check_head = 0;
-    }
-  else
-    check_head = 1;
-
-  /* Find an interval that ends at TO.  If TO is not at the end of an
-     interval, make one that ends at TO.  */
-  if (head->end == to)
-    {
-      tail = head;
-      check_tail = 1;
-    }
-  else if (head->end > to)
-    {
-      divide_interval (plist, head, to);
-      tail = head;
-      check_tail = 0;
-    }
-  else
-    {
-      tail = find_interval (plist, to);
-      if (! tail)
-	{
-	  tail = plist->tail;
-	  check_tail = 0;
-	}
-      else if (tail->start == to)
-	{
-	  tail = tail->prev;
-	  check_tail = 1;
-	}
-      else
-	{
-	  divide_interval (plist, tail, to);
-	  check_tail = 0;
-	}
-    }
-
-  prop = new_text_property (mt, from, to, key, val, 0);
-
-  /* Push PROP to the current values of intervals between HEAD and TAIL
-     (both inclusive).  */
-  for (interval = head; ; interval = interval->next)
-    {
-      PUSH_PROP (interval, prop);
-      if (interval == tail)
-	break;
-    }
-
-  M17N_OBJECT_UNREF (prop);
-
-  /* If there is a possibility that TAIL now has the same value as the
-     next one, check it and concatenate them if necessary.  */
-  if (tail->next && check_tail)
-    maybe_merge_interval (plist, tail);
-
-  /* If there is a possibility that HEAD now has the same value as the
-     previous one, check it and concatenate them if necessary.  */
-  if (head->prev && check_head)
-    maybe_merge_interval (plist, head->prev);
-
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Pop a text property.
-
-    The mtext_pop_prop () function removes the topmost text property
-    whose key is $KEY from the characters between $FROM (inclusive)
-    and and $TO (exclusive) in $MT.
-
-    This function does nothing if characters in the region have no
-    such text property. With this function,
-
-@verbatim
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------ OLD_VAL -------------------->
-@endverbatim
-
-    becomes
-
-@verbatim 
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <--OLD_VAL-->|                     |<--OLD_VAL-->|
-@endverbatim
-
-    @return
-    If the operation was successful, mtext_pop_prop () return 0.
-    Otherwise it returns -1 and assigns an error code to the external
-    variable #merror_code.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥Ý¥Ã¥×¤¹¤ë.
-
-    ´Ø¿ô mtext_pop_prop () ¤Ï¡¢¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î
-    ¤¦¤Á°ìÈÖ¾å¤Î¤â¤Î¤ò¡¢M-text $MT ¤Î $FROM ¡Ê´Þ¤Þ¤ì¤ë¡Ë¤«¤é $TO¡Ê´Þ¤Þ
-    ¤ì¤Ê¤¤¡Ë¤ÎÈÏ°Ï¤ÎÊ¸»ú¤«¤é¼è¤ê½ü¤¯¡£
-
-    »ØÄêÈÏ°Ï¤ÎÊ¸»ú¤¬¤½¤Î¤è¤¦¤Ê¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿¤Ê¤¤¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï²¿
-    ¤â¤·¤Ê¤¤¡£¤³¤Î´Ø¿ô¤Ë¤è¤Ã¤Æ¡¢
-
-@verbatim
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <------------------ OLD_VAL -------------------->
-@endverbatim
- ¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ë¡£
-@verbatim 
-                    FROM                    TO
-M-text: |<------------|-------- MT ---------|------------>|
-PROP  :  <--OLD_VAL-->|                     |<--OLD_VAL-->|
-@endverbatim
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_pop_prop () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð -1 
-    ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_pop_prop} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_put_prop (), mtext_put_prop_values (),
-    mtext_get_prop (), mtext_get_prop_values (),
-    mtext_push_prop (), mtext_prop_range ()  */
-
-int
-mtext_pop_prop (MText *mt, int from, int to, MSymbol key)
-{
-  MTextPlist *plist;
-  MInterval *head, *tail;
-  int check_head = 1;
-
-  if (key == Mnil)
-    MERROR (MERROR_TEXTPROP, -1);
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    return 0;
-
-  /* Find an interval that covers the position FROM.  */
-  head = find_interval (plist, from);
-  if (head->end >= to
-      && head->nprops == 0)
-    /* No property to pop.  */
-    return 0;
-
-  prepare_to_modify (mt, from, to, key);
-
-  /* If the found interval starts before FROM and has value(s), divide
-     it at FROM.  */
-  if (head->start < from)
-    {
-      if (head->nprops > 0)
-	{
-	  divide_interval (plist, head, from);
-	  check_head = 0;
-	}
-      else
-	from = head->end;
-      head = head->next;
-    }
-
-  /* Pop the topmost text property from each interval following HEAD.
-     Stop at an interval that ends after TO.  */
-  for (tail = head; tail && tail->end <= to; tail = tail->next)
-    if (tail->nprops > 0)
-      POP_PROP (tail);
-
-  if (tail)
-    {
-      if (tail->start < to)
-	{
-	  if (tail->nprops > 0)
-	    {
-	      divide_interval (plist, tail, to);
-	      POP_PROP (tail);
-	    }
-	  to = tail->start;
-	}
-      else
-	to = tail->end;
-    }
-  else
-    to = plist->tail->start;
-
-  /* If there is a possibility that HEAD now has the same text
-     properties as the previous one, check it and concatenate them if
-     necessary.  */
-  if (head->prev && check_head)
-    head = head->prev;
-  while (head && head->end <= to)
-    head = maybe_merge_interval (plist, head);
-
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/*=*/
-
-/***en
-    @brief Find the range where the value of a text property is the same.
-
-    The mtext_prop_range () function investigates the extent where all
-    characters have the same value for a text property.  It first
-    finds the value of the property specified by $KEY of the character
-    at $POS in M-text $MT.  Then it checks if adjacent characters have
-    the same value for the property $KEY.  The beginning and the end
-    of the found range are stored to the variable pointed to by $FROM
-    and $TO.  The character position stored in $FROM is inclusive but
-    that in $TO is exclusive; this fashion is compatible with the
-    range specification in the mtext_put_prop () function, etc.
-
-    If $DEEPER is not 0, not only the topmost but also all the stacked
-    properties whose key is $KEY are compared.
-
-    If $FROM is @c NULL, the beginning of range is not searched for.  If
-    $TO is @c NULL, the end of range is not searched for.
-
-    @return
-
-    If the operation was successful, mtext_prop_range () returns the
-    number of values the property $KEY has at pos.  Otherwise it
-    returns -1 and assigns an error code to the external variable @c
-    merror_code.  */
-
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬Æ±¤¸ÃÍ¤ò¤È¤ëÈÏ°Ï¤òÄ´¤Ù¤ë.
-
-    ´Ø¿ô mtext_prop_range () ¤Ï¡¢»ØÄê¤·¤¿¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬Æ±¤¸
-    ¤Ç¤¢¤ëÏ¢Â³¤·¤¿Ê¸»ú¤ÎÈÏ°Ï¤òÄ´¤Ù¤ë¡£¤Þ¤º M-text $MT ¤Î $POS ¤Î°ÌÃÖ¤Ë
-    ¤¢¤ëÊ¸»ú¤Î¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á¡¢¥¡¼ $KEY ¤Ç»ØÄê¤µ¤ì¤¿¤â¤Î¤ÎÃÍ¤ò¸«¤Ä¤±
-    ¤ë¡£¤½¤·¤ÆÁ°¸å¤ÎÊ¸»ú¤â $KEY ¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤¬Æ±¤¸¤Ç¤¢¤ë¤«¤É¤¦¤«¤ò
-    Ä´¤Ù¤ë¡£¸«¤Ä¤±¤¿ÈÏ°Ï¤ÎºÇ½é¤ÈºÇ¸å¤ò¡¢¤½¤ì¤¾¤ì $FROM ¤È $TO ¤Ë¥Ý¥¤¥ó
-    ¥È¤µ¤ì¤ëÊÑ¿ô¤ËÊÝÂ¸¤¹¤ë¡£$FROM ¤ËÊÝÂ¸¤µ¤ì¤ëÊ¸»ú¤Î°ÌÃÖ¤Ï¸«¤Ä¤±¤¿ÈÏ°Ï
-    ¤Ë´Þ¤Þ¤ì¤ë¤¬¡¢$TO ¤Ï´Þ¤Þ¤ì¤Ê¤¤¡£¡Ê$TO ¤ÎÁ°¤ÇÆ±¤¸ÃÍ¤ò¤È¤ëÈÏ°Ï¤Ï½ª¤ï
-    ¤ë¡£¡Ë¤³¤ÎÈÏ°Ï»ØÄêË¡¤Ï¡¢´Ø¿ô mtext_put_prop () ¤Ê¤É¤È¶¦ÄÌ¤Ç¤¢¤ë¡£
-
-    $DEEPER ¤¬ 0 ¤Ç¤Ê¤±¤ì¤Ð¡¢$KEY ¤È¤¤¤¦¥¡¼¤ò»ý¤Ä¥×¥í¥Ñ¥Æ¥£¤Î¤¦¤Á°ìÈÖ
-    ¾å¤Î¤â¤Î¤À¤±¤Ç¤Ê¤¯¡¢¥¹¥¿¥Ã¥¯Ãæ¤Î¤¹¤Ù¤Æ¤Î¤â¤Î¤¬Èæ³Ó¤µ¤ì¤ë¡£
-
-    $FROM ¤¬ @c NULL ¤Ê¤é¤Ð¡¢ÈÏ°Ï¤Î»Ï¤Þ¤ê¤ÏÃµº÷¤·¤Ê¤¤¡£$TO ¤¬ @c NULL 
-    ¤Ê¤é¤Ð¡¢ÈÏ°Ï¤Î½ª¤ê¤ÏÃµº÷¤·¤Ê¤¤¡£
-
-    @return
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_prop_range () ¤Ï $KEY ¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤Î¿ô¤ò
-    ÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð-1 ¤òÊÖ¤·¡¢ ³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼
-    ¥É¤òÀßÄê¤¹¤ë¡£
-
-    @latexonly \IPAlabel{mtext_prop_range} @endlatexonly  */
-
-/***
-    @errors
-    @c MERROR_RANGE, @c MERROR_SYMBOL
-
-    @seealso
-    mtext_put_prop (), mtext_put_prop_values (),
-    mtext_get_prop (), mtext_get_prop_values (), 
-    mtext_pop_prop (), mtext_push_prop ()  */
-
-int
-mtext_prop_range (MText *mt, MSymbol key, int pos,
-		  int *from, int *to, int deeper)
-{
-  MTextPlist *plist;
-  MInterval *interval, *temp;
-  void *val;
-  int nprops;
-
-  M_CHECK_POS (mt, pos, -1);
-
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    {
-      if (from) *from = 0;
-      if (to) *to = mtext_nchars (mt);
-      return 0;
-    }
-
-  interval = find_interval (plist, pos);
-  nprops = interval->nprops;
-  if (deeper || ! nprops)
-    {
-      if (from) *from = interval->start;
-      if (to) *to = interval->end;
-      return interval->nprops;
-    }
-
-  val = nprops ? interval->stack[nprops - 1] : NULL;
-
-  if (from)
-    {
-      for (temp = interval;
-	   temp->prev
-	     && (temp->prev->nprops
-		 ? (nprops
-		    && (val == temp->prev->stack[temp->prev->nprops - 1]))
-		 : ! nprops);
-	   temp = temp->prev);
-      *from = temp->start;
-    }
-
-  if (to)
-    {
-      for (temp = interval;
-	   temp->next
-	     && (temp->next->nprops
-		 ? (nprops
-		    && val == temp->next->stack[temp->next->nprops - 1])
-		 : ! nprops);
-	   temp = temp->next);
-      *to = temp->end;
-    }
-
-  return nprops;
-}
-
-/***en
-    @brief Create a text property.
-
-    The mtext_property () function returns a newly allocated text
-    property whose key is $KEY and value is $VAL.  The created text 
-    property is not attached to any M-text, i.e. it is detached.
-
-    $CONTROL_BITS must be 0 or logical OR of @c enum @c
-    MTextPropertyControl.  */
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÀ¸À®¤¹¤ë.
-
-    ´Ø¿ô mtext_property () ¤Ï $KEY ¤ò¥¡¼¡¢$VAL ¤òÃÍ¤È¤¹¤ë¿·¤·¤¯³ä¤êÅö
-    ¤Æ¤é¤ì¤¿¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊÖ¤¹¡£À¸À®¤·¤¿¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¤¤¤«
-    ¤Ê¤ë M-text ¤Ë¤âÉÕ²Ã¤µ¤ì¤Æ¤¤¤Ê¤¤¡¢¤¹¤Ê¤ï¤ÁÊ¬Î¥¤·¤Æ (detached) ¤¤¤ë¡£
-
-    $CONTROL_BITS ¤Ï 0 ¤Ç¤¢¤ë¤« @c enum @c MTextPropertyControl ¤ÎÏÀÍý 
-    OR ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£  */
-
-MTextProperty *
-mtext_property (MSymbol key, void *val, int control_bits)
-{
-  return new_text_property (NULL, 0, 0, key, val, control_bits);
-}
-
-/***en
-    @brief Return the M-text of a text property.
-
-    The mtext_property_mtext () function returns the M-text to which
-    text property $PROP is attached.  If $PROP is currently detached,
-    NULL is returned.  */
-/***ja
-    @brief ¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä M-text ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_property_mtext () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£$PROP ¤¬ÉÕ²Ã¤µ
-    ¤ì¤Æ¤¤¤ë M-text ¤òÊÖ¤¹¡£¤½¤Î»þÅÀ¤Ç $PROP ¤¬Ê¬Î¥¤·¤Æ¤¤¤ì¤Ð NULL ¤ò
-    ÊÖ¤¹¡£  */
-
-MText *
-mtext_property_mtext (MTextProperty *prop)
-{
-  return prop->mt;
-}
-
-/***en
-    @brief Return the key of a text property.
-
-    The mtext_property_key () function returns the key (symbol) of
-    text property $PROP.  */
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_property_key () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤Î¥¡¼¡Ê¥·
-    ¥ó¥Ü¥ë¡Ë¤òÊÖ¤¹¡£  */
-
-MSymbol
-mtext_property_key (MTextProperty *prop)
-{
-  return prop->key;
-}
-
-/***en
-    @brief Return the value of a text property.
-
-    The mtext_property_value () function returns the value of text
-    property $PROP.  */
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_property_value () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤ÎÃÍ¤òÊÖ
-    ¤¹¡£  */
-
-void *
-mtext_property_value (MTextProperty *prop)
-{
-  return prop->val;
-}
-
-/***en
-    @brief Return the start position of a text property.
-
-    The mtext_property_start () function returns the start position of
-    text property $PROP.  The start position is a character position
-    of an M-text where $PROP begins.  If $PROP is detached, it returns
-    -1.  */
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î³«»Ï°ÌÃÖ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_property_start () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤Î³«»Ï°Ì
-    ÃÖ¤òÊÖ¤¹¡£³«»Ï°ÌÃÖ¤È¤Ï M-text Ãæ¤Ç $PROP ¤¬»Ï¤Þ¤ëÊ¸»ú°ÌÃÖ¤Ç¤¢¤ë¡£
-    $PROP ¤¬Ê¬Î¥¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢-1 ¤òÊÖ¤¹¡£  */
-
-int
-mtext_property_start (MTextProperty *prop)
-{
-  return (prop->mt ? prop->start : -1);
-}
-
-/***en
-    @brief Return the end position of a text property.
-
-    The mtext_property_end () function returns the end position of
-    text property $PROP.  The end position is a character position of
-    an M-text where $PROP ends.  If $PROP is detached, it returns
-    -1.  */
-/***ja
-    @brief ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Î½ªÎ»°ÌÃÖ¤òÊÖ¤¹.
-
-    ´Ø¿ô mtext_property_end () ¤Ï¡¢¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤Î½ªÎ»°ÌÃÖ
-    ¤òÊÖ¤¹¡£½ªÎ»°ÌÃÖ¤È¤Ï M-text Ãæ¤Ç $PROP ¤¬½ª¤ëÊ¸»ú°ÌÃÖ¤Ç¤¢¤ë¡£$PROP 
-    ¤¬Ê¬Î¥¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢-1 ¤òÊÖ¤¹¡£  */
-
-int
-mtext_property_end (MTextProperty *prop)
-{
-  return (prop->mt ? prop->end : -1);
-}
-
-/***en
-    @brief Get the topmost text property.
-
-    The mtext_get_property () function searches the character at
-    position $POS in M-text $MT for a text property whose key is $KEY.
-
-    @return
-    If a text property is found, mtext_get_property () returns it.  If
-    there are multiple text properties, it returns the topmost one.
-    If no such property is found, it returns @c NULL without changing
-    the external variable #merror_code.
-
-    If an error is detected, mtext_get_property () returns @c NULL and
-    assigns an error code to the external variable #merror_code.  */
-/***ja
-    @brief °ìÈÖ¾å¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÆÀ¤ë.
-
-    ´Ø¿ô mtext_get_property () ¤Ï M-text $MT ¤Î°ÌÃÖ $POS ¤ÎÊ¸»ú¤¬¥¡¼
-    ¤¬ $KEY ¤Ç¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¤«¤É¤¦¤«¤òÄ´¤Ù¤ë¡£
-
-    @return 
-    ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤¬¸«¤Ä¤«¤ì¤Ð¡¢mtext_get_property () ¤Ï¤½¤ì¤òÊÖ¤¹¡£
-    Ê£¿ô¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢°ìÈÖ¾å¤Î¤â¤Î¤òÊÖ¤¹¡£¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð¡¢³°ÉôÊÑ¿ô 
-    #merror_code ¤òÊÑ¤¨¤ë¤³¤È¤Ê¤¯ @c NULL ¤òÊÖ¤¹¡£
-
-    ¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç mtext_get_property () ¤Ï @c NULL ¤òÊÖ¤·¡¢³°
-    ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£    */
-
-MTextProperty *
-mtext_get_property (MText *mt, int pos, MSymbol key)
-{
-  MTextPlist *plist;
-  MInterval *interval;
-
-  M_CHECK_POS (mt, pos, NULL);
-
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    return NULL;
-
-  interval = find_interval (plist, pos);
-  if (! interval->nprops)
-    return NULL;
-  return interval->stack[interval->nprops - 1];
-}
-
-/***en
-    @brief Get multiple text properties.
-
-    The mtext_get_properties () function searches the character at
-    $POS in M-text $MT for properties whose key is $KEY.  If such
-    properties are found, they are stored in the memory area pointed
-    to by $PROPS.  $NUM limits the maximum number of stored
-    properties.
-
-    @return
-    If the operation was successful, mtext_get_properties () returns
-    the number of actually stored properties.  If the character at
-    $POS does not have a property whose key is $KEY, the return value
-    is 0. If an error is detected, mtext_get_properties () returns -1
-    and assigns an error code to the external variable #merror_code.  */
-/***ja
-    @brief Ê£¿ô¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÆÀ¤ë.
-
-    ´Ø¿ô mtext_get_properties () ¤Ï M-text $MT ¤Î°ÌÃÖ $POS ¤ÎÊ¸»ú¤¬¥¡¼
-    ¤¬ $KEY ¤Ç¤¢¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò»ý¤Ä¤«¤É¤¦¤«¤òÄ´¤Ù¤ë¡£¤½¤Î¤è¤¦¤Ê
-    ¥×¥í¥Ñ¥Æ¥£¤¬¤ß¤Ä¤«¤ì¤Ð¡¢$PROPS ¤¬»Ø¤¹¥á¥â¥êÎÎ°è¤ËÊÝÂ¸¤¹¤ë¡£$NUM ¤Ï
-    ÊÝÂ¸¤µ¤ì¤ë¥×¥í¥Ñ¥Æ¥£¤Î¿ô¤Î¾å¸Â¤Ç¤¢¤ë¡£
-
-    @return 
-    ½èÍý¤¬À®¸ù¤¹¤ì¤Ð¡¢mtext_get_properties () ¤Ï¼ÂºÝ¤ËÊÝÂ¸¤·¤¿¥×¥í¥Ñ¥Æ¥£
-    ¤Î¿ô¤òÊÖ¤¹¡£$POS ¤Î°ÌÃÖ¤ÎÊ¸»ú¤¬¥¡¼¤¬ $KEY ¤Ç¤¢¤ë¥×¥í¥Ñ¥Æ¥£¤ò»ý¤¿
-    ¤Ê¤±¤ì¤Ð¡¢0 ¤¬ÊÖ¤ë¡£¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢
-    mtext_get_properties () ¤Ï -1 ¤òÊÖ¤·¡¢³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼
-    ¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£  */
-
-int
-mtext_get_properties (MText *mt, int pos, MSymbol key,
-		      MTextProperty **props, int num)
-{
-  MTextPlist *plist;
-  MInterval *interval;
-  int nprops;
-  int i;
-  int offset;
-
-  M_CHECK_POS (mt, pos, -1);
-
-  plist = get_plist_create (mt, key, 0);
-  if (! plist)
-    return 0;
-
-  interval = find_interval (plist, pos);
-  /* It is assured that INTERVAL is not NULL.  */
-  nprops = interval->nprops;
-  if (nprops == 0 || num <= 0)
-    return 0;
-  if (nprops == 1 || num == 1)
-    {
-      props[0] = interval->stack[nprops - 1];
-      return 1;
-    }
-
-  if (nprops <= num)
-    num = nprops, offset = 0;
-  else
-    offset = nprops - num;
-  for (i = 0; i < num; i++)
-    props[i] = interval->stack[offset + i];
-  return num;
-}
-
-/***en
-    @brief Attach a text property to an M-text.
-
-    The mtext_attach_property () function attaches text property $PROP
-    to the range between $FROM and $TO in M-text $MT.  If $PROP is
-    already attached to an M-text, it is detached before attached to
-    $MT.
-
-    @return
-    If the operation was successful, mtext_attach_property () returns
-    0.  Otherwise it returns -1 and assigns an error code to the
-    external variable #merror_code.  */
-/***ja
-    @brief  M-text¤Ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÉÕ²Ã¤¹¤ë.
-
-    ´Ø¿ô mtext_attach_property () ¤Ï¡¢M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ
-    ¤Ç¤ÎÎÎ°è¤Ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤òÉÕ²Ã¤¹¤ë¡£¤â¤· $PROP ¤¬´û¤Ë
-    M-text ¤ËÉÕ²Ã¤µ¤ì¤Æ¤¤¤ì¤Ð¡¢$MT ¤ËÉÕ²Ã¤¹¤ëÁ°¤ËÊ¬Î¥¤µ¤ì¤ë¡£
-
-    @return 
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢mtext_attach_property () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±
-    ¤ì¤Ð -1 ¤òÊÖ¤·¤Æ³°ÉôÊÑ¿ô#merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£      */
-
-
-int
-mtext_attach_property (MText *mt, int from, int to, MTextProperty *prop)
-{     
-  MTextPlist *plist;
-  MInterval *interval;
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  M17N_OBJECT_REF (prop);
-  if (prop->mt)
-    mtext_detach_property (prop);
-  prepare_to_modify (mt, from, to, prop->key);
-  plist = get_plist_create (mt, prop->key, 1);
-  xassert (check_plist (plist, 0) == 0);
-  interval = pop_all_properties (plist, from, to);
-  xassert (check_plist (plist, 0) == 0);
-  prop->mt = mt;
-  prop->start = from;
-  prop->end = to;
-  PUSH_PROP (interval, prop);
-  M17N_OBJECT_UNREF (prop);
-  xassert (check_plist (plist, 0) == 0);
-  if (interval->next)
-    maybe_merge_interval (plist, interval);
-  if (interval->prev)
-    maybe_merge_interval (plist, interval->prev);
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/***en
-    @brief Detach a text property from an M-text.
-
-    The mtext_detach_property () function makes text property $PROP
-    detached.
-
-    @return
-    This function always returns 0.  */
-/***ja
-    @brief  M-text ¤«¤é¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤òÊ¬Î¥¤¹¤ë.
-
-    ´Ø¿ô mtext_detach_property () ¤Ï¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤òÊ¬Î¥¤¹¤ë¡£
-
-    @return
-    ¤³¤Î´Ø¿ô¤Ï¾ï¤Ë 0 ¤òÊÖ¤¹¡£  */
-
-int
-mtext_detach_property (MTextProperty *prop)
-{
-  MTextPlist *plist;
-  int start = prop->start, end = prop->end;
-
-  if (! prop->mt)
-    return 0;
-  prepare_to_modify (prop->mt, start, end, prop->key);
-  plist = get_plist_create (prop->mt, prop->key, 0);
-  xassert (plist);
-  detach_property (plist, prop, NULL);
-  return 0;
-}
-
-/***en
-    @brief Push a text property onto an M-text.
-
-    The mtext_push_property () function attaches text property $PROP on
-    M-text $MT by the "push" manner.
-
-    @return
-    If the operation was successful, mtext_push_property () returns
-    0.  Otherwise it returns -1 and assigns an error code to the
-    external variable #merror_code.  */
-/***ja
-    @brief M-text ¤Ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥×¥Ã¥·¥å¤¹¤ë.
-
-    ´Ø¿ô mtext_push_property () ¤Ï¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£ $PROP ¤òM-text
-    $MT ¤Ë¥×¥Ã¥·¥å¤·¤ÆÉÕ²Ã¤¹¤ë¡£
-
-    @return
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢mtext_push_property () ¤Ï 0 ¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±
-    ¤ì¤Ð -1 ¤òÊÖ¤·¤Æ³°ÉôÊÑ¿ô#merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£      */
-
-
-int
-mtext_push_property (MText *mt, int from, int to, MTextProperty *prop)
-{
-  MTextPlist *plist;
-  MInterval *head, *tail, *interval;
-  int check_head, check_tail;
-
-  M_CHECK_RANGE (mt, from, to, -1, 0);
-
-  M17N_OBJECT_REF (prop);
-  if (prop->mt)
-    mtext_detach_property (prop);
-  prepare_to_modify (mt, from, to, prop->key);
-  plist = get_plist_create (mt, prop->key, 1);
-  prop->mt = mt;
-  prop->start = from;
-  prop->end = to;
-
-  /* Find an interval that covers the position FROM.  */
-  head = find_interval (plist, from);
-
-  /* If the found interval starts before FROM, divide it at FROM.  */
-  if (head->start < from)
-    {
-      divide_interval (plist, head, from);
-      head = head->next;
-      check_head = 0;
-    }
-  else
-    check_head = 1;
-
-  /* Find an interval that ends at TO.  If TO is not at the end of an
-     interval, make one that ends at TO.  */
-  if (head->end == to)
-    {
-      tail = head;
-      check_tail = 1;
-    }
-  else if (head->end > to)
-    {
-      divide_interval (plist, head, to);
-      tail = head;
-      check_tail = 0;
-    }
-  else
-    {
-      tail = find_interval (plist, to);
-      if (! tail)
-	{
-	  tail = plist->tail;
-	  check_tail = 0;
-	}
-      else if (tail->start == to)
-	{
-	  tail = tail->prev;
-	  check_tail = 1;
-	}
-      else
-	{
-	  divide_interval (plist, tail, to);
-	  check_tail = 0;
-	}
-    }
-
-  /* Push PROP to the current values of intervals between HEAD and TAIL
-     (both inclusive).  */
-  for (interval = head; ; interval = interval->next)
-    {
-      PUSH_PROP (interval, prop);
-      if (interval == tail)
-	break;
-    }
-
-  /* If there is a possibility that TAIL now has the same value as the
-     next one, check it and concatenate them if necessary.  */
-  if (tail->next && check_tail)
-    maybe_merge_interval (plist, tail);
-
-  /* If there is a possibility that HEAD now has the same value as the
-     previous one, check it and concatenate them if necessary.  */
-  if (head->prev && check_head)
-    maybe_merge_interval (plist, head->prev);
-
-  M17N_OBJECT_UNREF (prop);
-  xassert (check_plist (plist, 0) == 0);
-  return 0;
-}
-
-/***en
-    @brief Symbol for specifying serializer functions.
-
-    To serialize a text property, the user must supply a serializer
-    function for that text property.  This is done by giving a symbol
-    property whose key is #Mtext_prop_serializer and value is a
-    pointer to an appropriate serializer function.
-
-    @seealso Mtext_prop_serializer (), MTextPropSerializeFunc
-  */
-/***ja
-    @brief ¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤ò»ØÄê¤¹¤ë¥·¥ó¥Ü¥ë.
-
-    ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥·¥ê¥¢¥é¥¤¥º¤¹¤ë¤¿¤á¤Ë¡¢¥æ¡¼¥¶¤Ï¥Æ¥¥¹¥È¥×¥í¥Ñ
-    ¥Æ¥£ÍÑ¤Î¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤òÍ¿¤¨¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¶ñÂÎÅª¤Ë¤Ï¡¢
-    #Mtext_prop_serializer ¤ò¥¡¼¤È¤·¡¢Å¬ÀÚ¤Ê¥·¥ê¥¢¥é¥¤¥º´Ø¿ô¤Ø¤Î¥Ý¥¤
-    ¥ó¥¿¤òÃÍ¤È¤¹¤ë¥·¥ó¥Ü¥ë¤ò»ØÄê¤¹¤ë¡£
-
-    @seealso Mtext_prop_serializer (), MTextPropSerializeFunc
-  */
-MSymbol Mtext_prop_serializer;
-
-/***en
-    @brief Symbol for specifying deserializer functions.
-
-    To deserialize a text property, the user must supply a deserializer
-    function for that text property.  This is done by giving a symbol
-    property whose key is #Mtext_prop_deserializer and value is a
-    pointer to an appropriate deserializer function.
-
-    @seealso Mtext_prop_serializer (), MTextPropSerializeFunc
-  */
-/***ja
-    @brief ¥Ç¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤ò»ØÄê¤¹¤ë¥·¥ó¥Ü¥ë.
-
-    ¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥Ç¥·¥ê¥¢¥é¥¤¥º¤¹¤ë¤¿¤á¤Ë¡¢¥æ¡¼¥¶¤Ï¥Æ¥¥¹¥È¥×¥í
-    ¥Ñ¥Æ¥£ÍÑ¤Î¥Ç¥·¥ê¥¢¥é¥¤¥¶´Ø¿ô¤òÍ¿¤¨¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¶ñÂÎÅª¤Ë¤Ï¡¢
-    #Mtext_prop_deserializer ¤ò¥¡¼¤È¤·¡¢Å¬ÀÚ¤Ê¥Ç¥·¥ê¥¢¥é¥¤¥º´Ø¿ô¤Ø¤Î
-    ¥Ý¥¤¥ó¥¿¤òÃÍ¤È¤¹¤ë¥·¥ó¥Ü¥ë¤ò»ØÄê¤¹¤ë¡£
-
-    @seealso Mtext_prop_serializer (), MTextPropSerializeFunc
-  */
-MSymbol Mtext_prop_deserializer;
-
-/***en
-    @brief Serialize text properties in an M-text.
-
-    The mtext_serialize () function serializes the text between $FROM
-    and $TO in M-text $MT.  The serialized result is an M-text in the
-    form of XML.  $PROPERTY_LIST limits the text properties to be
-    serialized.  If a symbol 
-    @li appears as the value of an element in $PROPERTY_LIST (the key must be @c Mt ), and 
-    @li has the symbol    property #Mtext_prop_serializer, 
-    
-    a text property having that symbol as its key is turned into the
-    "property" element in the resulting XML representation.
-
-    The DTD of the generated XML is as follows:
-
-@verbatim
-
-  
-  
-  
-  
-  
-  
-  
- ]>
-@endverbatim
-
-    This function depends on the libxml2 library.  If the m17n library
-    is configured without libxml2, this function always fails.
-
-    @return
-    If the operation was successful, mtext_serialize () returns an
-    M-text in the form of XML.  Otherwise it returns @c NULL and assigns an
-    error code to the external variable #merror_code.
-
-    @seealso
-    mtext_deserialize (), Mtext_prop_serializer  */
-/***ja
-    @brief M-text Ãæ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥·¥ê¥¢¥é¥¤¥º¤¹¤ë.
-
-    ´Ø¿ô mtext_serialize () ¤Ï M-text $MT ¤Î $FROM ¤«¤é $TO ¤Þ¤Ç¤Î¥Æ¥
-    ¥¹¥È¤ò¥·¥ê¥¢¥é¥¤¥º¤¹¤ë¡£¥·¥ê¥¢¥é¥¤¥º¤·¤¿·ë²Ì XML ·Á¼°¤Î M-text ¤Ç
-    ¤¢¤ë¡£ $PROPERTY_LIST ¤Ï¥·¥ê¥¢¥é¥¤¥º¤µ¤ì¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¸ÂÄê
-    ¤¹¤ë¡£¥·¥ó¥Ü¥ë¤¬
-    @li $PROPERTY_LIST (¥¡¼¤Ï @c Mt) ¤ÎÍ×ÁÇ¤ÎÃÍ¤È¤·¤Æ¸½¤ï¤ì¡¢
-    @li ¥·¥ó¥Ü¥ë¥×¥í¥Ñ¥Æ¥£ #Mtext_prop_serializer ¤ò»ý¤Ä¤Ê¤é¤Ð¡¢
-    
-    ¤³¤Î¥·¥ó¥Ü¥ë¤ò¥¡¼¤È¤¹¤ë¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤Ï¡¢À¸À®¤µ¤ì¤ë XML É½¸½
-    Ãæ¤Ç "property" Í×ÁÇ¤ËÊÑ´¹¤µ¤ì¤ë¡£
-
-    À¸À®¤µ¤ì¤ë XML ¤Î DTD ¤Ï°Ê²¼¤ÎÄÌ¤ê:
-
-@verbatim
-
-  
-  
-  
-  
-  
-  
-  
- ]>
-@endverbatim
-
-    ¤³¤Î´Ø¿ô¤Ï libxml2 ¥é¥¤¥Ö¥é¥ê¤Ë°ÍÂ¸¤¹¤ë¡£m17n ¥é¥¤¥Ö¥é¥ê¤¬libxml2 
-    Ìµ¤·¤ËÀßÄê¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤Î´Ø¿ô¤Ï¾ï¤Ë¼ºÇÔ¤¹¤ë¡£
-
-    @return 
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢mtext_serialize () ¤Ï XML ·Á¼°¤Ç M-text ¤òÊÖ¤¹¡£
-    ¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¤Æ³°ÉôÊÑ¿ô#merror_code ¤Ë¥¨¥é¡¼¥³¡¼¥É
-    ¤òÀßÄê¤¹¤ë¡£
-
-    @seealso
-    mtext_deserialize (), Mtext_prop_serializer  */
-
-MText *
-mtext_serialize (MText *mt, int from, int to, MPlist *property_list)
-{
-#ifdef HAVE_XML2
-  MPlist *plist, *pl;
-  MTextPropSerializeFunc func;
-  MText *work;
-  xmlDocPtr doc;
-  xmlNodePtr node;
-  unsigned char *ptr;
-  int n;
-
-  M_CHECK_RANGE (mt, from, to, NULL, NULL);
-  doc = xmlParseMemory (XML_TEMPLATE, strlen (XML_TEMPLATE) + 1);
-  node = xmlDocGetRootElement (doc);
-
-  plist = mplist ();
-  MPLIST_DO (pl, property_list)
-    {
-      MSymbol key = MPLIST_VAL (pl);
-
-      func = (MTextPropSerializeFunc) msymbol_get (key, Mtext_prop_serializer);
-      if (func)
-	extract_text_properties (mt, from, to, key, plist);
-    }
-
-  work = mtext ();
-  MPLIST_DO (pl, plist)
-    {
-      MTextProperty *prop = MPLIST_VAL (pl);
-      char buf[256];
-      MPlist *serialized_plist;
-      xmlNodePtr child;
-
-      func = (MTextPropSerializeFunc) msymbol_get (prop->key,
-						   Mtext_prop_serializer);
-      serialized_plist = (func) (prop->val);
-      if (! serialized_plist)
-	continue;
-      mtext_reset (work);
-      mplist__serialize (work, serialized_plist);
-      child = xmlNewChild (node, NULL, (xmlChar *) "property", NULL);
-      xmlSetProp (child, (xmlChar *) "key",
-		  (xmlChar *) MSYMBOL_NAME (prop->key));
-      xmlSetProp (child, (xmlChar *) "value", (xmlChar *) MTEXT_DATA (work));
-      sprintf (buf, "%d", prop->start - from);
-      xmlSetProp (child, (xmlChar *) "from", (xmlChar *) buf);
-      sprintf (buf, "%d", prop->end - from);
-      xmlSetProp (child, (xmlChar *) "to", (xmlChar *) buf);
-      sprintf (buf, "%d", prop->control.flag);
-      xmlSetProp (child, (xmlChar *) "control", (xmlChar *) buf);
-      xmlAddChild (node, xmlNewText ((xmlChar *) "\n"));
-
-      M17N_OBJECT_UNREF (serialized_plist);
-    }
-  M17N_OBJECT_UNREF (plist);
-
-  if (from > 0 || to < mtext_nchars (mt))
-    mtext_copy (work, 0, mt, from, to);
-  else
-    {
-      M17N_OBJECT_UNREF (work);
-      work = mt;
-    }
-  for (from = 0, to = mtext_nchars (mt); from <= to; from++)
-    {
-      ptr = MTEXT_DATA (mt) + POS_CHAR_TO_BYTE (mt, from);
-      xmlNewTextChild (node, NULL, (xmlChar *) "body", (xmlChar *) ptr);
-      from = mtext_character (mt, from, to, 0);
-      if (from < 0)
-	from = to;
-    }
-
-  xmlDocDumpMemoryEnc (doc, (xmlChar **) &ptr, &n, "UTF-8");
-  if (work == mt)
-    work = mtext ();
-  mtext__cat_data (work, ptr, n, MTEXT_FORMAT_UTF_8);
-  return work;
-#else  /* not HAVE_XML2 */
-  MERROR (MERROR_TEXTPROP, NULL);
-#endif	/* not HAVE_XML2 */
-}
-
-/***en
-    @brief Deserialize text properties in an M-text.
-
-    The mtext_deserialize () function deserializes M-text $MT.  $MT
-    must be an XML having the followng DTD.
-
-@verbatim
-
-  
-  
-  
-  
-  
-  
-  
- ]>
-@endverbatim
-
-    This function depends on the libxml2 library.  If the m17n library
-    is configured without libxml2, this function always fail.
-
-    @return
-    If the operation was successful, mtext_deserialize () returns the
-    resulting M-text.  Otherwise it returns @c NULL and assigns an error
-    code to the external variable #merror_code.
-
-    @seealso
-    mtext_serialize (), Mtext_prop_deserializer  */
-/***ja
-    @brief M-text Ãæ¤Î¥Æ¥¥¹¥È¥×¥í¥Ñ¥Æ¥£¤ò¥Ç¥·¥ê¥¢¥é¥¤¥º¤¹¤ë.
-
-    ´Ø¿ô mtext_deserialize () ¤Ï M-text $MT ¤ò¥Ç¥·¥ê¥¢¥é¥¤¥º¤¹¤ë¡£$MT
-    ¤Ï¼¡¤Î DTD ¤ò»ý¤Ä XML ¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
- 
-@verbatim
-
-  
-  
-  
-  
-  
-  
-  
- ]>
-@endverbatim
-
-    ¤³¤Î´Ø¿ô¤Ï libxml2 ¥é¥¤¥Ö¥é¥ê¤Ë°ÍÂ¸¤¹¤ë¡£m17n ¥é¥¤¥Ö¥é¥ê¤¬libxml2 
-    Ìµ¤·¤ËÀßÄê¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¡¢¤³¤Î´Ø¿ô¤Ï¾ï¤Ë¼ºÇÔ¤¹¤ë¡£
-
-    @return 
-    ½èÍý¤ËÀ®¸ù¤¹¤ì¤Ð¡¢mtext_serialize () ¤ÏÆÀ¤é¤ì¤¿ M-text ¤ò
-    ÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð @c NULL ¤òÊÖ¤·¤Æ³°ÉôÊÑ¿ô #merror_code ¤Ë¥¨¥é¡¼
-    ¥³¡¼¥É¤òÀßÄê¤¹¤ë¡£
-
-    @seealso
-    mtext_serialize (), Mtext_prop_deserializer  */
-
-MText *
-mtext_deserialize (MText *mt)
-{
-#ifdef HAVE_XML2
-  xmlDocPtr doc;
-  xmlNodePtr node;
-  xmlXPathContextPtr context;
-  xmlXPathObjectPtr result;
-  xmlChar *body_str, *key_str, *val_str, *from_str, *to_str, *ctl_str;
-  int i;
-
-  if (mt->format > MTEXT_FORMAT_UTF_8)
-    MERROR (MERROR_TEXTPROP, NULL);
-  doc = xmlParseMemory ((char *) MTEXT_DATA (mt), mtext_nbytes (mt));
-  if (! doc)
-    MERROR (MERROR_TEXTPROP, NULL);
-  node = xmlDocGetRootElement (doc);
-  if (! node)
-    {
-      xmlFreeDoc (doc);
-      MERROR (MERROR_TEXTPROP, NULL);
-    }
-  if (xmlStrcmp (node->name, (xmlChar *) "mtext"))
-    {
-      xmlFreeDoc (doc);
-      MERROR (MERROR_TEXTPROP, NULL);
-    }
-
-  context = xmlXPathNewContext (doc);
-  result = xmlXPathEvalExpression ((xmlChar *) "//body", context);
-  if (xmlXPathNodeSetIsEmpty (result->nodesetval))
-    {
-      xmlFreeDoc (doc);
-      MERROR (MERROR_TEXTPROP, NULL);
-    }
-  for (i = 0, mt = mtext (); i < result->nodesetval->nodeNr; i++)
-    {
-      if (i > 0)
-	mtext_cat_char (mt, 0);
-      node = (xmlNodePtr) result->nodesetval->nodeTab[i];
-      body_str = xmlNodeListGetString (doc, node->xmlChildrenNode, 1);
-      if (body_str)
-	{
-	  mtext__cat_data (mt, body_str, strlen ((char *) body_str),
-			   MTEXT_FORMAT_UTF_8);
-	  xmlFree (body_str);
-	}
-    }
-
-  result = xmlXPathEvalExpression ((xmlChar *) "//property", context);
-  if (! xmlXPathNodeSetIsEmpty (result->nodesetval))
-    for (i = 0; i < result->nodesetval->nodeNr; i++)
-      {
-	MSymbol key;
-	MTextPropDeserializeFunc func;
-	MTextProperty *prop;
-	MPlist *plist;
-	int from, to, control;
-	void *val;
-
-	key_str = xmlGetProp (result->nodesetval->nodeTab[i],
-			      (xmlChar *) "key");
-	val_str = xmlGetProp (result->nodesetval->nodeTab[i],
-			      (xmlChar *) "value");
-	from_str = xmlGetProp (result->nodesetval->nodeTab[i],
-			       (xmlChar *) "from");
-	to_str = xmlGetProp (result->nodesetval->nodeTab[i],
-			     (xmlChar *) "to");
-	ctl_str = xmlGetProp (result->nodesetval->nodeTab[i],
-			      (xmlChar *) "control");
-
-	key = msymbol ((char *) key_str);
-	func = ((MTextPropDeserializeFunc)
-		msymbol_get (key, Mtext_prop_deserializer));
-	if (! func)
-	  continue;
-	plist = mplist__from_string (val_str, strlen ((char *) val_str));
-	if (! plist)
-	  continue;
-	if (sscanf ((char *) from_str, "%d", &from) != 1
-	    || from < 0 || from >= mtext_nchars (mt))
-	  continue;
-	if (sscanf ((char *) to_str, "%d", &to) != 1
-	    || to <= from || to > mtext_nchars (mt))
-	  continue;
-	if (sscanf ((char *) ctl_str, "%d", &control) != 1
-	    || control < 0 || control > MTEXTPROP_CONTROL_MAX)
-	  continue;
-	val = (func) (plist);
-	M17N_OBJECT_UNREF (plist);
-	prop = mtext_property (key, val, control);
-	if (key->managing_key)
-	  M17N_OBJECT_UNREF (val);
-	mtext_push_property (mt, from, to, prop);
-	M17N_OBJECT_UNREF (prop);
-
-	xmlFree (key_str);
-	xmlFree (val_str);
-	xmlFree (from_str);
-	xmlFree (to_str);
-	xmlFree (ctl_str);
-      }
-  xmlXPathFreeContext (context);
-  xmlFreeDoc (doc);
-  return mt;
-#else  /* not HAVE_XML2 */
-  MERROR (MERROR_TEXTPROP, NULL);
-#endif	/* not HAVE_XML2 */
-}
-
-/*** @} */
-
-/*
-  Local Variables:
-  coding: euc-japan
-  End:
-*/
diff --git a/src/textprop.h b/src/textprop.h
deleted file mode 100644
index 30e75b6..0000000
--- a/src/textprop.h
+++ /dev/null
@@ -1,69 +0,0 @@
-/* textproc.h -- header file for the text property module.
-   Copyright (C) 2003, 2004
-     National Institute of Advanced Industrial Science and Technology (AIST)
-     Registration Number H15PRO112
-
-   This file is part of the m17n library.
-
-   The m17n library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public License
-   as published by the Free Software Foundation; either version 2.1 of
-   the License, or (at your option) any later version.
-
-   The m17n library 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
-   Lesser General Public License for more details.
-
-   You should have received a copy of the GNU Lesser General Public
-   License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-   02111-1307, USA.  */
-
-#ifndef _M17N_TEXTPROP_H_
-#define _M17N_TEXTPROP_H_
-
-/** MTextProperty is the structure for a text property object.  While
-    attached, it is stored in the stacks of intervals covering the
-    range from MTextProperty->start to MTextProperty->end.  */
-
-struct MTextProperty
-{
-  /** Common header for a managed object.  */
-  M17NObject control;
-
-  /** Number of intervals the property is attached.  When it becomes
-      zero, the property is detached.  */
-  unsigned attach_count;
-
-  /** M-text to which the property is attaced.  The value NULL means
-      that the property is detached.  */
-  MText *mt;
-
-  /** Region of  if the property is attached to it.  */
-  int start, end;
-
-  /** Key of the property.  */
-  MSymbol key;
-
-  /** Value of the property.  */
-  void *val;
-};
-
-
-extern struct MTextPlist *mtext__copy_plist (struct MTextPlist *, 
-					     int from, int to,
-					     MText *mt, int pos);
-
-extern void mtext__free_plist (MText *mt);
-
-extern void mtext__adjust_plist_for_delete (MText *, int, int);
-
-extern void mtext__adjust_plist_for_insert (MText *, int, int,
-					    struct MTextPlist *);
-
-extern void mtext__adjust_plist_for_change (MText *mt, int from, int to);
-
-extern void dump_textplist (struct MTextPlist *plist, int indent);
-
-#endif /* _M17N_TEXTPROP_H_ */