egg-4.0.6+0.20041122cvs/0000755000764400003210000000000010202640270015440 5ustar ishikawaishikawa00000000000000egg-4.0.6+0.20041122cvs/AUTHORS0000644000764400003210000000154407532251421016524 0ustar ishikawaishikawa00000000000000KAWABATA, Taichi Menudiag improvement. MORIOKA Tomohiko Use of custom. NIIBE Yutaka Design a part of ITS programming. Wrote ITS: its.el its/hira.el Wrote egg.el, menudiag.el, egg-cnv.el, egg-com.el, and egg-mlh.el. Wrote backend conversion engine interface: ANTHY: egg/anthy.el, egg/anthyipc.el, SJ3: egg/sj3.el, egg/sj3rpc.el, WNN: egg/wnn.el, and egg/wnnrpc.el. KATAYAMA Yoshio Design ITS programming. Wrote its/hangul.el, its/erpin.el, its/pinyin.el, its/thai.el, and its/zhuyin.el. Satoru Tomura Designer/Implementor/Maintainer of EGG through V3.0. Discussion/Design around ITS. Suggestion around how to write code in LISP. Hisashi Miyashita Wrote CCL routines in tamago-com.el. egg-4.0.6+0.20041122cvs/COPYING0000644000764400003210000004311007234613570016510 0ustar ishikawaishikawa00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 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. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. 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 Program or any portion of it, thus forming a work based on the Program, 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) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, 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 Program, 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 Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) 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; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, 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 executable. However, as a special exception, the source code 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. If distribution of executable or 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 counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program 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. 5. 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 Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program 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 to this License. 7. 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 Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program 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 Program. 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. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program 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. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies 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 Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, 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 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. 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 PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively 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 program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, 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. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. egg-4.0.6+0.20041122cvs/ChangeLog0000644000764400003210000000445710150162021017217 0ustar ishikawaishikawa000000000000002004-11-22 Kubo Hiroshi In fj.sources, <20041122.035305.59473152.hiroshi-news@netird.ad.jp> * its/jiskana.el: New file. * Makefile.in (ITSSRCS): Add its/jiskana.el. * its-keydef.el (its-define-select-key-list): Add jiskana. 2004-07-02 SANETO Takanori * egg/anthy.el (anthy-new-environment): Use anthyipc-get-greeting only right after starting the anthy-agent process. 2004-05-21 Jun Kuriyama * Makefile.in (install-site): Put the .nosearch file into egg and its subdirectories. 2002-09-09 NIIBE Yutaka Check JIS x0213 support at compile time. * check-jisx0213.el: New file. * configure.in: Check if JIS X0213 is supported or not. * Makefile.in (TOPSRCS): Remove egg-x0213.el. (DEPS): Don't load jisx0213.el. (ITSSRCS): Removed its/aynu.el. (AYNU): New variable. Bug fix. * its/thai.el (its-thai-add-vowel, its-thai-add-tone): Bug fixes. Just call compose-string. 2002-08-26 ISHIKAWA Mutsumi , Takahiro Kambe , Katsumi Yamaoka * Makefile.in (TOPSRCS): Remove egg-util.el. Added egg-x0213.el. (ITSSRCS): Added its/greek.el its/greek.elc: Depends on its-keydef.elc. 2002-08-23 NIIBE Yutaka * AUTHORS (NIIBE Yutaka): Updated. * egg-mlh.el: Update e-mail address. * leim-list.el: Removed eval-when contstuct. Reoved "loading another" feature. (egg-activate-anthy): Added. 2002-08-23 Katsumi Yamaoka , NIIBE Yutaka * egg-util.el: Removed. 2002-08-08 NIIBE Yutaka * Makefile.in (EGGSRCS): Added anthy.el and anthyipc.el (srcdir, top_srcdir, VPATH): Added. (DEPS): Use top_srcdir. Added ANTHY support. * egg/anthy.el egg/anthyipc.el: New files. * leim-list.el: Added anthy. 2002-08-02 SAITO Takuya * its.el (its-previous-line): point-mim -> point-min (typo) 2002-07-20 SAITO Takuya * egg.el (egg-activate-keymap-after-command): set-buffer to killed buffer. 2002-05-08 Katsumi Yamaoka (cf. [mule-ja:08306]) * its.el (its-next-line, its-previous-line): New commands; substitute key definitions for `next-line' and `previous-line' with them in `its-mode-map'. egg-4.0.6+0.20041122cvs/ChangeLog.1997-19980000644000764400003210000024456307532266746020300 0ustar ishikawaishikawa000000000000001998-07-12 NIIBE Yutaka * egg-mlh.el (mlh-space-bar-backward-henkan): Don't test against egg-conversion-backend-alist. * egg/wnn.el (wnn-fini-lang): Reneme from wnn-fini. (wnn-fini): New implementation calling wnn-fini-lang. (wnn-close): Call wnn-fini-lang. (wnn-dictionary-save): Ditto. * egg/canna.el (canna-fini): Delete LANG argument. * egg/sj3.el (sj3-fini): Ditto. * egg-cnv.el (egg-set-conversion-backend): Removed. * egg/sj3.el (sj3-start-conversion): Signal error on non-supported language. * egg/canna.el (canna-start-conversion): Likewise. * egg/wnn.el (wnn-start-conversion): Likewise. * egg-cnv.el (egg-convert-region): Add handler for lang-not-supported. * egg/wnn.el (egg-activate-wnn): load wnnrpc here conditionally. * egg/sj3.el: Likewise. * egg/canna.el: Likewise. * egg.el (egg-support-languages, egg-set-support-languages): Removed. (egg-mode): Don't call egg-set-conversion-backend. * egg/{canna.el, wnn.el, sj3.el}: Don't call egg-support-languages. * egg-cnv.el (egg-set-current-backend): Removed. (egg-initialize-backend, egg-start-conversion, egg-start-reverse-conversion): Don't call egg-set-current-backend. (egg-conversion-backend-null): Rename from *-other-languages. (egg-conversion-backend-alist): Removed. (egg-conversion-backend): Not buffer local. (egg-finalize-backend-alist): Removed. 1998-07-10 NIIBE Yutaka * egg-cnv.el (egg-start-conversion-failure-hook): New Variable. (egg-start-conversion-failure-fallback): New Function. (egg-convert-region): Handle error and hook on failure. * egg/sj3.el (sj3-open): Remove bogus setq-s of sj3-sys-dict-list, sj3-user-dict-list. * egg-mlh.el (mlh-space-bar-backward-henkan): Don't emit message "converting...", as it may flush out error message. * egg/sj3rpc.el ("egg-com", "egg/sj3"): Require on compilation. (sj3rpc-open): Failure when version is different. 1998-07-03 KATAYAMA Yoshio * its/erpin.el, its/hangul.el, its/hankata.el, its/hira.el, its/jeonkak.el, its/kata.el, its/pinyin.el, its/quanjiao.el, its/thai.el, its/zenkaku.el: Updated using new its-*. * its.el (define-its-state-machine): Rewritten. (define-its-compiled-map): Deleted. (define-its-state-machine-append): Rewritten. (its-defrule): Rewritten. (its-defrule*): Rewritten. (its-parent-states): New Variable. (its-goto-state): Remove 2nd optional argument INITIAL-STATE. (its-set-interim-terminal-state): New Function. (its-make-next-state): Remove 2nd argument KEYSEQ. 1998-07-01 NIIBE Yutaka * egg-mlh.el (mlh-hira-to-kata): Removed. Doesn't work any more. (mlh-katakana): Use japanese-katakana-region. * egg-cnv.el (egg-conversion-map): Add again mapping for "/". 1998-06-27 KATAYAMA Yoshio * egg-cnv.el (egg-abort-conversion): Bug fix. 1998-06-27 NIIBE Yutaka * egg/wnn.el (wnn-dictionary-specification-list): Don' specify for gerodic/g-jinmei. Suggested by SAKAI Kiyotaka . 1998-06-26 KATAYAMA Yoshio * its.el (its-cancel-input): Bug fix. 1998-06-26 SAKAI Kiyotaka * egg-cnv.el (egg-conversion-mode, egg-help-command): New functions for help string. * its.el (its-mode, its-mode-help-command): Likewise. 1998-06-26 KATAYAMA Yoshio * egg-cnv.el (egg-convert-region): Bug fix. * egg.el (egg-default-language): Don't use string. * its/hankata.el (its-han-kata-enable-double-n, and others): Variable name change (-han-) to distingush kata.el. * its/erpin.el (its-erpin-tw-enable-quanjioao-alphabet, its-erpin-cn-enable-quanjioao-alphabet): See its-enable-fullwidth-alphabet. * its/kata.el (its-kata-enable-zenkaku-alphabet): Likewise. * its/pinyin.el (its-pinyin-cn-enable-quanjioao-alphabet): Likewise. * its/zenkaku.el (its-zenkaku-down-map): Likewise. * its/erpin.el (its-erpin-tw-map): Bug fix for "\\", "{", "}", and "/". * its/pinyin.el (its-pinyin-cn-map): Ditto. * its/quanjiao.el (its-quanjiao-down-tw-map): Ditto. * its/zhuyin.el (its-zhuyin-cn-enable-quanjioao-alphabet): Ditto. * its/hira.el (its-hira-enable-zenkaku-alphabet): Follow changes of its.el. * its/ascii.el (its-up-map, its-down-map): Ditto. * its/jeonkak.el (its-jeonkak-up-map): Ditto. * its/hira.el (its-hira-enable-zenkaku-alphabet): See its-enable-fullwidth-alphabet. * egg/wnn.el (wnn-save-dictionaries): Rewritten. * egg/canna.el (egg-edep): Required. (canna-support-languages): Use symbol. * egg/sj3.el (egg-edep): Likewise. * egg/wnn.el (egg-edep): Likewise. * egg/wnnrpc.el: Use symbol. * menudiag.el (menudiag-mode-map): Bug fix for boundary conditions. (menudiag-make-selection-list): Bug fix in case of many items. (menudiag-forward-item, menudiag-backward-item, menudiag-goto-line): Change so that it wraps. * its.el (egg-edep): Required. (its-keydef): Require unconditioanlly. (its-mode-map): Don't call its-define-select-keys here. (its-mode-map): Use of symbol as keymap. (its-fence-invisible): New variable. (its-put-cursor): Don't call its-define-select-keys. (its-setup-fence-mode): invisible handling and its-define-select-keys. (its-keyseq-acceptable-p): if (CDR SYL) is number, return NIL. (define-its-state-machine): Introduce its-temporaly-map. (define-its-state-machine-append): Likewise. (its-goto-state): Use symbol as keymap, not directly. (its-set-part-1,its-set-part-2): New function. (its-delete-backward-within-SYL): Conditionalize. * egg.el (egg-edep): Required. (egg-mode): Add remove-hook call. Supply NIL as first argument to egg-set-conversion-backend. make-local-hook for input-method-activate-hook. (egg-set-face): Add optional argument OBJECT. (egg-redraw-face): Bind inhibit-point-motion-hooks. * egg.el (set-buffer-multibyte): Move to egg-edep.el. * egg-mlh.el (mlh-space-bar-backward-henkan): Use assq. * egg-com.el (egg-zhuyin-syllable): compatibility change. (encode-fixed-euc-china-region): Removed maxlen. Really Needed? -- gN. * egg-com.el (egg-pinyin-syllable): Check exact match. (egg-zhuyin-syllable): Likewise. * egg-cnv.el (egg-edep): Required. (its-keydef): Not required. (egg-conversion-map): Don't call its-define-select-keys here. Fset it to use symbol instead of the map directly. (egg-get-bunsetsu-info): Add new optional argument for getting property. (egg-start-conversion-other-languages): set egg-conversion-backend. (egg-set-current-backend): Use assq instead of assoc. (egg-get-conversion-face): Likewise. (egg-conversion-invisible): New variable. (egg-convert-region): Change for open/close delimiter. (egg-chinese-sisheng-regexp): New function. (egg-separate-languages): Use egg-chinese-sisheng-regexp, use symbol for language specifier (instead of string). (egg-charset-to-language): Use symbol for language specifier (instead of string). (egg-next-chinese-lang): Likewise. (egg-next-part-lang): Change the arguments. (egg-make-bunsetsu): New function changing egg-insert-bunsetsu. (egg-separate-characters): compatibility changes. (egg-conversion-wrap-select): New Variable. (egg-next-candidate): Can wrap around. (egg-decide-before-point): Rewritten. (egg-abort-conversion): Back to previous one. (egg-select-candidate): Use egg-make-bunsetsu. * egg-edep.el: New File for handling differences between Emacs version. * its/thai.el: New File. * its/hangul.el: Updated. 1998-06-26 NIIBE Yutaka * Makefile (install): Don't touch .emacs and leim-list.el directly. User should do it by her hand. Reported by SAKAI Kiyotaka 1998-06-25 NIIBE Yutaka * egg/canna.el (canna-dictionary-specification): "user" instead of ("user"). Should chnage canna-filename later. Reported by Akio Morita . 1998-04-02 NIIBE Yutaka * egg-com.el (comm-unpack-u16-string): Call string-as-multibyte. (comm-unpack-mb-string): Likewise. * egg.el (set-buffer-multibyte): Function for Emacs 20.2. * egg/wnn.el (wnn-open): Call set-buffer-multibyte. * egg/sj3.el (sj3-open): Ditto. * egg/canna.el (canna-open): Ditto. 1998-04-02 KATAYAMA Yoshio Implement hilight. * egg.el (egg-mark-list, egg-suppress-marking): New Variables. (egg-set-face, egg-mark-modification, egg-redraw-face): New Functions. * its.el (its-buffer-ins/del-SYL): Call egg-set-face. (its-setup-yanked-portion): Likewise. * egg-cnv.el (egg-insert-bunsetsu): Call egg-set-face. * egg.el (egg-mode): set default backend. * egg-mlh.el (mlh-space-bar-backward-henkan): activate input method. 1998-04-02 NIIBE Yutaka * egg-cnv.el (egg-decide-bunsetsu): Undo changes of 03-16. (egg-abort-conversion): Call egg-end-conversion. (egg-decide-before-point): Call egg-end-conversion widh ABORT=NIL. 1998-03-16 NIIBE Yutaka CANNA Support. * egg/canna.el, egg/cannarpc.el: New file. * Makefile (SRCS): Added. * egg-cnv.el (egg-end-conversion): Add argument ABORT. * egg/wnn.el (wnn-end-conversion): Follow the change of EGG-END-CONVERSION. * egg/sj3.el (sj3-end-conversion): Likewise. 1998-03-15 NIIBE Yutaka * Makefile: Add dependencies for its-keydef.elc. * egg/sj3rpc.el (sj3-open): Don't support list of hosts. * its.el (its-exit-mode, its-kick-convert-region): Bug fix. Call its-input-end and its-put-cursor. (its-exit-mode-off-input-method): Removed. 1998-03-14 KATAYAMA Yoshio * docomp.el (its-keydef): Undo the changes of 03-09. its.el is fixed. * egg-cnv.el (egg-current-language): New valiable. (egg-bunsetsu-info): Separate bunsetsu-info and lunguage. (egg-conversion-backend-other-languages egg-init-other-languages egg-start-conversion-other-languages egg-get-bunsetsu-converted-other-languages egg-get-bunsetsu-source-other-languages egg-list-candidates-other-languages egg-get-number-of-candidates-other-languages egg-get-current-candidate-number-other-languages egg-get-all-candidates-other-languages egg-decide-candidate-other-languages egg-change-bunsetsu-length-other-languages egg-end-conversion-other-languages egg-fini-other-languages): New valiable and functions for handling unknown language. (egg-set-current-backend): Set egg-conversion-backend-other-languages when backend for specified language isn't found. (egg-start-reverse-conversion): New function for reverse conversion. (egg-set-conversion-backend-internal): Removed. (egg-set-conversion-backend): Args are changed. (egg-get-conversion-face): New function for different face for every language. (egg-convert-region): Make converting text read-only. Handle unknown laguages and backend opening error. Rename its-lang to egg-lang. (egg-separate-languages): Argument use-context is added to utilize context when called by its-yank. Rename its-lang to egg-lang Improve speed. (egg-charset-to-language): Renamed from egg-char-to-language. (egg-next-part-lang egg-next-chinese-lang): Rename its-lang to egg-lang. (egg-conversion-map): Unbind C-\ and /. Bind C-X RET XXX to its-select-XXX. (egg-insert-bunsetsu): Make conversion text read-only. Separate bunsetsu-info and conversion-backend. (egg-insert-bunsetsu-list): Remove redundant variables. (egg-beginning-of-conversion-buffer): New function. (egg-end-of-conversion-buffer): New function. (egg-enlarge-bunsetsu): Handle read-only text. (egg-next-candidate): Handle read-only text. Bug on no candidate bunsetsu is fiexed. (egg-reconvert-bunsetsu-internal egg-reverse-convert-bunsetu egg-reconvert-bunsetsu): New functions for reverse conversion and re-conversion. (egg-decide-before-point egg-abort-conversion): Handle read-only text. Bug on pinyin and zhuyin mixed conversion is fixed. Allow long fence. (egg-select-candidate): Handle read-only text. Bug on no candidate bunsetsu is fiexed. * egg-com.el: Change coding-system from internal to iso-2022-7bit. * egg-mlh.el (mlh-space-bar-backward-henkan): Disable temporally mode selection. * egg.el (egg-mode): Set cureent lang to conversion backend. (egg-set-mode-line-title): Renamed to its-set-mode-line-title and moved to its.el. (egg-check-language): Removed. * egg/sj3.el (sj3-server-port): Change from defconst to defver for user customization. (sj3-open sj3-get-environment): Try opening alternate servers. (sj3-start-conversion): Make second argument LANGUAGE optional. (egg-activate-sj3): Parameters of egg-set-conversion-backend is changed. * egg/sj3rpc.el (sj3rpc-error-message): New constant (Not yet completed). (sj3rpc-get-error-message): Check range of errno to avoid args-out-ou-range error. * egg/wnn.el (wnn-jport wnn-cport wnn-tport wnn-kport): New variables for user customization. (wnn-server-info-list wnn-server-port): Type of fourth element is changed from integer to symbol. (wnn-start-reverse-conversion): New function. (wnn-open wnn-get-environment): Try opening alternate servers. (egg-activate-wnn): Parameters of egg-set-conversion-backend is changed. * its-keydef.el (its-current-language): Moved to its.el. (its-make-select-func): Remove language check (egg-check-language). Add temporally mode selection. (its-do-list-make-select-func): Binding of zhuyin-tw is changed to `C' because conflicting zenkaku-upcase. * its.el (its-current-select-func its-previous-select-func): New variables for temporally mode selection. (its-keydef requiring): Use eval-when to avoid error on using compiled file. (its-get-fence-face): New function for different face for every language. (its-put-cursor its-setup-fence-mode): Make fence read-only. (its-start): Remove force-mode-line-update calling. (its-restart): Add optional argument set-prop. (its-self-insert-char its-backward-SYL its-forward-SYL its-delete-SYL its-delete-backward-SYL its-exit-mode its-delete-backward-SYL-by-keystroke its-transpose-chars its-kick-convert-region its-end-of-input-buffer): Handle read-only fence. (its-state-machine): Accept special actions to handle temporally mode selection. (its-buffer-ins/del-SYL its-ins/del-SYL-batch): Handle read-only fence. Property its-lang is renamed to egg-lang. (its-get-next-state its-make-next-state): Add type check to avoid wrong-type-argument error. (its-keyseq-acceptable-p): Save informations of its-map to avoid confusing on temporally mode selection. (its-defrule-select-mode-temporally): New macro. (its-kill-line its-cancel-input): New function. (its-delete-backward-within-SYL): Bind its-current-language to avoid confusing when undo is done beyond language change. (its-yank its-yank-pop its-setup-yanked-portion): New functions. (its-exit-mode-internal): Reset temporally selected mode. Allow long fence. (its-kick-convert-region-or-self-insert): New function. (its-translate-region): Remove text properties completly. (its-set-mode-line-title): Moved from egg.el and renamed. (its-select-mode-temporally its-select-previous-mode): New functions for temporally mode selection. * leim-list-egg.el: Secondary argument for egg-activate-sj3/wnn is no longer needed. * its/hira.el: Remove the rule for "~" which destroies the rules with its-hankaku-escape. * its/pinyin.el: Implement its-pinyin-cn-enable-quanjioao-alphabet and its-pinyin-tw-enable-quanjioao-alphabet. * its/hangul.el: Implement its-hangul-enable-quanjioao-alphabet. * its/ascii.el: New file. * its/erpin.el: New file. * its/hankata.el: New file. * its/jeonkak.el: New file. * its/kata.el: New file. * its/quanjiao.el: New file. * its/zenkaku.el: New file. * its/zhuyin.el: New file. 1998-03-14 NIIBE Yutaka * egg/sj3rpc.el (sj3rpc-close): New function. * egg/sj3.el (sj3bunsetsu-[sg]et-kugiri-changed): Rename from sj3bunsetsu-get-stdy-down. (sj3-end-conversion): Implement CLSTDY. (sj3-fini): Implemented. 1998-03-10 NIIBE Yutaka * egg/sj3.el (sj3-end-conversion): Implement bunsetsu study. CLSTDY not yet. * egg/sj3rpc.el (sj3rpc-get-bunsetsu-candidates-sub): Bug fix. Always add hiragana and katakana candidates. (sj3-const: CLSTDY, CLSTDY_EUC): Renamed from END and END_EUC according to "sj3cmd.h" of SJ3 distribution. (sj3rpc-bunsetsu-stdy, sj3rpc-kugiri-stdy): New functions. * egg-com.el (comm-format-u8-vector): New substitution. (comm-format): New format 'v'. 1998-03-09 NIIBE Yutaka * docomp.el (its-keydef): Require its-keydef when compile. Not so good. Just a work around. (its-mode-map): Undo the changes of 03-04. 1998-03-09 KATAYAMA Yoshio * its.el (its-translate-region): Make it command. (its-translate-region-internal): Make it function. 1998-03-04 NIIBE Yutaka * its.el (its-define-select-keys of its-mode-map): Comment it out. * its-keydef.el (its-make-select-func): Add eval-when to compile this. * egg-cnv.el (egg-decide-bunsetsu): Deleted. * its.el (its-restart): Call its-setup-fence-mode with no argument. * its.el (its-keyseq-acceptable-p): Bug fix. 1998-03-03 KATAYAMA Yoshio *its.el (its-get-keyseq-syl): Compensate when DSYL has back. (its-DSYL-with-back-p): New function. Return t when DSYL has back. (its-concrete-DSYL-p): New function. Return t when DSYL is cons form which means input is not continued after DSYL was created. (its-make-concrete-DSYL): New function. (its-self-insert-char): Make DSYL to ``concrete-DSYL'' if cursor is t which means input is not continued. (its-input): Test input key is whether acceptable or not when its-barf-on-invalid-keyseq is non-nil. (its-input-to-vsyl): Set cursor status, not just returning it. (its-state-machine its-state-machine-keyseq): Make sure to issue ``DSYL-with-back'' when syllable is decided by the rule with back. ``test mode'' is added. (its-keyseq-acceptable-p): New function. (its-forward-SYL): The args order of put-text-property was wrong. (its-delete-backward-SYL-by-keystroke): New function. (its-delete-backward-within-SYL): ``delete-by-keystroke'' mode did not work when syllable is decided by the rule with back. Deletion limit is extended to outside of SYL (meaning of ``within-SYL'' is changed to ``deletion starts within SYL). (its-transpose-chars): Fixed up. (its-in-fence-p): Confuse at openning fence. 1998-02-25 KATAYAMA Yoshio * its.el (its-put-cursor): Enable its-map change in fence mode. * its-keydef.el (its-make-select-func): Same as above. 1998-02-25 KATAYAMA Yoshio * its.el (its-set-cursor-status): New function. (its-setup-fence-mode): New function. (its-insert-fence-open its-insert-fence-close): Deleted. (its-start, its-restart, its-self-insert-char): Avoid fence destruction on its-barf. (its-input-to-vsyl, its-state-machine, its-state-machine-keyseq, its-buffer-ins/del-SYL, its-ins/del-SYL-batch): Update cursor status on updating syllables. (its-input-error): New function to realize doc-string of its-barf-on-invalid-keyseq. * egg.el (egg-mode): Don't use egg-mode-line-title which cause wrong-type-argument at isearch. Bind its-select-XXX to key only when modefull is select. * egg-mlh.el (mlh-hangul, mlh-zhongwen, mlh-zhongwen-tw): Same as above. * its-keydef.el (its-make-select-func): Same as above. * leim-list-egg.el: Same as above. 1998-02-24 KATAYAMA Yoshio * its.el (its-state-machine-keyseq): Remove binding its-barf-on-invalid-keyseq to nil. (its-ins/del-SYL-batch): Avoide altering its-XXX-map. (its-translate-region-internal): its-translation-result's data type is changed to string. * egg-cnv.el (egg-convert-region): Gather contiguous same language part. 1998-02-21 KATAYAMA Yoshio * its.el (its-ins/del-SYL-batch): Set its-lang property. (its-translate-region): Remove its-lang property from translated text. (its-translate-region-internal): New function. Retain its-lang property on translated text. * egg-mlh.el (mlh-space-bar-backward-henkan): Force base language to Japanese. (mlh-hangul mlh-zhongwen-tw mlh-zhongwen): New functions for conversion functions. 1998-02-20 KATAYAMA Yoshio * its.el (its-restart): New function. (its-insert-fence-open, its-insert-fence-close): New function. (its-start): Rewritten. Use its-insert-fence-open and its-insert-fence-close. (its-exit-mode-internal): Leave its-syl property. (its-exit-mode-internal): Delete the property in this case. (its-keydef): Require it. * its-keydef.el: Provide the feature. * egg-cnv.el (egg-convert-region): Add egg-source property to save the source string. (egg-conversion-map, \C-c): New keybind. (egg-get-previous-bunsetsu): Bug fix. (egg-decide-before-point): New implementation. (egg-exit-conversion): Use gg-decide-before-point. (egg-abort-conversion): New command. 1998-02-20 NIIBE Yutaka * Makefile (SRCS), Egg.prj: Remove euc-china.el. * egg-com.el: Include egg-china.el. * egg-china.el: Removed. 1998-02-18 NIIBE Yutaka * Egg.prj: Use PRCS. * Makefile (SRCS): Rename euc-cn.el to euc-china.el * egg-mlh.el (mlh-space-bar-backward-henkan): Put "Japanese" language property for text. 1998-02-18 KATAYAMA Yoshio * euc-china.el: Rename from euc-cn.el. Update. * egg.el (egg-mode): Bug fix. Call get-exit-conversion. * leim-list-egg.el ("japanese-egg-wnn", "japanese-egg-sj3"): Use new definition (with language argument). * egg/wnn.el (egg-activate-wnn): * egg/sj3.el (egg-activate-sj3): 1998-02-17 NIIBE Yutaka * Makefile (SRCS): Add its/pinyin.el, its/hangul.el and its-keydef.el. * egg-com.el (ccl-encode-fixed-euc-kr): Fixed the name. 1998-02-17 KATAYAMA Yoshio * its-keydef.el: New file. * its/hangul.el, its/pinyin.el: New version. * egg/wnnrpc.el (load-library "egg/wnn"): Comment it out. (wnnrpc-get-error-message): Support multiple languages. (wnnrpc-call-with-environment): Chinese support. * egg/wnn.el (wnn-support-languages): New const. (): Add , , and . (wnnenv-get-server-type, wnnenv-get-dictionary-set, wnnenv-get-reverse-flag): New substs. (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Changed. (wnn-server): Removed. (wnn-jserver, wnn-cserver, wnn-tserver, wnn-kserver): New custom. (wnn-server-info-list): New const. (wnn-get-server-info): New function. (wnn-server-locale, wnn-server-type, wnn-server-port, wnn-server-stream-name, wnn-server-buffer-name, wnn-server-coding-system, wnn-server-hostname): New substs. (wnn-start-conversion): Add new arguments. (wnn-uniq-candidates): Initialize 'n'. (wnn-change-bunsetsu-length): Simplefied. (wnn-change-bunsetsu-length): Call renbunsetsu-conversion, instead. (wnn-fini, wnn-comm-sentinel): back to 971009 version. (wnn-jserver-port): Removed. (wnn-open): Argument change. Support languages. (wnn-dictionary-specification): Removed. (wnn-dictionary-specification-list): New variable. (wnn-get-dic-spec, wnn-dic-spec-dic-set, wnn-dic-spec-reverse, wnn-dic-spec-name, wnn-dic-spec-param, wnn-dic-spec-fuzokugo, wnn-dic-spec-dic-list): New substs. (wnn-get-environment): Rewrite. (wnn-create-environment): Rewrite. (egg-activate-wnn): Support languages. * egg/sj3rpc.el (load-library "egg/sj3"): Don't load it. * egg/sj3.el (sj3-support-languages): New const. (sj3-start-conversion, sj3-fini): Add lang. (sj3-change-bunsetsu-length): Simplified. (egg-activate-sj3): Support language. * its/hira.el (its/hira): Packagefy. (?) (its-hira-map): Add language spec. Move here the escape keys ("Z", "~"). * leim-list-egg.el ("chinese-gb-egg-wnn-py", "chinese-gb-egg-wnn-zy", "chinese-cns-egg-wnn-py", "chinese-cns-egg-wnn-zy", "korean-egg-wnn"): New input methods. * its.el (its-current-language): New Local Variables. : Change the structure. Add . (its-get-language): New substitution. (its-set-indicator): Removed. (its-get-indicator, its-get-start-state): New implementation. (its-reset-start-state): Removed. (its-buffer-ins/del-SYL): Add new properties, its-map and its-lang. (its-exit-mode-internal): Change for its-map and its-lang. (its-in-fence-p): New function. ("its-keydef.el"): Load it. (its-select-map-menu): Removed. (its-select-map-from-menu): Removed. (its-select-hiragana, its-select-katakana, its-select-downcase, its-select-upcase, its-select-zenkaku-downcase, its-select-zenkaku-upcase, its-select-map, its-zenkaku-escape, its-hankaku-escape): Removed. (define-its-state-machine): Rewrite. (define-its-compiled-map): New macro. (its-define-state-machine): Removed. (its-forward-SYL): Cleanup. (its-beginning-of-input-buffer): Fix. (its-end-of-input-buffer): Likewise. * egg-com.el (egg-fixed-euc, egg-mb-euc): New Local Variables. (ccl-decode-fixed-euc-kr, ccl-encode-fixed-euc-kr): New CCLs. (fixed-euc-kr): New coding system. (comm-format-mb-string, comm-format-u16-string): Support EUC-KR. (comm-unpack-u16-string, comm-unpack-mb-string): Likewise. * egg-cnv.el (egg-get-bunsetsu-info): New function. (egg-conversion-backend-alist, egg-finalize-backend-alist): New Variables. Make egg-conversion-backend buffer local. (egg-set-current-backend): New function. (egg-initialize-backend): Call egg-set-current-backend. (egg-start-conversion): Add new argument LANGUAGE. (egg-finalize-backend): Finalize for all backend(s). (egg-set-conversion-backend-internal): New Macro. (egg-convert-region): Support multiple languages in the region. (egg-separate-languages, egg-char-to-language, egg-next-part-lang, egg-next-chinese-lang): New functions. (egg-insert-bunsetsu-list): Change the meaning of last argument. (egg-shrink-bunsetsu): Simplified. Just call egg-enlarge-bunsetsu. (egg-enlarge-bunsetsu): Support shrink. (egg-decide-bunsetsu, egg-next-candidate, egg-select-candidate): Use egg-get-bunsetsu-info. (egg-insert-bunsetsu): The property now includes egg-conversion-backend. * egg.el: Don't load its/hira and don't set its-current-map. * egg.el (egg-default-language, egg-support-languages): New Variables. (egg-last-method-name, egg-mode-line-title): New Local Variables. (egg-set-mode-line-title, egg-check-language): New functions. (egg-set-support-languages): New function. (egg-mode): Final processing: call its-exit-mode, call egg-exit-conversion. Changing the arguments, remember last input method. Bug fix. Don't set its-hira-period and its-hira-comma. 1998-02-17 KAWABATA, Taichi * menudiag.el (menudiag-mode-map): New binds for new commands. (menudiag-beginning-of-items, menudiag-end-of-items): New commands. (menudiag-make-menu-formatted-string): Bug fix. Use menudiag-item-num-to-char. (menudiag-goto-item): Rewrite. Better user interface. (menudiag-char-to-item-num, menudiag-item-num-to-char): New functions. 1998-02-07 MORIOKA Tomohiko * leim-list-egg.el: Delete autoload setting for `egg-mode'. Delete input method registration for "japanese-egg". * egg.el: Comment out setting for Wnn. * leim-list-egg.el: Add autoload setting for `egg-activate-{wnn|sj3}'. * egg/sj3.el (egg-activate-sj3): Add DOC-string. * egg/sj3.el (egg-activate-sj3): New function. Require egg. Load egg/sj3rpc.el. * egg/wnn.el (egg-activate-wnn): New function. Require egg. Load egg/wnnrpc.el. 1998-02-07 MORIOKA Tomohiko * leim-list-egg.el (japanese-egg-wnn): New input method. (japanese-egg-sj3): New input method. 1997-11-20 MORIOKA Tomohiko * leim-list-egg.el: Rename `egg-ja' -> `japanese-egg'. 1997-11-20 MORIOKA Tomohiko * egg/wnn.el (wnn): New group. (wnn-server): Use `defcustom'. (wnn-usr-dic-dir): Use `defcustom'. * egg.el (egg): New group. 1997-11-20 MORIOKA Tomohiko * menudiag.el (menudiag-mode-map): Swap binding for left and right. * egg.el (egg-toroku-region): `wnn-get-environment' requires dictionary-specification. * leim-list-egg.el: add autoload setting for egg-mode. 1997-11-03 KATAYAMA Yoshio * euc-cn.el: New file. Original name was yincoding.el. Adopted by NIIBE Yutaka . 1997-11-03 NIIBE Yutaka * its.el (its-start): Add INVISIBLE property if ITS-FENCE-FACE. * egg-cnv.el (egg-decide-before-point): Ditto. Based on patch by Kenichi HANDA . Once, I thought that we need many environments which correspond to outstanding CONVERSION buffre. However, I've learned that WNN4 protocol is completely independent. It's no use to maintain each environment. Share the one environment. * egg/wnn.el (wnn-environments): Removed. (wnn-environment): New variable. (wnn-comm-sentinel): Follow the change. Let users know the close. (wnn-fini): Likewise. : Remove the member . (wnnenv-create): Follow the structure change. (wnn-end-conversion): Likewise. (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Removed. (wnn-find-env-not-in-use): Removed. (wnn-get-environment): Use wnn-environment instead of wnn-environments. Take one argument. * egg-cnv.el (egg-decide-before-point): Signal error on first SYL. Reported by KATAYAMA Yoshio . Changes of 1997-09-07 was not enough. Set-marker M to NIL after PUT-TEXT-PROPERTY. Because the name of identifier begins egg-*, change the file names. * tamago: Rename from tamago. * egg.el, egg-mlh.el, egg-com.el, egg-cnv.el: Rename from tamago-*.el * Makefile: Follow the changes. 1997-10-05 NIIBE Yutaka * tamago/wnn.el (wnn-uniq-candidates): Add new argument BUNSETSU. Call WNN-BUNSETSU-SET-ZENKOUHO-POS, WNN-BUNSETSU-SET-ZENKOUHO in this function. Handle the case where BUNSETSU is not the first element of BUNSETSU-LIST. (wnn-list-candidates): Use new API of WNN-UNIQ-CANDIDATES. * tamago-cnv.el (egg-next-candidate): Handle the case where EGG-LIST-CANDIDATES returns non zero value. 1997-10-04 NIIBE Yutaka * Makefile (install): Install to SITEDIR. 1997-09-26 NIIBE Yutaka * its/hira.el (its-hira-enable-zenkaku-alphabet): New variable. (its-hira-map): Use it. 1997-09-19 NIIBE Yutaka Arrange for LEIM. Use tamago/ subdirectory. * tamago/: Rename from tamago-lib. 1997-09-18 NIIBE Yutaka * tamago-cnv.el (egg-select-candidate): menu-select --> menudiag-select. * tamago.el (egg-toroku-region, egg-hinshi-select): Likewise. * tamago-cnv.el (egg-exit-conversion): Run hook of input-method-after-insert-chunk-hook. * its.el (its-exit-mode-internal): Ditto. * tamago-mlh.el (mlh-comma-period-style): Deleted. * its/, tamago-lib/: New directory. * its/: Move its-*.el files here. * tamago-lib/: Move sj3.el, sj3rpc.el, wnn.el and wnnrpc.el here. * tamago-com.el: Rename from comm.el. * tamago-mlh.el: Rename from mlh.el. * tamago-cnv.el: Rename from convert.el. * menudiag.el: Rename from menu.el. (Throughout): Rename menu-* to menudiag-*. 1997-09-07 NIIBE Yutaka * egg.el (egg-insert-after-hook, egg-exit-hook): Removed. (egg-sai-henkan-start, egg-sai-henkan-end, egg-old-bunsetu-suu): Removed. * wnn.el (WNN-const): New macro. (wnn-start-conversion, wnn-open-dictionary, wnn-open-frequency, wnn-set-dictionary-sub, wnn-update-frequency): Use it. * wnnrpc.el (wnn-const): New macro. Throughout: Use wnn-const. * convert.el (egg-decide-before-point): Bug fix. Handle the case where all bunsetsu are decided. Reported by KATAYAMA Yoshio . * convert.el (egg-exit-conversion): Call egg-end-conversion at end. (egg-decide-before-point): Ditto. * wnn.el (wnn-environments): Change the structure of enviromnents. (wnn-fini): Handle errors. (wnn-open): Set sentinel. Delete buffer on failure. (wnn-comm-sentinel): New function. (wnn-find-env-not-in-use): Return nil when not found. (wnn-create-environment): Take username as argument. (wnn-get-environment): Follow the change. (wnnenv-create): Remove useless serial no. (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Follow the change. (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Likewise. (wnn-create-environment, wnn-get-environment): Likewise. 1997-09-04 NIIBE Yutaka * its.el (its-state-machine-keyseq): Bug fix. Handle VSYL. * sj3.el, sj3rpc.el: New files. * comm.el (comm-call-with-proc, comm-call-with-proc-1): New macros. * wnnrpc.el (wnnrpc-call-with-proc, wnnrpc-call-with-proc-1): Deleted. Throughout: Use comm-call-with-proc and comm-call-with-proc-1. 1997-09-03 NIIBE Yutaka * wnnrpc.el (wnnrpc-call-with-proc-1): Bug fix. let --> progn. * convert.el (egg-conversion-backend): Initail value is NIL. * wnn.el (wnn-conversion-backend): New constant. * comm.el (comm-format,comm-unpack): Support multibyte string. (comm-format-mb-string): New substitution. (comm-unpack-mb-string): New substitution. * wnn.el (wnn-fini): Handle the case where wnn-environments is nil. Reported by Hisashi Miyashita . 1997-09-03 Hiroshi Ogata * mlh.el (mlh-zenkaku): Use new API of Emacs-20, japanese-zenkaku-region. 1997-09-02 NIIBE Yutaka * egg.el (egg-toroku-region): New function. * wnn.el (wnn-list-dictionaries): New function. (wnnenv-get-proc): New function. * wnnrpc.el (wnndic-get-id, wnndic-get-comment, wnndic-get-dictname): New substitution. (wnnrpc-get-writable-dictionary-id-list): Rename from wnnrpc-get-writable-dictionary-list. 1997-09-01 NIIBE Yutaka * convert.el (egg-decide-bunsetsu): New function. (egg-decide-before-point): New command. (egg-exit-conversion): Use egg-decide-bunsetsu. * its.el (its-start): Divide the fence buffer into two parts and make them intangible, so that point goes appropriate position. (its-put-cursor): The cursor belongs to part-2. (its-buffer-ins/del-SYL): The new SYL belongs to part-1. (its-exit-mode-internal): Remove the property on exit. (its-beginning-of-input-buffer): Make SYLs have property of "part 2". (its-backward-SYL): Likewise. (its-forward-SYL): Make SYLs have property of "part 1". (its-end-of-input-buffer): Likewise. (its-input-end): Delete useless argument. (its-beginning-of-input-buffer, its-exit-mode, its-exit-mode-off-input-method, its-kick-convert-region, its-end-of-input-buffer, its-backward-SYL, its-forward-SYL, its-delete-SYL): Follow the change. 1997-08-31 NIIBE Yutaka For egg-mode, don't use minor mode, override local map instead. For its-mode and egg-conversion-mode, don't use minor mode, instead use local-map of text property. Although overriding local map is not good, using local-map of property is natural thing. Besides, point-left/point-entered don't work as I expected (yet). * egg.el (egg-mode: variable): Removed. * egg.el (egg-modefull-map, egg-modeless-map): Make them functions. Generate overriding local map. * egg.el (egg-mode): use overriding local map. * its.el, convert.el: Undo changes of 1997-08-28 for minor mode and local map of text properties. * its.el (its-exit-mode-off-input-method): New function. 1997-08-29 NIIBE Yutaka Let Undo work correctly. * its.el (its-self-insert-char): Delete/Insert cursor. * its.el (its-put-cursor): Remove useless first argument. (its-start, its-beginning-of-input-buffer, its-end-of-input-buffer, its-backward-SYL, its-forward-SYL, its-delete-SYL, its-delete-SYL, its-delete-backward-SYL-internal, its-delete-backward-within-SYL): Follow the change. 1997-08-28 KATAYAMA Yoshio * its-erpin.el: New file. * its-pinyin.el: New file. * its-zhuyin.el: New file. 1997-08-28 NIIBE Yutaka * its.el (its-exit-mode-no-egg): Removed. (its-exit-mode-internal): Remove first argument. (its-kick-convert-region, its-delete-SYL, its-delete-backward-SYL-internal, its-delete-backward-within-SYL): Follow the change. Don't use local map of text properties, instead use minor mode. * convert.el (egg-conversion-mode): New minor mode. (egg-conversion-left, egg-conversion-enter): New functions. (egg-insert-bunsetsu): remove local-map, add point-entered and point-left properties. (egg-exit-conversion): Likewise. (egg-exit-conversion): Exit minor mode. * its.el (its-put-cursor): remove local-map, add point-entered and point-left properties. (its-enter, its-left): New functions. (its-mode): New variable. New minor mode. 1997-08-27 NIIBE Yutaka * convert.el (egg-exit-conversion-no-egg): Removed. (egg-exit-conversion): No argument, no egg-mode. * convert.el (egg-convert-region): No egg-flag. * its.el (its-exit-mode-internal): Follow it. * mlh.el (mlh-space-bar-backward-henkan): Ditto. 1997-08-26 NIIBE Yutaka * wnn.el (wnn-change-bunsetsu-length): Don't use magic #3. * convert.el (egg-insert-bunsetsu-list): Add optional argument CONTIN. 1997-08-25 NIIBE Yutaka * convert.el (egg-insert-bunsetsu): Include seperator. Add intangible property to bunsetsu. (egg-insert-bunsetsu-list): Follow the change. (egg-backward-bunsetsu, egg-forward-bunsetsu, egg-select-candidate, egg-next-candidate, egg-shrink-bunsetsu, egg-enlarge-bunsetsu, egg-exit-conversion): Ditto. * mlh.el (mlh-space-bar-backward-henkan): Call egg-convert-region with last argument t. Turn of egg-mode. 1997-08-24 NIIBE Yutaka * its.el (its-exit-mode-internal): Inactivate input method. * wnn.el (wnn-end-conversion): Change the interface. (wnn-update-frequency): Follow the change. * convert.el (egg-exit-conversion): Follow the change. * wnn.el (wnn-start-conversion): Change the return value interface. * convert.el (egg-convert-region): Follow the change. * wnn.el (wnnenv-get-bunsetsu-pos, wnnenv-set-bunsetsu-pos): Removed. (wnn-get-bunsetsu-source-afterwards): Removed. (wnn-get-number-of-bunsetsu, wnn-get-bunsetsu-info): Removed. (wnnenv-get-bunsetsu-list, wnnenv-set-bunsetsu-list): Removed. (wnn-start-conversion): Don't call wnnenv-set-bunsetsu-list. (wnn-end-conversion): Ditto. 1997-08-23 NIIBE Yutaka * convert.el (egg-change-bunsetsu-length): Change the interface. (egg-shrink-bunsetsu,egg-enlarge-bunsetsu): Follow it. (egg-source-maxlen-from-here): Removed. (egg-get-previous-bunsetsu): New function. (egg-select-candidate, egg-shrink-bunsetsu, egg-enlarge-bunsetsu, egg-next-candidate): Use egg-get-previous-bunsetsu. 1997-08-20 NIIBE Yutaka * egg.el (minor-mode-alist): Don't show " EGG" in mode line. (egg-mode): Use input method indicator instead. 1997-07-20 NIIBE Yutaka * convert.el (egg-next-candidate): Rename from egg-next-conversion. (egg-previous-candidate): Rename from egg-previous-conversion. (egg-select-candidate): Follow the change of new interface. (egg-source-maxlen-from-here): Likewise. 1997-07-19 NIIBE Yutaka * wnn.el (wnn-start-conversion): Change the interface. Return ENV and the list of bunsetsu. Fix the documentation string too. * convert.el (egg-convert-region): Follow the change. (egg-insert-converted-result): Change the argument. (egg-insert-bunsetsu-list): Rename from egg-insert-converted-result. (egg-insert-bunsetsu): New function. (egg-get-number-of-bunsetsu,egg-get-bunsetsu-info): Removed. (egg-backward-bunsetsu): Don't use bunsetsu-pos. * wnn.el (wnn-get-bunsetsu-converted): Change the interface. Take BUNSETSU as the argument instead of ENV and POS. * convert.el (egg-get-bunsetsu-converted): Follow the change. * wnn.el (wnn-bunsetsu-create): Take ENV as the first argument. (wnn-list-candidates): Dont take ENV. (wnn-bunsetsu-get-env): New substitution. * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub): Take the argument for ENV, and use it for the argument of wnn-bunsetsu-create. (wnnrpc-receive-sho-bunsetsu-list): Take ENV as the first argument. (wnnrpc-renbunsetsu-conversion): Follow the change. 1997-07-17 NIIBE Yutaka * convert.el (egg-decide-candidate): Change the interface. Take the argument bunsetsu-info instead of conversion-engine. * wnn.el (wnn-get-candidate): Deleted. * convert.el (egg-get-all-candidates): Change the interface. Take an argument bunsetsu-info instead of conversion-engine. (egg-select-candidate): Follow the change. * convert.el (egg-set-bunsetsu-pos,egg-get-bunsetsu-pos): Deleted. (egg-list-candidates,egg-get-current-candidate-number): New stub. * wnn.el (wnn-bunsetsu-create): Add new member zenkouho-pos. (wnn-bunsetsu-get-zenkouho-pos,wnn-bunsetsu-set-zenkouho-pos): New functions. (wnn-list-candidates,wnn-get-current-candidate-number): New functions. (wnn-set-bunsetsu-pos,wnn-get-bunsetsu-pos): Deleted. * convert.el (egg-get-number-of-candidates): Change the interface. Take an argument bunsetsu-info instead of conversion-engine. (egg-next-conversion,egg-select-candidate): Follow the change. * wnn.el (wnn-get-number-of-candidates): Follow the change. * wnn.el (wnn-get-bunsetsu-source-afterwards): New function. (wnn-change-bunsetsu-length): Use it. * convert.el (egg-get-bunsetsu-source): Change the interface. Take an argument bunsetsu-info instead of conversion-engine. (egg-enlarge-bunsetsu,egg-shrink-bunsetsu,egg-source-maxlen-from-here): Follow the change. * wnn.el (wnn-get-bunsetsu-source): Follow the change. Put bunsetsu information on text property. * wnn.el (wnn-get-bunsetsu-info): New function. * convert.el (egg-insert-converted-result): Put it on text property. (egg-conversion-backend): Add new interface wnn-get-bunsetsu-info. (egg-get-bunsetsu-info): New stub. 1997-07-17 KATAYAMA Yoshio * its.el (its-state-machine-keyseq, its-state-machine): Handle end-of-input correctly when going backward. 1997-07-16 NIIBE Yutaka * wnn.el (wnn-create-directory): Bug fix. Really make directory. 1997-07-15 NIIBE Yutaka * its-hangul.el (its-define-hangul): Use its-defrule-otherwise. 1997-07-15 KATAYAMA Yoshio * its-hangul.el: Updated. 1997-06-19 NIIBE Yutaka * its-hira.el: its-hira-hankaku-escape --> its-hankaku-escape. its-hira-zenkaku-escape --> its-zenkaku-escape. 1997-06-14 NIIBE Yutaka * its.el: Change the data structure of so that it can encourage sharing same structure and it can use same structure of SYL. (its-ins/del-SYL-batch): Follow the change of data structure. (its-define-otherwise): Change the argument. (its-defrule-otherwise): New function. (its-eob-keyexpr, its-eob-back, its-make-class+back, its-make-otherwise): New substitutions. 1997-06-13 NIIBE Yutaka * its-kana.el: New file. Taken from its/kanainput.el of Mule-2.3. * its-hira.el: Use `define-its-state-machine'. * its.el (its-zenkaku-escape, its-hankaku-escape): Make them defconst. (define-its-state-machine, define-its-state-machine-append): New macro. 1997-06-13 NIIBE Yutaka * its-hira.el ("n'"): Added. 1997-06-12 NIIBE Yutaka its-zenkaku-escape and its-hankaku-escape are also used in hangul. * its.el (its-zenkaku-escape, its-hankaku-escape): Moved to here and rename them. * its-hira.el (its-hira-hankaku-escape, its-hira-zenkaku-escape): Removed. * its.el (its-read-current-its-string): Removed. There's the function `read-multilingual-string' already. 1997-06-12 KATAYAMA Yoshio * its-hangul.el: New file. 1997-06-10 NIIBE Yutaka Miscellaneous cosmetic changes. * comm.el: New file. Move communication related funcitons from wnnrpc.el. (comm-format-u32c, and others): Rename from wnnrpc-*. * wnnrpc.el (Throughout): Follow the rename. * wnn.el (wnnenv-get-in-use-flag): Rename from wnn-e-get-in-use. (wnnenv-set-in-use-flag): Rename from wnn-e-set-in-use. (Others): Rename from wnn-e-*. (wnn-bunsetsu-*): Rename from wnnrpc-b-*, and moved from wnnrpc.el. * convert.el (egg-exit-conversion): Call egg-do-auto-fill. * its.el (its-translate-region): Bug fix. End of input. (its-state-machine): Bug fix. Generate error if its-barf-on-invalid-keyseq. (its-exit-mode-internal): Call egg-do-auto-fill. * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for ASCII. * mlh.el (mlh-space-bar-backward-henkan): Call egg-do-auto-fill. * egg.el: Comment out definition of C-\ in global-map. 1997-06-09 NIIBE Yutaka * its.el (its-kick-convert-region): Rename from its-convert-region. (its-mode-map): Follow the change. (its-make-next-state): Use list instead of cons. (its-get-kst/t): Make it substitution. (its-set-kst, its-get-keyseq, its-set-keyseq, its-kst-p, its-get-output, its-set-output, its-get-keyseq-syl): Likewise. (its-new-state, its-new-map, its-get-indicator, its-set-indicator, its-get-start-state, its-reset-start-state): Likewise. (its-get-next-state): Use assq instead of assoc. (its-goto-state): Tune up. 1997-06-08 NIIBE Yutaka * mlh.el: Merge mlh-nihongo.el. * mlh-nihongo.el: Removed. * its-hira.el: Moved from its/hira.el. Move comments to HISTORY. (its-hira-enable-double-n, its-hira-period, its-hira-comma, its-hira-open-bracket, its-hira-close-bracket, its-hira-horizontal): New variables. Use the variables to define the state-machine. Implement non-interactive translation in ITS. * its.el (its-translate-region): New function. (its-latest-SYL): New Variable. (its-state-machine-keyseq): Use it. (its-update-latest-SYL): New function. (its-buffer-ins/del-SYL): Use it. (its-translation-result): New variable. (its-ins/del-SYL-batch): New function. (its-enable-double-n-syntax, its-use-kuten-for-period, its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): Removed. Use ITS, delete mlh's own implementation of automata. * mlh.el (mlh-start-state, mlh-set-of-chars, mlh-start-state-sym, mlh-set-of-chars-sym, mlh-define-automata, mlh-end-of-definition, mlh-defrule, mlh-next-state, mlh-roma-kana-backward): Removed. (mlh-cause-error-when-unknown-romaji-sequence): Removed. (mlh-atoi): Removed. (mlh-white-space, mlh-zenkaku-white): Use string-to-int. * mlh-nihongo.el (mlh-hira-start-state, mlh-hira-chars, and all rules of definition which defines the automaton): Removed. (mlh-kanji-with-henkan-region-function): Use its-translate-region. (mlh-hiragana, mlh-katakana): Likewise. Fix of CCL. * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for jisx0212. Add missing parens. Speed up of unpacking. * wnnrpc.el (wnnrpc-following-char-or-wait): Tune up. (wnnrpc-following+forward-char): New function. (wnnrpc-unpack-u32c, wnnrpc-unpack-u32, wnnrpc-unpack-u16, wnnrpc-unpack-u8): Use it. (wnnrpc-accept-process-output): New function. (wnnrpc-unpack-u16-string, wnnrpc-unpack-u8-string, wnnrpc-unpack-bytes): Use it. Use search-forward. (wnnrpc-unpack-u16-string): Use decode-coding-region. 1997-06-07 NIIBE Yutaka * wnn.el (wnn-get-all-candidates): New function. (wnn-set-bunsetsu-pos): Return 0 (instead of -1). * convert.el (egg-get-candidate): Removed. (egg-get-all-candidates): New entry function. (egg-conversion-backend): Entry for egg-get-all-candidates. (egg-select-candidate): New function. (egg-conversion-map): Bind "\M-s" and egg-select-candidate. 1997-06-05 NIIBE Yutaka * bushu.el: Renamed from busyu.el. (bushu-break-string, etc): Renamed from busyu*. * menu.el: Completely rewritten. 1997-06-03 NIIBE Yutaka * its.el (its-reset-start-state): Bug fix. Delete a CDR. Implement "class of key" transition. Change the structure of , the last member is instead of . * its.el (its-kst-p): Rename from its-ksa-p. (its-get-next-state): Follow the change of the data structure. (its-state-machine): Likewise. (its-make-next-state): Likewise. (its-set-kst): New function. (its-get-otherwise): New function. (its-otherwise-match): New function. (its-define-otherwise-terminate-here): Removed. (its-define-otherwise): New function. (its-defrule*): Use its-define-otherwise. * its/hira.el (n): Use its-define-otherwise. 1997-06-02 NIIBE Yutaka * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub, wnnrpc-receive-sho-bunsetsu-list-sub-2): Splited from wnnrpc-receive-sho-bunsetsu-list. (wnnrpc-receive-dai-bunsetsu-list): New function. (wnnrpc-daibunsetsu-conversion, wnnrpc-get-daibunsetsu-candidate): New function. 1997-06-01 NIIBE Yutaka * wnnrpc.el (ccl-decode-fixed-euc-jp): Clean it up. (wnnrpc-file-attribute): Rename from wnnrpc-stat-file. (wnnrpc-get-dictionary-list-with-environment): Rename from wnnrpc-get-dictionary-list-with-environment. Implement RPC more. * wnnrpc.el (wnnrpc-who, wnnrpc-get-env-list, wnnrpc-kill, wnnrpc-delete-dictionary, wnnrpc-set-flag-on-dictionary, wnnrpc-get-dictionary-list, wnnrpc-delete-word, wnnrpc-receive-word, wnnrpc-search-word, wnnrpc-search-word-in-dictionary, wnnrpc-get-word-info, wnnrpc-set-comment-on-word, wnnrpc-get-dictionary-info, wnnrpc-set-file-comment, wnnrpc-hinshi-name, wnnrpc-set-file-password, wnnrpc-set-hinshi-table): New functions. 1997-05-31 NIIBE Yutaka * wnnrpc.el (wnnrpc-format-u32c, wnnrpc-unpack-u32c): New substitutions. Support 32-bit number represented in cons cell of a pair of 16-bit integer. (wnnrpc-format, wnnrpc-unpack): Handle u32c (U). (wnnrpc-format-bytes, wnnrpc-unpack-bytes): New substitutions. Support byte stream end with 255(-1). (wnnrpc-format, wnnrpc-unpack): Handle bytes (B). (wnnrpc-local-file-loaded): New function. (wnnrpc-call-with-proc-1): New macro. Assume the buffer is the one of process. 1997-05-29 NIIBE Yutaka * wnnrpc.el (wnnrpc-get-conversion-parameters, wnnrpc-file-loaded, wnnrpc-write-file, wnnrpc-get-fuzokugo-file, wnnrpc-get-file-list, wnnrpc-get-file-list-with-env, wnnrpc-stat-file, wnnrpc-get-file-info): New functions. wnnrpc-receive-file-list): New subst. 1997-05-29 Kenichi Handa * wnnrpc.el (ccl-decode-fixed-euc-jp): Tune it up. 1997-05-29 Hisashi Miyashita * wnnrpc.el (fixed-euc-jp, ccl-decode-fixed-euc-jp, ccl-encode-fixed-euc): New private coding system. Encode/decode CCL for it. 1997-05-27 NIIBE Yutaka * wnnrpc.el (wnnrpc-tanbunsetsu-conversion): Change the argument. (wnnrpc-get-bunsetsu-candidates): Likewise. (wnnrpc-renbunsetsu-conversion): Likewise. * wnn.el (wnn-change-bunsetsu-length): Follow the change. (wnn-set-bunsetsu-pos): Likewise. (wnn-change-bunsetsu-length, wnn-start-conversion): Likewise. 1997-05-25 NIIBE Yutaka * wnnrpc.el (wnnrpc-add-word, wnnrpc-get-dictionary-list, wnnrpc-receive-dictionary-list, wnnrpc-get-writable-dictionary-list, wnnrpc-get-hinshi-list, wnnrpc-hinshi-number): New functions. (wnnrpc-unpack-u16-string): Bug fix for the case of ASCII string. * wnn.el (wnn-dictionary-specification): Add dictionaries of gerodic and ones of WNN consortium. Implement a false path. * wnnrpc.el (wnnrpc-renbunsetsu-conversion): Generate an error on failure. (wnnrpc-get-bunsetsu-candidates): Ditto. (wnnrpc-tanbunsetsu-conversion): Ditto. Implement a false path. Error recovery. * wnn.el (wnn-create-directory, wnn-open-dictionary, wnn-open-frequency, wnn-query-del/create-frequency): New function. (wnn-set-dictionary-sub): New function. 1997-05-24 NIIBE Yutaka * wnnrpc.el (wnnrpc-version, wnnrpc-access, wnnrpc-mkdir, wnnrpc-create-dictionary, wnnrpc-create-frequency, wnnrpc-discard-file, wnnrpc-remove-file): New functions. (wnnrpc-test-result-and-get-error): New subst. Implement a false path from wnnrpc-set-fuzokugo-file. * wnnrpc.el (wnnrpc-set-fuzokugo-file): Return negate-encoded error code on failure. * wnn.el (wnn-create-environment): Generate an error message. Implement a false path from wnnrpc-open-file. * wnnrpc.el (wnnrpc-open-file): Change the interface. Return negate-encoded error code on failure. * wnn.el (wnn-open-file): New function. (wnn-create-environment): Handle return value, and generate an error message for wnnrpc-set-fuzokugo-file on failure. (wnn-set-dictionary): Handle return value. 1997-05-17 NIIBE Yutaka * wnnrpc.el (wnnrpc-error-message): Error strings taken from Wnn-4.2 distribution. (wnnrpc-errono): Removed. Implement a false path from wnnrpc-open. * wnnrpc.el (wnnrpc-open): Change the interface. Return NIL on success, error code on failure. * wnn.el (wnn-open): Delete process and buffer. Generate an error on failure. (wnn-get-environment): Follow the change (none). (wnn-start-conversion): Follow the change (none). * convert.el (egg-convert-region): Follow the change. Call delete-region after egg-start-conversion. Implement a false path from wnnrpc-connect. * wnnrpc.el (wnnrpc-connect): Change the interface. Return negate-encoded error code on failure. * wnn.el (wnn-create-environment): Generate an error on failure. (wnn-get-environment): Follow the change. On failure, don't register the environment to wnn-environments. 1997-05-16 NIIBE Yutaka Dynamically allocate environment arbitrarily. * wnn.el (wnn-create-environment): Change the structure of ENV. (wnn-e-get-in-use, wnn-e-set-in-use): New subst. (wnn-end-conversion): Call wnn-e-set-in-use. (wnn-get-environment, wnn-find-env-not-in-use): New function. (wnn-start-conversion): Call wnn-get-environment. * wnn.el (wnn-fini): Implemented. 1997-05-15 NIIBE Yutaka * convert.el (egg-start-conversion): Change the interface. (egg-convert-region): Follow the change. (egg-open-if-not): Removed. * wnn.el (wnn-start-conversion): Follow the change. * wnn.el (wnn-environment-list): Removed. (wnn-environment-serial): Removed. (wnn-connect-and-init): Removed. (wnn-environments): New variable which holds all environments. 1997-05-15 NIIBE Yutaka * wnn.el (wnn-change-bunsetsu-length): Bug fix. Last argument to wnnrpc-b-set-freq-down is list of bunsetsu. * mlh.el (mlh-do-spacing): Emacs 20 related changes. Use category-set-mnemonics, and char-category-set. According to suggestion by Kenichi Handa . 1997-05-15 MORIOKA Tomohiko * wnn.el (wnn-usr-dic-dir): New variable. (wnn-filename): Use wnn-usr-dic-dir. * its.el (its-defrule): New argument `enable-overwrite'. 1997-05-14 NIIBE Yutaka * convert.el (egg-exit-conversion-unread-char): Use newer variable unread-command-events, as unread-command-char is obsolete. (egg-shrink-bunsetsu, egg-source-maxlen-from-here, egg-enlarge-bunsetsu, egg-next-conversion, egg-exit-conversion, egg-exit-conversion, egg-insert-converted-result): New property EGG-CONVERSION-ENGINE, which specifis backend. (egg-start-conversion, egg-get-number-of-bunsetsu, egg-get-bunsetsu-converted, egg-set-bunsetsu-pos, egg-get-bunsetsu-pos, egg-get-number-of-candidates, egg-get-candidate, egg-decide-candidate, egg-change-bunsetsu-length, egg-get-bunsetsu-source, egg-end-conversion): Change the interface, new argument c. * wnn.el (wnn-start-conversion, wnn-get-number-of-bunsetsu, wnn-get-bunsetsu-converted, wnn-set-bunsetsu-pos, wnn-get-bunsetsu-pos, wnn-get-number-of-candidates, wnn-get-candidate, wnn-decide-candidate, wnn-change-bunsetsu-length, wnn-get-bunsetsu-source, wnn-end-conversion): Likewise. * convert.el (egg-open-if-not): Change the interface. Return conversion backend. * wnnrpc.el (wnnrpc-following-char-or-wait, wnnrpc-unpack-u32, wnnrpc-unpack-u16, wnnrpc-unpack-u8, wnnrpc-unpack-u16-string, wnnrpc-unpack-u8-string): Change the interface to avoid compilation warnings. (wnnrpc-unpack): Use new interface. * wnn.el (wnn-open): Change the name of WNN buffer as debug has been done. 1997-05-11 NIIBE Yutaka * wnnrpc.el (wnnrpc-following-char-or-wait): Rename from wnn-following-char-or-wait. (wnnrpc-following-char-or-wait): Declare with DEFUN instead of DEFSUBST. 1997-05-10 NIIBE Yutaka * Throughout: Use JUNET coding system for file format. * mlh.el: Move some comments to HISTORY. (mlh-version): Removed. Remove all autoload entries. (henkan-region-function): Removed. (member): Don't need any more. * mlh-nihongo.el: Renamed from nihongo.el. * mlh.el (mlh-space-bar-backward-henkan): call egg-convert-region directly. (mlh-space-bar-backward-henkan): Fix for Emacs 20. Don't call egg:do-auto-fill. (mlh-backward-henkan): Use set-marker-insertion-type. (mlh-do-spacing): Char-category. * mlh.el, nihongo.el: Taken from mlh-1.002 distribution. 1997-05-07 NIIBE Yutaka * convert.el (egg-update-frequency): Removed. (egg-conversion-backend): Remove entry for update-frequency. * wnn.el (wnn-dictionary-specification): Change parameters according to suggestion by Tomoko Yoshida in mule-jp@etl.go.jp. Original had been taken from wnn-4.2. 1997-05-06 NIIBE Yutaka * convert.el (egg-next-conversion): Bug fix. It's max+ instead of n. 1997-05-05 NIIBE Yutaka * wnnfns.c (Fwnn_get_bunsetsu_converted): Rename from get-converted-bunsetsu. (Fwnn_get_bunsetsu_source): Ditto. * convert.el (egg-get-bunsetsu-converted): Ditto. (egg-get-bunsetsu-source): Ditto. * wnn.el (wnn-create-environment): New file which mimics API of wnnfns.c. 1997-04-29 NIIBE Yutaka * wnnrpc.el: New file which implements Remote Procedure Calls of WNN. 1997-04-16 NIIBE Yutaka * its/kanainput.el (normal-pair): Use its-defrule*. * its.el (its-defrule*): Rewritten. * its/hira.el ("n"): Alternative implementation using 'otherwise'. * its.el (its-processing-map): Removed. (its-register-map): Rename from its-set-map. (its-register-map): Remove first argumet NAME. (its-defrule): Remove last optional argument END. (its-define-otherwise-terminate-here): New function. (its-goto-state): New function. (its-defrule, its-defoutput): Use its-goto-state. 1997-04-12 NIIBE Yutaka * its.el: Enhance meaning of ITS state machine. Now, includes representation of "ANY of key stroke" (-2). (its-defrule): New feature end=='otherwise. (its-defrule*): New function. (its-state-machine): Implement otherwise-terminate-before-this-key. * its/kanainput.el (its-k-zenkaku-escape, its-k-hankaku-escape, its-k-symbols-escape): Add prefix its-. Let them defconst. "W": Move the definition beginning to avoid error. 1997-03-26 NIIBE Yutaka * convert.el (egg-next-conversion): -1 goes to end of bunsetsu. 1997-03-25 NIIBE Yutaka * egg.el (egg-mode-on, egg-input-mode, egg-in-fence-mode): Deleted. (egg-fence-face-on, egg-fence-face-off): Deleted. (egg-region-start, egg-region-end): Deleted. 1997-03-24 NIIBE Yutaka * its/hira.el ("n"): Add "z" and "?" for prefetch char of "n". Implement conversion mode. * convert.el: New file. 1997-03-23 NIIBE Yutaka * its.el (its-mode-map): As "\C-g" is used in global-map, use "\C-]" instead (for its-cancel-input). 1997-03-22 NIIBE Yutaka Introduce new scheme to specify server. * wnnfns.c (Qjserver, Qcserver, Qtserver, Qkserver): Removed. (Vwnn_server_type): Integer variable. (wnn_get_server_type): Renamed from wnn_check_server_type. (charset_wnn_server_type): Renamed from lc_wnn_server_type. Introduce new scheme to specify uniqueness. * wnnfns.c (Qwnn_no_uniq, Qwnn_uniq, Qwnn_uniq_kanji): Removed. (Vwnn_uniqueness_specifier): Integer variable. Renamed from wnn_uniq_level. 1997-03-21 NIIBE Yutaka Cosmetic changes. * wnnfnc.c (Throughout): Change Lisp function name to follow the format of wnn-VERB-OBJECT. Use XFASTINT instead of XINT, if appropriate. * wnnfns.c (Fwnn_fuzokugo_set): Merged with wnn-set-fuzokugo of wnn-egg.el. * wnn-egg.el (wnn-set-fuzokugo): Deleted. * wnnfns.c (Fwnn_dict_add): Merged with wnn-add-dict of wnn-egg.el. * wnn-egg.el (wnn-add-dict): Deleted. * wnn-egg-msg.el (wnn-msg-get): Renamed from egg-msg-get. (wnn-message-alist): Renamed from egg-message-alist. Use defconst. * wnnfns.c (wnn_check_server_type): Renemed from check_wnn_server_type. * wnn-egg-msg.el (egg-error): Deleted. Not useful enough. * wnn-egg.el (Throughout): Replace egg-error by error. * egg.el (egg-sai-henkan-start, egg-sai-henkan-end, egg-old-bunsetu-suu): Moved from wnn-egg.el. * wnn-egg.el (Throughout): Change variable name and function name. Added wnn- prefix, egg- prefix. * wnn-egg.el: Delete historical defaliases. Only support wnn-set-[cjk]server-hostname. * wnn6.el: New file. Discriminate Wnn6 related functions. * eggrc-wnn6: New file. Discriminate Wnn6 related setting. * egg-fence.el: Removed. 1997-03-20 NIIBE Yutaka Distingush continuation of egg-mode and turn off of egg-mode. * its.el (its-mode-map): Bind "\C-\\" to its-exit-mode-no-egg. (its-exit-mode-internal): New argument egg-mode-flag. (its-exit-mode-no-egg): New Function. Rethink about keymap. Once, the intention of egg-mode-map has been to override ALL of the keymap. That's so selfish, and not friendly to other parts of Emacs. This implementation intend to be more friendly with other keymaps. * its.el (its-mode-map): Remove definition of "\C-c" for its-cancel-input, as C-c has special meaning in Emacs. We should not re-define it. Remove definition of "\C-q" for its-select-previous-map. Remove definition of "\C-_" for egg-jis-code-input. Remove definition of "\C-w", "\C-@", [?\C-\ ] for egg-henkan-fence-region. Implement START/CURSOR/END scheme. * its.el (its-input-to-vsyl): New function. (its-beginning-of-input-buffer): New function. (its-end-of-input-buffer): New function. (its-backward-SYL): New function. (its-forward-SYL): New function. (its-delete-SYL): New function. (its-delete-backward-SYL): New function. (its-delete-backward-SYL-internal): New function. (its-delete-backward-within-SYL): New function. (its-delete-by-keystroke): New Variable. (its-exit-mode): New function. (its-exit-mode-internal): New function. * its.el (its-standard-map-list, its-find, its-next-map, its-previous-map): Deleted. (its-get-indicator): Delete duplicated definition. Leave one which takes argument. (its-input): Rename from its-input-subsubsub. * egg.el (egg-mode-map): Don't include SPACE. Introduce CURSOR. * its.el (its-state-machine): Add new argument EMIT. Return CURSOR. (its-state-machine-keyseq): Likewise. (its-input-subsubsub): Return CURSOR. (its-input-subsub): Deleted. (its-DSYL-p): Deleted. (its-buffer-insert-SYL-list): Deleted. (its-buffer-ins/del-SYL): New function. (its-input-end): Change the argument to P of point, and return VOID. Change structure of . is normal . (its-new-map): Follow the change of structure. (its-get-indicator, its-set-indicator, its-reset-start-state): Likewise. (its-reset-start-state): Renamed from its-reset-start. Don't use , but introduce new scheme of SYL property. (its-change-t-to-nil, its-nil-index, its-bytes-between, its-delete-between, its-move-nil--->, its-move-nil-<--, its-move-nil-<--sub, its-move-nil-to-last, its-move-nil-to-first): Deleted. 1997-03-19 NIIBE Yutaka * its.el: Change the structure of DSYL. Same as . (its-input-subsub): Follow the change of structure. (its-make-DSYL): Deleted. (its-get-keyseq-cooked): New function. Swap the meaning of T/NIL of . Delete the structure of . (its-new-input-buffer): Deleted. (its-input-subsub): Remove the argument SYLP. (its-input, its-input-sub, its-init-text-properties): Deleted. Introduce START, END and CURSOR. 1997-03-19 NIIBE Yutaka Global-map should be used, for key sequence not defined by its-mode-map and/or egg-mode-map. Don't mask other maps. * its.el (its-mode-esc-map): Deleted. (its-mode-map): Include define-key of the esc-map here. * egg.el (egg-mode-esc-map): Deleted. (egg-mode-map): Include define-key of the esc-map here. 1997-03-18 NIIBE Yutaka * its.el (its-input): Rename from its-input-input-buffer. (its-state-machine): Handle END of input (key == -1). ITS minor mode deleted. It's implemented by local-map of text properties. (its-mode): Remove the variable. (its-mode): Remove the function. * its.el (): Change the order of list. (car sylp) is last entry of the list. (its-input-buffer): Deleted. It's now a member of text properties. (): Change the structure. Start state should have "" for keyseq. (its-get-start-state): Follow chage of the structure. (its-reset-start, its-set-indicator, its-get-indicator): Likewise. (its-new-state, its-new-map): Split from its-new-state/map. (its-make-map): Deleted. 1997-03-17 NIIBE Yutaka * its.el (its-buffer-insert-SYL-list): Use insert-and-inherit to inherit properties. (its-fence-overlay): Removed. Don't use overlay, as it has no information in undo-list. 1997-03-16 NIIBE Yutaka * its/hira.el ("n"): Use new feature END. ("ppy", "bby", "ddy", "jjy", "zzy", "ggy", "lly", "rry", "hhy", "cch", "tts", "tty", "ssh", "ssy", "kky"): its-defoutput. * its.el (its-defrule): Add argument END. (its-buffer-delete-SYL): Bug fix. Use length instead of string-width. 1997-03-15 NIIBE Yutaka * its.el (its-input-input-buffer): Implement the case of DSYL. 1997-03-14 NIIBE Yutaka * its.el (its-buffer-delete-SYL): Handle the case of NIL. * its/hira.el: Implement "kka" and others. Implemlement "N". (digit-characters, symbol-characters, downcase-alphabets, upcase-alphabets): Delete useless defvar-s. 1997-03-14 NIIBE Yutaka * its/hira.el ("roma-kana"): Follow change of implementation of state machine. Correct the abuse of the word "MODE". It seems that it's direct influence of "mode" in Emacs, but it's not mode at all. * its.el (its-map-alist): Renamed from its-mode-alist. (its-get-map): Renamed from its-get-mode-map. (its-set-map): Renamed from its-set-mode-map. (its-define-state-machine): Renamed from its-define-mode. (its-select-map-menu): Renamed from its-select-mode-menu. (its-select-map-from-menu): Renamed from its-select-mode-from-menu. (its-standard-map-list): Renamed from its-standard-modes. (its-next-map): Renamed from its-next-mode. (its-previous-map): Renamed from its-previous-mode. (its-select-map): Renamed from its-select-mode. (its-get-indicator): Renamed from its-get-mode-indicator. (its-select-map-from-menu): As it's not mode, don't need offer hooks. (its-next-map): Likewise. (its-previous-map): Likewise. (its-select-map): Likewise. Change the implementation of its-mode-alist. Name is in now. * its.el (its-get-mode-map): Just do assoc. (its-set-mode-map): Simplified. * its.el (its-get-indicator): Renamed from its-map-indicator. (its-set-indicator): Renamed from its-map-set-indicator. (its-get-start-state): Renamed from its-map-start. (its-new-state): Change the argunents. (its-map-set-start): Removed. (its-reset-start): New function. Remove old implemantation of translator. * its.el (its-resize, its-maps, its-actions, its-inputs, its-level, its-maxlevel, its-char-from-buff, its-interactive): Removed. (its-make-action, its-reset-maps, its-current-map, its-previous-map, its-level, its-enter-newlevel, its-reset-input, its-flush-input-before-point, its-peek-char, its-read-char): Removed. (its-push-char, its-ordinal-charp, its-delete-charp): Removed. (its-translate-region): Removed. (its-buff-s, its-buff-e): Removed. (its-state-terminalp): Removed. Remove selection of candidates in map, it's questionable to implement this feature with SYL. Might rethink in future. (its-make-menu-from-map-result, its-make-alist-from-map-result): Removed. (its-make-menu-from-map, its-make-menu-from-map*): Removed. (its-make-alist-from-map, its-make-alist-from-map*): Removed. (its-completing-read): Removed. (its-minibuffer-local-must-match-map, its-minibuffer-local-completion-map): Removed. (its-minibuffer-completion-help, car-string-lessp, its-temp-echo-area-contents): Removed. Implement SYL-based state machine. * its.el (its-input-buffer, its-barf-on-invalid-keyseq): New variables. (its-new-input-buffer): New function. (its-self-insert-char): New command. (its-initial-ISYL, its-make-DSYL, its-make-VSYL, its-input-input-buffer, its-input-input-buffer-sub, its-state-machine, its-state-machine-keyseq, its-buffer-delete-SYL, its-buffer-insert-SYL-list, its-get-next-state, its-get-ksa/b, its-get-keyseq, its-ksa-p, its-get-output): New function. (its-get-KAS): Removed. (its-get-state, its-get-action, its-set-action): Removed. (its-make-KAS, its-get-KAS): Removed. * its.el (its-defrule-sub): Merged into its-defrule. 1997-03-13 NIIBE Yutaka * its.el: (its-define-mode): Change the arguments. * its/zhuyin.el ("zhuyin"): Follow the changes of its-define-mode. * its/zenkaku.el ("zenkaku-downcase"): Likewise. * its/pinyin.el ("PinYin"): Likewise. * its/kata.el ("roma-kata"): Likewise. * its/kanainput.el ("kanainput"): Likewise. * its/hira.el ("roma-kana"): Likewise. * its/hankaku.el ("downcase"): Likewise. * its/hangul.el ("hangul"): Likewise. * its/han-kata.el ("roma-han-kata"): Likewise. * its.el (its-action-output, its-action-next, its-get-next-map, its-set-next-map): Removed. (its-make-next-state): New function. (its-make-state): Removed. * its.el (its-defrule-sub): Renamed from `its-defrule**'. * wnnfns.h: New file. Macros for WNN6 are defined here. * wnn6fns.c: New file. Moved from wnnfns.c for WNN6 specific functions. 1997-03-12 NIIBE Yutaka * wnnfns.c: cosmetic changes (indentation, commenting-out-style, and compare to Qnil, etc). Get rid of "register" qualifier. 1997-03-05 NIIBE Yutaka * its.el (its-define-mode): Change internal structure. Completely rewritten. (its-make-map): Function to make map. (its-make-state): New function. Make new state. (its-make-KAS): New function. Make Key-Action-State triad. (its-state-terminalp): New function. True when the state is terminal. (its-map-indicator, its-map-set-indicator,): Changed. (its-map-terminalp, its-map-incrementalp, its-map-set-incrementalp, its-map-alist, its-map-set-alist, its-map-action, its-map-set-action): Removed. (its-defrule-verbose): Deleted. Seems debug purpose variable. (its-make-map): Removed . It was useless space eater. (its-map-indicator, its-map-set-indicator, its-map-alist, its-map-set-alist, its-map-action, its-map-set-action): Follow the change. (its-define-mode): Likewise. (its-defrule**): Change the argument. Delete STATE. (its-defrule): Likewise. (its-map-state, its-map-set-state): Removed. : Changed the structure. Introduce , which is t on hangul-map, zhuyin-map, and kanainput-map. (its-define-mode): Change the arguments. INDICATOR and RESET is always required. Add new argument INCREMENTALP. * its/kanainput.el ("kanainput"): Use new API of its-define-mode. * its/hangul.el ("hangul"): Likewise. * its/zhuyin.el ("zhuyin"): Likewise. * its.el (its-make-terminal-state-sofar): Removed. (its-default-make-terminal-state): Removed. (its-make-terminal-state): Removed (its-make-non-terminal-state): Removed. Not used. (its-map-incrementalp, its-map-set-incrementalp): New functions. 1997-03-04 NIIBE Yutaka * its.el (its-defrule-conditional, its-defrule-conditional*): Removed. Evaluating cond clause at runtime is stupid. Rules should be determined at compile time, not at run time. (its-get-action): Simplified. It's always standard. (its-make-terminal-state-sofar): Likewise. (its-make-action): Renamed from its-make-standard-action. (its-standard-actionp): Removed. No use. (its-translate-region): Simplified. (its-map-topmap-p): Removed. No use. (its-simple-actionp, its-collect-simple-action): Removed. No use. (its-insert-output-string, its-display-status-string): Removed. It seemd these variables is to debug ITS itself. (its-translate-region): Simplified. * its/hira.el (".", ",", "n", "nn"): Rules should be determined at compile time. * its/han-kata.el: Likewise. * its/kata.el: Likewise. * its.el (its-make-standard-action): Simplified. (its-make-standard-action): Remove alternative output. (its-standard-actionp): Simplified. (its-action-next): Simplified. (its-select-alternative-output-menu): Removed. Not used at all. (its-select-alternative-output): Ditto. * its/han-kata.el, its/zenkaku.el, its/kata.el, its/kanainput.el, its/hira.el, its/hankaku.el: Add (require cl). * its.el (its-enable-double-n-syntax, its-use-kuten-for-period, its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): Declare here. Add prefix `its-'. ): (its-defrule, its-defrule*): Remove MAP argument. Merged into its-defrule. 1997-03-04 NIIBE Yutaka * its.el (its-completing-input-menu): Removed. Not used. (its-completing-input): Ditto. (its-translate-region): Remove (null action) clause. It's identical to 't' case. (its-map-supers): Deleted. (its-map-set-supers): Ditto. (its-get-next-map-locally): Deleted. (its-define-mode): Remove supers. (its-make-map): Likewise. (its-simulate-input): sref -> aref. add char-bytes -> +1. (its-defrule**): Likewise. (its-flush-input-before-point): Delete useless save-excursion. (its-push-char): Likewise. (its-translate-region): Likewise. * its/zhuyin.el (its-make-terminal-state): * its/kanainput.el (its-make-terminal-state): * its/hangul.el (its-make-terminal-state): Use its-make-terminal-state-sofar. * its/kanainput.el (its-make-terminal-state-kanainput): Removed. * its.el (its-make-terminal-state-sofar): Renamed. (was: its-make-terminal-state-hangul) * its/han-kata.el (its-select-hankaku-katakana): Renamed. (was: its:select-hankaku-katakana). * its.el (its-map-topmap-p, its-map-supers, its-map-set-supers, its-map-terminalp, its-map-state, its-map-set-state, its-map-indicator, its-map-set-indicator, its-map-action, its-map-set-action, its-map-alist, its-map-set-alist, its-get-action, its-action-output, its-action-next, its-get-next-map, its-get-next-map-locally, its-set-next-map, its-collect-simple-action, its-read-current-its-string, its-make-map): Add prefix 'its-'. * its.el (its-defrule-select-mode-temporally): Deleted. (its-select-mode-temporally): Deleted. (its-select-previous-mode): Deleted. * its/hira.el ("q", "Q"): Removed. * its.el (its-defrule**): Don't call coerce-internal-string. (map-state-string): Removed. (its-default-make-standard-non-terminal-state): Don't call map-state-string. * egg.el (characterp, coerce-internal-string, coerce-string): Removed. * its.el (its-insert-char): Deleted. (its-internal-mode-alist): Removed. (its-set-mode-map, its-define-mode): Remove internalp. (its-set-mode-indicator): Removed. * egg-fence.el (egg-fence-self-insert-command): Add prefix 'egg-'. * its.el (fence-self-insert-command): Move to egg-fence.el. * egg-fence.el (egg-exit-fence-mode): Renamed (egg-fence-exit-mode). (egg-enter-fence-mode-and-self-insert): Deleted. * egg.el (egg-quit-egg-mode): Deleted. * egg-misc.el (egg-fence-toggle-egg-mode): Add prefix 'egg-'. (egg-fence-toggle-egg-mode): beep -> ding. (global-map): bind C-\ to egg-enter-fence-mode. 1997-03-02 NIIBE Yutaka * egg-henkan.el: New file. Use new API (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi, egg-is-dai-bunsetu, bunsetu-suu, egg-hindo-update, egg-get-bunsetu-end). * wnn-egg.el: Move egg-henkan-* to egg-henkan.el. * wnn-egg.el (egg-startup-file-search-path): Remove current directory. (egg-open-wnn): Renamed from EGG-open-wnn. (bunsetu-suu): New function. (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi): New function. (egg-is-dai-bunsetu): New function. (egg-hindo-update): New function. (egg-get-bunsetu-end): New function. (egg-henkan-region, egg-gyaku-henkan-region, egg-henkan-region-internal, egg-henkan-paragraph, egg-gyaku-henkan-paragraph, egg-henkan-sentence, egg-gyaku-henkan-sentence, egg-henkan-word, egg-gyaku-henkan-word, egg-henkan-insert-kouho, egg-henkan-kakutei, egg-henkan-kakutei-first-char, egg-henkan-kakutei-before-point, egg-sai-henkan, egg-henkan-goto-bunsetu, egg-henkan-forward-bunsetu, egg-henkan-backward-bunsetu, egg-henkan-first-bunsetu, egg-henkan-last-bunsetu, egg-henkan-hiragana, egg-henkan-katakana, egg-henkan-next-kouho, egg-henkan-next-kouho-dai, egg-henkan-next-kouho-sho, egg-henkan-previous-kouho, egg-henkan-previous-kouho-dai, egg-henkan-previous-kouho-sho, egg-henkan-goto-kouho, egg-henkan-bunsetu-chijime-dai, egg-henkan-bunsetu-chijime-sho, egg-henkan-bunsetu-nobasi-dai, egg-henkan-saishou-bunsetu, egg-henkan-saichou-bunsetu, egg-bunsetu-length-henko, egg-henkan-quit, egg-henkan-select-kouho, egg-henkan-select-kouho-dai, egg-henkan-select-kouho-sho, egg-henkan-word-off, egg-henkan-kakutei-and-self-insert, egg-henkan-mode-map, egg-henkan-mode-esc-prefix, egg-henkan-help-command, egg-henkan-inspect-bunsetu): Add prefix `egg-'. (egg-henkan-mode-in-use): Deleted. (set-egg-henkan-mode-format): Deleted. Don't need. (disconnect-wnn): Let it be normal function, instead of command. (close-wnn): Ditto. (set-jserver-host-name, set-kserver-host-name, set-cserver-host-name): Use defalias. (close-wnn): Take an argument of wnn-server-type. (wnn-egg-kill-emacs-function, set-wnn-host-name, set-cwnn-host-name, set-kwnn-host-name): Likewise. * egg.el (egg-global-map-backup): Deleted. (egg-local-map-backup): Deleted. (egg-insert-after-hook): it's global variable, nod buffer-local. * egg-fence.el (egg-henkan-fence-region, egg-enter-fence-mode, egg-fence-katakana, egg-fence-hiragana, egg-fence-hankaku, egg-fence-zenkaku, egg-fence-backward-char, egg-fence-forward-char, egg-fence-beginning-of-line, egg-fence-end-of-line, egg-fence-transpose-chars, egg-fence-delete-char, egg-fence-backward-delete-char, egg-fence-kill-line, egg-fence-exit-mode, egg-fence-cancel-input, egg-fence-mode-help-command): Add Prefix `egg-'. (egg-fence-mode-map): Remove binding to eval-expression (C-z). (egg-self-insert-non-undo-count): Removed. (egg-self-insert-command): Removed. (egg-fence-backward-char, egg-fence-forward-char, egg-fence-transpose-chars, egg-fence-delete-char, egg-fence-backward-delete-char): beep -> ding. wnn-egg.el (egg-henkan-select-kouho): Likewise. 1997-02-27 NIIBE Yutaka * wnn-egg.el (push-end, push-end-internal): Removed. * its.el (dolist): Removed. It's in CL package. (for-each, for-each*): Removed. * egg-keymap.el: Removed. I guess noone use it. * egg-jsymbol.el (*-alist): Declare by defconst. * egg-misc.el (toggle-egg-mode): Removed. * All files: Change the identifier XXX:YYYY --> XXX-YYYY, and *YYY* ---> YYY. * egg-fence.el (enter-fence-mode): Use new API for marker insertion `set-marker-insertion-type'. * its.el (its-*buff-e*): Likewise. * egg-jsymbol.el: lc-jp --> (charset-id 'japanese-jisx0208) lc-jp2 --> (charset-id 'japanese-jisx0212). 1997-02-26 NIIBE Yutaka * egg-fence.el (egg:fence-mode-map): Renamed from fence-mode-map. (egg:fence-mode-esc-prefix): Renamed from egg:fence-mode-esc-map. (henkan-fence-region-or-single-space): Removed. * egg-misc.el (toggle-egg-mode): mc-flag -> enable-multibyte-characters. * its.el (read-current-its-string): New function. Moved from wnn-egg-misc.el. (In meny functions): beep --> ding. * egg-misc.el (read-hiragana-string): Removed. (read-kanji-string): Removed. (egg:special-symbol-input): Renamed from special-symbol-input. (egg:special-symbol-input-point): Renamed from special-symbol-input-point. (si:*global-map*): Remeved. Removed 'Changes on Global map'. (its-mode-map): Renamed from mule-keymap. * wnn-egg.el (henkan-region-internal): Use new API for undo. (henkan-kakutei): Likewise. (henkan-kakutei-first-char): Likewise. (henkan-kakutei-before-point): Likewise. (sai-henkan): Likewise. * egg.el (egg:quit-egg-mode): Likewise. * egg-fence.el (egg:*fence-open*, egg:*fence-close*, egg:*fence-face*): Let them be declared by defvar. (egg:*fence-open-in-cont*, egg:*fence-close-in-cont*, egg:*fence-face-in-cont*): Likewise. (set-egg-fence-mode-format): Removed. Useless. Don't need to be interactive. (set-egg-fence-mode-format-in-cont): Removed. (egg:*face-alist*): Removed. * wnn-egg-misc.el (its:select-mode, its:select-mode-from-menu, its:next-mode, its:previous-mode): Removed (Merged into its.el). * its.el (its:select-mode, its:select-mode-from-menu, its:next-mode, its:previous-mode): Call hook of `its:select-mode-hook'. * diced.el: Removed. This depends on wnn. Functions are moved to wnn-egg-dict.el. * wnn-egg-dict.el (remove-regexp-in-string): Removed. (toroku-region): Don't call `remove-regexp-in-string'. Removing invalid sequence (TAB?) automatically is not good idea. It should notify user. Currently, just don't remove. * busyu.el (busyu-table): defconst instead of defvar. (busyu-kaku-alist): defconst instead of defvar. * its.el (egg:member): Removed. Not used. * wnn-egg-msg.el (*egg-message-alist*): Include asking string in register-notify and remove-notify. Should also change Korean and Chinese. * egg.el: Removed "Tamago Notification System". It is useless, as we have *Messages* buffer in GNU Emacs 19. * diced.el (diced-execute): Don't use `notify' but `message'. (set-dict-comment): Likewise. * its.el (its-defrule**): Likewise. * wnn-egg-dict.el (egg:toroku-word): Likewise. * wnn-egg-msg.el (egg:error): Likewise. * wnn-egg.el (set-wnn-param): Likewise. (EGG:open-wnn): Likewise. (close-wnn): Likewise. (henkan-word-off): Likewise. (henkan-inspect-bunsetu): Likewise. * diced.el (diced-execute): Don't use `notify-yes-or-no-p' but use plain `yes-or-no-p' and format. * wnn-egg-dict.el (egg:toroku-word): Likewise. * egg.el (notify-yes-or-no-p-internal): IIDESUKA is not good. it should get the message through egg:get-msg. Currently, use "OK?". (notify-y-or-n-p-internal): Likewise. * wnn-egg.el: Split into wnn-egg-dict.el, wnn-egg-misc.el, and wnn-egg-msg.el. (many functions): remove commented out line of (open-wnn-if-disconnected). * egg.el: Split into egg.el, egg-fence.el, egg-misc.el, jis-input.el, and modeline.el. * wnn-egg.el (egg-default-startup-file): change to eggrc-wnn from eggrc. (henkan-region-internal): Use new API for marker insertion `set-marker-insertion-type'. 1997-02-13 NIIBE Yutaka * menu.el (menu:select-from-menu): Rewritten. egg-4.0.6+0.20041122cvs/ChangeLog.2000-20010000644000764400003210000002715207532267175020206 0ustar ishikawaishikawa000000000000002001-12-01 ? * egg/wnn.el (wnn-server-info-list): Use `defvar' instead of `defconst' to define it. 2001-12-01 KATAYAMA Yoshio * egg-x0213.el: New file. 2001-11-10 Kinji Itoh (cf. http://cgi18.plala.or.jp/nyy/canna/canna-20011023-20011110.diff) * egg/canna.el (canna-server-port): Default to the string "canna". (cannna-open): Treat the port name as a string instead of a number. 2001-11-08 Kinji Itoh (cf. [tamago:00546]) * egg/canna.el (canna-set-converted-yomi): New function. (canna-start-conversion): Use it. (canna-change-bunsetsu-length): Use it. 2001-10-22 Yoichi NAKAYAMA (cf. [tamago:00534]) * egg/canna.el (canna-word-delete-regist): Signal an error using `egg-error' if there is no text for yomi. 2001-08-16 KATAYAMA Yoshio (cf. [tamago:00516]) * its/greek.el: New file. 2001-07-24 KATAYAMA Yoshio (cf. [tamago:00504]) * eggrc (wnn7-jserver-setup): New function. 2001-06-28 Yoshiki Hayashi (cf. [tamago:00468]) * egg-cnv.el (egg-end-of-conversion-buffer): Replace `next-single-property-change' to `egg-next-single-property-change'. (egg-decide-before-point): Ditto. (egg-exit-conversion): Ditto. (egg-abort-conversion): Ditto. * egg.el (egg-last-method-name): Default to nil. * its-keydef.el: Set the default value of `its-select-func-alist' to nil. * its.el (its-current-language): Default to nil. (its-mode-map): Use `(meta KEY)' instead of `M-KEY'. * egg/canna.el (canna-open): Use `binary' instead of `no-conversion' for the process coding-system. * egg/sj3.el (sj3-open): Ditto. * egg/wnn.el (wnn-open): Ditto. * egg/wnnrpc.el (wnnrpc-with-temp-buffer): Use `binary' instead of `no-conversion'. (wnnrpc-with-write-file): Ditto. 2001-05-24 KATAYAMA Yoshio (cf. [tamago:00462]) * its/aynu.el: Require `cl' when compiling. 2001-05-23 Katsumi Yamaoka (cf. [tamago:00461]) * egg.el: Require `cl' only when compiling. * its.el: Ditto. 2001-05-22 KATAYAMA Yoshio * its.el (its-delete-by-character): New customizable variable. (its-delete-backward-SYL): Delete a character as a unit even if just after input, if its-delete-by-character is non-NIL. 2001-04-16 KATAYAMA Yoshio * egg.el (egg-setup-invisibility-spec): New function for setup buffer-invisibilty-spec. * its.el (its-setup-fence-mode): Change the value of invisible property to egg. * egg-cnv.el (egg-convert-region): Change the value of invisible property to egg. * jisx0213.el: Correct JIS X 0213 definition. (suggested by T. Kawabata) 2000-06-02 KATAYAMA Yoshio * egg/wnn.el (wnn): Fix docstring. (wnn-backend-plist): Include egg-special-candidate. (wnn-special-candidate): New function. (wnn-pinyin-zhuyin-bunsetsu, wnn-pinyin-zhuyin-string): New functions. (egg-activate-wnn): Fix docstring. * egg/sj3.el (sj3, egg-activate-sj3): Fix docstring. * egg/canna.el (egg-activate-canna): Fix docstring. * menudiag.el: Mostly rewritten. * leim-list.el: Docstrings for autoload fixed. * its.el (its): Fix docstring. (its-mode-map): Fix bindings. (its-fence-mode, egg-sub-mode-map-alist): New variables. (its-enter/leave-fence): New function. (its-put-cursor): Add text properties point-entered, point-left, modification-hooks. (its-in-fence-p): Check also read-only property. (its-hiragana, its-katakana): Just call its-convert. (its-hankaku, its-japanese-hankaku): These functions deleted. (its-full-half-table, its-half-full-table): New variables. Initialize them. (its-half-width, its-full-width): New functions. (its-convert): Args changed. * its-keydef.el (its-make-select-func): Add check by (egg-conversion-fence-p). * egg.el (egg): Fix docstring. (egg-current-keymap): This variable deleted. (egg-mode-map-alist, egg-sub-mode-map-alist): New variables. (define-egg-mode-map): New macro. (modefull, modeless): New egg mode maps. (egg-enter/leave-fence-hook): New variable. (egg-enter/leave-fence): New function. (egg-activated): New variable. (egg-activate-keymap): New variable. (egg-modify-fence, egg-post-command-func): New functions. (egg-change-major-mode-buffer): New variable. (egg-activate-keymap-after-command, egg-change-major-mode-func): New functions. (egg-mode): Initialize egg-modefull-mode, egg-modeless-mode. (egg-modefull-map, egg-modeless-map): These functions deleted. (egg-set-face): Preserve the current modification-hooks property. * egg-com.el (ccl-decode-egg-binary): Fix BUFFER-MAGNIFICATION. (ccl-encode-egg-binary): Likewise. * egg-cnv.el (egg-conv): Fix docstring. (egg-conversion-auto-candidate-menu): Fix docstring. (egg-conversion-auto-candidate-menu-show-all): New variable. (egg-conversion-sort-by-converted-string): New variable. (egg-conversion-fence-p): New function. (egg-define-backend-functions): Include egg-special-candidate. (egg-conversion-map): Define up, down, etc. (egg-conversion-mode): New variable. Register it in egg-sub-mode-map-alist. (egg-conversion-enter/leave-fence): New function. Register it in egg-enter/leave-fence-hook. (egg-exit-conversion-unread-char): Use single setq. (egg-make-bunsetsu): Add text properties point-entered and point-left. (egg-set-menu-mode-in-use, egg-unset-menu-mode-in-use) (egg-set-candsel-info): Args changed. (egg-get-candsel-target-major): Code changed. (egg-get-candsel-target-minor): Code changed. (egg-insert-new-bunsetsu): Args changed. (egg-candidate-select-counter): Make it buffer local. (egg-next-candidate-internal): Args changed. (egg-sort-item): New functions. (egg-select-candidate-major): New arg SORT. (egg-select-candidate-minor, egg-select-candidate-list-all-major) (egg-select-candidate-list-all-minor) (egg-select-candidate-internal): Likewise. (egg-hiragana): New function. (egg-katakana, egg-pinyin, egg-zhuyin, egg-hangul): Aliases of egg-hiragana. (egg-special-convert): New function. (egg-enlarge-bunsetsu-internal): Code changed. (egg-reconvert-bunsetsu-internal, egg-decide-before-point) (egg-decide-first-char, egg-exit-conversion) (egg-abort-conversion): Likewise. 2000-02-01 Takanori Saneto * egg/sj3rpc.el (sj3rpc-tanbunsetsu-conversion): should use let* instead of let. 2000-01-20 Katsumi Yamaoka * egg/sj3.el (sj3-word-registration): New function. (sj3-hinshi-select): New function. (sj3-dictionary-select): New function. (sj3-conversion-backend): Add `sj3-word-registration'. (sj3-hinshi-name): New function. (sj3-hinshi-menu): New variable. (sj3-register-2, sj3-register-1): Add messages. (sj3-server-coding-system-list): Remove. (sj3-server-version): Move to egg/sj3rpc.el. (sj3-server-port, sj3-hostname): Strip "*" from the doc string. * egg/sj3rpc.el (sj3rpc-add-word): New function. (sj3rpc-kugiri-stdy, sj3rpc-get-bunsetsu-candidates): Use `sj3-server-coding-system' insted of `sj3rpc-server-coding-system'. (sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates-sub, sj3rpc-begin): Use `sj3-server-coding-system' insted of `sj3rpc-server-coding-system'; don't specify an argument of `sj3rpc-unpack-mb-string'. (sj3rpc-unpack-mb-string): Don't allow the argument; use `sj3rpc-server-coding-system'. (sj3rpc-server-coding-system): Remove macro. (sj3-const): Switch on the return value of `sj3-sjis-p' instead of `sj3-server-version'. (sj3-sjis-p): New macro. (sj3-server-coding-system): New variable; default to `shift_jis'. (sj3-server-version): Move from egg/sj3.el; use `defvar' insted of `defcustom'. * eggrc: Remove SJ3 stuff. 2000-01-17 TOMURA Satoru * Version 4.0.6 released 2000-01-17 TOMURA Satoru * README.ja.text: mentiond about doc/lc99.text 2000-01-17 KATAYAMA Yoshio * its.el (its-hiragana, its-katanaka): modified (its-zenkaku, its-hankaku): added (its-put-cursor): bug fixed. (its-set-cursor-status): redefined. (its-search-beginning, its-search-end): created. (its-end-of-input-buffer): modified. (its-kill-line): modified. (its-cancel-input): modified. (its-japanese-hankaku): added. (its-convert): added. * egg.el (egg-redraw-face): bug fixed. 2000-01-17 SAKAI Kiyotaka * its.el (its-hiragana, its-katakana): re-added. 2000-01-17 SANETO Takanori * Makefile.in: move its-keydefs.el from ITSELS to TOPELS 2000-01-16 * egg-sim.el: many functions renamed and modified... * doc/code-table: created 2000-01-15 TOMURA Satoru * egg-sim.el: rename egg-code.el as egg-sim.el * egg-sim.el (egg-simple-input-method): rename egg-insert-character as egg-simple-input-method * egg.el: rename egg-insert-character as egg-simple-input-method * doc/lc99.txt: added. 2000-01-14 TOMURA Satoru * egg-code.el: created * egg.el: Bind egg-insert-character to C-^ in egg-mode * egg.el: Delete the binding for C-_ in egg-mode * Makefile.in: add egg-code to ${SRCS} 2000-01-13 TOMURA Satoru * Version 4.0.5 released. 2000-01-13 Katsumi Yamaoka * egg/sj3.el (sj3-end-conversion): Restrain from overrunning. 2000-01-13 Katsumi Yamaoka * egg/sj3rpc.el (sj3rpc-open): Use `sj3-server-version' instead of 2. (sj3rpc-unpack-mb-string): New macro. (sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates-sub, sj3rpc-begin): Use it instead of `comm-unpack'. (sj3rpc-server-coding-system): New macro. (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, sj3rpc-begin, sj3rpc-unpack-mb-string): Use it. (sj3-const): Switch on the value of `sj3-server-version'. (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, sj3rpc-begin): Modify for it. * egg/sj3.el (sj3-server-coding-system-list): New user option. (sj3-server-version): Ditto. 2000-01-13 SAKAI Kiyotaka * its.el: typo * egg.el: typo 2000-01-13 KATAYAMA Yoshio * its.el(its-hiragana, its-katakana): does not work. so deleted. 2000-01-12 NAKAJI Hiroyuki * README.ja.txt: typo * Makefile.in: (clean, distclean): modified. 2000-01-12 TOMURA Satoru * Version 4.0.4 released. 2000-01-12 TOMURA Satoru * REAMDE: removed. * README.ja.txt: created. 2000-01-12 SAKAI Kiyotaka * Makefile.in: "clean" removes ${ELCS}. * Makefile.in: "distclean" created. 2000-01-12 Satoru Tomura * Version 4.0.3 released. 2000-01-12 Satoru Tomura * install-sh: copied from automake distribution * configure.in: created * Makefile.in: created * configure: generated by autoconf 2000-01-11 Satoru Tomura * leim-list.el: (defgroup sj3) added. * egg/sj3.el (sj3-hosname, sj3-server-port): defcusotm'ed 2000-01-11 Katsumi Yamaoka * egg/sj3.el : (require 'egg) added. 2000-01-11 SAKAI Kiyotaka * its.el (its-hiragana, its-katakana): New functions 2000-01-07 Tomura Satoru * COPYING: The file is added. * ChangeLog.1: The original ChangeLog is renamed as. * ChangeLog: Created. 2000-01-07 Tomura Satoru * Version 4.0.2 released. 2000-01-06 Tomura Satoru * Version 4.0.1 released. 2000-01-05 Tomura Satoru * Version 4.0.0 released. egg-4.0.6+0.20041122cvs/Makefile.in0000644000764400003210000000640410150162021017504 0ustar ishikawaishikawa00000000000000# Makefile --- Makefile of EGG V4.0 # Copyright (C) 1999, 2000 Free Software Foundation, Inc # Author: NIIBE Yutaka # TOMURA Satoru # Maintaner: Satoru Tomura .SUFFIXES: SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ #------------------------------------------------ # Configuration parameters #------------------------------------------------ # emacs you use EMACS = emacs # emacs lisp installation directory lispdir = @lispdir@ #------------------------------------------------ prefix = @prefix@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_INFO = install-info #--------------------------------------- # (1) make # ;; compile *.el files # (2) make install # ;; install files into the emacs site-lisp directory # ;; ex. /usr/local/share/emacs/site-lisp/egg DEPS = -l $(top_srcdir)/docomp.el BATCHFLAGS = -batch -q -no-site-file -no-init-file ETCS = Makefile docomp.el \ AUTHORS ChangeLog README TODO PROBLEMS INITELS = eggrc leim-list.el SRCS = ${TOPSRCS} ${EGGSRCS} ${ITSSRCS} TOPSRCS = \ egg.el \ egg-edep.el \ egg-com.el \ egg-cnv.el \ egg-mlh.el \ egg-sim.el \ menudiag.el \ its.el \ its-keydef.el \ # EGGSRCS = \ egg/cannarpc.el egg/canna.el \ egg/sj3rpc.el egg/sj3.el \ egg/wnnrpc.el egg/wnn.el \ egg/anthyipc.el egg/anthy.el # AYNU = @HAVE_JISX0213@ its/aynu.el ITSSRCS = \ its/ascii.el \ its/bixing.el \ its/erpin.el \ its/greek.el \ its/hankata.el \ its/hira.el \ its/jeonkak.el \ its/pinyin.el \ its/hangul.el \ its/kata.el \ its/thai.el \ its/quanjiao.el \ its/zenkaku.el \ its/zhuyin.el \ its/jiskana.el \ ${AYNU} # ELCS = ${SRCS:.el=.elc} TOPELCS = ${TOPSRCS:.el=.elc} EGGELCS = ${EGGSRCS:.el=.elc} ITSELCS = ${ITSSRCS:.el=.elc} DIST = ${ETCS} ${SRCS} ${INITELS} all: ${ELCS} .SUFFIXES: .el .elc .el.elc: ${EMACS} ${BATCHFLAGS} ${DEPS} -f batch-byte-compile $< clean: rm -f ${ELCS} *~ */*~ \#* .\#* */\#* */.\#* distclean: rm -f ${ELCS} config.* Makefile install: install-site install-site: all echo "Egg system will be installed in ${lispdir}/egg...."; \ if [ -d ${lispdir}/egg ]; then \ echo "Clean up the previsous installation...."; \ rm -rf ${lispdir}/egg/*; \ else \ echo "Make the directory ${lispdir}/egg..."; \ mkdir ${lispdir}/egg; \ fi; \ # for FILE in ${TOPSRCS} ${TOPELCS} ${INITELS}; \ do \ ${INSTALL_DATA} $${FILE} ${lispdir}/egg/; \ done; \ # mkdir ${lispdir}/egg/egg ; \ for FILE in ${EGGSRCS} ${EGGELCS} ; \ do \ ${INSTALL_DATA} $${FILE} ${lispdir}/egg/egg; \ done; \ touch ${lispdir}/egg/egg/.nosearch; \ # mkdir ${lispdir}/egg/its ; \ for FILE in ${ITSSRCS} ${ITSELCS} ; \ do \ ${INSTALL_DATA} $${FILE} ${lispdir}/egg/its ; \ done; \ touch ${lispdir}/egg/its/.nosearch; \ uninstall-site: if [ -d ${lispdir}/egg ]; then \ rm -rf ${lispdir}/egg; \ fi # DEPENDENCIES egg/sj3rpc.elc: egg-com.elc egg/sj3.elc egg/wnnrpc.elc: egg-com.elc egg/wnn.elc egg.elc its/ascii.elc its/aynu.elc its/erpin.elc its/greek.elc \ its/hankata.elc its/hira.elc its/jeonkak.elc its/pinyin.elc \ its/hangul.elc its/kata.elc its/quanjiao.elc \ its/zenkaku.elc its/zhuyin.elc: its-keydef.elc egg-4.0.6+0.20041122cvs/PROBLEMS0000644000764400003210000000013007234613504016613 0ustar ishikawaishikawa00000000000000* describe-bindings * C-k (egg-decide-before-point) * HIRAGANA & KATAKANA candidates egg-4.0.6+0.20041122cvs/README.ja.txt0000644000764400003210000000362207234613643017551 0ustar ishikawaishikawa00000000000000 Tamago Version 4 NIIBE Yutaka KATAYAMA Yoshio TOMURA Satoru $B!V$?$^$4Bh(B4$BHG!W(B(Tamago 4)$B$r8x3+$7$^$9!#;HMQ5vBz>r7o$O(B GPL $B$G$9!#$9$Y$F(B $B$N%=!<%9$,(B Emacs Lisp $B$G!"$=$NB>(B Tamago $B$K4X$9$k5DO@$K;22C$7$?$$J}$r$*BT(B $B$A$7$F$$$^$9!#(B Tamago mailing list $B$K;22C4uK>$NJ}$O(B tamago-ctl@m17n.org $B08$K%a%$%k$N(B $BK\J8$K!!(B subscribe $B$"$J$?$NL>A0(B $B$N0l9T$r=q$$$?(B mail $B$r$*Aw$j$/$@$5$$!#(B $B$=$N8e!"3NG'$N(B mail $B$rFO$-$^$9(B $B$N$G!"$=$N(B mail $B$NCf$K$"$k(B confirm PASSWORD $B$"$J$?$NL>A0(B $B$N#19T$rK\J8$K$7$FJV;v$rAw$C$F$/$@$5$$!#(B $B;29M;qNA$H$7$FJR;3$5$s$,(B Linux Conference 99 $B$GH/I=$7$?(B Egg V4 (Egg Next Generation) $B$r%F%-%9%H%U%!%$%k$K$7$?$b$N$r(B doc/lc99.text $B$NCV$-$^(B $B$7$?!#$4Mw2<$5$$!#(B From Tamago 4 $B4IM}?M(B $B8MB<(B $BE/!J$H$`$i(B $B$5$H$k!K(B $B")(B305-8568 $B0q>k8)$D$/$P;TG_1`(B1-1-4 $BEE;R5;=QAm9g8&5f=j(B $B>pJs%"!<%-%F%/%A%cIt(B E-mail: tomura@etl.go.jp Phone: 0298-54-5887 FAX: 0298-54-5891 egg-4.0.6+0.20041122cvs/TODO0000644000764400003210000000251407234613504016145 0ustar ishikawaishikawa00000000000000backend assoc-list toroku-region (1) Use customize. (2) Implement user entries which were defined in EGG V3. (3) Packaging (4) Modeless Framework (5) LEIM (7) Portability (Implementation) Event/Char/Integer is different. (8) Quail Integration Something like egg-use-backend, its-use-package MENU: Incrementally generate . Provide programming interface of the data structure . MLH: Rewrite & clean up. Emacs/Quail Interface: Restrict switching language Synchronize backend/frontend language ITS: Kill, yank, delete with kill-ring in INPUT-BUFFER. Editing within a VSYL. transpose-chars Use of macro/subst. Implement following functions. its-cancel-input its-mode-help-command its-kill-line its-hiragana (input-buffer) its-katakana its-hankaku its-zenkaku its-read-current-its-string overwrite-mode, fill, vi emulator The way of customizing its-mode-map. Help-command muhenkan EGG/ITS: Katakana input support. Kanainput support. Chinese/Korean support. map change --> server select. Consider about API CONVERT: Semantics of open and close decide-first-char Consistency with other commands (delete, yank...) Help command WNN: Support Wnn6 when it becomes Free Software. WNNRPC: Chinese/Korean support. BUG: convert.el |xxxxxxx| ^---- when cursor comes on this fence-end. egg-4.0.6+0.20041122cvs/check-jisx0213.el0000644000764400003210000000011107537060342020326 0ustar ishikawaishikawa00000000000000(if (charsetp 'japanese-jisx0213-1) (kill-emacs 0) (kill-emacs 1)) egg-4.0.6+0.20041122cvs/configure0000755000764400003210000007503707537216502017401 0ustar ishikawaishikawa00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.13 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. ac_max_here_lines=12 ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.13" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set these to C if already set. These must not be set unconditionally # because not all systems understand e.g. LANG=C (notably SCO). # Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! # Non-C LC_CTYPE values break the ctype check. if test "${LANG+set}" = set; then LANG=C; export LANG; fi if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=egg.el # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross ac_exeext= ac_objext=o if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi ac_aux_dir= for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break fi done if test -z "$ac_aux_dir"; then { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; } fi ac_config_guess=$ac_aux_dir/config.guess ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 echo "configure:557: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" for ac_dir in $PATH; do # Account for people who put trailing slashes in PATH elements. case "$ac_dir/" in /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do if test -f $ac_dir/$ac_prog; then if test $ac_prog = install && grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : else ac_cv_path_install="$ac_dir/$ac_prog -c" break 2 fi fi done ;; esac done IFS="$ac_save_IFS" fi if test "${ac_cv_path_install+set}" = set; then INSTALL="$ac_cv_path_install" else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL="$ac_install_sh" fi fi echo "$ac_t""$INSTALL" 1>&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 echo "configure:610: checking whether ${MAKE-make} sets \${MAKE}" >&5 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftestmake <<\EOF all: @echo 'ac_maketemp="${MAKE}"' EOF # GNU make sometimes prints "make[1]: Entering...", which would confuse us. eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` if test -n "$ac_maketemp"; then eval ac_cv_prog_make_${ac_make}_set=yes else eval ac_cv_prog_make_${ac_make}_set=no fi rm -f conftestmake fi if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then echo "$ac_t""yes" 1>&6 SET_MAKE= else echo "$ac_t""no" 1>&6 SET_MAKE="MAKE=${MAKE-make}" fi echo $ac_n "checking jisx0213""... $ac_c" 1>&6 echo "configure:642: checking jisx0213" >&5 if emacs -batch -q -no-site-file -no-init-file -l ${srcdir}/check-jisx0213.el; then echo "yes"; HAVE_JISX0213="" else echo "no"; HAVE_JISX0213="# " fi lispdir=${datadir}/emacs/site-lisp trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. cat > conftest.defs <<\EOF s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g s%\[%\\&%g s%\]%\\&%g s%\$%$$%g EOF DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` rm -f conftest.defs # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.13" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir ac_given_INSTALL="$INSTALL" trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@SHELL@%$SHELL%g s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@FFLAGS@%$FFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g s%@INSTALL_DATA@%$INSTALL_DATA%g s%@SET_MAKE@%$SET_MAKE%g s%@HAVE_JISX0213@%$HAVE_JISX0213%g s%@lispdir@%$lispdir%g CEOF EOF cat >> $CONFIG_STATUS <<\EOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. ac_file=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_cmds # Line after last line for current file. ac_more_lines=: ac_sed_cmds="" while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file else sed "${ac_end}q" conftest.subs > conftest.s$ac_file fi if test ! -s conftest.s$ac_file; then ac_more_lines=false rm -f conftest.s$ac_file else if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f conftest.s$ac_file" else ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" fi ac_file=`expr $ac_file + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_cmds` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac case "$ac_given_INSTALL" in [/$]*) INSTALL="$ac_given_INSTALL" ;; *) INSTALL="$ac_dots$ac_given_INSTALL" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g s%@INSTALL@%$INSTALL%g " $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file fi; done rm -f conftest.s* EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 egg-4.0.6+0.20041122cvs/configure.in0000644000764400003210000000116007537216502017765 0ustar ishikawaishikawa00000000000000dnl Process this file with autoconf to produce a configure script. AC_INIT(egg.el) dnl Checks for programs. AC_PROG_INSTALL AC_PROG_MAKE_SET dnl Checks for libraries. dnl Checks for header files. dnl Checks for typedefs, structures, and compiler characteristics. dnl Checks for library functions. dnl check if jisx0213 is supported or not AC_MSG_CHECKING(jisx0213) if emacs -batch -q -no-site-file -no-init-file -l ${srcdir}/check-jisx0213.el; then echo "yes"; HAVE_JISX0213="" else echo "no"; HAVE_JISX0213="# " fi AC_SUBST(HAVE_JISX0213) lispdir=${datadir}/emacs/site-lisp AC_SUBST(lispdir) AC_OUTPUT(Makefile) egg-4.0.6+0.20041122cvs/doc/0000755000764400003210000000000007235131131016210 5ustar ishikawaishikawa00000000000000egg-4.0.6+0.20041122cvs/doc/code-table/0000755000764400003210000000000010150266620020211 5ustar ishikawaishikawa00000000000000egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-1.text0000644000764400003210000000232607234613643022477 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-1 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/euc-cn.text0000644000764400003210000013073307234613644022313 0ustar ishikawaishikawa00000000000000;;; -*- coding: euc-cn -*- | 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 -+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 01| "¡¡" "¡¢" "¡£" "¡¤" "¡¥" "¡¦" "¡§" "¡¨" "¡©" "¡ª" "¡«" "¡¬" "¡­" "¡®" "¡¯" "¡°" "¡±" "¡²" "¡³" "¡´" "¡µ" "¡¶" "¡·" "¡¸" "¡¹" "¡º" "¡»" "¡¼" "¡½" "¡¾" "¡¿" "¡À" "¡Á" "¡Â" "¡Ã" "¡Ä" "¡Å" "¡Æ" "¡Ç" "¡È" "¡É" "¡Ê" "¡Ë" "¡Ì" "¡Í" "¡Î" "¡Ï" "¡Ð" "¡Ñ" "¡Ò" "¡Ó" "¡Ô" "¡Õ" "¡Ö" "¡×" "¡Ø" "¡Ù" "¡Ú" "¡Û" "¡Ü" "¡Ý" "¡Þ" "¡ß" "¡à" "¡á" "¡â" "¡ã" "¡ä" "¡å" "¡æ" "¡ç" "¡è" "¡é" "¡ê" "¡ë" "¡ì" "¡í" "¡î" "¡ï" "¡ð" "¡ñ" "¡ò" "¡ó" "¡ô" "¡õ" "¡ö" "¡÷" "¡ø" "¡ù" "¡ú" "¡û" "¡ü" "¡ý" "¡þ" 02| "¢¡" "¢¢" "¢£" "¢¤" "¢¥" "¢¦" "¢§" "¢¨" "¢©" "¢ª" "¢«" "¢¬" "¢­" "¢®" "¢¯" "¢°" "¢±" "¢²" "¢³" "¢´" "¢µ" "¢¶" "¢·" "¢¸" "¢¹" "¢º" "¢»" "¢¼" "¢½" "¢¾" "¢¿" "¢À" "¢Á" "¢Â" "¢Ã" "¢Ä" "¢Å" "¢Æ" "¢Ç" "¢È" "¢É" "¢Ê" "¢Ë" "¢Ì" "¢Í" "¢Î" "¢Ï" "¢Ð" "¢Ñ" "¢Ò" "¢Ó" "¢Ô" "¢Õ" "¢Ö" "¢×" "¢Ø" "¢Ù" "¢Ú" "¢Û" "¢Ü" "¢Ý" "¢Þ" "¢ß" "¢à" "¢á" "¢â" "¢ã" "¢ä" "¢å" "¢æ" "¢ç" "¢è" "¢é" "¢ê" "¢ë" "¢ì" "¢í" "¢î" "¢ï" "¢ð" "¢ñ" "¢ò" "¢ó" "¢ô" "¢õ" "¢ö" "¢÷" "¢ø" "¢ù" "¢ú" "¢û" "¢ü" "¢ý" "¢þ" 03| "£¡" "£¢" "££" "£¤" "£¥" "£¦" "£§" "£¨" "£©" "£ª" "£«" "£¬" "£­" "£®" "£¯" "£°" "£±" "£²" "£³" "£´" "£µ" "£¶" "£·" "£¸" "£¹" "£º" "£»" "£¼" "£½" "£¾" "£¿" "£À" "£Á" "£Â" "£Ã" "£Ä" "£Å" "£Æ" "£Ç" "£È" "£É" "£Ê" "£Ë" "£Ì" "£Í" "£Î" "£Ï" "£Ð" "£Ñ" "£Ò" "£Ó" "£Ô" "£Õ" "£Ö" "£×" "£Ø" "£Ù" "£Ú" "£Û" "£Ü" "£Ý" "£Þ" "£ß" "£à" "£á" "£â" "£ã" "£ä" "£å" "£æ" "£ç" "£è" "£é" "£ê" "£ë" "£ì" "£í" "£î" "£ï" "£ð" "£ñ" "£ò" "£ó" "£ô" "£õ" "£ö" "£÷" "£ø" "£ù" "£ú" "£û" "£ü" "£ý" "£þ" 04| "¤¡" "¤¢" "¤£" "¤¤" "¤¥" "¤¦" "¤§" "¤¨" "¤©" "¤ª" "¤«" "¤¬" "¤­" "¤®" "¤¯" "¤°" "¤±" "¤²" "¤³" "¤´" "¤µ" "¤¶" "¤·" "¤¸" "¤¹" "¤º" "¤»" "¤¼" "¤½" "¤¾" "¤¿" "¤À" "¤Á" "¤Â" "¤Ã" "¤Ä" "¤Å" "¤Æ" "¤Ç" "¤È" "¤É" "¤Ê" "¤Ë" "¤Ì" "¤Í" "¤Î" "¤Ï" "¤Ð" "¤Ñ" "¤Ò" "¤Ó" "¤Ô" "¤Õ" "¤Ö" "¤×" "¤Ø" "¤Ù" "¤Ú" "¤Û" "¤Ü" "¤Ý" "¤Þ" "¤ß" "¤à" "¤á" "¤â" "¤ã" "¤ä" "¤å" "¤æ" "¤ç" "¤è" "¤é" "¤ê" "¤ë" "¤ì" "¤í" "¤î" "¤ï" "¤ð" "¤ñ" "¤ò" "¤ó" "¤ô" "¤õ" "¤ö" "¤÷" "¤ø" "¤ù" "¤ú" "¤û" "¤ü" "¤ý" "¤þ" 05| "¥¡" "¥¢" "¥£" "¥¤" "¥¥" "¥¦" "¥§" "¥¨" "¥©" "¥ª" "¥«" "¥¬" "¥­" "¥®" "¥¯" "¥°" "¥±" "¥²" "¥³" "¥´" "¥µ" "¥¶" "¥·" "¥¸" "¥¹" "¥º" "¥»" "¥¼" "¥½" "¥¾" "¥¿" "¥À" "¥Á" "¥Â" "¥Ã" "¥Ä" "¥Å" "¥Æ" "¥Ç" "¥È" "¥É" "¥Ê" "¥Ë" "¥Ì" "¥Í" "¥Î" "¥Ï" "¥Ð" "¥Ñ" "¥Ò" "¥Ó" "¥Ô" "¥Õ" "¥Ö" "¥×" "¥Ø" "¥Ù" "¥Ú" "¥Û" "¥Ü" "¥Ý" "¥Þ" "¥ß" "¥à" "¥á" "¥â" "¥ã" "¥ä" "¥å" "¥æ" "¥ç" "¥è" "¥é" "¥ê" "¥ë" "¥ì" "¥í" "¥î" "¥ï" "¥ð" "¥ñ" "¥ò" "¥ó" "¥ô" "¥õ" "¥ö" "¥÷" "¥ø" "¥ù" "¥ú" "¥û" "¥ü" "¥ý" "¥þ" 06| "¦¡" "¦¢" "¦£" "¦¤" "¦¥" "¦¦" "¦§" "¦¨" "¦©" "¦ª" "¦«" "¦¬" "¦­" "¦®" "¦¯" "¦°" "¦±" "¦²" "¦³" "¦´" "¦µ" "¦¶" "¦·" "¦¸" "¦¹" "¦º" "¦»" "¦¼" "¦½" "¦¾" "¦¿" "¦À" "¦Á" "¦Â" "¦Ã" "¦Ä" "¦Å" "¦Æ" "¦Ç" "¦È" "¦É" "¦Ê" "¦Ë" "¦Ì" "¦Í" "¦Î" "¦Ï" "¦Ð" "¦Ñ" "¦Ò" "¦Ó" "¦Ô" "¦Õ" "¦Ö" "¦×" "¦Ø" "¦Ù" "¦Ú" "¦Û" "¦Ü" "¦Ý" "¦Þ" "¦ß" "¦à" "¦á" "¦â" "¦ã" "¦ä" "¦å" "¦æ" "¦ç" "¦è" "¦é" "¦ê" "¦ë" "¦ì" "¦í" "¦î" "¦ï" "¦ð" "¦ñ" "¦ò" "¦ó" "¦ô" "¦õ" "¦ö" "¦÷" "¦ø" "¦ù" "¦ú" "¦û" "¦ü" "¦ý" "¦þ" 07| "§¡" "§¢" "§£" "§¤" "§¥" "§¦" "§§" "§¨" "§©" "§ª" "§«" "§¬" "§­" "§®" "§¯" "§°" "§±" "§²" "§³" "§´" "§µ" "§¶" "§·" "§¸" "§¹" "§º" "§»" "§¼" "§½" "§¾" "§¿" "§À" "§Á" "§Â" "§Ã" "§Ä" "§Å" "§Æ" "§Ç" "§È" "§É" "§Ê" "§Ë" "§Ì" "§Í" "§Î" "§Ï" "§Ð" "§Ñ" "§Ò" "§Ó" "§Ô" "§Õ" "§Ö" "§×" "§Ø" "§Ù" "§Ú" "§Û" "§Ü" "§Ý" "§Þ" "§ß" "§à" "§á" "§â" "§ã" "§ä" "§å" "§æ" "§ç" "§è" "§é" "§ê" "§ë" "§ì" "§í" "§î" "§ï" "§ð" "§ñ" "§ò" "§ó" "§ô" "§õ" "§ö" "§÷" "§ø" "§ù" "§ú" "§û" "§ü" "§ý" "§þ" 08| "¨¡" "¨¢" "¨£" "¨¤" "¨¥" "¨¦" "¨§" "¨¨" "¨©" "¨ª" "¨«" "¨¬" "¨­" "¨®" "¨¯" "¨°" "¨±" "¨²" "¨³" "¨´" "¨µ" "¨¶" "¨·" "¨¸" "¨¹" "¨º" "¨»" "¨¼" "¨½" "¨¾" "¨¿" "¨À" "¨Á" "¨Â" "¨Ã" "¨Ä" "¨Å" "¨Æ" "¨Ç" "¨È" "¨É" "¨Ê" "¨Ë" "¨Ì" "¨Í" "¨Î" "¨Ï" "¨Ð" "¨Ñ" "¨Ò" "¨Ó" "¨Ô" "¨Õ" "¨Ö" "¨×" "¨Ø" "¨Ù" "¨Ú" "¨Û" "¨Ü" "¨Ý" "¨Þ" "¨ß" "¨à" "¨á" "¨â" "¨ã" "¨ä" "¨å" "¨æ" "¨ç" "¨è" "¨é" "¨ê" "¨ë" "¨ì" "¨í" "¨î" "¨ï" "¨ð" "¨ñ" "¨ò" "¨ó" "¨ô" "¨õ" "¨ö" "¨÷" "¨ø" "¨ù" "¨ú" "¨û" "¨ü" "¨ý" "¨þ" 09| "©¡" "©¢" "©£" "©¤" "©¥" "©¦" "©§" "©¨" "©©" "©ª" "©«" "©¬" "©­" "©®" "©¯" "©°" "©±" "©²" "©³" "©´" "©µ" "©¶" "©·" "©¸" "©¹" "©º" "©»" "©¼" "©½" "©¾" "©¿" "©À" "©Á" "©Â" "©Ã" "©Ä" "©Å" "©Æ" "©Ç" "©È" "©É" "©Ê" "©Ë" "©Ì" "©Í" "©Î" "©Ï" "©Ð" "©Ñ" "©Ò" "©Ó" "©Ô" "©Õ" "©Ö" "©×" "©Ø" "©Ù" "©Ú" "©Û" "©Ü" "©Ý" "©Þ" "©ß" "©à" "©á" "©â" "©ã" "©ä" "©å" "©æ" "©ç" "©è" "©é" "©ê" "©ë" "©ì" "©í" "©î" "©ï" "©ð" "©ñ" "©ò" "©ó" "©ô" "©õ" "©ö" "©÷" "©ø" "©ù" "©ú" "©û" "©ü" "©ý" "©þ" 10| "ª¡" "ª¢" "ª£" "ª¤" "ª¥" "ª¦" "ª§" "ª¨" "ª©" "ªª" "ª«" "ª¬" "ª­" "ª®" "ª¯" "ª°" "ª±" "ª²" "ª³" "ª´" "ªµ" "ª¶" "ª·" "ª¸" "ª¹" "ªº" "ª»" "ª¼" "ª½" "ª¾" "ª¿" "ªÀ" "ªÁ" "ªÂ" "ªÃ" "ªÄ" "ªÅ" "ªÆ" "ªÇ" "ªÈ" "ªÉ" "ªÊ" "ªË" "ªÌ" "ªÍ" "ªÎ" "ªÏ" "ªÐ" "ªÑ" "ªÒ" "ªÓ" "ªÔ" "ªÕ" "ªÖ" "ª×" "ªØ" "ªÙ" "ªÚ" "ªÛ" "ªÜ" "ªÝ" "ªÞ" "ªß" "ªà" "ªá" "ªâ" "ªã" "ªä" "ªå" "ªæ" "ªç" "ªè" "ªé" "ªê" "ªë" "ªì" "ªí" "ªî" "ªï" "ªð" "ªñ" "ªò" "ªó" "ªô" "ªõ" "ªö" "ª÷" "ªø" "ªù" "ªú" "ªû" "ªü" "ªý" "ªþ" 11| "«¡" "«¢" "«£" "«¤" "«¥" "«¦" "«§" "«¨" "«©" "«ª" "««" "«¬" "«­" "«®" "«¯" "«°" "«±" "«²" "«³" "«´" "«µ" "«¶" "«·" "«¸" "«¹" "«º" "«»" "«¼" "«½" "«¾" "«¿" "«À" "«Á" "«Â" "«Ã" "«Ä" "«Å" "«Æ" "«Ç" "«È" "«É" "«Ê" "«Ë" "«Ì" "«Í" "«Î" "«Ï" "«Ð" "«Ñ" "«Ò" "«Ó" "«Ô" "«Õ" "«Ö" "«×" "«Ø" "«Ù" "«Ú" "«Û" "«Ü" "«Ý" "«Þ" "«ß" "«à" "«á" "«â" "«ã" "«ä" "«å" "«æ" "«ç" "«è" "«é" "«ê" "«ë" "«ì" "«í" "«î" "«ï" "«ð" "«ñ" "«ò" "«ó" "«ô" "«õ" "«ö" "«÷" "«ø" "«ù" "«ú" "«û" "«ü" "«ý" "«þ" 12| "¬¡" "¬¢" "¬£" "¬¤" "¬¥" "¬¦" "¬§" "¬¨" "¬©" "¬ª" "¬«" "¬¬" "¬­" "¬®" "¬¯" "¬°" "¬±" "¬²" "¬³" "¬´" "¬µ" "¬¶" "¬·" "¬¸" "¬¹" "¬º" "¬»" "¬¼" "¬½" "¬¾" "¬¿" "¬À" "¬Á" "¬Â" "¬Ã" "¬Ä" "¬Å" "¬Æ" "¬Ç" "¬È" "¬É" "¬Ê" "¬Ë" "¬Ì" "¬Í" "¬Î" "¬Ï" "¬Ð" "¬Ñ" "¬Ò" "¬Ó" "¬Ô" "¬Õ" "¬Ö" "¬×" "¬Ø" "¬Ù" "¬Ú" "¬Û" "¬Ü" "¬Ý" "¬Þ" "¬ß" "¬à" "¬á" "¬â" "¬ã" "¬ä" "¬å" "¬æ" "¬ç" "¬è" "¬é" "¬ê" "¬ë" "¬ì" "¬í" "¬î" "¬ï" "¬ð" "¬ñ" "¬ò" "¬ó" "¬ô" "¬õ" "¬ö" "¬÷" "¬ø" "¬ù" "¬ú" "¬û" "¬ü" "¬ý" "¬þ" 13| "­¡" "­¢" "­£" "­¤" "­¥" "­¦" "­§" "­¨" "­©" "­ª" "­«" "­¬" "­­" "­®" "­¯" "­°" "­±" "­²" "­³" "­´" "­µ" "­¶" "­·" "­¸" "­¹" "­º" "­»" "­¼" "­½" "­¾" "­¿" "­À" "­Á" "­Â" "­Ã" "­Ä" "­Å" "­Æ" "­Ç" "­È" "­É" "­Ê" "­Ë" "­Ì" "­Í" "­Î" "­Ï" "­Ð" "­Ñ" "­Ò" "­Ó" "­Ô" "­Õ" "­Ö" "­×" "­Ø" "­Ù" "­Ú" "­Û" "­Ü" "­Ý" "­Þ" "­ß" "­à" "­á" "­â" "­ã" "­ä" "­å" "­æ" "­ç" "­è" "­é" "­ê" "­ë" "­ì" "­í" "­î" "­ï" "­ð" "­ñ" "­ò" "­ó" "­ô" "­õ" "­ö" "­÷" "­ø" "­ù" "­ú" "­û" "­ü" "­ý" "­þ" 14| "®¡" "®¢" "®£" "®¤" "®¥" "®¦" "®§" "®¨" "®©" "®ª" "®«" "®¬" "®­" "®®" "®¯" "®°" "®±" "®²" "®³" "®´" "®µ" "®¶" "®·" "®¸" "®¹" "®º" "®»" "®¼" "®½" "®¾" "®¿" "®À" "®Á" "®Â" "®Ã" "®Ä" "®Å" "®Æ" "®Ç" "®È" "®É" "®Ê" "®Ë" "®Ì" "®Í" "®Î" "®Ï" "®Ð" "®Ñ" "®Ò" "®Ó" "®Ô" "®Õ" "®Ö" "®×" "®Ø" "®Ù" "®Ú" "®Û" "®Ü" "®Ý" "®Þ" "®ß" "®à" "®á" "®â" "®ã" "®ä" "®å" "®æ" "®ç" "®è" "®é" "®ê" "®ë" "®ì" "®í" "®î" "®ï" "®ð" "®ñ" "®ò" "®ó" "®ô" "®õ" "®ö" "®÷" "®ø" "®ù" "®ú" "®û" "®ü" "®ý" "®þ" 15| "¯¡" "¯¢" "¯£" "¯¤" "¯¥" "¯¦" "¯§" "¯¨" "¯©" "¯ª" "¯«" "¯¬" "¯­" "¯®" "¯¯" "¯°" "¯±" "¯²" "¯³" "¯´" "¯µ" "¯¶" "¯·" "¯¸" "¯¹" "¯º" "¯»" "¯¼" "¯½" "¯¾" "¯¿" "¯À" "¯Á" "¯Â" "¯Ã" "¯Ä" "¯Å" "¯Æ" "¯Ç" "¯È" "¯É" "¯Ê" "¯Ë" "¯Ì" "¯Í" "¯Î" "¯Ï" "¯Ð" "¯Ñ" "¯Ò" "¯Ó" "¯Ô" "¯Õ" "¯Ö" "¯×" "¯Ø" "¯Ù" "¯Ú" "¯Û" "¯Ü" "¯Ý" "¯Þ" "¯ß" "¯à" "¯á" "¯â" "¯ã" "¯ä" "¯å" "¯æ" "¯ç" "¯è" "¯é" "¯ê" "¯ë" "¯ì" "¯í" "¯î" "¯ï" "¯ð" "¯ñ" "¯ò" "¯ó" "¯ô" "¯õ" "¯ö" "¯÷" "¯ø" "¯ù" "¯ú" "¯û" "¯ü" "¯ý" "¯þ" 16| "°¡" "°¢" "°£" "°¤" "°¥" "°¦" "°§" "°¨" "°©" "°ª" "°«" "°¬" "°­" "°®" "°¯" "°°" "°±" "°²" "°³" "°´" "°µ" "°¶" "°·" "°¸" "°¹" "°º" "°»" "°¼" "°½" "°¾" "°¿" "°À" "°Á" "°Â" "°Ã" "°Ä" "°Å" "°Æ" "°Ç" "°È" "°É" "°Ê" "°Ë" "°Ì" "°Í" "°Î" "°Ï" "°Ð" "°Ñ" "°Ò" "°Ó" "°Ô" "°Õ" "°Ö" "°×" "°Ø" "°Ù" "°Ú" "°Û" "°Ü" "°Ý" "°Þ" "°ß" "°à" "°á" "°â" "°ã" "°ä" "°å" "°æ" "°ç" "°è" "°é" "°ê" "°ë" "°ì" "°í" "°î" "°ï" "°ð" "°ñ" "°ò" "°ó" "°ô" "°õ" "°ö" "°÷" "°ø" "°ù" "°ú" "°û" "°ü" "°ý" "°þ" 17| "±¡" "±¢" "±£" "±¤" "±¥" "±¦" "±§" "±¨" "±©" "±ª" "±«" "±¬" "±­" "±®" "±¯" "±°" "±±" "±²" "±³" "±´" "±µ" "±¶" "±·" "±¸" "±¹" "±º" "±»" "±¼" "±½" "±¾" "±¿" "±À" "±Á" "±Â" "±Ã" "±Ä" "±Å" "±Æ" "±Ç" "±È" "±É" "±Ê" "±Ë" "±Ì" "±Í" "±Î" "±Ï" "±Ð" "±Ñ" "±Ò" "±Ó" "±Ô" "±Õ" "±Ö" "±×" "±Ø" "±Ù" "±Ú" "±Û" "±Ü" "±Ý" "±Þ" "±ß" "±à" "±á" "±â" "±ã" "±ä" "±å" "±æ" "±ç" "±è" "±é" "±ê" "±ë" "±ì" "±í" "±î" "±ï" "±ð" "±ñ" "±ò" "±ó" "±ô" "±õ" "±ö" "±÷" "±ø" "±ù" "±ú" "±û" "±ü" "±ý" "±þ" 18| "²¡" "²¢" "²£" "²¤" "²¥" "²¦" "²§" "²¨" "²©" "²ª" "²«" "²¬" "²­" "²®" "²¯" "²°" "²±" "²²" "²³" "²´" "²µ" "²¶" "²·" "²¸" "²¹" "²º" "²»" "²¼" "²½" "²¾" "²¿" "²À" "²Á" "²Â" "²Ã" "²Ä" "²Å" "²Æ" "²Ç" "²È" "²É" "²Ê" "²Ë" "²Ì" "²Í" "²Î" "²Ï" "²Ð" "²Ñ" "²Ò" "²Ó" "²Ô" "²Õ" "²Ö" "²×" "²Ø" "²Ù" "²Ú" "²Û" "²Ü" "²Ý" "²Þ" "²ß" "²à" "²á" "²â" "²ã" "²ä" "²å" "²æ" "²ç" "²è" "²é" "²ê" "²ë" "²ì" "²í" "²î" "²ï" "²ð" "²ñ" "²ò" "²ó" "²ô" "²õ" "²ö" "²÷" "²ø" "²ù" "²ú" "²û" "²ü" "²ý" "²þ" 19| "³¡" "³¢" "³£" "³¤" "³¥" "³¦" "³§" "³¨" "³©" "³ª" "³«" "³¬" "³­" "³®" "³¯" "³°" "³±" "³²" "³³" "³´" "³µ" "³¶" "³·" "³¸" "³¹" "³º" "³»" "³¼" "³½" "³¾" "³¿" "³À" "³Á" "³Â" "³Ã" "³Ä" "³Å" "³Æ" "³Ç" "³È" "³É" "³Ê" "³Ë" "³Ì" "³Í" "³Î" "³Ï" "³Ð" "³Ñ" "³Ò" "³Ó" "³Ô" "³Õ" "³Ö" "³×" "³Ø" "³Ù" "³Ú" "³Û" "³Ü" "³Ý" "³Þ" "³ß" "³à" "³á" "³â" "³ã" "³ä" "³å" "³æ" "³ç" "³è" "³é" "³ê" "³ë" "³ì" "³í" "³î" "³ï" "³ð" "³ñ" "³ò" "³ó" "³ô" "³õ" "³ö" "³÷" "³ø" "³ù" "³ú" "³û" "³ü" "³ý" "³þ" 20| "´¡" "´¢" "´£" "´¤" "´¥" "´¦" "´§" "´¨" "´©" "´ª" "´«" "´¬" "´­" "´®" "´¯" "´°" "´±" "´²" "´³" "´´" "´µ" "´¶" "´·" "´¸" "´¹" "´º" "´»" "´¼" "´½" "´¾" "´¿" "´À" "´Á" "´Â" "´Ã" "´Ä" "´Å" "´Æ" "´Ç" "´È" "´É" "´Ê" "´Ë" "´Ì" "´Í" "´Î" "´Ï" "´Ð" "´Ñ" "´Ò" "´Ó" "´Ô" "´Õ" "´Ö" "´×" "´Ø" "´Ù" "´Ú" "´Û" "´Ü" "´Ý" "´Þ" "´ß" "´à" "´á" "´â" "´ã" "´ä" "´å" "´æ" "´ç" "´è" "´é" "´ê" "´ë" "´ì" "´í" "´î" "´ï" "´ð" "´ñ" "´ò" "´ó" "´ô" "´õ" "´ö" "´÷" "´ø" "´ù" "´ú" "´û" "´ü" "´ý" "´þ" 21| "µ¡" "µ¢" "µ£" "µ¤" "µ¥" "µ¦" "µ§" "µ¨" "µ©" "µª" "µ«" "µ¬" "µ­" "µ®" "µ¯" "µ°" "µ±" "µ²" "µ³" "µ´" "µµ" "µ¶" "µ·" "µ¸" "µ¹" "µº" "µ»" "µ¼" "µ½" "µ¾" "µ¿" "µÀ" "µÁ" "µÂ" "µÃ" "µÄ" "µÅ" "µÆ" "µÇ" "µÈ" "µÉ" "µÊ" "µË" "µÌ" "µÍ" "µÎ" "µÏ" "µÐ" "µÑ" "µÒ" "µÓ" "µÔ" "µÕ" "µÖ" "µ×" "µØ" "µÙ" "µÚ" "µÛ" "µÜ" "µÝ" "µÞ" "µß" "µà" "µá" "µâ" "µã" "µä" "µå" "µæ" "µç" "µè" "µé" "µê" "µë" "µì" "µí" "µî" "µï" "µð" "µñ" "µò" "µó" "µô" "µõ" "µö" "µ÷" "µø" "µù" "µú" "µû" "µü" "µý" "µþ" 22| "¶¡" "¶¢" "¶£" "¶¤" "¶¥" "¶¦" "¶§" "¶¨" "¶©" "¶ª" "¶«" "¶¬" "¶­" "¶®" "¶¯" "¶°" "¶±" "¶²" "¶³" "¶´" "¶µ" "¶¶" "¶·" "¶¸" "¶¹" "¶º" "¶»" "¶¼" "¶½" "¶¾" "¶¿" "¶À" "¶Á" "¶Â" "¶Ã" "¶Ä" "¶Å" "¶Æ" "¶Ç" "¶È" "¶É" "¶Ê" "¶Ë" "¶Ì" "¶Í" "¶Î" "¶Ï" "¶Ð" "¶Ñ" "¶Ò" "¶Ó" "¶Ô" "¶Õ" "¶Ö" "¶×" "¶Ø" "¶Ù" "¶Ú" "¶Û" "¶Ü" "¶Ý" "¶Þ" "¶ß" "¶à" "¶á" "¶â" "¶ã" "¶ä" "¶å" "¶æ" "¶ç" "¶è" "¶é" "¶ê" "¶ë" "¶ì" "¶í" "¶î" "¶ï" "¶ð" "¶ñ" "¶ò" "¶ó" "¶ô" "¶õ" "¶ö" "¶÷" "¶ø" "¶ù" "¶ú" "¶û" "¶ü" "¶ý" "¶þ" 23| "·¡" "·¢" "·£" "·¤" "·¥" "·¦" "·§" "·¨" "·©" "·ª" "·«" "·¬" "·­" "·®" "·¯" "·°" "·±" "·²" "·³" "·´" "·µ" "·¶" "··" "·¸" "·¹" "·º" "·»" "·¼" "·½" "·¾" "·¿" "·À" "·Á" "·Â" "·Ã" "·Ä" "·Å" "·Æ" "·Ç" "·È" "·É" "·Ê" "·Ë" "·Ì" "·Í" "·Î" "·Ï" "·Ð" "·Ñ" "·Ò" "·Ó" "·Ô" "·Õ" "·Ö" "·×" "·Ø" "·Ù" "·Ú" "·Û" "·Ü" "·Ý" "·Þ" "·ß" "·à" "·á" "·â" "·ã" "·ä" "·å" "·æ" "·ç" "·è" "·é" "·ê" "·ë" "·ì" "·í" "·î" "·ï" "·ð" "·ñ" "·ò" "·ó" "·ô" "·õ" "·ö" "·÷" "·ø" "·ù" "·ú" "·û" "·ü" "·ý" "·þ" 24| "¸¡" "¸¢" "¸£" "¸¤" "¸¥" "¸¦" "¸§" "¸¨" "¸©" "¸ª" "¸«" "¸¬" "¸­" "¸®" "¸¯" "¸°" "¸±" "¸²" "¸³" "¸´" "¸µ" "¸¶" "¸·" "¸¸" "¸¹" "¸º" "¸»" "¸¼" "¸½" "¸¾" "¸¿" "¸À" "¸Á" "¸Â" "¸Ã" "¸Ä" "¸Å" "¸Æ" "¸Ç" "¸È" "¸É" "¸Ê" "¸Ë" "¸Ì" "¸Í" "¸Î" "¸Ï" "¸Ð" "¸Ñ" "¸Ò" "¸Ó" "¸Ô" "¸Õ" "¸Ö" "¸×" "¸Ø" "¸Ù" "¸Ú" "¸Û" "¸Ü" "¸Ý" "¸Þ" "¸ß" "¸à" "¸á" "¸â" "¸ã" "¸ä" "¸å" "¸æ" "¸ç" "¸è" "¸é" "¸ê" "¸ë" "¸ì" "¸í" "¸î" "¸ï" "¸ð" "¸ñ" "¸ò" "¸ó" "¸ô" "¸õ" "¸ö" "¸÷" "¸ø" "¸ù" "¸ú" "¸û" "¸ü" "¸ý" "¸þ" 25| "¹¡" "¹¢" "¹£" "¹¤" "¹¥" "¹¦" "¹§" "¹¨" "¹©" "¹ª" "¹«" "¹¬" "¹­" "¹®" "¹¯" "¹°" "¹±" "¹²" "¹³" "¹´" "¹µ" "¹¶" "¹·" "¹¸" "¹¹" "¹º" "¹»" "¹¼" "¹½" "¹¾" "¹¿" "¹À" "¹Á" "¹Â" "¹Ã" "¹Ä" "¹Å" "¹Æ" "¹Ç" "¹È" "¹É" "¹Ê" "¹Ë" "¹Ì" "¹Í" "¹Î" "¹Ï" "¹Ð" "¹Ñ" "¹Ò" "¹Ó" "¹Ô" "¹Õ" "¹Ö" "¹×" "¹Ø" "¹Ù" "¹Ú" "¹Û" "¹Ü" "¹Ý" "¹Þ" "¹ß" "¹à" "¹á" "¹â" "¹ã" "¹ä" "¹å" "¹æ" "¹ç" "¹è" "¹é" "¹ê" "¹ë" "¹ì" "¹í" "¹î" "¹ï" "¹ð" "¹ñ" "¹ò" "¹ó" "¹ô" "¹õ" "¹ö" "¹÷" "¹ø" "¹ù" "¹ú" "¹û" "¹ü" "¹ý" "¹þ" 26| "º¡" "º¢" "º£" "º¤" "º¥" "º¦" "º§" "º¨" "º©" "ºª" "º«" "º¬" "º­" "º®" "º¯" "º°" "º±" "º²" "º³" "º´" "ºµ" "º¶" "º·" "º¸" "º¹" "ºº" "º»" "º¼" "º½" "º¾" "º¿" "ºÀ" "ºÁ" "ºÂ" "ºÃ" "ºÄ" "ºÅ" "ºÆ" "ºÇ" "ºÈ" "ºÉ" "ºÊ" "ºË" "ºÌ" "ºÍ" "ºÎ" "ºÏ" "ºÐ" "ºÑ" "ºÒ" "ºÓ" "ºÔ" "ºÕ" "ºÖ" "º×" "ºØ" "ºÙ" "ºÚ" "ºÛ" "ºÜ" "ºÝ" "ºÞ" "ºß" "ºà" "ºá" "ºâ" "ºã" "ºä" "ºå" "ºæ" "ºç" "ºè" "ºé" "ºê" "ºë" "ºì" "ºí" "ºî" "ºï" "ºð" "ºñ" "ºò" "ºó" "ºô" "ºõ" "ºö" "º÷" "ºø" "ºù" "ºú" "ºû" "ºü" "ºý" "ºþ" 27| "»¡" "»¢" "»£" "»¤" "»¥" "»¦" "»§" "»¨" "»©" "»ª" "»«" "»¬" "»­" "»®" "»¯" "»°" "»±" "»²" "»³" "»´" "»µ" "»¶" "»·" "»¸" "»¹" "»º" "»»" "»¼" "»½" "»¾" "»¿" "»À" "»Á" "»Â" "»Ã" "»Ä" "»Å" "»Æ" "»Ç" "»È" "»É" "»Ê" "»Ë" "»Ì" "»Í" "»Î" "»Ï" "»Ð" "»Ñ" "»Ò" "»Ó" "»Ô" "»Õ" "»Ö" "»×" "»Ø" "»Ù" "»Ú" "»Û" "»Ü" "»Ý" "»Þ" "»ß" "»à" "»á" "»â" "»ã" "»ä" "»å" "»æ" "»ç" "»è" "»é" "»ê" "»ë" "»ì" "»í" "»î" "»ï" "»ð" "»ñ" "»ò" "»ó" "»ô" "»õ" "»ö" "»÷" "»ø" "»ù" "»ú" "»û" "»ü" "»ý" "»þ" 28| "¼¡" "¼¢" "¼£" "¼¤" "¼¥" "¼¦" "¼§" "¼¨" "¼©" "¼ª" "¼«" "¼¬" "¼­" "¼®" "¼¯" "¼°" "¼±" "¼²" "¼³" "¼´" "¼µ" "¼¶" "¼·" "¼¸" "¼¹" "¼º" "¼»" "¼¼" "¼½" "¼¾" "¼¿" "¼À" "¼Á" "¼Â" "¼Ã" "¼Ä" "¼Å" "¼Æ" "¼Ç" "¼È" "¼É" "¼Ê" "¼Ë" "¼Ì" "¼Í" "¼Î" "¼Ï" "¼Ð" "¼Ñ" "¼Ò" "¼Ó" "¼Ô" "¼Õ" "¼Ö" "¼×" "¼Ø" "¼Ù" "¼Ú" "¼Û" "¼Ü" "¼Ý" "¼Þ" "¼ß" "¼à" "¼á" "¼â" "¼ã" "¼ä" "¼å" "¼æ" "¼ç" "¼è" "¼é" "¼ê" "¼ë" "¼ì" "¼í" "¼î" "¼ï" "¼ð" "¼ñ" "¼ò" "¼ó" "¼ô" "¼õ" "¼ö" "¼÷" "¼ø" "¼ù" "¼ú" "¼û" "¼ü" "¼ý" "¼þ" 29| "½¡" "½¢" "½£" "½¤" "½¥" "½¦" "½§" "½¨" "½©" "½ª" "½«" "½¬" "½­" "½®" "½¯" "½°" "½±" "½²" "½³" "½´" "½µ" "½¶" "½·" "½¸" "½¹" "½º" "½»" "½¼" "½½" "½¾" "½¿" "½À" "½Á" "½Â" "½Ã" "½Ä" "½Å" "½Æ" "½Ç" "½È" "½É" "½Ê" "½Ë" "½Ì" "½Í" "½Î" "½Ï" "½Ð" "½Ñ" "½Ò" "½Ó" "½Ô" "½Õ" "½Ö" "½×" "½Ø" "½Ù" "½Ú" "½Û" "½Ü" "½Ý" "½Þ" "½ß" "½à" "½á" "½â" "½ã" "½ä" "½å" "½æ" "½ç" "½è" "½é" "½ê" "½ë" "½ì" "½í" "½î" "½ï" "½ð" "½ñ" "½ò" "½ó" "½ô" "½õ" "½ö" "½÷" "½ø" "½ù" "½ú" "½û" "½ü" "½ý" "½þ" 30| "¾¡" "¾¢" "¾£" "¾¤" "¾¥" "¾¦" "¾§" "¾¨" "¾©" "¾ª" "¾«" "¾¬" "¾­" "¾®" "¾¯" "¾°" "¾±" "¾²" "¾³" "¾´" "¾µ" "¾¶" "¾·" "¾¸" "¾¹" "¾º" "¾»" "¾¼" "¾½" "¾¾" "¾¿" "¾À" "¾Á" "¾Â" "¾Ã" "¾Ä" "¾Å" "¾Æ" "¾Ç" "¾È" "¾É" "¾Ê" "¾Ë" "¾Ì" "¾Í" "¾Î" "¾Ï" "¾Ð" "¾Ñ" "¾Ò" "¾Ó" "¾Ô" "¾Õ" "¾Ö" "¾×" "¾Ø" "¾Ù" "¾Ú" "¾Û" "¾Ü" "¾Ý" "¾Þ" "¾ß" "¾à" "¾á" "¾â" "¾ã" "¾ä" "¾å" "¾æ" "¾ç" "¾è" "¾é" "¾ê" "¾ë" "¾ì" "¾í" "¾î" "¾ï" "¾ð" "¾ñ" "¾ò" "¾ó" "¾ô" "¾õ" "¾ö" "¾÷" "¾ø" "¾ù" "¾ú" "¾û" "¾ü" "¾ý" "¾þ" 31| "¿¡" "¿¢" "¿£" "¿¤" "¿¥" "¿¦" "¿§" "¿¨" "¿©" "¿ª" "¿«" "¿¬" "¿­" "¿®" "¿¯" "¿°" "¿±" "¿²" "¿³" "¿´" "¿µ" "¿¶" "¿·" "¿¸" "¿¹" "¿º" "¿»" "¿¼" "¿½" "¿¾" "¿¿" "¿À" "¿Á" "¿Â" "¿Ã" "¿Ä" "¿Å" "¿Æ" "¿Ç" "¿È" "¿É" "¿Ê" "¿Ë" "¿Ì" "¿Í" "¿Î" "¿Ï" "¿Ð" "¿Ñ" "¿Ò" "¿Ó" "¿Ô" "¿Õ" "¿Ö" "¿×" "¿Ø" "¿Ù" "¿Ú" "¿Û" "¿Ü" "¿Ý" "¿Þ" "¿ß" "¿à" "¿á" "¿â" "¿ã" "¿ä" "¿å" "¿æ" "¿ç" "¿è" "¿é" "¿ê" "¿ë" "¿ì" "¿í" "¿î" "¿ï" "¿ð" "¿ñ" "¿ò" "¿ó" "¿ô" "¿õ" "¿ö" "¿÷" "¿ø" "¿ù" "¿ú" "¿û" "¿ü" "¿ý" "¿þ" 32| "À¡" "À¢" "À£" "À¤" "À¥" "À¦" "À§" "À¨" "À©" "Àª" "À«" "À¬" "À­" "À®" "À¯" "À°" "À±" "À²" "À³" "À´" "Àµ" "À¶" "À·" "À¸" "À¹" "Àº" "À»" "À¼" "À½" "À¾" "À¿" "ÀÀ" "ÀÁ" "ÀÂ" "ÀÃ" "ÀÄ" "ÀÅ" "ÀÆ" "ÀÇ" "ÀÈ" "ÀÉ" "ÀÊ" "ÀË" "ÀÌ" "ÀÍ" "ÀÎ" "ÀÏ" "ÀÐ" "ÀÑ" "ÀÒ" "ÀÓ" "ÀÔ" "ÀÕ" "ÀÖ" "À×" "ÀØ" "ÀÙ" "ÀÚ" "ÀÛ" "ÀÜ" "ÀÝ" "ÀÞ" "Àß" "Àà" "Àá" "Àâ" "Àã" "Àä" "Àå" "Àæ" "Àç" "Àè" "Àé" "Àê" "Àë" "Àì" "Àí" "Àî" "Àï" "Àð" "Àñ" "Àò" "Àó" "Àô" "Àõ" "Àö" "À÷" "Àø" "Àù" "Àú" "Àû" "Àü" "Àý" "Àþ" 33| "Á¡" "Á¢" "Á£" "Á¤" "Á¥" "Á¦" "Á§" "Á¨" "Á©" "Áª" "Á«" "Á¬" "Á­" "Á®" "Á¯" "Á°" "Á±" "Á²" "Á³" "Á´" "Áµ" "Á¶" "Á·" "Á¸" "Á¹" "Áº" "Á»" "Á¼" "Á½" "Á¾" "Á¿" "ÁÀ" "ÁÁ" "ÁÂ" "ÁÃ" "ÁÄ" "ÁÅ" "ÁÆ" "ÁÇ" "ÁÈ" "ÁÉ" "ÁÊ" "ÁË" "ÁÌ" "ÁÍ" "ÁÎ" "ÁÏ" "ÁÐ" "ÁÑ" "ÁÒ" "ÁÓ" "ÁÔ" "ÁÕ" "ÁÖ" "Á×" "ÁØ" "ÁÙ" "ÁÚ" "ÁÛ" "ÁÜ" "ÁÝ" "ÁÞ" "Áß" "Áà" "Áá" "Áâ" "Áã" "Áä" "Áå" "Áæ" "Áç" "Áè" "Áé" "Áê" "Áë" "Áì" "Áí" "Áî" "Áï" "Áð" "Áñ" "Áò" "Áó" "Áô" "Áõ" "Áö" "Á÷" "Áø" "Áù" "Áú" "Áû" "Áü" "Áý" "Áþ" 34| "¡" "¢" "£" "¤" "Â¥" "¦" "§" "¨" "©" "ª" "«" "¬" "­" "®" "¯" "°" "±" "²" "³" "´" "µ" "¶" "·" "¸" "¹" "º" "»" "¼" "½" "¾" "¿" "ÂÀ" "ÂÁ" "ÂÂ" "ÂÃ" "ÂÄ" "ÂÅ" "ÂÆ" "ÂÇ" "ÂÈ" "ÂÉ" "ÂÊ" "ÂË" "ÂÌ" "ÂÍ" "ÂÎ" "ÂÏ" "ÂÐ" "ÂÑ" "ÂÒ" "ÂÓ" "ÂÔ" "ÂÕ" "ÂÖ" "Â×" "ÂØ" "ÂÙ" "ÂÚ" "ÂÛ" "ÂÜ" "ÂÝ" "ÂÞ" "Âß" "Âà" "Âá" "Ââ" "Âã" "Âä" "Âå" "Âæ" "Âç" "Âè" "Âé" "Âê" "Âë" "Âì" "Âí" "Âî" "Âï" "Âð" "Âñ" "Âò" "Âó" "Âô" "Âõ" "Âö" "Â÷" "Âø" "Âù" "Âú" "Âû" "Âü" "Âý" "Âþ" 35| "á" "â" "ã" "ä" "Ã¥" "æ" "ç" "è" "é" "ê" "ë" "ì" "í" "î" "ï" "ð" "ñ" "ò" "ó" "ô" "õ" "ö" "÷" "ø" "ù" "ú" "û" "ü" "ý" "þ" "ÿ" "ÃÀ" "ÃÁ" "ÃÂ" "ÃÃ" "ÃÄ" "ÃÅ" "ÃÆ" "ÃÇ" "ÃÈ" "ÃÉ" "ÃÊ" "ÃË" "ÃÌ" "ÃÍ" "ÃÎ" "ÃÏ" "ÃÐ" "ÃÑ" "ÃÒ" "ÃÓ" "ÃÔ" "ÃÕ" "ÃÖ" "Ã×" "ÃØ" "ÃÙ" "ÃÚ" "ÃÛ" "ÃÜ" "ÃÝ" "ÃÞ" "Ãß" "Ãà" "Ãá" "Ãâ" "Ãã" "Ãä" "Ãå" "Ãæ" "Ãç" "Ãè" "Ãé" "Ãê" "Ãë" "Ãì" "Ãí" "Ãî" "Ãï" "Ãð" "Ãñ" "Ãò" "Ãó" "Ãô" "Ãõ" "Ãö" "Ã÷" "Ãø" "Ãù" "Ãú" "Ãû" "Ãü" "Ãý" "Ãþ" 36| "Ä¡" "Ä¢" "Ä£" "Ĥ" "Ä¥" "Ħ" "ħ" "Ĩ" "Ä©" "Ī" "Ä«" "Ĭ" "Ä­" "Ä®" "į" "Ä°" "ı" "IJ" "ij" "Ä´" "ĵ" "Ķ" "Ä·" "ĸ" "Ĺ" "ĺ" "Ä»" "ļ" "Ľ" "ľ" "Ä¿" "ÄÀ" "ÄÁ" "ÄÂ" "ÄÃ" "ÄÄ" "ÄÅ" "ÄÆ" "ÄÇ" "ÄÈ" "ÄÉ" "ÄÊ" "ÄË" "ÄÌ" "ÄÍ" "ÄÎ" "ÄÏ" "ÄÐ" "ÄÑ" "ÄÒ" "ÄÓ" "ÄÔ" "ÄÕ" "ÄÖ" "Ä×" "ÄØ" "ÄÙ" "ÄÚ" "ÄÛ" "ÄÜ" "ÄÝ" "ÄÞ" "Äß" "Äà" "Äá" "Äâ" "Äã" "Ää" "Äå" "Äæ" "Äç" "Äè" "Äé" "Äê" "Äë" "Äì" "Äí" "Äî" "Äï" "Äð" "Äñ" "Äò" "Äó" "Äô" "Äõ" "Äö" "Ä÷" "Äø" "Äù" "Äú" "Äû" "Äü" "Äý" "Äþ" 37| "Å¡" "Å¢" "Å£" "Ť" "Å¥" "Ŧ" "ŧ" "Ũ" "Å©" "Ū" "Å«" "Ŭ" "Å­" "Å®" "ů" "Å°" "ű" "Ų" "ų" "Å´" "ŵ" "Ŷ" "Å·" "Ÿ" "Ź" "ź" "Å»" "ż" "Ž" "ž" "Å¿" "ÅÀ" "ÅÁ" "ÅÂ" "ÅÃ" "ÅÄ" "ÅÅ" "ÅÆ" "ÅÇ" "ÅÈ" "ÅÉ" "ÅÊ" "ÅË" "ÅÌ" "ÅÍ" "ÅÎ" "ÅÏ" "ÅÐ" "ÅÑ" "ÅÒ" "ÅÓ" "ÅÔ" "ÅÕ" "ÅÖ" "Å×" "ÅØ" "ÅÙ" "ÅÚ" "ÅÛ" "ÅÜ" "ÅÝ" "ÅÞ" "Åß" "Åà" "Åá" "Åâ" "Åã" "Åä" "Åå" "Åæ" "Åç" "Åè" "Åé" "Åê" "Åë" "Åì" "Åí" "Åî" "Åï" "Åð" "Åñ" "Åò" "Åó" "Åô" "Åõ" "Åö" "Å÷" "Åø" "Åù" "Åú" "Åû" "Åü" "Åý" "Åþ" 38| "Æ¡" "Æ¢" "Æ£" "Ƥ" "Æ¥" "Ʀ" "Ƨ" "ƨ" "Æ©" "ƪ" "Æ«" "Ƭ" "Æ­" "Æ®" "Ư" "Æ°" "Ʊ" "Ʋ" "Ƴ" "Æ´" "Ƶ" "ƶ" "Æ·" "Ƹ" "ƹ" "ƺ" "Æ»" "Ƽ" "ƽ" "ƾ" "Æ¿" "ÆÀ" "ÆÁ" "ÆÂ" "ÆÃ" "ÆÄ" "ÆÅ" "ÆÆ" "ÆÇ" "ÆÈ" "ÆÉ" "ÆÊ" "ÆË" "ÆÌ" "ÆÍ" "ÆÎ" "ÆÏ" "ÆÐ" "ÆÑ" "ÆÒ" "ÆÓ" "ÆÔ" "ÆÕ" "ÆÖ" "Æ×" "ÆØ" "ÆÙ" "ÆÚ" "ÆÛ" "ÆÜ" "ÆÝ" "ÆÞ" "Æß" "Æà" "Æá" "Æâ" "Æã" "Æä" "Æå" "Ææ" "Æç" "Æè" "Æé" "Æê" "Æë" "Æì" "Æí" "Æî" "Æï" "Æð" "Æñ" "Æò" "Æó" "Æô" "Æõ" "Æö" "Æ÷" "Æø" "Æù" "Æú" "Æû" "Æü" "Æý" "Æþ" 39| "Ç¡" "Ç¢" "Ç£" "Ǥ" "Ç¥" "Ǧ" "ǧ" "Ǩ" "Ç©" "Ǫ" "Ç«" "Ǭ" "Ç­" "Ç®" "ǯ" "Ç°" "DZ" "Dz" "dz" "Ç´" "ǵ" "Ƕ" "Ç·" "Ǹ" "ǹ" "Ǻ" "Ç»" "Ǽ" "ǽ" "Ǿ" "Ç¿" "ÇÀ" "ÇÁ" "ÇÂ" "ÇÃ" "ÇÄ" "ÇÅ" "ÇÆ" "ÇÇ" "ÇÈ" "ÇÉ" "ÇÊ" "ÇË" "ÇÌ" "ÇÍ" "ÇÎ" "ÇÏ" "ÇÐ" "ÇÑ" "ÇÒ" "ÇÓ" "ÇÔ" "ÇÕ" "ÇÖ" "Ç×" "ÇØ" "ÇÙ" "ÇÚ" "ÇÛ" "ÇÜ" "ÇÝ" "ÇÞ" "Çß" "Çà" "Çá" "Çâ" "Çã" "Çä" "Çå" "Çæ" "Çç" "Çè" "Çé" "Çê" "Çë" "Çì" "Çí" "Çî" "Çï" "Çð" "Çñ" "Çò" "Çó" "Çô" "Çõ" "Çö" "Ç÷" "Çø" "Çù" "Çú" "Çû" "Çü" "Çý" "Çþ" 40| "È¡" "È¢" "È£" "Ȥ" "È¥" "Ȧ" "ȧ" "Ȩ" "È©" "Ȫ" "È«" "Ȭ" "È­" "È®" "ȯ" "È°" "ȱ" "Ȳ" "ȳ" "È´" "ȵ" "ȶ" "È·" "ȸ" "ȹ" "Ⱥ" "È»" "ȼ" "Ƚ" "Ⱦ" "È¿" "ÈÀ" "ÈÁ" "ÈÂ" "ÈÃ" "ÈÄ" "ÈÅ" "ÈÆ" "ÈÇ" "ÈÈ" "ÈÉ" "ÈÊ" "ÈË" "ÈÌ" "ÈÍ" "ÈÎ" "ÈÏ" "ÈÐ" "ÈÑ" "ÈÒ" "ÈÓ" "ÈÔ" "ÈÕ" "ÈÖ" "È×" "ÈØ" "ÈÙ" "ÈÚ" "ÈÛ" "ÈÜ" "ÈÝ" "ÈÞ" "Èß" "Èà" "Èá" "Èâ" "Èã" "Èä" "Èå" "Èæ" "Èç" "Èè" "Èé" "Èê" "Èë" "Èì" "Èí" "Èî" "Èï" "Èð" "Èñ" "Èò" "Èó" "Èô" "Èõ" "Èö" "È÷" "Èø" "Èù" "Èú" "Èû" "Èü" "Èý" "Èþ" 41| "É¡" "É¢" "É£" "ɤ" "É¥" "ɦ" "ɧ" "ɨ" "É©" "ɪ" "É«" "ɬ" "É­" "É®" "ɯ" "É°" "ɱ" "ɲ" "ɳ" "É´" "ɵ" "ɶ" "É·" "ɸ" "ɹ" "ɺ" "É»" "ɼ" "ɽ" "ɾ" "É¿" "ÉÀ" "ÉÁ" "ÉÂ" "ÉÃ" "ÉÄ" "ÉÅ" "ÉÆ" "ÉÇ" "ÉÈ" "ÉÉ" "ÉÊ" "ÉË" "ÉÌ" "ÉÍ" "ÉÎ" "ÉÏ" "ÉÐ" "ÉÑ" "ÉÒ" "ÉÓ" "ÉÔ" "ÉÕ" "ÉÖ" "É×" "ÉØ" "ÉÙ" "ÉÚ" "ÉÛ" "ÉÜ" "ÉÝ" "ÉÞ" "Éß" "Éà" "Éá" "Éâ" "Éã" "Éä" "Éå" "Éæ" "Éç" "Éè" "Éé" "Éê" "Éë" "Éì" "Éí" "Éî" "Éï" "Éð" "Éñ" "Éò" "Éó" "Éô" "Éõ" "Éö" "É÷" "Éø" "Éù" "Éú" "Éû" "Éü" "Éý" "Éþ" 42| "Ê¡" "Ê¢" "Ê£" "ʤ" "Ê¥" "ʦ" "ʧ" "ʨ" "Ê©" "ʪ" "Ê«" "ʬ" "Ê­" "Ê®" "ʯ" "Ê°" "ʱ" "ʲ" "ʳ" "Ê´" "ʵ" "ʶ" "Ê·" "ʸ" "ʹ" "ʺ" "Ê»" "ʼ" "ʽ" "ʾ" "Ê¿" "ÊÀ" "ÊÁ" "ÊÂ" "ÊÃ" "ÊÄ" "ÊÅ" "ÊÆ" "ÊÇ" "ÊÈ" "ÊÉ" "ÊÊ" "ÊË" "ÊÌ" "ÊÍ" "ÊÎ" "ÊÏ" "ÊÐ" "ÊÑ" "ÊÒ" "ÊÓ" "ÊÔ" "ÊÕ" "ÊÖ" "Ê×" "ÊØ" "ÊÙ" "ÊÚ" "ÊÛ" "ÊÜ" "ÊÝ" "ÊÞ" "Êß" "Êà" "Êá" "Êâ" "Êã" "Êä" "Êå" "Êæ" "Êç" "Êè" "Êé" "Êê" "Êë" "Êì" "Êí" "Êî" "Êï" "Êð" "Êñ" "Êò" "Êó" "Êô" "Êõ" "Êö" "Ê÷" "Êø" "Êù" "Êú" "Êû" "Êü" "Êý" "Êþ" 43| "Ë¡" "Ë¢" "Ë£" "ˤ" "Ë¥" "˦" "˧" "˨" "Ë©" "˪" "Ë«" "ˬ" "Ë­" "Ë®" "˯" "Ë°" "˱" "˲" "˳" "Ë´" "˵" "˶" "Ë·" "˸" "˹" "˺" "Ë»" "˼" "˽" "˾" "Ë¿" "ËÀ" "ËÁ" "ËÂ" "ËÃ" "ËÄ" "ËÅ" "ËÆ" "ËÇ" "ËÈ" "ËÉ" "ËÊ" "ËË" "ËÌ" "ËÍ" "ËÎ" "ËÏ" "ËÐ" "ËÑ" "ËÒ" "ËÓ" "ËÔ" "ËÕ" "ËÖ" "Ë×" "ËØ" "ËÙ" "ËÚ" "ËÛ" "ËÜ" "ËÝ" "ËÞ" "Ëß" "Ëà" "Ëá" "Ëâ" "Ëã" "Ëä" "Ëå" "Ëæ" "Ëç" "Ëè" "Ëé" "Ëê" "Ëë" "Ëì" "Ëí" "Ëî" "Ëï" "Ëð" "Ëñ" "Ëò" "Ëó" "Ëô" "Ëõ" "Ëö" "Ë÷" "Ëø" "Ëù" "Ëú" "Ëû" "Ëü" "Ëý" "Ëþ" 44| "Ì¡" "Ì¢" "Ì£" "̤" "Ì¥" "̦" "̧" "̨" "Ì©" "̪" "Ì«" "̬" "Ì­" "Ì®" "̯" "Ì°" "̱" "̲" "̳" "Ì´" "̵" "̶" "Ì·" "̸" "̹" "̺" "Ì»" "̼" "̽" "̾" "Ì¿" "ÌÀ" "ÌÁ" "ÌÂ" "ÌÃ" "ÌÄ" "ÌÅ" "ÌÆ" "ÌÇ" "ÌÈ" "ÌÉ" "ÌÊ" "ÌË" "ÌÌ" "ÌÍ" "ÌÎ" "ÌÏ" "ÌÐ" "ÌÑ" "ÌÒ" "ÌÓ" "ÌÔ" "ÌÕ" "ÌÖ" "Ì×" "ÌØ" "ÌÙ" "ÌÚ" "ÌÛ" "ÌÜ" "ÌÝ" "ÌÞ" "Ìß" "Ìà" "Ìá" "Ìâ" "Ìã" "Ìä" "Ìå" "Ìæ" "Ìç" "Ìè" "Ìé" "Ìê" "Ìë" "Ìì" "Ìí" "Ìî" "Ìï" "Ìð" "Ìñ" "Ìò" "Ìó" "Ìô" "Ìõ" "Ìö" "Ì÷" "Ìø" "Ìù" "Ìú" "Ìû" "Ìü" "Ìý" "Ìþ" 45| "Í¡" "Í¢" "Í£" "ͤ" "Í¥" "ͦ" "ͧ" "ͨ" "Í©" "ͪ" "Í«" "ͬ" "Í­" "Í®" "ͯ" "Í°" "ͱ" "Ͳ" "ͳ" "Í´" "͵" "Ͷ" "Í·" "͸" "͹" "ͺ" "Í»" "ͼ" "ͽ" ";" "Í¿" "ÍÀ" "ÍÁ" "ÍÂ" "ÍÃ" "ÍÄ" "ÍÅ" "ÍÆ" "ÍÇ" "ÍÈ" "ÍÉ" "ÍÊ" "ÍË" "ÍÌ" "ÍÍ" "ÍÎ" "ÍÏ" "ÍÐ" "ÍÑ" "ÍÒ" "ÍÓ" "ÍÔ" "ÍÕ" "ÍÖ" "Í×" "ÍØ" "ÍÙ" "ÍÚ" "ÍÛ" "ÍÜ" "ÍÝ" "ÍÞ" "Íß" "Íà" "Íá" "Íâ" "Íã" "Íä" "Íå" "Íæ" "Íç" "Íè" "Íé" "Íê" "Íë" "Íì" "Íí" "Íî" "Íï" "Íð" "Íñ" "Íò" "Íó" "Íô" "Íõ" "Íö" "Í÷" "Íø" "Íù" "Íú" "Íû" "Íü" "Íý" "Íþ" 46| "Ρ" "΢" "Σ" "Τ" "Î¥" "Φ" "Χ" "Ψ" "Ω" "Ϊ" "Ϋ" "ά" "έ" "ή" "ί" "ΰ" "α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "ÎÀ" "ÎÁ" "ÎÂ" "ÎÃ" "ÎÄ" "ÎÅ" "ÎÆ" "ÎÇ" "ÎÈ" "ÎÉ" "ÎÊ" "ÎË" "ÎÌ" "ÎÍ" "ÎÎ" "ÎÏ" "ÎÐ" "ÎÑ" "ÎÒ" "ÎÓ" "ÎÔ" "ÎÕ" "ÎÖ" "Î×" "ÎØ" "ÎÙ" "ÎÚ" "ÎÛ" "ÎÜ" "ÎÝ" "ÎÞ" "Îß" "Îà" "Îá" "Îâ" "Îã" "Îä" "Îå" "Îæ" "Îç" "Îè" "Îé" "Îê" "Îë" "Îì" "Îí" "Îî" "Îï" "Îð" "Îñ" "Îò" "Îó" "Îô" "Îõ" "Îö" "Î÷" "Îø" "Îù" "Îú" "Îû" "Îü" "Îý" "Îþ" 47| "Ï¡" "Ï¢" "Ï£" "Ϥ" "Ï¥" "Ϧ" "ϧ" "Ϩ" "Ï©" "Ϫ" "Ï«" "Ϭ" "Ï­" "Ï®" "ϯ" "Ï°" "ϱ" "ϲ" "ϳ" "Ï´" "ϵ" "϶" "Ï·" "ϸ" "Ϲ" "Ϻ" "Ï»" "ϼ" "Ͻ" "Ͼ" "Ï¿" "ÏÀ" "ÏÁ" "ÏÂ" "ÏÃ" "ÏÄ" "ÏÅ" "ÏÆ" "ÏÇ" "ÏÈ" "ÏÉ" "ÏÊ" "ÏË" "ÏÌ" "ÏÍ" "ÏÎ" "ÏÏ" "ÏÐ" "ÏÑ" "ÏÒ" "ÏÓ" "ÏÔ" "ÏÕ" "ÏÖ" "Ï×" "ÏØ" "ÏÙ" "ÏÚ" "ÏÛ" "ÏÜ" "ÏÝ" "ÏÞ" "Ïß" "Ïà" "Ïá" "Ïâ" "Ïã" "Ïä" "Ïå" "Ïæ" "Ïç" "Ïè" "Ïé" "Ïê" "Ïë" "Ïì" "Ïí" "Ïî" "Ïï" "Ïð" "Ïñ" "Ïò" "Ïó" "Ïô" "Ïõ" "Ïö" "Ï÷" "Ïø" "Ïù" "Ïú" "Ïû" "Ïü" "Ïý" "Ïþ" 48| "С" "Т" "У" "Ф" "Ð¥" "Ц" "Ч" "Ш" "Щ" "Ъ" "Ы" "Ь" "Э" "Ю" "Я" "а" "б" "в" "г" "д" "е" "ж" "з" "и" "й" "к" "л" "м" "н" "о" "п" "ÐÀ" "ÐÁ" "ÐÂ" "ÐÃ" "ÐÄ" "ÐÅ" "ÐÆ" "ÐÇ" "ÐÈ" "ÐÉ" "ÐÊ" "ÐË" "ÐÌ" "ÐÍ" "ÐÎ" "ÐÏ" "ÐÐ" "ÐÑ" "ÐÒ" "ÐÓ" "ÐÔ" "ÐÕ" "ÐÖ" "Ð×" "ÐØ" "ÐÙ" "ÐÚ" "ÐÛ" "ÐÜ" "ÐÝ" "ÐÞ" "Ðß" "Ðà" "Ðá" "Ðâ" "Ðã" "Ðä" "Ðå" "Ðæ" "Ðç" "Ðè" "Ðé" "Ðê" "Ðë" "Ðì" "Ðí" "Ðî" "Ðï" "Ðð" "Ðñ" "Ðò" "Ðó" "Ðô" "Ðõ" "Ðö" "Ð÷" "Ðø" "Ðù" "Ðú" "Ðû" "Ðü" "Ðý" "Ðþ" 49| "Ñ¡" "Ñ¢" "Ñ£" "Ѥ" "Ñ¥" "Ѧ" "ѧ" "Ѩ" "Ñ©" "Ѫ" "Ñ«" "Ѭ" "Ñ­" "Ñ®" "ѯ" "Ñ°" "ѱ" "Ѳ" "ѳ" "Ñ´" "ѵ" "Ѷ" "Ñ·" "Ѹ" "ѹ" "Ѻ" "Ñ»" "Ѽ" "ѽ" "Ѿ" "Ñ¿" "ÑÀ" "ÑÁ" "ÑÂ" "ÑÃ" "ÑÄ" "ÑÅ" "ÑÆ" "ÑÇ" "ÑÈ" "ÑÉ" "ÑÊ" "ÑË" "ÑÌ" "ÑÍ" "ÑÎ" "ÑÏ" "ÑÐ" "ÑÑ" "ÑÒ" "ÑÓ" "ÑÔ" "ÑÕ" "ÑÖ" "Ñ×" "ÑØ" "ÑÙ" "ÑÚ" "ÑÛ" "ÑÜ" "ÑÝ" "ÑÞ" "Ñß" "Ñà" "Ñá" "Ñâ" "Ñã" "Ñä" "Ñå" "Ñæ" "Ñç" "Ñè" "Ñé" "Ñê" "Ñë" "Ñì" "Ñí" "Ñî" "Ñï" "Ñð" "Ññ" "Ñò" "Ñó" "Ñô" "Ñõ" "Ñö" "Ñ÷" "Ñø" "Ñù" "Ñú" "Ñû" "Ñü" "Ñý" "Ñþ" 50| "Ò¡" "Ò¢" "Ò£" "Ò¤" "Ò¥" "Ò¦" "Ò§" "Ò¨" "Ò©" "Òª" "Ò«" "Ò¬" "Ò­" "Ò®" "Ò¯" "Ò°" "Ò±" "Ò²" "Ò³" "Ò´" "Òµ" "Ò¶" "Ò·" "Ò¸" "Ò¹" "Òº" "Ò»" "Ò¼" "Ò½" "Ò¾" "Ò¿" "ÒÀ" "ÒÁ" "ÒÂ" "ÒÃ" "ÒÄ" "ÒÅ" "ÒÆ" "ÒÇ" "ÒÈ" "ÒÉ" "ÒÊ" "ÒË" "ÒÌ" "ÒÍ" "ÒÎ" "ÒÏ" "ÒÐ" "ÒÑ" "ÒÒ" "ÒÓ" "ÒÔ" "ÒÕ" "ÒÖ" "Ò×" "ÒØ" "ÒÙ" "ÒÚ" "ÒÛ" "ÒÜ" "ÒÝ" "ÒÞ" "Òß" "Òà" "Òá" "Òâ" "Òã" "Òä" "Òå" "Òæ" "Òç" "Òè" "Òé" "Òê" "Òë" "Òì" "Òí" "Òî" "Òï" "Òð" "Òñ" "Òò" "Òó" "Òô" "Òõ" "Òö" "Ò÷" "Òø" "Òù" "Òú" "Òû" "Òü" "Òý" "Òþ" 51| "Ó¡" "Ó¢" "Ó£" "Ó¤" "Ó¥" "Ó¦" "Ó§" "Ó¨" "Ó©" "Óª" "Ó«" "Ó¬" "Ó­" "Ó®" "Ó¯" "Ó°" "Ó±" "Ó²" "Ó³" "Ó´" "Óµ" "Ó¶" "Ó·" "Ó¸" "Ó¹" "Óº" "Ó»" "Ó¼" "Ó½" "Ó¾" "Ó¿" "ÓÀ" "ÓÁ" "ÓÂ" "ÓÃ" "ÓÄ" "ÓÅ" "ÓÆ" "ÓÇ" "ÓÈ" "ÓÉ" "ÓÊ" "ÓË" "ÓÌ" "ÓÍ" "ÓÎ" "ÓÏ" "ÓÐ" "ÓÑ" "ÓÒ" "ÓÓ" "ÓÔ" "ÓÕ" "ÓÖ" "Ó×" "ÓØ" "ÓÙ" "ÓÚ" "ÓÛ" "ÓÜ" "ÓÝ" "ÓÞ" "Óß" "Óà" "Óá" "Óâ" "Óã" "Óä" "Óå" "Óæ" "Óç" "Óè" "Óé" "Óê" "Óë" "Óì" "Óí" "Óî" "Óï" "Óð" "Óñ" "Óò" "Óó" "Óô" "Óõ" "Óö" "Ó÷" "Óø" "Óù" "Óú" "Óû" "Óü" "Óý" "Óþ" 52| "Ô¡" "Ô¢" "Ô£" "Ô¤" "Ô¥" "Ô¦" "Ô§" "Ô¨" "Ô©" "Ôª" "Ô«" "Ô¬" "Ô­" "Ô®" "Ô¯" "Ô°" "Ô±" "Ô²" "Ô³" "Ô´" "Ôµ" "Ô¶" "Ô·" "Ô¸" "Ô¹" "Ôº" "Ô»" "Ô¼" "Ô½" "Ô¾" "Ô¿" "ÔÀ" "ÔÁ" "ÔÂ" "ÔÃ" "ÔÄ" "ÔÅ" "ÔÆ" "ÔÇ" "ÔÈ" "ÔÉ" "ÔÊ" "ÔË" "ÔÌ" "ÔÍ" "ÔÎ" "ÔÏ" "ÔÐ" "ÔÑ" "ÔÒ" "ÔÓ" "ÔÔ" "ÔÕ" "ÔÖ" "Ô×" "ÔØ" "ÔÙ" "ÔÚ" "ÔÛ" "ÔÜ" "ÔÝ" "ÔÞ" "Ôß" "Ôà" "Ôá" "Ôâ" "Ôã" "Ôä" "Ôå" "Ôæ" "Ôç" "Ôè" "Ôé" "Ôê" "Ôë" "Ôì" "Ôí" "Ôî" "Ôï" "Ôð" "Ôñ" "Ôò" "Ôó" "Ôô" "Ôõ" "Ôö" "Ô÷" "Ôø" "Ôù" "Ôú" "Ôû" "Ôü" "Ôý" "Ôþ" 53| "Õ¡" "Õ¢" "Õ£" "Õ¤" "Õ¥" "Õ¦" "Õ§" "Õ¨" "Õ©" "Õª" "Õ«" "Õ¬" "Õ­" "Õ®" "Õ¯" "Õ°" "Õ±" "Õ²" "Õ³" "Õ´" "Õµ" "Õ¶" "Õ·" "Õ¸" "Õ¹" "Õº" "Õ»" "Õ¼" "Õ½" "Õ¾" "Õ¿" "ÕÀ" "ÕÁ" "ÕÂ" "ÕÃ" "ÕÄ" "ÕÅ" "ÕÆ" "ÕÇ" "ÕÈ" "ÕÉ" "ÕÊ" "ÕË" "ÕÌ" "ÕÍ" "ÕÎ" "ÕÏ" "ÕÐ" "ÕÑ" "ÕÒ" "ÕÓ" "ÕÔ" "ÕÕ" "ÕÖ" "Õ×" "ÕØ" "ÕÙ" "ÕÚ" "ÕÛ" "ÕÜ" "ÕÝ" "ÕÞ" "Õß" "Õà" "Õá" "Õâ" "Õã" "Õä" "Õå" "Õæ" "Õç" "Õè" "Õé" "Õê" "Õë" "Õì" "Õí" "Õî" "Õï" "Õð" "Õñ" "Õò" "Õó" "Õô" "Õõ" "Õö" "Õ÷" "Õø" "Õù" "Õú" "Õû" "Õü" "Õý" "Õþ" 54| "Ö¡" "Ö¢" "Ö£" "Ö¤" "Ö¥" "Ö¦" "Ö§" "Ö¨" "Ö©" "Öª" "Ö«" "Ö¬" "Ö­" "Ö®" "Ö¯" "Ö°" "Ö±" "Ö²" "Ö³" "Ö´" "Öµ" "Ö¶" "Ö·" "Ö¸" "Ö¹" "Öº" "Ö»" "Ö¼" "Ö½" "Ö¾" "Ö¿" "ÖÀ" "ÖÁ" "ÖÂ" "ÖÃ" "ÖÄ" "ÖÅ" "ÖÆ" "ÖÇ" "ÖÈ" "ÖÉ" "ÖÊ" "ÖË" "ÖÌ" "ÖÍ" "ÖÎ" "ÖÏ" "ÖÐ" "ÖÑ" "ÖÒ" "ÖÓ" "ÖÔ" "ÖÕ" "ÖÖ" "Ö×" "ÖØ" "ÖÙ" "ÖÚ" "ÖÛ" "ÖÜ" "ÖÝ" "ÖÞ" "Öß" "Öà" "Öá" "Öâ" "Öã" "Öä" "Öå" "Öæ" "Öç" "Öè" "Öé" "Öê" "Öë" "Öì" "Öí" "Öî" "Öï" "Öð" "Öñ" "Öò" "Öó" "Öô" "Öõ" "Öö" "Ö÷" "Öø" "Öù" "Öú" "Öû" "Öü" "Öý" "Öþ" 55| "ס" "×¢" "×£" "פ" "×¥" "צ" "ק" "ר" "ש" "ת" "׫" "׬" "×­" "×®" "ׯ" "×°" "×±" "ײ" "׳" "×´" "×µ" "׶" "×·" "׸" "×¹" "׺" "×»" "×¼" "×½" "×¾" "׿" "×À" "×Á" "×Â" "×Ã" "×Ä" "×Å" "×Æ" "×Ç" "×È" "×É" "×Ê" "×Ë" "×Ì" "×Í" "×Î" "×Ï" "×Ð" "×Ñ" "×Ò" "×Ó" "×Ô" "×Õ" "×Ö" "××" "×Ø" "×Ù" "×Ú" "×Û" "×Ü" "×Ý" "×Þ" "×ß" "×à" "×á" "×â" "×ã" "×ä" "×å" "×æ" "×ç" "×è" "×é" "×ê" "×ë" "×ì" "×í" "×î" "×ï" "×ð" "×ñ" "×ò" "×ó" "×ô" "×õ" "×ö" "×÷" "×ø" "×ù" "×ú" "×û" "×ü" "×ý" "×þ" 56| "Ø¡" "Ø¢" "Ø£" "ؤ" "Ø¥" "ئ" "ا" "ب" "Ø©" "ت" "Ø«" "ج" "Ø­" "Ø®" "د" "Ø°" "ر" "ز" "س" "Ø´" "ص" "ض" "Ø·" "ظ" "ع" "غ" "Ø»" "ؼ" "ؽ" "ؾ" "Ø¿" "ØÀ" "ØÁ" "ØÂ" "ØÃ" "ØÄ" "ØÅ" "ØÆ" "ØÇ" "ØÈ" "ØÉ" "ØÊ" "ØË" "ØÌ" "ØÍ" "ØÎ" "ØÏ" "ØÐ" "ØÑ" "ØÒ" "ØÓ" "ØÔ" "ØÕ" "ØÖ" "Ø×" "ØØ" "ØÙ" "ØÚ" "ØÛ" "ØÜ" "ØÝ" "ØÞ" "Øß" "Øà" "Øá" "Øâ" "Øã" "Øä" "Øå" "Øæ" "Øç" "Øè" "Øé" "Øê" "Øë" "Øì" "Øí" "Øî" "Øï" "Øð" "Øñ" "Øò" "Øó" "Øô" "Øõ" "Øö" "Ø÷" "Øø" "Øù" "Øú" "Øû" "Øü" "Øý" "Øþ" 57| "Ù¡" "Ù¢" "Ù£" "Ù¤" "Ù¥" "Ù¦" "Ù§" "Ù¨" "Ù©" "Ùª" "Ù«" "Ù¬" "Ù­" "Ù®" "Ù¯" "Ù°" "Ù±" "Ù²" "Ù³" "Ù´" "Ùµ" "Ù¶" "Ù·" "Ù¸" "Ù¹" "Ùº" "Ù»" "Ù¼" "Ù½" "Ù¾" "Ù¿" "ÙÀ" "ÙÁ" "ÙÂ" "ÙÃ" "ÙÄ" "ÙÅ" "ÙÆ" "ÙÇ" "ÙÈ" "ÙÉ" "ÙÊ" "ÙË" "ÙÌ" "ÙÍ" "ÙÎ" "ÙÏ" "ÙÐ" "ÙÑ" "ÙÒ" "ÙÓ" "ÙÔ" "ÙÕ" "ÙÖ" "Ù×" "ÙØ" "ÙÙ" "ÙÚ" "ÙÛ" "ÙÜ" "ÙÝ" "ÙÞ" "Ùß" "Ùà" "Ùá" "Ùâ" "Ùã" "Ùä" "Ùå" "Ùæ" "Ùç" "Ùè" "Ùé" "Ùê" "Ùë" "Ùì" "Ùí" "Ùî" "Ùï" "Ùð" "Ùñ" "Ùò" "Ùó" "Ùô" "Ùõ" "Ùö" "Ù÷" "Ùø" "Ùù" "Ùú" "Ùû" "Ùü" "Ùý" "Ùþ" 58| "Ú¡" "Ú¢" "Ú£" "Ú¤" "Ú¥" "Ú¦" "Ú§" "Ú¨" "Ú©" "Úª" "Ú«" "Ú¬" "Ú­" "Ú®" "Ú¯" "Ú°" "Ú±" "Ú²" "Ú³" "Ú´" "Úµ" "Ú¶" "Ú·" "Ú¸" "Ú¹" "Úº" "Ú»" "Ú¼" "Ú½" "Ú¾" "Ú¿" "ÚÀ" "ÚÁ" "ÚÂ" "ÚÃ" "ÚÄ" "ÚÅ" "ÚÆ" "ÚÇ" "ÚÈ" "ÚÉ" "ÚÊ" "ÚË" "ÚÌ" "ÚÍ" "ÚÎ" "ÚÏ" "ÚÐ" "ÚÑ" "ÚÒ" "ÚÓ" "ÚÔ" "ÚÕ" "ÚÖ" "Ú×" "ÚØ" "ÚÙ" "ÚÚ" "ÚÛ" "ÚÜ" "ÚÝ" "ÚÞ" "Úß" "Úà" "Úá" "Úâ" "Úã" "Úä" "Úå" "Úæ" "Úç" "Úè" "Úé" "Úê" "Úë" "Úì" "Úí" "Úî" "Úï" "Úð" "Úñ" "Úò" "Úó" "Úô" "Úõ" "Úö" "Ú÷" "Úø" "Úù" "Úú" "Úû" "Úü" "Úý" "Úþ" 59| "Û¡" "Û¢" "Û£" "Û¤" "Û¥" "Û¦" "Û§" "Û¨" "Û©" "Ûª" "Û«" "Û¬" "Û­" "Û®" "Û¯" "Û°" "Û±" "Û²" "Û³" "Û´" "Ûµ" "Û¶" "Û·" "Û¸" "Û¹" "Ûº" "Û»" "Û¼" "Û½" "Û¾" "Û¿" "ÛÀ" "ÛÁ" "ÛÂ" "ÛÃ" "ÛÄ" "ÛÅ" "ÛÆ" "ÛÇ" "ÛÈ" "ÛÉ" "ÛÊ" "ÛË" "ÛÌ" "ÛÍ" "ÛÎ" "ÛÏ" "ÛÐ" "ÛÑ" "ÛÒ" "ÛÓ" "ÛÔ" "ÛÕ" "ÛÖ" "Û×" "ÛØ" "ÛÙ" "ÛÚ" "ÛÛ" "ÛÜ" "ÛÝ" "ÛÞ" "Ûß" "Ûà" "Ûá" "Ûâ" "Ûã" "Ûä" "Ûå" "Ûæ" "Ûç" "Ûè" "Ûé" "Ûê" "Ûë" "Ûì" "Ûí" "Ûî" "Ûï" "Ûð" "Ûñ" "Ûò" "Ûó" "Ûô" "Ûõ" "Ûö" "Û÷" "Ûø" "Ûù" "Ûú" "Ûû" "Ûü" "Ûý" "Ûþ" 60| "Ü¡" "Ü¢" "Ü£" "ܤ" "Ü¥" "ܦ" "ܧ" "ܨ" "Ü©" "ܪ" "Ü«" "ܬ" "Ü­" "Ü®" "ܯ" "Ü°" "ܱ" "ܲ" "ܳ" "Ü´" "ܵ" "ܶ" "Ü·" "ܸ" "ܹ" "ܺ" "Ü»" "ܼ" "ܽ" "ܾ" "Ü¿" "ÜÀ" "ÜÁ" "ÜÂ" "ÜÃ" "ÜÄ" "ÜÅ" "ÜÆ" "ÜÇ" "ÜÈ" "ÜÉ" "ÜÊ" "ÜË" "ÜÌ" "ÜÍ" "ÜÎ" "ÜÏ" "ÜÐ" "ÜÑ" "ÜÒ" "ÜÓ" "ÜÔ" "ÜÕ" "ÜÖ" "Ü×" "ÜØ" "ÜÙ" "ÜÚ" "ÜÛ" "ÜÜ" "ÜÝ" "ÜÞ" "Üß" "Üà" "Üá" "Üâ" "Üã" "Üä" "Üå" "Üæ" "Üç" "Üè" "Üé" "Üê" "Üë" "Üì" "Üí" "Üî" "Üï" "Üð" "Üñ" "Üò" "Üó" "Üô" "Üõ" "Üö" "Ü÷" "Üø" "Üù" "Üú" "Üû" "Üü" "Üý" "Üþ" 61| "Ý¡" "Ý¢" "Ý£" "ݤ" "Ý¥" "ݦ" "ݧ" "ݨ" "Ý©" "ݪ" "Ý«" "ݬ" "Ý­" "Ý®" "ݯ" "Ý°" "ݱ" "ݲ" "ݳ" "Ý´" "ݵ" "ݶ" "Ý·" "ݸ" "ݹ" "ݺ" "Ý»" "ݼ" "ݽ" "ݾ" "Ý¿" "ÝÀ" "ÝÁ" "ÝÂ" "ÝÃ" "ÝÄ" "ÝÅ" "ÝÆ" "ÝÇ" "ÝÈ" "ÝÉ" "ÝÊ" "ÝË" "ÝÌ" "ÝÍ" "ÝÎ" "ÝÏ" "ÝÐ" "ÝÑ" "ÝÒ" "ÝÓ" "ÝÔ" "ÝÕ" "ÝÖ" "Ý×" "ÝØ" "ÝÙ" "ÝÚ" "ÝÛ" "ÝÜ" "ÝÝ" "ÝÞ" "Ýß" "Ýà" "Ýá" "Ýâ" "Ýã" "Ýä" "Ýå" "Ýæ" "Ýç" "Ýè" "Ýé" "Ýê" "Ýë" "Ýì" "Ýí" "Ýî" "Ýï" "Ýð" "Ýñ" "Ýò" "Ýó" "Ýô" "Ýõ" "Ýö" "Ý÷" "Ýø" "Ýù" "Ýú" "Ýû" "Ýü" "Ýý" "Ýþ" 62| "Þ¡" "Þ¢" "Þ£" "Þ¤" "Þ¥" "Þ¦" "Þ§" "Þ¨" "Þ©" "Þª" "Þ«" "Þ¬" "Þ­" "Þ®" "Þ¯" "Þ°" "Þ±" "Þ²" "Þ³" "Þ´" "Þµ" "Þ¶" "Þ·" "Þ¸" "Þ¹" "Þº" "Þ»" "Þ¼" "Þ½" "Þ¾" "Þ¿" "ÞÀ" "ÞÁ" "ÞÂ" "ÞÃ" "ÞÄ" "ÞÅ" "ÞÆ" "ÞÇ" "ÞÈ" "ÞÉ" "ÞÊ" "ÞË" "ÞÌ" "ÞÍ" "ÞÎ" "ÞÏ" "ÞÐ" "ÞÑ" "ÞÒ" "ÞÓ" "ÞÔ" "ÞÕ" "ÞÖ" "Þ×" "ÞØ" "ÞÙ" "ÞÚ" "ÞÛ" "ÞÜ" "ÞÝ" "ÞÞ" "Þß" "Þà" "Þá" "Þâ" "Þã" "Þä" "Þå" "Þæ" "Þç" "Þè" "Þé" "Þê" "Þë" "Þì" "Þí" "Þî" "Þï" "Þð" "Þñ" "Þò" "Þó" "Þô" "Þõ" "Þö" "Þ÷" "Þø" "Þù" "Þú" "Þû" "Þü" "Þý" "Þþ" 63| "ß¡" "ߢ" "ߣ" "ߤ" "ߥ" "ߦ" "ߧ" "ߨ" "ß©" "ߪ" "ß«" "߬" "ß­" "ß®" "߯" "ß°" "ß±" "ß²" "ß³" "ß´" "ßµ" "߶" "ß·" "߸" "ß¹" "ߺ" "ß»" "ß¼" "ß½" "ß¾" "ß¿" "ßÀ" "ßÁ" "ßÂ" "ßÃ" "ßÄ" "ßÅ" "ßÆ" "ßÇ" "ßÈ" "ßÉ" "ßÊ" "ßË" "ßÌ" "ßÍ" "ßÎ" "ßÏ" "ßÐ" "ßÑ" "ßÒ" "ßÓ" "ßÔ" "ßÕ" "ßÖ" "ß×" "ßØ" "ßÙ" "ßÚ" "ßÛ" "ßÜ" "ßÝ" "ßÞ" "ßß" "ßà" "ßá" "ßâ" "ßã" "ßä" "ßå" "ßæ" "ßç" "ßè" "ßé" "ßê" "ßë" "ßì" "ßí" "ßî" "ßï" "ßð" "ßñ" "ßò" "ßó" "ßô" "ßõ" "ßö" "ß÷" "ßø" "ßù" "ßú" "ßû" "ßü" "ßý" "ßþ" 64| "à¡" "à¢" "à£" "à¤" "à¥" "à¦" "à§" "à¨" "à©" "àª" "à«" "à¬" "à­" "à®" "à¯" "à°" "à±" "à²" "à³" "à´" "àµ" "à¶" "à·" "à¸" "à¹" "àº" "à»" "à¼" "à½" "à¾" "à¿" "àÀ" "àÁ" "àÂ" "àÃ" "àÄ" "àÅ" "àÆ" "àÇ" "àÈ" "àÉ" "àÊ" "àË" "àÌ" "àÍ" "àÎ" "àÏ" "àÐ" "àÑ" "àÒ" "àÓ" "àÔ" "àÕ" "àÖ" "à×" "àØ" "àÙ" "àÚ" "àÛ" "àÜ" "àÝ" "àÞ" "àß" "àà" "àá" "àâ" "àã" "àä" "àå" "àæ" "àç" "àè" "àé" "àê" "àë" "àì" "àí" "àî" "àï" "àð" "àñ" "àò" "àó" "àô" "àõ" "àö" "à÷" "àø" "àù" "àú" "àû" "àü" "àý" "àþ" 65| "á¡" "á¢" "á£" "á¤" "á¥" "á¦" "á§" "á¨" "á©" "áª" "á«" "á¬" "á­" "á®" "á¯" "á°" "á±" "á²" "á³" "á´" "áµ" "á¶" "á·" "á¸" "á¹" "áº" "á»" "á¼" "á½" "á¾" "á¿" "áÀ" "áÁ" "áÂ" "áÃ" "áÄ" "áÅ" "áÆ" "áÇ" "áÈ" "áÉ" "áÊ" "áË" "áÌ" "áÍ" "áÎ" "áÏ" "áÐ" "áÑ" "áÒ" "áÓ" "áÔ" "áÕ" "áÖ" "á×" "áØ" "áÙ" "áÚ" "áÛ" "áÜ" "áÝ" "áÞ" "áß" "áà" "áá" "áâ" "áã" "áä" "áå" "áæ" "áç" "áè" "áé" "áê" "áë" "áì" "áí" "áî" "áï" "áð" "áñ" "áò" "áó" "áô" "áõ" "áö" "á÷" "áø" "áù" "áú" "áû" "áü" "áý" "áþ" 66| "â¡" "â¢" "â£" "â¤" "â¥" "â¦" "â§" "â¨" "â©" "âª" "â«" "â¬" "â­" "â®" "â¯" "â°" "â±" "â²" "â³" "â´" "âµ" "â¶" "â·" "â¸" "â¹" "âº" "â»" "â¼" "â½" "â¾" "â¿" "âÀ" "âÁ" "âÂ" "âÃ" "âÄ" "âÅ" "âÆ" "âÇ" "âÈ" "âÉ" "âÊ" "âË" "âÌ" "âÍ" "âÎ" "âÏ" "âÐ" "âÑ" "âÒ" "âÓ" "âÔ" "âÕ" "âÖ" "â×" "âØ" "âÙ" "âÚ" "âÛ" "âÜ" "âÝ" "âÞ" "âß" "âà" "âá" "ââ" "âã" "âä" "âå" "âæ" "âç" "âè" "âé" "âê" "âë" "âì" "âí" "âî" "âï" "âð" "âñ" "âò" "âó" "âô" "âõ" "âö" "â÷" "âø" "âù" "âú" "âû" "âü" "âý" "âþ" 67| "ã¡" "ã¢" "ã£" "ã¤" "ã¥" "ã¦" "ã§" "ã¨" "ã©" "ãª" "ã«" "ã¬" "ã­" "ã®" "ã¯" "ã°" "ã±" "ã²" "ã³" "ã´" "ãµ" "ã¶" "ã·" "ã¸" "ã¹" "ãº" "ã»" "ã¼" "ã½" "ã¾" "ã¿" "ãÀ" "ãÁ" "ãÂ" "ãÃ" "ãÄ" "ãÅ" "ãÆ" "ãÇ" "ãÈ" "ãÉ" "ãÊ" "ãË" "ãÌ" "ãÍ" "ãÎ" "ãÏ" "ãÐ" "ãÑ" "ãÒ" "ãÓ" "ãÔ" "ãÕ" "ãÖ" "ã×" "ãØ" "ãÙ" "ãÚ" "ãÛ" "ãÜ" "ãÝ" "ãÞ" "ãß" "ãà" "ãá" "ãâ" "ãã" "ãä" "ãå" "ãæ" "ãç" "ãè" "ãé" "ãê" "ãë" "ãì" "ãí" "ãî" "ãï" "ãð" "ãñ" "ãò" "ãó" "ãô" "ãõ" "ãö" "ã÷" "ãø" "ãù" "ãú" "ãû" "ãü" "ãý" "ãþ" 68| "ä¡" "ä¢" "ä£" "ä¤" "ä¥" "ä¦" "ä§" "ä¨" "ä©" "äª" "ä«" "ä¬" "ä­" "ä®" "ä¯" "ä°" "ä±" "ä²" "ä³" "ä´" "äµ" "ä¶" "ä·" "ä¸" "ä¹" "äº" "ä»" "ä¼" "ä½" "ä¾" "ä¿" "äÀ" "äÁ" "äÂ" "äÃ" "äÄ" "äÅ" "äÆ" "äÇ" "äÈ" "äÉ" "äÊ" "äË" "äÌ" "äÍ" "äÎ" "äÏ" "äÐ" "äÑ" "äÒ" "äÓ" "äÔ" "äÕ" "äÖ" "ä×" "äØ" "äÙ" "äÚ" "äÛ" "äÜ" "äÝ" "äÞ" "äß" "äà" "äá" "äâ" "äã" "ää" "äå" "äæ" "äç" "äè" "äé" "äê" "äë" "äì" "äí" "äî" "äï" "äð" "äñ" "äò" "äó" "äô" "äõ" "äö" "ä÷" "äø" "äù" "äú" "äû" "äü" "äý" "äþ" 69| "å¡" "å¢" "å£" "å¤" "å¥" "å¦" "å§" "å¨" "å©" "åª" "å«" "å¬" "å­" "å®" "å¯" "å°" "å±" "å²" "å³" "å´" "åµ" "å¶" "å·" "å¸" "å¹" "åº" "å»" "å¼" "å½" "å¾" "å¿" "åÀ" "åÁ" "åÂ" "åÃ" "åÄ" "åÅ" "åÆ" "åÇ" "åÈ" "åÉ" "åÊ" "åË" "åÌ" "åÍ" "åÎ" "åÏ" "åÐ" "åÑ" "åÒ" "åÓ" "åÔ" "åÕ" "åÖ" "å×" "åØ" "åÙ" "åÚ" "åÛ" "åÜ" "åÝ" "åÞ" "åß" "åà" "åá" "åâ" "åã" "åä" "åå" "åæ" "åç" "åè" "åé" "åê" "åë" "åì" "åí" "åî" "åï" "åð" "åñ" "åò" "åó" "åô" "åõ" "åö" "å÷" "åø" "åù" "åú" "åû" "åü" "åý" "åþ" 70| "æ¡" "æ¢" "æ£" "æ¤" "æ¥" "æ¦" "æ§" "æ¨" "æ©" "æª" "æ«" "æ¬" "æ­" "æ®" "æ¯" "æ°" "æ±" "æ²" "æ³" "æ´" "æµ" "æ¶" "æ·" "æ¸" "æ¹" "æº" "æ»" "æ¼" "æ½" "æ¾" "æ¿" "æÀ" "æÁ" "æÂ" "æÃ" "æÄ" "æÅ" "æÆ" "æÇ" "æÈ" "æÉ" "æÊ" "æË" "æÌ" "æÍ" "æÎ" "æÏ" "æÐ" "æÑ" "æÒ" "æÓ" "æÔ" "æÕ" "æÖ" "æ×" "æØ" "æÙ" "æÚ" "æÛ" "æÜ" "æÝ" "æÞ" "æß" "æà" "æá" "æâ" "æã" "æä" "æå" "ææ" "æç" "æè" "æé" "æê" "æë" "æì" "æí" "æî" "æï" "æð" "æñ" "æò" "æó" "æô" "æõ" "æö" "æ÷" "æø" "æù" "æú" "æû" "æü" "æý" "æþ" 71| "ç¡" "ç¢" "ç£" "ç¤" "ç¥" "ç¦" "ç§" "ç¨" "ç©" "çª" "ç«" "ç¬" "ç­" "ç®" "ç¯" "ç°" "ç±" "ç²" "ç³" "ç´" "çµ" "ç¶" "ç·" "ç¸" "ç¹" "çº" "ç»" "ç¼" "ç½" "ç¾" "ç¿" "çÀ" "çÁ" "çÂ" "çÃ" "çÄ" "çÅ" "çÆ" "çÇ" "çÈ" "çÉ" "çÊ" "çË" "çÌ" "çÍ" "çÎ" "çÏ" "çÐ" "çÑ" "çÒ" "çÓ" "çÔ" "çÕ" "çÖ" "ç×" "çØ" "çÙ" "çÚ" "çÛ" "çÜ" "çÝ" "çÞ" "çß" "çà" "çá" "çâ" "çã" "çä" "çå" "çæ" "çç" "çè" "çé" "çê" "çë" "çì" "çí" "çî" "çï" "çð" "çñ" "çò" "çó" "çô" "çõ" "çö" "ç÷" "çø" "çù" "çú" "çû" "çü" "çý" "çþ" 72| "è¡" "è¢" "è£" "è¤" "è¥" "è¦" "è§" "è¨" "è©" "èª" "è«" "è¬" "è­" "è®" "è¯" "è°" "è±" "è²" "è³" "è´" "èµ" "è¶" "è·" "è¸" "è¹" "èº" "è»" "è¼" "è½" "è¾" "è¿" "èÀ" "èÁ" "èÂ" "èÃ" "èÄ" "èÅ" "èÆ" "èÇ" "èÈ" "èÉ" "èÊ" "èË" "èÌ" "èÍ" "èÎ" "èÏ" "èÐ" "èÑ" "èÒ" "èÓ" "èÔ" "èÕ" "èÖ" "è×" "èØ" "èÙ" "èÚ" "èÛ" "èÜ" "èÝ" "èÞ" "èß" "èà" "èá" "èâ" "èã" "èä" "èå" "èæ" "èç" "èè" "èé" "èê" "èë" "èì" "èí" "èî" "èï" "èð" "èñ" "èò" "èó" "èô" "èõ" "èö" "è÷" "èø" "èù" "èú" "èû" "èü" "èý" "èþ" 73| "é¡" "é¢" "é£" "é¤" "é¥" "é¦" "é§" "é¨" "é©" "éª" "é«" "é¬" "é­" "é®" "é¯" "é°" "é±" "é²" "é³" "é´" "éµ" "é¶" "é·" "é¸" "é¹" "éº" "é»" "é¼" "é½" "é¾" "é¿" "éÀ" "éÁ" "éÂ" "éÃ" "éÄ" "éÅ" "éÆ" "éÇ" "éÈ" "éÉ" "éÊ" "éË" "éÌ" "éÍ" "éÎ" "éÏ" "éÐ" "éÑ" "éÒ" "éÓ" "éÔ" "éÕ" "éÖ" "é×" "éØ" "éÙ" "éÚ" "éÛ" "éÜ" "éÝ" "éÞ" "éß" "éà" "éá" "éâ" "éã" "éä" "éå" "éæ" "éç" "éè" "éé" "éê" "éë" "éì" "éí" "éî" "éï" "éð" "éñ" "éò" "éó" "éô" "éõ" "éö" "é÷" "éø" "éù" "éú" "éû" "éü" "éý" "éþ" 74| "ê¡" "ê¢" "ê£" "ê¤" "ê¥" "ê¦" "ê§" "ê¨" "ê©" "êª" "ê«" "ê¬" "ê­" "ê®" "ê¯" "ê°" "ê±" "ê²" "ê³" "ê´" "êµ" "ê¶" "ê·" "ê¸" "ê¹" "êº" "ê»" "ê¼" "ê½" "ê¾" "ê¿" "êÀ" "êÁ" "êÂ" "êÃ" "êÄ" "êÅ" "êÆ" "êÇ" "êÈ" "êÉ" "êÊ" "êË" "êÌ" "êÍ" "êÎ" "êÏ" "êÐ" "êÑ" "êÒ" "êÓ" "êÔ" "êÕ" "êÖ" "ê×" "êØ" "êÙ" "êÚ" "êÛ" "êÜ" "êÝ" "êÞ" "êß" "êà" "êá" "êâ" "êã" "êä" "êå" "êæ" "êç" "êè" "êé" "êê" "êë" "êì" "êí" "êî" "êï" "êð" "êñ" "êò" "êó" "êô" "êõ" "êö" "ê÷" "êø" "êù" "êú" "êû" "êü" "êý" "êþ" 75| "ë¡" "ë¢" "ë£" "ë¤" "ë¥" "ë¦" "ë§" "ë¨" "ë©" "ëª" "ë«" "ë¬" "ë­" "ë®" "ë¯" "ë°" "ë±" "ë²" "ë³" "ë´" "ëµ" "ë¶" "ë·" "ë¸" "ë¹" "ëº" "ë»" "ë¼" "ë½" "ë¾" "ë¿" "ëÀ" "ëÁ" "ëÂ" "ëÃ" "ëÄ" "ëÅ" "ëÆ" "ëÇ" "ëÈ" "ëÉ" "ëÊ" "ëË" "ëÌ" "ëÍ" "ëÎ" "ëÏ" "ëÐ" "ëÑ" "ëÒ" "ëÓ" "ëÔ" "ëÕ" "ëÖ" "ë×" "ëØ" "ëÙ" "ëÚ" "ëÛ" "ëÜ" "ëÝ" "ëÞ" "ëß" "ëà" "ëá" "ëâ" "ëã" "ëä" "ëå" "ëæ" "ëç" "ëè" "ëé" "ëê" "ëë" "ëì" "ëí" "ëî" "ëï" "ëð" "ëñ" "ëò" "ëó" "ëô" "ëõ" "ëö" "ë÷" "ëø" "ëù" "ëú" "ëû" "ëü" "ëý" "ëþ" 76| "ì¡" "ì¢" "ì£" "ì¤" "ì¥" "ì¦" "ì§" "ì¨" "ì©" "ìª" "ì«" "ì¬" "ì­" "ì®" "ì¯" "ì°" "ì±" "ì²" "ì³" "ì´" "ìµ" "ì¶" "ì·" "ì¸" "ì¹" "ìº" "ì»" "ì¼" "ì½" "ì¾" "ì¿" "ìÀ" "ìÁ" "ìÂ" "ìÃ" "ìÄ" "ìÅ" "ìÆ" "ìÇ" "ìÈ" "ìÉ" "ìÊ" "ìË" "ìÌ" "ìÍ" "ìÎ" "ìÏ" "ìÐ" "ìÑ" "ìÒ" "ìÓ" "ìÔ" "ìÕ" "ìÖ" "ì×" "ìØ" "ìÙ" "ìÚ" "ìÛ" "ìÜ" "ìÝ" "ìÞ" "ìß" "ìà" "ìá" "ìâ" "ìã" "ìä" "ìå" "ìæ" "ìç" "ìè" "ìé" "ìê" "ìë" "ìì" "ìí" "ìî" "ìï" "ìð" "ìñ" "ìò" "ìó" "ìô" "ìõ" "ìö" "ì÷" "ìø" "ìù" "ìú" "ìû" "ìü" "ìý" "ìþ" 77| "í¡" "í¢" "í£" "í¤" "í¥" "í¦" "í§" "í¨" "í©" "íª" "í«" "í¬" "í­" "í®" "í¯" "í°" "í±" "í²" "í³" "í´" "íµ" "í¶" "í·" "í¸" "í¹" "íº" "í»" "í¼" "í½" "í¾" "í¿" "íÀ" "íÁ" "íÂ" "íÃ" "íÄ" "íÅ" "íÆ" "íÇ" "íÈ" "íÉ" "íÊ" "íË" "íÌ" "íÍ" "íÎ" "íÏ" "íÐ" "íÑ" "íÒ" "íÓ" "íÔ" "íÕ" "íÖ" "í×" "íØ" "íÙ" "íÚ" "íÛ" "íÜ" "íÝ" "íÞ" "íß" "íà" "íá" "íâ" "íã" "íä" "íå" "íæ" "íç" "íè" "íé" "íê" "íë" "íì" "íí" "íî" "íï" "íð" "íñ" "íò" "íó" "íô" "íõ" "íö" "í÷" "íø" "íù" "íú" "íû" "íü" "íý" "íþ" 78| "î¡" "î¢" "î£" "î¤" "î¥" "î¦" "î§" "î¨" "î©" "îª" "î«" "î¬" "î­" "î®" "î¯" "î°" "î±" "î²" "î³" "î´" "îµ" "î¶" "î·" "î¸" "î¹" "îº" "î»" "î¼" "î½" "î¾" "î¿" "îÀ" "îÁ" "îÂ" "îÃ" "îÄ" "îÅ" "îÆ" "îÇ" "îÈ" "îÉ" "îÊ" "îË" "îÌ" "îÍ" "îÎ" "îÏ" "îÐ" "îÑ" "îÒ" "îÓ" "îÔ" "îÕ" "îÖ" "î×" "îØ" "îÙ" "îÚ" "îÛ" "îÜ" "îÝ" "îÞ" "îß" "îà" "îá" "îâ" "îã" "îä" "îå" "îæ" "îç" "îè" "îé" "îê" "îë" "îì" "îí" "îî" "îï" "îð" "îñ" "îò" "îó" "îô" "îõ" "îö" "î÷" "îø" "îù" "îú" "îû" "îü" "îý" "îþ" 79| "ï¡" "ï¢" "ï£" "ï¤" "ï¥" "ï¦" "ï§" "ï¨" "ï©" "ïª" "ï«" "ï¬" "ï­" "ï®" "ï¯" "ï°" "ï±" "ï²" "ï³" "ï´" "ïµ" "ï¶" "ï·" "ï¸" "ï¹" "ïº" "ï»" "ï¼" "ï½" "ï¾" "ï¿" "ïÀ" "ïÁ" "ïÂ" "ïÃ" "ïÄ" "ïÅ" "ïÆ" "ïÇ" "ïÈ" "ïÉ" "ïÊ" "ïË" "ïÌ" "ïÍ" "ïÎ" "ïÏ" "ïÐ" "ïÑ" "ïÒ" "ïÓ" "ïÔ" "ïÕ" "ïÖ" "ï×" "ïØ" "ïÙ" "ïÚ" "ïÛ" "ïÜ" "ïÝ" "ïÞ" "ïß" "ïà" "ïá" "ïâ" "ïã" "ïä" "ïå" "ïæ" "ïç" "ïè" "ïé" "ïê" "ïë" "ïì" "ïí" "ïî" "ïï" "ïð" "ïñ" "ïò" "ïó" "ïô" "ïõ" "ïö" "ï÷" "ïø" "ïù" "ïú" "ïû" "ïü" "ïý" "ïþ" 80| "ð¡" "ð¢" "ð£" "ð¤" "ð¥" "ð¦" "ð§" "ð¨" "ð©" "ðª" "ð«" "ð¬" "ð­" "ð®" "ð¯" "ð°" "ð±" "ð²" "ð³" "ð´" "ðµ" "ð¶" "ð·" "ð¸" "ð¹" "ðº" "ð»" "ð¼" "ð½" "ð¾" "ð¿" "ðÀ" "ðÁ" "ðÂ" "ðÃ" "ðÄ" "ðÅ" "ðÆ" "ðÇ" "ðÈ" "ðÉ" "ðÊ" "ðË" "ðÌ" "ðÍ" "ðÎ" "ðÏ" "ðÐ" "ðÑ" "ðÒ" "ðÓ" "ðÔ" "ðÕ" "ðÖ" "ð×" "ðØ" "ðÙ" "ðÚ" "ðÛ" "ðÜ" "ðÝ" "ðÞ" "ðß" "ðà" "ðá" "ðâ" "ðã" "ðä" "ðå" "ðæ" "ðç" "ðè" "ðé" "ðê" "ðë" "ðì" "ðí" "ðî" "ðï" "ðð" "ðñ" "ðò" "ðó" "ðô" "ðõ" "ðö" "ð÷" "ðø" "ðù" "ðú" "ðû" "ðü" "ðý" "ðþ" 81| "ñ¡" "ñ¢" "ñ£" "ñ¤" "ñ¥" "ñ¦" "ñ§" "ñ¨" "ñ©" "ñª" "ñ«" "ñ¬" "ñ­" "ñ®" "ñ¯" "ñ°" "ñ±" "ñ²" "ñ³" "ñ´" "ñµ" "ñ¶" "ñ·" "ñ¸" "ñ¹" "ñº" "ñ»" "ñ¼" "ñ½" "ñ¾" "ñ¿" "ñÀ" "ñÁ" "ñÂ" "ñÃ" "ñÄ" "ñÅ" "ñÆ" "ñÇ" "ñÈ" "ñÉ" "ñÊ" "ñË" "ñÌ" "ñÍ" "ñÎ" "ñÏ" "ñÐ" "ñÑ" "ñÒ" "ñÓ" "ñÔ" "ñÕ" "ñÖ" "ñ×" "ñØ" "ñÙ" "ñÚ" "ñÛ" "ñÜ" "ñÝ" "ñÞ" "ñß" "ñà" "ñá" "ñâ" "ñã" "ñä" "ñå" "ñæ" "ñç" "ñè" "ñé" "ñê" "ñë" "ñì" "ñí" "ñî" "ñï" "ñð" "ññ" "ñò" "ñó" "ñô" "ñõ" "ñö" "ñ÷" "ñø" "ñù" "ñú" "ñû" "ñü" "ñý" "ñþ" 82| "ò¡" "ò¢" "ò£" "ò¤" "ò¥" "ò¦" "ò§" "ò¨" "ò©" "òª" "ò«" "ò¬" "ò­" "ò®" "ò¯" "ò°" "ò±" "ò²" "ò³" "ò´" "òµ" "ò¶" "ò·" "ò¸" "ò¹" "òº" "ò»" "ò¼" "ò½" "ò¾" "ò¿" "òÀ" "òÁ" "òÂ" "òÃ" "òÄ" "òÅ" "òÆ" "òÇ" "òÈ" "òÉ" "òÊ" "òË" "òÌ" "òÍ" "òÎ" "òÏ" "òÐ" "òÑ" "òÒ" "òÓ" "òÔ" "òÕ" "òÖ" "ò×" "òØ" "òÙ" "òÚ" "òÛ" "òÜ" "òÝ" "òÞ" "òß" "òà" "òá" "òâ" "òã" "òä" "òå" "òæ" "òç" "òè" "òé" "òê" "òë" "òì" "òí" "òî" "òï" "òð" "òñ" "òò" "òó" "òô" "òõ" "òö" "ò÷" "òø" "òù" "òú" "òû" "òü" "òý" "òþ" 83| "ó¡" "ó¢" "ó£" "ó¤" "ó¥" "ó¦" "ó§" "ó¨" "ó©" "óª" "ó«" "ó¬" "ó­" "ó®" "ó¯" "ó°" "ó±" "ó²" "ó³" "ó´" "óµ" "ó¶" "ó·" "ó¸" "ó¹" "óº" "ó»" "ó¼" "ó½" "ó¾" "ó¿" "óÀ" "óÁ" "óÂ" "óÃ" "óÄ" "óÅ" "óÆ" "óÇ" "óÈ" "óÉ" "óÊ" "óË" "óÌ" "óÍ" "óÎ" "óÏ" "óÐ" "óÑ" "óÒ" "óÓ" "óÔ" "óÕ" "óÖ" "ó×" "óØ" "óÙ" "óÚ" "óÛ" "óÜ" "óÝ" "óÞ" "óß" "óà" "óá" "óâ" "óã" "óä" "óå" "óæ" "óç" "óè" "óé" "óê" "óë" "óì" "óí" "óî" "óï" "óð" "óñ" "óò" "óó" "óô" "óõ" "óö" "ó÷" "óø" "óù" "óú" "óû" "óü" "óý" "óþ" 84| "ô¡" "ô¢" "ô£" "ô¤" "ô¥" "ô¦" "ô§" "ô¨" "ô©" "ôª" "ô«" "ô¬" "ô­" "ô®" "ô¯" "ô°" "ô±" "ô²" "ô³" "ô´" "ôµ" "ô¶" "ô·" "ô¸" "ô¹" "ôº" "ô»" "ô¼" "ô½" "ô¾" "ô¿" "ôÀ" "ôÁ" "ôÂ" "ôÃ" "ôÄ" "ôÅ" "ôÆ" "ôÇ" "ôÈ" "ôÉ" "ôÊ" "ôË" "ôÌ" "ôÍ" "ôÎ" "ôÏ" "ôÐ" "ôÑ" "ôÒ" "ôÓ" "ôÔ" "ôÕ" "ôÖ" "ô×" "ôØ" "ôÙ" "ôÚ" "ôÛ" "ôÜ" "ôÝ" "ôÞ" "ôß" "ôà" "ôá" "ôâ" "ôã" "ôä" "ôå" "ôæ" "ôç" "ôè" "ôé" "ôê" "ôë" "ôì" "ôí" "ôî" "ôï" "ôð" "ôñ" "ôò" "ôó" "ôô" "ôõ" "ôö" "ô÷" "ôø" "ôù" "ôú" "ôû" "ôü" "ôý" "ôþ" 85| "õ¡" "õ¢" "õ£" "õ¤" "õ¥" "õ¦" "õ§" "õ¨" "õ©" "õª" "õ«" "õ¬" "õ­" "õ®" "õ¯" "õ°" "õ±" "õ²" "õ³" "õ´" "õµ" "õ¶" "õ·" "õ¸" "õ¹" "õº" "õ»" "õ¼" "õ½" "õ¾" "õ¿" "õÀ" "õÁ" "õÂ" "õÃ" "õÄ" "õÅ" "õÆ" "õÇ" "õÈ" "õÉ" "õÊ" "õË" "õÌ" "õÍ" "õÎ" "õÏ" "õÐ" "õÑ" "õÒ" "õÓ" "õÔ" "õÕ" "õÖ" "õ×" "õØ" "õÙ" "õÚ" "õÛ" "õÜ" "õÝ" "õÞ" "õß" "õà" "õá" "õâ" "õã" "õä" "õå" "õæ" "õç" "õè" "õé" "õê" "õë" "õì" "õí" "õî" "õï" "õð" "õñ" "õò" "õó" "õô" "õõ" "õö" "õ÷" "õø" "õù" "õú" "õû" "õü" "õý" "õþ" 86| "ö¡" "ö¢" "ö£" "ö¤" "ö¥" "ö¦" "ö§" "ö¨" "ö©" "öª" "ö«" "ö¬" "ö­" "ö®" "ö¯" "ö°" "ö±" "ö²" "ö³" "ö´" "öµ" "ö¶" "ö·" "ö¸" "ö¹" "öº" "ö»" "ö¼" "ö½" "ö¾" "ö¿" "öÀ" "öÁ" "öÂ" "öÃ" "öÄ" "öÅ" "öÆ" "öÇ" "öÈ" "öÉ" "öÊ" "öË" "öÌ" "öÍ" "öÎ" "öÏ" "öÐ" "öÑ" "öÒ" "öÓ" "öÔ" "öÕ" "öÖ" "ö×" "öØ" "öÙ" "öÚ" "öÛ" "öÜ" "öÝ" "öÞ" "öß" "öà" "öá" "öâ" "öã" "öä" "öå" "öæ" "öç" "öè" "öé" "öê" "öë" "öì" "öí" "öî" "öï" "öð" "öñ" "öò" "öó" "öô" "öõ" "öö" "ö÷" "öø" "öù" "öú" "öû" "öü" "öý" "öþ" 87| "÷¡" "÷¢" "÷£" "÷¤" "÷¥" "÷¦" "÷§" "÷¨" "÷©" "÷ª" "÷«" "÷¬" "÷­" "÷®" "÷¯" "÷°" "÷±" "÷²" "÷³" "÷´" "÷µ" "÷¶" "÷·" "÷¸" "÷¹" "÷º" "÷»" "÷¼" "÷½" "÷¾" "÷¿" "÷À" "÷Á" "÷Â" "÷Ã" "÷Ä" "÷Å" "÷Æ" "÷Ç" "÷È" "÷É" "÷Ê" "÷Ë" "÷Ì" "÷Í" "÷Î" "÷Ï" "÷Ð" "÷Ñ" "÷Ò" "÷Ó" "÷Ô" "÷Õ" "÷Ö" "÷×" "÷Ø" "÷Ù" "÷Ú" "÷Û" "÷Ü" "÷Ý" "÷Þ" "÷ß" "÷à" "÷á" "÷â" "÷ã" "÷ä" "÷å" "÷æ" "÷ç" "÷è" "÷é" "÷ê" "÷ë" "÷ì" "÷í" "÷î" "÷ï" "÷ð" "÷ñ" "÷ò" "÷ó" "÷ô" "÷õ" "÷ö" "÷÷" "÷ø" "÷ù" "÷ú" "÷û" "÷ü" "÷ý" "÷þ" 88| "ø¡" "ø¢" "ø£" "ø¤" "ø¥" "ø¦" "ø§" "ø¨" "ø©" "øª" "ø«" "ø¬" "ø­" "ø®" "ø¯" "ø°" "ø±" "ø²" "ø³" "ø´" "øµ" "ø¶" "ø·" "ø¸" "ø¹" "øº" "ø»" "ø¼" "ø½" "ø¾" "ø¿" "øÀ" "øÁ" "øÂ" "øÃ" "øÄ" "øÅ" "øÆ" "øÇ" "øÈ" "øÉ" "øÊ" "øË" "øÌ" "øÍ" "øÎ" "øÏ" "øÐ" "øÑ" "øÒ" "øÓ" "øÔ" "øÕ" "øÖ" "ø×" "øØ" "øÙ" "øÚ" "øÛ" "øÜ" "øÝ" "øÞ" "øß" "øà" "øá" "øâ" "øã" "øä" "øå" "øæ" "øç" "øè" "øé" "øê" "øë" "øì" "øí" "øî" "øï" "øð" "øñ" "øò" "øó" "øô" "øõ" "øö" "ø÷" "øø" "øù" "øú" "øû" "øü" "øý" "øþ" 89| "ù¡" "ù¢" "ù£" "ù¤" "ù¥" "ù¦" "ù§" "ù¨" "ù©" "ùª" "ù«" "ù¬" "ù­" "ù®" "ù¯" "ù°" "ù±" "ù²" "ù³" "ù´" "ùµ" "ù¶" "ù·" "ù¸" "ù¹" "ùº" "ù»" "ù¼" "ù½" "ù¾" "ù¿" "ùÀ" "ùÁ" "ùÂ" "ùÃ" "ùÄ" "ùÅ" "ùÆ" "ùÇ" "ùÈ" "ùÉ" "ùÊ" "ùË" "ùÌ" "ùÍ" "ùÎ" "ùÏ" "ùÐ" "ùÑ" "ùÒ" "ùÓ" "ùÔ" "ùÕ" "ùÖ" "ù×" "ùØ" "ùÙ" "ùÚ" "ùÛ" "ùÜ" "ùÝ" "ùÞ" "ùß" "ùà" "ùá" "ùâ" "ùã" "ùä" "ùå" "ùæ" "ùç" "ùè" "ùé" "ùê" "ùë" "ùì" "ùí" "ùî" "ùï" "ùð" "ùñ" "ùò" "ùó" "ùô" "ùõ" "ùö" "ù÷" "ùø" "ùù" "ùú" "ùû" "ùü" "ùý" "ùþ" 90| "ú¡" "ú¢" "ú£" "ú¤" "ú¥" "ú¦" "ú§" "ú¨" "ú©" "úª" "ú«" "ú¬" "ú­" "ú®" "ú¯" "ú°" "ú±" "ú²" "ú³" "ú´" "úµ" "ú¶" "ú·" "ú¸" "ú¹" "úº" "ú»" "ú¼" "ú½" "ú¾" "ú¿" "úÀ" "úÁ" "úÂ" "úÃ" "úÄ" "úÅ" "úÆ" "úÇ" "úÈ" "úÉ" "úÊ" "úË" "úÌ" "úÍ" "úÎ" "úÏ" "úÐ" "úÑ" "úÒ" "úÓ" "úÔ" "úÕ" "úÖ" "ú×" "úØ" "úÙ" "úÚ" "úÛ" "úÜ" "úÝ" "úÞ" "úß" "úà" "úá" "úâ" "úã" "úä" "úå" "úæ" "úç" "úè" "úé" "úê" "úë" "úì" "úí" "úî" "úï" "úð" "úñ" "úò" "úó" "úô" "úõ" "úö" "ú÷" "úø" "úù" "úú" "úû" "úü" "úý" "úþ" 91| "û¡" "û¢" "û£" "û¤" "û¥" "û¦" "û§" "û¨" "û©" "ûª" "û«" "û¬" "û­" "û®" "û¯" "û°" "û±" "û²" "û³" "û´" "ûµ" "û¶" "û·" "û¸" "û¹" "ûº" "û»" "û¼" "û½" "û¾" "û¿" "ûÀ" "ûÁ" "ûÂ" "ûÃ" "ûÄ" "ûÅ" "ûÆ" "ûÇ" "ûÈ" "ûÉ" "ûÊ" "ûË" "ûÌ" "ûÍ" "ûÎ" "ûÏ" "ûÐ" "ûÑ" "ûÒ" "ûÓ" "ûÔ" "ûÕ" "ûÖ" "û×" "ûØ" "ûÙ" "ûÚ" "ûÛ" "ûÜ" "ûÝ" "ûÞ" "ûß" "ûà" "ûá" "ûâ" "ûã" "ûä" "ûå" "ûæ" "ûç" "ûè" "ûé" "ûê" "ûë" "ûì" "ûí" "ûî" "ûï" "ûð" "ûñ" "ûò" "ûó" "ûô" "ûõ" "ûö" "û÷" "ûø" "ûù" "ûú" "ûû" "ûü" "ûý" "ûþ" 92| "ü¡" "ü¢" "ü£" "ü¤" "ü¥" "ü¦" "ü§" "ü¨" "ü©" "üª" "ü«" "ü¬" "ü­" "ü®" "ü¯" "ü°" "ü±" "ü²" "ü³" "ü´" "üµ" "ü¶" "ü·" "ü¸" "ü¹" "üº" "ü»" "ü¼" "ü½" "ü¾" "ü¿" "üÀ" "üÁ" "üÂ" "üÃ" "üÄ" "üÅ" "üÆ" "üÇ" "üÈ" "üÉ" "üÊ" "üË" "üÌ" "üÍ" "üÎ" "üÏ" "üÐ" "üÑ" "üÒ" "üÓ" "üÔ" "üÕ" "üÖ" "ü×" "üØ" "üÙ" "üÚ" "üÛ" "üÜ" "üÝ" "üÞ" "üß" "üà" "üá" "üâ" "üã" "üä" "üå" "üæ" "üç" "üè" "üé" "üê" "üë" "üì" "üí" "üî" "üï" "üð" "üñ" "üò" "üó" "üô" "üõ" "üö" "ü÷" "üø" "üù" "üú" "üû" "üü" "üý" "üþ" 93| "ý¡" "ý¢" "ý£" "ý¤" "ý¥" "ý¦" "ý§" "ý¨" "ý©" "ýª" "ý«" "ý¬" "ý­" "ý®" "ý¯" "ý°" "ý±" "ý²" "ý³" "ý´" "ýµ" "ý¶" "ý·" "ý¸" "ý¹" "ýº" "ý»" "ý¼" "ý½" "ý¾" "ý¿" "ýÀ" "ýÁ" "ýÂ" "ýÃ" "ýÄ" "ýÅ" "ýÆ" "ýÇ" "ýÈ" "ýÉ" "ýÊ" "ýË" "ýÌ" "ýÍ" "ýÎ" "ýÏ" "ýÐ" "ýÑ" "ýÒ" "ýÓ" "ýÔ" "ýÕ" "ýÖ" "ý×" "ýØ" "ýÙ" "ýÚ" "ýÛ" "ýÜ" "ýÝ" "ýÞ" "ýß" "ýà" "ýá" "ýâ" "ýã" "ýä" "ýå" "ýæ" "ýç" "ýè" "ýé" "ýê" "ýë" "ýì" "ýí" "ýî" "ýï" "ýð" "ýñ" "ýò" "ýó" "ýô" "ýõ" "ýö" "ý÷" "ýø" "ýù" "ýú" "ýû" "ýü" "ýý" "ýþ" 94| "þ¡" "þ¢" "þ£" "þ¤" "þ¥" "þ¦" "þ§" "þ¨" "þ©" "þª" "þ«" "þ¬" "þ­" "þ®" "þ¯" "þ°" "þ±" "þ²" "þ³" "þ´" "þµ" "þ¶" "þ·" "þ¸" "þ¹" "þº" "þ»" "þ¼" "þ½" "þ¾" "þ¿" "þÀ" "þÁ" "þÂ" "þÃ" "þÄ" "þÅ" "þÆ" "þÇ" "þÈ" "þÉ" "þÊ" "þË" "þÌ" "þÍ" "þÎ" "þÏ" "þÐ" "þÑ" "þÒ" "þÓ" "þÔ" "þÕ" "þÖ" "þ×" "þØ" "þÙ" "þÚ" "þÛ" "þÜ" "þÝ" "þÞ" "þß" "þà" "þá" "þâ" "þã" "þä" "þå" "þæ" "þç" "þè" "þé" "þê" "þë" "þì" "þí" "þî" "þï" "þð" "þñ" "þò" "þó" "þô" "þõ" "þö" "þ÷" "þø" "þù" "þú" "þû" "þü" "þý" "þþ" egg-4.0.6+0.20041122cvs/doc/code-table/euc-jp.text0000644000764400003210000013073307234613644022324 0ustar ishikawaishikawa00000000000000;;; -*- coding: euc-jp -*- | 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 -+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 01| "¡¡" "¡¢" "¡£" "¡¤" "¡¥" "¡¦" "¡§" "¡¨" "¡©" "¡ª" "¡«" "¡¬" "¡­" "¡®" "¡¯" "¡°" "¡±" "¡²" "¡³" "¡´" "¡µ" "¡¶" "¡·" "¡¸" "¡¹" "¡º" "¡»" "¡¼" "¡½" "¡¾" "¡¿" "¡À" "¡Á" "¡Â" "¡Ã" "¡Ä" "¡Å" "¡Æ" "¡Ç" "¡È" "¡É" "¡Ê" "¡Ë" "¡Ì" "¡Í" "¡Î" "¡Ï" "¡Ð" "¡Ñ" "¡Ò" "¡Ó" "¡Ô" "¡Õ" "¡Ö" "¡×" "¡Ø" "¡Ù" "¡Ú" "¡Û" "¡Ü" "¡Ý" "¡Þ" "¡ß" "¡à" "¡á" "¡â" "¡ã" "¡ä" "¡å" "¡æ" "¡ç" "¡è" "¡é" "¡ê" "¡ë" "¡ì" "¡í" "¡î" "¡ï" "¡ð" "¡ñ" "¡ò" "¡ó" "¡ô" "¡õ" "¡ö" "¡÷" "¡ø" "¡ù" "¡ú" "¡û" "¡ü" "¡ý" "¡þ" 02| "¢¡" "¢¢" "¢£" "¢¤" "¢¥" "¢¦" "¢§" "¢¨" "¢©" "¢ª" "¢«" "¢¬" "¢­" "¢®" "¢¯" "¢°" "¢±" "¢²" "¢³" "¢´" "¢µ" "¢¶" "¢·" "¢¸" "¢¹" "¢º" "¢»" "¢¼" "¢½" "¢¾" "¢¿" "¢À" "¢Á" "¢Â" "¢Ã" "¢Ä" "¢Å" "¢Æ" "¢Ç" "¢È" "¢É" "¢Ê" "¢Ë" "¢Ì" "¢Í" "¢Î" "¢Ï" "¢Ð" "¢Ñ" "¢Ò" "¢Ó" "¢Ô" "¢Õ" "¢Ö" "¢×" "¢Ø" "¢Ù" "¢Ú" "¢Û" "¢Ü" "¢Ý" "¢Þ" "¢ß" "¢à" "¢á" "¢â" "¢ã" "¢ä" "¢å" "¢æ" "¢ç" "¢è" "¢é" "¢ê" "¢ë" "¢ì" "¢í" "¢î" "¢ï" "¢ð" "¢ñ" "¢ò" "¢ó" "¢ô" "¢õ" "¢ö" "¢÷" "¢ø" "¢ù" "¢ú" "¢û" "¢ü" "¢ý" "¢þ" 03| "£¡" "£¢" "££" "£¤" "£¥" "£¦" "£§" "£¨" "£©" "£ª" "£«" "£¬" "£­" "£®" "£¯" "£°" "£±" "£²" "£³" "£´" "£µ" "£¶" "£·" "£¸" "£¹" "£º" "£»" "£¼" "£½" "£¾" "£¿" "£À" "£Á" "£Â" "£Ã" "£Ä" "£Å" "£Æ" "£Ç" "£È" "£É" "£Ê" "£Ë" "£Ì" "£Í" "£Î" "£Ï" "£Ð" "£Ñ" "£Ò" "£Ó" "£Ô" "£Õ" "£Ö" "£×" "£Ø" "£Ù" "£Ú" "£Û" "£Ü" "£Ý" "£Þ" "£ß" "£à" "£á" "£â" "£ã" "£ä" "£å" "£æ" "£ç" "£è" "£é" "£ê" "£ë" "£ì" "£í" "£î" "£ï" "£ð" "£ñ" "£ò" "£ó" "£ô" "£õ" "£ö" "£÷" "£ø" "£ù" "£ú" "£û" "£ü" "£ý" "£þ" 04| "¤¡" "¤¢" "¤£" "¤¤" "¤¥" "¤¦" "¤§" "¤¨" "¤©" "¤ª" "¤«" "¤¬" "¤­" "¤®" "¤¯" "¤°" "¤±" "¤²" "¤³" "¤´" "¤µ" "¤¶" "¤·" "¤¸" "¤¹" "¤º" "¤»" "¤¼" "¤½" "¤¾" "¤¿" "¤À" "¤Á" "¤Â" "¤Ã" "¤Ä" "¤Å" "¤Æ" "¤Ç" "¤È" "¤É" "¤Ê" "¤Ë" "¤Ì" "¤Í" "¤Î" "¤Ï" "¤Ð" "¤Ñ" "¤Ò" "¤Ó" "¤Ô" "¤Õ" "¤Ö" "¤×" "¤Ø" "¤Ù" "¤Ú" "¤Û" "¤Ü" "¤Ý" "¤Þ" "¤ß" "¤à" "¤á" "¤â" "¤ã" "¤ä" "¤å" "¤æ" "¤ç" "¤è" "¤é" "¤ê" "¤ë" "¤ì" "¤í" "¤î" "¤ï" "¤ð" "¤ñ" "¤ò" "¤ó" "¤ô" "¤õ" "¤ö" "¤÷" "¤ø" "¤ù" "¤ú" "¤û" "¤ü" "¤ý" "¤þ" 05| "¥¡" "¥¢" "¥£" "¥¤" "¥¥" "¥¦" "¥§" "¥¨" "¥©" "¥ª" "¥«" "¥¬" "¥­" "¥®" "¥¯" "¥°" "¥±" "¥²" "¥³" "¥´" "¥µ" "¥¶" "¥·" "¥¸" "¥¹" "¥º" "¥»" "¥¼" "¥½" "¥¾" "¥¿" "¥À" "¥Á" "¥Â" "¥Ã" "¥Ä" "¥Å" "¥Æ" "¥Ç" "¥È" "¥É" "¥Ê" "¥Ë" "¥Ì" "¥Í" "¥Î" "¥Ï" "¥Ð" "¥Ñ" "¥Ò" "¥Ó" "¥Ô" "¥Õ" "¥Ö" "¥×" "¥Ø" "¥Ù" "¥Ú" "¥Û" "¥Ü" "¥Ý" "¥Þ" "¥ß" "¥à" "¥á" "¥â" "¥ã" "¥ä" "¥å" "¥æ" "¥ç" "¥è" "¥é" "¥ê" "¥ë" "¥ì" "¥í" "¥î" "¥ï" "¥ð" "¥ñ" "¥ò" "¥ó" "¥ô" "¥õ" "¥ö" "¥÷" "¥ø" "¥ù" "¥ú" "¥û" "¥ü" "¥ý" "¥þ" 06| "¦¡" "¦¢" "¦£" "¦¤" "¦¥" "¦¦" "¦§" "¦¨" "¦©" "¦ª" "¦«" "¦¬" "¦­" "¦®" "¦¯" "¦°" "¦±" "¦²" "¦³" "¦´" "¦µ" "¦¶" "¦·" "¦¸" "¦¹" "¦º" "¦»" "¦¼" "¦½" "¦¾" "¦¿" "¦À" "¦Á" "¦Â" "¦Ã" "¦Ä" "¦Å" "¦Æ" "¦Ç" "¦È" "¦É" "¦Ê" "¦Ë" "¦Ì" "¦Í" "¦Î" "¦Ï" "¦Ð" "¦Ñ" "¦Ò" "¦Ó" "¦Ô" "¦Õ" "¦Ö" "¦×" "¦Ø" "¦Ù" "¦Ú" "¦Û" "¦Ü" "¦Ý" "¦Þ" "¦ß" "¦à" "¦á" "¦â" "¦ã" "¦ä" "¦å" "¦æ" "¦ç" "¦è" "¦é" "¦ê" "¦ë" "¦ì" "¦í" "¦î" "¦ï" "¦ð" "¦ñ" "¦ò" "¦ó" "¦ô" "¦õ" "¦ö" "¦÷" "¦ø" "¦ù" "¦ú" "¦û" "¦ü" "¦ý" "¦þ" 07| "§¡" "§¢" "§£" "§¤" "§¥" "§¦" "§§" "§¨" "§©" "§ª" "§«" "§¬" "§­" "§®" "§¯" "§°" "§±" "§²" "§³" "§´" "§µ" "§¶" "§·" "§¸" "§¹" "§º" "§»" "§¼" "§½" "§¾" "§¿" "§À" "§Á" "§Â" "§Ã" "§Ä" "§Å" "§Æ" "§Ç" "§È" "§É" "§Ê" "§Ë" "§Ì" "§Í" "§Î" "§Ï" "§Ð" "§Ñ" "§Ò" "§Ó" "§Ô" "§Õ" "§Ö" "§×" "§Ø" "§Ù" "§Ú" "§Û" "§Ü" "§Ý" "§Þ" "§ß" "§à" "§á" "§â" "§ã" "§ä" "§å" "§æ" "§ç" "§è" "§é" "§ê" "§ë" "§ì" "§í" "§î" "§ï" "§ð" "§ñ" "§ò" "§ó" "§ô" "§õ" "§ö" "§÷" "§ø" "§ù" "§ú" "§û" "§ü" "§ý" "§þ" 08| "¨¡" "¨¢" "¨£" "¨¤" "¨¥" "¨¦" "¨§" "¨¨" "¨©" "¨ª" "¨«" "¨¬" "¨­" "¨®" "¨¯" "¨°" "¨±" "¨²" "¨³" "¨´" "¨µ" "¨¶" "¨·" "¨¸" "¨¹" "¨º" "¨»" "¨¼" "¨½" "¨¾" "¨¿" "¨À" "¨Á" "¨Â" "¨Ã" "¨Ä" "¨Å" "¨Æ" "¨Ç" "¨È" "¨É" "¨Ê" "¨Ë" "¨Ì" "¨Í" "¨Î" "¨Ï" "¨Ð" "¨Ñ" "¨Ò" "¨Ó" "¨Ô" "¨Õ" "¨Ö" "¨×" "¨Ø" "¨Ù" "¨Ú" "¨Û" "¨Ü" "¨Ý" "¨Þ" "¨ß" "¨à" "¨á" "¨â" "¨ã" "¨ä" "¨å" "¨æ" "¨ç" "¨è" "¨é" "¨ê" "¨ë" "¨ì" "¨í" "¨î" "¨ï" "¨ð" "¨ñ" "¨ò" "¨ó" "¨ô" "¨õ" "¨ö" "¨÷" "¨ø" "¨ù" "¨ú" "¨û" "¨ü" "¨ý" "¨þ" 09| "©¡" "©¢" "©£" "©¤" "©¥" "©¦" "©§" "©¨" "©©" "©ª" "©«" "©¬" "©­" "©®" "©¯" "©°" "©±" "©²" "©³" "©´" "©µ" "©¶" "©·" "©¸" "©¹" "©º" "©»" "©¼" "©½" "©¾" "©¿" "©À" "©Á" "©Â" "©Ã" "©Ä" "©Å" "©Æ" "©Ç" "©È" "©É" "©Ê" "©Ë" "©Ì" "©Í" "©Î" "©Ï" "©Ð" "©Ñ" "©Ò" "©Ó" "©Ô" "©Õ" "©Ö" "©×" "©Ø" "©Ù" "©Ú" "©Û" "©Ü" "©Ý" "©Þ" "©ß" "©à" "©á" "©â" "©ã" "©ä" "©å" "©æ" "©ç" "©è" "©é" "©ê" "©ë" "©ì" "©í" "©î" "©ï" "©ð" "©ñ" "©ò" "©ó" "©ô" "©õ" "©ö" "©÷" "©ø" "©ù" "©ú" "©û" "©ü" "©ý" "©þ" 10| "ª¡" "ª¢" "ª£" "ª¤" "ª¥" "ª¦" "ª§" "ª¨" "ª©" "ªª" "ª«" "ª¬" "ª­" "ª®" "ª¯" "ª°" "ª±" "ª²" "ª³" "ª´" "ªµ" "ª¶" "ª·" "ª¸" "ª¹" "ªº" "ª»" "ª¼" "ª½" "ª¾" "ª¿" "ªÀ" "ªÁ" "ªÂ" "ªÃ" "ªÄ" "ªÅ" "ªÆ" "ªÇ" "ªÈ" "ªÉ" "ªÊ" "ªË" "ªÌ" "ªÍ" "ªÎ" "ªÏ" "ªÐ" "ªÑ" "ªÒ" "ªÓ" "ªÔ" "ªÕ" "ªÖ" "ª×" "ªØ" "ªÙ" "ªÚ" "ªÛ" "ªÜ" "ªÝ" "ªÞ" "ªß" "ªà" "ªá" "ªâ" "ªã" "ªä" "ªå" "ªæ" "ªç" "ªè" "ªé" "ªê" "ªë" "ªì" "ªí" "ªî" "ªï" "ªð" "ªñ" "ªò" "ªó" "ªô" "ªõ" "ªö" "ª÷" "ªø" "ªù" "ªú" "ªû" "ªü" "ªý" "ªþ" 11| "«¡" "«¢" "«£" "«¤" "«¥" "«¦" "«§" "«¨" "«©" "«ª" "««" "«¬" "«­" "«®" "«¯" "«°" "«±" "«²" "«³" "«´" "«µ" "«¶" "«·" "«¸" "«¹" "«º" "«»" "«¼" "«½" "«¾" "«¿" "«À" "«Á" "«Â" "«Ã" "«Ä" "«Å" "«Æ" "«Ç" "«È" "«É" "«Ê" "«Ë" "«Ì" "«Í" "«Î" "«Ï" "«Ð" "«Ñ" "«Ò" "«Ó" "«Ô" "«Õ" "«Ö" "«×" "«Ø" "«Ù" "«Ú" "«Û" "«Ü" "«Ý" "«Þ" "«ß" "«à" "«á" "«â" "«ã" "«ä" "«å" "«æ" "«ç" "«è" "«é" "«ê" "«ë" "«ì" "«í" "«î" "«ï" "«ð" "«ñ" "«ò" "«ó" "«ô" "«õ" "«ö" "«÷" "«ø" "«ù" "«ú" "«û" "«ü" "«ý" "«þ" 12| "¬¡" "¬¢" "¬£" "¬¤" "¬¥" "¬¦" "¬§" "¬¨" "¬©" "¬ª" "¬«" "¬¬" "¬­" "¬®" "¬¯" "¬°" "¬±" "¬²" "¬³" "¬´" "¬µ" "¬¶" "¬·" "¬¸" "¬¹" "¬º" "¬»" "¬¼" "¬½" "¬¾" "¬¿" "¬À" "¬Á" "¬Â" "¬Ã" "¬Ä" "¬Å" "¬Æ" "¬Ç" "¬È" "¬É" "¬Ê" "¬Ë" "¬Ì" "¬Í" "¬Î" "¬Ï" "¬Ð" "¬Ñ" "¬Ò" "¬Ó" "¬Ô" "¬Õ" "¬Ö" "¬×" "¬Ø" "¬Ù" "¬Ú" "¬Û" "¬Ü" "¬Ý" "¬Þ" "¬ß" "¬à" "¬á" "¬â" "¬ã" "¬ä" "¬å" "¬æ" "¬ç" "¬è" "¬é" "¬ê" "¬ë" "¬ì" "¬í" "¬î" "¬ï" "¬ð" "¬ñ" "¬ò" "¬ó" "¬ô" "¬õ" "¬ö" "¬÷" "¬ø" "¬ù" "¬ú" "¬û" "¬ü" "¬ý" "¬þ" 13| "­¡" "­¢" "­£" "­¤" "­¥" "­¦" "­§" "­¨" "­©" "­ª" "­«" "­¬" "­­" "­®" "­¯" "­°" "­±" "­²" "­³" "­´" "­µ" "­¶" "­·" "­¸" "­¹" "­º" "­»" "­¼" "­½" "­¾" "­¿" "­À" "­Á" "­Â" "­Ã" "­Ä" "­Å" "­Æ" "­Ç" "­È" "­É" "­Ê" "­Ë" "­Ì" "­Í" "­Î" "­Ï" "­Ð" "­Ñ" "­Ò" "­Ó" "­Ô" "­Õ" "­Ö" "­×" "­Ø" "­Ù" "­Ú" "­Û" "­Ü" "­Ý" "­Þ" "­ß" "­à" "­á" "­â" "­ã" "­ä" "­å" "­æ" "­ç" "­è" "­é" "­ê" "­ë" "­ì" "­í" "­î" "­ï" "­ð" "­ñ" "­ò" "­ó" "­ô" "­õ" "­ö" "­÷" "­ø" "­ù" "­ú" "­û" "­ü" "­ý" "­þ" 14| "®¡" "®¢" "®£" "®¤" "®¥" "®¦" "®§" "®¨" "®©" "®ª" "®«" "®¬" "®­" "®®" "®¯" "®°" "®±" "®²" "®³" "®´" "®µ" "®¶" "®·" "®¸" "®¹" "®º" "®»" "®¼" "®½" "®¾" "®¿" "®À" "®Á" "®Â" "®Ã" "®Ä" "®Å" "®Æ" "®Ç" "®È" "®É" "®Ê" "®Ë" "®Ì" "®Í" "®Î" "®Ï" "®Ð" "®Ñ" "®Ò" "®Ó" "®Ô" "®Õ" "®Ö" "®×" "®Ø" "®Ù" "®Ú" "®Û" "®Ü" "®Ý" "®Þ" "®ß" "®à" "®á" "®â" "®ã" "®ä" "®å" "®æ" "®ç" "®è" "®é" "®ê" "®ë" "®ì" "®í" "®î" "®ï" "®ð" "®ñ" "®ò" "®ó" "®ô" "®õ" "®ö" "®÷" "®ø" "®ù" "®ú" "®û" "®ü" "®ý" "®þ" 15| "¯¡" "¯¢" "¯£" "¯¤" "¯¥" "¯¦" "¯§" "¯¨" "¯©" "¯ª" "¯«" "¯¬" "¯­" "¯®" "¯¯" "¯°" "¯±" "¯²" "¯³" "¯´" "¯µ" "¯¶" "¯·" "¯¸" "¯¹" "¯º" "¯»" "¯¼" "¯½" "¯¾" "¯¿" "¯À" "¯Á" "¯Â" "¯Ã" "¯Ä" "¯Å" "¯Æ" "¯Ç" "¯È" "¯É" "¯Ê" "¯Ë" "¯Ì" "¯Í" "¯Î" "¯Ï" "¯Ð" "¯Ñ" "¯Ò" "¯Ó" "¯Ô" "¯Õ" "¯Ö" "¯×" "¯Ø" "¯Ù" "¯Ú" "¯Û" "¯Ü" "¯Ý" "¯Þ" "¯ß" "¯à" "¯á" "¯â" "¯ã" "¯ä" "¯å" "¯æ" "¯ç" "¯è" "¯é" "¯ê" "¯ë" "¯ì" "¯í" "¯î" "¯ï" "¯ð" "¯ñ" "¯ò" "¯ó" "¯ô" "¯õ" "¯ö" "¯÷" "¯ø" "¯ù" "¯ú" "¯û" "¯ü" "¯ý" "¯þ" 16| "°¡" "°¢" "°£" "°¤" "°¥" "°¦" "°§" "°¨" "°©" "°ª" "°«" "°¬" "°­" "°®" "°¯" "°°" "°±" "°²" "°³" "°´" "°µ" "°¶" "°·" "°¸" "°¹" "°º" "°»" "°¼" "°½" "°¾" "°¿" "°À" "°Á" "°Â" "°Ã" "°Ä" "°Å" "°Æ" "°Ç" "°È" "°É" "°Ê" "°Ë" "°Ì" "°Í" "°Î" "°Ï" "°Ð" "°Ñ" "°Ò" "°Ó" "°Ô" "°Õ" "°Ö" "°×" "°Ø" "°Ù" "°Ú" "°Û" "°Ü" "°Ý" "°Þ" "°ß" "°à" "°á" "°â" "°ã" "°ä" "°å" "°æ" "°ç" "°è" "°é" "°ê" "°ë" "°ì" "°í" "°î" "°ï" "°ð" "°ñ" "°ò" "°ó" "°ô" "°õ" "°ö" "°÷" "°ø" "°ù" "°ú" "°û" "°ü" "°ý" "°þ" 17| "±¡" "±¢" "±£" "±¤" "±¥" "±¦" "±§" "±¨" "±©" "±ª" "±«" "±¬" "±­" "±®" "±¯" "±°" "±±" "±²" "±³" "±´" "±µ" "±¶" "±·" "±¸" "±¹" "±º" "±»" "±¼" "±½" "±¾" "±¿" "±À" "±Á" "±Â" "±Ã" "±Ä" "±Å" "±Æ" "±Ç" "±È" "±É" "±Ê" "±Ë" "±Ì" "±Í" "±Î" "±Ï" "±Ð" "±Ñ" "±Ò" "±Ó" "±Ô" "±Õ" "±Ö" "±×" "±Ø" "±Ù" "±Ú" "±Û" "±Ü" "±Ý" "±Þ" "±ß" "±à" "±á" "±â" "±ã" "±ä" "±å" "±æ" "±ç" "±è" "±é" "±ê" "±ë" "±ì" "±í" "±î" "±ï" "±ð" "±ñ" "±ò" "±ó" "±ô" "±õ" "±ö" "±÷" "±ø" "±ù" "±ú" "±û" "±ü" "±ý" "±þ" 18| "²¡" "²¢" "²£" "²¤" "²¥" "²¦" "²§" "²¨" "²©" "²ª" "²«" "²¬" "²­" "²®" "²¯" "²°" "²±" "²²" "²³" "²´" "²µ" "²¶" "²·" "²¸" "²¹" "²º" "²»" "²¼" "²½" "²¾" "²¿" "²À" "²Á" "²Â" "²Ã" "²Ä" "²Å" "²Æ" "²Ç" "²È" "²É" "²Ê" "²Ë" "²Ì" "²Í" "²Î" "²Ï" "²Ð" "²Ñ" "²Ò" "²Ó" "²Ô" "²Õ" "²Ö" "²×" "²Ø" "²Ù" "²Ú" "²Û" "²Ü" "²Ý" "²Þ" "²ß" "²à" "²á" "²â" "²ã" "²ä" "²å" "²æ" "²ç" "²è" "²é" "²ê" "²ë" "²ì" "²í" "²î" "²ï" "²ð" "²ñ" "²ò" "²ó" "²ô" "²õ" "²ö" "²÷" "²ø" "²ù" "²ú" "²û" "²ü" "²ý" "²þ" 19| "³¡" "³¢" "³£" "³¤" "³¥" "³¦" "³§" "³¨" "³©" "³ª" "³«" "³¬" "³­" "³®" "³¯" "³°" "³±" "³²" "³³" "³´" "³µ" "³¶" "³·" "³¸" "³¹" "³º" "³»" "³¼" "³½" "³¾" "³¿" "³À" "³Á" "³Â" "³Ã" "³Ä" "³Å" "³Æ" "³Ç" "³È" "³É" "³Ê" "³Ë" "³Ì" "³Í" "³Î" "³Ï" "³Ð" "³Ñ" "³Ò" "³Ó" "³Ô" "³Õ" "³Ö" "³×" "³Ø" "³Ù" "³Ú" "³Û" "³Ü" "³Ý" "³Þ" "³ß" "³à" "³á" "³â" "³ã" "³ä" "³å" "³æ" "³ç" "³è" "³é" "³ê" "³ë" "³ì" "³í" "³î" "³ï" "³ð" "³ñ" "³ò" "³ó" "³ô" "³õ" "³ö" "³÷" "³ø" "³ù" "³ú" "³û" "³ü" "³ý" "³þ" 20| "´¡" "´¢" "´£" "´¤" "´¥" "´¦" "´§" "´¨" "´©" "´ª" "´«" "´¬" "´­" "´®" "´¯" "´°" "´±" "´²" "´³" "´´" "´µ" "´¶" "´·" "´¸" "´¹" "´º" "´»" "´¼" "´½" "´¾" "´¿" "´À" "´Á" "´Â" "´Ã" "´Ä" "´Å" "´Æ" "´Ç" "´È" "´É" "´Ê" "´Ë" "´Ì" "´Í" "´Î" "´Ï" "´Ð" "´Ñ" "´Ò" "´Ó" "´Ô" "´Õ" "´Ö" "´×" "´Ø" "´Ù" "´Ú" "´Û" "´Ü" "´Ý" "´Þ" "´ß" "´à" "´á" "´â" "´ã" "´ä" "´å" "´æ" "´ç" "´è" "´é" "´ê" "´ë" "´ì" "´í" "´î" "´ï" "´ð" "´ñ" "´ò" "´ó" "´ô" "´õ" "´ö" "´÷" "´ø" "´ù" "´ú" "´û" "´ü" "´ý" "´þ" 21| "µ¡" "µ¢" "µ£" "µ¤" "µ¥" "µ¦" "µ§" "µ¨" "µ©" "µª" "µ«" "µ¬" "µ­" "µ®" "µ¯" "µ°" "µ±" "µ²" "µ³" "µ´" "µµ" "µ¶" "µ·" "µ¸" "µ¹" "µº" "µ»" "µ¼" "µ½" "µ¾" "µ¿" "µÀ" "µÁ" "µÂ" "µÃ" "µÄ" "µÅ" "µÆ" "µÇ" "µÈ" "µÉ" "µÊ" "µË" "µÌ" "µÍ" "µÎ" "µÏ" "µÐ" "µÑ" "µÒ" "µÓ" "µÔ" "µÕ" "µÖ" "µ×" "µØ" "µÙ" "µÚ" "µÛ" "µÜ" "µÝ" "µÞ" "µß" "µà" "µá" "µâ" "µã" "µä" "µå" "µæ" "µç" "µè" "µé" "µê" "µë" "µì" "µí" "µî" "µï" "µð" "µñ" "µò" "µó" "µô" "µõ" "µö" "µ÷" "µø" "µù" "µú" "µû" "µü" "µý" "µþ" 22| "¶¡" "¶¢" "¶£" "¶¤" "¶¥" "¶¦" "¶§" "¶¨" "¶©" "¶ª" "¶«" "¶¬" "¶­" "¶®" "¶¯" "¶°" "¶±" "¶²" "¶³" "¶´" "¶µ" "¶¶" "¶·" "¶¸" "¶¹" "¶º" "¶»" "¶¼" "¶½" "¶¾" "¶¿" "¶À" "¶Á" "¶Â" "¶Ã" "¶Ä" "¶Å" "¶Æ" "¶Ç" "¶È" "¶É" "¶Ê" "¶Ë" "¶Ì" "¶Í" "¶Î" "¶Ï" "¶Ð" "¶Ñ" "¶Ò" "¶Ó" "¶Ô" "¶Õ" "¶Ö" "¶×" "¶Ø" "¶Ù" "¶Ú" "¶Û" "¶Ü" "¶Ý" "¶Þ" "¶ß" "¶à" "¶á" "¶â" "¶ã" "¶ä" "¶å" "¶æ" "¶ç" "¶è" "¶é" "¶ê" "¶ë" "¶ì" "¶í" "¶î" "¶ï" "¶ð" "¶ñ" "¶ò" "¶ó" "¶ô" "¶õ" "¶ö" "¶÷" "¶ø" "¶ù" "¶ú" "¶û" "¶ü" "¶ý" "¶þ" 23| "·¡" "·¢" "·£" "·¤" "·¥" "·¦" "·§" "·¨" "·©" "·ª" "·«" "·¬" "·­" "·®" "·¯" "·°" "·±" "·²" "·³" "·´" "·µ" "·¶" "··" "·¸" "·¹" "·º" "·»" "·¼" "·½" "·¾" "·¿" "·À" "·Á" "·Â" "·Ã" "·Ä" "·Å" "·Æ" "·Ç" "·È" "·É" "·Ê" "·Ë" "·Ì" "·Í" "·Î" "·Ï" "·Ð" "·Ñ" "·Ò" "·Ó" "·Ô" "·Õ" "·Ö" "·×" "·Ø" "·Ù" "·Ú" "·Û" "·Ü" "·Ý" "·Þ" "·ß" "·à" "·á" "·â" "·ã" "·ä" "·å" "·æ" "·ç" "·è" "·é" "·ê" "·ë" "·ì" "·í" "·î" "·ï" "·ð" "·ñ" "·ò" "·ó" "·ô" "·õ" "·ö" "·÷" "·ø" "·ù" "·ú" "·û" "·ü" "·ý" "·þ" 24| "¸¡" "¸¢" "¸£" "¸¤" "¸¥" "¸¦" "¸§" "¸¨" "¸©" "¸ª" "¸«" "¸¬" "¸­" "¸®" "¸¯" "¸°" "¸±" "¸²" "¸³" "¸´" "¸µ" "¸¶" "¸·" "¸¸" "¸¹" "¸º" "¸»" "¸¼" "¸½" "¸¾" "¸¿" "¸À" "¸Á" "¸Â" "¸Ã" "¸Ä" "¸Å" "¸Æ" "¸Ç" "¸È" "¸É" "¸Ê" "¸Ë" "¸Ì" "¸Í" "¸Î" "¸Ï" "¸Ð" "¸Ñ" "¸Ò" "¸Ó" "¸Ô" "¸Õ" "¸Ö" "¸×" "¸Ø" "¸Ù" "¸Ú" "¸Û" "¸Ü" "¸Ý" "¸Þ" "¸ß" "¸à" "¸á" "¸â" "¸ã" "¸ä" "¸å" "¸æ" "¸ç" "¸è" "¸é" "¸ê" "¸ë" "¸ì" "¸í" "¸î" "¸ï" "¸ð" "¸ñ" "¸ò" "¸ó" "¸ô" "¸õ" "¸ö" "¸÷" "¸ø" "¸ù" "¸ú" "¸û" "¸ü" "¸ý" "¸þ" 25| "¹¡" "¹¢" "¹£" "¹¤" "¹¥" "¹¦" "¹§" "¹¨" "¹©" "¹ª" "¹«" "¹¬" "¹­" "¹®" "¹¯" "¹°" "¹±" "¹²" "¹³" "¹´" "¹µ" "¹¶" "¹·" "¹¸" "¹¹" "¹º" "¹»" "¹¼" "¹½" "¹¾" "¹¿" "¹À" "¹Á" "¹Â" "¹Ã" "¹Ä" "¹Å" "¹Æ" "¹Ç" "¹È" "¹É" "¹Ê" "¹Ë" "¹Ì" "¹Í" "¹Î" "¹Ï" "¹Ð" "¹Ñ" "¹Ò" "¹Ó" "¹Ô" "¹Õ" "¹Ö" "¹×" "¹Ø" "¹Ù" "¹Ú" "¹Û" "¹Ü" "¹Ý" "¹Þ" "¹ß" "¹à" "¹á" "¹â" "¹ã" "¹ä" "¹å" "¹æ" "¹ç" "¹è" "¹é" "¹ê" "¹ë" "¹ì" "¹í" "¹î" "¹ï" "¹ð" "¹ñ" "¹ò" "¹ó" "¹ô" "¹õ" "¹ö" "¹÷" "¹ø" "¹ù" "¹ú" "¹û" "¹ü" "¹ý" "¹þ" 26| "º¡" "º¢" "º£" "º¤" "º¥" "º¦" "º§" "º¨" "º©" "ºª" "º«" "º¬" "º­" "º®" "º¯" "º°" "º±" "º²" "º³" "º´" "ºµ" "º¶" "º·" "º¸" "º¹" "ºº" "º»" "º¼" "º½" "º¾" "º¿" "ºÀ" "ºÁ" "ºÂ" "ºÃ" "ºÄ" "ºÅ" "ºÆ" "ºÇ" "ºÈ" "ºÉ" "ºÊ" "ºË" "ºÌ" "ºÍ" "ºÎ" "ºÏ" "ºÐ" "ºÑ" "ºÒ" "ºÓ" "ºÔ" "ºÕ" "ºÖ" "º×" "ºØ" "ºÙ" "ºÚ" "ºÛ" "ºÜ" "ºÝ" "ºÞ" "ºß" "ºà" "ºá" "ºâ" "ºã" "ºä" "ºå" "ºæ" "ºç" "ºè" "ºé" "ºê" "ºë" "ºì" "ºí" "ºî" "ºï" "ºð" "ºñ" "ºò" "ºó" "ºô" "ºõ" "ºö" "º÷" "ºø" "ºù" "ºú" "ºû" "ºü" "ºý" "ºþ" 27| "»¡" "»¢" "»£" "»¤" "»¥" "»¦" "»§" "»¨" "»©" "»ª" "»«" "»¬" "»­" "»®" "»¯" "»°" "»±" "»²" "»³" "»´" "»µ" "»¶" "»·" "»¸" "»¹" "»º" "»»" "»¼" "»½" "»¾" "»¿" "»À" "»Á" "»Â" "»Ã" "»Ä" "»Å" "»Æ" "»Ç" "»È" "»É" "»Ê" "»Ë" "»Ì" "»Í" "»Î" "»Ï" "»Ð" "»Ñ" "»Ò" "»Ó" "»Ô" "»Õ" "»Ö" "»×" "»Ø" "»Ù" "»Ú" "»Û" "»Ü" "»Ý" "»Þ" "»ß" "»à" "»á" "»â" "»ã" "»ä" "»å" "»æ" "»ç" "»è" "»é" "»ê" "»ë" "»ì" "»í" "»î" "»ï" "»ð" "»ñ" "»ò" "»ó" "»ô" "»õ" "»ö" "»÷" "»ø" "»ù" "»ú" "»û" "»ü" "»ý" "»þ" 28| "¼¡" "¼¢" "¼£" "¼¤" "¼¥" "¼¦" "¼§" "¼¨" "¼©" "¼ª" "¼«" "¼¬" "¼­" "¼®" "¼¯" "¼°" "¼±" "¼²" "¼³" "¼´" "¼µ" "¼¶" "¼·" "¼¸" "¼¹" "¼º" "¼»" "¼¼" "¼½" "¼¾" "¼¿" "¼À" "¼Á" "¼Â" "¼Ã" "¼Ä" "¼Å" "¼Æ" "¼Ç" "¼È" "¼É" "¼Ê" "¼Ë" "¼Ì" "¼Í" "¼Î" "¼Ï" "¼Ð" "¼Ñ" "¼Ò" "¼Ó" "¼Ô" "¼Õ" "¼Ö" "¼×" "¼Ø" "¼Ù" "¼Ú" "¼Û" "¼Ü" "¼Ý" "¼Þ" "¼ß" "¼à" "¼á" "¼â" "¼ã" "¼ä" "¼å" "¼æ" "¼ç" "¼è" "¼é" "¼ê" "¼ë" "¼ì" "¼í" "¼î" "¼ï" "¼ð" "¼ñ" "¼ò" "¼ó" "¼ô" "¼õ" "¼ö" "¼÷" "¼ø" "¼ù" "¼ú" "¼û" "¼ü" "¼ý" "¼þ" 29| "½¡" "½¢" "½£" "½¤" "½¥" "½¦" "½§" "½¨" "½©" "½ª" "½«" "½¬" "½­" "½®" "½¯" "½°" "½±" "½²" "½³" "½´" "½µ" "½¶" "½·" "½¸" "½¹" "½º" "½»" "½¼" "½½" "½¾" "½¿" "½À" "½Á" "½Â" "½Ã" "½Ä" "½Å" "½Æ" "½Ç" "½È" "½É" "½Ê" "½Ë" "½Ì" "½Í" "½Î" "½Ï" "½Ð" "½Ñ" "½Ò" "½Ó" "½Ô" "½Õ" "½Ö" "½×" "½Ø" "½Ù" "½Ú" "½Û" "½Ü" "½Ý" "½Þ" "½ß" "½à" "½á" "½â" "½ã" "½ä" "½å" "½æ" "½ç" "½è" "½é" "½ê" "½ë" "½ì" "½í" "½î" "½ï" "½ð" "½ñ" "½ò" "½ó" "½ô" "½õ" "½ö" "½÷" "½ø" "½ù" "½ú" "½û" "½ü" "½ý" "½þ" 30| "¾¡" "¾¢" "¾£" "¾¤" "¾¥" "¾¦" "¾§" "¾¨" "¾©" "¾ª" "¾«" "¾¬" "¾­" "¾®" "¾¯" "¾°" "¾±" "¾²" "¾³" "¾´" "¾µ" "¾¶" "¾·" "¾¸" "¾¹" "¾º" "¾»" "¾¼" "¾½" "¾¾" "¾¿" "¾À" "¾Á" "¾Â" "¾Ã" "¾Ä" "¾Å" "¾Æ" "¾Ç" "¾È" "¾É" "¾Ê" "¾Ë" "¾Ì" "¾Í" "¾Î" "¾Ï" "¾Ð" "¾Ñ" "¾Ò" "¾Ó" "¾Ô" "¾Õ" "¾Ö" "¾×" "¾Ø" "¾Ù" "¾Ú" "¾Û" "¾Ü" "¾Ý" "¾Þ" "¾ß" "¾à" "¾á" "¾â" "¾ã" "¾ä" "¾å" "¾æ" "¾ç" "¾è" "¾é" "¾ê" "¾ë" "¾ì" "¾í" "¾î" "¾ï" "¾ð" "¾ñ" "¾ò" "¾ó" "¾ô" "¾õ" "¾ö" "¾÷" "¾ø" "¾ù" "¾ú" "¾û" "¾ü" "¾ý" "¾þ" 31| "¿¡" "¿¢" "¿£" "¿¤" "¿¥" "¿¦" "¿§" "¿¨" "¿©" "¿ª" "¿«" "¿¬" "¿­" "¿®" "¿¯" "¿°" "¿±" "¿²" "¿³" "¿´" "¿µ" "¿¶" "¿·" "¿¸" "¿¹" "¿º" "¿»" "¿¼" "¿½" "¿¾" "¿¿" "¿À" "¿Á" "¿Â" "¿Ã" "¿Ä" "¿Å" "¿Æ" "¿Ç" "¿È" "¿É" "¿Ê" "¿Ë" "¿Ì" "¿Í" "¿Î" "¿Ï" "¿Ð" "¿Ñ" "¿Ò" "¿Ó" "¿Ô" "¿Õ" "¿Ö" "¿×" "¿Ø" "¿Ù" "¿Ú" "¿Û" "¿Ü" "¿Ý" "¿Þ" "¿ß" "¿à" "¿á" "¿â" "¿ã" "¿ä" "¿å" "¿æ" "¿ç" "¿è" "¿é" "¿ê" "¿ë" "¿ì" "¿í" "¿î" "¿ï" "¿ð" "¿ñ" "¿ò" "¿ó" "¿ô" "¿õ" "¿ö" "¿÷" "¿ø" "¿ù" "¿ú" "¿û" "¿ü" "¿ý" "¿þ" 32| "À¡" "À¢" "À£" "À¤" "À¥" "À¦" "À§" "À¨" "À©" "Àª" "À«" "À¬" "À­" "À®" "À¯" "À°" "À±" "À²" "À³" "À´" "Àµ" "À¶" "À·" "À¸" "À¹" "Àº" "À»" "À¼" "À½" "À¾" "À¿" "ÀÀ" "ÀÁ" "ÀÂ" "ÀÃ" "ÀÄ" "ÀÅ" "ÀÆ" "ÀÇ" "ÀÈ" "ÀÉ" "ÀÊ" "ÀË" "ÀÌ" "ÀÍ" "ÀÎ" "ÀÏ" "ÀÐ" "ÀÑ" "ÀÒ" "ÀÓ" "ÀÔ" "ÀÕ" "ÀÖ" "À×" "ÀØ" "ÀÙ" "ÀÚ" "ÀÛ" "ÀÜ" "ÀÝ" "ÀÞ" "Àß" "Àà" "Àá" "Àâ" "Àã" "Àä" "Àå" "Àæ" "Àç" "Àè" "Àé" "Àê" "Àë" "Àì" "Àí" "Àî" "Àï" "Àð" "Àñ" "Àò" "Àó" "Àô" "Àõ" "Àö" "À÷" "Àø" "Àù" "Àú" "Àû" "Àü" "Àý" "Àþ" 33| "Á¡" "Á¢" "Á£" "Á¤" "Á¥" "Á¦" "Á§" "Á¨" "Á©" "Áª" "Á«" "Á¬" "Á­" "Á®" "Á¯" "Á°" "Á±" "Á²" "Á³" "Á´" "Áµ" "Á¶" "Á·" "Á¸" "Á¹" "Áº" "Á»" "Á¼" "Á½" "Á¾" "Á¿" "ÁÀ" "ÁÁ" "ÁÂ" "ÁÃ" "ÁÄ" "ÁÅ" "ÁÆ" "ÁÇ" "ÁÈ" "ÁÉ" "ÁÊ" "ÁË" "ÁÌ" "ÁÍ" "ÁÎ" "ÁÏ" "ÁÐ" "ÁÑ" "ÁÒ" "ÁÓ" "ÁÔ" "ÁÕ" "ÁÖ" "Á×" "ÁØ" "ÁÙ" "ÁÚ" "ÁÛ" "ÁÜ" "ÁÝ" "ÁÞ" "Áß" "Áà" "Áá" "Áâ" "Áã" "Áä" "Áå" "Áæ" "Áç" "Áè" "Áé" "Áê" "Áë" "Áì" "Áí" "Áî" "Áï" "Áð" "Áñ" "Áò" "Áó" "Áô" "Áõ" "Áö" "Á÷" "Áø" "Áù" "Áú" "Áû" "Áü" "Áý" "Áþ" 34| "¡" "¢" "£" "¤" "Â¥" "¦" "§" "¨" "©" "ª" "«" "¬" "­" "®" "¯" "°" "±" "²" "³" "´" "µ" "¶" "·" "¸" "¹" "º" "»" "¼" "½" "¾" "¿" "ÂÀ" "ÂÁ" "ÂÂ" "ÂÃ" "ÂÄ" "ÂÅ" "ÂÆ" "ÂÇ" "ÂÈ" "ÂÉ" "ÂÊ" "ÂË" "ÂÌ" "ÂÍ" "ÂÎ" "ÂÏ" "ÂÐ" "ÂÑ" "ÂÒ" "ÂÓ" "ÂÔ" "ÂÕ" "ÂÖ" "Â×" "ÂØ" "ÂÙ" "ÂÚ" "ÂÛ" "ÂÜ" "ÂÝ" "ÂÞ" "Âß" "Âà" "Âá" "Ââ" "Âã" "Âä" "Âå" "Âæ" "Âç" "Âè" "Âé" "Âê" "Âë" "Âì" "Âí" "Âî" "Âï" "Âð" "Âñ" "Âò" "Âó" "Âô" "Âõ" "Âö" "Â÷" "Âø" "Âù" "Âú" "Âû" "Âü" "Âý" "Âþ" 35| "á" "â" "ã" "ä" "Ã¥" "æ" "ç" "è" "é" "ê" "ë" "ì" "í" "î" "ï" "ð" "ñ" "ò" "ó" "ô" "õ" "ö" "÷" "ø" "ù" "ú" "û" "ü" "ý" "þ" "ÿ" "ÃÀ" "ÃÁ" "ÃÂ" "ÃÃ" "ÃÄ" "ÃÅ" "ÃÆ" "ÃÇ" "ÃÈ" "ÃÉ" "ÃÊ" "ÃË" "ÃÌ" "ÃÍ" "ÃÎ" "ÃÏ" "ÃÐ" "ÃÑ" "ÃÒ" "ÃÓ" "ÃÔ" "ÃÕ" "ÃÖ" "Ã×" "ÃØ" "ÃÙ" "ÃÚ" "ÃÛ" "ÃÜ" "ÃÝ" "ÃÞ" "Ãß" "Ãà" "Ãá" "Ãâ" "Ãã" "Ãä" "Ãå" "Ãæ" "Ãç" "Ãè" "Ãé" "Ãê" "Ãë" "Ãì" "Ãí" "Ãî" "Ãï" "Ãð" "Ãñ" "Ãò" "Ãó" "Ãô" "Ãõ" "Ãö" "Ã÷" "Ãø" "Ãù" "Ãú" "Ãû" "Ãü" "Ãý" "Ãþ" 36| "Ä¡" "Ä¢" "Ä£" "Ĥ" "Ä¥" "Ħ" "ħ" "Ĩ" "Ä©" "Ī" "Ä«" "Ĭ" "Ä­" "Ä®" "į" "Ä°" "ı" "IJ" "ij" "Ä´" "ĵ" "Ķ" "Ä·" "ĸ" "Ĺ" "ĺ" "Ä»" "ļ" "Ľ" "ľ" "Ä¿" "ÄÀ" "ÄÁ" "ÄÂ" "ÄÃ" "ÄÄ" "ÄÅ" "ÄÆ" "ÄÇ" "ÄÈ" "ÄÉ" "ÄÊ" "ÄË" "ÄÌ" "ÄÍ" "ÄÎ" "ÄÏ" "ÄÐ" "ÄÑ" "ÄÒ" "ÄÓ" "ÄÔ" "ÄÕ" "ÄÖ" "Ä×" "ÄØ" "ÄÙ" "ÄÚ" "ÄÛ" "ÄÜ" "ÄÝ" "ÄÞ" "Äß" "Äà" "Äá" "Äâ" "Äã" "Ää" "Äå" "Äæ" "Äç" "Äè" "Äé" "Äê" "Äë" "Äì" "Äí" "Äî" "Äï" "Äð" "Äñ" "Äò" "Äó" "Äô" "Äõ" "Äö" "Ä÷" "Äø" "Äù" "Äú" "Äû" "Äü" "Äý" "Äþ" 37| "Å¡" "Å¢" "Å£" "Ť" "Å¥" "Ŧ" "ŧ" "Ũ" "Å©" "Ū" "Å«" "Ŭ" "Å­" "Å®" "ů" "Å°" "ű" "Ų" "ų" "Å´" "ŵ" "Ŷ" "Å·" "Ÿ" "Ź" "ź" "Å»" "ż" "Ž" "ž" "Å¿" "ÅÀ" "ÅÁ" "ÅÂ" "ÅÃ" "ÅÄ" "ÅÅ" "ÅÆ" "ÅÇ" "ÅÈ" "ÅÉ" "ÅÊ" "ÅË" "ÅÌ" "ÅÍ" "ÅÎ" "ÅÏ" "ÅÐ" "ÅÑ" "ÅÒ" "ÅÓ" "ÅÔ" "ÅÕ" "ÅÖ" "Å×" "ÅØ" "ÅÙ" "ÅÚ" "ÅÛ" "ÅÜ" "ÅÝ" "ÅÞ" "Åß" "Åà" "Åá" "Åâ" "Åã" "Åä" "Åå" "Åæ" "Åç" "Åè" "Åé" "Åê" "Åë" "Åì" "Åí" "Åî" "Åï" "Åð" "Åñ" "Åò" "Åó" "Åô" "Åõ" "Åö" "Å÷" "Åø" "Åù" "Åú" "Åû" "Åü" "Åý" "Åþ" 38| "Æ¡" "Æ¢" "Æ£" "Ƥ" "Æ¥" "Ʀ" "Ƨ" "ƨ" "Æ©" "ƪ" "Æ«" "Ƭ" "Æ­" "Æ®" "Ư" "Æ°" "Ʊ" "Ʋ" "Ƴ" "Æ´" "Ƶ" "ƶ" "Æ·" "Ƹ" "ƹ" "ƺ" "Æ»" "Ƽ" "ƽ" "ƾ" "Æ¿" "ÆÀ" "ÆÁ" "ÆÂ" "ÆÃ" "ÆÄ" "ÆÅ" "ÆÆ" "ÆÇ" "ÆÈ" "ÆÉ" "ÆÊ" "ÆË" "ÆÌ" "ÆÍ" "ÆÎ" "ÆÏ" "ÆÐ" "ÆÑ" "ÆÒ" "ÆÓ" "ÆÔ" "ÆÕ" "ÆÖ" "Æ×" "ÆØ" "ÆÙ" "ÆÚ" "ÆÛ" "ÆÜ" "ÆÝ" "ÆÞ" "Æß" "Æà" "Æá" "Æâ" "Æã" "Æä" "Æå" "Ææ" "Æç" "Æè" "Æé" "Æê" "Æë" "Æì" "Æí" "Æî" "Æï" "Æð" "Æñ" "Æò" "Æó" "Æô" "Æõ" "Æö" "Æ÷" "Æø" "Æù" "Æú" "Æû" "Æü" "Æý" "Æþ" 39| "Ç¡" "Ç¢" "Ç£" "Ǥ" "Ç¥" "Ǧ" "ǧ" "Ǩ" "Ç©" "Ǫ" "Ç«" "Ǭ" "Ç­" "Ç®" "ǯ" "Ç°" "DZ" "Dz" "dz" "Ç´" "ǵ" "Ƕ" "Ç·" "Ǹ" "ǹ" "Ǻ" "Ç»" "Ǽ" "ǽ" "Ǿ" "Ç¿" "ÇÀ" "ÇÁ" "ÇÂ" "ÇÃ" "ÇÄ" "ÇÅ" "ÇÆ" "ÇÇ" "ÇÈ" "ÇÉ" "ÇÊ" "ÇË" "ÇÌ" "ÇÍ" "ÇÎ" "ÇÏ" "ÇÐ" "ÇÑ" "ÇÒ" "ÇÓ" "ÇÔ" "ÇÕ" "ÇÖ" "Ç×" "ÇØ" "ÇÙ" "ÇÚ" "ÇÛ" "ÇÜ" "ÇÝ" "ÇÞ" "Çß" "Çà" "Çá" "Çâ" "Çã" "Çä" "Çå" "Çæ" "Çç" "Çè" "Çé" "Çê" "Çë" "Çì" "Çí" "Çî" "Çï" "Çð" "Çñ" "Çò" "Çó" "Çô" "Çõ" "Çö" "Ç÷" "Çø" "Çù" "Çú" "Çû" "Çü" "Çý" "Çþ" 40| "È¡" "È¢" "È£" "Ȥ" "È¥" "Ȧ" "ȧ" "Ȩ" "È©" "Ȫ" "È«" "Ȭ" "È­" "È®" "ȯ" "È°" "ȱ" "Ȳ" "ȳ" "È´" "ȵ" "ȶ" "È·" "ȸ" "ȹ" "Ⱥ" "È»" "ȼ" "Ƚ" "Ⱦ" "È¿" "ÈÀ" "ÈÁ" "ÈÂ" "ÈÃ" "ÈÄ" "ÈÅ" "ÈÆ" "ÈÇ" "ÈÈ" "ÈÉ" "ÈÊ" "ÈË" "ÈÌ" "ÈÍ" "ÈÎ" "ÈÏ" "ÈÐ" "ÈÑ" "ÈÒ" "ÈÓ" "ÈÔ" "ÈÕ" "ÈÖ" "È×" "ÈØ" "ÈÙ" "ÈÚ" "ÈÛ" "ÈÜ" "ÈÝ" "ÈÞ" "Èß" "Èà" "Èá" "Èâ" "Èã" "Èä" "Èå" "Èæ" "Èç" "Èè" "Èé" "Èê" "Èë" "Èì" "Èí" "Èî" "Èï" "Èð" "Èñ" "Èò" "Èó" "Èô" "Èõ" "Èö" "È÷" "Èø" "Èù" "Èú" "Èû" "Èü" "Èý" "Èþ" 41| "É¡" "É¢" "É£" "ɤ" "É¥" "ɦ" "ɧ" "ɨ" "É©" "ɪ" "É«" "ɬ" "É­" "É®" "ɯ" "É°" "ɱ" "ɲ" "ɳ" "É´" "ɵ" "ɶ" "É·" "ɸ" "ɹ" "ɺ" "É»" "ɼ" "ɽ" "ɾ" "É¿" "ÉÀ" "ÉÁ" "ÉÂ" "ÉÃ" "ÉÄ" "ÉÅ" "ÉÆ" "ÉÇ" "ÉÈ" "ÉÉ" "ÉÊ" "ÉË" "ÉÌ" "ÉÍ" "ÉÎ" "ÉÏ" "ÉÐ" "ÉÑ" "ÉÒ" "ÉÓ" "ÉÔ" "ÉÕ" "ÉÖ" "É×" "ÉØ" "ÉÙ" "ÉÚ" "ÉÛ" "ÉÜ" "ÉÝ" "ÉÞ" "Éß" "Éà" "Éá" "Éâ" "Éã" "Éä" "Éå" "Éæ" "Éç" "Éè" "Éé" "Éê" "Éë" "Éì" "Éí" "Éî" "Éï" "Éð" "Éñ" "Éò" "Éó" "Éô" "Éõ" "Éö" "É÷" "Éø" "Éù" "Éú" "Éû" "Éü" "Éý" "Éþ" 42| "Ê¡" "Ê¢" "Ê£" "ʤ" "Ê¥" "ʦ" "ʧ" "ʨ" "Ê©" "ʪ" "Ê«" "ʬ" "Ê­" "Ê®" "ʯ" "Ê°" "ʱ" "ʲ" "ʳ" "Ê´" "ʵ" "ʶ" "Ê·" "ʸ" "ʹ" "ʺ" "Ê»" "ʼ" "ʽ" "ʾ" "Ê¿" "ÊÀ" "ÊÁ" "ÊÂ" "ÊÃ" "ÊÄ" "ÊÅ" "ÊÆ" "ÊÇ" "ÊÈ" "ÊÉ" "ÊÊ" "ÊË" "ÊÌ" "ÊÍ" "ÊÎ" "ÊÏ" "ÊÐ" "ÊÑ" "ÊÒ" "ÊÓ" "ÊÔ" "ÊÕ" "ÊÖ" "Ê×" "ÊØ" "ÊÙ" "ÊÚ" "ÊÛ" "ÊÜ" "ÊÝ" "ÊÞ" "Êß" "Êà" "Êá" "Êâ" "Êã" "Êä" "Êå" "Êæ" "Êç" "Êè" "Êé" "Êê" "Êë" "Êì" "Êí" "Êî" "Êï" "Êð" "Êñ" "Êò" "Êó" "Êô" "Êõ" "Êö" "Ê÷" "Êø" "Êù" "Êú" "Êû" "Êü" "Êý" "Êþ" 43| "Ë¡" "Ë¢" "Ë£" "ˤ" "Ë¥" "˦" "˧" "˨" "Ë©" "˪" "Ë«" "ˬ" "Ë­" "Ë®" "˯" "Ë°" "˱" "˲" "˳" "Ë´" "˵" "˶" "Ë·" "˸" "˹" "˺" "Ë»" "˼" "˽" "˾" "Ë¿" "ËÀ" "ËÁ" "ËÂ" "ËÃ" "ËÄ" "ËÅ" "ËÆ" "ËÇ" "ËÈ" "ËÉ" "ËÊ" "ËË" "ËÌ" "ËÍ" "ËÎ" "ËÏ" "ËÐ" "ËÑ" "ËÒ" "ËÓ" "ËÔ" "ËÕ" "ËÖ" "Ë×" "ËØ" "ËÙ" "ËÚ" "ËÛ" "ËÜ" "ËÝ" "ËÞ" "Ëß" "Ëà" "Ëá" "Ëâ" "Ëã" "Ëä" "Ëå" "Ëæ" "Ëç" "Ëè" "Ëé" "Ëê" "Ëë" "Ëì" "Ëí" "Ëî" "Ëï" "Ëð" "Ëñ" "Ëò" "Ëó" "Ëô" "Ëõ" "Ëö" "Ë÷" "Ëø" "Ëù" "Ëú" "Ëû" "Ëü" "Ëý" "Ëþ" 44| "Ì¡" "Ì¢" "Ì£" "̤" "Ì¥" "̦" "̧" "̨" "Ì©" "̪" "Ì«" "̬" "Ì­" "Ì®" "̯" "Ì°" "̱" "̲" "̳" "Ì´" "̵" "̶" "Ì·" "̸" "̹" "̺" "Ì»" "̼" "̽" "̾" "Ì¿" "ÌÀ" "ÌÁ" "ÌÂ" "ÌÃ" "ÌÄ" "ÌÅ" "ÌÆ" "ÌÇ" "ÌÈ" "ÌÉ" "ÌÊ" "ÌË" "ÌÌ" "ÌÍ" "ÌÎ" "ÌÏ" "ÌÐ" "ÌÑ" "ÌÒ" "ÌÓ" "ÌÔ" "ÌÕ" "ÌÖ" "Ì×" "ÌØ" "ÌÙ" "ÌÚ" "ÌÛ" "ÌÜ" "ÌÝ" "ÌÞ" "Ìß" "Ìà" "Ìá" "Ìâ" "Ìã" "Ìä" "Ìå" "Ìæ" "Ìç" "Ìè" "Ìé" "Ìê" "Ìë" "Ìì" "Ìí" "Ìî" "Ìï" "Ìð" "Ìñ" "Ìò" "Ìó" "Ìô" "Ìõ" "Ìö" "Ì÷" "Ìø" "Ìù" "Ìú" "Ìû" "Ìü" "Ìý" "Ìþ" 45| "Í¡" "Í¢" "Í£" "ͤ" "Í¥" "ͦ" "ͧ" "ͨ" "Í©" "ͪ" "Í«" "ͬ" "Í­" "Í®" "ͯ" "Í°" "ͱ" "Ͳ" "ͳ" "Í´" "͵" "Ͷ" "Í·" "͸" "͹" "ͺ" "Í»" "ͼ" "ͽ" ";" "Í¿" "ÍÀ" "ÍÁ" "ÍÂ" "ÍÃ" "ÍÄ" "ÍÅ" "ÍÆ" "ÍÇ" "ÍÈ" "ÍÉ" "ÍÊ" "ÍË" "ÍÌ" "ÍÍ" "ÍÎ" "ÍÏ" "ÍÐ" "ÍÑ" "ÍÒ" "ÍÓ" "ÍÔ" "ÍÕ" "ÍÖ" "Í×" "ÍØ" "ÍÙ" "ÍÚ" "ÍÛ" "ÍÜ" "ÍÝ" "ÍÞ" "Íß" "Íà" "Íá" "Íâ" "Íã" "Íä" "Íå" "Íæ" "Íç" "Íè" "Íé" "Íê" "Íë" "Íì" "Íí" "Íî" "Íï" "Íð" "Íñ" "Íò" "Íó" "Íô" "Íõ" "Íö" "Í÷" "Íø" "Íù" "Íú" "Íû" "Íü" "Íý" "Íþ" 46| "Ρ" "΢" "Σ" "Τ" "Î¥" "Φ" "Χ" "Ψ" "Ω" "Ϊ" "Ϋ" "ά" "έ" "ή" "ί" "ΰ" "α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "ÎÀ" "ÎÁ" "ÎÂ" "ÎÃ" "ÎÄ" "ÎÅ" "ÎÆ" "ÎÇ" "ÎÈ" "ÎÉ" "ÎÊ" "ÎË" "ÎÌ" "ÎÍ" "ÎÎ" "ÎÏ" "ÎÐ" "ÎÑ" "ÎÒ" "ÎÓ" "ÎÔ" "ÎÕ" "ÎÖ" "Î×" "ÎØ" "ÎÙ" "ÎÚ" "ÎÛ" "ÎÜ" "ÎÝ" "ÎÞ" "Îß" "Îà" "Îá" "Îâ" "Îã" "Îä" "Îå" "Îæ" "Îç" "Îè" "Îé" "Îê" "Îë" "Îì" "Îí" "Îî" "Îï" "Îð" "Îñ" "Îò" "Îó" "Îô" "Îõ" "Îö" "Î÷" "Îø" "Îù" "Îú" "Îû" "Îü" "Îý" "Îþ" 47| "Ï¡" "Ï¢" "Ï£" "Ϥ" "Ï¥" "Ϧ" "ϧ" "Ϩ" "Ï©" "Ϫ" "Ï«" "Ϭ" "Ï­" "Ï®" "ϯ" "Ï°" "ϱ" "ϲ" "ϳ" "Ï´" "ϵ" "϶" "Ï·" "ϸ" "Ϲ" "Ϻ" "Ï»" "ϼ" "Ͻ" "Ͼ" "Ï¿" "ÏÀ" "ÏÁ" "ÏÂ" "ÏÃ" "ÏÄ" "ÏÅ" "ÏÆ" "ÏÇ" "ÏÈ" "ÏÉ" "ÏÊ" "ÏË" "ÏÌ" "ÏÍ" "ÏÎ" "ÏÏ" "ÏÐ" "ÏÑ" "ÏÒ" "ÏÓ" "ÏÔ" "ÏÕ" "ÏÖ" "Ï×" "ÏØ" "ÏÙ" "ÏÚ" "ÏÛ" "ÏÜ" "ÏÝ" "ÏÞ" "Ïß" "Ïà" "Ïá" "Ïâ" "Ïã" "Ïä" "Ïå" "Ïæ" "Ïç" "Ïè" "Ïé" "Ïê" "Ïë" "Ïì" "Ïí" "Ïî" "Ïï" "Ïð" "Ïñ" "Ïò" "Ïó" "Ïô" "Ïõ" "Ïö" "Ï÷" "Ïø" "Ïù" "Ïú" "Ïû" "Ïü" "Ïý" "Ïþ" 48| "С" "Т" "У" "Ф" "Ð¥" "Ц" "Ч" "Ш" "Щ" "Ъ" "Ы" "Ь" "Э" "Ю" "Я" "а" "б" "в" "г" "д" "е" "ж" "з" "и" "й" "к" "л" "м" "н" "о" "п" "ÐÀ" "ÐÁ" "ÐÂ" "ÐÃ" "ÐÄ" "ÐÅ" "ÐÆ" "ÐÇ" "ÐÈ" "ÐÉ" "ÐÊ" "ÐË" "ÐÌ" "ÐÍ" "ÐÎ" "ÐÏ" "ÐÐ" "ÐÑ" "ÐÒ" "ÐÓ" "ÐÔ" "ÐÕ" "ÐÖ" "Ð×" "ÐØ" "ÐÙ" "ÐÚ" "ÐÛ" "ÐÜ" "ÐÝ" "ÐÞ" "Ðß" "Ðà" "Ðá" "Ðâ" "Ðã" "Ðä" "Ðå" "Ðæ" "Ðç" "Ðè" "Ðé" "Ðê" "Ðë" "Ðì" "Ðí" "Ðî" "Ðï" "Ðð" "Ðñ" "Ðò" "Ðó" "Ðô" "Ðõ" "Ðö" "Ð÷" "Ðø" "Ðù" "Ðú" "Ðû" "Ðü" "Ðý" "Ðþ" 49| "Ñ¡" "Ñ¢" "Ñ£" "Ѥ" "Ñ¥" "Ѧ" "ѧ" "Ѩ" "Ñ©" "Ѫ" "Ñ«" "Ѭ" "Ñ­" "Ñ®" "ѯ" "Ñ°" "ѱ" "Ѳ" "ѳ" "Ñ´" "ѵ" "Ѷ" "Ñ·" "Ѹ" "ѹ" "Ѻ" "Ñ»" "Ѽ" "ѽ" "Ѿ" "Ñ¿" "ÑÀ" "ÑÁ" "ÑÂ" "ÑÃ" "ÑÄ" "ÑÅ" "ÑÆ" "ÑÇ" "ÑÈ" "ÑÉ" "ÑÊ" "ÑË" "ÑÌ" "ÑÍ" "ÑÎ" "ÑÏ" "ÑÐ" "ÑÑ" "ÑÒ" "ÑÓ" "ÑÔ" "ÑÕ" "ÑÖ" "Ñ×" "ÑØ" "ÑÙ" "ÑÚ" "ÑÛ" "ÑÜ" "ÑÝ" "ÑÞ" "Ñß" "Ñà" "Ñá" "Ñâ" "Ñã" "Ñä" "Ñå" "Ñæ" "Ñç" "Ñè" "Ñé" "Ñê" "Ñë" "Ñì" "Ñí" "Ñî" "Ñï" "Ñð" "Ññ" "Ñò" "Ñó" "Ñô" "Ñõ" "Ñö" "Ñ÷" "Ñø" "Ñù" "Ñú" "Ñû" "Ñü" "Ñý" "Ñþ" 50| "Ò¡" "Ò¢" "Ò£" "Ò¤" "Ò¥" "Ò¦" "Ò§" "Ò¨" "Ò©" "Òª" "Ò«" "Ò¬" "Ò­" "Ò®" "Ò¯" "Ò°" "Ò±" "Ò²" "Ò³" "Ò´" "Òµ" "Ò¶" "Ò·" "Ò¸" "Ò¹" "Òº" "Ò»" "Ò¼" "Ò½" "Ò¾" "Ò¿" "ÒÀ" "ÒÁ" "ÒÂ" "ÒÃ" "ÒÄ" "ÒÅ" "ÒÆ" "ÒÇ" "ÒÈ" "ÒÉ" "ÒÊ" "ÒË" "ÒÌ" "ÒÍ" "ÒÎ" "ÒÏ" "ÒÐ" "ÒÑ" "ÒÒ" "ÒÓ" "ÒÔ" "ÒÕ" "ÒÖ" "Ò×" "ÒØ" "ÒÙ" "ÒÚ" "ÒÛ" "ÒÜ" "ÒÝ" "ÒÞ" "Òß" "Òà" "Òá" "Òâ" "Òã" "Òä" "Òå" "Òæ" "Òç" "Òè" "Òé" "Òê" "Òë" "Òì" "Òí" "Òî" "Òï" "Òð" "Òñ" "Òò" "Òó" "Òô" "Òõ" "Òö" "Ò÷" "Òø" "Òù" "Òú" "Òû" "Òü" "Òý" "Òþ" 51| "Ó¡" "Ó¢" "Ó£" "Ó¤" "Ó¥" "Ó¦" "Ó§" "Ó¨" "Ó©" "Óª" "Ó«" "Ó¬" "Ó­" "Ó®" "Ó¯" "Ó°" "Ó±" "Ó²" "Ó³" "Ó´" "Óµ" "Ó¶" "Ó·" "Ó¸" "Ó¹" "Óº" "Ó»" "Ó¼" "Ó½" "Ó¾" "Ó¿" "ÓÀ" "ÓÁ" "ÓÂ" "ÓÃ" "ÓÄ" "ÓÅ" "ÓÆ" "ÓÇ" "ÓÈ" "ÓÉ" "ÓÊ" "ÓË" "ÓÌ" "ÓÍ" "ÓÎ" "ÓÏ" "ÓÐ" "ÓÑ" "ÓÒ" "ÓÓ" "ÓÔ" "ÓÕ" "ÓÖ" "Ó×" "ÓØ" "ÓÙ" "ÓÚ" "ÓÛ" "ÓÜ" "ÓÝ" "ÓÞ" "Óß" "Óà" "Óá" "Óâ" "Óã" "Óä" "Óå" "Óæ" "Óç" "Óè" "Óé" "Óê" "Óë" "Óì" "Óí" "Óî" "Óï" "Óð" "Óñ" "Óò" "Óó" "Óô" "Óõ" "Óö" "Ó÷" "Óø" "Óù" "Óú" "Óû" "Óü" "Óý" "Óþ" 52| "Ô¡" "Ô¢" "Ô£" "Ô¤" "Ô¥" "Ô¦" "Ô§" "Ô¨" "Ô©" "Ôª" "Ô«" "Ô¬" "Ô­" "Ô®" "Ô¯" "Ô°" "Ô±" "Ô²" "Ô³" "Ô´" "Ôµ" "Ô¶" "Ô·" "Ô¸" "Ô¹" "Ôº" "Ô»" "Ô¼" "Ô½" "Ô¾" "Ô¿" "ÔÀ" "ÔÁ" "ÔÂ" "ÔÃ" "ÔÄ" "ÔÅ" "ÔÆ" "ÔÇ" "ÔÈ" "ÔÉ" "ÔÊ" "ÔË" "ÔÌ" "ÔÍ" "ÔÎ" "ÔÏ" "ÔÐ" "ÔÑ" "ÔÒ" "ÔÓ" "ÔÔ" "ÔÕ" "ÔÖ" "Ô×" "ÔØ" "ÔÙ" "ÔÚ" "ÔÛ" "ÔÜ" "ÔÝ" "ÔÞ" "Ôß" "Ôà" "Ôá" "Ôâ" "Ôã" "Ôä" "Ôå" "Ôæ" "Ôç" "Ôè" "Ôé" "Ôê" "Ôë" "Ôì" "Ôí" "Ôî" "Ôï" "Ôð" "Ôñ" "Ôò" "Ôó" "Ôô" "Ôõ" "Ôö" "Ô÷" "Ôø" "Ôù" "Ôú" "Ôû" "Ôü" "Ôý" "Ôþ" 53| "Õ¡" "Õ¢" "Õ£" "Õ¤" "Õ¥" "Õ¦" "Õ§" "Õ¨" "Õ©" "Õª" "Õ«" "Õ¬" "Õ­" "Õ®" "Õ¯" "Õ°" "Õ±" "Õ²" "Õ³" "Õ´" "Õµ" "Õ¶" "Õ·" "Õ¸" "Õ¹" "Õº" "Õ»" "Õ¼" "Õ½" "Õ¾" "Õ¿" "ÕÀ" "ÕÁ" "ÕÂ" "ÕÃ" "ÕÄ" "ÕÅ" "ÕÆ" "ÕÇ" "ÕÈ" "ÕÉ" "ÕÊ" "ÕË" "ÕÌ" "ÕÍ" "ÕÎ" "ÕÏ" "ÕÐ" "ÕÑ" "ÕÒ" "ÕÓ" "ÕÔ" "ÕÕ" "ÕÖ" "Õ×" "ÕØ" "ÕÙ" "ÕÚ" "ÕÛ" "ÕÜ" "ÕÝ" "ÕÞ" "Õß" "Õà" "Õá" "Õâ" "Õã" "Õä" "Õå" "Õæ" "Õç" "Õè" "Õé" "Õê" "Õë" "Õì" "Õí" "Õî" "Õï" "Õð" "Õñ" "Õò" "Õó" "Õô" "Õõ" "Õö" "Õ÷" "Õø" "Õù" "Õú" "Õû" "Õü" "Õý" "Õþ" 54| "Ö¡" "Ö¢" "Ö£" "Ö¤" "Ö¥" "Ö¦" "Ö§" "Ö¨" "Ö©" "Öª" "Ö«" "Ö¬" "Ö­" "Ö®" "Ö¯" "Ö°" "Ö±" "Ö²" "Ö³" "Ö´" "Öµ" "Ö¶" "Ö·" "Ö¸" "Ö¹" "Öº" "Ö»" "Ö¼" "Ö½" "Ö¾" "Ö¿" "ÖÀ" "ÖÁ" "ÖÂ" "ÖÃ" "ÖÄ" "ÖÅ" "ÖÆ" "ÖÇ" "ÖÈ" "ÖÉ" "ÖÊ" "ÖË" "ÖÌ" "ÖÍ" "ÖÎ" "ÖÏ" "ÖÐ" "ÖÑ" "ÖÒ" "ÖÓ" "ÖÔ" "ÖÕ" "ÖÖ" "Ö×" "ÖØ" "ÖÙ" "ÖÚ" "ÖÛ" "ÖÜ" "ÖÝ" "ÖÞ" "Öß" "Öà" "Öá" "Öâ" "Öã" "Öä" "Öå" "Öæ" "Öç" "Öè" "Öé" "Öê" "Öë" "Öì" "Öí" "Öî" "Öï" "Öð" "Öñ" "Öò" "Öó" "Öô" "Öõ" "Öö" "Ö÷" "Öø" "Öù" "Öú" "Öû" "Öü" "Öý" "Öþ" 55| "ס" "×¢" "×£" "פ" "×¥" "צ" "ק" "ר" "ש" "ת" "׫" "׬" "×­" "×®" "ׯ" "×°" "×±" "ײ" "׳" "×´" "×µ" "׶" "×·" "׸" "×¹" "׺" "×»" "×¼" "×½" "×¾" "׿" "×À" "×Á" "×Â" "×Ã" "×Ä" "×Å" "×Æ" "×Ç" "×È" "×É" "×Ê" "×Ë" "×Ì" "×Í" "×Î" "×Ï" "×Ð" "×Ñ" "×Ò" "×Ó" "×Ô" "×Õ" "×Ö" "××" "×Ø" "×Ù" "×Ú" "×Û" "×Ü" "×Ý" "×Þ" "×ß" "×à" "×á" "×â" "×ã" "×ä" "×å" "×æ" "×ç" "×è" "×é" "×ê" "×ë" "×ì" "×í" "×î" "×ï" "×ð" "×ñ" "×ò" "×ó" "×ô" "×õ" "×ö" "×÷" "×ø" "×ù" "×ú" "×û" "×ü" "×ý" "×þ" 56| "Ø¡" "Ø¢" "Ø£" "ؤ" "Ø¥" "ئ" "ا" "ب" "Ø©" "ت" "Ø«" "ج" "Ø­" "Ø®" "د" "Ø°" "ر" "ز" "س" "Ø´" "ص" "ض" "Ø·" "ظ" "ع" "غ" "Ø»" "ؼ" "ؽ" "ؾ" "Ø¿" "ØÀ" "ØÁ" "ØÂ" "ØÃ" "ØÄ" "ØÅ" "ØÆ" "ØÇ" "ØÈ" "ØÉ" "ØÊ" "ØË" "ØÌ" "ØÍ" "ØÎ" "ØÏ" "ØÐ" "ØÑ" "ØÒ" "ØÓ" "ØÔ" "ØÕ" "ØÖ" "Ø×" "ØØ" "ØÙ" "ØÚ" "ØÛ" "ØÜ" "ØÝ" "ØÞ" "Øß" "Øà" "Øá" "Øâ" "Øã" "Øä" "Øå" "Øæ" "Øç" "Øè" "Øé" "Øê" "Øë" "Øì" "Øí" "Øî" "Øï" "Øð" "Øñ" "Øò" "Øó" "Øô" "Øõ" "Øö" "Ø÷" "Øø" "Øù" "Øú" "Øû" "Øü" "Øý" "Øþ" 57| "Ù¡" "Ù¢" "Ù£" "Ù¤" "Ù¥" "Ù¦" "Ù§" "Ù¨" "Ù©" "Ùª" "Ù«" "Ù¬" "Ù­" "Ù®" "Ù¯" "Ù°" "Ù±" "Ù²" "Ù³" "Ù´" "Ùµ" "Ù¶" "Ù·" "Ù¸" "Ù¹" "Ùº" "Ù»" "Ù¼" "Ù½" "Ù¾" "Ù¿" "ÙÀ" "ÙÁ" "ÙÂ" "ÙÃ" "ÙÄ" "ÙÅ" "ÙÆ" "ÙÇ" "ÙÈ" "ÙÉ" "ÙÊ" "ÙË" "ÙÌ" "ÙÍ" "ÙÎ" "ÙÏ" "ÙÐ" "ÙÑ" "ÙÒ" "ÙÓ" "ÙÔ" "ÙÕ" "ÙÖ" "Ù×" "ÙØ" "ÙÙ" "ÙÚ" "ÙÛ" "ÙÜ" "ÙÝ" "ÙÞ" "Ùß" "Ùà" "Ùá" "Ùâ" "Ùã" "Ùä" "Ùå" "Ùæ" "Ùç" "Ùè" "Ùé" "Ùê" "Ùë" "Ùì" "Ùí" "Ùî" "Ùï" "Ùð" "Ùñ" "Ùò" "Ùó" "Ùô" "Ùõ" "Ùö" "Ù÷" "Ùø" "Ùù" "Ùú" "Ùû" "Ùü" "Ùý" "Ùþ" 58| "Ú¡" "Ú¢" "Ú£" "Ú¤" "Ú¥" "Ú¦" "Ú§" "Ú¨" "Ú©" "Úª" "Ú«" "Ú¬" "Ú­" "Ú®" "Ú¯" "Ú°" "Ú±" "Ú²" "Ú³" "Ú´" "Úµ" "Ú¶" "Ú·" "Ú¸" "Ú¹" "Úº" "Ú»" "Ú¼" "Ú½" "Ú¾" "Ú¿" "ÚÀ" "ÚÁ" "ÚÂ" "ÚÃ" "ÚÄ" "ÚÅ" "ÚÆ" "ÚÇ" "ÚÈ" "ÚÉ" "ÚÊ" "ÚË" "ÚÌ" "ÚÍ" "ÚÎ" "ÚÏ" "ÚÐ" "ÚÑ" "ÚÒ" "ÚÓ" "ÚÔ" "ÚÕ" "ÚÖ" "Ú×" "ÚØ" "ÚÙ" "ÚÚ" "ÚÛ" "ÚÜ" "ÚÝ" "ÚÞ" "Úß" "Úà" "Úá" "Úâ" "Úã" "Úä" "Úå" "Úæ" "Úç" "Úè" "Úé" "Úê" "Úë" "Úì" "Úí" "Úî" "Úï" "Úð" "Úñ" "Úò" "Úó" "Úô" "Úõ" "Úö" "Ú÷" "Úø" "Úù" "Úú" "Úû" "Úü" "Úý" "Úþ" 59| "Û¡" "Û¢" "Û£" "Û¤" "Û¥" "Û¦" "Û§" "Û¨" "Û©" "Ûª" "Û«" "Û¬" "Û­" "Û®" "Û¯" "Û°" "Û±" "Û²" "Û³" "Û´" "Ûµ" "Û¶" "Û·" "Û¸" "Û¹" "Ûº" "Û»" "Û¼" "Û½" "Û¾" "Û¿" "ÛÀ" "ÛÁ" "ÛÂ" "ÛÃ" "ÛÄ" "ÛÅ" "ÛÆ" "ÛÇ" "ÛÈ" "ÛÉ" "ÛÊ" "ÛË" "ÛÌ" "ÛÍ" "ÛÎ" "ÛÏ" "ÛÐ" "ÛÑ" "ÛÒ" "ÛÓ" "ÛÔ" "ÛÕ" "ÛÖ" "Û×" "ÛØ" "ÛÙ" "ÛÚ" "ÛÛ" "ÛÜ" "ÛÝ" "ÛÞ" "Ûß" "Ûà" "Ûá" "Ûâ" "Ûã" "Ûä" "Ûå" "Ûæ" "Ûç" "Ûè" "Ûé" "Ûê" "Ûë" "Ûì" "Ûí" "Ûî" "Ûï" "Ûð" "Ûñ" "Ûò" "Ûó" "Ûô" "Ûõ" "Ûö" "Û÷" "Ûø" "Ûù" "Ûú" "Ûû" "Ûü" "Ûý" "Ûþ" 60| "Ü¡" "Ü¢" "Ü£" "ܤ" "Ü¥" "ܦ" "ܧ" "ܨ" "Ü©" "ܪ" "Ü«" "ܬ" "Ü­" "Ü®" "ܯ" "Ü°" "ܱ" "ܲ" "ܳ" "Ü´" "ܵ" "ܶ" "Ü·" "ܸ" "ܹ" "ܺ" "Ü»" "ܼ" "ܽ" "ܾ" "Ü¿" "ÜÀ" "ÜÁ" "ÜÂ" "ÜÃ" "ÜÄ" "ÜÅ" "ÜÆ" "ÜÇ" "ÜÈ" "ÜÉ" "ÜÊ" "ÜË" "ÜÌ" "ÜÍ" "ÜÎ" "ÜÏ" "ÜÐ" "ÜÑ" "ÜÒ" "ÜÓ" "ÜÔ" "ÜÕ" "ÜÖ" "Ü×" "ÜØ" "ÜÙ" "ÜÚ" "ÜÛ" "ÜÜ" "ÜÝ" "ÜÞ" "Üß" "Üà" "Üá" "Üâ" "Üã" "Üä" "Üå" "Üæ" "Üç" "Üè" "Üé" "Üê" "Üë" "Üì" "Üí" "Üî" "Üï" "Üð" "Üñ" "Üò" "Üó" "Üô" "Üõ" "Üö" "Ü÷" "Üø" "Üù" "Üú" "Üû" "Üü" "Üý" "Üþ" 61| "Ý¡" "Ý¢" "Ý£" "ݤ" "Ý¥" "ݦ" "ݧ" "ݨ" "Ý©" "ݪ" "Ý«" "ݬ" "Ý­" "Ý®" "ݯ" "Ý°" "ݱ" "ݲ" "ݳ" "Ý´" "ݵ" "ݶ" "Ý·" "ݸ" "ݹ" "ݺ" "Ý»" "ݼ" "ݽ" "ݾ" "Ý¿" "ÝÀ" "ÝÁ" "ÝÂ" "ÝÃ" "ÝÄ" "ÝÅ" "ÝÆ" "ÝÇ" "ÝÈ" "ÝÉ" "ÝÊ" "ÝË" "ÝÌ" "ÝÍ" "ÝÎ" "ÝÏ" "ÝÐ" "ÝÑ" "ÝÒ" "ÝÓ" "ÝÔ" "ÝÕ" "ÝÖ" "Ý×" "ÝØ" "ÝÙ" "ÝÚ" "ÝÛ" "ÝÜ" "ÝÝ" "ÝÞ" "Ýß" "Ýà" "Ýá" "Ýâ" "Ýã" "Ýä" "Ýå" "Ýæ" "Ýç" "Ýè" "Ýé" "Ýê" "Ýë" "Ýì" "Ýí" "Ýî" "Ýï" "Ýð" "Ýñ" "Ýò" "Ýó" "Ýô" "Ýõ" "Ýö" "Ý÷" "Ýø" "Ýù" "Ýú" "Ýû" "Ýü" "Ýý" "Ýþ" 62| "Þ¡" "Þ¢" "Þ£" "Þ¤" "Þ¥" "Þ¦" "Þ§" "Þ¨" "Þ©" "Þª" "Þ«" "Þ¬" "Þ­" "Þ®" "Þ¯" "Þ°" "Þ±" "Þ²" "Þ³" "Þ´" "Þµ" "Þ¶" "Þ·" "Þ¸" "Þ¹" "Þº" "Þ»" "Þ¼" "Þ½" "Þ¾" "Þ¿" "ÞÀ" "ÞÁ" "ÞÂ" "ÞÃ" "ÞÄ" "ÞÅ" "ÞÆ" "ÞÇ" "ÞÈ" "ÞÉ" "ÞÊ" "ÞË" "ÞÌ" "ÞÍ" "ÞÎ" "ÞÏ" "ÞÐ" "ÞÑ" "ÞÒ" "ÞÓ" "ÞÔ" "ÞÕ" "ÞÖ" "Þ×" "ÞØ" "ÞÙ" "ÞÚ" "ÞÛ" "ÞÜ" "ÞÝ" "ÞÞ" "Þß" "Þà" "Þá" "Þâ" "Þã" "Þä" "Þå" "Þæ" "Þç" "Þè" "Þé" "Þê" "Þë" "Þì" "Þí" "Þî" "Þï" "Þð" "Þñ" "Þò" "Þó" "Þô" "Þõ" "Þö" "Þ÷" "Þø" "Þù" "Þú" "Þû" "Þü" "Þý" "Þþ" 63| "ß¡" "ߢ" "ߣ" "ߤ" "ߥ" "ߦ" "ߧ" "ߨ" "ß©" "ߪ" "ß«" "߬" "ß­" "ß®" "߯" "ß°" "ß±" "ß²" "ß³" "ß´" "ßµ" "߶" "ß·" "߸" "ß¹" "ߺ" "ß»" "ß¼" "ß½" "ß¾" "ß¿" "ßÀ" "ßÁ" "ßÂ" "ßÃ" "ßÄ" "ßÅ" "ßÆ" "ßÇ" "ßÈ" "ßÉ" "ßÊ" "ßË" "ßÌ" "ßÍ" "ßÎ" "ßÏ" "ßÐ" "ßÑ" "ßÒ" "ßÓ" "ßÔ" "ßÕ" "ßÖ" "ß×" "ßØ" "ßÙ" "ßÚ" "ßÛ" "ßÜ" "ßÝ" "ßÞ" "ßß" "ßà" "ßá" "ßâ" "ßã" "ßä" "ßå" "ßæ" "ßç" "ßè" "ßé" "ßê" "ßë" "ßì" "ßí" "ßî" "ßï" "ßð" "ßñ" "ßò" "ßó" "ßô" "ßõ" "ßö" "ß÷" "ßø" "ßù" "ßú" "ßû" "ßü" "ßý" "ßþ" 64| "à¡" "à¢" "à£" "à¤" "à¥" "à¦" "à§" "à¨" "à©" "àª" "à«" "à¬" "à­" "à®" "à¯" "à°" "à±" "à²" "à³" "à´" "àµ" "à¶" "à·" "à¸" "à¹" "àº" "à»" "à¼" "à½" "à¾" "à¿" "àÀ" "àÁ" "àÂ" "àÃ" "àÄ" "àÅ" "àÆ" "àÇ" "àÈ" "àÉ" "àÊ" "àË" "àÌ" "àÍ" "àÎ" "àÏ" "àÐ" "àÑ" "àÒ" "àÓ" "àÔ" "àÕ" "àÖ" "à×" "àØ" "àÙ" "àÚ" "àÛ" "àÜ" "àÝ" "àÞ" "àß" "àà" "àá" "àâ" "àã" "àä" "àå" "àæ" "àç" "àè" "àé" "àê" "àë" "àì" "àí" "àî" "àï" "àð" "àñ" "àò" "àó" "àô" "àõ" "àö" "à÷" "àø" "àù" "àú" "àû" "àü" "àý" "àþ" 65| "á¡" "á¢" "á£" "á¤" "á¥" "á¦" "á§" "á¨" "á©" "áª" "á«" "á¬" "á­" "á®" "á¯" "á°" "á±" "á²" "á³" "á´" "áµ" "á¶" "á·" "á¸" "á¹" "áº" "á»" "á¼" "á½" "á¾" "á¿" "áÀ" "áÁ" "áÂ" "áÃ" "áÄ" "áÅ" "áÆ" "áÇ" "áÈ" "áÉ" "áÊ" "áË" "áÌ" "áÍ" "áÎ" "áÏ" "áÐ" "áÑ" "áÒ" "áÓ" "áÔ" "áÕ" "áÖ" "á×" "áØ" "áÙ" "áÚ" "áÛ" "áÜ" "áÝ" "áÞ" "áß" "áà" "áá" "áâ" "áã" "áä" "áå" "áæ" "áç" "áè" "áé" "áê" "áë" "áì" "áí" "áî" "áï" "áð" "áñ" "áò" "áó" "áô" "áõ" "áö" "á÷" "áø" "áù" "áú" "áû" "áü" "áý" "áþ" 66| "â¡" "â¢" "â£" "â¤" "â¥" "â¦" "â§" "â¨" "â©" "âª" "â«" "â¬" "â­" "â®" "â¯" "â°" "â±" "â²" "â³" "â´" "âµ" "â¶" "â·" "â¸" "â¹" "âº" "â»" "â¼" "â½" "â¾" "â¿" "âÀ" "âÁ" "âÂ" "âÃ" "âÄ" "âÅ" "âÆ" "âÇ" "âÈ" "âÉ" "âÊ" "âË" "âÌ" "âÍ" "âÎ" "âÏ" "âÐ" "âÑ" "âÒ" "âÓ" "âÔ" "âÕ" "âÖ" "â×" "âØ" "âÙ" "âÚ" "âÛ" "âÜ" "âÝ" "âÞ" "âß" "âà" "âá" "ââ" "âã" "âä" "âå" "âæ" "âç" "âè" "âé" "âê" "âë" "âì" "âí" "âî" "âï" "âð" "âñ" "âò" "âó" "âô" "âõ" "âö" "â÷" "âø" "âù" "âú" "âû" "âü" "âý" "âþ" 67| "ã¡" "ã¢" "ã£" "ã¤" "ã¥" "ã¦" "ã§" "ã¨" "ã©" "ãª" "ã«" "ã¬" "ã­" "ã®" "ã¯" "ã°" "ã±" "ã²" "ã³" "ã´" "ãµ" "ã¶" "ã·" "ã¸" "ã¹" "ãº" "ã»" "ã¼" "ã½" "ã¾" "ã¿" "ãÀ" "ãÁ" "ãÂ" "ãÃ" "ãÄ" "ãÅ" "ãÆ" "ãÇ" "ãÈ" "ãÉ" "ãÊ" "ãË" "ãÌ" "ãÍ" "ãÎ" "ãÏ" "ãÐ" "ãÑ" "ãÒ" "ãÓ" "ãÔ" "ãÕ" "ãÖ" "ã×" "ãØ" "ãÙ" "ãÚ" "ãÛ" "ãÜ" "ãÝ" "ãÞ" "ãß" "ãà" "ãá" "ãâ" "ãã" "ãä" "ãå" "ãæ" "ãç" "ãè" "ãé" "ãê" "ãë" "ãì" "ãí" "ãî" "ãï" "ãð" "ãñ" "ãò" "ãó" "ãô" "ãõ" "ãö" "ã÷" "ãø" "ãù" "ãú" "ãû" "ãü" "ãý" "ãþ" 68| "ä¡" "ä¢" "ä£" "ä¤" "ä¥" "ä¦" "ä§" "ä¨" "ä©" "äª" "ä«" "ä¬" "ä­" "ä®" "ä¯" "ä°" "ä±" "ä²" "ä³" "ä´" "äµ" "ä¶" "ä·" "ä¸" "ä¹" "äº" "ä»" "ä¼" "ä½" "ä¾" "ä¿" "äÀ" "äÁ" "äÂ" "äÃ" "äÄ" "äÅ" "äÆ" "äÇ" "äÈ" "äÉ" "äÊ" "äË" "äÌ" "äÍ" "äÎ" "äÏ" "äÐ" "äÑ" "äÒ" "äÓ" "äÔ" "äÕ" "äÖ" "ä×" "äØ" "äÙ" "äÚ" "äÛ" "äÜ" "äÝ" "äÞ" "äß" "äà" "äá" "äâ" "äã" "ää" "äå" "äæ" "äç" "äè" "äé" "äê" "äë" "äì" "äí" "äî" "äï" "äð" "äñ" "äò" "äó" "äô" "äõ" "äö" "ä÷" "äø" "äù" "äú" "äû" "äü" "äý" "äþ" 69| "å¡" "å¢" "å£" "å¤" "å¥" "å¦" "å§" "å¨" "å©" "åª" "å«" "å¬" "å­" "å®" "å¯" "å°" "å±" "å²" "å³" "å´" "åµ" "å¶" "å·" "å¸" "å¹" "åº" "å»" "å¼" "å½" "å¾" "å¿" "åÀ" "åÁ" "åÂ" "åÃ" "åÄ" "åÅ" "åÆ" "åÇ" "åÈ" "åÉ" "åÊ" "åË" "åÌ" "åÍ" "åÎ" "åÏ" "åÐ" "åÑ" "åÒ" "åÓ" "åÔ" "åÕ" "åÖ" "å×" "åØ" "åÙ" "åÚ" "åÛ" "åÜ" "åÝ" "åÞ" "åß" "åà" "åá" "åâ" "åã" "åä" "åå" "åæ" "åç" "åè" "åé" "åê" "åë" "åì" "åí" "åî" "åï" "åð" "åñ" "åò" "åó" "åô" "åõ" "åö" "å÷" "åø" "åù" "åú" "åû" "åü" "åý" "åþ" 70| "æ¡" "æ¢" "æ£" "æ¤" "æ¥" "æ¦" "æ§" "æ¨" "æ©" "æª" "æ«" "æ¬" "æ­" "æ®" "æ¯" "æ°" "æ±" "æ²" "æ³" "æ´" "æµ" "æ¶" "æ·" "æ¸" "æ¹" "æº" "æ»" "æ¼" "æ½" "æ¾" "æ¿" "æÀ" "æÁ" "æÂ" "æÃ" "æÄ" "æÅ" "æÆ" "æÇ" "æÈ" "æÉ" "æÊ" "æË" "æÌ" "æÍ" "æÎ" "æÏ" "æÐ" "æÑ" "æÒ" "æÓ" "æÔ" "æÕ" "æÖ" "æ×" "æØ" "æÙ" "æÚ" "æÛ" "æÜ" "æÝ" "æÞ" "æß" "æà" "æá" "æâ" "æã" "æä" "æå" "ææ" "æç" "æè" "æé" "æê" "æë" "æì" "æí" "æî" "æï" "æð" "æñ" "æò" "æó" "æô" "æõ" "æö" "æ÷" "æø" "æù" "æú" "æû" "æü" "æý" "æþ" 71| "ç¡" "ç¢" "ç£" "ç¤" "ç¥" "ç¦" "ç§" "ç¨" "ç©" "çª" "ç«" "ç¬" "ç­" "ç®" "ç¯" "ç°" "ç±" "ç²" "ç³" "ç´" "çµ" "ç¶" "ç·" "ç¸" "ç¹" "çº" "ç»" "ç¼" "ç½" "ç¾" "ç¿" "çÀ" "çÁ" "çÂ" "çÃ" "çÄ" "çÅ" "çÆ" "çÇ" "çÈ" "çÉ" "çÊ" "çË" "çÌ" "çÍ" "çÎ" "çÏ" "çÐ" "çÑ" "çÒ" "çÓ" "çÔ" "çÕ" "çÖ" "ç×" "çØ" "çÙ" "çÚ" "çÛ" "çÜ" "çÝ" "çÞ" "çß" "çà" "çá" "çâ" "çã" "çä" "çå" "çæ" "çç" "çè" "çé" "çê" "çë" "çì" "çí" "çî" "çï" "çð" "çñ" "çò" "çó" "çô" "çõ" "çö" "ç÷" "çø" "çù" "çú" "çû" "çü" "çý" "çþ" 72| "è¡" "è¢" "è£" "è¤" "è¥" "è¦" "è§" "è¨" "è©" "èª" "è«" "è¬" "è­" "è®" "è¯" "è°" "è±" "è²" "è³" "è´" "èµ" "è¶" "è·" "è¸" "è¹" "èº" "è»" "è¼" "è½" "è¾" "è¿" "èÀ" "èÁ" "èÂ" "èÃ" "èÄ" "èÅ" "èÆ" "èÇ" "èÈ" "èÉ" "èÊ" "èË" "èÌ" "èÍ" "èÎ" "èÏ" "èÐ" "èÑ" "èÒ" "èÓ" "èÔ" "èÕ" "èÖ" "è×" "èØ" "èÙ" "èÚ" "èÛ" "èÜ" "èÝ" "èÞ" "èß" "èà" "èá" "èâ" "èã" "èä" "èå" "èæ" "èç" "èè" "èé" "èê" "èë" "èì" "èí" "èî" "èï" "èð" "èñ" "èò" "èó" "èô" "èõ" "èö" "è÷" "èø" "èù" "èú" "èû" "èü" "èý" "èþ" 73| "é¡" "é¢" "é£" "é¤" "é¥" "é¦" "é§" "é¨" "é©" "éª" "é«" "é¬" "é­" "é®" "é¯" "é°" "é±" "é²" "é³" "é´" "éµ" "é¶" "é·" "é¸" "é¹" "éº" "é»" "é¼" "é½" "é¾" "é¿" "éÀ" "éÁ" "éÂ" "éÃ" "éÄ" "éÅ" "éÆ" "éÇ" "éÈ" "éÉ" "éÊ" "éË" "éÌ" "éÍ" "éÎ" "éÏ" "éÐ" "éÑ" "éÒ" "éÓ" "éÔ" "éÕ" "éÖ" "é×" "éØ" "éÙ" "éÚ" "éÛ" "éÜ" "éÝ" "éÞ" "éß" "éà" "éá" "éâ" "éã" "éä" "éå" "éæ" "éç" "éè" "éé" "éê" "éë" "éì" "éí" "éî" "éï" "éð" "éñ" "éò" "éó" "éô" "éõ" "éö" "é÷" "éø" "éù" "éú" "éû" "éü" "éý" "éþ" 74| "ê¡" "ê¢" "ê£" "ê¤" "ê¥" "ê¦" "ê§" "ê¨" "ê©" "êª" "ê«" "ê¬" "ê­" "ê®" "ê¯" "ê°" "ê±" "ê²" "ê³" "ê´" "êµ" "ê¶" "ê·" "ê¸" "ê¹" "êº" "ê»" "ê¼" "ê½" "ê¾" "ê¿" "êÀ" "êÁ" "êÂ" "êÃ" "êÄ" "êÅ" "êÆ" "êÇ" "êÈ" "êÉ" "êÊ" "êË" "êÌ" "êÍ" "êÎ" "êÏ" "êÐ" "êÑ" "êÒ" "êÓ" "êÔ" "êÕ" "êÖ" "ê×" "êØ" "êÙ" "êÚ" "êÛ" "êÜ" "êÝ" "êÞ" "êß" "êà" "êá" "êâ" "êã" "êä" "êå" "êæ" "êç" "êè" "êé" "êê" "êë" "êì" "êí" "êî" "êï" "êð" "êñ" "êò" "êó" "êô" "êõ" "êö" "ê÷" "êø" "êù" "êú" "êû" "êü" "êý" "êþ" 75| "ë¡" "ë¢" "ë£" "ë¤" "ë¥" "ë¦" "ë§" "ë¨" "ë©" "ëª" "ë«" "ë¬" "ë­" "ë®" "ë¯" "ë°" "ë±" "ë²" "ë³" "ë´" "ëµ" "ë¶" "ë·" "ë¸" "ë¹" "ëº" "ë»" "ë¼" "ë½" "ë¾" "ë¿" "ëÀ" "ëÁ" "ëÂ" "ëÃ" "ëÄ" "ëÅ" "ëÆ" "ëÇ" "ëÈ" "ëÉ" "ëÊ" "ëË" "ëÌ" "ëÍ" "ëÎ" "ëÏ" "ëÐ" "ëÑ" "ëÒ" "ëÓ" "ëÔ" "ëÕ" "ëÖ" "ë×" "ëØ" "ëÙ" "ëÚ" "ëÛ" "ëÜ" "ëÝ" "ëÞ" "ëß" "ëà" "ëá" "ëâ" "ëã" "ëä" "ëå" "ëæ" "ëç" "ëè" "ëé" "ëê" "ëë" "ëì" "ëí" "ëî" "ëï" "ëð" "ëñ" "ëò" "ëó" "ëô" "ëõ" "ëö" "ë÷" "ëø" "ëù" "ëú" "ëû" "ëü" "ëý" "ëþ" 76| "ì¡" "ì¢" "ì£" "ì¤" "ì¥" "ì¦" "ì§" "ì¨" "ì©" "ìª" "ì«" "ì¬" "ì­" "ì®" "ì¯" "ì°" "ì±" "ì²" "ì³" "ì´" "ìµ" "ì¶" "ì·" "ì¸" "ì¹" "ìº" "ì»" "ì¼" "ì½" "ì¾" "ì¿" "ìÀ" "ìÁ" "ìÂ" "ìÃ" "ìÄ" "ìÅ" "ìÆ" "ìÇ" "ìÈ" "ìÉ" "ìÊ" "ìË" "ìÌ" "ìÍ" "ìÎ" "ìÏ" "ìÐ" "ìÑ" "ìÒ" "ìÓ" "ìÔ" "ìÕ" "ìÖ" "ì×" "ìØ" "ìÙ" "ìÚ" "ìÛ" "ìÜ" "ìÝ" "ìÞ" "ìß" "ìà" "ìá" "ìâ" "ìã" "ìä" "ìå" "ìæ" "ìç" "ìè" "ìé" "ìê" "ìë" "ìì" "ìí" "ìî" "ìï" "ìð" "ìñ" "ìò" "ìó" "ìô" "ìõ" "ìö" "ì÷" "ìø" "ìù" "ìú" "ìû" "ìü" "ìý" "ìþ" 77| "í¡" "í¢" "í£" "í¤" "í¥" "í¦" "í§" "í¨" "í©" "íª" "í«" "í¬" "í­" "í®" "í¯" "í°" "í±" "í²" "í³" "í´" "íµ" "í¶" "í·" "í¸" "í¹" "íº" "í»" "í¼" "í½" "í¾" "í¿" "íÀ" "íÁ" "íÂ" "íÃ" "íÄ" "íÅ" "íÆ" "íÇ" "íÈ" "íÉ" "íÊ" "íË" "íÌ" "íÍ" "íÎ" "íÏ" "íÐ" "íÑ" "íÒ" "íÓ" "íÔ" "íÕ" "íÖ" "í×" "íØ" "íÙ" "íÚ" "íÛ" "íÜ" "íÝ" "íÞ" "íß" "íà" "íá" "íâ" "íã" "íä" "íå" "íæ" "íç" "íè" "íé" "íê" "íë" "íì" "íí" "íî" "íï" "íð" "íñ" "íò" "íó" "íô" "íõ" "íö" "í÷" "íø" "íù" "íú" "íû" "íü" "íý" "íþ" 78| "î¡" "î¢" "î£" "î¤" "î¥" "î¦" "î§" "î¨" "î©" "îª" "î«" "î¬" "î­" "î®" "î¯" "î°" "î±" "î²" "î³" "î´" "îµ" "î¶" "î·" "î¸" "î¹" "îº" "î»" "î¼" "î½" "î¾" "î¿" "îÀ" "îÁ" "îÂ" "îÃ" "îÄ" "îÅ" "îÆ" "îÇ" "îÈ" "îÉ" "îÊ" "îË" "îÌ" "îÍ" "îÎ" "îÏ" "îÐ" "îÑ" "îÒ" "îÓ" "îÔ" "îÕ" "îÖ" "î×" "îØ" "îÙ" "îÚ" "îÛ" "îÜ" "îÝ" "îÞ" "îß" "îà" "îá" "îâ" "îã" "îä" "îå" "îæ" "îç" "îè" "îé" "îê" "îë" "îì" "îí" "îî" "îï" "îð" "îñ" "îò" "îó" "îô" "îõ" "îö" "î÷" "îø" "îù" "îú" "îû" "îü" "îý" "îþ" 79| "ï¡" "ï¢" "ï£" "ï¤" "ï¥" "ï¦" "ï§" "ï¨" "ï©" "ïª" "ï«" "ï¬" "ï­" "ï®" "ï¯" "ï°" "ï±" "ï²" "ï³" "ï´" "ïµ" "ï¶" "ï·" "ï¸" "ï¹" "ïº" "ï»" "ï¼" "ï½" "ï¾" "ï¿" "ïÀ" "ïÁ" "ïÂ" "ïÃ" "ïÄ" "ïÅ" "ïÆ" "ïÇ" "ïÈ" "ïÉ" "ïÊ" "ïË" "ïÌ" "ïÍ" "ïÎ" "ïÏ" "ïÐ" "ïÑ" "ïÒ" "ïÓ" "ïÔ" "ïÕ" "ïÖ" "ï×" "ïØ" "ïÙ" "ïÚ" "ïÛ" "ïÜ" "ïÝ" "ïÞ" "ïß" "ïà" "ïá" "ïâ" "ïã" "ïä" "ïå" "ïæ" "ïç" "ïè" "ïé" "ïê" "ïë" "ïì" "ïí" "ïî" "ïï" "ïð" "ïñ" "ïò" "ïó" "ïô" "ïõ" "ïö" "ï÷" "ïø" "ïù" "ïú" "ïû" "ïü" "ïý" "ïþ" 80| "ð¡" "ð¢" "ð£" "ð¤" "ð¥" "ð¦" "ð§" "ð¨" "ð©" "ðª" "ð«" "ð¬" "ð­" "ð®" "ð¯" "ð°" "ð±" "ð²" "ð³" "ð´" "ðµ" "ð¶" "ð·" "ð¸" "ð¹" "ðº" "ð»" "ð¼" "ð½" "ð¾" "ð¿" "ðÀ" "ðÁ" "ðÂ" "ðÃ" "ðÄ" "ðÅ" "ðÆ" "ðÇ" "ðÈ" "ðÉ" "ðÊ" "ðË" "ðÌ" "ðÍ" "ðÎ" "ðÏ" "ðÐ" "ðÑ" "ðÒ" "ðÓ" "ðÔ" "ðÕ" "ðÖ" "ð×" "ðØ" "ðÙ" "ðÚ" "ðÛ" "ðÜ" "ðÝ" "ðÞ" "ðß" "ðà" "ðá" "ðâ" "ðã" "ðä" "ðå" "ðæ" "ðç" "ðè" "ðé" "ðê" "ðë" "ðì" "ðí" "ðî" "ðï" "ðð" "ðñ" "ðò" "ðó" "ðô" "ðõ" "ðö" "ð÷" "ðø" "ðù" "ðú" "ðû" "ðü" "ðý" "ðþ" 81| "ñ¡" "ñ¢" "ñ£" "ñ¤" "ñ¥" "ñ¦" "ñ§" "ñ¨" "ñ©" "ñª" "ñ«" "ñ¬" "ñ­" "ñ®" "ñ¯" "ñ°" "ñ±" "ñ²" "ñ³" "ñ´" "ñµ" "ñ¶" "ñ·" "ñ¸" "ñ¹" "ñº" "ñ»" "ñ¼" "ñ½" "ñ¾" "ñ¿" "ñÀ" "ñÁ" "ñÂ" "ñÃ" "ñÄ" "ñÅ" "ñÆ" "ñÇ" "ñÈ" "ñÉ" "ñÊ" "ñË" "ñÌ" "ñÍ" "ñÎ" "ñÏ" "ñÐ" "ñÑ" "ñÒ" "ñÓ" "ñÔ" "ñÕ" "ñÖ" "ñ×" "ñØ" "ñÙ" "ñÚ" "ñÛ" "ñÜ" "ñÝ" "ñÞ" "ñß" "ñà" "ñá" "ñâ" "ñã" "ñä" "ñå" "ñæ" "ñç" "ñè" "ñé" "ñê" "ñë" "ñì" "ñí" "ñî" "ñï" "ñð" "ññ" "ñò" "ñó" "ñô" "ñõ" "ñö" "ñ÷" "ñø" "ñù" "ñú" "ñû" "ñü" "ñý" "ñþ" 82| "ò¡" "ò¢" "ò£" "ò¤" "ò¥" "ò¦" "ò§" "ò¨" "ò©" "òª" "ò«" "ò¬" "ò­" "ò®" "ò¯" "ò°" "ò±" "ò²" "ò³" "ò´" "òµ" "ò¶" "ò·" "ò¸" "ò¹" "òº" "ò»" "ò¼" "ò½" "ò¾" "ò¿" "òÀ" "òÁ" "òÂ" "òÃ" "òÄ" "òÅ" "òÆ" "òÇ" "òÈ" "òÉ" "òÊ" "òË" "òÌ" "òÍ" "òÎ" "òÏ" "òÐ" "òÑ" "òÒ" "òÓ" "òÔ" "òÕ" "òÖ" "ò×" "òØ" "òÙ" "òÚ" "òÛ" "òÜ" "òÝ" "òÞ" "òß" "òà" "òá" "òâ" "òã" "òä" "òå" "òæ" "òç" "òè" "òé" "òê" "òë" "òì" "òí" "òî" "òï" "òð" "òñ" "òò" "òó" "òô" "òõ" "òö" "ò÷" "òø" "òù" "òú" "òû" "òü" "òý" "òþ" 83| "ó¡" "ó¢" "ó£" "ó¤" "ó¥" "ó¦" "ó§" "ó¨" "ó©" "óª" "ó«" "ó¬" "ó­" "ó®" "ó¯" "ó°" "ó±" "ó²" "ó³" "ó´" "óµ" "ó¶" "ó·" "ó¸" "ó¹" "óº" "ó»" "ó¼" "ó½" "ó¾" "ó¿" "óÀ" "óÁ" "óÂ" "óÃ" "óÄ" "óÅ" "óÆ" "óÇ" "óÈ" "óÉ" "óÊ" "óË" "óÌ" "óÍ" "óÎ" "óÏ" "óÐ" "óÑ" "óÒ" "óÓ" "óÔ" "óÕ" "óÖ" "ó×" "óØ" "óÙ" "óÚ" "óÛ" "óÜ" "óÝ" "óÞ" "óß" "óà" "óá" "óâ" "óã" "óä" "óå" "óæ" "óç" "óè" "óé" "óê" "óë" "óì" "óí" "óî" "óï" "óð" "óñ" "óò" "óó" "óô" "óõ" "óö" "ó÷" "óø" "óù" "óú" "óû" "óü" "óý" "óþ" 84| "ô¡" "ô¢" "ô£" "ô¤" "ô¥" "ô¦" "ô§" "ô¨" "ô©" "ôª" "ô«" "ô¬" "ô­" "ô®" "ô¯" "ô°" "ô±" "ô²" "ô³" "ô´" "ôµ" "ô¶" "ô·" "ô¸" "ô¹" "ôº" "ô»" "ô¼" "ô½" "ô¾" "ô¿" "ôÀ" "ôÁ" "ôÂ" "ôÃ" "ôÄ" "ôÅ" "ôÆ" "ôÇ" "ôÈ" "ôÉ" "ôÊ" "ôË" "ôÌ" "ôÍ" "ôÎ" "ôÏ" "ôÐ" "ôÑ" "ôÒ" "ôÓ" "ôÔ" "ôÕ" "ôÖ" "ô×" "ôØ" "ôÙ" "ôÚ" "ôÛ" "ôÜ" "ôÝ" "ôÞ" "ôß" "ôà" "ôá" "ôâ" "ôã" "ôä" "ôå" "ôæ" "ôç" "ôè" "ôé" "ôê" "ôë" "ôì" "ôí" "ôî" "ôï" "ôð" "ôñ" "ôò" "ôó" "ôô" "ôõ" "ôö" "ô÷" "ôø" "ôù" "ôú" "ôû" "ôü" "ôý" "ôþ" 85| "õ¡" "õ¢" "õ£" "õ¤" "õ¥" "õ¦" "õ§" "õ¨" "õ©" "õª" "õ«" "õ¬" "õ­" "õ®" "õ¯" "õ°" "õ±" "õ²" "õ³" "õ´" "õµ" "õ¶" "õ·" "õ¸" "õ¹" "õº" "õ»" "õ¼" "õ½" "õ¾" "õ¿" "õÀ" "õÁ" "õÂ" "õÃ" "õÄ" "õÅ" "õÆ" "õÇ" "õÈ" "õÉ" "õÊ" "õË" "õÌ" "õÍ" "õÎ" "õÏ" "õÐ" "õÑ" "õÒ" "õÓ" "õÔ" "õÕ" "õÖ" "õ×" "õØ" "õÙ" "õÚ" "õÛ" "õÜ" "õÝ" "õÞ" "õß" "õà" "õá" "õâ" "õã" "õä" "õå" "õæ" "õç" "õè" "õé" "õê" "õë" "õì" "õí" "õî" "õï" "õð" "õñ" "õò" "õó" "õô" "õõ" "õö" "õ÷" "õø" "õù" "õú" "õû" "õü" "õý" "õþ" 86| "ö¡" "ö¢" "ö£" "ö¤" "ö¥" "ö¦" "ö§" "ö¨" "ö©" "öª" "ö«" "ö¬" "ö­" "ö®" "ö¯" "ö°" "ö±" "ö²" "ö³" "ö´" "öµ" "ö¶" "ö·" "ö¸" "ö¹" "öº" "ö»" "ö¼" "ö½" "ö¾" "ö¿" "öÀ" "öÁ" "öÂ" "öÃ" "öÄ" "öÅ" "öÆ" "öÇ" "öÈ" "öÉ" "öÊ" "öË" "öÌ" "öÍ" "öÎ" "öÏ" "öÐ" "öÑ" "öÒ" "öÓ" "öÔ" "öÕ" "öÖ" "ö×" "öØ" "öÙ" "öÚ" "öÛ" "öÜ" "öÝ" "öÞ" "öß" "öà" "öá" "öâ" "öã" "öä" "öå" "öæ" "öç" "öè" "öé" "öê" "öë" "öì" "öí" "öî" "öï" "öð" "öñ" "öò" "öó" "öô" "öõ" "öö" "ö÷" "öø" "öù" "öú" "öû" "öü" "öý" "öþ" 87| "÷¡" "÷¢" "÷£" "÷¤" "÷¥" "÷¦" "÷§" "÷¨" "÷©" "÷ª" "÷«" "÷¬" "÷­" "÷®" "÷¯" "÷°" "÷±" "÷²" "÷³" "÷´" "÷µ" "÷¶" "÷·" "÷¸" "÷¹" "÷º" "÷»" "÷¼" "÷½" "÷¾" "÷¿" "÷À" "÷Á" "÷Â" "÷Ã" "÷Ä" "÷Å" "÷Æ" "÷Ç" "÷È" "÷É" "÷Ê" "÷Ë" "÷Ì" "÷Í" "÷Î" "÷Ï" "÷Ð" "÷Ñ" "÷Ò" "÷Ó" "÷Ô" "÷Õ" "÷Ö" "÷×" "÷Ø" "÷Ù" "÷Ú" "÷Û" "÷Ü" "÷Ý" "÷Þ" "÷ß" "÷à" "÷á" "÷â" "÷ã" "÷ä" "÷å" "÷æ" "÷ç" "÷è" "÷é" "÷ê" "÷ë" "÷ì" "÷í" "÷î" "÷ï" "÷ð" "÷ñ" "÷ò" "÷ó" "÷ô" "÷õ" "÷ö" "÷÷" "÷ø" "÷ù" "÷ú" "÷û" "÷ü" "÷ý" "÷þ" 88| "ø¡" "ø¢" "ø£" "ø¤" "ø¥" "ø¦" "ø§" "ø¨" "ø©" "øª" "ø«" "ø¬" "ø­" "ø®" "ø¯" "ø°" "ø±" "ø²" "ø³" "ø´" "øµ" "ø¶" "ø·" "ø¸" "ø¹" "øº" "ø»" "ø¼" "ø½" "ø¾" "ø¿" "øÀ" "øÁ" "øÂ" "øÃ" "øÄ" "øÅ" "øÆ" "øÇ" "øÈ" "øÉ" "øÊ" "øË" "øÌ" "øÍ" "øÎ" "øÏ" "øÐ" "øÑ" "øÒ" "øÓ" "øÔ" "øÕ" "øÖ" "ø×" "øØ" "øÙ" "øÚ" "øÛ" "øÜ" "øÝ" "øÞ" "øß" "øà" "øá" "øâ" "øã" "øä" "øå" "øæ" "øç" "øè" "øé" "øê" "øë" "øì" "øí" "øî" "øï" "øð" "øñ" "øò" "øó" "øô" "øõ" "øö" "ø÷" "øø" "øù" "øú" "øû" "øü" "øý" "øþ" 89| "ù¡" "ù¢" "ù£" "ù¤" "ù¥" "ù¦" "ù§" "ù¨" "ù©" "ùª" "ù«" "ù¬" "ù­" "ù®" "ù¯" "ù°" "ù±" "ù²" "ù³" "ù´" "ùµ" "ù¶" "ù·" "ù¸" "ù¹" "ùº" "ù»" "ù¼" "ù½" "ù¾" "ù¿" "ùÀ" "ùÁ" "ùÂ" "ùÃ" "ùÄ" "ùÅ" "ùÆ" "ùÇ" "ùÈ" "ùÉ" "ùÊ" "ùË" "ùÌ" "ùÍ" "ùÎ" "ùÏ" "ùÐ" "ùÑ" "ùÒ" "ùÓ" "ùÔ" "ùÕ" "ùÖ" "ù×" "ùØ" "ùÙ" "ùÚ" "ùÛ" "ùÜ" "ùÝ" "ùÞ" "ùß" "ùà" "ùá" "ùâ" "ùã" "ùä" "ùå" "ùæ" "ùç" "ùè" "ùé" "ùê" "ùë" "ùì" "ùí" "ùî" "ùï" "ùð" "ùñ" "ùò" "ùó" "ùô" "ùõ" "ùö" "ù÷" "ùø" "ùù" "ùú" "ùû" "ùü" "ùý" "ùþ" 90| "ú¡" "ú¢" "ú£" "ú¤" "ú¥" "ú¦" "ú§" "ú¨" "ú©" "úª" "ú«" "ú¬" "ú­" "ú®" "ú¯" "ú°" "ú±" "ú²" "ú³" "ú´" "úµ" "ú¶" "ú·" "ú¸" "ú¹" "úº" "ú»" "ú¼" "ú½" "ú¾" "ú¿" "úÀ" "úÁ" "úÂ" "úÃ" "úÄ" "úÅ" "úÆ" "úÇ" "úÈ" "úÉ" "úÊ" "úË" "úÌ" "úÍ" "úÎ" "úÏ" "úÐ" "úÑ" "úÒ" "úÓ" "úÔ" "úÕ" "úÖ" "ú×" "úØ" "úÙ" "úÚ" "úÛ" "úÜ" "úÝ" "úÞ" "úß" "úà" "úá" "úâ" "úã" "úä" "úå" "úæ" "úç" "úè" "úé" "úê" "úë" "úì" "úí" "úî" "úï" "úð" "úñ" "úò" "úó" "úô" "úõ" "úö" "ú÷" "úø" "úù" "úú" "úû" "úü" "úý" "úþ" 91| "û¡" "û¢" "û£" "û¤" "û¥" "û¦" "û§" "û¨" "û©" "ûª" "û«" "û¬" "û­" "û®" "û¯" "û°" "û±" "û²" "û³" "û´" "ûµ" "û¶" "û·" "û¸" "û¹" "ûº" "û»" "û¼" "û½" "û¾" "û¿" "ûÀ" "ûÁ" "ûÂ" "ûÃ" "ûÄ" "ûÅ" "ûÆ" "ûÇ" "ûÈ" "ûÉ" "ûÊ" "ûË" "ûÌ" "ûÍ" "ûÎ" "ûÏ" "ûÐ" "ûÑ" "ûÒ" "ûÓ" "ûÔ" "ûÕ" "ûÖ" "û×" "ûØ" "ûÙ" "ûÚ" "ûÛ" "ûÜ" "ûÝ" "ûÞ" "ûß" "ûà" "ûá" "ûâ" "ûã" "ûä" "ûå" "ûæ" "ûç" "ûè" "ûé" "ûê" "ûë" "ûì" "ûí" "ûî" "ûï" "ûð" "ûñ" "ûò" "ûó" "ûô" "ûõ" "ûö" "û÷" "ûø" "ûù" "ûú" "ûû" "ûü" "ûý" "ûþ" 92| "ü¡" "ü¢" "ü£" "ü¤" "ü¥" "ü¦" "ü§" "ü¨" "ü©" "üª" "ü«" "ü¬" "ü­" "ü®" "ü¯" "ü°" "ü±" "ü²" "ü³" "ü´" "üµ" "ü¶" "ü·" "ü¸" "ü¹" "üº" "ü»" "ü¼" "ü½" "ü¾" "ü¿" "üÀ" "üÁ" "üÂ" "üÃ" "üÄ" "üÅ" "üÆ" "üÇ" "üÈ" "üÉ" "üÊ" "üË" "üÌ" "üÍ" "üÎ" "üÏ" "üÐ" "üÑ" "üÒ" "üÓ" "üÔ" "üÕ" "üÖ" "ü×" "üØ" "üÙ" "üÚ" "üÛ" "üÜ" "üÝ" "üÞ" "üß" "üà" "üá" "üâ" "üã" "üä" "üå" "üæ" "üç" "üè" "üé" "üê" "üë" "üì" "üí" "üî" "üï" "üð" "üñ" "üò" "üó" "üô" "üõ" "üö" "ü÷" "üø" "üù" "üú" "üû" "üü" "üý" "üþ" 93| "ý¡" "ý¢" "ý£" "ý¤" "ý¥" "ý¦" "ý§" "ý¨" "ý©" "ýª" "ý«" "ý¬" "ý­" "ý®" "ý¯" "ý°" "ý±" "ý²" "ý³" "ý´" "ýµ" "ý¶" "ý·" "ý¸" "ý¹" "ýº" "ý»" "ý¼" "ý½" "ý¾" "ý¿" "ýÀ" "ýÁ" "ýÂ" "ýÃ" "ýÄ" "ýÅ" "ýÆ" "ýÇ" "ýÈ" "ýÉ" "ýÊ" "ýË" "ýÌ" "ýÍ" "ýÎ" "ýÏ" "ýÐ" "ýÑ" "ýÒ" "ýÓ" "ýÔ" "ýÕ" "ýÖ" "ý×" "ýØ" "ýÙ" "ýÚ" "ýÛ" "ýÜ" "ýÝ" "ýÞ" "ýß" "ýà" "ýá" "ýâ" "ýã" "ýä" "ýå" "ýæ" "ýç" "ýè" "ýé" "ýê" "ýë" "ýì" "ýí" "ýî" "ýï" "ýð" "ýñ" "ýò" "ýó" "ýô" "ýõ" "ýö" "ý÷" "ýø" "ýù" "ýú" "ýû" "ýü" "ýý" "ýþ" 94| "þ¡" "þ¢" "þ£" "þ¤" "þ¥" "þ¦" "þ§" "þ¨" "þ©" "þª" "þ«" "þ¬" "þ­" "þ®" "þ¯" "þ°" "þ±" "þ²" "þ³" "þ´" "þµ" "þ¶" "þ·" "þ¸" "þ¹" "þº" "þ»" "þ¼" "þ½" "þ¾" "þ¿" "þÀ" "þÁ" "þÂ" "þÃ" "þÄ" "þÅ" "þÆ" "þÇ" "þÈ" "þÉ" "þÊ" "þË" "þÌ" "þÍ" "þÎ" "þÏ" "þÐ" "þÑ" "þÒ" "þÓ" "þÔ" "þÕ" "þÖ" "þ×" "þØ" "þÙ" "þÚ" "þÛ" "þÜ" "þÝ" "þÞ" "þß" "þà" "þá" "þâ" "þã" "þä" "þå" "þæ" "þç" "þè" "þé" "þê" "þë" "þì" "þí" "þî" "þï" "þð" "þñ" "þò" "þó" "þô" "þõ" "þö" "þ÷" "þø" "þù" "þú" "þû" "þü" "þý" "þþ" egg-4.0.6+0.20041122cvs/doc/code-table/euc-kr.text0000644000764400003210000013073307234613644022327 0ustar ishikawaishikawa00000000000000;;; -*- coding: euc-kr -*- | 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 -+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 01| "¡¡" "¡¢" "¡£" "¡¤" "¡¥" "¡¦" "¡§" "¡¨" "¡©" "¡ª" "¡«" "¡¬" "¡­" "¡®" "¡¯" "¡°" "¡±" "¡²" "¡³" "¡´" "¡µ" "¡¶" "¡·" "¡¸" "¡¹" "¡º" "¡»" "¡¼" "¡½" "¡¾" "¡¿" "¡À" "¡Á" "¡Â" "¡Ã" "¡Ä" "¡Å" "¡Æ" "¡Ç" "¡È" "¡É" "¡Ê" "¡Ë" "¡Ì" "¡Í" "¡Î" "¡Ï" "¡Ð" "¡Ñ" "¡Ò" "¡Ó" "¡Ô" "¡Õ" "¡Ö" "¡×" "¡Ø" "¡Ù" "¡Ú" "¡Û" "¡Ü" "¡Ý" "¡Þ" "¡ß" "¡à" "¡á" "¡â" "¡ã" "¡ä" "¡å" "¡æ" "¡ç" "¡è" "¡é" "¡ê" "¡ë" "¡ì" "¡í" "¡î" "¡ï" "¡ð" "¡ñ" "¡ò" "¡ó" "¡ô" "¡õ" "¡ö" "¡÷" "¡ø" "¡ù" "¡ú" "¡û" "¡ü" "¡ý" "¡þ" 02| "¢¡" "¢¢" "¢£" "¢¤" "¢¥" "¢¦" "¢§" "¢¨" "¢©" "¢ª" "¢«" "¢¬" "¢­" "¢®" "¢¯" "¢°" "¢±" "¢²" "¢³" "¢´" "¢µ" "¢¶" "¢·" "¢¸" "¢¹" "¢º" "¢»" "¢¼" "¢½" "¢¾" "¢¿" "¢À" "¢Á" "¢Â" "¢Ã" "¢Ä" "¢Å" "¢Æ" "¢Ç" "¢È" "¢É" "¢Ê" "¢Ë" "¢Ì" "¢Í" "¢Î" "¢Ï" "¢Ð" "¢Ñ" "¢Ò" "¢Ó" "¢Ô" "¢Õ" "¢Ö" "¢×" "¢Ø" "¢Ù" "¢Ú" "¢Û" "¢Ü" "¢Ý" "¢Þ" "¢ß" "¢à" "¢á" "¢â" "¢ã" "¢ä" "¢å" "¢æ" "¢ç" "¢è" "¢é" "¢ê" "¢ë" "¢ì" "¢í" "¢î" "¢ï" "¢ð" "¢ñ" "¢ò" "¢ó" "¢ô" "¢õ" "¢ö" "¢÷" "¢ø" "¢ù" "¢ú" "¢û" "¢ü" "¢ý" "¢þ" 03| "£¡" "£¢" "££" "£¤" "£¥" "£¦" "£§" "£¨" "£©" "£ª" "£«" "£¬" "£­" "£®" "£¯" "£°" "£±" "£²" "£³" "£´" "£µ" "£¶" "£·" "£¸" "£¹" "£º" "£»" "£¼" "£½" "£¾" "£¿" "£À" "£Á" "£Â" "£Ã" "£Ä" "£Å" "£Æ" "£Ç" "£È" "£É" "£Ê" "£Ë" "£Ì" "£Í" "£Î" "£Ï" "£Ð" "£Ñ" "£Ò" "£Ó" "£Ô" "£Õ" "£Ö" "£×" "£Ø" "£Ù" "£Ú" "£Û" "£Ü" "£Ý" "£Þ" "£ß" "£à" "£á" "£â" "£ã" "£ä" "£å" "£æ" "£ç" "£è" "£é" "£ê" "£ë" "£ì" "£í" "£î" "£ï" "£ð" "£ñ" "£ò" "£ó" "£ô" "£õ" "£ö" "£÷" "£ø" "£ù" "£ú" "£û" "£ü" "£ý" "£þ" 04| "¤¡" "¤¢" "¤£" "¤¤" "¤¥" "¤¦" "¤§" "¤¨" "¤©" "¤ª" "¤«" "¤¬" "¤­" "¤®" "¤¯" "¤°" "¤±" "¤²" "¤³" "¤´" "¤µ" "¤¶" "¤·" "¤¸" "¤¹" "¤º" "¤»" "¤¼" "¤½" "¤¾" "¤¿" "¤À" "¤Á" "¤Â" "¤Ã" "¤Ä" "¤Å" "¤Æ" "¤Ç" "¤È" "¤É" "¤Ê" "¤Ë" "¤Ì" "¤Í" "¤Î" "¤Ï" "¤Ð" "¤Ñ" "¤Ò" "¤Ó" "¤Ô" "¤Õ" "¤Ö" "¤×" "¤Ø" "¤Ù" "¤Ú" "¤Û" "¤Ü" "¤Ý" "¤Þ" "¤ß" "¤à" "¤á" "¤â" "¤ã" "¤ä" "¤å" "¤æ" "¤ç" "¤è" "¤é" "¤ê" "¤ë" "¤ì" "¤í" "¤î" "¤ï" "¤ð" "¤ñ" "¤ò" "¤ó" "¤ô" "¤õ" "¤ö" "¤÷" "¤ø" "¤ù" "¤ú" "¤û" "¤ü" "¤ý" "¤þ" 05| "¥¡" "¥¢" "¥£" "¥¤" "¥¥" "¥¦" "¥§" "¥¨" "¥©" "¥ª" "¥«" "¥¬" "¥­" "¥®" "¥¯" "¥°" "¥±" "¥²" "¥³" "¥´" "¥µ" "¥¶" "¥·" "¥¸" "¥¹" "¥º" "¥»" "¥¼" "¥½" "¥¾" "¥¿" "¥À" "¥Á" "¥Â" "¥Ã" "¥Ä" "¥Å" "¥Æ" "¥Ç" "¥È" "¥É" "¥Ê" "¥Ë" "¥Ì" "¥Í" "¥Î" "¥Ï" "¥Ð" "¥Ñ" "¥Ò" "¥Ó" "¥Ô" "¥Õ" "¥Ö" "¥×" "¥Ø" "¥Ù" "¥Ú" "¥Û" "¥Ü" "¥Ý" "¥Þ" "¥ß" "¥à" "¥á" "¥â" "¥ã" "¥ä" "¥å" "¥æ" "¥ç" "¥è" "¥é" "¥ê" "¥ë" "¥ì" "¥í" "¥î" "¥ï" "¥ð" "¥ñ" "¥ò" "¥ó" "¥ô" "¥õ" "¥ö" "¥÷" "¥ø" "¥ù" "¥ú" "¥û" "¥ü" "¥ý" "¥þ" 06| "¦¡" "¦¢" "¦£" "¦¤" "¦¥" "¦¦" "¦§" "¦¨" "¦©" "¦ª" "¦«" "¦¬" "¦­" "¦®" "¦¯" "¦°" "¦±" "¦²" "¦³" "¦´" "¦µ" "¦¶" "¦·" "¦¸" "¦¹" "¦º" "¦»" "¦¼" "¦½" "¦¾" "¦¿" "¦À" "¦Á" "¦Â" "¦Ã" "¦Ä" "¦Å" "¦Æ" "¦Ç" "¦È" "¦É" "¦Ê" "¦Ë" "¦Ì" "¦Í" "¦Î" "¦Ï" "¦Ð" "¦Ñ" "¦Ò" "¦Ó" "¦Ô" "¦Õ" "¦Ö" "¦×" "¦Ø" "¦Ù" "¦Ú" "¦Û" "¦Ü" "¦Ý" "¦Þ" "¦ß" "¦à" "¦á" "¦â" "¦ã" "¦ä" "¦å" "¦æ" "¦ç" "¦è" "¦é" "¦ê" "¦ë" "¦ì" "¦í" "¦î" "¦ï" "¦ð" "¦ñ" "¦ò" "¦ó" "¦ô" "¦õ" "¦ö" "¦÷" "¦ø" "¦ù" "¦ú" "¦û" "¦ü" "¦ý" "¦þ" 07| "§¡" "§¢" "§£" "§¤" "§¥" "§¦" "§§" "§¨" "§©" "§ª" "§«" "§¬" "§­" "§®" "§¯" "§°" "§±" "§²" "§³" "§´" "§µ" "§¶" "§·" "§¸" "§¹" "§º" "§»" "§¼" "§½" "§¾" "§¿" "§À" "§Á" "§Â" "§Ã" "§Ä" "§Å" "§Æ" "§Ç" "§È" "§É" "§Ê" "§Ë" "§Ì" "§Í" "§Î" "§Ï" "§Ð" "§Ñ" "§Ò" "§Ó" "§Ô" "§Õ" "§Ö" "§×" "§Ø" "§Ù" "§Ú" "§Û" "§Ü" "§Ý" "§Þ" "§ß" "§à" "§á" "§â" "§ã" "§ä" "§å" "§æ" "§ç" "§è" "§é" "§ê" "§ë" "§ì" "§í" "§î" "§ï" "§ð" "§ñ" "§ò" "§ó" "§ô" "§õ" "§ö" "§÷" "§ø" "§ù" "§ú" "§û" "§ü" "§ý" "§þ" 08| "¨¡" "¨¢" "¨£" "¨¤" "¨¥" "¨¦" "¨§" "¨¨" "¨©" "¨ª" "¨«" "¨¬" "¨­" "¨®" "¨¯" "¨°" "¨±" "¨²" "¨³" "¨´" "¨µ" "¨¶" "¨·" "¨¸" "¨¹" "¨º" "¨»" "¨¼" "¨½" "¨¾" "¨¿" "¨À" "¨Á" "¨Â" "¨Ã" "¨Ä" "¨Å" "¨Æ" "¨Ç" "¨È" "¨É" "¨Ê" "¨Ë" "¨Ì" "¨Í" "¨Î" "¨Ï" "¨Ð" "¨Ñ" "¨Ò" "¨Ó" "¨Ô" "¨Õ" "¨Ö" "¨×" "¨Ø" "¨Ù" "¨Ú" "¨Û" "¨Ü" "¨Ý" "¨Þ" "¨ß" "¨à" "¨á" "¨â" "¨ã" "¨ä" "¨å" "¨æ" "¨ç" "¨è" "¨é" "¨ê" "¨ë" "¨ì" "¨í" "¨î" "¨ï" "¨ð" "¨ñ" "¨ò" "¨ó" "¨ô" "¨õ" "¨ö" "¨÷" "¨ø" "¨ù" "¨ú" "¨û" "¨ü" "¨ý" "¨þ" 09| "©¡" "©¢" "©£" "©¤" "©¥" "©¦" "©§" "©¨" "©©" "©ª" "©«" "©¬" "©­" "©®" "©¯" "©°" "©±" "©²" "©³" "©´" "©µ" "©¶" "©·" "©¸" "©¹" "©º" "©»" "©¼" "©½" "©¾" "©¿" "©À" "©Á" "©Â" "©Ã" "©Ä" "©Å" "©Æ" "©Ç" "©È" "©É" "©Ê" "©Ë" "©Ì" "©Í" "©Î" "©Ï" "©Ð" "©Ñ" "©Ò" "©Ó" "©Ô" "©Õ" "©Ö" "©×" "©Ø" "©Ù" "©Ú" "©Û" "©Ü" "©Ý" "©Þ" "©ß" "©à" "©á" "©â" "©ã" "©ä" "©å" "©æ" "©ç" "©è" "©é" "©ê" "©ë" "©ì" "©í" "©î" "©ï" "©ð" "©ñ" "©ò" "©ó" "©ô" "©õ" "©ö" "©÷" "©ø" "©ù" "©ú" "©û" "©ü" "©ý" "©þ" 10| "ª¡" "ª¢" "ª£" "ª¤" "ª¥" "ª¦" "ª§" "ª¨" "ª©" "ªª" "ª«" "ª¬" "ª­" "ª®" "ª¯" "ª°" "ª±" "ª²" "ª³" "ª´" "ªµ" "ª¶" "ª·" "ª¸" "ª¹" "ªº" "ª»" "ª¼" "ª½" "ª¾" "ª¿" "ªÀ" "ªÁ" "ªÂ" "ªÃ" "ªÄ" "ªÅ" "ªÆ" "ªÇ" "ªÈ" "ªÉ" "ªÊ" "ªË" "ªÌ" "ªÍ" "ªÎ" "ªÏ" "ªÐ" "ªÑ" "ªÒ" "ªÓ" "ªÔ" "ªÕ" "ªÖ" "ª×" "ªØ" "ªÙ" "ªÚ" "ªÛ" "ªÜ" "ªÝ" "ªÞ" "ªß" "ªà" "ªá" "ªâ" "ªã" "ªä" "ªå" "ªæ" "ªç" "ªè" "ªé" "ªê" "ªë" "ªì" "ªí" "ªî" "ªï" "ªð" "ªñ" "ªò" "ªó" "ªô" "ªõ" "ªö" "ª÷" "ªø" "ªù" "ªú" "ªû" "ªü" "ªý" "ªþ" 11| "«¡" "«¢" "«£" "«¤" "«¥" "«¦" "«§" "«¨" "«©" "«ª" "««" "«¬" "«­" "«®" "«¯" "«°" "«±" "«²" "«³" "«´" "«µ" "«¶" "«·" "«¸" "«¹" "«º" "«»" "«¼" "«½" "«¾" "«¿" "«À" "«Á" "«Â" "«Ã" "«Ä" "«Å" "«Æ" "«Ç" "«È" "«É" "«Ê" "«Ë" "«Ì" "«Í" "«Î" "«Ï" "«Ð" "«Ñ" "«Ò" "«Ó" "«Ô" "«Õ" "«Ö" "«×" "«Ø" "«Ù" "«Ú" "«Û" "«Ü" "«Ý" "«Þ" "«ß" "«à" "«á" "«â" "«ã" "«ä" "«å" "«æ" "«ç" "«è" "«é" "«ê" "«ë" "«ì" "«í" "«î" "«ï" "«ð" "«ñ" "«ò" "«ó" "«ô" "«õ" "«ö" "«÷" "«ø" "«ù" "«ú" "«û" "«ü" "«ý" "«þ" 12| "¬¡" "¬¢" "¬£" "¬¤" "¬¥" "¬¦" "¬§" "¬¨" "¬©" "¬ª" "¬«" "¬¬" "¬­" "¬®" "¬¯" "¬°" "¬±" "¬²" "¬³" "¬´" "¬µ" "¬¶" "¬·" "¬¸" "¬¹" "¬º" "¬»" "¬¼" "¬½" "¬¾" "¬¿" "¬À" "¬Á" "¬Â" "¬Ã" "¬Ä" "¬Å" "¬Æ" "¬Ç" "¬È" "¬É" "¬Ê" "¬Ë" "¬Ì" "¬Í" "¬Î" "¬Ï" "¬Ð" "¬Ñ" "¬Ò" "¬Ó" "¬Ô" "¬Õ" "¬Ö" "¬×" "¬Ø" "¬Ù" "¬Ú" "¬Û" "¬Ü" "¬Ý" "¬Þ" "¬ß" "¬à" "¬á" "¬â" "¬ã" "¬ä" "¬å" "¬æ" "¬ç" "¬è" "¬é" "¬ê" "¬ë" "¬ì" "¬í" "¬î" "¬ï" "¬ð" "¬ñ" "¬ò" "¬ó" "¬ô" "¬õ" "¬ö" "¬÷" "¬ø" "¬ù" "¬ú" "¬û" "¬ü" "¬ý" "¬þ" 13| "­¡" "­¢" "­£" "­¤" "­¥" "­¦" "­§" "­¨" "­©" "­ª" "­«" "­¬" "­­" "­®" "­¯" "­°" "­±" "­²" "­³" "­´" "­µ" "­¶" "­·" "­¸" "­¹" "­º" "­»" "­¼" "­½" "­¾" "­¿" "­À" "­Á" "­Â" "­Ã" "­Ä" "­Å" "­Æ" "­Ç" "­È" "­É" "­Ê" "­Ë" "­Ì" "­Í" "­Î" "­Ï" "­Ð" "­Ñ" "­Ò" "­Ó" "­Ô" "­Õ" "­Ö" "­×" "­Ø" "­Ù" "­Ú" "­Û" "­Ü" "­Ý" "­Þ" "­ß" "­à" "­á" "­â" "­ã" "­ä" "­å" "­æ" "­ç" "­è" "­é" "­ê" "­ë" "­ì" "­í" "­î" "­ï" "­ð" "­ñ" "­ò" "­ó" "­ô" "­õ" "­ö" "­÷" "­ø" "­ù" "­ú" "­û" "­ü" "­ý" "­þ" 14| "®¡" "®¢" "®£" "®¤" "®¥" "®¦" "®§" "®¨" "®©" "®ª" "®«" "®¬" "®­" "®®" "®¯" "®°" "®±" "®²" "®³" "®´" "®µ" "®¶" "®·" "®¸" "®¹" "®º" "®»" "®¼" "®½" "®¾" "®¿" "®À" "®Á" "®Â" "®Ã" "®Ä" "®Å" "®Æ" "®Ç" "®È" "®É" "®Ê" "®Ë" "®Ì" "®Í" "®Î" "®Ï" "®Ð" "®Ñ" "®Ò" "®Ó" "®Ô" "®Õ" "®Ö" "®×" "®Ø" "®Ù" "®Ú" "®Û" "®Ü" "®Ý" "®Þ" "®ß" "®à" "®á" "®â" "®ã" "®ä" "®å" "®æ" "®ç" "®è" "®é" "®ê" "®ë" "®ì" "®í" "®î" "®ï" "®ð" "®ñ" "®ò" "®ó" "®ô" "®õ" "®ö" "®÷" "®ø" "®ù" "®ú" "®û" "®ü" "®ý" "®þ" 15| "¯¡" "¯¢" "¯£" "¯¤" "¯¥" "¯¦" "¯§" "¯¨" "¯©" "¯ª" "¯«" "¯¬" "¯­" "¯®" "¯¯" "¯°" "¯±" "¯²" "¯³" "¯´" "¯µ" "¯¶" "¯·" "¯¸" "¯¹" "¯º" "¯»" "¯¼" "¯½" "¯¾" "¯¿" "¯À" "¯Á" "¯Â" "¯Ã" "¯Ä" "¯Å" "¯Æ" "¯Ç" "¯È" "¯É" "¯Ê" "¯Ë" "¯Ì" "¯Í" "¯Î" "¯Ï" "¯Ð" "¯Ñ" "¯Ò" "¯Ó" "¯Ô" "¯Õ" "¯Ö" "¯×" "¯Ø" "¯Ù" "¯Ú" "¯Û" "¯Ü" "¯Ý" "¯Þ" "¯ß" "¯à" "¯á" "¯â" "¯ã" "¯ä" "¯å" "¯æ" "¯ç" "¯è" "¯é" "¯ê" "¯ë" "¯ì" "¯í" "¯î" "¯ï" "¯ð" "¯ñ" "¯ò" "¯ó" "¯ô" "¯õ" "¯ö" "¯÷" "¯ø" "¯ù" "¯ú" "¯û" "¯ü" "¯ý" "¯þ" 16| "°¡" "°¢" "°£" "°¤" "°¥" "°¦" "°§" "°¨" "°©" "°ª" "°«" "°¬" "°­" "°®" "°¯" "°°" "°±" "°²" "°³" "°´" "°µ" "°¶" "°·" "°¸" "°¹" "°º" "°»" "°¼" "°½" "°¾" "°¿" "°À" "°Á" "°Â" "°Ã" "°Ä" "°Å" "°Æ" "°Ç" "°È" "°É" "°Ê" "°Ë" "°Ì" "°Í" "°Î" "°Ï" "°Ð" "°Ñ" "°Ò" "°Ó" "°Ô" "°Õ" "°Ö" "°×" "°Ø" "°Ù" "°Ú" "°Û" "°Ü" "°Ý" "°Þ" "°ß" "°à" "°á" "°â" "°ã" "°ä" "°å" "°æ" "°ç" "°è" "°é" "°ê" "°ë" "°ì" "°í" "°î" "°ï" "°ð" "°ñ" "°ò" "°ó" "°ô" "°õ" "°ö" "°÷" "°ø" "°ù" "°ú" "°û" "°ü" "°ý" "°þ" 17| "±¡" "±¢" "±£" "±¤" "±¥" "±¦" "±§" "±¨" "±©" "±ª" "±«" "±¬" "±­" "±®" "±¯" "±°" "±±" "±²" "±³" "±´" "±µ" "±¶" "±·" "±¸" "±¹" "±º" "±»" "±¼" "±½" "±¾" "±¿" "±À" "±Á" "±Â" "±Ã" "±Ä" "±Å" "±Æ" "±Ç" "±È" "±É" "±Ê" "±Ë" "±Ì" "±Í" "±Î" "±Ï" "±Ð" "±Ñ" "±Ò" "±Ó" "±Ô" "±Õ" "±Ö" "±×" "±Ø" "±Ù" "±Ú" "±Û" "±Ü" "±Ý" "±Þ" "±ß" "±à" "±á" "±â" "±ã" "±ä" "±å" "±æ" "±ç" "±è" "±é" "±ê" "±ë" "±ì" "±í" "±î" "±ï" "±ð" "±ñ" "±ò" "±ó" "±ô" "±õ" "±ö" "±÷" "±ø" "±ù" "±ú" "±û" "±ü" "±ý" "±þ" 18| "²¡" "²¢" "²£" "²¤" "²¥" "²¦" "²§" "²¨" "²©" "²ª" "²«" "²¬" "²­" "²®" "²¯" "²°" "²±" "²²" "²³" "²´" "²µ" "²¶" "²·" "²¸" "²¹" "²º" "²»" "²¼" "²½" "²¾" "²¿" "²À" "²Á" "²Â" "²Ã" "²Ä" "²Å" "²Æ" "²Ç" "²È" "²É" "²Ê" "²Ë" "²Ì" "²Í" "²Î" "²Ï" "²Ð" "²Ñ" "²Ò" "²Ó" "²Ô" "²Õ" "²Ö" "²×" "²Ø" "²Ù" "²Ú" "²Û" "²Ü" "²Ý" "²Þ" "²ß" "²à" "²á" "²â" "²ã" "²ä" "²å" "²æ" "²ç" "²è" "²é" "²ê" "²ë" "²ì" "²í" "²î" "²ï" "²ð" "²ñ" "²ò" "²ó" "²ô" "²õ" "²ö" "²÷" "²ø" "²ù" "²ú" "²û" "²ü" "²ý" "²þ" 19| "³¡" "³¢" "³£" "³¤" "³¥" "³¦" "³§" "³¨" "³©" "³ª" "³«" "³¬" "³­" "³®" "³¯" "³°" "³±" "³²" "³³" "³´" "³µ" "³¶" "³·" "³¸" "³¹" "³º" "³»" "³¼" "³½" "³¾" "³¿" "³À" "³Á" "³Â" "³Ã" "³Ä" "³Å" "³Æ" "³Ç" "³È" "³É" "³Ê" "³Ë" "³Ì" "³Í" "³Î" "³Ï" "³Ð" "³Ñ" "³Ò" "³Ó" "³Ô" "³Õ" "³Ö" "³×" "³Ø" "³Ù" "³Ú" "³Û" "³Ü" "³Ý" "³Þ" "³ß" "³à" "³á" "³â" "³ã" "³ä" "³å" "³æ" "³ç" "³è" "³é" "³ê" "³ë" "³ì" "³í" "³î" "³ï" "³ð" "³ñ" "³ò" "³ó" "³ô" "³õ" "³ö" "³÷" "³ø" "³ù" "³ú" "³û" "³ü" "³ý" "³þ" 20| "´¡" "´¢" "´£" "´¤" "´¥" "´¦" "´§" "´¨" "´©" "´ª" "´«" "´¬" "´­" "´®" "´¯" "´°" "´±" "´²" "´³" "´´" "´µ" "´¶" "´·" "´¸" "´¹" "´º" "´»" "´¼" "´½" "´¾" "´¿" "´À" "´Á" "´Â" "´Ã" "´Ä" "´Å" "´Æ" "´Ç" "´È" "´É" "´Ê" "´Ë" "´Ì" "´Í" "´Î" "´Ï" "´Ð" "´Ñ" "´Ò" "´Ó" "´Ô" "´Õ" "´Ö" "´×" "´Ø" "´Ù" "´Ú" "´Û" "´Ü" "´Ý" "´Þ" "´ß" "´à" "´á" "´â" "´ã" "´ä" "´å" "´æ" "´ç" "´è" "´é" "´ê" "´ë" "´ì" "´í" "´î" "´ï" "´ð" "´ñ" "´ò" "´ó" "´ô" "´õ" "´ö" "´÷" "´ø" "´ù" "´ú" "´û" "´ü" "´ý" "´þ" 21| "µ¡" "µ¢" "µ£" "µ¤" "µ¥" "µ¦" "µ§" "µ¨" "µ©" "µª" "µ«" "µ¬" "µ­" "µ®" "µ¯" "µ°" "µ±" "µ²" "µ³" "µ´" "µµ" "µ¶" "µ·" "µ¸" "µ¹" "µº" "µ»" "µ¼" "µ½" "µ¾" "µ¿" "µÀ" "µÁ" "µÂ" "µÃ" "µÄ" "µÅ" "µÆ" "µÇ" "µÈ" "µÉ" "µÊ" "µË" "µÌ" "µÍ" "µÎ" "µÏ" "µÐ" "µÑ" "µÒ" "µÓ" "µÔ" "µÕ" "µÖ" "µ×" "µØ" "µÙ" "µÚ" "µÛ" "µÜ" "µÝ" "µÞ" "µß" "µà" "µá" "µâ" "µã" "µä" "µå" "µæ" "µç" "µè" "µé" "µê" "µë" "µì" "µí" "µî" "µï" "µð" "µñ" "µò" "µó" "µô" "µõ" "µö" "µ÷" "µø" "µù" "µú" "µû" "µü" "µý" "µþ" 22| "¶¡" "¶¢" "¶£" "¶¤" "¶¥" "¶¦" "¶§" "¶¨" "¶©" "¶ª" "¶«" "¶¬" "¶­" "¶®" "¶¯" "¶°" "¶±" "¶²" "¶³" "¶´" "¶µ" "¶¶" "¶·" "¶¸" "¶¹" "¶º" "¶»" "¶¼" "¶½" "¶¾" "¶¿" "¶À" "¶Á" "¶Â" "¶Ã" "¶Ä" "¶Å" "¶Æ" "¶Ç" "¶È" "¶É" "¶Ê" "¶Ë" "¶Ì" "¶Í" "¶Î" "¶Ï" "¶Ð" "¶Ñ" "¶Ò" "¶Ó" "¶Ô" "¶Õ" "¶Ö" "¶×" "¶Ø" "¶Ù" "¶Ú" "¶Û" "¶Ü" "¶Ý" "¶Þ" "¶ß" "¶à" "¶á" "¶â" "¶ã" "¶ä" "¶å" "¶æ" "¶ç" "¶è" "¶é" "¶ê" "¶ë" "¶ì" "¶í" "¶î" "¶ï" "¶ð" "¶ñ" "¶ò" "¶ó" "¶ô" "¶õ" "¶ö" "¶÷" "¶ø" "¶ù" "¶ú" "¶û" "¶ü" "¶ý" "¶þ" 23| "·¡" "·¢" "·£" "·¤" "·¥" "·¦" "·§" "·¨" "·©" "·ª" "·«" "·¬" "·­" "·®" "·¯" "·°" "·±" "·²" "·³" "·´" "·µ" "·¶" "··" "·¸" "·¹" "·º" "·»" "·¼" "·½" "·¾" "·¿" "·À" "·Á" "·Â" "·Ã" "·Ä" "·Å" "·Æ" "·Ç" "·È" "·É" "·Ê" "·Ë" "·Ì" "·Í" "·Î" "·Ï" "·Ð" "·Ñ" "·Ò" "·Ó" "·Ô" "·Õ" "·Ö" "·×" "·Ø" "·Ù" "·Ú" "·Û" "·Ü" "·Ý" "·Þ" "·ß" "·à" "·á" "·â" "·ã" "·ä" "·å" "·æ" "·ç" "·è" "·é" "·ê" "·ë" "·ì" "·í" "·î" "·ï" "·ð" "·ñ" "·ò" "·ó" "·ô" "·õ" "·ö" "·÷" "·ø" "·ù" "·ú" "·û" "·ü" "·ý" "·þ" 24| "¸¡" "¸¢" "¸£" "¸¤" "¸¥" "¸¦" "¸§" "¸¨" "¸©" "¸ª" "¸«" "¸¬" "¸­" "¸®" "¸¯" "¸°" "¸±" "¸²" "¸³" "¸´" "¸µ" "¸¶" "¸·" "¸¸" "¸¹" "¸º" "¸»" "¸¼" "¸½" "¸¾" "¸¿" "¸À" "¸Á" "¸Â" "¸Ã" "¸Ä" "¸Å" "¸Æ" "¸Ç" "¸È" "¸É" "¸Ê" "¸Ë" "¸Ì" "¸Í" "¸Î" "¸Ï" "¸Ð" "¸Ñ" "¸Ò" "¸Ó" "¸Ô" "¸Õ" "¸Ö" "¸×" "¸Ø" "¸Ù" "¸Ú" "¸Û" "¸Ü" "¸Ý" "¸Þ" "¸ß" "¸à" "¸á" "¸â" "¸ã" "¸ä" "¸å" "¸æ" "¸ç" "¸è" "¸é" "¸ê" "¸ë" "¸ì" "¸í" "¸î" "¸ï" "¸ð" "¸ñ" "¸ò" "¸ó" "¸ô" "¸õ" "¸ö" "¸÷" "¸ø" "¸ù" "¸ú" "¸û" "¸ü" "¸ý" "¸þ" 25| "¹¡" "¹¢" "¹£" "¹¤" "¹¥" "¹¦" "¹§" "¹¨" "¹©" "¹ª" "¹«" "¹¬" "¹­" "¹®" "¹¯" "¹°" "¹±" "¹²" "¹³" "¹´" "¹µ" "¹¶" "¹·" "¹¸" "¹¹" "¹º" "¹»" "¹¼" "¹½" "¹¾" "¹¿" "¹À" "¹Á" "¹Â" "¹Ã" "¹Ä" "¹Å" "¹Æ" "¹Ç" "¹È" "¹É" "¹Ê" "¹Ë" "¹Ì" "¹Í" "¹Î" "¹Ï" "¹Ð" "¹Ñ" "¹Ò" "¹Ó" "¹Ô" "¹Õ" "¹Ö" "¹×" "¹Ø" "¹Ù" "¹Ú" "¹Û" "¹Ü" "¹Ý" "¹Þ" "¹ß" "¹à" "¹á" "¹â" "¹ã" "¹ä" "¹å" "¹æ" "¹ç" "¹è" "¹é" "¹ê" "¹ë" "¹ì" "¹í" "¹î" "¹ï" "¹ð" "¹ñ" "¹ò" "¹ó" "¹ô" "¹õ" "¹ö" "¹÷" "¹ø" "¹ù" "¹ú" "¹û" "¹ü" "¹ý" "¹þ" 26| "º¡" "º¢" "º£" "º¤" "º¥" "º¦" "º§" "º¨" "º©" "ºª" "º«" "º¬" "º­" "º®" "º¯" "º°" "º±" "º²" "º³" "º´" "ºµ" "º¶" "º·" "º¸" "º¹" "ºº" "º»" "º¼" "º½" "º¾" "º¿" "ºÀ" "ºÁ" "ºÂ" "ºÃ" "ºÄ" "ºÅ" "ºÆ" "ºÇ" "ºÈ" "ºÉ" "ºÊ" "ºË" "ºÌ" "ºÍ" "ºÎ" "ºÏ" "ºÐ" "ºÑ" "ºÒ" "ºÓ" "ºÔ" "ºÕ" "ºÖ" "º×" "ºØ" "ºÙ" "ºÚ" "ºÛ" "ºÜ" "ºÝ" "ºÞ" "ºß" "ºà" "ºá" "ºâ" "ºã" "ºä" "ºå" "ºæ" "ºç" "ºè" "ºé" "ºê" "ºë" "ºì" "ºí" "ºî" "ºï" "ºð" "ºñ" "ºò" "ºó" "ºô" "ºõ" "ºö" "º÷" "ºø" "ºù" "ºú" "ºû" "ºü" "ºý" "ºþ" 27| "»¡" "»¢" "»£" "»¤" "»¥" "»¦" "»§" "»¨" "»©" "»ª" "»«" "»¬" "»­" "»®" "»¯" "»°" "»±" "»²" "»³" "»´" "»µ" "»¶" "»·" "»¸" "»¹" "»º" "»»" "»¼" "»½" "»¾" "»¿" "»À" "»Á" "»Â" "»Ã" "»Ä" "»Å" "»Æ" "»Ç" "»È" "»É" "»Ê" "»Ë" "»Ì" "»Í" "»Î" "»Ï" "»Ð" "»Ñ" "»Ò" "»Ó" "»Ô" "»Õ" "»Ö" "»×" "»Ø" "»Ù" "»Ú" "»Û" "»Ü" "»Ý" "»Þ" "»ß" "»à" "»á" "»â" "»ã" "»ä" "»å" "»æ" "»ç" "»è" "»é" "»ê" "»ë" "»ì" "»í" "»î" "»ï" "»ð" "»ñ" "»ò" "»ó" "»ô" "»õ" "»ö" "»÷" "»ø" "»ù" "»ú" "»û" "»ü" "»ý" "»þ" 28| "¼¡" "¼¢" "¼£" "¼¤" "¼¥" "¼¦" "¼§" "¼¨" "¼©" "¼ª" "¼«" "¼¬" "¼­" "¼®" "¼¯" "¼°" "¼±" "¼²" "¼³" "¼´" "¼µ" "¼¶" "¼·" "¼¸" "¼¹" "¼º" "¼»" "¼¼" "¼½" "¼¾" "¼¿" "¼À" "¼Á" "¼Â" "¼Ã" "¼Ä" "¼Å" "¼Æ" "¼Ç" "¼È" "¼É" "¼Ê" "¼Ë" "¼Ì" "¼Í" "¼Î" "¼Ï" "¼Ð" "¼Ñ" "¼Ò" "¼Ó" "¼Ô" "¼Õ" "¼Ö" "¼×" "¼Ø" "¼Ù" "¼Ú" "¼Û" "¼Ü" "¼Ý" "¼Þ" "¼ß" "¼à" "¼á" "¼â" "¼ã" "¼ä" "¼å" "¼æ" "¼ç" "¼è" "¼é" "¼ê" "¼ë" "¼ì" "¼í" "¼î" "¼ï" "¼ð" "¼ñ" "¼ò" "¼ó" "¼ô" "¼õ" "¼ö" "¼÷" "¼ø" "¼ù" "¼ú" "¼û" "¼ü" "¼ý" "¼þ" 29| "½¡" "½¢" "½£" "½¤" "½¥" "½¦" "½§" "½¨" "½©" "½ª" "½«" "½¬" "½­" "½®" "½¯" "½°" "½±" "½²" "½³" "½´" "½µ" "½¶" "½·" "½¸" "½¹" "½º" "½»" "½¼" "½½" "½¾" "½¿" "½À" "½Á" "½Â" "½Ã" "½Ä" "½Å" "½Æ" "½Ç" "½È" "½É" "½Ê" "½Ë" "½Ì" "½Í" "½Î" "½Ï" "½Ð" "½Ñ" "½Ò" "½Ó" "½Ô" "½Õ" "½Ö" "½×" "½Ø" "½Ù" "½Ú" "½Û" "½Ü" "½Ý" "½Þ" "½ß" "½à" "½á" "½â" "½ã" "½ä" "½å" "½æ" "½ç" "½è" "½é" "½ê" "½ë" "½ì" "½í" "½î" "½ï" "½ð" "½ñ" "½ò" "½ó" "½ô" "½õ" "½ö" "½÷" "½ø" "½ù" "½ú" "½û" "½ü" "½ý" "½þ" 30| "¾¡" "¾¢" "¾£" "¾¤" "¾¥" "¾¦" "¾§" "¾¨" "¾©" "¾ª" "¾«" "¾¬" "¾­" "¾®" "¾¯" "¾°" "¾±" "¾²" "¾³" "¾´" "¾µ" "¾¶" "¾·" "¾¸" "¾¹" "¾º" "¾»" "¾¼" "¾½" "¾¾" "¾¿" "¾À" "¾Á" "¾Â" "¾Ã" "¾Ä" "¾Å" "¾Æ" "¾Ç" "¾È" "¾É" "¾Ê" "¾Ë" "¾Ì" "¾Í" "¾Î" "¾Ï" "¾Ð" "¾Ñ" "¾Ò" "¾Ó" "¾Ô" "¾Õ" "¾Ö" "¾×" "¾Ø" "¾Ù" "¾Ú" "¾Û" "¾Ü" "¾Ý" "¾Þ" "¾ß" "¾à" "¾á" "¾â" "¾ã" "¾ä" "¾å" "¾æ" "¾ç" "¾è" "¾é" "¾ê" "¾ë" "¾ì" "¾í" "¾î" "¾ï" "¾ð" "¾ñ" "¾ò" "¾ó" "¾ô" "¾õ" "¾ö" "¾÷" "¾ø" "¾ù" "¾ú" "¾û" "¾ü" "¾ý" "¾þ" 31| "¿¡" "¿¢" "¿£" "¿¤" "¿¥" "¿¦" "¿§" "¿¨" "¿©" "¿ª" "¿«" "¿¬" "¿­" "¿®" "¿¯" "¿°" "¿±" "¿²" "¿³" "¿´" "¿µ" "¿¶" "¿·" "¿¸" "¿¹" "¿º" "¿»" "¿¼" "¿½" "¿¾" "¿¿" "¿À" "¿Á" "¿Â" "¿Ã" "¿Ä" "¿Å" "¿Æ" "¿Ç" "¿È" "¿É" "¿Ê" "¿Ë" "¿Ì" "¿Í" "¿Î" "¿Ï" "¿Ð" "¿Ñ" "¿Ò" "¿Ó" "¿Ô" "¿Õ" "¿Ö" "¿×" "¿Ø" "¿Ù" "¿Ú" "¿Û" "¿Ü" "¿Ý" "¿Þ" "¿ß" "¿à" "¿á" "¿â" "¿ã" "¿ä" "¿å" "¿æ" "¿ç" "¿è" "¿é" "¿ê" "¿ë" "¿ì" "¿í" "¿î" "¿ï" "¿ð" "¿ñ" "¿ò" "¿ó" "¿ô" "¿õ" "¿ö" "¿÷" "¿ø" "¿ù" "¿ú" "¿û" "¿ü" "¿ý" "¿þ" 32| "À¡" "À¢" "À£" "À¤" "À¥" "À¦" "À§" "À¨" "À©" "Àª" "À«" "À¬" "À­" "À®" "À¯" "À°" "À±" "À²" "À³" "À´" "Àµ" "À¶" "À·" "À¸" "À¹" "Àº" "À»" "À¼" "À½" "À¾" "À¿" "ÀÀ" "ÀÁ" "ÀÂ" "ÀÃ" "ÀÄ" "ÀÅ" "ÀÆ" "ÀÇ" "ÀÈ" "ÀÉ" "ÀÊ" "ÀË" "ÀÌ" "ÀÍ" "ÀÎ" "ÀÏ" "ÀÐ" "ÀÑ" "ÀÒ" "ÀÓ" "ÀÔ" "ÀÕ" "ÀÖ" "À×" "ÀØ" "ÀÙ" "ÀÚ" "ÀÛ" "ÀÜ" "ÀÝ" "ÀÞ" "Àß" "Àà" "Àá" "Àâ" "Àã" "Àä" "Àå" "Àæ" "Àç" "Àè" "Àé" "Àê" "Àë" "Àì" "Àí" "Àî" "Àï" "Àð" "Àñ" "Àò" "Àó" "Àô" "Àõ" "Àö" "À÷" "Àø" "Àù" "Àú" "Àû" "Àü" "Àý" "Àþ" 33| "Á¡" "Á¢" "Á£" "Á¤" "Á¥" "Á¦" "Á§" "Á¨" "Á©" "Áª" "Á«" "Á¬" "Á­" "Á®" "Á¯" "Á°" "Á±" "Á²" "Á³" "Á´" "Áµ" "Á¶" "Á·" "Á¸" "Á¹" "Áº" "Á»" "Á¼" "Á½" "Á¾" "Á¿" "ÁÀ" "ÁÁ" "ÁÂ" "ÁÃ" "ÁÄ" "ÁÅ" "ÁÆ" "ÁÇ" "ÁÈ" "ÁÉ" "ÁÊ" "ÁË" "ÁÌ" "ÁÍ" "ÁÎ" "ÁÏ" "ÁÐ" "ÁÑ" "ÁÒ" "ÁÓ" "ÁÔ" "ÁÕ" "ÁÖ" "Á×" "ÁØ" "ÁÙ" "ÁÚ" "ÁÛ" "ÁÜ" "ÁÝ" "ÁÞ" "Áß" "Áà" "Áá" "Áâ" "Áã" "Áä" "Áå" "Áæ" "Áç" "Áè" "Áé" "Áê" "Áë" "Áì" "Áí" "Áî" "Áï" "Áð" "Áñ" "Áò" "Áó" "Áô" "Áõ" "Áö" "Á÷" "Áø" "Áù" "Áú" "Áû" "Áü" "Áý" "Áþ" 34| "¡" "¢" "£" "¤" "Â¥" "¦" "§" "¨" "©" "ª" "«" "¬" "­" "®" "¯" "°" "±" "²" "³" "´" "µ" "¶" "·" "¸" "¹" "º" "»" "¼" "½" "¾" "¿" "ÂÀ" "ÂÁ" "ÂÂ" "ÂÃ" "ÂÄ" "ÂÅ" "ÂÆ" "ÂÇ" "ÂÈ" "ÂÉ" "ÂÊ" "ÂË" "ÂÌ" "ÂÍ" "ÂÎ" "ÂÏ" "ÂÐ" "ÂÑ" "ÂÒ" "ÂÓ" "ÂÔ" "ÂÕ" "ÂÖ" "Â×" "ÂØ" "ÂÙ" "ÂÚ" "ÂÛ" "ÂÜ" "ÂÝ" "ÂÞ" "Âß" "Âà" "Âá" "Ââ" "Âã" "Âä" "Âå" "Âæ" "Âç" "Âè" "Âé" "Âê" "Âë" "Âì" "Âí" "Âî" "Âï" "Âð" "Âñ" "Âò" "Âó" "Âô" "Âõ" "Âö" "Â÷" "Âø" "Âù" "Âú" "Âû" "Âü" "Âý" "Âþ" 35| "á" "â" "ã" "ä" "Ã¥" "æ" "ç" "è" "é" "ê" "ë" "ì" "í" "î" "ï" "ð" "ñ" "ò" "ó" "ô" "õ" "ö" "÷" "ø" "ù" "ú" "û" "ü" "ý" "þ" "ÿ" "ÃÀ" "ÃÁ" "ÃÂ" "ÃÃ" "ÃÄ" "ÃÅ" "ÃÆ" "ÃÇ" "ÃÈ" "ÃÉ" "ÃÊ" "ÃË" "ÃÌ" "ÃÍ" "ÃÎ" "ÃÏ" "ÃÐ" "ÃÑ" "ÃÒ" "ÃÓ" "ÃÔ" "ÃÕ" "ÃÖ" "Ã×" "ÃØ" "ÃÙ" "ÃÚ" "ÃÛ" "ÃÜ" "ÃÝ" "ÃÞ" "Ãß" "Ãà" "Ãá" "Ãâ" "Ãã" "Ãä" "Ãå" "Ãæ" "Ãç" "Ãè" "Ãé" "Ãê" "Ãë" "Ãì" "Ãí" "Ãî" "Ãï" "Ãð" "Ãñ" "Ãò" "Ãó" "Ãô" "Ãõ" "Ãö" "Ã÷" "Ãø" "Ãù" "Ãú" "Ãû" "Ãü" "Ãý" "Ãþ" 36| "Ä¡" "Ä¢" "Ä£" "Ĥ" "Ä¥" "Ħ" "ħ" "Ĩ" "Ä©" "Ī" "Ä«" "Ĭ" "Ä­" "Ä®" "į" "Ä°" "ı" "IJ" "ij" "Ä´" "ĵ" "Ķ" "Ä·" "ĸ" "Ĺ" "ĺ" "Ä»" "ļ" "Ľ" "ľ" "Ä¿" "ÄÀ" "ÄÁ" "ÄÂ" "ÄÃ" "ÄÄ" "ÄÅ" "ÄÆ" "ÄÇ" "ÄÈ" "ÄÉ" "ÄÊ" "ÄË" "ÄÌ" "ÄÍ" "ÄÎ" "ÄÏ" "ÄÐ" "ÄÑ" "ÄÒ" "ÄÓ" "ÄÔ" "ÄÕ" "ÄÖ" "Ä×" "ÄØ" "ÄÙ" "ÄÚ" "ÄÛ" "ÄÜ" "ÄÝ" "ÄÞ" "Äß" "Äà" "Äá" "Äâ" "Äã" "Ää" "Äå" "Äæ" "Äç" "Äè" "Äé" "Äê" "Äë" "Äì" "Äí" "Äî" "Äï" "Äð" "Äñ" "Äò" "Äó" "Äô" "Äõ" "Äö" "Ä÷" "Äø" "Äù" "Äú" "Äû" "Äü" "Äý" "Äþ" 37| "Å¡" "Å¢" "Å£" "Ť" "Å¥" "Ŧ" "ŧ" "Ũ" "Å©" "Ū" "Å«" "Ŭ" "Å­" "Å®" "ů" "Å°" "ű" "Ų" "ų" "Å´" "ŵ" "Ŷ" "Å·" "Ÿ" "Ź" "ź" "Å»" "ż" "Ž" "ž" "Å¿" "ÅÀ" "ÅÁ" "ÅÂ" "ÅÃ" "ÅÄ" "ÅÅ" "ÅÆ" "ÅÇ" "ÅÈ" "ÅÉ" "ÅÊ" "ÅË" "ÅÌ" "ÅÍ" "ÅÎ" "ÅÏ" "ÅÐ" "ÅÑ" "ÅÒ" "ÅÓ" "ÅÔ" "ÅÕ" "ÅÖ" "Å×" "ÅØ" "ÅÙ" "ÅÚ" "ÅÛ" "ÅÜ" "ÅÝ" "ÅÞ" "Åß" "Åà" "Åá" "Åâ" "Åã" "Åä" "Åå" "Åæ" "Åç" "Åè" "Åé" "Åê" "Åë" "Åì" "Åí" "Åî" "Åï" "Åð" "Åñ" "Åò" "Åó" "Åô" "Åõ" "Åö" "Å÷" "Åø" "Åù" "Åú" "Åû" "Åü" "Åý" "Åþ" 38| "Æ¡" "Æ¢" "Æ£" "Ƥ" "Æ¥" "Ʀ" "Ƨ" "ƨ" "Æ©" "ƪ" "Æ«" "Ƭ" "Æ­" "Æ®" "Ư" "Æ°" "Ʊ" "Ʋ" "Ƴ" "Æ´" "Ƶ" "ƶ" "Æ·" "Ƹ" "ƹ" "ƺ" "Æ»" "Ƽ" "ƽ" "ƾ" "Æ¿" "ÆÀ" "ÆÁ" "ÆÂ" "ÆÃ" "ÆÄ" "ÆÅ" "ÆÆ" "ÆÇ" "ÆÈ" "ÆÉ" "ÆÊ" "ÆË" "ÆÌ" "ÆÍ" "ÆÎ" "ÆÏ" "ÆÐ" "ÆÑ" "ÆÒ" "ÆÓ" "ÆÔ" "ÆÕ" "ÆÖ" "Æ×" "ÆØ" "ÆÙ" "ÆÚ" "ÆÛ" "ÆÜ" "ÆÝ" "ÆÞ" "Æß" "Æà" "Æá" "Æâ" "Æã" "Æä" "Æå" "Ææ" "Æç" "Æè" "Æé" "Æê" "Æë" "Æì" "Æí" "Æî" "Æï" "Æð" "Æñ" "Æò" "Æó" "Æô" "Æõ" "Æö" "Æ÷" "Æø" "Æù" "Æú" "Æû" "Æü" "Æý" "Æþ" 39| "Ç¡" "Ç¢" "Ç£" "Ǥ" "Ç¥" "Ǧ" "ǧ" "Ǩ" "Ç©" "Ǫ" "Ç«" "Ǭ" "Ç­" "Ç®" "ǯ" "Ç°" "DZ" "Dz" "dz" "Ç´" "ǵ" "Ƕ" "Ç·" "Ǹ" "ǹ" "Ǻ" "Ç»" "Ǽ" "ǽ" "Ǿ" "Ç¿" "ÇÀ" "ÇÁ" "ÇÂ" "ÇÃ" "ÇÄ" "ÇÅ" "ÇÆ" "ÇÇ" "ÇÈ" "ÇÉ" "ÇÊ" "ÇË" "ÇÌ" "ÇÍ" "ÇÎ" "ÇÏ" "ÇÐ" "ÇÑ" "ÇÒ" "ÇÓ" "ÇÔ" "ÇÕ" "ÇÖ" "Ç×" "ÇØ" "ÇÙ" "ÇÚ" "ÇÛ" "ÇÜ" "ÇÝ" "ÇÞ" "Çß" "Çà" "Çá" "Çâ" "Çã" "Çä" "Çå" "Çæ" "Çç" "Çè" "Çé" "Çê" "Çë" "Çì" "Çí" "Çî" "Çï" "Çð" "Çñ" "Çò" "Çó" "Çô" "Çõ" "Çö" "Ç÷" "Çø" "Çù" "Çú" "Çû" "Çü" "Çý" "Çþ" 40| "È¡" "È¢" "È£" "Ȥ" "È¥" "Ȧ" "ȧ" "Ȩ" "È©" "Ȫ" "È«" "Ȭ" "È­" "È®" "ȯ" "È°" "ȱ" "Ȳ" "ȳ" "È´" "ȵ" "ȶ" "È·" "ȸ" "ȹ" "Ⱥ" "È»" "ȼ" "Ƚ" "Ⱦ" "È¿" "ÈÀ" "ÈÁ" "ÈÂ" "ÈÃ" "ÈÄ" "ÈÅ" "ÈÆ" "ÈÇ" "ÈÈ" "ÈÉ" "ÈÊ" "ÈË" "ÈÌ" "ÈÍ" "ÈÎ" "ÈÏ" "ÈÐ" "ÈÑ" "ÈÒ" "ÈÓ" "ÈÔ" "ÈÕ" "ÈÖ" "È×" "ÈØ" "ÈÙ" "ÈÚ" "ÈÛ" "ÈÜ" "ÈÝ" "ÈÞ" "Èß" "Èà" "Èá" "Èâ" "Èã" "Èä" "Èå" "Èæ" "Èç" "Èè" "Èé" "Èê" "Èë" "Èì" "Èí" "Èî" "Èï" "Èð" "Èñ" "Èò" "Èó" "Èô" "Èõ" "Èö" "È÷" "Èø" "Èù" "Èú" "Èû" "Èü" "Èý" "Èþ" 41| "É¡" "É¢" "É£" "ɤ" "É¥" "ɦ" "ɧ" "ɨ" "É©" "ɪ" "É«" "ɬ" "É­" "É®" "ɯ" "É°" "ɱ" "ɲ" "ɳ" "É´" "ɵ" "ɶ" "É·" "ɸ" "ɹ" "ɺ" "É»" "ɼ" "ɽ" "ɾ" "É¿" "ÉÀ" "ÉÁ" "ÉÂ" "ÉÃ" "ÉÄ" "ÉÅ" "ÉÆ" "ÉÇ" "ÉÈ" "ÉÉ" "ÉÊ" "ÉË" "ÉÌ" "ÉÍ" "ÉÎ" "ÉÏ" "ÉÐ" "ÉÑ" "ÉÒ" "ÉÓ" "ÉÔ" "ÉÕ" "ÉÖ" "É×" "ÉØ" "ÉÙ" "ÉÚ" "ÉÛ" "ÉÜ" "ÉÝ" "ÉÞ" "Éß" "Éà" "Éá" "Éâ" "Éã" "Éä" "Éå" "Éæ" "Éç" "Éè" "Éé" "Éê" "Éë" "Éì" "Éí" "Éî" "Éï" "Éð" "Éñ" "Éò" "Éó" "Éô" "Éõ" "Éö" "É÷" "Éø" "Éù" "Éú" "Éû" "Éü" "Éý" "Éþ" 42| "Ê¡" "Ê¢" "Ê£" "ʤ" "Ê¥" "ʦ" "ʧ" "ʨ" "Ê©" "ʪ" "Ê«" "ʬ" "Ê­" "Ê®" "ʯ" "Ê°" "ʱ" "ʲ" "ʳ" "Ê´" "ʵ" "ʶ" "Ê·" "ʸ" "ʹ" "ʺ" "Ê»" "ʼ" "ʽ" "ʾ" "Ê¿" "ÊÀ" "ÊÁ" "ÊÂ" "ÊÃ" "ÊÄ" "ÊÅ" "ÊÆ" "ÊÇ" "ÊÈ" "ÊÉ" "ÊÊ" "ÊË" "ÊÌ" "ÊÍ" "ÊÎ" "ÊÏ" "ÊÐ" "ÊÑ" "ÊÒ" "ÊÓ" "ÊÔ" "ÊÕ" "ÊÖ" "Ê×" "ÊØ" "ÊÙ" "ÊÚ" "ÊÛ" "ÊÜ" "ÊÝ" "ÊÞ" "Êß" "Êà" "Êá" "Êâ" "Êã" "Êä" "Êå" "Êæ" "Êç" "Êè" "Êé" "Êê" "Êë" "Êì" "Êí" "Êî" "Êï" "Êð" "Êñ" "Êò" "Êó" "Êô" "Êõ" "Êö" "Ê÷" "Êø" "Êù" "Êú" "Êû" "Êü" "Êý" "Êþ" 43| "Ë¡" "Ë¢" "Ë£" "ˤ" "Ë¥" "˦" "˧" "˨" "Ë©" "˪" "Ë«" "ˬ" "Ë­" "Ë®" "˯" "Ë°" "˱" "˲" "˳" "Ë´" "˵" "˶" "Ë·" "˸" "˹" "˺" "Ë»" "˼" "˽" "˾" "Ë¿" "ËÀ" "ËÁ" "ËÂ" "ËÃ" "ËÄ" "ËÅ" "ËÆ" "ËÇ" "ËÈ" "ËÉ" "ËÊ" "ËË" "ËÌ" "ËÍ" "ËÎ" "ËÏ" "ËÐ" "ËÑ" "ËÒ" "ËÓ" "ËÔ" "ËÕ" "ËÖ" "Ë×" "ËØ" "ËÙ" "ËÚ" "ËÛ" "ËÜ" "ËÝ" "ËÞ" "Ëß" "Ëà" "Ëá" "Ëâ" "Ëã" "Ëä" "Ëå" "Ëæ" "Ëç" "Ëè" "Ëé" "Ëê" "Ëë" "Ëì" "Ëí" "Ëî" "Ëï" "Ëð" "Ëñ" "Ëò" "Ëó" "Ëô" "Ëõ" "Ëö" "Ë÷" "Ëø" "Ëù" "Ëú" "Ëû" "Ëü" "Ëý" "Ëþ" 44| "Ì¡" "Ì¢" "Ì£" "̤" "Ì¥" "̦" "̧" "̨" "Ì©" "̪" "Ì«" "̬" "Ì­" "Ì®" "̯" "Ì°" "̱" "̲" "̳" "Ì´" "̵" "̶" "Ì·" "̸" "̹" "̺" "Ì»" "̼" "̽" "̾" "Ì¿" "ÌÀ" "ÌÁ" "ÌÂ" "ÌÃ" "ÌÄ" "ÌÅ" "ÌÆ" "ÌÇ" "ÌÈ" "ÌÉ" "ÌÊ" "ÌË" "ÌÌ" "ÌÍ" "ÌÎ" "ÌÏ" "ÌÐ" "ÌÑ" "ÌÒ" "ÌÓ" "ÌÔ" "ÌÕ" "ÌÖ" "Ì×" "ÌØ" "ÌÙ" "ÌÚ" "ÌÛ" "ÌÜ" "ÌÝ" "ÌÞ" "Ìß" "Ìà" "Ìá" "Ìâ" "Ìã" "Ìä" "Ìå" "Ìæ" "Ìç" "Ìè" "Ìé" "Ìê" "Ìë" "Ìì" "Ìí" "Ìî" "Ìï" "Ìð" "Ìñ" "Ìò" "Ìó" "Ìô" "Ìõ" "Ìö" "Ì÷" "Ìø" "Ìù" "Ìú" "Ìû" "Ìü" "Ìý" "Ìþ" 45| "Í¡" "Í¢" "Í£" "ͤ" "Í¥" "ͦ" "ͧ" "ͨ" "Í©" "ͪ" "Í«" "ͬ" "Í­" "Í®" "ͯ" "Í°" "ͱ" "Ͳ" "ͳ" "Í´" "͵" "Ͷ" "Í·" "͸" "͹" "ͺ" "Í»" "ͼ" "ͽ" ";" "Í¿" "ÍÀ" "ÍÁ" "ÍÂ" "ÍÃ" "ÍÄ" "ÍÅ" "ÍÆ" "ÍÇ" "ÍÈ" "ÍÉ" "ÍÊ" "ÍË" "ÍÌ" "ÍÍ" "ÍÎ" "ÍÏ" "ÍÐ" "ÍÑ" "ÍÒ" "ÍÓ" "ÍÔ" "ÍÕ" "ÍÖ" "Í×" "ÍØ" "ÍÙ" "ÍÚ" "ÍÛ" "ÍÜ" "ÍÝ" "ÍÞ" "Íß" "Íà" "Íá" "Íâ" "Íã" "Íä" "Íå" "Íæ" "Íç" "Íè" "Íé" "Íê" "Íë" "Íì" "Íí" "Íî" "Íï" "Íð" "Íñ" "Íò" "Íó" "Íô" "Íõ" "Íö" "Í÷" "Íø" "Íù" "Íú" "Íû" "Íü" "Íý" "Íþ" 46| "Ρ" "΢" "Σ" "Τ" "Î¥" "Φ" "Χ" "Ψ" "Ω" "Ϊ" "Ϋ" "ά" "έ" "ή" "ί" "ΰ" "α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "ÎÀ" "ÎÁ" "ÎÂ" "ÎÃ" "ÎÄ" "ÎÅ" "ÎÆ" "ÎÇ" "ÎÈ" "ÎÉ" "ÎÊ" "ÎË" "ÎÌ" "ÎÍ" "ÎÎ" "ÎÏ" "ÎÐ" "ÎÑ" "ÎÒ" "ÎÓ" "ÎÔ" "ÎÕ" "ÎÖ" "Î×" "ÎØ" "ÎÙ" "ÎÚ" "ÎÛ" "ÎÜ" "ÎÝ" "ÎÞ" "Îß" "Îà" "Îá" "Îâ" "Îã" "Îä" "Îå" "Îæ" "Îç" "Îè" "Îé" "Îê" "Îë" "Îì" "Îí" "Îî" "Îï" "Îð" "Îñ" "Îò" "Îó" "Îô" "Îõ" "Îö" "Î÷" "Îø" "Îù" "Îú" "Îû" "Îü" "Îý" "Îþ" 47| "Ï¡" "Ï¢" "Ï£" "Ϥ" "Ï¥" "Ϧ" "ϧ" "Ϩ" "Ï©" "Ϫ" "Ï«" "Ϭ" "Ï­" "Ï®" "ϯ" "Ï°" "ϱ" "ϲ" "ϳ" "Ï´" "ϵ" "϶" "Ï·" "ϸ" "Ϲ" "Ϻ" "Ï»" "ϼ" "Ͻ" "Ͼ" "Ï¿" "ÏÀ" "ÏÁ" "ÏÂ" "ÏÃ" "ÏÄ" "ÏÅ" "ÏÆ" "ÏÇ" "ÏÈ" "ÏÉ" "ÏÊ" "ÏË" "ÏÌ" "ÏÍ" "ÏÎ" "ÏÏ" "ÏÐ" "ÏÑ" "ÏÒ" "ÏÓ" "ÏÔ" "ÏÕ" "ÏÖ" "Ï×" "ÏØ" "ÏÙ" "ÏÚ" "ÏÛ" "ÏÜ" "ÏÝ" "ÏÞ" "Ïß" "Ïà" "Ïá" "Ïâ" "Ïã" "Ïä" "Ïå" "Ïæ" "Ïç" "Ïè" "Ïé" "Ïê" "Ïë" "Ïì" "Ïí" "Ïî" "Ïï" "Ïð" "Ïñ" "Ïò" "Ïó" "Ïô" "Ïõ" "Ïö" "Ï÷" "Ïø" "Ïù" "Ïú" "Ïû" "Ïü" "Ïý" "Ïþ" 48| "С" "Т" "У" "Ф" "Ð¥" "Ц" "Ч" "Ш" "Щ" "Ъ" "Ы" "Ь" "Э" "Ю" "Я" "а" "б" "в" "г" "д" "е" "ж" "з" "и" "й" "к" "л" "м" "н" "о" "п" "ÐÀ" "ÐÁ" "ÐÂ" "ÐÃ" "ÐÄ" "ÐÅ" "ÐÆ" "ÐÇ" "ÐÈ" "ÐÉ" "ÐÊ" "ÐË" "ÐÌ" "ÐÍ" "ÐÎ" "ÐÏ" "ÐÐ" "ÐÑ" "ÐÒ" "ÐÓ" "ÐÔ" "ÐÕ" "ÐÖ" "Ð×" "ÐØ" "ÐÙ" "ÐÚ" "ÐÛ" "ÐÜ" "ÐÝ" "ÐÞ" "Ðß" "Ðà" "Ðá" "Ðâ" "Ðã" "Ðä" "Ðå" "Ðæ" "Ðç" "Ðè" "Ðé" "Ðê" "Ðë" "Ðì" "Ðí" "Ðî" "Ðï" "Ðð" "Ðñ" "Ðò" "Ðó" "Ðô" "Ðõ" "Ðö" "Ð÷" "Ðø" "Ðù" "Ðú" "Ðû" "Ðü" "Ðý" "Ðþ" 49| "Ñ¡" "Ñ¢" "Ñ£" "Ѥ" "Ñ¥" "Ѧ" "ѧ" "Ѩ" "Ñ©" "Ѫ" "Ñ«" "Ѭ" "Ñ­" "Ñ®" "ѯ" "Ñ°" "ѱ" "Ѳ" "ѳ" "Ñ´" "ѵ" "Ѷ" "Ñ·" "Ѹ" "ѹ" "Ѻ" "Ñ»" "Ѽ" "ѽ" "Ѿ" "Ñ¿" "ÑÀ" "ÑÁ" "ÑÂ" "ÑÃ" "ÑÄ" "ÑÅ" "ÑÆ" "ÑÇ" "ÑÈ" "ÑÉ" "ÑÊ" "ÑË" "ÑÌ" "ÑÍ" "ÑÎ" "ÑÏ" "ÑÐ" "ÑÑ" "ÑÒ" "ÑÓ" "ÑÔ" "ÑÕ" "ÑÖ" "Ñ×" "ÑØ" "ÑÙ" "ÑÚ" "ÑÛ" "ÑÜ" "ÑÝ" "ÑÞ" "Ñß" "Ñà" "Ñá" "Ñâ" "Ñã" "Ñä" "Ñå" "Ñæ" "Ñç" "Ñè" "Ñé" "Ñê" "Ñë" "Ñì" "Ñí" "Ñî" "Ñï" "Ñð" "Ññ" "Ñò" "Ñó" "Ñô" "Ñõ" "Ñö" "Ñ÷" "Ñø" "Ñù" "Ñú" "Ñû" "Ñü" "Ñý" "Ñþ" 50| "Ò¡" "Ò¢" "Ò£" "Ò¤" "Ò¥" "Ò¦" "Ò§" "Ò¨" "Ò©" "Òª" "Ò«" "Ò¬" "Ò­" "Ò®" "Ò¯" "Ò°" "Ò±" "Ò²" "Ò³" "Ò´" "Òµ" "Ò¶" "Ò·" "Ò¸" "Ò¹" "Òº" "Ò»" "Ò¼" "Ò½" "Ò¾" "Ò¿" "ÒÀ" "ÒÁ" "ÒÂ" "ÒÃ" "ÒÄ" "ÒÅ" "ÒÆ" "ÒÇ" "ÒÈ" "ÒÉ" "ÒÊ" "ÒË" "ÒÌ" "ÒÍ" "ÒÎ" "ÒÏ" "ÒÐ" "ÒÑ" "ÒÒ" "ÒÓ" "ÒÔ" "ÒÕ" "ÒÖ" "Ò×" "ÒØ" "ÒÙ" "ÒÚ" "ÒÛ" "ÒÜ" "ÒÝ" "ÒÞ" "Òß" "Òà" "Òá" "Òâ" "Òã" "Òä" "Òå" "Òæ" "Òç" "Òè" "Òé" "Òê" "Òë" "Òì" "Òí" "Òî" "Òï" "Òð" "Òñ" "Òò" "Òó" "Òô" "Òõ" "Òö" "Ò÷" "Òø" "Òù" "Òú" "Òû" "Òü" "Òý" "Òþ" 51| "Ó¡" "Ó¢" "Ó£" "Ó¤" "Ó¥" "Ó¦" "Ó§" "Ó¨" "Ó©" "Óª" "Ó«" "Ó¬" "Ó­" "Ó®" "Ó¯" "Ó°" "Ó±" "Ó²" "Ó³" "Ó´" "Óµ" "Ó¶" "Ó·" "Ó¸" "Ó¹" "Óº" "Ó»" "Ó¼" "Ó½" "Ó¾" "Ó¿" "ÓÀ" "ÓÁ" "ÓÂ" "ÓÃ" "ÓÄ" "ÓÅ" "ÓÆ" "ÓÇ" "ÓÈ" "ÓÉ" "ÓÊ" "ÓË" "ÓÌ" "ÓÍ" "ÓÎ" "ÓÏ" "ÓÐ" "ÓÑ" "ÓÒ" "ÓÓ" "ÓÔ" "ÓÕ" "ÓÖ" "Ó×" "ÓØ" "ÓÙ" "ÓÚ" "ÓÛ" "ÓÜ" "ÓÝ" "ÓÞ" "Óß" "Óà" "Óá" "Óâ" "Óã" "Óä" "Óå" "Óæ" "Óç" "Óè" "Óé" "Óê" "Óë" "Óì" "Óí" "Óî" "Óï" "Óð" "Óñ" "Óò" "Óó" "Óô" "Óõ" "Óö" "Ó÷" "Óø" "Óù" "Óú" "Óû" "Óü" "Óý" "Óþ" 52| "Ô¡" "Ô¢" "Ô£" "Ô¤" "Ô¥" "Ô¦" "Ô§" "Ô¨" "Ô©" "Ôª" "Ô«" "Ô¬" "Ô­" "Ô®" "Ô¯" "Ô°" "Ô±" "Ô²" "Ô³" "Ô´" "Ôµ" "Ô¶" "Ô·" "Ô¸" "Ô¹" "Ôº" "Ô»" "Ô¼" "Ô½" "Ô¾" "Ô¿" "ÔÀ" "ÔÁ" "ÔÂ" "ÔÃ" "ÔÄ" "ÔÅ" "ÔÆ" "ÔÇ" "ÔÈ" "ÔÉ" "ÔÊ" "ÔË" "ÔÌ" "ÔÍ" "ÔÎ" "ÔÏ" "ÔÐ" "ÔÑ" "ÔÒ" "ÔÓ" "ÔÔ" "ÔÕ" "ÔÖ" "Ô×" "ÔØ" "ÔÙ" "ÔÚ" "ÔÛ" "ÔÜ" "ÔÝ" "ÔÞ" "Ôß" "Ôà" "Ôá" "Ôâ" "Ôã" "Ôä" "Ôå" "Ôæ" "Ôç" "Ôè" "Ôé" "Ôê" "Ôë" "Ôì" "Ôí" "Ôî" "Ôï" "Ôð" "Ôñ" "Ôò" "Ôó" "Ôô" "Ôõ" "Ôö" "Ô÷" "Ôø" "Ôù" "Ôú" "Ôû" "Ôü" "Ôý" "Ôþ" 53| "Õ¡" "Õ¢" "Õ£" "Õ¤" "Õ¥" "Õ¦" "Õ§" "Õ¨" "Õ©" "Õª" "Õ«" "Õ¬" "Õ­" "Õ®" "Õ¯" "Õ°" "Õ±" "Õ²" "Õ³" "Õ´" "Õµ" "Õ¶" "Õ·" "Õ¸" "Õ¹" "Õº" "Õ»" "Õ¼" "Õ½" "Õ¾" "Õ¿" "ÕÀ" "ÕÁ" "ÕÂ" "ÕÃ" "ÕÄ" "ÕÅ" "ÕÆ" "ÕÇ" "ÕÈ" "ÕÉ" "ÕÊ" "ÕË" "ÕÌ" "ÕÍ" "ÕÎ" "ÕÏ" "ÕÐ" "ÕÑ" "ÕÒ" "ÕÓ" "ÕÔ" "ÕÕ" "ÕÖ" "Õ×" "ÕØ" "ÕÙ" "ÕÚ" "ÕÛ" "ÕÜ" "ÕÝ" "ÕÞ" "Õß" "Õà" "Õá" "Õâ" "Õã" "Õä" "Õå" "Õæ" "Õç" "Õè" "Õé" "Õê" "Õë" "Õì" "Õí" "Õî" "Õï" "Õð" "Õñ" "Õò" "Õó" "Õô" "Õõ" "Õö" "Õ÷" "Õø" "Õù" "Õú" "Õû" "Õü" "Õý" "Õþ" 54| "Ö¡" "Ö¢" "Ö£" "Ö¤" "Ö¥" "Ö¦" "Ö§" "Ö¨" "Ö©" "Öª" "Ö«" "Ö¬" "Ö­" "Ö®" "Ö¯" "Ö°" "Ö±" "Ö²" "Ö³" "Ö´" "Öµ" "Ö¶" "Ö·" "Ö¸" "Ö¹" "Öº" "Ö»" "Ö¼" "Ö½" "Ö¾" "Ö¿" "ÖÀ" "ÖÁ" "ÖÂ" "ÖÃ" "ÖÄ" "ÖÅ" "ÖÆ" "ÖÇ" "ÖÈ" "ÖÉ" "ÖÊ" "ÖË" "ÖÌ" "ÖÍ" "ÖÎ" "ÖÏ" "ÖÐ" "ÖÑ" "ÖÒ" "ÖÓ" "ÖÔ" "ÖÕ" "ÖÖ" "Ö×" "ÖØ" "ÖÙ" "ÖÚ" "ÖÛ" "ÖÜ" "ÖÝ" "ÖÞ" "Öß" "Öà" "Öá" "Öâ" "Öã" "Öä" "Öå" "Öæ" "Öç" "Öè" "Öé" "Öê" "Öë" "Öì" "Öí" "Öî" "Öï" "Öð" "Öñ" "Öò" "Öó" "Öô" "Öõ" "Öö" "Ö÷" "Öø" "Öù" "Öú" "Öû" "Öü" "Öý" "Öþ" 55| "ס" "×¢" "×£" "פ" "×¥" "צ" "ק" "ר" "ש" "ת" "׫" "׬" "×­" "×®" "ׯ" "×°" "×±" "ײ" "׳" "×´" "×µ" "׶" "×·" "׸" "×¹" "׺" "×»" "×¼" "×½" "×¾" "׿" "×À" "×Á" "×Â" "×Ã" "×Ä" "×Å" "×Æ" "×Ç" "×È" "×É" "×Ê" "×Ë" "×Ì" "×Í" "×Î" "×Ï" "×Ð" "×Ñ" "×Ò" "×Ó" "×Ô" "×Õ" "×Ö" "××" "×Ø" "×Ù" "×Ú" "×Û" "×Ü" "×Ý" "×Þ" "×ß" "×à" "×á" "×â" "×ã" "×ä" "×å" "×æ" "×ç" "×è" "×é" "×ê" "×ë" "×ì" "×í" "×î" "×ï" "×ð" "×ñ" "×ò" "×ó" "×ô" "×õ" "×ö" "×÷" "×ø" "×ù" "×ú" "×û" "×ü" "×ý" "×þ" 56| "Ø¡" "Ø¢" "Ø£" "ؤ" "Ø¥" "ئ" "ا" "ب" "Ø©" "ت" "Ø«" "ج" "Ø­" "Ø®" "د" "Ø°" "ر" "ز" "س" "Ø´" "ص" "ض" "Ø·" "ظ" "ع" "غ" "Ø»" "ؼ" "ؽ" "ؾ" "Ø¿" "ØÀ" "ØÁ" "ØÂ" "ØÃ" "ØÄ" "ØÅ" "ØÆ" "ØÇ" "ØÈ" "ØÉ" "ØÊ" "ØË" "ØÌ" "ØÍ" "ØÎ" "ØÏ" "ØÐ" "ØÑ" "ØÒ" "ØÓ" "ØÔ" "ØÕ" "ØÖ" "Ø×" "ØØ" "ØÙ" "ØÚ" "ØÛ" "ØÜ" "ØÝ" "ØÞ" "Øß" "Øà" "Øá" "Øâ" "Øã" "Øä" "Øå" "Øæ" "Øç" "Øè" "Øé" "Øê" "Øë" "Øì" "Øí" "Øî" "Øï" "Øð" "Øñ" "Øò" "Øó" "Øô" "Øõ" "Øö" "Ø÷" "Øø" "Øù" "Øú" "Øû" "Øü" "Øý" "Øþ" 57| "Ù¡" "Ù¢" "Ù£" "Ù¤" "Ù¥" "Ù¦" "Ù§" "Ù¨" "Ù©" "Ùª" "Ù«" "Ù¬" "Ù­" "Ù®" "Ù¯" "Ù°" "Ù±" "Ù²" "Ù³" "Ù´" "Ùµ" "Ù¶" "Ù·" "Ù¸" "Ù¹" "Ùº" "Ù»" "Ù¼" "Ù½" "Ù¾" "Ù¿" "ÙÀ" "ÙÁ" "ÙÂ" "ÙÃ" "ÙÄ" "ÙÅ" "ÙÆ" "ÙÇ" "ÙÈ" "ÙÉ" "ÙÊ" "ÙË" "ÙÌ" "ÙÍ" "ÙÎ" "ÙÏ" "ÙÐ" "ÙÑ" "ÙÒ" "ÙÓ" "ÙÔ" "ÙÕ" "ÙÖ" "Ù×" "ÙØ" "ÙÙ" "ÙÚ" "ÙÛ" "ÙÜ" "ÙÝ" "ÙÞ" "Ùß" "Ùà" "Ùá" "Ùâ" "Ùã" "Ùä" "Ùå" "Ùæ" "Ùç" "Ùè" "Ùé" "Ùê" "Ùë" "Ùì" "Ùí" "Ùî" "Ùï" "Ùð" "Ùñ" "Ùò" "Ùó" "Ùô" "Ùõ" "Ùö" "Ù÷" "Ùø" "Ùù" "Ùú" "Ùû" "Ùü" "Ùý" "Ùþ" 58| "Ú¡" "Ú¢" "Ú£" "Ú¤" "Ú¥" "Ú¦" "Ú§" "Ú¨" "Ú©" "Úª" "Ú«" "Ú¬" "Ú­" "Ú®" "Ú¯" "Ú°" "Ú±" "Ú²" "Ú³" "Ú´" "Úµ" "Ú¶" "Ú·" "Ú¸" "Ú¹" "Úº" "Ú»" "Ú¼" "Ú½" "Ú¾" "Ú¿" "ÚÀ" "ÚÁ" "ÚÂ" "ÚÃ" "ÚÄ" "ÚÅ" "ÚÆ" "ÚÇ" "ÚÈ" "ÚÉ" "ÚÊ" "ÚË" "ÚÌ" "ÚÍ" "ÚÎ" "ÚÏ" "ÚÐ" "ÚÑ" "ÚÒ" "ÚÓ" "ÚÔ" "ÚÕ" "ÚÖ" "Ú×" "ÚØ" "ÚÙ" "ÚÚ" "ÚÛ" "ÚÜ" "ÚÝ" "ÚÞ" "Úß" "Úà" "Úá" "Úâ" "Úã" "Úä" "Úå" "Úæ" "Úç" "Úè" "Úé" "Úê" "Úë" "Úì" "Úí" "Úî" "Úï" "Úð" "Úñ" "Úò" "Úó" "Úô" "Úõ" "Úö" "Ú÷" "Úø" "Úù" "Úú" "Úû" "Úü" "Úý" "Úþ" 59| "Û¡" "Û¢" "Û£" "Û¤" "Û¥" "Û¦" "Û§" "Û¨" "Û©" "Ûª" "Û«" "Û¬" "Û­" "Û®" "Û¯" "Û°" "Û±" "Û²" "Û³" "Û´" "Ûµ" "Û¶" "Û·" "Û¸" "Û¹" "Ûº" "Û»" "Û¼" "Û½" "Û¾" "Û¿" "ÛÀ" "ÛÁ" "ÛÂ" "ÛÃ" "ÛÄ" "ÛÅ" "ÛÆ" "ÛÇ" "ÛÈ" "ÛÉ" "ÛÊ" "ÛË" "ÛÌ" "ÛÍ" "ÛÎ" "ÛÏ" "ÛÐ" "ÛÑ" "ÛÒ" "ÛÓ" "ÛÔ" "ÛÕ" "ÛÖ" "Û×" "ÛØ" "ÛÙ" "ÛÚ" "ÛÛ" "ÛÜ" "ÛÝ" "ÛÞ" "Ûß" "Ûà" "Ûá" "Ûâ" "Ûã" "Ûä" "Ûå" "Ûæ" "Ûç" "Ûè" "Ûé" "Ûê" "Ûë" "Ûì" "Ûí" "Ûî" "Ûï" "Ûð" "Ûñ" "Ûò" "Ûó" "Ûô" "Ûõ" "Ûö" "Û÷" "Ûø" "Ûù" "Ûú" "Ûû" "Ûü" "Ûý" "Ûþ" 60| "Ü¡" "Ü¢" "Ü£" "ܤ" "Ü¥" "ܦ" "ܧ" "ܨ" "Ü©" "ܪ" "Ü«" "ܬ" "Ü­" "Ü®" "ܯ" "Ü°" "ܱ" "ܲ" "ܳ" "Ü´" "ܵ" "ܶ" "Ü·" "ܸ" "ܹ" "ܺ" "Ü»" "ܼ" "ܽ" "ܾ" "Ü¿" "ÜÀ" "ÜÁ" "ÜÂ" "ÜÃ" "ÜÄ" "ÜÅ" "ÜÆ" "ÜÇ" "ÜÈ" "ÜÉ" "ÜÊ" "ÜË" "ÜÌ" "ÜÍ" "ÜÎ" "ÜÏ" "ÜÐ" "ÜÑ" "ÜÒ" "ÜÓ" "ÜÔ" "ÜÕ" "ÜÖ" "Ü×" "ÜØ" "ÜÙ" "ÜÚ" "ÜÛ" "ÜÜ" "ÜÝ" "ÜÞ" "Üß" "Üà" "Üá" "Üâ" "Üã" "Üä" "Üå" "Üæ" "Üç" "Üè" "Üé" "Üê" "Üë" "Üì" "Üí" "Üî" "Üï" "Üð" "Üñ" "Üò" "Üó" "Üô" "Üõ" "Üö" "Ü÷" "Üø" "Üù" "Üú" "Üû" "Üü" "Üý" "Üþ" 61| "Ý¡" "Ý¢" "Ý£" "ݤ" "Ý¥" "ݦ" "ݧ" "ݨ" "Ý©" "ݪ" "Ý«" "ݬ" "Ý­" "Ý®" "ݯ" "Ý°" "ݱ" "ݲ" "ݳ" "Ý´" "ݵ" "ݶ" "Ý·" "ݸ" "ݹ" "ݺ" "Ý»" "ݼ" "ݽ" "ݾ" "Ý¿" "ÝÀ" "ÝÁ" "ÝÂ" "ÝÃ" "ÝÄ" "ÝÅ" "ÝÆ" "ÝÇ" "ÝÈ" "ÝÉ" "ÝÊ" "ÝË" "ÝÌ" "ÝÍ" "ÝÎ" "ÝÏ" "ÝÐ" "ÝÑ" "ÝÒ" "ÝÓ" "ÝÔ" "ÝÕ" "ÝÖ" "Ý×" "ÝØ" "ÝÙ" "ÝÚ" "ÝÛ" "ÝÜ" "ÝÝ" "ÝÞ" "Ýß" "Ýà" "Ýá" "Ýâ" "Ýã" "Ýä" "Ýå" "Ýæ" "Ýç" "Ýè" "Ýé" "Ýê" "Ýë" "Ýì" "Ýí" "Ýî" "Ýï" "Ýð" "Ýñ" "Ýò" "Ýó" "Ýô" "Ýõ" "Ýö" "Ý÷" "Ýø" "Ýù" "Ýú" "Ýû" "Ýü" "Ýý" "Ýþ" 62| "Þ¡" "Þ¢" "Þ£" "Þ¤" "Þ¥" "Þ¦" "Þ§" "Þ¨" "Þ©" "Þª" "Þ«" "Þ¬" "Þ­" "Þ®" "Þ¯" "Þ°" "Þ±" "Þ²" "Þ³" "Þ´" "Þµ" "Þ¶" "Þ·" "Þ¸" "Þ¹" "Þº" "Þ»" "Þ¼" "Þ½" "Þ¾" "Þ¿" "ÞÀ" "ÞÁ" "ÞÂ" "ÞÃ" "ÞÄ" "ÞÅ" "ÞÆ" "ÞÇ" "ÞÈ" "ÞÉ" "ÞÊ" "ÞË" "ÞÌ" "ÞÍ" "ÞÎ" "ÞÏ" "ÞÐ" "ÞÑ" "ÞÒ" "ÞÓ" "ÞÔ" "ÞÕ" "ÞÖ" "Þ×" "ÞØ" "ÞÙ" "ÞÚ" "ÞÛ" "ÞÜ" "ÞÝ" "ÞÞ" "Þß" "Þà" "Þá" "Þâ" "Þã" "Þä" "Þå" "Þæ" "Þç" "Þè" "Þé" "Þê" "Þë" "Þì" "Þí" "Þî" "Þï" "Þð" "Þñ" "Þò" "Þó" "Þô" "Þõ" "Þö" "Þ÷" "Þø" "Þù" "Þú" "Þû" "Þü" "Þý" "Þþ" 63| "ß¡" "ߢ" "ߣ" "ߤ" "ߥ" "ߦ" "ߧ" "ߨ" "ß©" "ߪ" "ß«" "߬" "ß­" "ß®" "߯" "ß°" "ß±" "ß²" "ß³" "ß´" "ßµ" "߶" "ß·" "߸" "ß¹" "ߺ" "ß»" "ß¼" "ß½" "ß¾" "ß¿" "ßÀ" "ßÁ" "ßÂ" "ßÃ" "ßÄ" "ßÅ" "ßÆ" "ßÇ" "ßÈ" "ßÉ" "ßÊ" "ßË" "ßÌ" "ßÍ" "ßÎ" "ßÏ" "ßÐ" "ßÑ" "ßÒ" "ßÓ" "ßÔ" "ßÕ" "ßÖ" "ß×" "ßØ" "ßÙ" "ßÚ" "ßÛ" "ßÜ" "ßÝ" "ßÞ" "ßß" "ßà" "ßá" "ßâ" "ßã" "ßä" "ßå" "ßæ" "ßç" "ßè" "ßé" "ßê" "ßë" "ßì" "ßí" "ßî" "ßï" "ßð" "ßñ" "ßò" "ßó" "ßô" "ßõ" "ßö" "ß÷" "ßø" "ßù" "ßú" "ßû" "ßü" "ßý" "ßþ" 64| "à¡" "à¢" "à£" "à¤" "à¥" "à¦" "à§" "à¨" "à©" "àª" "à«" "à¬" "à­" "à®" "à¯" "à°" "à±" "à²" "à³" "à´" "àµ" "à¶" "à·" "à¸" "à¹" "àº" "à»" "à¼" "à½" "à¾" "à¿" "àÀ" "àÁ" "àÂ" "àÃ" "àÄ" "àÅ" "àÆ" "àÇ" "àÈ" "àÉ" "àÊ" "àË" "àÌ" "àÍ" "àÎ" "àÏ" "àÐ" "àÑ" "àÒ" "àÓ" "àÔ" "àÕ" "àÖ" "à×" "àØ" "àÙ" "àÚ" "àÛ" "àÜ" "àÝ" "àÞ" "àß" "àà" "àá" "àâ" "àã" "àä" "àå" "àæ" "àç" "àè" "àé" "àê" "àë" "àì" "àí" "àî" "àï" "àð" "àñ" "àò" "àó" "àô" "àõ" "àö" "à÷" "àø" "àù" "àú" "àû" "àü" "àý" "àþ" 65| "á¡" "á¢" "á£" "á¤" "á¥" "á¦" "á§" "á¨" "á©" "áª" "á«" "á¬" "á­" "á®" "á¯" "á°" "á±" "á²" "á³" "á´" "áµ" "á¶" "á·" "á¸" "á¹" "áº" "á»" "á¼" "á½" "á¾" "á¿" "áÀ" "áÁ" "áÂ" "áÃ" "áÄ" "áÅ" "áÆ" "áÇ" "áÈ" "áÉ" "áÊ" "áË" "áÌ" "áÍ" "áÎ" "áÏ" "áÐ" "áÑ" "áÒ" "áÓ" "áÔ" "áÕ" "áÖ" "á×" "áØ" "áÙ" "áÚ" "áÛ" "áÜ" "áÝ" "áÞ" "áß" "áà" "áá" "áâ" "áã" "áä" "áå" "áæ" "áç" "áè" "áé" "áê" "áë" "áì" "áí" "áî" "áï" "áð" "áñ" "áò" "áó" "áô" "áõ" "áö" "á÷" "áø" "áù" "áú" "áû" "áü" "áý" "áþ" 66| "â¡" "â¢" "â£" "â¤" "â¥" "â¦" "â§" "â¨" "â©" "âª" "â«" "â¬" "â­" "â®" "â¯" "â°" "â±" "â²" "â³" "â´" "âµ" "â¶" "â·" "â¸" "â¹" "âº" "â»" "â¼" "â½" "â¾" "â¿" "âÀ" "âÁ" "âÂ" "âÃ" "âÄ" "âÅ" "âÆ" "âÇ" "âÈ" "âÉ" "âÊ" "âË" "âÌ" "âÍ" "âÎ" "âÏ" "âÐ" "âÑ" "âÒ" "âÓ" "âÔ" "âÕ" "âÖ" "â×" "âØ" "âÙ" "âÚ" "âÛ" "âÜ" "âÝ" "âÞ" "âß" "âà" "âá" "ââ" "âã" "âä" "âå" "âæ" "âç" "âè" "âé" "âê" "âë" "âì" "âí" "âî" "âï" "âð" "âñ" "âò" "âó" "âô" "âõ" "âö" "â÷" "âø" "âù" "âú" "âû" "âü" "âý" "âþ" 67| "ã¡" "ã¢" "ã£" "ã¤" "ã¥" "ã¦" "ã§" "ã¨" "ã©" "ãª" "ã«" "ã¬" "ã­" "ã®" "ã¯" "ã°" "ã±" "ã²" "ã³" "ã´" "ãµ" "ã¶" "ã·" "ã¸" "ã¹" "ãº" "ã»" "ã¼" "ã½" "ã¾" "ã¿" "ãÀ" "ãÁ" "ãÂ" "ãÃ" "ãÄ" "ãÅ" "ãÆ" "ãÇ" "ãÈ" "ãÉ" "ãÊ" "ãË" "ãÌ" "ãÍ" "ãÎ" "ãÏ" "ãÐ" "ãÑ" "ãÒ" "ãÓ" "ãÔ" "ãÕ" "ãÖ" "ã×" "ãØ" "ãÙ" "ãÚ" "ãÛ" "ãÜ" "ãÝ" "ãÞ" "ãß" "ãà" "ãá" "ãâ" "ãã" "ãä" "ãå" "ãæ" "ãç" "ãè" "ãé" "ãê" "ãë" "ãì" "ãí" "ãî" "ãï" "ãð" "ãñ" "ãò" "ãó" "ãô" "ãõ" "ãö" "ã÷" "ãø" "ãù" "ãú" "ãû" "ãü" "ãý" "ãþ" 68| "ä¡" "ä¢" "ä£" "ä¤" "ä¥" "ä¦" "ä§" "ä¨" "ä©" "äª" "ä«" "ä¬" "ä­" "ä®" "ä¯" "ä°" "ä±" "ä²" "ä³" "ä´" "äµ" "ä¶" "ä·" "ä¸" "ä¹" "äº" "ä»" "ä¼" "ä½" "ä¾" "ä¿" "äÀ" "äÁ" "äÂ" "äÃ" "äÄ" "äÅ" "äÆ" "äÇ" "äÈ" "äÉ" "äÊ" "äË" "äÌ" "äÍ" "äÎ" "äÏ" "äÐ" "äÑ" "äÒ" "äÓ" "äÔ" "äÕ" "äÖ" "ä×" "äØ" "äÙ" "äÚ" "äÛ" "äÜ" "äÝ" "äÞ" "äß" "äà" "äá" "äâ" "äã" "ää" "äå" "äæ" "äç" "äè" "äé" "äê" "äë" "äì" "äí" "äî" "äï" "äð" "äñ" "äò" "äó" "äô" "äõ" "äö" "ä÷" "äø" "äù" "äú" "äû" "äü" "äý" "äþ" 69| "å¡" "å¢" "å£" "å¤" "å¥" "å¦" "å§" "å¨" "å©" "åª" "å«" "å¬" "å­" "å®" "å¯" "å°" "å±" "å²" "å³" "å´" "åµ" "å¶" "å·" "å¸" "å¹" "åº" "å»" "å¼" "å½" "å¾" "å¿" "åÀ" "åÁ" "åÂ" "åÃ" "åÄ" "åÅ" "åÆ" "åÇ" "åÈ" "åÉ" "åÊ" "åË" "åÌ" "åÍ" "åÎ" "åÏ" "åÐ" "åÑ" "åÒ" "åÓ" "åÔ" "åÕ" "åÖ" "å×" "åØ" "åÙ" "åÚ" "åÛ" "åÜ" "åÝ" "åÞ" "åß" "åà" "åá" "åâ" "åã" "åä" "åå" "åæ" "åç" "åè" "åé" "åê" "åë" "åì" "åí" "åî" "åï" "åð" "åñ" "åò" "åó" "åô" "åõ" "åö" "å÷" "åø" "åù" "åú" "åû" "åü" "åý" "åþ" 70| "æ¡" "æ¢" "æ£" "æ¤" "æ¥" "æ¦" "æ§" "æ¨" "æ©" "æª" "æ«" "æ¬" "æ­" "æ®" "æ¯" "æ°" "æ±" "æ²" "æ³" "æ´" "æµ" "æ¶" "æ·" "æ¸" "æ¹" "æº" "æ»" "æ¼" "æ½" "æ¾" "æ¿" "æÀ" "æÁ" "æÂ" "æÃ" "æÄ" "æÅ" "æÆ" "æÇ" "æÈ" "æÉ" "æÊ" "æË" "æÌ" "æÍ" "æÎ" "æÏ" "æÐ" "æÑ" "æÒ" "æÓ" "æÔ" "æÕ" "æÖ" "æ×" "æØ" "æÙ" "æÚ" "æÛ" "æÜ" "æÝ" "æÞ" "æß" "æà" "æá" "æâ" "æã" "æä" "æå" "ææ" "æç" "æè" "æé" "æê" "æë" "æì" "æí" "æî" "æï" "æð" "æñ" "æò" "æó" "æô" "æõ" "æö" "æ÷" "æø" "æù" "æú" "æû" "æü" "æý" "æþ" 71| "ç¡" "ç¢" "ç£" "ç¤" "ç¥" "ç¦" "ç§" "ç¨" "ç©" "çª" "ç«" "ç¬" "ç­" "ç®" "ç¯" "ç°" "ç±" "ç²" "ç³" "ç´" "çµ" "ç¶" "ç·" "ç¸" "ç¹" "çº" "ç»" "ç¼" "ç½" "ç¾" "ç¿" "çÀ" "çÁ" "çÂ" "çÃ" "çÄ" "çÅ" "çÆ" "çÇ" "çÈ" "çÉ" "çÊ" "çË" "çÌ" "çÍ" "çÎ" "çÏ" "çÐ" "çÑ" "çÒ" "çÓ" "çÔ" "çÕ" "çÖ" "ç×" "çØ" "çÙ" "çÚ" "çÛ" "çÜ" "çÝ" "çÞ" "çß" "çà" "çá" "çâ" "çã" "çä" "çå" "çæ" "çç" "çè" "çé" "çê" "çë" "çì" "çí" "çî" "çï" "çð" "çñ" "çò" "çó" "çô" "çõ" "çö" "ç÷" "çø" "çù" "çú" "çû" "çü" "çý" "çþ" 72| "è¡" "è¢" "è£" "è¤" "è¥" "è¦" "è§" "è¨" "è©" "èª" "è«" "è¬" "è­" "è®" "è¯" "è°" "è±" "è²" "è³" "è´" "èµ" "è¶" "è·" "è¸" "è¹" "èº" "è»" "è¼" "è½" "è¾" "è¿" "èÀ" "èÁ" "èÂ" "èÃ" "èÄ" "èÅ" "èÆ" "èÇ" "èÈ" "èÉ" "èÊ" "èË" "èÌ" "èÍ" "èÎ" "èÏ" "èÐ" "èÑ" "èÒ" "èÓ" "èÔ" "èÕ" "èÖ" "è×" "èØ" "èÙ" "èÚ" "èÛ" "èÜ" "èÝ" "èÞ" "èß" "èà" "èá" "èâ" "èã" "èä" "èå" "èæ" "èç" "èè" "èé" "èê" "èë" "èì" "èí" "èî" "èï" "èð" "èñ" "èò" "èó" "èô" "èõ" "èö" "è÷" "èø" "èù" "èú" "èû" "èü" "èý" "èþ" 73| "é¡" "é¢" "é£" "é¤" "é¥" "é¦" "é§" "é¨" "é©" "éª" "é«" "é¬" "é­" "é®" "é¯" "é°" "é±" "é²" "é³" "é´" "éµ" "é¶" "é·" "é¸" "é¹" "éº" "é»" "é¼" "é½" "é¾" "é¿" "éÀ" "éÁ" "éÂ" "éÃ" "éÄ" "éÅ" "éÆ" "éÇ" "éÈ" "éÉ" "éÊ" "éË" "éÌ" "éÍ" "éÎ" "éÏ" "éÐ" "éÑ" "éÒ" "éÓ" "éÔ" "éÕ" "éÖ" "é×" "éØ" "éÙ" "éÚ" "éÛ" "éÜ" "éÝ" "éÞ" "éß" "éà" "éá" "éâ" "éã" "éä" "éå" "éæ" "éç" "éè" "éé" "éê" "éë" "éì" "éí" "éî" "éï" "éð" "éñ" "éò" "éó" "éô" "éõ" "éö" "é÷" "éø" "éù" "éú" "éû" "éü" "éý" "éþ" 74| "ê¡" "ê¢" "ê£" "ê¤" "ê¥" "ê¦" "ê§" "ê¨" "ê©" "êª" "ê«" "ê¬" "ê­" "ê®" "ê¯" "ê°" "ê±" "ê²" "ê³" "ê´" "êµ" "ê¶" "ê·" "ê¸" "ê¹" "êº" "ê»" "ê¼" "ê½" "ê¾" "ê¿" "êÀ" "êÁ" "êÂ" "êÃ" "êÄ" "êÅ" "êÆ" "êÇ" "êÈ" "êÉ" "êÊ" "êË" "êÌ" "êÍ" "êÎ" "êÏ" "êÐ" "êÑ" "êÒ" "êÓ" "êÔ" "êÕ" "êÖ" "ê×" "êØ" "êÙ" "êÚ" "êÛ" "êÜ" "êÝ" "êÞ" "êß" "êà" "êá" "êâ" "êã" "êä" "êå" "êæ" "êç" "êè" "êé" "êê" "êë" "êì" "êí" "êî" "êï" "êð" "êñ" "êò" "êó" "êô" "êõ" "êö" "ê÷" "êø" "êù" "êú" "êû" "êü" "êý" "êþ" 75| "ë¡" "ë¢" "ë£" "ë¤" "ë¥" "ë¦" "ë§" "ë¨" "ë©" "ëª" "ë«" "ë¬" "ë­" "ë®" "ë¯" "ë°" "ë±" "ë²" "ë³" "ë´" "ëµ" "ë¶" "ë·" "ë¸" "ë¹" "ëº" "ë»" "ë¼" "ë½" "ë¾" "ë¿" "ëÀ" "ëÁ" "ëÂ" "ëÃ" "ëÄ" "ëÅ" "ëÆ" "ëÇ" "ëÈ" "ëÉ" "ëÊ" "ëË" "ëÌ" "ëÍ" "ëÎ" "ëÏ" "ëÐ" "ëÑ" "ëÒ" "ëÓ" "ëÔ" "ëÕ" "ëÖ" "ë×" "ëØ" "ëÙ" "ëÚ" "ëÛ" "ëÜ" "ëÝ" "ëÞ" "ëß" "ëà" "ëá" "ëâ" "ëã" "ëä" "ëå" "ëæ" "ëç" "ëè" "ëé" "ëê" "ëë" "ëì" "ëí" "ëî" "ëï" "ëð" "ëñ" "ëò" "ëó" "ëô" "ëõ" "ëö" "ë÷" "ëø" "ëù" "ëú" "ëû" "ëü" "ëý" "ëþ" 76| "ì¡" "ì¢" "ì£" "ì¤" "ì¥" "ì¦" "ì§" "ì¨" "ì©" "ìª" "ì«" "ì¬" "ì­" "ì®" "ì¯" "ì°" "ì±" "ì²" "ì³" "ì´" "ìµ" "ì¶" "ì·" "ì¸" "ì¹" "ìº" "ì»" "ì¼" "ì½" "ì¾" "ì¿" "ìÀ" "ìÁ" "ìÂ" "ìÃ" "ìÄ" "ìÅ" "ìÆ" "ìÇ" "ìÈ" "ìÉ" "ìÊ" "ìË" "ìÌ" "ìÍ" "ìÎ" "ìÏ" "ìÐ" "ìÑ" "ìÒ" "ìÓ" "ìÔ" "ìÕ" "ìÖ" "ì×" "ìØ" "ìÙ" "ìÚ" "ìÛ" "ìÜ" "ìÝ" "ìÞ" "ìß" "ìà" "ìá" "ìâ" "ìã" "ìä" "ìå" "ìæ" "ìç" "ìè" "ìé" "ìê" "ìë" "ìì" "ìí" "ìî" "ìï" "ìð" "ìñ" "ìò" "ìó" "ìô" "ìõ" "ìö" "ì÷" "ìø" "ìù" "ìú" "ìû" "ìü" "ìý" "ìþ" 77| "í¡" "í¢" "í£" "í¤" "í¥" "í¦" "í§" "í¨" "í©" "íª" "í«" "í¬" "í­" "í®" "í¯" "í°" "í±" "í²" "í³" "í´" "íµ" "í¶" "í·" "í¸" "í¹" "íº" "í»" "í¼" "í½" "í¾" "í¿" "íÀ" "íÁ" "íÂ" "íÃ" "íÄ" "íÅ" "íÆ" "íÇ" "íÈ" "íÉ" "íÊ" "íË" "íÌ" "íÍ" "íÎ" "íÏ" "íÐ" "íÑ" "íÒ" "íÓ" "íÔ" "íÕ" "íÖ" "í×" "íØ" "íÙ" "íÚ" "íÛ" "íÜ" "íÝ" "íÞ" "íß" "íà" "íá" "íâ" "íã" "íä" "íå" "íæ" "íç" "íè" "íé" "íê" "íë" "íì" "íí" "íî" "íï" "íð" "íñ" "íò" "íó" "íô" "íõ" "íö" "í÷" "íø" "íù" "íú" "íû" "íü" "íý" "íþ" 78| "î¡" "î¢" "î£" "î¤" "î¥" "î¦" "î§" "î¨" "î©" "îª" "î«" "î¬" "î­" "î®" "î¯" "î°" "î±" "î²" "î³" "î´" "îµ" "î¶" "î·" "î¸" "î¹" "îº" "î»" "î¼" "î½" "î¾" "î¿" "îÀ" "îÁ" "îÂ" "îÃ" "îÄ" "îÅ" "îÆ" "îÇ" "îÈ" "îÉ" "îÊ" "îË" "îÌ" "îÍ" "îÎ" "îÏ" "îÐ" "îÑ" "îÒ" "îÓ" "îÔ" "îÕ" "îÖ" "î×" "îØ" "îÙ" "îÚ" "îÛ" "îÜ" "îÝ" "îÞ" "îß" "îà" "îá" "îâ" "îã" "îä" "îå" "îæ" "îç" "îè" "îé" "îê" "îë" "îì" "îí" "îî" "îï" "îð" "îñ" "îò" "îó" "îô" "îõ" "îö" "î÷" "îø" "îù" "îú" "îû" "îü" "îý" "îþ" 79| "ï¡" "ï¢" "ï£" "ï¤" "ï¥" "ï¦" "ï§" "ï¨" "ï©" "ïª" "ï«" "ï¬" "ï­" "ï®" "ï¯" "ï°" "ï±" "ï²" "ï³" "ï´" "ïµ" "ï¶" "ï·" "ï¸" "ï¹" "ïº" "ï»" "ï¼" "ï½" "ï¾" "ï¿" "ïÀ" "ïÁ" "ïÂ" "ïÃ" "ïÄ" "ïÅ" "ïÆ" "ïÇ" "ïÈ" "ïÉ" "ïÊ" "ïË" "ïÌ" "ïÍ" "ïÎ" "ïÏ" "ïÐ" "ïÑ" "ïÒ" "ïÓ" "ïÔ" "ïÕ" "ïÖ" "ï×" "ïØ" "ïÙ" "ïÚ" "ïÛ" "ïÜ" "ïÝ" "ïÞ" "ïß" "ïà" "ïá" "ïâ" "ïã" "ïä" "ïå" "ïæ" "ïç" "ïè" "ïé" "ïê" "ïë" "ïì" "ïí" "ïî" "ïï" "ïð" "ïñ" "ïò" "ïó" "ïô" "ïõ" "ïö" "ï÷" "ïø" "ïù" "ïú" "ïû" "ïü" "ïý" "ïþ" 80| "ð¡" "ð¢" "ð£" "ð¤" "ð¥" "ð¦" "ð§" "ð¨" "ð©" "ðª" "ð«" "ð¬" "ð­" "ð®" "ð¯" "ð°" "ð±" "ð²" "ð³" "ð´" "ðµ" "ð¶" "ð·" "ð¸" "ð¹" "ðº" "ð»" "ð¼" "ð½" "ð¾" "ð¿" "ðÀ" "ðÁ" "ðÂ" "ðÃ" "ðÄ" "ðÅ" "ðÆ" "ðÇ" "ðÈ" "ðÉ" "ðÊ" "ðË" "ðÌ" "ðÍ" "ðÎ" "ðÏ" "ðÐ" "ðÑ" "ðÒ" "ðÓ" "ðÔ" "ðÕ" "ðÖ" "ð×" "ðØ" "ðÙ" "ðÚ" "ðÛ" "ðÜ" "ðÝ" "ðÞ" "ðß" "ðà" "ðá" "ðâ" "ðã" "ðä" "ðå" "ðæ" "ðç" "ðè" "ðé" "ðê" "ðë" "ðì" "ðí" "ðî" "ðï" "ðð" "ðñ" "ðò" "ðó" "ðô" "ðõ" "ðö" "ð÷" "ðø" "ðù" "ðú" "ðû" "ðü" "ðý" "ðþ" 81| "ñ¡" "ñ¢" "ñ£" "ñ¤" "ñ¥" "ñ¦" "ñ§" "ñ¨" "ñ©" "ñª" "ñ«" "ñ¬" "ñ­" "ñ®" "ñ¯" "ñ°" "ñ±" "ñ²" "ñ³" "ñ´" "ñµ" "ñ¶" "ñ·" "ñ¸" "ñ¹" "ñº" "ñ»" "ñ¼" "ñ½" "ñ¾" "ñ¿" "ñÀ" "ñÁ" "ñÂ" "ñÃ" "ñÄ" "ñÅ" "ñÆ" "ñÇ" "ñÈ" "ñÉ" "ñÊ" "ñË" "ñÌ" "ñÍ" "ñÎ" "ñÏ" "ñÐ" "ñÑ" "ñÒ" "ñÓ" "ñÔ" "ñÕ" "ñÖ" "ñ×" "ñØ" "ñÙ" "ñÚ" "ñÛ" "ñÜ" "ñÝ" "ñÞ" "ñß" "ñà" "ñá" "ñâ" "ñã" "ñä" "ñå" "ñæ" "ñç" "ñè" "ñé" "ñê" "ñë" "ñì" "ñí" "ñî" "ñï" "ñð" "ññ" "ñò" "ñó" "ñô" "ñõ" "ñö" "ñ÷" "ñø" "ñù" "ñú" "ñû" "ñü" "ñý" "ñþ" 82| "ò¡" "ò¢" "ò£" "ò¤" "ò¥" "ò¦" "ò§" "ò¨" "ò©" "òª" "ò«" "ò¬" "ò­" "ò®" "ò¯" "ò°" "ò±" "ò²" "ò³" "ò´" "òµ" "ò¶" "ò·" "ò¸" "ò¹" "òº" "ò»" "ò¼" "ò½" "ò¾" "ò¿" "òÀ" "òÁ" "òÂ" "òÃ" "òÄ" "òÅ" "òÆ" "òÇ" "òÈ" "òÉ" "òÊ" "òË" "òÌ" "òÍ" "òÎ" "òÏ" "òÐ" "òÑ" "òÒ" "òÓ" "òÔ" "òÕ" "òÖ" "ò×" "òØ" "òÙ" "òÚ" "òÛ" "òÜ" "òÝ" "òÞ" "òß" "òà" "òá" "òâ" "òã" "òä" "òå" "òæ" "òç" "òè" "òé" "òê" "òë" "òì" "òí" "òî" "òï" "òð" "òñ" "òò" "òó" "òô" "òõ" "òö" "ò÷" "òø" "òù" "òú" "òû" "òü" "òý" "òþ" 83| "ó¡" "ó¢" "ó£" "ó¤" "ó¥" "ó¦" "ó§" "ó¨" "ó©" "óª" "ó«" "ó¬" "ó­" "ó®" "ó¯" "ó°" "ó±" "ó²" "ó³" "ó´" "óµ" "ó¶" "ó·" "ó¸" "ó¹" "óº" "ó»" "ó¼" "ó½" "ó¾" "ó¿" "óÀ" "óÁ" "óÂ" "óÃ" "óÄ" "óÅ" "óÆ" "óÇ" "óÈ" "óÉ" "óÊ" "óË" "óÌ" "óÍ" "óÎ" "óÏ" "óÐ" "óÑ" "óÒ" "óÓ" "óÔ" "óÕ" "óÖ" "ó×" "óØ" "óÙ" "óÚ" "óÛ" "óÜ" "óÝ" "óÞ" "óß" "óà" "óá" "óâ" "óã" "óä" "óå" "óæ" "óç" "óè" "óé" "óê" "óë" "óì" "óí" "óî" "óï" "óð" "óñ" "óò" "óó" "óô" "óõ" "óö" "ó÷" "óø" "óù" "óú" "óû" "óü" "óý" "óþ" 84| "ô¡" "ô¢" "ô£" "ô¤" "ô¥" "ô¦" "ô§" "ô¨" "ô©" "ôª" "ô«" "ô¬" "ô­" "ô®" "ô¯" "ô°" "ô±" "ô²" "ô³" "ô´" "ôµ" "ô¶" "ô·" "ô¸" "ô¹" "ôº" "ô»" "ô¼" "ô½" "ô¾" "ô¿" "ôÀ" "ôÁ" "ôÂ" "ôÃ" "ôÄ" "ôÅ" "ôÆ" "ôÇ" "ôÈ" "ôÉ" "ôÊ" "ôË" "ôÌ" "ôÍ" "ôÎ" "ôÏ" "ôÐ" "ôÑ" "ôÒ" "ôÓ" "ôÔ" "ôÕ" "ôÖ" "ô×" "ôØ" "ôÙ" "ôÚ" "ôÛ" "ôÜ" "ôÝ" "ôÞ" "ôß" "ôà" "ôá" "ôâ" "ôã" "ôä" "ôå" "ôæ" "ôç" "ôè" "ôé" "ôê" "ôë" "ôì" "ôí" "ôî" "ôï" "ôð" "ôñ" "ôò" "ôó" "ôô" "ôõ" "ôö" "ô÷" "ôø" "ôù" "ôú" "ôû" "ôü" "ôý" "ôþ" 85| "õ¡" "õ¢" "õ£" "õ¤" "õ¥" "õ¦" "õ§" "õ¨" "õ©" "õª" "õ«" "õ¬" "õ­" "õ®" "õ¯" "õ°" "õ±" "õ²" "õ³" "õ´" "õµ" "õ¶" "õ·" "õ¸" "õ¹" "õº" "õ»" "õ¼" "õ½" "õ¾" "õ¿" "õÀ" "õÁ" "õÂ" "õÃ" "õÄ" "õÅ" "õÆ" "õÇ" "õÈ" "õÉ" "õÊ" "õË" "õÌ" "õÍ" "õÎ" "õÏ" "õÐ" "õÑ" "õÒ" "õÓ" "õÔ" "õÕ" "õÖ" "õ×" "õØ" "õÙ" "õÚ" "õÛ" "õÜ" "õÝ" "õÞ" "õß" "õà" "õá" "õâ" "õã" "õä" "õå" "õæ" "õç" "õè" "õé" "õê" "õë" "õì" "õí" "õî" "õï" "õð" "õñ" "õò" "õó" "õô" "õõ" "õö" "õ÷" "õø" "õù" "õú" "õû" "õü" "õý" "õþ" 86| "ö¡" "ö¢" "ö£" "ö¤" "ö¥" "ö¦" "ö§" "ö¨" "ö©" "öª" "ö«" "ö¬" "ö­" "ö®" "ö¯" "ö°" "ö±" "ö²" "ö³" "ö´" "öµ" "ö¶" "ö·" "ö¸" "ö¹" "öº" "ö»" "ö¼" "ö½" "ö¾" "ö¿" "öÀ" "öÁ" "öÂ" "öÃ" "öÄ" "öÅ" "öÆ" "öÇ" "öÈ" "öÉ" "öÊ" "öË" "öÌ" "öÍ" "öÎ" "öÏ" "öÐ" "öÑ" "öÒ" "öÓ" "öÔ" "öÕ" "öÖ" "ö×" "öØ" "öÙ" "öÚ" "öÛ" "öÜ" "öÝ" "öÞ" "öß" "öà" "öá" "öâ" "öã" "öä" "öå" "öæ" "öç" "öè" "öé" "öê" "öë" "öì" "öí" "öî" "öï" "öð" "öñ" "öò" "öó" "öô" "öõ" "öö" "ö÷" "öø" "öù" "öú" "öû" "öü" "öý" "öþ" 87| "÷¡" "÷¢" "÷£" "÷¤" "÷¥" "÷¦" "÷§" "÷¨" "÷©" "÷ª" "÷«" "÷¬" "÷­" "÷®" "÷¯" "÷°" "÷±" "÷²" "÷³" "÷´" "÷µ" "÷¶" "÷·" "÷¸" "÷¹" "÷º" "÷»" "÷¼" "÷½" "÷¾" "÷¿" "÷À" "÷Á" "÷Â" "÷Ã" "÷Ä" "÷Å" "÷Æ" "÷Ç" "÷È" "÷É" "÷Ê" "÷Ë" "÷Ì" "÷Í" "÷Î" "÷Ï" "÷Ð" "÷Ñ" "÷Ò" "÷Ó" "÷Ô" "÷Õ" "÷Ö" "÷×" "÷Ø" "÷Ù" "÷Ú" "÷Û" "÷Ü" "÷Ý" "÷Þ" "÷ß" "÷à" "÷á" "÷â" "÷ã" "÷ä" "÷å" "÷æ" "÷ç" "÷è" "÷é" "÷ê" "÷ë" "÷ì" "÷í" "÷î" "÷ï" "÷ð" "÷ñ" "÷ò" "÷ó" "÷ô" "÷õ" "÷ö" "÷÷" "÷ø" "÷ù" "÷ú" "÷û" "÷ü" "÷ý" "÷þ" 88| "ø¡" "ø¢" "ø£" "ø¤" "ø¥" "ø¦" "ø§" "ø¨" "ø©" "øª" "ø«" "ø¬" "ø­" "ø®" "ø¯" "ø°" "ø±" "ø²" "ø³" "ø´" "øµ" "ø¶" "ø·" "ø¸" "ø¹" "øº" "ø»" "ø¼" "ø½" "ø¾" "ø¿" "øÀ" "øÁ" "øÂ" "øÃ" "øÄ" "øÅ" "øÆ" "øÇ" "øÈ" "øÉ" "øÊ" "øË" "øÌ" "øÍ" "øÎ" "øÏ" "øÐ" "øÑ" "øÒ" "øÓ" "øÔ" "øÕ" "øÖ" "ø×" "øØ" "øÙ" "øÚ" "øÛ" "øÜ" "øÝ" "øÞ" "øß" "øà" "øá" "øâ" "øã" "øä" "øå" "øæ" "øç" "øè" "øé" "øê" "øë" "øì" "øí" "øî" "øï" "øð" "øñ" "øò" "øó" "øô" "øõ" "øö" "ø÷" "øø" "øù" "øú" "øû" "øü" "øý" "øþ" 89| "ù¡" "ù¢" "ù£" "ù¤" "ù¥" "ù¦" "ù§" "ù¨" "ù©" "ùª" "ù«" "ù¬" "ù­" "ù®" "ù¯" "ù°" "ù±" "ù²" "ù³" "ù´" "ùµ" "ù¶" "ù·" "ù¸" "ù¹" "ùº" "ù»" "ù¼" "ù½" "ù¾" "ù¿" "ùÀ" "ùÁ" "ùÂ" "ùÃ" "ùÄ" "ùÅ" "ùÆ" "ùÇ" "ùÈ" "ùÉ" "ùÊ" "ùË" "ùÌ" "ùÍ" "ùÎ" "ùÏ" "ùÐ" "ùÑ" "ùÒ" "ùÓ" "ùÔ" "ùÕ" "ùÖ" "ù×" "ùØ" "ùÙ" "ùÚ" "ùÛ" "ùÜ" "ùÝ" "ùÞ" "ùß" "ùà" "ùá" "ùâ" "ùã" "ùä" "ùå" "ùæ" "ùç" "ùè" "ùé" "ùê" "ùë" "ùì" "ùí" "ùî" "ùï" "ùð" "ùñ" "ùò" "ùó" "ùô" "ùõ" "ùö" "ù÷" "ùø" "ùù" "ùú" "ùû" "ùü" "ùý" "ùþ" 90| "ú¡" "ú¢" "ú£" "ú¤" "ú¥" "ú¦" "ú§" "ú¨" "ú©" "úª" "ú«" "ú¬" "ú­" "ú®" "ú¯" "ú°" "ú±" "ú²" "ú³" "ú´" "úµ" "ú¶" "ú·" "ú¸" "ú¹" "úº" "ú»" "ú¼" "ú½" "ú¾" "ú¿" "úÀ" "úÁ" "úÂ" "úÃ" "úÄ" "úÅ" "úÆ" "úÇ" "úÈ" "úÉ" "úÊ" "úË" "úÌ" "úÍ" "úÎ" "úÏ" "úÐ" "úÑ" "úÒ" "úÓ" "úÔ" "úÕ" "úÖ" "ú×" "úØ" "úÙ" "úÚ" "úÛ" "úÜ" "úÝ" "úÞ" "úß" "úà" "úá" "úâ" "úã" "úä" "úå" "úæ" "úç" "úè" "úé" "úê" "úë" "úì" "úí" "úî" "úï" "úð" "úñ" "úò" "úó" "úô" "úõ" "úö" "ú÷" "úø" "úù" "úú" "úû" "úü" "úý" "úþ" 91| "û¡" "û¢" "û£" "û¤" "û¥" "û¦" "û§" "û¨" "û©" "ûª" "û«" "û¬" "û­" "û®" "û¯" "û°" "û±" "û²" "û³" "û´" "ûµ" "û¶" "û·" "û¸" "û¹" "ûº" "û»" "û¼" "û½" "û¾" "û¿" "ûÀ" "ûÁ" "ûÂ" "ûÃ" "ûÄ" "ûÅ" "ûÆ" "ûÇ" "ûÈ" "ûÉ" "ûÊ" "ûË" "ûÌ" "ûÍ" "ûÎ" "ûÏ" "ûÐ" "ûÑ" "ûÒ" "ûÓ" "ûÔ" "ûÕ" "ûÖ" "û×" "ûØ" "ûÙ" "ûÚ" "ûÛ" "ûÜ" "ûÝ" "ûÞ" "ûß" "ûà" "ûá" "ûâ" "ûã" "ûä" "ûå" "ûæ" "ûç" "ûè" "ûé" "ûê" "ûë" "ûì" "ûí" "ûî" "ûï" "ûð" "ûñ" "ûò" "ûó" "ûô" "ûõ" "ûö" "û÷" "ûø" "ûù" "ûú" "ûû" "ûü" "ûý" "ûþ" 92| "ü¡" "ü¢" "ü£" "ü¤" "ü¥" "ü¦" "ü§" "ü¨" "ü©" "üª" "ü«" "ü¬" "ü­" "ü®" "ü¯" "ü°" "ü±" "ü²" "ü³" "ü´" "üµ" "ü¶" "ü·" "ü¸" "ü¹" "üº" "ü»" "ü¼" "ü½" "ü¾" "ü¿" "üÀ" "üÁ" "üÂ" "üÃ" "üÄ" "üÅ" "üÆ" "üÇ" "üÈ" "üÉ" "üÊ" "üË" "üÌ" "üÍ" "üÎ" "üÏ" "üÐ" "üÑ" "üÒ" "üÓ" "üÔ" "üÕ" "üÖ" "ü×" "üØ" "üÙ" "üÚ" "üÛ" "üÜ" "üÝ" "üÞ" "üß" "üà" "üá" "üâ" "üã" "üä" "üå" "üæ" "üç" "üè" "üé" "üê" "üë" "üì" "üí" "üî" "üï" "üð" "üñ" "üò" "üó" "üô" "üõ" "üö" "ü÷" "üø" "üù" "üú" "üû" "üü" "üý" "üþ" 93| "ý¡" "ý¢" "ý£" "ý¤" "ý¥" "ý¦" "ý§" "ý¨" "ý©" "ýª" "ý«" "ý¬" "ý­" "ý®" "ý¯" "ý°" "ý±" "ý²" "ý³" "ý´" "ýµ" "ý¶" "ý·" "ý¸" "ý¹" "ýº" "ý»" "ý¼" "ý½" "ý¾" "ý¿" "ýÀ" "ýÁ" "ýÂ" "ýÃ" "ýÄ" "ýÅ" "ýÆ" "ýÇ" "ýÈ" "ýÉ" "ýÊ" "ýË" "ýÌ" "ýÍ" "ýÎ" "ýÏ" "ýÐ" "ýÑ" "ýÒ" "ýÓ" "ýÔ" "ýÕ" "ýÖ" "ý×" "ýØ" "ýÙ" "ýÚ" "ýÛ" "ýÜ" "ýÝ" "ýÞ" "ýß" "ýà" "ýá" "ýâ" "ýã" "ýä" "ýå" "ýæ" "ýç" "ýè" "ýé" "ýê" "ýë" "ýì" "ýí" "ýî" "ýï" "ýð" "ýñ" "ýò" "ýó" "ýô" "ýõ" "ýö" "ý÷" "ýø" "ýù" "ýú" "ýû" "ýü" "ýý" "ýþ" 94| "þ¡" "þ¢" "þ£" "þ¤" "þ¥" "þ¦" "þ§" "þ¨" "þ©" "þª" "þ«" "þ¬" "þ­" "þ®" "þ¯" "þ°" "þ±" "þ²" "þ³" "þ´" "þµ" "þ¶" "þ·" "þ¸" "þ¹" "þº" "þ»" "þ¼" "þ½" "þ¾" "þ¿" "þÀ" "þÁ" "þÂ" "þÃ" "þÄ" "þÅ" "þÆ" "þÇ" "þÈ" "þÉ" "þÊ" "þË" "þÌ" "þÍ" "þÎ" "þÏ" "þÐ" "þÑ" "þÒ" "þÓ" "þÔ" "þÕ" "þÖ" "þ×" "þØ" "þÙ" "þÚ" "þÛ" "þÜ" "þÝ" "þÞ" "þß" "þà" "þá" "þâ" "þã" "þä" "þå" "þæ" "þç" "þè" "þé" "þê" "þë" "þì" "þí" "þî" "þï" "þð" "þñ" "þò" "þó" "þô" "þõ" "þö" "þ÷" "þø" "þù" "þú" "þû" "þü" "þý" "þþ" egg-4.0.6+0.20041122cvs/doc/code-table/euc.text0000644000764400003210000013072407234613643021714 0ustar ishikawaishikawa00000000000000;;; -*- coding: -*- | 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 -+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 01| "¡¡" "¡¢" "¡£" "¡¤" "¡¥" "¡¦" "¡§" "¡¨" "¡©" "¡ª" "¡«" "¡¬" "¡­" "¡®" "¡¯" "¡°" "¡±" "¡²" "¡³" "¡´" "¡µ" "¡¶" "¡·" "¡¸" "¡¹" "¡º" "¡»" "¡¼" "¡½" "¡¾" "¡¿" "¡À" "¡Á" "¡Â" "¡Ã" "¡Ä" "¡Å" "¡Æ" "¡Ç" "¡È" "¡É" "¡Ê" "¡Ë" "¡Ì" "¡Í" "¡Î" "¡Ï" "¡Ð" "¡Ñ" "¡Ò" "¡Ó" "¡Ô" "¡Õ" "¡Ö" "¡×" "¡Ø" "¡Ù" "¡Ú" "¡Û" "¡Ü" "¡Ý" "¡Þ" "¡ß" "¡à" "¡á" "¡â" "¡ã" "¡ä" "¡å" "¡æ" "¡ç" "¡è" "¡é" "¡ê" "¡ë" "¡ì" "¡í" "¡î" "¡ï" "¡ð" "¡ñ" "¡ò" "¡ó" "¡ô" "¡õ" "¡ö" "¡÷" "¡ø" "¡ù" "¡ú" "¡û" "¡ü" "¡ý" "¡þ" 02| "¢¡" "¢¢" "¢£" "¢¤" "¢¥" "¢¦" "¢§" "¢¨" "¢©" "¢ª" "¢«" "¢¬" "¢­" "¢®" "¢¯" "¢°" "¢±" "¢²" "¢³" "¢´" "¢µ" "¢¶" "¢·" "¢¸" "¢¹" "¢º" "¢»" "¢¼" "¢½" "¢¾" "¢¿" "¢À" "¢Á" "¢Â" "¢Ã" "¢Ä" "¢Å" "¢Æ" "¢Ç" "¢È" "¢É" "¢Ê" "¢Ë" "¢Ì" "¢Í" "¢Î" "¢Ï" "¢Ð" "¢Ñ" "¢Ò" "¢Ó" "¢Ô" "¢Õ" "¢Ö" "¢×" "¢Ø" "¢Ù" "¢Ú" "¢Û" "¢Ü" "¢Ý" "¢Þ" "¢ß" "¢à" "¢á" "¢â" "¢ã" "¢ä" "¢å" "¢æ" "¢ç" "¢è" "¢é" "¢ê" "¢ë" "¢ì" "¢í" "¢î" "¢ï" "¢ð" "¢ñ" "¢ò" "¢ó" "¢ô" "¢õ" "¢ö" "¢÷" "¢ø" "¢ù" "¢ú" "¢û" "¢ü" "¢ý" "¢þ" 03| "£¡" "£¢" "££" "£¤" "£¥" "£¦" "£§" "£¨" "£©" "£ª" "£«" "£¬" "£­" "£®" "£¯" "£°" "£±" "£²" "£³" "£´" "£µ" "£¶" "£·" "£¸" "£¹" "£º" "£»" "£¼" "£½" "£¾" "£¿" "£À" "£Á" "£Â" "£Ã" "£Ä" "£Å" "£Æ" "£Ç" "£È" "£É" "£Ê" "£Ë" "£Ì" "£Í" "£Î" "£Ï" "£Ð" "£Ñ" "£Ò" "£Ó" "£Ô" "£Õ" "£Ö" "£×" "£Ø" "£Ù" "£Ú" "£Û" "£Ü" "£Ý" "£Þ" "£ß" "£à" "£á" "£â" "£ã" "£ä" "£å" "£æ" "£ç" "£è" "£é" "£ê" "£ë" "£ì" "£í" "£î" "£ï" "£ð" "£ñ" "£ò" "£ó" "£ô" "£õ" "£ö" "£÷" "£ø" "£ù" "£ú" "£û" "£ü" "£ý" "£þ" 04| "¤¡" "¤¢" "¤£" "¤¤" "¤¥" "¤¦" "¤§" "¤¨" "¤©" "¤ª" "¤«" "¤¬" "¤­" "¤®" "¤¯" "¤°" "¤±" "¤²" "¤³" "¤´" "¤µ" "¤¶" "¤·" "¤¸" "¤¹" "¤º" "¤»" "¤¼" "¤½" "¤¾" "¤¿" "¤À" "¤Á" "¤Â" "¤Ã" "¤Ä" "¤Å" "¤Æ" "¤Ç" "¤È" "¤É" "¤Ê" "¤Ë" "¤Ì" "¤Í" "¤Î" "¤Ï" "¤Ð" "¤Ñ" "¤Ò" "¤Ó" "¤Ô" "¤Õ" "¤Ö" "¤×" "¤Ø" "¤Ù" "¤Ú" "¤Û" "¤Ü" "¤Ý" "¤Þ" "¤ß" "¤à" "¤á" "¤â" "¤ã" "¤ä" "¤å" "¤æ" "¤ç" "¤è" "¤é" "¤ê" "¤ë" "¤ì" "¤í" "¤î" "¤ï" "¤ð" "¤ñ" "¤ò" "¤ó" "¤ô" "¤õ" "¤ö" "¤÷" "¤ø" "¤ù" "¤ú" "¤û" "¤ü" "¤ý" "¤þ" 05| "¥¡" "¥¢" "¥£" "¥¤" "¥¥" "¥¦" "¥§" "¥¨" "¥©" "¥ª" "¥«" "¥¬" "¥­" "¥®" "¥¯" "¥°" "¥±" "¥²" "¥³" "¥´" "¥µ" "¥¶" "¥·" "¥¸" "¥¹" "¥º" "¥»" "¥¼" "¥½" "¥¾" "¥¿" "¥À" "¥Á" "¥Â" "¥Ã" "¥Ä" "¥Å" "¥Æ" "¥Ç" "¥È" "¥É" "¥Ê" "¥Ë" "¥Ì" "¥Í" "¥Î" "¥Ï" "¥Ð" "¥Ñ" "¥Ò" "¥Ó" "¥Ô" "¥Õ" "¥Ö" "¥×" "¥Ø" "¥Ù" "¥Ú" "¥Û" "¥Ü" "¥Ý" "¥Þ" "¥ß" "¥à" "¥á" "¥â" "¥ã" "¥ä" "¥å" "¥æ" "¥ç" "¥è" "¥é" "¥ê" "¥ë" "¥ì" "¥í" "¥î" "¥ï" "¥ð" "¥ñ" "¥ò" "¥ó" "¥ô" "¥õ" "¥ö" "¥÷" "¥ø" "¥ù" "¥ú" "¥û" "¥ü" "¥ý" "¥þ" 06| "¦¡" "¦¢" "¦£" "¦¤" "¦¥" "¦¦" "¦§" "¦¨" "¦©" "¦ª" "¦«" "¦¬" "¦­" "¦®" "¦¯" "¦°" "¦±" "¦²" "¦³" "¦´" "¦µ" "¦¶" "¦·" "¦¸" "¦¹" "¦º" "¦»" "¦¼" "¦½" "¦¾" "¦¿" "¦À" "¦Á" "¦Â" "¦Ã" "¦Ä" "¦Å" "¦Æ" "¦Ç" "¦È" "¦É" "¦Ê" "¦Ë" "¦Ì" "¦Í" "¦Î" "¦Ï" "¦Ð" "¦Ñ" "¦Ò" "¦Ó" "¦Ô" "¦Õ" "¦Ö" "¦×" "¦Ø" "¦Ù" "¦Ú" "¦Û" "¦Ü" "¦Ý" "¦Þ" "¦ß" "¦à" "¦á" "¦â" "¦ã" "¦ä" "¦å" "¦æ" "¦ç" "¦è" "¦é" "¦ê" "¦ë" "¦ì" "¦í" "¦î" "¦ï" "¦ð" "¦ñ" "¦ò" "¦ó" "¦ô" "¦õ" "¦ö" "¦÷" "¦ø" "¦ù" "¦ú" "¦û" "¦ü" "¦ý" "¦þ" 07| "§¡" "§¢" "§£" "§¤" "§¥" "§¦" "§§" "§¨" "§©" "§ª" "§«" "§¬" "§­" "§®" "§¯" "§°" "§±" "§²" "§³" "§´" "§µ" "§¶" "§·" "§¸" "§¹" "§º" "§»" "§¼" "§½" "§¾" "§¿" "§À" "§Á" "§Â" "§Ã" "§Ä" "§Å" "§Æ" "§Ç" "§È" "§É" "§Ê" "§Ë" "§Ì" "§Í" "§Î" "§Ï" "§Ð" "§Ñ" "§Ò" "§Ó" "§Ô" "§Õ" "§Ö" "§×" "§Ø" "§Ù" "§Ú" "§Û" "§Ü" "§Ý" "§Þ" "§ß" "§à" "§á" "§â" "§ã" "§ä" "§å" "§æ" "§ç" "§è" "§é" "§ê" "§ë" "§ì" "§í" "§î" "§ï" "§ð" "§ñ" "§ò" "§ó" "§ô" "§õ" "§ö" "§÷" "§ø" "§ù" "§ú" "§û" "§ü" "§ý" "§þ" 08| "¨¡" "¨¢" "¨£" "¨¤" "¨¥" "¨¦" "¨§" "¨¨" "¨©" "¨ª" "¨«" "¨¬" "¨­" "¨®" "¨¯" "¨°" "¨±" "¨²" "¨³" "¨´" "¨µ" "¨¶" "¨·" "¨¸" "¨¹" "¨º" "¨»" "¨¼" "¨½" "¨¾" "¨¿" "¨À" "¨Á" "¨Â" "¨Ã" "¨Ä" "¨Å" "¨Æ" "¨Ç" "¨È" "¨É" "¨Ê" "¨Ë" "¨Ì" "¨Í" "¨Î" "¨Ï" "¨Ð" "¨Ñ" "¨Ò" "¨Ó" "¨Ô" "¨Õ" "¨Ö" "¨×" "¨Ø" "¨Ù" "¨Ú" "¨Û" "¨Ü" "¨Ý" "¨Þ" "¨ß" "¨à" "¨á" "¨â" "¨ã" "¨ä" "¨å" "¨æ" "¨ç" "¨è" "¨é" "¨ê" "¨ë" "¨ì" "¨í" "¨î" "¨ï" "¨ð" "¨ñ" "¨ò" "¨ó" "¨ô" "¨õ" "¨ö" "¨÷" "¨ø" "¨ù" "¨ú" "¨û" "¨ü" "¨ý" "¨þ" 09| "©¡" "©¢" "©£" "©¤" "©¥" "©¦" "©§" "©¨" "©©" "©ª" "©«" "©¬" "©­" "©®" "©¯" "©°" "©±" "©²" "©³" "©´" "©µ" "©¶" "©·" "©¸" "©¹" "©º" "©»" "©¼" "©½" "©¾" "©¿" "©À" "©Á" "©Â" "©Ã" "©Ä" "©Å" "©Æ" "©Ç" "©È" "©É" "©Ê" "©Ë" "©Ì" "©Í" "©Î" "©Ï" "©Ð" "©Ñ" "©Ò" "©Ó" "©Ô" "©Õ" "©Ö" "©×" "©Ø" "©Ù" "©Ú" "©Û" "©Ü" "©Ý" "©Þ" "©ß" "©à" "©á" "©â" "©ã" "©ä" "©å" "©æ" "©ç" "©è" "©é" "©ê" "©ë" "©ì" "©í" "©î" "©ï" "©ð" "©ñ" "©ò" "©ó" "©ô" "©õ" "©ö" "©÷" "©ø" "©ù" "©ú" "©û" "©ü" "©ý" "©þ" 10| "ª¡" "ª¢" "ª£" "ª¤" "ª¥" "ª¦" "ª§" "ª¨" "ª©" "ªª" "ª«" "ª¬" "ª­" "ª®" "ª¯" "ª°" "ª±" "ª²" "ª³" "ª´" "ªµ" "ª¶" "ª·" "ª¸" "ª¹" "ªº" "ª»" "ª¼" "ª½" "ª¾" "ª¿" "ªÀ" "ªÁ" "ªÂ" "ªÃ" "ªÄ" "ªÅ" "ªÆ" "ªÇ" "ªÈ" "ªÉ" "ªÊ" "ªË" "ªÌ" "ªÍ" "ªÎ" "ªÏ" "ªÐ" "ªÑ" "ªÒ" "ªÓ" "ªÔ" "ªÕ" "ªÖ" "ª×" "ªØ" "ªÙ" "ªÚ" "ªÛ" "ªÜ" "ªÝ" "ªÞ" "ªß" "ªà" "ªá" "ªâ" "ªã" "ªä" "ªå" "ªæ" "ªç" "ªè" "ªé" "ªê" "ªë" "ªì" "ªí" "ªî" "ªï" "ªð" "ªñ" "ªò" "ªó" "ªô" "ªõ" "ªö" "ª÷" "ªø" "ªù" "ªú" "ªû" "ªü" "ªý" "ªþ" 11| "«¡" "«¢" "«£" "«¤" "«¥" "«¦" "«§" "«¨" "«©" "«ª" "««" "«¬" "«­" "«®" "«¯" "«°" "«±" "«²" "«³" "«´" "«µ" "«¶" "«·" "«¸" "«¹" "«º" "«»" "«¼" "«½" "«¾" "«¿" "«À" "«Á" "«Â" "«Ã" "«Ä" "«Å" "«Æ" "«Ç" "«È" "«É" "«Ê" "«Ë" "«Ì" "«Í" "«Î" "«Ï" "«Ð" "«Ñ" "«Ò" "«Ó" "«Ô" "«Õ" "«Ö" "«×" "«Ø" "«Ù" "«Ú" "«Û" "«Ü" "«Ý" "«Þ" "«ß" "«à" "«á" "«â" "«ã" "«ä" "«å" "«æ" "«ç" "«è" "«é" "«ê" "«ë" "«ì" "«í" "«î" "«ï" "«ð" "«ñ" "«ò" "«ó" "«ô" "«õ" "«ö" "«÷" "«ø" "«ù" "«ú" "«û" "«ü" "«ý" "«þ" 12| "¬¡" "¬¢" "¬£" "¬¤" "¬¥" "¬¦" "¬§" "¬¨" "¬©" "¬ª" "¬«" "¬¬" "¬­" "¬®" "¬¯" "¬°" "¬±" "¬²" "¬³" "¬´" "¬µ" "¬¶" "¬·" "¬¸" "¬¹" "¬º" "¬»" "¬¼" "¬½" "¬¾" "¬¿" "¬À" "¬Á" "¬Â" "¬Ã" "¬Ä" "¬Å" "¬Æ" "¬Ç" "¬È" "¬É" "¬Ê" "¬Ë" "¬Ì" "¬Í" "¬Î" "¬Ï" "¬Ð" "¬Ñ" "¬Ò" "¬Ó" "¬Ô" "¬Õ" "¬Ö" "¬×" "¬Ø" "¬Ù" "¬Ú" "¬Û" "¬Ü" "¬Ý" "¬Þ" "¬ß" "¬à" "¬á" "¬â" "¬ã" "¬ä" "¬å" "¬æ" "¬ç" "¬è" "¬é" "¬ê" "¬ë" "¬ì" "¬í" "¬î" "¬ï" "¬ð" "¬ñ" "¬ò" "¬ó" "¬ô" "¬õ" "¬ö" "¬÷" "¬ø" "¬ù" "¬ú" "¬û" "¬ü" "¬ý" "¬þ" 13| "­¡" "­¢" "­£" "­¤" "­¥" "­¦" "­§" "­¨" "­©" "­ª" "­«" "­¬" "­­" "­®" "­¯" "­°" "­±" "­²" "­³" "­´" "­µ" "­¶" "­·" "­¸" "­¹" "­º" "­»" "­¼" "­½" "­¾" "­¿" "­À" "­Á" "­Â" "­Ã" "­Ä" "­Å" "­Æ" "­Ç" "­È" "­É" "­Ê" "­Ë" "­Ì" "­Í" "­Î" "­Ï" "­Ð" "­Ñ" "­Ò" "­Ó" "­Ô" "­Õ" "­Ö" "­×" "­Ø" "­Ù" "­Ú" "­Û" "­Ü" "­Ý" "­Þ" "­ß" "­à" "­á" "­â" "­ã" "­ä" "­å" "­æ" "­ç" "­è" "­é" "­ê" "­ë" "­ì" "­í" "­î" "­ï" "­ð" "­ñ" "­ò" "­ó" "­ô" "­õ" "­ö" "­÷" "­ø" "­ù" "­ú" "­û" "­ü" "­ý" "­þ" 14| "®¡" "®¢" "®£" "®¤" "®¥" "®¦" "®§" "®¨" "®©" "®ª" "®«" "®¬" "®­" "®®" "®¯" "®°" "®±" "®²" "®³" "®´" "®µ" "®¶" "®·" "®¸" "®¹" "®º" "®»" "®¼" "®½" "®¾" "®¿" "®À" "®Á" "®Â" "®Ã" "®Ä" "®Å" "®Æ" "®Ç" "®È" "®É" "®Ê" "®Ë" "®Ì" "®Í" "®Î" "®Ï" "®Ð" "®Ñ" "®Ò" "®Ó" "®Ô" "®Õ" "®Ö" "®×" "®Ø" "®Ù" "®Ú" "®Û" "®Ü" "®Ý" "®Þ" "®ß" "®à" "®á" "®â" "®ã" "®ä" "®å" "®æ" "®ç" "®è" "®é" "®ê" "®ë" "®ì" "®í" "®î" "®ï" "®ð" "®ñ" "®ò" "®ó" "®ô" "®õ" "®ö" "®÷" "®ø" "®ù" "®ú" "®û" "®ü" "®ý" "®þ" 15| "¯¡" "¯¢" "¯£" "¯¤" "¯¥" "¯¦" "¯§" "¯¨" "¯©" "¯ª" "¯«" "¯¬" "¯­" "¯®" "¯¯" "¯°" "¯±" "¯²" "¯³" "¯´" "¯µ" "¯¶" "¯·" "¯¸" "¯¹" "¯º" "¯»" "¯¼" "¯½" "¯¾" "¯¿" "¯À" "¯Á" "¯Â" "¯Ã" "¯Ä" "¯Å" "¯Æ" "¯Ç" "¯È" "¯É" "¯Ê" "¯Ë" "¯Ì" "¯Í" "¯Î" "¯Ï" "¯Ð" "¯Ñ" "¯Ò" "¯Ó" "¯Ô" "¯Õ" "¯Ö" "¯×" "¯Ø" "¯Ù" "¯Ú" "¯Û" "¯Ü" "¯Ý" "¯Þ" "¯ß" "¯à" "¯á" "¯â" "¯ã" "¯ä" "¯å" "¯æ" "¯ç" "¯è" "¯é" "¯ê" "¯ë" "¯ì" "¯í" "¯î" "¯ï" "¯ð" "¯ñ" "¯ò" "¯ó" "¯ô" "¯õ" "¯ö" "¯÷" "¯ø" "¯ù" "¯ú" "¯û" "¯ü" "¯ý" "¯þ" 16| "°¡" "°¢" "°£" "°¤" "°¥" "°¦" "°§" "°¨" "°©" "°ª" "°«" "°¬" "°­" "°®" "°¯" "°°" "°±" "°²" "°³" "°´" "°µ" "°¶" "°·" "°¸" "°¹" "°º" "°»" "°¼" "°½" "°¾" "°¿" "°À" "°Á" "°Â" "°Ã" "°Ä" "°Å" "°Æ" "°Ç" "°È" "°É" "°Ê" "°Ë" "°Ì" "°Í" "°Î" "°Ï" "°Ð" "°Ñ" "°Ò" "°Ó" "°Ô" "°Õ" "°Ö" "°×" "°Ø" "°Ù" "°Ú" "°Û" "°Ü" "°Ý" "°Þ" "°ß" "°à" "°á" "°â" "°ã" "°ä" "°å" "°æ" "°ç" "°è" "°é" "°ê" "°ë" "°ì" "°í" "°î" "°ï" "°ð" "°ñ" "°ò" "°ó" "°ô" "°õ" "°ö" "°÷" "°ø" "°ù" "°ú" "°û" "°ü" "°ý" "°þ" 17| "±¡" "±¢" "±£" "±¤" "±¥" "±¦" "±§" "±¨" "±©" "±ª" "±«" "±¬" "±­" "±®" "±¯" "±°" "±±" "±²" "±³" "±´" "±µ" "±¶" "±·" "±¸" "±¹" "±º" "±»" "±¼" "±½" "±¾" "±¿" "±À" "±Á" "±Â" "±Ã" "±Ä" "±Å" "±Æ" "±Ç" "±È" "±É" "±Ê" "±Ë" "±Ì" "±Í" "±Î" "±Ï" "±Ð" "±Ñ" "±Ò" "±Ó" "±Ô" "±Õ" "±Ö" "±×" "±Ø" "±Ù" "±Ú" "±Û" "±Ü" "±Ý" "±Þ" "±ß" "±à" "±á" "±â" "±ã" "±ä" "±å" "±æ" "±ç" "±è" "±é" "±ê" "±ë" "±ì" "±í" "±î" "±ï" "±ð" "±ñ" "±ò" "±ó" "±ô" "±õ" "±ö" "±÷" "±ø" "±ù" "±ú" "±û" "±ü" "±ý" "±þ" 18| "²¡" "²¢" "²£" "²¤" "²¥" "²¦" "²§" "²¨" "²©" "²ª" "²«" "²¬" "²­" "²®" "²¯" "²°" "²±" "²²" "²³" "²´" "²µ" "²¶" "²·" "²¸" "²¹" "²º" "²»" "²¼" "²½" "²¾" "²¿" "²À" "²Á" "²Â" "²Ã" "²Ä" "²Å" "²Æ" "²Ç" "²È" "²É" "²Ê" "²Ë" "²Ì" "²Í" "²Î" "²Ï" "²Ð" "²Ñ" "²Ò" "²Ó" "²Ô" "²Õ" "²Ö" "²×" "²Ø" "²Ù" "²Ú" "²Û" "²Ü" "²Ý" "²Þ" "²ß" "²à" "²á" "²â" "²ã" "²ä" "²å" "²æ" "²ç" "²è" "²é" "²ê" "²ë" "²ì" "²í" "²î" "²ï" "²ð" "²ñ" "²ò" "²ó" "²ô" "²õ" "²ö" "²÷" "²ø" "²ù" "²ú" "²û" "²ü" "²ý" "²þ" 19| "³¡" "³¢" "³£" "³¤" "³¥" "³¦" "³§" "³¨" "³©" "³ª" "³«" "³¬" "³­" "³®" "³¯" "³°" "³±" "³²" "³³" "³´" "³µ" "³¶" "³·" "³¸" "³¹" "³º" "³»" "³¼" "³½" "³¾" "³¿" "³À" "³Á" "³Â" "³Ã" "³Ä" "³Å" "³Æ" "³Ç" "³È" "³É" "³Ê" "³Ë" "³Ì" "³Í" "³Î" "³Ï" "³Ð" "³Ñ" "³Ò" "³Ó" "³Ô" "³Õ" "³Ö" "³×" "³Ø" "³Ù" "³Ú" "³Û" "³Ü" "³Ý" "³Þ" "³ß" "³à" "³á" "³â" "³ã" "³ä" "³å" "³æ" "³ç" "³è" "³é" "³ê" "³ë" "³ì" "³í" "³î" "³ï" "³ð" "³ñ" "³ò" "³ó" "³ô" "³õ" "³ö" "³÷" "³ø" "³ù" "³ú" "³û" "³ü" "³ý" "³þ" 20| "´¡" "´¢" "´£" "´¤" "´¥" "´¦" "´§" "´¨" "´©" "´ª" "´«" "´¬" "´­" "´®" "´¯" "´°" "´±" "´²" "´³" "´´" "´µ" "´¶" "´·" "´¸" "´¹" "´º" "´»" "´¼" "´½" "´¾" "´¿" "´À" "´Á" "´Â" "´Ã" "´Ä" "´Å" "´Æ" "´Ç" "´È" "´É" "´Ê" "´Ë" "´Ì" "´Í" "´Î" "´Ï" "´Ð" "´Ñ" "´Ò" "´Ó" "´Ô" "´Õ" "´Ö" "´×" "´Ø" "´Ù" "´Ú" "´Û" "´Ü" "´Ý" "´Þ" "´ß" "´à" "´á" "´â" "´ã" "´ä" "´å" "´æ" "´ç" "´è" "´é" "´ê" "´ë" "´ì" "´í" "´î" "´ï" "´ð" "´ñ" "´ò" "´ó" "´ô" "´õ" "´ö" "´÷" "´ø" "´ù" "´ú" "´û" "´ü" "´ý" "´þ" 21| "µ¡" "µ¢" "µ£" "µ¤" "µ¥" "µ¦" "µ§" "µ¨" "µ©" "µª" "µ«" "µ¬" "µ­" "µ®" "µ¯" "µ°" "µ±" "µ²" "µ³" "µ´" "µµ" "µ¶" "µ·" "µ¸" "µ¹" "µº" "µ»" "µ¼" "µ½" "µ¾" "µ¿" "µÀ" "µÁ" "µÂ" "µÃ" "µÄ" "µÅ" "µÆ" "µÇ" "µÈ" "µÉ" "µÊ" "µË" "µÌ" "µÍ" "µÎ" "µÏ" "µÐ" "µÑ" "µÒ" "µÓ" "µÔ" "µÕ" "µÖ" "µ×" "µØ" "µÙ" "µÚ" "µÛ" "µÜ" "µÝ" "µÞ" "µß" "µà" "µá" "µâ" "µã" "µä" "µå" "µæ" "µç" "µè" "µé" "µê" "µë" "µì" "µí" "µî" "µï" "µð" "µñ" "µò" "µó" "µô" "µõ" "µö" "µ÷" "µø" "µù" "µú" "µû" "µü" "µý" "µþ" 22| "¶¡" "¶¢" "¶£" "¶¤" "¶¥" "¶¦" "¶§" "¶¨" "¶©" "¶ª" "¶«" "¶¬" "¶­" "¶®" "¶¯" "¶°" "¶±" "¶²" "¶³" "¶´" "¶µ" "¶¶" "¶·" "¶¸" "¶¹" "¶º" "¶»" "¶¼" "¶½" "¶¾" "¶¿" "¶À" "¶Á" "¶Â" "¶Ã" "¶Ä" "¶Å" "¶Æ" "¶Ç" "¶È" "¶É" "¶Ê" "¶Ë" "¶Ì" "¶Í" "¶Î" "¶Ï" "¶Ð" "¶Ñ" "¶Ò" "¶Ó" "¶Ô" "¶Õ" "¶Ö" "¶×" "¶Ø" "¶Ù" "¶Ú" "¶Û" "¶Ü" "¶Ý" "¶Þ" "¶ß" "¶à" "¶á" "¶â" "¶ã" "¶ä" "¶å" "¶æ" "¶ç" "¶è" "¶é" "¶ê" "¶ë" "¶ì" "¶í" "¶î" "¶ï" "¶ð" "¶ñ" "¶ò" "¶ó" "¶ô" "¶õ" "¶ö" "¶÷" "¶ø" "¶ù" "¶ú" "¶û" "¶ü" "¶ý" "¶þ" 23| "·¡" "·¢" "·£" "·¤" "·¥" "·¦" "·§" "·¨" "·©" "·ª" "·«" "·¬" "·­" "·®" "·¯" "·°" "·±" "·²" "·³" "·´" "·µ" "·¶" "··" "·¸" "·¹" "·º" "·»" "·¼" "·½" "·¾" "·¿" "·À" "·Á" "·Â" "·Ã" "·Ä" "·Å" "·Æ" "·Ç" "·È" "·É" "·Ê" "·Ë" "·Ì" "·Í" "·Î" "·Ï" "·Ð" "·Ñ" "·Ò" "·Ó" "·Ô" "·Õ" "·Ö" "·×" "·Ø" "·Ù" "·Ú" "·Û" "·Ü" "·Ý" "·Þ" "·ß" "·à" "·á" "·â" "·ã" "·ä" "·å" "·æ" "·ç" "·è" "·é" "·ê" "·ë" "·ì" "·í" "·î" "·ï" "·ð" "·ñ" "·ò" "·ó" "·ô" "·õ" "·ö" "·÷" "·ø" "·ù" "·ú" "·û" "·ü" "·ý" "·þ" 24| "¸¡" "¸¢" "¸£" "¸¤" "¸¥" "¸¦" "¸§" "¸¨" "¸©" "¸ª" "¸«" "¸¬" "¸­" "¸®" "¸¯" "¸°" "¸±" "¸²" "¸³" "¸´" "¸µ" "¸¶" "¸·" "¸¸" "¸¹" "¸º" "¸»" "¸¼" "¸½" "¸¾" "¸¿" "¸À" "¸Á" "¸Â" "¸Ã" "¸Ä" "¸Å" "¸Æ" "¸Ç" "¸È" "¸É" "¸Ê" "¸Ë" "¸Ì" "¸Í" "¸Î" "¸Ï" "¸Ð" "¸Ñ" "¸Ò" "¸Ó" "¸Ô" "¸Õ" "¸Ö" "¸×" "¸Ø" "¸Ù" "¸Ú" "¸Û" "¸Ü" "¸Ý" "¸Þ" "¸ß" "¸à" "¸á" "¸â" "¸ã" "¸ä" "¸å" "¸æ" "¸ç" "¸è" "¸é" "¸ê" "¸ë" "¸ì" "¸í" "¸î" "¸ï" "¸ð" "¸ñ" "¸ò" "¸ó" "¸ô" "¸õ" "¸ö" "¸÷" "¸ø" "¸ù" "¸ú" "¸û" "¸ü" "¸ý" "¸þ" 25| "¹¡" "¹¢" "¹£" "¹¤" "¹¥" "¹¦" "¹§" "¹¨" "¹©" "¹ª" "¹«" "¹¬" "¹­" "¹®" "¹¯" "¹°" "¹±" "¹²" "¹³" "¹´" "¹µ" "¹¶" "¹·" "¹¸" "¹¹" "¹º" "¹»" "¹¼" "¹½" "¹¾" "¹¿" "¹À" "¹Á" "¹Â" "¹Ã" "¹Ä" "¹Å" "¹Æ" "¹Ç" "¹È" "¹É" "¹Ê" "¹Ë" "¹Ì" "¹Í" "¹Î" "¹Ï" "¹Ð" "¹Ñ" "¹Ò" "¹Ó" "¹Ô" "¹Õ" "¹Ö" "¹×" "¹Ø" "¹Ù" "¹Ú" "¹Û" "¹Ü" "¹Ý" "¹Þ" "¹ß" "¹à" "¹á" "¹â" "¹ã" "¹ä" "¹å" "¹æ" "¹ç" "¹è" "¹é" "¹ê" "¹ë" "¹ì" "¹í" "¹î" "¹ï" "¹ð" "¹ñ" "¹ò" "¹ó" "¹ô" "¹õ" "¹ö" "¹÷" "¹ø" "¹ù" "¹ú" "¹û" "¹ü" "¹ý" "¹þ" 26| "º¡" "º¢" "º£" "º¤" "º¥" "º¦" "º§" "º¨" "º©" "ºª" "º«" "º¬" "º­" "º®" "º¯" "º°" "º±" "º²" "º³" "º´" "ºµ" "º¶" "º·" "º¸" "º¹" "ºº" "º»" "º¼" "º½" "º¾" "º¿" "ºÀ" "ºÁ" "ºÂ" "ºÃ" "ºÄ" "ºÅ" "ºÆ" "ºÇ" "ºÈ" "ºÉ" "ºÊ" "ºË" "ºÌ" "ºÍ" "ºÎ" "ºÏ" "ºÐ" "ºÑ" "ºÒ" "ºÓ" "ºÔ" "ºÕ" "ºÖ" "º×" "ºØ" "ºÙ" "ºÚ" "ºÛ" "ºÜ" "ºÝ" "ºÞ" "ºß" "ºà" "ºá" "ºâ" "ºã" "ºä" "ºå" "ºæ" "ºç" "ºè" "ºé" "ºê" "ºë" "ºì" "ºí" "ºî" "ºï" "ºð" "ºñ" "ºò" "ºó" "ºô" "ºõ" "ºö" "º÷" "ºø" "ºù" "ºú" "ºû" "ºü" "ºý" "ºþ" 27| "»¡" "»¢" "»£" "»¤" "»¥" "»¦" "»§" "»¨" "»©" "»ª" "»«" "»¬" "»­" "»®" "»¯" "»°" "»±" "»²" "»³" "»´" "»µ" "»¶" "»·" "»¸" "»¹" "»º" "»»" "»¼" "»½" "»¾" "»¿" "»À" "»Á" "»Â" "»Ã" "»Ä" "»Å" "»Æ" "»Ç" "»È" "»É" "»Ê" "»Ë" "»Ì" "»Í" "»Î" "»Ï" "»Ð" "»Ñ" "»Ò" "»Ó" "»Ô" "»Õ" "»Ö" "»×" "»Ø" "»Ù" "»Ú" "»Û" "»Ü" "»Ý" "»Þ" "»ß" "»à" "»á" "»â" "»ã" "»ä" "»å" "»æ" "»ç" "»è" "»é" "»ê" "»ë" "»ì" "»í" "»î" "»ï" "»ð" "»ñ" "»ò" "»ó" "»ô" "»õ" "»ö" "»÷" "»ø" "»ù" "»ú" "»û" "»ü" "»ý" "»þ" 28| "¼¡" "¼¢" "¼£" "¼¤" "¼¥" "¼¦" "¼§" "¼¨" "¼©" "¼ª" "¼«" "¼¬" "¼­" "¼®" "¼¯" "¼°" "¼±" "¼²" "¼³" "¼´" "¼µ" "¼¶" "¼·" "¼¸" "¼¹" "¼º" "¼»" "¼¼" "¼½" "¼¾" "¼¿" "¼À" "¼Á" "¼Â" "¼Ã" "¼Ä" "¼Å" "¼Æ" "¼Ç" "¼È" "¼É" "¼Ê" "¼Ë" "¼Ì" "¼Í" "¼Î" "¼Ï" "¼Ð" "¼Ñ" "¼Ò" "¼Ó" "¼Ô" "¼Õ" "¼Ö" "¼×" "¼Ø" "¼Ù" "¼Ú" "¼Û" "¼Ü" "¼Ý" "¼Þ" "¼ß" "¼à" "¼á" "¼â" "¼ã" "¼ä" "¼å" "¼æ" "¼ç" "¼è" "¼é" "¼ê" "¼ë" "¼ì" "¼í" "¼î" "¼ï" "¼ð" "¼ñ" "¼ò" "¼ó" "¼ô" "¼õ" "¼ö" "¼÷" "¼ø" "¼ù" "¼ú" "¼û" "¼ü" "¼ý" "¼þ" 29| "½¡" "½¢" "½£" "½¤" "½¥" "½¦" "½§" "½¨" "½©" "½ª" "½«" "½¬" "½­" "½®" "½¯" "½°" "½±" "½²" "½³" "½´" "½µ" "½¶" "½·" "½¸" "½¹" "½º" "½»" "½¼" "½½" "½¾" "½¿" "½À" "½Á" "½Â" "½Ã" "½Ä" "½Å" "½Æ" "½Ç" "½È" "½É" "½Ê" "½Ë" "½Ì" "½Í" "½Î" "½Ï" "½Ð" "½Ñ" "½Ò" "½Ó" "½Ô" "½Õ" "½Ö" "½×" "½Ø" "½Ù" "½Ú" "½Û" "½Ü" "½Ý" "½Þ" "½ß" "½à" "½á" "½â" "½ã" "½ä" "½å" "½æ" "½ç" "½è" "½é" "½ê" "½ë" "½ì" "½í" "½î" "½ï" "½ð" "½ñ" "½ò" "½ó" "½ô" "½õ" "½ö" "½÷" "½ø" "½ù" "½ú" "½û" "½ü" "½ý" "½þ" 30| "¾¡" "¾¢" "¾£" "¾¤" "¾¥" "¾¦" "¾§" "¾¨" "¾©" "¾ª" "¾«" "¾¬" "¾­" "¾®" "¾¯" "¾°" "¾±" "¾²" "¾³" "¾´" "¾µ" "¾¶" "¾·" "¾¸" "¾¹" "¾º" "¾»" "¾¼" "¾½" "¾¾" "¾¿" "¾À" "¾Á" "¾Â" "¾Ã" "¾Ä" "¾Å" "¾Æ" "¾Ç" "¾È" "¾É" "¾Ê" "¾Ë" "¾Ì" "¾Í" "¾Î" "¾Ï" "¾Ð" "¾Ñ" "¾Ò" "¾Ó" "¾Ô" "¾Õ" "¾Ö" "¾×" "¾Ø" "¾Ù" "¾Ú" "¾Û" "¾Ü" "¾Ý" "¾Þ" "¾ß" "¾à" "¾á" "¾â" "¾ã" "¾ä" "¾å" "¾æ" "¾ç" "¾è" "¾é" "¾ê" "¾ë" "¾ì" "¾í" "¾î" "¾ï" "¾ð" "¾ñ" "¾ò" "¾ó" "¾ô" "¾õ" "¾ö" "¾÷" "¾ø" "¾ù" "¾ú" "¾û" "¾ü" "¾ý" "¾þ" 31| "¿¡" "¿¢" "¿£" "¿¤" "¿¥" "¿¦" "¿§" "¿¨" "¿©" "¿ª" "¿«" "¿¬" "¿­" "¿®" "¿¯" "¿°" "¿±" "¿²" "¿³" "¿´" "¿µ" "¿¶" "¿·" "¿¸" "¿¹" "¿º" "¿»" "¿¼" "¿½" "¿¾" "¿¿" "¿À" "¿Á" "¿Â" "¿Ã" "¿Ä" "¿Å" "¿Æ" "¿Ç" "¿È" "¿É" "¿Ê" "¿Ë" "¿Ì" "¿Í" "¿Î" "¿Ï" "¿Ð" "¿Ñ" "¿Ò" "¿Ó" "¿Ô" "¿Õ" "¿Ö" "¿×" "¿Ø" "¿Ù" "¿Ú" "¿Û" "¿Ü" "¿Ý" "¿Þ" "¿ß" "¿à" "¿á" "¿â" "¿ã" "¿ä" "¿å" "¿æ" "¿ç" "¿è" "¿é" "¿ê" "¿ë" "¿ì" "¿í" "¿î" "¿ï" "¿ð" "¿ñ" "¿ò" "¿ó" "¿ô" "¿õ" "¿ö" "¿÷" "¿ø" "¿ù" "¿ú" "¿û" "¿ü" "¿ý" "¿þ" 32| "À¡" "À¢" "À£" "À¤" "À¥" "À¦" "À§" "À¨" "À©" "Àª" "À«" "À¬" "À­" "À®" "À¯" "À°" "À±" "À²" "À³" "À´" "Àµ" "À¶" "À·" "À¸" "À¹" "Àº" "À»" "À¼" "À½" "À¾" "À¿" "ÀÀ" "ÀÁ" "ÀÂ" "ÀÃ" "ÀÄ" "ÀÅ" "ÀÆ" "ÀÇ" "ÀÈ" "ÀÉ" "ÀÊ" "ÀË" "ÀÌ" "ÀÍ" "ÀÎ" "ÀÏ" "ÀÐ" "ÀÑ" "ÀÒ" "ÀÓ" "ÀÔ" "ÀÕ" "ÀÖ" "À×" "ÀØ" "ÀÙ" "ÀÚ" "ÀÛ" "ÀÜ" "ÀÝ" "ÀÞ" "Àß" "Àà" "Àá" "Àâ" "Àã" "Àä" "Àå" "Àæ" "Àç" "Àè" "Àé" "Àê" "Àë" "Àì" "Àí" "Àî" "Àï" "Àð" "Àñ" "Àò" "Àó" "Àô" "Àõ" "Àö" "À÷" "Àø" "Àù" "Àú" "Àû" "Àü" "Àý" "Àþ" 33| "Á¡" "Á¢" "Á£" "Á¤" "Á¥" "Á¦" "Á§" "Á¨" "Á©" "Áª" "Á«" "Á¬" "Á­" "Á®" "Á¯" "Á°" "Á±" "Á²" "Á³" "Á´" "Áµ" "Á¶" "Á·" "Á¸" "Á¹" "Áº" "Á»" "Á¼" "Á½" "Á¾" "Á¿" "ÁÀ" "ÁÁ" "ÁÂ" "ÁÃ" "ÁÄ" "ÁÅ" "ÁÆ" "ÁÇ" "ÁÈ" "ÁÉ" "ÁÊ" "ÁË" "ÁÌ" "ÁÍ" "ÁÎ" "ÁÏ" "ÁÐ" "ÁÑ" "ÁÒ" "ÁÓ" "ÁÔ" "ÁÕ" "ÁÖ" "Á×" "ÁØ" "ÁÙ" "ÁÚ" "ÁÛ" "ÁÜ" "ÁÝ" "ÁÞ" "Áß" "Áà" "Áá" "Áâ" "Áã" "Áä" "Áå" "Áæ" "Áç" "Áè" "Áé" "Áê" "Áë" "Áì" "Áí" "Áî" "Áï" "Áð" "Áñ" "Áò" "Áó" "Áô" "Áõ" "Áö" "Á÷" "Áø" "Áù" "Áú" "Áû" "Áü" "Áý" "Áþ" 34| "¡" "¢" "£" "¤" "Â¥" "¦" "§" "¨" "©" "ª" "«" "¬" "­" "®" "¯" "°" "±" "²" "³" "´" "µ" "¶" "·" "¸" "¹" "º" "»" "¼" "½" "¾" "¿" "ÂÀ" "ÂÁ" "ÂÂ" "ÂÃ" "ÂÄ" "ÂÅ" "ÂÆ" "ÂÇ" "ÂÈ" "ÂÉ" "ÂÊ" "ÂË" "ÂÌ" "ÂÍ" "ÂÎ" "ÂÏ" "ÂÐ" "ÂÑ" "ÂÒ" "ÂÓ" "ÂÔ" "ÂÕ" "ÂÖ" "Â×" "ÂØ" "ÂÙ" "ÂÚ" "ÂÛ" "ÂÜ" "ÂÝ" "ÂÞ" "Âß" "Âà" "Âá" "Ââ" "Âã" "Âä" "Âå" "Âæ" "Âç" "Âè" "Âé" "Âê" "Âë" "Âì" "Âí" "Âî" "Âï" "Âð" "Âñ" "Âò" "Âó" "Âô" "Âõ" "Âö" "Â÷" "Âø" "Âù" "Âú" "Âû" "Âü" "Âý" "Âþ" 35| "á" "â" "ã" "ä" "Ã¥" "æ" "ç" "è" "é" "ê" "ë" "ì" "í" "î" "ï" "ð" "ñ" "ò" "ó" "ô" "õ" "ö" "÷" "ø" "ù" "ú" "û" "ü" "ý" "þ" "ÿ" "ÃÀ" "ÃÁ" "ÃÂ" "ÃÃ" "ÃÄ" "ÃÅ" "ÃÆ" "ÃÇ" "ÃÈ" "ÃÉ" "ÃÊ" "ÃË" "ÃÌ" "ÃÍ" "ÃÎ" "ÃÏ" "ÃÐ" "ÃÑ" "ÃÒ" "ÃÓ" "ÃÔ" "ÃÕ" "ÃÖ" "Ã×" "ÃØ" "ÃÙ" "ÃÚ" "ÃÛ" "ÃÜ" "ÃÝ" "ÃÞ" "Ãß" "Ãà" "Ãá" "Ãâ" "Ãã" "Ãä" "Ãå" "Ãæ" "Ãç" "Ãè" "Ãé" "Ãê" "Ãë" "Ãì" "Ãí" "Ãî" "Ãï" "Ãð" "Ãñ" "Ãò" "Ãó" "Ãô" "Ãõ" "Ãö" "Ã÷" "Ãø" "Ãù" "Ãú" "Ãû" "Ãü" "Ãý" "Ãþ" 36| "Ä¡" "Ä¢" "Ä£" "Ĥ" "Ä¥" "Ħ" "ħ" "Ĩ" "Ä©" "Ī" "Ä«" "Ĭ" "Ä­" "Ä®" "į" "Ä°" "ı" "IJ" "ij" "Ä´" "ĵ" "Ķ" "Ä·" "ĸ" "Ĺ" "ĺ" "Ä»" "ļ" "Ľ" "ľ" "Ä¿" "ÄÀ" "ÄÁ" "ÄÂ" "ÄÃ" "ÄÄ" "ÄÅ" "ÄÆ" "ÄÇ" "ÄÈ" "ÄÉ" "ÄÊ" "ÄË" "ÄÌ" "ÄÍ" "ÄÎ" "ÄÏ" "ÄÐ" "ÄÑ" "ÄÒ" "ÄÓ" "ÄÔ" "ÄÕ" "ÄÖ" "Ä×" "ÄØ" "ÄÙ" "ÄÚ" "ÄÛ" "ÄÜ" "ÄÝ" "ÄÞ" "Äß" "Äà" "Äá" "Äâ" "Äã" "Ää" "Äå" "Äæ" "Äç" "Äè" "Äé" "Äê" "Äë" "Äì" "Äí" "Äî" "Äï" "Äð" "Äñ" "Äò" "Äó" "Äô" "Äõ" "Äö" "Ä÷" "Äø" "Äù" "Äú" "Äû" "Äü" "Äý" "Äþ" 37| "Å¡" "Å¢" "Å£" "Ť" "Å¥" "Ŧ" "ŧ" "Ũ" "Å©" "Ū" "Å«" "Ŭ" "Å­" "Å®" "ů" "Å°" "ű" "Ų" "ų" "Å´" "ŵ" "Ŷ" "Å·" "Ÿ" "Ź" "ź" "Å»" "ż" "Ž" "ž" "Å¿" "ÅÀ" "ÅÁ" "ÅÂ" "ÅÃ" "ÅÄ" "ÅÅ" "ÅÆ" "ÅÇ" "ÅÈ" "ÅÉ" "ÅÊ" "ÅË" "ÅÌ" "ÅÍ" "ÅÎ" "ÅÏ" "ÅÐ" "ÅÑ" "ÅÒ" "ÅÓ" "ÅÔ" "ÅÕ" "ÅÖ" "Å×" "ÅØ" "ÅÙ" "ÅÚ" "ÅÛ" "ÅÜ" "ÅÝ" "ÅÞ" "Åß" "Åà" "Åá" "Åâ" "Åã" "Åä" "Åå" "Åæ" "Åç" "Åè" "Åé" "Åê" "Åë" "Åì" "Åí" "Åî" "Åï" "Åð" "Åñ" "Åò" "Åó" "Åô" "Åõ" "Åö" "Å÷" "Åø" "Åù" "Åú" "Åû" "Åü" "Åý" "Åþ" 38| "Æ¡" "Æ¢" "Æ£" "Ƥ" "Æ¥" "Ʀ" "Ƨ" "ƨ" "Æ©" "ƪ" "Æ«" "Ƭ" "Æ­" "Æ®" "Ư" "Æ°" "Ʊ" "Ʋ" "Ƴ" "Æ´" "Ƶ" "ƶ" "Æ·" "Ƹ" "ƹ" "ƺ" "Æ»" "Ƽ" "ƽ" "ƾ" "Æ¿" "ÆÀ" "ÆÁ" "ÆÂ" "ÆÃ" "ÆÄ" "ÆÅ" "ÆÆ" "ÆÇ" "ÆÈ" "ÆÉ" "ÆÊ" "ÆË" "ÆÌ" "ÆÍ" "ÆÎ" "ÆÏ" "ÆÐ" "ÆÑ" "ÆÒ" "ÆÓ" "ÆÔ" "ÆÕ" "ÆÖ" "Æ×" "ÆØ" "ÆÙ" "ÆÚ" "ÆÛ" "ÆÜ" "ÆÝ" "ÆÞ" "Æß" "Æà" "Æá" "Æâ" "Æã" "Æä" "Æå" "Ææ" "Æç" "Æè" "Æé" "Æê" "Æë" "Æì" "Æí" "Æî" "Æï" "Æð" "Æñ" "Æò" "Æó" "Æô" "Æõ" "Æö" "Æ÷" "Æø" "Æù" "Æú" "Æû" "Æü" "Æý" "Æþ" 39| "Ç¡" "Ç¢" "Ç£" "Ǥ" "Ç¥" "Ǧ" "ǧ" "Ǩ" "Ç©" "Ǫ" "Ç«" "Ǭ" "Ç­" "Ç®" "ǯ" "Ç°" "DZ" "Dz" "dz" "Ç´" "ǵ" "Ƕ" "Ç·" "Ǹ" "ǹ" "Ǻ" "Ç»" "Ǽ" "ǽ" "Ǿ" "Ç¿" "ÇÀ" "ÇÁ" "ÇÂ" "ÇÃ" "ÇÄ" "ÇÅ" "ÇÆ" "ÇÇ" "ÇÈ" "ÇÉ" "ÇÊ" "ÇË" "ÇÌ" "ÇÍ" "ÇÎ" "ÇÏ" "ÇÐ" "ÇÑ" "ÇÒ" "ÇÓ" "ÇÔ" "ÇÕ" "ÇÖ" "Ç×" "ÇØ" "ÇÙ" "ÇÚ" "ÇÛ" "ÇÜ" "ÇÝ" "ÇÞ" "Çß" "Çà" "Çá" "Çâ" "Çã" "Çä" "Çå" "Çæ" "Çç" "Çè" "Çé" "Çê" "Çë" "Çì" "Çí" "Çî" "Çï" "Çð" "Çñ" "Çò" "Çó" "Çô" "Çõ" "Çö" "Ç÷" "Çø" "Çù" "Çú" "Çû" "Çü" "Çý" "Çþ" 40| "È¡" "È¢" "È£" "Ȥ" "È¥" "Ȧ" "ȧ" "Ȩ" "È©" "Ȫ" "È«" "Ȭ" "È­" "È®" "ȯ" "È°" "ȱ" "Ȳ" "ȳ" "È´" "ȵ" "ȶ" "È·" "ȸ" "ȹ" "Ⱥ" "È»" "ȼ" "Ƚ" "Ⱦ" "È¿" "ÈÀ" "ÈÁ" "ÈÂ" "ÈÃ" "ÈÄ" "ÈÅ" "ÈÆ" "ÈÇ" "ÈÈ" "ÈÉ" "ÈÊ" "ÈË" "ÈÌ" "ÈÍ" "ÈÎ" "ÈÏ" "ÈÐ" "ÈÑ" "ÈÒ" "ÈÓ" "ÈÔ" "ÈÕ" "ÈÖ" "È×" "ÈØ" "ÈÙ" "ÈÚ" "ÈÛ" "ÈÜ" "ÈÝ" "ÈÞ" "Èß" "Èà" "Èá" "Èâ" "Èã" "Èä" "Èå" "Èæ" "Èç" "Èè" "Èé" "Èê" "Èë" "Èì" "Èí" "Èî" "Èï" "Èð" "Èñ" "Èò" "Èó" "Èô" "Èõ" "Èö" "È÷" "Èø" "Èù" "Èú" "Èû" "Èü" "Èý" "Èþ" 41| "É¡" "É¢" "É£" "ɤ" "É¥" "ɦ" "ɧ" "ɨ" "É©" "ɪ" "É«" "ɬ" "É­" "É®" "ɯ" "É°" "ɱ" "ɲ" "ɳ" "É´" "ɵ" "ɶ" "É·" "ɸ" "ɹ" "ɺ" "É»" "ɼ" "ɽ" "ɾ" "É¿" "ÉÀ" "ÉÁ" "ÉÂ" "ÉÃ" "ÉÄ" "ÉÅ" "ÉÆ" "ÉÇ" "ÉÈ" "ÉÉ" "ÉÊ" "ÉË" "ÉÌ" "ÉÍ" "ÉÎ" "ÉÏ" "ÉÐ" "ÉÑ" "ÉÒ" "ÉÓ" "ÉÔ" "ÉÕ" "ÉÖ" "É×" "ÉØ" "ÉÙ" "ÉÚ" "ÉÛ" "ÉÜ" "ÉÝ" "ÉÞ" "Éß" "Éà" "Éá" "Éâ" "Éã" "Éä" "Éå" "Éæ" "Éç" "Éè" "Éé" "Éê" "Éë" "Éì" "Éí" "Éî" "Éï" "Éð" "Éñ" "Éò" "Éó" "Éô" "Éõ" "Éö" "É÷" "Éø" "Éù" "Éú" "Éû" "Éü" "Éý" "Éþ" 42| "Ê¡" "Ê¢" "Ê£" "ʤ" "Ê¥" "ʦ" "ʧ" "ʨ" "Ê©" "ʪ" "Ê«" "ʬ" "Ê­" "Ê®" "ʯ" "Ê°" "ʱ" "ʲ" "ʳ" "Ê´" "ʵ" "ʶ" "Ê·" "ʸ" "ʹ" "ʺ" "Ê»" "ʼ" "ʽ" "ʾ" "Ê¿" "ÊÀ" "ÊÁ" "ÊÂ" "ÊÃ" "ÊÄ" "ÊÅ" "ÊÆ" "ÊÇ" "ÊÈ" "ÊÉ" "ÊÊ" "ÊË" "ÊÌ" "ÊÍ" "ÊÎ" "ÊÏ" "ÊÐ" "ÊÑ" "ÊÒ" "ÊÓ" "ÊÔ" "ÊÕ" "ÊÖ" "Ê×" "ÊØ" "ÊÙ" "ÊÚ" "ÊÛ" "ÊÜ" "ÊÝ" "ÊÞ" "Êß" "Êà" "Êá" "Êâ" "Êã" "Êä" "Êå" "Êæ" "Êç" "Êè" "Êé" "Êê" "Êë" "Êì" "Êí" "Êî" "Êï" "Êð" "Êñ" "Êò" "Êó" "Êô" "Êõ" "Êö" "Ê÷" "Êø" "Êù" "Êú" "Êû" "Êü" "Êý" "Êþ" 43| "Ë¡" "Ë¢" "Ë£" "ˤ" "Ë¥" "˦" "˧" "˨" "Ë©" "˪" "Ë«" "ˬ" "Ë­" "Ë®" "˯" "Ë°" "˱" "˲" "˳" "Ë´" "˵" "˶" "Ë·" "˸" "˹" "˺" "Ë»" "˼" "˽" "˾" "Ë¿" "ËÀ" "ËÁ" "ËÂ" "ËÃ" "ËÄ" "ËÅ" "ËÆ" "ËÇ" "ËÈ" "ËÉ" "ËÊ" "ËË" "ËÌ" "ËÍ" "ËÎ" "ËÏ" "ËÐ" "ËÑ" "ËÒ" "ËÓ" "ËÔ" "ËÕ" "ËÖ" "Ë×" "ËØ" "ËÙ" "ËÚ" "ËÛ" "ËÜ" "ËÝ" "ËÞ" "Ëß" "Ëà" "Ëá" "Ëâ" "Ëã" "Ëä" "Ëå" "Ëæ" "Ëç" "Ëè" "Ëé" "Ëê" "Ëë" "Ëì" "Ëí" "Ëî" "Ëï" "Ëð" "Ëñ" "Ëò" "Ëó" "Ëô" "Ëõ" "Ëö" "Ë÷" "Ëø" "Ëù" "Ëú" "Ëû" "Ëü" "Ëý" "Ëþ" 44| "Ì¡" "Ì¢" "Ì£" "̤" "Ì¥" "̦" "̧" "̨" "Ì©" "̪" "Ì«" "̬" "Ì­" "Ì®" "̯" "Ì°" "̱" "̲" "̳" "Ì´" "̵" "̶" "Ì·" "̸" "̹" "̺" "Ì»" "̼" "̽" "̾" "Ì¿" "ÌÀ" "ÌÁ" "ÌÂ" "ÌÃ" "ÌÄ" "ÌÅ" "ÌÆ" "ÌÇ" "ÌÈ" "ÌÉ" "ÌÊ" "ÌË" "ÌÌ" "ÌÍ" "ÌÎ" "ÌÏ" "ÌÐ" "ÌÑ" "ÌÒ" "ÌÓ" "ÌÔ" "ÌÕ" "ÌÖ" "Ì×" "ÌØ" "ÌÙ" "ÌÚ" "ÌÛ" "ÌÜ" "ÌÝ" "ÌÞ" "Ìß" "Ìà" "Ìá" "Ìâ" "Ìã" "Ìä" "Ìå" "Ìæ" "Ìç" "Ìè" "Ìé" "Ìê" "Ìë" "Ìì" "Ìí" "Ìî" "Ìï" "Ìð" "Ìñ" "Ìò" "Ìó" "Ìô" "Ìõ" "Ìö" "Ì÷" "Ìø" "Ìù" "Ìú" "Ìû" "Ìü" "Ìý" "Ìþ" 45| "Í¡" "Í¢" "Í£" "ͤ" "Í¥" "ͦ" "ͧ" "ͨ" "Í©" "ͪ" "Í«" "ͬ" "Í­" "Í®" "ͯ" "Í°" "ͱ" "Ͳ" "ͳ" "Í´" "͵" "Ͷ" "Í·" "͸" "͹" "ͺ" "Í»" "ͼ" "ͽ" ";" "Í¿" "ÍÀ" "ÍÁ" "ÍÂ" "ÍÃ" "ÍÄ" "ÍÅ" "ÍÆ" "ÍÇ" "ÍÈ" "ÍÉ" "ÍÊ" "ÍË" "ÍÌ" "ÍÍ" "ÍÎ" "ÍÏ" "ÍÐ" "ÍÑ" "ÍÒ" "ÍÓ" "ÍÔ" "ÍÕ" "ÍÖ" "Í×" "ÍØ" "ÍÙ" "ÍÚ" "ÍÛ" "ÍÜ" "ÍÝ" "ÍÞ" "Íß" "Íà" "Íá" "Íâ" "Íã" "Íä" "Íå" "Íæ" "Íç" "Íè" "Íé" "Íê" "Íë" "Íì" "Íí" "Íî" "Íï" "Íð" "Íñ" "Íò" "Íó" "Íô" "Íõ" "Íö" "Í÷" "Íø" "Íù" "Íú" "Íû" "Íü" "Íý" "Íþ" 46| "Ρ" "΢" "Σ" "Τ" "Î¥" "Φ" "Χ" "Ψ" "Ω" "Ϊ" "Ϋ" "ά" "έ" "ή" "ί" "ΰ" "α" "β" "γ" "δ" "ε" "ζ" "η" "θ" "ι" "κ" "λ" "μ" "ν" "ξ" "ο" "ÎÀ" "ÎÁ" "ÎÂ" "ÎÃ" "ÎÄ" "ÎÅ" "ÎÆ" "ÎÇ" "ÎÈ" "ÎÉ" "ÎÊ" "ÎË" "ÎÌ" "ÎÍ" "ÎÎ" "ÎÏ" "ÎÐ" "ÎÑ" "ÎÒ" "ÎÓ" "ÎÔ" "ÎÕ" "ÎÖ" "Î×" "ÎØ" "ÎÙ" "ÎÚ" "ÎÛ" "ÎÜ" "ÎÝ" "ÎÞ" "Îß" "Îà" "Îá" "Îâ" "Îã" "Îä" "Îå" "Îæ" "Îç" "Îè" "Îé" "Îê" "Îë" "Îì" "Îí" "Îî" "Îï" "Îð" "Îñ" "Îò" "Îó" "Îô" "Îõ" "Îö" "Î÷" "Îø" "Îù" "Îú" "Îû" "Îü" "Îý" "Îþ" 47| "Ï¡" "Ï¢" "Ï£" "Ϥ" "Ï¥" "Ϧ" "ϧ" "Ϩ" "Ï©" "Ϫ" "Ï«" "Ϭ" "Ï­" "Ï®" "ϯ" "Ï°" "ϱ" "ϲ" "ϳ" "Ï´" "ϵ" "϶" "Ï·" "ϸ" "Ϲ" "Ϻ" "Ï»" "ϼ" "Ͻ" "Ͼ" "Ï¿" "ÏÀ" "ÏÁ" "ÏÂ" "ÏÃ" "ÏÄ" "ÏÅ" "ÏÆ" "ÏÇ" "ÏÈ" "ÏÉ" "ÏÊ" "ÏË" "ÏÌ" "ÏÍ" "ÏÎ" "ÏÏ" "ÏÐ" "ÏÑ" "ÏÒ" "ÏÓ" "ÏÔ" "ÏÕ" "ÏÖ" "Ï×" "ÏØ" "ÏÙ" "ÏÚ" "ÏÛ" "ÏÜ" "ÏÝ" "ÏÞ" "Ïß" "Ïà" "Ïá" "Ïâ" "Ïã" "Ïä" "Ïå" "Ïæ" "Ïç" "Ïè" "Ïé" "Ïê" "Ïë" "Ïì" "Ïí" "Ïî" "Ïï" "Ïð" "Ïñ" "Ïò" "Ïó" "Ïô" "Ïõ" "Ïö" "Ï÷" "Ïø" "Ïù" "Ïú" "Ïû" "Ïü" "Ïý" "Ïþ" 48| "С" "Т" "У" "Ф" "Ð¥" "Ц" "Ч" "Ш" "Щ" "Ъ" "Ы" "Ь" "Э" "Ю" "Я" "а" "б" "в" "г" "д" "е" "ж" "з" "и" "й" "к" "л" "м" "н" "о" "п" "ÐÀ" "ÐÁ" "ÐÂ" "ÐÃ" "ÐÄ" "ÐÅ" "ÐÆ" "ÐÇ" "ÐÈ" "ÐÉ" "ÐÊ" "ÐË" "ÐÌ" "ÐÍ" "ÐÎ" "ÐÏ" "ÐÐ" "ÐÑ" "ÐÒ" "ÐÓ" "ÐÔ" "ÐÕ" "ÐÖ" "Ð×" "ÐØ" "ÐÙ" "ÐÚ" "ÐÛ" "ÐÜ" "ÐÝ" "ÐÞ" "Ðß" "Ðà" "Ðá" "Ðâ" "Ðã" "Ðä" "Ðå" "Ðæ" "Ðç" "Ðè" "Ðé" "Ðê" "Ðë" "Ðì" "Ðí" "Ðî" "Ðï" "Ðð" "Ðñ" "Ðò" "Ðó" "Ðô" "Ðõ" "Ðö" "Ð÷" "Ðø" "Ðù" "Ðú" "Ðû" "Ðü" "Ðý" "Ðþ" 49| "Ñ¡" "Ñ¢" "Ñ£" "Ѥ" "Ñ¥" "Ѧ" "ѧ" "Ѩ" "Ñ©" "Ѫ" "Ñ«" "Ѭ" "Ñ­" "Ñ®" "ѯ" "Ñ°" "ѱ" "Ѳ" "ѳ" "Ñ´" "ѵ" "Ѷ" "Ñ·" "Ѹ" "ѹ" "Ѻ" "Ñ»" "Ѽ" "ѽ" "Ѿ" "Ñ¿" "ÑÀ" "ÑÁ" "ÑÂ" "ÑÃ" "ÑÄ" "ÑÅ" "ÑÆ" "ÑÇ" "ÑÈ" "ÑÉ" "ÑÊ" "ÑË" "ÑÌ" "ÑÍ" "ÑÎ" "ÑÏ" "ÑÐ" "ÑÑ" "ÑÒ" "ÑÓ" "ÑÔ" "ÑÕ" "ÑÖ" "Ñ×" "ÑØ" "ÑÙ" "ÑÚ" "ÑÛ" "ÑÜ" "ÑÝ" "ÑÞ" "Ñß" "Ñà" "Ñá" "Ñâ" "Ñã" "Ñä" "Ñå" "Ñæ" "Ñç" "Ñè" "Ñé" "Ñê" "Ñë" "Ñì" "Ñí" "Ñî" "Ñï" "Ñð" "Ññ" "Ñò" "Ñó" "Ñô" "Ñõ" "Ñö" "Ñ÷" "Ñø" "Ñù" "Ñú" "Ñû" "Ñü" "Ñý" "Ñþ" 50| "Ò¡" "Ò¢" "Ò£" "Ò¤" "Ò¥" "Ò¦" "Ò§" "Ò¨" "Ò©" "Òª" "Ò«" "Ò¬" "Ò­" "Ò®" "Ò¯" "Ò°" "Ò±" "Ò²" "Ò³" "Ò´" "Òµ" "Ò¶" "Ò·" "Ò¸" "Ò¹" "Òº" "Ò»" "Ò¼" "Ò½" "Ò¾" "Ò¿" "ÒÀ" "ÒÁ" "ÒÂ" "ÒÃ" "ÒÄ" "ÒÅ" "ÒÆ" "ÒÇ" "ÒÈ" "ÒÉ" "ÒÊ" "ÒË" "ÒÌ" "ÒÍ" "ÒÎ" "ÒÏ" "ÒÐ" "ÒÑ" "ÒÒ" "ÒÓ" "ÒÔ" "ÒÕ" "ÒÖ" "Ò×" "ÒØ" "ÒÙ" "ÒÚ" "ÒÛ" "ÒÜ" "ÒÝ" "ÒÞ" "Òß" "Òà" "Òá" "Òâ" "Òã" "Òä" "Òå" "Òæ" "Òç" "Òè" "Òé" "Òê" "Òë" "Òì" "Òí" "Òî" "Òï" "Òð" "Òñ" "Òò" "Òó" "Òô" "Òõ" "Òö" "Ò÷" "Òø" "Òù" "Òú" "Òû" "Òü" "Òý" "Òþ" 51| "Ó¡" "Ó¢" "Ó£" "Ó¤" "Ó¥" "Ó¦" "Ó§" "Ó¨" "Ó©" "Óª" "Ó«" "Ó¬" "Ó­" "Ó®" "Ó¯" "Ó°" "Ó±" "Ó²" "Ó³" "Ó´" "Óµ" "Ó¶" "Ó·" "Ó¸" "Ó¹" "Óº" "Ó»" "Ó¼" "Ó½" "Ó¾" "Ó¿" "ÓÀ" "ÓÁ" "ÓÂ" "ÓÃ" "ÓÄ" "ÓÅ" "ÓÆ" "ÓÇ" "ÓÈ" "ÓÉ" "ÓÊ" "ÓË" "ÓÌ" "ÓÍ" "ÓÎ" "ÓÏ" "ÓÐ" "ÓÑ" "ÓÒ" "ÓÓ" "ÓÔ" "ÓÕ" "ÓÖ" "Ó×" "ÓØ" "ÓÙ" "ÓÚ" "ÓÛ" "ÓÜ" "ÓÝ" "ÓÞ" "Óß" "Óà" "Óá" "Óâ" "Óã" "Óä" "Óå" "Óæ" "Óç" "Óè" "Óé" "Óê" "Óë" "Óì" "Óí" "Óî" "Óï" "Óð" "Óñ" "Óò" "Óó" "Óô" "Óõ" "Óö" "Ó÷" "Óø" "Óù" "Óú" "Óû" "Óü" "Óý" "Óþ" 52| "Ô¡" "Ô¢" "Ô£" "Ô¤" "Ô¥" "Ô¦" "Ô§" "Ô¨" "Ô©" "Ôª" "Ô«" "Ô¬" "Ô­" "Ô®" "Ô¯" "Ô°" "Ô±" "Ô²" "Ô³" "Ô´" "Ôµ" "Ô¶" "Ô·" "Ô¸" "Ô¹" "Ôº" "Ô»" "Ô¼" "Ô½" "Ô¾" "Ô¿" "ÔÀ" "ÔÁ" "ÔÂ" "ÔÃ" "ÔÄ" "ÔÅ" "ÔÆ" "ÔÇ" "ÔÈ" "ÔÉ" "ÔÊ" "ÔË" "ÔÌ" "ÔÍ" "ÔÎ" "ÔÏ" "ÔÐ" "ÔÑ" "ÔÒ" "ÔÓ" "ÔÔ" "ÔÕ" "ÔÖ" "Ô×" "ÔØ" "ÔÙ" "ÔÚ" "ÔÛ" "ÔÜ" "ÔÝ" "ÔÞ" "Ôß" "Ôà" "Ôá" "Ôâ" "Ôã" "Ôä" "Ôå" "Ôæ" "Ôç" "Ôè" "Ôé" "Ôê" "Ôë" "Ôì" "Ôí" "Ôî" "Ôï" "Ôð" "Ôñ" "Ôò" "Ôó" "Ôô" "Ôõ" "Ôö" "Ô÷" "Ôø" "Ôù" "Ôú" "Ôû" "Ôü" "Ôý" "Ôþ" 53| "Õ¡" "Õ¢" "Õ£" "Õ¤" "Õ¥" "Õ¦" "Õ§" "Õ¨" "Õ©" "Õª" "Õ«" "Õ¬" "Õ­" "Õ®" "Õ¯" "Õ°" "Õ±" "Õ²" "Õ³" "Õ´" "Õµ" "Õ¶" "Õ·" "Õ¸" "Õ¹" "Õº" "Õ»" "Õ¼" "Õ½" "Õ¾" "Õ¿" "ÕÀ" "ÕÁ" "ÕÂ" "ÕÃ" "ÕÄ" "ÕÅ" "ÕÆ" "ÕÇ" "ÕÈ" "ÕÉ" "ÕÊ" "ÕË" "ÕÌ" "ÕÍ" "ÕÎ" "ÕÏ" "ÕÐ" "ÕÑ" "ÕÒ" "ÕÓ" "ÕÔ" "ÕÕ" "ÕÖ" "Õ×" "ÕØ" "ÕÙ" "ÕÚ" "ÕÛ" "ÕÜ" "ÕÝ" "ÕÞ" "Õß" "Õà" "Õá" "Õâ" "Õã" "Õä" "Õå" "Õæ" "Õç" "Õè" "Õé" "Õê" "Õë" "Õì" "Õí" "Õî" "Õï" "Õð" "Õñ" "Õò" "Õó" "Õô" "Õõ" "Õö" "Õ÷" "Õø" "Õù" "Õú" "Õû" "Õü" "Õý" "Õþ" 54| "Ö¡" "Ö¢" "Ö£" "Ö¤" "Ö¥" "Ö¦" "Ö§" "Ö¨" "Ö©" "Öª" "Ö«" "Ö¬" "Ö­" "Ö®" "Ö¯" "Ö°" "Ö±" "Ö²" "Ö³" "Ö´" "Öµ" "Ö¶" "Ö·" "Ö¸" "Ö¹" "Öº" "Ö»" "Ö¼" "Ö½" "Ö¾" "Ö¿" "ÖÀ" "ÖÁ" "ÖÂ" "ÖÃ" "ÖÄ" "ÖÅ" "ÖÆ" "ÖÇ" "ÖÈ" "ÖÉ" "ÖÊ" "ÖË" "ÖÌ" "ÖÍ" "ÖÎ" "ÖÏ" "ÖÐ" "ÖÑ" "ÖÒ" "ÖÓ" "ÖÔ" "ÖÕ" "ÖÖ" "Ö×" "ÖØ" "ÖÙ" "ÖÚ" "ÖÛ" "ÖÜ" "ÖÝ" "ÖÞ" "Öß" "Öà" "Öá" "Öâ" "Öã" "Öä" "Öå" "Öæ" "Öç" "Öè" "Öé" "Öê" "Öë" "Öì" "Öí" "Öî" "Öï" "Öð" "Öñ" "Öò" "Öó" "Öô" "Öõ" "Öö" "Ö÷" "Öø" "Öù" "Öú" "Öû" "Öü" "Öý" "Öþ" 55| "ס" "×¢" "×£" "פ" "×¥" "צ" "ק" "ר" "ש" "ת" "׫" "׬" "×­" "×®" "ׯ" "×°" "×±" "ײ" "׳" "×´" "×µ" "׶" "×·" "׸" "×¹" "׺" "×»" "×¼" "×½" "×¾" "׿" "×À" "×Á" "×Â" "×Ã" "×Ä" "×Å" "×Æ" "×Ç" "×È" "×É" "×Ê" "×Ë" "×Ì" "×Í" "×Î" "×Ï" "×Ð" "×Ñ" "×Ò" "×Ó" "×Ô" "×Õ" "×Ö" "××" "×Ø" "×Ù" "×Ú" "×Û" "×Ü" "×Ý" "×Þ" "×ß" "×à" "×á" "×â" "×ã" "×ä" "×å" "×æ" "×ç" "×è" "×é" "×ê" "×ë" "×ì" "×í" "×î" "×ï" "×ð" "×ñ" "×ò" "×ó" "×ô" "×õ" "×ö" "×÷" "×ø" "×ù" "×ú" "×û" "×ü" "×ý" "×þ" 56| "Ø¡" "Ø¢" "Ø£" "ؤ" "Ø¥" "ئ" "ا" "ب" "Ø©" "ت" "Ø«" "ج" "Ø­" "Ø®" "د" "Ø°" "ر" "ز" "س" "Ø´" "ص" "ض" "Ø·" "ظ" "ع" "غ" "Ø»" "ؼ" "ؽ" "ؾ" "Ø¿" "ØÀ" "ØÁ" "ØÂ" "ØÃ" "ØÄ" "ØÅ" "ØÆ" "ØÇ" "ØÈ" "ØÉ" "ØÊ" "ØË" "ØÌ" "ØÍ" "ØÎ" "ØÏ" "ØÐ" "ØÑ" "ØÒ" "ØÓ" "ØÔ" "ØÕ" "ØÖ" "Ø×" "ØØ" "ØÙ" "ØÚ" "ØÛ" "ØÜ" "ØÝ" "ØÞ" "Øß" "Øà" "Øá" "Øâ" "Øã" "Øä" "Øå" "Øæ" "Øç" "Øè" "Øé" "Øê" "Øë" "Øì" "Øí" "Øî" "Øï" "Øð" "Øñ" "Øò" "Øó" "Øô" "Øõ" "Øö" "Ø÷" "Øø" "Øù" "Øú" "Øû" "Øü" "Øý" "Øþ" 57| "Ù¡" "Ù¢" "Ù£" "Ù¤" "Ù¥" "Ù¦" "Ù§" "Ù¨" "Ù©" "Ùª" "Ù«" "Ù¬" "Ù­" "Ù®" "Ù¯" "Ù°" "Ù±" "Ù²" "Ù³" "Ù´" "Ùµ" "Ù¶" "Ù·" "Ù¸" "Ù¹" "Ùº" "Ù»" "Ù¼" "Ù½" "Ù¾" "Ù¿" "ÙÀ" "ÙÁ" "ÙÂ" "ÙÃ" "ÙÄ" "ÙÅ" "ÙÆ" "ÙÇ" "ÙÈ" "ÙÉ" "ÙÊ" "ÙË" "ÙÌ" "ÙÍ" "ÙÎ" "ÙÏ" "ÙÐ" "ÙÑ" "ÙÒ" "ÙÓ" "ÙÔ" "ÙÕ" "ÙÖ" "Ù×" "ÙØ" "ÙÙ" "ÙÚ" "ÙÛ" "ÙÜ" "ÙÝ" "ÙÞ" "Ùß" "Ùà" "Ùá" "Ùâ" "Ùã" "Ùä" "Ùå" "Ùæ" "Ùç" "Ùè" "Ùé" "Ùê" "Ùë" "Ùì" "Ùí" "Ùî" "Ùï" "Ùð" "Ùñ" "Ùò" "Ùó" "Ùô" "Ùõ" "Ùö" "Ù÷" "Ùø" "Ùù" "Ùú" "Ùû" "Ùü" "Ùý" "Ùþ" 58| "Ú¡" "Ú¢" "Ú£" "Ú¤" "Ú¥" "Ú¦" "Ú§" "Ú¨" "Ú©" "Úª" "Ú«" "Ú¬" "Ú­" "Ú®" "Ú¯" "Ú°" "Ú±" "Ú²" "Ú³" "Ú´" "Úµ" "Ú¶" "Ú·" "Ú¸" "Ú¹" "Úº" "Ú»" "Ú¼" "Ú½" "Ú¾" "Ú¿" "ÚÀ" "ÚÁ" "ÚÂ" "ÚÃ" "ÚÄ" "ÚÅ" "ÚÆ" "ÚÇ" "ÚÈ" "ÚÉ" "ÚÊ" "ÚË" "ÚÌ" "ÚÍ" "ÚÎ" "ÚÏ" "ÚÐ" "ÚÑ" "ÚÒ" "ÚÓ" "ÚÔ" "ÚÕ" "ÚÖ" "Ú×" "ÚØ" "ÚÙ" "ÚÚ" "ÚÛ" "ÚÜ" "ÚÝ" "ÚÞ" "Úß" "Úà" "Úá" "Úâ" "Úã" "Úä" "Úå" "Úæ" "Úç" "Úè" "Úé" "Úê" "Úë" "Úì" "Úí" "Úî" "Úï" "Úð" "Úñ" "Úò" "Úó" "Úô" "Úõ" "Úö" "Ú÷" "Úø" "Úù" "Úú" "Úû" "Úü" "Úý" "Úþ" 59| "Û¡" "Û¢" "Û£" "Û¤" "Û¥" "Û¦" "Û§" "Û¨" "Û©" "Ûª" "Û«" "Û¬" "Û­" "Û®" "Û¯" "Û°" "Û±" "Û²" "Û³" "Û´" "Ûµ" "Û¶" "Û·" "Û¸" "Û¹" "Ûº" "Û»" "Û¼" "Û½" "Û¾" "Û¿" "ÛÀ" "ÛÁ" "ÛÂ" "ÛÃ" "ÛÄ" "ÛÅ" "ÛÆ" "ÛÇ" "ÛÈ" "ÛÉ" "ÛÊ" "ÛË" "ÛÌ" "ÛÍ" "ÛÎ" "ÛÏ" "ÛÐ" "ÛÑ" "ÛÒ" "ÛÓ" "ÛÔ" "ÛÕ" "ÛÖ" "Û×" "ÛØ" "ÛÙ" "ÛÚ" "ÛÛ" "ÛÜ" "ÛÝ" "ÛÞ" "Ûß" "Ûà" "Ûá" "Ûâ" "Ûã" "Ûä" "Ûå" "Ûæ" "Ûç" "Ûè" "Ûé" "Ûê" "Ûë" "Ûì" "Ûí" "Ûî" "Ûï" "Ûð" "Ûñ" "Ûò" "Ûó" "Ûô" "Ûõ" "Ûö" "Û÷" "Ûø" "Ûù" "Ûú" "Ûû" "Ûü" "Ûý" "Ûþ" 60| "Ü¡" "Ü¢" "Ü£" "ܤ" "Ü¥" "ܦ" "ܧ" "ܨ" "Ü©" "ܪ" "Ü«" "ܬ" "Ü­" "Ü®" "ܯ" "Ü°" "ܱ" "ܲ" "ܳ" "Ü´" "ܵ" "ܶ" "Ü·" "ܸ" "ܹ" "ܺ" "Ü»" "ܼ" "ܽ" "ܾ" "Ü¿" "ÜÀ" "ÜÁ" "ÜÂ" "ÜÃ" "ÜÄ" "ÜÅ" "ÜÆ" "ÜÇ" "ÜÈ" "ÜÉ" "ÜÊ" "ÜË" "ÜÌ" "ÜÍ" "ÜÎ" "ÜÏ" "ÜÐ" "ÜÑ" "ÜÒ" "ÜÓ" "ÜÔ" "ÜÕ" "ÜÖ" "Ü×" "ÜØ" "ÜÙ" "ÜÚ" "ÜÛ" "ÜÜ" "ÜÝ" "ÜÞ" "Üß" "Üà" "Üá" "Üâ" "Üã" "Üä" "Üå" "Üæ" "Üç" "Üè" "Üé" "Üê" "Üë" "Üì" "Üí" "Üî" "Üï" "Üð" "Üñ" "Üò" "Üó" "Üô" "Üõ" "Üö" "Ü÷" "Üø" "Üù" "Üú" "Üû" "Üü" "Üý" "Üþ" 61| "Ý¡" "Ý¢" "Ý£" "ݤ" "Ý¥" "ݦ" "ݧ" "ݨ" "Ý©" "ݪ" "Ý«" "ݬ" "Ý­" "Ý®" "ݯ" "Ý°" "ݱ" "ݲ" "ݳ" "Ý´" "ݵ" "ݶ" "Ý·" "ݸ" "ݹ" "ݺ" "Ý»" "ݼ" "ݽ" "ݾ" "Ý¿" "ÝÀ" "ÝÁ" "ÝÂ" "ÝÃ" "ÝÄ" "ÝÅ" "ÝÆ" "ÝÇ" "ÝÈ" "ÝÉ" "ÝÊ" "ÝË" "ÝÌ" "ÝÍ" "ÝÎ" "ÝÏ" "ÝÐ" "ÝÑ" "ÝÒ" "ÝÓ" "ÝÔ" "ÝÕ" "ÝÖ" "Ý×" "ÝØ" "ÝÙ" "ÝÚ" "ÝÛ" "ÝÜ" "ÝÝ" "ÝÞ" "Ýß" "Ýà" "Ýá" "Ýâ" "Ýã" "Ýä" "Ýå" "Ýæ" "Ýç" "Ýè" "Ýé" "Ýê" "Ýë" "Ýì" "Ýí" "Ýî" "Ýï" "Ýð" "Ýñ" "Ýò" "Ýó" "Ýô" "Ýõ" "Ýö" "Ý÷" "Ýø" "Ýù" "Ýú" "Ýû" "Ýü" "Ýý" "Ýþ" 62| "Þ¡" "Þ¢" "Þ£" "Þ¤" "Þ¥" "Þ¦" "Þ§" "Þ¨" "Þ©" "Þª" "Þ«" "Þ¬" "Þ­" "Þ®" "Þ¯" "Þ°" "Þ±" "Þ²" "Þ³" "Þ´" "Þµ" "Þ¶" "Þ·" "Þ¸" "Þ¹" "Þº" "Þ»" "Þ¼" "Þ½" "Þ¾" "Þ¿" "ÞÀ" "ÞÁ" "ÞÂ" "ÞÃ" "ÞÄ" "ÞÅ" "ÞÆ" "ÞÇ" "ÞÈ" "ÞÉ" "ÞÊ" "ÞË" "ÞÌ" "ÞÍ" "ÞÎ" "ÞÏ" "ÞÐ" "ÞÑ" "ÞÒ" "ÞÓ" "ÞÔ" "ÞÕ" "ÞÖ" "Þ×" "ÞØ" "ÞÙ" "ÞÚ" "ÞÛ" "ÞÜ" "ÞÝ" "ÞÞ" "Þß" "Þà" "Þá" "Þâ" "Þã" "Þä" "Þå" "Þæ" "Þç" "Þè" "Þé" "Þê" "Þë" "Þì" "Þí" "Þî" "Þï" "Þð" "Þñ" "Þò" "Þó" "Þô" "Þõ" "Þö" "Þ÷" "Þø" "Þù" "Þú" "Þû" "Þü" "Þý" "Þþ" 63| "ß¡" "ߢ" "ߣ" "ߤ" "ߥ" "ߦ" "ߧ" "ߨ" "ß©" "ߪ" "ß«" "߬" "ß­" "ß®" "߯" "ß°" "ß±" "ß²" "ß³" "ß´" "ßµ" "߶" "ß·" "߸" "ß¹" "ߺ" "ß»" "ß¼" "ß½" "ß¾" "ß¿" "ßÀ" "ßÁ" "ßÂ" "ßÃ" "ßÄ" "ßÅ" "ßÆ" "ßÇ" "ßÈ" "ßÉ" "ßÊ" "ßË" "ßÌ" "ßÍ" "ßÎ" "ßÏ" "ßÐ" "ßÑ" "ßÒ" "ßÓ" "ßÔ" "ßÕ" "ßÖ" "ß×" "ßØ" "ßÙ" "ßÚ" "ßÛ" "ßÜ" "ßÝ" "ßÞ" "ßß" "ßà" "ßá" "ßâ" "ßã" "ßä" "ßå" "ßæ" "ßç" "ßè" "ßé" "ßê" "ßë" "ßì" "ßí" "ßî" "ßï" "ßð" "ßñ" "ßò" "ßó" "ßô" "ßõ" "ßö" "ß÷" "ßø" "ßù" "ßú" "ßû" "ßü" "ßý" "ßþ" 64| "à¡" "à¢" "à£" "à¤" "à¥" "à¦" "à§" "à¨" "à©" "àª" "à«" "à¬" "à­" "à®" "à¯" "à°" "à±" "à²" "à³" "à´" "àµ" "à¶" "à·" "à¸" "à¹" "àº" "à»" "à¼" "à½" "à¾" "à¿" "àÀ" "àÁ" "àÂ" "àÃ" "àÄ" "àÅ" "àÆ" "àÇ" "àÈ" "àÉ" "àÊ" "àË" "àÌ" "àÍ" "àÎ" "àÏ" "àÐ" "àÑ" "àÒ" "àÓ" "àÔ" "àÕ" "àÖ" "à×" "àØ" "àÙ" "àÚ" "àÛ" "àÜ" "àÝ" "àÞ" "àß" "àà" "àá" "àâ" "àã" "àä" "àå" "àæ" "àç" "àè" "àé" "àê" "àë" "àì" "àí" "àî" "àï" "àð" "àñ" "àò" "àó" "àô" "àõ" "àö" "à÷" "àø" "àù" "àú" "àû" "àü" "àý" "àþ" 65| "á¡" "á¢" "á£" "á¤" "á¥" "á¦" "á§" "á¨" "á©" "áª" "á«" "á¬" "á­" "á®" "á¯" "á°" "á±" "á²" "á³" "á´" "áµ" "á¶" "á·" "á¸" "á¹" "áº" "á»" "á¼" "á½" "á¾" "á¿" "áÀ" "áÁ" "áÂ" "áÃ" "áÄ" "áÅ" "áÆ" "áÇ" "áÈ" "áÉ" "áÊ" "áË" "áÌ" "áÍ" "áÎ" "áÏ" "áÐ" "áÑ" "áÒ" "áÓ" "áÔ" "áÕ" "áÖ" "á×" "áØ" "áÙ" "áÚ" "áÛ" "áÜ" "áÝ" "áÞ" "áß" "áà" "áá" "áâ" "áã" "áä" "áå" "áæ" "áç" "áè" "áé" "áê" "áë" "áì" "áí" "áî" "áï" "áð" "áñ" "áò" "áó" "áô" "áõ" "áö" "á÷" "áø" "áù" "áú" "áû" "áü" "áý" "áþ" 66| "â¡" "â¢" "â£" "â¤" "â¥" "â¦" "â§" "â¨" "â©" "âª" "â«" "â¬" "â­" "â®" "â¯" "â°" "â±" "â²" "â³" "â´" "âµ" "â¶" "â·" "â¸" "â¹" "âº" "â»" "â¼" "â½" "â¾" "â¿" "âÀ" "âÁ" "âÂ" "âÃ" "âÄ" "âÅ" "âÆ" "âÇ" "âÈ" "âÉ" "âÊ" "âË" "âÌ" "âÍ" "âÎ" "âÏ" "âÐ" "âÑ" "âÒ" "âÓ" "âÔ" "âÕ" "âÖ" "â×" "âØ" "âÙ" "âÚ" "âÛ" "âÜ" "âÝ" "âÞ" "âß" "âà" "âá" "ââ" "âã" "âä" "âå" "âæ" "âç" "âè" "âé" "âê" "âë" "âì" "âí" "âî" "âï" "âð" "âñ" "âò" "âó" "âô" "âõ" "âö" "â÷" "âø" "âù" "âú" "âû" "âü" "âý" "âþ" 67| "ã¡" "ã¢" "ã£" "ã¤" "ã¥" "ã¦" "ã§" "ã¨" "ã©" "ãª" "ã«" "ã¬" "ã­" "ã®" "ã¯" "ã°" "ã±" "ã²" "ã³" "ã´" "ãµ" "ã¶" "ã·" "ã¸" "ã¹" "ãº" "ã»" "ã¼" "ã½" "ã¾" "ã¿" "ãÀ" "ãÁ" "ãÂ" "ãÃ" "ãÄ" "ãÅ" "ãÆ" "ãÇ" "ãÈ" "ãÉ" "ãÊ" "ãË" "ãÌ" "ãÍ" "ãÎ" "ãÏ" "ãÐ" "ãÑ" "ãÒ" "ãÓ" "ãÔ" "ãÕ" "ãÖ" "ã×" "ãØ" "ãÙ" "ãÚ" "ãÛ" "ãÜ" "ãÝ" "ãÞ" "ãß" "ãà" "ãá" "ãâ" "ãã" "ãä" "ãå" "ãæ" "ãç" "ãè" "ãé" "ãê" "ãë" "ãì" "ãí" "ãî" "ãï" "ãð" "ãñ" "ãò" "ãó" "ãô" "ãõ" "ãö" "ã÷" "ãø" "ãù" "ãú" "ãû" "ãü" "ãý" "ãþ" 68| "ä¡" "ä¢" "ä£" "ä¤" "ä¥" "ä¦" "ä§" "ä¨" "ä©" "äª" "ä«" "ä¬" "ä­" "ä®" "ä¯" "ä°" "ä±" "ä²" "ä³" "ä´" "äµ" "ä¶" "ä·" "ä¸" "ä¹" "äº" "ä»" "ä¼" "ä½" "ä¾" "ä¿" "äÀ" "äÁ" "äÂ" "äÃ" "äÄ" "äÅ" "äÆ" "äÇ" "äÈ" "äÉ" "äÊ" "äË" "äÌ" "äÍ" "äÎ" "äÏ" "äÐ" "äÑ" "äÒ" "äÓ" "äÔ" "äÕ" "äÖ" "ä×" "äØ" "äÙ" "äÚ" "äÛ" "äÜ" "äÝ" "äÞ" "äß" "äà" "äá" "äâ" "äã" "ää" "äå" "äæ" "äç" "äè" "äé" "äê" "äë" "äì" "äí" "äî" "äï" "äð" "äñ" "äò" "äó" "äô" "äõ" "äö" "ä÷" "äø" "äù" "äú" "äû" "äü" "äý" "äþ" 69| "å¡" "å¢" "å£" "å¤" "å¥" "å¦" "å§" "å¨" "å©" "åª" "å«" "å¬" "å­" "å®" "å¯" "å°" "å±" "å²" "å³" "å´" "åµ" "å¶" "å·" "å¸" "å¹" "åº" "å»" "å¼" "å½" "å¾" "å¿" "åÀ" "åÁ" "åÂ" "åÃ" "åÄ" "åÅ" "åÆ" "åÇ" "åÈ" "åÉ" "åÊ" "åË" "åÌ" "åÍ" "åÎ" "åÏ" "åÐ" "åÑ" "åÒ" "åÓ" "åÔ" "åÕ" "åÖ" "å×" "åØ" "åÙ" "åÚ" "åÛ" "åÜ" "åÝ" "åÞ" "åß" "åà" "åá" "åâ" "åã" "åä" "åå" "åæ" "åç" "åè" "åé" "åê" "åë" "åì" "åí" "åî" "åï" "åð" "åñ" "åò" "åó" "åô" "åõ" "åö" "å÷" "åø" "åù" "åú" "åû" "åü" "åý" "åþ" 70| "æ¡" "æ¢" "æ£" "æ¤" "æ¥" "æ¦" "æ§" "æ¨" "æ©" "æª" "æ«" "æ¬" "æ­" "æ®" "æ¯" "æ°" "æ±" "æ²" "æ³" "æ´" "æµ" "æ¶" "æ·" "æ¸" "æ¹" "æº" "æ»" "æ¼" "æ½" "æ¾" "æ¿" "æÀ" "æÁ" "æÂ" "æÃ" "æÄ" "æÅ" "æÆ" "æÇ" "æÈ" "æÉ" "æÊ" "æË" "æÌ" "æÍ" "æÎ" "æÏ" "æÐ" "æÑ" "æÒ" "æÓ" "æÔ" "æÕ" "æÖ" "æ×" "æØ" "æÙ" "æÚ" "æÛ" "æÜ" "æÝ" "æÞ" "æß" "æà" "æá" "æâ" "æã" "æä" "æå" "ææ" "æç" "æè" "æé" "æê" "æë" "æì" "æí" "æî" "æï" "æð" "æñ" "æò" "æó" "æô" "æõ" "æö" "æ÷" "æø" "æù" "æú" "æû" "æü" "æý" "æþ" 71| "ç¡" "ç¢" "ç£" "ç¤" "ç¥" "ç¦" "ç§" "ç¨" "ç©" "çª" "ç«" "ç¬" "ç­" "ç®" "ç¯" "ç°" "ç±" "ç²" "ç³" "ç´" "çµ" "ç¶" "ç·" "ç¸" "ç¹" "çº" "ç»" "ç¼" "ç½" "ç¾" "ç¿" "çÀ" "çÁ" "çÂ" "çÃ" "çÄ" "çÅ" "çÆ" "çÇ" "çÈ" "çÉ" "çÊ" "çË" "çÌ" "çÍ" "çÎ" "çÏ" "çÐ" "çÑ" "çÒ" "çÓ" "çÔ" "çÕ" "çÖ" "ç×" "çØ" "çÙ" "çÚ" "çÛ" "çÜ" "çÝ" "çÞ" "çß" "çà" "çá" "çâ" "çã" "çä" "çå" "çæ" "çç" "çè" "çé" "çê" "çë" "çì" "çí" "çî" "çï" "çð" "çñ" "çò" "çó" "çô" "çõ" "çö" "ç÷" "çø" "çù" "çú" "çû" "çü" "çý" "çþ" 72| "è¡" "è¢" "è£" "è¤" "è¥" "è¦" "è§" "è¨" "è©" "èª" "è«" "è¬" "è­" "è®" "è¯" "è°" "è±" "è²" "è³" "è´" "èµ" "è¶" "è·" "è¸" "è¹" "èº" "è»" "è¼" "è½" "è¾" "è¿" "èÀ" "èÁ" "èÂ" "èÃ" "èÄ" "èÅ" "èÆ" "èÇ" "èÈ" "èÉ" "èÊ" "èË" "èÌ" "èÍ" "èÎ" "èÏ" "èÐ" "èÑ" "èÒ" "èÓ" "èÔ" "èÕ" "èÖ" "è×" "èØ" "èÙ" "èÚ" "èÛ" "èÜ" "èÝ" "èÞ" "èß" "èà" "èá" "èâ" "èã" "èä" "èå" "èæ" "èç" "èè" "èé" "èê" "èë" "èì" "èí" "èî" "èï" "èð" "èñ" "èò" "èó" "èô" "èõ" "èö" "è÷" "èø" "èù" "èú" "èû" "èü" "èý" "èþ" 73| "é¡" "é¢" "é£" "é¤" "é¥" "é¦" "é§" "é¨" "é©" "éª" "é«" "é¬" "é­" "é®" "é¯" "é°" "é±" "é²" "é³" "é´" "éµ" "é¶" "é·" "é¸" "é¹" "éº" "é»" "é¼" "é½" "é¾" "é¿" "éÀ" "éÁ" "éÂ" "éÃ" "éÄ" "éÅ" "éÆ" "éÇ" "éÈ" "éÉ" "éÊ" "éË" "éÌ" "éÍ" "éÎ" "éÏ" "éÐ" "éÑ" "éÒ" "éÓ" "éÔ" "éÕ" "éÖ" "é×" "éØ" "éÙ" "éÚ" "éÛ" "éÜ" "éÝ" "éÞ" "éß" "éà" "éá" "éâ" "éã" "éä" "éå" "éæ" "éç" "éè" "éé" "éê" "éë" "éì" "éí" "éî" "éï" "éð" "éñ" "éò" "éó" "éô" "éõ" "éö" "é÷" "éø" "éù" "éú" "éû" "éü" "éý" "éþ" 74| "ê¡" "ê¢" "ê£" "ê¤" "ê¥" "ê¦" "ê§" "ê¨" "ê©" "êª" "ê«" "ê¬" "ê­" "ê®" "ê¯" "ê°" "ê±" "ê²" "ê³" "ê´" "êµ" "ê¶" "ê·" "ê¸" "ê¹" "êº" "ê»" "ê¼" "ê½" "ê¾" "ê¿" "êÀ" "êÁ" "êÂ" "êÃ" "êÄ" "êÅ" "êÆ" "êÇ" "êÈ" "êÉ" "êÊ" "êË" "êÌ" "êÍ" "êÎ" "êÏ" "êÐ" "êÑ" "êÒ" "êÓ" "êÔ" "êÕ" "êÖ" "ê×" "êØ" "êÙ" "êÚ" "êÛ" "êÜ" "êÝ" "êÞ" "êß" "êà" "êá" "êâ" "êã" "êä" "êå" "êæ" "êç" "êè" "êé" "êê" "êë" "êì" "êí" "êî" "êï" "êð" "êñ" "êò" "êó" "êô" "êõ" "êö" "ê÷" "êø" "êù" "êú" "êû" "êü" "êý" "êþ" 75| "ë¡" "ë¢" "ë£" "ë¤" "ë¥" "ë¦" "ë§" "ë¨" "ë©" "ëª" "ë«" "ë¬" "ë­" "ë®" "ë¯" "ë°" "ë±" "ë²" "ë³" "ë´" "ëµ" "ë¶" "ë·" "ë¸" "ë¹" "ëº" "ë»" "ë¼" "ë½" "ë¾" "ë¿" "ëÀ" "ëÁ" "ëÂ" "ëÃ" "ëÄ" "ëÅ" "ëÆ" "ëÇ" "ëÈ" "ëÉ" "ëÊ" "ëË" "ëÌ" "ëÍ" "ëÎ" "ëÏ" "ëÐ" "ëÑ" "ëÒ" "ëÓ" "ëÔ" "ëÕ" "ëÖ" "ë×" "ëØ" "ëÙ" "ëÚ" "ëÛ" "ëÜ" "ëÝ" "ëÞ" "ëß" "ëà" "ëá" "ëâ" "ëã" "ëä" "ëå" "ëæ" "ëç" "ëè" "ëé" "ëê" "ëë" "ëì" "ëí" "ëî" "ëï" "ëð" "ëñ" "ëò" "ëó" "ëô" "ëõ" "ëö" "ë÷" "ëø" "ëù" "ëú" "ëû" "ëü" "ëý" "ëþ" 76| "ì¡" "ì¢" "ì£" "ì¤" "ì¥" "ì¦" "ì§" "ì¨" "ì©" "ìª" "ì«" "ì¬" "ì­" "ì®" "ì¯" "ì°" "ì±" "ì²" "ì³" "ì´" "ìµ" "ì¶" "ì·" "ì¸" "ì¹" "ìº" "ì»" "ì¼" "ì½" "ì¾" "ì¿" "ìÀ" "ìÁ" "ìÂ" "ìÃ" "ìÄ" "ìÅ" "ìÆ" "ìÇ" "ìÈ" "ìÉ" "ìÊ" "ìË" "ìÌ" "ìÍ" "ìÎ" "ìÏ" "ìÐ" "ìÑ" "ìÒ" "ìÓ" "ìÔ" "ìÕ" "ìÖ" "ì×" "ìØ" "ìÙ" "ìÚ" "ìÛ" "ìÜ" "ìÝ" "ìÞ" "ìß" "ìà" "ìá" "ìâ" "ìã" "ìä" "ìå" "ìæ" "ìç" "ìè" "ìé" "ìê" "ìë" "ìì" "ìí" "ìî" "ìï" "ìð" "ìñ" "ìò" "ìó" "ìô" "ìõ" "ìö" "ì÷" "ìø" "ìù" "ìú" "ìû" "ìü" "ìý" "ìþ" 77| "í¡" "í¢" "í£" "í¤" "í¥" "í¦" "í§" "í¨" "í©" "íª" "í«" "í¬" "í­" "í®" "í¯" "í°" "í±" "í²" "í³" "í´" "íµ" "í¶" "í·" "í¸" "í¹" "íº" "í»" "í¼" "í½" "í¾" "í¿" "íÀ" "íÁ" "íÂ" "íÃ" "íÄ" "íÅ" "íÆ" "íÇ" "íÈ" "íÉ" "íÊ" "íË" "íÌ" "íÍ" "íÎ" "íÏ" "íÐ" "íÑ" "íÒ" "íÓ" "íÔ" "íÕ" "íÖ" "í×" "íØ" "íÙ" "íÚ" "íÛ" "íÜ" "íÝ" "íÞ" "íß" "íà" "íá" "íâ" "íã" "íä" "íå" "íæ" "íç" "íè" "íé" "íê" "íë" "íì" "íí" "íî" "íï" "íð" "íñ" "íò" "íó" "íô" "íõ" "íö" "í÷" "íø" "íù" "íú" "íû" "íü" "íý" "íþ" 78| "î¡" "î¢" "î£" "î¤" "î¥" "î¦" "î§" "î¨" "î©" "îª" "î«" "î¬" "î­" "î®" "î¯" "î°" "î±" "î²" "î³" "î´" "îµ" "î¶" "î·" "î¸" "î¹" "îº" "î»" "î¼" "î½" "î¾" "î¿" "îÀ" "îÁ" "îÂ" "îÃ" "îÄ" "îÅ" "îÆ" "îÇ" "îÈ" "îÉ" "îÊ" "îË" "îÌ" "îÍ" "îÎ" "îÏ" "îÐ" "îÑ" "îÒ" "îÓ" "îÔ" "îÕ" "îÖ" "î×" "îØ" "îÙ" "îÚ" "îÛ" "îÜ" "îÝ" "îÞ" "îß" "îà" "îá" "îâ" "îã" "îä" "îå" "îæ" "îç" "îè" "îé" "îê" "îë" "îì" "îí" "îî" "îï" "îð" "îñ" "îò" "îó" "îô" "îõ" "îö" "î÷" "îø" "îù" "îú" "îû" "îü" "îý" "îþ" 79| "ï¡" "ï¢" "ï£" "ï¤" "ï¥" "ï¦" "ï§" "ï¨" "ï©" "ïª" "ï«" "ï¬" "ï­" "ï®" "ï¯" "ï°" "ï±" "ï²" "ï³" "ï´" "ïµ" "ï¶" "ï·" "ï¸" "ï¹" "ïº" "ï»" "ï¼" "ï½" "ï¾" "ï¿" "ïÀ" "ïÁ" "ïÂ" "ïÃ" "ïÄ" "ïÅ" "ïÆ" "ïÇ" "ïÈ" "ïÉ" "ïÊ" "ïË" "ïÌ" "ïÍ" "ïÎ" "ïÏ" "ïÐ" "ïÑ" "ïÒ" "ïÓ" "ïÔ" "ïÕ" "ïÖ" "ï×" "ïØ" "ïÙ" "ïÚ" "ïÛ" "ïÜ" "ïÝ" "ïÞ" "ïß" "ïà" "ïá" "ïâ" "ïã" "ïä" "ïå" "ïæ" "ïç" "ïè" "ïé" "ïê" "ïë" "ïì" "ïí" "ïî" "ïï" "ïð" "ïñ" "ïò" "ïó" "ïô" "ïõ" "ïö" "ï÷" "ïø" "ïù" "ïú" "ïû" "ïü" "ïý" "ïþ" 80| "ð¡" "ð¢" "ð£" "ð¤" "ð¥" "ð¦" "ð§" "ð¨" "ð©" "ðª" "ð«" "ð¬" "ð­" "ð®" "ð¯" "ð°" "ð±" "ð²" "ð³" "ð´" "ðµ" "ð¶" "ð·" "ð¸" "ð¹" "ðº" "ð»" "ð¼" "ð½" "ð¾" "ð¿" "ðÀ" "ðÁ" "ðÂ" "ðÃ" "ðÄ" "ðÅ" "ðÆ" "ðÇ" "ðÈ" "ðÉ" "ðÊ" "ðË" "ðÌ" "ðÍ" "ðÎ" "ðÏ" "ðÐ" "ðÑ" "ðÒ" "ðÓ" "ðÔ" "ðÕ" "ðÖ" "ð×" "ðØ" "ðÙ" "ðÚ" "ðÛ" "ðÜ" "ðÝ" "ðÞ" "ðß" "ðà" "ðá" "ðâ" "ðã" "ðä" "ðå" "ðæ" "ðç" "ðè" "ðé" "ðê" "ðë" "ðì" "ðí" "ðî" "ðï" "ðð" "ðñ" "ðò" "ðó" "ðô" "ðõ" "ðö" "ð÷" "ðø" "ðù" "ðú" "ðû" "ðü" "ðý" "ðþ" 81| "ñ¡" "ñ¢" "ñ£" "ñ¤" "ñ¥" "ñ¦" "ñ§" "ñ¨" "ñ©" "ñª" "ñ«" "ñ¬" "ñ­" "ñ®" "ñ¯" "ñ°" "ñ±" "ñ²" "ñ³" "ñ´" "ñµ" "ñ¶" "ñ·" "ñ¸" "ñ¹" "ñº" "ñ»" "ñ¼" "ñ½" "ñ¾" "ñ¿" "ñÀ" "ñÁ" "ñÂ" "ñÃ" "ñÄ" "ñÅ" "ñÆ" "ñÇ" "ñÈ" "ñÉ" "ñÊ" "ñË" "ñÌ" "ñÍ" "ñÎ" "ñÏ" "ñÐ" "ñÑ" "ñÒ" "ñÓ" "ñÔ" "ñÕ" "ñÖ" "ñ×" "ñØ" "ñÙ" "ñÚ" "ñÛ" "ñÜ" "ñÝ" "ñÞ" "ñß" "ñà" "ñá" "ñâ" "ñã" "ñä" "ñå" "ñæ" "ñç" "ñè" "ñé" "ñê" "ñë" "ñì" "ñí" "ñî" "ñï" "ñð" "ññ" "ñò" "ñó" "ñô" "ñõ" "ñö" "ñ÷" "ñø" "ñù" "ñú" "ñû" "ñü" "ñý" "ñþ" 82| "ò¡" "ò¢" "ò£" "ò¤" "ò¥" "ò¦" "ò§" "ò¨" "ò©" "òª" "ò«" "ò¬" "ò­" "ò®" "ò¯" "ò°" "ò±" "ò²" "ò³" "ò´" "òµ" "ò¶" "ò·" "ò¸" "ò¹" "òº" "ò»" "ò¼" "ò½" "ò¾" "ò¿" "òÀ" "òÁ" "òÂ" "òÃ" "òÄ" "òÅ" "òÆ" "òÇ" "òÈ" "òÉ" "òÊ" "òË" "òÌ" "òÍ" "òÎ" "òÏ" "òÐ" "òÑ" "òÒ" "òÓ" "òÔ" "òÕ" "òÖ" "ò×" "òØ" "òÙ" "òÚ" "òÛ" "òÜ" "òÝ" "òÞ" "òß" "òà" "òá" "òâ" "òã" "òä" "òå" "òæ" "òç" "òè" "òé" "òê" "òë" "òì" "òí" "òî" "òï" "òð" "òñ" "òò" "òó" "òô" "òõ" "òö" "ò÷" "òø" "òù" "òú" "òû" "òü" "òý" "òþ" 83| "ó¡" "ó¢" "ó£" "ó¤" "ó¥" "ó¦" "ó§" "ó¨" "ó©" "óª" "ó«" "ó¬" "ó­" "ó®" "ó¯" "ó°" "ó±" "ó²" "ó³" "ó´" "óµ" "ó¶" "ó·" "ó¸" "ó¹" "óº" "ó»" "ó¼" "ó½" "ó¾" "ó¿" "óÀ" "óÁ" "óÂ" "óÃ" "óÄ" "óÅ" "óÆ" "óÇ" "óÈ" "óÉ" "óÊ" "óË" "óÌ" "óÍ" "óÎ" "óÏ" "óÐ" "óÑ" "óÒ" "óÓ" "óÔ" "óÕ" "óÖ" "ó×" "óØ" "óÙ" "óÚ" "óÛ" "óÜ" "óÝ" "óÞ" "óß" "óà" "óá" "óâ" "óã" "óä" "óå" "óæ" "óç" "óè" "óé" "óê" "óë" "óì" "óí" "óî" "óï" "óð" "óñ" "óò" "óó" "óô" "óõ" "óö" "ó÷" "óø" "óù" "óú" "óû" "óü" "óý" "óþ" 84| "ô¡" "ô¢" "ô£" "ô¤" "ô¥" "ô¦" "ô§" "ô¨" "ô©" "ôª" "ô«" "ô¬" "ô­" "ô®" "ô¯" "ô°" "ô±" "ô²" "ô³" "ô´" "ôµ" "ô¶" "ô·" "ô¸" "ô¹" "ôº" "ô»" "ô¼" "ô½" "ô¾" "ô¿" "ôÀ" "ôÁ" "ôÂ" "ôÃ" "ôÄ" "ôÅ" "ôÆ" "ôÇ" "ôÈ" "ôÉ" "ôÊ" "ôË" "ôÌ" "ôÍ" "ôÎ" "ôÏ" "ôÐ" "ôÑ" "ôÒ" "ôÓ" "ôÔ" "ôÕ" "ôÖ" "ô×" "ôØ" "ôÙ" "ôÚ" "ôÛ" "ôÜ" "ôÝ" "ôÞ" "ôß" "ôà" "ôá" "ôâ" "ôã" "ôä" "ôå" "ôæ" "ôç" "ôè" "ôé" "ôê" "ôë" "ôì" "ôí" "ôî" "ôï" "ôð" "ôñ" "ôò" "ôó" "ôô" "ôõ" "ôö" "ô÷" "ôø" "ôù" "ôú" "ôû" "ôü" "ôý" "ôþ" 85| "õ¡" "õ¢" "õ£" "õ¤" "õ¥" "õ¦" "õ§" "õ¨" "õ©" "õª" "õ«" "õ¬" "õ­" "õ®" "õ¯" "õ°" "õ±" "õ²" "õ³" "õ´" "õµ" "õ¶" "õ·" "õ¸" "õ¹" "õº" "õ»" "õ¼" "õ½" "õ¾" "õ¿" "õÀ" "õÁ" "õÂ" "õÃ" "õÄ" "õÅ" "õÆ" "õÇ" "õÈ" "õÉ" "õÊ" "õË" "õÌ" "õÍ" "õÎ" "õÏ" "õÐ" "õÑ" "õÒ" "õÓ" "õÔ" "õÕ" "õÖ" "õ×" "õØ" "õÙ" "õÚ" "õÛ" "õÜ" "õÝ" "õÞ" "õß" "õà" "õá" "õâ" "õã" "õä" "õå" "õæ" "õç" "õè" "õé" "õê" "õë" "õì" "õí" "õî" "õï" "õð" "õñ" "õò" "õó" "õô" "õõ" "õö" "õ÷" "õø" "õù" "õú" "õû" "õü" "õý" "õþ" 86| "ö¡" "ö¢" "ö£" "ö¤" "ö¥" "ö¦" "ö§" "ö¨" "ö©" "öª" "ö«" "ö¬" "ö­" "ö®" "ö¯" "ö°" "ö±" "ö²" "ö³" "ö´" "öµ" "ö¶" "ö·" "ö¸" "ö¹" "öº" "ö»" "ö¼" "ö½" "ö¾" "ö¿" "öÀ" "öÁ" "öÂ" "öÃ" "öÄ" "öÅ" "öÆ" "öÇ" "öÈ" "öÉ" "öÊ" "öË" "öÌ" "öÍ" "öÎ" "öÏ" "öÐ" "öÑ" "öÒ" "öÓ" "öÔ" "öÕ" "öÖ" "ö×" "öØ" "öÙ" "öÚ" "öÛ" "öÜ" "öÝ" "öÞ" "öß" "öà" "öá" "öâ" "öã" "öä" "öå" "öæ" "öç" "öè" "öé" "öê" "öë" "öì" "öí" "öî" "öï" "öð" "öñ" "öò" "öó" "öô" "öõ" "öö" "ö÷" "öø" "öù" "öú" "öû" "öü" "öý" "öþ" 87| "÷¡" "÷¢" "÷£" "÷¤" "÷¥" "÷¦" "÷§" "÷¨" "÷©" "÷ª" "÷«" "÷¬" "÷­" "÷®" "÷¯" "÷°" "÷±" "÷²" "÷³" "÷´" "÷µ" "÷¶" "÷·" "÷¸" "÷¹" "÷º" "÷»" "÷¼" "÷½" "÷¾" "÷¿" "÷À" "÷Á" "÷Â" "÷Ã" "÷Ä" "÷Å" "÷Æ" "÷Ç" "÷È" "÷É" "÷Ê" "÷Ë" "÷Ì" "÷Í" "÷Î" "÷Ï" "÷Ð" "÷Ñ" "÷Ò" "÷Ó" "÷Ô" "÷Õ" "÷Ö" "÷×" "÷Ø" "÷Ù" "÷Ú" "÷Û" "÷Ü" "÷Ý" "÷Þ" "÷ß" "÷à" "÷á" "÷â" "÷ã" "÷ä" "÷å" "÷æ" "÷ç" "÷è" "÷é" "÷ê" "÷ë" "÷ì" "÷í" "÷î" "÷ï" "÷ð" "÷ñ" "÷ò" "÷ó" "÷ô" "÷õ" "÷ö" "÷÷" "÷ø" "÷ù" "÷ú" "÷û" "÷ü" "÷ý" "÷þ" 88| "ø¡" "ø¢" "ø£" "ø¤" "ø¥" "ø¦" "ø§" "ø¨" "ø©" "øª" "ø«" "ø¬" "ø­" "ø®" "ø¯" "ø°" "ø±" "ø²" "ø³" "ø´" "øµ" "ø¶" "ø·" "ø¸" "ø¹" "øº" "ø»" "ø¼" "ø½" "ø¾" "ø¿" "øÀ" "øÁ" "øÂ" "øÃ" "øÄ" "øÅ" "øÆ" "øÇ" "øÈ" "øÉ" "øÊ" "øË" "øÌ" "øÍ" "øÎ" "øÏ" "øÐ" "øÑ" "øÒ" "øÓ" "øÔ" "øÕ" "øÖ" "ø×" "øØ" "øÙ" "øÚ" "øÛ" "øÜ" "øÝ" "øÞ" "øß" "øà" "øá" "øâ" "øã" "øä" "øå" "øæ" "øç" "øè" "øé" "øê" "øë" "øì" "øí" "øî" "øï" "øð" "øñ" "øò" "øó" "øô" "øõ" "øö" "ø÷" "øø" "øù" "øú" "øû" "øü" "øý" "øþ" 89| "ù¡" "ù¢" "ù£" "ù¤" "ù¥" "ù¦" "ù§" "ù¨" "ù©" "ùª" "ù«" "ù¬" "ù­" "ù®" "ù¯" "ù°" "ù±" "ù²" "ù³" "ù´" "ùµ" "ù¶" "ù·" "ù¸" "ù¹" "ùº" "ù»" "ù¼" "ù½" "ù¾" "ù¿" "ùÀ" "ùÁ" "ùÂ" "ùÃ" "ùÄ" "ùÅ" "ùÆ" "ùÇ" "ùÈ" "ùÉ" "ùÊ" "ùË" "ùÌ" "ùÍ" "ùÎ" "ùÏ" "ùÐ" "ùÑ" "ùÒ" "ùÓ" "ùÔ" "ùÕ" "ùÖ" "ù×" "ùØ" "ùÙ" "ùÚ" "ùÛ" "ùÜ" "ùÝ" "ùÞ" "ùß" "ùà" "ùá" "ùâ" "ùã" "ùä" "ùå" "ùæ" "ùç" "ùè" "ùé" "ùê" "ùë" "ùì" "ùí" "ùî" "ùï" "ùð" "ùñ" "ùò" "ùó" "ùô" "ùõ" "ùö" "ù÷" "ùø" "ùù" "ùú" "ùû" "ùü" "ùý" "ùþ" 90| "ú¡" "ú¢" "ú£" "ú¤" "ú¥" "ú¦" "ú§" "ú¨" "ú©" "úª" "ú«" "ú¬" "ú­" "ú®" "ú¯" "ú°" "ú±" "ú²" "ú³" "ú´" "úµ" "ú¶" "ú·" "ú¸" "ú¹" "úº" "ú»" "ú¼" "ú½" "ú¾" "ú¿" "úÀ" "úÁ" "úÂ" "úÃ" "úÄ" "úÅ" "úÆ" "úÇ" "úÈ" "úÉ" "úÊ" "úË" "úÌ" "úÍ" "úÎ" "úÏ" "úÐ" "úÑ" "úÒ" "úÓ" "úÔ" "úÕ" "úÖ" "ú×" "úØ" "úÙ" "úÚ" "úÛ" "úÜ" "úÝ" "úÞ" "úß" "úà" "úá" "úâ" "úã" "úä" "úå" "úæ" "úç" "úè" "úé" "úê" "úë" "úì" "úí" "úî" "úï" "úð" "úñ" "úò" "úó" "úô" "úõ" "úö" "ú÷" "úø" "úù" "úú" "úû" "úü" "úý" "úþ" 91| "û¡" "û¢" "û£" "û¤" "û¥" "û¦" "û§" "û¨" "û©" "ûª" "û«" "û¬" "û­" "û®" "û¯" "û°" "û±" "û²" "û³" "û´" "ûµ" "û¶" "û·" "û¸" "û¹" "ûº" "û»" "û¼" "û½" "û¾" "û¿" "ûÀ" "ûÁ" "ûÂ" "ûÃ" "ûÄ" "ûÅ" "ûÆ" "ûÇ" "ûÈ" "ûÉ" "ûÊ" "ûË" "ûÌ" "ûÍ" "ûÎ" "ûÏ" "ûÐ" "ûÑ" "ûÒ" "ûÓ" "ûÔ" "ûÕ" "ûÖ" "û×" "ûØ" "ûÙ" "ûÚ" "ûÛ" "ûÜ" "ûÝ" "ûÞ" "ûß" "ûà" "ûá" "ûâ" "ûã" "ûä" "ûå" "ûæ" "ûç" "ûè" "ûé" "ûê" "ûë" "ûì" "ûí" "ûî" "ûï" "ûð" "ûñ" "ûò" "ûó" "ûô" "ûõ" "ûö" "û÷" "ûø" "ûù" "ûú" "ûû" "ûü" "ûý" "ûþ" 92| "ü¡" "ü¢" "ü£" "ü¤" "ü¥" "ü¦" "ü§" "ü¨" "ü©" "üª" "ü«" "ü¬" "ü­" "ü®" "ü¯" "ü°" "ü±" "ü²" "ü³" "ü´" "üµ" "ü¶" "ü·" "ü¸" "ü¹" "üº" "ü»" "ü¼" "ü½" "ü¾" "ü¿" "üÀ" "üÁ" "üÂ" "üÃ" "üÄ" "üÅ" "üÆ" "üÇ" "üÈ" "üÉ" "üÊ" "üË" "üÌ" "üÍ" "üÎ" "üÏ" "üÐ" "üÑ" "üÒ" "üÓ" "üÔ" "üÕ" "üÖ" "ü×" "üØ" "üÙ" "üÚ" "üÛ" "üÜ" "üÝ" "üÞ" "üß" "üà" "üá" "üâ" "üã" "üä" "üå" "üæ" "üç" "üè" "üé" "üê" "üë" "üì" "üí" "üî" "üï" "üð" "üñ" "üò" "üó" "üô" "üõ" "üö" "ü÷" "üø" "üù" "üú" "üû" "üü" "üý" "üþ" 93| "ý¡" "ý¢" "ý£" "ý¤" "ý¥" "ý¦" "ý§" "ý¨" "ý©" "ýª" "ý«" "ý¬" "ý­" "ý®" "ý¯" "ý°" "ý±" "ý²" "ý³" "ý´" "ýµ" "ý¶" "ý·" "ý¸" "ý¹" "ýº" "ý»" "ý¼" "ý½" "ý¾" "ý¿" "ýÀ" "ýÁ" "ýÂ" "ýÃ" "ýÄ" "ýÅ" "ýÆ" "ýÇ" "ýÈ" "ýÉ" "ýÊ" "ýË" "ýÌ" "ýÍ" "ýÎ" "ýÏ" "ýÐ" "ýÑ" "ýÒ" "ýÓ" "ýÔ" "ýÕ" "ýÖ" "ý×" "ýØ" "ýÙ" "ýÚ" "ýÛ" "ýÜ" "ýÝ" "ýÞ" "ýß" "ýà" "ýá" "ýâ" "ýã" "ýä" "ýå" "ýæ" "ýç" "ýè" "ýé" "ýê" "ýë" "ýì" "ýí" "ýî" "ýï" "ýð" "ýñ" "ýò" "ýó" "ýô" "ýõ" "ýö" "ý÷" "ýø" "ýù" "ýú" "ýû" "ýü" "ýý" "ýþ" 94| "þ¡" "þ¢" "þ£" "þ¤" "þ¥" "þ¦" "þ§" "þ¨" "þ©" "þª" "þ«" "þ¬" "þ­" "þ®" "þ¯" "þ°" "þ±" "þ²" "þ³" "þ´" "þµ" "þ¶" "þ·" "þ¸" "þ¹" "þº" "þ»" "þ¼" "þ½" "þ¾" "þ¿" "þÀ" "þÁ" "þÂ" "þÃ" "þÄ" "þÅ" "þÆ" "þÇ" "þÈ" "þÉ" "þÊ" "þË" "þÌ" "þÍ" "þÎ" "þÏ" "þÐ" "þÑ" "þÒ" "þÓ" "þÔ" "þÕ" "þÖ" "þ×" "þØ" "þÙ" "þÚ" "þÛ" "þÜ" "þÝ" "þÞ" "þß" "þà" "þá" "þâ" "þã" "þä" "þå" "þæ" "þç" "þè" "þé" "þê" "þë" "þì" "þí" "þî" "þï" "þð" "þñ" "þò" "þó" "þô" "þõ" "þö" "þ÷" "þø" "þù" "þú" "þû" "þü" "þý" "þþ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-2022-94char.text0000644000764400003210000000231307234613643023375 0ustar ishikawaishikawa00000000000000;;; -*- coding: -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" egg-4.0.6+0.20041122cvs/doc/code-table/iso-2022-96char.text0000644000764400003210000000231307234613643023377 0ustar ishikawaishikawa00000000000000;;; -*- coding: -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-2.text0000644000764400003210000000232707234613643022501 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-2 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-3.text0000644000764400003210000000232607234613643022501 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-3 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-4.text0000644000764400003210000000232607234613643022502 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-4 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-5.text0000644000764400003210000000232607234613643022503 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-5 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-7.text0000644000764400003210000000232607234613643022505 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-7 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-8.text0000644000764400003210000000232607234613643022506 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-8 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/iso-8859-9.text0000644000764400003210000000232607234613643022507 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-8859-9 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/non-iso2022.text0000644000764400003210000000231307234613643023020 0ustar ishikawaishikawa00000000000000;;; -*- coding: -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| "" "" " " "0" "@" "P" "`" "p" "€" "" " " "°" "À" "Ð" "à" "ð" 1| "" "" "!" "1" "A" "Q" "a" "q" "" "‘" "¡" "±" "Á" "Ñ" "á" "ñ" 2| "" "" """ "2" "B" "R" "b" "r" "‚" "’" "¢" "²" "Â" "Ò" "â" "ò" 3| "" "" "#" "3" "C" "S" "c" "s" "ƒ" "“" "£" "³" "Ã" "Ó" "ã" "ó" 4| "" "" "$" "4" "D" "T" "d" "t" "„" "”" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "" "" "%" "5" "E" "U" "e" "u" "…" "•" "¥" "µ" "Å" "Õ" "å" "õ" 6| "" "" "&" "6" "F" "V" "f" "v" "†" "–" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "" "" "'" "7" "G" "W" "g" "w" "‡" "—" "§" "·" "Ç" "×" "ç" "÷" 8| "" "" "(" "8" "H" "X" "h" "x" "ˆ" "˜" "¨" "¸" "È" "Ø" "è" "ø" 9| " " "" ")" "9" "I" "Y" "i" "y" "‰" "™" "©" "¹" "É" "Ù" "é" "ù" A| " " "" "*" ":" "J" "Z" "j" "z" "Š" "š" "ª" "º" "Ê" "Ú" "ê" "ú" B| " " "" "+" ";" "K" "[" "k" "{" "‹" "›" "«" "»" "Ë" "Û" "ë" "û" C| " " "" "," "<" "L" "\" "l" "|" "Œ" "œ" "¬" "¼" "Ì" "Ü" "ì" "ü" D| " " "" "-" "=" "M" "]" "m" "}" "" "" "­" "½" "Í" "Ý" "í" "ý" E| "" "" "." ">" "N" "^" "n" "~" "Ž" "ž" "®" "¾" "Î" "Þ" "î" "þ" F| "" "" "/" "?" "O" "_" "o" "" "" "Ÿ" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/tis620.text0000644000764400003210000000232207234613643022157 0ustar ishikawaishikawa00000000000000;;; -*- coding: tis620 -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "¡" "±" "Á" "Ñ" "á" "ñ" 2| """ "2" "B" "R" "b" "r" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "£" "³" "Ã" "Ó" "ã" "ó" 4| "$" "4" "D" "T" "d" "t" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "%" "5" "E" "U" "e" "u" "¥" "µ" "Å" "Õ" "å" "õ" 6| "&" "6" "F" "V" "f" "v" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "¨" "¸" "È" "Ø" "è" "ø" 9| ")" "9" "I" "Y" "i" "y" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "­" "½" "Í" "Ý" "í" "ý" E| "." ">" "N" "^" "n" "~" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "¯" "¿" "Ï" "ß" "ï" "ÿ" egg-4.0.6+0.20041122cvs/doc/code-table/viscii.text0000644000764400003210000000344407234613643022424 0ustar ishikawaishikawa00000000000000;;; -*- coding: viscii -*- | 0 1 2 3 4 5 6 7 8 9 A B C D E F -+---------------------------------------------------------------- 0| " " "0" "@" "P" "`" "p" "€" "" " " "°" "À" "Ð" "à" "ð" 1| "!" "1" "A" "Q" "a" "q" "" "‘" "¡" "±" "Á" "Ñ" "á" "ñ" 2| "" """ "2" "B" "R" "b" "r" "‚" "’" "¢" "²" "Â" "Ò" "â" "ò" 3| "#" "3" "C" "S" "c" "s" "ƒ" "“" "£" "³" "Ã" "Ó" "ã" "ó" 4| "" "$" "4" "D" "T" "d" "t" "„" "”" "¤" "´" "Ä" "Ô" "ä" "ô" 5| "" "%" "5" "E" "U" "e" "u" "…" "•" "¥" "µ" "Å" "Õ" "å" "õ" 6| "" "&" "6" "F" "V" "f" "v" "†" "–" "¦" "¶" "Æ" "Ö" "æ" "ö" 7| "'" "7" "G" "W" "g" "w" "‡" "—" "§" "·" "Ç" "×" "ç" "÷" 8| "(" "8" "H" "X" "h" "x" "ˆ" "˜" "¨" "¸" "È" "Ø" "è" "ø" 9| "" ")" "9" "I" "Y" "i" "y" "‰" "™" "©" "¹" "É" "Ù" "é" "ù" A| "*" ":" "J" "Z" "j" "z" "Š" "š" "ª" "º" "Ê" "Ú" "ê" "ú" B| "+" ";" "K" "[" "k" "{" "‹" "›" "«" "»" "Ë" "Û" "ë" "û" C| "," "<" "L" "\" "l" "|" "Œ" "œ" "¬" "¼" "Ì" "Ü" "ì" "ü" D| "-" "=" "M" "]" "m" "}" "" "" "­" "½" "Í" "Ý" "í" "ý" E| "" "." ">" "N" "^" "n" "~" "Ž" "ž" "®" "¾" "Î" "Þ" "î" "þ" F| "/" "?" "O" "_" "o" "" "Ÿ" "¯" "¿" "Ï" "ß" "ï" "ÿ" "a" "à" "ä" "ã" "á" "Õ" "å" "¢" "Æ" "Ç" "¡" "£" "â" "¥" "¦" "ç" "¤" "§" "e" "é" "ë" "¨" "è" "©" "ê" "ª" "¬" "­" "«" "®" "i" "í" "ï" "î" "ì" "¸" "o" "ó" "ö" "õ" "ò" "÷" "ô" "¯" "±" "²" "°" "µ" "½" "¾" "·" "Þ" "¶" "þ" "u" "ú" "ü" "û" "ù" "ø" "ß" "Ñ" "Ø" "æ" "×" "ñ" "y" "ý" "Ö" "Û" "Ï" "Ü" "A" "À" "Ä" "Ã" "Á" "€" "Å" "‚" "" "" "" "ƒ" "Â" "…" "†" "" "„" "‡" "E" "È" "Ë" "ˆ" "É" "‰" "Ê" "‹" "Œ" "" "Š" "Ž" "I" "Ì" "›" "Î" "Í" "˜" "O" "Ò" "™" " " "Ó" "š" "Ô" "" "‘" "’" "" "“" "´" "–" "—" "³" "•" "”" "U" "Ù" "œ" "" "Ú" "ž" "¿" "»" "¼" "ÿ" "º" "¹" "Y" "Ÿ" "" "" "Ý" "" "Ð" "ð"egg-4.0.6+0.20041122cvs/doc/lc99.text0000644000764400003210000004610007234613643017713 0ustar ishikawaishikawa00000000000000 Egg V4 (Tamago Next Generation) $BJR;3!!A1IW(B $B3t<02q/2CI.(B -- -- $BCm0U!'(B $BK\869F$O(B Tamago 4 $B%j%j!<%90JA0$K=q$+$l$?$b$N$G!"FbMF$N0lIt$,(B $B:G?7HG$N(B Tamago $B$NFbMF$H0[$J$kE@$,$"$j$^$9!#$"$i$+$8$a$4N;>5CV$-2<$5$$!#(B -- 1. $B$O$8$a$K(B $B!!$4B8CN$N$h$&$K!"F|K\8l%(%G%#%?!<(B NEmacs $B$NF|K\8lF~NO%a%=%C%I$H$7$F3+(B $BH/$5$l$?(B Egg $B$O!"B?8@8l%(%G%#%?!<(B Mule $B$K0z$-7Q$,$l!"F|!?Cf!?4Z9q8lF~(B $BNO%a%=%C%I$XH/E8$7$^$7$?!#(BMule $B$O(B GNU Emacs $B$rB?8@8l2=$7$F:n$i$l$?$N$G(B $B$9$,!"$=$NB?8@8l5!G=$,(B GNU Emacs 20 $B$K:N$jF~$l$i$l!"(BGNU Emacs $B<+?H$,B?(B $B8@8l%(%G%#%?!<$H$J$j$^$7$?!#$7$+$7!"0lIt$NB?8@8l5!G=$OL$$@%$%s%W%j%a%s(B $B%H$5$l$F$$$J$$$b$N$,$"$j!"(BEgg $B$b$=$N0l$D$K4^$^$l$F$$$^$9!#$3$N$?$a!"EE(B $BAm8&$N(B Mule $B%W%m%8%'%/%H$N0lIt$H$7$F!"EEAm8&0J30$NAH?%$+$i$N6(NOu(B $BBV$H$J$C$F$$$^$9!#:#8e!";EMMEy$,Bg$-$/JQ$o$k2DG=@-$,$"$k$3$H$r8fN;>52<(B $B$5$$!#(B 2. $BMh$O(B $BJQ49%5!<%P!<$H$NDL?.$K!"$+$J4A;zJQ49%7%9%F%`(B (Wnn$B!"(BSJ3) $B$N%i%$%V%i%j!<(B $B$rMQ$$$F$$$^$7$?!#$3$N$?$a!"(B $B!v(B $B%i%$%V%i%j!<$r%j%s%/$9$k$?$a$K:F%3%s%Q%$%k$,I,MW(B $B!v(B $B%i%$%V%i%j!e5-$NLdBjE@$r2r>C$7$^$7$?!#$^$?!"F|K\8lF~NO$@$1$7$+(B $B9T$J$o$J$$>l9g$G$b!"(BWnn $B$H(B SJ3 $B$r?o;~@ZBX$($F;H$&$3$H$b2DG=$G$9!#(B 2.2 $BB?8@8l5!G=$N6/2=(B $B!!85!9(B Egg $B$OF|K\8lF~NO%a%=%C%I$H$7$F3+H/$5$l$?$?$a!"Cf!?4Z9q8lF~NO%a(B $B%=%C%I$H$7$F$O5!G=ITB-$G$7$?!#FC$KLdBj$H$J$C$F$$$?E@$K$O!"(B $B!v(B $BCf9q8lHKBN;z$,F~NO$G$-$J$$(B $B!v(B $BCf!?4Z9q8lF~NO$X$N@ZBX$,LLE](B($B%a%K%e!<%b!<%I$7$+$J$$(B) $B!v(B $BCf!?4Z9q8l$N!HA43Q!I1Q?t;z$,F~NO$G$-$J$$(B $B$J$I$,$"$j$^$9!#(BEgg V4 $B$G$O!"(Btserver $B$r;H$C$?Cf9q8lHKBN;zF~NO$r%5%]!<(B $B%H$7!"I=(B1 $B$NF~NO%b!<%I$rMQ0U$7$^$7$?!#F~NO%b!<%I$N@ZBX$($O(B C-x C-m key1 $B$G9T$J$$$^$9!#%U%'%s%9Cf$G$O(B key2 $B$G$b@ZBX$($i$l$^$9!#(B $BI=(B1 :$BF~NO%b!<%I0lMw(B ============================================================================== $B%b!<%IL>(B Global Fence $BF~NO%b!<%I(B $B%b!<%IL>(B Global Fence $BF~NO%b!<%I(B Cmd. Cmd. Cmd. Cmd. ------------------------------------------------------------------------------ C-x key2 C-x key2 C-m C-m key1 key1 ============================================================================== $B8@8l6&DL(B (ASCII) ============================================================================== down q M-q ASCII up Q M-Q ASCII($BBgJ8;z(B) ============================================================================== $BF|K\8l(B (JIS X 0208) ============================================================================== hira h C-M-h $BJ?2>L>(B kata k C-M-k $BJR2>L>(B han-kata x C-x $BH>3QJR2>L>(B zenkaku-down z M-z $BA43Q1Q?t;z(B zenkaku-up Z M-Z $BA43Q1Q?t;z(B($BBgJ8;z(B) ============================================================================== $B4JBN;zCf9q8l(B (GB 2312) ============================================================================== pinyin-cn C-p C-M-p $(GQ;$B2;(B($BA4$(GQ;(B) erpin-cn C-e C-M-e $BFs$(GQ;(B($BAP$(GQ;(B) zhuyin-cn C-z C-M-z $BCm2;(B qianma C-q C-M-q $BA,b{(B wubi C-w C-M-w $B8^I.(B quanjiao-down-cn C-d C-M-d quanjiao-up-cn C-u C-M-u $BA43Q1Q?t;z(B $BA43Q1Q?t;z(B($BBgJ8;z(B) ============================================================================== $BHKBN;zCf9q8l(B (CNS 11643) ============================================================================== pinyin-tw P M-P $(GQ;$B2;(B($BA4$(GQ;(B) erpin-tw E M-E $BFs$(GQ;(B($BAP$(GQ;(B) zhuyin-tw C M-C $BCm2;(B quanjiao-down-tw D M-D $BA43Q1Q?t;z(B quanjiao-up-tw U M-U $BA43Q1Q?t;z(B($BBgJ8;z(B) ============================================================================== $B4Z9q8l(B (KS C 5601) ============================================================================== hangul H M-H $B%O%s%0%k(B jeonkak-down j M-j $BA43Q1Q?t;z(B jeonkak-up J M-J $BA43Q1Q?t;z(B($BBgJ8;z(B) ------------------------------------------------------------------------------ Egg V4 $B$O!"99$KB?8@8lF~NO%a%=%C%I$H$7$F$N5!G=$b6/2=$7$F$$$^$9!#B?8@8l(B $B%F%-%9%H$K$O!"J#?t$N8@8l$GJ;5-$7$?$b$N(B ($B?^(B1) $B$H!"0lJ8Cf$KJ#?t$N8@8l$,(B $B:.:_$7$?$b$N(B ($B?^(B2) $B$,$"$j$^$9!#(B +--------------------------------------------------------------+ | | | $B%F%/%K%+%k%3%s%U%!%l%s%9$X$h$&$3$=!#!!$A;6S-2NH3gGO<Mh$NF~(B $BNO%a%=%C%I$G$O3F8@8lKh$K$+$J4A;zJQ49$r9T$J$&I,MW$,$"$j$^$7$?!#$3$N$?$a!"(B $B?^(B2$B$N%?%$%W$NB?8@8l%F%-%9%H$NF~NO$OHs>o$KHK;($G$7$?!#$^$?!"$3$N$h$&$J(B $B%F%-%9%H$G$O!"%Y!<%9$H$J$k8@8l$KB>$N8@8l$,A^F~$5$l$?7A$K$J$j$^$9$+$i!"(B $B%Y!<%98@8l$X4JC1$KLa$l$k$3$H$bI,MW$G$9!#(BEgg V4 $B$G$O!"0[$J$k8@8l$NFI$_(B $B$rF~NO$7$F$*$$$F!"$^$H$a$F$+$J4A;zJQ49$r9T$J$($k$h$&$K$7$F$$$^$9!#?^(B3 $B$O!"(BEgg V4 $B$K$h$kF|Cf:.:_%F%-%9%H$N4A;zJQ49$NNc$G$9!#(B $B$A$e$&$4$/$4$G$$$s$?!<$M$C$H$O(B H(04@(BLi(0"(Bn(0@(BW(0#(Bng $B$H$$$$$^$9!#(B | | $B4A;zJQ49(B V $BCf9q8l$G%$%s%?!<%M%C%H$O$A;%A*Mx$B$H8@$$$^$9!#(B $B?^(B3:$BB?8@8l%F%-%9%H$N4A;zJQ49Nc(B -- $B?^(B3 $B$NNc$r;n$9$K$O!"(BFreeWnn $B$r%$%s%9%H!<%k$7$?>e$G!"(B C-\ c h u g o k u g o d e i n n t a - n e t t o h a C-M-p h u 4 l i a n 2 w a n g 3 C-M-h t o i i m a s u . SPC $B$H%?%$%W$7$F$/$@$5$$!#(B -- $B99$K!"(B1$B%-!<$GF~NO8@8l$r@ZBX$(!"(BC-g $B$GI|5"$9$k$h$&$K%+%9%?%^%$%:$9$k$3(B $B$H$b2DG=$H$J$C$F$$$^$9!#$R$i$,$JF~NO;~$K!"(Bq $B$G(B ASCII $BF~NO$X@ZBX$(!"(BC-g $B$G$R$i$,$JF~NO$KLa$k$N$HF1MM$G$9!#;d$N4D6-$G$O!"(B C$B!!!!$(GQ;Sv$BF~NO(B ($B4JBN;zCf9q8l(B) F$B!!!!$(GQ;Sv$BF~NO(B ($BHKBN;zCf9q8l(B) H$B!!!!%O%s%0%kF~NO(B ($B4Z9q8l(B) $B$H$7$F$$$^$9!#(B 3. Egg V4 $B$N;H$$J}(B $B!!4pK\E*$J;H$$J}$O=>Mh$H$"$^$jJQ$o$j$^$;$s!#$3$3$G$O!"=>Mh$H0[$J$kE@$K(B $B$D$$$F=R$Y$^$9!#(B 3.1 Egg $B$N5/F0(B $B!!(BMule $B$G$OF~NO%a%=%C%I$N@)8f(B (on/off$B!"%b!<%I%i%$%s$NJQ99!"(Betc.) $B$O!"(B $B3F!9$NF~NO%a%=%C%I$,9T$J$C$F$$$^$7$?$,!"(BEmacs 20 $B$G$O(B leim $B$,F~NO%a%=%C(B $B%I$N@)8f$r9T$J$$$^$9!#(BEgg V4 $B$b!"$3$N(B leim $B$N@)8f2<$GF0:n$7$^$9!#(Bleim $B$K$h$kF~NO%a%=%C%I$N(B on/off $B$O(B C-\ $B$G9T$J$$$^$9!#%G%U%)!<%k%H$NF~NO%a(B $B%=%C%I$,Dj5A$5$l$F$$$J$$;~$O!"F~NO%a%=%C%IL>$rJ9$$$F$-$^$9!#F~NO%a%=%C(B $B%I$rJQ99$9$k>l9g$O(B C-u C-\ $B$G!"$3$N;~$bF~NO%a%=%C%IL>$rJ9$$$F$-$^$9!#(B $BI=(B 2 $B$O!"(BEgg V4 $B$GMQ0U$7$F$$$kF~NO%a%=%C%IL>$G$9!#(B $BI=(B2: $BF~NO%a%=%C%IL>0lMw(B ---------------------------------------------------------------------------- $BF|K\8l(B ---------------------------------------------------------------------------- japanese-egg-wnn $BJ?2>L>F~NO(B(Wnn) japanese-egg-sj3 $BJ?2>L>F~NO(B(SJ3) ============================================================================ $B4JBN;zCf9q8l(B ---------------------------------------------------------------------------- chinese-gb-egg-wnn-py $(GQ;$B2;F~NO(B(Wnn) chinese-gb-egg-wnn-zy $BCm2;F~NO(B(Wnn) chinese-gb-egg-wnn-qm $BA,b{F~NO(B(Wnn) chinese-gb-egg-wnn-wb $B8^I.F~NO(B(Wnn) ============================================================================ $BHKBN;zCf9q8l(B ---------------------------------------------------------------------------- chinese-cns-egg-wnn-py $(GQ;$B2;F~NO(B(Wnn) chinese-cns-egg-wnn-zy $BCm2;F~NO(B(Wnn) ============================================================================ $B4Z9q8l(B ---------------------------------------------------------------------------- korean-egg-wnn $B%O%s%0%kF~NO(B(Wnn) ---------------------------------------------------------------------------- $BF~NO8@8l$r@ZBX$($k$N$K!"F~NO%a%=%C%I<+BN$r@ZBX$($kJ}K!$HF~NO%b!<%I$r@Z(B $BBX$($kJ}K!$,$"$k$3$H$K5$$E$+$l$?$H;W$$$^$9!#N>Mh$N$=$l$H0[$J$C$F$$$^$9!#$3$l$O!"(B $B!v(B Wnn $B$H(B SJ3 $B$rE}9g$7$?$3$H(B $B!v(B $B4X?tL>$,(B egg$B!"(Bwnn$B!"(Bsj3 $B$J$I$N%W%j%U%#%C%/%9$G;O$^$k$h$&$K$7$?(B $B$3$H$K$h$j$^$9!#=>Mh$N(B .eggrc $B$r$=$N$^$^;H$&$h$&$K%+%9%?%^%$%:$9$k$3$H(B $B$b$G$-$^$9!#(B 3.3 $B%+%9%?%^%$%:(B $B!!(BEgg V4 $B$G$O!"(BEmacs 20 $B$N(B customize-group $B$K$h$C$F%+%9%?%^%$%:$G$-$k(B $B$h$&$K$7$F$$$^$9!#(BM-x customize-group RET egg RET $B$H%?%$%W$9$k$H%+%9%?(B $B%^%$%:2hLL(B ($B?^(B4) $B$K$J$j$^$9$N$G!"%a%K%e!<$K$7$?$,$C$F%+%9%?%^%$%:$r9T(B $B$J$C$F2<$5$$!#(B -------------------------------------------------------------------------- This is a customization buffer for group Egg. Square brackets show active fields; type RET or click mouse-1 on an active field to invoke its action. Editing an option value changes the text in the buffer; invoke the State button and choose the Set operation to set the option value. Invoke [Help] for more information. Operate on everything in this buffer: [Set for Current Session] [Save for Future Sessions] [Reset] [Reset to Saved] [Reset to Standard] [Bury Buffer] Go to parent group: [Leim] /- Egg group: -----------------------------------------------------------\ [State]: visible group members are all at standard settings. Tamago Version 4 Egg Mode Preference: [Hide] [Toggle] on (non-nil) [State]: this option is unchanged from its standard setting. Make Egg as modefull input method, if non-NIL. Wnn group: [Go to Group] Wnn interface for Tamagotchy Sj3 group: [Go to Group] SJ3 interface for Tamago 4 Its group: [Go to Group] Input Translation System of Tamagotchy Menudiag group: [Go to Group] Input Translation System of Tamagotchy Egg Conv group: [Go to Group] Conversion backend Interface of Tamagotchy \- Egg group end -------------------------------------------------------/ -------------------------------------------------------------------------- $B?^(B4: Egg $B$N%+%9%?%^%$%:=i4|2hLL(B 4. $BuBV$G%?%$%W$9$k$H!"?7(B $B$?$J%U%'%s%9$,:n$i$l$^$9(B ($B?^(B5)$B!#F~NOCf$KB>$NItJ,$rD>$7$?$j!"B>$N%P%C(B $B%U%!!<$r8+$?$j$9$k$3$H$,$G$-$^$9!#$^$?!"%U%'%s%9%b!<%I$G(B yank (C-y) $B$,(B $B$G$-$k$h$&$K$7$F$$$^$9$N$G!"(Bcut and paste $B$7$F$/$k$3$H$b$G$-$^$9!#(B |$B$U$'$s$9$b!<$I$G$b!"(B| |$BJQ49(B $B%b!<%I$G$b!"(B| $B%U%'%s%9$N30$X=P$k$3$H$,$G$-$^$9!#(B $B%^%&%9$G%;%l%/%H$9$k$3$H$b$G$-$^$9!#(B $B?^(B5: $B%^%k%A%U%'%s%9(B 4.2 $B%a%K%e!<%b!<%I0lMwI=<((B $B!!%a%K%e!<%b!<%I$KA48uJd$N0lMwI=<(5!G=$rDI2C$7$^$7$?!#=>Mh$O!"%_%K%P%C(B $B%U%!!<$K(B1$B9T$:$DI=<($9$k5!G=$7$+$"$j$^$;$s$G$7$?$N$G!"C14A;zJQ49$N$h$&(B $B$K8uJd?t$,B?$$;~$O8uJd$rC5$9$N$,BgJQ$G$7$?!#%a%K%e!<%b!<%I$G(B ? $B$r%?%$(B $B%W$9$k$3$H$K$h$C$F!"0lMwI=<(%&%#%s%I%&$,I=<($5$l$^$9(B($B?^(B6)$B!#$3$N%&%#%s(B $B%I%&$+$i$NA*Br$O%^%&%9$K$h$C$F9T$J$$$^$9!#(B ============================================================================= Buffers Files Tools Edit Search Mule Help ============================================================================= |$B0&(B| ============================================================================= -$B$"(BJ:** Sample (Fundamental)--L1--All---------------------------- ============================================================================= 0. $BAj(B 1. $B2q$$(B 2. $B9g$$(B 3. $B0)$$(B 4. $B0&(B 5. $B$"$$(B 6. $B%"%$(B 7. $BMu(B 8. $B6x$$(B 9. $B4V(B 10. $BAx$$(B 11. $B$"$$(B 12. $B0$0f(B 13. $B0&(B 14. I 15. $B9g(B 16. $BAj(B 17. $BT<(B 18. $BS`(B 19. $BRw(B 20. $BpK(B 21. $BpO(B 22. $Bp^(B 23. $Bi=(B 24. $Bp'(B 25. $BcR(B 26. $B0%(B 27. $B[#(B 28. $B0)(B 29. $B0((B 30. $B0'(B 31. $B0#(B 32. $B%"%$(B 33. $B$"$$(B ============================================================================= --:%% $B8uJd(B (Menudiag Selection)--L1--All---------------------- ============================================================================= $B8uJd(B: 0. $BAj(B 1. $B2q$$(B 2. $B9g$$(B 3. $B0)$$(B 4. $B0&(B 5. $B$"$$(B 6. $B%"%$(B 7. $BMu(B ============================================================================= $B?^(B6: $B0lMwI=<(%&%#%s%I%&(B $B$+$J4A;zJQ49$N8uJdA*Br$G%a%K%e!<%b!<%I$KF~$k$K$O!"=>MhDL$j(B M-s ($BBgJ8@a(B $BJQ49(B)$B!"(BM-z ($B>.J8@aJQ49(B) $B$r%?%$%W$7$^$9!#$3$N;~!"Be$o$j$K(B M-C-s$B!"(BM-C-z $B$r%?%$%W$9$k$H!"0lMwI=<(%&%#%s%I%&$bI=<($5$l$^$9!#(B 4.3 $B:FJQ49(B $B!!JQ49%5!<%P!<$K(B Wnn $B$r;H$C$F$$$k>l9g!"JQ49%b!<%ICf$K(B C-r $B$r%?%$%W$9$k(B $B$H!"%+!<%=%k$,$"$kJ8@a$,:FJQ49$5$l$^$9!#$3$l$O!"I=<($5$l$F$$$kJ8;zNs$r(B $B!VFI$_!W$H$7$F!":FEYJQ49$r9T$J$&5!G=$G$9!#(B $BIt $Bgg(B ------+------> $Bgg(B | | | | | | $B$/$5(B ------+ +------> $B0*(B | | | | | | $B$V$7$e(B ------+ +------> $B0+(B | | | | | | $B!D(B ------+ +------> $B!D(B | | | +----------------------------------------------------------+ $B?^(B7: $BItl9g!"(B($B:F(B)$BJQ49%3%^%s%I$K(B C-u $B%W%j%U%#%C(B $B%/%9$rIU$1$k$H5UJQ49(B ($B!V4A;z!W$+$i!VFI$_!W$XJQ49(B) $B$K$J$j$^$9!#4A;z$NFI(B $B$_$rD4$Y$?$$;~$O!"%U%'%s%9Cf$X4A;z$r(B yank $B$7$F$-$F!"(B C-u SPC $BKt$O(B C-u C-w $B$H%?%$%W$7$^$9!#$"$k$$$O!"FI$_$XJQ49$7$?$$ItJ,$r(B region $B;XDj$7$F$*(B $B$$$F!"(BC-u M-x egg-convert-region RET $B$H%?%$%W$7$^$9!#$J$*!"(B egg-convert-region $B$O!"5l(B Egg $B$N(B henkan-region $B$KAjEv$9$k4X?t$G$9!#(B 5. $B:#8e$NM=Dj(B $B!!:G=*E*$K$O!"(BEgg V4 $B$O(B GNU Emacs 20 $B$KAH9~$^$l$kM=Dj$K$J$C$F$$$^$9$,!"(B $B%9%1%8%e!<%k$K$D$$$F$O;d$b$h$/CN$j$^$;$s(B ($B$4$a$s$J$5$$(B)$B!#8=:_$O(B $B&B%F%9(B $B%H$N=`Hw$r9T$J$C$F$$$k$H$3$m$G$9$N$G!"Aa$/;H$C$F$_$?$$J}$d(B $B&B%F%9%H$X(B $B;22C$7$F$_$?$$J}$O!"3+H/A0(B| $B$r(B tamago-ctl@m17n.org $B08$KAw$k(B +--------------+ $B%a!<%kK\J8(B +-------------------------+ tamago-admin@m17n.org $B$+$i(B |subscribe $B3NG'HV9f(B $BL>A0(B| $B$,FO$/(B +-------------------------+ $B%a!<%kK\J8(B +-----------------------+ |subscribe $B3NG'HV9f(B $BL>A0(B| $B$r(B tamago-ctl@m17n.org $B08$KAw$jJV$9(B +-----------------------+ $B$H$J$C$F$^$9!#(Btamago ML $B$OEPO?$5$l$?%a!<%k%"%I%l%9$+$i$NEj9F$7$+l9g$O!"$=$N%"%I(B $B%a!<%kK\J8(B +----+ $B%l%9$NEPO?8e$K(B |skip|$B$r(B tamago-ctl@m17n.org $B$XAw$C$F2<$5$$!#(B +----+ $B$^$?(B http://www.m17n.org/tamago/ $B$b8fMw$K$J$C$F$$$F2<$5$$!#(B 6. $BED;a(B (Mule $B$N@_7W ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (setq load-path (append (list (expand-file-name "./") ) load-path)) (setq max-specpdl-size (* 10 max-specpdl-size) max-lisp-eval-depth (* 10 max-lisp-eval-depth)) (load "bytecomp" t t nil) (setq byte-compile-warnings '(obsolete redefine callargs); free-vars unresolved byte-optimize t ) (require 'cl) egg-4.0.6+0.20041122cvs/egg/0000755000764400003210000000000010072106362016206 5ustar ishikawaishikawa00000000000000egg-4.0.6+0.20041122cvs/egg/cannarpc.el0000644000764400003210000003104107234614431020323 0ustar ishikawaishikawa00000000000000;;; egg/cannarpc.el --- Canna Support (low level interface) in ;;; Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'egg-com) ;; (load-library "egg/canna") (defmacro canna-const (c) (cond ((eq c 'Initialize) 1) ((eq c 'Finalize) 2) ((eq c 'CreateContext) 3) ((eq c 'CloseContext) 5) ((eq c 'GetDictionaryList) 6) ((eq c 'GetDirectoryList) 7) ((eq c 'MountDictionary) 8) ((eq c 'UnmountDictionary) 9) ((eq c 'GetMountDictionaryList) 11) ((eq c 'DefineWord) 13) ((eq c 'DeleteWord) 14) ((eq c 'BeginConvert) 15) ((eq c 'EndConvert) 16) ((eq c 'GetCandidacyList) 17) ((eq c 'GetYomi) 18) ((eq c 'ResizePause) 26) ((eq c 'GetHinshi) 27) ((eq c 'GetLex) 28) ((eq c 'SetApplicationName) 33) ((eq c 'NoticeGroupName) 34) ((eq c 'CreateDictionary) 3) ((eq c 'Sync) 8) (t (error "No such constant"))))) ;; XXX (defconst cannarpc-error-message (vector )) (defun cannarpc-get-error-message (errno) (or (and (>= errno 0) (< errno (length cannarpc-error-message)) (aref cannarpc-error-message errno)) (format "#%d" errno))) (defmacro cannarpc-call-with-environment (e vlist send-expr &rest receive-exprs) (let ((v (append `((proc (cannaenv-get-proc ,e)) (context (cannaenv-get-context ,e))) vlist))) (list 'let v (append `(save-excursion (set-buffer (process-buffer proc)) (erase-buffer) ,send-expr (process-send-region proc (point-min) (point-max)) (goto-char (prog1 (point) (accept-process-output proc)))) receive-exprs)))) (defconst canna-version-fmt "3.3:%s") (defun cannarpc-open (proc username) "Open the session. Return 0 on success, error code on failure." (let ((verusr (format canna-version-fmt username))) (comm-call-with-proc proc (minor context) (comm-format (u u s) (canna-const Initialize) (+ (length verusr) 1) verusr) (comm-unpack (w w) minor context) (cond ((and (= minor 65535) (= context 65535)) -1) ; failure ((and (= minor 65535) (= context 65534)) -1) ; version miss match (t context))))) (defun cannarpc-close (proc) (comm-call-with-proc proc (dummy result) (comm-format (b b w) (canna-const Finalize) 0 0) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result))) (defun cannarpc-create-context (proc) (comm-call-with-proc proc (dummy result) (comm-format (b b w) (canna-const CreateContext) 0 0) (comm-unpack (u w) dummy result) (if (= result 65535) -1 ; failure result))) (defun cannarpc-close-context (env) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w) (canna-const CloseContext) 0 2 context) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result))) (defun cannarpc-get-dictionary-list (env) (let ((i 0) dic dl dic-list) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w) (canna-const GetDictionaryList) 0 4 context 1024) (comm-unpack (u w) dummy result) ;; follow list of dictionaries (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (s) dic) (if dl (setq dl (setcdr dl (cons dic nil))) (setq dic-list (setq dl (cons dic nil)))) (setq i (1+ i))) dic-list)))) (defun cannarpc-get-directory-list (env) (let ((i 0) dir dl dir-list) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w) (canna-const GetDirectoryList) 0 4 context 1024) (comm-unpack (u w) dummy result) ;; follow list of directories (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (s) dir) (if dl (setq dl (setcdr dl (cons dir nil))) (setq dir-list (setq dl (cons dir nil)))) (setq i (1+ i))) dir-list)))) (defun cannarpc-get-mount-dictionary-list (env) (let ((i 0) dic dl dic-list) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w) (canna-const GetMountDictionaryList) 0 4 context 1024) (comm-unpack (u w) dummy result) ;; follow list of dictionaries (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (s) dic) (if dl (setq dl (setcdr dl (cons dic nil))) (setq dic-list (setq dl (cons dic nil)))) (setq i (1+ i))) dic-list)))) (defun cannarpc-open-dictionary (env dict-file-name mode) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w u w s) (canna-const MountDictionary) 0 (+ (length dict-file-name) 7) mode context dict-file-name) (comm-unpack (u b) dummy result) result)) (defun cannarpc-close-dictionary (env dict-file-name mode) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w u w s) (canna-const UnmountDictionary) 0 (+ (length dict-file-name) 7) mode context dict-file-name) (comm-unpack (u b) dummy result) result)) (defun cannarpc-begin-conversion (env yomi) "Begin conversion." (let ((yomi-ext (encode-coding-string yomi 'fixed-euc-jp)) (mode (or (cannaenv-get-mode env) 19)) ; 19 kana hiragana (i 0) converted bunsetsu-list bl) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w i w S) (canna-const BeginConvert) 0 (+ (length yomi-ext) 8) mode context yomi) (comm-unpack (u w) dummy result) (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (S) converted) (let ((bl1 (cons (canna-make-bunsetsu env converted i nil) nil))) (if bl (setq bl (setcdr bl bl1)) (setq bunsetsu-list (setq bl bl1)))) (setq i (1+ i))) bunsetsu-list)))) (defun cannarpc-cancel-conversion (env) "Cancel conversion." (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w u) (canna-const EndConvert) 0 8 context 0 0) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result))) (defun cannarpc-end-conversion (env len zenkouho-pos-vector mode) "End conversion." (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w u v) (canna-const EndConvert) 0 (+ (* len 2) 8) context len mode zenkouho-pos-vector (length zenkouho-pos-vector)) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result))) (defun cannarpc-make-dictionary (env dict-name) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w u w s) (canna-const CreateDictionary) 1 (+ (length dict-name) 7) 0 context dict-name) (comm-unpack (u b) dummy result) result)) (defun cannarpc-save-dictionary (env dict-name) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w u w s) (canna-const Sync) 1 (+ (length dict-name) 7) 0 context dict-name) (comm-unpack (u b) dummy result) result)) ;;; XXX not used (defun cannarpc-get-dictionary-data (env dir dic) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w s s w) 6 1 (+ (length dir) (length dic) 6) context dir dic 4096) (comm-unpack (u w) dummy result) (if (= result 65535) -1 ;; (comm-unpack (S) result) result))) (defun cannarpc-get-bunsetsu-source (env bunsetsu-pos) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w w) (canna-const GetYomi) 0 6 context bunsetsu-pos 1024) (comm-unpack (u w) dummy result) (if (= result 65535) -1 (comm-unpack (S) result) result))) (defun cannarpc-get-bunsetsu-candidates (env bunsetsu-pos yomi) (let ((i 0) converted bunsetsu-list bl) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w w) (canna-const GetCandidacyList) 0 6 context bunsetsu-pos 1024) (comm-unpack (u w) dummy result) (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (S) converted) (let ((bl1 (cons (canna-make-bunsetsu env converted bunsetsu-pos yomi) nil))) (if bl (setq bl (setcdr bl bl1)) (setq bunsetsu-list (setq bl bl1)))) (setq i (1+ i))) bunsetsu-list)))) (defun cannarpc-set-kugiri-changed (env yomi-length bunsetsu-pos) ;; yomi-length -2$B!DJ8@a=L$a(B -1$B!DJ8@a?-$P$7(B (let* ((i bunsetsu-pos) converted bunsetsu-list bl) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w w) (canna-const ResizePause) 0 6 context bunsetsu-pos yomi-length) (comm-unpack (u w) dummy result) (if (= result 65535) -1 ; failure (while (< i result) (comm-unpack (S) converted) (let ((bl1 (cons (canna-make-bunsetsu env converted i nil) nil))) (if bl (setq bl (setcdr bl bl1)) (setq bunsetsu-list (setq bl bl1)))) (setq i (1+ i))) bunsetsu-list)))) (defun cannarpc-get-hinshi (env bunsetsu-pos kouho-pos) (let (b hinshi) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w w w) (canna-const GetHinshi) 0 8 context bunsetsu-pos kouho-pos 1024) (comm-unpack (u w) dummy result) (if (= result 65535) -1 (while (> result 0) (comm-unpack (w) b) (setq hinshi (concat hinshi (char-to-string b))) (setq result (1- result))) hinshi)))) (defun cannarpc-get-lex (env bunsetsu-pos kouho-pos) (let ((i 0) ylen klen rownum coldnum dicnum lex-list ll) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w w w w) (canna-const GetLex) 0 8 context bunsetsu-pos kouho-pos 1024) (comm-unpack (u w) dummy result) (if (= result 65535) -1 (while (< i result) (comm-unpack (i i i i i) ylen klen rownum coldnum dicnum) (let ((ll1 (cons (list ylen klen rownum coldnum dicnum) nil))) (if ll (setq ll (setcdr ll ll1)) (setq lex-list (setq ll ll1)))) (setq i (1+ i))) lex-list)))) (defun cannarpc-add-word (env dictionary yomi kanji hinshi) "Register a word KANJI into DICTIONARY with a pronunciation YOMI and a part of speech HINSHI. Where DICTIONARY should be an integer." (let* ((word-info (concat yomi " " hinshi " " kanji)) (word-info-ext (encode-coding-string word-info 'fixed-euc-jp)) (length (+ (length word-info-ext) (length dictionary) 5))) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w S s) (canna-const DefineWord) 0 length context word-info dictionary) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result)))) (defun cannarpc-delete-word (env dictionary yomi kanji hinshi) "Delete the registered word KANJI from DICTIONARY with a pronunciation YOMI and a part of speech HINSHI. Where DICTIONARY should be an integer." (let* ((word-info (concat yomi " " hinshi " " kanji)) (word-info-ext (encode-coding-string word-info 'fixed-euc-jp)) (length (+ (length word-info-ext) (length dictionary) 5))) (cannarpc-call-with-environment env (dummy result) (comm-format (b b w w S s) (canna-const DeleteWord) 0 length context word-info dictionary) (comm-unpack (u b) dummy result) (if (= result 255) -1 ; failure result)))) (defun cannarpc-notice-group-name (proc context group) (comm-call-with-proc proc (dummy result) (comm-format (b b w u w s) (canna-const NoticeGroupName) 0 (+ (length group) 7) 0 ;; mode = 0 context group) (comm-unpack (u b) dummy result) (if (= result 255) -1 result))) (defun cannarpc-set-app-name (proc context name) (comm-call-with-proc proc (dummy result) (comm-format (b b w u w s) (canna-const SetApplicationName) 0 (+ (length name) 7) 0 context name) (comm-unpack (u b) dummy result) (if (= result 255) -1 result))) ;;; egg/cannarpc.el ends here. egg-4.0.6+0.20041122cvs/egg/canna.el0000644000764400003210000010300407517100122017604 0ustar ishikawaishikawa00000000000000;;; egg/canna.el --- Canna Support (high level interface) in ;;; Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg) (require 'egg-edep) (defgroup canna nil "CANNA interface for Tamago 4." :group 'egg) (defcustom canna-hostname "localhost" "Hostname of CANNA server" :group 'canna :type 'string) (defcustom canna-server-port "canna" "A service name or a port number (should be a string) of CANNA server" :group 'canna :type 'string) (defcustom canna-user-name nil "User Name on CANNA server" :group 'canna :type 'string) (defcustom canna-group-name nil "Group Name on CANNA server" :group 'canna :type 'string) ; (eval-when-compile ; (defmacro CANNA-const (c) ; (cond ((eq c 'FileNotExist) xxxxxxxxxxxxxx) ; ))) (egg-add-message '((Japanese (canna-connect-error "$B%5!<%P$H@\B3$G$-$^$;$s$G$7$?(B") (canna-fail-make-env "$B4D6-$r:n$k$3$H$O$G$-$^$;$s$G$7$?(B") (canna-dict-missing-1 "$B<-=q%U%!%$%k(B %s $B$,$"$j$^$;$s!#(B") (canna-dict-missing-2 "$B<-=q%U%!%$%k(B %s $B$,$"$j$^$;$s!#:n$j$^$9$+(B? ") (canna-dict-created "$B<-=q%U%!%$%k(B %s $B$r:n$j$^$7$?(B") (canna-dict-saving "%s $B$NIQEY>pJs!&<-=q>pJs$rB`Hr$7$F$$$^$9(B") (canna-dict-saved "%s $B$NIQEY>pJs!&<-=q>pJs$rB`Hr$7$^$7$?(B") (canna-register-1 "$BEPO?<-=qL>(B:") (canna-register-2 "$BIJ;lL>(B")))) (defvar canna-hinshi-alist '(("$B?ML>(B" . "#JN") ("$BCOL>(B" . "#CN") ("$B8GM-L>;l(B" . "#KK") ("$B0lHLL>;l(B" . "#T35") ("$BL>;l(B($BNc(B)$B6/NO$J(B" . "#T15") ("$B%5JQL>;l(B" . "#T30") ("$B%5JQL>;l(B($BNc(B)$B0B?4$J(B" . "#T10") ("$BC14A;z(B" . "#KJ") ("$BF0;l%+9TJQ3J3hMQ(B" . "#KX") ("$BF0;l%s%69TJQ3J3hMQ(B" . "#NZX") ("$BF0;l%69TJQ3J3hMQ(B" . "#ZX") ("$BF0;l%59TJQ3J3hMQ(B" . "#SX") ("$BF0;l%+9T8^CJ3hMQ(B" . "#K5") ("$BF0;l%,9T8^CJ3hMQ(B" . "#G5") ("$BF0;l%59T8^CJ3hMQ(B" . "#S5") ("$BF0;l%?9T8^CJ3hMQ(B" . "#T5") ("$BF0;l%J9T8^CJ3hMQ(B" . "#N5") ("$BF0;l%P9T8^CJ3hMQ(B" . "#B5") ("$BF0;l%^9T8^CJ3hMQ(B" . "#M5") ("$BF0;l%i9T8^CJ3hMQ(B" . "#R5") ("$BF0;l%o9T8^CJ3hMQ(B" . "#W5") ("$BF0;l>e2<0lCJ3hMQ(B" . "#KS") ("$BF0;l%+9T8^CJO"MQL>;l(B" . "#K5r") ("$BF0;l%,9T8^CJO"MQL>;l(B" . "#G5r") ("$BF0;l%59T8^CJO"MQL>;l(B" . "#S5r") ("$BF0;l%?9T8^CJO"MQL>;l(B" . "#T5r") ("$BF0;l%J9T8^CJO"MQL>;l(B" . "#N5r") ("$BF0;l%P9T8^CJO"MQL>;l(B" . "#B5r") ("$BF0;l%^9T8^CJO"MQL>;l(B" . "#M5r") ("$BF0;l%i9T8^CJO"MQL>;l(B" . "#R5r") ("$BF0;l%o9T8^CJO"MQL>;l(B" . "#W5r") ("$BF0;l>e2<0lCJ8l44L>;l(B" . "#KSr") ("$B7AMF;l(B" . "#KY") ("$B7AMF;l(B($BNc(B)$B$-$$$m$$(B" . "#KYT") ("$B7AMFF0;l(B" . "#T05") ("$B7AMFF0;l(B($BNc(B)$B4X?4$@(B" . "#T10") ("$B7AMFF0;l(B($BNc(B)$BB?92$F$@(B" . "#T13") ("$B7AMFF0;l(B($BNc(B)$B0U30$@(B" . "#T15") ("$B7AMFF0;l(B($BNc(B)$BJXMx$@(B" . "#T18") ("$BI{;l(B" . "#F14") ("$BI{;l(B($BNc(B)$B$U$C$/$i(B" . "#F04") ("$BI{;l(B($BNc(B)$B$=$C$H(B" . "#F12") ("$BI{;l(B($BNc(B)$BFMA3(B" . "#F06") ("$B?t;l(B" . "#NN") ("$B@\B3;l!&46F0;l(B" . "#CJ") ("$BO"BN;l(B" . "#RT"))) (defvar canna-hinshi-menu '("$B?ML>(B" "$BCOL>(B" ("$BCDBN!&2q(B" . "$B8GM-L>;l(B") ("$BL>;l(B" . MEISHI) ("$B%5JQL>;l(B" . SAHEN-MEISHI) "$BC14A;z(B" ("$BF0;l(B" . DOUSHI) ("$B7AMF;l(B" . KEIYOUSHI) ("$B7AMFF0;l(B" . KEIYOUDOUSHI) ("$BI{;l(B" . FUKUSHI) "$B?t;l(B" "$B@\B3;l!&46F0;l(B" "$BO"BN;l(B" ("$B$=$NB>$N8GM-L>;l(B" . "$B8GM-L>;l(B")) "Menu data for a hinshi (a part of speech) selection.") (defun canna-hinshi-name (id &optional reverse) (if reverse (cdr (assoc id canna-hinshi-alist)) (car (rassoc id canna-hinshi-alist)))) (defmacro canna-backend-plist () ''(egg-start-conversion canna-start-conversion egg-get-bunsetsu-source canna-get-bunsetsu-source egg-get-bunsetsu-converted canna-get-bunsetsu-converted egg-get-source-language canna-get-source-language egg-get-converted-language canna-get-converted-language egg-list-candidates canna-list-candidates egg-decide-candidate canna-decide-candidate egg-special-candidate canna-special-candidate egg-change-bunsetsu-length canna-change-bunsetsu-length egg-end-conversion canna-end-conversion egg-word-registration canna-word-registration)) (defconst canna-backend-language-alist nil) (defvar canna-backend-alist nil) (defun canna-backend-func-name (name lang &optional env) (intern (concat name "-" (symbol-name lang) (and env "-") (and env (symbol-name env))))) (defun canna-make-backend (lang env &optional source-lang converted-lang) (let ((finalize (canna-backend-func-name "canna-finalize-backend" lang)) (backend (canna-backend-func-name "canna-backend" lang env))) (if (null (fboundp finalize)) (progn (fset finalize (function (lambda () (canna-finalize-backend)))) (egg-set-finalize-backend (list finalize)))) (if (null (get backend 'egg-start-conversion)) (setplist backend (apply 'list 'language lang 'source-language (or source-lang lang) 'converted-language (or converted-lang lang) (canna-backend-plist)))) backend)) (defun canna-define-backend (lang env-name-list) (mapcar (lambda (env) (if (consp env) (canna-define-backend lang env) (canna-make-backend lang env))) env-name-list)) (defun canna-define-backend-alist (deflist) (setq canna-backend-alist (mapcar (lambda (slot) (let* ((lang (car slot)) (alt (cdr (assq lang canna-backend-language-alist)))) (cons lang (canna-define-backend (or alt lang) (cdr slot))))) deflist))) (defcustom canna-backend-define-list '((Japanese ((nil nil nil)) ((Bushu Bushu Bushu)))) "Alist of Japanese language and lists of the Canna backend suffixes." :group 'canna :set (lambda (sym value) (set-default sym value) (canna-define-backend-alist value)) :type '(repeat (cons :tag "Language - Backend" (choice :tag "Language" (const Japanese) (symbol :tag "Other")) (repeat (cons :tag "Backend Sequece" (cons :tag "First Conversion Stage" (symbol :tag "Backend for Start Conversion") (repeat :tag "Backends for Reconvert" (symbol :tag "Backend"))) (repeat :tag "Following Conversion Stages" (cons :tag "N-th Stage" (symbol :tag "Backend for This Stage") (repeat :tag "Backends for Reconvert" (symbol :tag "Backend"))))))))) (defsubst canna-backend-get-language (backend) (get backend 'language)) (defsubst canna-backend-get-source-language (backend) (get backend 'source-language)) (defsubst canna-backend-get-converted-language (backend) (get backend 'converted-language)) (defvar canna-envspec-list nil) (defvar canna-current-envspec nil) ;; Should support multiple outstanding context ;; ::= [ ] (defvar canna-environments nil "Environment for CANNA kana-kanji conversion") (defun cannaenv-create (proc context &optional backend mode nostudy) (vector proc context backend mode nostudy (list nil))) (defsubst cannaenv-get-proc (env) (aref env 0)) (defsubst cannaenv-get-context (env) (aref env 1)) (defsubst cannaenv-get-backend (env) (aref env 2)) (defsubst cannaenv-get-mode (env) (aref env 3)) (defsubst cannaenv-get-nostudy (env) (aref env 4)) (defsubst cannaenv-get-dic-list (env) (cdr (aref env 5))) (defsubst cannaenv-add-dic-list (env &rest dic) (nconc (aref env 5) (list (apply 'vector dic)))) ;; ::= ;; [ ;; ] (defsubst canna-make-bunsetsu (env converted bunsetsu-pos source) (egg-bunsetsu-create (cannaenv-get-backend env) (vector env converted bunsetsu-pos source nil nil nil))) (defsubst canna-bunsetsu-get-env (b) (aref (egg-bunsetsu-get-info b) 0)) (defsubst canna-bunsetsu-get-converted (b) (aref (egg-bunsetsu-get-info b) 1)) (defsubst canna-bunsetsu-get-bunsetsu-pos (b) (aref (egg-bunsetsu-get-info b) 2)) (defsubst canna-bunsetsu-get-source (b) (aref (egg-bunsetsu-get-info b) 3)) (defsubst canna-bunsetsu-set-source (b s) (aset (egg-bunsetsu-get-info b) 3 s)) (defsubst canna-bunsetsu-get-zenkouho-pos (b) (aref (egg-bunsetsu-get-info b) 4)) (defsubst canna-bunsetsu-set-zenkouho-pos (b p) (aset (egg-bunsetsu-get-info b) 4 p)) (defsubst canna-bunsetsu-get-zenkouho (b) (aref (egg-bunsetsu-get-info b) 5)) (defsubst canna-bunsetsu-set-zenkouho (b z) (aset (egg-bunsetsu-get-info b) 5 z)) (defsubst canna-bunsetsu-get-zenkouho-converted (b) (aref (egg-bunsetsu-get-info b) 6)) (defsubst canna-bunsetsu-set-zenkouho-converted (b zc) (aset (egg-bunsetsu-get-info b) 6 zc)) (defun canna-get-bunsetsu-source (b) (let ((s (canna-bunsetsu-get-source b))) (or s (let* ((env (canna-bunsetsu-get-env b)) (bp (canna-bunsetsu-get-bunsetsu-pos b)) (s (cannarpc-get-bunsetsu-source env bp))) (canna-bunsetsu-set-source b s))))) (defun canna-get-bunsetsu-converted (b) (canna-bunsetsu-get-converted b)) (defun canna-get-source-language (b) 'Japanese) (defun canna-get-converted-language (b) 'Japanese) (defun canna-envspec-create (env-name convert-mode nostudy) (vector (and env-name (setq env-name (intern env-name))) (canna-make-backend egg-language env-name) convert-mode nostudy (list nil))) (defsubst canna-envspec-env-type (spec) (aref spec 0)) (defsubst canna-envspec-backend (spec) (aref spec 1)) (defsubst canna-envspec-mode (spec) (aref spec 2)) (defsubst canna-envspec-nostudy (spec) (aref spec 3)) (defsubst canna-envspec-dic-list (spec) (cdr (aref spec 4))) (defsubst canna-envspec-add-dic-list (spec &rest dic) (nconc (aref spec 4) (list (apply 'vector dic)))) (defmacro canna-arg-type-error (func) `(egg-error ,(format "%s: Wrong type argument" func))) (defun canna-define-environment (&optional env-name convert-mode nostudy) "Define a Canna environment. ENV-NAME specifies suffix of the Canna environment name. CONVERT-MODE specifies including hiragana or katakana to candidates list. NOSTUDY specifies not study." (if (and env-name (null (stringp env-name))) (canna-arg-type-error canna-define-environment)) (setq canna-current-envspec (canna-envspec-create env-name convert-mode nostudy) canna-envspec-list (nconc canna-envspec-list (list canna-current-envspec)))) (defun canna-add-dict (dict dict-rw) (canna-envspec-add-dic-list canna-current-envspec dict dict-rw)) (defun canna-comm-sentinel (proc reason) ; assume it is close (let ((inhibit-quit t)) (kill-buffer (process-buffer proc)) ;; delete env from the list. (setq canna-environments (delq nil (mapcar (lambda (env) (if (null (eq (cannaenv-get-proc env) proc)) env)) canna-environments))))) (defun canna-open (hostname-list) "Establish the connection to CANNA server. Return environment object." (let* ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (proc-name "CANNA") (msg-form "Canna: connecting to %S at %s...") (user-name (or canna-user-name (user-login-name))) (id (shell-command-to-string "id")) (group (or canna-group-name (if (string-match "gid=[0-9]+(\\([^)]+\\))" id) (match-string 1 id) "user"))) buf hostname port proc result msg) (unwind-protect (progn (setq buf (generate-new-buffer " *CANNA*")) (save-excursion (set-buffer buf) (erase-buffer) (buffer-disable-undo) (set-buffer-multibyte nil) (setq egg-fixed-euc 'fixed-euc-jp)) (or (consp hostname-list) (setq hostname-list (list hostname-list))) (while (and hostname-list (null proc)) (setq hostname (or (car hostname-list) "") hostname-list (cdr hostname-list)) (if (null (string-match ":" hostname)) (setq port canna-server-port) (setq port (substring hostname (match-end 0)) hostname (substring hostname 0 (match-beginning 0)))) (if (and (stringp port) (string-match "^[0-9]+$" port)) (setq port (string-to-int port))) (and (equal hostname "") (setq hostname (or (getenv "CANNAHOST") "localhost"))) (let ((inhibit-quit save-inhibit-quit)) (if (and msg (null (y-or-n-p (format "%s failed. Try to %s? " msg hostname)))) (egg-error "abort connect"))) (setq msg (format "Canna: connecting to %s..." hostname)) (message "%s" msg) (let ((inhibit-quit save-inhibit-quit)) (condition-case nil (setq proc (open-network-stream proc-name buf hostname port)) ((error quit)))) (when proc (process-kill-without-query proc) (set-process-coding-system proc 'binary 'binary) (set-process-sentinel proc 'canna-comm-sentinel) (set-marker-insertion-type (process-mark proc) t) (setq result (cannarpc-open proc user-name)) ;; result is context (if (= result -1) (progn (delete-process proc) (setq proc nil)) (cannarpc-notice-group-name proc result group) (cannarpc-set-app-name proc result "EGG4")))) (cons proc result)) (if proc (message (concat msg "done")) (if buf (kill-buffer buf)) (egg-error 'canna-connect-error))))) (defun canna-filename (p) "" (cond ((consp p) (concat (car p) "/" (user-login-name))) (t p))) (defun canna-search-environment (backend) (let ((env-list canna-environments) env) (while (and (null env) env-list) (setq env (and (eq (cannaenv-get-backend (car env-list)) backend) (car env-list)) env-list (cdr env-list))) env)) (defun canna-get-environment (backend) "Return the backend of CANNA environment." (let ((env (canna-search-environment backend)) proc context error) (or env (unwind-protect (let* ((language (canna-backend-get-language backend)) specs) (setq proc (canna-open canna-hostname) context (cdr proc) proc (car proc) canna-envspec-list nil) (condition-case err (egg-load-startup-file 'canna language) (egg-error (setq error err) (signal (car error) (cdr error)))) (setq specs canna-envspec-list) (while specs (canna-create-environment proc context (car specs)) (setq context nil) (setq specs (cdr specs))) (setq env (canna-search-environment backend))) (when (and proc (null env)) (cannarpc-close proc) (if error (signal (car error) (cdr error)) (egg-error 'canna-fail-make-env))) )))) (defun canna-create-environment (proc context spec) (let* ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (backend (canna-envspec-backend spec)) (convert-mode (canna-envspec-mode spec)) (nostudy (canna-envspec-nostudy spec)) (dic-list (canna-envspec-dic-list spec)) env) (condition-case err (progn (if (not context) (setq context (cannarpc-create-context proc))) (if (< context 0) (egg-error "%s" (cannarpc-get-error-message (- context)))) (setq env (cannaenv-create proc context backend convert-mode nostudy)) (let ((inhibit-quit save-inhibit-quit)) (while dic-list (canna-set-dictionary env (car dic-list)) (setq dic-list (cdr dic-list)))) (setq canna-environments (nconc canna-environments (list env)))) ((egg-error quit) (if (eq (car err) 'egg-error) (message "%s" (nth 1 err))) (if env (progn (cannarpc-close-context env) (setq canna-environments (delq env canna-environments)))) (if (eq (car err) 'quit) (signal 'quit (cdr err))))))) (defun canna-set-dictionary (env dic-spec) (let ((dname (aref dic-spec 0)) (drw (aref dic-spec 1)) did result) (if (= 0 (canna-open-dictionary env dname drw)) (cannaenv-add-dic-list env dname drw)))) (defun canna-open-dictionary (env name rw) (let ((trying t) ret) (while trying (setq ret (cannarpc-open-dictionary env name 0)) ; XXX MODE=0 (if (= ret 0) (setq trying nil) (message (egg-get-message 'canna-dict-missing-1) name) (if rw (if (and (y-or-n-p (format (egg-get-message 'canna-dict-missing-2) name)) (= (cannarpc-make-dictionary env name) 0)) (message (egg-get-message 'canna-dict-created) name) (message "%s" (cannarpc-get-error-message (- ret)))) (setq trying nil)))) ret)) (defun canna-save-dictionaries (env) (let ((dic-list (canna-list-writable-dictionaries-byname env)) dic) (while dic-list (setq dic (car dic-list) dic-list (cdr dic-list)) (cannarpc-save-dictionary env dic)))) (defun canna-init () ) (defun canna-set-converted-yomi (bunsetsu-pos bunsetsu-list) (let ((bl bunsetsu-list) (i bunsetsu-pos) b) (while bl (setq b (car bl)) (canna-bunsetsu-set-source b (cannarpc-get-bunsetsu-source env i)) (setq i (1+ i) bl (cdr bl))) bunsetsu-list)) (defun canna-start-conversion (backend yomi &optional context) "Convert YOMI string to kanji, and enter conversion mode. Return the list of bunsetsu." (let* ((env (canna-get-environment backend)) (bunsetsu-list (cannarpc-begin-conversion env yomi))) (if (numberp bunsetsu-list) ; XXX error $B$N=hM}E,Ev(B (progn (if (= -1 (cannarpc-cancel-conversion env)) (progn (setq env (canna-get-environment backend)) (canna-finalize-backend))) (setq bunsetsu-list (cannarpc-begin-conversion env yomi)))) (canna-set-converted-yomi 0 bunsetsu-list))) (defun canna-end-conversion (bunsetsu-list abort) (let* ((env (canna-bunsetsu-get-env (car bunsetsu-list))) (l bunsetsu-list) (len (length bunsetsu-list)) (zenkouho-pos-vector (make-vector (* 2 len) 0)) (i 0) (mode (if (cannaenv-get-nostudy env) 0 1)) ; MODE=1 $B3X=,(B 0 $B$7$J$$(B bunsetsu zenkouho-pos) (if abort (setq mode 0)) (while l (setq bunsetsu (car l)) (setq l (cdr l)) (setq zenkouho-pos (canna-bunsetsu-get-zenkouho-pos bunsetsu)) (if (null zenkouho-pos) () ; XXX: NIL--> 0 atteru??? (aset zenkouho-pos-vector i 0) ; XXX Don't support >=256 (aset zenkouho-pos-vector (1+ i) zenkouho-pos)) (setq i (+ i 2))) (cannarpc-end-conversion env len zenkouho-pos-vector mode))) (defun canna-list-candidates (bunsetsu prev-b next-b major) (setq bunsetsu (car bunsetsu)) (if (canna-bunsetsu-get-zenkouho bunsetsu) (cons (canna-bunsetsu-get-zenkouho-pos bunsetsu) (canna-bunsetsu-get-zenkouho-converted bunsetsu)) (let* ((env (canna-bunsetsu-get-env bunsetsu)) (yomi (canna-get-bunsetsu-source bunsetsu)) (bunsetsu-pos (canna-bunsetsu-get-bunsetsu-pos bunsetsu)) (z (cannarpc-get-bunsetsu-candidates env bunsetsu-pos yomi))) (canna-bunsetsu-set-zenkouho bunsetsu z) (cons (canna-bunsetsu-set-zenkouho-pos bunsetsu 0) (canna-bunsetsu-set-zenkouho-converted bunsetsu (mapcar 'canna-bunsetsu-get-converted z)))))) ;;; XXX not use ? (defun canna-get-number-of-candidates (bunsetsu) (let ((l (canna-bunsetsu-get-zenkouho bunsetsu))) (if l (length l) nil))) (defun canna-decide-candidate (bunsetsu pos prev-b next-b) (let* ((head (car bunsetsu)) (candidate-list (canna-bunsetsu-get-zenkouho head)) (candidate (nth pos candidate-list))) (canna-bunsetsu-set-zenkouho candidate candidate-list) (canna-bunsetsu-set-zenkouho-pos candidate pos) (canna-bunsetsu-set-zenkouho-converted candidate (canna-bunsetsu-get-zenkouho-converted head)) (list (list candidate)))) (defun canna-special-candidate (bunsetsu prev-b next-b major type) (let* ((head (car bunsetsu)) (env (canna-bunsetsu-get-env head)) (backend (egg-bunsetsu-get-backend head)) (lang (get backend 'language)) source converted zenkouho-list kouho-list pos) (when (and (eq lang (get backend 'source-language)) (eq lang (get backend 'converted-language))) (cond ((eq lang 'Japanese) (setq source (canna-get-bunsetsu-source head)) (cond ((eq type 'egg-hiragana) (setq converted source)) ((eq type 'egg-katakana) (setq converted (japanese-katakana source)))) (setq zenkouho-list (cdr (canna-list-candidates bunsetsu prev-b next-b major))) (setq pos (when (setq kouho-list (member converted zenkouho-list)) (- (length zenkouho-list) (length kouho-list)))))) (when pos (canna-decide-candidate bunsetsu pos prev-b next-b))))) ;;; XXX not used ? (defun canna-get-current-candidate-number (bunsetsu) (canna-bunsetsu-get-zenkouho-pos bunsetsu)) ;;; XXX not used ? (defun canna-get-all-candidates (bunsetsu) (let* ((l (canna-bunsetsu-get-zenkouho bunsetsu)) (result (cons nil nil)) (r result)) (catch 'break (while t (let ((candidate (car l))) (setcar r (canna-bunsetsu-get-converted candidate)) (if (null (setq l (cdr l))) (throw 'break nil) (setq r (setcdr r (cons nil nil))))))) result)) (defun canna-change-bunsetsu-length (bunsetsu prev-b next-b len major) (let* ((env (canna-bunsetsu-get-env (car bunsetsu))) (yomi (canna-get-bunsetsu-source (car bunsetsu))) (yomi-length (cond ((< (length yomi) len) -1) ((> (length yomi) len) -2) (t nil))) (bunsetsu-pos (canna-bunsetsu-get-bunsetsu-pos (car bunsetsu))) new) (if yomi-length (setq new (canna-set-converted-yomi bunsetsu-pos (cannarpc-set-kugiri-changed env yomi-length bunsetsu-pos))) (setq new bunsetsu)) (list (list (car new)) prev-b (cdr new)))) (defun canna-finalize-backend (&optional action) (let* ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (env-list canna-environments) env proc-list saved) (while env-list (setq env (car env-list) env-list (cdr env-list)) (condition-case err (progn (unless (memq (cannaenv-get-proc env) proc-list) (setq proc-list (cons (cannaenv-get-proc env) proc-list))) (unless (eq action 'disconnect-only) (unless saved (setq saved t) (message (egg-get-message 'canna-dict-saving) "Canna")) (let ((inhibit-quit save-inhibit-quit)) (canna-save-dictionaries env))) (unless (eq action 'save-only) (cannarpc-close-context env))) ((error quit) (message "signal %S occured when dictionary saving" err)))) (if saved (message (egg-get-message 'canna-dict-saved) "Canna")) (unless (eq action 'save-only) (while proc-list (if (and (car proc-list) (eq (process-status (car proc-list)) 'open)) (cannarpc-close (car proc-list))) (setq proc-list (cdr proc-list))))) (setq canna-environments nil)) ;;; word registration (defun canna-list-writable-dictionaries-byname (env) (let ((dic-list (cannaenv-get-dic-list env))) (delq nil (mapcar (lambda (dic) (let ((dname (aref dic 0)) (drw (aref dic 1))) (and drw dname))) dic-list)))) (defun canna-dictionary-select (env) (let ((dic-list (canna-list-writable-dictionaries-byname env))) (if (= 1 (length dic-list)) (car dic-list) (menudiag-select (list 'menu (egg-get-message 'canna-register-1) dic-list))))) (defun canna-hinshi-MEISHI (kanji yomi) (if (y-or-n-p (concat "$B!V(B" kanji "$B$J!W$O@5$7$$$G$9$+!#(B")) "#T15" "#T35")) (defun canna-hinshi-SAHEN-MEISHI (kanji yomi) (if (y-or-n-p (concat "$B!V(B" kanji "$B$J!W$O@5$7$$$G$9$+!#(B")) "#T10" "#T30")) (defmacro canna-hinshi-DOUSHI-check-gobi () '(progn (setq i 0) (while (> 9 i) (if (string-match (concat (substring gobi i (1+ i)) "$") kanji) (progn (setq renyou (substring re-gobi i (1+ i))) (setq mizen (substring mi-gobi i (1+ i))) (setq kanji-gobi (substring kanji (match-beginning 0))) (setq kanji-gokan (substring kanji 0 (match-beginning 0))) (setq ret (nth i hinshi)) (setq i 9))) (setq i (1+ i))) (setq i 0) (while (> 9 i) (if (string-match (concat (substring gobi i (1+ i)) "$") yomi) (progn (setq yomi-gobi (substring yomi (match-beginning 0))) (setq yomi-gokan (substring yomi 0 (match-beginning 0))) (setq i 9))) (setq i (1+ i))))) (defun canna-hinshi-DOUSHI (kanji yomi) (let ((gobi "$B$/$0$9$D$L$V$`$k$&(B") (re-gobi "$B$-$.$7$A$K$S$_$j$$(B") (mi-gobi "$B$+$,$5$?$J$P$^$i$o(B") (hinshi (list "#K5" "#G5" "#S5" "#T5" "#N5" "#B5" "#M5" "#R5" "#W5")) kanji-gokan yomi-gokan kanji-gobi yomi-gobi mizen renyou i ret1 ret2 ret) (canna-hinshi-DOUSHI-check-gobi) (if (not (and (> (length kanji) 1) (> (length yomi) 1) (and kanji-gobi yomi-gobi (equal kanji-gobi yomi-gobi)))) (if (and kanji-gobi yomi-gobi) (egg-error "$BFI$_$H8uJd$N3hMQ$,0c$$$^$9!#F~NO$7$J$*$7$F$/$@$5$$!#(B") (egg-error "$BFI$_$H8uJd$r=*;_7A$GF~NO$7$F$/$@$5$$!#(B"))) (cond ((and (> (length kanji) 2) (> (length yomi) 2) (string-match "$B$/$k(B$" kanji) (string-match "$B$/$k(B$" yomi)) (setq ret "#KX") (setq kanji-gokan (substring kanji 0 (- (length kanji) 2))) (setq yomi-gokan (substring yomi 0 (- (length yomi) 2)))) ((and (> (length kanji) 3) (> (length yomi) 3) (string-match "$B$s$:$k(B$" kanji) (string-match "$B$s$:$k(B$" yomi)) (setq ret "#NZX") (setq kanji-gokan (substring kanji 0 (- (length kanji) 3))) (setq yomi-gokan (substring yomi 0 (- (length yomi) 3)))) ((and (> (length kanji) 2) (> (length yomi) 2) (string-match "$B$:$k(B$" kanji) (string-match "$B$:$k(B$" yomi)) (setq ret "#ZX") (setq kanji-gokan (substring kanji 0 (- (length kanji) 2))) (setq yomi-gokan (substring yomi 0 (- (length yomi) 2)))) ((and (> (length kanji) 2) (> (length yomi) 2) (string-match "$B$9$k(B$" kanji) (string-match "$B$9$k(B$" yomi)) (setq ret "#SX") (setq kanji-gokan (substring kanji 0 (- (length kanji) 2))) (setq yomi-gokan (substring yomi 0 (- (length yomi) 2))))) (if (not (string-match "5$" ret)) (if (y-or-n-p (concat "$B!X(B" kanji "$B!Y$r(B (" (canna-hinshi-name ret) ") $B$H$7$FEPO?$7$^$9$+(B? ")) (setq ret (list kanji-gokan yomi-gokan ret)) (setq ret "#R5") (setq kanji-gokan (substring kanji 0 (- (length kanji) 1))) (setq yomi-gokan (substring yomi 0 (- (length yomi) 1))))) (if (listp ret) ret (if (y-or-n-p "$B$5$i$K:Y$+$$IJ;lJ,$1$N$?$a$N 9 i) (if (string-match (concat (substring re-gobi i (1+ i)) "$") kanji-gokan) (progn (setq renyou nil) (setq i 9))) (setq i (1+ i)))) (setq ret2 (y-or-n-p (concat "$B!V(B" kanji-gokan renyou "$B$,$$$$!W$O@5$7$$$G$9$+!#(B"))) (setq ret (if ret1 (if ret2 (concat ret "r") ret) (if ret2 "#KSr" "#KS"))))) (list kanji-gokan yomi-gokan ret)))) (defun canna-hinshi-KEIYOUSHI (kanji yomi) (let (ret) (if (not (and (> (length kanji) 1) (> (length yomi) 1) (string-match "$B$$(B$" yomi) (string-match "$B$$(B$" kanji))) (egg-error "$BFI$_$H8uJd$r(B $B=*;_7A$GF~NO$7$F$/$@$5$$!#Nc(B) $BAa$$(B")) (setq kanji (substring kanji 0 (1- (length kanji)))) (setq yomi (substring yomi 0 (1- (length yomi)))) (setq ret (if (y-or-n-p "$B$5$i$K:Y$+$$IJ;lJ,$1$N$?$a$N (length kanji) 1) (> (length yomi) 1) (string-match "$B$@(B$" yomi) (string-match "$B$@(B$" kanji))) (egg-error "$BFI$_$H8uJd$r(B $B=*;_7A$GF~NO$7$F$/$@$5$$!#Nc(B) $B@E$+$@(B")) (setq kanji (substring kanji 0 (1- (length kanji)))) (setq yomi (substring yomi 0 (1- (length yomi)))) (setq ret (if (y-or-n-p "$B$5$i$K:Y$+$$IJ;lJ,$1$N$?$a$N= result 0) (progn (cannarpc-save-dictionary env dic) (list (canna-hinshi-name hinshi-id) dic)) (egg-error (cannarpc-get-error-message (- result))))))) ;;; word delete registration (defun canna-word-delete-regist (backend yomi) "Delete a word KANJI from dictionary." (if (= (length yomi) 0) (egg-error "Canna word delete registration: null string")) (let* ((env (canna-get-environment backend)) (dic (canna-dictionary-select env)) proc context envd bunsetsu bunsetsu-pos z zpos kouho-list hinshi i kanji lex result) (setq proc (cannaenv-get-proc env)) (setq context (cannarpc-create-context proc)) (setq envd (cannaenv-create proc context 'canna-backend-Japanese-tmp-delete-regist 1 t)) (canna-set-dictionary envd (vector dic t)) (canna-set-dictionary envd (vector "fuzokugo" nil)) (setq bunsetsu (car (cannarpc-begin-conversion envd yomi))) (setq bunsetsu-pos (canna-bunsetsu-get-bunsetsu-pos bunsetsu)) (setq z (cannarpc-get-bunsetsu-candidates envd bunsetsu-pos yomi)) (canna-bunsetsu-set-zenkouho bunsetsu z) (canna-bunsetsu-set-zenkouho-pos bunsetsu 0) (setq kouho-list (canna-bunsetsu-set-zenkouho-converted bunsetsu (mapcar 'canna-bunsetsu-get-converted z))) (setq yomi (car (last kouho-list))) (setq kouho-list (cdr (reverse kouho-list))) (setq kouho-list (reverse kouho-list)) (setq i 0) (setq kouho-list (mapcar '(lambda (k) (prog1 (cons k i) (setq i (1+ i)))) kouho-list)) (let ((hiragana (assoc yomi kouho-list)) hinshi) (if hiragana (setq hinshi (cannarpc-get-hinshi envd bunsetsu-pos (cdr hiragana)))) (if (stringp hinshi) (if (equal "#T35" hinshi) (setq kouho-list (delete hiragana kouho-list))) (setq kouho-list (delete hiragana kouho-list)))) (cond ((null kouho-list) (cannarpc-close-context envd) (egg-error "$BEPO?$5$l$F$$$^$;$s!#(B")) ((eq 1 (length kouho-list)) (setq zpos 0) (setq kanji (car (car kouho-list)))) (t (setq kanji (menudiag-select (list 'menu "$B:o=|(B:" kouho-list) nil nil t)) (setq zpos (cdr (car kanji))) (setq kanji (car (car kanji))))) (setq hinshi (cannarpc-get-hinshi envd bunsetsu-pos zpos)) (setq lex (cannarpc-get-lex envd bunsetsu-pos zpos)) (cannarpc-cancel-conversion envd) (if (string-match "#[^#]+" hinshi) (setq hinshi (substring hinshi 0 (match-end 0))) (egg-error "$BIJ;l>pJs$,= result 0) (progn (cannarpc-save-dictionary envd dic) (cannarpc-close-context envd) (list kanji yomi (canna-hinshi-name hinshi) dic)) (cannarpc-close-context envd) (egg-error "$B:o=|$5$l$^$;$s$G$7$?!#(B")) )) ;;; setup (load "egg/cannarpc") (run-hooks 'canna-load-hook) ;;;###autoload (defun egg-activate-canna (&rest arg) "Activate CANNA backend of Tamago 4." (apply 'egg-mode (append arg canna-backend-alist))) ;;; egg/canna.el ends here. egg-4.0.6+0.20041122cvs/egg/sj3rpc.el0000644000764400003210000002312207234614431017743 0ustar ishikawaishikawa00000000000000;;; egg/sj3rpc.el --- SJ3 Support (low level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (defvar sj3-server-version 2 "*Major version number of SJ3 server.") (defvar sj3-server-coding-system 'shift_jis "*Coding system used when decoding and encoding of I/O operation with SJ3 server. Valid coding systems are depend on the server spec.") (eval-when-compile (require 'egg-com) (defmacro sj3-sjis-p () '(eq 'coding-category-sjis (coding-system-category sj3-server-coding-system))) (defmacro sj3-const (c) (cond ((eq c 'OPEN) 1) ((eq c 'CLOSE) 2) ((eq c 'DICADD) 11) ((eq c 'DICDEL) 12) ((eq c 'OPENSTDY) 21) ((eq c 'CLOSESTDY) 22) ((eq c 'STDYSIZE) 23) ((eq c 'LOCK) 31) ((eq c 'UNLOCK) 32) ((eq c 'BEGIN) '(if (sj3-sjis-p) 41 111)) ((eq c 'TANCONV) '(if (sj3-sjis-p) 51 112)) ((eq c 'KOUHO) '(if (sj3-sjis-p) 54 115)) ((eq c 'KOUHOSU) '(if (sj3-sjis-p) 55 116)) ((eq c 'STDY) 61) ((eq c 'CLSTDY) '(if (sj3-sjis-p) 62 117)) ((eq c 'WREG) '(if (sj3-sjis-p) 71 118)) ((eq c 'WDEL) '(if (sj3-sjis-p) 72 119)) ((eq c 'MKDIC) 81) ((eq c 'MKSTDY) 82) ((eq c 'MKDIR) 83) ((eq c 'ACCESS) 84) ((eq c 'WSCH) '(if (sj3-sjis-p) 91 120)) ((eq c 'WNSCH) '(if (sj3-sjis-p) 92 121)) ((eq c 'VERSION) 103) (t (error "No such constant"))))) ;; XXX (defconst sj3rpc-error-message (vector )) (defun sj3rpc-get-error-message (errno) (or (and (>= errno 0) (< errno (length sj3rpc-error-message)) (aref sj3rpc-error-message errno)) (format "#%d" errno))) (defmacro sj3rpc-call-with-environment (e vlist send-expr &rest receive-exprs) (let ((v (append `((proc (sj3env-get-proc ,e))) vlist))) (list 'let v (append `(save-excursion (set-buffer (process-buffer proc)) (erase-buffer) ,send-expr (process-send-region proc (point-min) (point-max)) (goto-char (prog1 (point) (accept-process-output proc)))) receive-exprs)))) (defmacro sj3rpc-unpack-mb-string () '(let ((start (point))) (while (not (search-forward "\0" nil t)) (comm-accept-process-output)) (decode-coding-string (buffer-substring start (1- (point))) sj3-server-coding-system))) (defun sj3rpc-open (proc myhostname username) "Open the session. Return 0 on success, error code on failure." (comm-call-with-proc proc (result) (comm-format (u u s s s) (sj3-const OPEN) sj3-server-version myhostname username ;; program name (format "%d.emacs-egg" (emacs-pid))) (comm-unpack (i) result) (if (= result -2) 0 result))) (defun sj3rpc-close (proc) (comm-call-with-proc proc (result) (comm-format (u) (sj3-const CLOSE)) (comm-unpack (i) result) result)) (defun sj3rpc-get-stdy-size (proc) "Return STDYSIZE of SJ3 server. On failure, return error code." (comm-call-with-proc proc (result) (comm-format (u) (sj3-const STDYSIZE)) (comm-unpack (u) result) (if (/= result 0) (- result) ; failure (comm-unpack (u) result) result))) (defsubst sj3rpc-get-stdy (proc) (let ((n 0) (stdy (make-vector sj3-stdy-size 0))) (while (< n sj3-stdy-size) (comm-unpack (b) r) (aset stdy n r) (setq n (1+ n))) stdy)) (defun sj3rpc-begin (env yomi) "Begin conversion." (let ((yomi-ext (encode-coding-string yomi sj3-server-coding-system)) (p 0) len source converted stdy bunsetsu-list bl) (sj3rpc-call-with-environment env (result) (comm-format (u s) (sj3-const BEGIN) yomi-ext) (comm-unpack (u) result) (if (/= result 0) (- result) ; failure (comm-unpack (u) result) ; skip (while (progn (comm-unpack (b) len) (> len 0)) (setq stdy (sj3rpc-get-stdy proc)) (setq converted (sj3rpc-unpack-mb-string)) (setq source (decode-coding-string (substring yomi-ext p (+ p len)) sj3-server-coding-system) p (+ p len)) (let ((bl1 (cons (sj3-make-bunsetsu env source converted nil stdy) nil))) (if bl (setq bl (setcdr bl bl1)) (setq bunsetsu-list (setq bl bl1))))) bunsetsu-list)))) (defun sj3rpc-open-dictionary (proc dict-file-name password) (comm-call-with-proc proc (result) (comm-format (u s s) (sj3-const DICADD) dict-file-name password) (comm-unpack (u) result) (if (/= result 0) (- result) ; failure (comm-unpack (u) result) result))) (defun sj3rpc-close-dictionary (proc dict-no) (comm-call-with-proc proc (result) (comm-format (u u) (sj3-const DICDEL) dict-no) (comm-unpack (i) result) result)) (defun sj3rpc-make-dictionary (proc dict-name) (comm-call-with-proc proc (result) (comm-format (u s u u u) (sj3-const MKDIC) dict-name 2048 ; Index length 2048 ; Length 256 ; Number ) (comm-unpack (i) result) result)) (defun sj3rpc-open-stdy (proc stdy-name) (comm-call-with-proc proc (result) (comm-format (u s s) (sj3-const OPENSTDY) stdy-name "") (comm-unpack (i) result) result)) (defun sj3rpc-close-stdy (proc) (comm-call-with-proc proc (result) (comm-format (u) (sj3-const CLOSESTDY)) (comm-unpack (i) result) result)) (defun sj3rpc-make-stdy (proc stdy-name) (comm-call-with-proc proc (result) (comm-format (u s u u u) (sj3-const MKSTDY) stdy-name 2048 ; Number 1 ; Step 2048 ; Length ) (comm-unpack (i) result) result)) (defun sj3rpc-make-directory (proc name) (comm-call-with-proc proc (result) (comm-format (u s) (sj3-const MKDIR) name) (comm-unpack (i) result) result)) (defun sj3rpc-get-bunsetsu-candidates-sub (proc env yomi yomi-ext len n) (let ((i 0) stdy converted bunsetsu bl bunsetsu-list cylen rest) (comm-call-with-proc-1 proc (result) (comm-format (u u s) (sj3-const KOUHO) len yomi-ext) (comm-unpack (u) result) (if (/= result 0) (- result) ; failure (while (< i n) (comm-unpack (u) cylen) (setq stdy (sj3rpc-get-stdy proc)) (setq converted (sj3rpc-unpack-mb-string)) (setq rest (decode-coding-string (substring yomi-ext cylen) sj3-server-coding-system)) (setq bunsetsu (sj3-make-bunsetsu env yomi converted rest stdy)) (if bl (setq bl (setcdr bl (cons bunsetsu nil))) (setq bunsetsu-list (setq bl (cons bunsetsu nil)))) (setq i (1+ i))) (setq bunsetsu (sj3-make-bunsetsu env yomi yomi nil nil)) (setq bl (setcdr bl (cons bunsetsu nil))) (setq bunsetsu (sj3-make-bunsetsu env yomi (japanese-katakana yomi) nil nil)) (setq bl (setcdr bl (cons bunsetsu nil))) bunsetsu-list)))) (defun sj3rpc-get-bunsetsu-candidates (env yomi) (let* ((yomi-ext (encode-coding-string yomi sj3-server-coding-system)) (len (length yomi-ext))) (sj3rpc-call-with-environment env (result) (comm-format (u u s) (sj3-const KOUHOSU) len yomi-ext) (comm-unpack (u) result) (if (/= result 0) (- result) ; failure (comm-unpack (u) result) (if (= result 0) (list (sj3-make-bunsetsu env yomi yomi nil nil)) ; XXX (sj3rpc-get-bunsetsu-candidates-sub proc env yomi yomi-ext len result)))))) (defun sj3rpc-tanbunsetsu-conversion (env yomi) (let* ((yomi-ext (encode-coding-string yomi sj3-server-coding-system)) (len (length yomi-ext)) cylen stdy converted rest) (sj3rpc-call-with-environment env (result) (comm-format (u u s) (sj3-const TANCONV) len yomi-ext) (comm-unpack (u) result) (if (/= result 0) (- result) (comm-unpack (u) cylen) (setq stdy (sj3rpc-get-stdy proc)) (setq converted (sj3rpc-unpack-mb-string)) (setq rest (decode-coding-string (substring yomi-ext cylen) sj3-server-coding-system)) (setq bunsetsu (sj3-make-bunsetsu env yomi converted rest stdy)))))) (defun sj3rpc-bunsetsu-stdy (env stdy) (sj3rpc-call-with-environment env (result) (comm-format (u v) (sj3-const STDY) stdy (length stdy)) (comm-unpack (u) result) (- result))) (defun sj3rpc-kugiri-stdy (env yomi1 yomi2 stdy) (sj3rpc-call-with-environment env (result) (comm-format (u s s v) (sj3-const CLSTDY) (encode-coding-string yomi1 sj3-server-coding-system) (encode-coding-string yomi2 sj3-server-coding-system) stdy (length stdy)) (comm-unpack (u) result) (- result))) (defun sj3rpc-add-word (env dictionary yomi kanji hinshi) "Register a word KANJI into DICTIONARY with a pronunciation YOMI and a part of speech HINSHI. Where DICTIONARY should be an integer." (sj3rpc-call-with-environment env () (comm-format (u u s s u) (sj3-const WREG) dictionary (encode-coding-string yomi sj3-server-coding-system) (encode-coding-string kanji sj3-server-coding-system) hinshi) (comm-unpack (u) result) (- result))) ;;; egg/sj3rpc.el ends here. egg-4.0.6+0.20041122cvs/egg/sj3.el0000644000764400003210000003712607517100122017236 0ustar ishikawaishikawa00000000000000;;; egg/sj3.el --- SJ3 Support (high level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg) (require 'egg-edep) (defgroup sj3 nil "SJ3 interface for Tamago 4." :group 'egg) (defcustom sj3-hostname "localhost" "Hostname of SJ3 server" :group 'sj3 :type 'string) (defcustom sj3-server-port 3086 "Port number of SJ3 server" :group 'sj3 :type 'integer) (eval-when-compile (defmacro SJ3-const (c) (cond ((eq c 'FileNotExist) 35) ))) (egg-add-message '((Japanese (sj3-register-1 "$BEPO?<-=qL>(B:") (sj3-register-2 "$BIJ;lL>(B")))) (defvar sj3-hinshi-menu '(("$BL>;l(B" . (menu "$BIJ;l(B:$BL>;l(B:" (("$BL>;l(B" . 1) ("$BL>;l(B($B$*!D(B)" . 2) ("$BL>;l(B($B$4!D(B)" . 3) ("$BL>;l(B($B!DE*(B/$B2=(B)" . 4) ("$BL>;l(B($B$*!D$9$k(B)" . 5) ("$BL>;l(B($B!D$9$k(B)" . 6) ("$BL>;l(B($B$4!D$9$k(B)" . 7) ("$BL>;l(B($B!D$J(B/$B$K(B)" . 8) ("$BL>;l(B($B$*!D$J(B/$B$K(B)" . 9) ("$BL>;l(B($B$4!D$J(B/$B$K(B)" . 10) ("$BL>;l(B($BI{;l(B)" . 11)))) ("$BBeL>;l(B" . 12) ("$BID;z(B" . 21) ("$BL>A0(B" . 22) ("$BCOL>(B" . 24) ("$B8)(B/$B6hL>(B" . 25) ("$BF0;l(B" . (menu "$BIJ;l(B:$BF0;l(B:" (("$B%5JQ8l44(B" . 80) ("$B%6JQ8l44(B" . 81) ("$B0lCJITJQ2=It(B" . 90) ("$B%+9T8^CJ8l44(B" . 91) ("$B%,9T8^CJ8l44(B" . 92) ("$B%59T8^CJ8l44(B" . 93) ("$B%?9T8^CJ8l44(B" . 94) ("$B%J9T8^CJ8l44(B" . 95) ("$B%P9T8^CJ8l44(B" . 96) ("$B%^9T8^CJ8l44(B" . 97) ("$B%i9T8^CJ8l44(B" . 98) ("$B%o9T8^CJ8l44(B" . 99)))) ("$BO"BN;l(B" . 26) ("$B@\B3;l(B" . 27) ("$B=u?t;l(B" . 29) ("$B?t;l(B" . 30) ("$B@\F,8l(B" . 31) ("$B@\Hx8l(B" . 36) ("$BI{;l(B" . 45) ("$BI{;l(B2" . 46) ("$B7AMF;l8l44(B" . 60) ("$B7AMFF0;l8l44(B" . 71) ("$BC14A;z(B" . 189)) "Menu data for a hinshi (a part of speech) selection.") (defun sj3-hinshi-name (id &optional menu alist) "Return a hinshi (a part of speech) name corresponding to ID. If ID is nil, return a flattened alist from `sj3-hinshi-menu'. Don't specify the optional arguments in normal use." (let ((menu (or menu sj3-hinshi-menu))) (if (consp menu) (if (consp (cdr menu)) (mapcar (lambda (elem) (setq alist (sj3-hinshi-name nil elem alist))) menu) (setq alist (nconc alist (list (cons (cdr menu) (car menu))))))) (if id (cdr (assq id alist)) alist))) (setplist 'sj3-conversion-backend '(egg-start-conversion sj3-start-conversion egg-get-bunsetsu-source sj3-get-bunsetsu-source egg-get-bunsetsu-converted sj3-get-bunsetsu-converted egg-get-source-language sj3-get-source-language egg-get-converted-language sj3-get-converted-language egg-list-candidates sj3-list-candidates egg-decide-candidate sj3-decide-candidate egg-change-bunsetsu-length sj3-change-bunsetsu-length egg-end-conversion sj3-end-conversion egg-word-registration sj3-word-registration)) (defconst sj3-backend-alist '((Japanese ((sj3-conversion-backend))))) (egg-set-finalize-backend '(sj3-finalize-backend)) (defvar sj3-stdy-size 0 "STDYSIZE of SJ3 server") (defvar sj3-open-message) (defun sj3-open (hostname) "Establish the connection to SJ3 server. Return process object." (let* ((buf (generate-new-buffer " *SJ3*")) proc result) (condition-case err (setq proc (open-network-stream "SJ3" buf hostname sj3-server-port)) ((error quit) (egg-error "failed to connect sj3 server"))) (process-kill-without-query proc) (set-process-coding-system proc 'binary 'binary) (set-marker-insertion-type (process-mark proc) t) (save-excursion (set-buffer buf) (erase-buffer) (buffer-disable-undo) (set-buffer-multibyte nil)) ;; Initialize dictionaries (setq sj3-sys-dict-list nil) (setq sj3-user-dict-list nil) (setq result (sj3rpc-open proc (system-name) (user-login-name))) (if (< result 0) (let ((msg (sj3rpc-get-error-message (- result)))) (delete-process proc) (kill-buffer buf) (egg-error "Can't open SJ3 session (%s): %s" hostname msg))) (setq result (sj3rpc-get-stdy-size proc)) (if (< result 0) (let ((msg (sj3rpc-get-error-message (- result)))) (delete-process proc) (kill-buffer buf) (egg-error "Can't get SJ3 STDYSIZE: %s"msg))) (setq sj3-stdy-size result) proc)) ;; (defun sj3-open (hostname-list) ;; "Establish the connection to SJ3 server. Return process object." ;; (let* ((buf (generate-new-buffer " *SJ3*")) ;; (msg-form "SJ3: connecting to sj3serv at %s...") ;; hostname proc result msg) ;; (save-excursion ;; (set-buffer buf) ;; (erase-buffer) ;; (buffer-disable-undo) ;; (setq enable-multibyte-characters nil)) ;; (cond ;; ((null hostname-list) ;; (setq hostname-list '("localhost"))) ;; ((null (listp hostname-list)) ;; (setq hostname-list (list hostname-list)))) ;; (while (and hostname-list (null proc)) ;; (setq hostname (car hostname-list) ;; hostname-list (cdr hostname-list)) ;; (message msg-form hostname) ;; (sit-for 0) ;; (condition-case result ;; (setq proc (open-network-stream "SJ3" buf hostname sj3-server-port)) ;; (error nil)) ;; (if proc ;; (progn ;; (process-kill-without-query proc) ;; (set-process-coding-system proc 'binary 'binary) ;; (set-marker-insertion-type (process-mark proc) t) ;; ;; Initialize dictionaries ;; (setq sj3-sys-dict-list nil) ;; (setq sj3-user-dict-list nil) ;; (setq result (sj3rpc-open proc (system-name) (user-login-name))) ;; (if (< result 0) ;; (progn ;; (delete-process proc) ;; (setq proc nil ;; msg (format "Can't open SJ3 session (%s): %s" ;; hostname msg))) ;; (setq result (sj3rpc-get-stdy-size proc)) ;; (if (< result 0) ;; (progn ;; (delete-process proc) ;; (setq proc nil ;; msg (format "Can't get SJ3 STDYSIZE: %s" ;; (sj3rpc-get-error-message (- result))))) ;; (setq sj3-stdy-size result)))))) ;; (if proc ;; (progn ;; (setq sj3-open-message (format (concat msg-form "done") hostname)) ;; proc) ;; (kill-buffer buf) ;; (error "%s" (or msg "no sj3serv available"))))) ;; ::= [ ] (defvar sj3-environment nil "Environment for SJ3 kana-kanji conversion") (defsubst sj3env-get-proc (env) (aref env 0)) (defsubst sj3env-get-dictionary-list (env) (aref env 1)) ;; ::= ;; [ ;; ;; ] (defsubst sj3-make-bunsetsu (env source converted rest stdy) (egg-bunsetsu-create 'sj3-conversion-backend (vector env source converted rest stdy nil nil nil nil nil))) (defsubst sj3bunsetsu-get-env (b) (aref (egg-bunsetsu-get-info b) 0)) (defsubst sj3bunsetsu-get-source (b) (aref (egg-bunsetsu-get-info b) 1)) (defsubst sj3bunsetsu-get-converted (b) (aref (egg-bunsetsu-get-info b) 2)) (defsubst sj3bunsetsu-get-rest (b) (aref (egg-bunsetsu-get-info b) 3)) (defsubst sj3bunsetsu-get-stdy (b) (aref (egg-bunsetsu-get-info b) 4)) (defsubst sj3bunsetsu-get-zenkouho (b) (aref (egg-bunsetsu-get-info b) 5)) (defsubst sj3bunsetsu-set-zenkouho (b z) (aset (egg-bunsetsu-get-info b) 5 z)) (defsubst sj3bunsetsu-get-zenkouho-pos (b) (aref (egg-bunsetsu-get-info b) 6)) (defsubst sj3bunsetsu-set-zenkouho-pos (b zp) (aset (egg-bunsetsu-get-info b) 6 zp)) (defsubst sj3bunsetsu-get-zenkouho-converted (b) (aref (egg-bunsetsu-get-info b) 7)) (defsubst sj3bunsetsu-set-zenkouho-converted (b zc) (aset (egg-bunsetsu-get-info b) 7 zc)) (defsubst sj3bunsetsu-get-kugiri-changed (b) (aref (egg-bunsetsu-get-info b) 8)) (defsubst sj3bunsetsu-set-kugiri-changed (b s) (aset (egg-bunsetsu-get-info b) 8 s)) (defun sj3-get-bunsetsu-source (b) (sj3bunsetsu-get-source b)) (defun sj3-get-bunsetsu-converted (b) (concat (sj3bunsetsu-get-converted b) (sj3bunsetsu-get-rest b))) (defun sj3-get-source-language (b) 'Japanese) (defun sj3-get-converted-language (b) 'Japanese) (defun sj3-get-bunsetsu-stdy (b) (sj3bunsetsu-get-stdy b)) (defvar sj3-dictionary-specification '(("study.dat") ["sj3main.dic" ""] [("private.dic") ""]) "Dictionary specification of SJ3.") (defvar sj3-usr-dic-dir (concat "user/" (user-login-name)) "*Directory of user dictionary for SJ3.") (defun sj3-filename (p) "" (cond ((consp p) (concat sj3-usr-dic-dir "/" (car p))) (t p))) (defun sj3-get-environment () "Return the backend of SJ3 environment." (if sj3-environment sj3-environment (let* ((proc (sj3-open sj3-hostname)) (freq-info-name (sj3-filename (car sj3-dictionary-specification))) (l (cdr sj3-dictionary-specification)) dict-list) (sj3-open-freq-info proc freq-info-name) (while l (let ((dic (car l)) dic-id) (setq dic-id (sj3-open-dictionary proc (sj3-filename (aref dic 0)) (aref dic 1))) (if (< dic-id 0) (egg-error "Dame2") ; XXX (setq dict-list (cons dic-id dict-list) l (cdr l))))) (setq sj3-environment (vector proc dict-list))))) (defun sj3-open-freq-info (proc name) (let ((trying t) ret) (while trying (setq ret (sj3rpc-open-stdy proc name)) (if (= ret 0) (setq trying nil) (message "$B3X=,%U%!%$%k(B(%s)$B$,$"$j$^$;$s(B" name) (if (/= ret (SJ3-const FileNotExist)) (egg-error "Fatal1") ; XXX (if (and (y-or-n-p (format "$B3X=,%U%!%$%k(B(%s)$B$,$"$j$^$;$s!#:n$j$^$9$+(B? " name)) (sj3rpc-make-directory proc (file-name-directory name)) ;; ignore error (= (sj3rpc-make-stdy proc name) 0)) (message "$B3X=,%U%!%$%k(B(%s)$B$r:n$j$^$7$?(B" name) (egg-error "Fatal2"))))))) ; XXX (defun sj3-open-dictionary (proc name passwd) (let ((trying t) ret) (while trying (setq ret (sj3rpc-open-dictionary proc name passwd)) (if (>= ret 0) (setq trying nil) (message "$B<-=q%U%!%$%k(B(%s)$B$,$"$j$^$;$s(B" name) (setq ret (- ret)) ; Get error code. (if (/= ret (SJ3-const FileNotExist)) (egg-error "Fatal3 %d" ret) ; XXX (if (and (y-or-n-p (format "$B<-=q%U%!%$%k(B(%s)$B$,$"$j$^$;$s!#:n$j$^$9$+(B? " name)) (= (sj3rpc-make-dictionary proc name) 0)) (message "$B<-=q%U%!%$%k(B(%s)$B$r:n$j$^$7$?(B" name) (egg-error "Fatal4"))))) ; XXX ret)) (defun sj3-start-conversion (backend yomi &optional context) "Convert YOMI string to kanji, and enter conversion mode. Return the list of bunsetsu." (let ((env (sj3-get-environment))) (sj3rpc-begin env yomi))) (defun sj3-end-conversion (bunsetsu-list abort) (if abort () (let ((env (sj3bunsetsu-get-env (car bunsetsu-list))) (l bunsetsu-list) bunsetsu stdy kugiri-changed) (while l (setq bunsetsu (car l)) (setq l (cdr l)) (setq stdy (sj3bunsetsu-get-stdy bunsetsu)) (if stdy (sj3rpc-bunsetsu-stdy env stdy)) (if (and l (setq kugiri-changed (sj3bunsetsu-get-kugiri-changed bunsetsu))) (let ((yomi1 (sj3bunsetsu-get-source bunsetsu)) (yomi2 (sj3bunsetsu-get-source (car l)))) (if (/= kugiri-changed (length yomi1)) (sj3rpc-kugiri-stdy env yomi1 yomi2 (sj3bunsetsu-get-stdy (car l)))))))))) (defun sj3-list-candidates (bunsetsu prev-bunsetsu next-bunsetsu major) (setq bunsetsu (car bunsetsu)) (if (sj3bunsetsu-get-zenkouho bunsetsu) (cons (sj3bunsetsu-get-zenkouho-pos bunsetsu) (sj3bunsetsu-get-zenkouho-converted bunsetsu)) (let* ((env (sj3bunsetsu-get-env bunsetsu)) (yomi (sj3bunsetsu-get-source bunsetsu)) (z (sj3rpc-get-bunsetsu-candidates env yomi))) (sj3bunsetsu-set-zenkouho bunsetsu z) (cons (sj3bunsetsu-set-zenkouho-pos bunsetsu 0) (sj3bunsetsu-set-zenkouho-converted bunsetsu (mapcar 'sj3bunsetsu-get-converted z)))))) (defun sj3-decide-candidate (bunsetsu candidate-pos prev-b next-b) (setq bunsetsu (car bunsetsu)) (let* ((candidate-list (sj3bunsetsu-get-zenkouho bunsetsu)) (candidate (nth candidate-pos candidate-list))) (sj3bunsetsu-set-zenkouho candidate candidate-list) (sj3bunsetsu-set-zenkouho-pos candidate candidate-pos) (sj3bunsetsu-set-zenkouho-converted candidate (sj3bunsetsu-get-zenkouho-converted bunsetsu)) (list (list candidate)))) (defun sj3-change-bunsetsu-length (bunsetsu prev-b next-b len major) (let ((yomi (mapconcat 'sj3bunsetsu-get-source bunsetsu nil)) (env (sj3bunsetsu-get-env (car bunsetsu))) (old (car bunsetsu)) new yomi1 yomi2) (setq yomi1 (substring yomi 0 len) yomi2 (substring yomi len)) (setq new (sj3rpc-tanbunsetsu-conversion env yomi1)) ;; Only set once (memory original length of the bunsetsu). (sj3bunsetsu-set-kugiri-changed new (or (sj3bunsetsu-get-kugiri-changed old) (length (sj3bunsetsu-get-source old)))) (if (> (length yomi2) 0) (list (list new (sj3rpc-tanbunsetsu-conversion env yomi2))) (list (list new))))) (defun sj3-finalize-backend () (if sj3-environment (let ((proc (sj3env-get-proc sj3-environment)) (dict-list (sj3env-get-dictionary-list sj3-environment)) dict) (while dict-list (setq dict (car dict-list)) (setq dict-list (cdr dict-list)) (sj3rpc-close-dictionary proc dict)) ; XXX: check error (sj3rpc-close-stdy proc) (sj3rpc-close proc) (setq sj3-environment nil)))) ;;; word registration (defun sj3-dictionary-select () (menudiag-select (list 'menu (egg-get-message 'sj3-register-1) (aref (nth 2 sj3-dictionary-specification) 0)))) (defun sj3-hinshi-select () (menudiag-select (list 'menu (egg-get-message 'sj3-register-2) sj3-hinshi-menu))) (defun sj3-word-registration (backend kanji yomi) "Register a word KANJI with a pronunciation YOMI." (if (or (null (eq (egg-get-language 0 kanji) (sj3-get-converted-language backend))) (next-single-property-change 0 'egg-lang kanji) (null (eq (egg-get-language 0 yomi) (sj3-get-source-language backend))) (next-single-property-change 0 'egg-lang yomi)) (egg-error "word registration: invalid character") (let* ((env (sj3-get-environment)) (dic (sj3-dictionary-select)) (hinshi-id (sj3-hinshi-select)) (result (sj3rpc-add-word env (car (aref env 1)) yomi kanji hinshi-id))) (if (>= result 0) (list (sj3-hinshi-name hinshi-id) dic) (egg-error (sj3rpc-get-error-message (- result))))))) ;;; setup (load "egg/sj3rpc") (run-hooks 'sj3-load-hook) ;;;###autoload (defun egg-activate-sj3 (&rest arg) "Activate SJ3 backend of Tamago 4." (apply 'egg-mode (append arg sj3-backend-alist))) ;;; egg/sj3.el ends here. egg-4.0.6+0.20041122cvs/egg/wnnrpc.el0000644000764400003210000016274007517100123020050 0ustar ishikawaishikawa00000000000000;;; egg/wnnrpc.el --- WNN Support (low level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ; Korean, Chinese support. ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'egg-com) (defmacro wnn-file-string () (string-as-unibyte (decode-coding-string "$B#W#n#n$N%U%!%$%k(B" 'euc-jp))) (defmacro wnn-const (c) "Macro for WNN constants." (cond ((eq c 'JS_VERSION) 0) ((eq c 'JS_OPEN) 1) ((eq c 'JS_CLOSE) 3) ((eq c 'JS_CONNECT) 5) ((eq c 'JS_DISCONNECT) 6) ((eq c 'JS_ENV_EXIST) 7) ((eq c 'JS_ENV_STICKY) 8) ((eq c 'JS_ENV_UNSTICKY) 9) ((eq c 'JS_KANREN) 17) ((eq c 'JS_KANTAN_SHO) 18) ((eq c 'JS_KANZEN_SHO) 19) ((eq c 'JS_KANTAN_DAI) 20) ((eq c 'JS_KANZEN_DAI) 21) ((eq c 'JS_HINDO_SET) 24) ((eq c 'JS_DIC_ADD) 33) ((eq c 'JS_DIC_DELETE) 34) ((eq c 'JS_DIC_USE) 35) ((eq c 'JS_DIC_LIST) 36) ((eq c 'JS_DIC_INFO) 37) ((eq c 'JS_FUZOKUGO_SET) 41) ((eq c 'JS_FUZOKUGO_GET) 48) ((eq c 'JS_WORD_ADD) 49) ((eq c 'JS_WORD_DELETE) 50) ((eq c 'JS_WORD_SEARCH) 51) ((eq c 'JS_WORD_SEARCH_BY_ENV) 52) ((eq c 'JS_WORD_INFO) 53) ((eq c 'JS_WORD_COMMENT_SET) 54) ((eq c 'JS_PARAM_SET) 65) ((eq c 'JS_PARAM_GET) 66) ((eq c 'JS_MKDIR) 81) ((eq c 'JS_ACCESS) 82) ((eq c 'JS_WHO) 83) ((eq c 'JS_ENV_LIST) 85) ((eq c 'JS_FILE_LIST_ALL) 86) ((eq c 'JS_DIC_LIST_ALL) 87) ((eq c 'JS_FILE_READ) 97) ((eq c 'JS_FILE_WRITE) 98) ((eq c 'JS_FILE_SEND) 99) ((eq c 'JS_FILE_RECEIVE) 100) ((eq c 'JS_HINDO_FILE_CREATE) 101) ((eq c 'JS_DIC_FILE_CREATE) 102) ((eq c 'JS_FILE_REMOVE) 103) ((eq c 'JS_FILE_LIST) 104) ((eq c 'JS_FILE_INFO) 105) ((eq c 'JS_FILE_LOADED) 106) ((eq c 'JS_FILE_LOADED_LOCAL) 107) ((eq c 'JS_FILE_DISCARD) 108) ((eq c 'JS_FILE_COMMENT_SET) 109) ((eq c 'JS_FILE_PASSWORD_SET) 110) ((eq c 'JS_FILE_STAT) 111) ((eq c 'JS_KILL) 112) ((eq c 'JS_HINSI_LIST) 114) ((eq c 'JS_HINSI_NAME) 115) ((eq c 'JS_HINSI_NUMBER) 116) ((eq c 'JS_HINSI_DICTS) 117) ((eq c 'JS_HINSI_TABLE_SET) 118) ((eq c 'JS_ACCESS_ADD_HOST) ?\xf00011) ((eq c 'JS_ACCESS_ADD_USER) ?\xf00012) ((eq c 'JS_ACCESS_REMOVE_HOST) ?\xf00013) ((eq c 'JS_ACCESS_REMOVE_USER) ?\xf00014) ((eq c 'JS_ACCESS_ENABLE) ?\xf00015) ((eq c 'JS_ACCESS_DISABLE) ?\xf00016) ((eq c 'JS_ACCESS_GET_INFO) ?\xf00017) ((eq c 'JS_TEMPORARY_DIC_ADD) ?\xf00021) ((eq c 'JS_TEMPORARY_DIC_DELETE) ?\xf00022) ((eq c 'JS_AUTOLEARNING_WORD_ADD) ?\xf00023) ((eq c 'JS_SET_AUTOLEARNING_DIC) ?\xf00024) ((eq c 'JS_GET_AUTOLEARNING_DIC) ?\xf00025) ((eq c 'JS_IS_LOADED_TEMPORARY_DIC) ?\xf00026) ((eq c 'JS_TEMPORARY_WORD_ADD) ?\xf00027) ((eq c 'JS_SET_HENKAN_ENV) ?\xf00031) ((eq c 'JS_GET_HENKAN_ENV) ?\xf00032) ((eq c 'JS_SET_HENKAN_HINSI) ?\xf00033) ((eq c 'JS_GET_HENKAN_HINSI) ?\xf00034) ((eq c 'JS_HENKAN_WITH_DATA) ?\xf00035) ((eq c 'JS_FI_DIC_ADD) ?\xf00061) ((eq c 'JS_FI_HINDO_FILE_CREATE) ?\xf00062) ((eq c 'JS_FI_KANREN) ?\xf00065) ((eq c 'JS_SET_FI_PRIORITY) ?\xf00066) ((eq c 'JS_OPTIMIZE_FI) ?\xf00067) ((eq c 'JS_HENKAN_IKEIJI) ?\xf0006f) ((eq c 'JS_LOCK) ?\xf00071) ((eq c 'JS_UNLOCK) ?\xf00072) ((eq c 'JS_FI_DIC_LIST) ?\xf00081) ((eq c 'JS_FI_DIC_LIST_ALL) ?\xf00082) ((eq c 'JS_FUZOKUGO_LIST) ?\xf00083) ((eq c 'JLIB_VERSION) ?\x4003) ((eq c 'JLIB_VERSION_WNN6) ?\x4f00) ((eq c 'WNN_C_LOCAL) "!") ((eq c 'WNN_FT_DICT_FILE) 1) ((eq c 'WNN_FT_HINDO_FILE) 2) ((eq c 'WNN_FILE_STRING) (encode-coding-string "$B#W#n#n$N%U%!%$%k(B" 'euc-jp)) ((eq c 'WNN_FILE_STRING_LEN) 16) ((eq c 'WNN_PASSWD_LEN) 16) ((eq c 'WNN_HOST_LEN) 16) ((eq c 'WNN_UNIQ_LEN) 28) ((eq c 'WNN_FILE_HEADER_LEN) 128) ((eq c 'WNN_FILE_HEADER_PAD) 36) ((eq c 'WNN_FILE_BODY_PAD) 116) ((eq c 'WNN_ENVNAME_LEN) 32) ((eq c 'WNN_MAX_ENV_OF_A_CLIENT) 32) ((eq c 'WNN_MAX_DIC_OF_AN_ENV) 30) ((eq c 'WNN_MAX_FILE_OF_AN_ENV) 60) ((eq c 'WNN_ACK) 0) ((eq c 'WNN_NAK) -1) ((eq c 'WNN_NO_EXIST) 1) ((eq c 'WNN_OPENF_ERR) 16) ((eq c 'WNN_JSERVER_DEAD) 70) ((eq c 'WNN_BAD_VERSION) 73) ((eq c 'WNN_FILE_READ_ERROR) 90) ((eq c 'WNN_FILE_WRITE_ERROR) 91) ((eq c 'WNN_INCORRECT_PASSWD) 94) ((eq c 'WNN_FILE_IN_USE) 95) ((eq c 'WNN_UNLINK) 96) ((eq c 'WNN_FILE_CREATE_ERROR) 97) ((eq c 'WNN_NOT_A_FILE) 98) ((eq c 'WNN_INODE_CHECK_ERROR) 99) ((eq c 'WNN_UD_DICT) 2) ((eq c 'WNN_REV_DICT) 3) ((eq c 'CWNN_REV_DICT) ?\x103) ((eq c 'BWNN_REV_DICT) ?\x203) ((eq c 'WNN_COMPACT_DICT) 5) ((eq c 'WNN_FI_SYSTEM_DICT) 6) ((eq c 'WNN_FI_USER_DICT) 7) ((eq c 'WNN_FI_HINDO_FILE) 8) ((eq c 'WNN_GROUP_DICT) 9) ((eq c 'WNN_MERGE_DICT) 10) ((eq c 'WNN_VECT_NO) -1) ((eq c 'WNN_VECT_BUNSETSU) 2) ((eq c 'WNN_VECT_KANREN) 0) ((eq c 'WNN_VECT_KANZEN) 1) ((eq c 'WNN_VECT_KANTAN) 1)))) (defconst wnnrpc-error-message '((Japanese . [ nil "$B%U%!%$%k$,B8:_$7$^$;$s(B" nil "$B%a%b%j(B allocation $B$G<:GT$7$^$7$?(B" nil "$B<-=q$G$O$"$j$^$;$s(B" "$BIQEY%U%!%$%k$G$O$"$j$^$;$s(B" "$BIUB08l%U%!%$%k$G$O$"$j$^$;$s(B" nil "$B<-=q%F!<%V%k$,0lGU$G$9(B" "$BIQEY%U%!%$%k$,;XDj$5$l$?<-=q$NIQEY%U%!%$%k$G$O$"$j$^$;$s(B" nil nil nil nil nil "$B%U%!%$%k$,%*!<%W%s$G$-$^$;$s(B" "$B@5$7$$IQEY%U%!%$%k$G$O$"$j$^$;$s(B" "$B@5$7$$IUB08l%U%!%$%k$G$O$"$j$^$;$s(B" "$BIUB08l$N8D?t(B, $B%Y%/%?D9$5$J$I$,B?2a$.$^$9(B" "$B$=$NHV9f$N<-=q$O;H$o$l$F$$$^$;$s(B" nil nil nil "$BIUB08l%U%!%$%k$NFbMF$,@5$7$/$"$j$^$;$s(B" "$B5?;wIJ;lHV9f$,0[>o$G$9(B(hinsi.data $B$,@5$7$/$"$j$^$;$s(B)" "$BL$Dj5A$NIJ;l$,A0Ce%U%!%$%k$rFI$_9~$`$3$H$,$G$-$^$;$s(B" "$B%Q%9%o!<%I$,4V0c$C$F$$$^$9(B" "$B%U%!%$%k$,FI$_9~$^$l$F$$$^$9(B" "$B%U%!%$%k$,:o=|$G$-$^$;$s(B" "$B%U%!%$%k$,:n@.=PMh$^$;$s(B" "WNN $B$N%U%!%$%k$G$"$j$^$;$s(B" "$B%U%!%$%k$N(B inode $B$H(B FILE_UNIQ $B$r0lCW$5$;$k;v$,$G$-$^$;$s(B" "$BIJ;l%U%!%$%k$,Bg$-2a$.$^$9(B" "$BIJ;l%U%!%$%k$,Bg$-2a$.$^$9(B" "$BIJ;l%U%!%$%k$,B8:_$7$^$;$s(B" "$BIJ;l%U%!%$%k$NFbMF$,4V0c$C$F$$$^$9(B" nil "$BIJ;l%U%!%$%k$,FI$_9~$^$l$F$$$^$;$s(B" "$BIJ;lL>$,4V0c$C$F$$$^$9(B" "$BIJ;lHV9f$,4V0c$C$F$$$^$9(B" nil "$B$=$NA`:n$O%5%]!<%H$5$l$F$$$^$;$s(B" "$B%Q%9%o!<%I$NF~$C$F$$$k%U%!%$%k$,%*!<%W%s$G$-$^$;$s(B" "uumrc $B%U%!%$%k$,B8:_$7$^$;$s(B" "uumrc $B%U%!%$%k$N7A<0$,8m$C$F$$$^$9(B" "$B$3$l0J>e4D6-$r:n$k$3$H$O$G$-$^$;$s(B" "$B$3$N%/%i%$%"%s%H$,FI$_9~$s$@%U%!%$%k$G$"$j$^$;$s(B" "$B<-=q$KIQEY%U%!%$%k$,$D$$$F$$$^$;$s(B" "$B%Q%9%o!<%I$N%U%!%$%k$,:n@.=PMh$^$;$s(B" ]) (Chinese-GB . [ nil "$AND<~2;4fTZ(B" nil "$ADZ4f(Balloc$AJ'0\(B" nil "$A2;JGWV5d(B" "$A2;JGF56HND<~(B" "$A2;JGND7(ND<~(B" nil "$AWV5d1m8qBz(B" "$AF56HND<~#:2;JGV86(5DWV5d5DF56HND<~(B" nil nil nil nil nil "$AND<~2;D\4r?*(B" "$A2;JGU}H75DF56HND<~(B" "$A2;JGU}H75DND7(ND<~(B" "$A8=JtSo5D8vJ}!"OrA?3$6H5H3,9}(B" "$AUb8v:EBk5DWV5d!"C;SPJ9SC(B" nil nil nil "$AND7(ND<~5DDZH]2;U}H7(B" "$APiDb4JPT:EBkRl3#(Bcixing.data$A2;U}H7(B" "$AN46(Re5D4JPT!"6(ReAKG06K4JPT(B" "$AND7(ND<~2;D\6AH!(B" nil nil "$AWV5d5DOnJ}3,9}(B" "$A1d;;:sWV7{4.5D3$6H3,9}(B" "$A8=JtSo=bNvSr2;9;(B" nil "$A4N:n29Sr2;9;(B" "$A:n29(B 1$A8vR2C;SP(B" nil nil nil nil "$A6ARt3$6H3,9}(B" "$A::WV3$6H3,9}(B" "$AV86(5DWV5d!"2;D\5GB<(B" "$A6ARt5D3$6HJG(B 0" "$AV86(5DWV5d!"2;D\Df2i(B" "$AV;6A5DWV5d!"5GB<(B/$AO{3}AK(B" "$A;7>3VP2;4fTZ5DWV5d!"5GB2;7{(B" "$A2;JG#c#W#n#nSC;'Iz3I5D;7>3(B" nil nil nil nil nil "$AWSD?B<2;D\44=((B" nil nil nil nil nil nil nil nil nil "$AND<~2;D\6AH!(B" "$AND<~2;D\P43v(B" "$A2;JG#c#W#n#nSC;'?I6AH!5DND<~(B" "$ARTIO5DND<~2;D\6AH!(B" "password$A2;6T(B" "$AND<~U}TZ6AH!(B" "$AND<~2;D\O{3}(B" "$AND<~C;SP44=(3v@4(B" "$A2;JG#c#W#n#n5DND<~(B" "$AND<~5D(BI-node$A:M(BFILE_UNIQ$A2;D\R;VB(B" "$A4JPTND<~L+4s(B" "$A4JPTND<~L+4s(B" "$A4JPTND<~2;4fTZ(B" "$A4JPTND<~5DDZH]2;6T(B" nil "$A4JPTND<~2;D\6AH!(B" "$A4JPTC{2;6T(B" "$A4JPT:EBk2;6T(B" nil "$AUb8v2YWw2;V'3V(B" "password$A5DJdHkND<~2;D\4r?*(B" "uumrc$AND<~2;4fTZ(B" "uumrc$AND<~5DPNJ=4mNs(B" "$ARTIO;7>32;D\44=((B" "$AUb8v#c#W#n#nSC;'!"6AH!5DND<~C;SP(B" "$AWV5d5DF56HND<~C;SP(B" "password$A5DND<~C;SP44=(3v@4(B" ]) (Chinese-CNS . [ nil "$(GEFG5DbGtGc(B" nil "$(GDyGt(Balloc$(GFBZu(B" nil "$(GDbQRGsL((B" "$(GDbQRs"PyEFG5(B" "$(GDbQREFNNEFG5(B" nil "$(GGsL(OPV*iH(B" "$(Gs"PyEFG5!3DbQRQ@LyN{GsL(N{s"PyEFG5(B" nil nil nil nil nil "$(GEFG5DbWdFTbd(B" "$(GDbQRF_m}N{s"PyEFG5(B" "$(GDbQRF_m}N{EFNNEFG5(B" "$(GOazhk#N{T6m0!#GWbXO[Pya+b>g4(B" "$(G]UT6f@n#N{GsL(!#JtH4KpFn(B" nil nil nil "$(GEFNNEFG5N{DyU)DbF_m}(B" "$(Gapsib$MLf@n#\,Z&(Bcixing.data$(GDbF_m}(B" "$(GF\LyexN{b$ML!#LyexD'P)j&b$ML(B" "$(GEFNNEFG5DbWd{tL=(B" nil nil "$(GGsL(N{bzm0b>g4(B" "$(G|H_PG[Gs\JHkN{O[Pyb>g4(B" "$(GOazhk#fXN5YQDbY\(B" nil "$(GH9OlfPYQDbY\(B" "$(GOlfP(B 1$(GT6D>JtH4(B" nil nil nil nil "$(G{tSvO[Pyb>g4(B" "$(GiGGsO[Pyb>g4(B" "$(GQ@LyN{GsL(!#DbWd`trg(B" "$(G{tSvN{O[PyQR(B 0" "$(GQ@LyN{GsL(!#DbWdXKQg(B" "$(GF7{tN{GsL(!#`trg(B/$(GVJ=@4O4Y(B" nil "$(C8^8p8.(B alloc $(C?!<-(B $(C=GFPG_@>4O4Y(B" nil "$(C;g@|@L(B $(C>F4U4O4Y(B" "$(C:s55(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(C:Nn(B $(CH-@O@L(B $(C>F4U4O4Y(B" nil "$(C;g@|(B $(CEW@L:m@L(B $(C2K(B $(CC!@>4O4Y(B" "$(CAvA$5H(B $(C;g@|@G(B $(C:s55(B $(CH-@O@L(B $(C>F4U4O4Y(B" nil nil nil nil nil "$(CH-@O@;(B $(C?-(B $(Cx@>4O4Y(B" "$(C8B4B(B $(C:s55(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(C8B4B(B $(C:Nn(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(C:Nn@G(B $(C09J=@4O4Y(B" nil nil nil "$(C:Nn(B $(CH-@O@G(B $(C3;?k@L(B $(C8BAv(B $(C>J=@4O4Y(B" "$(C0!;s(B $(CG0;g@G(B $(C9xH#0!(B $(CF2834O4Y(B. hinsi.data $(C0!(B $(C8BAv(B $(C>J=@4O4Y(B" "$(C9LA$@G@G(B $(CG0;g0!(B $(C@|4\(B $(CG0;g7N(B $(CA$@G5G>n(B $(C@V=@4O4Y(B" "$(C:Nn(B $(CH-@O@L(B $(C@PGtA.(B $(C@VAv(B $(C>J=@4O4Y(B" nil nil "$(C;g@|@G(B $(C?#F.8.0!(B $(C3J9+(B $(C89=@4O4Y(B" "$(C:/H/GO7A4B(B $(C9.@Z?-@L(B $(C3J9+(B $(C1i4O4Y(B" "$(C:Nn(B $(CGX<.(B $(C?5?*@L(B $(C:NA7GU4O4Y(B" nil "$(C4Y@=(B $(CHD:8(B $(C?5?*@L(B $(C:NA7GU4O4Y(B" "$(CHD:80!(B $(C>x@>4O4Y(B" nil nil nil nil "$(CGQ1[@L(B $(C3J9+(B $(C1i4O4Y(B" "$(CGQ@Z0!(B $(C3J9+(B $(C1i4O4Y(B" "$(CAvA$5H(B $(C;g@|@:(B $(C5n7O(B $(C:R0!4I@T4O4Y(B" "$(CGQ1[@G(B $(C1f@L0!(B 0 $(C@T4O4Y(B" "$(CAvA$5H(B $(C;g@|@:(B $(C?*B|A6(B $(C:R0!4I@T4O4Y(B" "$(C@P1b@|?k(B $(C;g@|?!(B $(C5n7O(B/$(C4O4Y(B" "$(CA8@gGOAv(B $(C>J4B(B $(C;g@|?!(B $(C5n7O(B $(CGO7A0m(B $(CG_@>4O4Y(B" nil nil "$(C@P1b@|?k(B $(C:s558&(B $(C0f=E(B $(CGO7A0m(B $(CG_@>4O4Y(B" "$(CAvA$5H(B $(C4\>n4B(B $(CA8@gGOAv(B $(C>J=@4O4Y(B" nil nil nil nil nil nil nil nil nil "$(C8^8p8.(B alloc $(C?!(B $(C=GFPG_@>4O4Y(B" nil nil nil nil nil nil nil "$(C?!7/0!(B $(C9_;}G_@>4O4Y(B" "$(C9v1W(B(Bug)$(C0!(B $(C9_;}G_@>4O4Y(B" "$(C<-9v(B(Server)$(C0!(B $(CAW>n(B $(C@V@>4O4Y(B" "alloc$(C?!(B $(C=GFPG_@>4O4Y(B" "$(C<-9v(B(Server) $(C?M(B $(CA"CKGR(B $(Cx@>4O4Y(B" "$(CEk=E(B $(CGA7NEdD]@G(B $(C9vA/@L(B $(C8BAv(B $(C>J=@4O4Y(B" "$(CE,6s@L>HF.0!(B $(C;}<:GQ(B $(CH/0f@L(B $(C>F4U4O4Y(B" nil nil nil nil nil "$(C5p7:Ed8.8&(B $(C885i(B $(Cx@>4O4Y(B" nil nil nil nil nil nil nil nil nil "$(CH-@O(B $(C@P1b?!(B $(C=GFPG_@>4O4Y(B" "$(CH-@O(B $(C>21b?!(B $(C=GFPG_@>4O4Y(B" "$(CE,6s@L>HF.0!(B $(C@P>n(B $(C5e80(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(C4u(B $(C@L;s@G(B $(CH-@O@;(B $(C@P>n(B $(C5e81(B $(Cx@>4O4Y(B" "$(CFP=:?v5e0!(B $(CF2834O4Y(B" "$(CH-@O@L(B $(C@PGtA.(B $(C@V@>4O4Y(B" "$(CH-@O@;(B $(Cx@>4O4Y(B" "$(CH-@O@;(B $(C@[<:GR(B $(Cx@>4O4Y(B" "kWnn$(C@G(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(CH-@O@G(B I-node $(C?M(B FILE_UNIQ $(C8&(B $(C@OD!=CE3(B $(Cx@>4O4Y(B" "$(CG0;g(B $(CH-@O@G(B $(CE)1b0!(B $(C3J9+(B $(CE.4O4Y(B" "$(CG0;g(B $(CH-@O@G(B $(CE)1b0!(B $(C3J9+(B $(CE.4O4Y(B" "$(CG0;g(B $(CH-@O@L(B $(CA8@gGOAv(B $(C>J=@4O4Y(B" "$(CG0;g(B $(CH-@O@G(B $(C3;?k@L(B $(CF2834O4Y(B" nil "$(CG0;g(B $(CH-@O@L(B $(C@PGtA.(B $(C@VAv(B $(C>J=@4O4Y(B" "$(CG0;g(B $(C@L8'@L(B $(CF2834O4Y(B" "$(CG0;g(B $(C9xH#0!(B $(CF2834O4Y(B" nil "$(C1W(B $(CA6@[@:(B $(CAv?x5GAv(B $(C>J=@4O4Y(B" "$(CFP=:?v5e0!(B $(C5i>n@V4B(B $(CH-@O@;(B $(C?-(B $(Cx@>4O4Y(B" "uumrc $(C@L(B $(CA8@gGOAv(B $(C>J=@4O4Y(B" "uumrc $(C@G(B $(CG|=D@L(B $(CF2834O4Y(B" "$(C@L(B $(C@L;s(B $(CH/0f@;(B $(C@[<:GR(B $(Cx@>4O4Y(B" "$(CE)6s@L>HF.0!(B $(C@P>n(B $(C5e80(B $(CH-@O@L(B $(C>F4U4O4Y(B" "$(C;g@|?!(B $(C:s55(B $(CH-@O@L(B $(CA8@gGOAv(B $(C>J=@4O4Y(B" "$(CFP=:?v5e(B $(CH-@O@;(B $(C@[<:GR(B $(Cx@>4O4Y(B" ])) "Array of WNN error messages. Indexed by error code.") (defvar wnnrpc-timeout 10) (defun wnnrpc-message-language (lang) (or (cdr (assq lang egg-message-language-alist)) lang)) (defun wnnrpc-get-error-message (errno) "Return error message string specified by ERRNO." (let ((msg (cdr (or (assq (wnnrpc-message-language egg-default-language) wnnrpc-error-message) (assq (wnnrpc-message-language its-current-language) wnnrpc-error-message) (assq 'Japanese wnnrpc-error-message))))) (or (and (< errno (length msg)) (aref msg errno)) (format "#%d" errno)))) (defmacro wnnrpc-call-with-proc (proc vlist send-expr &rest receive-exprs) `(comm-call-with-proc ,proc ((zhuyin its-zhuyin) (comm-accept-timeout wnnrpc-timeout) ,@vlist) ,send-expr ,@receive-exprs)) (defmacro wnnrpc-call-with-environment (env vlist send-expr &rest rcv-exprs) `(comm-call-with-proc (wnnenv-get-proc ,env) ((zhuyin its-zhuyin) (comm-accept-timeout wnnrpc-timeout) (env-id (wnnenv-get-env-id ,env)) ,@vlist) ,send-expr ,@rcv-exprs)) (defmacro wnnrpc-get-result (&rest body) `(let (result) (comm-unpack (i) result) (if (< result 0) (progn (comm-unpack (i) result) (- result)) ,@(or body '(result))))) (defun wnnrpc-open-internal (proc version myhostname username) "Open the session. Return 0 on success, error code on failure." (comm-call-with-proc proc () (comm-format (u u s s) (wnn-const JS_OPEN) version myhostname username) (wnnrpc-get-result))) (defun wnnrpc-open (proc myhostname username) "Open the session. Return wnn4 or wnn6 on success, NIL on failure." (let ((type-list `((wnn6 . ,(wnn-const JLIB_VERSION_WNN6)) (wnn4 . ,(wnn-const JLIB_VERSION)))) (result (- (wnn-const WNN_BAD_VERSION))) type version) (while (and type-list (= result (- (wnn-const WNN_BAD_VERSION)))) (setq type (caar type-list) version (cdar type-list) type-list (cdr type-list) result (wnnrpc-open-internal proc version myhostname username))) (if (zerop result) type result))) (defun wnnrpc-connect (proc envname) "Establish new `connection' and make an environment. Return the identitifation of the environment on success, or negative error code on failure." (comm-call-with-proc proc () (comm-format (u s) (wnn-const JS_CONNECT) envname) (wnnrpc-get-result))) (defun wnnrpc-file-read (env filename) "Read the file FILENAME on the environment ENV Return non-negative file ID on success, or negative error code on failure." (wnnrpc-call-with-environment env () (comm-format (u u s) (wnn-const JS_FILE_READ) env-id filename) (wnnrpc-get-result))) (defun wnnrpc-set-fuzokugo-file (env fid) "For PROC, on environment ENV-ID, Set Fuzokugo file specified by FID. Return 0 on success, negate-encoded error code on failure." (wnnrpc-call-with-environment env () (comm-format (u u i) (wnn-const JS_FUZOKUGO_SET) env-id fid) (wnnrpc-get-result))) (defun wnnrpc-set-dictionary (env dic-id freq-id priority dic-rw freq-rw dic-passwd freq-passwd reverse) "Set dictionary on server. Return dictionary number on success, negate-encoded error code on faiulure." (wnnrpc-call-with-environment env () (comm-format (u u i i i u u s s u) (wnn-const JS_DIC_ADD) env-id dic-id freq-id priority (if (numberp dic-rw) dic-rw (if dic-rw 0 1)) (if (numberp freq-rw) freq-rw (if freq-rw 0 1)) dic-passwd freq-passwd (if reverse 1 0)) (wnnrpc-get-result))) (defun wnnrpc-set-fi-dictionary (env dic-id freq-id sys dic-rw freq-rw dic-passwd freq-passwd) "Set FI dictionary on the server. Return 0 on success, negate-encoded error code on faiulure." (wnnrpc-call-with-environment env () (comm-format (u u i i u u u s s) (wnn-const JS_FI_DIC_ADD) env-id dic-id freq-id (if sys (wnn-const WNN_FI_SYSTEM_DICT) (wnn-const WNN_FI_USER_DICT)) (if (numberp dic-rw) dic-rw (if dic-rw 0 1)) (if (numberp freq-rw) freq-rw (if freq-rw 0 1)) dic-passwd freq-passwd) (wnnrpc-get-result))) (defun wnnrpc-get-autolearning-dic (env type) "Get id of auto learning dictionary on the server. Return dictionary id + 1 on success, 0 on no dictionary, negate-encoded error code on faiulure." (wnnrpc-call-with-environment env (result) (comm-format (u u u) (wnn-const JS_GET_AUTOLEARNING_DIC) env-id type) (wnnrpc-get-result (comm-unpack (i) result) (1+ result)))) (defun wnnrpc-set-autolearning-dic (env type dic-id) "Set auto learning dictionary on the server. Return 0 on success, negate-encoded error code on faiulure." (wnnrpc-call-with-environment env () (comm-format (u u u i) (wnn-const JS_SET_AUTOLEARNING_DIC) env-id type dic-id) (wnnrpc-get-result))) (defun wnnrpc-version (proc) "Return the version number of WNN server." (comm-call-with-proc proc (result) (comm-format (u) (wnn-const JS_VERSION)) (comm-unpack (i) result) result)) (defun wnnrpc-access (env path mode) "Check the accessibility of file in the environment ENV. Return 0 when the remote file (dictionary/frequency) of PATH on server can be accessed in mode MODE. Return Non-zero otherwise." (wnnrpc-call-with-environment env (result) (comm-format (u u u s) (wnn-const JS_ACCESS) env-id mode path) (comm-unpack (i) result) result)) (defun wnnrpc-mkdir (env path) "Create directory specified by PATH." (wnnrpc-call-with-environment env () (comm-format (u u s) (wnn-const JS_MKDIR) env-id path) (wnnrpc-get-result))) (defun wnnrpc-writable-dic-type (env fi rw) (let ((server (wnnenv-get-server-type env))) (cond (fi (wnn-const WNN_FI_USER_DICT)) ((or (eq server 'cserver) (eq server 'tserver)) (wnn-const CWNN_REV_DICT)) ((eq rw 3) (wnn-const WNN_GROUP_DICT)) ((eq rw 4) (wnn-const WNN_MERGE_DICT)) (t (wnn-const WNN_REV_DICT))))) (defun wnnrpc-dic-file-create (env dicname type comment passwd hpasswd) "Create a dictionary on the server." (wnnrpc-call-with-environment env () (comm-format (u u s S s s u) (wnn-const JS_DIC_FILE_CREATE) env-id dicname comment passwd hpasswd type) (wnnrpc-get-result))) (defun wnnrpc-hindo-file-create (env fi dic-id freqname comment passwd) "Create a frequency file on the server." (wnnrpc-call-with-environment env () (comm-format (u u u s S s) (if fi (wnn-const JS_FI_HINDO_FILE_CREATE) (wnn-const JS_HINDO_FILE_CREATE)) env-id dic-id freqname comment passwd) (wnnrpc-get-result))) (defun wnnrpc-file-discard (env fid) "Discard a file specified by FID. Call this for already-opened file before remove and create new file." (wnnrpc-call-with-environment env () (comm-format (u u i) (wnn-const JS_FILE_DISCARD) env-id fid) (wnnrpc-get-result))) (defun wnnrpc-file-remove (proc filename passwd) "Remove the file." (comm-call-with-proc proc () (comm-format (u s s) (wnn-const JS_FILE_REMOVE) filename (or passwd "")) (wnnrpc-get-result))) (defun wnnrpc-set-conversion-parameter (env v) "Set conversion parameter." (wnnrpc-call-with-environment env () (comm-format (u u i i i i i i i i i i i i i i i i i) (wnn-const JS_PARAM_SET) env-id (aref v 0) (aref v 1) (aref v 2) (aref v 3) (aref v 4) (aref v 5) (aref v 6) (aref v 7) (aref v 8) (aref v 9) (aref v 10) (aref v 11) (aref v 12) (aref v 13) (aref v 14) (aref v 15) (aref v 16)) (wnnrpc-get-result))) (defun wnnrpc-set-conversion-env-param (env mask v) "Set Wnn6 conversion parameter." (wnnrpc-call-with-environment env () (comm-format (u u u i i i i i i i i i i i i i i i i i i) (wnn-const JS_SET_HENKAN_ENV) env-id mask (aref v 0) (aref v 1) (aref v 2) (aref v 3) (aref v 4) (aref v 5) (aref v 6) (aref v 7) (aref v 8) (aref v 9) (aref v 10) (aref v 11) (aref v 12) (aref v 13) (aref v 14) (aref v 15) (aref v 16) (aref v 17)) (wnnrpc-get-result))) (defun wnnrpc-temporary-dic-loaded (env) "Ask to the server whether the temporary dictionary is loaded or not. Return positive if loaded, zero if not, negative on failure." (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_IS_LOADED_TEMPORARY_DIC) env-id) (wnnrpc-get-result))) (defun wnnrpc-temporary-dic-add (env reverse) "Add temporary dictionary on the server." (wnnrpc-call-with-environment env () (comm-format (u u u) (wnn-const JS_TEMPORARY_DIC_ADD) env-id (if reverse 1 0)) (wnnrpc-get-result))) (defun wnnrpc-receive-sho-bunsetsu-list (env n-bunsetsu) (let ((proc (wnnenv-get-proc env)) slist end start jiritsugo-end dic-no entry freq right-now hinshi status status-backward kangovect evaluation result source fuzokugo) (while (> n-bunsetsu 0) (comm-unpack (i i i i i i i i i i i i) end start jiritsugo-end dic-no entry freq right-now hinshi status status-backward kangovect evaluation) (setq slist (cons (wnn-bunsetsu-create env (1+ (- jiritsugo-end start)) dic-no entry freq right-now hinshi status status-backward kangovect evaluation) slist)) (setq n-bunsetsu (1- n-bunsetsu))) (prog1 (setq slist (nreverse slist)) (while slist (comm-unpack (S S S) result source fuzokugo) (wnn-bunsetsu-set-converted (car slist) result) (wnn-bunsetsu-set-yomi (car slist) source) (wnn-bunsetsu-set-fuzokugo (car slist) fuzokugo) (setq slist (cdr slist)))))) (defun wnnrpc-receive-dai-bunsetsu-list (env n-dai separate) (let ((proc (wnnenv-get-proc env)) n-bunstsu kanji-length dlist slist end start n-sho evaluation n retval) (comm-unpack (i i) n-bunstsu kanji-length) (while (> n-dai 0) (comm-unpack (i i i i) end start n-sho evaluation) (setq dlist (cons (cons n-sho evaluation) dlist) n-dai (1- n-dai))) (setq dlist (nreverse dlist) slist (wnnrpc-receive-sho-bunsetsu-list env n-bunstsu)) (if (null separate) (prog1 slist (while dlist (setq n (caar dlist)) (while (> n 0) (wnn-bunsetsu-set-dai-evaluation (car slist) (cdar dlist)) (wnn-bunsetsu-set-dai-continue (car slist) (> n 1)) (setq slist (cdr slist) n (1- n))) (setq dlist (cdr dlist)))) (while dlist (setq retval (cons slist retval) n (caar dlist)) (while (> n 1) (wnn-bunsetsu-set-dai-evaluation (car slist) (cdar dlist)) (wnn-bunsetsu-set-dai-continue (car slist) t) (setq slist (cdr slist) n (1- n))) (wnn-bunsetsu-set-dai-evaluation (car slist) (cdar dlist)) (wnn-bunsetsu-set-dai-continue (car slist) (wnn-bunsetsu-connect-next (car slist))) (setq slist (prog1 (cdr slist) (setcdr slist nil)) dlist (cdr dlist))) (nreverse retval)))) (defun wnnrpc-renbunsetsu-conversion (env yomi hinshi fuzokugo v) "Convert YOMI string into Kanji. HINSHI and FUZOKUGO are information of preceding bunsetsu." (wnnrpc-call-with-environment env () (comm-format (u u S i S i i i) (wnn-const JS_KANREN) env-id yomi hinshi fuzokugo (or v (wnn-const WNN_VECT_KANREN)) (if v (wnn-const WNN_VECT_KANREN) (wnn-const WNN_VECT_NO)) (wnn-const WNN_VECT_BUNSETSU)) (wnnrpc-get-result (wnnrpc-receive-dai-bunsetsu-list env result nil)))) (defun wnnrpc-fi-renbunsetsu-conversion (env yomi hinshi fuzokugo v context) "Convert YOMI string into Kanji. HINSHI and FUZOKUGO are information of preceding bunsetsu." (wnnrpc-call-with-environment env (result) (comm-format (u u S i S i i i i i i i S i i i i S) (wnn-const JS_FI_KANREN) env-id yomi hinshi fuzokugo (or v (wnn-const WNN_VECT_KANREN)) (if v (wnn-const WNN_VECT_KANREN) (wnn-const WNN_VECT_NO)) (wnn-const WNN_VECT_BUNSETSU) (wnn-context-dic-no (car context)) (wnn-context-entry (car context)) (wnn-context-jirilen (car context)) (wnn-context-hinshi (car context)) (wnn-context-fuzokugo (car context)) (wnn-context-dic-no (nth 1 context)) (wnn-context-entry (nth 1 context)) (wnn-context-jirilen (nth 1 context)) (wnn-context-hinshi (nth 1 context)) (wnn-context-fuzokugo (nth 1 context))) (setq result (wnnrpc-get-result (wnnrpc-receive-dai-bunsetsu-list env result nil))) (prog1 result (unless (numberp result) (wnn-bunsetsu-set-fi-rel (car result) (wnnrpc-get-fi-relation-data env)) (while result (wnn-bunsetsu-set-context (car result) context) (setq result (cdr result))))))) (defun wnnrpc-get-fi-relation-data (env) "Receive FI relation data from the server." (let ((proc (wnnenv-get-proc env)) fi-dic dic entry offset num result) (comm-unpack (i) num) (while (> num 0) (comm-unpack (i i i i) fi-dic dic entry offset) (setq result (cons (vector fi-dic dic entry offset -2 -4) result) num (1- num))) (nreverse result))) (defun wnnrpc-tanbunsetsu-conversion (env yomi hinshi fuzoku v) "" (wnnrpc-call-with-environment env (kanji-length) (comm-format (u u S i S i i) (wnn-const JS_KANTAN_SHO) env-id yomi hinshi fuzoku (or v (wnn-const WNN_VECT_KANTAN)) (if v (wnn-const WNN_VECT_KANTAN) (wnn-const WNN_VECT_NO))) (wnnrpc-get-result (comm-unpack (u) kanji-length) ; ignore kanji-length (wnnrpc-receive-sho-bunsetsu-list env result)))) (defun wnnrpc-get-bunsetsu-candidates (env yomi hinshi fuzoku v) "" (wnnrpc-call-with-environment env (kanji-length) (comm-format (u u S i S i i) (wnn-const JS_KANZEN_SHO) env-id yomi hinshi fuzoku (or v (wnn-const WNN_VECT_KANZEN)) (if v (wnn-const WNN_VECT_KANZEN) (wnn-const WNN_VECT_NO))) (wnnrpc-get-result (comm-unpack (u) kanji-length) ; ignore kanji-length (mapcar (lambda (b) (wnn-bunsetsu-set-dai-continue b (wnn-bunsetsu-connect-next b)) (list b)) (wnnrpc-receive-sho-bunsetsu-list env result))))) (defun wnnrpc-daibunsetsu-conversion (env yomi hinshi fuzoku v) "" (wnnrpc-call-with-environment env (n-sho-bunsetsu kanji-size) (comm-format (u u S i S i i) (wnn-const JS_KANTAN_DAI) env-id yomi hinshi fuzoku (or v (wnn-const WNN_VECT_KANTAN)) (if v (wnn-const WNN_VECT_KANTAN) (wnn-const WNN_VECT_NO))) (wnnrpc-get-result (wnnrpc-receive-dai-bunsetsu-list env result nil)))) (defun wnnrpc-get-daibunsetsu-candidates (env yomi hinshi fuzoku v) "" (wnnrpc-call-with-environment env (n-sho-bunsetsu kanji-size) (comm-format (u u S i S i i) (wnn-const JS_KANZEN_DAI) env-id yomi hinshi fuzoku (or v (wnn-const WNN_VECT_KANZEN)) (if v (wnn-const WNN_VECT_KANZEN) (wnn-const WNN_VECT_NO))) (wnnrpc-get-result (wnnrpc-receive-dai-bunsetsu-list env result t)))) (defun wnnrpc-set-frequency (env dicno entry ima hindo) "" (wnnrpc-call-with-environment env () (comm-format (u u i i i i) (wnn-const JS_HINDO_SET) env-id dicno entry ima hindo) (wnnrpc-get-result))) (defun wnnrpc-set-fi-priority (env fi-rel) "" (wnnrpc-call-with-environment env () (progn (comm-format (u u u) (wnn-const JS_SET_FI_PRIORITY) env-id (length fi-rel)) (while fi-rel (comm-format (i i i i i i) (aref (car fi-rel) 0) (aref (car fi-rel) 1) (aref (car fi-rel) 2) (aref (car fi-rel) 3) (aref (car fi-rel) 4) (aref (car fi-rel) 5)) (setq fi-rel (cdr fi-rel)))) (wnnrpc-get-result))) (defun wnnrpc-optimize-fi (env context) "" (wnnrpc-call-with-environment env (c) (progn (comm-format (u u u) (wnn-const JS_OPTIMIZE_FI) env-id (length context)) (while context (setq c (car context) context (cdr context)) (comm-format (i i i i i S) (wnn-context-dic-no c) (wnn-context-entry c) (wnn-context-right-now c) (wnn-context-freq c) (wnn-context-length c) (concat (wnn-context-converted c) (wnn-context-fuzokugo c))))) (wnnrpc-get-result))) (defun wnnrpc-close (proc) "" (comm-call-with-proc proc () (comm-format (u) (wnn-const JS_CLOSE)) (wnnrpc-get-result))) (defun wnnrpc-env-exist (proc envname) "" (comm-call-with-proc proc (result) (comm-format (u s) (wnn-const JS_ENV_EXIST) envname) (comm-unpack (i) result) result)) (defun wnnrpc-make-env-sticky (env) "" (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_ENV_STICKY) env-id) (wnnrpc-get-result))) (defun wnnrpc-make-env-unsticky (env) "" (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_ENV_UNSTICKY) env-id) (wnnrpc-get-result))) (defun wnnrpc-disconnect (env) "" (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_DISCONNECT) env-id) (wnnrpc-get-result))) (defun wnnrpc-add-word (env dictionary yomi kanji comment hinshi initial-freq) "" (wnnrpc-call-with-environment env () (comm-format (u u u S S S u u) (wnn-const JS_WORD_ADD) env-id dictionary yomi kanji comment hinshi initial-freq) (wnnrpc-get-result))) (defun wnnrpc-auto-learning (env type yomi kanji comment hinshi initial-freq) "" (wnnrpc-call-with-environment env () (comm-format (u u u S S S u u) (wnn-const JS_AUTOLEARNING_WORD_ADD) env-id type yomi kanji comment hinshi initial-freq) (wnnrpc-get-result))) (defun wnnrpc-temporary-learning (env yomi kanji comment hinshi initial-freq) "" (wnnrpc-call-with-environment env () (comm-format (u u S S S u u) (wnn-const JS_AUTOLEARNING_WORD_ADD) env-id yomi kanji comment hinshi initial-freq) (wnnrpc-get-result))) (defun wnnrpc-get-dictionary-list-with-environment (env) "" (wnnrpc-call-with-environment env (n-dic) (comm-format (u u) (wnn-const JS_DIC_LIST) env-id) (comm-unpack (i) n-dic) (wnnrpc-receive-dictionary-list proc n-dic))) (defun wnnrpc-get-fi-dictionary-list-with-environment (env mask) "" (wnnrpc-call-with-environment env (n-dic) (comm-format (u u u) (wnn-const JS_FI_DIC_LIST) env-id mask) (comm-unpack (i) n-dic) (wnnrpc-receive-dictionary-list proc n-dic))) (defun wnnrpc-receive-dictionary-list (proc n-dic) (let (entry dic freq dic-mode freq-mode enable-flag nice rev comment dicname freqname dic-passwd freq-passwd type gosuu dic-local-flag freq-local-flag retval) (while (> n-dic 0) (comm-unpack (i i i i i i i i S s s s s i i i i) entry dic freq dic-mode freq-mode enable-flag nice rev comment dicname freqname dic-passwd freq-passwd type gosuu dic-local-flag freq-local-flag) (setq retval (cons (vector entry dic freq dic-mode freq-mode enable-flag nice rev comment dicname freqname dic-passwd freq-passwd type gosuu dic-local-flag freq-local-flag) retval) n-dic (1- n-dic))) (nreverse retval))) (defsubst wnndic-get-id (dic) (aref dic 0)) (defsubst wnndic-get-comment (dic) (aref dic 8)) (defsubst wnndic-get-dictname (dic) (aref dic 9)) (defun wnnrpc-get-writable-dictionary-id-list (env) "" (wnnrpc-call-with-environment env (dic-list dic) (comm-format (u u i) (wnn-const JS_HINSI_DICTS) env-id -1) (wnnrpc-get-result (while (> result 0) (comm-unpack (i) dic) (setq dic-list (nconc dic-list (list dic)) result (1- result))) dic-list))) (defun wnnrpc-get-hinshi-list (env dic name) "" (wnnrpc-call-with-environment env (hinshi hinshi-list str-size) (comm-format (u u u S) (wnn-const JS_HINSI_LIST) env-id dic name) (wnnrpc-get-result (comm-unpack (u) str-size) ; ignore (while (> result 0) (comm-unpack (S) hinshi) (setq hinshi-list (nconc hinshi-list (list hinshi)) result (1- result))) hinshi-list))) (defun wnnrpc-hinshi-number (proc name) "" (wnnrpc-call-with-proc proc () (comm-format (u S) (wnn-const JS_HINSI_NUMBER) name) (wnnrpc-get-result))) (defun wnnrpc-get-conversion-parameter (env) "" (wnnrpc-call-with-environment env (n nsho p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15) (comm-format (u u) (wnn-const JS_PARAM_GET) env-id) (wnnrpc-get-result (comm-unpack (i i i i i i i i i i i i i i i i i) n nsho p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15) (vector n nsho p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15)))) (defun wnnrpc-get-conversion-env-param (env) "" (wnnrpc-call-with-environment env (p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18) (comm-format (u u) (wnn-const JS_GET_HENKAN_ENV) env-id) (wnnrpc-get-result (comm-unpack (i i i i i i i i i i i i i i i i i i) p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18) (vector p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18)))) (defun wnnrpc-file-loaded (proc path) "" (comm-call-with-proc proc (result) (comm-format (u s) (wnn-const JS_FILE_LOADED) path) (comm-unpack (i) result) result)) (defun wnnrpc-write-file (env fid filename) (wnnrpc-call-with-environment env () (comm-format (u u u s) (wnn-const JS_FILE_WRITE) env-id fid filename) (wnnrpc-get-result))) (defun wnnrpc-get-fuzokugo-file (env) "" (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_FUZOKUGO_GET) env-id) (wnnrpc-get-result))) (defsubst wnnrpc-receive-file-list (proc) (let ((i 0) flist nfiles fid local ref-count type name) (comm-unpack (i) nfiles) (while (> nfiles 0) (comm-unpack (i i i i s) fid local ref-count type name) (setq flist (nconc flist (list (vector fid local ref-count type name))) nfiles (1- nfiles))) flist)) (defun wnnrpc-get-file-list (proc) "" (comm-call-with-proc proc () (comm-format (u) (wnn-const JS_FILE_LIST_ALL)) (wnnrpc-receive-file-list proc))) (defun wnnrpc-get-file-list-with-env (env) "" (wnnrpc-call-with-environment env () (comm-format (u u) (wnn-const JS_FILE_LIST) env-id) (wnnrpc-receive-file-list proc))) (defun wnnrpc-file-attribute (env path) "3: dictionary, 4: hindo file, 5: fuzokugo-file" (wnnrpc-call-with-environment env (result) (comm-format (u u s) (wnn-const JS_FILE_STAT) env-id path) (comm-unpack (i) result) result)) (defun wnnrpc-get-file-info (env fid) "" (wnnrpc-call-with-environment env (name local ref-count type) (comm-format (u u u) (wnn-const JS_FILE_INFO) env-id fid) (wnnrpc-get-result (comm-unpack (s i i i) name local ref-count type) (vector name local ref-count type)))) (defmacro wnnrpc-receive-vector (n) `(let ((v (make-vector ,n -1)) (i 0) j) (while (< i ,n) (comm-unpack (i) j) (aset v i j) (setq i (1+ i))) v)) (defun wnnrpc-who (proc) "" (comm-call-with-proc proc (who socket username hostname) (comm-format (u) (wnn-const JS_WHO)) (wnnrpc-get-result (while (> result 0) (comm-unpack (i s s) socket username hostname) (setq who (nconc who (list (vector socket username hostname (wnnrpc-receive-vector (wnn-const WNN_MAX_ENV_OF_A_CLIENT))))) result (1- result))) who))) (defun wnnrpc-get-env-list (proc) (comm-call-with-proc proc (envs id name count fuzokugo dic-max) (comm-format (u) (wnn-const JS_ENV_LIST)) (wnnrpc-get-result (while (> result 0) (comm-unpack (i s i i i) id name count fuzokugo dic-max) (setq envs (nconc envs (list (vector id name count fuzokugo dic-max (wnnrpc-receive-vector (wnn-const WNN_MAX_DIC_OF_AN_ENV)) (wnnrpc-receive-vector (wnn-const WNN_MAX_FILE_OF_AN_ENV))))) result (1- result))) envs))) (defun wnnrpc-kill (proc) "" (comm-call-with-proc proc (result) (comm-format (u) (wnn-const JS_KILL)) (comm-unpack (i) result) result)) (defun wnnrpc-delete-dictionary (env dic) "" (wnnrpc-call-with-environment env () (comm-format (u u u) (wnn-const JS_DIC_DELETE) env-id dic) (wnnrpc-get-result))) (defun wnnrpc-set-flag-on-dictionary (env dic flag) "" (wnnrpc-call-with-environment env () (comm-format (u u u u) (wnn-const JS_DIC_USE) env-id dic flag) (wnnrpc-get-result))) (defun wnnrpc-get-dictionary-list (proc) "" (wnnrpc-call-with-proc proc (n-dic) (comm-format (u) (wnn-const JS_DIC_LIST_ALL)) (comm-unpack (i) n-dic) (wnnrpc-receive-dictionary-list proc n-dic))) (defun wnnrpc-delete-word (env dic entry) "" (wnnrpc-call-with-environment env () (comm-format (u u u u) (wnn-const JS_WORD_DELETE) env-id dic entry) (wnnrpc-get-result))) (defun wnnrpc-receive-word (proc yomi) (let (dic serial hinshi hindo right-now internal-hindo internal-right-now kanji comment l l1) (comm-unpack (i) dic) (while (>= dic 0) (comm-unpack (i i i i i i) serial hinshi hindo right-now internal-hindo internal-right-now) (setq l (cons (vector dic serial hinshi hindo right-now internal-hindo internal-right-now yomi nil nil) l)) (comm-unpack (i) dic)) (setq l (nreverse l) l1 l) (while l1 (comm-unpack (S S) kanji comment) (aset (car l1) 8 kanji) (aset (car l1) 9 comment) (setq l1 (cdr l1))) l)) (defun wnnrpc-search-word-in-dictionary (env dic yomi) "" (wnnrpc-call-with-environment env (n-entries len) (comm-format (u u u S) (wnn-const JS_WORD_SEARCH) env-id dic yomi) (comm-unpack (u u) n-entries len) ; ignore (wnnrpc-receive-word proc yomi))) (defun wnnrpc-search-word (env yomi) "" (wnnrpc-call-with-environment env (n-entries len) (comm-format (u u S) (wnn-const JS_WORD_SEARCH_BY_ENV) env-id yomi) (comm-unpack (u u) n-entries len) ; ignore (wnnrpc-receive-word proc yomi))) (defun wnnrpc-get-word-info (env dic entry) "" (wnnrpc-call-with-environment env (n-entries len yomi) (comm-format (u u u u) (wnn-const JS_WORD_INFO) env-id dic entry) (wnnrpc-get-result (comm-unpack (S) yomi) (comm-unpack (u u) n-entries len) ; ignore (wnnrpc-receive-word proc yomi)))) (defun wnnrpc-set-comment-on-word (env dic entry comment) "" (wnnrpc-call-with-environment env () (comm-format (u u u u S) (wnn-const JS_WORD_COMMENT_SET) env-id dic entry comment) (wnnrpc-get-result))) (defun wnnrpc-get-dictionary-info (env dic) "" (wnnrpc-call-with-environment env () (comm-format (u u u) (wnn-const JS_DIC_INFO) env-id dic) (wnnrpc-get-result (wnnrpc-receive-dictionary-list proc 1)))) (defun wnnrpc-set-file-comment (env fid comment) "" (wnnrpc-call-with-environment env () (comm-format (u u u S) (wnn-const JS_FILE_COMMENT_SET) env-id fid comment) (wnnrpc-get-result))) (defun wnnrpc-hinshi-name (proc hinshi) "" (wnnrpc-call-with-proc proc () (comm-format (u u) (wnn-const JS_HINSI_NAME) hinshi) (wnnrpc-get-result (comm-unpack (S) result) result))) (defun wnnrpc-set-file-password (env fid which old new) "WHICH: 1: DIC, 2: HINDO, 3(0): Both" (wnnrpc-call-with-environment env () (comm-format (u u u u s s) (wnn-const JS_FILE_PASSWORD_SET) env-id fid which old new) (wnnrpc-get-result))) (defun wnnrpc-set-hinshi-table (env dic hinshi-table) "" (wnnrpc-call-with-environment env () (comm-format (u u u S) (wnn-const JS_HINSI_TABLE_SET) env-id dic hinshi-table) (wnnrpc-get-result))) (defmacro wnnrpc-with-temp-buffer (&rest body) `(with-temp-buffer (let ((coding-system-for-read 'binary) (coding-system-for-write 'binary)) (set-buffer-multibyte nil) ,@body))) (defmacro wnnrpc-with-write-file (filename error-handler &rest body) `(condition-case error (with-temp-file ,filename (let ((coding-system-for-read 'binary) (coding-system-for-write 'binary)) (set-buffer-multibyte nil) ,@body)) (file-error ,error-handler))) (defmacro wnnrpc-terminate-current-command (errno) `(progn (comm-call-with-proc-1 proc () (comm-format (i) (wnn-const WNN_NAK))) (- (wnn-const ,errno)))) (defun wnnrpc-get-local-filename (name) (if (and (string-match (wnn-const WNN_C_LOCAL) name) (string= (substring name 0 (match-beginning 0)) wnn-system-name)) (substring name (match-end 0)) name)) ;;
::= ( ) ;; ::= string ;; ::= string (defun wnnrpc-scan-file-header () (let ((proc nil) type uniq1 uniq2 passwd) (if (and (> (point-max) (wnn-const WNN_FILE_HEADER_LEN)) (equal (buffer-substring 1 (1+ (wnn-const WNN_FILE_STRING_LEN))) (wnn-const WNN_FILE_STRING))) (progn (goto-char (1+ (wnn-const WNN_FILE_STRING_LEN))) (comm-unpack (i v v v) type uniq1 (wnn-const WNN_UNIQ_LEN) uniq2 (wnn-const WNN_UNIQ_LEN) passwd (wnn-const WNN_PASSWD_LEN)) (list type uniq1 uniq2 passwd))))) (defun wnnrpc-get-file-header (filename) (wnnrpc-with-temp-buffer (if (null (file-readable-p filename)) (list nil (make-string (wnn-const WNN_UNIQ_LEN) 0) "" "") (insert-file-contents filename nil 0 (wnn-const WNN_FILE_HEADER_LEN)) (wnnrpc-scan-file-header)))) (defun wnnrpc-check-local-file (path &optional preserve) (let ((header (wnnrpc-get-file-header path))) (cond ((null header) (- (wnn-const WNN_NOT_A_FILE))) ((null (car header)) (if (file-exists-p path) (- (wnn-const WNN_OPENF_ERR)) (- (wnn-const WNN_NO_EXIST)))) (t (if (wnnrpc-check-inode header path) header (if preserve (- (wnn-const WNN_INODE_CHECK_ERROR)) (wnnrpc-change-file-uniq header path) (wnnrpc-check-local-file path t))))))) (defsubst wnnrpc-get-inode (uniq) (+ (lsh (aref uniq 8) 24) (lsh (aref uniq 9) 16) (lsh (aref uniq 10) 8) (aref uniq 11))) (defun wnnrpc-check-inode (header path) (let ((inode (nth 10 (file-attributes path)))) (and inode (= inode (wnnrpc-get-inode (nth 1 header)))))) (defun wnnrpc-make-uniq (attributes) (wnnrpc-with-temp-buffer (let ((ctime (nth 6 attributes)) (ino (nth 10 attributes)) (devno (nth 11 attributes))) (if (numberp devno) (comm-format (U i u V) ctime devno ino wnn-system-name (wnn-const WNN_HOST_LEN)) ;; Emacs 21 returns returns negative devno as 16 bits uint pair (comm-format (U U u V) ctime (list (car devno) (cdr devno)) ino wnn-system-name (wnn-const WNN_HOST_LEN))) (buffer-string)))) (defun wnnrpc-change-file-uniq (header path &optional new) (wnnrpc-with-write-file path nil (insert-file-contents path) (if (wnnrpc-scan-file-header) (let ((uniq (wnnrpc-make-uniq (file-attributes path)))) (goto-char (1+ (wnn-const WNN_FILE_STRING_LEN))) (delete-region (point) (1+ (wnn-const WNN_FILE_HEADER_LEN))) (comm-format (u v v v v) (car header) uniq (wnn-const WNN_UNIQ_LEN) (if new uniq (nth 1 header)) (wnn-const WNN_UNIQ_LEN) (nth 3 header) (wnn-const WNN_PASSWD_LEN) "" (wnn-const WNN_FILE_HEADER_PAD)) t)))) (defun wnnrpc-check-passwd (proc passwd header) (let ((env-id -1)) (unwind-protect (if (< (setq env-id (wnnrpc-connect proc "")) 0) -1 (wnnrpc-call-with-environment (wnnenv-create proc env-id) (file-id) (comm-format (u u v) (wnn-const JS_FILE_SEND) env-id (nth 1 header) (wnn-const WNN_UNIQ_LEN)) (comm-unpack (i) file-id) (if (>= file-id 0) (progn (wnnrpc-get-result) ; ignore result code (- (wnn-const WNN_FILE_IN_USE))) (wnnrpc-get-result (comm-call-with-proc-1 proc () (comm-format (s B) (concat wnn-system-name "!TEMPFILE") (wnnrpc-make-dummy-dictionary header)) (wnnrpc-get-result (let ((egg-fixed-euc (list egg-fixed-euc egg-fixed-euc))) (wnnrpc-set-dictionary (wnnenv-create proc env-id) result -1 1 t t passwd "" nil)))))))) (if (>= env-id 0) (wnnrpc-disconnect (wnnenv-create proc env-id)))))) (defun wnnrpc-make-dummy-dictionary (header) (wnnrpc-with-temp-buffer (comm-format (v u v v v v u v) (wnn-const WNN_FILE_STRING) (wnn-const WNN_FILE_STRING_LEN) (wnn-const WNN_FT_DICT_FILE) (nth 1 header) (wnn-const WNN_UNIQ_LEN) (nth 1 header) (wnn-const WNN_UNIQ_LEN) (nth 3 header) (wnn-const WNN_PASSWD_LEN) "" (wnn-const WNN_FILE_HEADER_PAD) (wnn-const WNN_REV_DICT) "" (wnn-const WNN_FILE_BODY_PAD)) (buffer-string))) (defun wnnrpc-file-loaded-local (proc path &optional preserve) "" (let ((header (wnnrpc-check-local-file path preserve))) (if (numberp header) -1 (comm-call-with-proc proc (result) (comm-format (u v) (wnn-const JS_FILE_LOADED_LOCAL) (nth 1 header) (wnn-const WNN_UNIQ_LEN)) (comm-unpack (i) result) result)))) (defun wnnrpc-file-receive (env fid local-filename) "" (condition-case err (wnnrpc-call-with-environment env (filename) (comm-format (u u u) (wnn-const JS_FILE_RECEIVE) env-id fid) (comm-unpack (s) filename) (if (null local-filename) (setq local-filename (wnnrpc-get-local-filename filename))) (let ((header (wnnrpc-get-file-header local-filename)) contents) (if (null header) (wnnrpc-terminate-current-command WNN_NOT_A_FILE) (comm-call-with-proc-1 proc () (comm-format (u v) (wnn-const WNN_ACK) (nth 1 header) (wnn-const WNN_UNIQ_LEN))) (wnnrpc-get-result (cond ((= result 0) 0) ((null (file-writable-p local-filename)) (wnnrpc-terminate-current-command WNN_FILE_WRITE_ERROR)) (t (wnnrpc-with-write-file local-filename (- (wnn-const WNN_FILE_WRITE_ERROR)) (comm-call-with-proc proc () (comm-format (u) (wnn-const WNN_ACK)) (comm-unpack (B) contents)) (insert contents) (if (= result 2) (insert-file-contents local-filename nil (1- (point)))) (save-excursion (set-buffer (process-buffer proc)) (wnnrpc-get-result))))))))) ((quit error) (wnnrpc-call-with-environment env () (comm-format (i) (wnn-const WNN_NAK))) (signal (car err) (cdr err))))) (defun wnnrpc-file-send (env filename) "" (let ((header (wnnrpc-check-local-file filename))) (if (numberp header) header (condition-case err (wnnrpc-call-with-environment env (file-id) (comm-format (u u v) (wnn-const JS_FILE_SEND) env-id (nth 1 header) (wnn-const WNN_UNIQ_LEN)) (comm-unpack (i) file-id) (if (>= file-id 0) (wnnrpc-get-result (wnnenv-set-client-file env filename) file-id) (wnnrpc-get-result (comm-call-with-proc-1 proc () (comm-format (s B) (concat wnn-system-name "!" filename) (wnnrpc-with-temp-buffer (insert-file-contents filename) (buffer-string))) (wnnrpc-get-result (wnnenv-set-client-file env filename) result))))) ((quit error) (wnnrpc-call-with-environment env () (comm-format (s B B B B B B) "" "" "" "" "" "" "")) (signal (car err) (cdr err))))))) (defun wnnrpc-file-remove-client (proc name passwd) (let (header) (cond ((/= (wnnrpc-file-loaded-local proc name) -1) (- (wnn-const WNN_FILE_IN_USE))) ((null (file-readable-p name)) (- (wnn-const WNN_FILE_READ_ERROR))) ((null (numberp (car (setq header (wnnrpc-get-file-header name))))) (- (wnn-const WNN_NOT_A_FILE))) ((< (wnnrpc-check-passwd proc passwd header) 0) (- (wnn-const WNN_INCORRECT_PASSWD))) (t (condition-case nil (progn (delete-file name) 0) (error (- (wnn-const WNN_UNLINK)))))))) (defun wnnrpc-dic-file-create-client (env dicname type comment passwd hpasswd) (if (and (null (file-exists-p dicname)) (file-writable-p dicname) (or (eq type (wnn-const WNN_REV_DICT)) (eq type (wnn-const CWNN_REV_DICT)) (eq type (wnn-const BWNN_REV_DICT)) (eq type (wnn-const WNN_UD_DICT)) (and (wnnenv-is-wnn6 env) (eq type (wnn-const WNN_FI_USER_DICT)))) (wnnrpc-create-and-move-to-client env nil dicname type comment passwd hpasswd)) 0 (- (wnn-const WNN_FILE_CREATE_ERROR)))) (defun wnnrpc-hindo-file-create-client (env fi dic-id freqname comment passwd) (if (and (null (file-exists-p freqname)) (file-writable-p freqname) (wnnrpc-create-and-move-to-client env dic-id freqname fi comment passwd nil)) 0 (- (wnn-const WNN_FILE_CREATE_ERROR)))) (defun wnnrpc-make-temp-name (env) (let ((n 0) (temp-form "usr/temp")) (while (= (wnnrpc-access env (concat temp-form (number-to-string n)) 0) 0) (setq n (1+ n))) (concat temp-form (number-to-string n)))) (defun wnnrpc-create-and-move-to-client (env dic-id filename type comment passwd hpasswd) (let ((tempfile (wnnrpc-make-temp-name env)) (created -1) (fid -1)) (unwind-protect (progn (if (numberp type) (setq created (wnnrpc-dic-file-create env tempfile type comment passwd hpasswd)) (setq created (wnnrpc-hindo-file-create env type dic-id tempfile comment passwd))) (if (and (>= created 0) (>= (setq fid (wnnrpc-file-read env tempfile)) 0) (>= (wnnrpc-file-receive env fid filename) 0)) (wnnrpc-change-file-uniq (wnnrpc-get-file-header filename) filename t) (condition-case nil (delete-file filename) (error)) nil)) (if (>= fid 0) (wnnrpc-file-discard env fid)) (if (>= created 0) (wnnrpc-file-remove (wnnenv-get-proc env) tempfile passwd))))) (defun wnnrpc-read-passwd-file (filename) (cond ((null filename) "") ((null (file-readable-p filename)) (- (wnn-const WNN_FILE_READ_ERROR))) (t (wnnrpc-with-temp-buffer (insert-file-contents filename nil 0 (1- (wnn-const WNN_PASSWD_LEN))) (goto-char 1) (if (and (search-forward-regexp "[\0\n]" nil 0) (= (preceding-char) 0)) (backward-char)) (buffer-substring 1 (point)))))) ;;; egg/wnnrpc.el ends here egg-4.0.6+0.20041122cvs/egg/wnn.el0000644000764400003210000024225607517100123017344 0ustar ishikawaishikawa00000000000000;;; egg/wnn.el --- WNN Support (high level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg) (require 'egg-edep) (defgroup wnn nil "Wnn interface for Tamago 4." :group 'egg) (defcustom wnn-auto-save-dictionaries 0 "*Save dictionaries automatically after N-th end conversion, if positive" :group 'wnn :type 'integer) (defcustom wnn-use-v3-eggrc nil "*Enable old style eggrc, if non-NIL" :group 'wnn :type 'boolean) (defcustom wnn-use-bixing (not wnn-use-v3-eggrc) "*Enable bixing (stroke) input-method, if non-NIL" :group 'wnn :type 'boolean) (defcustom wnn-force-set-environment nil "*Regardless the existence of the Wnn environment in the server, reset the environment, if non-NIL. Otherwise, reset the environment only when it is created." :group 'wnn :type 'boolean) (defcustom wnn-one-level-conversion nil "*Don't use major clause (dai bunsetu/da wenjie/dae munjeol), if non-NIL." :group 'wnn :type 'boolean) (defcustom wnn-usr-dic-dir (concat "usr/" (user-login-name)) "*Directory of user dictionary for Wnn." :group 'wnn :type 'string) (defcustom wnn-user-name (or (getenv "WNNUSER") (user-login-name)) "User name at Wnn server. Default value is login name or WNNUSER evironment variable, if it is defined." :group 'wnn :type 'string) (defcustom wnn-uniq-level 'wnn-uniq "Uniq level for candidate selection. wnn-no-uniq: Use all candidates. wnn-uniq-entry: Use only one among same dictionary entry candidates. wnn-uniq: Use only one among same hinshi candidates. (default) wnn-uniq-kanji: Use only one among same kanji candidates." :group 'wnn :type '(choice (const wnn-no-uniq) (const wnn-uniq-entry) (const wnn-uniq) (const wnn-uniq-kanji))) (defcustom wnn-jserver nil "jserver hostname list. Use N-th port, if hostname is followed by ':' and digit N." :group 'wnn :type '(repeat string)) (defcustom wnn-cserver nil "cserver hostname list. Use N-th port, if hostname is followed by ':' and digit N." :group 'wnn :type '(repeat string)) (defcustom wnn-tserver nil "tserver hostname list. Use N-th port, if hostname is followed by ':' and digit N." :group 'wnn :type '(repeat string)) (defcustom wnn-kserver nil "kserver hostname list. Use N-th port, if hostname is followed by ':' and digit N." :group 'wnn :type '(repeat string)) (defcustom wnn-jport 22273 "jserver port number" :group 'wnn :type 'integer) (defcustom wnn-cport 22289 "cserver port number" :group 'wnn :type 'integer) (defcustom wnn-tport 22321 "tserver port number" :group 'wnn :type 'integer) (defcustom wnn-kport 22305 "kserver port number" :group 'wnn :type 'integer) (defmacro wnn-backend-plist () ''(egg-initialize-backend wnn-init egg-start-conversion wnn-start-conversion egg-get-bunsetsu-source wnn-get-bunsetsu-source egg-get-bunsetsu-converted wnn-get-bunsetsu-converted egg-get-source-language wnn-get-source-language egg-get-converted-language wnn-get-converted-language egg-major-bunsetsu-continue-p wnn-major-bunsetsu-continue-p egg-list-candidates wnn-list-candidates egg-decide-candidate wnn-decide-candidate egg-special-candidate wnn-special-candidate egg-change-bunsetsu-length wnn-change-bunsetsu-length egg-bunsetsu-combinable-p wnn-bunsetsu-combinable-p egg-end-conversion wnn-end-conversion egg-word-inspection wnn-word-inspection egg-word-registration wnn-word-registration)) (defun wnn-backend-func-name (name lang &optional env) (intern (concat name "-" (symbol-name lang) (and env "-") (and env (symbol-name env))))) (defun wnn-make-backend (lang env &optional source-lang converted-lang) (let ((finalize (wnn-backend-func-name "wnn-finalize-backend" lang)) (backend (wnn-backend-func-name "wnn-backend" lang env))) (if (null (fboundp finalize)) (progn (fset finalize `(lambda () (wnn-finalize-backend ',lang))) (egg-set-finalize-backend (list finalize)))) (if (null (get backend 'egg-start-conversion)) (setplist backend (apply 'list 'language lang 'source-language (or source-lang lang) 'converted-language (or converted-lang lang) (wnn-backend-plist)))) backend)) (defun wnn-define-backend (lang env-name-list) (mapcar (lambda (env) (if (consp env) (wnn-define-backend lang env) (wnn-make-backend lang env))) env-name-list)) (wnn-make-backend 'Chinese-GB 'Q 'QianMa 'Chinese-GB) (wnn-make-backend 'Chinese-GB 'QR 'Chinese-GB 'QianMa) (wnn-make-backend 'Chinese-GB 'W 'WuBi 'Chinese-GB) (wnn-make-backend 'Chinese-GB 'WR 'Chinese-GB 'WuBi) (defconst wnn-backend-language-alist '((QianMa . Chinese-GB) (WuBi . Chinese-GB))) (defvar wnn-backend-alist nil) (defun wnn-define-backend-alist (deflist) (setq wnn-backend-alist (mapcar (lambda (slot) (let* ((lang (car slot)) (alt (cdr (assq lang wnn-backend-language-alist)))) (cons lang (wnn-define-backend (or alt lang) (cdr slot))))) deflist))) (defcustom wnn-backend-define-list (if wnn-use-bixing '((Japanese ((nil nil R)) ((R nil R))) (Chinese-GB ((PZ PZ PZR)) ((PZR PZ PZR)) ((QR Q QR)) ((WR W WR))) (Chinese-CNS ((PZ PZ PZR)) ((PZR PZ PZR))) (Korean ((nil nil R)) ((R nil R))) (QianMa ((Q Q QR))) (WuBi ((W W WR)))) '((Japanese ((nil nil R)) ((R nil R))) (Chinese-GB ((PZ PZ PZR)) ((PZR PZ PZR))) (Chinese-CNS ((PZ PZ PZR)) ((PZR PZ PZR))) (Korean ((nil nil R)) ((R nil R))))) "Alist of language and lists of the Wnn backend suffixes." :group 'wnn :set (lambda (sym value) (set-default sym value) (wnn-define-backend-alist value)) :type '(repeat (cons :tag "Language - Backend" (choice :tag "Language" (const Japanese) (const Chinese-GB) (const Chinese-CNS) (const Korean) (const QianMa) (const WuBi) (symbol :tag "Other")) (repeat (cons :tag "Backend Sequece" (cons :tag "First Conversion Stage" (symbol :tag "Backend for Start Conversion") (repeat :tag "Backends for Reconvert" (symbol :tag "Backend"))) (repeat :tag "Following Conversion Stages" (cons :tag "N-th Stage" (symbol :tag "Backend for This Stage") (repeat :tag "Backends for Reconvert" (symbol :tag "Backend"))))))))) (eval-when-compile (defmacro WNN-const (c) (cond ((eq c 'BUN_SENTOU) -1) ((eq c 'NO_EXIST) 1) ((eq c 'NO_MATCH) 10) ((eq c 'IMA_OFF) -4) ((eq c 'IMA_ON) -3) ((eq c 'CONNECT) 1) ((eq c 'CONNECT_BK) 1) ((eq c 'HIRAGANA) -1) ((eq c 'KATAKANA) -11) ((eq c 'IKEIJI_ENTRY) -50) ((eq c 'LEARNING_LEN) 3) ((eq c 'MUHENKAN_DIC) -3) ((eq c 'HINDO_NOP) -2) ((eq c 'HINDO_INC) -3) ((eq c 'DIC_RW) 0) ((eq c 'DIC_RDONLY) 1) ((eq c 'DIC_GROUP) 3) ((eq c 'DIC_MERGE) 4) ((eq c 'NOTRANS_LEARN) 1) ((eq c 'BMODIFY_LEARN) 2) ((eq c 'DIC_NO_TEMPS) ?\x3f)))) ;; Retern value of system-name may differ from hostname. (defconst wnn-system-name (or (with-temp-buffer (condition-case nil (call-process "hostname" nil `(,(current-buffer) nil) "hostname") (error)) (goto-char (point-min)) (if (re-search-forward "[\0- ]" nil 0) (goto-char (1- (point)))) (if (> (point) 1) (buffer-substring 1 (point)))) (system-name))) (egg-add-message '((nil (wnn-connect-error "cannot connect to the server") (wnn-fail-make-env "cannot make the Wnn environment") (wnn-dict-saving "saving %s's frequency/dictionary information") (wnn-dict-saved "finish to save %s's frequency/dictionary information") (wnn-dir-missing "directory %s missing. Create it? ") (wnn-dir-failed "failed to create directory %s") (wnn-dir-created "directory %s created") (wnn-dict-missing-1 "dictionary file %s is missing: %s") (wnn-dict-missing-2 "dictionary file %s is missing. Create it? ") (wnn-dict-created "dictionary file %s is created") (wnn-freq-missing-1 "frequency file %s is missing: %s") (wnn-freq-missing-2 "frequency file %s is missing. Create it? ") (wnn-freq-created "frequency file %s is created") (wnn-no-match "unmatch dictionary and freq. file %s. Re-create it? ") (wnn-re-create-freq "frequency file %s is re-created") (wnn-pseud-bunsetsu "pseud clause") (wnn-register-1 "dictionary name:") (wnn-register-2 "clause class name") (wnn-no-writable-d "no writable dictionary")) (Japanese (wnn-connect-error "$B%5!<%P$H@\B3$G$-$^$;$s$G$7$?(B") (wnn-fail-make-env "$B4D6-$r:n$k$3$H$O$G$-$^$;$s$G$7$?(B") (wnn-dict-saving "%s $B$NIQEY>pJs!&<-=q>pJs$rB`Hr$7$F$$$^$9(B") (wnn-dict-saved "%s $B$NIQEY>pJs!&<-=q>pJs$rB`Hr$7$^$7$?(B") (wnn-dir-missing "$B%G%#%l%/%H%j(B %s $B$,$"$j$^$;$s!#:n$j$^$9$+(B? ") (wnn-dir-failed "$B%G%#%l%/%H%j(B %s $B$N:n@.$K<:GT$7$^$7$?(B") (wnn-dir-created "$B%G%#%l%/%H%j(B %s $B$r:n$j$^$7$?(B") (wnn-dict-missing-1 "$B<-=q%U%!%$%k(B %s $B$,$"$j$^$;$s(B: %s") (wnn-dict-missing-2 "$B<-=q%U%!%$%k(B %s $B$,$"$j$^$;$s!#:n$j$^$9$+(B? ") (wnn-dict-created "$B<-=q%U%!%$%k(B %s $B$r:n$j$^$7$?(B") (wnn-freq-missing-1 "$BIQEY%U%!%$%k(B %s $B$,$"$j$^$;$s(B: %s") (wnn-freq-missing-2 "$BIQEY%U%!%$%k(B %s $B$,$"$j$^$;$s!#:n$j$^$9$+(B? ") (wnn-freq-created "$BIQEY%U%!%$%k(B %s $B$r:n$j$^$7$?(B") (wnn-no-match "$B<-=q$HIQEY(B %s $B$N@09g@-$,$"$j$^$;$s!#:n$jD>$7$^$9$+(B? ") (wnn-re-create-freq "$BIQEY%U%!%$%k(B %s $B$r:n$jD>$7$^$7$?(B") (wnn-pseud-bunsetsu "$B5?;wJ8@a(B") (wnn-register-1 "$BEPO?<-=qL>(B:") (wnn-register-2 "$BIJ;lL>(B") (wnn-no-writable-d "$BEPO?2DG=$J<-=q$,$"$j$^$;$s(B")) (Chinese-GB (wnn-connect-error "$A2;D\:M(Bserver$AA,=S(B") (wnn-fail-make-env "$A;7>32;D\44=((B") (wnn-dict-saving "%s $A5DF56HND<~:M4G5dPEO"U}TZMK3v(B") (wnn-dict-saved "%s $A5DF56HND<~:M4G5dPEO"RQ>-MK3vAK(B") (wnn-dir-missing "$AD?B<(B %s $AC;SP!#R*=(A"Bp(B? ") (wnn-dir-failed "$AD?B<(B %s $A=(A"J'0\AK(B") (wnn-dir-created "$AD?B<(B %s $A=(A"AK(B") (wnn-dict-missing-1 "$AWV5dND<~(B %s $AC;SP(B: %s") (wnn-dict-missing-2 "$AWV5dND<~(B %s $AC;SP!#R*=(A"Bp(B? ") (wnn-dict-created "$AWV5dND<~(B %s $A=(A"AK(B") (wnn-freq-missing-1 "$AF56HND<~(B %s $AC;SP(B: %s") (wnn-freq-missing-2 "$AF56HND<~(B %s $AC;SP!#R*=(A"Bp(B? ") (wnn-freq-created "$AF56HND<~(B %s $A=(A"AK(B") (wnn-no-match "$AWV5d:MF56H(B %s $A5DU{:OPTC;SP!#R*TY=(A"Bp(B? ") (wnn-re-create-freq "$AF56HND<~(B %s $ATY=(A"AK(B") (wnn-pseud-bunsetsu "$ARIKFND=Z(B") (wnn-register-1 "$A5GB<4G5dC{(B:") (wnn-register-2 "$A4JPTC{(B") (wnn-no-writable-d "$AC;SP?ID\5GB<5D4G5d(B")) (Chinese-CNS (wnn-connect-error "$(GDbWdLO(Bserver$(G]YZY(B") (wnn-fail-make-env "$(Gt?h:DbWd^6Pz(B") (wnn-dict-saving "%s $(GN{s"PyEFG5LOy0L(OjUIF_GcXMEx(B") (wnn-dict-saved "%s $(GN{s"PyEFG5LOy0L(OjUIDXenXMExD'(B") (wnn-dir-missing "$(GFxrg(B %s $(GJtH4!$SQPzG!cC(B? ") (wnn-dir-failed "$(GFxrg(B %s $(GPzG!FBZuD'(B") (wnn-dir-created "$(GFxrg(B %s $(GPzG!D'(B") (wnn-dict-missing-1 "$(GGsL(EFG5(B %s $(GJtH4(B: %s") (wnn-dict-missing-2 "$(GGsL(EFG5(B %s $(GJtH4!$SQPzG!cC(B? ") (wnn-dict-created "$(GGsL(EFG5(B %s $(GPzG!D'(B") (wnn-freq-missing-1 "$(Gs"PyEFG5(B %s $(GJtH4(B: %s") (wnn-freq-missing-2 "$(Gs"PyEFG5(B %s $(GJtH4!$SQPzG!cC(B? ") (wnn-freq-created "$(Gs"PyEFG5(B %s $(GPzG!D'(B") (wnn-no-match "$(GGsL(LOs"Py(B %s $(GN{plLOMLJtH4!$SQGBPzG!cC(B? ") (wnn-re-create-freq "$(Gs"PyEFG5(B %s $(GGBPzG!D'(B") (wnn-pseud-bunsetsu "$(GijH}EFeg(B") (wnn-register-1 "$(G`trgy0L(GX(B:") (wnn-register-2 "$(Gb$MLGX(B") (wnn-no-writable-d "$(GJtH4F+Wd`trgN{GsL((B")) (Korean (wnn-connect-error "$(C<-9v(B(Server) $(C?M(B $(CA"CKGR(B $(Cx@>4O4Y(B") (wnn-fail-make-env "$(CH/0f@;(B $(C@[<:GR(B $(Cx@>4O4Y(B") (wnn-dict-saving "%s $(C@G(B $(C:s55A$:8?M(B $(C;g@|A$:88&(B $(C<<@L:jGO0m(B $(C@V=@4O4Y(B") (wnn-dict-saved "%s $(C@G(B $(C:s55A$:8?M(B $(C;g@|A$:88&(B $(C<<@L:jG_=@4O4Y(B") (wnn-dir-missing "$(C5p7:Ed8.(B %s $(C@L(B $(C>x@>4O4Y#.@[<:GO0Z=@4O1n(B? ") (wnn-dir-failed "$(C5p7:Ed8.(B %s $(C@;(B $(C@[<:GR(B $(Cx@>4O4Y(B") (wnn-dir-created "$(C5p7:Ed8.(B %s $(C@;(B $(C@[<:G_=@4O4Y(B") (wnn-dict-missing-1 "$(C;g@|H-@O(B %s $(C@L(B $(C>x@>4O4Y(B: %s") (wnn-dict-missing-2 "$(C;g@|H-@O(B %s $(C@L(B $(C>x@>4O4Y#.4Y=C(B $(C@[<:GO0Z=@4O1n(B? ") (wnn-dict-created "$(C;g@|H-@O(B %s $(C@;(B $(C@[<:G_=@4O4Y(B") (wnn-freq-missing-1 "$(C:s55H-@O(B %s $(C@L(B $(C>x@>4O4Y(B: %s") (wnn-freq-missing-2 "$(C:s55H-@O(B %s $(C@L(B $(C>x@>4O4Y#.4Y=C(B $(C@[<:GO0Z=@4O1n(B? ") (wnn-freq-created "$(C:s55H-@O(B %s $(C@;(B $(C@[<:G_=@4O4Y(B") (wnn-no-match "$(C;g@|0z(B $(C:s55(B %s $(C0!(B $(C8BAv(B $(C>J=@4O4Y#.4Y=C(B $(C@[<:GO0Z=@4O1n(B? ") (wnn-re-create-freq "$(C:s55H-@O(B %s $(C@;(B $(C4Y=C(B $(C@[<:G_=@4O4Y(B") (wnn-pseud-bunsetsu "$(C@G;g9.@}(B") (wnn-register-1 "$(C5n7O;g@|8m(B:") (wnn-register-2 "$(CG0;g8m(B") (wnn-no-writable-d "$(C5n7O(B $(C0!4IGQ(B $(CAvA$@L(B $(C>F4U4O4Y(B")))) ;; ::= [ ;; ] (defun wnnenv-create (proc env-id &optional server-type wnn-version backend tankan name) (if name (set (setq name (make-symbol name)) (make-vector 5 nil))) (vector proc env-id server-type wnn-version backend tankan name (make-vector 2 (WNN-const DIC_RDONLY)))) (defsubst wnnenv-get-proc (env) (aref env 0)) (defsubst wnnenv-get-env-id (env) (aref env 1)) (defsubst wnnenv-get-server-type (env) (aref env 2)) (defsubst wnnenv-get-wnn-version (env) (aref env 3)) (defsubst wnnenv-get-backend (env) (aref env 4)) (defsubst wnnenv-get-tankan (env) (aref env 5)) (defun wnnenv-get-client-file (env name) (let ((hash (intern-soft name (symbol-value (aref env 6))))) (and hash (symbol-value hash)))) (defun wnnenv-set-client-file (env name) (set (intern (concat wnn-system-name "!" name) (symbol-value (aref env 6))) name)) (defsubst wnnenv-get-hinshi (env h) (or (get (aref env 6) h) -1)) (defsubst wnnenv-set-hinshi (env h v) (put (aref env 6) h v)) (defsubst wnnenv-get-auto-learn (env) (aref env 7)) (defsubst wnnenv-get-notrans (env) (aref (wnnenv-get-auto-learn env) 0)) (defsubst wnnenv-get-bmodify (env) (aref (wnnenv-get-auto-learn env) 1)) (defsubst wnnenv-set-notrans (env v) (aset (wnnenv-get-auto-learn env) 0 v)) (defsubst wnnenv-set-bmodify (env v) (aset (wnnenv-get-auto-learn env) 1 v)) (defsubst wnnenv-is-wnn6 (env) (eq (wnnenv-get-wnn-version env) 'wnn6)) (defvar wnn-environments nil "Environment for Wnn conversion server") ;; ::= [ ;; ;; ;; ;; ;; ] ;; ;; ::= [ ] (defsubst wnn-bunsetsu-create (env jirilen dic-no entry freq right-now hinshi status status-backward kangovect evaluation) (egg-bunsetsu-create (wnnenv-get-backend env) (vector env jirilen dic-no entry freq right-now hinshi status status-backward kangovect evaluation nil nil nil nil nil nil nil nil nil nil))) (defsubst wnn-bunsetsu-get-env (b) (aref (egg-bunsetsu-get-info b) 0)) (defsubst wnn-bunsetsu-get-jirilen (b) (aref (egg-bunsetsu-get-info b) 1)) (defsubst wnn-bunsetsu-get-dic-no (b) (aref (egg-bunsetsu-get-info b) 2)) (defsubst wnn-bunsetsu-set-dic-no (b dic) (aset (egg-bunsetsu-get-info b) 2 dic)) (defsubst wnn-bunsetsu-get-entry (b) (aref (egg-bunsetsu-get-info b) 3)) (defsubst wnn-bunsetsu-set-entry (b ent) (aset (egg-bunsetsu-get-info b) 3 ent)) (defsubst wnn-bunsetsu-get-freq (b) (aref (egg-bunsetsu-get-info b) 4)) (defsubst wnn-bunsetsu-get-right-now (b) (aref (egg-bunsetsu-get-info b) 5)) (defsubst wnn-bunsetsu-get-hinshi (b) (aref (egg-bunsetsu-get-info b) 6)) (defsubst wnn-bunsetsu-get-status (b) (aref (egg-bunsetsu-get-info b) 7)) (defsubst wnn-bunsetsu-get-status-backward (b) (aref (egg-bunsetsu-get-info b) 8)) (defsubst wnn-bunsetsu-get-kangovect (b) (aref (egg-bunsetsu-get-info b) 9)) (defsubst wnn-bunsetsu-get-evaluation (b) (aref (egg-bunsetsu-get-info b) 10)) (defsubst wnn-bunsetsu-get-converted (b) (aref (egg-bunsetsu-get-info b) 11)) (defsubst wnn-bunsetsu-set-converted (b cvt) (aset (egg-bunsetsu-get-info b) 11 cvt)) (defsubst wnn-bunsetsu-get-yomi (b) (aref (egg-bunsetsu-get-info b) 12)) (defsubst wnn-bunsetsu-set-yomi (b yomi) (aset (egg-bunsetsu-get-info b) 12 yomi)) (defsubst wnn-bunsetsu-get-fuzokugo (b) (aref (egg-bunsetsu-get-info b) 13)) (defsubst wnn-bunsetsu-set-fuzokugo (b fuzokugo) (aset (egg-bunsetsu-get-info b) 13 fuzokugo)) (defsubst wnn-bunsetsu-get-dai-evaluation (b) (aref (egg-bunsetsu-get-info b) 14)) (defsubst wnn-bunsetsu-set-dai-evaluation (b de) (aset (egg-bunsetsu-get-info b) 14 de)) (defsubst wnn-bunsetsu-get-dai-continue (b) (aref (egg-bunsetsu-get-info b) 15)) (defsubst wnn-bunsetsu-set-dai-continue (b dc) (aset (egg-bunsetsu-get-info b) 15 dc)) (defsubst wnn-bunsetsu-get-change-top (b) (aref (egg-bunsetsu-get-info b) 16)) (defsubst wnn-bunsetsu-set-change-top (b top) (aset (egg-bunsetsu-get-info b) 16 top)) (defsubst wnn-bunsetsu-get-zenkouho (b) (aref (egg-bunsetsu-get-info b) 17)) (defsubst wnn-bunsetsu-set-zenkouho (b z) (aset (egg-bunsetsu-get-info b) 17 z)) (defsubst wnn-bunsetsu-get-freq-down (b) (aref (egg-bunsetsu-get-info b) 18)) (defsubst wnn-bunsetsu-set-freq-down (b fd) (aset (egg-bunsetsu-get-info b) 18 fd)) (defsubst wnn-bunsetsu-get-fi-rel (b) (aref (egg-bunsetsu-get-info b) 19)) (defsubst wnn-bunsetsu-set-fi-rel (b fr) (aset (egg-bunsetsu-get-info b) 19 fr)) (defsubst wnn-bunsetsu-get-context (b) (aref (egg-bunsetsu-get-info b) 20)) (defsubst wnn-bunsetsu-set-context (b c) (aset (egg-bunsetsu-get-info b) 20 c)) (defsubst wnn-zenkouho-create (pos list converted dai prev-b nxet-b) (vector pos list converted dai prev-b nxet-b)) (defsubst wnn-bunsetsu-get-zenkouho-pos (b) (aref (wnn-bunsetsu-get-zenkouho b) 0)) (defsubst wnn-bunsetsu-set-zenkouho-pos (b p) (aset (wnn-bunsetsu-get-zenkouho b) 0 p)) (defsubst wnn-bunsetsu-get-zenkouho-list (b) (aref (wnn-bunsetsu-get-zenkouho b) 1)) (defsubst wnn-bunsetsu-get-zenkouho-converted (b) (aref (wnn-bunsetsu-get-zenkouho b) 2)) (defsubst wnn-bunsetsu-get-zenkouho-dai (b) (aref (wnn-bunsetsu-get-zenkouho b) 3)) (defsubst wnn-bunsetsu-get-zenkouho-prev-b (b) (aref (wnn-bunsetsu-get-zenkouho b) 4)) (defsubst wnn-bunsetsu-get-zenkouho-next-b (b) (aref (wnn-bunsetsu-get-zenkouho b) 5)) (defsubst wnn-bunsetsu-connect-prev (bunsetsu) (= (wnn-bunsetsu-get-status bunsetsu) (WNN-const CONNECT))) (defsubst wnn-bunsetsu-connect-next (bunsetsu) (= (wnn-bunsetsu-get-status-backward bunsetsu) (WNN-const CONNECT_BK))) (defsubst wnn-context-create (dic-no entry jirilen hinshi fuzokugo converted freq right-now) (vector dic-no entry jirilen hinshi fuzokugo converted freq right-now (egg-chars-in-period converted 0 (length converted)))) (defsubst wnn-context-dic-no (context) (aref context 0)) (defsubst wnn-context-entry (context) (aref context 1)) (defsubst wnn-context-jirilen (context) (aref context 2)) (defsubst wnn-context-hinshi (context) (aref context 3)) (defsubst wnn-context-fuzokugo (context) (aref context 4)) (defsubst wnn-context-converted (context) (aref context 5)) (defsubst wnn-context-right-now (context) (aref context 6)) (defsubst wnn-context-set-right-now (context r) (aset context 6 r)) (defsubst wnn-context-freq (context) (aref context 7)) (defsubst wnn-context-set-freq (context f) (aset context 7 f)) (defsubst wnn-context-length (context) (aref context 8)) (defun wnn-null-context () (list (wnn-context-create -2 0 0 0 "" "" 0 0) (wnn-context-create -2 0 0 0 "" "" 0 0))) (defun wnn-major-bunsetsu-set-context (bunsetsu-list context) (while bunsetsu-list (wnn-bunsetsu-set-context (car bunsetsu-list) context) (setq bunsetsu-list (cdr bunsetsu-list)))) (defsubst wnn-bunsetsu-equal (bunsetsu-1 bunsetsu-2) (and (= (wnn-bunsetsu-get-dic-no bunsetsu-1) (wnn-bunsetsu-get-dic-no bunsetsu-2)) (= (wnn-bunsetsu-get-entry bunsetsu-1) (wnn-bunsetsu-get-entry bunsetsu-2)) (= (wnn-bunsetsu-get-kangovect bunsetsu-1) (wnn-bunsetsu-get-kangovect bunsetsu-2)) (equal (wnn-bunsetsu-get-converted bunsetsu-1) (wnn-bunsetsu-get-converted bunsetsu-2)) (equal (wnn-bunsetsu-get-fuzokugo bunsetsu-1) (wnn-bunsetsu-get-fuzokugo bunsetsu-2)))) (defun wnn-bunsetsu-list-equal (b1 b2) (while (and b1 b2 (wnn-bunsetsu-equal (car b1) (car b2))) (setq b1 (cdr b1) b2 (cdr b2))) (and (null b1) (null b2))) (defun wnn-bunsetsu-list-copy (bunsetsu) (mapcar (lambda (b) (egg-bunsetsu-create (egg-bunsetsu-get-backend b) (copy-sequence (egg-bunsetsu-get-info b)))) bunsetsu)) (defvar wnn-server-info-list ;; language server port hostname proc coding-system '((Japanese jserver wnn-jport wnn-jserver "Wnn" (fixed-euc-jp fixed-euc-jp)) (Chinese-GB cserver wnn-cport wnn-cserver "cWnn" (fixed-euc-py-cn fixed-euc-zy-cn)) (Chinese-CNS tserver wnn-tport wnn-tserver "tWnn" (fixed-euc-py-tw fixed-euc-zy-tw)) (Korean kserver wnn-kport wnn-kserver "kWnn" (fixed-euc-kr fixed-euc-kr)))) (defsubst wnn-server-get-info (lang) (or (assq lang wnn-server-info-list) (egg-error "unsupported language: %s" lang))) (defsubst wnn-server-language (info) (car info)) (defsubst wnn-server-type (info) (nth 1 info)) (defsubst wnn-server-port (info) (symbol-value (nth 2 info))) (defsubst wnn-server-hostname (info) (symbol-value (nth 3 info))) (defsubst wnn-server-proc-name (info) (nth 4 info)) (defsubst wnn-server-buffer-name (info) (concat " *" (wnn-server-proc-name info) "*")) (defsubst wnn-server-coding-system (info) (nth 5 info)) (defconst wnn-accept-charset-alist '((Chinese-CNS ascii chinese-sisheng chinese-cns11643-1 chinese-cns11643-2))) (defsubst wnn-backend-get-language (backend) (get backend 'language)) (defsubst wnn-backend-get-source-language (backend) (get backend 'source-language)) (defsubst wnn-backend-get-converted-language (backend) (get backend 'converted-language)) (defvar wnn-prev-context nil) (defun wnn-start-conversion (backend yomi &optional context) "Convert YOMI string to kanji, and enter conversion mode. Return the list of bunsetsu." (let ((accepts (cdr (assq (wnn-backend-get-source-language backend) wnn-accept-charset-alist))) env hinshi fuzokugo result) (if accepts (let ((charsets (mapcar 'char-charset (string-to-list yomi)))) (while accepts (setq charsets (delq (car accepts) charsets) accepts (cdr accepts))) (if charsets (egg-error "cannot handle %s" (car charsets))))) (setq env (wnn-get-environment backend)) (cond ((eq (car (car-safe context)) backend) (setq wnn-prev-context (car context) context (cdr wnn-prev-context) hinshi (wnn-context-hinshi (nth 1 context)) fuzokugo (wnn-context-fuzokugo (nth 1 context)))) ((listp context) (setq wnn-prev-context (cons nil (wnn-null-context)) context (cdr wnn-prev-context) hinshi (WNN-const BUN_SENTOU) fuzokugo "")) ((eq (car wnn-prev-context) backend) (setq context (cdr wnn-prev-context) hinshi (wnnenv-get-hinshi env 'noun) fuzokugo "")) (t (setq context (wnn-null-context) hinshi (wnnenv-get-hinshi env 'noun) fuzokugo ""))) (setq result (wnn-renbunsetsu-conversion env yomi hinshi fuzokugo nil context)) (if (numberp result) (egg-error "%s" (wnnrpc-get-error-message (- result)))) result)) (defun wnn-get-source-language (bunsetsu) (wnn-backend-get-source-language (egg-bunsetsu-get-backend bunsetsu))) (defun wnn-get-converted-language (bunsetsu) (wnn-backend-get-converted-language (egg-bunsetsu-get-backend bunsetsu))) (defun wnn-get-bunsetsu-converted (bunsetsu) (concat (wnn-bunsetsu-get-converted bunsetsu) (wnn-bunsetsu-get-fuzokugo bunsetsu))) (defun wnn-get-bunsetsu-source (bunsetsu) (concat (wnn-bunsetsu-get-yomi bunsetsu) (wnn-bunsetsu-get-fuzokugo bunsetsu))) (defun wnn-get-major-bunsetsu-converted (bunsetsu) (mapconcat 'wnn-get-bunsetsu-converted bunsetsu "")) (defun wnn-get-major-bunsetsu-source (bunsetsu) (mapconcat 'wnn-get-bunsetsu-source bunsetsu "")) (defun wnn-major-bunsetsu-continue-p (bunsetsu) (wnn-bunsetsu-get-dai-continue bunsetsu)) (defmacro wnn-uniq-hash-string (uniq-level) `(mapconcat (lambda (b) (concat ,@(cond ((eq uniq-level 'wnn-uniq) '((number-to-string (wnn-bunsetsu-get-hinshi b)))) ((eq uniq-level 'wnn-uniq-entry) '((number-to-string (wnn-bunsetsu-get-dic-no b)) "+" (number-to-string (wnn-bunsetsu-get-entry b))))) "\0" (wnn-bunsetsu-get-converted b) "\0" (wnn-bunsetsu-get-fuzokugo b))) bunsetsu "\0")) (defun wnn-uniq-hash (bunsetsu hash-table) (intern (cond ((eq wnn-uniq-level 'wnn-uniq) (wnn-uniq-hash-string wnn-uniq)) ((eq wnn-uniq-level 'wnn-uniq-entry) (wnn-uniq-hash-string wnn-uniq-entry)) (t (wnn-uniq-hash-string nil))) hash-table)) (defun wnn-uniq-candidates (candidates) (if (eq wnn-uniq-level 'wnn-no-uniq) candidates (let ((hash-table (make-vector (length candidates) 0))) (delq nil (mapcar (lambda (b) (let ((sym (wnn-uniq-hash b hash-table))) (if (null (boundp sym)) (set sym b)))) candidates))))) (defsubst wnn-uniq-bunsetsu-equal (bunsetsu-1 bunsetsu-2) (and (or (eq wnn-uniq-level 'wnn-uniq-kanji) (and (eq wnn-uniq-level 'wnn-uniq) (= (wnn-bunsetsu-get-hinshi bunsetsu-1) (wnn-bunsetsu-get-hinshi bunsetsu-2))) (and (= (wnn-bunsetsu-get-dic-no bunsetsu-1) (wnn-bunsetsu-get-dic-no bunsetsu-2)) (= (wnn-bunsetsu-get-entry bunsetsu-1) (wnn-bunsetsu-get-entry bunsetsu-2)) (or (eq wnn-uniq-level 'wnn-uniq-entry) (= (wnn-bunsetsu-get-kangovect bunsetsu-1) (wnn-bunsetsu-get-kangovect bunsetsu-2))))) (equal (wnn-bunsetsu-get-converted bunsetsu-1) (wnn-bunsetsu-get-converted bunsetsu-2)) (equal (wnn-bunsetsu-get-fuzokugo bunsetsu-1) (wnn-bunsetsu-get-fuzokugo bunsetsu-2)))) (defun wnn-uniq-bunsetsu-list-equal (b1 b2) (while (and b1 b2 (wnn-uniq-bunsetsu-equal (car b1) (car b2))) (setq b1 (cdr b1) b2 (cdr b2))) (and (null b1) (null b2))) (defun wnn-candidate-pos (bunsetsu candidates) (let ((n 0) pos) (while (and (null pos) candidates) (if (wnn-uniq-bunsetsu-list-equal (car candidates) bunsetsu) (setq pos n) (setq candidates (cdr candidates) n (1+ n)))) (or pos -1))) (defun wnn-get-candidates-converted (candidates) (mapcar 'wnn-get-major-bunsetsu-converted candidates)) (defun wnn-set-candidate-info (bunsetsu zenkouho) (wnn-bunsetsu-set-zenkouho (car bunsetsu) zenkouho) (mapcar (lambda (b) (wnn-bunsetsu-set-zenkouho b t)) (cdr bunsetsu))) (defun wnn-list-candidates (bunsetsu prev-b next-b major) (let* ((head (car bunsetsu)) (backend (egg-bunsetsu-get-backend head)) (env (wnn-bunsetsu-get-env head)) (yomi (wnn-get-major-bunsetsu-source bunsetsu)) (continue (eq (wnn-bunsetsu-get-zenkouho head) t)) pos cand converted hinshi fuzokugo v) (if prev-b (setq prev-b (egg-get-bunsetsu-tail prev-b) hinshi (wnn-bunsetsu-get-hinshi prev-b) fuzokugo (wnn-bunsetsu-get-fuzokugo prev-b)) (setq hinshi -1 fuzokugo "")) (if next-b (setq next-b (car next-b) v (wnn-bunsetsu-get-kangovect next-b))) (if (vectorp (wnn-bunsetsu-get-zenkouho head)) (setq pos (wnn-bunsetsu-get-zenkouho-pos head) cand (wnn-bunsetsu-get-zenkouho-list head))) (if (and pos (wnn-bunsetsu-list-equal bunsetsu (nth pos cand)) (eq major (wnn-bunsetsu-get-zenkouho-dai head)) (eq prev-b (wnn-bunsetsu-get-zenkouho-prev-b head)) (eq next-b (wnn-bunsetsu-get-zenkouho-next-b head))) (cons pos (wnn-bunsetsu-get-zenkouho-converted head)) (setq cand (wnn-get-bunsetsu-candidates env yomi hinshi fuzokugo v major)) (if (numberp cand) (egg-error "%s" (wnnrpc-get-error-message (- cand)))) (setq pos (wnn-candidate-pos bunsetsu cand)) (cond ((< pos 0) (setq cand (cons (wnn-bunsetsu-list-copy bunsetsu) cand))) ((and (> pos 0) (null (eq (wnn-bunsetsu-get-zenkouho head) t))) (setq cand (cons (nth pos cand) (delq (nth pos cand) cand))))) (setq cand (wnn-uniq-candidates cand) pos (wnn-candidate-pos bunsetsu cand) converted (wnn-get-candidates-converted cand)) (wnn-set-candidate-info bunsetsu (wnn-zenkouho-create pos cand converted major prev-b next-b)) (wnn-add-freq-down head cand) (cons pos converted)))) (defun wnn-decide-candidate (bunsetsu pos prev-b next-b) (let* ((head (car bunsetsu)) (cand-list (wnn-bunsetsu-get-zenkouho-list head)) (cand (nth pos cand-list)) (c-head (car cand))) (wnn-bunsetsu-set-zenkouho-pos head pos) (wnn-bunsetsu-set-change-top c-head (wnn-bunsetsu-get-change-top head)) (wnn-bunsetsu-set-freq-down c-head (wnn-bunsetsu-get-freq-down head)) (wnn-merge-fi-rel c-head bunsetsu) (wnn-major-bunsetsu-set-context cand (wnn-bunsetsu-get-context head)) (wnn-set-candidate-info cand (wnn-bunsetsu-get-zenkouho head)) (if (and prev-b (null wnn-one-level-conversion)) (progn (setq prev-b (list (egg-get-bunsetsu-tail prev-b))) (wnn-bunsetsu-set-dai-continue (car prev-b) (wnn-bunsetsu-connect-prev c-head)))) (if next-b (setq next-b (list (car next-b)))) (list cand prev-b next-b))) (defun wnn-special-candidate (bunsetsu prev-b next-b major type) (let* ((backend (egg-bunsetsu-get-backend (car bunsetsu))) (lang (get backend 'language)) pos cand) (when (and (eq lang (get backend 'source-language)) (eq lang (get backend 'converted-language))) (setq pos (and (eq lang (get backend 'source-language)) (eq lang (get backend 'converted-language)) (cond ((eq lang 'Japanese) (cond ((eq type 'egg-hiragana) -1) ((eq type 'egg-katakana) -2))) ((or (eq lang 'Chinese-GB) (eq lang 'Chinese-CNS)) (cond ((eq type 'egg-pinyin) -1) ((eq type 'egg-zhuyin) -1))) ((eq lang 'Korean) (cond ((eq type 'egg-hangul) -1)))))) (when pos (setq cand (cdr (wnn-list-candidates bunsetsu prev-b next-b major)) pos (+ pos (length cand))) (when (and (or (eq lang 'Chinese-GB) (eq lang 'Chinese-CNS))) (let ((converted (nth pos cand))) (cond ((egg-pinyin-syllable converted) (cond ((eq type 'egg-pinyin)) ; OK ((eq type 'egg-zhuyin) (wnn-pinyin-zhuyin-bunsetsu bunsetsu pos lang type)) (t (setq pos nil)))) ((egg-zhuyin-syllable converted) (cond ((eq type 'egg-pinyin) (wnn-pinyin-zhuyin-bunsetsu bunsetsu pos lang type)) ((eq type 'egg-zhuyin)) ; OK (t (setq pos nil)))) (t (setq pos nil)))))) (when pos (wnn-decide-candidate bunsetsu pos prev-b next-b))))) (defun wnn-pinyin-zhuyin-bunsetsu (bunsetsu pos lang type) (let ((b (nth pos (wnn-bunsetsu-get-zenkouho-list (car bunsetsu)))) (encoding (if (eq lang 'Chinese-GB) (if (eq type 'egg-pinyin) 'fixed-euc-py-cn 'fixed-euc-zy-cn) (if (eq type 'egg-pinyin) 'fixed-euc-py-tw 'fixed-euc-zy-tw))) (converted (wnn-bunsetsu-get-zenkouho-converted (car bunsetsu))) str) (setcar (nthcdr pos converted) (wnn-pinyin-zhuyin-string (nth pos converted) encoding)) (while b (setq str (wnn-bunsetsu-get-converted (car b))) (when str (wnn-bunsetsu-set-converted (car b) (wnn-pinyin-zhuyin-string str encoding))) (setq str (wnn-bunsetsu-get-fuzokugo (car b))) (when str (wnn-bunsetsu-set-fuzokugo (car b) (wnn-pinyin-zhuyin-string str encoding))) (setq b (cdr b))))) (defun wnn-pinyin-zhuyin-string (str encoding) (decode-coding-string (encode-coding-string str encoding) encoding)) (defun wnn-change-bunsetsu-length (bunsetsu prev-b next-b len major) (let ((backend (egg-bunsetsu-get-backend (car bunsetsu))) (env (wnn-bunsetsu-get-env (car bunsetsu))) (tail (egg-get-bunsetsu-tail prev-b)) (yomi (wnn-get-major-bunsetsu-source bunsetsu)) (context (wnn-bunsetsu-get-context (car bunsetsu))) yomi1 yomi2 hinshi fuzokugo new) (if tail (setq hinshi (wnn-bunsetsu-get-hinshi tail) fuzokugo (wnn-bunsetsu-get-fuzokugo tail)) (setq hinshi -1 fuzokugo "")) (setq yomi1 (substring yomi 0 len) yomi2 (concat (substring yomi len) (wnn-get-major-bunsetsu-source next-b))) (setq new (wnn-tanbunsetsu-conversion env yomi1 hinshi fuzokugo nil major)) (if (numberp new) (egg-error "%s" (wnnrpc-get-error-message (- new)))) (if (and prev-b (null wnn-one-level-conversion)) (wnn-bunsetsu-set-dai-continue tail (wnn-bunsetsu-connect-prev (car new)))) (wnn-bunsetsu-set-change-top (car new) t) (wnn-merge-freq-down (car new) bunsetsu) (wnn-merge-fi-rel (car new) bunsetsu) (wnn-merge-fi-rel (car new) next-b) (wnn-major-bunsetsu-set-context new context) (if (= (length yomi2) 0) (setq next-b nil) (setq tail (egg-get-bunsetsu-tail new) next-b (wnn-renbunsetsu-conversion env yomi2 (wnn-bunsetsu-get-hinshi tail) (wnn-bunsetsu-get-fuzokugo tail) nil context)) (if (numberp next-b) (egg-error "%s" (wnnrpc-get-error-message (- next-b)))) (if (and (null major) (null wnn-one-level-conversion)) (wnn-bunsetsu-set-dai-continue tail (wnn-bunsetsu-connect-prev (car next-b))))) (list new prev-b next-b))) (defun wnn-add-freq-down (bunsetsu down-list) (let ((freq-down (wnn-bunsetsu-get-freq-down bunsetsu)) b-list b pair) (while down-list (setq b-list (car down-list) down-list (cdr down-list)) (while b-list (setq b (car b-list) b-list (cdr b-list) pair (cons (wnn-bunsetsu-get-dic-no b) (wnn-bunsetsu-get-entry b))) (if (and (/= (wnn-bunsetsu-get-right-now b) 0) (/= (car pair) -1) (null (member pair freq-down))) (setq freq-down (cons pair freq-down))))) (wnn-bunsetsu-set-freq-down bunsetsu freq-down))) (defun wnn-merge-freq-down (bunsetsu b-list) (let ((freq-down0 (wnn-bunsetsu-get-freq-down bunsetsu)) freq-down1) (while b-list (setq freq-down1 (wnn-bunsetsu-get-freq-down (car b-list)) b-list (cdr b-list)) (while freq-down1 (if (null (member (car freq-down1) freq-down0)) (setq freq-down0 (cons (car freq-down1) freq-down0))) (setq freq-down1 (cdr freq-down1))) (wnn-bunsetsu-set-freq-down bunsetsu freq-down0)))) (defun wnn-merge-fi-rel (bunsetsu b-list) (let ((fi-rel (cons nil (wnn-bunsetsu-get-fi-rel bunsetsu)))) (if (eq bunsetsu (car b-list)) (setq b-list (cdr b-list))) (while b-list (nconc fi-rel (wnn-bunsetsu-get-fi-rel (car b-list))) (wnn-bunsetsu-set-fi-rel (car b-list) nil) (setq b-list (cdr b-list))) (wnn-bunsetsu-set-fi-rel bunsetsu (cdr fi-rel)))) (defun wnn-bunsetsu-combinable-p (bunsetsu1 bunsetsu2) (eq (wnn-bunsetsu-get-env bunsetsu1) (wnn-bunsetsu-get-env bunsetsu2))) (defvar wnn-auto-save-dic-count 0) (defun wnn-end-conversion (bunsetsu-list abort) (unless abort (let* ((head (car bunsetsu-list)) (env (wnn-bunsetsu-get-env head))) (prog1 (if (wnnenv-is-wnn6 env) (progn (wnn-clear-now-flag bunsetsu-list) (wnn-merge-fi-rel head (cdr bunsetsu-list)) (wnnrpc-set-fi-priority env (wnn-bunsetsu-get-fi-rel head)) (wnn-optimize-in-local bunsetsu-list) (wnn-optimize-in-server bunsetsu-list)) (wnn-clear-now-flag bunsetsu-list) (wnn-count-up-frequency bunsetsu-list)) (setq wnn-auto-save-dic-count (1+ wnn-auto-save-dic-count)) (when (eq wnn-auto-save-dic-count wnn-auto-save-dictionaries) (wnn-save-dictionaries env) (setq wnn-auto-save-dic-count 0)))))) (defun wnn-clear-now-flag (bunsetsu-list) (let ((env (wnn-bunsetsu-get-env (car bunsetsu-list)))) (while bunsetsu-list (setq fd (wnn-bunsetsu-get-freq-down (car bunsetsu-list)) bunsetsu-list (cdr bunsetsu-list)) (while fd (wnnrpc-set-frequency env (caar fd) (cdar fd) (WNN-const IMA_OFF) (WNN-const HINDO_NOP)) (setq fd (cdr fd)))))) (defun wnn-count-up-frequency (bunsetsu-list) (let ((env (wnn-bunsetsu-get-env (car bunsetsu-list))) (context (wnn-null-context)) dic-no entry b) (while bunsetsu-list (setq b (car bunsetsu-list) bunsetsu-list (cdr bunsetsu-list) dic-no (wnn-bunsetsu-get-dic-no b) entry (wnn-bunsetsu-get-entry b) context (cons (wnn-context-create dic-no entry (wnn-bunsetsu-get-jirilen b) (wnn-bunsetsu-get-hinshi b) (wnn-bunsetsu-get-fuzokugo b) (wnn-bunsetsu-get-converted b) (wnn-bunsetsu-get-right-now b) (wnn-bunsetsu-get-freq b)) context)) (wnnrpc-set-frequency env dic-no entry (WNN-const IMA_ON) (WNN-const HINDO_INC))) (list (car context) (nth 1 context)))) (defun wnn-optimize-in-local (bunsetsu-list) (let ((env (wnn-bunsetsu-get-env (car bunsetsu-list))) b prev-b next-b major-top entry hinshi) (setq next-b (car bunsetsu-list) bunsetsu-list (cdr bunsetsu-list)) (cond ((eq (wnnenv-get-server-type env) 'jserver) (while next-b (setq major-top (null (and b (wnn-bunsetsu-get-dai-continue b))) prev-b b b next-b next-b (car bunsetsu-list) bunsetsu-list (cdr bunsetsu-list) hinshi (wnn-bunsetsu-get-hinshi b)) (when (or (and (/= (wnnenv-get-notrans env) (WNN-const DIC_RDONLY)) (= (wnn-bunsetsu-get-dic-no b) -1) (or (= (wnn-bunsetsu-get-entry b) (WNN-const HIRAGANA)) (= (wnn-bunsetsu-get-entry b) (WNN-const KATAKANA))) (>= (wnn-bunsetsu-get-jirilen b) (WNN-const LEARNING_LEN))) (= (wnn-bunsetsu-get-entry b) (WNN-const IKEIJI_ENTRY))) (setq entry (wnn-notrans-auto-learning b)) (when (/= entry -1) (wnn-bunsetsu-set-dic-no b (WNN-const MUHENKAN_DIC)) (wnn-bunsetsu-set-entry b entry))) (cond ((and next-b major-top (wnn-bunsetsu-get-dai-continue b)) (wnn-adjacent-learning b next-b)) ((and prev-b (= hinshi (wnnenv-get-hinshi env 'rendaku)) (equal (wnn-bunsetsu-get-fuzokugo prev-b) "")) (wnn-adjacent-learning prev-b b)) ((and next-b (= hinshi (wnnenv-get-hinshi env 'settou))) (wnn-adjacent-learning b next-b)) ((and (/= (wnnenv-get-bmodify env) (WNN-const DIC_RDONLY)) (wnn-bunsetsu-get-change-top b) next-b (/= (wnn-bunsetsu-get-hinshi next-b) (wnnenv-get-hinshi env 'rendaku)) (/= hinshi (wnnenv-get-hinshi env 'settou))) (wnn-bmodify-learning b next-b))))) ((eq (wnnenv-get-server-type env) 'kserver) ;; Soory, not implemented nil)))) (defun wnn-notrans-auto-learning (bunsetsu) (let ((env (wnn-bunsetsu-get-env bunsetsu))) (wnnrpc-auto-learning env (WNN-const NOTRANS_LEARN) (wnn-bunsetsu-get-yomi bunsetsu) (wnn-bunsetsu-get-converted bunsetsu) "" (if (= (wnn-bunsetsu-get-entry bunsetsu) (WNN-const IKEIJI_ENTRY)) (wnn-bunsetsu-get-hinshi bunsetsu) (wnnenv-get-hinshi env 'noun)) 0))) (defun wnn-adjacent-learning (bunsetsu1 bunsetsu2) (let ((env (wnn-bunsetsu-get-env bunsetsu1)) (yomi (concat (wnn-bunsetsu-get-yomi bunsetsu1) (wnn-bunsetsu-get-yomi bunsetsu2))) (kanji (concat (wnn-bunsetsu-get-converted bunsetsu1) (wnn-bunsetsu-get-converted bunsetsu2))) (hinshi (wnnenv-get-hinshi env 'noun))) (if (= (wnnenv-get-bmodify env) (WNN-const DIC_RW)) (wnnrpc-auto-learning env (WNN-const BMODIFY_LEARN) yomi kanji "" hinshi 0) (wnnrpc-temporary-learning env yomi kanji "" hinshi 0)))) (defun wnn-bmodify-learning (bunsetsu1 bunsetsu2) (let ((env (wnn-bunsetsu-get-env bunsetsu1)) (yomi (concat (wnn-bunsetsu-get-yomi bunsetsu1) (wnn-bunsetsu-get-fuzokugo bunsetsu1) (wnn-bunsetsu-get-yomi bunsetsu2))) (kanji (concat (wnn-bunsetsu-get-converted bunsetsu1) (wnn-bunsetsu-get-fuzokugo bunsetsu1) (wnn-bunsetsu-get-converted bunsetsu2))) (hinshi (wnn-bunsetsu-get-hinshi bunsetsu2))) (wnnrpc-auto-learning env (WNN-const BMODIFY_LEARN) yomi kanji "" hinshi 0))) (defun wnn-optimize-in-server (bunsetsu-list) (let ((env (wnn-bunsetsu-get-env (car bunsetsu-list))) (context (wnn-bunsetsu-get-context (car bunsetsu-list))) b) (when (eq (wnnenv-get-server-type env) 'jserver) (wnn-context-set-right-now (car context) (WNN-const HINDO_NOP)) (wnn-context-set-freq (car context) (WNN-const HINDO_NOP)) (wnn-context-set-right-now (nth 1 context) (WNN-const HINDO_NOP)) (wnn-context-set-freq (nth 1 context) (WNN-const HINDO_NOP)) (while bunsetsu-list (setq b (car bunsetsu-list) bunsetsu-list (cdr bunsetsu-list) context (cons (wnn-context-create (wnn-bunsetsu-get-dic-no b) (wnn-bunsetsu-get-entry b) (wnn-bunsetsu-get-jirilen b) (wnn-bunsetsu-get-hinshi b) (wnn-bunsetsu-get-fuzokugo b) (wnn-bunsetsu-get-converted b) (WNN-const IMA_ON) (WNN-const HINDO_INC)) context))) (prog1 (list (car context) (nth 1 context)) (wnnrpc-optimize-fi env (nreverse context)))))) (defun wnn-finalize-backend (lang &optional action) (let* ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (server-info (wnn-server-get-info lang)) (server-type (wnn-server-type server-info)) (env-list wnn-environments) env proc-list saved) (when server-type (while env-list (setq env (car env-list) env-list (cdr env-list)) (if (eq (wnnenv-get-server-type env) server-type) (condition-case err (progn (unless (memq (wnnenv-get-proc env) proc-list) (setq proc-list (cons (wnnenv-get-proc env) proc-list))) (unless (eq action 'disconnect-only) (unless saved (setq saved t) (message (egg-get-message 'wnn-dict-saving) (wnn-server-proc-name server-info))) (let ((inhibit-quit save-inhibit-quit)) (wnn-save-dictionaries env))) (unless (eq action 'save-only) (wnnrpc-disconnect env))) ((error quit) (message "signal %S occured when dictionary saving" err))))) (if saved (message (egg-get-message 'wnn-dict-saved) (wnn-server-proc-name server-info))) (unless (eq action 'save-only) (while proc-list (if (and (car proc-list) (eq (process-status (car proc-list)) 'open)) (wnnrpc-close (car proc-list))) (setq proc-list (cdr proc-list))))))) (defun wnn-close (lang) "Save dictionaries and close the Wnn session." (interactive (list (wnn-read-active-lang))) (or (listp lang) (setq lang (list lang))) (while lang (wnn-finalize-backend (car lang)) (setq lang (cdr lang)))) (defun wnn-disconnect (lang) "Disconnect the Wnn session without dictionary saving." (interactive (list (wnn-read-active-lang))) (or (listp lang) (setq lang (list lang))) (while lang (wnn-finalize-backend (car lang) 'disconnect-only) (setq lang (cdr lang)))) (defun wnn-dictionary-save (lang) "Save Wnn dictionaries." (interactive (list (wnn-read-active-lang))) (or (listp lang) (setq lang (list lang))) (while lang (wnn-finalize-backend (car lang) 'save-only) (setq lang (cdr lang)))) (defun wnn-read-active-lang () (let ((completion-ignore-case t) (env wnn-environments) langs server server-list) (while env (setq server (wnnenv-get-server-type (car env)) env (cdr env)) (if (null (memq server server-list)) (setq server-list (cons server server-list)))) (setq langs (delq nil (mapcar (lambda (info) (if (memq (wnn-server-type info) server-list) (wnn-server-language info))) wnn-server-info-list))) (if (<= (length langs) 1) langs (setq langs (cons (cons "All" langs) (mapcar (lambda (lang) (cons (symbol-name lang) lang)) langs))) (cdr (assoc (completing-read "language? " langs nil t nil nil "All") langs))))) ;; (defun wnn-comm-sentinel (proc reason) ; assume it is close (let ((inhibit-quit t)) (kill-buffer (process-buffer proc)) ;; delete env from the list. (setq wnn-environments (delq nil (mapcar (lambda (env) (if (null (eq (wnnenv-get-proc env) proc)) env)) wnn-environments))))) (defun wnn-open (server-info) "Establish the connection to WNN server. Return process object." ;; Open the session to WNN server, (let ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (server-type (wnn-server-type server-info)) (port (wnn-server-port server-info)) (hostname-list (wnn-server-hostname server-info)) (proc-name (wnn-server-proc-name server-info)) (msg-form "Wnn: connecting to %S at %s...") (user-name (user-login-name)) buf hostname myname port-off proc result msg) (unwind-protect (progn (setq buf (generate-new-buffer (wnn-server-buffer-name server-info))) (save-excursion (set-buffer buf) (erase-buffer) (buffer-disable-undo) (set-buffer-multibyte nil) (setq egg-fixed-euc (wnn-server-coding-system server-info))) (or (consp hostname-list) (setq hostname-list (list hostname-list))) (while (and hostname-list (null proc)) (setq hostname (or (car hostname-list) "") hostname-list (cdr hostname-list) myname (if (equal hostname "") "unix" wnn-system-name)) (if (null (string-match ":" hostname)) (setq port-off 0) (setq port-off (string-to-int (substring hostname (match-end 0))) hostname (substring hostname 0 (match-beginning 0)))) (and (equal hostname "") (setq hostname "localhost")) (let ((inhibit-quit save-inhibit-quit)) (if (and msg (null (y-or-n-p (format "%s failed. Try to %s? " msg hostname)))) (egg-error "abort connect"))) (setq msg (format "Wnn: connecting to %S at %s..." server-type hostname)) (message "%s" msg) (let ((inhibit-quit save-inhibit-quit)) (condition-case nil (setq proc (open-network-stream proc-name buf hostname (+ port port-off))) ((error quit)))) (when proc (process-kill-without-query proc) (set-process-coding-system proc 'binary 'binary) (set-process-sentinel proc 'wnn-comm-sentinel) (set-marker-insertion-type (process-mark proc) t) (setq result (wnnrpc-open proc myname user-name)) (when (numberp result) (delete-process proc) (setq proc nil)))) (cons proc result)) (if proc (message (concat msg "done")) (if buf (kill-buffer buf)) (egg-error 'wnn-connect-error))))) (defvar wnn-envspec-list nil) (defvar wnn-current-envspec nil) (defvar wnn-current-envspec-reverse nil) (defvar wnn-server-type nil) (defvar wnn-wnn6-server nil) (defmacro wnn-envspec-conv-param-name-list () ''(last-is-first complex okuri-learn okuri prefix-learn prefix suffix-learn common-learn freq-func numeric alphabet symbol yuragi rendaku bunsetsugiri muhenkan fi-relation-learn fi-freq-func)) (defmacro wnn-envspec-conv-param-length () (length (wnn-envspec-conv-param-name-list))) (defun wnn-envspec-create (env-name tankan stickey) (vector (and env-name (setq env-name (intern env-name))) (wnn-make-backend egg-language env-name) tankan stickey nil nil 0 (make-vector (wnn-envspec-conv-param-length) 0) (list nil) (list nil) (list nil))) (defsubst wnn-envspec-env-type (spec) (aref spec 0)) (defsubst wnn-envspec-backend (spec) (aref spec 1)) (defsubst wnn-envspec-tankan (spec) (aref spec 2)) (defsubst wnn-envspec-sticky (spec) (aref spec 3)) (defsubst wnn-envspec-param (spec) (aref spec 4)) (defsubst wnn-envspec-fuzokugo (spec) (aref spec 5)) (defsubst wnn-envspec-conv-vmask (spec) (aref spec 6)) (defsubst wnn-envspec-conv-param (spec) (aref spec 7)) (defsubst wnn-envspec-dic-list (spec) (cdr (aref spec 8))) (defsubst wnn-envspec-fi-dic-list (spec) (cdr (aref spec 9))) (defsubst wnn-envspec-autolearn-dic-list (spec) (cdr (aref spec 10))) (defsubst wnn-envspec-set-param (spec param) (aset spec 4 param)) (defsubst wnn-envspec-set-fuzokugo (spec fzk) (aset spec 5 fzk)) (defsubst wnn-envspec-set-conv-vmask (spec val) (aset spec 6 val)) (defsubst wnn-envspec-set-conv-param (spec num val) (aset (aref spec 7) num val)) (defsubst wnn-envspec-add-dic-list (spec &rest dic) (nconc (aref spec 8) (list (apply 'vector dic)))) (defsubst wnn-envspec-add-fi-dic-list (spec &rest dic) (nconc (aref spec 9) (list (apply 'vector dic)))) (defsubst wnn-envspec-add-autolearn-dic-list (spec type &rest dic) (nconc (aref spec 10) (list (cons type (apply 'vector dic))))) (eval-when-compile (defun wnn-conv-param (param) (- (wnn-envspec-conv-param-length) (length (memq param (wnn-envspec-conv-param-name-list)))))) (defmacro define-wnn-conv-param-func () (let ((name-list (wnn-envspec-conv-param-name-list)) (defs (list 'progn)) n set get) (while name-list (setq n (car name-list) name-list (cdr name-list) set (intern (format "wnn-envspec-set-conv-param-%s" n)) get (intern (format "wnn-get-conv-param-%s" n))) (nconc defs `((defsubst ,set (spec val) (wnn-envspec-set-conv-param spec ,(wnn-conv-param n) val) (wnn-envspec-set-conv-vmask spec (logior (wnn-envspec-conv-vmask spec) ,(lsh 1 (wnn-conv-param n))))) (defsubst ,get (param) (aref param ,(wnn-conv-param n)))))) defs)) (define-wnn-conv-param-func) (defmacro wnn-arg-type-error (func) `(egg-error ,(format "%s: Wrong type argument" func))) (defun wnn-define-environment (reverse &optional env-name tankan stickey) "Define a Wnn environment for normal/reverse conversion according to REVERSE. ENV-NAME specifies suffix of the Wnn environment name. Make single character conversion (Tan-Kanji conversion) environment, if tankan is non-NIL. Make the environment as sticky, if STICKEY is non-NIL." (if (and env-name (null (stringp env-name))) (wnn-arg-type-error wnn-define-environment)) (setq env-name (if reverse (concat env-name "R") env-name) wnn-current-envspec (wnn-envspec-create env-name tankan stickey) wnn-current-envspec-reverse reverse wnn-envspec-list (nconc wnn-envspec-list (list wnn-current-envspec)))) (defun wnn-set-fuzokugo (filename) (cond ((equal filename "") (setq filename nil)) ((null (stringp filename)) (wnn-arg-type-error wnn-set-fuzokugo))) (wnn-envspec-set-fuzokugo wnn-current-envspec filename)) (defmacro wnn-add-dict-param-check (func dict &optional freq prior drw dmax frw fmax dpass fpass rev) `(progn (if (or (and (null (stringp ,dict)) (null (stringp (car-safe ,dict)))) ,@(if freq `((and ,freq (null (stringp ,freq)) (null (stringp (car-safe ,freq)))))) ,@(if prior `((null (integerp ,prior)))) ,@(if drw `((null (or (eq ,drw nil) (eq ,drw t) (eq ,drw 0) (eq ,drw 1) ,@(if dmax `((and wnn-wnn6-server ,@(let ((x `((eq ,drw 2)))) (when (>= dmax 3) (nconc x `((eq ,drw 3)))) (when (>= dmax 4) (nconc x `((eq ,drw 4)))) x)))))))) ,@(if frw `((null (or (eq ,frw nil) (eq ,frw t) (eq ,frw 0) (eq ,frw 1) ,@(if fmax `((and wnn-wnn6-server ,@(let ((x `((eq ,frw 2)))) (when (>= fmax 3) (nconc x `((eq ,frw 3)))) (when (>= fmax 4) (nconc x `((eq ,frw 4)))) x)))))))) ,@(if dpass `((and ,dpass (null (stringp ,dpass))))) ,@(if fpass `((and ,fpass (null (stringp ,fpass)))))) (wnn-arg-type-error ,func)) (if (or (equal ,dict "") (equal (car-safe ,dict) "")) (egg-error ,(format "%s: Dictionary name should not be null." func))) ,@(if freq `((if (or (equal ,freq "") (equal (car-safe ,freq) "")) (setq ,freq nil)))) ,@(if rev `((setq ,rev (if ,rev (car ,rev) wnn-current-envspec-reverse)))))) (defmacro wnn-wnn6-env-func (func) `(or wnn-wnn6-server (egg-error ,(format "%s is available only on Wnn6" func)))) (defun wnn-add-dict (dict freq priority dict-rw freq-rw &optional dict-passwd freq-passwd &rest reverse) (wnn-add-dict-param-check wnn-add-dict dict freq priority dict-rw 4 freq-rw 2 dict-passwd freq-passwd reverse) (wnn-envspec-add-dic-list wnn-current-envspec dict freq priority dict-rw freq-rw dict-passwd freq-passwd reverse)) (defun wnn-add-fisys-dict (dict freq freq-rw &optional freq-passwd) (wnn-wnn6-env-func wnn-add-fisys-dict) (wnn-add-dict-param-check wnn-add-fisys-dict dict freq nil nil nil freq-rw 3 nil freq-passwd) (wnn-envspec-add-fi-dic-list wnn-current-envspec dict freq t nil freq-rw nil freq-passwd nil)) (defun wnn-add-fiusr-dict (dict freq dict-rw freq-rw &optional dict-passwd freq-passwd) (wnn-wnn6-env-func wnn-add-fiusr-dict) (wnn-add-dict-param-check wnn-add-fiusr-dict dict freq nil dict-rw 3 freq-rw 3 dict-passwd freq-passwd) (wnn-envspec-add-fi-dic-list wnn-current-envspec dict freq nil dict-rw freq-rw dict-passwd freq-passwd nil)) (defun wnn-add-notrans-dict (dict priority dict-rw &optional dict-passwd &rest reverse) (wnn-wnn6-env-func wnn-add-notrans-dict) (wnn-add-dict-param-check wnn-add-notrans-dict dict nil priority dict-rw nil nil nil dict-passwd nil reverse) (wnn-envspec-add-autolearn-dic-list wnn-current-envspec (WNN-const NOTRANS_LEARN) dict nil priority dict-rw nil dict-passwd nil reverse)) (defun wnn-add-bmodify-dict (dict priority dict-rw &optional dict-passwd &rest reverse) (wnn-wnn6-env-func wnn-add-notrans-dict) (wnn-add-dict-param-check wnn-add-bmodify-dict dict nil priority dict-rw nil nil nil dict-passwd nil reverse) (wnn-envspec-add-autolearn-dic-list wnn-current-envspec (WNN-const BMODIFY_LEARN) dict nil priority dict-rw nil dict-passwd nil reverse)) (defun wnn-set-param (&rest args) (if (/= (length args) 17) (egg-error "wnn-set-param: Wrong number of arguments")) (mapcar (lambda (n) (if (null (integerp n)) (wnn-arg-type-error wnn-set-param))) args) (wnn-envspec-set-param wnn-current-envspec (apply 'vector args))) (defmacro wnn-boolean-param-check (func flag) `(setq ,flag (cond ((or (eq ,flag 0) (eq ,flag nil)) 0) ((or (eq ,flag 1) (eq ,flag t)) 1) (t (wnn-arg-type-error ,func))))) (defun wnn-set-last-is-first-mode (flag) (wnn-wnn6-env-func wnn-set-last-is-first-mode) (wnn-boolean-param-check wnn-set-last-is-first-mode flag) (wnn-envspec-set-conv-param-last-is-first wnn-current-envspec flag)) (defun wnn-set-complex-conv-mode (flag) (wnn-wnn6-env-func wnn-set-complex-conv-mode) (wnn-boolean-param-check wnn-set-complex-conv-mode flag) (wnn-envspec-set-conv-param-complex wnn-current-envspec flag)) (defun wnn-set-okuri-learn-mode (flag) (wnn-wnn6-env-func wnn-set-okuri-learn-mode) (wnn-boolean-param-check wnn-set-okuri-learn-mode flag) (wnn-envspec-set-conv-param-okuri-learn wnn-current-envspec flag)) (defun wnn-set-okuri-flag (mode) (wnn-wnn6-env-func wnn-set-okuri-flag) (setq mode (cond ((or (eq mode -1) (eq mode 'regulation)) -1) ((or (eq mode 0) (eq mode 'no)) 0) ((or (eq mode 1) (eq mode 'yes)) 1) (t (wnn-arg-type-error wnn-set-okuri-flag)))) (wnn-envspec-set-conv-param-okuri wnn-current-envspec mode)) (defun wnn-set-prefix-learn-mode (flag) (wnn-wnn6-env-func wnn-set-prefix-learn-mode) (wnn-boolean-param-check wnn-set-prefix-learn-mode flag) (wnn-envspec-set-conv-param-prefix-learn wnn-current-envspec flag)) (defun wnn-set-prefix-flag (mode) (wnn-wnn6-env-func wnn-set-prefix-flag) (setq mode (cond ((or (eq mode 0) (eq mode 'hiragana)) 0) ((or (eq mode 1) (eq mode 'kanji)) 1) (t (wnn-arg-type-error wnn-set-prefix-flag)))) (wnn-envspec-set-conv-param-prefix wnn-current-envspec mode)) (defun wnn-set-suffix-learn-mode (flag) (wnn-wnn6-env-func wnn-set-suffix-learn-mode) (wnn-boolean-param-check wnn-set-suffix-learn-mode flag) (wnn-envspec-set-conv-param-suffix-learn wnn-current-envspec flag)) (defun wnn-set-common-learn-mode (flag) (wnn-wnn6-env-func wnn-set-common-learn-mode) (wnn-boolean-param-check wnn-set-common-learn-mode flag) (wnn-envspec-set-conv-param-common-learn wnn-current-envspec flag)) (defun wnn-set-freq-func-mode (mode) (wnn-wnn6-env-func wnn-set-freq-func-mode) (setq mode (cond ((or (eq mode 0) (eq mode 'not)) 0) ((or (eq mode 1) (eq mode 'always)) 1) ((or (eq mode 2) (eq mode 'high)) 2) ((or (eq mode 3) (eq mode 'normal)) 3) ((or (eq mode 4) (eq mode 'low)) 4) (t (wnn-arg-type-error wnn-set-freq-func-mode)))) (wnn-envspec-set-conv-param-freq-func wnn-current-envspec mode)) (defun wnn-set-numeric-mode (mode) (wnn-wnn6-env-func wnn-set-numeric-mode) (setq mode (cond ((or (eq mode -2) (eq mode 'han)) -2) ((or (eq mode -12) (eq mode 'zen)) -12) ((or (eq mode -13) (eq mode 'kan)) -13) ((or (eq mode -15) (eq mode 'kansuuji)) -15) ((or (eq mode -16) (eq mode 'kanold)) -16) ((or (eq mode -17) (eq mode 'hancan)) -17) ((or (eq mode -18) (eq mode 'zencan)) -18) (t (wnn-arg-type-error wnn-set-numeric-mode)))) (wnn-envspec-set-conv-param-numeric wnn-current-envspec mode)) (defun wnn-set-alphabet-mode (mode) (wnn-wnn6-env-func wnn-set-alphabet-mode) (setq mode (cond ((or (eq mode -4) (eq mode 'han)) -4) ((or (eq mode -30) (eq mode 'zen)) -30) (t (wnn-arg-type-error wnn-set-alphabet-mode)))) (wnn-envspec-set-conv-param-alphabet wnn-current-envspec mode)) (defun wnn-set-symbol-mode (mode) (wnn-wnn6-env-func wnn-set-symbol-mode) (setq mode (cond ((or (eq mode -5) (eq mode 'han)) -5) ((or (eq mode -40) (eq mode 'jis)) -40) ((or (eq mode -41) (eq mode 'asc)) -41) (t (wnn-arg-type-error wnn-set-symbol-mode)))) (wnn-envspec-set-conv-param-symbol wnn-current-envspec mode)) (defun wnn-set-yuragi-mode (flag) (wnn-wnn6-env-func wnn-set-yuragi-mode) (wnn-boolean-param-check wnn-set-yuragi-mode flag) (wnn-envspec-set-conv-param-yuragi wnn-current-envspec flag)) (defun wnn-set-rendaku-mode (flag) (wnn-wnn6-env-func wnn-set-rendaku-mode) (wnn-boolean-param-check wnn-set-rendaku-mode flag) (wnn-envspec-set-conv-param-rendaku wnn-current-envspec flag)) (defun wnn-renbunsetsu-conversion (env yomi hinshi fuzokugo v context) (let ((result (cond ((wnnenv-get-tankan env) (wnnrpc-tanbunsetsu-conversion env yomi hinshi fuzokugo v)) ((wnnenv-is-wnn6 env) (wnnrpc-fi-renbunsetsu-conversion env yomi hinshi fuzokugo v context)) (t (wnnrpc-renbunsetsu-conversion env yomi hinshi fuzokugo v))))) (prog1 result (if wnn-one-level-conversion (while (consp result) (wnn-bunsetsu-set-dai-continue (car result) nil) (setq result (cdr result))))))) (defun wnn-tanbunsetsu-conversion (env yomi hinshi fuzokugo v major) (if (or (null major) wnn-one-level-conversion (wnnenv-get-tankan env)) (wnnrpc-tanbunsetsu-conversion env yomi hinshi fuzokugo v) (wnnrpc-daibunsetsu-conversion env yomi hinshi fuzokugo v))) (defun wnn-get-bunsetsu-candidates (env yomi hinshi fuzokugo v major) (cond ((or wnn-one-level-conversion (wnnenv-get-tankan env)) (let ((result (wnnrpc-get-bunsetsu-candidates env yomi hinshi fuzokugo v))) (prog1 result (while (consp result) (wnn-bunsetsu-set-dai-continue (caar result) nil) (setq result (cdr result)))))) ((null major) (wnnrpc-get-bunsetsu-candidates env yomi hinshi fuzokugo v)) (t (wnnrpc-get-daibunsetsu-candidates env yomi hinshi fuzokugo v)))) (defsubst wnn-filename (p) (substitute-in-file-name (if (consp p) (concat wnn-usr-dic-dir "/" (car p)) p))) (defsubst wnn-client-file-p (filename) (and (stringp filename) (= (aref filename 0) ?!))) (defsubst wnn-client-filename (filename) (substitute-in-file-name (expand-file-name (substring filename 1) "~"))) (defun wnn-open-file (env filename) "Open the file FILENAME on the environment ENV. Return file ID. NIL means NO-file. On failure, return negative error code." (and filename (if (wnn-client-file-p filename) (wnnrpc-file-send env (wnn-client-filename filename)) (wnnrpc-file-read env (wnn-filename filename))))) (defun wnn-create-directory (env path noquery) "Create directory to the path. Retun non-NIL value on success." (if (wnn-client-file-p path) (let ((local-name (directory-file-name (file-name-directory (wnn-client-filename path))))) (cond ((file-directory-p local-name) t) ((or noquery (y-or-n-p (format (egg-get-message 'wnn-dir-missing) (file-name-directory path)))) (make-directory local-name t) (if (file-directory-p local-name) (progn (message (egg-get-message 'wnn-dir-created) path) t) (message (egg-get-message 'wnn-dir-failed) path) nil)))) (let ((name (directory-file-name (file-name-directory (wnn-filename path)))) create-list) (setq path name) (while (and name (/= (wnnrpc-access env name 0) 0)) (setq create-list (cons name create-list) name (file-name-directory name) name (and name (directory-file-name name)))) (or (null create-list) (if (or noquery (y-or-n-p (format (egg-get-message 'wnn-dir-missing) path))) (let ((result 0)) (while (and (>= result 0) create-list) (setq result (wnnrpc-mkdir env (car create-list)) create-list (cdr create-list))) (if (>= result 0) (progn (message (egg-get-message 'wnn-dir-created) path) t) (message (egg-get-message 'wnn-dir-failed) path) nil))))))) (defun wnn-file-remove (proc filename passwd) (let ((result (if (wnn-client-file-p filename) (wnnrpc-file-remove-client proc (wnn-client-filename filename) passwd) (wnnrpc-file-remove proc (wnn-filename filename) passwd)))) (or (= result 0) (progn (message (wnnrpc-get-error-message (- result))) nil)))) (defun wnn-open-dictionary (env fi name rw comment dpasswd fpasswd &optional noquery) (let ((dic-id (wnn-open-file env name))) (cond ((null dic-id) (message "Wnn: cannot omit dictionary name") nil) ((>= dic-id 0) dic-id) ((or (null rw) (/= dic-id (- (WNN-const NO_EXIST)))) (message (egg-get-message 'wnn-dict-missing-1) name (wnnrpc-get-error-message (- dic-id))) nil) ((and (or noquery (y-or-n-p (format (egg-get-message 'wnn-dict-missing-2) name))) (wnn-create-directory env name noquery) (wnn-create-dictionary env name (wnnrpc-writable-dic-type env fi rw) comment dpasswd fpasswd)) (message (egg-get-message 'wnn-dict-created) name) (setq dic-id (wnn-open-file env name)) (if (>= dic-id 0) dic-id (message "%s" (wnnrpc-get-error-message (- dic-id))) nil))))) (defun wnn-create-dictionary (env name type comment dpasswd fpasswd) "Create a dictionary file on the server or the client depending on name." (let ((result (if (wnn-client-file-p name) (wnnrpc-dic-file-create-client env (wnn-client-filename name) type comment dpasswd fpasswd) (wnnrpc-dic-file-create env (wnn-filename name) type comment dpasswd fpasswd)))) (or (= result 0) (progn (message (wnnrpc-get-error-message (- result))) nil)))) (defun wnn-open-frequency (env fi dic-id name rw comment passwd) (let ((freq-id (wnn-open-file env name))) (cond ((null freq-id) -1) ((>= freq-id 0) freq-id) ((or (null rw) (/= freq-id (- (WNN-const NO_EXIST)))) (message (egg-get-message 'wnn-freq-missing-1) name (wnnrpc-get-error-message (- freq-id))) nil) ((and (y-or-n-p (format (egg-get-message 'wnn-freq-missing-2) name)) (wnn-create-directory env name nil) (wnn-create-frequency env fi dic-id name comment passwd)) (message (egg-get-message 'wnn-freq-created) name) (setq freq-id (wnn-open-file env name)) (if (>= freq-id 0) freq-id (message "%s" (wnnrpc-get-error-message (- dic-id))) nil))))) (defun wnn-create-frequency (env fi dic-id name comment passwd) "Create a frequency file on the server or the client depending on name." (let ((result (if (wnn-client-file-p name) (wnnrpc-hindo-file-create-client env fi dic-id (wnn-client-filename name) comment passwd) (wnnrpc-hindo-file-create env fi dic-id (wnn-filename name) comment passwd)))) (or (= result 0) (progn (message (wnnrpc-get-error-message (- result))) nil)))) (defun wnn-set-dictionary (env fi dic-spec) "" (let ((dname (aref dic-spec 0)) (fname (aref dic-spec 1)) (prior (aref dic-spec 2)) (drw (aref dic-spec 3)) (frw (aref dic-spec 4)) (dpass (aref dic-spec 5)) (fpass (aref dic-spec 6)) (rev (aref dic-spec 7)) did fid result) (cond ((numberp (setq dpass (wnnrpc-read-passwd-file dpass))) (message "%s" (wnnrpc-get-error-message (- dpass))) nil) ((numberp (setq fpass (if fname (wnnrpc-read-passwd-file fpass) ""))) (message "%s" (wnnrpc-get-error-message (- fpass))) nil) ((and (setq did (wnn-open-dictionary env fi dname drw "" dpass fpass)) (setq fid (wnn-open-frequency env fi did fname frw "" fpass))) (if fi (setq result (wnnrpc-set-fi-dictionary env did fid prior drw frw dpass fpass)) (setq drw (cond ((eq drw (WNN-const DIC_GROUP)) (WNN-const DIC_RW)) ((eq drw (WNN-const DIC_MERGE)) (WNN-const DIC_RDONLY)) (t drw)) result (wnnrpc-set-dictionary env did fid prior drw frw dpass fpass rev))) (cond ((>= result 0) t) ((or (null frw) (/= result (- (WNN-const NO_MATCH)))) (message "%s (%s): %s" dname (if fname fname "") (wnnrpc-get-error-message (- result))) nil) ((and (y-or-n-p (format (egg-get-message 'wnn-no-match) fname)) (>= (wnnrpc-file-discard env fid) 0) (wnn-file-remove proc fname fpass) (wnn-create-frequency env fi did fname "" fpass)) (message (egg-get-message 'wnn-re-create-freq) fname) (and (>= (setq fid (wnn-open-file env fname)) 0) (>= (wnnrpc-set-dictionary env did fid prior drw frw dpass fpass rev) 0)))))))) (defun wnn-temporary-dic-add (env rev) (let ((result (wnnrpc-temporary-dic-loaded env))) (if (= result 0) (wnnrpc-temporary-dic-add env rev) result))) (defun wnn-set-autolearn-dictionary (env type dic-spec) (let ((dname (aref dic-spec 0)) (prior (aref dic-spec 2)) (drw (aref dic-spec 3)) (dpass (aref dic-spec 5)) (rev (aref dic-spec 7)) (did (wnnrpc-get-autolearning-dic env type)) result) (or (numberp drw) (setq drw (if drw 0 1))) (cond ((< did 0) (message "%s" (wnnrpc-get-error-message (- did))) nil) ((> did 0) (setq result (wnn-temporary-dic-add env rev)) (if (>= result 0) drw (message "%s" (wnnrpc-get-error-message (- result))) nil)) ((numberp (setq dpass (wnnrpc-read-passwd-file dpass))) (message "%s" (wnnrpc-get-error-message (- dpass))) nil) ((setq did (wnn-open-dictionary env nil dname t "" dpass "" t)) (if (and (>= (setq did (wnnrpc-set-dictionary env did -1 prior drw drw dpass "" rev)) 0) (>= (setq did (wnnrpc-set-autolearning-dic env type did)) 0) (>= (setq did (wnn-temporary-dic-add env rev)) 0)) drw (message "%s" (wnnrpc-get-error-message (- did))) nil))))) (defun wnn-search-environment (backend) (let ((env-list wnn-environments) env) (while (and (null env) env-list) (setq env (and (eq (wnnenv-get-backend (car env-list)) backend) (car env-list)) env-list (cdr env-list))) env)) (defun wnn-v3-eggrc-defines () (if (null (fboundp 'set-wnn-reverse)) (progn (fset 'set-wnn-reverse (lambda (arg) (wnn-define-environment arg (and (or (eq wnn-server-type 'cserver) (eq wnn-server-type 'tserver)) "PZ")))) (fset 'is-wnn6-server (lambda () wnn-wnn6-server)) (fset 'set-wnn-fuzokugo 'wnn-set-fuzokugo) (fset 'add-wnn-dict 'wnn-add-dict) (fset 'set-wnn-param 'wnn-set-param) (fset 'add-wnn-fisys-dict 'wnn-add-fisys-dict) (fset 'add-wnn-fiusr-dict 'wnn-add-fiusr-dict) (fset 'add-wnn-notrans-dict 'wnn-add-notrans-dict) (fset 'add-wnn-bmodify-dict 'wnn-add-bmodify-dict) (fset 'set-last-is-first-mode 'wnn-set-last-is-first-mode) (fset 'set-complex-conv-mode 'wnn-set-complex-conv-mode) (fset 'set-okuri-flag 'wnn-set-okuri-flag) (fset 'set-prefix-learn-mode 'wnn-set-prefix-learn-mode) (fset 'set-suffix-learn-mode 'wnn-set-suffix-learn-mode) (fset 'set-common-learn-mode 'wnn-set-common-learn-mode) (fset 'set-yuragi-mode 'wnn-set-yuragi-mode) (fset 'set-freq-func-mode 'wnn-set-freq-func-mode) (fset 'set-numeric-mode 'wnn-set-numeric-mode) (fset 'set-alphabet-mode 'wnn-set-alphabet-mode) (fset 'set-symbol-mode 'wnn-set-symbol-mode) (setq wnn-v3-defined t)))) (defun wnn-get-environment (backend) "Return Wnn Environemt for BACKEND. If none, create new environment." (let ((env (wnn-search-environment backend)) proc error) (or env (unwind-protect (let* ((language (wnn-backend-get-language backend)) (server-info (wnn-server-get-info language)) (server-type (wnn-server-type server-info)) version specs) (setq proc (wnn-open server-info) version (cdr proc) proc (car proc) wnn-envspec-list nil) (condition-case err (let ((wnn-server-type server-type) (wnn-wnn6-server (eq version 'wnn6))) (if wnn-use-v3-eggrc (wnn-v3-eggrc-defines)) (egg-load-startup-file 'wnn language)) (egg-error (setq error err) (signal (car error) (cdr error)))) (setq specs wnn-envspec-list) (while specs (wnn-create-environment proc server-type version (car specs)) (setq specs (cdr specs))) (setq env (wnn-search-environment backend))) (if (and proc (null env)) (progn (wnnrpc-close proc) (if error (signal (car error) (cdr error)) (egg-error 'wnn-fail-make-env)))))))) ;; Create a new environment in the conversion server, if necessary. (defun wnn-create-environment (proc server-type version spec) (let* ((save-inhibit-quit inhibit-quit) (inhibit-quit t) (name (wnn-make-env-name spec)) (backend (wnn-envspec-backend spec)) (tankan (wnn-envspec-tankan spec)) (sticky (wnn-envspec-sticky spec)) (parameter (wnn-envspec-param spec)) (fzk (wnn-envspec-fuzokugo spec)) (dic-list (wnn-envspec-dic-list spec)) (fi-dic-list (wnn-envspec-fi-dic-list spec)) (autolearn-dic-list (wnn-envspec-autolearn-dic-list spec)) exist env-id env fid cvmask param mode type dic-spec) (condition-case err (progn (setq exist (wnnrpc-env-exist proc name) env-id (wnnrpc-connect proc name)) (if (< env-id 0) (egg-error "%s" (wnnrpc-get-error-message (- env-id)))) (setq env (wnnenv-create proc env-id server-type version backend tankan name)) (cond ((or wnn-force-set-environment (= exist 0)) (let ((inhibit-quit save-inhibit-quit)) (and fzk (or (< (setq fid (wnn-open-file env fzk)) 0) (< (setq fid (wnnrpc-set-fuzokugo-file env fid)) 0)) (message "%s" (wnnrpc-get-error-message (- fid)))) (while fi-dic-list (wnn-set-dictionary env t (car fi-dic-list)) (setq fi-dic-list (cdr fi-dic-list))) (while dic-list (wnn-set-dictionary env nil (car dic-list)) (setq dic-list (cdr dic-list))) (while autolearn-dic-list (setq type (caar autolearn-dic-list) dic-spec (cdar autolearn-dic-list) autolearn-dic-list (cdr autolearn-dic-list) mode (wnn-set-autolearn-dictionary env type dic-spec)) (if mode (if (eq type (WNN-const NOTRANS_LEARN)) (progn (wnnenv-set-notrans env mode) (wnn-envspec-set-conv-param-muhenkan spec mode)) (wnnenv-set-bmodify env mode) (wnn-envspec-set-conv-param-bunsetsugiri spec mode)))) (if parameter (wnnrpc-set-conversion-parameter env parameter)) (setq cvmask (wnn-envspec-conv-vmask spec) param (wnn-envspec-conv-param spec)) (if (/= cvmask 0) (wnnrpc-set-conversion-env-param env cvmask param)))) ((eq version 'wnn6) (wnnenv-set-bmodify env (wnn-get-autolearning-dic-mode env (WNN-const BMODIFY_LEARN))) (wnnenv-set-notrans env (wnn-get-autolearning-dic-mode env (WNN-const NOTRANS_LEARN))))) (cond ((eq (wnnenv-get-server-type env) 'jserver) (wnn-set-hinshi env 'noun "$BL>;l(B") (when (wnnenv-is-wnn6 env) (wnn-set-hinshi env 'settou "$B@\F,8l(B($B$*(B)") (wnn-set-hinshi env 'rendaku "$BO"By(B"))) ((eq (wnnenv-get-server-type env) 'cserver) (wnn-set-hinshi env 'noun "$AFUM(C{(B")) ((eq (wnnenv-get-server-type env) 'tserver) (wnn-set-hinshi env 'noun "$(G_[]WGX(B")) ((eq (wnnenv-get-server-type env) 'kserver) (wnn-set-hinshi env 'noun "$(CY#^r(B"))) (if sticky (wnnrpc-make-env-sticky env) (wnnrpc-make-env-unsticky env)) (setq wnn-environments (nconc wnn-environments (list env)))) ((egg-error quit) (if (eq (car err) 'egg-error) (message "%s" (nth 1 err))) (if env (progn (wnnrpc-disconnect env) (setq wnn-environments (delq env wnn-environments)))) (if (eq (car err) 'quit) (signal 'quit (cdr err))))))) (defun wnn-make-env-name (spec) (let ((env-type (wnn-envspec-env-type spec))) (concat wnn-user-name (if env-type (symbol-name env-type) "")))) (defun wnn-set-hinshi (env sym name) (let ((hinshi (wnnrpc-hinshi-number (wnnenv-get-proc env) name))) (if (>= hinshi 0) (wnnenv-set-hinshi env sym hinshi)))) (defsubst wnn-dicinfo-entry (info) (aref info 0)) (defsubst wnn-dicinfo-id (info freq) (aref info (+ 1 freq))) (defsubst wnn-dicinfo-mode (info freq) (aref info (+ 3 freq))) (defsubst wnn-dicinfo-enable (info) (aref info 5)) (defsubst wnn-dicinfo-nice (info) (aref info 6)) (defsubst wnn-dicinfo-reverse (info) (aref info 7)) (defsubst wnn-dicinfo-comment (info) (aref info 8)) (defsubst wnn-dicinfo-name (info freq) (aref info (+ 9 freq))) (defsubst wnn-dicinfo-passwd (info freq) (aref info (+ 11 freq))) (defsubst wnn-dicinfo-type (info) (aref info 13)) (defsubst wnn-dicinfo-words (info) (aref info 14)) (defsubst wnn-dicinfo-local (info freq) (aref info (+ 15 freq))) (defun wnn-get-autolearning-dic-mode (env type) (let* ((dic (wnnrpc-get-autolearning-dic env type)) (info (and (> dic 0) (wnnrpc-get-dictionary-info env (1- dic))))) (if (vectorp (car-safe info)) (wnn-dicinfo-mode (car info) 0) (WNN-const DIC_RDONLY)))) (defun wnn-get-dictionary-list-with-environment (env) (if (wnnenv-is-wnn6 env) (wnnrpc-get-fi-dictionary-list-with-environment env (WNN-const DIC_NO_TEMPS)) (wnnrpc-get-dictionary-list-with-environment env))) (defun wnn-save-dictionaries (env) (let ((dic-list (wnn-get-dictionary-list-with-environment env)) (result 0) info freq fid name local-name) (while dic-list (setq info (car dic-list) dic-list (cdr dic-list) freq 0) (while (<= freq 1) (setq fid (wnn-dicinfo-id info freq) name (wnn-dicinfo-name info freq)) (if (and (> fid 0) (= (wnn-dicinfo-mode info freq) 0)) (cond ((= (wnn-dicinfo-local info freq) 1) (wnnrpc-write-file env fid name)) ((setq local-name (wnnenv-get-client-file env name)) (wnnrpc-file-receive env fid local-name)) ((and (setq local-name (wnn-file-loaded-client env name fid)) (file-writable-p local-name)) (wnnrpc-file-receive env fid local-name)))) (setq freq (1+ freq)))))) (defun wnn-file-loaded-client (env name fid) (let ((len (length wnn-system-name)) local-name) (and (> (length name) len) (equal (substring name 0 len) wnn-system-name) (prog1 (wnn-client-file-p (substring name len)) (setq local-name (wnn-client-filename (substring name len)))) (= (wnnrpc-file-loaded-local (wnnenv-get-proc env) local-name t) fid) local-name))) (defun wnn-word-inspection (bunsetsu) (let ((env (wnn-bunsetsu-get-env bunsetsu)) (converted (wnn-get-bunsetsu-converted bunsetsu)) (yomi (wnn-bunsetsu-get-yomi bunsetsu)) (fuzokugo (wnn-bunsetsu-get-fuzokugo bunsetsu)) (hinshi-no (wnn-bunsetsu-get-hinshi bunsetsu)) (dic-no (wnn-bunsetsu-get-dic-no bunsetsu)) (entry (wnn-bunsetsu-get-entry bunsetsu)) (now (wnn-bunsetsu-get-right-now bunsetsu)) (freq (wnn-bunsetsu-get-freq bunsetsu)) (evaluation (wnn-bunsetsu-get-evaluation bunsetsu)) (evaluation-dai (or (wnn-bunsetsu-get-dai-evaluation bunsetsu) "---")) (kangovect (wnn-bunsetsu-get-kangovect bunsetsu)) hinsi dic) (setq hinshi (wnnrpc-hinshi-name (wnnenv-get-proc env) hinshi-no)) (setq dic (if (>= dic-no 0) (wnn-dict-name (car (wnnrpc-get-dictionary-info env dic-no))) (egg-get-message 'wnn-pseud-bunsetsu))) (message "%s %s+%s(%s %s:%s Freq:%s%s) S:%s D:%s V:%s " converted yomi fuzokugo hinshi dic entry (if (= now 1) "*" " ") freq evaluation evaluation-dai kangovect))) ;;; not implemented yet (NIY) (defun wnn-delete-dictionary () (dj-delete-dic XXX)) ;;; NIY, might never be implemented (defun wnn-server-inspect ()) ;;; NIY (defun wnn-get-conversion-parameter () (js-get-parameter)) ;;; Dictionary management (word registration) is not implemented yet. (defun wnn-find-dictionary-by-id (id dic-list) (catch 'return (while dic-list (let ((dic (car dic-list))) (if (= (wnndic-get-id dic) id) (throw 'return dic) (setq dic-list (cdr dic-list))))))) (defun wnn-dict-name (dic-info) (let ((comment (wnndic-get-comment dic-info)) (name (wnndic-get-dictname dic-info))) (cond ((null (string= comment "")) comment) ((wnn-client-file-p name) name) (t (file-name-nondirectory name))))) (defun wnn-list-writable-dictionaries-byname (env) (let ((dic-list (wnn-get-dictionary-list-with-environment env)) (w-id-list (wnnrpc-get-writable-dictionary-id-list env))) (cond ((numberp w-id-list) (egg-error "%s" (wnnrpc-get-error-message (- w-id-list)))) ((null w-id-list) (egg-error 'wnn-no-writable-d)) (t (delq nil (mapcar (lambda (id) (let ((dic (wnn-find-dictionary-by-id id dic-list))) (and dic (cons (wnn-dict-name dic) dic)))) w-id-list)))))) (defun wnn-word-registration (backend kanji yomi) (let (env dic dic-id hinshi result) (if (or (null (eq (egg-get-language 0 kanji) (wnn-backend-get-converted-language backend))) (next-single-property-change 0 'egg-lang kanji) (null (eq (egg-get-language 0 yomi) (wnn-backend-get-source-language backend))) (next-single-property-change 0 'egg-lang yomi)) (egg-error "word registration: invalid character") (setq env (wnn-get-environment backend) dic (wnn-dictionary-select env) dic-id (wnndic-get-id dic) hinshi (wnn-hinshi-select env dic-id) result (wnnrpc-hinshi-number (wnnenv-get-proc env) hinshi)) (or (< result 0) (setq result (wnnrpc-add-word env dic-id yomi kanji "" result 0))) (if (>= result 0) (list hinshi (wnn-dict-name dic)) (egg-error (wnnrpc-get-error-message (- result))))))) (defun wnn-dictionary-select (env) (menudiag-select (list 'menu (egg-get-message 'wnn-register-1) (wnn-list-writable-dictionaries-byname env)))) (defun wnn-hinshi-select (env dic-id) (menudiag-select (wnn-make-hinshi-menu env dic-id "/" (egg-get-message 'wnn-register-2)))) (defun wnn-make-hinshi-menu (env dic-id hinshi prompt) (let ((hinshi-list (wnnrpc-get-hinshi-list env dic-id hinshi))) (if (numberp hinshi-list) (egg-error "%s" (wnnrpc-get-error-message (- hinshi-list))) (list 'menu (format (if (equal hinshi "/") "%s:" "%s[%s]:") prompt (substring hinshi 0 (1- (length hinshi)))) (mapcar (lambda (h) (if (= (aref h (1- (length h))) ?/) (cons h (wnn-make-hinshi-menu env dic-id h prompt)) h)) hinshi-list))))) ;;; setup (load "egg/wnnrpc") (run-hooks 'wnn-load-hook) ;;;###autoload (defun egg-activate-wnn (&rest arg) "Activate Wnn backend of Tamago 4." (apply 'egg-mode (append arg wnn-backend-alist))) ;;; egg/wnn.el ends here. egg-4.0.6+0.20041122cvs/egg/anthyipc.el0000644000764400003210000001400607524416651020365 0ustar ishikawaishikawa00000000000000;;; egg/anthyipc.el --- ANTHY IPC Support (low level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 2002 The Free Software Initiative of Japan ;; Author: NIIBE Yutaka ;; Maintainer: NIIBE Yutaka ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (defmacro anthyipc-call-with-proc (proc vlist send-expr &rest receive-exprs) `(let* ((proc ,proc) (buffer (process-buffer proc)) ,@vlist) (if (and (eq (process-status proc) 'run) (buffer-live-p buffer)) (save-excursion (set-buffer buffer) (erase-buffer) ,send-expr (goto-char (point-max)) (process-send-region proc (point-min) (point-max)) ,@receive-exprs) (egg-error "process %s was killed" proc)))) (defun anthyipc-wait-line () (let ((start (point))) (while (not (search-forward "\n" nil 1)) (accept-process-output proc 1000) (goto-char start)) (goto-char start))) (defun anthyipc-accept-ok () (anthyipc-wait-line) (if (eq (char-after) ?+) ;; "+OK" (goto-char (point-max)) (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) (defun anthyipc-accept-number () (anthyipc-wait-line) (if (eq (char-after) ?+) ;; "+OK " (progn (forward-char 4) (prog1 (read (current-buffer)) (goto-char (point-max)))) (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) (defun anthyipc-read-string () (if (eq (char-after) ?\ ) (forward-char 1)) (let ((start (point))) (while (and (char-after) (not (eq (char-after) ?\ )) (not (eq (char-after) ?\n))) (forward-char 1)) (buffer-substring start (point)))) (defun anthyipc-accept-segments (env seg-no-orig) (anthyipc-wait-line) (if (eq (char-after) ?+) (progn (forward-char 1) (if (eq (char-after) ?O) ;; "+OK" (progn (goto-char (point-max)) t) ;; "+DATA " ;; " "*N ;; "" ;; (forward-char 5) (let* ((seg-no (read (current-buffer))) (num-segments-removed (read (current-buffer))) (num-segments-inserted (read (current-buffer))) (segment-list nil) (in-loop t) (i seg-no)) (while in-loop (forward-char 1) (anthyipc-wait-line) (if (eq (char-after) ?\n) (setq in-loop nil) (let* ((num-candidates (read (current-buffer))) (converted (anthyipc-read-string)) (source (anthyipc-read-string)) (segment (anthy-make-bunsetsu env source converted i))) (setq i (1+ i)) (setq segment-list (cons segment segment-list))))) ;; XXX check if seg-no == seg-no-orig ;; XXX check inserted and length of segment-list??? (forward-char 1) (cons seg-no (cons num-segments-removed (reverse segment-list)))))) (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) (defun anthyipc-accept-candidates () (anthyipc-wait-line) (if (eq (char-after) ?+) (progn ;; "+DATA " ;; ""*N ;; "" (forward-char 6) (let* ((offset (read (current-buffer))) (num-candidates (read (current-buffer))) (candidate-list nil) (in-loop t)) (while in-loop (forward-char 1) (anthyipc-wait-line) (if (eq (char-after) ?\n) (setq in-loop nil) (let ((candidate (anthyipc-read-string))) (setq candidate-list (cons candidate candidate-list))))) ;; XXX check num-candidates and length of candidate-list??? (forward-char 1) (cons offset (reverse candidate-list)))) (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) (defun anthyipc-get-greeting (proc) (anthyipc-call-with-proc proc () nil (anthyipc-wait-line) (message (buffer-substring (point-min) (1- (point-max)))))) (defun anthyipc-new-context (proc) (anthyipc-call-with-proc proc () (insert "NEW-CONTEXT INPUT=#18 OUTPUT=#18\n") (anthyipc-accept-number))) (defun anthyipc-release-context (proc cont) (anthyipc-call-with-proc proc () (insert (format "RELEASE-CONTEXT %d\n" cont)) (anthyipc-accept-ok))) ;; Returns list of bunsetsu (defun anthyipc-convert (proc cont yomi) (anthyipc-call-with-proc proc () (insert (format "CONVERT %d %s\n" cont yomi)) (let ((r (anthyipc-accept-segments cont 0))) (cdr (cdr r))))) (defun anthyipc-commit (proc cont cancel) (anthyipc-call-with-proc proc () (insert (format "COMMIT %d %d\n" cont cancel)) (anthyipc-accept-ok))) ;;; Returns list of candidate (defconst anthy-max-candidates 9999) (defun anthyipc-get-candidates (proc cont seg-no) (anthyipc-call-with-proc proc () (insert (format "GET-CANDIDATES %d %d %d %d\n" cont seg-no 0 anthy-max-candidates)) (let ((r (anthyipc-accept-candidates))) (cdr r)))) ;;; Returns segments (defun anthyipc-select-candidate (proc cont seg-no candidate-no) (anthyipc-call-with-proc proc () (insert (format "SELECT-CANDIDATE %d %d %d\n" cont seg-no candidate-no)) (anthyipc-accept-segments cont seg-no))) ;;; Returns segments (defun anthyipc-resize-segment (proc cont seg-no inc-dec) (anthyipc-call-with-proc proc () (insert (format "RESIZE-SEGMENT %d %d %d\n" cont seg-no inc-dec)) (cddr (anthyipc-accept-segments cont seg-no)))) ;;; egg/anthyipc.el ends here. egg-4.0.6+0.20041122cvs/egg/anthy.el0000644000764400003210000001662110071211450017653 0ustar ishikawaishikawa00000000000000;;; egg/anthy.el --- ANTHY Support (high level interface) in Egg ;;; Input Method Architecture ;; Copyright (C) 2002 The Free Software Initiative of Japan ;; Author: NIIBE Yutaka ;; Maintainer: NIIBE Yutaka ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg) (require 'egg-edep) (defgroup anthy nil "Anthy interface for Tamago 4." :group 'egg) (setplist 'anthy-conversion-backend '(egg-start-conversion anthy-convert egg-get-bunsetsu-source anthy-get-bunsetsu-source egg-get-bunsetsu-converted anthy-get-bunsetsu-converted egg-list-candidates anthy-get-candidates egg-decide-candidate anthy-select-candidate egg-change-bunsetsu-length anthy-resize-segment egg-end-conversion anthy-commit ;; egg-get-source-language anthy-get-source-language egg-get-converted-language anthy-get-converted-language)) (defconst anthy-backend-alist '((Japanese ((anthy-conversion-backend))))) (egg-set-finalize-backend '(anthy-finalize-backend)) (defvar anthy-proc nil "Process of ANTHY helper agent.") ;; ::= ( ... ) ;; ;; ::= ;; ::= (defvar anthy-environment-pool nil "Environments for ANTHY kana-kanji conversion, to be used.") (defvar anthy-environments-in-use nil "Environments for ANTHY kana-kanji conversion, in use.") ;; ;; ::= ;; [ ] (defsubst anthy-make-bunsetsu (env source converted seg-no) (egg-bunsetsu-create 'anthy-conversion-backend (vector env source converted nil 0 seg-no))) (defsubst anthybunsetsu-get-env (b) (aref (egg-bunsetsu-get-info b) 0)) (defsubst anthybunsetsu-get-source (b) (aref (egg-bunsetsu-get-info b) 1)) (defsubst anthybunsetsu-get-converted (b) (aref (egg-bunsetsu-get-info b) 2)) (defsubst anthybunsetsu-get-candidates (b) (aref (egg-bunsetsu-get-info b) 3)) (defsubst anthybunsetsu-set-candidates (b z) (aset (egg-bunsetsu-get-info b) 3 z)) (defsubst anthybunsetsu-get-candidate-pos (b) (aref (egg-bunsetsu-get-info b) 4)) (defsubst anthybunsetsu-set-candidate-pos (b zp) (aset (egg-bunsetsu-get-info b) 4 zp)) (defsubst anthybunsetsu-get-seg-no (b) (aref (egg-bunsetsu-get-info b) 5)) (defun anthy-get-bunsetsu-source (b) (anthybunsetsu-get-source b)) (defun anthy-get-bunsetsu-converted (b) (let ((cands (anthybunsetsu-get-candidates b))) (if cands (nth (anthybunsetsu-get-candidate-pos b) cands) (anthybunsetsu-get-converted b)))) (defun anthy-get-source-language (b) 'Japanese) (defun anthy-get-converted-language (b) 'Japanese) ;; Getting new context-descriptor, and returns environment with 'inuse' bit (defun anthy-new-environment () (if (null anthy-proc) (let ((buf (generate-new-buffer " *ANTHY*")) (process-connection-type nil)) ; avoid using pty (setq anthy-proc (start-process "anthy-agent" buf "anthy-agent" "--egg")) (process-kill-without-query anthy-proc) (set-process-coding-system anthy-proc 'euc-jp-dos 'euc-jp-dos) (set-process-sentinel anthy-proc 'anthy-proc-sentinel) (set-marker-insertion-type (process-mark anthy-proc) t) (save-excursion (set-buffer buf) (erase-buffer) (buffer-disable-undo)) (anthyipc-get-greeting anthy-proc))) (anthyipc-new-context anthy-proc)) ;;; XXX: Don't kill buffer (for now) so that I can debug this program (defun anthy-proc-sentinel (proc reason) ; (kill-buffer (process-buffer proc)) (setq anthy-proc nil anthy-environments-in-use nil anthy-environment-pool nil)) ;;; anthyipc-release-context (defun anthy-get-environment () "Return the ANTHY environment." (if anthy-environment-pool (let ((env (car anthy-environment-pool))) (setq anthy-environment-pool (cdr anthy-environment-pool)) (setq anthy-environments-in-use (cons env anthy-environments-in-use)) env) (let ((env (anthy-new-environment))) (setq anthy-environments-in-use (cons env anthy-environments-in-use)) env))) ;; ;; Returns list of bunsetsu ;; (defun anthy-convert (backend yomi &optional context) "Convert YOMI string to kanji, and enter conversion mode. Return the list of bunsetsu." (let ((env (anthy-get-environment))) (anthyipc-convert anthy-proc env yomi))) ;; ;; ;; (defun anthy-commit (bunsetsu-list abort) (let ((env (anthybunsetsu-get-env (car bunsetsu-list)))) (anthyipc-commit anthy-proc env (if abort 1 0)) (setq anthy-environment-pool (cons env anthy-environment-pool)) (setq anthy-environments-in-use (delq env anthy-environments-in-use)))) ;; ;; Returns ( ) ;; (defun anthy-get-candidates (bunsetsu-list prev-bunsetsu next-bunsetsu major) (let ((bunsetsu (car bunsetsu-list))) (if (anthybunsetsu-get-candidates bunsetsu) (cons (anthybunsetsu-get-candidate-pos bunsetsu) (anthybunsetsu-get-candidates bunsetsu)) (let* ((env (anthybunsetsu-get-env bunsetsu)) (seg-no (anthybunsetsu-get-seg-no bunsetsu)) (cands (anthyipc-get-candidates anthy-proc env seg-no))) (cons (anthybunsetsu-set-candidate-pos bunsetsu 0) (anthybunsetsu-set-candidates bunsetsu cands)))))) ;; Returns list of list of bunsetsu (defun anthy-select-candidate (bunsetsu-list candidate-pos prev-b next-b) (let* ((bunsetsu (car bunsetsu-list)) (candidate-list (anthybunsetsu-get-candidates bunsetsu)) (candidate (nth candidate-pos candidate-list)) (env (anthybunsetsu-get-env bunsetsu)) (seg-no (anthybunsetsu-get-seg-no bunsetsu))) (anthybunsetsu-set-candidate-pos bunsetsu candidate-pos) ;; Anthy doesn't have capability of changing another segment ;; at the selection of a segment. ;; So, just ignore the result of "SELECT-CANDIDATE" (anthyipc-select-candidate anthy-proc env seg-no candidate-pos) (list (list bunsetsu)))) ;; Returns list of list of bunsetsu (defun anthy-resize-segment (bunsetsu-list prev-b next-b len major) (let ((bunsetsu (car bunsetsu-list))) (let ((env (anthybunsetsu-get-env bunsetsu)) (seg-no (anthybunsetsu-get-seg-no bunsetsu)) (prevlen (length (anthybunsetsu-get-source bunsetsu)))) (let ((r (anthyipc-resize-segment anthy-proc env seg-no (if (< prevlen len) 0 1)))) ;; XXX: I don't know what this means, ;; but this works. Blame EGG. (list (list (car r)) nil (cdr r)))))) (defun anthy-finalize-backend () (if anthy-proc (progn (delete-process anthy-proc) (setq anthy-proc nil)))) ;;; setup (load "egg/anthyipc") (run-hooks 'anthy-load-hook) ;;;###autoload (defun egg-activate-anthy (&rest arg) "Activate ANTHY backend of Tamago 4." (apply 'egg-mode (append arg anthy-backend-alist))) ;;; egg/anthy.el ends here. egg-4.0.6+0.20041122cvs/egg-cnv.el0000644000764400003210000012772007517100120017321 0ustar ishikawaishikawa00000000000000;;; egg-cnv.el --- Conversion Backend in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg-edep) (defgroup egg-conv nil "Conversion Backend Interface of Tamago 4." :group 'egg) (defcustom egg-conversion-wrap-select t "*Candidate selection wraps around to first candidate, if non-NIL. Otherwise stop at the last candidate." :group 'egg-conv :type 'boolean) (defcustom egg-conversion-auto-candidate-menu 0 "*Automatically enter the candidate selection mode at N times next/previous-candidate, if positive number N." :group 'egg-conv :type 'integer) (defcustom egg-conversion-auto-candidate-menu-show-all nil "*Enter show all candiate mode when automatic candidate selection mode, if non-NIL." :group 'egg-conv :type 'boolean) (defcustom egg-conversion-sort-by-converted-string nil "*Sort candidate list by converted string on candidate selection mode, if non-NIL." :group 'egg-conv :type 'boolean) (defcustom egg-conversion-fence-invisible nil "*Make fence marks invisible, if non-NIL." :group 'egg-conv :type 'boolean) (defcustom egg-conversion-fence-open "|" "*String of conversion fence start mark. (should not be null string)" :group 'egg-conv :type '(string :valid-regexp ".+")) (defcustom egg-conversion-fence-close "|" "*String of conversion fence end mark. (should not be null string)" :group 'egg-conv :type '(string :valid-regexp ".+")) (defcustom egg-conversion-face nil "*Face (or alist of languages and faces) of text in conversion fences." :group 'egg-conv :type '(choice face (repeat :tag "Language-Face alist" (cons :tag "Language-Face" (choice :tag "Language" (const Japanese) (const Chinese-GB) (const Chinese-CNS) (const Korean) (const :tag "Default" t) (symbol :tag "Other")) face)))) (defcustom egg-conversion-major-separator " " "*Major clause seperator" :group 'egg-conv :type 'string) (defcustom egg-conversion-minor-separator "-" "*Minor clause seperator" :group 'egg-conv :type 'string) (defcustom egg-startup-file ".eggrc" "*Egg startup file name." :group 'egg-conv :type 'string) (defcustom egg-startup-file-search-path '("~") "*List of directories to search for egg-startup-file (default .eggrc)." :group 'egg-conv :type '(repeat string)) (egg-add-message '((nil (no-rcfile "no egg-startup-file on %S") (rcfile-error "error occured in egg-startup-file") (candidate "candidates:") (register-str "Chinese character:") (register-yomi "word registration ``%s'' pronunciation:") (registered "dictionary entry ``%s''(%s: %s) is registerd at %s")) (Japanese (no-rcfile "%S $B>e$K(B egg-startup-file $B$,$"$j$^$;$s(B") (rcfile-error "egg-startup-file $B$G%(%i!<$,$"$j$^$7$?(B") (candidate "$B8uJd(B:") (register-str "$B4A;z(B:") (register-yomi "$B<-=qEPO?!X(B%s$B!Y(B $BFI$_(B:") (registered "$B<-=q9`L\!X(B%s$B!Y(B(%s: %s)$B$r(B %s $B$KEPO?$7$^$7$?(B")) (Chinese-GB (no-rcfile "$ATZ(B %S $AIOC;SP(B egg-startup-file") (rcfile-error "$ATZ6AH!(B egg-startup-file $AJ1#,SP3v4m7"IzAK(B") (candidate "$A:r29(B:") (register-str "$A::WV(B:") (register-yomi "$A4G5d5GBx@>4O4Y(B") (rcfile-error "egg-startup-file $(C?!(B $(C?!7/0!(B $(C9_;}G_@>4O4Y(B") (candidate "$(CHD:8(B:") (register-str "$(CGQ@Z(B:") (register-yomi "$(C;g@|5n7O!:(B%s$(C!;(B $(C569}(B:") (registered "$(C;g@|GW8q!:(B%s$(C!;(B(%s: %s)$(C@;(B %s$(C?!(B $(C5n7OG_@>4O4Y(B")))) ;; ;; ::= ( ( ( ... )... )... ) ;; ::= ( ... ) ;; ::= ;; ::= symbol ;; (defvar egg-conversion-backend-alist nil) (make-variable-buffer-local 'egg-conversion-backend-alist) (put 'egg-conversion-backend-alist 'permanent-local t) (defun egg-set-conversion-backend (backend-alist &optional force) (let (pair lang backend-set) (while backend-alist (setq lang (caar backend-alist) backend-set (cdar backend-alist) backend-alist (cdr backend-alist) pair (assq lang egg-conversion-backend-alist)) (cond ((null pair) (setq egg-conversion-backend-alist (cons (cons lang backend-set) egg-conversion-backend-alist))) (force (setcdr pair backend-set)))))) (defun egg-get-conversion-backend (language n use-default) (let (backend) (cond ((null n) (setq n 0)) ((null (integerp n)) (setq n 1))) (setq backend (nth (1+ n) (assq language egg-conversion-backend-alist))) (if backend (and backend (cons 0 (mapcar 'copy-sequence backend))) (and use-default (cons 0 egg-default-conversion-backend))))) (defsubst egg-default-conversion-backend-p (backend) (eq (cdr backend) egg-default-conversion-backend)) (defsubst egg-get-current-backend (backend) (car (nth (car backend) (cdr backend)))) (defsubst egg-get-reconvert-backend (backend &optional n) (cond ((null n) (setq n 0)) ((null (integerp n)) (setq n 1))) (nth (1+ n) (nth (car backend) (cdr backend)))) (defmacro egg-bunsetsu-info () ''intangible) (defsubst egg-get-bunsetsu-info (p &optional object) (get-text-property p (egg-bunsetsu-info) object)) (defsubst egg-get-backend (p &optional object) (get-text-property p 'egg-backend object)) (defsubst egg-get-language (p &optional object) (get-text-property p 'egg-lang object)) (defsubst egg-get-bunsetsu-last (p &optional object) (get-text-property p 'egg-bunsetsu-last object)) (defsubst egg-get-major-continue (p &optional object) (get-text-property p 'egg-major-continue object)) (defsubst egg-get-char-size (p &optional object) (get-text-property p 'egg-char-size object)) ;; ::= ( . ) (defsubst egg-bunsetsu-create (backend info) (cons backend info)) (defsubst egg-bunsetsu-get-backend (bunsetsu) (car bunsetsu)) (defsubst egg-bunsetsu-set-backend (bunsetsu backend) (setcar bunsetsu backend)) (defsubst egg-bunsetsu-get-info (bunsetsu) (cdr bunsetsu)) (defsubst egg-bunsetsu-set-info (bunsetsu info) (setcdr bunsetsu info)) (defun egg-conversion-fence-p () (and (egg-get-backend (point)) (get-text-property (point) 'read-only))) (defvar egg-finalize-backend-list nil) (defun egg-set-finalize-backend (func-list) (mapcar (lambda (func) (if (and func (null (memq func egg-finalize-backend-list))) (setq egg-finalize-backend-list (cons func egg-finalize-backend-list)))) func-list)) (defmacro egg-define-backend-functions (list) (cons 'progn (mapcar (lambda (def) (let* ((func (car def)) (args (nth 1 def)) (backend (car args))) (cond ((eq backend 'bunsetsu) (setq backend `(egg-bunsetsu-get-backend ,backend))) ((eq backend 'bunsetsu-list) (setq backend `(egg-bunsetsu-get-backend (car ,backend))))) `(defun ,func ,args (let ((func (get ,backend ',func))) (and func (funcall func ,@args)))))) list))) (egg-define-backend-functions ((egg-start-conversion (backend source-string context)) (egg-get-bunsetsu-source (bunsetsu)) (egg-get-bunsetsu-converted (bunsetsu)) (egg-get-source-language (bunsetsu)) (egg-get-converted-language (bunsetsu)) (egg-major-bunsetsu-continue-p (bunsetsu)) (egg-list-candidates (bunsetsu-list prev-b next-b major)) (egg-decide-candidate (bunsetsu-list candidate-pos prev-b next-b)) (egg-special-candidate (bunsetsu-list prev-b next-b major type)) (egg-change-bunsetsu-length (bunsetsu-list prev-b next-b length major)) (egg-bunsetsu-combinable-p (bunsetsu next-b)) (egg-end-conversion (bunsetsu-list abort)) (egg-word-inspection (bunsetsu)) (egg-word-registration (backend source converted)))) (defun egg-finalize-backend () (run-hooks 'egg-finalize-backend-list)) (setplist 'egg-conversion-backend-noconv '(egg-start-conversion egg-start-conversion-noconv egg-get-bunsetsu-source egg-get-bunsetsu-source-noconv egg-get-bunsetsu-converted egg-get-bunsetsu-converted-noconv egg-get-source-language egg-get-source-language-noconv egg-get-converted-language egg-get-converted-language-noconv egg-end-conversion egg-end-conversion-noconv)) (defun egg-start-conversion-noconv (backend yomi-string context) (let ((string (copy-sequence yomi-string)) (language (egg-get-language 0 yomi-string))) (egg-remove-all-text-properties 0 (length string) string) (list (egg-bunsetsu-create backend (vector string language))))) (defun egg-get-bunsetsu-source-noconv (bunsetsu) (aref (egg-bunsetsu-get-info bunsetsu) 0)) (defun egg-get-bunsetsu-converted-noconv (bunsetsu) (aref (egg-bunsetsu-get-info bunsetsu) 0)) (defun egg-get-source-language-noconv (bunsetsu) (aref (egg-bunsetsu-get-info bunsetsu) 1)) (defun egg-get-converted-language-noconv (bunsetsu) (aref (egg-bunsetsu-get-info bunsetsu) 1)) (defun egg-end-conversion-noconv (bunsetsu-list abort) nil) (defconst egg-default-conversion-backend '((egg-conversion-backend-noconv))) (defun egg-convert-region (start end &optional context nth-backend) (interactive "r\ni\nP") (let ((source (buffer-substring start end)) backend backend-source-list converted converted-list lang len s success abort) (if (>= start end) ;; nothing to do nil (delete-region start end) (egg-setup-invisibility-spec) (let ((inhibit-read-only t)) (its-define-select-keys egg-conversion-map) (goto-char start) (setq s (copy-sequence egg-conversion-fence-open) len (length s) start (+ start len) end (+ end len)) (set-text-properties 0 len (list 'read-only t 'egg-start t 'egg-source source) s) (if context (put-text-property 0 len 'egg-context context s)) (if egg-conversion-fence-invisible (put-text-property 0 len 'invisible 'egg s)) (insert s) (setq s (copy-sequence egg-conversion-fence-close) len (length s)) (set-text-properties 0 len '(read-only t rear-nonsticky t egg-end t) s) (if egg-conversion-fence-invisible (put-text-property 0 len 'invisible 'egg s)) (insert s) (goto-char start) (insert source) (goto-char start) (setq source (copy-sequence source)) (egg-separate-languages source) (setq backend-source-list (egg-assign-backend source nth-backend)) (while (and (null abort) backend-source-list) (setq backend (car (car backend-source-list)) lang (nth 1 (car backend-source-list)) source (nth 2 (car backend-source-list)) backend-source-list (cdr backend-source-list)) (condition-case error (progn (setq converted (egg-start-conversion (egg-get-current-backend backend) source context)) (if (null converted) (egg-error "no conversion result")) (setq converted-list (nconc converted-list (list (cons backend converted))) context 'continued) (or (egg-default-conversion-backend-p backend) (setq success t))) ((egg-error quit) (cond ((null (or success (delq t (mapcar (lambda (s) (egg-default-conversion-backend-p (cdr (car s)))) backend-source-list)))) (message "egg %s backend: %s" (if (cdr lang) lang (car lang)) (nth (if (eq (car error) 'quit) 0 1) error)) (ding) (setq abort t)) ((condition-case err (y-or-n-p (format "egg %s backend %s: continue? " lang (nth (if (eq (car error) 'quit) 0 1) error))) ((error quit) nil)) (setq backend (egg-get-conversion-backend nil 0 t) converted (egg-start-conversion (egg-get-current-backend backend) source context) converted-list (nconc converted-list (list (cons backend converted))) context 'continued)) (t (setq abort t)))))) (delete-region start end) (while converted-list (egg-insert-bunsetsu-list (caar converted-list) (cdar converted-list) (or (null (cdr converted-list)) 'continue)) (setq converted-list (cdr converted-list))) (goto-char start) (cond (abort (egg-abort-conversion)) ((null success) (egg-exit-conversion))))))) (defun egg-separate-languages (str &optional last-lang) (let (lang last-chinese (len (length str)) i j l) ;; 1st pass -- mark undefined Chinese part (if (or (eq last-lang 'Chinese-GB) (eq last-lang 'Chinese-CNS)) (setq last-chinese last-lang)) (setq i 0) (while (< i len) (setq j (egg-next-single-property-change i 'egg-lang str len)) (if (null (egg-get-language i str)) (progn (setq c (egg-string-to-char-at str i) cset (char-charset c)) (cond ((eq cset 'chinese-sisheng) (egg-string-match-charset 'chinese-sisheng str i) (setq l (match-end 0) j (min j l) lang 'Chinese)) ((setq l (egg-chinese-syllable str i)) (setq j (+ i l) lang 'Chinese)) ((eq cset 'ascii) (if (eq (string-match "[\0-\177\240-\377]+" str (1+ i)) (1+ i)) (setq j (match-end 0)) (setq j (1+ i))) (if (and (< j len) (eq (char-charset (egg-string-to-char-at str j)) 'chinese-sisheng)) (setq j (max (1+ i) (- j 6)))) (setq lang nil)) ((eq cset 'composition) (setq j (+ i (egg-char-bytes c)) lang (egg-charset-to-language (char-charset (car (decompose-composite-char c 'list)))))) (t (egg-string-match-charset cset str i) (setq j (match-end 0) lang (egg-charset-to-language cset)))) (if lang (put-text-property i j 'egg-lang lang str)))) (setq i j)) ;; 2nd pass -- set language property (setq i 0) (while (< i len) (setq lang (egg-get-language i str)) (cond ((null lang) (setq lang (or last-lang (egg-next-part-lang str i)))) ((equal lang 'Chinese) (setq lang (or last-chinese (egg-next-chinese-lang str i))))) (setq last-lang lang) (if (or (eq lang 'Chinese-GB) (eq lang 'Chinese-CNS)) (setq last-chinese lang)) (setq j i i (egg-next-single-property-change i 'egg-lang str len)) (egg-remove-all-text-properties j i str) (put-text-property j i 'egg-lang lang str)))) ;;; Should think again the interface to language-info-alist (defun egg-charset-to-language (charset) (let ((list language-info-alist)) (while (and list (null (memq charset (assq 'charset (car list))))) (setq list (cdr list))) (if list (intern (car (car list)))))) (defun egg-next-part-lang (str pos) (let ((lang (get-text-property (egg-next-single-property-change pos 'egg-lang str (length str)) 'egg-lang str))) (if (eq lang 'Chinese) (egg-next-chinese-lang str pos) (or lang its-current-language egg-default-language)))) (defun egg-next-chinese-lang (str pos) (let ((len (length str)) lang) (while (and (< pos len) (null lang)) (setq pos (egg-next-single-property-change pos 'egg-lang str len) lang (egg-get-language pos str)) (if (null (or (eq lang 'Chinese-GB) (eq lang 'Chinese-CNS))) (setq lang nil))) (cond (lang lang) ((eq its-current-language 'Chinese-GB) 'Chinese-GB) ((eq its-current-language 'Chinese-CNS) 'Chinese-CNS) ((eq egg-default-language 'Chinese-GB) 'Chinese-GB) ((eq egg-default-language 'Chinese-CNS) 'Chinese-CNS) (t 'Chinese-GB)))) ;; ;; return value ::= ( ( ( ... ) )... ) ;; (defun egg-assign-backend (source n) (let ((len (length source)) (i 0) j s lang backend retval) (while (< i len) (setq j (egg-next-single-property-change i 'egg-lang source len) s (substring source i j) lang (egg-get-language 0 s) backend (egg-get-conversion-backend lang n t)) (egg-remove-all-text-properties 0 (- j i) s) (put-text-property 0 (- j i) 'egg-lang lang s) (setq retval (nconc retval (list (list backend (list lang) s))) i j)) (prog1 retval (while retval (if (or (egg-default-conversion-backend-p (car (car retval))) (null (equal (car (car retval)) (car (nth 1 retval))))) (setq retval (cdr retval)) (nconc (nth 1 (car retval)) (nth 1 (nth 1 retval))) (setcar (nthcdr 2 (car retval)) (concat (nth 2 (car retval)) (nth 2 (nth 1 retval)))) (setcdr retval (cddr retval))))))) (defun egg-search-file (filename path) (let (file) (if (file-name-directory filename) (setq file (substitute-in-file-name (expand-file-name filename)) file (and (file-readable-p file) file)) (while (and (null file) path) (if (stringp (car path)) (setq file (substitute-in-file-name (expand-file-name filename (car path))) file (and (file-exists-p file) file))) (setq path (cdr path))) file))) (defvar egg-default-startup-file "eggrc" "Egg startup file name (system default)") (defun egg-load-startup-file (backend lang) (let ((eggrc (or (egg-search-file egg-startup-file egg-startup-file-search-path) (egg-search-file egg-default-startup-file load-path)))) (if eggrc (condition-case error (let ((egg-backend-type backend) (egg-language lang)) (load-file eggrc)) (error (message "%s: %s" (car error) (mapconcat (lambda (s) (format "%S" s)) (cdr error) ", ")) (egg-error 'rcfile-error)) (quit (egg-error 'rcfile-error))) (egg-error 'no-rcfile egg-startup-file-search-path)))) (defun egg-get-conversion-face (lang) (if (null (consp egg-conversion-face)) egg-conversion-face (cdr (or (assq lang egg-conversion-face) (assq t egg-conversion-face))))) (defvar egg-conversion-map (let ((map (make-sparse-keymap)) (i 33)) (while (< i 127) (define-key map (vector i) 'egg-exit-conversion-unread-char) (setq i (1+ i))) (define-key map "\C-@" 'egg-decide-first-char) (define-key map [?\C-\ ] 'egg-decide-first-char) (define-key map "\C-a" 'egg-beginning-of-conversion-buffer) (define-key map "\C-b" 'egg-backward-bunsetsu) (define-key map "\C-c" 'egg-abort-conversion) (define-key map "\C-e" 'egg-end-of-conversion-buffer) (define-key map "\C-f" 'egg-forward-bunsetsu) (define-key map "\C-h" 'egg-help-command) (define-key map "\C-i" 'egg-shrink-bunsetsu-major) (define-key map "\C-k" 'egg-decide-before-point) ;; (define-key map "\C-l" 'egg-exit-conversion) ; Don't override C-L (define-key map "\C-m" 'egg-exit-conversion) (define-key map "\C-n" 'egg-next-candidate-major) (define-key map "\C-o" 'egg-enlarge-bunsetsu-major) (define-key map "\C-p" 'egg-previous-candidate-major) (define-key map "\C-r" 'egg-reconvert-bunsetsu) (define-key map "\C-t" 'egg-toroku-bunsetsu) (define-key map "\C-v" 'egg-inspect-bunsetsu) (define-key map "\M-i" 'egg-shrink-bunsetsu-minor) (define-key map "\M-n" 'egg-next-candidate-minor) (define-key map "\M-o" 'egg-enlarge-bunsetsu-minor) (define-key map "\M-p" 'egg-previous-candidate-minor) (define-key map "\M-r" 'egg-reconvert-bunsetsu-from-source) (define-key map "\M-s" 'egg-select-candidate-major) (define-key map "\M-v" 'egg-toggle-inspect-mode) (define-key map "\M-z" 'egg-select-candidate-minor) (define-key map "\e\C-s" 'egg-select-candidate-list-all-major) (define-key map "\e\C-z" 'egg-select-candidate-list-all-minor) (define-key map [return] 'egg-exit-conversion) (define-key map [right] 'egg-forward-bunsetsu) (define-key map [left] 'egg-backward-bunsetsu) (define-key map [up] 'egg-previous-candidate) (define-key map [down] 'egg-next-candidate) (define-key map [backspace] 'egg-abort-conversion) (define-key map [clear] 'egg-abort-conversion) (define-key map [delete] 'egg-abort-conversion) (define-key map " " 'egg-next-candidate) (define-key map "/" 'egg-exit-conversion) (define-key map "\M-h" 'egg-hiragana) (define-key map "\M-k" 'egg-katakana) (define-key map "\M-P" 'egg-pinyin) (define-key map "\M-Z" 'egg-zhuyin) (define-key map "\M-H" 'egg-hangul) map) "Keymap for EGG Conversion mode.") (fset 'egg-conversion-map egg-conversion-map) (defvar egg-conversion-mode nil) (make-variable-buffer-local 'egg-conversion-mode) (put 'egg-conversion-mode 'permanent-local t) (or (assq 'egg-conversion-mode egg-sub-mode-map-alist) (setq egg-sub-mode-map-alist (cons '(egg-conversion-mode . egg-conversion-map) egg-sub-mode-map-alist))) (defun egg-conversion-enter/leave-fence (&optional old new) (setq egg-conversion-mode (egg-conversion-fence-p))) (add-hook 'egg-enter/leave-fence-hook 'egg-conversion-enter/leave-fence) (defun egg-exit-conversion-unread-char () (interactive) (setq egg-context (egg-exit-conversion) unread-command-events (list last-command-event) this-command 'egg-use-context)) (defun egg-make-bunsetsu (backend bunsetsu last) (let* ((converted (copy-sequence (egg-get-bunsetsu-converted bunsetsu))) (language (egg-get-converted-language bunsetsu)) (continue (and (null last) (egg-major-bunsetsu-continue-p bunsetsu))) (face (egg-get-conversion-face language)) len len1) (setq len1 (length converted)) (or (eq last t) (setq converted (concat converted (if continue egg-conversion-minor-separator egg-conversion-major-separator)))) (setq len (length converted)) (egg-remove-all-text-properties 0 len converted) (add-text-properties 0 len (list 'read-only t (egg-bunsetsu-info) bunsetsu 'egg-backend backend 'egg-lang language 'egg-bunsetsu-last last 'egg-major-continue continue 'point-entered 'egg-enter/leave-fence 'point-left 'egg-enter/leave-fence 'modification-hooks '(egg-modify-fence)) converted) (if face (egg-set-face 0 len1 face converted)) converted)) (defun egg-insert-bunsetsu-list (backend bunsetsu-list &optional last before) (let ((len (length bunsetsu-list))) (funcall (if before 'insert-before-markers 'insert) (mapconcat (lambda (b) (setq len (1- len)) (egg-make-bunsetsu backend b (and (= len 0) last))) bunsetsu-list nil)))) (defun egg-beginning-of-conversion-buffer (n) (interactive "p") (cond ((<= n 0) (egg-end-of-conversion-buffer 1)) ((null (get-text-property (1- (point)) 'egg-start)) (goto-char (previous-single-property-change (point) 'egg-start))))) (defun egg-end-of-conversion-buffer (n) (interactive "p") (cond ((<= n 0) (egg-beginning-of-conversion-buffer 1)) (t (goto-char (egg-next-single-property-change (point) 'egg-end)) (backward-char)))) (defun egg-backward-bunsetsu (n) (interactive "p") (while (and (> n 0) (null (get-text-property (1- (point)) 'egg-start))) (backward-char) (setq n (1- n))) (if (> n 0) (signal 'beginning-of-buffer nil))) (defun egg-forward-bunsetsu (n) (interactive "p") (while (and (>= n 0) (null (get-text-property (point) 'egg-end))) (forward-char) (setq n (1- n))) (backward-char) (if (>= n 0) (signal 'end-of-buffer nil))) (defun egg-get-bunsetsu-tail (b) (nth (1- (length b)) b)) (defun egg-previous-bunsetsu-point (p &optional n obj lim) (or n (setq n 1)) (while (> n 0) (setq p (previous-single-property-change p (egg-bunsetsu-info) obj lim) n (1- n))) p) (defun egg-next-bunsetsu-point (p &optional n obj lim) (or n (setq n 1)) (while (> n 0) (setq p (egg-next-single-property-change p (egg-bunsetsu-info) obj lim) n (1- n))) p) (defun egg-get-previous-bunsetsu (p) (and (null (egg-get-bunsetsu-last (1- p))) (egg-get-bunsetsu-info (1- p)))) (defun egg-get-previous-major-bunsetsu (p) (let ((prev (egg-get-previous-bunsetsu p)) bunsetsu) (while prev (setq bunsetsu (cons prev bunsetsu) p (egg-previous-bunsetsu-point p) prev (and (egg-get-major-continue (1- p)) (egg-get-bunsetsu-info (1- p))))) bunsetsu)) (defun egg-get-next-bunsetsu (p) (and (null (egg-get-bunsetsu-last p)) (egg-get-bunsetsu-info (egg-next-bunsetsu-point p)))) (defun egg-get-major-bunsetsu (p) (let ((next (egg-get-bunsetsu-info p)) bunsetsu) (while next (setq bunsetsu (cons next bunsetsu) p (egg-next-bunsetsu-point p) next (and (egg-get-major-continue (1- p)) (egg-get-bunsetsu-info p)))) (nreverse bunsetsu))) (defsubst egg-get-major-bunsetsu-source (list) (mapconcat 'egg-get-bunsetsu-source list nil)) (defsubst egg-get-major-bunsetsu-converted (list) (mapconcat 'egg-get-bunsetsu-converted list nil)) (defvar egg-inspect-mode nil "*Display clause information on candidate selection, if non-NIL.") (defun egg-toggle-inspect-mode () (interactive) (if (setq egg-inspect-mode (not egg-inspect-mode)) (egg-inspect-bunsetsu t))) (defun egg-inspect-bunsetsu (&optional quiet) (interactive) (or (egg-word-inspection (egg-get-bunsetsu-info (point))) quiet (beep))) (defvar egg-candidate-selection-info nil) (make-variable-buffer-local 'egg-candidate-selection-info) (defvar egg-candidate-selection-major t) (make-variable-buffer-local 'egg-candidate-selection-major) (defsubst egg-set-candsel-info (b major) (setq egg-candidate-selection-info (list (car b) (cadr b) (caddr b) major))) (defsubst egg-candsel-last-bunsetsu () (car egg-candidate-selection-info)) (defsubst egg-candsel-last-prev-b () (nth 1 egg-candidate-selection-info)) (defsubst egg-candsel-last-next-b () (nth 2 egg-candidate-selection-info)) (defsubst egg-candsel-last-major () (nth 3 egg-candidate-selection-info)) (defun egg-major-bunsetsu-head-p (head bunsetsu) (while (and head (eq (car head) (car bunsetsu))) (setq head (cdr head) bunsetsu (cdr bunsetsu))) (null head)) (defun egg-major-bunsetsu-tail-p (tail bunsetsu) (egg-major-bunsetsu-head-p tail (nthcdr (- (length bunsetsu) (length tail)) bunsetsu))) (defun egg-get-candsel-target-major () (let ((bunsetsu (egg-get-major-bunsetsu (point))) (prev-b (egg-get-previous-major-bunsetsu (point))) next-b) (cond ((and (egg-candsel-last-major) (egg-major-bunsetsu-tail-p (egg-candsel-last-prev-b) prev-b) (egg-major-bunsetsu-head-p (append (egg-candsel-last-bunsetsu) (egg-candsel-last-next-b)) bunsetsu)) (setq bunsetsu (egg-candsel-last-bunsetsu) prev-b (egg-candsel-last-prev-b) next-b (egg-candsel-last-next-b))) ((null (egg-get-bunsetsu-last (egg-next-bunsetsu-point (point) (1- (length bunsetsu))))) (setq next-b (egg-get-major-bunsetsu (egg-next-bunsetsu-point (point) (length bunsetsu)))))) (setq egg-candidate-selection-major t) (list bunsetsu prev-b next-b t))) (defun egg-get-candsel-target-minor () (let* ((bunsetsu (list (egg-get-bunsetsu-info (point)))) (prev-b (egg-get-previous-bunsetsu (point))) (next-b (egg-get-next-bunsetsu (point)))) (setq egg-candidate-selection-major nil) (list bunsetsu (and prev-b (list prev-b)) (and next-b (list next-b)) nil))) (defun egg-check-candsel-target (b prev-b next-b major) (if major (and (egg-major-bunsetsu-tail-p prev-b (egg-get-previous-major-bunsetsu (point))) (let* ((cur-b (egg-get-major-bunsetsu (point))) (next-p (egg-next-bunsetsu-point (point) (length cur-b)))) (egg-major-bunsetsu-head-p (append b next-b) (append cur-b (and (null (egg-get-bunsetsu-last (1- next-p))) (egg-get-major-bunsetsu next-p)))))) (and (eq (egg-get-bunsetsu-info (point)) (car b)) (eq (egg-get-previous-bunsetsu (point)) (car prev-b)) (eq (egg-get-next-bunsetsu (point)) (car next-b))))) (defun egg-insert-new-bunsetsu (b tail new-b) (let* ((backend (egg-get-backend (point))) (start (egg-previous-bunsetsu-point (point) (length (cadr new-b)))) (end (egg-next-bunsetsu-point (point) (+ (length b) (length tail)))) (last (egg-get-bunsetsu-last (1- end))) (insert-before (buffer-has-markers-at end))) (cond ((buffer-has-markers-at end) (delete-region start end) (egg-insert-bunsetsu-list backend (append (cadr new-b) (car new-b) (caddr new-b)) last t)) ((buffer-has-markers-at (egg-next-bunsetsu-point (point) (length b))) (delete-region start end) (egg-insert-bunsetsu-list backend (append (cadr new-b) (car new-b)) nil t) (egg-insert-bunsetsu-list backend (caddr new-b) last)) ((buffer-has-markers-at (point)) (delete-region start end) (egg-insert-bunsetsu-list backend (cadr new-b) nil t) (egg-insert-bunsetsu-list backend (append (car new-b) (caddr new-b)) last)) (t (delete-region start end) (egg-insert-bunsetsu-list backend (append (cadr new-b) (car new-b) (caddr new-b)) last))) (goto-char (egg-next-bunsetsu-point start (length (cadr new-b)))) (if egg-inspect-mode (egg-inspect-bunsetsu t)))) (defun egg-next-candidate (n) (interactive "p") (if egg-candidate-selection-major (egg-next-candidate-major n) (egg-next-candidate-minor n))) (defun egg-next-candidate-major (n) (interactive "p") (apply 'egg-next-candidate-internal n (egg-get-candsel-target-major))) (defun egg-next-candidate-minor (n) (interactive "p") (apply 'egg-next-candidate-internal n (egg-get-candsel-target-minor))) (defun egg-previous-candidate (n) (interactive "p") (if egg-candidate-selection-major (egg-previous-candidate-major n) (egg-previous-candidate-minor n))) (defun egg-previous-candidate-major (n) (interactive "p") (apply 'egg-next-candidate-internal (- n) (egg-get-candsel-target-major))) (defun egg-previous-candidate-minor (n) (interactive "p") (apply 'egg-next-candidate-internal (- n) (egg-get-candsel-target-minor))) (defvar egg-candidate-select-counter 1) (make-variable-buffer-local 'egg-candidate-select-counter) (defun egg-next-candidate-internal (n b prev-b next-b major) (if (eq last-command (if major 'egg-candidate-major 'egg-candidate-minor)) (setq egg-candidate-select-counter (1+ egg-candidate-select-counter)) (setq egg-candidate-select-counter 1)) (if (= egg-candidate-select-counter egg-conversion-auto-candidate-menu) (egg-select-candidate-internal nil egg-conversion-auto-candidate-menu-show-all b prev-b next-b major) (setq this-command (if major 'egg-candidate-major 'egg-candidate-minor)) (let ((inhibit-read-only t) new-b candidates nitem i beep) (setq candidates (egg-list-candidates b prev-b next-b major)) (if (null candidates) (setq beep t) (setq i (+ n (car candidates)) nitem (length (cdr candidates))) (cond ((< i 0) ; go backward as if it is ring (setq i (% i nitem)) (if (< i 0) (setq i (+ i nitem)))) ((< i nitem)) ; OK (egg-conversion-wrap-select ; go backward as if it is ring (setq i (% i nitem))) (t ; don't go forward (setq i (1- nitem) beep t))) (setq new-b (egg-decide-candidate b i prev-b next-b)) (egg-set-candsel-info new-b major) (egg-insert-new-bunsetsu b (caddr new-b) new-b)) (if beep (ding))))) (defun egg-numbering-item (list) (let ((n -1)) (mapcar (lambda (item) (cons item (setq n (1+ n)))) list))) (defun egg-sort-item (list sort) (if (eq (null sort) (null egg-conversion-sort-by-converted-string)) list (sort list (lambda (a b) (string< (car a) (car b)))))) (defun egg-select-candidate-major (sort) (interactive "P") (apply 'egg-select-candidate-internal sort nil (egg-get-candsel-target-major))) (defun egg-select-candidate-minor (sort) (interactive "P") (apply 'egg-select-candidate-internal sort nil (egg-get-candsel-target-minor))) (defun egg-select-candidate-list-all-major (sort) (interactive "P") (apply 'egg-select-candidate-internal sort t (egg-get-candsel-target-major))) (defun egg-select-candidate-list-all-minor (sort) (interactive "P") (apply 'egg-select-candidate-internal sort t (egg-get-candsel-target-minor))) (defun egg-select-candidate-internal (sort all b prev-b next-b major) (let ((prompt (egg-get-message 'candidate)) new-b candidates pos clist item-list i) (setq candidates (egg-list-candidates b prev-b next-b major)) (if (null candidates) (ding) (setq pos (car candidates) clist (cdr candidates) item-list (egg-sort-item (egg-numbering-item clist) sort) i (menudiag-select (list 'menu prompt item-list) all (list (assq (nth pos clist) item-list)))) (if (or (null (egg-conversion-fence-p)) (null (egg-check-candsel-target b prev-b next-b major))) (error "Fence was already modified") (let ((inhibit-read-only t)) (setq new-b (egg-decide-candidate b i prev-b next-b)) (egg-set-candsel-info new-b major) (egg-insert-new-bunsetsu b (caddr new-b) new-b)))))) (defun egg-hiragana (&optional minor) (interactive "P") (if (null minor) (apply 'egg-special-convert this-command (egg-get-candsel-target-major)) (apply 'egg-special-convert this-command (egg-get-candsel-target-minor)))) (defalias 'egg-katakana 'egg-hiragana) (defalias 'egg-pinyin 'egg-hiragana) (defalias 'egg-zhuyin 'egg-hiragana) (defalias 'egg-hangul 'egg-hiragana) (defun egg-special-convert (type b prev-b next-b major) (let ((inhibit-read-only t) (new-b (egg-special-candidate b prev-b next-b major type))) (if (null new-b) (ding) (egg-set-candsel-info new-b major) (egg-insert-new-bunsetsu b (caddr new-b) new-b)))) (defun egg-separate-characters (str) (let* ((v (egg-string-to-vector str)) (len (length v)) (i 0) (j 0) m n (nchar 0)) (while (< i len) (if (setq n (egg-chinese-syllable str j)) (setq m (egg-chars-in-period str j n)) (setq m 1 n (egg-char-bytes (aref v i)))) (put-text-property j (+ j n) 'egg-char-size n str) (setq nchar (1+ nchar) i (+ i m) j (+ j n))) nchar)) (defun egg-enlarge-bunsetsu-major (n) (interactive "p") (egg-enlarge-bunsetsu-internal n t)) (defun egg-enlarge-bunsetsu-minor (n) (interactive "p") (egg-enlarge-bunsetsu-internal n nil)) (defun egg-shrink-bunsetsu-major (n) (interactive "p") (egg-enlarge-bunsetsu-internal (- n) t)) (defun egg-shrink-bunsetsu-minor (n) (interactive "p") (egg-enlarge-bunsetsu-internal (- n) nil)) (defun egg-enlarge-bunsetsu-internal (n major) (let ((inhibit-read-only t) b prev-b next-b new-b s1 s1len s2 s2len nchar i last end beep) (if major (setq b (egg-get-major-bunsetsu (point)) prev-b (egg-get-previous-major-bunsetsu (point))) (setq b (list (egg-get-bunsetsu-info (point))) prev-b (egg-get-previous-bunsetsu (point)) prev-b (and prev-b (list prev-b)))) (setq end (egg-next-bunsetsu-point (point) (length b)) last (egg-get-bunsetsu-last (1- end))) (while (null last) (setq next-b (cons (egg-get-bunsetsu-info end) next-b) last (egg-get-bunsetsu-last end) end (egg-next-bunsetsu-point end))) (setq next-b (nreverse next-b) s1 (egg-get-major-bunsetsu-source b) s2 (concat s1 (egg-get-major-bunsetsu-source next-b)) s1len (egg-separate-characters s1) s2len (egg-separate-characters s2) n (+ n s1len)) (cond ((<= n 0) (setq beep t nchar (and (/= s1len 1) (egg-get-char-size 0 s1)))) ((> n s2len) (setq beep t nchar (and (/= s2len s1len) (length s2)))) (t (setq nchar 0) (while (> n 0) (setq nchar (+ nchar (egg-get-char-size nchar s2)) n (1- n))))) (when nchar (setq next-b (nconc b next-b) i (length (egg-get-bunsetsu-source (car next-b)))) (while (< i nchar) (setq next-b (cdr next-b) i (+ i (length (egg-get-bunsetsu-source (car next-b)))))) (setq next-b (prog1 (cdr next-b) (setcdr next-b nil)) new-b (egg-change-bunsetsu-length b prev-b next-b nchar major)) (if (null new-b) (setq beep t) (egg-insert-new-bunsetsu b (and (caddr new-b) next-b) new-b))) (if beep (ding)))) (defun egg-reconvert-bunsetsu (n) (interactive "P") (egg-reconvert-bunsetsu-internal n 'egg-get-bunsetsu-converted)) (defun egg-reconvert-bunsetsu-from-source (n) (interactive "P") (egg-reconvert-bunsetsu-internal n 'egg-get-bunsetsu-source)) (defun egg-reconvert-bunsetsu-internal (n func) (let* ((inhibit-read-only t) (backend (egg-get-backend (point))) (source (funcall func (egg-get-bunsetsu-info (point)))) (reconv-backend (egg-get-reconvert-backend backend n)) (p (point)) (last (egg-get-bunsetsu-last (point))) new prev-b next-b) (if (or (null reconv-backend) (null (setq new (egg-start-conversion reconv-backend source nil)))) (ding) (delete-region p (egg-next-bunsetsu-point p)) (setq next-b (egg-get-bunsetsu-info (point))) (if (and (equal (egg-get-backend p) backend) (eq (egg-bunsetsu-get-backend next-b) (egg-bunsetsu-get-backend (car new))) (egg-bunsetsu-combinable-p (egg-get-bunsetsu-tail new) next-b)) (setq last nil) (setq last (or (eq last t) 'continue))) (egg-insert-bunsetsu-list backend new last) (goto-char p) (setq prev-b (egg-get-bunsetsu-info (1- p))) (if prev-b (progn (if (and (equal (egg-get-backend (1- p)) backend) (eq (egg-bunsetsu-get-backend prev-b) (egg-bunsetsu-get-backend (car new))) (egg-bunsetsu-combinable-p prev-b (car new))) (setq last nil) (setq last (or (eq last t) 'continue))) (setq backend (egg-get-backend (1- p))) (delete-region (egg-previous-bunsetsu-point p) p) (egg-insert-bunsetsu-list backend (list prev-b) last)))))) (defun egg-decide-before-point () (interactive) (let* ((inhibit-read-only t) (start (if (get-text-property (1- (point)) 'egg-start) (point) (previous-single-property-change (point) 'egg-start))) (end (if (get-text-property (point) 'egg-end) (point) (egg-next-single-property-change (point) 'egg-end))) (decided (buffer-substring start (point))) (undecided (buffer-substring (point) end)) i len bunsetsu source context) (delete-region (previous-single-property-change start 'egg-start nil (point-min)) (egg-next-single-property-change end 'egg-end nil (point-max))) (setq i 0 len (length decided)) (while (< i len) (setq bunsetsu (nconc bunsetsu (list (egg-get-bunsetsu-info i decided))) i (egg-next-bunsetsu-point i 1 decided len)) (if (or (= i len) (egg-get-bunsetsu-last (1- i) decided)) (progn (insert (mapconcat 'egg-get-bunsetsu-converted bunsetsu nil)) (setq context (cons (cons (egg-bunsetsu-get-backend (car bunsetsu)) (egg-end-conversion bunsetsu nil)) context) bunsetsu nil)))) (setq len (length undecided)) (if (= len 0) (progn (egg-do-auto-fill) (run-hooks 'input-method-after-insert-chunk-hook) context) (setq i 0) (while (< i len) (setq bunsetsu (egg-get-bunsetsu-info i undecided) source (cons (egg-get-bunsetsu-source bunsetsu) source)) (put-text-property 0 (length (car source)) 'egg-lang (egg-get-source-language bunsetsu) (car source)) (setq i (egg-next-bunsetsu-point i 1 undecided len))) (its-restart (apply 'concat (nreverse source)) t t context)))) (defun egg-decide-first-char () (interactive) (let* ((inhibit-read-only t) (start (if (get-text-property (1- (point)) 'egg-start) (point) (previous-single-property-change (point) 'egg-start))) (end (if (get-text-property (point) 'egg-end) (point) (egg-next-single-property-change (point) 'egg-end))) (bunsetsu (egg-get-bunsetsu-info start))) (delete-region (previous-single-property-change start 'egg-start nil (point-min)) (egg-next-single-property-change end 'egg-end nil (point-max))) (egg-end-conversion (list bunsetsu) nil) (insert (egg-string-to-char-at (egg-get-bunsetsu-converted bunsetsu) 0)))) (defun egg-exit-conversion () (interactive) (if (egg-conversion-fence-p) (progn (goto-char (egg-next-single-property-change (point) 'egg-end)) (egg-decide-before-point)))) (defun egg-abort-conversion () (interactive) (let ((inhibit-read-only t) source context) (goto-char (previous-single-property-change (if (get-text-property (1- (point)) 'egg-start) (point) (previous-single-property-change (point) 'egg-start)) 'egg-start nil (point-min))) (setq source (get-text-property (point) 'egg-source) context (get-text-property (point) 'egg-context)) (delete-region (point) (egg-next-single-property-change (egg-next-single-property-change (point) 'egg-end) 'egg-end nil (point-max))) (its-restart source nil nil context))) (defun egg-toroku-bunsetsu () (interactive) (let* ((p (point)) (lang (egg-get-source-language (egg-get-bunsetsu-info p))) (egg-mode-hook (or (cdr (assq lang its-select-func-alist)) (cdr (assq lang its-select-func-default-alist)))) (s "") bunsetsu str yomi last) (while (null last) (setq bunsetsu (egg-get-bunsetsu-info p) str (concat str (egg-get-bunsetsu-converted bunsetsu)) yomi (concat yomi (egg-get-bunsetsu-source bunsetsu)) last (egg-get-bunsetsu-last p) p (egg-next-bunsetsu-point p))) (while (equal s "") (setq s (read-multilingual-string (egg-get-message 'register-str) str egg-last-method-name)) (and (equal s "") (ding))) (egg-toroku-string s nil yomi lang (egg-bunsetsu-get-backend bunsetsu)))) (defun egg-toroku-region (start end &optional nth-backend) (interactive "r\nP") (egg-toroku-string (buffer-substring start end) nil nil nil nil nth-backend)) (defun egg-toroku-string (str &optional yomi guess lang backend nth-backend) (let (egg-mode-hook result) (if (= (length str) 0) (egg-error "Egg word registration: null string")) (egg-separate-languages str lang) (setq lang (egg-get-language 0 str) egg-mode-hook (or (cdr (assq lang its-select-func-alist)) (cdr (assq lang its-select-func-default-alist)))) (or yomi (setq yomi "")) (while (equal yomi "") (setq yomi (read-multilingual-string (format (egg-get-message 'register-yomi) str) guess egg-last-method-name)) (and (equal yomi "") (ding))) (egg-separate-languages yomi lang) (if (null backend) (progn (setq backend (egg-assign-backend str nth-backend)) (if (cdr backend) (egg-error "Egg word registration: cannot decide backend")) (setq backend (egg-get-current-backend (caar backend))))) (setq result (egg-word-registration backend str yomi)) (if result (apply 'message (egg-get-message 'registered) str yomi result) (beep)))) (defun egg-conversion-mode () "\\{egg-conversion-map}" ;; dummy function to get docstring ) (defun egg-help-command () "Display documentation for EGG Conversion mode." (interactive) (with-output-to-temp-buffer "*Help*" (princ "EGG Conversion mode:\n") (princ (documentation 'egg-conversion-mode)) (help-setup-xref (cons #'help-xref-mode (current-buffer)) (interactive-p)))) (provide 'egg-cnv) ;;; egg-cnv.el ends here egg-4.0.6+0.20041122cvs/egg-com.el0000644000764400003210000011721607234614431017323 0ustar ishikawaishikawa00000000000000;;; egg-com.el --- Communication Routines in Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: Hisashi Miyashita ;; NIIBE Yutaka ;; KATAYAMA Yoshio ; Korean, Chinese support. ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (require 'egg-edep) (defvar egg-fixed-euc '(fixed-euc-jp)) (make-variable-buffer-local 'egg-fixed-euc) (put 'egg-fixed-euc 'permanent-local t) (defvar egg-mb-euc 'euc-japan) (make-variable-buffer-local 'egg-mb-euc) (put 'egg-mb-euc 'permanent-local t) ;; Japanese (eval-and-compile (define-ccl-program ccl-decode-fixed-euc-jp `(2 ((r2 = ,(charset-id 'japanese-jisx0208)) (r3 = ,(charset-id 'japanese-jisx0212)) (r4 = ,(charset-id 'katakana-jisx0201)) (read r0) (loop (read r1) (if (r0 < ?\x80) ((r0 = r1) (if (r1 < ?\x80) (write-read-repeat r0)) (write r4) (write-read-repeat r0)) ((if (r1 > ?\x80) ((write r2 r0) (r0 = r1) (write-read-repeat r0)) ((write r3 r0) (r0 = (r1 | ?\x80)) (write-read-repeat r0))))))))) (define-ccl-program ccl-encode-fixed-euc-jp `(2 ((read r0) (loop (if (r0 == ,(charset-id 'latin-jisx0201)) ; Unify ((read r0) (r0 &= ?\x7f))) (if (r0 < ?\x80) ;G0 ((write 0) (write-read-repeat r0))) (r6 = (r0 == ,(charset-id 'japanese-jisx0208))) (r6 |= (r0 == ,(charset-id 'japanese-jisx0208-1978))) (if r6 ;G1 ((read r0) (write r0) (read r0) (write-read-repeat r0))) (if (r0 == ,(charset-id 'katakana-jisx0201)) ;G2 ((read r0) (write 0) (write-read-repeat r0))) (if (r0 == ,(charset-id 'japanese-jisx0212)) ;G3 ((read r0) (write r0) (read r0) (r0 &= ?\x7f) (write-read-repeat r0))) (read r0) (repeat))))) ) (make-coding-system 'fixed-euc-jp 4 ?W "Coding System for fixed EUC Japanese" (cons ccl-decode-fixed-euc-jp ccl-encode-fixed-euc-jp)) ;; Korean (eval-and-compile (define-ccl-program ccl-decode-fixed-euc-kr `(2 ((r2 = ,(charset-id 'korean-ksc5601)) (read r0) (loop (read r1) (if (r0 < ?\x80) (r0 = r1 & ?\x7f) ((write r2 r0) (r0 = r1 | ?\x80))) (write-read-repeat r0))))) (define-ccl-program ccl-encode-fixed-euc-kr `(2 ((read r0) (loop (if (r0 < ?\x80) ((write 0) (write-read-repeat r0))) (if (r0 == ,(charset-id 'korean-ksc5601)) ((read r0) (write r0) (read r0) (write-read-repeat r0))) (read r0) (repeat))))) ) (make-coding-system 'fixed-euc-kr 4 ?W "Coding System for fixed EUC Korean" (cons ccl-decode-fixed-euc-kr ccl-encode-fixed-euc-kr)) ;; Chinese (defconst egg-pinyin-shengmu '(("" . 0) ("B" . 1) ("C" . 2) ("Ch" . 3) ("D" . 4) ("F" . 5) ("G" . 6) ("H" . 7) ("J" . 8) ("K" . 9) ("L" . 10) ("M" . 11) ("N" . 12) ("P" . 13) ("Q" . 14) ("R" . 15) ("S" . 16) ("Sh" . 17) ("T" . 18) ("W" . 19) ("X" . 20) ("Y" . 21) ("Z" . 22) ("Zh" . 23))) (defconst egg-pinyin-yunmu '(("(0@(B" 0 0) ("(0@(B" 0 1) ("(0@(B" 0 3) ("(0@(B" 0 5) ("(0@(B" 0 7) ("a(0@(B" 1 0) ("(0!@(B" 1 1) ("(0"@(B" 1 3) ("(0#@(B" 1 5) ("(0$@(B" 1 7) ("ai(0@(B" 2 0) ("(0!(Bi(0@(B" 2 1) ("(0"(Bi(0@(B" 2 3) ("(0#(Bi(0@(B" 2 5) ("(0$(Bi(0@(B" 2 7) ("an(0@(B" 3 0) ("(0!(Bn(0@(B" 3 1) ("(0"(Bn(0@(B" 3 3) ("(0#(Bn(0@(B" 3 5) ("(0$(Bn(0@(B" 3 7) ("ang(0@(B" 4 0) ("(0!(Bng(0@(B" 4 1) ("(0"(Bng(0@(B" 4 3) ("(0#(Bng(0@(B" 4 5) ("(0$(Bng(0@(B" 4 7) ("ao(0@(B" 5 0) ("(0!(Bo(0@(B" 5 1) ("(0"(Bo(0@(B" 5 3) ("(0#(Bo(0@(B" 5 5) ("(0$(Bo(0@(B" 5 7) ("e(0@(B" 6 0) ("(0%@(B" 6 1) ("(0&@(B" 6 3) ("(0'@(B" 6 5) ("(0(@(B" 6 7) ("ei(0@(B" 7 0) ("(0%(Bi(0@(B" 7 1) ("(0&(Bi(0@(B" 7 3) ("(0'(Bi(0@(B" 7 5) ("(0((Bi(0@(B" 7 7) ("en(0@(B" 8 0) ("(0%(Bn(0@(B" 8 1) ("(0&(Bn(0@(B" 8 3) ("(0'(Bn(0@(B" 8 5) ("(0((Bn(0@(B" 8 7) ("eng(0@(B" 9 0) ("(0%(Bng(0@(B" 9 1) ("(0&(Bng(0@(B" 9 3) ("(0'(Bng(0@(B" 9 5) ("(0((Bng(0@(B" 9 7) ("er(0@(B" 10 0) ("(0%(Br(0@(B" 10 1) ("(0&(Br(0@(B" 10 3) ("(0'(Br(0@(B" 10 5) ("(0((Br(0@(B" 10 7) ("i(0@(B" 11 0) ("(0)@(B" 11 1) ("(0*@(B" 11 3) ("(0+@(B" 11 5) ("(0,@(B" 11 7) ("ia(0@(B" 12 0) ("i(0!@(B" 12 1) ("i(0"@(B" 12 3) ("i(0#@(B" 12 5) ("i(0$@(B" 12 7) ("ian(0@(B" 13 0) ("i(0!(Bn(0@(B" 13 1) ("i(0"(Bn(0@(B" 13 3) ("i(0#(Bn(0@(B" 13 5) ("i(0$(Bn(0@(B" 13 7) ("iang(0@(B" 14 0) ("i(0!(Bng(0@(B" 14 1) ("i(0"(Bng(0@(B" 14 3) ("i(0#(Bng(0@(B" 14 5) ("i(0$(Bng(0@(B" 14 7) ("iao(0@(B" 15 0) ("i(0!(Bo(0@(B" 15 1) ("i(0"(Bo(0@(B" 15 3) ("i(0#(Bo(0@(B" 15 5) ("i(0$(Bo(0@(B" 15 7) ("ie(0@(B" 16 0) ("i(0%@(B" 16 1) ("i(0&@(B" 16 3) ("i(0'@(B" 16 5) ("i(0(@(B" 16 7) ("in(0@(B" 17 0) ("(0)(Bn(0@(B" 17 1) ("(0*(Bn(0@(B" 17 3) ("(0+(Bn(0@(B" 17 5) ("(0,(Bn(0@(B" 17 7) ("ing(0@(B" 18 0) ("(0)(Bng(0@(B" 18 1) ("(0*(Bng(0@(B" 18 3) ("(0+(Bng(0@(B" 18 5) ("(0,(Bng(0@(B" 18 7) ("iong(0@(B" 19 0) ("i(0-(Bng(0@(B" 19 1) ("i(0.(Bng(0@(B" 19 3) ("i(0/(Bng(0@(B" 19 5) ("i(00(Bng(0@(B" 19 7) ("iu(0@(B" 20 0) ("i(01@(B" 20 1) ("i(02@(B" 20 3) ("i(03@(B" 20 5) ("i(04@(B" 20 7) ("m(0@(B" 21 0) ("m(0@(B" 21 1) ("m(0@(B" 21 3) ("m(0@(B" 21 5) ("m(0@(B" 21 7) ("n(0@(B" 22 0) ("n(0@(B" 22 1) ("(0=@(B" 22 3) ("(0>@(B" 22 5) ("(0?@(B" 22 7) ("ng(0@(B" 23 0) ("ng(0@(B" 23 1) ("ng(0@(B" 23 3) ("ng(0@(B" 23 5) ("ng(0@(B" 23 7) ("o(0@(B" 24 0) ("(0-@(B" 24 1) ("(0.@(B" 24 3) ("(0/@(B" 24 5) ("(00@(B" 24 7) ("ong(0@(B" 25 0) ("(0-(Bng(0@(B" 25 1) ("(0.(Bng(0@(B" 25 3) ("(0/(Bng(0@(B" 25 5) ("(00(Bng(0@(B" 25 7) ("ou(0@(B" 26 0) ("(0-(Bu(0@(B" 26 1) ("(0.(Bu(0@(B" 26 3) ("(0/(Bu(0@(B" 26 5) ("(00(Bu(0@(B" 26 7) ("u(0@(B" 27 0) ("(01@(B" 27 1) ("(02@(B" 27 3) ("(03@(B" 27 5) ("(04@(B" 27 7) ("ua(0@(B" 28 0) ("u(0!@(B" 28 1) ("u(0"@(B" 28 3) ("u(0#@(B" 28 5) ("u(0$@(B" 28 7) ("uai(0@(B" 29 0) ("u(0!(Bi(0@(B" 29 1) ("u(0"(Bi(0@(B" 29 3) ("u(0#(Bi(0@(B" 29 5) ("u(0$(Bi(0@(B" 29 7) ("uan(0@(B" 30 0) ("u(0!(Bn(0@(B" 30 1) ("u(0"(Bn(0@(B" 30 3) ("u(0#(Bn(0@(B" 30 5) ("u(0$(Bn(0@(B" 30 7) ("uang(0@(B" 31 0) ("u(0!(Bng(0@(B" 31 1) ("u(0"(Bng(0@(B" 31 3) ("u(0#(Bng(0@(B" 31 5) ("u(0$(Bng(0@(B" 31 7) ("ue(0@(B" 32 0) ("u(0%@(B" 32 1) ("u(0&@(B" 32 3) ("u(0'@(B" 32 5) ("u(0(@(B" 32 7) ("ui(0@(B" 33 0) ("u(0)@(B" 33 1) ("u(0*@(B" 33 3) ("u(0+@(B" 33 5) ("u(0,@(B" 33 7) ("un(0@(B" 34 0) ("(01(Bn(0@(B" 34 1) ("(02(Bn(0@(B" 34 3) ("(03(Bn(0@(B" 34 5) ("(04(Bn(0@(B" 34 7) ("uo(0@(B" 35 0) ("u(0-@(B" 35 1) ("u(0.@(B" 35 3) ("u(0/@(B" 35 5) ("u(00@(B" 35 7) ("(09@(B" 36 0) ("(05@(B" 36 1) ("(06@(B" 36 3) ("(07@(B" 36 5) ("(08@(B" 36 7) ("(09(Be(0@(B" 37 0) ("(09%@(B" 37 1) ("(09&@(B" 37 3) ("(09'@(B" 37 5) ("(09(@(B" 37 7) ("0(0@(B" 38 0) ("1(0@(B" 38 1) ("2(0@(B" 38 3) ("3(0@(B" 38 5) ("4(0@(B" 38 7))) (defconst egg-pinyin-table [ 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 1 1 0 0 1 0 1 1 1 1 1 1 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 0 1 0 1 0 0 0 0 1 1 1 0 0 1 0 0 1 1 1 0 0 1 0 1 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 0 1 0 0 0 1 1 1 1 0 0 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 0 1 0 1 0 1 1 1 1 0 1 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 0 1 0 0 0 0 1 1 1 0 0 1 0 0 0 0 1 1 1 1 0 1 1 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 1 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 0 1 0 0 0 1 1 1 1 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 0 1 1 1 0 0 1 0 1 1 1 1 1 1 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 0 1 0 1 0 1 0 1 1 0 1 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 1 1 0 0 1 0 1 1 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 0 1 0 1 0 1 1 1 1 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 1 1 1 1 0 0 1 0 1 0 1 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 0 0 1 ]) (defconst egg-zhuyin-shengmu '(("" . 0) ("(0E(B" . 1) ("(0X(B" . 2) ("(0T(B" . 3) ("(0I(B" . 4) ("(0H(B" . 5) ("(0M(B" . 6) ("(0O(B" . 7) ("(0P(B" . 8) ("(0N(B" . 9) ("(0L(B" . 10) ("(0G(B" . 11) ("(0K(B" . 12) ("(0F(B" . 13) ("(0Q(B" . 14) ("(0V(B" . 15) ("(0Y(B" . 16) ("(0U(B" . 17) ("(0J(B" . 18) ("(0h(B" . 19) ("(0R(B" . 20) ("(0g(B" . 21) ("(0W(B" . 22) ("(0S(B" . 23))) (defconst egg-zhuyin-yunmu '(("(0@(B" 0 0) ("(0A(B" 0 1) ("(0B(B" 0 3) ("(0C(B" 0 5) ("(0D(B" 0 7) ; i ("(0Z@(B" 1 0) ("(0ZA(B" 1 1) ("(0ZB(B" 1 3) ("(0ZC(B" 1 5) ("(0ZD(B" 1 7) ; a ("(0^@(B" 2 0) ("(0^A(B" 2 1) ("(0^B(B" 2 3) ("(0^C(B" 2 5) ("(0^D(B" 2 7) ; ai ("(0b@(B" 3 0) ("(0bA(B" 3 1) ("(0bB(B" 3 3) ("(0bC(B" 3 5) ("(0bD(B" 3 7) ; an ("(0d@(B" 4 0) ("(0dA(B" 4 1) ("(0dB(B" 4 3) ("(0dC(B" 4 5) ("(0dD(B" 4 7) ; ang ("(0`@(B" 5 0) ("(0`A(B" 5 1) ("(0`B(B" 5 3) ("(0`C(B" 5 5) ("(0`D(B" 5 7) ; ao ("(0\@(B" 6 0) ("(0\A(B" 6 1) ("(0\B(B" 6 3) ("(0\C(B" 6 5) ("(0\D(B" 6 7) ; e ("(0_@(B" 7 0) ("(0_A(B" 7 1) ("(0_B(B" 7 3) ("(0_C(B" 7 5) ("(0_D(B" 7 7) ; ei ("(0c@(B" 8 0) ("(0cA(B" 8 1) ("(0cB(B" 8 3) ("(0cC(B" 8 5) ("(0cD(B" 8 7) ; en ("(0e@(B" 9 0) ("(0eA(B" 9 1) ("(0eB(B" 9 3) ("(0eC(B" 9 5) ("(0eD(B" 9 7) ; eng ("(0f@(B" 10 0) ("(0fA(B" 10 1) ("(0fB(B" 10 3) ("(0fC(B" 10 5) ("(0fD(B" 10 7) ; er ("(0g@(B" 11 0) ("(0gA(B" 11 1) ("(0gB(B" 11 3) ("(0gC(B" 11 5) ("(0gD(B" 11 7) ; i ("(0gZ@(B" 12 0) ("(0gZA(B" 12 1) ("(0gZB(B" 12 3) ("(0gZC(B" 12 5) ("(0gZD(B" 12 7) ; ia ("(0gb@(B" 13 0) ("(0gbA(B" 13 1) ("(0gbB(B" 13 3) ("(0gbC(B" 13 5) ("(0gbD(B" 13 7) ; ian ("(0gd@(B" 14 0) ("(0gdA(B" 14 1) ("(0gdB(B" 14 3) ("(0gdC(B" 14 5) ("(0gdD(B" 14 7) ; iang ("(0g`@(B" 15 0) ("(0g`A(B" 15 1) ("(0g`B(B" 15 3) ("(0g`C(B" 15 5) ("(0g`D(B" 15 7) ; iao ("(0g]@(B" 16 0) ("(0g]A(B" 16 1) ("(0g]B(B" 16 3) ("(0g]C(B" 16 5) ("(0g]D(B" 16 7) ; ie ("(0gc@(B" 17 0) ("(0gcA(B" 17 1) ("(0gcB(B" 17 3) ("(0gcC(B" 17 5) ("(0gcD(B" 17 7) ; in ("(0ge@(B" 18 0) ("(0geA(B" 18 1) ("(0geB(B" 18 3) ("(0geC(B" 18 5) ("(0geD(B" 18 7) ; ing ("(0ie@(B" 19 0) ("(0ieA(B" 19 1) ("(0ieB(B" 19 3) ("(0ieC(B" 19 5) ("(0ieD(B" 19 7) ; iong ("(0ga@(B" 20 0) ("(0gaA(B" 20 1) ("(0gaB(B" 20 3) ("(0gaC(B" 20 5) ("(0gaD(B" 20 7) ; iu ("(0G@(B" 21 0) ("(0GA(B" 21 1) ("(0GB(B" 21 3) ("(0GC(B" 21 5) ("(0GD(B" 21 7) ; m ("(0K@(B" 22 0) ("(0KA(B" 22 1) ("(0KB(B" 22 3) ("(0KC(B" 22 5) ("(0KD(B" 22 7) ; n ("@(0@(B" 23 0) ("@(0A(B" 23 1) ("@(0B(B" 23 3) ("@(0C(B" 23 5) ("@(0D(B" 23 7) ; ng ("(0[@(B" 24 0) ("(0[A(B" 24 1) ("(0[B(B" 24 3) ("(0[C(B" 24 5) ("(0[D(B" 24 7) ; o ("(0he@(B" 25 0) ("(0heA(B" 25 1) ("(0heB(B" 25 3) ("(0heC(B" 25 5) ("(0heD(B" 25 7) ; ong ("(0a@(B" 26 0) ("(0aA(B" 26 1) ("(0aB(B" 26 3) ("(0aC(B" 26 5) ("(0aD(B" 26 7) ; ou ("(0h@(B" 27 0) ("(0hA(B" 27 1) ("(0hB(B" 27 3) ("(0hC(B" 27 5) ("(0hD(B" 27 7) ; u ("(0hZ@(B" 28 0) ("(0hZA(B" 28 1) ("(0hZB(B" 28 3) ("(0hZC(B" 28 5) ("(0hZD(B" 28 7) ; ua ("(0h^@(B" 29 0) ("(0h^A(B" 29 1) ("(0h^B(B" 29 3) ("(0h^C(B" 29 5) ("(0h^D(B" 29 7) ; uai ("(0hb@(B" 30 0) ("(0hbA(B" 30 1) ("(0hbB(B" 30 3) ("(0hbC(B" 30 5) ("(0hbD(B" 30 7) ; uan ("(0hd@(B" 31 0) ("(0hdA(B" 31 1) ("(0hdB(B" 31 3) ("(0hdC(B" 31 5) ("(0hdD(B" 31 7) ; uang ("(0i]@(B" 37 0) ("(0i]A(B" 37 1) ("(0i]B(B" 37 3) ("(0i]C(B" 37 5) ("(0i]D(B" 37 7) ; ue ("(0h_@(B" 33 0) ("(0h_A(B" 33 1) ("(0h_B(B" 33 3) ("(0h_C(B" 33 5) ("(0h_D(B" 33 7) ; ui ("(0hc@(B" 34 0) ("(0hcA(B" 34 1) ("(0hcB(B" 34 3) ("(0hcC(B" 34 5) ("(0hcD(B" 34 7) ; un ("(0h[@(B" 35 0) ("(0h[A(B" 35 1) ("(0h[B(B" 35 3) ("(0h[C(B" 35 5) ("(0h[D(B" 35 7) ; uo ("(0i@(B" 36 0) ("(0iA(B" 36 1) ("(0iB(B" 36 3) ("(0iC(B" 36 5) ("(0iD(B" 36 7) ; (09(B ("(0i]@(B" 37 0) ("(0i]A(B" 37 1) ("(0i]B(B" 37 3) ("(0i]C(B" 37 5) ("(0i]D(B" 37 7) ; (09(Be ("0(0@(B" 38 0) ("1(0A(B" 38 1) ("2(0B(B" 38 3) ("3(0C(B" 38 5) ("4(0D(B" 38 7) ; undefined ("(0ib@(B" 39 0) ("(0ibA(B" 39 1) ("(0ibB(B" 39 3) ("(0ibC(B" 39 5) ("(0ibD(B" 39 7) ; (09(Ban ("(0ic@(B" 40 0) ("(0icA(B" 40 1) ("(0icB(B" 40 3) ("(0icC(B" 40 5) ("(0icD(B" 40 7) ; (09(Bn )) (defconst egg-zhuyin-table [ ;; empty ShengMu ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x9586 ?\x0000 ?\x9592 ?\x9599 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x959b ?\x95a0 ?\x0000 ?\x959e ?\x95a2 ;; ShengMu B ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu C ?\x828b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0280 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu Ch ?\x838b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0380 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu D ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu F ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu G ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu H ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu J ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x08a4 ?\x0000 ?\x0000 ?\x08a7 ?\x0000 ?\x08a5 ?\x0000 ?\x08a8 ?\x0000 ?\x889b ?\x88a0 ?\x8000 ?\x889e ?\x88a2 ;; ShengMu K ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu L ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu M ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu N ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu P ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu Q ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0ea4 ?\x0000 ?\x0000 ?\x0ea7 ?\x0000 ?\x0ea5 ?\x0000 ?\x0ea8 ?\x0000 ?\x8e9b ?\x8ea0 ?\x8000 ?\x8e9e ?\x8ea2 ;; ShengMu R ?\x8f8b ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x0f80 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu S ?\x908b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x1080 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu Sh ?\x918b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x1180 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu T ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu W ?\x939b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x1380 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu X ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x14a4 ?\x0000 ?\x0000 ?\x14a7 ?\x0000 ?\x14a5 ?\x0000 ?\x14a8 ?\x0000 ?\x949b ?\x94a0 ?\x8000 ?\x949e ?\x94a2 ;; ShengMu Y ?\x958b ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0090 ?\x0000 ?\x9591 ?\x9592 ?\x0000 ?\x1580 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x1588 ?\x1589 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0093 ?\x8000 ?\x00a4 ?\x0000 ?\x0000 ?\x00a7 ?\x0000 ?\x00a5 ?\x0000 ?\x00a8 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu Z ?\x968b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x1680 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ;; ShengMu Zh ?\x978b ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x1780 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x8000 ?\x8000 ?\x8000 ?\x0000 ?\x0000 ?\x8000 ?\x0000 ?\x0000 ]) (defconst egg-chinese-syllable-max-len (max (length "Zhu(0!(Bng(0@(B") (length "(0ShdA(B"))) (defun egg-chinese-syllable (str pos) (setq str (substring str pos (min (length str) (+ pos egg-chinese-syllable-max-len)))) (or (car (egg-pinyin-syllable str)) (car (egg-zhuyin-syllable str)))) (defsubst egg-make-fixed-euc-china-code (s y) (cons (+ (* 2 (nth 1 y)) (logand (nth 2 y) 1) 32) (+ (* 4 (if (= s 0) 20 s)) (lsh (nth 2 y) -1) 156))) (defun egg-pinyin-syllable (str) (if (eq (string-match "^[A-Za-z(0!(B-(0?(B]+(0@(B" str) 0) (let (s y end) (setq end (match-end 0)) (cond ((setq s (cdr (assoc (substring str 0 2) egg-pinyin-shengmu))) (setq y (substring str 2 end))) ((setq s (cdr (assoc (substring str 0 1) egg-pinyin-shengmu))) (setq y (substring str 1 end))) (t (setq s 0 y (substring str 0 end)))) (if (and (setq y (assoc y egg-pinyin-yunmu)) (= (aref egg-pinyin-table (+ (* 39 s) (nth 1 y))) 1)) (cons end (egg-make-fixed-euc-china-code s y)))))) (defun egg-zhuyin-syllable (str) (if (eq (string-match "^[(0E(B-(0i(B@0-4]+[(0@ABCD(B]" str) 0) (let (end s y c z (zhuyin-len (length "(0E(B"))) (setq end (match-end 0) c (substring str 0 zhuyin-len) s (cdr (assoc c egg-zhuyin-shengmu)) y (assoc (substring str zhuyin-len end) egg-zhuyin-yunmu)) (if (or (null (and s y)) (and (or (eq s 11) (eq s 12)) (eq (nth 1 y) 0))) ; [(0GK(B][(0@ABCD(B] (setq s 0 y (assoc (substring str 0 end) egg-zhuyin-yunmu))) (if (and y (setq z (aref egg-zhuyin-table (+ (* 41 s) (nth 1 y)))) (/= (logand z ?\x8000) 0)) (if (/= (logand z ?\x80) 0) (cons end (egg-make-fixed-euc-china-code (logand (lsh z -8) ?\x7f) (list nil (logand z ?\x7f) (nth 2 y)))) (cons end (egg-make-fixed-euc-china-code s y))))))) (defun encode-fixed-euc-china-region (beg end type) "Encode the text in the region to EUC-CN/TW." (let (s syl c cset) (save-excursion (save-restriction (narrow-to-region beg end) (goto-char (point-min)) (while (< (point) (point-max)) (setq s (buffer-substring (point) (min (point-max) (+ (point) egg-chinese-syllable-max-len)))) (cond ((setq syl (egg-pinyin-syllable s)) (delete-region (point) (+ (point) (car syl))) (insert (car (cdr syl)) (cdr (cdr syl)))) ((setq syl (egg-zhuyin-syllable s)) (delete-region (point) (+ (point) (car syl))) (insert (car (cdr syl)) (cdr (cdr syl)))) (t (setq c (split-char (following-char)) cset (car c)) (cond ((or (and (eq cset 'chinese-gb2312) (eq type 'cn)) (and (eq cset 'chinese-cns11643-1) (eq type 'tw))) (delete-char 1) (insert (+ (nth 1 c) 128) (+ (nth 2 c) 128))) ((and (eq cset 'chinese-cns11643-2) (eq type 'tw)) (delete-char 1) (insert (+ (nth 1 c) 128) (nth 2 c))) ((eq cset 'chinese-sisheng) (delete-char 1) (insert 0 (+ (nth 1 c) 128))) ((eq cset 'ascii) (delete-char 1) (insert 0 (nth 1 c))) (t (delete-char 1)))))) (- (point-max) (point-min)))))) (defun pre-write-encode-fixed-euc-china (from to type) (let ((buf (current-buffer)) (work (get-buffer-create " *pre-write-encoding-work*"))) (set-buffer work) (erase-buffer) (if (null (stringp from)) (save-excursion (set-buffer buf) (setq from (buffer-substring from to)))) (insert (string-as-multibyte from)) (encode-fixed-euc-china-region 1 (point-max) type) nil)) (defun pre-write-encode-euc-cn (from to) (pre-write-encode-fixed-euc-china from to 'cn)) (defun pre-write-encode-euc-tw (from to) (pre-write-encode-fixed-euc-china from to 'tw)) (defun decode-fixed-euc-china-region (beg end type zhuyin) "Decode EUC-CN/TW encoded text in the region. Return the length of resulting text." (let ((str (string-as-unibyte (buffer-substring beg end))) (i 0) (char (make-string 3 0)) l c0 c1 s y ss) (delete-region beg end) (setq l (1- (length str))) (while (< i l) (setq c0 (aref str i) c1 (aref str (1+ i)) i (+ i 2)) (cond ((eq c0 0) (if (<= c1 ?\xa0) (insert c1) (aset char 0 leading-code-private-11) (aset char 1 (charset-id 'chinese-sisheng)) (aset char 2 c1) (insert (string-as-multibyte char)))) ((>= c0 ?\x80) (cond ((eq type 'cn) (aset char 0 (charset-id 'chinese-gb2312)) (aset char 1 c0) (aset char 2 (logior c1 ?\x80))) ((>= c1 ?\x80) (aset char 0 (charset-id 'chinese-cns11643-1)) (aset char 1 c0) (aset char 2 c1)) (t (aset char 0 (charset-id 'chinese-cns11643-2)) (aset char 1 c0) (aset char 2 (+ c1 ?\x80)))) (insert (string-as-multibyte char))) (t (setq c1 (logand c1 ?\x7f)) (setq s (- (lsh c1 -2) 7);;(+ (lsh (- c1 32) -2) 1) y (- (lsh c0 -1) 16);;(lsh (- c0 32) -1) ss (+ (logand c0 1) (logand c1 3))) (if (and (eq s 20) (eq (aref egg-pinyin-table (+ (* 39 20) y)) 0)) (setq s 0)) (if (null zhuyin) (setq s (car (nth s egg-pinyin-shengmu)) y (car (nth (+ (* 5 y) ss) egg-pinyin-yunmu))) (setq c0 (aref egg-zhuyin-table (+ (* 41 s) y))) (if (eq (logand c0 ?\x8080) ?\x80) (setq s (lsh c0 -8) y (logand c0 ?\x7f))) (setq s (car (nth s egg-zhuyin-shengmu)) y (car (nth (+ (* 5 y) ss) egg-zhuyin-yunmu)))) (if enable-multibyte-characters (insert s y) (insert (string-as-unibyte s) (string-as-unibyte y)))))) (- (point) beg))) (defun post-read-decode-fixed-euc-china (len type zhuyin) (let ((pos (point)) (buffer-modified-p (buffer-modified-p))) (prog1 (decode-fixed-euc-china-region pos (+ pos len) type zhuyin) (set-buffer-modified-p buffer-modified-p)))) (defun post-read-decode-euc-py-cn (len) (post-read-decode-fixed-euc-china len 'cn nil)) (defun post-read-decode-euc-zy-cn (len) (post-read-decode-fixed-euc-china len 'cn t)) (defun post-read-decode-euc-py-tw (len) (post-read-decode-fixed-euc-china len 'tw nil)) (defun post-read-decode-euc-zy-tw (len) (post-read-decode-fixed-euc-china len 'tw t)) (make-coding-system 'fixed-euc-py-cn 0 ?W "Coding System for fixed EUC Chinese-gb2312") (coding-system-put 'fixed-euc-py-cn 'pre-write-conversion 'pre-write-encode-euc-cn) (coding-system-put 'fixed-euc-py-cn 'post-read-conversion 'post-read-decode-euc-py-cn) (make-coding-system 'fixed-euc-zy-cn 0 ?W "Coding System for fixed EUC Chinese-gb2312") (coding-system-put 'fixed-euc-zy-cn 'pre-write-conversion 'pre-write-encode-euc-cn) (coding-system-put 'fixed-euc-zy-cn 'post-read-conversion 'post-read-decode-euc-zy-cn) (make-coding-system 'fixed-euc-py-tw 0 ?W "Coding System for fixed EUC Chinese-cns11643") (coding-system-put 'fixed-euc-py-tw 'pre-write-conversion 'pre-write-encode-euc-tw) (coding-system-put 'fixed-euc-py-tw 'post-read-conversion 'post-read-decode-euc-py-tw) (make-coding-system 'fixed-euc-zy-tw 0 ?W "Coding System for fixed EUC Chinese-cns11643") (coding-system-put 'fixed-euc-zy-tw 'pre-write-conversion 'pre-write-encode-euc-tw) (coding-system-put 'fixed-euc-zy-tw 'post-read-conversion 'post-read-decode-euc-zy-tw) ;; Binary data (eval-and-compile (define-ccl-program ccl-decode-egg-binary `(1 ((read r0) (loop (if (r0 == ?\xff) (read r1)) ; toss out (write-read-repeat r0))))) (define-ccl-program ccl-encode-egg-binary `(2 ((read r0) (loop (if (r0 == ?\xff) ((write r0) (r0 = 0))) (write-read-repeat r0)))))) (make-coding-system 'egg-binary 4 ?W "Coding System for binary data" (cons ccl-decode-egg-binary ccl-encode-egg-binary)) (defun comm-format-u32c (uint32c) (insert-char (logand (lsh (car uint32c) -8) 255) 1) (insert-char (logand (car uint32c) 255) 1) (insert-char (logand (lsh (nth 1 uint32c) -8) 255) 1) (insert-char (logand (nth 1 uint32c) 255) 1)) (defun comm-format-u32 (uint32) (insert-char (logand (lsh uint32 -24) 255) 1) (insert-char (logand (lsh uint32 -16) 255) 1) (insert-char (logand (lsh uint32 -8) 255) 1) (insert-char (logand uint32 255) 1)) (defun comm-format-i32 (int32) (insert-char (logand (ash int32 -24) 255) 1) (insert-char (logand (ash int32 -16) 255) 1) (insert-char (logand (ash int32 -8) 255) 1) (insert-char (logand int32 255) 1)) (defun comm-format-u16 (uint16) (insert-char (logand (lsh uint16 -8) 255) 1) (insert-char (logand uint16 255) 1)) (defun comm-format-u8 (uint8) (insert-char (logand uint8 255) 1)) (defun comm-format-truncate-after-null (s) (if (string-match "\0" s) (substring s 0 (match-beginning 0)) s)) (defun comm-format-u16-string (s) (insert (encode-coding-string (comm-format-truncate-after-null s) egg-fixed-euc)) (insert-char 0 2)) (defun comm-format-mb-string (s) (insert (encode-coding-string (comm-format-truncate-after-null s) egg-mb-euc)) (insert-char 0 1)) (defun comm-format-u8-string (s) (insert (comm-format-truncate-after-null s)) (insert-char 0 1)) (defun comm-format-binary-data (s) (insert (encode-coding-string s 'egg-binary)) (insert-char ?\377 2)) (defun comm-format-fixlen-string (s len) (setq s (comm-format-truncate-after-null s)) (insert (if (< (length s) len) s (substring s 0 (1- len)))) (insert-char 0 (max (- len (length s)) 1))) (defun comm-format-vector (s len) (setq s (concat s)) (insert (if (<= (length s) len) s (substring s 0 len))) (insert-char 0 (- len (length s)))) (defmacro comm-format (format &rest args) "Format a string out of a control-list and arguments into the buffer. The formated datas are network byte oder (i.e. big endian).. U: 32-bit integer. The argument is 2 element 16-bit unsigned integer list. u: 32-bit integer. The argument is treat as unsigned integer. (Note: Elisp's integer may be less than 32 bits) i: 32-bit integer. (Note: Elisp's integer may be greater than 32 bits) w: 16-bit integer. b: 8-bit integer. S: 16-bit wide-character EUC string (0x0000 terminated). E: Multibyte EUC string (0x00 terminated). s: 8-bit string (0x00 terminated). B: Binary data (0xff terminated). v: 8-bit vector (no terminator). This takes 2 args (data length). V: Fixed length string (0x00 terminated). This takes 2 args (data length)." (let ((p args) (form format) (result (list 'progn)) f arg) (while (and form p) (setq f (car form) arg (car p)) (nconc result (list (cond ((eq f 'U) (list 'comm-format-u32c arg)) ((eq f 'u) (list 'comm-format-u32 arg)) ((eq f 'i) (list 'comm-format-i32 arg)) ((eq f 'w) (list 'comm-format-u16 arg)) ((eq f 'b) (list 'comm-format-u8 arg)) ((eq f 'S) (list 'comm-format-u16-string arg)) ((eq f 'E) (list 'comm-format-mb-string arg)) ((eq f 's) (list 'comm-format-u8-string arg)) ((eq f 'B) (list 'comm-format-binary-data arg)) ((eq f 'V) (setq p (cdr p)) (list 'comm-format-fixlen-string arg (car p))) ((eq f 'v) (setq p (cdr p)) (list 'comm-format-vector arg (car p)))))) (setq form (cdr form) p (cdr p))) (if (or form p) (error "comm-format %s: arguments mismatch" format)) result)) (defvar comm-accept-timeout nil) ;; Assume PROC is bound to the process of current buffer ;; Do not move the point, leave it where it was. (defmacro comm-accept-process-output () `(let ((p (point))) (if (null (accept-process-output proc comm-accept-timeout)) (egg-error "backend timeout")) (goto-char p))) (defmacro comm-require-process-output (n) `(if (< (point-max) (+ (point) ,n)) (comm-wait-for-space proc ,n))) (defun comm-wait-for-space (proc n) (let ((p (point)) (r (+ (point) n))) (while (< (point-max) r) (if (null (accept-process-output proc comm-accept-timeout)) (egg-error "backend timeout")) (goto-char p)))) (defmacro comm-following+forward-char () `(prog1 (following-char) (forward-char 1))) (defun comm-unpack-u32c () (progn (comm-require-process-output 4) (list (+ (lsh (comm-following+forward-char) 8) (comm-following+forward-char)) (+ (lsh (comm-following+forward-char) 8) (comm-following+forward-char))))) (defun comm-unpack-i32 () (progn (comm-require-process-output 4) (+ (lsh (- (logxor (comm-following+forward-char) 128) 128) 24) (lsh (comm-following+forward-char) 16) (lsh (comm-following+forward-char) 8) (comm-following+forward-char)))) (defun comm-unpack-u32 () (progn (comm-require-process-output 4) (+ (lsh (comm-following+forward-char) 24) (lsh (comm-following+forward-char) 16) (lsh (comm-following+forward-char) 8) (comm-following+forward-char)))) (defun comm-unpack-u16 () (progn (comm-require-process-output 2) (+ (lsh (comm-following+forward-char) 8) (comm-following+forward-char)))) (defun comm-unpack-u8 () (progn (comm-require-process-output 1) (comm-following+forward-char))) (defun comm-unpack-u16-string () (let ((start (point))) (while (not (search-forward "\0\0" nil t)) (comm-accept-process-output)) (decode-coding-string (buffer-substring start (- (point) 2)) egg-fixed-euc))) (defun comm-unpack-mb-string () (let ((start (point))) (while (not (search-forward "\0" nil t)) (comm-accept-process-output)) (decode-coding-string (buffer-substring start (1- (point))) egg-mb-euc))) (defun comm-unpack-u8-string () (let ((start (point))) (while (not (search-forward "\0" nil 1)) (comm-accept-process-output)) (buffer-substring start (1- (point))))) (defun comm-unpack-binary-data () (let ((start (point))) (while (not (search-forward "\377\377" nil 1)) (comm-accept-process-output)) (string-as-unibyte (decode-coding-string (buffer-substring start (- (point) 2)) 'egg-binary)))) (defun comm-unpack-fixlen-string (len) (let (s) (comm-require-process-output len) (goto-char (+ (point) len)) (setq s (buffer-substring (- (point) len) (point))) (if (string-match "\0" s) (setq s (substring s 0 (match-beginning 0)))) s)) (defun comm-unpack-vector (len) (progn (comm-require-process-output len) (goto-char (+ (point) len)) (buffer-substring (- (point) len) (point)))) (defmacro comm-unpack (format &rest args) "Unpack a string out of a control-string and set arguments. See `comm-format' for FORMAT." (let ((p args) (form format) (result (list 'progn)) arg f) (while (and form p) (setq f (car form) arg (car p)) (nconc result (list (cond ((eq f 'U) `(setq ,arg (comm-unpack-u32c))) ((eq f 'u) `(setq ,arg (comm-unpack-u32))) ((eq f 'i) `(setq ,arg (comm-unpack-i32))) ((eq f 'w) `(setq ,arg (comm-unpack-u16))) ((eq f 'b) `(setq ,arg (comm-unpack-u8))) ((eq f 'S) `(setq ,arg (comm-unpack-u16-string))) ((eq f 'E) `(setq ,arg (comm-unpack-mb-string))) ((eq f 's) `(setq ,arg (comm-unpack-u8-string))) ((eq f 'B) `(setq ,arg (comm-unpack-binary-data))) ((eq f 'V) (setq p (cdr p)) `(setq ,arg (comm-unpack-fixlen-string ,(car p)))) ((eq f 'v) (setq p (cdr p)) `(setq ,arg (comm-unpack-vector ,(car p))))))) (setq form (cdr form) p (cdr p))) (if (or form p) (error "comm-unpack %s: arguments mismatch" format)) result)) (defmacro comm-call-with-proc (proc vlist send-expr &rest receive-exprs) (let ((euc-select (and (eq (car-safe (car vlist)) 'zhuyin) '((egg-fixed-euc (nth (if zhuyin 1 0) egg-fixed-euc)))))) `(let* ((proc ,proc) (buffer (process-buffer proc)) ,@vlist) (if (and (eq (process-status proc) 'open) (buffer-live-p buffer)) (save-excursion (set-buffer buffer) (let ,euc-select (erase-buffer) ,send-expr (goto-char (point-max)) (process-send-region proc (point-min) (point-max)) ,@receive-exprs)) (egg-error "process %s was killed" proc))))) (defmacro comm-call-with-proc-1 (proc vlist send-expr &rest receive-exprs) `(let ,vlist (erase-buffer) ,send-expr (goto-char (point-max)) (process-send-region proc (point-min) (point-max)) ,@receive-exprs)) (provide 'egg-com) ;;; egg-com.el ends here. egg-4.0.6+0.20041122cvs/egg-edep.el0000644000764400003210000000652607234613504017463 0ustar ishikawaishikawa00000000000000;; egg-edep.el --- This file serves Emacs version dependent definitions ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (if (and (fboundp 'set-buffer-multibyte) (subrp (symbol-function 'set-buffer-multibyte))) ;; Emacs 20.3 (progn (defun egg-char-bytes (x) 1) (defun egg-charset-bytes (x) 1) (defun egg-char-bytes-at (str pos) 1) (defun egg-chars-in-period (str pos len) len) (defalias 'egg-string-to-vector 'identity) (defalias 'egg-string-to-char-at 'aref) ) ;; Emacs 20.2 (defun set-buffer-multibyte (flag) (setq enable-multibyte-characters flag)) (defalias 'string-as-unibyte 'identity) (defalias 'string-as-multibyte 'identity) (defalias 'coding-system-put 'put) (defalias 'egg-char-bytes 'char-bytes) (defalias 'egg-charset-bytes 'charset-bytes) (defun egg-char-bytes-at (str pos) (char-bytes (egg-string-to-char-at str pos))) (defun egg-chars-in-period (str pos len) (chars-in-string (substring str pos (+ pos len)))) (defalias 'egg-string-to-vector 'string-to-vector) (defalias 'egg-string-to-char-at 'sref) ) ;; Elisp bug fix (defun egg-next-single-property-change (pos prop &optional object limit) (if limit (min limit (next-single-property-change pos prop object (1+ limit))) (next-single-property-change pos prop object))) (defun egg-string-match-charset (charset string &optional start) (let ((cur-ct (category-table)) category) (unwind-protect (progn (set-category-table (copy-category-table)) (setq category (get-unused-category)) (define-category category "") (modify-category-entry (make-char charset) category) (string-match (concat "\\c" (list category) "+") string start)) (set-category-table cur-ct)))) (unless (egg-string-match-charset 'japanese-jisx0208 "$B!#(B") (defun egg-string-match-charset (charset string &optional start) (let (min max) (if (= (charset-chars charset) 94) (setq min 33 max 126) (setq min 32 max 127)) (string-match (if (= (charset-dimension charset) 1) (concat "[" (list (make-char charset min)) "-" (list (make-char charset max)) "]+") (concat "[" (list (make-char charset min min)) "-" (list (make-char charset max max)) "]+")) string start)))) (provide 'egg-edep) egg-4.0.6+0.20041122cvs/egg-mlh.el0000644000764400003210000003775507532251421017333 0ustar ishikawaishikawa00000000000000;;; egg-mlh.el --- Modeless Conversion Facility in Egg Input ;;; Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ; Multilingual Enhancement ;; Maintainer: NIIBE Yutaka ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (defvar mlh-default-backend "wnn") (defun mlh-space-bar-backward-henkan () "If the character preceding point is / (slash), Do `mlh-backward-henkan'. Then, invoke appropriate conversion, if needed. Or else, execute command that space-bar invokes usually." (interactive) (let ((henkan-begin nil) (inhibit-henkan t) (its-disable-special-action t)) (if (null (assq 'Japanese egg-conversion-backend-alist)) (progn (setq egg-mode-preference nil) (activate-input-method (concat "japanese-egg-" mlh-default-backend))) ;; force to Japanese (its-select-hiragana)) (mlh-backward-henkan) (if henkan-begin (if (or inhibit-henkan (= henkan-begin (point))) (egg-do-auto-fill) (progn (message "Converting...") (sit-for 0) (egg-convert-region henkan-begin (point)) (message "") )) (setq this-command 'self-insert-command) (call-interactively 'self-insert-command)))) (defvar mlh-punctuations nil) (if mlh-punctuations () (setq mlh-punctuations "!()?;:")) (defvar mlh-conversion-scheme-table '( (?- . mlh-kanji) ; (?` . mlh-ltn) ; (?' . mlh-ltn) ; (?, . mlh-ltn) (?, . mlh-kanji) (?. . mlh-kanji) ; (?^ . mlh-ltn) ; (?~ . mlh-ltn) ; (?\". mlh-ltn) ; (?@ . mlh-ltn) ; (?< . mlh-ltn) ; (?> . mlh-ltn) (?a . mlh-kanji) ; (?b . mlh-) (?c . mlh-capitalize) (?d . mlh-user-defined-conversion) (?e . mlh-kanji) (?f . mlh-hiragana) (?g . mlh-greek) (?h . mlh-hangul) (?i . mlh-kanji) (?j . mlh-jis-code) (?k . mlh-katakana) ; (?l . mlh-ligature) ; (?m . mlh-) (?n . mlh-kanji) ; (?n . mlh-no-conversion) (?o . mlh-kanji) (?p . mlh-upcase-letter) (?q . mlh-quit) ; (?r . mlh-) (?s . mlh-small-letter) (?t . mlh-zhongwen-tw) (?u . mlh-kanji) ; (?v . mlh-) (?w . mlh-white-space) (?x . mlh-execute) ; (?y . mlh-) (?z . mlh-zhongwen) (?H . mlh-hiragana-to-kanji) (?L . mlh-lisp-expression) (?W . mlh-zenkaku-white) (?X . mlh-exit) (?Z . mlh-zenkaku) )) (defun mlh-zenkaku-white () (forward-char -1) (skip-chars-backward "0-9") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (let* ((str (buffer-substring beg (point))) (val (string-to-int str))) (delete-region beg (point)) (if (= val 0) (setq val 1)) (while (> val 0) (insert "$B!!(B") (setq val (1- val)))) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-exit () (goto-char end-marker) (backward-delete-char 2) (insert " ") (setq henkan-begin (point))) (defun mlh-upcase-letter () (forward-char -1) (skip-chars-backward "a-zA-Z0-9") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (upcase-region beg (point)) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-capitalize () (forward-char -1) (skip-chars-backward "a-zA-Z1-9") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (capitalize-region beg (point)) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-jis-code () (forward-char -1) (skip-chars-backward "0-9a-fA-F") (mlh-backward-henkan) (if (/= (- end-marker (point)) 6) (error "invalid length")) (setq beg (point)) (let ((val (car (read-from-string (concat "?\\x" (buffer-substring beg (- end-marker 2))))))) (insert (make-char 'japanese-jisx0208 (/ val 256) (% val 256))) (delete-region (point) end-marker)) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-lisp-expression () (forward-char -1) (let ((stab (syntax-table))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (forward-sexp -1)) (set-syntax-table stab))) (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (let* ((exp-str (buffer-substring beg (point))) (exp (car (read-from-string exp-str))) (result (eval exp))) (delete-region beg (point)) (insert (format "%s" result))) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-quit () (goto-char end-marker) (backward-delete-char 2) (setq henkan-begin (point))) (defun mlh-no-conversion () (forward-char -1) (skip-chars-backward "\041-\056\060-\176") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (if (null henkan-begin) (setq henkan-begin beg))) (fset 'mlh-small-letter (symbol-function 'mlh-no-conversion)) (defun mlh-white-space () (forward-char -1) (skip-chars-backward "0-9") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (let* ((str (buffer-substring beg (point))) (val (string-to-int str))) (delete-region beg (point)) (if (= val 0) (setq val 1)) (insert (make-string val ?\ ))) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-execute () (forward-char -1) (if (fboundp 'mlh-userdef-function) (mlh-userdef-function) (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (if (null henkan-begin) (setq henkan-begin beg)))) (defun mlh-backward-henkan () "For each words seperated by / (slash), do conversion. Accoding to a character preceding slash, conversion scheme are selected. CHAR. MNEMONIC CONVERSION SCHEME H Hiragana to kanji Convert Hiragana to Kanji L Lisp Evaluate as Emacs-Lisp expression W zenkaku White space Insert Zenkaku spaces X eXit Quit going backward, insert space Z Zenkaku Convert to Zenkaku c Capitalize Capitalize d user Definition Convert with user definition table f Firagana ?? Convert to Hiragana g Greek letter Convert to single greek letter h Hangul Convert to Hangul j Jis-code Convert to character which has code k Katakana Convert to Katakana l Ligature Ligature (not implemented yet) p uPcase letter uPcase q Quit Quit going backward s Small letter No conversion w White space Insert spaces x eXecute Call user defined function z Zhongwen Convert to Zhongwen OTHERWISE Convert to KANJI " (if (eq (preceding-char) ?/) (let ((end-marker (point-marker)) (char nil) (beg nil)) (set-marker-insertion-type end-marker t) (unwind-protect (let (scheme) (backward-char 1) (setq char (preceding-char)) (cond ((setq scheme (assq char mlh-conversion-scheme-table)) (funcall (cdr scheme))) (t (goto-char end-marker))) (if beg (progn (goto-char beg) (mlh-do-spacing) (goto-char end-marker)))) (set-marker end-marker nil))))) (defvar mlh-syntax-table nil "Syntax table of mlh, which are used to determine spacing.") (if mlh-syntax-table () (setq mlh-syntax-table (copy-syntax-table emacs-lisp-mode-syntax-table)) (modify-syntax-entry ?! "." mlh-syntax-table) (modify-syntax-entry ?$ "'" mlh-syntax-table) (modify-syntax-entry ?% "'" mlh-syntax-table) (modify-syntax-entry ?& "'" mlh-syntax-table) (modify-syntax-entry ?{ "(}" mlh-syntax-table) (modify-syntax-entry ?} "){" mlh-syntax-table) ) ;;; XXX RTFM, gniibe! (defvar mlh-space-control '( (("al".?w).("al".?w)) (("al".?w).("al".?_)) (("al".?w).("Hj|".?e)) (("al".?w).("Cj|".?e)) (("al".?_).("al".?w)) (("al".?_).("al".?_)) (("al".?_).("Hj|".?e)) (("al".?_).("Cj|".?e)) (("al".?.).("al".?w)) (("al".?.).("al".?_)) (("al".?_).("Hj|".?e)) (("al".?_).("Cj|".?e)) (("Hj|".?e).("al".?w)) (("Cj|".?e).("al".?w)) (("Hj|".?e).("al".?_)) (("Cj|".?e).("al".?_)) ) "Alist that determines inserting space.") (defun mlh-do-spacing () "Arrange spacing as you like." (if (bobp) () (let ((s-tab (syntax-table)) s-pc s-fc c-pc c-fc) (unwind-protect (progn (set-syntax-table mlh-syntax-table) (setq s-pc (char-syntax (preceding-char)) s-fc (char-syntax (following-char)))) (set-syntax-table s-tab)) (setq c-pc (category-set-mnemonics (char-category-set (preceding-char))) c-fc (category-set-mnemonics (char-category-set (following-char)))) (if (member (cons (cons c-pc s-pc) (cons c-fc s-fc)) mlh-space-control) (progn (and henkan-begin (>= henkan-begin (point)) (setq henkan-begin (1+ henkan-begin))) (insert " ")))))) (defvar mlh-select-mode-map (make-keymap)) ;;; acutually this map is not necessary now. for future extention (defvar mlh-select-mode-esc-map (make-keymap)) (define-key mlh-select-mode-map [t] 'undefined) (define-key mlh-select-mode-esc-map [t] 'undefined) (let ((ch 32)) (while (< ch 127) (define-key mlh-select-mode-map (char-to-string ch) 'mlh-select-kakutei-and-self-insert) (setq ch (1+ ch)))) (define-key mlh-select-mode-map "\C-m" 'mlh-select-kakutei-and-self-insert) (define-key mlh-select-mode-map "\C-b" 'mlh-select-prev-candidate) (define-key mlh-select-mode-map "\C-f" 'mlh-select-next-candidate) (define-key mlh-select-mode-map "\177" 'mlh-select-prev-candidate) (define-key mlh-select-mode-map " " 'mlh-select-next-candidate) (define-key mlh-select-mode-map "/" 'mlh-select-kakutei) (if (eq window-system 'x) (let () (define-key mlh-select-mode-map [return] 'mlh-select-kakutei-and-self-insert) (define-key mlh-select-mode-map [delete] 'mlh-select-prev-candidate) )) (defun mlh-select-insert-candidate (n) (delete-region beg (point)) (insert (nth n candidates))) (defun mlh-select-prev-candidate () (interactive) (setq current-candidate (1- current-candidate)) (if (< current-candidate 0) (setq current-candidate (1- number-of-candidates))) (mlh-select-insert-candidate current-candidate)) (defun mlh-select-next-candidate () (interactive) (setq current-candidate (1+ current-candidate)) (if (>= current-candidate number-of-candidates) (setq current-candidate 0)) (mlh-select-insert-candidate current-candidate)) (defun mlh-recursive-edit-select (beg end candidates) (mlh-select-insert-candidate 0) (and (boundp 'disable-undo) (setq disable-undo t)) (let ((old-local-map (current-local-map)) (number-of-candidates (length candidates)) (current-candidate 0)) (use-local-map mlh-select-mode-map) (recursive-edit) (use-local-map old-local-map))) (defun mlh-select-kakutei-and-self-insert () (interactive) (setq unread-command-events (list last-command-event)) (mlh-select-kakutei)) (defun mlh-select-kakutei () (interactive) (and (boundp 'disable-undo) (setq disable-undo nil)) (exit-recursive-edit)) (defun mlh-user-defined-conversion () (forward-char -1) (skip-chars-backward "-a-zA-Z") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (let* ((str (buffer-substring beg (point))) (userdef (mlh-userdef<==string str))) (cond ((stringp userdef) (delete-region beg (point)) (insert userdef)) ((null userdef) (delete-region beg (point)) ;; (add-userdef) (insert new-userdef) (insert "?udef?")) ((consp userdef) (mlh-recursive-edit-select beg (point) userdef)))) (if (null henkan-begin) (setq henkan-begin beg))) (defvar mlh-userdef-table nil "Convertion table of words(string) to another words(string).") (defun mlh-userdef<==string (str) "Convert string to another string with `mlh-userdef-table'" (cdr (assoc str mlh-userdef-table))) (defvar mlh-kanji-function 'mlh-kanji-with-henkan-region-function) (defun mlh-kanji () (funcall mlh-kanji-function)) (defun mlh-kanji-with-henkan-region-function () (skip-chars-backward "-a-z,.'N[]") (mlh-backward-henkan) (setq inhibit-henkan nil) (setq beg (point)) (goto-char end-marker) (forward-char -1) (its-translate-region-internal beg (point)) (delete-region (point) end-marker) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-hiragana () (forward-char -1) (skip-chars-backward "-a-z,.'N[]") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (forward-char -2) (its-translate-region-internal beg (point)) (delete-region (point) end-marker) (setq henkan-begin (point))) (defun mlh-hiragana-to-kanji () (forward-char -1) (skip-chars-backward "$B$!(B-$B$s!<(B") (mlh-backward-henkan) (setq beg (point)) (setq inhibit-henkan nil) (goto-char end-marker) (backward-delete-char 2) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-katakana () (forward-char -1) (skip-chars-backward "-a-z,.'N[]") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (forward-char -2) (its-translate-region-internal beg (point)) (japanese-katakana-region beg (point)) (delete-region (point) end-marker) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-zenkaku () (forward-char -1) (skip-chars-backward "\041-\056\060-\176") (mlh-backward-henkan) (setq beg (point)) (goto-char end-marker) (backward-delete-char 2) (japanese-zenkaku-region beg (point)) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-hangul () (forward-char -1) (skip-chars-backward "a-zEO-RTW,.[]") (mlh-backward-henkan) (setq beg (point)) (setq inhibit-henkan nil) (goto-char end-marker) (forward-char -2) (let (its-current-map its-current-language) (its-select-hangul nil t) (its-translate-region-internal beg (point))) (delete-region (point) end-marker) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-zhongwen () (forward-char -1) (skip-chars-backward "a-z0-4 ,.[]") (mlh-backward-henkan) (setq beg (point)) (setq inhibit-henkan nil) (goto-char end-marker) (forward-char -2) (let (its-current-map its-current-language) (its-select-pinyin-cn nil t) (its-translate-region-internal beg (point))) (delete-region (point) end-marker) (if (null henkan-begin) (setq henkan-begin beg))) (defun mlh-zhongwen-tw () (forward-char -1) (skip-chars-backward "a-z0-4,.[]") (mlh-backward-henkan) (setq beg (point)) (setq inhibit-henkan nil) (goto-char end-marker) (forward-char -2) (let (its-current-map its-current-language) (its-select-pinyin-tw nil t) (its-translate-region-internal beg (point))) (delete-region (point) end-marker) (if (null henkan-begin) (setq henkan-begin beg))) (provide 'egg-mlh) ;;; egg-mlh.el ends here. egg-4.0.6+0.20041122cvs/egg-sim.el0000644000764400003210000004213007234614431017325 0ustar ishikawaishikawa00000000000000;;; -*- coding: iso-2022-7bit -*- ;;; egg-sim.el --- EGG Simple Input Method ;; Copyright (C) 2000 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Copyright (C) 2000 TOMURA Satoru ;; Author: TOMURA Satoru ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: ;;; This code is based on egg-jsymbol.el of Egg V3. ;;; 92.10.18 modified for Mule Ver.0.9.6 by K.Handa ;;; Moved from egg.el ;;; 92.12.26 modified for Mule Ver.0.9.7 by T.Shingu ;;; JIS Hojo Kanji support. (require 'menudiag) (provide 'egg-sim) (defun make-char-list (charset &optional from to) (let ((result nil) (chars (charset-chars charset)) min max) (setq min (if (= chars 96) 32 33) max (if (= chars 96) 127 126)) (setq from (if from (+ min (1- from)) min) to (if to (+ min (1- to)) max)) (and (<= min from) (<= to max) (cond ((= (charset-dimension charset) 1) (while (<= from to) (setq result (cons (char-to-string (make-char charset to)) result) to (1- to))) result) ((= (charset-dimension charset) 2) (while (<= from to) (let ((code max)) (while (<= min code) (setq result (cons (char-to-string (make-char charset to code)) result) code (1- code)))) (setq to (1- to))) result))))) (defvar egg-sim-ascii-menu `(menu "ASCII:" ,(make-char-list 'ascii))) (defvar egg-sim-latin-1-menu `(menu "ISO 8859-1:" ,(make-char-list 'latin-iso8859-1))) (defvar egg-sim-latin-2-menu `(menu "ISO 8859-2:" ,(make-char-list 'latin-iso8859-2))) (defvar egg-sim-latin-3-menu `(menu "ISO 8859-3:" ,(make-char-list 'latin-iso8859-3))) (defvar egg-sim-latin-4-menu `(menu "ISO 8859-4:" ,(make-char-list 'latin-iso8859-4))) (defvar egg-sim-latin-5-menu `(menu "ISO 8859-9:" ,(make-char-list 'latin-iso8859-9))) (defvar egg-sim-cyrillic-menu `(menu "ISO 8859-5:" ,(make-char-list 'cyrillic-iso8859-5))) (defvar egg-sim-arabic-menu `(menu "ISO 8859-6:" ,(make-char-list 'arabic-iso8859-6))) (defvar egg-sim-greek-menu `(menu "ISO 8859-7:" ,(make-char-list 'greek-iso8859-7))) (defvar egg-sim-hebrew-menu `(menu "ISO 8859-8:" ,(make-char-list 'hebrew-iso8859-8))) (defvar egg-sim-thai-menu `(menu "TIS620.2529:" ,(make-char-list 'thai-tis620))) (defvar egg-sim-lao-menu `(menu "lao:" ,(make-char-list 'lao))) (defvar egg-sim-vietnamese-menu `(menu "Vietnamese:" (("VISCII" . (menu "VISCII:" ( "a" ",1`(B" ",1d(B" ",1c(B" ",1a(B" ",1U(B" ",1e(B" ",1"(B" ",1F(B" ",1G(B" ",1!(B" ",1#(B" ",1b(B" ",1%(B" ",1&(B" ",1g(B" ",1$(B" ",1'(B" "e" ",1i(B" ",1k(B" ",1((B" ",1h(B" ",1)(B" ",1j(B" ",1*(B" ",1,(B" ",1-(B" ",1+(B" ",1.(B" "i" ",1m(B" ",1o(B" ",1n(B" ",1l(B" ",18(B" "o" ",1s(B" ",1v(B" ",1u(B" ",1r(B" ",1w(B" ",1t(B" ",1/(B" ",11(B" ",12(B" ",10(B" ",15(B" ",1=(B" ",1>(B" ",17(B" ",1^(B" ",16(B" ",1~(B" "u" ",1z(B" ",1|(B" ",1{(B" ",1y(B" ",1x(B" ",1_(B" ",1Q(B" ",1X(B" ",1f(B" ",1W(B" ",1q(B" "y" ",1}(B" ",1V(B" ",1[(B" ",1O(B" ",1\(B" "A" ",2`(B" ",2d(B" ",2c(B" ",2a(B" ",2U(B" ",2e(B" ",2"(B" ",2F(B" ",2G(B" ",2!(B" ",2#(B" ",2b(B" ",2%(B" ",2&(B" ",2g(B" ",2$(B" ",2'(B" "E" ",2h(B" ",2k(B" ",2((B" ",2i(B" ",2)(B" ",2j(B" ",2+(B" ",2,(B" ",2-(B" ",2*(B" ",2.(B" "I" ",2l(B" ",2o(B" ",2n(B" ",2m(B" ",28(B" "O" ",2r(B" ",2v(B" ",2u(B" ",2s(B" ",2w(B" ",2t(B" ",20(B" ",21(B" ",22(B" ",2/(B" ",25(B" ",2=(B" ",26(B" ",27(B" ",2^(B" ",2>(B" ",2~(B" "U" ",2y(B" ",2|(B" ",2{(B" ",2z(B" ",2x(B" ",2_(B" ",2W(B" ",2X(B" ",2f(B" ",2Q(B" ",2q(B" "Y" ",2O(B" ",2V(B" ",2[(B" ",2}(B" ",2\(B" ",2p(B" ",1p(B" ))) ("VISCII1.1(lower-case)" . (menu "VISCII1.1 lower-case:" ,(make-char-list 'vietnamese-viscii-lower))) ("VISCII1.1(upper-case)" . (menu "VISCII1.1 upper-case:" ,(make-char-list 'vietnamese-viscii-upper)))))) (defvar egg-sim-chinese-big5-menu `(menu "Big5:" (("Level1" . (menu "Big 5 Level1:" , (make-char-list 'chinese-big5-1))) ("Level2" . (menu "Big 5 Level2:" , (make-char-list 'chinese-big5-2)))))) (defvar egg-sim-chinese-cns-menu `(menu "CNS 11643:" (("Plane-1" . (menu "CNS 11643-1:" ,(make-char-list 'chinese-cns11643-1))) ("Plane- 2" . (menu "CNS 11643-2:" ,(make-char-list 'chinese-cns11643-2))) ("Plane-3" . (menu "CNS 11643-3:" ,(make-char-list 'chinese-cns11643-3))) ("Plane-4" . (menu "CNS 11643-4:" ,(make-char-list 'chinese-cns11643-4))) ("Plane-5" . (menu "CNS 11643-5:" ,(make-char-list 'chinese-cns11643-5))) ("Plane-6" . (menu "CNS 11643-6:" ,(make-char-list 'chinese-cns11643-6))) ("Plane-7" . (menu "CNS 11643-7:" ,(make-char-list 'chinese-cns11643-7)))))) (defvar egg-sim-chinese-gb-menu `(menu "GB 2312:" (("All" . (menu "GB 2312:" ,(make-char-list 'chinese-gb2312))) ("Symbols" . (menu "GB2312/1:" ,(make-char-list 'chinese-gb2312 1 1))) ("Numbers" . (menu "GB2312/2:" ,(make-char-list 'chinese-gb2312 2 2))) ("Fullwidth ASCII" . (menu "GB2312/3:" ,(make-char-list 'chinese-gb2312 3 3))) ("Hiragana" . (menu "GB2312/4:" ,(make-char-list 'chinese-gb2312 4 4))) ("Katanaka" . (menu "GB2312/5:" ,(make-char-list 'chinese-gb2312 5 5))) ("Greek" . (menu "GB2312/6:" ,(make-char-list 'chinese-gb2312 6 6))) ("Cyrillic" . (menu "GB2312/7:" ,(make-char-list 'chinese-gb2312 7 7))) ("Pinyin/Bopomofo" . (menu "GB2312/8:" ,(make-char-list 'chinese-gb2312 8 8))) ("Box Drawings" . (menu "GB2312/9:" ,(make-char-list 'chinese-gb2312 9 9))) ))) (defvar egg-sim-chinese-menu `(menu "Chinese:" (("GB2312" . , egg-sim-chinese-gb-menu) ("CNS11643" . , egg-sim-chinese-cns-menu) ("Big5" . , egg-sim-chinese-big5-menu)))) (defvar egg-sim-korean-menu `(menu "Korean:" (("KSC5601" . (menu "KSC 5601:" ,(make-char-list 'korean-ksc5601))) ("Symbol" . (menu "KSC 5601/1-2:" ,(make-char-list 'korean-ksc5601 1 2))) ("Fullwidth ASCII" . (menu "KSC 5601/3:" , (make-char-list 'korean-ksc5601 3 3))) ("Jamo" . (menu "KSC 5601/4:" , (make-char-list 'korean-ksc5601 4 4))) ("Roman Number/Greek" . (menu "KSC 5601/5:" , (make-char-list 'korean-ksc5601 5 5))) ("Box Drawings" . (menu "KSC 5601/6:" , (make-char-list 'korean-ksc5601 6 6))) ("Unit" . (menu "KSC 5601/7:" , (make-char-list 'korean-ksc5601 7 7))) ("Misc." . (menu "KSC 5601/8-9:" , (make-char-list 'korean-ksc5601 8 9))) ("Hiragana" . (menu "KSC 5601/10:" , (make-char-list 'korean-ksc5601 10 10))) ("Katakana" . (menu "KSC 5601/11:" , (make-char-list 'korean-ksc5601 11 11))) ("Cyrillic" . (menu "KSC 5601/12:" , (make-char-list 'korean-ksc5601 12 12))) ("Hangul" . (menu "KSC 5601/16-40:" , (make-char-list 'korean-ksc5601 16 40))) ("Hanja" . (menu "KSC 5601/42-93:" , (make-char-list 'korean-ksc5601 42 93)))))) (defvar egg-sim-japanese-menu `(menu "Japanese:" (("JISX0201" . (menu "JIS X 0201:" ,(append (make-char-list 'latin-jisx0201) (make-char-list 'katakana-jisx0201)))) ("JISX0208" . (menu "JIS X 0208:" ,(make-char-list 'japanese-jisx0208))) ("JISX0212" . (menu "JIS X 0212:" ,(make-char-list 'japanese-jisx0212))) ("JISX0208/0212" . (menu "$B5-9fF~NO(B:" (("JIS$BF~NO(B" . japanese-jisx0208) ("$B5-9f(B" . (menu "$B5-9f(B:" , (make-char-list 'japanese-jisx0208 1 2))) ("$B1Q?t;z(B" . (menu "$B1Q?t;z(B:" , (make-char-list 'japanese-jisx0208 3 3))) ("$B$R$i$,$J(B" . (menu "$B$R$i$,$J(B:" , (make-char-list 'japanese-jisx0208 4 4))) ("$B%+%?%+%J(B" . (menu "$B%+%?%+%J(B:" , (make-char-list 'japanese-jisx0208 5 5))) ("$B%.%j%7%cJ8;z(B" . (menu "$B%.%j%7%cJ8;z(B:" , (make-char-list 'japanese-jisx0208 6 6))) ("$B%-%j%kJ8;z(B" . (menu "$B%-%j%kJ8;z(B:" , (make-char-list 'japanese-jisx0208 7 7))) ("$B7S@~(B" . (menu "$B7S@~(B:" , (make-char-list 'japanese-jisx0208 8 8))) ;;;"$BIt ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This module defines JIS X 0213 character sets if these character ;; sets are not defined. This module also defines fixed-euc-jisx0213 ;; coding systems if these coding systems are not defined and can be ;; defined. ;;; Code: (if (not (charsetp 'japanese-jisx0213-1)) (define-charset 151 'japanese-jisx0213-1 [2 94 2 0 ?O 0 "JISX0213-1" "JISX0213-1" "JISX0213-1 (Japanese)"])) (if (not (charsetp 'japanese-jisx0213-2)) (define-charset 254 'japanese-jisx0213-2 [2 94 2 0 ?P 0 "JISX0213-2" "JISX0213-2" "JISX0213-2 (Japanese)"])) ;; Mule-UCS is required to adopt fixed-euc-jisx0213. (or noninteractive ;; unnecessary in non-interactive mode. (unless (or (require 'jisx0213) (get 'jisx0213-to-jisx0208/0212 'translation-table)) (message "Mule-UCS not installed.")) (coding-system-p 'fixed-euc-jisx0213) (progn (define-ccl-program ccl-decode-fixed-euc-jisx0213 `(2 ((r3 = ,(charset-id 'katakana-jisx0201)) (loop ;; ascii kana 212 208 (read r0) ;; r0 - 0 0 h h (read r1) ;; r1 - l h l h (if (r0 < ?\x80) ((if (r1 < ?\x80) (write-repeat r1)) (write r3) (write-repeat r1)) ((r0 &= 127) (r0 <<= 7) (if (r1 > ?\x80) ((r1 &= 127) (r2 = ,(charset-id 'japanese-jisx0213-1))) (r2 = ,(charset-id 'japanese-jisx0213-2))) (r0 += r1) (translate-character jisx0213-to-jisx0208/0212 r2 r0) (write-multibyte-character r2 r0) (repeat) )))))) (define-ccl-program ccl-encode-fixed-euc-jisx0213 `(2 ((loop (read-multibyte-character r0 r1) (r6 = (r0 == ,(charset-id 'ascii))) ;G0 (r6 |= (r0 == ,(charset-id 'latin-jisx0201))) (if r6 ((write 0) (write-repeat r1))) (r6 = (r0 == ,(charset-id 'japanese-jisx0208))) (r6 |= (r0 == ,(charset-id 'japanese-jisx0208-1978))) (r6 |= (r0 == ,(charset-id 'japanese-jisx0213-1))) (if r6 ;G1 ((r2 = (r1 >> 7)) (write (r2 | ?\x80)) (write ((r1 & ?\x7f) | ?\x80)) (repeat))) (if (r0 == ,(charset-id 'katakana-jisx0201)) ;G2 ((write 0) (write (r1 | ?\x80)) (repeat))) (r6 = (r0 == ,(charset-id 'japanese-jisx0212))) ;G3 (r6 |= (r0 == ,(charset-id 'japanese-jisx0213-2))) (if r6 ((r2 = (r1 >> 7)) (write (r2 | ?\x80)) (write (r1 & ?\x7f)) (repeat))) (repeat))))) (make-coding-system 'fixed-euc-jisx0213 4 ?W "Coding System for fixed EUC Japanese" (cons ccl-decode-fixed-euc-jisx0213 ccl-encode-fixed-euc-jisx0213)))) (provide 'egg-x0213) egg-4.0.6+0.20041122cvs/egg.el0000644000764400003210000002631507517100121016534 0ustar ishikawaishikawa00000000000000;;; egg.el --- EGG Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (defconst egg-version "4.0.6" "Version number for this version of Tamago.") (eval-when-compile (require 'cl)) (require 'egg-edep) (autoload 'egg-simple-input-method "egg-sim" "simple input method for Tamago 4." t) (defgroup egg nil "Tamago Version 4.") (defcustom egg-mode-preference t "*Make Egg as modefull input method, if non-NIL." :group 'egg :type 'boolean) (defvar egg-default-language) (defvar egg-last-method-name nil) (make-variable-buffer-local 'egg-last-method-name) (put 'egg-last-method-name 'permanent-local t) (defvar egg-mode-map-alist nil) (defvar egg-sub-mode-map-alist nil) (defmacro define-egg-mode-map (mode &rest initializer) (let ((map (intern (concat "egg-" (symbol-name mode) "-map"))) (var (intern (concat "egg-" (symbol-name mode) "-mode"))) (comment (concat (symbol-name mode) " keymap for EGG mode."))) `(progn (defvar ,map (let ((map (make-sparse-keymap))) ,@initializer map) ,comment) (fset ',map ,map) (defvar ,var nil) (make-variable-buffer-local ',var) (put ',var 'permanent-local t) (or (assq ',var egg-mode-map-alist) (setq egg-mode-map-alist (append egg-mode-map-alist '((,var . ,map)))))))) (define-egg-mode-map modefull (define-key map "\C-^" 'egg-simple-input-method) (let ((i 33)) (while (< i 127) (define-key map (vector i) 'egg-self-insert-char) (setq i (1+ i))))) (define-egg-mode-map modeless (define-key map " " 'mlh-space-bar-backward-henkan) (define-key map "\C-^" 'egg-simple-input-method)) (defvar egg-enter/leave-fence-hook nil) (defun egg-enter/leave-fence (&optional old new) (run-hooks 'egg-enter/leave-fence-hook)) (defvar egg-activated nil) (make-variable-buffer-local 'egg-activated) (put 'egg-activated 'permanent-local t) (defun egg-activate-keymap () (when (and egg-activated (null (eq (car egg-sub-mode-map-alist) (car minor-mode-overriding-map-alist)))) (let ((alist (append egg-sub-mode-map-alist egg-mode-map-alist)) (overriding (copy-sequence minor-mode-overriding-map-alist))) (while alist (setq overriding (delq (assq (caar alist) overriding) overriding) alist (cdr alist))) (setq minor-mode-overriding-map-alist (append egg-sub-mode-map-alist overriding egg-mode-map-alist))))) (add-hook 'egg-enter/leave-fence-hook 'egg-activate-keymap t) (defun egg-modify-fence (&rest arg) (add-hook 'post-command-hook 'egg-post-command-func)) (defun egg-post-command-func () (run-hooks 'egg-enter/leave-fence-hook) (remove-hook 'post-command-hook 'egg-post-command-func)) (defvar egg-change-major-mode-buffer nil) (defun egg-activate-keymap-after-command () (while egg-change-major-mode-buffer (save-excursion (when (buffer-live-p (car egg-change-major-mode-buffer)) (set-buffer (car egg-change-major-mode-buffer)) (egg-activate-keymap)) (setq egg-change-major-mode-buffer (cdr egg-change-major-mode-buffer)))) (remove-hook 'post-command-hook 'egg-activate-keymap-after-command)) (defun egg-change-major-mode-func () (setq egg-change-major-mode-buffer (cons (current-buffer) egg-change-major-mode-buffer)) (add-hook 'post-command-hook 'egg-activate-keymap-after-command)) (add-hook 'change-major-mode-hook 'egg-change-major-mode-func) ;;;###autoload (defun egg-mode (&rest arg) "Toggle EGG mode. \\[describe-bindings] " (interactive "P") (if (null arg) ;; Turn off (unwind-protect (progn (its-exit-mode) (egg-exit-conversion)) (setq describe-current-input-method-function nil egg-modefull-mode nil egg-modeless-mode nil) (remove-hook 'input-method-activate-hook 'its-set-mode-line-title t) (force-mode-line-update)) ;; Turn on (if (null (string= (car arg) egg-last-method-name)) (progn (funcall (nth 1 arg)) (setq egg-default-language its-current-language))) (egg-set-conversion-backend (nthcdr 2 arg)) (egg-set-conversion-backend (list (assq its-current-language (nthcdr 2 arg))) t) (setq egg-last-method-name (car arg) egg-activated t) (egg-activate-keymap) (if egg-mode-preference (progn (setq egg-modefull-mode t) (its-define-select-keys egg-modefull-map)) (setq egg-modeless-mode t)) (setq inactivate-current-input-method-function 'egg-mode) (setq describe-current-input-method-function 'egg-help) (make-local-hook 'input-method-activate-hook) (add-hook 'input-method-activate-hook 'its-set-mode-line-title nil t) (if (eq (selected-window) (minibuffer-window)) (add-hook 'minibuffer-exit-hook 'egg-exit-from-minibuffer)) (run-hooks 'egg-mode-hook))) (defun egg-exit-from-minibuffer () (inactivate-input-method) (if (<= (minibuffer-depth) 1) (remove-hook 'minibuffer-exit-hook 'egg-exit-from-minibuffer))) (defvar egg-context nil) (defun egg-self-insert-char () (interactive) (its-start last-command-char (and (eq last-command 'egg-use-context) egg-context))) (defun egg-remove-all-text-properties (from to &optional object) (let ((p from) props prop) (while (< p to) (setq prop (text-properties-at p object)) (while prop (unless (eq (car prop) 'composition) (setq props (plist-put props (car prop) nil))) (setq prop (cddr prop))) (setq p (next-property-change p object to))) (remove-text-properties from to props object))) (defun egg-setup-invisibility-spec () (if (listp buffer-invisibility-spec) (unless (condition-case nil (memq 'egg buffer-invisibility-spec) (error)) (setq buffer-invisibility-spec (cons 'egg buffer-invisibility-spec))) (unless (eq buffer-invisibility-spec t) (setq buffer-invisibility-spec (list 'egg buffer-invisibility-spec))))) (defvar egg-mark-list nil) (defvar egg-suppress-marking nil) (defun egg-set-face (beg eng face &optional object) (let ((hook (get-text-property beg 'modification-hooks object))) (put face 'face face) (add-text-properties beg eng (list 'category face 'egg-face t 'modification-hooks (cons 'egg-mark-modification hook)) object))) (defun egg-mark-modification (beg end) (if (and (null egg-suppress-marking) (or (get-text-property beg 'egg-face) (setq beg (next-single-property-change beg 'egg-face))) (or (get-text-property (1- end) 'egg-face) (setq end (previous-single-property-change end 'egg-face))) (< beg end)) (let ((list egg-mark-list) (found 0) pair mb me b e) (add-hook 'post-command-hook 'egg-redraw-face t) (setq list egg-mark-list) (while (and list (< found 2)) (setq pair (car list) list (cdr list) mb (car pair) me (cdr pair) b (marker-position mb) e (marker-position me)) (cond ;; no overwrapping -- SKIP ((or (null (eq (marker-buffer mb) (current-buffer))) (or (> beg e) (< end b)))) ;; completely included ((and (>= beg b) (<= end e)) (setq found 3)) ;; partially overwrapping (t (set-marker mb nil) (set-marker me nil) (setq egg-mark-list (delete pair egg-mark-list) beg (min beg b) end (max end e) found (1+ found))))) (if (< found 3) (progn (setq b (make-marker) e (make-marker) egg-mark-list (cons (cons b e) egg-mark-list)) (set-marker b beg) (set-marker e end)))))) (defun egg-redraw-face () (let ((inhibit-read-only t) (inhibit-point-motion-hooks t) (egg-suppress-marking t) (list egg-mark-list) (org-buffer (current-buffer)) (org-point (point)) mb me b e p) (setq egg-mark-list nil) (remove-hook 'post-command-hook 'egg-redraw-face) (while list (setq mb (car (car list)) me (cdr (car list)) list (cdr list)) (when (marker-buffer mb) (set-buffer (marker-buffer mb)) (let ((before-change-functions nil) (after-change-functions nil)) (save-excursion (save-restriction (widen) (setq b (max mb (point-min)) e (min me (point-max))) (set-marker mb nil) (set-marker me nil) (while (< b e) (if (null (get-text-property b 'egg-face)) (setq b (next-single-property-change b 'egg-face nil e))) (setq p (next-single-property-change b 'egg-face nil e)) (when (< b p) (goto-char b) (remove-text-properties 0 (- p b) '(face)) (setq b p)))))))) (set-buffer org-buffer) (goto-char org-point))) (defvar egg-messages nil) (defvar egg-message-language-alist nil) (defun egg-get-message (message) (let ((lang (or (cdr (assq egg-default-language egg-message-language-alist)) egg-default-language))) (or (nth 1 (assq message (cdr (assq lang egg-messages)))) (nth 1 (assq message (cdr (assq nil egg-messages)))) (error "EGG internal error: no such message: %s (%s)" message egg-default-language)))) (defun egg-add-message (list) (let (l msg-l) (while list (setq l (car list)) (or (setq msg-l (assq (car l) egg-messages)) (setq egg-messages (cons (list (car l)) egg-messages) msg-l (car egg-messages))) (mapcar (lambda (msg) (setcdr msg-l (cons msg (delq (assq (car msg) msg-l) (cdr msg-l))))) (cdr l)) (setq list (cdr list))))) (defun egg-set-message-language-alist (alist) (let ((a alist)) (while a (setq egg-message-language-alist (delq (assq (caar a) egg-message-language-alist) egg-message-language-alist)) (setq a (cdr a))) (setq egg-message-language-alist (append alist egg-message-language-alist)))) (put 'egg-error 'error-conditions '(error egg-error)) (put 'egg-error 'error-message "EGG error") (defun egg-error (message &rest args) (if (symbolp message) (setq message (egg-get-message message))) (signal 'egg-error (list (apply 'format message args)))) ;;; ;;; auto fill controll ;;; (defun egg-do-auto-fill () (if (and auto-fill-function (> (current-column) fill-column)) (let ((ocolumn (current-column))) (funcall auto-fill-function) (while (and (< fill-column (current-column)) (< (current-column) ocolumn)) (setq ocolumn (current-column)) (funcall auto-fill-function))))) (eval-when (eval load) (require 'its) (require 'menudiag) (require 'egg-mlh) (require 'egg-cnv) (require 'egg-com)) (add-hook 'kill-emacs-hook 'egg-kill-emacs-function) (defun egg-kill-emacs-function () (egg-finalize-backend)) (provide 'egg) ;;; egg.el ends here egg-4.0.6+0.20041122cvs/eggrc0000644000764400003210000002746007517100121016464 0ustar ishikawaishikawa00000000000000;;; eggrc --- EGG Input Method Startup File -*- emacs-lisp -*- ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (defun wnn4-jserver-setup () (wnn-define-environment nil) (wnn-set-fuzokugo "pubdic/full.fzk") (wnn-add-dict "pubdic/kihon.dic" '("kihon.h") 5 nil t) (wnn-add-dict "pubdic/setsuji.dic" '("setsuji.h") 5 nil t) (wnn-add-dict "pubdic/koyuu.dic" '("koyuu.h") 1 nil t) (wnn-add-dict "pubdic/chimei.dic" '("chimei.h") 1 nil t) (wnn-add-dict "pubdic/jinmei.dic" '("jinmei.h") 1 nil t) (wnn-add-dict "pubdic/special.dic" '("special.h") 5 nil t) (wnn-add-dict "pubdic/computer.dic" '("computer.h") 5 nil t) (wnn-add-dict "pubdic/symbol.dic" '("symbol.h") 1 nil t) (wnn-add-dict "pubdic/tankan.dic" nil 1 nil nil) (wnn-add-dict "pubdic/bio.dic" '("bio.h") 1 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil) (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil) ; (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t) (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200) (wnn-define-environment t) (wnn-set-fuzokugo "pubdic/full.fzk") (wnn-add-dict "pubdic/kihon.dic" '("kihon.h") 5 nil t) (wnn-add-dict "pubdic/setsuji.dic" '("setsuji.h") 5 nil t) (wnn-add-dict "pubdic/koyuu.dic" '("koyuu.h") 1 nil t) (wnn-add-dict "pubdic/chimei.dic" '("chimei.h") 1 nil t) (wnn-add-dict "pubdic/jinmei.dic" '("jinmei.h") 1 nil t) (wnn-add-dict "pubdic/special.dic" '("special.h") 5 nil t) (wnn-add-dict "pubdic/computer.dic" '("computer.h") 5 nil t) (wnn-add-dict "pubdic/symbol.dic" '("symbol.h") 1 nil t) (wnn-add-dict "pubdic/tankan.dic" nil 1 nil nil) (wnn-add-dict "pubdic/bio.dic" '("bio.h") 1 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil) (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil) ; (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t) (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200)) (defun wnn6-jserver-setup () (wnn-define-environment nil) (wnn-set-fuzokugo "iwanami/kougo.fzk") (wnn-add-fisys-dict "iwanami/fisd" '("fisd.h") t) (wnn-add-fiusr-dict '("fiud") nil t nil) (wnn-add-dict "iwanami/kihon.dic" '("kihon.h") 6 nil t) (wnn-add-dict "iwanami/symbol.dic" '("symbol.h") 1 nil t) (wnn-add-dict "iwanami/tankan.dic" nil 1 nil nil) (wnn-add-dict "iwanami/tankan2.dic" nil 1 nil nil) (wnn-add-dict "iwanami/tel.dic" nil 1 nil nil) (wnn-add-dict "iwanami/zip.dic" nil 1 nil nil) (wnn-add-dict '("ud") nil 15 t t) ; (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil) ; (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil) (wnn-set-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200) (wnn-add-notrans-dict '("katakana") 15 t) (wnn-add-bmodify-dict '("bunsetsu") 15 t) (wnn-set-last-is-first-mode t) (wnn-set-complex-conv-mode nil) ; (wnn-set-okuri-flag -1) (wnn-set-prefix-flag 0) (wnn-set-okuri-learn-mode t) (wnn-set-prefix-learn-mode t) (wnn-set-suffix-learn-mode t) (wnn-set-common-learn-mode t) (wnn-set-yuragi-mode nil) (wnn-set-freq-func-mode 4) ; (wnn-set-numeric-mode -12) ; (wnn-set-alphabet-mode -30) ; (wnn-set-symbol-mode -40) (wnn-define-environment t) (wnn-set-fuzokugo "iwanami/kougo.fzk") (wnn-add-dict '("ud") "" 15 t t) (wnn-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)) (defun wnn7-jserver-setup () (wnn-define-environment nil) (wnn-set-fuzokugo "system/kougo.fzk") (wnn-add-fisys-dict "system/fisd" '("fisd.h") t) (wnn-add-fiusr-dict '("fiud") nil t nil) (wnn-add-dict "system/kihon.dic" '("kihon.h") 6 nil t) (wnn-add-dict "system/symbol.dic" '("symbol.h") 1 nil t) (wnn-add-dict "system/symbol_noat.dic" '("symbol_noat.h") 1 nil t) (wnn-add-dict "system/tel.dic" '("tel.h") 1 nil t) (wnn-add-dict "system/zip.dic" '("zip.h") 1 nil t) (wnn-add-dict "system/tankan.dic" nil 1 nil nil) (wnn-add-dict "system/tankan2.dic" nil 1 nil nil) (wnn-add-dict "system/ikeiji.dic" nil 1 nil nil) (wnn-add-dict "system/rensou.dic" nil 1 nil nil) (wnn-add-dict '("ud") nil 15 t t) (wnn-add-dict "option/jinmei.dic" '("jinmei.h") 1 nil t) (wnn-add-dict "option/chimei.dic" '("chimei.h") 1 nil t) (wnn-add-dict "option/address.dic" '("address.h") 1 nil t) (wnn-add-dict "option/station.dic" '("station.h") 1 nil t) (wnn-add-dict "option/kana_english.dic" '("kana_english.h")1 nil t) (wnn-add-dict "option/enterprise.dic" '("enterprise.h") 1 nil t) (wnn-add-dict "option/airport.dic" '("airport.h") 1 nil t) (wnn-add-dict "option/university.dic" '("university.h") 1 nil t) (wnn-add-dict "option/zoo.dic" '("zoo.h") 1 nil t) (wnn-add-dict "option/botanical_garden.dic" '("botanical_garden.h") 1 nil t) (wnn-add-dict "option/aquarium.dic" '("aquarium.h") 1 nil t) (wnn-add-dict "option/conveni.dic" '("conveni.h") 1 nil t) (wnn-add-dict "option/amusement.dic" '("amusement.h") 1 nil t) (wnn-set-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200) (wnn-add-notrans-dict '("katakana") 15 t) (wnn-add-bmodify-dict '("bunsetsu") 15 t) (wnn-set-last-is-first-mode t) (wnn-set-complex-conv-mode nil) ;; (wnn-set-okuri-flag -1) (wnn-set-prefix-flag 0) (wnn-set-okuri-learn-mode t) (wnn-set-prefix-learn-mode t) (wnn-set-suffix-learn-mode t) (wnn-set-common-learn-mode t) (wnn-set-yuragi-mode nil) (wnn-set-freq-func-mode 4) ;; (wnn-set-yosoku-learn t) ;; (wnn-set-yosoku-max-disp 10) ;; (wnn-set-yosoku-last-is-first t) ;; (wnn-set-boin-kabusoku t) ;; (wnn-set-shiin-choka t) ;; (wnn-set-n-choka t) ;; (wnn-set-nihongo-kosei t) ;; (wnn-set-numeric-mode -12) ;; (wnn-set-alphabet-mode -30) ;; (wnn-set-symbol-mode -40) (wnn-define-environment t) (wnn-set-fuzokugo "system/kougo.fzk") (wnn-add-dict "system/kihonR.dic" nil 1 nil nil) (wnn-add-dict "system/telR.dic" nil 1 nil nil) (wnn-add-dict "system/zipR.dic" nil 1 nil nil) (wnn-add-dict "system/tankanR.dic" nil 1 nil nil) (wnn-add-dict "system/tankan2R.dic" nil 1 nil nil) (wnn-add-dict "option/jinmeiR.dic" nil 1 nil nil) (wnn-add-dict "option/chimeiR.dic" nil 1 nil nil) (wnn-add-dict "option/addressR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/stationR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/kana_englishR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/enterpriseR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/airportR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/universityR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/zooR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/botanical_gardenR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/aquariumR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/conveniR.dic" nil 1 nil nil) ;;(wnn-add-dict "option/amusementR.dic" nil 1 nil nil) (wnn-add-dict '("ud") nil 15 t t) (wnn-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)) (cond ((eq egg-backend-type 'wnn) (cond ((eq wnn-server-type 'jserver) (if wnn-wnn6-server (wnn6-jserver-setup) (wnn4-jserver-setup))) ((eq wnn-server-type 'cserver) (if wnn-use-bixing (progn (wnn-define-environment nil "Q") (wnn-set-fuzokugo "sys/full.con") (wnn-add-dict "sys/QianMa.dic" nil 1 nil nil) (wnn-define-environment nil "W") (wnn-set-fuzokugo "sys/full.con") (wnn-add-dict "sys/WuBi.dic" nil 1 nil nil))) (wnn-define-environment nil "PZ") (wnn-set-fuzokugo "sys/full.con") (wnn-add-dict "sys/level_1.dic" '("level_1.h") 4 nil t) (wnn-add-dict "sys/level_2.dic" '("level_2.h") 1 nil t) (wnn-add-dict "sys/basic.dic" '("basic.h") 7 nil t) (wnn-add-dict "sys/computer.dic" '("computer.h") 4 nil t) (wnn-add-dict "sys/cwnn.dic" '("cwnn.h") 4 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) (if wnn-use-bixing (progn (wnn-define-environment t "Q") (wnn-set-fuzokugo "sys/full.conR") (wnn-add-dict "sys/QianMa.dic" nil 1 nil nil) (wnn-define-environment t "W") (wnn-set-fuzokugo "sys/full.conR") (wnn-add-dict "sys/WuBi.dic" nil 1 nil nil))) (wnn-define-environment t "PZ") (wnn-set-fuzokugo "sys/full.conR") (wnn-add-dict "sys/level_1.dic" '("level_1.h") 4 nil t) (wnn-add-dict "sys/level_2.dic" '("level_2.h") 1 nil t) (wnn-add-dict "sys/basic.dic" '("basic.h") 7 nil t) (wnn-add-dict "sys/computer.dic" '("computer.h") 4 nil t) (wnn-add-dict "sys/cwnn.dic" '("cwnn.h") 4 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)) ((eq wnn-server-type 'tserver) (wnn-define-environment nil "PZ") (wnn-set-fuzokugo "sys/full.con") (wnn-add-dict "sys/cns_ch.dic" '("cns_ch.h") 4 nil t) (wnn-add-dict "sys/cns_wd.dic" '("cns_wd.h") 1 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) (wnn-define-environment t "PZ") (wnn-set-fuzokugo "sys/full.conR") (wnn-add-dict "sys/cns_ch.dic" '("cns_ch.h") 4 nil t) (wnn-add-dict "sys/cns_wd.dic" '("cns_wd.h") 1 nil t) (wnn-add-dict '("ud") nil 5 t t) (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)) ((eq wnn-server-type 'kserver) (wnn-define-environment nil) (wnn-set-fuzokugo "sys/full.fzk") (wnn-add-dict "sys/hword.dic" '("hword.h") 5 nil t) (wnn-add-dict "sys/single.dic" '("single.h") 1 nil t) (wnn-add-dict '("ud") nil 2 t t) (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200) (wnn-define-environment t) (wnn-set-fuzokugo "sys/full.fzk") (wnn-add-dict "sys/hword.dic" '("hword.h") 5 nil t) (wnn-add-dict "sys/single.dic" '("single.h") 1 nil t) (wnn-add-dict '("ud") nil 2 t t) (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200)))) ((eq egg-backend-type 'canna) (canna-define-environment) (canna-add-dict "iroha" nil) (canna-add-dict "fuzokugo" nil) (canna-add-dict "hojomwd" nil) (canna-add-dict "hojoswd" nil) (canna-add-dict "user" t) (canna-define-environment "Bushu" 0 t) (canna-add-dict "bushu" nil)) ) egg-4.0.6+0.20041122cvs/install-sh0000755000764400003210000001273607234613570017473 0ustar ishikawaishikawa00000000000000#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: chmodcmd="" else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 egg-4.0.6+0.20041122cvs/its/0000755000764400003210000000000010150162021016232 5ustar ishikawaishikawa00000000000000egg-4.0.6+0.20041122cvs/its/quanjiao.el0000644000764400003210000002437507234614431020416 0ustar ishikawaishikawa00000000000000;;; its/quanjiao.el --- Quanjiao ASCII Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its)) (define-its-state-machine its-quanjiao-up-cn-map "quanjiao-upcase-cn" "$A#A(B" Chinese-GB "Map for quanjiao-upcase input. (Chinese-GB)" (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#A(B") ("b" . "$A#B(B") ("c" . "$A#C(B") ("d" . "$A#D(B") ("e" . "$A#E(B") ("f" . "$A#F(B") ("g" . "$A#G(B") ("h" . "$A#H(B") ("i" . "$A#I(B") ("j" . "$A#J(B") ("k" . "$A#K(B") ("l" . "$A#L(B") ("m" . "$A#M(B") ("n" . "$A#N(B") ("o" . "$A#O(B") ("p" . "$A#P(B") ("q" . "$A#Q(B") ("r" . "$A#R(B") ("s" . "$A#S(B") ("t" . "$A#T(B") ("u" . "$A#U(B") ("v" . "$A#V(B") ("w" . "$A#W(B") ("x" . "$A#X(B") ("y" . "$A#Y(B") ("z" . "$A#Z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-quanjiao-up-cn-map) (define-its-state-machine its-quanjiao-down-cn-map "quanjiao-downcase-cn" "$A#a(B" Chinese-GB "Map for quanjiao-downcase input. (Chinese-GB)" (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-quanjiao-down-cn-map) (define-its-state-machine its-quanjiao-up-tw-map "quanjiao-upcase-tw" "$(G$A(B" Chinese-CNS "Map for quanjiao-upcase input. (Chinese-CNS)" (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") ("8" . "$(G$)(B") ("9" . "$(G$*(B") (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") ("-" . "$(G"1(B") ("=" . "$(G"8(B") ("`" . "$(G!j(B") ("\\" . "$(G"b(B") ("|" . "$(G"^(B") ("_" . "$(G"%(B") ("+" . "$(G"0(B") ("~" . "$(G"D(B") ("[" . "$(G!b(B") ("]" . "$(G!c(B") ("{" . "$A#{(B") ("}" . "$(G!a(B") (":" . "$(G!((B") (";" . "$(G!'(B") ("\"" . "$(G!i(B") ("'" . "$(G!k(B") ("<" . "$(G"6(B") (">" . "$(G"7(B") ("?" . "$(G!)(B") ("/" . "$(G"a(B") ("," . "$(G!"(B") ("." . "$(G!%(B") ("a" . "$(G$A(B") ("b" . "$(G$B(B") ("c" . "$(G$C(B") ("d" . "$(G$D(B") ("e" . "$(G$E(B") ("f" . "$(G$F(B") ("g" . "$(G$G(B") ("h" . "$(G$H(B") ("i" . "$(G$I(B") ("j" . "$(G$J(B") ("k" . "$(G$K(B") ("l" . "$(G$L(B") ("m" . "$(G$M(B") ("n" . "$(G$N(B") ("o" . "$(G$O(B") ("p" . "$(G$P(B") ("q" . "$(G$Q(B") ("r" . "$(G$R(B") ("s" . "$(G$S(B") ("t" . "$(G$T(B") ("u" . "$(G$U(B") ("v" . "$(G$V(B") ("w" . "$(G$W(B") ("x" . "$(G$X(B") ("y" . "$(G$Y(B") ("z" . "$(G$Z(B") ("A" . "$(G$A(B") ("B" . "$(G$B(B") ("C" . "$(G$C(B") ("D" . "$(G$D(B") ("E" . "$(G$E(B") ("F" . "$(G$F(B") ("G" . "$(G$G(B") ("H" . "$(G$H(B") ("I" . "$(G$I(B") ("J" . "$(G$J(B") ("K" . "$(G$K(B") ("L" . "$(G$L(B") ("M" . "$(G$M(B") ("N" . "$(G$N(B") ("O" . "$(G$O(B") ("P" . "$(G$P(B") ("Q" . "$(G$Q(B") ("R" . "$(G$R(B") ("S" . "$(G$S(B") ("T" . "$(G$T(B") ("U" . "$(G$U(B") ("V" . "$(G$V(B") ("W" . "$(G$W(B") ("X" . "$(G$X(B") ("Y" . "$(G$Y(B") ("Z" . "$(G$Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-quanjiao-up-tw-map) (define-its-state-machine its-quanjiao-down-tw-map "quanjiao-downcase-tw" "$(G$[(B" Chinese-CNS "Map for quanjiao-downcase input. (Chinese-CNS)" (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") ("8" . "$(G$)(B") ("9" . "$(G$*(B") (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") ("-" . "$(G"1(B") ("=" . "$(G"8(B") ("`" . "$(G!j(B") ("\\" . "$(G"`(B") ("|" . "$(G"^(B") ("_" . "$(G"%(B") ("+" . "$(G"0(B") ("~" . "$(G"D(B") ("[" . "$(G!b(B") ("]" . "$(G!c(B") ("{" . "$(G!B(B") ("}" . "$(G!C(B") (":" . "$(G!((B") (";" . "$(G!'(B") ("\"" . "$(G!i(B") ("'" . "$(G!k(B") ("<" . "$(G"6(B") (">" . "$(G"7(B") ("?" . "$(G!)(B") ("/" . "$(G"_(B") ("," . "$(G!"(B") ("." . "$(G!%(B") ("a" . "$(G$[(B") ("b" . "$(G$\(B") ("c" . "$(G$](B") ("d" . "$(G$^(B") ("e" . "$(G$_(B") ("f" . "$(G$`(B") ("g" . "$(G$a(B") ("h" . "$(G$b(B") ("i" . "$(G$c(B") ("j" . "$(G$d(B") ("k" . "$(G$e(B") ("l" . "$(G$f(B") ("m" . "$(G$g(B") ("n" . "$(G$h(B") ("o" . "$(G$i(B") ("p" . "$(G$j(B") ("q" . "$(G$k(B") ("r" . "$(G$l(B") ("s" . "$(G$m(B") ("t" . "$(G$n(B") ("u" . "$(G$o(B") ("v" . "$(G$p(B") ("w" . "$(G$q(B") ("x" . "$(G$r(B") ("y" . "$(G$s(B") ("z" . "$(G$t(B") ("A" . "$(G$A(B") ("B" . "$(G$B(B") ("C" . "$(G$C(B") ("D" . "$(G$D(B") ("E" . "$(G$E(B") ("F" . "$(G$F(B") ("G" . "$(G$G(B") ("H" . "$(G$H(B") ("I" . "$(G$I(B") ("J" . "$(G$J(B") ("K" . "$(G$K(B") ("L" . "$(G$L(B") ("M" . "$(G$M(B") ("N" . "$(G$N(B") ("O" . "$(G$O(B") ("P" . "$(G$P(B") ("Q" . "$(G$Q(B") ("R" . "$(G$R(B") ("S" . "$(G$S(B") ("T" . "$(G$T(B") ("U" . "$(G$U(B") ("V" . "$(G$V(B") ("W" . "$(G$W(B") ("X" . "$(G$X(B") ("Y" . "$(G$Y(B") ("Z" . "$(G$Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-quanjiao-down-tw-map) (provide 'its/quanjiao) egg-4.0.6+0.20041122cvs/its/ascii.el0000644000764400003210000000306207234614431017665 0ustar ishikawaishikawa00000000000000;;; its/ascii.el --- ASCII Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its)) (define-its-state-machine its-up-map "upcase" "aA" nil "Map for upcase input." (let ((i ? )) (while (<= i ?~) (its-defrule (char-to-string i) (upcase (char-to-string i))) (setq i (1+ i))))) (define-its-state-machine-append its-up-map) (define-its-state-machine its-down-map "downcase" "aa" nil "Map for downcase input." (let ((i ? )) (while (<= i ?~) (its-defrule (char-to-string i) (char-to-string i)) (setq i (1+ i))))) (define-its-state-machine-append its-down-map) (provide 'its/ascii) egg-4.0.6+0.20041122cvs/its/aynu.el0000644000764400003210000003251507517100125017550 0ustar ishikawaishikawa00000000000000;;; its/aynu.el --- Aynu Katakana Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-aynu-enable-zenkaku-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Zenkaku alphabet") (defvar its-aynu-horizontal "$(O!<(B" "*-") ; "-" "$(O!=(B" (defvar its-aynu-period "$(O!#(B " "*.") ; "." "$(O!#(B" (defvar its-aynu-comma "$(O!$(B " "*,") ; "," "$(O!$(B" (defvar its-aynu-open-bracket "$(O!V(B" "*[") ; "$(O!N(B" (defvar its-aynu-close-bracket "$(O!W(B" "*]") ; "$(O!O(B" (defvar its-aynu-enable-double-n nil "*Enable \"nn\" input for \"$(O%s(B\"") (defvar its-aynu-kick-conversion-on-space nil "*Start conversion on SPACE") (eval-when-compile (defun its-define-state-aynu (input i-tail output o-tail otherwise) "Define following rules: INPUT + I-TAIL --> OUTPUT + O-TAIL INPUT + I-TAIL + ' --> OUTPUT + O-TAIL INPUT + I-TAIL + vowel --> (translate INPUT) + I-tail + vowel INPUT + I-TAIL + OTHERWISE (see `its-defrule-otherwise')." (let ((out (concat output o-tail)) state) (setq state (its-defrule (concat input i-tail) out)) (its-defrule (concat input i-tail "'") out) (its-defrule-otherwise state nil "[aiueo]" -2) (while otherwise (its-defrule-otherwise state (concat output (caar otherwise)) (nth 1 (car otherwise)) (nth 2 (car otherwise))) (setq otherwise (cdr otherwise))) (setq state (its-defrule (concat input i-tail "y") (concat out "$(O%#(B"))) (its-make-next-state state -1 out -1) (its-defrule-otherwise state out nil -2) (its-defrule-otherwise state nil "[u]" -3) )) (defconst its-aynu-tail-alist (let ((common '(("k" "$(O&n(B" (("$(O%C(B" "[k]" -1))) ("s" "$(O&o(B" (("$(O%C(B" "[s]" -1) (nil "[h]" -2))) ("p" "$(O&x(B" (("$(O%C(B" "[p]" -1))) ("m" "$(O&y(B" (("$(O%s(B" "[mp]" -1))) ("t" "$(O%C(B") ("y" "$(O%#(B") ("w" "$(O%%(B")))) `((?a ("h" "$(O&s(B") ("x" "$(O&s(B") ("r" "$(O&z(B") ,@common) (?i ("h" "$(O&t(B") ("x" "$(O&t(B") ("r" "$(O&{(B") ,@common) (?u ("h" "$(O&u(B") ("x" "$(O&u(B") ("r" "$(O&|(B") ,@common) (?e ("h" "$(O&v(B") ("x" "$(O&v(B") ("r" "$(O&}(B") ,@common) (?o ("h" "$(O&w(B") ("x" "$(O&w(B") ("r" "$(O&~(B") ,@common)))) (defun its-defrule-aynu (conso vowel output) (let ((input (concat conso vowel)) (tails (and vowel (cdr (assq (aref vowel 0) its-aynu-tail-alist))))) (its-defrule input output) (while tails (its-define-state-aynu input (caar tails) output (nth 1 (car tails)) (nth 2 (car tails))) (setq tails (cdr tails))))) (defmacro its-define-aynu (&rest rules) (let ((defs (list 'progn)) conso vowels output) (while rules (setq vowels '(nil "a" "i" "u" "e" "o") conso (caar rules) output (cdar rules) rules (cdr rules)) (while output (when (car output) (setq defs (cons `(its-defrule-aynu ,conso ,(car vowels) ,(car output)) defs))) (setq output (cdr output) vowels (cdr vowels)))) (nreverse defs))) (defun its-defrule-aynu-override-yu (conso) (let ((output (its-get-output (its-goto-state conso))) state) (its-defrule (concat conso "yu") (concat (its-get-output (its-goto-state (concat conso "i"))) "$(O%e!<(B")) (setq state (its-goto-state (concat conso "y"))) (its-set-output state (concat output "$(O%#(B")) (its-make-next-state state -1 output -1) (its-defrule-otherwise state output nil -2)))) (define-its-state-machine its-aynu-map "roma-aynu-kata" "$(O%"(B" Aynu "Map for Romaji-Aynu-Katakana translation. (Japanese)" (defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs (defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs (its-defrule-select-mode-temporally "q" downcase) (its-defrule-select-mode-temporally "Q" zenkaku-downcase) (dolist (small '(("a" "$(O%!(B") ("i" "$(O%#(B") ("u" "$(O%%(B") ("e" "$(O%'(B") ("o" "$(O%)(B") ("ka" "$(O%u(B") ("ku" "$(O&n(B") ("ke" "$(O%v(B") ("si" "$(O&o(B") ("su" "$(O&p(B") ("tu" "$(O%C(B") ("to" "$(O&q(B") ("nu" "$(O&r(B") ("ha" "$(O&s(B") ("hi" "$(O&t(B") ("hu" "$(O&u(B") ("he" "$(O&v(B") ("ho" "$(O&w(B") ("pu" "$(O&x(B") ("mu" "$(O&y(B") ("ya" "$(O%c(B") ("yu" "$(O%e(B") ("yo" "$(O%g(B") ("ra" "$(O&z(B") ("ri" "$(O&{(B") ("ru" "$(O&|(B") ("re" "$(O&}(B") ("ro" "$(O&~(B") ("wa" "$(O%n(B"))) (its-defrule (concat "x" (car small)) (cadr small))) (its-define-aynu ("" nil "$(O%"(B" "$(O%$(B" "$(O%&(B" "$(O%((B" "$(O%*(B") ("k" "$(O&n(B" "$(O%+(B" "$(O%-(B" "$(O%/(B" "$(O%1(B" "$(O%3(B") ("g" "$(O%0(B" "$(O%,(B" "$(O%.(B" "$(O%0(B" "$(O%2(B" "$(O%4(B") ("s" "$(O&p(B" "$(O%5(B" "$(O%7(B" "$(O%9(B" "$(O%;(B" "$(O%=(B") ("z" nil "$(O%6(B" "$(O%8(B" "$(O%:(B" "$(O%<(B" "$(O%>(B") ("vs" nil nil nil nil "$(O%|(B" nil) ("sh" "$(O%7%c(B" "$(O%7%c(B" "$(O%7(B" "$(O%7%e(B" "$(O%7%'(B" "$(O%7%g(B") ("j" nil "$(O%8%c(B" "$(O%8(B" "$(O%8%e(B" "$(O%8%'(B" "$(O%8%g(B") ("t" "$(O%C(B" "$(O%?(B" "$(O%A(B" "$(O%H%%(B" "$(O%F(B" "$(O%H(B") ("vt" nil nil nil "$(O%}(B" nil "$(O%~(B") ("d" nil "$(O%@(B" "$(O%B(B" "$(O%E(B" "$(O%G(B" "$(O%I(B") ("c" "$(O%C(B" "$(O%A%c(B" "$(O%A(B" "$(O%A%e(B" "$(O%A%'(B" "$(O%A%g(B") ("ch" "$(O%C(B" "$(O%A%c(B" "$(O%A(B" "$(O%A%e(B" "$(O%A%'(B" "$(O%A%g(B") ("n" "$(O%s(B" "$(O%J(B" "$(O%K(B" "$(O%L(B" "$(O%M(B" "$(O%N(B") ("h" "$(O&s(B" "$(O%O(B" "$(O%R(B" "$(O%U(B" "$(O%X(B" "$(O%[(B") ("b" nil "$(O%P(B" "$(O%S(B" "$(O%V(B" "$(O%Y(B" "$(O%\(B") ("p" "$(O&x(B" "$(O%Q(B" "$(O%T(B" "$(O%W(B" "$(O%Z(B" "$(O%](B") ("m" "$(O&y(B" "$(O%^(B" "$(O%_(B" "$(O%`(B" "$(O%a(B" "$(O%b(B") ("y" "$(O%#(B" "$(O%d(B" "$(O%#(B" "$(O%f(B" "$(O%$%'(B" "$(O%h(B") ("r" "$(O&|(B" "$(O%i(B" "$(O%j(B" "$(O%k(B" "$(O%l(B" "$(O%m(B") ("w" "$(O%%(B" "$(O%o(B" "$(O%&%#(B" "$(O%%(B" "$(O%&%'(B" "$(O%&%)(B")) (dolist (yu '("k" "g" "s" "z" "sh" "j" "t" "d" "c" "ch" "n" "h" "b" "p" "m" "r")) (its-defrule-aynu-override-yu yu)) (its-defrule "kk" "$(O%C(B" -1) (its-defrule "ss" "$(O%C(B" -1) (its-defrule "pp" "$(O%C(B" -1) (its-defrule "vv" "$(O%C(B" -1) ;; SYMBOL Input (its-defrule "z1" "$(O!{(B") (its-defrule "z!" "$(O!|(B") (its-defrule "z2" "$(O"&(B") (its-defrule "z@" "$(O"'(B") (its-defrule "z3" "$(O"$(B") (its-defrule "z#" "$(O"%(B") (its-defrule "z4" "$(O""(B") (its-defrule "z$" "$(O"#(B") (its-defrule "z5" "$(O!~(B") (its-defrule "z%" "$(O"!(B") (its-defrule "z6" "$(O!y(B") (its-defrule "z^" "$(O!z(B") (its-defrule "z7" "$(O!}(B") (its-defrule "z&" "$(O!r(B") (its-defrule "z8" "$(O!q(B") (its-defrule "z*" "$(O!_(B") (its-defrule "z9" "$(O!i(B") (its-defrule "z(" "$(O!Z(B") (its-defrule "z0" "$(O!j(B") (its-defrule "z)" "$(O![(B") (its-defrule "z-" "$(O!A(B") (its-defrule "z_" "$(O!h(B") (its-defrule "z=" "$(O!b(B") (its-defrule "z+" "$(O!^(B") (its-defrule "z\\" "$(O!@(B") (its-defrule "z|" "$(O!B(B") (its-defrule "z`" "$(O!-(B") (its-defrule "z~" "$(O!/(B") (its-defrule "zq" "$(O!T(B") (its-defrule "zQ" "$(O!R(B") (its-defrule "zw" "$(O!U(B") (its-defrule "zW" "$(O!S(B") ; e (its-defrule "zr" "$(O!9(B") (its-defrule "zR" "$(O!8(B") (its-defrule "zt" "$(O!:(B") (its-defrule "zT" "$(O!x(B") ; y u i o (its-defrule "zp" "$(O")(B") (its-defrule "zP" "$(O",(B") (its-defrule "z[" "$(O!X(B") (its-defrule "z{" "$(O!L(B") (its-defrule "z]" "$(O!Y(B") (its-defrule "z}" "$(O!M(B") ; a (its-defrule "zs" "$(O!3(B") (its-defrule "zS" "$(O!4(B") (its-defrule "zd" "$(O!5(B") (its-defrule "zD" "$(O!6(B") (its-defrule "zf" "$(O!7(B") (its-defrule "zF" "$(O"*(B") (its-defrule "zg" "$(O!>(B") (its-defrule "zG" "$(O!=(B") (its-defrule "zh" "$(O"+(B") (its-defrule "zj" "$(O"-(B") (its-defrule "zk" "$(O",(B") (its-defrule "zl" "$(O"*(B") (its-defrule "z;" "$(O!+(B") (its-defrule "z:" "$(O!,(B") (its-defrule "z\'" "$(O!F(B") (its-defrule "z\"" "$(O!H(B") ; z (its-defrule "zx" ":-") (its-defrule "zX" ":-)") (its-defrule "zc" "$(O!;(B") (its-defrule "zC" "$(O!n(B") (its-defrule "zv" "$(O"((B") (its-defrule "zV" "$(O!`(B") (its-defrule "zb" "$(O!k(B") (its-defrule "zB" "$(O"+(B") (its-defrule "zn" "$(O!l(B") (its-defrule "zN" "$(O"-(B") (its-defrule "zm" "$(O!m(B") (its-defrule "zM" "$(O".(B") (its-defrule "z," "$(O!E(B") (its-defrule "z<" "$(O!e(B") (its-defrule "z." "$(O!D(B") (its-defrule "z>" "$(O!f(B") (its-defrule "z/" "$(O!&(B") (its-defrule "z?" "$(O!g(B") ) (define-its-state-machine-append its-aynu-map (if its-aynu-enable-double-n (its-defrule "nn" "$(O%s(B")) (its-defrule "-" its-aynu-horizontal) (its-defrule "." its-aynu-period) (its-defrule "," its-aynu-comma) (its-defrule "[" its-aynu-open-bracket) (its-defrule "]" its-aynu-close-bracket) (unless its-aynu-kick-conversion-on-space (its-defrule " " " ")) (if its-aynu-enable-zenkaku-alphabet (progn (its-defrule "1" "$(O#1(B") (its-defrule "2" "$(O#2(B") (its-defrule "3" "$(O#3(B") (its-defrule "4" "$(O#4(B") (its-defrule "5" "$(O#5(B") (its-defrule "6" "$(O#6(B") (its-defrule "7" "$(O#7(B") (its-defrule "8" "$(O#8(B") (its-defrule "9" "$(O#9(B") (its-defrule "0" "$(O#0(B") (its-defrule "!" "$(O!*(B") (its-defrule "@" "$(O!w(B") (its-defrule "#" "$(O!t(B") (its-defrule "$" "$(O!p(B") (its-defrule "%" "$(O!s(B") (its-defrule "^" "$(O!0(B") (its-defrule "&" "$(O!u(B") (its-defrule "*" "$(O!v(B") (its-defrule "(" "$(O!J(B") (its-defrule ")" "$(O!K(B") (its-defrule "=" "$(O!a(B") (its-defrule "`" "$(O!.(B") (its-defrule "\\" "$(O!o(B") (its-defrule "|" "$(O!C(B") (its-defrule "_" "$(O!2(B") (its-defrule "+" "$(O!\(B") (its-defrule "{" "$(O!P(B") (its-defrule "}" "$(O!Q(B") (its-defrule ":" "$(O!'(B") (its-defrule ";" "$(O!((B") (its-defrule "\"" "$(O!I(B") (its-defrule "'" "$(O!G(B") (its-defrule "<" "$(O!c(B") (its-defrule ">" "$(O!d(B") (its-defrule "?" "$(O!)(B") (its-defrule "/" "$(O!?(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "!" "!") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule ":" ":") (its-defrule ";" ";") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">") (its-defrule "?" "?") (its-defrule "/" "/")))) (provide 'its/aynu) ;;; its/aynu.el ends here egg-4.0.6+0.20041122cvs/its/bixing.el0000644000764400003210000002601607234613504020061 0ustar ishikawaishikawa00000000000000;;; its/bixing.el --- Bixing (stroke) Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (defvar its-qianma-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-qianma-open-braket "$A!8(B" "*[") ; "$A#[(B" (defvar its-qianma-close-braket "$A!9(B" "*]") ; "$A#](B" (defvar its-wubi-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-wubi-open-braket "$A!8(B" "*[") ; "$A#[(B" (defvar its-wubi-close-braket "$A!9(B" "*]") ; "$A#](B" (its-set-stroke-input '((QianMa . 3) (WuBi . 4))) (egg-set-message-language-alist '((QianMa . Chinese-GB) (WuBi . Chinese-GB))) (define-its-state-machine its-qianma-map "qinama" "$AG.(B" QianMa "Map for QianMa input. (Chinese-GB)" (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (let ((ch (string-to-list "0123456789abcdefghijklmnopqrstuvwxyz;=@[]"))) (while ch (its-defrule (char-to-string (car ch)) (char-to-string (car ch))) (setq ch (cdr ch)))) (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in t) (its-defrule (concat its-quanjiao-escape in) out t))) (its-defrule "," "$A#,(B" t) (its-defrule "." "$A!#(B" t) (its-defrule "/" "$A!"(B" t) (its-defrule ":" "$A#:(B" t) (its-defrule "?" "$A#?(B" t) (its-defrule "!" "$A#!(B" t)) (define-its-state-machine its-wubi-map "wubi" "$ANe(B" WuBi "Map for WuBi input. (Chinese-GB)" (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (let ((ch (string-to-list "abcdefghijklmnopqrstuvwxy"))) (while ch (its-defrule (char-to-string (car ch)) (char-to-string (car ch))) (setq ch (cdr ch)))) (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in t) (its-defrule (concat its-quanjiao-escape in) out t))) (its-defrule "," "$A#,(B" t) (its-defrule "." "$A!#(B" t) (its-defrule "/" "$A!"(B" t) (its-defrule ";" "$A#;(B" t) (its-defrule ":" "$A#:(B" t) (its-defrule "?" "$A#?(B" t) (its-defrule "!" "$A#!(B" t)) (define-its-state-machine-append its-qianma-map (its-defrule "{" its-qianma-open-braket) (its-defrule "}" its-qianma-close-braket) (if its-qianma-enable-quanjioao-alphabet (progn (its-defrule "#" "$A##(B" t) (its-defrule "$" "$A!g(B" t) (its-defrule "%" "$A#%(B" t) (its-defrule "^" "$A#^(B" t) (its-defrule "&" "$A#&(B" t) (its-defrule "*" "$A#*(B" t) (its-defrule "(" "$A#((B" t) (its-defrule ")" "$A#)(B" t) (its-defrule "-" "$A#-(B" t) (its-defrule "~" "$A!+(B" t) (its-defrule "`" "$A#`(B" t) (its-defrule "\\" "$A#\(B" t) (its-defrule "|" "$A#|(B" t) (its-defrule "_" "$A#_(B" t) (its-defrule "+" "$A#+(B" t) (its-defrule "\"" "$A#"(B" t) (its-defrule "'" "$A#'(B" t) (its-defrule "<" "$A#<(B" t) (its-defrule ">" "$A#>(B" t)) (progn (its-defrule "#" "#" t) (its-defrule "$" "$" t) (its-defrule "%" "%" t) (its-defrule "^" "^" t) (its-defrule "&" "&" t) (its-defrule "*" "*" t) (its-defrule "(" "(" t) (its-defrule ")" ")" t) (its-defrule "-" "-" t) (its-defrule "~" "~" t) (its-defrule "`" "`" t) (its-defrule "\\" "\\" t) (its-defrule "|" "|" t) (its-defrule "_" "_" t) (its-defrule "+" "+" t) (its-defrule "\"" "\"" t) (its-defrule "'" "'" t) (its-defrule "<" "<" t) (its-defrule ">" ">" t)))) (define-its-state-machine-append its-wubi-map (its-defrule "[" its-wubi-open-braket) (its-defrule "]" its-wubi-close-braket) (if its-wubi-enable-quanjioao-alphabet (progn (its-defrule "1" "$A#1(B" t) (its-defrule "2" "$A#2(B" t) (its-defrule "3" "$A#3(B" t) (its-defrule "4" "$A#4(B" t) (its-defrule "5" "$A#5(B" t) (its-defrule "6" "$A#6(B" t) (its-defrule "7" "$A#7(B" t) (its-defrule "8" "$A#8(B" t) (its-defrule "9" "$A#9(B" t) (its-defrule "0" "$A#0(B" t) (its-defrule "@" "$A#@(B" t) (its-defrule "#" "$A##(B" t) (its-defrule "$" "$A!g(B" t) (its-defrule "%" "$A#%(B" t) (its-defrule "^" "$A#^(B" t) (its-defrule "&" "$A#&(B" t) (its-defrule "*" "$A#*(B" t) (its-defrule "(" "$A#((B" t) (its-defrule ")" "$A#)(B" t) (its-defrule "-" "$A#-(B" t) (its-defrule "~" "$A!+(B" t) (its-defrule "=" "$A#=(B" t) (its-defrule "`" "$A#`(B" t) (its-defrule "\\" "$A#\(B" t) (its-defrule "|" "$A#|(B" t) (its-defrule "_" "$A#_(B" t) (its-defrule "+" "$A#+(B" t) (its-defrule "{" "$A#{(B" t) (its-defrule "}" "$A#}(B" t) (its-defrule "\"" "$A#"(B" t) (its-defrule "'" "$A#'(B" t) (its-defrule "<" "$A#<(B" t) (its-defrule ">" "$A#>(B" t)) (progn (its-defrule "1" "1" t) (its-defrule "2" "2" t) (its-defrule "3" "3" t) (its-defrule "4" "4" t) (its-defrule "5" "5" t) (its-defrule "6" "6" t) (its-defrule "7" "7" t) (its-defrule "8" "8" t) (its-defrule "9" "9" t) (its-defrule "0" "0" t) (its-defrule "@" "@" t) (its-defrule "#" "#" t) (its-defrule "$" "$" t) (its-defrule "%" "%" t) (its-defrule "^" "^" t) (its-defrule "&" "&" t) (its-defrule "*" "*" t) (its-defrule "(" "(" t) (its-defrule ")" ")" t) (its-defrule "-" "-" t) (its-defrule "~" "~" t) (its-defrule "=" "=" t) (its-defrule "`" "`" t) (its-defrule "\\" "\\" t) (its-defrule "|" "|" t) (its-defrule "_" "_" t) (its-defrule "+" "+" t) (its-defrule "{" "{" t) (its-defrule "}" "}" t) (its-defrule "\"" "\"" t) (its-defrule "'" "'" t) (its-defrule "<" "<" t) (its-defrule ">" ">" t)))) (provide 'its/bixing) egg-4.0.6+0.20041122cvs/its/erpin.el0000644000764400003210000004741107234613504017720 0ustar ishikawaishikawa00000000000000;;; its/erpin.el --- Erpin Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-erpin-cn-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-erpin-cn-open-braket "$A!8(B" "*[") ; "$A#[(B" (defvar its-erpin-cn-close-braket "$A!9(B" "*]") ; "$A#](B" (defvar its-erpin-tw-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-erpin-tw-open-braket "$(G!V(B" "*[") ; "$(G!b(B " (defvar its-erpin-tw-close-braket "$(G!W(B" "*]") ; "$(G!c(B" (eval-when-compile (defun its-define-erpin-qingsheng (shengmu yunmu &optional y) (let ((input (concat (car shengmu) yunmu)) (output (concat (cdr shengmu) (if y y yunmu) "(0@(B"))) (prog1 (its-defrule input output) (its-defrule (concat input " ") output) (its-defrule (concat input "0") output)))) (defmacro its-do-erpin-table (list) `(progn ,@(mapcar (lambda (syl) `(its-define-erpin ,(car syl) ,(cdr syl))) list))) (defmacro its-define-erpin (shengmu yunmu) `(let ((y1 (nth 1 ,yunmu)) (y2 (nth 2 ,yunmu)) (y3 (nth 3 ,yunmu)) (y4 (nth 4 ,yunmu)) (y5 (nth 5 ,yunmu)) (y (car ,yunmu)) (ss (list ,@shengmu)) sa sd state) (while ss (setq sa (caar ss) sd (cdar ss) state (its-define-erpin-qingsheng (car ss) y y5)) (its-make-next-state state ?1 (concat sd y1 "(0@(B")) (its-make-next-state state ?2 (concat sd y2 "(0@(B")) (its-make-next-state state ?3 (concat sd y3 "(0@(B")) (its-make-next-state state ?4 (concat sd y4 "(0@(B")) (setq ss (cdr ss))))) (defmacro its-define-erpin-table () '(let ((O '("o" . "")) (B '("b" . "B")) (C '("c" . "C")) (D '("d" . "D")) (F '("f" . "F")) (G '("g" . "G")) (H '("h" . "H")) (J '("j" . "J")) (K '("k" . "K")) (L '("l" . "L")) (M '("m" . "M")) (N '("n" . "N")) (P '("p" . "P")) (Q '("q" . "Q")) (R '("r" . "R")) (S '("s" . "S")) (T '("t" . "T")) (W '("w" . "W")) (X '("x" . "X")) (Y '("y" . "Y")) (Z '("z" . "Z")) (I '("i" . "Ch")) (U '("u" . "Sh")) (V '("v" . "Zh")) (a '("a" "(0!(B" "(0"(B" "(0#(B" "(0$(B" "a" )) (ai '("s" "(0!(Bi" "(0"(Bi" "(0#(Bi" "(0$(Bi" "ai" )) (an '("f" "(0!(Bn" "(0"(Bn" "(0#(Bn" "(0$(Bn" "an" )) (ang '("g" "(0!(Bng" "(0"(Bng" "(0#(Bng" "(0$(Bng" "ang" )) (ao '("d" "(0!(Bo" "(0"(Bo" "(0#(Bo" "(0$(Bo" "ao" )) (e '("e" "(0%(B" "(0&(B" "(0'(B" "(0((B" "e" )) (ei '("w" "(0%(Bi" "(0&(Bi" "(0'(Bi" "(0((Bi" "ei" )) (en '("r" "(0%(Bn" "(0&(Bn" "(0'(Bn" "(0((Bn" "en" )) (eng '("t" "(0%(Bng" "(0&(Bng" "(0'(Bng" "(0((Bng" "eng" )) (er '("y" "(0%(Br" "(0&(Br" "(0'(Br" "(0((Br" "er" )) (i '("i" "(0)(B" "(0*(B" "(0+(B" "(0,(B" "i" )) (ia '("p" "i(0!(B" "i(0"(B" "i(0#(B" "i(0$(B" "ia" )) (ian '("h" "i(0!(Bn" "i(0"(Bn" "i(0#(Bn" "i(0$(Bn" "ian" )) (iang '("j" "i(0!(Bng" "i(0"(Bng" "i(0#(Bng" "i(0$(Bng" "iang")) (iao '("k" "i(0!(Bo" "i(0"(Bo" "i(0#(Bo" "i(0$(Bo" "iao" )) (ie '("l" "i(0%(B" "i(0&(B" "i(0'(B" "i(0((B" "ie" )) (in '("m" "(0)(Bn" "(0*(Bn" "(0+(Bn" "(0,(Bn" "in" )) (ing '("n" "(0)(Bng" "(0*(Bng" "(0+(Bng" "(0,(Bng" "ing" )) (iong '("b" "i(0-(Bng" "i(0.(Bng" "i(0/(Bng" "i(00(Bng" "iong")) (iu '("y" "i(01(B" "i(02(B" "i(03(B" "i(04(B" "iu" )) (o '("o" "(0-(B" "(0.(B" "(0/(B" "(00(B" "o" )) (ong '("b" "(0-(Bng" "(0.(Bng" "(0/(Bng" "(00(Bng" "ong" )) (ou '("q" "(0-(Bu" "(0.(Bu" "(0/(Bu" "(00(Bu" "ou" )) (u '("u" "(01(B" "(02(B" "(03(B" "(04(B" "u" )) (v '("v" "(05(B" "(06(B" "(07(B" "(08(B" "(09(B" )) (ua '("p" "u(0!(B" "u(0"(B" "u(0#(B" "u(0$(B" "ua" )) (uai '("k" "u(0!(Bi" "u(0"(Bi" "u(0#(Bi" "u(0$(Bi" "uai" )) (uan '("x" "u(0!(Bn" "u(0"(Bn" "u(0#(Bn" "u(0$(Bn" "uan" )) (uang '("j" "u(0!(Bng" "u(0"(Bng" "u(0#(Bng" "u(0$(Bng" "uang")) (ue '("c" "u(0%(B" "u(0&(B" "u(0'(B" "u(0((B" "ue" )) (ve '("c" "(09%(B" "(09&(B" "(09'(B" "(09((B" "(09(Be" )) (ui '("c" "u(0)(B" "u(0*(B" "u(0+(B" "u(0,(B" "ui" )) (un '("z" "(01(Bn" "(02(Bn" "(03(Bn" "(04(Bn" "un" )) (uo '("o" "u(0-(B" "u(0.(B" "u(0/(B" "u(00(B" "uo" ))) (its-do-erpin-table (((O B C D F G H K L M N P S T W Y Z I U V) . a) ((O B C D G H K L M N P S T W Z I U V) . ai) ((O B C D F G H K L M N P R S T W Y Z I U V) . an) ((O B C D F G H K L M N P R S T W Y Z I U V) . ang) ((O B C D G H K L M N P R S T Y Z I U V) . ao) ((O C D G H K L M N R S T Y Z I U V) . e) ((O B C D F G H K L M N P T W Z U V) . ei) ((O B C D F G H K M N P R S W Z I U V) . en) ((O B C D F G H K L M N P R S T W Z I U V) . eng) ((O ) . er) (( B C D J L M N P Q R S T X Y Z I U V) . i) (( D J L Q X ) . ia) (( B D J L M N P Q T X ) . ian) (( J L N Q X ) . iang) (( B D J L M N P Q T X ) . iao) (( B D J L M N P Q T X ) . ie) (( B J L M N P Q X Y ) . in) (( B D J L M N P Q T X Y ) . ing) (( J Q X ) . iong) (( D J L M N Q X ) . iu) ((O B F M P W Y ) . o) (( C D G H K L N R S T Y Z I V) . ong) ((O C D F G H K L M N P R S T Y Z I U V) . ou) (( B C D F G H J K L M N P Q R S T W X Y Z I U V) . u) (( L N ) . v) (( G H K R I U V) . ua) (( G H K I U V) . uai) (( C D G H J K L N Q R S T X Y Z I U V) . uan) (( G H K I U V) . uang) (( J Q X Y ) . ue) (( L N ) . ve) (( C D G H K R S T Z I U V) . ui) (( C D G H J K L Q R S T X Y Z I U V) . un) (( C D G H K L N R S T Z I U V) . uo) (('("" . "")) . (cons "er" (cdr er))) ((J Q X) . (cons "a" (cdr ia ))) ((J Q X) . (cons "s" (cdr ia ))) ((J Q X) . (cons "f" (cdr ian ))) ((J Q X) . (cons "g" (cdr iang))) ((J Q X) . (cons "d" (cdr iao ))) ((J Q X) . (cons "e" (cdr ie ))) ((J Q X) . (cons "w" (cdr ie ))) ((J Q X) . (cons "r" (cdr in ))) ((J Q X) . (cons "t" (cdr ing ))) ((J Q X) . (cons "q" (cdr iu ))))) (dolist (SHENG (list B C D F G H J K L M N P Q R S T W X Y Z I U V)) (its-defoutput (car SHENG) (cdr SHENG))) (its-define-erpin-qingsheng H "m") (its-define-erpin-qingsheng H "n" "ng") (its-define-erpin-qingsheng O "m") (its-define-erpin-qingsheng O "n") (its-defrule "on5" "ng(0@(B") (its-defrule "on2" "(0=@(B") (its-defrule "on3" "(0>@(B") (its-defrule "on4" "(0?@(B")))) (define-its-state-machine its-erpin-cn-map "erpin-cn" "$A6~(BG" Chinese-GB "Map for Erpin input. (Chinese-GB)" (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (its-define-erpin-table) (its-defrule "b " "$A2;(B") (its-defrule "c " "$A2E(B") (its-defrule "ch " "$A3v(B") (its-defrule "d " "$A5D(B") (its-defrule "f " "$A74(B") (its-defrule "g " "$A8v(B") (its-defrule "h " "$A:M(B") (its-defrule "i " "$AR;(B") (its-defrule "j " "$A>M(B") (its-defrule "k " "$A?I(B") (its-defrule "l " "$AAK(B") (its-defrule "m " "$AC?(B") (its-defrule "n " "$ADj(B") (its-defrule "p " "$AEz(B") (its-defrule "q " "$AH%(B") (its-defrule "r " "$AHU(B") (its-defrule "s " "$AJG(B") (its-defrule "u " "$AIO(B") (its-defrule "t " "$AK{(B") (its-defrule "w " "$ANR(B") (its-defrule "x " "$AOr(B") (its-defrule "y " "$ASV(B") (its-defrule "z " "$ATZ(B") (its-defrule "v " "$AWE(B") (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "," "$A#,(B") (its-defrule "." "$A!#(B") (its-defrule "/" "$A!"(B") (its-defrule ":" "$A#:(B") (its-defrule ";" "$A#;(B") (its-defrule "?" "$A#?(B") (its-defrule "!" "$A#!(B")) (define-its-state-machine its-erpin-tw-map "erpin-tw" "$(GD((BC" Chinese-CNS "Map for Erpin input." (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (its-define-erpin-table) (its-defrule "b " "$(GDb(B") (its-defrule "c " "$(GD_(B") (its-defrule "ch " "$(GEx(B") (its-defrule "d " "$(GN{(B") (its-defrule "f " "$(GE0(B") (its-defrule "g " "$(GT6(B") (its-defrule "h " "$(GLO(B") (its-defrule "i " "$(GD!(B") (its-defrule "j " "$(G^s(B") (its-defrule "k " "$(GF+(B") (its-defrule "l " "$(GD'(B") (its-defrule "m " "$(GJd(B") (its-defrule "n " "$(GH!(B") (its-defrule "p " "$(GJG(B") (its-defrule "q " "$(GF*(B") (its-defrule "r " "$(GEJ(B") (its-defrule "s " "$(GQR(B") (its-defrule "u " "$(GD8(B") (its-defrule "t " "$(GEl(B") (its-defrule "w " "$(GJ<(B") (its-defrule "x " "$(GGW(B") (its-defrule "y " "$(GD4(B") (its-defrule "z " "$(GGc(B") (its-defrule "v " "$(Gaa(B") (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") ("8" . "$(G$)(B") ("9" . "$(G$*(B") (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") ("-" . "$(G"1(B") ("=" . "$(G"8(B") ("`" . "$(G!j(B") ("\\" . "$(G"`(B") ("|" . "$(G"^(B") ("_" . "$(G"%(B") ("+" . "$(G"0(B") ("~" . "$(G"D(B") ("[" . "$(G!b(B") ("]" . "$(G!c(B") ("{" . "$(G!B(B") ("}" . "$(G!C(B") (":" . "$(G!((B") (";" . "$(G!'(B") ("\"" . "$(G!i(B") ("'" . "$(G!k(B") ("<" . "$(G"6(B") (">" . "$(G"7(B") ("?" . "$(G!)(B") ("/" . "$(G"_(B") ("," . "$(G!"(B") ("." . "$(G!%(B") ("a" . "$(G$[(B") ("b" . "$(G$\(B") ("c" . "$(G$](B") ("d" . "$(G$^(B") ("e" . "$(G$_(B") ("f" . "$(G$`(B") ("g" . "$(G$a(B") ("h" . "$(G$b(B") ("i" . "$(G$c(B") ("j" . "$(G$d(B") ("k" . "$(G$e(B") ("l" . "$(G$f(B") ("m" . "$(G$g(B") ("n" . "$(G$h(B") ("o" . "$(G$i(B") ("p" . "$(G$j(B") ("q" . "$(G$k(B") ("r" . "$(G$l(B") ("s" . "$(G$m(B") ("t" . "$(G$n(B") ("u" . "$(G$o(B") ("v" . "$(G$p(B") ("w" . "$(G$q(B") ("x" . "$(G$r(B") ("y" . "$(G$s(B") ("z" . "$(G$t(B") ("A" . "$(G$A(B") ("B" . "$(G$B(B") ("C" . "$(G$C(B") ("D" . "$(G$D(B") ("E" . "$(G$E(B") ("F" . "$(G$F(B") ("G" . "$(G$G(B") ("H" . "$(G$H(B") ("I" . "$(G$I(B") ("J" . "$(G$J(B") ("K" . "$(G$K(B") ("L" . "$(G$L(B") ("M" . "$(G$M(B") ("N" . "$(G$N(B") ("O" . "$(G$O(B") ("P" . "$(G$P(B") ("Q" . "$(G$Q(B") ("R" . "$(G$R(B") ("S" . "$(G$S(B") ("T" . "$(G$T(B") ("U" . "$(G$U(B") ("V" . "$(G$V(B") ("W" . "$(G$W(B") ("X" . "$(G$X(B") ("Y" . "$(G$Y(B") ("Z" . "$(G$Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "," "$(G!"(B") (its-defrule "." "$(G!$(B") (its-defrule "/" "$(G!#(B") (its-defrule ":" "$(G!((B") (its-defrule ";" "$(G!'(B") (its-defrule "?" "$(G!)(B") (its-defrule "!" "$(G!*(B")) (define-its-state-machine-append its-erpin-cn-map (its-defrule "[" its-erpin-cn-open-braket) (its-defrule "]" its-erpin-cn-close-braket) (if its-erpin-cn-enable-quanjioao-alphabet (progn (its-defrule "1" "$A#1(B") (its-defrule "2" "$A#2(B") (its-defrule "3" "$A#3(B") (its-defrule "4" "$A#4(B") (its-defrule "5" "$A#5(B") (its-defrule "6" "$A#6(B") (its-defrule "7" "$A#7(B") (its-defrule "8" "$A#8(B") (its-defrule "9" "$A#9(B") (its-defrule "0" "$A#0(B") (its-defrule "@" "$A#@(B") (its-defrule "#" "$A##(B") (its-defrule "$" "$A!g(B") (its-defrule "%" "$A#%(B") (its-defrule "^" "$A#^(B") (its-defrule "&" "$A#&(B") (its-defrule "*" "$A#*(B") (its-defrule "(" "$A#((B") (its-defrule ")" "$A#)(B") (its-defrule "-" "$A#-(B") (its-defrule "~" "$A!+(B") (its-defrule "=" "$A#=(B") (its-defrule "`" "$A#`(B") (its-defrule "\\" "$A#\(B") (its-defrule "|" "$A#|(B") (its-defrule "_" "$A#_(B") (its-defrule "+" "$A#+(B") (its-defrule "{" "$A#{(B") (its-defrule "}" "$A#}(B") (its-defrule "\"" "$A#"(B") (its-defrule "'" "$A#'(B") (its-defrule "<" "$A#<(B") (its-defrule ">" "$A#>(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "-" "-") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">")))) (define-its-state-machine-append its-erpin-tw-map (its-defrule "[" its-erpin-tw-open-braket) (its-defrule "]" its-erpin-tw-close-braket) (if its-erpin-tw-enable-quanjioao-alphabet (progn (its-defrule "1" "$(G$"(B") (its-defrule "2" "$(G$#(B") (its-defrule "3" "$(G$$(B") (its-defrule "4" "$(G$%(B") (its-defrule "5" "$(G$&(B") (its-defrule "6" "$(G$'(B") (its-defrule "7" "$(G$((B") (its-defrule "8" "$(G$)(B") (its-defrule "9" "$(G$*(B") (its-defrule "0" "$(G$!(B") (its-defrule "@" "$(G"i(B") (its-defrule "#" "$(G!l(B") (its-defrule "$" "$(G"c(B") (its-defrule "%" "$(G"h(B") (its-defrule "^" "$(G!T(B") (its-defrule "&" "$(G!m(B") (its-defrule "*" "$(G!n(B") (its-defrule "(" "$(G!>(B") (its-defrule ")" "$(G!?(B") (its-defrule "-" "$(G"1(B") (its-defrule "~" "$(G"D(B") (its-defrule "=" "$(G"8(B") (its-defrule "`" "$(G!j(B") (its-defrule "\\" "$(G"b(B") (its-defrule "|" "$(G"^(B") (its-defrule "_" "$(G"%(B") (its-defrule "+" "$(G"0(B") (its-defrule "{" "$(G!B(B") (its-defrule "}" "$(G!C(B") (its-defrule "\"" "$(G!i(B") (its-defrule "'" "$(G!k(B") (its-defrule "<" "$(G"6(B") (its-defrule ">" "$(G"7(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "-" "-") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">")))) (provide 'its/erpin) egg-4.0.6+0.20041122cvs/its/hangul.el0000644000764400003210000025454707234613504020073 0ustar ishikawaishikawa00000000000000;;; its/hangul.el --- Hangul Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-hangul-enable-jeonkak-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Jeonkak alphabet") (defvar its-hangul-period ". " "*$(C#.(B") ; ". " "$(C#.(B" (defvar its-hangul-comma ", " "*$(C#,(B") ; ", " "$(C#,(B" (defvar its-hangul-open-bracket "$(C!8(B" "*[") ; "$(C#[(B" (defvar its-hangul-close-bracket "$(C!9(B" "*]") ; "$(C#](B" (eval-when-compile (defconst its-hangul-key-alist nil) (defconst its-hangul-successor-list nil) (defsubst its-hangul-sequence-to-key (seq) (concat (mapcar (lambda (c) (cdr (assq c its-hangul-key-alist))) (string-to-list seq)))) (defsubst its-hangul-make-successor (init keyseq) (concat (if init (substring init 0 (1- (length init))) "[") (list (aref keyseq 1)) "]"))) (eval-when-compile (defun its-define-hangul-key (key output) (setq its-hangul-key-alist (cons (cons (string-to-char output) (string-to-char key)) its-hangul-key-alist)) (its-defrule key output)) (defun its-define-hangul-successor-list (keyseq) (let ((pair (assq (aref keyseq 0) its-hangul-successor-list))) (if (null pair) (setq its-hangul-successor-list (cons (cons (aref keyseq 0) (its-hangul-make-successor nil keyseq)) its-hangul-successor-list)) (if (null (string-match (cdr pair) keyseq 1)) (setcdr pair (its-hangul-make-successor (cdr pair) keyseq)))))) (defun its-defrule-hangul (input output) (let* ((state (its-defrule input output nil nil)) (prev-out (its-get-output (car its-parent-states))) pair) (if (and (= (length (string-to-list prev-out)) 1) (> (string-to-char prev-out) ?\377) (setq pair (assq (string-to-char (substring input -1)) its-hangul-successor-list))) (progn (its-set-interim-terminal-state state) (its-defrule-otherwise state nil (cdr pair) -2))))) (defmacro its-define-hangul (&rest list) (cons 'progn (mapcar (lambda (l) (let ((case-fold-search nil) (keyseq (its-hangul-sequence-to-key (car l)))) (if (>= (length keyseq) 2) (its-define-hangul-successor-list keyseq)) (list 'its-defrule-hangul keyseq (nth 1 l)))) list)))) (define-its-state-machine its-hangul-map "hangul" "$(CGQ(B" Korean "Map for Hangul input. (Korean)" (defconst its-jeonkak-escape "Z") (defconst its-pankak-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "J" jeonkak-downcase) (its-define-hangul-key "r" "$(C$!(B") (its-define-hangul-key "s" "$(C$$(B") (its-define-hangul-key "e" "$(C$'(B") (its-define-hangul-key "f" "$(C$)(B") (its-define-hangul-key "a" "$(C$1(B") (its-define-hangul-key "q" "$(C$2(B") (its-define-hangul-key "t" "$(C$5(B") (its-define-hangul-key "d" "$(C$7(B") (its-define-hangul-key "w" "$(C$8(B") (its-define-hangul-key "c" "$(C$:(B") (its-define-hangul-key "z" "$(C$;(B") (its-define-hangul-key "x" "$(C$<(B") (its-define-hangul-key "v" "$(C$=(B") (its-define-hangul-key "g" "$(C$>(B") (its-define-hangul-key "R" "$(C$"(B") (its-define-hangul-key "E" "$(C$((B") (its-define-hangul-key "Q" "$(C$3(B") (its-define-hangul-key "T" "$(C$6(B") (its-define-hangul-key "W" "$(C$9(B") (its-define-hangul-key "k" "$(C$?(B") (its-define-hangul-key "i" "$(C$A(B") (its-define-hangul-key "j" "$(C$C(B") (its-define-hangul-key "u" "$(C$E(B") (its-define-hangul-key "h" "$(C$G(B") (its-define-hangul-key "y" "$(C$K(B") (its-define-hangul-key "n" "$(C$L(B") (its-define-hangul-key "b" "$(C$P(B") (its-define-hangul-key "m" "$(C$Q(B") (its-define-hangul-key "l" "$(C$S(B") (its-define-hangul-key "o" "$(C$@(B") (its-define-hangul-key "p" "$(C$D(B") (its-define-hangul-key "O" "$(C$B(B") (its-define-hangul-key "P" "$(C$F(B") (its-define-hangul ("$(C$!$?(B" "$(C0!(B") ("$(C$!$?$!(B" "$(C0"(B") ("$(C$!$?$$(B" "$(C0#(B") ("$(C$!$?$'(B" "$(C0$(B") ("$(C$!$?$)(B" "$(C0%(B") ("$(C$!$?$)$!(B" "$(C0&(B") ("$(C$!$?$)$1(B" "$(C0'(B") ("$(C$!$?$1(B" "$(C0((B") ("$(C$!$?$2(B" "$(C0)(B") ("$(C$!$?$2$5(B" "$(C0*(B") ("$(C$!$?$5(B" "$(C0+(B") ("$(C$!$?$6(B" "$(C0,(B") ("$(C$!$?$7(B" "$(C0-(B") ("$(C$!$?$8(B" "$(C0.(B") ("$(C$!$?$:(B" "$(C0/(B") ("$(C$!$?$<(B" "$(C00(B") ("$(C$!$?$=(B" "$(C01(B") ("$(C$!$?$>(B" "$(C02(B") ("$(C$!$@(B" "$(C03(B") ("$(C$!$@$!(B" "$(C04(B") ("$(C$!$@$$(B" "$(C05(B") ("$(C$!$@$)(B" "$(C06(B") ("$(C$!$@$1(B" "$(C07(B") ("$(C$!$@$2(B" "$(C08(B") ("$(C$!$@$5(B" "$(C09(B") ("$(C$!$@$6(B" "$(C0:(B") ("$(C$!$@$7(B" "$(C0;(B") ("$(C$!$A(B" "$(C0<(B") ("$(C$!$A$!(B" "$(C0=(B") ("$(C$!$A$$(B" "$(C0>(B") ("$(C$!$A$)(B" "$(C0?(B") ("$(C$!$A$5(B" "$(C0@(B") ("$(C$!$A$7(B" "$(C0A(B") ("$(C$!$B(B" "$(C0B(B") ("$(C$!$B$$(B" "$(C0C(B") ("$(C$!$B$)(B" "$(C0D(B") ("$(C$!$C(B" "$(C0E(B") ("$(C$!$C$!(B" "$(C0F(B") ("$(C$!$C$$(B" "$(C0G(B") ("$(C$!$C$'(B" "$(C0H(B") ("$(C$!$C$)(B" "$(C0I(B") ("$(C$!$C$)$1(B" "$(C0J(B") ("$(C$!$C$1(B" "$(C0K(B") ("$(C$!$C$2(B" "$(C0L(B") ("$(C$!$C$5(B" "$(C0M(B") ("$(C$!$C$6(B" "$(C0N(B") ("$(C$!$C$7(B" "$(C0O(B") ("$(C$!$C$8(B" "$(C0P(B") ("$(C$!$C$<(B" "$(C0Q(B") ("$(C$!$C$=(B" "$(C0R(B") ("$(C$!$C$>(B" "$(C0S(B") ("$(C$!$D(B" "$(C0T(B") ("$(C$!$D$$(B" "$(C0U(B") ("$(C$!$D$)(B" "$(C0V(B") ("$(C$!$D$1(B" "$(C0W(B") ("$(C$!$D$2(B" "$(C0X(B") ("$(C$!$D$5(B" "$(C0Y(B") ("$(C$!$D$6(B" "$(C0Z(B") ("$(C$!$D$7(B" "$(C0[(B") ("$(C$!$E(B" "$(C0\(B") ("$(C$!$E$!(B" "$(C0](B") ("$(C$!$E$"(B" "$(C0^(B") ("$(C$!$E$$(B" "$(C0_(B") ("$(C$!$E$'(B" "$(C0`(B") ("$(C$!$E$)(B" "$(C0a(B") ("$(C$!$E$1(B" "$(C0b(B") ("$(C$!$E$2(B" "$(C0c(B") ("$(C$!$E$5(B" "$(C0d(B") ("$(C$!$E$6(B" "$(C0e(B") ("$(C$!$E$7(B" "$(C0f(B") ("$(C$!$E$<(B" "$(C0g(B") ("$(C$!$F(B" "$(C0h(B") ("$(C$!$F$$(B" "$(C0i(B") ("$(C$!$F$)(B" "$(C0j(B") ("$(C$!$F$2(B" "$(C0k(B") ("$(C$!$F$5(B" "$(C0l(B") ("$(C$!$G(B" "$(C0m(B") ("$(C$!$G$!(B" "$(C0n(B") ("$(C$!$G$$(B" "$(C0o(B") ("$(C$!$G$'(B" "$(C0p(B") ("$(C$!$G$)(B" "$(C0q(B") ("$(C$!$G$)$1(B" "$(C0r(B") ("$(C$!$G$)$5(B" "$(C0s(B") ("$(C$!$G$)$>(B" "$(C0t(B") ("$(C$!$G$1(B" "$(C0u(B") ("$(C$!$G$2(B" "$(C0v(B") ("$(C$!$G$5(B" "$(C0w(B") ("$(C$!$G$7(B" "$(C0x(B") ("$(C$!$G$8(B" "$(C0y(B") ("$(C$!$G$?(B" "$(C0z(B") ("$(C$!$G$?$!(B" "$(C0{(B") ("$(C$!$G$?$$(B" "$(C0|(B") ("$(C$!$G$?$)(B" "$(C0}(B") ("$(C$!$G$?$)$1(B" "$(C0~(B") ("$(C$!$G$?$1(B" "$(C1!(B") ("$(C$!$G$?$2(B" "$(C1"(B") ("$(C$!$G$?$5(B" "$(C1#(B") ("$(C$!$G$?$7(B" "$(C1$(B") ("$(C$!$G$@(B" "$(C1%(B") ("$(C$!$G$@$$(B" "$(C1&(B") ("$(C$!$G$@$)(B" "$(C1'(B") ("$(C$!$G$@$2(B" "$(C1((B") ("$(C$!$G$@$6(B" "$(C1)(B") ("$(C$!$G$@$7(B" "$(C1*(B") ("$(C$!$G$S(B" "$(C1+(B") ("$(C$!$G$S$!(B" "$(C1,(B") ("$(C$!$G$S$$(B" "$(C1-(B") ("$(C$!$G$S$)(B" "$(C1.(B") ("$(C$!$G$S$1(B" "$(C1/(B") ("$(C$!$G$S$2(B" "$(C10(B") ("$(C$!$G$S$5(B" "$(C11(B") ("$(C$!$G$S$7(B" "$(C12(B") ("$(C$!$K(B" "$(C13(B") ("$(C$!$K$$(B" "$(C14(B") ("$(C$!$K$)(B" "$(C15(B") ("$(C$!$K$2(B" "$(C16(B") ("$(C$!$K$5(B" "$(C17(B") ("$(C$!$L(B" "$(C18(B") ("$(C$!$L$!(B" "$(C19(B") ("$(C$!$L$$(B" "$(C1:(B") ("$(C$!$L$'(B" "$(C1;(B") ("$(C$!$L$)(B" "$(C1<(B") ("$(C$!$L$)$!(B" "$(C1=(B") ("$(C$!$L$)$1(B" "$(C1>(B") ("$(C$!$L$)$>(B" "$(C1?(B") ("$(C$!$L$1(B" "$(C1@(B") ("$(C$!$L$2(B" "$(C1A(B") ("$(C$!$L$5(B" "$(C1B(B") ("$(C$!$L$7(B" "$(C1C(B") ("$(C$!$L$8(B" "$(C1D(B") ("$(C$!$L$C(B" "$(C1E(B") ("$(C$!$L$C$!(B" "$(C1F(B") ("$(C$!$L$C$$(B" "$(C1G(B") ("$(C$!$L$C$)(B" "$(C1H(B") ("$(C$!$L$C$6(B" "$(C1I(B") ("$(C$!$L$C$7(B" "$(C1J(B") ("$(C$!$L$D(B" "$(C1K(B") ("$(C$!$L$D$5(B" "$(C1L(B") ("$(C$!$L$S(B" "$(C1M(B") ("$(C$!$L$S$!(B" "$(C1N(B") ("$(C$!$L$S$$(B" "$(C1O(B") ("$(C$!$L$S$)(B" "$(C1P(B") ("$(C$!$L$S$1(B" "$(C1Q(B") ("$(C$!$L$S$2(B" "$(C1R(B") ("$(C$!$L$S$5(B" "$(C1S(B") ("$(C$!$P(B" "$(C1T(B") ("$(C$!$P$$(B" "$(C1U(B") ("$(C$!$P$)(B" "$(C1V(B") ("$(C$!$Q(B" "$(C1W(B") ("$(C$!$Q$!(B" "$(C1X(B") ("$(C$!$Q$$(B" "$(C1Y(B") ("$(C$!$Q$'(B" "$(C1Z(B") ("$(C$!$Q$)(B" "$(C1[(B") ("$(C$!$Q$)$!(B" "$(C1\(B") ("$(C$!$Q$1(B" "$(C1](B") ("$(C$!$Q$2(B" "$(C1^(B") ("$(C$!$Q$5(B" "$(C1_(B") ("$(C$!$Q$7(B" "$(C1`(B") ("$(C$!$Q$S(B" "$(C1a(B") ("$(C$!$S(B" "$(C1b(B") ("$(C$!$S$!(B" "$(C1c(B") ("$(C$!$S$$(B" "$(C1d(B") ("$(C$!$S$'(B" "$(C1e(B") ("$(C$!$S$)(B" "$(C1f(B") ("$(C$!$S$)$1(B" "$(C1g(B") ("$(C$!$S$1(B" "$(C1h(B") ("$(C$!$S$2(B" "$(C1i(B") ("$(C$!$S$5(B" "$(C1j(B") ("$(C$!$S$7(B" "$(C1k(B") ("$(C$!$S$8(B" "$(C1l(B") ("$(C$!$S$=(B" "$(C1m(B") ("$(C$"$?(B" "$(C1n(B") ("$(C$"$?$!(B" "$(C1o(B") ("$(C$"$?$"(B" "$(C1p(B") ("$(C$"$?$$(B" "$(C1q(B") ("$(C$"$?$)(B" "$(C1r(B") ("$(C$"$?$)$1(B" "$(C1s(B") ("$(C$"$?$1(B" "$(C1t(B") ("$(C$"$?$2(B" "$(C1u(B") ("$(C$"$?$5(B" "$(C1v(B") ("$(C$"$?$6(B" "$(C1w(B") ("$(C$"$?$7(B" "$(C1x(B") ("$(C$"$?$<(B" "$(C1y(B") ("$(C$"$@(B" "$(C1z(B") ("$(C$"$@$!(B" "$(C1{(B") ("$(C$"$@$$(B" "$(C1|(B") ("$(C$"$@$)(B" "$(C1}(B") ("$(C$"$@$1(B" "$(C1~(B") ("$(C$"$@$2(B" "$(C2!(B") ("$(C$"$@$5(B" "$(C2"(B") ("$(C$"$@$6(B" "$(C2#(B") ("$(C$"$@$7(B" "$(C2$(B") ("$(C$"$A(B" "$(C2%(B") ("$(C$"$A$!(B" "$(C2&(B") ("$(C$"$A$)(B" "$(C2'(B") ("$(C$"$C(B" "$(C2((B") ("$(C$"$C$!(B" "$(C2)(B") ("$(C$"$C$"(B" "$(C2*(B") ("$(C$"$C$$(B" "$(C2+(B") ("$(C$"$C$)(B" "$(C2,(B") ("$(C$"$C$1(B" "$(C2-(B") ("$(C$"$C$2(B" "$(C2.(B") ("$(C$"$C$5(B" "$(C2/(B") ("$(C$"$C$6(B" "$(C20(B") ("$(C$"$C$7(B" "$(C21(B") ("$(C$"$D(B" "$(C22(B") ("$(C$"$D$!(B" "$(C23(B") ("$(C$"$D$$(B" "$(C24(B") ("$(C$"$D$1(B" "$(C25(B") ("$(C$"$D$5(B" "$(C26(B") ("$(C$"$D$7(B" "$(C27(B") ("$(C$"$E(B" "$(C28(B") ("$(C$"$E$$(B" "$(C29(B") ("$(C$"$E$)(B" "$(C2:(B") ("$(C$"$E$5(B" "$(C2;(B") ("$(C$"$E$6(B" "$(C2<(B") ("$(C$"$E$<(B" "$(C2=(B") ("$(C$"$F(B" "$(C2>(B") ("$(C$"$G(B" "$(C2?(B") ("$(C$"$G$!(B" "$(C2@(B") ("$(C$"$G$$(B" "$(C2A(B") ("$(C$"$G$$$>(B" "$(C2B(B") ("$(C$"$G$)(B" "$(C2C(B") ("$(C$"$G$1(B" "$(C2D(B") ("$(C$"$G$2(B" "$(C2E(B") ("$(C$"$G$5(B" "$(C2F(B") ("$(C$"$G$7(B" "$(C2G(B") ("$(C$"$G$8(B" "$(C2H(B") ("$(C$"$G$:(B" "$(C2I(B") ("$(C$"$G$?(B" "$(C2J(B") ("$(C$"$G$?$!(B" "$(C2K(B") ("$(C$"$G$?$)(B" "$(C2L(B") ("$(C$"$G$?$6(B" "$(C2M(B") ("$(C$"$G$?$7(B" "$(C2N(B") ("$(C$"$G$@(B" "$(C2O(B") ("$(C$"$G$@$!(B" "$(C2P(B") ("$(C$"$G$@$7(B" "$(C2Q(B") ("$(C$"$G$S(B" "$(C2R(B") ("$(C$"$G$S$$(B" "$(C2S(B") ("$(C$"$G$S$)(B" "$(C2T(B") ("$(C$"$G$S$1(B" "$(C2U(B") ("$(C$"$G$S$2(B" "$(C2V(B") ("$(C$"$G$S$7(B" "$(C2W(B") ("$(C$"$K(B" "$(C2X(B") ("$(C$"$L(B" "$(C2Y(B") ("$(C$"$L$!(B" "$(C2Z(B") ("$(C$"$L$$(B" "$(C2[(B") ("$(C$"$L$)(B" "$(C2\(B") ("$(C$"$L$)$>(B" "$(C2](B") ("$(C$"$L$1(B" "$(C2^(B") ("$(C$"$L$2(B" "$(C2_(B") ("$(C$"$L$5(B" "$(C2`(B") ("$(C$"$L$7(B" "$(C2a(B") ("$(C$"$L$8(B" "$(C2b(B") ("$(C$"$L$C(B" "$(C2c(B") ("$(C$"$L$C$)(B" "$(C2d(B") ("$(C$"$L$C$6(B" "$(C2e(B") ("$(C$"$L$C$7(B" "$(C2f(B") ("$(C$"$L$D(B" "$(C2g(B") ("$(C$"$L$D$!(B" "$(C2h(B") ("$(C$"$L$D$$(B" "$(C2i(B") ("$(C$"$L$D$)(B" "$(C2j(B") ("$(C$"$L$D$1(B" "$(C2k(B") ("$(C$"$L$D$2(B" "$(C2l(B") ("$(C$"$L$D$6(B" "$(C2m(B") ("$(C$"$L$S(B" "$(C2n(B") ("$(C$"$L$S$$(B" "$(C2o(B") ("$(C$"$L$S$)(B" "$(C2p(B") ("$(C$"$L$S$1(B" "$(C2q(B") ("$(C$"$L$S$2(B" "$(C2r(B") ("$(C$"$P(B" "$(C2s(B") ("$(C$"$Q(B" "$(C2t(B") ("$(C$"$Q$!(B" "$(C2u(B") ("$(C$"$Q$$(B" "$(C2v(B") ("$(C$"$Q$$$>(B" "$(C2w(B") ("$(C$"$Q$)(B" "$(C2x(B") ("$(C$"$Q$)$1(B" "$(C2y(B") ("$(C$"$Q$)$>(B" "$(C2z(B") ("$(C$"$Q$1(B" "$(C2{(B") ("$(C$"$Q$2(B" "$(C2|(B") ("$(C$"$Q$5(B" "$(C2}(B") ("$(C$"$Q$7(B" "$(C2~(B") ("$(C$"$Q$<(B" "$(C3!(B") ("$(C$"$S(B" "$(C3"(B") ("$(C$"$S$!(B" "$(C3#(B") ("$(C$"$S$$(B" "$(C3$(B") ("$(C$"$S$)(B" "$(C3%(B") ("$(C$"$S$1(B" "$(C3&(B") ("$(C$"$S$2(B" "$(C3'(B") ("$(C$"$S$5(B" "$(C3((B") ("$(C$"$S$7(B" "$(C3)(B") ("$(C$$$?(B" "$(C3*(B") ("$(C$$$?$!(B" "$(C3+(B") ("$(C$$$?$"(B" "$(C3,(B") ("$(C$$$?$$(B" "$(C3-(B") ("$(C$$$?$'(B" "$(C3.(B") ("$(C$$$?$)(B" "$(C3/(B") ("$(C$$$?$)$!(B" "$(C30(B") ("$(C$$$?$)$1(B" "$(C31(B") ("$(C$$$?$1(B" "$(C32(B") ("$(C$$$?$2(B" "$(C33(B") ("$(C$$$?$5(B" "$(C34(B") ("$(C$$$?$6(B" "$(C35(B") ("$(C$$$?$7(B" "$(C36(B") ("$(C$$$?$8(B" "$(C37(B") ("$(C$$$?$:(B" "$(C38(B") ("$(C$$$?$<(B" "$(C39(B") ("$(C$$$?$>(B" "$(C3:(B") ("$(C$$$@(B" "$(C3;(B") ("$(C$$$@$!(B" "$(C3<(B") ("$(C$$$@$$(B" "$(C3=(B") ("$(C$$$@$)(B" "$(C3>(B") ("$(C$$$@$1(B" "$(C3?(B") ("$(C$$$@$2(B" "$(C3@(B") ("$(C$$$@$5(B" "$(C3A(B") ("$(C$$$@$6(B" "$(C3B(B") ("$(C$$$@$7(B" "$(C3C(B") ("$(C$$$A(B" "$(C3D(B") ("$(C$$$A$!(B" "$(C3E(B") ("$(C$$$A$$(B" "$(C3F(B") ("$(C$$$A$)(B" "$(C3G(B") ("$(C$$$A$1(B" "$(C3H(B") ("$(C$$$A$7(B" "$(C3I(B") ("$(C$$$C(B" "$(C3J(B") ("$(C$$$C$!(B" "$(C3K(B") ("$(C$$$C$!$5(B" "$(C3L(B") ("$(C$$$C$$(B" "$(C3M(B") ("$(C$$$C$)(B" "$(C3N(B") ("$(C$$$C$)$1(B" "$(C3O(B") ("$(C$$$C$)$2(B" "$(C3P(B") ("$(C$$$C$1(B" "$(C3Q(B") ("$(C$$$C$2(B" "$(C3R(B") ("$(C$$$C$5(B" "$(C3S(B") ("$(C$$$C$6(B" "$(C3T(B") ("$(C$$$C$7(B" "$(C3U(B") ("$(C$$$C$>(B" "$(C3V(B") ("$(C$$$D(B" "$(C3W(B") ("$(C$$$D$!(B" "$(C3X(B") ("$(C$$$D$$(B" "$(C3Y(B") ("$(C$$$D$)(B" "$(C3Z(B") ("$(C$$$D$1(B" "$(C3[(B") ("$(C$$$D$2(B" "$(C3\(B") ("$(C$$$D$5(B" "$(C3](B") ("$(C$$$D$6(B" "$(C3^(B") ("$(C$$$D$7(B" "$(C3_(B") ("$(C$$$E(B" "$(C3`(B") ("$(C$$$E$!(B" "$(C3a(B") ("$(C$$$E$$(B" "$(C3b(B") ("$(C$$$E$)(B" "$(C3c(B") ("$(C$$$E$1(B" "$(C3d(B") ("$(C$$$E$2(B" "$(C3e(B") ("$(C$$$E$6(B" "$(C3f(B") ("$(C$$$E$7(B" "$(C3g(B") ("$(C$$$E$;(B" "$(C3h(B") ("$(C$$$F(B" "$(C3i(B") ("$(C$$$F$$(B" "$(C3j(B") ("$(C$$$G(B" "$(C3k(B") ("$(C$$$G$!(B" "$(C3l(B") ("$(C$$$G$$(B" "$(C3m(B") ("$(C$$$G$)(B" "$(C3n(B") ("$(C$$$G$)$1(B" "$(C3o(B") ("$(C$$$G$1(B" "$(C3p(B") ("$(C$$$G$2(B" "$(C3q(B") ("$(C$$$G$5(B" "$(C3r(B") ("$(C$$$G$7(B" "$(C3s(B") ("$(C$$$G$=(B" "$(C3t(B") ("$(C$$$G$>(B" "$(C3u(B") ("$(C$$$G$?(B" "$(C3v(B") ("$(C$$$G$?$$(B" "$(C3w(B") ("$(C$$$G$?$)(B" "$(C3x(B") ("$(C$$$G$?$6(B" "$(C3y(B") ("$(C$$$G$S(B" "$(C3z(B") ("$(C$$$G$S$$(B" "$(C3{(B") ("$(C$$$G$S$)(B" "$(C3|(B") ("$(C$$$G$S$1(B" "$(C3}(B") ("$(C$$$G$S$2(B" "$(C3~(B") ("$(C$$$G$S$5(B" "$(C4!(B") ("$(C$$$K(B" "$(C4"(B") ("$(C$$$K$!(B" "$(C4#(B") ("$(C$$$K$$(B" "$(C4$(B") ("$(C$$$K$)(B" "$(C4%(B") ("$(C$$$K$2(B" "$(C4&(B") ("$(C$$$K$5(B" "$(C4'(B") ("$(C$$$K$7(B" "$(C4((B") ("$(C$$$L(B" "$(C4)(B") ("$(C$$$L$!(B" "$(C4*(B") ("$(C$$$L$$(B" "$(C4+(B") ("$(C$$$L$'(B" "$(C4,(B") ("$(C$$$L$)(B" "$(C4-(B") ("$(C$$$L$1(B" "$(C4.(B") ("$(C$$$L$2(B" "$(C4/(B") ("$(C$$$L$5(B" "$(C40(B") ("$(C$$$L$7(B" "$(C41(B") ("$(C$$$L$C(B" "$(C42(B") ("$(C$$$L$C$6(B" "$(C43(B") ("$(C$$$L$D(B" "$(C44(B") ("$(C$$$L$S(B" "$(C45(B") ("$(C$$$L$S$$(B" "$(C46(B") ("$(C$$$L$S$)(B" "$(C47(B") ("$(C$$$L$S$1(B" "$(C48(B") ("$(C$$$L$S$2(B" "$(C49(B") ("$(C$$$P(B" "$(C4:(B") ("$(C$$$P$!(B" "$(C4;(B") ("$(C$$$P$)(B" "$(C4<(B") ("$(C$$$P$1(B" "$(C4=(B") ("$(C$$$P$2(B" "$(C4>(B") ("$(C$$$P$7(B" "$(C4?(B") ("$(C$$$Q(B" "$(C4@(B") ("$(C$$$Q$!(B" "$(C4A(B") ("$(C$$$Q$$(B" "$(C4B(B") ("$(C$$$Q$)(B" "$(C4C(B") ("$(C$$$Q$)$!(B" "$(C4D(B") ("$(C$$$Q$)$1(B" "$(C4E(B") ("$(C$$$Q$1(B" "$(C4F(B") ("$(C$$$Q$2(B" "$(C4G(B") ("$(C$$$Q$5(B" "$(C4H(B") ("$(C$$$Q$7(B" "$(C4I(B") ("$(C$$$Q$8(B" "$(C4J(B") ("$(C$$$Q$=(B" "$(C4K(B") ("$(C$$$Q$S(B" "$(C4L(B") ("$(C$$$Q$S$$(B" "$(C4M(B") ("$(C$$$Q$S$)(B" "$(C4N(B") ("$(C$$$S(B" "$(C4O(B") ("$(C$$$S$!(B" "$(C4P(B") ("$(C$$$S$$(B" "$(C4Q(B") ("$(C$$$S$)(B" "$(C4R(B") ("$(C$$$S$)$1(B" "$(C4S(B") ("$(C$$$S$1(B" "$(C4T(B") ("$(C$$$S$2(B" "$(C4U(B") ("$(C$$$S$5(B" "$(C4V(B") ("$(C$$$S$7(B" "$(C4W(B") ("$(C$$$S$=(B" "$(C4X(B") ("$(C$'$?(B" "$(C4Y(B") ("$(C$'$?$!(B" "$(C4Z(B") ("$(C$'$?$"(B" "$(C4[(B") ("$(C$'$?$$(B" "$(C4\(B") ("$(C$'$?$'(B" "$(C4](B") ("$(C$'$?$)(B" "$(C4^(B") ("$(C$'$?$)$!(B" "$(C4_(B") ("$(C$'$?$)$1(B" "$(C4`(B") ("$(C$'$?$)$2(B" "$(C4a(B") ("$(C$'$?$)$>(B" "$(C4b(B") ("$(C$'$?$1(B" "$(C4c(B") ("$(C$'$?$2(B" "$(C4d(B") ("$(C$'$?$5(B" "$(C4e(B") ("$(C$'$?$6(B" "$(C4f(B") ("$(C$'$?$7(B" "$(C4g(B") ("$(C$'$?$8(B" "$(C4h(B") ("$(C$'$?$:(B" "$(C4i(B") ("$(C$'$?$>(B" "$(C4j(B") ("$(C$'$@(B" "$(C4k(B") ("$(C$'$@$!(B" "$(C4l(B") ("$(C$'$@$$(B" "$(C4m(B") ("$(C$'$@$)(B" "$(C4n(B") ("$(C$'$@$1(B" "$(C4o(B") ("$(C$'$@$2(B" "$(C4p(B") ("$(C$'$@$5(B" "$(C4q(B") ("$(C$'$@$6(B" "$(C4r(B") ("$(C$'$@$7(B" "$(C4s(B") ("$(C$'$A(B" "$(C4t(B") ("$(C$'$C(B" "$(C4u(B") ("$(C$'$C$!(B" "$(C4v(B") ("$(C$'$C$"(B" "$(C4w(B") ("$(C$'$C$$(B" "$(C4x(B") ("$(C$'$C$'(B" "$(C4y(B") ("$(C$'$C$)(B" "$(C4z(B") ("$(C$'$C$)$1(B" "$(C4{(B") ("$(C$'$C$)$2(B" "$(C4|(B") ("$(C$'$C$1(B" "$(C4}(B") ("$(C$'$C$2(B" "$(C4~(B") ("$(C$'$C$5(B" "$(C5!(B") ("$(C$'$C$7(B" "$(C5"(B") ("$(C$'$C$:(B" "$(C5#(B") ("$(C$'$C$=(B" "$(C5$(B") ("$(C$'$D(B" "$(C5%(B") ("$(C$'$D$!(B" "$(C5&(B") ("$(C$'$D$$(B" "$(C5'(B") ("$(C$'$D$)(B" "$(C5((B") ("$(C$'$D$1(B" "$(C5)(B") ("$(C$'$D$2(B" "$(C5*(B") ("$(C$'$D$5(B" "$(C5+(B") ("$(C$'$D$6(B" "$(C5,(B") ("$(C$'$D$7(B" "$(C5-(B") ("$(C$'$E(B" "$(C5.(B") ("$(C$'$E$$(B" "$(C5/(B") ("$(C$'$E$)(B" "$(C50(B") ("$(C$'$E$6(B" "$(C51(B") ("$(C$'$E$7(B" "$(C52(B") ("$(C$'$F(B" "$(C53(B") ("$(C$'$F$$(B" "$(C54(B") ("$(C$'$G(B" "$(C55(B") ("$(C$'$G$!(B" "$(C56(B") ("$(C$'$G$$(B" "$(C57(B") ("$(C$'$G$'(B" "$(C58(B") ("$(C$'$G$)(B" "$(C59(B") ("$(C$'$G$)$1(B" "$(C5:(B") ("$(C$'$G$)$5(B" "$(C5;(B") ("$(C$'$G$1(B" "$(C5<(B") ("$(C$'$G$2(B" "$(C5=(B") ("$(C$'$G$5(B" "$(C5>(B") ("$(C$'$G$7(B" "$(C5?(B") ("$(C$'$G$:(B" "$(C5@(B") ("$(C$'$G$<(B" "$(C5A(B") ("$(C$'$G$?(B" "$(C5B(B") ("$(C$'$G$?$$(B" "$(C5C(B") ("$(C$'$G$?$)(B" "$(C5D(B") ("$(C$'$G$@(B" "$(C5E(B") ("$(C$'$G$@$6(B" "$(C5F(B") ("$(C$'$G$S(B" "$(C5G(B") ("$(C$'$G$S$$(B" "$(C5H(B") ("$(C$'$G$S$)(B" "$(C5I(B") ("$(C$'$G$S$1(B" "$(C5J(B") ("$(C$'$G$S$2(B" "$(C5K(B") ("$(C$'$G$S$5(B" "$(C5L(B") ("$(C$'$K(B" "$(C5M(B") ("$(C$'$L(B" "$(C5N(B") ("$(C$'$L$!(B" "$(C5O(B") ("$(C$'$L$$(B" "$(C5P(B") ("$(C$'$L$)(B" "$(C5Q(B") ("$(C$'$L$1(B" "$(C5R(B") ("$(C$'$L$2(B" "$(C5S(B") ("$(C$'$L$5(B" "$(C5T(B") ("$(C$'$L$7(B" "$(C5U(B") ("$(C$'$L$C(B" "$(C5V(B") ("$(C$'$L$C$6(B" "$(C5W(B") ("$(C$'$L$D(B" "$(C5X(B") ("$(C$'$L$D$7(B" "$(C5Y(B") ("$(C$'$L$S(B" "$(C5Z(B") ("$(C$'$L$S$$(B" "$(C5[(B") ("$(C$'$L$S$)(B" "$(C5\(B") ("$(C$'$L$S$2(B" "$(C5](B") ("$(C$'$L$S$5(B" "$(C5^(B") ("$(C$'$L$S$7(B" "$(C5_(B") ("$(C$'$P(B" "$(C5`(B") ("$(C$'$P$$(B" "$(C5a(B") ("$(C$'$P$)(B" "$(C5b(B") ("$(C$'$P$1(B" "$(C5c(B") ("$(C$'$P$7(B" "$(C5d(B") ("$(C$'$Q(B" "$(C5e(B") ("$(C$'$Q$!(B" "$(C5f(B") ("$(C$'$Q$$(B" "$(C5g(B") ("$(C$'$Q$'(B" "$(C5h(B") ("$(C$'$Q$)(B" "$(C5i(B") ("$(C$'$Q$)$1(B" "$(C5j(B") ("$(C$'$Q$1(B" "$(C5k(B") ("$(C$'$Q$2(B" "$(C5l(B") ("$(C$'$Q$5(B" "$(C5m(B") ("$(C$'$Q$7(B" "$(C5n(B") ("$(C$'$Q$S(B" "$(C5o(B") ("$(C$'$S(B" "$(C5p(B") ("$(C$'$S$!(B" "$(C5q(B") ("$(C$'$S$$(B" "$(C5r(B") ("$(C$'$S$'(B" "$(C5s(B") ("$(C$'$S$)(B" "$(C5t(B") ("$(C$'$S$1(B" "$(C5u(B") ("$(C$'$S$2(B" "$(C5v(B") ("$(C$'$S$5(B" "$(C5w(B") ("$(C$'$S$6(B" "$(C5x(B") ("$(C$'$S$7(B" "$(C5y(B") ("$(C$'$S$8(B" "$(C5z(B") ("$(C$($?(B" "$(C5{(B") ("$(C$($?$!(B" "$(C5|(B") ("$(C$($?$$(B" "$(C5}(B") ("$(C$($?$)(B" "$(C5~(B") ("$(C$($?$1(B" "$(C6!(B") ("$(C$($?$2(B" "$(C6"(B") ("$(C$($?$5(B" "$(C6#(B") ("$(C$($?$6(B" "$(C6$(B") ("$(C$($?$7(B" "$(C6%(B") ("$(C$($?$>(B" "$(C6&(B") ("$(C$($@(B" "$(C6'(B") ("$(C$($@$!(B" "$(C6((B") ("$(C$($@$$(B" "$(C6)(B") ("$(C$($@$)(B" "$(C6*(B") ("$(C$($@$1(B" "$(C6+(B") ("$(C$($@$2(B" "$(C6,(B") ("$(C$($@$5(B" "$(C6-(B") ("$(C$($@$6(B" "$(C6.(B") ("$(C$($@$7(B" "$(C6/(B") ("$(C$($C(B" "$(C60(B") ("$(C$($C$!(B" "$(C61(B") ("$(C$($C$$(B" "$(C62(B") ("$(C$($C$)(B" "$(C63(B") ("$(C$($C$)$1(B" "$(C64(B") ("$(C$($C$)$2(B" "$(C65(B") ("$(C$($C$1(B" "$(C66(B") ("$(C$($C$2(B" "$(C67(B") ("$(C$($C$5(B" "$(C68(B") ("$(C$($C$6(B" "$(C69(B") ("$(C$($C$7(B" "$(C6:(B") ("$(C$($C$>(B" "$(C6;(B") ("$(C$($D(B" "$(C6<(B") ("$(C$($D$!(B" "$(C6=(B") ("$(C$($D$$(B" "$(C6>(B") ("$(C$($D$)(B" "$(C6?(B") ("$(C$($D$1(B" "$(C6@(B") ("$(C$($D$2(B" "$(C6A(B") ("$(C$($D$5(B" "$(C6B(B") ("$(C$($D$6(B" "$(C6C(B") ("$(C$($D$7(B" "$(C6D(B") ("$(C$($E(B" "$(C6E(B") ("$(C$($E$6(B" "$(C6F(B") ("$(C$($G(B" "$(C6G(B") ("$(C$($G$!(B" "$(C6H(B") ("$(C$($G$$(B" "$(C6I(B") ("$(C$($G$)(B" "$(C6J(B") ("$(C$($G$7(B" "$(C6K(B") ("$(C$($G$?(B" "$(C6L(B") ("$(C$($G$?$)(B" "$(C6M(B") ("$(C$($G$@(B" "$(C6N(B") ("$(C$($G$S(B" "$(C6O(B") ("$(C$($G$S$$(B" "$(C6P(B") ("$(C$($L(B" "$(C6Q(B") ("$(C$($L$!(B" "$(C6R(B") ("$(C$($L$$(B" "$(C6S(B") ("$(C$($L$)(B" "$(C6T(B") ("$(C$($L$)$>(B" "$(C6U(B") ("$(C$($L$1(B" "$(C6V(B") ("$(C$($L$7(B" "$(C6W(B") ("$(C$($L$D(B" "$(C6X(B") ("$(C$($L$S(B" "$(C6Y(B") ("$(C$($L$S$$(B" "$(C6Z(B") ("$(C$($L$S$)(B" "$(C6[(B") ("$(C$($L$S$1(B" "$(C6\(B") ("$(C$($L$S$2(B" "$(C6](B") ("$(C$($L$S$7(B" "$(C6^(B") ("$(C$($Q(B" "$(C6_(B") ("$(C$($Q$!(B" "$(C6`(B") ("$(C$($Q$$(B" "$(C6a(B") ("$(C$($Q$'(B" "$(C6b(B") ("$(C$($Q$)(B" "$(C6c(B") ("$(C$($Q$1(B" "$(C6d(B") ("$(C$($Q$2(B" "$(C6e(B") ("$(C$($Q$5(B" "$(C6f(B") ("$(C$($Q$S(B" "$(C6g(B") ("$(C$($Q$S$$(B" "$(C6h(B") ("$(C$($Q$S$)(B" "$(C6i(B") ("$(C$($Q$S$1(B" "$(C6j(B") ("$(C$($Q$S$2(B" "$(C6k(B") ("$(C$($S(B" "$(C6l(B") ("$(C$($S$$(B" "$(C6m(B") ("$(C$($S$)(B" "$(C6n(B") ("$(C$($S$1(B" "$(C6o(B") ("$(C$($S$2(B" "$(C6p(B") ("$(C$($S$5(B" "$(C6q(B") ("$(C$($S$7(B" "$(C6r(B") ("$(C$)$?(B" "$(C6s(B") ("$(C$)$?$!(B" "$(C6t(B") ("$(C$)$?$$(B" "$(C6u(B") ("$(C$)$?$)(B" "$(C6v(B") ("$(C$)$?$1(B" "$(C6w(B") ("$(C$)$?$2(B" "$(C6x(B") ("$(C$)$?$5(B" "$(C6y(B") ("$(C$)$?$6(B" "$(C6z(B") ("$(C$)$?$7(B" "$(C6{(B") ("$(C$)$?$8(B" "$(C6|(B") ("$(C$)$?$=(B" "$(C6}(B") ("$(C$)$?$>(B" "$(C6~(B") ("$(C$)$@(B" "$(C7!(B") ("$(C$)$@$!(B" "$(C7"(B") ("$(C$)$@$$(B" "$(C7#(B") ("$(C$)$@$)(B" "$(C7$(B") ("$(C$)$@$1(B" "$(C7%(B") ("$(C$)$@$2(B" "$(C7&(B") ("$(C$)$@$5(B" "$(C7'(B") ("$(C$)$@$6(B" "$(C7((B") ("$(C$)$@$7(B" "$(C7)(B") ("$(C$)$A(B" "$(C7*(B") ("$(C$)$A$!(B" "$(C7+(B") ("$(C$)$A$$(B" "$(C7,(B") ("$(C$)$A$5(B" "$(C7-(B") ("$(C$)$A$7(B" "$(C7.(B") ("$(C$)$C(B" "$(C7/(B") ("$(C$)$C$!(B" "$(C70(B") ("$(C$)$C$$(B" "$(C71(B") ("$(C$)$C$)(B" "$(C72(B") ("$(C$)$C$1(B" "$(C73(B") ("$(C$)$C$2(B" "$(C74(B") ("$(C$)$C$5(B" "$(C75(B") ("$(C$)$C$6(B" "$(C76(B") ("$(C$)$C$7(B" "$(C77(B") ("$(C$)$C$>(B" "$(C78(B") ("$(C$)$D(B" "$(C79(B") ("$(C$)$D$!(B" "$(C7:(B") ("$(C$)$D$$(B" "$(C7;(B") ("$(C$)$D$)(B" "$(C7<(B") ("$(C$)$D$1(B" "$(C7=(B") ("$(C$)$D$2(B" "$(C7>(B") ("$(C$)$D$5(B" "$(C7?(B") ("$(C$)$D$7(B" "$(C7@(B") ("$(C$)$E(B" "$(C7A(B") ("$(C$)$E$!(B" "$(C7B(B") ("$(C$)$E$$(B" "$(C7C(B") ("$(C$)$E$)(B" "$(C7D(B") ("$(C$)$E$1(B" "$(C7E(B") ("$(C$)$E$2(B" "$(C7F(B") ("$(C$)$E$5(B" "$(C7G(B") ("$(C$)$E$6(B" "$(C7H(B") ("$(C$)$E$7(B" "$(C7I(B") ("$(C$)$F(B" "$(C7J(B") ("$(C$)$F$$(B" "$(C7K(B") ("$(C$)$F$2(B" "$(C7L(B") ("$(C$)$F$5(B" "$(C7M(B") ("$(C$)$G(B" "$(C7N(B") ("$(C$)$G$!(B" "$(C7O(B") ("$(C$)$G$$(B" "$(C7P(B") ("$(C$)$G$)(B" "$(C7Q(B") ("$(C$)$G$1(B" "$(C7R(B") ("$(C$)$G$2(B" "$(C7S(B") ("$(C$)$G$5(B" "$(C7T(B") ("$(C$)$G$7(B" "$(C7U(B") ("$(C$)$G$?(B" "$(C7V(B") ("$(C$)$G$?$$(B" "$(C7W(B") ("$(C$)$G$?$7(B" "$(C7X(B") ("$(C$)$G$@$6(B" "$(C7Y(B") ("$(C$)$G$S(B" "$(C7Z(B") ("$(C$)$G$S$$(B" "$(C7[(B") ("$(C$)$G$S$)(B" "$(C7\(B") ("$(C$)$G$S$1(B" "$(C7](B") ("$(C$)$G$S$2(B" "$(C7^(B") ("$(C$)$G$S$5(B" "$(C7_(B") ("$(C$)$G$S$7(B" "$(C7`(B") ("$(C$)$K(B" "$(C7a(B") ("$(C$)$K$$(B" "$(C7b(B") ("$(C$)$K$)(B" "$(C7c(B") ("$(C$)$K$2(B" "$(C7d(B") ("$(C$)$K$5(B" "$(C7e(B") ("$(C$)$K$7(B" "$(C7f(B") ("$(C$)$L(B" "$(C7g(B") ("$(C$)$L$!(B" "$(C7h(B") ("$(C$)$L$$(B" "$(C7i(B") ("$(C$)$L$)(B" "$(C7j(B") ("$(C$)$L$1(B" "$(C7k(B") ("$(C$)$L$2(B" "$(C7l(B") ("$(C$)$L$5(B" "$(C7m(B") ("$(C$)$L$7(B" "$(C7n(B") ("$(C$)$L$C(B" "$(C7o(B") ("$(C$)$L$C$6(B" "$(C7p(B") ("$(C$)$L$D(B" "$(C7q(B") ("$(C$)$L$S(B" "$(C7r(B") ("$(C$)$L$S$!(B" "$(C7s(B") ("$(C$)$L$S$$(B" "$(C7t(B") ("$(C$)$L$S$)(B" "$(C7u(B") ("$(C$)$L$S$1(B" "$(C7v(B") ("$(C$)$L$S$5(B" "$(C7w(B") ("$(C$)$L$S$7(B" "$(C7x(B") ("$(C$)$P(B" "$(C7y(B") ("$(C$)$P$!(B" "$(C7z(B") ("$(C$)$P$$(B" "$(C7{(B") ("$(C$)$P$)(B" "$(C7|(B") ("$(C$)$P$1(B" "$(C7}(B") ("$(C$)$P$2(B" "$(C7~(B") ("$(C$)$P$5(B" "$(C8!(B") ("$(C$)$P$7(B" "$(C8"(B") ("$(C$)$Q(B" "$(C8#(B") ("$(C$)$Q$!(B" "$(C8$(B") ("$(C$)$Q$$(B" "$(C8%(B") ("$(C$)$Q$)(B" "$(C8&(B") ("$(C$)$Q$1(B" "$(C8'(B") ("$(C$)$Q$2(B" "$(C8((B") ("$(C$)$Q$5(B" "$(C8)(B") ("$(C$)$Q$7(B" "$(C8*(B") ("$(C$)$Q$8(B" "$(C8+(B") ("$(C$)$Q$<(B" "$(C8,(B") ("$(C$)$Q$=(B" "$(C8-(B") ("$(C$)$S(B" "$(C8.(B") ("$(C$)$S$!(B" "$(C8/(B") ("$(C$)$S$$(B" "$(C80(B") ("$(C$)$S$)(B" "$(C81(B") ("$(C$)$S$1(B" "$(C82(B") ("$(C$)$S$2(B" "$(C83(B") ("$(C$)$S$5(B" "$(C84(B") ("$(C$)$S$7(B" "$(C85(B") ("$(C$1$?(B" "$(C86(B") ("$(C$1$?$!(B" "$(C87(B") ("$(C$1$?$$(B" "$(C88(B") ("$(C$1$?$$$>(B" "$(C89(B") ("$(C$1$?$'(B" "$(C8:(B") ("$(C$1$?$)(B" "$(C8;(B") ("$(C$1$?$)$!(B" "$(C8<(B") ("$(C$1$?$)$1(B" "$(C8=(B") ("$(C$1$?$1(B" "$(C8>(B") ("$(C$1$?$2(B" "$(C8?(B") ("$(C$1$?$5(B" "$(C8@(B") ("$(C$1$?$7(B" "$(C8A(B") ("$(C$1$?$8(B" "$(C8B(B") ("$(C$1$?$<(B" "$(C8C(B") ("$(C$1$?$>(B" "$(C8D(B") ("$(C$1$@(B" "$(C8E(B") ("$(C$1$@$!(B" "$(C8F(B") ("$(C$1$@$$(B" "$(C8G(B") ("$(C$1$@$)(B" "$(C8H(B") ("$(C$1$@$1(B" "$(C8I(B") ("$(C$1$@$2(B" "$(C8J(B") ("$(C$1$@$5(B" "$(C8K(B") ("$(C$1$@$6(B" "$(C8L(B") ("$(C$1$@$7(B" "$(C8M(B") ("$(C$1$@$8(B" "$(C8N(B") ("$(C$1$A(B" "$(C8O(B") ("$(C$1$A$!(B" "$(C8P(B") ("$(C$1$A$)(B" "$(C8Q(B") ("$(C$1$A$7(B" "$(C8R(B") ("$(C$1$C(B" "$(C8S(B") ("$(C$1$C$!(B" "$(C8T(B") ("$(C$1$C$$(B" "$(C8U(B") ("$(C$1$C$)(B" "$(C8V(B") ("$(C$1$C$)$1(B" "$(C8W(B") ("$(C$1$C$1(B" "$(C8X(B") ("$(C$1$C$2(B" "$(C8Y(B") ("$(C$1$C$5(B" "$(C8Z(B") ("$(C$1$C$7(B" "$(C8[(B") ("$(C$1$C$8(B" "$(C8\(B") ("$(C$1$C$>(B" "$(C8](B") ("$(C$1$D(B" "$(C8^(B") ("$(C$1$D$!(B" "$(C8_(B") ("$(C$1$D$$(B" "$(C8`(B") ("$(C$1$D$)(B" "$(C8a(B") ("$(C$1$D$1(B" "$(C8b(B") ("$(C$1$D$2(B" "$(C8c(B") ("$(C$1$D$5(B" "$(C8d(B") ("$(C$1$D$6(B" "$(C8e(B") ("$(C$1$D$7(B" "$(C8f(B") ("$(C$1$E(B" "$(C8g(B") ("$(C$1$E$!(B" "$(C8h(B") ("$(C$1$E$$(B" "$(C8i(B") ("$(C$1$E$)(B" "$(C8j(B") ("$(C$1$E$5(B" "$(C8k(B") ("$(C$1$E$6(B" "$(C8l(B") ("$(C$1$E$7(B" "$(C8m(B") ("$(C$1$E$:(B" "$(C8n(B") ("$(C$1$F(B" "$(C8o(B") ("$(C$1$G(B" "$(C8p(B") ("$(C$1$G$!(B" "$(C8q(B") ("$(C$1$G$!$5(B" "$(C8r(B") ("$(C$1$G$$(B" "$(C8s(B") ("$(C$1$G$)(B" "$(C8t(B") ("$(C$1$G$)$1(B" "$(C8u(B") ("$(C$1$G$1(B" "$(C8v(B") ("$(C$1$G$2(B" "$(C8w(B") ("$(C$1$G$5(B" "$(C8x(B") ("$(C$1$G$7(B" "$(C8y(B") ("$(C$1$G$?(B" "$(C8z(B") ("$(C$1$G$?$$(B" "$(C8{(B") ("$(C$1$G$?$6(B" "$(C8|(B") ("$(C$1$G$?$7(B" "$(C8}(B") ("$(C$1$G$S(B" "$(C8~(B") ("$(C$1$G$S$$(B" "$(C9!(B") ("$(C$1$G$S$)(B" "$(C9"(B") ("$(C$1$G$S$2(B" "$(C9#(B") ("$(C$1$G$S$5(B" "$(C9$(B") ("$(C$1$G$S$7(B" "$(C9%(B") ("$(C$1$K(B" "$(C9&(B") ("$(C$1$K$$(B" "$(C9'(B") ("$(C$1$K$)(B" "$(C9((B") ("$(C$1$K$2(B" "$(C9)(B") ("$(C$1$K$5(B" "$(C9*(B") ("$(C$1$L(B" "$(C9+(B") ("$(C$1$L$!(B" "$(C9,(B") ("$(C$1$L$"(B" "$(C9-(B") ("$(C$1$L$$(B" "$(C9.(B") ("$(C$1$L$'(B" "$(C9/(B") ("$(C$1$L$)(B" "$(C90(B") ("$(C$1$L$)$!(B" "$(C91(B") ("$(C$1$L$)$1(B" "$(C92(B") ("$(C$1$L$1(B" "$(C93(B") ("$(C$1$L$2(B" "$(C94(B") ("$(C$1$L$5(B" "$(C95(B") ("$(C$1$L$7(B" "$(C96(B") ("$(C$1$L$<(B" "$(C97(B") ("$(C$1$L$>(B" "$(C98(B") ("$(C$1$L$C(B" "$(C99(B") ("$(C$1$L$C$$(B" "$(C9:(B") ("$(C$1$L$C$)(B" "$(C9;(B") ("$(C$1$L$C$2(B" "$(C9<(B") ("$(C$1$L$C$5(B" "$(C9=(B") ("$(C$1$L$D(B" "$(C9>(B") ("$(C$1$L$S(B" "$(C9?(B") ("$(C$1$L$S$$(B" "$(C9@(B") ("$(C$1$L$S$)(B" "$(C9A(B") ("$(C$1$P(B" "$(C9B(B") ("$(C$1$P$$(B" "$(C9C(B") ("$(C$1$P$)(B" "$(C9D(B") ("$(C$1$P$1(B" "$(C9E(B") ("$(C$1$P$5(B" "$(C9F(B") ("$(C$1$Q(B" "$(C9G(B") ("$(C$1$Q$$(B" "$(C9H(B") ("$(C$1$Q$)(B" "$(C9I(B") ("$(C$1$Q$1(B" "$(C9J(B") ("$(C$1$Q$5(B" "$(C9K(B") ("$(C$1$S(B" "$(C9L(B") ("$(C$1$S$!(B" "$(C9M(B") ("$(C$1$S$$(B" "$(C9N(B") ("$(C$1$S$'(B" "$(C9O(B") ("$(C$1$S$)(B" "$(C9P(B") ("$(C$1$S$)$1(B" "$(C9Q(B") ("$(C$1$S$1(B" "$(C9R(B") ("$(C$1$S$2(B" "$(C9S(B") ("$(C$1$S$5(B" "$(C9T(B") ("$(C$1$S$6(B" "$(C9U(B") ("$(C$1$S$7(B" "$(C9V(B") ("$(C$1$S$:(B" "$(C9W(B") ("$(C$1$S$<(B" "$(C9X(B") ("$(C$2$?(B" "$(C9Y(B") ("$(C$2$?$!(B" "$(C9Z(B") ("$(C$2$?$!$5(B" "$(C9\(B") ("$(C$2$?$"(B" "$(C9[(B") ("$(C$2$?$$(B" "$(C9](B") ("$(C$2$?$'(B" "$(C9^(B") ("$(C$2$?$)(B" "$(C9_(B") ("$(C$2$?$)$!(B" "$(C9`(B") ("$(C$2$?$)$1(B" "$(C9a(B") ("$(C$2$?$)$2(B" "$(C9b(B") ("$(C$2$?$1(B" "$(C9c(B") ("$(C$2$?$2(B" "$(C9d(B") ("$(C$2$?$5(B" "$(C9e(B") ("$(C$2$?$7(B" "$(C9f(B") ("$(C$2$?$<(B" "$(C9g(B") ("$(C$2$@(B" "$(C9h(B") ("$(C$2$@$!(B" "$(C9i(B") ("$(C$2$@$$(B" "$(C9j(B") ("$(C$2$@$)(B" "$(C9k(B") ("$(C$2$@$1(B" "$(C9l(B") ("$(C$2$@$2(B" "$(C9m(B") ("$(C$2$@$5(B" "$(C9n(B") ("$(C$2$@$6(B" "$(C9o(B") ("$(C$2$@$7(B" "$(C9p(B") ("$(C$2$@$<(B" "$(C9q(B") ("$(C$2$A(B" "$(C9r(B") ("$(C$2$A$!(B" "$(C9s(B") ("$(C$2$A$$(B" "$(C9t(B") ("$(C$2$A$2(B" "$(C9u(B") ("$(C$2$C(B" "$(C9v(B") ("$(C$2$C$!(B" "$(C9w(B") ("$(C$2$C$$(B" "$(C9x(B") ("$(C$2$C$'(B" "$(C9y(B") ("$(C$2$C$)(B" "$(C9z(B") ("$(C$2$C$)$1(B" "$(C9{(B") ("$(C$2$C$1(B" "$(C9|(B") ("$(C$2$C$2(B" "$(C9}(B") ("$(C$2$C$5(B" "$(C9~(B") ("$(C$2$C$7(B" "$(C:!(B") ("$(C$2$C$8(B" "$(C:"(B") ("$(C$2$D(B" "$(C:#(B") ("$(C$2$D$!(B" "$(C:$(B") ("$(C$2$D$$(B" "$(C:%(B") ("$(C$2$D$'(B" "$(C:&(B") ("$(C$2$D$)(B" "$(C:'(B") ("$(C$2$D$1(B" "$(C:((B") ("$(C$2$D$2(B" "$(C:)(B") ("$(C$2$D$5(B" "$(C:*(B") ("$(C$2$D$6(B" "$(C:+(B") ("$(C$2$D$7(B" "$(C:,(B") ("$(C$2$E(B" "$(C:-(B") ("$(C$2$E$!(B" "$(C:.(B") ("$(C$2$E$$(B" "$(C:/(B") ("$(C$2$E$)(B" "$(C:0(B") ("$(C$2$E$2(B" "$(C:1(B") ("$(C$2$E$5(B" "$(C:2(B") ("$(C$2$E$6(B" "$(C:3(B") ("$(C$2$E$7(B" "$(C:4(B") ("$(C$2$E$<(B" "$(C:5(B") ("$(C$2$F(B" "$(C:6(B") ("$(C$2$F$$(B" "$(C:7(B") ("$(C$2$G(B" "$(C:8(B") ("$(C$2$G$!(B" "$(C:9(B") ("$(C$2$G$"(B" "$(C::(B") ("$(C$2$G$$(B" "$(C:;(B") ("$(C$2$G$)(B" "$(C:<(B") ("$(C$2$G$1(B" "$(C:=(B") ("$(C$2$G$2(B" "$(C:>(B") ("$(C$2$G$5(B" "$(C:?(B") ("$(C$2$G$7(B" "$(C:@(B") ("$(C$2$G$?(B" "$(C:A(B") ("$(C$2$G$?$$(B" "$(C:B(B") ("$(C$2$G$?$6(B" "$(C:C(B") ("$(C$2$G$@(B" "$(C:D(B") ("$(C$2$G$@$6(B" "$(C:E(B") ("$(C$2$G$S(B" "$(C:F(B") ("$(C$2$G$S$!(B" "$(C:G(B") ("$(C$2$G$S$$(B" "$(C:H(B") ("$(C$2$G$S$)(B" "$(C:I(B") ("$(C$2$G$S$1(B" "$(C:J(B") ("$(C$2$G$S$2(B" "$(C:K(B") ("$(C$2$K(B" "$(C:L(B") ("$(C$2$K$$(B" "$(C:M(B") ("$(C$2$L(B" "$(C:N(B") ("$(C$2$L$!(B" "$(C:O(B") ("$(C$2$L$$(B" "$(C:P(B") ("$(C$2$L$'(B" "$(C:Q(B") ("$(C$2$L$)(B" "$(C:R(B") ("$(C$2$L$)$!(B" "$(C:S(B") ("$(C$2$L$)$1(B" "$(C:T(B") ("$(C$2$L$1(B" "$(C:U(B") ("$(C$2$L$2(B" "$(C:V(B") ("$(C$2$L$5(B" "$(C:W(B") ("$(C$2$L$7(B" "$(C:X(B") ("$(C$2$L$<(B" "$(C:Y(B") ("$(C$2$L$=(B" "$(C:Z(B") ("$(C$2$L$C(B" "$(C:[(B") ("$(C$2$L$C$)(B" "$(C:\(B") ("$(C$2$L$C$6(B" "$(C:](B") ("$(C$2$L$D(B" "$(C:^(B") ("$(C$2$L$S(B" "$(C:_(B") ("$(C$2$L$S$!(B" "$(C:`(B") ("$(C$2$L$S$$(B" "$(C:a(B") ("$(C$2$L$S$)(B" "$(C:b(B") ("$(C$2$L$S$7(B" "$(C:c(B") ("$(C$2$P(B" "$(C:d(B") ("$(C$2$P$$(B" "$(C:e(B") ("$(C$2$P$)(B" "$(C:f(B") ("$(C$2$P$1(B" "$(C:g(B") ("$(C$2$P$5(B" "$(C:h(B") ("$(C$2$P$7(B" "$(C:i(B") ("$(C$2$Q(B" "$(C:j(B") ("$(C$2$Q$!(B" "$(C:k(B") ("$(C$2$Q$$(B" "$(C:l(B") ("$(C$2$Q$)(B" "$(C:m(B") ("$(C$2$Q$1(B" "$(C:n(B") ("$(C$2$Q$2(B" "$(C:o(B") ("$(C$2$Q$5(B" "$(C:p(B") ("$(C$2$S(B" "$(C:q(B") ("$(C$2$S$!(B" "$(C:r(B") ("$(C$2$S$$(B" "$(C:s(B") ("$(C$2$S$)(B" "$(C:t(B") ("$(C$2$S$)$1(B" "$(C:u(B") ("$(C$2$S$1(B" "$(C:v(B") ("$(C$2$S$2(B" "$(C:w(B") ("$(C$2$S$5(B" "$(C:x(B") ("$(C$2$S$7(B" "$(C:y(B") ("$(C$2$S$8(B" "$(C:z(B") ("$(C$2$S$:(B" "$(C:{(B") ("$(C$3$?(B" "$(C:|(B") ("$(C$3$?$!(B" "$(C:}(B") ("$(C$3$?$$(B" "$(C:~(B") ("$(C$3$?$)(B" "$(C;!(B") ("$(C$3$?$)$1(B" "$(C;"(B") ("$(C$3$?$1(B" "$(C;#(B") ("$(C$3$?$2(B" "$(C;$(B") ("$(C$3$?$5(B" "$(C;%(B") ("$(C$3$?$6(B" "$(C;&(B") ("$(C$3$?$7(B" "$(C;'(B") ("$(C$3$?$>(B" "$(C;((B") ("$(C$3$@(B" "$(C;)(B") ("$(C$3$@$!(B" "$(C;*(B") ("$(C$3$@$$(B" "$(C;+(B") ("$(C$3$@$)(B" "$(C;,(B") ("$(C$3$@$1(B" "$(C;-(B") ("$(C$3$@$2(B" "$(C;.(B") ("$(C$3$@$5(B" "$(C;/(B") ("$(C$3$@$6(B" "$(C;0(B") ("$(C$3$@$7(B" "$(C;1(B") ("$(C$3$A(B" "$(C;2(B") ("$(C$3$A$!(B" "$(C;3(B") ("$(C$3$A$1(B" "$(C;4(B") ("$(C$3$C(B" "$(C;5(B") ("$(C$3$C$!(B" "$(C;6(B") ("$(C$3$C$$(B" "$(C;7(B") ("$(C$3$C$'(B" "$(C;8(B") ("$(C$3$C$)(B" "$(C;9(B") ("$(C$3$C$1(B" "$(C;:(B") ("$(C$3$C$5(B" "$(C;;(B") ("$(C$3$C$6(B" "$(C;<(B") ("$(C$3$C$7(B" "$(C;=(B") ("$(C$3$D(B" "$(C;>(B") ("$(C$3$D$7(B" "$(C;?(B") ("$(C$3$E(B" "$(C;@(B") ("$(C$3$E$!(B" "$(C;A(B") ("$(C$3$E$1(B" "$(C;B(B") ("$(C$3$E$2(B" "$(C;C(B") ("$(C$3$E$5(B" "$(C;D(B") ("$(C$3$E$6(B" "$(C;E(B") ("$(C$3$E$7(B" "$(C;F(B") ("$(C$3$G(B" "$(C;G(B") ("$(C$3$G$!(B" "$(C;H(B") ("$(C$3$G$$(B" "$(C;I(B") ("$(C$3$G$)(B" "$(C;J(B") ("$(C$3$G$1(B" "$(C;K(B") ("$(C$3$G$2(B" "$(C;L(B") ("$(C$3$G$7(B" "$(C;M(B") ("$(C$3$G$S(B" "$(C;N(B") ("$(C$3$K(B" "$(C;O(B") ("$(C$3$K$7(B" "$(C;P(B") ("$(C$3$L(B" "$(C;Q(B") ("$(C$3$L$!(B" "$(C;R(B") ("$(C$3$L$$(B" "$(C;S(B") ("$(C$3$L$)(B" "$(C;T(B") ("$(C$3$L$1(B" "$(C;U(B") ("$(C$3$L$5(B" "$(C;V(B") ("$(C$3$L$7(B" "$(C;W(B") ("$(C$3$P(B" "$(C;X(B") ("$(C$3$P$7(B" "$(C;Y(B") ("$(C$3$Q(B" "$(C;Z(B") ("$(C$3$Q$$(B" "$(C;[(B") ("$(C$3$Q$)(B" "$(C;\(B") ("$(C$3$Q$1(B" "$(C;](B") ("$(C$3$Q$2(B" "$(C;^(B") ("$(C$3$S(B" "$(C;_(B") ("$(C$3$S$!(B" "$(C;`(B") ("$(C$3$S$$(B" "$(C;a(B") ("$(C$3$S$)(B" "$(C;b(B") ("$(C$3$S$1(B" "$(C;c(B") ("$(C$3$S$2(B" "$(C;d(B") ("$(C$3$S$5(B" "$(C;e(B") ("$(C$3$S$7(B" "$(C;f(B") ("$(C$5$?(B" "$(C;g(B") ("$(C$5$?$!(B" "$(C;h(B") ("$(C$5$?$!$5(B" "$(C;i(B") ("$(C$5$?$$(B" "$(C;j(B") ("$(C$5$?$'(B" "$(C;k(B") ("$(C$5$?$)(B" "$(C;l(B") ("$(C$5$?$)$!(B" "$(C;m(B") ("$(C$5$?$)$1(B" "$(C;n(B") ("$(C$5$?$1(B" "$(C;o(B") ("$(C$5$?$2(B" "$(C;p(B") ("$(C$5$?$5(B" "$(C;q(B") ("$(C$5$?$5$6(B" "$(C;r(B") ("$(C$5$?$7(B" "$(C;s(B") ("$(C$5$?$<(B" "$(C;t(B") ("$(C$5$@(B" "$(C;u(B") ("$(C$5$@$!(B" "$(C;v(B") ("$(C$5$@$$(B" "$(C;w(B") ("$(C$5$@$)(B" "$(C;x(B") ("$(C$5$@$1(B" "$(C;y(B") ("$(C$5$@$2(B" "$(C;z(B") ("$(C$5$@$5(B" "$(C;{(B") ("$(C$5$@$6(B" "$(C;|(B") ("$(C$5$@$7(B" "$(C;}(B") ("$(C$5$A(B" "$(C;~(B") ("$(C$5$A$!(B" "$(C(B") ("$(C$5$D$)(B" "$(C(B") ("$(C$5$Q$1(B" "$(C=?(B") ("$(C$5$Q$2(B" "$(C=@(B") ("$(C$5$Q$5(B" "$(C=A(B") ("$(C$5$Q$7(B" "$(C=B(B") ("$(C$5$S(B" "$(C=C(B") ("$(C$5$S$!(B" "$(C=D(B") ("$(C$5$S$$(B" "$(C=E(B") ("$(C$5$S$'(B" "$(C=F(B") ("$(C$5$S$)(B" "$(C=G(B") ("$(C$5$S$)$>(B" "$(C=H(B") ("$(C$5$S$1(B" "$(C=I(B") ("$(C$5$S$2(B" "$(C=J(B") ("$(C$5$S$5(B" "$(C=K(B") ("$(C$5$S$7(B" "$(C=L(B") ("$(C$5$S$=(B" "$(C=M(B") ("$(C$6$?(B" "$(C=N(B") ("$(C$6$?$!(B" "$(C=O(B") ("$(C$6$?$!$5(B" "$(C=P(B") ("$(C$6$?$$(B" "$(C=Q(B") ("$(C$6$?$)(B" "$(C=R(B") ("$(C$6$?$1(B" "$(C=S(B") ("$(C$6$?$2(B" "$(C=T(B") ("$(C$6$?$6(B" "$(C=U(B") ("$(C$6$?$7(B" "$(C=V(B") ("$(C$6$?$>(B" "$(C=W(B") ("$(C$6$@(B" "$(C=X(B") ("$(C$6$@$!(B" "$(C=Y(B") ("$(C$6$@$$(B" "$(C=Z(B") ("$(C$6$@$)(B" "$(C=[(B") ("$(C$6$@$1(B" "$(C=\(B") ("$(C$6$@$2(B" "$(C=](B") ("$(C$6$@$6(B" "$(C=^(B") ("$(C$6$@$7(B" "$(C=_(B") ("$(C$6$A$7(B" "$(C=`(B") ("$(C$6$C(B" "$(C=a(B") ("$(C$6$C$!(B" "$(C=b(B") ("$(C$6$C$$(B" "$(C=c(B") ("$(C$6$C$)(B" "$(C=d(B") ("$(C$6$C$)$2(B" "$(C=e(B") ("$(C$6$C$1(B" "$(C=f(B") ("$(C$6$C$2(B" "$(C=g(B") ("$(C$6$C$6(B" "$(C=h(B") ("$(C$6$C$7(B" "$(C=i(B") ("$(C$6$D(B" "$(C=j(B") ("$(C$6$D$$(B" "$(C=k(B") ("$(C$6$D$)(B" "$(C=l(B") ("$(C$6$F$$(B" "$(C=m(B") ("$(C$6$G(B" "$(C=n(B") ("$(C$6$G$!(B" "$(C=o(B") ("$(C$6$G$$(B" "$(C=p(B") ("$(C$6$G$'(B" "$(C=q(B") ("$(C$6$G$)(B" "$(C=r(B") ("$(C$6$G$)$1(B" "$(C=s(B") ("$(C$6$G$1(B" "$(C=t(B") ("$(C$6$G$2(B" "$(C=u(B") ("$(C$6$G$7(B" "$(C=v(B") ("$(C$6$G$?(B" "$(C=w(B") ("$(C$6$G$?$!(B" "$(C=x(B") ("$(C$6$G$?$$(B" "$(C=y(B") ("$(C$6$G$?$6(B" "$(C=z(B") ("$(C$6$G$@(B" "$(C={(B") ("$(C$6$G$@$6(B" "$(C=|(B") ("$(C$6$G$S(B" "$(C=}(B") ("$(C$6$G$S$$(B" "$(C=~(B") ("$(C$6$G$S$)(B" "$(C>!(B") ("$(C$6$G$S$1(B" "$(C>"(B") ("$(C$6$G$S$2(B" "$(C>#(B") ("$(C$6$K(B" "$(C>$(B") ("$(C$6$L(B" "$(C>%(B") ("$(C$6$L$!(B" "$(C>&(B") ("$(C$6$L$$(B" "$(C>'(B") ("$(C$6$L$)(B" "$(C>((B") ("$(C$6$L$1(B" "$(C>)(B") ("$(C$6$L$2(B" "$(C>*(B") ("$(C$6$L$7(B" "$(C>+(B") ("$(C$6$L$C(B" "$(C>,(B") ("$(C$6$L$C$6(B" "$(C>-(B") ("$(C$6$L$D(B" "$(C>.(B") ("$(C$6$L$S(B" "$(C>/(B") ("$(C$6$L$S$$(B" "$(C>0(B") ("$(C$6$P$7(B" "$(C>1(B") ("$(C$6$Q(B" "$(C>2(B") ("$(C$6$Q$!(B" "$(C>3(B") ("$(C$6$Q$$(B" "$(C>4(B") ("$(C$6$Q$)(B" "$(C>5(B") ("$(C$6$Q$)$1(B" "$(C>6(B") ("$(C$6$Q$)$>(B" "$(C>7(B") ("$(C$6$Q$1(B" "$(C>8(B") ("$(C$6$Q$2(B" "$(C>9(B") ("$(C$6$Q$S(B" "$(C>:(B") ("$(C$6$Q$S$$(B" "$(C>;(B") ("$(C$6$Q$S$)(B" "$(C><(B") ("$(C$6$Q$S$1(B" "$(C>=(B") ("$(C$6$S(B" "$(C>>(B") ("$(C$6$S$!(B" "$(C>?(B") ("$(C$6$S$$(B" "$(C>@(B") ("$(C$6$S$)(B" "$(C>A(B") ("$(C$6$S$1(B" "$(C>B(B") ("$(C$6$S$2(B" "$(C>C(B") ("$(C$6$S$5(B" "$(C>D(B") ("$(C$6$S$7(B" "$(C>E(B") ("$(C$7$?(B" "$(C>F(B") ("$(C$7$?$!(B" "$(C>G(B") ("$(C$7$?$$(B" "$(C>H(B") ("$(C$7$?$$$8(B" "$(C>I(B") ("$(C$7$?$$$>(B" "$(C>J(B") ("$(C$7$?$)(B" "$(C>K(B") ("$(C$7$?$)$!(B" "$(C>L(B") ("$(C$7$?$)$1(B" "$(C>M(B") ("$(C$7$?$)$>(B" "$(C>N(B") ("$(C$7$?$1(B" "$(C>O(B") ("$(C$7$?$2(B" "$(C>P(B") ("$(C$7$?$5(B" "$(C>Q(B") ("$(C$7$?$6(B" "$(C>R(B") ("$(C$7$?$7(B" "$(C>S(B") ("$(C$7$?$<(B" "$(C>T(B") ("$(C$7$?$=(B" "$(C>U(B") ("$(C$7$@(B" "$(C>V(B") ("$(C$7$@$!(B" "$(C>W(B") ("$(C$7$@$$(B" "$(C>X(B") ("$(C$7$@$)(B" "$(C>Y(B") ("$(C$7$@$1(B" "$(C>Z(B") ("$(C$7$@$2(B" "$(C>[(B") ("$(C$7$@$5(B" "$(C>\(B") ("$(C$7$@$6(B" "$(C>](B") ("$(C$7$@$7(B" "$(C>^(B") ("$(C$7$A(B" "$(C>_(B") ("$(C$7$A$!(B" "$(C>`(B") ("$(C$7$A$$(B" "$(C>a(B") ("$(C$7$A$)(B" "$(C>b(B") ("$(C$7$A$)$2(B" "$(C>c(B") ("$(C$7$A$1(B" "$(C>d(B") ("$(C$7$A$2(B" "$(C>e(B") ("$(C$7$A$5(B" "$(C>f(B") ("$(C$7$A$7(B" "$(C>g(B") ("$(C$7$A$<(B" "$(C>h(B") ("$(C$7$A$>(B" "$(C>i(B") ("$(C$7$B(B" "$(C>j(B") ("$(C$7$B$$(B" "$(C>k(B") ("$(C$7$B$)(B" "$(C>l(B") ("$(C$7$B$2(B" "$(C>m(B") ("$(C$7$C(B" "$(C>n(B") ("$(C$7$C$!(B" "$(C>o(B") ("$(C$7$C$$(B" "$(C>p(B") ("$(C$7$C$$$8(B" "$(C>q(B") ("$(C$7$C$'(B" "$(C>r(B") ("$(C$7$C$)(B" "$(C>s(B") ("$(C$7$C$)$!(B" "$(C>t(B") ("$(C$7$C$)$1(B" "$(C>u(B") ("$(C$7$C$1(B" "$(C>v(B") ("$(C$7$C$2(B" "$(C>w(B") ("$(C$7$C$2$5(B" "$(C>x(B") ("$(C$7$C$5(B" "$(C>y(B") ("$(C$7$C$6(B" "$(C>z(B") ("$(C$7$C$7(B" "$(C>{(B") ("$(C$7$C$8(B" "$(C>|(B") ("$(C$7$C$;(B" "$(C>}(B") ("$(C$7$C$=(B" "$(C>~(B") ("$(C$7$D(B" "$(C?!(B") ("$(C$7$D$!(B" "$(C?"(B") ("$(C$7$D$$(B" "$(C?#(B") ("$(C$7$D$)(B" "$(C?$(B") ("$(C$7$D$1(B" "$(C?%(B") ("$(C$7$D$2(B" "$(C?&(B") ("$(C$7$D$5(B" "$(C?'(B") ("$(C$7$D$7(B" "$(C?((B") ("$(C$7$E(B" "$(C?)(B") ("$(C$7$E$!(B" "$(C?*(B") ("$(C$7$E$"(B" "$(C?+(B") ("$(C$7$E$$(B" "$(C?,(B") ("$(C$7$E$)(B" "$(C?-(B") ("$(C$7$E$)$1(B" "$(C?.(B") ("$(C$7$E$)$2(B" "$(C?/(B") ("$(C$7$E$1(B" "$(C?0(B") ("$(C$7$E$2(B" "$(C?1(B") ("$(C$7$E$2$5(B" "$(C?2(B") ("$(C$7$E$5(B" "$(C?3(B") ("$(C$7$E$6(B" "$(C?4(B") ("$(C$7$E$7(B" "$(C?5(B") ("$(C$7$E$<(B" "$(C?6(B") ("$(C$7$E$=(B" "$(C?7(B") ("$(C$7$E$>(B" "$(C?8(B") ("$(C$7$F(B" "$(C?9(B") ("$(C$7$F$$(B" "$(C?:(B") ("$(C$7$F$)(B" "$(C?;(B") ("$(C$7$F$1(B" "$(C?<(B") ("$(C$7$F$2(B" "$(C?=(B") ("$(C$7$F$5(B" "$(C?>(B") ("$(C$7$F$6(B" "$(C??(B") ("$(C$7$G(B" "$(C?@(B") ("$(C$7$G$!(B" "$(C?A(B") ("$(C$7$G$$(B" "$(C?B(B") ("$(C$7$G$)(B" "$(C?C(B") ("$(C$7$G$)$!(B" "$(C?D(B") ("$(C$7$G$)$1(B" "$(C?E(B") ("$(C$7$G$)$5(B" "$(C?F(B") ("$(C$7$G$)$>(B" "$(C?G(B") ("$(C$7$G$1(B" "$(C?H(B") ("$(C$7$G$2(B" "$(C?I(B") ("$(C$7$G$5(B" "$(C?J(B") ("$(C$7$G$7(B" "$(C?K(B") ("$(C$7$G$:(B" "$(C?L(B") ("$(C$7$G$?(B" "$(C?M(B") ("$(C$7$G$?$!(B" "$(C?N(B") ("$(C$7$G$?$$(B" "$(C?O(B") ("$(C$7$G$?$)(B" "$(C?P(B") ("$(C$7$G$?$1(B" "$(C?Q(B") ("$(C$7$G$?$2(B" "$(C?R(B") ("$(C$7$G$?$5(B" "$(C?S(B") ("$(C$7$G$?$6(B" "$(C?T(B") ("$(C$7$G$?$7(B" "$(C?U(B") ("$(C$7$G$@(B" "$(C?V(B") ("$(C$7$G$@$!(B" "$(C?W(B") ("$(C$7$G$@$$(B" "$(C?X(B") ("$(C$7$G$@$1(B" "$(C?Y(B") ("$(C$7$G$@$5(B" "$(C?Z(B") ("$(C$7$G$@$7(B" "$(C?[(B") ("$(C$7$G$S(B" "$(C?\(B") ("$(C$7$G$S$!(B" "$(C?](B") ("$(C$7$G$S$$(B" "$(C?^(B") ("$(C$7$G$S$)(B" "$(C?_(B") ("$(C$7$G$S$1(B" "$(C?`(B") ("$(C$7$G$S$2(B" "$(C?a(B") ("$(C$7$G$S$5(B" "$(C?b(B") ("$(C$7$G$S$7(B" "$(C?c(B") ("$(C$7$K(B" "$(C?d(B") ("$(C$7$K$!(B" "$(C?e(B") ("$(C$7$K$$(B" "$(C?f(B") ("$(C$7$K$)(B" "$(C?g(B") ("$(C$7$K$1(B" "$(C?h(B") ("$(C$7$K$2(B" "$(C?i(B") ("$(C$7$K$5(B" "$(C?j(B") ("$(C$7$K$7(B" "$(C?k(B") ("$(C$7$L(B" "$(C?l(B") ("$(C$7$L$!(B" "$(C?m(B") ("$(C$7$L$$(B" "$(C?n(B") ("$(C$7$L$)(B" "$(C?o(B") ("$(C$7$L$)$!(B" "$(C?p(B") ("$(C$7$L$)$1(B" "$(C?q(B") ("$(C$7$L$1(B" "$(C?r(B") ("$(C$7$L$2(B" "$(C?s(B") ("$(C$7$L$5(B" "$(C?t(B") ("$(C$7$L$7(B" "$(C?u(B") ("$(C$7$L$C(B" "$(C?v(B") ("$(C$7$L$C$!(B" "$(C?w(B") ("$(C$7$L$C$$(B" "$(C?x(B") ("$(C$7$L$C$)(B" "$(C?y(B") ("$(C$7$L$C$1(B" "$(C?z(B") ("$(C$7$L$C$2(B" "$(C?{(B") ("$(C$7$L$C$6(B" "$(C?|(B") ("$(C$7$L$C$7(B" "$(C?}(B") ("$(C$7$L$D(B" "$(C?~(B") ("$(C$7$L$D$!(B" "$(C@!(B") ("$(C$7$L$D$$(B" "$(C@"(B") ("$(C$7$L$D$)(B" "$(C@#(B") ("$(C$7$L$D$1(B" "$(C@$(B") ("$(C$7$L$D$2(B" "$(C@%(B") ("$(C$7$L$D$7(B" "$(C@&(B") ("$(C$7$L$S(B" "$(C@'(B") ("$(C$7$L$S$!(B" "$(C@((B") ("$(C$7$L$S$$(B" "$(C@)(B") ("$(C$7$L$S$)(B" "$(C@*(B") ("$(C$7$L$S$1(B" "$(C@+(B") ("$(C$7$L$S$2(B" "$(C@,(B") ("$(C$7$L$S$5(B" "$(C@-(B") ("$(C$7$L$S$7(B" "$(C@.(B") ("$(C$7$P(B" "$(C@/(B") ("$(C$7$P$!(B" "$(C@0(B") ("$(C$7$P$$(B" "$(C@1(B") ("$(C$7$P$)(B" "$(C@2(B") ("$(C$7$P$1(B" "$(C@3(B") ("$(C$7$P$2(B" "$(C@4(B") ("$(C$7$P$5(B" "$(C@5(B") ("$(C$7$P$7(B" "$(C@6(B") ("$(C$7$P$:(B" "$(C@7(B") ("$(C$7$Q(B" "$(C@8(B") ("$(C$7$Q$!(B" "$(C@9(B") ("$(C$7$Q$$(B" "$(C@:(B") ("$(C$7$Q$)(B" "$(C@;(B") ("$(C$7$Q$)$=(B" "$(C@<(B") ("$(C$7$Q$1(B" "$(C@=(B") ("$(C$7$Q$2(B" "$(C@>(B") ("$(C$7$Q$5(B" "$(C@?(B") ("$(C$7$Q$7(B" "$(C@@(B") ("$(C$7$Q$8(B" "$(C@A(B") ("$(C$7$Q$:(B" "$(C@B(B") ("$(C$7$Q$;(B" "$(C@C(B") ("$(C$7$Q$<(B" "$(C@D(B") ("$(C$7$Q$=(B" "$(C@E(B") ("$(C$7$Q$>(B" "$(C@F(B") ("$(C$7$Q$S(B" "$(C@G(B") ("$(C$7$Q$S$$(B" "$(C@H(B") ("$(C$7$Q$S$)(B" "$(C@I(B") ("$(C$7$Q$S$1(B" "$(C@J(B") ("$(C$7$Q$S$5(B" "$(C@K(B") ("$(C$7$S(B" "$(C@L(B") ("$(C$7$S$!(B" "$(C@M(B") ("$(C$7$S$$(B" "$(C@N(B") ("$(C$7$S$)(B" "$(C@O(B") ("$(C$7$S$)$!(B" "$(C@P(B") ("$(C$7$S$)$1(B" "$(C@Q(B") ("$(C$7$S$)$>(B" "$(C@R(B") ("$(C$7$S$1(B" "$(C@S(B") ("$(C$7$S$2(B" "$(C@T(B") ("$(C$7$S$5(B" "$(C@U(B") ("$(C$7$S$6(B" "$(C@V(B") ("$(C$7$S$7(B" "$(C@W(B") ("$(C$7$S$8(B" "$(C@X(B") ("$(C$7$S$=(B" "$(C@Y(B") ("$(C$8$?(B" "$(C@Z(B") ("$(C$8$?$!(B" "$(C@[(B") ("$(C$8$?$$(B" "$(C@\(B") ("$(C$8$?$$$>(B" "$(C@](B") ("$(C$8$?$'(B" "$(C@^(B") ("$(C$8$?$)(B" "$(C@_(B") ("$(C$8$?$)$1(B" "$(C@`(B") ("$(C$8$?$1(B" "$(C@a(B") ("$(C$8$?$2(B" "$(C@b(B") ("$(C$8$?$5(B" "$(C@c(B") ("$(C$8$?$6(B" "$(C@d(B") ("$(C$8$?$7(B" "$(C@e(B") ("$(C$8$?$8(B" "$(C@f(B") ("$(C$8$@(B" "$(C@g(B") ("$(C$8$@$!(B" "$(C@h(B") ("$(C$8$@$$(B" "$(C@i(B") ("$(C$8$@$)(B" "$(C@j(B") ("$(C$8$@$1(B" "$(C@k(B") ("$(C$8$@$2(B" "$(C@l(B") ("$(C$8$@$5(B" "$(C@m(B") ("$(C$8$@$6(B" "$(C@n(B") ("$(C$8$@$7(B" "$(C@o(B") ("$(C$8$A(B" "$(C@p(B") ("$(C$8$A$!(B" "$(C@q(B") ("$(C$8$A$$(B" "$(C@r(B") ("$(C$8$A$$$>(B" "$(C@s(B") ("$(C$8$A$)(B" "$(C@t(B") ("$(C$8$A$1(B" "$(C@u(B") ("$(C$8$A$7(B" "$(C@v(B") ("$(C$8$B(B" "$(C@w(B") ("$(C$8$B$$(B" "$(C@x(B") ("$(C$8$B$)(B" "$(C@y(B") ("$(C$8$C(B" "$(C@z(B") ("$(C$8$C$!(B" "$(C@{(B") ("$(C$8$C$$(B" "$(C@|(B") ("$(C$8$C$)(B" "$(C@}(B") ("$(C$8$C$)$1(B" "$(C@~(B") ("$(C$8$C$1(B" "$(CA!(B") ("$(C$8$C$2(B" "$(CA"(B") ("$(C$8$C$5(B" "$(CA#(B") ("$(C$8$C$7(B" "$(CA$(B") ("$(C$8$C$8(B" "$(CA%(B") ("$(C$8$D(B" "$(CA&(B") ("$(C$8$D$!(B" "$(CA'(B") ("$(C$8$D$$(B" "$(CA((B") ("$(C$8$D$)(B" "$(CA)(B") ("$(C$8$D$1(B" "$(CA*(B") ("$(C$8$D$2(B" "$(CA+(B") ("$(C$8$D$5(B" "$(CA,(B") ("$(C$8$D$7(B" "$(CA-(B") ("$(C$8$E(B" "$(CA.(B") ("$(C$8$E$$(B" "$(CA/(B") ("$(C$8$E$)(B" "$(CA0(B") ("$(C$8$E$1(B" "$(CA1(B") ("$(C$8$E$2(B" "$(CA2(B") ("$(C$8$E$6(B" "$(CA3(B") ("$(C$8$E$7(B" "$(CA4(B") ("$(C$8$F(B" "$(CA5(B") ("$(C$8$G(B" "$(CA6(B") ("$(C$8$G$!(B" "$(CA7(B") ("$(C$8$G$$(B" "$(CA8(B") ("$(C$8$G$)(B" "$(CA9(B") ("$(C$8$G$)$1(B" "$(CA:(B") ("$(C$8$G$1(B" "$(CA;(B") ("$(C$8$G$2(B" "$(CA<(B") ("$(C$8$G$5(B" "$(CA=(B") ("$(C$8$G$7(B" "$(CA>(B") ("$(C$8$G$8(B" "$(CA?(B") ("$(C$8$G$:(B" "$(CA@(B") ("$(C$8$G$>(B" "$(CAA(B") ("$(C$8$G$?(B" "$(CAB(B") ("$(C$8$G$?$!(B" "$(CAC(B") ("$(C$8$G$?$)(B" "$(CAD(B") ("$(C$8$G$?$2(B" "$(CAE(B") ("$(C$8$G$?$5(B" "$(CAF(B") ("$(C$8$G$?$7(B" "$(CAG(B") ("$(C$8$G$@(B" "$(CAH(B") ("$(C$8$G$@$6(B" "$(CAI(B") ("$(C$8$G$@$7(B" "$(CAJ(B") ("$(C$8$G$S(B" "$(CAK(B") ("$(C$8$G$S$$(B" "$(CAL(B") ("$(C$8$G$S$)(B" "$(CAM(B") ("$(C$8$G$S$1(B" "$(CAN(B") ("$(C$8$G$S$2(B" "$(CAO(B") ("$(C$8$G$S$5(B" "$(CAP(B") ("$(C$8$G$S$7(B" "$(CAQ(B") ("$(C$8$K(B" "$(CAR(B") ("$(C$8$K$!(B" "$(CAS(B") ("$(C$8$K$$(B" "$(CAT(B") ("$(C$8$K$7(B" "$(CAU(B") ("$(C$8$L(B" "$(CAV(B") ("$(C$8$L$!(B" "$(CAW(B") ("$(C$8$L$$(B" "$(CAX(B") ("$(C$8$L$)(B" "$(CAY(B") ("$(C$8$L$)$!(B" "$(CAZ(B") ("$(C$8$L$)$1(B" "$(CA[(B") ("$(C$8$L$1(B" "$(CA\(B") ("$(C$8$L$2(B" "$(CA](B") ("$(C$8$L$5(B" "$(CA^(B") ("$(C$8$L$7(B" "$(CA_(B") ("$(C$8$L$C(B" "$(CA`(B") ("$(C$8$L$C$6(B" "$(CAa(B") ("$(C$8$L$D(B" "$(CAb(B") ("$(C$8$L$S(B" "$(CAc(B") ("$(C$8$L$S$!(B" "$(CAd(B") ("$(C$8$L$S$$(B" "$(CAe(B") ("$(C$8$L$S$)(B" "$(CAf(B") ("$(C$8$L$S$1(B" "$(CAg(B") ("$(C$8$L$S$2(B" "$(CAh(B") ("$(C$8$L$S$5(B" "$(CAi(B") ("$(C$8$P(B" "$(CAj(B") ("$(C$8$P$$(B" "$(CAk(B") ("$(C$8$P$)(B" "$(CAl(B") ("$(C$8$P$1(B" "$(CAm(B") ("$(C$8$Q(B" "$(CAn(B") ("$(C$8$Q$!(B" "$(CAo(B") ("$(C$8$Q$$(B" "$(CAp(B") ("$(C$8$Q$)(B" "$(CAq(B") ("$(C$8$Q$1(B" "$(CAr(B") ("$(C$8$Q$2(B" "$(CAs(B") ("$(C$8$Q$5(B" "$(CAt(B") ("$(C$8$Q$7(B" "$(CAu(B") ("$(C$8$S(B" "$(CAv(B") ("$(C$8$S$!(B" "$(CAw(B") ("$(C$8$S$$(B" "$(CAx(B") ("$(C$8$S$'(B" "$(CAy(B") ("$(C$8$S$)(B" "$(CAz(B") ("$(C$8$S$)$1(B" "$(CA{(B") ("$(C$8$S$1(B" "$(CA|(B") ("$(C$8$S$2(B" "$(CA}(B") ("$(C$8$S$5(B" "$(CA~(B") ("$(C$8$S$7(B" "$(CB!(B") ("$(C$8$S$8(B" "$(CB"(B") ("$(C$8$S$<(B" "$(CB#(B") ("$(C$8$S$=(B" "$(CB$(B") ("$(C$9$?(B" "$(CB%(B") ("$(C$9$?$!(B" "$(CB&(B") ("$(C$9$?$$(B" "$(CB'(B") ("$(C$9$?$$$>(B" "$(CB((B") ("$(C$9$?$)(B" "$(CB)(B") ("$(C$9$?$)$2(B" "$(CB*(B") ("$(C$9$?$1(B" "$(CB+(B") ("$(C$9$?$2(B" "$(CB,(B") ("$(C$9$?$5(B" "$(CB-(B") ("$(C$9$?$6(B" "$(CB.(B") ("$(C$9$?$7(B" "$(CB/(B") ("$(C$9$@(B" "$(CB0(B") ("$(C$9$@$!(B" "$(CB1(B") ("$(C$9$@$$(B" "$(CB2(B") ("$(C$9$@$)(B" "$(CB3(B") ("$(C$9$@$1(B" "$(CB4(B") ("$(C$9$@$2(B" "$(CB5(B") ("$(C$9$@$5(B" "$(CB6(B") ("$(C$9$@$6(B" "$(CB7(B") ("$(C$9$@$7(B" "$(CB8(B") ("$(C$9$A(B" "$(CB9(B") ("$(C$9$A$$(B" "$(CB:(B") ("$(C$9$A$7(B" "$(CB;(B") ("$(C$9$C(B" "$(CB<(B") ("$(C$9$C$!(B" "$(CB=(B") ("$(C$9$C$$(B" "$(CB>(B") ("$(C$9$C$)(B" "$(CB?(B") ("$(C$9$C$1(B" "$(CB@(B") ("$(C$9$C$2(B" "$(CBA(B") ("$(C$9$C$5(B" "$(CBB(B") ("$(C$9$C$6(B" "$(CBC(B") ("$(C$9$C$7(B" "$(CBD(B") ("$(C$9$D(B" "$(CBE(B") ("$(C$9$D$7(B" "$(CBF(B") ("$(C$9$E(B" "$(CBG(B") ("$(C$9$E$6(B" "$(CBH(B") ("$(C$9$G(B" "$(CBI(B") ("$(C$9$G$!(B" "$(CBJ(B") ("$(C$9$G$$(B" "$(CBK(B") ("$(C$9$G$)(B" "$(CBL(B") ("$(C$9$G$1(B" "$(CBM(B") ("$(C$9$G$2(B" "$(CBN(B") ("$(C$9$G$5(B" "$(CBO(B") ("$(C$9$G$7(B" "$(CBP(B") ("$(C$9$G$:(B" "$(CBQ(B") ("$(C$9$G$?(B" "$(CBR(B") ("$(C$9$G$?$!(B" "$(CBS(B") ("$(C$9$G$?$)(B" "$(CBT(B") ("$(C$9$G$?$6(B" "$(CBU(B") ("$(C$9$G$@(B" "$(CBV(B") ("$(C$9$G$@$6(B" "$(CBW(B") ("$(C$9$G$S(B" "$(CBX(B") ("$(C$9$G$S$$(B" "$(CBY(B") ("$(C$9$G$S$)(B" "$(CBZ(B") ("$(C$9$G$S$1(B" "$(CB[(B") ("$(C$9$G$S$2(B" "$(CB\(B") ("$(C$9$K$7(B" "$(CB](B") ("$(C$9$L(B" "$(CB^(B") ("$(C$9$L$!(B" "$(CB_(B") ("$(C$9$L$$(B" "$(CB`(B") ("$(C$9$L$)(B" "$(CBa(B") ("$(C$9$L$1(B" "$(CBb(B") ("$(C$9$L$2(B" "$(CBc(B") ("$(C$9$L$7(B" "$(CBd(B") ("$(C$9$L$C(B" "$(CBe(B") ("$(C$9$L$C$6(B" "$(CBf(B") ("$(C$9$L$C$7(B" "$(CBg(B") ("$(C$9$L$S(B" "$(CBh(B") ("$(C$9$P(B" "$(CBi(B") ("$(C$9$Q(B" "$(CBj(B") ("$(C$9$Q$1(B" "$(CBk(B") ("$(C$9$Q$5(B" "$(CBl(B") ("$(C$9$Q$7(B" "$(CBm(B") ("$(C$9$S(B" "$(CBn(B") ("$(C$9$S$!(B" "$(CBo(B") ("$(C$9$S$$(B" "$(CBp(B") ("$(C$9$S$)(B" "$(CBq(B") ("$(C$9$S$1(B" "$(CBr(B") ("$(C$9$S$2(B" "$(CBs(B") ("$(C$9$S$7(B" "$(CBt(B") ("$(C$9$S$8(B" "$(CBu(B") ("$(C$9$S$>(B" "$(CBv(B") ("$(C$:$?(B" "$(CBw(B") ("$(C$:$?$!(B" "$(CBx(B") ("$(C$:$?$$(B" "$(CBy(B") ("$(C$:$?$$$>(B" "$(CBz(B") ("$(C$:$?$)(B" "$(CB{(B") ("$(C$:$?$1(B" "$(CB|(B") ("$(C$:$?$2(B" "$(CB}(B") ("$(C$:$?$5(B" "$(CB~(B") ("$(C$:$?$6(B" "$(CC!(B") ("$(C$:$?$7(B" "$(CC"(B") ("$(C$:$?$8(B" "$(CC#(B") ("$(C$:$@(B" "$(CC$(B") ("$(C$:$@$!(B" "$(CC%(B") ("$(C$:$@$$(B" "$(CC&(B") ("$(C$:$@$)(B" "$(CC'(B") ("$(C$:$@$1(B" "$(CC((B") ("$(C$:$@$2(B" "$(CC)(B") ("$(C$:$@$5(B" "$(CC*(B") ("$(C$:$@$6(B" "$(CC+(B") ("$(C$:$@$7(B" "$(CC,(B") ("$(C$:$A(B" "$(CC-(B") ("$(C$:$A$$(B" "$(CC.(B") ("$(C$:$A$$$>(B" "$(CC/(B") ("$(C$:$A$)(B" "$(CC0(B") ("$(C$:$A$1(B" "$(CC1(B") ("$(C$:$A$7(B" "$(CC2(B") ("$(C$:$C(B" "$(CC3(B") ("$(C$:$C$!(B" "$(CC4(B") ("$(C$:$C$$(B" "$(CC5(B") ("$(C$:$C$)(B" "$(CC6(B") ("$(C$:$C$1(B" "$(CC7(B") ("$(C$:$C$2(B" "$(CC8(B") ("$(C$:$C$5(B" "$(CC9(B") ("$(C$:$C$6(B" "$(CC:(B") ("$(C$:$C$7(B" "$(CC;(B") ("$(C$:$D(B" "$(CC<(B") ("$(C$:$D$!(B" "$(CC=(B") ("$(C$:$D$$(B" "$(CC>(B") ("$(C$:$D$)(B" "$(CC?(B") ("$(C$:$D$1(B" "$(CC@(B") ("$(C$:$D$2(B" "$(CCA(B") ("$(C$:$D$5(B" "$(CCB(B") ("$(C$:$D$7(B" "$(CCC(B") ("$(C$:$E(B" "$(CCD(B") ("$(C$:$E$$(B" "$(CCE(B") ("$(C$:$E$6(B" "$(CCF(B") ("$(C$:$F(B" "$(CCG(B") ("$(C$:$F$$(B" "$(CCH(B") ("$(C$:$F$7(B" "$(CCI(B") ("$(C$:$G(B" "$(CCJ(B") ("$(C$:$G$!(B" "$(CCK(B") ("$(C$:$G$$(B" "$(CCL(B") ("$(C$:$G$)(B" "$(CCM(B") ("$(C$:$G$1(B" "$(CCN(B") ("$(C$:$G$2(B" "$(CCO(B") ("$(C$:$G$5(B" "$(CCP(B") ("$(C$:$G$7(B" "$(CCQ(B") ("$(C$:$G$?(B" "$(CCR(B") ("$(C$:$G$?$$(B" "$(CCS(B") ("$(C$:$G$?$)(B" "$(CCT(B") ("$(C$:$G$?$7(B" "$(CCU(B") ("$(C$:$G$S(B" "$(CCV(B") ("$(C$:$G$S$$(B" "$(CCW(B") ("$(C$:$G$S$)(B" "$(CCX(B") ("$(C$:$G$S$1(B" "$(CCY(B") ("$(C$:$G$S$2(B" "$(CCZ(B") ("$(C$:$G$S$5(B" "$(CC[(B") ("$(C$:$G$S$7(B" "$(CC\(B") ("$(C$:$K(B" "$(CC](B") ("$(C$:$K$1(B" "$(CC^(B") ("$(C$:$L(B" "$(CC_(B") ("$(C$:$L$!(B" "$(CC`(B") ("$(C$:$L$$(B" "$(CCa(B") ("$(C$:$L$)(B" "$(CCb(B") ("$(C$:$L$1(B" "$(CCc(B") ("$(C$:$L$2(B" "$(CCd(B") ("$(C$:$L$5(B" "$(CCe(B") ("$(C$:$L$7(B" "$(CCf(B") ("$(C$:$L$C(B" "$(CCg(B") ("$(C$:$L$C$6(B" "$(CCh(B") ("$(C$:$L$D(B" "$(CCi(B") ("$(C$:$L$D$$(B" "$(CCj(B") ("$(C$:$L$S(B" "$(CCk(B") ("$(C$:$L$S$$(B" "$(CCl(B") ("$(C$:$L$S$)(B" "$(CCm(B") ("$(C$:$L$S$1(B" "$(CCn(B") ("$(C$:$L$S$2(B" "$(CCo(B") ("$(C$:$L$S$5(B" "$(CCp(B") ("$(C$:$L$S$7(B" "$(CCq(B") ("$(C$:$P(B" "$(CCr(B") ("$(C$:$P$$(B" "$(CCs(B") ("$(C$:$P$)(B" "$(CCt(B") ("$(C$:$P$1(B" "$(CCu(B") ("$(C$:$P$7(B" "$(CCv(B") ("$(C$:$Q(B" "$(CCw(B") ("$(C$:$Q$!(B" "$(CCx(B") ("$(C$:$Q$$(B" "$(CCy(B") ("$(C$:$Q$)(B" "$(CCz(B") ("$(C$:$Q$1(B" "$(CC{(B") ("$(C$:$Q$2(B" "$(CC|(B") ("$(C$:$Q$5(B" "$(CC}(B") ("$(C$:$Q$7(B" "$(CC~(B") ("$(C$:$S(B" "$(CD!(B") ("$(C$:$S$!(B" "$(CD"(B") ("$(C$:$S$$(B" "$(CD#(B") ("$(C$:$S$'(B" "$(CD$(B") ("$(C$:$S$)(B" "$(CD%(B") ("$(C$:$S$)$!(B" "$(CD&(B") ("$(C$:$S$1(B" "$(CD'(B") ("$(C$:$S$2(B" "$(CD((B") ("$(C$:$S$5(B" "$(CD)(B") ("$(C$:$S$7(B" "$(CD*(B") ("$(C$;$?(B" "$(CD+(B") ("$(C$;$?$!(B" "$(CD,(B") ("$(C$;$?$$(B" "$(CD-(B") ("$(C$;$?$)(B" "$(CD.(B") ("$(C$;$?$1(B" "$(CD/(B") ("$(C$;$?$2(B" "$(CD0(B") ("$(C$;$?$5(B" "$(CD1(B") ("$(C$;$?$7(B" "$(CD2(B") ("$(C$;$@(B" "$(CD3(B") ("$(C$;$@$!(B" "$(CD4(B") ("$(C$;$@$$(B" "$(CD5(B") ("$(C$;$@$)(B" "$(CD6(B") ("$(C$;$@$1(B" "$(CD7(B") ("$(C$;$@$2(B" "$(CD8(B") ("$(C$;$@$5(B" "$(CD9(B") ("$(C$;$@$6(B" "$(CD:(B") ("$(C$;$@$7(B" "$(CD;(B") ("$(C$;$A(B" "$(CD<(B") ("$(C$;$A$!(B" "$(CD=(B") ("$(C$;$A$7(B" "$(CD>(B") ("$(C$;$C(B" "$(CD?(B") ("$(C$;$C$!(B" "$(CD@(B") ("$(C$;$C$$(B" "$(CDA(B") ("$(C$;$C$'(B" "$(CDB(B") ("$(C$;$C$)(B" "$(CDC(B") ("$(C$;$C$1(B" "$(CDD(B") ("$(C$;$C$2(B" "$(CDE(B") ("$(C$;$C$5(B" "$(CDF(B") ("$(C$;$C$6(B" "$(CDG(B") ("$(C$;$C$7(B" "$(CDH(B") ("$(C$;$D(B" "$(CDI(B") ("$(C$;$D$!(B" "$(CDJ(B") ("$(C$;$D$$(B" "$(CDK(B") ("$(C$;$D$)(B" "$(CDL(B") ("$(C$;$D$1(B" "$(CDM(B") ("$(C$;$D$2(B" "$(CDN(B") ("$(C$;$D$5(B" "$(CDO(B") ("$(C$;$D$7(B" "$(CDP(B") ("$(C$;$E(B" "$(CDQ(B") ("$(C$;$E$$(B" "$(CDR(B") ("$(C$;$E$)(B" "$(CDS(B") ("$(C$;$E$1(B" "$(CDT(B") ("$(C$;$E$2(B" "$(CDU(B") ("$(C$;$E$5(B" "$(CDV(B") ("$(C$;$E$6(B" "$(CDW(B") ("$(C$;$E$7(B" "$(CDX(B") ("$(C$;$F(B" "$(CDY(B") ("$(C$;$G(B" "$(CDZ(B") ("$(C$;$G$!(B" "$(CD[(B") ("$(C$;$G$$(B" "$(CD\(B") ("$(C$;$G$)(B" "$(CD](B") ("$(C$;$G$1(B" "$(CD^(B") ("$(C$;$G$2(B" "$(CD_(B") ("$(C$;$G$5(B" "$(CD`(B") ("$(C$;$G$7(B" "$(CDa(B") ("$(C$;$G$?(B" "$(CDb(B") ("$(C$;$G$?$!(B" "$(CDc(B") ("$(C$;$G$?$$(B" "$(CDd(B") ("$(C$;$G$?$)(B" "$(CDe(B") ("$(C$;$G$?$1(B" "$(CDf(B") ("$(C$;$G$?$7(B" "$(CDg(B") ("$(C$;$G$@(B" "$(CDh(B") ("$(C$;$G$@$7(B" "$(CDi(B") ("$(C$;$G$S(B" "$(CDj(B") ("$(C$;$G$S$)(B" "$(CDk(B") ("$(C$;$K(B" "$(CDl(B") ("$(C$;$L(B" "$(CDm(B") ("$(C$;$L$!(B" "$(CDn(B") ("$(C$;$L$)(B" "$(CDp(B") ("$(C$;$L$1(B" "$(CDq(B") ("$(C$;$L$2(B" "$(CDr(B") ("$(C$;$L$5(B" "$(CDs(B") ("$(C$;$L$7(B" "$(CDt(B") ("$(C$;$L$C(B" "$(CDu(B") ("$(C$;$L$C$$(B" "$(CDv(B") ("$(C$;$L$C$)(B" "$(CDw(B") ("$(C$;$L$C$7(B" "$(CDx(B") ("$(C$;$L$D(B" "$(CDy(B") ("$(C$;$L$D$7(B" "$(CDz(B") ("$(C$;$L$S(B" "$(CD{(B") ("$(C$;$L$S$!(B" "$(CD|(B") ("$(C$;$L$S$$(B" "$(CD}(B") ("$(C$;$L$S$)(B" "$(CD~(B") ("$(C$;$L$S$1(B" "$(CE!(B") ("$(C$;$L$S$2(B" "$(CE"(B") ("$(C$;$L$S$5(B" "$(CE#(B") ("$(C$;$L$S$7(B" "$(CE$(B") ("$(C$;$P(B" "$(CE%(B") ("$(C$;$P$$(B" "$(CE&(B") ("$(C$;$P$)(B" "$(CE'(B") ("$(C$;$P$1(B" "$(CE((B") ("$(C$;$Q(B" "$(CE)(B") ("$(C$;$Q$!(B" "$(CE*(B") ("$(C$;$Q$$(B" "$(CE+(B") ("$(C$;$Q$)(B" "$(CE,(B") ("$(C$;$Q$1(B" "$(CE-(B") ("$(C$;$Q$2(B" "$(CE.(B") ("$(C$;$Q$7(B" "$(CE/(B") ("$(C$;$S(B" "$(CE0(B") ("$(C$;$S$!(B" "$(CE1(B") ("$(C$;$S$$(B" "$(CE2(B") ("$(C$;$S$)(B" "$(CE3(B") ("$(C$;$S$1(B" "$(CE4(B") ("$(C$;$S$2(B" "$(CE5(B") ("$(C$;$S$5(B" "$(CE6(B") ("$(C$;$S$7(B" "$(CE7(B") ("$(C$<$?(B" "$(CE8(B") ("$(C$<$?$!(B" "$(CE9(B") ("$(C$<$?$$(B" "$(CE:(B") ("$(C$<$?$)(B" "$(CE;(B") ("$(C$<$?$)$!(B" "$(CE<(B") ("$(C$<$?$1(B" "$(CE=(B") ("$(C$<$?$2(B" "$(CE>(B") ("$(C$<$?$5(B" "$(CE?(B") ("$(C$<$?$6(B" "$(CE@(B") ("$(C$<$?$7(B" "$(CEA(B") ("$(C$<$@(B" "$(CEB(B") ("$(C$<$@$!(B" "$(CEC(B") ("$(C$<$@$$(B" "$(CED(B") ("$(C$<$@$)(B" "$(CEE(B") ("$(C$<$@$1(B" "$(CEF(B") ("$(C$<$@$2(B" "$(CEG(B") ("$(C$<$@$5(B" "$(CEH(B") ("$(C$<$@$6(B" "$(CEI(B") ("$(C$<$@$7(B" "$(CEJ(B") ("$(C$<$A(B" "$(CEK(B") ("$(C$<$A$7(B" "$(CEL(B") ("$(C$<$C(B" "$(CEM(B") ("$(C$<$C$!(B" "$(CEN(B") ("$(C$<$C$$(B" "$(CEO(B") ("$(C$<$C$)(B" "$(CEP(B") ("$(C$<$C$)$1(B" "$(CEQ(B") ("$(C$<$C$1(B" "$(CER(B") ("$(C$<$C$2(B" "$(CES(B") ("$(C$<$C$5(B" "$(CET(B") ("$(C$<$C$6(B" "$(CEU(B") ("$(C$<$C$7(B" "$(CEV(B") ("$(C$<$D(B" "$(CEW(B") ("$(C$<$D$!(B" "$(CEX(B") ("$(C$<$D$$(B" "$(CEY(B") ("$(C$<$D$)(B" "$(CEZ(B") ("$(C$<$D$1(B" "$(CE[(B") ("$(C$<$D$2(B" "$(CE\(B") ("$(C$<$D$5(B" "$(CE](B") ("$(C$<$D$7(B" "$(CE^(B") ("$(C$<$E(B" "$(CE_(B") ("$(C$<$E$$(B" "$(CE`(B") ("$(C$<$E$6(B" "$(CEa(B") ("$(C$<$F(B" "$(CEb(B") ("$(C$<$F$$(B" "$(CEc(B") ("$(C$<$G(B" "$(CEd(B") ("$(C$<$G$!(B" "$(CEe(B") ("$(C$<$G$$(B" "$(CEf(B") ("$(C$<$G$)(B" "$(CEg(B") ("$(C$<$G$1(B" "$(CEh(B") ("$(C$<$G$2(B" "$(CEi(B") ("$(C$<$G$5(B" "$(CEj(B") ("$(C$<$G$7(B" "$(CEk(B") ("$(C$<$G$=(B" "$(CEl(B") ("$(C$<$G$?(B" "$(CEm(B") ("$(C$<$G$?$$(B" "$(CEn(B") ("$(C$<$G$@(B" "$(CEo(B") ("$(C$<$G$S(B" "$(CEp(B") ("$(C$<$G$S$$(B" "$(CEq(B") ("$(C$<$G$S$5(B" "$(CEr(B") ("$(C$<$G$S$7(B" "$(CEs(B") ("$(C$<$K(B" "$(CEt(B") ("$(C$<$L(B" "$(CEu(B") ("$(C$<$L$!(B" "$(CEv(B") ("$(C$<$L$$(B" "$(CEw(B") ("$(C$<$L$)(B" "$(CEx(B") ("$(C$<$L$1(B" "$(CEy(B") ("$(C$<$L$2(B" "$(CEz(B") ("$(C$<$L$5(B" "$(CE{(B") ("$(C$<$L$7(B" "$(CE|(B") ("$(C$<$L$C(B" "$(CE}(B") ("$(C$<$L$C$6(B" "$(CE~(B") ("$(C$<$L$D(B" "$(CF!(B") ("$(C$<$L$S(B" "$(CF"(B") ("$(C$<$L$S$!(B" "$(CF#(B") ("$(C$<$L$S$$(B" "$(CF$(B") ("$(C$<$L$S$)(B" "$(CF%(B") ("$(C$<$L$S$1(B" "$(CF&(B") ("$(C$<$L$S$2(B" "$(CF'(B") ("$(C$<$L$S$7(B" "$(CF((B") ("$(C$<$P(B" "$(CF)(B") ("$(C$<$P$$(B" "$(CF*(B") ("$(C$<$P$)(B" "$(CF+(B") ("$(C$<$P$1(B" "$(CF,(B") ("$(C$<$P$7(B" "$(CF-(B") ("$(C$<$Q(B" "$(CF.(B") ("$(C$<$Q$!(B" "$(CF/(B") ("$(C$<$Q$$(B" "$(CF0(B") ("$(C$<$Q$'(B" "$(CF1(B") ("$(C$<$Q$)(B" "$(CF2(B") ("$(C$<$Q$)$1(B" "$(CF3(B") ("$(C$<$Q$1(B" "$(CF4(B") ("$(C$<$Q$2(B" "$(CF5(B") ("$(C$<$Q$5(B" "$(CF6(B") ("$(C$<$Q$S(B" "$(CF7(B") ("$(C$<$Q$S$$(B" "$(CF8(B") ("$(C$<$Q$S$)(B" "$(CF9(B") ("$(C$<$Q$S$1(B" "$(CF:(B") ("$(C$<$Q$S$2(B" "$(CF;(B") ("$(C$<$S(B" "$(CF<(B") ("$(C$<$S$!(B" "$(CF=(B") ("$(C$<$S$$(B" "$(CF>(B") ("$(C$<$S$)(B" "$(CF?(B") ("$(C$<$S$1(B" "$(CF@(B") ("$(C$<$S$2(B" "$(CFA(B") ("$(C$<$S$5(B" "$(CFB(B") ("$(C$<$S$7(B" "$(CFC(B") ("$(C$=$?(B" "$(CFD(B") ("$(C$=$?$!(B" "$(CFE(B") ("$(C$=$?$"(B" "$(CFF(B") ("$(C$=$?$$(B" "$(CFG(B") ("$(C$=$?$)(B" "$(CFH(B") ("$(C$=$?$)$1(B" "$(CFI(B") ("$(C$=$?$1(B" "$(CFJ(B") ("$(C$=$?$2(B" "$(CFK(B") ("$(C$=$?$5(B" "$(CFL(B") ("$(C$=$?$6(B" "$(CFM(B") ("$(C$=$?$7(B" "$(CFN(B") ("$(C$=$?$<(B" "$(CFO(B") ("$(C$=$@(B" "$(CFP(B") ("$(C$=$@$!(B" "$(CFQ(B") ("$(C$=$@$$(B" "$(CFR(B") ("$(C$=$@$)(B" "$(CFS(B") ("$(C$=$@$1(B" "$(CFT(B") ("$(C$=$@$2(B" "$(CFU(B") ("$(C$=$@$5(B" "$(CFV(B") ("$(C$=$@$6(B" "$(CFW(B") ("$(C$=$@$7(B" "$(CFX(B") ("$(C$=$A(B" "$(CFY(B") ("$(C$=$A$!(B" "$(CFZ(B") ("$(C$=$C(B" "$(CF[(B") ("$(C$=$C$!(B" "$(CF\(B") ("$(C$=$C$$(B" "$(CF](B") ("$(C$=$C$1(B" "$(CF_(B") ("$(C$=$C$2(B" "$(CF`(B") ("$(C$=$C$5(B" "$(CFa(B") ("$(C$=$C$6(B" "$(CFb(B") ("$(C$=$C$7(B" "$(CFc(B") ("$(C$=$D(B" "$(CFd(B") ("$(C$=$D$!(B" "$(CFe(B") ("$(C$=$D$$(B" "$(CFf(B") ("$(C$=$D$)(B" "$(CFg(B") ("$(C$=$D$1(B" "$(CFh(B") ("$(C$=$D$2(B" "$(CFi(B") ("$(C$=$D$5(B" "$(CFj(B") ("$(C$=$D$7(B" "$(CFk(B") ("$(C$=$E(B" "$(CFl(B") ("$(C$=$E$$(B" "$(CFm(B") ("$(C$=$E$)(B" "$(CFn(B") ("$(C$=$E$1(B" "$(CFo(B") ("$(C$=$E$2(B" "$(CFp(B") ("$(C$=$E$6(B" "$(CFq(B") ("$(C$=$E$7(B" "$(CFr(B") ("$(C$=$F(B" "$(CFs(B") ("$(C$=$F$)(B" "$(CFt(B") ("$(C$=$F$2(B" "$(CFu(B") ("$(C$=$F$5(B" "$(CFv(B") ("$(C$=$G(B" "$(CFw(B") ("$(C$=$G$!(B" "$(CFx(B") ("$(C$=$G$$(B" "$(CFy(B") ("$(C$=$G$)(B" "$(CFz(B") ("$(C$=$G$1(B" "$(CF{(B") ("$(C$=$G$2(B" "$(CF|(B") ("$(C$=$G$5(B" "$(CF}(B") ("$(C$=$G$7(B" "$(CF~(B") ("$(C$=$G$?(B" "$(CG!(B") ("$(C$=$G$?$7(B" "$(CG"(B") ("$(C$=$G$S(B" "$(CG#(B") ("$(C$=$G$S$$(B" "$(CG$(B") ("$(C$=$K(B" "$(CG%(B") ("$(C$=$K$$(B" "$(CG&(B") ("$(C$=$K$)(B" "$(CG'(B") ("$(C$=$K$2(B" "$(CG((B") ("$(C$=$K$5(B" "$(CG)(B") ("$(C$=$L(B" "$(CG*(B") ("$(C$=$L$!(B" "$(CG+(B") ("$(C$=$L$$(B" "$(CG,(B") ("$(C$=$L$'(B" "$(CG-(B") ("$(C$=$L$)(B" "$(CG.(B") ("$(C$=$L$)$1(B" "$(CG/(B") ("$(C$=$L$1(B" "$(CG0(B") ("$(C$=$L$2(B" "$(CG1(B") ("$(C$=$L$5(B" "$(CG2(B") ("$(C$=$L$7(B" "$(CG3(B") ("$(C$=$L$C(B" "$(CG4(B") ("$(C$=$L$C$7(B" "$(CG5(B") ("$(C$=$L$S(B" "$(CG6(B") ("$(C$=$L$S$$(B" "$(CG7(B") ("$(C$=$L$S$)(B" "$(CG8(B") ("$(C$=$L$S$1(B" "$(CG9(B") ("$(C$=$L$S$5(B" "$(CG:(B") ("$(C$=$P(B" "$(CG;(B") ("$(C$=$P$$(B" "$(CG<(B") ("$(C$=$P$)(B" "$(CG=(B") ("$(C$=$P$1(B" "$(CG>(B") ("$(C$=$P$5(B" "$(CG?(B") ("$(C$=$P$7(B" "$(CG@(B") ("$(C$=$Q(B" "$(CGA(B") ("$(C$=$Q$$(B" "$(CGB(B") ("$(C$=$Q$)(B" "$(CGC(B") ("$(C$=$Q$1(B" "$(CGD(B") ("$(C$=$Q$2(B" "$(CGE(B") ("$(C$=$Q$5(B" "$(CGF(B") ("$(C$=$S(B" "$(CGG(B") ("$(C$=$S$!(B" "$(CGH(B") ("$(C$=$S$$(B" "$(CGI(B") ("$(C$=$S$)(B" "$(CGJ(B") ("$(C$=$S$1(B" "$(CGK(B") ("$(C$=$S$2(B" "$(CGL(B") ("$(C$=$S$5(B" "$(CGM(B") ("$(C$=$S$7(B" "$(CGN(B") ("$(C$>$?(B" "$(CGO(B") ("$(C$>$?$!(B" "$(CGP(B") ("$(C$>$?$$(B" "$(CGQ(B") ("$(C$>$?$)(B" "$(CGR(B") ("$(C$>$?$)$<(B" "$(CGS(B") ("$(C$>$?$1(B" "$(CGT(B") ("$(C$>$?$2(B" "$(CGU(B") ("$(C$>$?$5(B" "$(CGV(B") ("$(C$>$?$7(B" "$(CGW(B") ("$(C$>$@(B" "$(CGX(B") ("$(C$>$@$!(B" "$(CGY(B") ("$(C$>$@$$(B" "$(CGZ(B") ("$(C$>$@$)(B" "$(CG[(B") ("$(C$>$@$1(B" "$(CG\(B") ("$(C$>$@$2(B" "$(CG](B") ("$(C$>$@$5(B" "$(CG^(B") ("$(C$>$@$6(B" "$(CG_(B") ("$(C$>$@$7(B" "$(CG`(B") ("$(C$>$A(B" "$(CGa(B") ("$(C$>$A$7(B" "$(CGb(B") ("$(C$>$C(B" "$(CGc(B") ("$(C$>$C$!(B" "$(CGd(B") ("$(C$>$C$$(B" "$(CGe(B") ("$(C$>$C$)(B" "$(CGf(B") ("$(C$>$C$)$1(B" "$(CGg(B") ("$(C$>$C$1(B" "$(CGh(B") ("$(C$>$C$2(B" "$(CGi(B") ("$(C$>$C$5(B" "$(CGj(B") ("$(C$>$C$7(B" "$(CGk(B") ("$(C$>$D(B" "$(CGl(B") ("$(C$>$D$!(B" "$(CGm(B") ("$(C$>$D$$(B" "$(CGn(B") ("$(C$>$D$)(B" "$(CGo(B") ("$(C$>$D$1(B" "$(CGp(B") ("$(C$>$D$2(B" "$(CGq(B") ("$(C$>$D$5(B" "$(CGr(B") ("$(C$>$D$7(B" "$(CGs(B") ("$(C$>$E(B" "$(CGt(B") ("$(C$>$E$!(B" "$(CGu(B") ("$(C$>$E$$(B" "$(CGv(B") ("$(C$>$E$)(B" "$(CGw(B") ("$(C$>$E$1(B" "$(CGx(B") ("$(C$>$E$2(B" "$(CGy(B") ("$(C$>$E$5(B" "$(CGz(B") ("$(C$>$E$6(B" "$(CG{(B") ("$(C$>$E$7(B" "$(CG|(B") ("$(C$>$F(B" "$(CG}(B") ("$(C$>$F$$(B" "$(CG~(B") ("$(C$>$F$)(B" "$(CH!(B") ("$(C$>$F$2(B" "$(CH"(B") ("$(C$>$G(B" "$(CH#(B") ("$(C$>$G$!(B" "$(CH$(B") ("$(C$>$G$$(B" "$(CH%(B") ("$(C$>$G$)(B" "$(CH&(B") ("$(C$>$G$)$<(B" "$(CH'(B") ("$(C$>$G$1(B" "$(CH((B") ("$(C$>$G$2(B" "$(CH)(B") ("$(C$>$G$5(B" "$(CH*(B") ("$(C$>$G$7(B" "$(CH+(B") ("$(C$>$G$<(B" "$(CH,(B") ("$(C$>$G$?(B" "$(CH-(B") ("$(C$>$G$?$!(B" "$(CH.(B") ("$(C$>$G$?$$(B" "$(CH/(B") ("$(C$>$G$?$)(B" "$(CH0(B") ("$(C$>$G$?$5(B" "$(CH1(B") ("$(C$>$G$?$7(B" "$(CH2(B") ("$(C$>$G$@(B" "$(CH3(B") ("$(C$>$G$@$!(B" "$(CH4(B") ("$(C$>$G$@$$(B" "$(CH5(B") ("$(C$>$G$@$5(B" "$(CH6(B") ("$(C$>$G$@$7(B" "$(CH7(B") ("$(C$>$G$S(B" "$(CH8(B") ("$(C$>$G$S$!(B" "$(CH9(B") ("$(C$>$G$S$$(B" "$(CH:(B") ("$(C$>$G$S$)(B" "$(CH;(B") ("$(C$>$G$S$2(B" "$(CH<(B") ("$(C$>$G$S$5(B" "$(CH=(B") ("$(C$>$G$S$7(B" "$(CH>(B") ("$(C$>$K(B" "$(CH?(B") ("$(C$>$K$$(B" "$(CH@(B") ("$(C$>$K$)(B" "$(CHA(B") ("$(C$>$K$2(B" "$(CHB(B") ("$(C$>$K$5(B" "$(CHC(B") ("$(C$>$L(B" "$(CHD(B") ("$(C$>$L$!(B" "$(CHE(B") ("$(C$>$L$$(B" "$(CHF(B") ("$(C$>$L$)(B" "$(CHG(B") ("$(C$>$L$)$<(B" "$(CHH(B") ("$(C$>$L$1(B" "$(CHI(B") ("$(C$>$L$5(B" "$(CHJ(B") ("$(C$>$L$7(B" "$(CHK(B") ("$(C$>$L$C(B" "$(CHL(B") ("$(C$>$L$C$$(B" "$(CHM(B") ("$(C$>$L$C$)(B" "$(CHN(B") ("$(C$>$L$C$1(B" "$(CHO(B") ("$(C$>$L$C$7(B" "$(CHP(B") ("$(C$>$L$D(B" "$(CHQ(B") ("$(C$>$L$D$!(B" "$(CHR(B") ("$(C$>$L$D$$(B" "$(CHS(B") ("$(C$>$L$D$)(B" "$(CHT(B") ("$(C$>$L$D$7(B" "$(CHU(B") ("$(C$>$L$S(B" "$(CHV(B") ("$(C$>$L$S$!(B" "$(CHW(B") ("$(C$>$L$S$$(B" "$(CHX(B") ("$(C$>$L$S$)(B" "$(CHY(B") ("$(C$>$L$S$1(B" "$(CHZ(B") ("$(C$>$L$S$2(B" "$(CH[(B") ("$(C$>$L$S$5(B" "$(CH\(B") ("$(C$>$L$S$7(B" "$(CH](B") ("$(C$>$P(B" "$(CH^(B") ("$(C$>$P$!(B" "$(CH_(B") ("$(C$>$P$$(B" "$(CH`(B") ("$(C$>$P$)(B" "$(CHa(B") ("$(C$>$P$1(B" "$(CHb(B") ("$(C$>$P$5(B" "$(CHc(B") ("$(C$>$P$7(B" "$(CHd(B") ("$(C$>$Q(B" "$(CHe(B") ("$(C$>$Q$!(B" "$(CHf(B") ("$(C$>$Q$$(B" "$(CHg(B") ("$(C$>$Q$$$>(B" "$(CHh(B") ("$(C$>$Q$'(B" "$(CHi(B") ("$(C$>$Q$)(B" "$(CHj(B") ("$(C$>$Q$)$!(B" "$(CHk(B") ("$(C$>$Q$1(B" "$(CHl(B") ("$(C$>$Q$2(B" "$(CHm(B") ("$(C$>$Q$5(B" "$(CHn(B") ("$(C$>$Q$7(B" "$(CHo(B") ("$(C$>$Q$<(B" "$(CHp(B") ("$(C$>$Q$S(B" "$(CHq(B") ("$(C$>$Q$S$$(B" "$(CHr(B") ("$(C$>$Q$S$)(B" "$(CHs(B") ("$(C$>$Q$S$1(B" "$(CHt(B") ("$(C$>$Q$S$2(B" "$(CHu(B") ("$(C$>$Q$S$7(B" "$(CHv(B") ("$(C$>$S(B" "$(CHw(B") ("$(C$>$S$!(B" "$(CHx(B") ("$(C$>$S$$(B" "$(CHy(B") ("$(C$>$S$)(B" "$(CHz(B") ("$(C$>$S$1(B" "$(CH{(B") ("$(C$>$S$2(B" "$(CH|(B") ("$(C$>$S$5(B" "$(CH}(B") ("$(C$>$S$7(B" "$(CH~(B")) (dolist (ascii '(("1" . "$(C#1(B") ("2" . "$(C#2(B") ("3" . "$(C#3(B") ("4" . "$(C#4(B") ("5" . "$(C#5(B") ("6" . "$(C#6(B") ("7" . "$(C#7(B") ("8" . "$(C#8(B") ("9" . "$(C#9(B") ("0" . "$(C#0(B") (" " . "$(C!!(B") ("!" . "$(C#!(B") ("@" . "$(C#@(B") ("#" . "$(C##(B") ("$" . "$(C#$(B") ("%" . "$(C#%(B") ("^" . "$(C#^(B") ("&" . "$(C#&(B") ("*" . "$(C#*(B") ("(" . "$(C#((B") (")" . "$(C#)(B") ("-" . "$(C#-(B") ("=" . "$(C#=(B") ("`" . "$(C#`(B") ("\\" . "$(C#\(B") ("|" . "$(C#|(B") ("_" . "$(C#_(B") ("+" . "$(C#+(B") ("~" . "$(C#~(B") ("[" . "$(C!8(B") ("]" . "$(C!9(B") ("{" . "$(C#{(B") ("}" . "$(C#}(B") (":" . "$(C#:(B") (";" . "$(C#;(B") ("\"" . "$(C#"(B") ("'" . "$(C#'(B") ("<" . "$(C#<(B") (">" . "$(C#>(B") ("?" . "$(C#?(B") ("/" . "$(C#/(B") ("," . "$(C#,(B") ("." . "$(C#.(B") ("a" . "$(C#a(B") ("b" . "$(C#b(B") ("c" . "$(C#c(B") ("d" . "$(C#d(B") ("e" . "$(C#e(B") ("f" . "$(C#f(B") ("g" . "$(C#g(B") ("h" . "$(C#h(B") ("i" . "$(C#i(B") ("j" . "$(C#j(B") ("k" . "$(C#k(B") ("l" . "$(C#l(B") ("m" . "$(C#m(B") ("n" . "$(C#n(B") ("o" . "$(C#o(B") ("p" . "$(C#p(B") ("q" . "$(C#q(B") ("r" . "$(C#r(B") ("s" . "$(C#s(B") ("t" . "$(C#t(B") ("u" . "$(C#u(B") ("v" . "$(C#v(B") ("w" . "$(C#w(B") ("x" . "$(C#x(B") ("y" . "$(C#y(B") ("z" . "$(C#z(B") ("A" . "$(C#A(B") ("B" . "$(C#B(B") ("C" . "$(C#C(B") ("D" . "$(C#D(B") ("E" . "$(C#E(B") ("F" . "$(C#F(B") ("G" . "$(C#G(B") ("H" . "$(C#H(B") ("I" . "$(C#I(B") ("J" . "$(C#J(B") ("K" . "$(C#K(B") ("L" . "$(C#L(B") ("M" . "$(C#M(B") ("N" . "$(C#N(B") ("O" . "$(C#O(B") ("P" . "$(C#P(B") ("Q" . "$(C#Q(B") ("R" . "$(C#R(B") ("S" . "$(C#S(B") ("T" . "$(C#T(B") ("U" . "$(C#U(B") ("V" . "$(C#V(B") ("W" . "$(C#W(B") ("X" . "$(C#X(B") ("Y" . "$(C#Y(B") ("Z" . "$(C#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-pankak-escape in) in) (its-defrule (concat its-jeonkak-escape in) out)))) (define-its-state-machine-append its-hangul-map (its-defrule "[" its-hangul-open-bracket) (its-defrule "]" its-hangul-close-bracket) (its-defrule "." its-hangul-period) (its-defrule "," its-hangul-comma) (if its-hangul-enable-jeonkak-alphabet (progn (its-defrule "1" "$(C#1(B") (its-defrule "2" "$(C#2(B") (its-defrule "3" "$(C#3(B") (its-defrule "4" "$(C#4(B") (its-defrule "5" "$(C#5(B") (its-defrule "6" "$(C#6(B") (its-defrule "7" "$(C#7(B") (its-defrule "8" "$(C#8(B") (its-defrule "9" "$(C#9(B") (its-defrule "0" "$(C#0(B") (its-defrule "!" "$(C#!(B") (its-defrule "@" "$(C#@(B") (its-defrule "#" "$(C##(B") (its-defrule "$" "$(C#$(B") (its-defrule "%" "$(C#%(B") (its-defrule "^" "$(C#^(B") (its-defrule "&" "$(C#&(B") (its-defrule "*" "$(C#*(B") (its-defrule "(" "$(C#((B") (its-defrule ")" "$(C#)(B") (its-defrule "-" "$(C#-(B") (its-defrule "~" "$(C#~(B") (its-defrule "=" "$(C#=(B") (its-defrule "`" "$(C#`(B") (its-defrule "\\" "$(C#\(B") (its-defrule "|" "$(C#|(B") (its-defrule "_" "$(C#_(B") (its-defrule "+" "$(C#+(B") (its-defrule "{" "$(C#{(B") (its-defrule "}" "$(C#}(B") (its-defrule ":" "$(C#:(B") (its-defrule ";" "$(C#;(B") (its-defrule "\"" "$(C#"(B") (its-defrule "'" "$(C#'(B") (its-defrule "<" "$(C#<(B") (its-defrule ">" "$(C#>(B") (its-defrule "?" "$(C#?(B") (its-defrule "/" "$(C#/(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "!" "!") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "-" "-") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule ":" ":") (its-defrule ";" ";") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">") (its-defrule "?" "?") (its-defrule "/" "/")))) (provide 'its/hangul) egg-4.0.6+0.20041122cvs/its/hankata.el0000644000764400003210000002637407234614431020217 0ustar ishikawaishikawa00000000000000;;; its/hankata.el --- Hnakaku Katakana Input in Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-han-kata-enable-double-n nil "*Enable \"nn\" input for \"$B%s(B\" ") (defvar its-han-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet") (defvar its-han-kata-period "(I!(B" "*$B%T%j%*%I(B") ; ". " "$B!%(B" (defvar its-han-kata-comma "(I$(B" "*$B%3%s%^(B") ; ", " "$B!$(B" (defvar its-han-kata-open-bracket "(I"(B" "*[") ; "$B!N(B" (defvar its-han-kata-close-bracket "(I#(B" "*]") ; "$B!O(B" (defvar its-han-kata-horizontal "(I0(B" "*-") ; "$B!](B" (define-its-state-machine its-han-kata-map "roma-han-kata" "(I11(B" Japanese "Map for Romaji-Hankaku-Katakana translation. (Japanese)" (defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs (its-defrule-select-mode-temporally "q" downcase) ;;; k k ;;; kk $B%C(Bk ;;; kka $B%C%+(B ;;; ;;; kkk $B%C(Bk DING! (its-defrule "tch" "(I/(B" -2) ;;; $B!V%s!W$NF~NO(B (dolist (q1 '("b" "m" "p")) (its-defrule (concat "m" q1) "(I](B" -1)) (its-defrule* "n" "(I](B") (its-defrule "n'" "(I](B") (its-defrule "N" "(I](B") (let ((small '"x" )) (its-defrule (concat small "a") "(I'(B") (its-defrule (concat small "i") "(I((B") (its-defrule (concat small "u") "(I)(B") (its-defrule (concat small "e") "(I*(B") (its-defrule (concat small "o") "(I+(B") (its-defrule (concat small "ya") "(I,(B") (its-defrule (concat small "yu") "(I-(B") (its-defrule (concat small "yo") "(I.(B") (its-defrule (concat small "tu") "(I/(B") (its-defrule (concat small "tsu") "(I/(B") (its-defrule (concat small "wa") "(I\(B") ) (its-defrule "a" "(I1(B") (its-defrule "i" "(I2(B") (its-defrule "u" "(I3(B") (its-defrule "e" "(I4(B") (its-defrule "o" "(I5(B") (dolist (k '(("ka" "(I6(B") ("ki" "(I7(B") ("ku" "(I8(B") ("ke" "(I9(B") ("ko" "(I:(B") ("kya" "(I7,(B") ("kyu" "(I7-(B") ("kye" "(I7*(B") ("kyo" "(I7.(B"))) (its-defrule (car k) (cadr k)) (its-defrule (concat "k" (car k)) (concat "(I/(B" (cadr k)))) (its-defoutput "kk" "(I/(Bk") (its-defoutput "kky" "(I/(Bky") (dolist (s '(("sa" "(I;(B") ("si" "(I<(B") ("su" "(I=(B") ("se" "(I>(B") ("so" "(I?(B") ("sya" "(I<,(B") ("syu" "(I<-(B") ("sye" "(I<*(B") ("syo" "(I<.(B") ("sha" "(I<,(B") ("shi" "(I<(B") ("shu" "(I<-(B") ("she" "(I<*(B") ("sho" "(I<.(B"))) (its-defrule (car s) (cadr s)) (its-defrule (concat "s" (car s)) (concat "(I/(B" (cadr s)))) (its-defoutput "ss" "(I/(Bs") (its-defoutput "ssy" "(I/(Bsy") (its-defoutput "ssh" "(I/(Bsh") (dolist (T '(("ta" "(I@(B") ("ti" "(IA(B") ("tu" "(IB(B") ("te" "(IC(B") ("to" "(ID(B") ("tya" "(IA,(B") ("tyi" "(IC((B") ("tyu" "(IA-(B") ("tye" "(IA*(B") ("tyo" "(IA.(B") ("tsu" "(IB(B"))) (its-defrule (car T) (cadr T)) (its-defrule (concat "t" (car T)) (concat "(I/(B" (cadr T)))) (its-defoutput "tt" "(I/(Bt") (its-defoutput "tty" "(I/(Bty") (its-defoutput "tts" "(I/(Bts") (dolist (c '(("cha" "(IA,(B") ("chi" "(IA(B") ("chu" "(IA-(B") ("che" "(IA*(B") ("cho" "(IA.(B"))) (its-defrule (car c) (cadr c)) (its-defrule (concat "c" (car c)) (concat "(I/(B" (cadr c)))) (its-defoutput "cc" "(I/(Bc") (its-defoutput "cch" "(I/(Bch") (dolist (h '(("ha" "(IJ(B") ("hi" "(IK(B") ("hu" "(IL(B") ("he" "(IM(B") ("ho" "(IN(B") ("hya" "(IK,(B") ("hyu" "(IK-(B") ("hye" "(IK*(B") ("hyo" "(IK.(B"))) (its-defrule (car h) (cadr h)) (its-defrule (concat "h" (car h)) (concat "(I/(B" (cadr h)))) (its-defoutput "hh" "(I/(Bh") (its-defoutput "hhy" "(I/(Bhy") (dolist (f '(("fa" "(IL'(B") ("fi" "(IL((B") ("fu" "(IL(B") ("fe" "(IL*(B") ("fo" "(IL+(B"))) (its-defrule (car f) (cadr f)) (its-defrule (concat "f" (car f)) (concat "(I/(B" (cadr f)))) (its-defoutput "ff" "(I/(Bf") (dolist (r '(("ra" "(IW(B") ("ri" "(IX(B") ("ru" "(IY(B") ("re" "(IZ(B") ("ro" "(I[(B") ("rya" "(IX,(B") ("ryu" "(IX-(B") ("rye" "(IX*(B") ("ryo" "(IX.(B"))) (its-defrule (car r) (cadr r)) (its-defrule (concat "r" (car r)) (concat "(I/(B" (cadr r)))) (its-defoutput "rr" "(I/(Br") (its-defoutput "rry" "(I/(Bry") (dolist (l '(("la" "(IW(B") ("li" "(IX(B") ("lu" "(IY(B") ("le" "(IZ(B") ("lo" "(I[(B") ("lya" "(IX,(B") ("lyu" "(IX-(B") ("lye" "(IX*(B") ("lyo" "(IX.(B"))) (its-defrule (car l) (cadr l)) (its-defrule (concat "l" (car l)) (concat "(I/(B" (cadr l)))) (its-defoutput "ll" "(I/(Bl") (its-defoutput "lly" "(I/(Bly") (dolist (g '(("ga" "(I6^(B") ("gi" "(I7^(B") ("gu" "(I8^(B") ("ge" "(I9^(B") ("go" "(I:^(B") ("gya" "(I7^,(B") ("gyu" "(I7^-(B") ("gye" "(I7^*(B") ("gyo" "(I7^.(B"))) (its-defrule (car g) (cadr g)) (its-defrule (concat "g" (car g)) (concat "(I/(B" (cadr g)))) (its-defoutput "gg" "(I/(Bg") (its-defoutput "ggy" "(I/(Bgy") (dolist (z '(("za" "(I;^(B") ("zi" "(I<^(B") ("zu" "(I=^(B") ("ze" "(I>^(B") ("zo" "(I?^(B") ("zya" "(I<^,(B") ("zyu" "(I<^-(B") ("zye" "(I<^*(B") ("zyo" "(I<^.(B"))) (its-defrule (car z) (cadr z)) (its-defrule (concat "z" (car z)) (concat "(I/(B" (cadr z)))) (its-defoutput "zz" "(I/(Bz") (its-defoutput "zzy" "(I/(Bzy") (dolist (j '(("ja" "(I<^,(B") ("ji" "(I<^(B") ("ju" "(I<^-(B") ("je" "(I<^*(B") ("jo" "(I<^.(B") ("jya" "(I<^,(B") ("jyu" "(I<^-(B") ("jye" "(I<^*(B") ("jyo" "(I<^.(B"))) (its-defrule (car j) (cadr j)) (its-defrule (concat "j" (car j)) (concat "(I/(B" (cadr j)))) (its-defoutput "jj" "(I/(Bj") (its-defoutput "jjy" "(I/(Bjy") (dolist (d '(("da" "(I@^(B") ("di" "(IA^(B") ("du" "(IB^(B") ("de" "(IC^(B") ("do" "(ID^(B") ("dya" "(IA^,(B") ("dyi" "(IC^((B") ("dyu" "(IA^-(B") ("dye" "(IA^*(B") ("dyo" "(IA^.(B"))) (its-defrule (car d) (cadr d)) (its-defrule (concat "d" (car d)) (concat "(I/(B" (cadr d)))) (its-defoutput "dd" "(I/(Bd") (its-defoutput "ddy" "(I/(Bdy") (dolist (b '(("ba" "(IJ^(B") ("bi" "(IK^(B") ("bu" "(IL^(B") ("be" "(IM^(B") ("bo" "(IN^(B") ("bya" "(IK^,(B") ("byu" "(IK^-(B") ("bye" "(IK^*(B") ("byo" "(IK^.(B"))) (its-defrule (car b) (cadr b)) (its-defrule (concat "b" (car b)) (concat "(I/(B" (cadr b)))) (its-defoutput "bb" "(I/(Bb") (its-defoutput "bby" "(I/(Bby") (dolist (p '(("pa" "(IJ_(B") ("pi" "(IK_(B") ("pu" "(IL_(B") ("pe" "(IM_(B") ("po" "(IN_(B") ("pya" "(IK_,(B") ("pyu" "(IK_-(B") ("pye" "(IK_*(B") ("pyo" "(IK_.(B"))) (its-defrule (car p) (cadr p)) (its-defrule (concat "p" (car p)) (concat "(I/(B" (cadr p)))) (its-defoutput "pp" "(I/(Bp") (its-defoutput "ppy" "(I/(Bpy") (dolist (v '(("va" "(I3^'(B") ("vi" "(I3^((B") ("vu" "(I3^(B") ("ve" "(I3^*(B") ("vo" "(I3^+(B"))) (its-defrule (car v) (cadr v)) (its-defrule (concat "v" (car v)) (concat "(I/(B" (cadr v)))) (its-defoutput "vv" "(I/(Bv") (its-defrule "ma" "(IO(B") (its-defrule "mi" "(IP(B") (its-defrule "mu" "(IQ(B") (its-defrule "me" "(IR(B") (its-defrule "mo" "(IS(B") (its-defrule "mya" "(IP,(B") (its-defrule "myu" "(IP-(B") (its-defrule "mye" "(IP*(B") (its-defrule "myo" "(IP.(B") (its-defrule "ya" "(IT(B") (its-defrule "yi" "(I2(B") (its-defrule "yu" "(IU(B") (its-defrule "yo" "(IV(B") (its-defrule "ye" "(I2*(B") (its-defrule "wa" "(I\(B") (its-defrule "wi" "(I((B") (its-defrule "wu" "(I3(B") (its-defrule "we" "(I*(B") (its-defrule "wo" "(I&(B") (its-defrule "kwa" "(I8\(B") (its-defrule "kwi" "(I8((B") (its-defrule "kwu" "(I8(B") (its-defrule "kwe" "(I8*(B") (its-defrule "kwo" "(I8+(B") (its-defrule "gwa" "(I8^\(B") (its-defrule "gwi" "(I8^((B") (its-defrule "gwu" "(I8^(B") (its-defrule "gwe" "(I8^*(B") (its-defrule "gwo" "(I8^+(B") (its-defrule "tsa" "(IB'(B") (its-defrule "tsi" "(IB((B") (its-defrule "tse" "(IB*(B") (its-defrule "tso" "(IB+(B") (its-defrule "na" "(IE(B") (its-defrule "ni" "(IF(B") (its-defrule "nu" "(IG(B") (its-defrule "ne" "(IH(B") (its-defrule "no" "(II(B") (its-defrule "nya" "(IF,(B") (its-defrule "nyu" "(IF-(B") (its-defrule "nye" "(IF*(B") (its-defrule "nyo" "(IF.(B") (its-defrule "xti" "(IC((B") (its-defrule "xdi" "(IC^((B") (its-defrule "xdu" "(ID^)(B") (its-defrule "xde" "(IC^*(B") (its-defrule "xdo" "(ID^+(B") (its-defrule "xwi" "(I3((B") (its-defrule "xwe" "(I3*(B") (its-defrule "xwo" "(I3+(B") ;;; ;;; Symbol inputs ;;; (dolist (digit '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" )) (its-defrule (concat its-hankaku-escape digit) digit)) (dolist (symbol '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")" "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}" ":" ";" "\"" "'" "<" ">" "?" "/" "," "." )) (its-defrule (concat its-hankaku-escape symbol) symbol)) (dolist (downcase '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")) (its-defrule (concat its-hankaku-escape downcase) downcase)) (dolist (upcase '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z")) (its-defrule (concat its-hankaku-escape upcase) upcase))) (define-its-state-machine-append its-han-kata-map (if its-han-kata-enable-double-n (its-defrule "nn" "(I](B")) (its-defrule "-" its-han-kata-horizontal) (its-defrule "[" its-han-kata-open-bracket) (its-defrule "]" its-han-kata-close-bracket) (its-defrule "." its-han-kata-period) (its-defrule "," its-han-kata-comma) ) (provide 'its/hankata) ;;; its/kata.el ends here. egg-4.0.6+0.20041122cvs/its/hira.el0000644000764400003210000005560107234613544017532 0ustar ishikawaishikawa00000000000000;;; its/hira.el --- Hiragana Input in Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; ;; Symbol input is desined by jiro@math.keio.ac.jp (TANAKA Jiro) ;; This file is based on the rules of its/hira.el in Mule-2.3 distribution. ;; ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defgroup hira nil "Hiragana Input Method" :group 'its) (defvar its-hira-enable-zenkaku-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Zenkaku alphabet") (defcustom its-hira-enable-double-n t "*Enable \"nn\" input for \"$B$s(B\" " :group 'hira :type 'boolean) (defcustom its-hira-period "$B!#(B" "* .($B%T%j%*%I(B)$B$rF~NO$7$?$H$-$N6gE@$NJ8;z(B: \"$B!#(B\" \". \" \"$B!%(B\"" :group 'hira :type 'string) (defcustom its-hira-comma "$B!"(B" "* ,($B%3%s%^(B)$B$rF~NO$7$?$H$-$NFIE@$NJ8;z(B: \"$B!"(B\" \", \" \"$B!$(B\"" :group 'hira :type 'string) (defcustom its-hira-open-bracket "$B!V(B" "* [ $B$rF~NO$7$?$H$-$N$+$.3g8L3+$1$NJ8;z(B: \"$B!V(B\" \"$B!N(B\"" :group 'hira :type 'string) (defcustom its-hira-close-bracket "$B!W(B" "* ] $B$rF~NO$7$?$H$-$N$+$.3g8LJD$8$NJ8;z(B: \"$B!W(B\" \"$B!O(B\"" :group 'hira :type 'string) (defcustom its-hira-horizontal "$B!<(B" "* - $B$rF~NO$7$?$H$-$ND92;5-9f$NJ8;z(B: \"$B!<(B\" \"$B!](B\"" :group 'hira :type 'string) (define-its-state-machine its-hira-map "roma-kana" "$B$"(B" Japanese "Map for Romaji-Hiragana translation. (Japanese)" (defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs (defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs (its-defrule-select-mode-temporally "q" downcase) (its-defrule-select-mode-temporally "Q" zenkaku-downcase) ;;; k k ;;; kk $B$C(Bk ;;; kka $B$C$+(B ;;; ;;; kkk $B$C(Bk DING! (its-defrule "tch" "$B$C(B" -2) ;;; $B!V$s!W$NF~NO(B (dolist (q1 '("b" "m" "p")) (its-defrule (concat "m" q1) "$B$s(B" -1)) (its-defrule* "n" "$B$s(B") (its-defrule "n'" "$B$s(B") (its-defrule "N" "$B$s(B") (let ((small '"x" )) (its-defrule (concat small "a") "$B$!(B") (its-defrule (concat small "i") "$B$#(B") (its-defrule (concat small "u") "$B$%(B") (its-defrule (concat small "e") "$B$'(B") (its-defrule (concat small "o") "$B$)(B") (its-defrule (concat small "ya") "$B$c(B") (its-defrule (concat small "yu") "$B$e(B") (its-defrule (concat small "yo") "$B$g(B") (its-defrule (concat small "tu") "$B$C(B") (its-defrule (concat small "tsu") "$B$C(B") (its-defrule (concat small "wa") "$B$n(B") ) (its-defrule "a" "$B$"(B") (its-defrule "i" "$B$$(B") (its-defrule "u" "$B$&(B") (its-defrule "e" "$B$((B") (its-defrule "o" "$B$*(B") (dolist (k '(("ka" "$B$+(B") ("ki" "$B$-(B") ("ku" "$B$/(B") ("ke" "$B$1(B") ("ko" "$B$3(B") ("kya" "$B$-$c(B") ("kyu" "$B$-$e(B") ("kye" "$B$-$'(B") ("kyo" "$B$-$g(B"))) (its-defrule (car k) (cadr k)) (its-defrule (concat "k" (car k)) (concat "$B$C(B" (cadr k)))) (its-defoutput "kk" "$B$C(Bk") (its-defoutput "kky" "$B$C(Bky") (dolist (s '(("sa" "$B$5(B") ("si" "$B$7(B") ("su" "$B$9(B") ("se" "$B$;(B") ("so" "$B$=(B") ("sya" "$B$7$c(B") ("syu" "$B$7$e(B") ("sye" "$B$7$'(B") ("syo" "$B$7$g(B") ("sha" "$B$7$c(B") ("shi" "$B$7(B") ("shu" "$B$7$e(B") ("she" "$B$7$'(B") ("sho" "$B$7$g(B"))) (its-defrule (car s) (cadr s)) (its-defrule (concat "s" (car s)) (concat "$B$C(B" (cadr s)))) (its-defoutput "ss" "$B$C(Bs") (its-defoutput "ssy" "$B$C(Bsy") (its-defoutput "ssh" "$B$C(Bsh") (dolist (T '(("ta" "$B$?(B") ("ti" "$B$A(B") ("tu" "$B$D(B") ("te" "$B$F(B") ("to" "$B$H(B") ("tya" "$B$A$c(B") ("tyi" "$B$F$#(B") ("tyu" "$B$A$e(B") ("tye" "$B$A$'(B") ("tyo" "$B$A$g(B") ("tsu" "$B$D(B"))) (its-defrule (car T) (cadr T)) (its-defrule (concat "t" (car T)) (concat "$B$C(B" (cadr T)))) (its-defoutput "tt" "$B$C(Bt") (its-defoutput "tty" "$B$C(Bty") (its-defoutput "tts" "$B$C(Bts") (dolist (c '(("cha" "$B$A$c(B") ("chi" "$B$A(B") ("chu" "$B$A$e(B") ("che" "$B$A$'(B") ("cho" "$B$A$g(B"))) (its-defrule (car c) (cadr c)) (its-defrule (concat "c" (car c)) (concat "$B$C(B" (cadr c)))) (its-defoutput "cc" "$B$C(Bc") (its-defoutput "cch" "$B$C(Bch") (dolist (h '(("ha" "$B$O(B") ("hi" "$B$R(B") ("hu" "$B$U(B") ("he" "$B$X(B") ("ho" "$B$[(B") ("hya" "$B$R$c(B") ("hyu" "$B$R$e(B") ("hye" "$B$R$'(B") ("hyo" "$B$R$g(B"))) (its-defrule (car h) (cadr h)) (its-defrule (concat "h" (car h)) (concat "$B$C(B" (cadr h)))) (its-defoutput "hh" "$B$C(Bh") (its-defoutput "hhy" "$B$C(Bhy") (dolist (f '(("fa" "$B$U$!(B") ("fi" "$B$U$#(B") ("fu" "$B$U(B") ("fe" "$B$U$'(B") ("fo" "$B$U$)(B"))) (its-defrule (car f) (cadr f)) (its-defrule (concat "f" (car f)) (concat "$B$C(B" (cadr f)))) (its-defoutput "ff" "$B$C(Bf") (dolist (r '(("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B") ("rya" "$B$j$c(B") ("ryu" "$B$j$e(B") ("rye" "$B$j$'(B") ("ryo" "$B$j$g(B"))) (its-defrule (car r) (cadr r)) (its-defrule (concat "r" (car r)) (concat "$B$C(B" (cadr r)))) (its-defoutput "rr" "$B$C(Br") (its-defoutput "rry" "$B$C(Bry") (dolist (l '(("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") ("lo" "$B$m(B") ("lya" "$B$j$c(B") ("lyu" "$B$j$e(B") ("lye" "$B$j$'(B") ("lyo" "$B$j$g(B"))) (its-defrule (car l) (cadr l)) (its-defrule (concat "l" (car l)) (concat "$B$C(B" (cadr l)))) (its-defoutput "ll" "$B$C(Bl") (its-defoutput "lly" "$B$C(Bly") (dolist (g '(("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B") ("gya" "$B$.$c(B") ("gyu" "$B$.$e(B") ("gye" "$B$.$'(B") ("gyo" "$B$.$g(B"))) (its-defrule (car g) (cadr g)) (its-defrule (concat "g" (car g)) (concat "$B$C(B" (cadr g)))) (its-defoutput "gg" "$B$C(Bg") (its-defoutput "ggy" "$B$C(Bgy") (dolist (z '(("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") ("zo" "$B$>(B") ("zya" "$B$8$c(B") ("zyu" "$B$8$e(B") ("zye" "$B$8$'(B") ("zyo" "$B$8$g(B"))) (its-defrule (car z) (cadr z)) (its-defrule (concat "z" (car z)) (concat "$B$C(B" (cadr z)))) (its-defoutput "zz" "$B$C(Bz") (its-defoutput "zzy" "$B$C(Bzy") (dolist (j '(("ja" "$B$8$c(B") ("ji" "$B$8(B") ("ju" "$B$8$e(B") ("je" "$B$8$'(B") ("jo" "$B$8$g(B") ("jya" "$B$8$c(B") ("jyu" "$B$8$e(B") ("jye" "$B$8$'(B") ("jyo" "$B$8$g(B"))) (its-defrule (car j) (cadr j)) (its-defrule (concat "j" (car j)) (concat "$B$C(B" (cadr j)))) (its-defoutput "jj" "$B$C(Bj") (its-defoutput "jjy" "$B$C(Bjy") (dolist (d '(("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B") ("dya" "$B$B$c(B") ("dyi" "$B$G$#(B") ("dyu" "$B$B$e(B") ("dye" "$B$B$'(B") ("dyo" "$B$B$g(B"))) (its-defrule (car d) (cadr d)) (its-defrule (concat "d" (car d)) (concat "$B$C(B" (cadr d)))) (its-defoutput "dd" "$B$C(Bd") (its-defoutput "ddy" "$B$C(Bdy") (dolist (b '(("ba" "$B$P(B") ("bi" "$B$S(B") ("bu" "$B$V(B") ("be" "$B$Y(B") ("bo" "$B$\(B") ("bya" "$B$S$c(B") ("byu" "$B$S$e(B") ("bye" "$B$S$'(B") ("byo" "$B$S$g(B"))) (its-defrule (car b) (cadr b)) (its-defrule (concat "b" (car b)) (concat "$B$C(B" (cadr b)))) (its-defoutput "bb" "$B$C(Bb") (its-defoutput "bby" "$B$C(Bby") (dolist (p '(("pa" "$B$Q(B") ("pi" "$B$T(B") ("pu" "$B$W(B") ("pe" "$B$Z(B") ("po" "$B$](B") ("pya" "$B$T$c(B") ("pyu" "$B$T$e(B") ("pye" "$B$T$'(B") ("pyo" "$B$T$g(B"))) (its-defrule (car p) (cadr p)) (its-defrule (concat "p" (car p)) (concat "$B$C(B" (cadr p)))) (its-defoutput "pp" "$B$C(Bp") (its-defoutput "ppy" "$B$C(Bpy") (dolist (v '(("va" "$B%t$!(B") ("vi" "$B%t$#(B") ("vu" "$B%t(B") ("ve" "$B%t$'(B") ("vo" "$B%t$)(B"))) (its-defrule (car v) (cadr v)) (its-defrule (concat "v" (car v)) (concat "$B$C(B" (cadr v)))) (its-defoutput "vv" "$B$C(Bv") (its-defrule "ma" "$B$^(B") (its-defrule "mi" "$B$_(B") (its-defrule "mu" "$B$`(B") (its-defrule "me" "$B$a(B") (its-defrule "mo" "$B$b(B") (its-defrule "mya" "$B$_$c(B") (its-defrule "myu" "$B$_$e(B") (its-defrule "mye" "$B$_$'(B") (its-defrule "myo" "$B$_$g(B") (its-defrule "ya" "$B$d(B") (its-defrule "yi" "$B$$(B") (its-defrule "yu" "$B$f(B") (its-defrule "yo" "$B$h(B") (its-defrule "ye" "$B$$$'(B") (its-defrule "wa" "$B$o(B") (its-defrule "wi" "$B$p(B") (its-defrule "wu" "$B$&(B") (its-defrule "we" "$B$q(B") (its-defrule "wo" "$B$r(B") (its-defrule "kwa" "$B$/$n(B") (its-defrule "kwi" "$B$/$#(B") (its-defrule "kwu" "$B$/(B") (its-defrule "kwe" "$B$/$'(B") (its-defrule "kwo" "$B$/$)(B") (its-defrule "gwa" "$B$0$n(B") (its-defrule "gwi" "$B$0$#(B") (its-defrule "gwu" "$B$0(B") (its-defrule "gwe" "$B$0$'(B") (its-defrule "gwo" "$B$0$)(B") (its-defrule "tsa" "$B$D$!(B") (its-defrule "tsi" "$B$D$#(B") (its-defrule "tse" "$B$D$'(B") (its-defrule "tso" "$B$D$)(B") (its-defrule "na" "$B$J(B") (its-defrule "ni" "$B$K(B") (its-defrule "nu" "$B$L(B") (its-defrule "ne" "$B$M(B") (its-defrule "no" "$B$N(B") (its-defrule "nya" "$B$K$c(B") (its-defrule "nyu" "$B$K$e(B") (its-defrule "nye" "$B$K$'(B") (its-defrule "nyo" "$B$K$g(B") (its-defrule "xka" "$B%u(B") (its-defrule "xke" "$B%v(B") (its-defrule "xti" "$B$F$#(B") (its-defrule "xdi" "$B$G$#(B") (its-defrule "xdu" "$B$I$%(B") (its-defrule "xde" "$B$G$'(B") (its-defrule "xdo" "$B$I$)(B") (its-defrule "xwi" "$B$&$#(B") (its-defrule "xwe" "$B$&$'(B") (its-defrule "xwo" "$B$&$)(B") ;;; ;;; Zenkaku inputs ;;; (its-defrule (concat its-zenkaku-escape "0") "$B#0(B") (its-defrule (concat its-zenkaku-escape "1") "$B#1(B") (its-defrule (concat its-zenkaku-escape "2") "$B#2(B") (its-defrule (concat its-zenkaku-escape "3") "$B#3(B") (its-defrule (concat its-zenkaku-escape "4") "$B#4(B") (its-defrule (concat its-zenkaku-escape "5") "$B#5(B") (its-defrule (concat its-zenkaku-escape "6") "$B#6(B") (its-defrule (concat its-zenkaku-escape "7") "$B#7(B") (its-defrule (concat its-zenkaku-escape "8") "$B#8(B") (its-defrule (concat its-zenkaku-escape "9") "$B#9(B") (its-defrule (concat its-zenkaku-escape "A") "$B#A(B") (its-defrule (concat its-zenkaku-escape "B") "$B#B(B") (its-defrule (concat its-zenkaku-escape "C") "$B#C(B") (its-defrule (concat its-zenkaku-escape "D") "$B#D(B") (its-defrule (concat its-zenkaku-escape "E") "$B#E(B") (its-defrule (concat its-zenkaku-escape "F") "$B#F(B") (its-defrule (concat its-zenkaku-escape "G") "$B#G(B") (its-defrule (concat its-zenkaku-escape "H") "$B#H(B") (its-defrule (concat its-zenkaku-escape "I") "$B#I(B") (its-defrule (concat its-zenkaku-escape "J") "$B#J(B") (its-defrule (concat its-zenkaku-escape "K") "$B#K(B") (its-defrule (concat its-zenkaku-escape "L") "$B#L(B") (its-defrule (concat its-zenkaku-escape "M") "$B#M(B") (its-defrule (concat its-zenkaku-escape "N") "$B#N(B") (its-defrule (concat its-zenkaku-escape "O") "$B#O(B") (its-defrule (concat its-zenkaku-escape "P") "$B#P(B") (its-defrule (concat its-zenkaku-escape "Q") "$B#Q(B") (its-defrule (concat its-zenkaku-escape "R") "$B#R(B") (its-defrule (concat its-zenkaku-escape "S") "$B#S(B") (its-defrule (concat its-zenkaku-escape "T") "$B#T(B") (its-defrule (concat its-zenkaku-escape "U") "$B#U(B") (its-defrule (concat its-zenkaku-escape "V") "$B#V(B") (its-defrule (concat its-zenkaku-escape "W") "$B#W(B") (its-defrule (concat its-zenkaku-escape "X") "$B#X(B") (its-defrule (concat its-zenkaku-escape "Y") "$B#Y(B") (its-defrule (concat its-zenkaku-escape "Z") "$B#Z(B") (its-defrule (concat its-zenkaku-escape "a") "$B#a(B") (its-defrule (concat its-zenkaku-escape "b") "$B#b(B") (its-defrule (concat its-zenkaku-escape "c") "$B#c(B") (its-defrule (concat its-zenkaku-escape "d") "$B#d(B") (its-defrule (concat its-zenkaku-escape "e") "$B#e(B") (its-defrule (concat its-zenkaku-escape "f") "$B#f(B") (its-defrule (concat its-zenkaku-escape "g") "$B#g(B") (its-defrule (concat its-zenkaku-escape "h") "$B#h(B") (its-defrule (concat its-zenkaku-escape "i") "$B#i(B") (its-defrule (concat its-zenkaku-escape "j") "$B#j(B") (its-defrule (concat its-zenkaku-escape "k") "$B#k(B") (its-defrule (concat its-zenkaku-escape "l") "$B#l(B") (its-defrule (concat its-zenkaku-escape "m") "$B#m(B") (its-defrule (concat its-zenkaku-escape "n") "$B#n(B") (its-defrule (concat its-zenkaku-escape "o") "$B#o(B") (its-defrule (concat its-zenkaku-escape "p") "$B#p(B") (its-defrule (concat its-zenkaku-escape "q") "$B#q(B") (its-defrule (concat its-zenkaku-escape "r") "$B#r(B") (its-defrule (concat its-zenkaku-escape "s") "$B#s(B") (its-defrule (concat its-zenkaku-escape "t") "$B#t(B") (its-defrule (concat its-zenkaku-escape "u") "$B#u(B") (its-defrule (concat its-zenkaku-escape "v") "$B#v(B") (its-defrule (concat its-zenkaku-escape "w") "$B#w(B") (its-defrule (concat its-zenkaku-escape "x") "$B#x(B") (its-defrule (concat its-zenkaku-escape "y") "$B#y(B") (its-defrule (concat its-zenkaku-escape "z") "$B#z(B") (its-defrule (concat its-zenkaku-escape " ") "$B!!(B") (its-defrule (concat its-zenkaku-escape "!") "$B!*(B") (its-defrule (concat its-zenkaku-escape "@") "$B!w(B") (its-defrule (concat its-zenkaku-escape "#") "$B!t(B") (its-defrule (concat its-zenkaku-escape "$") "$B!p(B") (its-defrule (concat its-zenkaku-escape "%") "$B!s(B") (its-defrule (concat its-zenkaku-escape "^") "$B!0(B") (its-defrule (concat its-zenkaku-escape "&") "$B!u(B") (its-defrule (concat its-zenkaku-escape "*") "$B!v(B") (its-defrule (concat its-zenkaku-escape "(") "$B!J(B") (its-defrule (concat its-zenkaku-escape ")") "$B!K(B") (its-defrule (concat its-zenkaku-escape "-") "$B!](B") (its-defrule (concat its-zenkaku-escape "=") "$B!a(B") (its-defrule (concat its-zenkaku-escape "`") "$B!.(B") (its-defrule (concat its-zenkaku-escape "\\") "$B!o(B") (its-defrule (concat its-zenkaku-escape "|") "$B!C(B") (its-defrule (concat its-zenkaku-escape "_") "$B!2(B") (its-defrule (concat its-zenkaku-escape "+") "$B!\(B") (its-defrule (concat its-zenkaku-escape "~") "$B!1(B") (its-defrule (concat its-zenkaku-escape "[") "$B!N(B") (its-defrule (concat its-zenkaku-escape "]") "$B!O(B") (its-defrule (concat its-zenkaku-escape "{") "$B!P(B") (its-defrule (concat its-zenkaku-escape "}") "$B!Q(B") (its-defrule (concat its-zenkaku-escape ":") "$B!'(B") (its-defrule (concat its-zenkaku-escape ";") "$B!((B") (its-defrule (concat its-zenkaku-escape "\"") "$B!I(B") (its-defrule (concat its-zenkaku-escape "'") "$B!G(B") (its-defrule (concat its-zenkaku-escape "<") "$B!c(B") (its-defrule (concat its-zenkaku-escape ">") "$B!d(B") (its-defrule (concat its-zenkaku-escape "?") "$B!)(B") (its-defrule (concat its-zenkaku-escape "/") "$B!?(B") (its-defrule (concat its-zenkaku-escape ",") "$B!$(B") (its-defrule (concat its-zenkaku-escape ".") "$B!%(B") ;;; ;;; Hankaku inputs ;;; (dolist (digit '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" )) (its-defrule (concat its-hankaku-escape digit) digit)) (dolist (symbol '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")" "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}" ":" ";" "\"" "'" "<" ">" "?" "/" "," "." )) (its-defrule (concat its-hankaku-escape symbol) symbol)) (dolist (downcase '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")) (its-defrule (concat its-hankaku-escape downcase) downcase)) (dolist (upcase '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z")) (its-defrule (concat its-hankaku-escape upcase) upcase)) ;; SYMBOL Input (its-defrule "z1" "$B!{(B") (its-defrule "z!" "$B!|(B") (its-defrule "z2" "$B"&(B") (its-defrule "z@" "$B"'(B") (its-defrule "z3" "$B"$(B") (its-defrule "z#" "$B"%(B") (its-defrule "z4" "$B""(B") (its-defrule "z$" "$B"#(B") (its-defrule "z5" "$B!~(B") (its-defrule "z%" "$B"!(B") (its-defrule "z6" "$B!y(B") (its-defrule "z^" "$B!z(B") (its-defrule "z7" "$B!}(B") (its-defrule "z&" "$B!r(B") (its-defrule "z8" "$B!q(B") (its-defrule "z*" "$B!_(B") (its-defrule "z9" "$B!i(B") (its-defrule "z(" "$B!Z(B") (its-defrule "z0" "$B!j(B") (its-defrule "z)" "$B![(B") (its-defrule "z-" "$B!A(B") (its-defrule "z_" "$B!h(B") (its-defrule "z=" "$B!b(B") (its-defrule "z+" "$B!^(B") (its-defrule "z\\" "$B!@(B") (its-defrule "z|" "$B!B(B") (its-defrule "z`" "$B!-(B") (its-defrule "z~" "$B!/(B") (its-defrule "zq" "$B!T(B") (its-defrule "zQ" "$B!R(B") (its-defrule "zw" "$B!U(B") (its-defrule "zW" "$B!S(B") ; e (its-defrule "zr" "$B!9(B") (its-defrule "zR" "$B!8(B") (its-defrule "zt" "$B!:(B") (its-defrule "zT" "$B!x(B") ; y u i o (its-defrule "zp" "$B")(B") (its-defrule "zP" "$B",(B") (its-defrule "z[" "$B!X(B") (its-defrule "z{" "$B!L(B") (its-defrule "z]" "$B!Y(B") (its-defrule "z}" "$B!M(B") ; a (its-defrule "zs" "$B!3(B") (its-defrule "zS" "$B!4(B") (its-defrule "zd" "$B!5(B") (its-defrule "zD" "$B!6(B") (its-defrule "zf" "$B!7(B") (its-defrule "zF" "$B"*(B") (its-defrule "zg" "$B!>(B") (its-defrule "zG" "$B!=(B") (its-defrule "zh" "$B"+(B") (its-defrule "zj" "$B"-(B") (its-defrule "zk" "$B",(B") (its-defrule "zl" "$B"*(B") (its-defrule "z;" "$B!+(B") (its-defrule "z:" "$B!,(B") (its-defrule "z\'" "$B!F(B") (its-defrule "z\"" "$B!H(B") ; z (its-defrule "zx" ":-") (its-defrule "zX" ":-)") (its-defrule "zc" "$B!;(B") (its-defrule "zC" "$B!n(B") (its-defrule "zv" "$B"((B") (its-defrule "zV" "$B!`(B") (its-defrule "zb" "$B!k(B") (its-defrule "zB" "$B"+(B") (its-defrule "zn" "$B!l(B") (its-defrule "zN" "$B"-(B") (its-defrule "zm" "$B!m(B") (its-defrule "zM" "$B".(B") (its-defrule "z," "$B!E(B") (its-defrule "z<" "$B!e(B") (its-defrule "z." "$B!D(B") (its-defrule "z>" "$B!f(B") (its-defrule "z/" "$B!&(B") (its-defrule "z?" "$B!g(B") ) (define-its-state-machine-append its-hira-map (if its-hira-enable-double-n (its-defrule "nn" "$B$s(B")) (its-defrule "-" its-hira-horizontal) (its-defrule "[" its-hira-open-bracket) (its-defrule "]" its-hira-close-bracket) (its-defrule "." its-hira-period) (its-defrule "," its-hira-comma) (if its-hira-enable-zenkaku-alphabet (progn (its-defrule "1" "$B#1(B") (its-defrule "2" "$B#2(B") (its-defrule "3" "$B#3(B") (its-defrule "4" "$B#4(B") (its-defrule "5" "$B#5(B") (its-defrule "6" "$B#6(B") (its-defrule "7" "$B#7(B") (its-defrule "8" "$B#8(B") (its-defrule "9" "$B#9(B") (its-defrule "0" "$B#0(B") (its-defrule "!" "$B!*(B") (its-defrule "@" "$B!w(B") (its-defrule "#" "$B!t(B") (its-defrule "$" "$B!p(B") (its-defrule "%" "$B!s(B") (its-defrule "^" "$B!0(B") (its-defrule "&" "$B!u(B") (its-defrule "*" "$B!v(B") (its-defrule "(" "$B!J(B") (its-defrule ")" "$B!K(B") (its-defrule "=" "$B!a(B") (its-defrule "`" "$B!.(B") (its-defrule "\\" "$B!o(B") (its-defrule "|" "$B!C(B") (its-defrule "_" "$B!2(B") (its-defrule "+" "$B!\(B") (its-defrule "{" "$B!P(B") (its-defrule "}" "$B!Q(B") (its-defrule ":" "$B!'(B") (its-defrule ";" "$B!((B") (its-defrule "\"" "$B!I(B") (its-defrule "'" "$B!G(B") (its-defrule "<" "$B!c(B") (its-defrule ">" "$B!d(B") (its-defrule "?" "$B!)(B") (its-defrule "/" "$B!?(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "!" "!") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule ":" ":") (its-defrule ";" ";") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">") (its-defrule "?" "?") (its-defrule "/" "/"))) ) (provide 'its/hira) ;;; its/hira.el ends here. egg-4.0.6+0.20041122cvs/its/jeonkak.el0000644000764400003210000001327307234614431020224 0ustar ishikawaishikawa00000000000000;;; its/jeonkak.el --- Jeonkak ASCII Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its)) (define-its-state-machine its-jeonkak-up-map "jeonkak-upcase" "$(C#A(B" Korean "Map for jeonkak-upcase input." (dolist (ascii '(("1" . "$(C#1(B") ("2" . "$(C#2(B") ("3" . "$(C#3(B") ("4" . "$(C#4(B") ("5" . "$(C#5(B") ("6" . "$(C#6(B") ("7" . "$(C#7(B") ("8" . "$(C#8(B") ("9" . "$(C#9(B") ("0" . "$(C#0(B") (" " . "$(C!!(B") ("!" . "$(C#!(B") ("@" . "$(C#@(B") ("#" . "$(C##(B") ("$" . "$(C#$(B") ("%" . "$(C#%(B") ("^" . "$(C#^(B") ("&" . "$(C#&(B") ("*" . "$(C#*(B") ("(" . "$(C#((B") (")" . "$(C#)(B") ("-" . "$(C#-(B") ("=" . "$(C#=(B") ("`" . "$(C#`(B") ("\\" . "$(C#\(B") ("|" . "$(C#|(B") ("_" . "$(C#_(B") ("+" . "$(C#+(B") ("~" . "$(C#~(B") ("[" . "$(C!8(B") ("]" . "$(C!9(B") ("{" . "$(C#{(B") ("}" . "$(C#}(B") (":" . "$(C#:(B") (";" . "$(C#;(B") ("\"" . "$(C#"(B") ("'" . "$(C#'(B") ("<" . "$(C#<(B") (">" . "$(C#>(B") ("?" . "$(C#?(B") ("/" . "$(C#/(B") ("," . "$(C#,(B") ("." . "$(C#.(B") ("a" . "$(C#A(B") ("b" . "$(C#B(B") ("c" . "$(C#C(B") ("d" . "$(C#D(B") ("e" . "$(C#E(B") ("f" . "$(C#F(B") ("g" . "$(C#G(B") ("h" . "$(C#H(B") ("i" . "$(C#I(B") ("j" . "$(C#J(B") ("k" . "$(C#K(B") ("l" . "$(C#L(B") ("m" . "$(C#M(B") ("n" . "$(C#N(B") ("o" . "$(C#O(B") ("p" . "$(C#P(B") ("q" . "$(C#Q(B") ("r" . "$(C#R(B") ("s" . "$(C#S(B") ("t" . "$(C#T(B") ("u" . "$(C#U(B") ("v" . "$(C#V(B") ("w" . "$(C#W(B") ("x" . "$(C#X(B") ("y" . "$(C#Y(B") ("z" . "$(C#Z(B") ("A" . "$(C#A(B") ("B" . "$(C#B(B") ("C" . "$(C#C(B") ("D" . "$(C#D(B") ("E" . "$(C#E(B") ("F" . "$(C#F(B") ("G" . "$(C#G(B") ("H" . "$(C#H(B") ("I" . "$(C#I(B") ("J" . "$(C#J(B") ("K" . "$(C#K(B") ("L" . "$(C#L(B") ("M" . "$(C#M(B") ("N" . "$(C#N(B") ("O" . "$(C#O(B") ("P" . "$(C#P(B") ("Q" . "$(C#Q(B") ("R" . "$(C#R(B") ("S" . "$(C#S(B") ("T" . "$(C#T(B") ("U" . "$(C#U(B") ("V" . "$(C#V(B") ("W" . "$(C#W(B") ("X" . "$(C#X(B") ("Y" . "$(C#Y(B") ("Z" . "$(C#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-jeonkak-up-map) (define-its-state-machine its-jeonkak-down-map "jeonkak-downcase" "$(C#a(B" Korean "Map for jeonkak-downcase input." (dolist (ascii '(("1" . "$(C#1(B") ("2" . "$(C#2(B") ("3" . "$(C#3(B") ("4" . "$(C#4(B") ("5" . "$(C#5(B") ("6" . "$(C#6(B") ("7" . "$(C#7(B") ("8" . "$(C#8(B") ("9" . "$(C#9(B") ("0" . "$(C#0(B") (" " . "$(C!!(B") ("!" . "$(C#!(B") ("@" . "$(C#@(B") ("#" . "$(C##(B") ("$" . "$(C#$(B") ("%" . "$(C#%(B") ("^" . "$(C#^(B") ("&" . "$(C#&(B") ("*" . "$(C#*(B") ("(" . "$(C#((B") (")" . "$(C#)(B") ("-" . "$(C#-(B") ("=" . "$(C#=(B") ("`" . "$(C#`(B") ("\\" . "$(C#\(B") ("|" . "$(C#|(B") ("_" . "$(C#_(B") ("+" . "$(C#+(B") ("~" . "$(C#~(B") ("[" . "$(C!8(B") ("]" . "$(C!9(B") ("{" . "$(C#{(B") ("}" . "$(C#}(B") (":" . "$(C#:(B") (";" . "$(C#;(B") ("\"" . "$(C#"(B") ("'" . "$(C#'(B") ("<" . "$(C#<(B") (">" . "$(C#>(B") ("?" . "$(C#?(B") ("/" . "$(C#/(B") ("," . "$(C#,(B") ("." . "$(C#.(B") ("a" . "$(C#a(B") ("b" . "$(C#b(B") ("c" . "$(C#c(B") ("d" . "$(C#d(B") ("e" . "$(C#e(B") ("f" . "$(C#f(B") ("g" . "$(C#g(B") ("h" . "$(C#h(B") ("i" . "$(C#i(B") ("j" . "$(C#j(B") ("k" . "$(C#k(B") ("l" . "$(C#l(B") ("m" . "$(C#m(B") ("n" . "$(C#n(B") ("o" . "$(C#o(B") ("p" . "$(C#p(B") ("q" . "$(C#q(B") ("r" . "$(C#r(B") ("s" . "$(C#s(B") ("t" . "$(C#t(B") ("u" . "$(C#u(B") ("v" . "$(C#v(B") ("w" . "$(C#w(B") ("x" . "$(C#x(B") ("y" . "$(C#y(B") ("z" . "$(C#z(B") ("A" . "$(C#A(B") ("B" . "$(C#B(B") ("C" . "$(C#C(B") ("D" . "$(C#D(B") ("E" . "$(C#E(B") ("F" . "$(C#F(B") ("G" . "$(C#G(B") ("H" . "$(C#H(B") ("I" . "$(C#I(B") ("J" . "$(C#J(B") ("K" . "$(C#K(B") ("L" . "$(C#L(B") ("M" . "$(C#M(B") ("N" . "$(C#N(B") ("O" . "$(C#O(B") ("P" . "$(C#P(B") ("Q" . "$(C#Q(B") ("R" . "$(C#R(B") ("S" . "$(C#S(B") ("T" . "$(C#T(B") ("U" . "$(C#U(B") ("V" . "$(C#V(B") ("W" . "$(C#W(B") ("X" . "$(C#X(B") ("Y" . "$(C#Y(B") ("Z" . "$(C#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-jeonkak-down-map) (provide 'its/jeonkak) egg-4.0.6+0.20041122cvs/its/kata.el0000644000764400003210000005464007234613544017531 0ustar ishikawaishikawa00000000000000;;; its/kata.el --- Katakana Input in Egg Input Method Architecture ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Author: Satoru Tomura ;; Maintainer: TOMURA Satoru ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; ;; Symbol input is desined by jiro@math.keio.ac.jp (TANAKA Jiro) ;; This file is based on the rules of its/hira.el in Mule-2.3 distribution. ;; ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-kata-enable-zenkaku-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Zenkaku alphabet") (defvar its-kata-enable-double-n nil "*Enable \"nn\" input for \"$B%s(B\" ") (defvar its-kata-period "$B!#(B" "*$B%T%j%*%I(B") ; ". " "$B!%(B" (defvar its-kata-comma "$B!"(B" "*$B%3%s%^(B") ; ", " "$B!$(B" (defvar its-kata-open-bracket "$B!V(B" "*[") ; "$B!N(B" (defvar its-kata-close-bracket "$B!W(B" "*]") ; "$B!O(B" (defvar its-kata-horizontal "$B!<(B" "*-") ; "$B!](B" (define-its-state-machine its-kata-map "roma-kata" "$B%"(B" Japanese "Map for Romaji-Katakana translation. (Japanese)" (defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs (defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs (its-defrule-select-mode-temporally "q" downcase) (its-defrule-select-mode-temporally "Q" zenkaku-downcase) ;;; k k ;;; kk $B%C(Bk ;;; kka $B%C%+(B ;;; ;;; kkk $B%C(Bk DING! (its-defrule "tch" "$B%C(B" -2) ;;; $B!V%s!W$NF~NO(B (dolist (q1 '("b" "m" "p")) (its-defrule (concat "m" q1) "$B%s(B" -1)) (its-defrule* "n" "$B%s(B") (its-defrule "n'" "$B%s(B") (its-defrule "N" "$B%s(B") (let ((small '"x" )) (its-defrule (concat small "a") "$B%!(B") (its-defrule (concat small "i") "$B%#(B") (its-defrule (concat small "u") "$B%%(B") (its-defrule (concat small "e") "$B%'(B") (its-defrule (concat small "o") "$B%)(B") (its-defrule (concat small "ya") "$B%c(B") (its-defrule (concat small "yu") "$B%e(B") (its-defrule (concat small "yo") "$B%g(B") (its-defrule (concat small "tu") "$B%C(B") (its-defrule (concat small "tsu") "$B%C(B") (its-defrule (concat small "wa") "$B%n(B") ) (its-defrule "a" "$B%"(B") (its-defrule "i" "$B%$(B") (its-defrule "u" "$B%&(B") (its-defrule "e" "$B%((B") (its-defrule "o" "$B%*(B") (dolist (k '(("ka" "$B%+(B") ("ki" "$B%-(B") ("ku" "$B%/(B") ("ke" "$B%1(B") ("ko" "$B%3(B") ("kya" "$B%-%c(B") ("kyu" "$B%-%e(B") ("kye" "$B%-%'(B") ("kyo" "$B%-%g(B"))) (its-defrule (car k) (cadr k)) (its-defrule (concat "k" (car k)) (concat "$B%C(B" (cadr k)))) (its-defoutput "kk" "$B%C(Bk") (its-defoutput "kky" "$B%C(Bky") (dolist (s '(("sa" "$B%5(B") ("si" "$B%7(B") ("su" "$B%9(B") ("se" "$B%;(B") ("so" "$B%=(B") ("sya" "$B%7%c(B") ("syu" "$B%7%e(B") ("sye" "$B%7%'(B") ("syo" "$B%7%g(B") ("sha" "$B%7%c(B") ("shi" "$B%7(B") ("shu" "$B%7%e(B") ("she" "$B%7%'(B") ("sho" "$B%7%g(B"))) (its-defrule (car s) (cadr s)) (its-defrule (concat "s" (car s)) (concat "$B%C(B" (cadr s)))) (its-defoutput "ss" "$B%C(Bs") (its-defoutput "ssy" "$B%C(Bsy") (its-defoutput "ssh" "$B%C(Bsh") (dolist (T '(("ta" "$B%?(B") ("ti" "$B%A(B") ("tu" "$B%D(B") ("te" "$B%F(B") ("to" "$B%H(B") ("tya" "$B%A%c(B") ("tyi" "$B%F%#(B") ("tyu" "$B%A%e(B") ("tye" "$B%A%'(B") ("tyo" "$B%A%g(B") ("tsu" "$B%D(B"))) (its-defrule (car T) (cadr T)) (its-defrule (concat "t" (car T)) (concat "$B%C(B" (cadr T)))) (its-defoutput "tt" "$B%C(Bt") (its-defoutput "tty" "$B%C(Bty") (its-defoutput "tts" "$B%C(Bts") (dolist (c '(("cha" "$B%A%c(B") ("chi" "$B%A(B") ("chu" "$B%A%e(B") ("che" "$B%A%'(B") ("cho" "$B%A%g(B"))) (its-defrule (car c) (cadr c)) (its-defrule (concat "c" (car c)) (concat "$B%C(B" (cadr c)))) (its-defoutput "cc" "$B%C(Bc") (its-defoutput "cch" "$B%C(Bch") (dolist (h '(("ha" "$B%O(B") ("hi" "$B%R(B") ("hu" "$B%U(B") ("he" "$B%X(B") ("ho" "$B%[(B") ("hya" "$B%R%c(B") ("hyu" "$B%R%e(B") ("hye" "$B%R%'(B") ("hyo" "$B%R%g(B"))) (its-defrule (car h) (cadr h)) (its-defrule (concat "h" (car h)) (concat "$B%C(B" (cadr h)))) (its-defoutput "hh" "$B%C(Bh") (its-defoutput "hhy" "$B%C(Bhy") (dolist (f '(("fa" "$B%U%!(B") ("fi" "$B%U%#(B") ("fu" "$B%U(B") ("fe" "$B%U%'(B") ("fo" "$B%U%)(B"))) (its-defrule (car f) (cadr f)) (its-defrule (concat "f" (car f)) (concat "$B%C(B" (cadr f)))) (its-defoutput "ff" "$B%C(Bf") (dolist (r '(("ra" "$B%i(B") ("ri" "$B%j(B") ("ru" "$B%k(B") ("re" "$B%l(B") ("ro" "$B%m(B") ("rya" "$B%j%c(B") ("ryu" "$B%j%e(B") ("rye" "$B%j%'(B") ("ryo" "$B%j%g(B"))) (its-defrule (car r) (cadr r)) (its-defrule (concat "r" (car r)) (concat "$B%C(B" (cadr r)))) (its-defoutput "rr" "$B%C(Br") (its-defoutput "rry" "$B%C(Bry") (dolist (l '(("la" "$B%i(B") ("li" "$B%j(B") ("lu" "$B%k(B") ("le" "$B%l(B") ("lo" "$B%m(B") ("lya" "$B%j%c(B") ("lyu" "$B%j%e(B") ("lye" "$B%j%'(B") ("lyo" "$B%j%g(B"))) (its-defrule (car l) (cadr l)) (its-defrule (concat "l" (car l)) (concat "$B%C(B" (cadr l)))) (its-defoutput "ll" "$B%C(Bl") (its-defoutput "lly" "$B%C(Bly") (dolist (g '(("ga" "$B%,(B") ("gi" "$B%.(B") ("gu" "$B%0(B") ("ge" "$B%2(B") ("go" "$B%4(B") ("gya" "$B%.%c(B") ("gyu" "$B%.%e(B") ("gye" "$B%.%'(B") ("gyo" "$B%.%g(B"))) (its-defrule (car g) (cadr g)) (its-defrule (concat "g" (car g)) (concat "$B%C(B" (cadr g)))) (its-defoutput "gg" "$B%C(Bg") (its-defoutput "ggy" "$B%C(Bgy") (dolist (z '(("za" "$B%6(B") ("zi" "$B%8(B") ("zu" "$B%:(B") ("ze" "$B%<(B") ("zo" "$B%>(B") ("zya" "$B%8%c(B") ("zyu" "$B%8%e(B") ("zye" "$B%8%'(B") ("zyo" "$B%8%g(B"))) (its-defrule (car z) (cadr z)) (its-defrule (concat "z" (car z)) (concat "$B%C(B" (cadr z)))) (its-defoutput "zz" "$B%C(Bz") (its-defoutput "zzy" "$B%C(Bzy") (dolist (j '(("ja" "$B%8%c(B") ("ji" "$B%8(B") ("ju" "$B%8%e(B") ("je" "$B%8%'(B") ("jo" "$B%8%g(B") ("jya" "$B%8%c(B") ("jyu" "$B%8%e(B") ("jye" "$B%8%'(B") ("jyo" "$B%8%g(B"))) (its-defrule (car j) (cadr j)) (its-defrule (concat "j" (car j)) (concat "$B%C(B" (cadr j)))) (its-defoutput "jj" "$B%C(Bj") (its-defoutput "jjy" "$B%C(Bjy") (dolist (d '(("da" "$B%@(B") ("di" "$B%B(B") ("du" "$B%E(B") ("de" "$B%G(B") ("do" "$B%I(B") ("dya" "$B%B%c(B") ("dyi" "$B%G%#(B") ("dyu" "$B%B%e(B") ("dye" "$B%B%'(B") ("dyo" "$B%B%g(B"))) (its-defrule (car d) (cadr d)) (its-defrule (concat "d" (car d)) (concat "$B%C(B" (cadr d)))) (its-defoutput "dd" "$B%C(Bd") (its-defoutput "ddy" "$B%C(Bdy") (dolist (b '(("ba" "$B%P(B") ("bi" "$B%S(B") ("bu" "$B%V(B") ("be" "$B%Y(B") ("bo" "$B%\(B") ("bya" "$B%S%c(B") ("byu" "$B%S%e(B") ("bye" "$B%S%'(B") ("byo" "$B%S%g(B"))) (its-defrule (car b) (cadr b)) (its-defrule (concat "b" (car b)) (concat "$B%C(B" (cadr b)))) (its-defoutput "bb" "$B%C(Bb") (its-defoutput "bby" "$B%C(Bby") (dolist (p '(("pa" "$B%Q(B") ("pi" "$B%T(B") ("pu" "$B%W(B") ("pe" "$B%Z(B") ("po" "$B%](B") ("pya" "$B%T%c(B") ("pyu" "$B%T%e(B") ("pye" "$B%T%'(B") ("pyo" "$B%T%g(B"))) (its-defrule (car p) (cadr p)) (its-defrule (concat "p" (car p)) (concat "$B%C(B" (cadr p)))) (its-defoutput "pp" "$B%C(Bp") (its-defoutput "ppy" "$B%C(Bpy") (dolist (v '(("va" "$B%t%!(B") ("vi" "$B%t%#(B") ("vu" "$B%t(B") ("ve" "$B%t%'(B") ("vo" "$B%t%)(B"))) (its-defrule (car v) (cadr v)) (its-defrule (concat "v" (car v)) (concat "$B%C(B" (cadr v)))) (its-defoutput "vv" "$B%C(Bv") (its-defrule "ma" "$B%^(B") (its-defrule "mi" "$B%_(B") (its-defrule "mu" "$B%`(B") (its-defrule "me" "$B%a(B") (its-defrule "mo" "$B%b(B") (its-defrule "mya" "$B%_%c(B") (its-defrule "myu" "$B%_%e(B") (its-defrule "mye" "$B%_%'(B") (its-defrule "myo" "$B%_%g(B") (its-defrule "ya" "$B%d(B") (its-defrule "yi" "$B%$(B") (its-defrule "yu" "$B%f(B") (its-defrule "yo" "$B%h(B") (its-defrule "ye" "$B%$%'(B") (its-defrule "wa" "$B%o(B") (its-defrule "wi" "$B%p(B") (its-defrule "wu" "$B%&(B") (its-defrule "we" "$B%q(B") (its-defrule "wo" "$B%r(B") (its-defrule "kwa" "$B%/%n(B") (its-defrule "kwi" "$B%/%#(B") (its-defrule "kwu" "$B%/(B") (its-defrule "kwe" "$B%/%'(B") (its-defrule "kwo" "$B%/%)(B") (its-defrule "gwa" "$B%0%n(B") (its-defrule "gwi" "$B%0%#(B") (its-defrule "gwu" "$B%0(B") (its-defrule "gwe" "$B%0%'(B") (its-defrule "gwo" "$B%0%)(B") (its-defrule "tsa" "$B%D%!(B") (its-defrule "tsi" "$B%D%#(B") (its-defrule "tse" "$B%D%'(B") (its-defrule "tso" "$B%D%)(B") (its-defrule "na" "$B%J(B") (its-defrule "ni" "$B%K(B") (its-defrule "nu" "$B%L(B") (its-defrule "ne" "$B%M(B") (its-defrule "no" "$B%N(B") (its-defrule "nya" "$B%K%c(B") (its-defrule "nyu" "$B%K%e(B") (its-defrule "nye" "$B%K%'(B") (its-defrule "nyo" "$B%K%g(B") (its-defrule "xka" "$B%u(B") (its-defrule "xke" "$B%v(B") (its-defrule "xti" "$B%F%#(B") (its-defrule "xdi" "$B%G%#(B") (its-defrule "xdu" "$B%I%%(B") (its-defrule "xde" "$B%G%'(B") (its-defrule "xdo" "$B%I%)(B") (its-defrule "xwi" "$B%&%#(B") (its-defrule "xwe" "$B%&%'(B") (its-defrule "xwo" "$B%&%)(B") ;;; ;;; Zenkaku inputs ;;; (its-defrule (concat its-zenkaku-escape "0") "$B#0(B") (its-defrule (concat its-zenkaku-escape "1") "$B#1(B") (its-defrule (concat its-zenkaku-escape "2") "$B#2(B") (its-defrule (concat its-zenkaku-escape "3") "$B#3(B") (its-defrule (concat its-zenkaku-escape "4") "$B#4(B") (its-defrule (concat its-zenkaku-escape "5") "$B#5(B") (its-defrule (concat its-zenkaku-escape "6") "$B#6(B") (its-defrule (concat its-zenkaku-escape "7") "$B#7(B") (its-defrule (concat its-zenkaku-escape "8") "$B#8(B") (its-defrule (concat its-zenkaku-escape "9") "$B#9(B") (its-defrule (concat its-zenkaku-escape "A") "$B#A(B") (its-defrule (concat its-zenkaku-escape "B") "$B#B(B") (its-defrule (concat its-zenkaku-escape "C") "$B#C(B") (its-defrule (concat its-zenkaku-escape "D") "$B#D(B") (its-defrule (concat its-zenkaku-escape "E") "$B#E(B") (its-defrule (concat its-zenkaku-escape "F") "$B#F(B") (its-defrule (concat its-zenkaku-escape "G") "$B#G(B") (its-defrule (concat its-zenkaku-escape "H") "$B#H(B") (its-defrule (concat its-zenkaku-escape "I") "$B#I(B") (its-defrule (concat its-zenkaku-escape "J") "$B#J(B") (its-defrule (concat its-zenkaku-escape "K") "$B#K(B") (its-defrule (concat its-zenkaku-escape "L") "$B#L(B") (its-defrule (concat its-zenkaku-escape "M") "$B#M(B") (its-defrule (concat its-zenkaku-escape "N") "$B#N(B") (its-defrule (concat its-zenkaku-escape "O") "$B#O(B") (its-defrule (concat its-zenkaku-escape "P") "$B#P(B") (its-defrule (concat its-zenkaku-escape "Q") "$B#Q(B") (its-defrule (concat its-zenkaku-escape "R") "$B#R(B") (its-defrule (concat its-zenkaku-escape "S") "$B#S(B") (its-defrule (concat its-zenkaku-escape "T") "$B#T(B") (its-defrule (concat its-zenkaku-escape "U") "$B#U(B") (its-defrule (concat its-zenkaku-escape "V") "$B#V(B") (its-defrule (concat its-zenkaku-escape "W") "$B#W(B") (its-defrule (concat its-zenkaku-escape "X") "$B#X(B") (its-defrule (concat its-zenkaku-escape "Y") "$B#Y(B") (its-defrule (concat its-zenkaku-escape "Z") "$B#Z(B") (its-defrule (concat its-zenkaku-escape "a") "$B#a(B") (its-defrule (concat its-zenkaku-escape "b") "$B#b(B") (its-defrule (concat its-zenkaku-escape "c") "$B#c(B") (its-defrule (concat its-zenkaku-escape "d") "$B#d(B") (its-defrule (concat its-zenkaku-escape "e") "$B#e(B") (its-defrule (concat its-zenkaku-escape "f") "$B#f(B") (its-defrule (concat its-zenkaku-escape "g") "$B#g(B") (its-defrule (concat its-zenkaku-escape "h") "$B#h(B") (its-defrule (concat its-zenkaku-escape "i") "$B#i(B") (its-defrule (concat its-zenkaku-escape "j") "$B#j(B") (its-defrule (concat its-zenkaku-escape "k") "$B#k(B") (its-defrule (concat its-zenkaku-escape "l") "$B#l(B") (its-defrule (concat its-zenkaku-escape "m") "$B#m(B") (its-defrule (concat its-zenkaku-escape "n") "$B#n(B") (its-defrule (concat its-zenkaku-escape "o") "$B#o(B") (its-defrule (concat its-zenkaku-escape "p") "$B#p(B") (its-defrule (concat its-zenkaku-escape "q") "$B#q(B") (its-defrule (concat its-zenkaku-escape "r") "$B#r(B") (its-defrule (concat its-zenkaku-escape "s") "$B#s(B") (its-defrule (concat its-zenkaku-escape "t") "$B#t(B") (its-defrule (concat its-zenkaku-escape "u") "$B#u(B") (its-defrule (concat its-zenkaku-escape "v") "$B#v(B") (its-defrule (concat its-zenkaku-escape "w") "$B#w(B") (its-defrule (concat its-zenkaku-escape "x") "$B#x(B") (its-defrule (concat its-zenkaku-escape "y") "$B#y(B") (its-defrule (concat its-zenkaku-escape "z") "$B#z(B") (its-defrule (concat its-zenkaku-escape " ") "$B!!(B") (its-defrule (concat its-zenkaku-escape "!") "$B!*(B") (its-defrule (concat its-zenkaku-escape "@") "$B!w(B") (its-defrule (concat its-zenkaku-escape "#") "$B!t(B") (its-defrule (concat its-zenkaku-escape "$") "$B!p(B") (its-defrule (concat its-zenkaku-escape "%") "$B!s(B") (its-defrule (concat its-zenkaku-escape "^") "$B!0(B") (its-defrule (concat its-zenkaku-escape "&") "$B!u(B") (its-defrule (concat its-zenkaku-escape "*") "$B!v(B") (its-defrule (concat its-zenkaku-escape "(") "$B!J(B") (its-defrule (concat its-zenkaku-escape ")") "$B!K(B") (its-defrule (concat its-zenkaku-escape "-") "$B!](B") (its-defrule (concat its-zenkaku-escape "=") "$B!a(B") (its-defrule (concat its-zenkaku-escape "`") "$B!.(B") (its-defrule (concat its-zenkaku-escape "\\") "$B!o(B") (its-defrule (concat its-zenkaku-escape "|") "$B!C(B") (its-defrule (concat its-zenkaku-escape "_") "$B!2(B") (its-defrule (concat its-zenkaku-escape "+") "$B!\(B") (its-defrule (concat its-zenkaku-escape "~") "$B!1(B") (its-defrule (concat its-zenkaku-escape "[") "$B!N(B") (its-defrule (concat its-zenkaku-escape "]") "$B!O(B") (its-defrule (concat its-zenkaku-escape "{") "$B!P(B") (its-defrule (concat its-zenkaku-escape "}") "$B!Q(B") (its-defrule (concat its-zenkaku-escape ":") "$B!'(B") (its-defrule (concat its-zenkaku-escape ";") "$B!((B") (its-defrule (concat its-zenkaku-escape "\"") "$B!I(B") (its-defrule (concat its-zenkaku-escape "'") "$B!G(B") (its-defrule (concat its-zenkaku-escape "<") "$B!c(B") (its-defrule (concat its-zenkaku-escape ">") "$B!d(B") (its-defrule (concat its-zenkaku-escape "?") "$B!)(B") (its-defrule (concat its-zenkaku-escape "/") "$B!?(B") (its-defrule (concat its-zenkaku-escape ",") "$B!$(B") (its-defrule (concat its-zenkaku-escape ".") "$B!%(B") ;;; ;;; Hankaku inputs ;;; (dolist (digit '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" )) (its-defrule (concat its-hankaku-escape digit) digit)) (dolist (symbol '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")" "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}" ":" ";" "\"" "'" "<" ">" "?" "/" "," "." )) (its-defrule (concat its-hankaku-escape symbol) symbol)) (dolist (downcase '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")) (its-defrule (concat its-hankaku-escape downcase) downcase)) (dolist (upcase '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z")) (its-defrule (concat its-hankaku-escape upcase) upcase)) ;; SYMBOL Input (its-defrule "z1" "$B!{(B") (its-defrule "z!" "$B!|(B") (its-defrule "z2" "$B"&(B") (its-defrule "z@" "$B"'(B") (its-defrule "z3" "$B"$(B") (its-defrule "z#" "$B"%(B") (its-defrule "z4" "$B""(B") (its-defrule "z$" "$B"#(B") (its-defrule "z5" "$B!~(B") (its-defrule "z%" "$B"!(B") (its-defrule "z6" "$B!y(B") (its-defrule "z^" "$B!z(B") (its-defrule "z7" "$B!}(B") (its-defrule "z&" "$B!r(B") (its-defrule "z8" "$B!q(B") (its-defrule "z*" "$B!_(B") (its-defrule "z9" "$B!i(B") (its-defrule "z(" "$B!Z(B") (its-defrule "z0" "$B!j(B") (its-defrule "z)" "$B![(B") (its-defrule "z-" "$B!A(B") (its-defrule "z_" "$B!h(B") (its-defrule "z=" "$B!b(B") (its-defrule "z+" "$B!^(B") (its-defrule "z\\" "$B!@(B") (its-defrule "z|" "$B!B(B") (its-defrule "z`" "$B!-(B") (its-defrule "z~" "$B!/(B") (its-defrule "zq" "$B!T(B") (its-defrule "zQ" "$B!R(B") (its-defrule "zw" "$B!U(B") (its-defrule "zW" "$B!S(B") ; e (its-defrule "zr" "$B!9(B") (its-defrule "zR" "$B!8(B") (its-defrule "zt" "$B!:(B") (its-defrule "zT" "$B!x(B") ; y u i o (its-defrule "zp" "$B")(B") (its-defrule "zP" "$B",(B") (its-defrule "z[" "$B!X(B") (its-defrule "z{" "$B!L(B") (its-defrule "z]" "$B!Y(B") (its-defrule "z}" "$B!M(B") ; a (its-defrule "zs" "$B!3(B") (its-defrule "zS" "$B!4(B") (its-defrule "zd" "$B!5(B") (its-defrule "zD" "$B!6(B") (its-defrule "zf" "$B!7(B") (its-defrule "zF" "$B"*(B") (its-defrule "zg" "$B!>(B") (its-defrule "zG" "$B!=(B") (its-defrule "zh" "$B"+(B") (its-defrule "zj" "$B"-(B") (its-defrule "zk" "$B",(B") (its-defrule "zl" "$B"*(B") (its-defrule "z;" "$B!+(B") (its-defrule "z:" "$B!,(B") (its-defrule "z\'" "$B!F(B") (its-defrule "z\"" "$B!H(B") ; z (its-defrule "zx" ":-") (its-defrule "zX" ":-)") (its-defrule "zc" "$B!;(B") (its-defrule "zC" "$B!n(B") (its-defrule "zv" "$B"((B") (its-defrule "zV" "$B!`(B") (its-defrule "zb" "$B!k(B") (its-defrule "zB" "$B"+(B") (its-defrule "zn" "$B!l(B") (its-defrule "zN" "$B"-(B") (its-defrule "zm" "$B!m(B") (its-defrule "zM" "$B".(B") (its-defrule "z," "$B!E(B") (its-defrule "z<" "$B!e(B") (its-defrule "z." "$B!D(B") (its-defrule "z>" "$B!f(B") (its-defrule "z/" "$B!&(B") (its-defrule "z?" "$B!g(B") ) (define-its-state-machine-append its-kata-map (if its-kata-enable-double-n (its-defrule "nn" "$B%s(B")) (its-defrule "-" its-kata-horizontal) (its-defrule "[" its-kata-open-bracket) (its-defrule "]" its-kata-close-bracket) (its-defrule "." its-kata-period) (its-defrule "," its-kata-comma) (if its-kata-enable-zenkaku-alphabet (progn (its-defrule "1" "$B#1(B") (its-defrule "2" "$B#2(B") (its-defrule "3" "$B#3(B") (its-defrule "4" "$B#4(B") (its-defrule "5" "$B#5(B") (its-defrule "6" "$B#6(B") (its-defrule "7" "$B#7(B") (its-defrule "8" "$B#8(B") (its-defrule "9" "$B#9(B") (its-defrule "0" "$B#0(B") (its-defrule "!" "$B!*(B") (its-defrule "@" "$B!w(B") (its-defrule "#" "$B!t(B") (its-defrule "$" "$B!p(B") (its-defrule "%" "$B!s(B") (its-defrule "^" "$B!0(B") (its-defrule "&" "$B!u(B") (its-defrule "*" "$B!v(B") (its-defrule "(" "$B!J(B") (its-defrule ")" "$B!K(B") (its-defrule "=" "$B!a(B") (its-defrule "`" "$B!.(B") (its-defrule "\\" "$B!o(B") (its-defrule "|" "$B!C(B") (its-defrule "_" "$B!2(B") (its-defrule "+" "$B!\(B") (its-defrule "{" "$B!P(B") (its-defrule "}" "$B!Q(B") (its-defrule ":" "$B!'(B") (its-defrule ";" "$B!((B") (its-defrule "\"" "$B!I(B") (its-defrule "'" "$B!G(B") (its-defrule "<" "$B!c(B") (its-defrule ">" "$B!d(B") (its-defrule "?" "$B!)(B") (its-defrule "/" "$B!?(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "!" "!") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule ":" ":") (its-defrule ";" ";") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">") (its-defrule "?" "?") (its-defrule "/" "/"))) ) (provide 'its/kata) ;;; its/kata.el ends here. egg-4.0.6+0.20041122cvs/its/pinyin.el0000644000764400003210000005041007517100125020074 0ustar ishikawaishikawa00000000000000;;; its/pinyin.el --- Pinyin Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-pinyin-cn-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-pinyin-cn-open-braket "$A!8(B" "*[") ; "$A#[(B" (defvar its-pinyin-cn-close-braket "$A!9(B" "*]") ; "$A#](B" (defvar its-pinyin-tw-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-pinyin-tw-open-braket "$(G!V(B" "*[") ; "$(G!b(B " (defvar its-pinyin-tw-close-braket "$(G!W(B" "*]") ; "$(G!c(B" (eval-when-compile (defun its-prev-terminal-state (state-list) (while (and state-list (null (its-get-next-state (car state-list) -1))) (setq state-list (cdr state-list))) (car state-list)) (defun its-define-qingsheng (shengmu yunmu &optional s y) (let ((input (concat shengmu yunmu)) (output (concat (if s s (capitalize shengmu)) (if y y yunmu) "(0@(B")) state term-state) (setq state (its-defrule* input output)) (its-make-next-state state ? output) (its-make-next-state state ?0 output) (setq term-state (its-prev-terminal-state its-parent-states)) (if term-state (let ((back (- (length (its-get-keyseq term-state)) (length input))) (output (its-get-output (its-get-next-state term-state -1))) (parents its-parent-states)) (while (null (eq (car parents) term-state)) (its-make-next-state (car parents) -1 output (1+ back)) (its-defrule-otherwise (car parents) output nil back) (setq back (1+ back) parents (cdr parents))))) state)) (defmacro its-do-sisheng-table (list) `(progn ,@(mapcar (lambda (syl) `(its-define-sisheng ,@syl)) list))) (defmacro its-define-sisheng (shengmu yunmu) `(let ((qing (nth 5 ,yunmu)) (y (car ,yunmu)) (ss (list ,@shengmu)) s cs state i) (while ss (setq s (car ss) ss (cdr ss) cs (capitalize s) state (its-define-qingsheng s y cs qing)) (its-make-next-state state ?1 (concat cs (nth 1 ,yunmu) "(0@(B")) (its-make-next-state state ?2 (concat cs (nth 2 ,yunmu) "(0@(B")) (its-make-next-state state ?3 (concat cs (nth 3 ,yunmu) "(0@(B")) (its-make-next-state state ?4 (concat cs (nth 4 ,yunmu) "(0@(B"))))) (defmacro its-define-pinyin-table () '(let ((- "") (B "b") (C "c") (D "d") (F "f") (G "g") (H "h") (J "j") (K "k") (L "l") (M "m") (N "n") (P "p") (Q "q") (R "r") (S "s") (T "t") (W "w") (X "x") (Y "y") (Z "z") (CH "ch") (SH "sh") (ZH "zh") (A '("a" "(0!(B" "(0"(B" "(0#(B" "(0$(B" "a" )) (AI '("ai" "(0!(Bi" "(0"(Bi" "(0#(Bi" "(0$(Bi" "ai" )) (AN '("an" "(0!(Bn" "(0"(Bn" "(0#(Bn" "(0$(Bn" "an" )) (ANG '("ang" "(0!(Bng" "(0"(Bng" "(0#(Bng" "(0$(Bng" "ang" )) (AO '("ao" "(0!(Bo" "(0"(Bo" "(0#(Bo" "(0$(Bo" "ao" )) (E '("e" "(0%(B" "(0&(B" "(0'(B" "(0((B" "e" )) (EI '("ei" "(0%(Bi" "(0&(Bi" "(0'(Bi" "(0((Bi" "ei" )) (EN '("en" "(0%(Bn" "(0&(Bn" "(0'(Bn" "(0((Bn" "en" )) (ENG '("eng" "(0%(Bng" "(0&(Bng" "(0'(Bng" "(0((Bng" "eng" )) (ER '("er" "(0%(Br" "(0&(Br" "(0'(Br" "(0((Br" "er" )) (I '("i" "(0)(B" "(0*(B" "(0+(B" "(0,(B" "i" )) (IA '("ia" "i(0!(B" "i(0"(B" "i(0#(B" "i(0$(B" "ia" )) (IAN '("ian" "i(0!(Bn" "i(0"(Bn" "i(0#(Bn" "i(0$(Bn" "ian" )) (IANG '("iang" "i(0!(Bng" "i(0"(Bng" "i(0#(Bng" "i(0$(Bng" "iang")) (IAO '("iao" "i(0!(Bo" "i(0"(Bo" "i(0#(Bo" "i(0$(Bo" "iao" )) (IE '("ie" "i(0%(B" "i(0&(B" "i(0'(B" "i(0((B" "ie" )) (IN '("in" "(0)(Bn" "(0*(Bn" "(0+(Bn" "(0,(Bn" "in" )) (ING '("ing" "(0)(Bng" "(0*(Bng" "(0+(Bng" "(0,(Bng" "ing" )) (IONG '("iong" "i(0-(Bng" "i(0.(Bng" "i(0/(Bng" "i(00(Bng" "iong")) (IU '("iu" "i(01(B" "i(02(B" "i(03(B" "i(04(B" "iu" )) (O '("o" "(0-(B" "(0.(B" "(0/(B" "(00(B" "o" )) (ONG '("ong" "(0-(Bng" "(0.(Bng" "(0/(Bng" "(00(Bng" "ong" )) (OU '("ou" "(0-(Bu" "(0.(Bu" "(0/(Bu" "(00(Bu" "ou" )) (U '("u" "(01(B" "(02(B" "(03(B" "(04(B" "u" )) (V '("v" "(05(B" "(06(B" "(07(B" "(08(B" "(09(B" )) (UA '("ua" "u(0!(B" "u(0"(B" "u(0#(B" "u(0$(B" "ua" )) (UAI '("uai" "u(0!(Bi" "u(0"(Bi" "u(0#(Bi" "u(0$(Bi" "uai" )) (UAN '("uan" "u(0!(Bn" "u(0"(Bn" "u(0#(Bn" "u(0$(Bn" "uan" )) (UANG '("uang" "u(0!(Bng" "u(0"(Bng" "u(0#(Bng" "u(0$(Bng" "uang")) (UE '("ue" "u(0%(B" "u(0&(B" "u(0'(B" "u(0((B" "ue" )) (VE '("ve" "(09%(B" "(09&(B" "(09'(B" "(09((B" "(09(Be" )) (UI '("ui" "u(0)(B" "u(0*(B" "u(0+(B" "u(0,(B" "ui" )) (UN '("un" "(01(Bn" "(02(Bn" "(03(Bn" "(04(Bn" "un" )) (UO '("uo" "u(0-(B" "u(0.(B" "u(0/(B" "u(00(B" "uo" ))) (its-define-qingsheng "hm" "") (its-define-qingsheng "hng" "") (its-defrule* "m" "m(0@(B") (its-defrule "m0" "m(0@(B") (its-defrule* "n" "n(0@(B") (its-defrule "n0" "n(0@(B") (its-defrule "n2" "(0=@(B") (its-defrule "n3" "(0>@(B") (its-defrule "n4" "(0?@(B") (its-define-qingsheng "" "ng") (its-do-sisheng-table (((- B C D F G H K L M N P S T W Y Z CH SH ZH ) A) ((- B C D G H K L M N P S T W Z CH SH ZH ) AI) ((- B C D F G H K L M N P R S T W Y Z CH SH ZH ) AN) ((- B C D F G H K L M N P R S T W Y Z CH SH ZH ) ANG) ((- B C D G H K L M N P R S T Y Z CH SH ZH ) AO) ((- C D G H K L M N R S T Y Z CH SH ZH ) E) ((- B C D F G H K L M N P T W Z SH ZH ) EI) ((- B C D F G H K M N P R S W Z CH SH ZH ) EN) ((- B C D F G H K L M N P R S T W Z CH SH ZH ) ENG) ((- ) ER) (( B C D J L M N P Q R S T X Y Z CH SH ZH ) I) (( D J L Q X ) IA) (( B D J L M N P Q T X ) IAN) (( J L N Q X ) IANG) (( B D J L M N P Q T X ) IAO) (( B D J L M N P Q T X ) IE) (( B J L M N P Q X Y ) IN) (( B D J L M N P Q T X Y ) ING) (( J Q X ) IONG) (( D J L M N Q X ) IU) ((- B F L M P W Y ) O) (( C D G H K L N R S T Y Z CH ZH ) ONG) ((- C D F G H K L M N P R S T Y Z CH SH ZH ) OU) (( B C D F G H J K L M N P Q R S T W X Y Z CH SH ZH ) U) (( L N ) V) (( G H K R CH SH ZH ) UA) (( G H K CH SH ZH ) UAI) (( C D G H J K L N Q R S T X Y Z CH SH ZH ) UAN) (( G H K CH SH ZH ) UANG) (( J Q X Y ) UE) (( L N ) VE) (( C D G H K R S T Z CH SH ZH ) UI) (( C D G H J K L Q R S T X Y Z CH SH ZH ) UN) (( C D G H K L N R S T Z CH SH ZH ) UO) ((J Q X) (cons "a" (cdr IA ))) ((J Q X) (cons "ai" (cdr IA ))) ((J Q X) (cons "an" (cdr IAN ))) ((J Q X) (cons "ang" (cdr IANG))) ((J Q X) (cons "ao" (cdr IAO ))) ((J Q X) (cons "e" (cdr IE ))) ((J Q X) (cons "ei" (cdr IE ))) ((J Q X) (cons "en" (cdr IN ))) ((J Q X) (cons "eng" (cdr ING ))) ((J Q X) (cons "ou" (cdr IU )))))))) (define-its-state-machine its-pinyin-cn-map "pinyin-cn" "$AF4(BG" Chinese-GB "Map for Pinyin input. (Chinese-GB)" (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (its-define-pinyin-table) (its-defrule "b " "$A2;(B") (its-defrule "c " "$A2E(B") (its-defrule "ch " "$A3v(B") (its-defrule "d " "$A5D(B") (its-defrule "f " "$A74(B") (its-defrule "g " "$A8v(B") (its-defrule "h " "$A:M(B") (its-defrule "i " "$AR;(B") (its-defrule "j " "$A>M(B") (its-defrule "k " "$A?I(B") (its-defrule "l " "$AAK(B") (its-defrule "m " "$AC?(B") (its-defrule "n " "$ADj(B") (its-defrule "p " "$AEz(B") (its-defrule "q " "$AH%(B") (its-defrule "r " "$AHU(B") (its-defrule "s " "$AJG(B") (its-defrule "sh " "$AIO(B") (its-defrule "t " "$AK{(B") (its-defrule "w " "$ANR(B") (its-defrule "x " "$AOr(B") (its-defrule "y " "$ASV(B") (its-defrule "z " "$ATZ(B") (its-defrule "zh " "$AWE(B") (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "," "$A#,(B") (its-defrule "." "$A!#(B") (its-defrule "/" "$A!"(B") (its-defrule ":" "$A#:(B") (its-defrule ";" "$A#;(B") (its-defrule "?" "$A#?(B") (its-defrule "!" "$A#!(B")) (define-its-state-machine its-pinyin-tw-map "pinyin-tw" "$(GQ;(BC" Chinese-CNS "Map for Pinyin input." (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-tw) (its-define-pinyin-table) (its-defrule "b " "$(GDb(B") (its-defrule "c " "$(GD_(B") (its-defrule "ch " "$(GEx(B") (its-defrule "d " "$(GN{(B") (its-defrule "f " "$(GE0(B") (its-defrule "g " "$(GT6(B") (its-defrule "h " "$(GLO(B") (its-defrule "i " "$(GD!(B") (its-defrule "j " "$(G^s(B") (its-defrule "k " "$(GF+(B") (its-defrule "l " "$(GD'(B") (its-defrule "m " "$(GJd(B") (its-defrule "n " "$(GH!(B") (its-defrule "p " "$(GJG(B") (its-defrule "q " "$(GF*(B") (its-defrule "r " "$(GEJ(B") (its-defrule "s " "$(GQR(B") (its-defrule "sh " "$(GD8(B") (its-defrule "t " "$(GEl(B") (its-defrule "w " "$(GJ<(B") (its-defrule "x " "$(GGW(B") (its-defrule "y " "$(GD4(B") (its-defrule "z " "$(GGc(B") (its-defrule "zh " "$(Gaa(B") (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") ("8" . "$(G$)(B") ("9" . "$(G$*(B") (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") ("-" . "$(G"1(B") ("=" . "$(G"8(B") ("`" . "$(G!j(B") ("\\" . "$(G"`(B") ("|" . "$(G"^(B") ("_" . "$(G"%(B") ("+" . "$(G"0(B") ("~" . "$(G"D(B") ("[" . "$(G!b(B") ("]" . "$(G!c(B") ("{" . "$(G!B(B") ("}" . "$(G!C(B") (":" . "$(G!((B") (";" . "$(G!'(B") ("\"" . "$(G!i(B") ("'" . "$(G!k(B") ("<" . "$(G"6(B") (">" . "$(G"7(B") ("?" . "$(G!)(B") ("/" . "$(G"_(B") ("," . "$(G!"(B") ("." . "$(G!%(B") ("a" . "$(G$[(B") ("b" . "$(G$\(B") ("c" . "$(G$](B") ("d" . "$(G$^(B") ("e" . "$(G$_(B") ("f" . "$(G$`(B") ("g" . "$(G$a(B") ("h" . "$(G$b(B") ("i" . "$(G$c(B") ("j" . "$(G$d(B") ("k" . "$(G$e(B") ("l" . "$(G$f(B") ("m" . "$(G$g(B") ("n" . "$(G$h(B") ("o" . "$(G$i(B") ("p" . "$(G$j(B") ("q" . "$(G$k(B") ("r" . "$(G$l(B") ("s" . "$(G$m(B") ("t" . "$(G$n(B") ("u" . "$(G$o(B") ("v" . "$(G$p(B") ("w" . "$(G$q(B") ("x" . "$(G$r(B") ("y" . "$(G$s(B") ("z" . "$(G$t(B") ("A" . "$(G$A(B") ("B" . "$(G$B(B") ("C" . "$(G$C(B") ("D" . "$(G$D(B") ("E" . "$(G$E(B") ("F" . "$(G$F(B") ("G" . "$(G$G(B") ("H" . "$(G$H(B") ("I" . "$(G$I(B") ("J" . "$(G$J(B") ("K" . "$(G$K(B") ("L" . "$(G$L(B") ("M" . "$(G$M(B") ("N" . "$(G$N(B") ("O" . "$(G$O(B") ("P" . "$(G$P(B") ("Q" . "$(G$Q(B") ("R" . "$(G$R(B") ("S" . "$(G$S(B") ("T" . "$(G$T(B") ("U" . "$(G$U(B") ("V" . "$(G$V(B") ("W" . "$(G$W(B") ("X" . "$(G$X(B") ("Y" . "$(G$Y(B") ("Z" . "$(G$Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "," "$(G!"(B") (its-defrule "." "$(G!$(B") (its-defrule "/" "$(G!#(B") (its-defrule ":" "$(G!((B") (its-defrule ";" "$(G!'(B") (its-defrule "?" "$(G!)(B") (its-defrule "!" "$(G!*(B")) (define-its-state-machine-append its-pinyin-cn-map (its-defrule "[" its-pinyin-cn-open-braket) (its-defrule "]" its-pinyin-cn-close-braket) (if its-pinyin-cn-enable-quanjioao-alphabet (progn (its-defrule "1" "$A#1(B") (its-defrule "2" "$A#2(B") (its-defrule "3" "$A#3(B") (its-defrule "4" "$A#4(B") (its-defrule "5" "$A#5(B") (its-defrule "6" "$A#6(B") (its-defrule "7" "$A#7(B") (its-defrule "8" "$A#8(B") (its-defrule "9" "$A#9(B") (its-defrule "0" "$A#0(B") (its-defrule "@" "$A#@(B") (its-defrule "#" "$A##(B") (its-defrule "$" "$A!g(B") (its-defrule "%" "$A#%(B") (its-defrule "^" "$A#^(B") (its-defrule "&" "$A#&(B") (its-defrule "*" "$A#*(B") (its-defrule "(" "$A#((B") (its-defrule ")" "$A#)(B") (its-defrule "-" "$A#-(B") (its-defrule "~" "$A!+(B") (its-defrule "=" "$A#=(B") (its-defrule "`" "$A#`(B") (its-defrule "\\" "$A#\(B") (its-defrule "|" "$A#|(B") (its-defrule "_" "$A#_(B") (its-defrule "+" "$A#+(B") (its-defrule "{" "$A#{(B") (its-defrule "}" "$A#}(B") (its-defrule "\"" "$A#"(B") (its-defrule "'" "$A#'(B") (its-defrule "<" "$A#<(B") (its-defrule ">" "$A#>(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "-" "-") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">")))) (define-its-state-machine-append its-pinyin-tw-map (its-defrule "[" its-pinyin-tw-open-braket) (its-defrule "]" its-pinyin-tw-close-braket) (if its-pinyin-tw-enable-quanjioao-alphabet (progn (its-defrule "1" "$(G$"(B") (its-defrule "2" "$(G$#(B") (its-defrule "3" "$(G$$(B") (its-defrule "4" "$(G$%(B") (its-defrule "5" "$(G$&(B") (its-defrule "6" "$(G$'(B") (its-defrule "7" "$(G$((B") (its-defrule "8" "$(G$)(B") (its-defrule "9" "$(G$*(B") (its-defrule "0" "$(G$!(B") (its-defrule "@" "$(G"i(B") (its-defrule "#" "$(G!l(B") (its-defrule "$" "$(G"c(B") (its-defrule "%" "$(G"h(B") (its-defrule "^" "$(G!T(B") (its-defrule "&" "$(G!m(B") (its-defrule "*" "$(G!n(B") (its-defrule "(" "$(G!>(B") (its-defrule ")" "$(G!?(B") (its-defrule "-" "$(G"1(B") (its-defrule "~" "$(G"D(B") (its-defrule "=" "$(G"8(B") (its-defrule "`" "$(G!j(B") (its-defrule "\\" "$(G"b(B") (its-defrule "|" "$(G"^(B") (its-defrule "_" "$(G"%(B") (its-defrule "+" "$(G"0(B") (its-defrule "{" "$(G!B(B") (its-defrule "}" "$(G!C(B") (its-defrule "\"" "$(G!i(B") (its-defrule "'" "$(G!k(B") (its-defrule "<" "$(G"6(B") (its-defrule ">" "$(G"7(B")) (progn (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "-" "-") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'") (its-defrule "<" "<") (its-defrule ">" ">")))) (provide 'its/pinyin) egg-4.0.6+0.20041122cvs/its/thai.el0000644000764400003210000001253607537216507017540 0ustar ishikawaishikawa00000000000000;;; its/thai.el --- Inputting Thai characters in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (eval-when-compile (defmacro define-its-thai-keymap (&rest rule) (let (input output type list) (while rule (setq input (car (car rule)) output (nth 1 (car rule)) type (nth 2 (car rule)) rule (cdr rule) list (cons `(its-defrule ,input ,output) list)) (if type (setq list (cons `(setq ,type (cons (cons ,input ,output) ,type)) list)))) `(let (consonant vowel tone) ,@list (its-thai-composit consonant vowel tone)))) (defun its-thai-composit (consonant vowel tone) (let (keyseq output) (while consonant (setq keyseq (car (car consonant)) output (cdr (car consonant)) consonant (cdr consonant)) (its-thai-add-vowel keyseq output vowel tone) (its-thai-add-tone keyseq output tone)))) (defun its-thai-add-vowel (keyseq output vowel tone) (let (next-keyseq next-output) (while vowel (setq next-keyseq (concat keyseq (car (car vowel))) next-output (concat output (cdr (car vowel))) vowel (cdr vowel)) (its-defrule next-keyseq (compose-string next-output)) (its-thai-add-tone next-keyseq next-output tone)))) (defun its-thai-add-tone (keyseq output tone) (let (next-keyseq next-output) (while tone (setq next-keyseq (concat keyseq (car (car tone))) next-output (concat output (cdr (car tone))) tone (cdr tone)) (its-defrule next-keyseq (compose-string next-output)))))) ;; Thai Kesmanee keyboard support. (define-its-state-machine its-thai-kesmanee-map "kesmanee" ",T!!(B" Thai "Map for Thai Kesmanee input method with TIS620 keyboard. (Thai)" (define-its-thai-keymap ("1" ",TE(B" consonant) ("!" "#") ("2" "/") ("@" ",Tq(B") ("3" "_") ("#" ",Tr(B") ("4" ",T@(B" consonant) ("$" ",Ts(B") ("5" ",T6(B" consonant) ("%" ",Tt(B") ("6" ",TX(B" vowel) ("^" ",TY(B" vowel) ("7" ",TV(B" vowel) ("&" "0,TQi(B1" vowel) ("8" ",T$(B" consonant) ("*" ",Tu(B") ("9" ",T5(B" consonant) ("(" ",Tv(B") ("0" ",T((B" consonant) (")" ",Tw(B") ("-" ",T"(B" consonant) ("_" ",Tx(B") ("=" ",T*(B" consonant) ("+" ",Ty(B") ("\\" ",T_(B") ("|" ",To(B") ("`" ",T#(B" consonant) ("~" ",T%(B" consonant) ("q" ",Tf(B") ("Q" ",Tp(B") ("w" ",Td(B") ("W" "\"") ("e" ",TS(B") ("E" ",T.(B" consonant) ("r" ",T>(B" consonant) ("R" ",T1(B" consonant) ("T" ",T8(B" consonant) ("t" ",TP(B") ("y" ",TQ(B" vowel) ("Y" ",Tm(B" tone) ("u" ",TU(B" vowel) ("U" ",Tj(B" tone) ("i" ",TC(B" consonant) ("I" ",T3(B" consonant) ("o" ",T9(B" consonant) ("O" ",TO(B") ("p" ",TB(B" consonant) ("P" ",T-(B" consonant) ("[" ",T:(B" consonant) ("{" ",T0(B" consonant) ("]" ",TE(B" consonant) ("}" ",") ("a" ",T?(B" consonant) ("A" ",TD(B") ("s" ",TK(B" consonant) ("S" ",T&(B" consonant) ("d" ",T!(B" consonant) ("D" ",T/(B" consonant) ("f" ",T4(B" consonant) ("F" ",Tb(B") ("g" ",T`(B") ("G" ",T,(B" consonant) ("h" ",Ti(B" tone) ("H" ",Tg(B" vowel) ("j" ",Th(B" tone) ("J" ",Tk(B" tone) ("k" ",TR(B") ("K" ",TI(B" consonant) ("l" ",TJ(B" consonant) ("L" ",TH(B" consonant) (";" ",TG(B" consonant) (":" ",T+(B" consonant) ("'" ",T'(B" consonant) ("\"" ",TF(B") ("z" ",T<(B" consonant) ("Z" "(") ("x" ",T;(B" consonant) ("X" ")") ("c" ",Ta(B") ("C" ",T)(B" consonant) ("v" ",TM(B" consonant) ("V" ",TN(B" consonant) ("b" ",TT(B" vowel) ("B" ",TZ(B" vowel) ("n" ",TW(B" vowel) ("N" ",Tl(B" tone) ("m" ",T7(B" consonant) ("M" ",Tn(B" vowel) ("," ",TA(B" consonant) ("<" ",T2(B" consonant) ("." ",Tc(B") (">" ",TL(B" consonant) ("/" ",T=(B" consonant) ("?" "?"))) (define-its-state-machine-append its-thai-kesmanee-map) (provide 'its/thai) ;;; its/thai.el ends here egg-4.0.6+0.20041122cvs/its/zenkaku.el0000644000764400003210000001277607234614431020261 0ustar ishikawaishikawa00000000000000;;; its/zenkau.el --- Zenkaku ASCII Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its)) (define-its-state-machine its-zenkaku-up-map "zenkaku-upcase" "$B#A(B" Japanese "Map for zenkaku-upcase input." (dolist (ascii '(("0" . "$B#0(B") ("1" . "$B#1(B") ("2" . "$B#2(B") ("3" . "$B#3(B") ("4" . "$B#4(B") ("5" . "$B#5(B") ("6" . "$B#6(B") ("7" . "$B#7(B") ("8" . "$B#8(B") ("9" . "$B#9(B") (" " . "$B!!(B") ("!" . "$B!*(B") ("@" . "$B!w(B") ("#" . "$B!t(B") ("$" . "$B!p(B") ("%" . "$B!s(B") ("^" . "$B!0(B") ("&" . "$B!u(B") ("*" . "$B!v(B") ("(" . "$B!J(B") (")" . "$B!K(B") ("-" . "$B!](B") ("=" . "$B!a(B") ("`" . "$B!.(B") ("\\" . "$B!@(B") ("|" . "$B!C(B") ("_" . "$B!2(B") ("+" . "$B!\(B") ("~" . "$B!A(B") ("[" . "$B!N(B") ("]" . "$B!O(B") ("{" . "$B!P(B") ("}" . "$B!Q(B") (":" . "$B!'(B") (";" . "$B!((B") ("\"" . "$B!I(B") ("'" . "$B!-(B") ("<" . "$B!c(B") (">" . "$B!d(B") ("?" . "$B!)(B") ("/" . "$B!?(B") ("," . "$B!$(B") ("." . "$B!%(B") ("a" . "$B#A(B") ("b" . "$B#B(B") ("c" . "$B#C(B") ("d" . "$B#D(B") ("e" . "$B#E(B") ("f" . "$B#F(B") ("g" . "$B#G(B") ("h" . "$B#H(B") ("i" . "$B#I(B") ("j" . "$B#J(B") ("k" . "$B#K(B") ("l" . "$B#L(B") ("m" . "$B#M(B") ("n" . "$B#N(B") ("o" . "$B#O(B") ("p" . "$B#P(B") ("q" . "$B#Q(B") ("r" . "$B#R(B") ("s" . "$B#S(B") ("t" . "$B#T(B") ("u" . "$B#U(B") ("v" . "$B#V(B") ("w" . "$B#W(B") ("x" . "$B#X(B") ("y" . "$B#Y(B") ("z" . "$B#Z(B") ("A" . "$B#A(B") ("B" . "$B#B(B") ("C" . "$B#C(B") ("D" . "$B#D(B") ("E" . "$B#E(B") ("F" . "$B#F(B") ("G" . "$B#G(B") ("H" . "$B#H(B") ("I" . "$B#I(B") ("J" . "$B#J(B") ("K" . "$B#K(B") ("L" . "$B#L(B") ("M" . "$B#M(B") ("N" . "$B#N(B") ("O" . "$B#O(B") ("P" . "$B#P(B") ("Q" . "$B#Q(B") ("R" . "$B#R(B") ("S" . "$B#S(B") ("T" . "$B#T(B") ("U" . "$B#U(B") ("V" . "$B#V(B") ("W" . "$B#W(B") ("X" . "$B#X(B") ("Y" . "$B#Y(B") ("Z" . "$B#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-zenkaku-up-map) (define-its-state-machine its-zenkaku-down-map "zenkaku-downcase" "$B#a(B" Japanese "Map for zenkaku-downcase input." (dolist (ascii '(("0" . "$B#0(B") ("1" . "$B#1(B") ("2" . "$B#2(B") ("3" . "$B#3(B") ("4" . "$B#4(B") ("5" . "$B#5(B") ("6" . "$B#6(B") ("7" . "$B#7(B") ("8" . "$B#8(B") ("9" . "$B#9(B") (" " . "$B!!(B") ("!" . "$B!*(B") ("@" . "$B!w(B") ("#" . "$B!t(B") ("$" . "$B!p(B") ("%" . "$B!s(B") ("^" . "$B!0(B") ("&" . "$B!u(B") ("*" . "$B!v(B") ("(" . "$B!J(B") (")" . "$B!K(B") ("-" . "$B!](B") ("=" . "$B!a(B") ("`" . "$B!.(B") ("\\" . "$B!@(B") ("|" . "$B!C(B") ("_" . "$B!2(B") ("+" . "$B!\(B") ("~" . "$B!A(B") ("[" . "$B!N(B") ("]" . "$B!O(B") ("{" . "$B!P(B") ("}" . "$B!Q(B") (":" . "$B!'(B") (";" . "$B!((B") ("\"" . "$B!I(B") ("'" . "$B!-(B") ("<" . "$B!c(B") (">" . "$B!d(B") ("?" . "$B!)(B") ("/" . "$B!?(B") ("," . "$B!$(B") ("." . "$B!%(B") ("a" . "$B#a(B") ("b" . "$B#b(B") ("c" . "$B#c(B") ("d" . "$B#d(B") ("e" . "$B#e(B") ("f" . "$B#f(B") ("g" . "$B#g(B") ("h" . "$B#h(B") ("i" . "$B#i(B") ("j" . "$B#j(B") ("k" . "$B#k(B") ("l" . "$B#l(B") ("m" . "$B#m(B") ("n" . "$B#n(B") ("o" . "$B#o(B") ("p" . "$B#p(B") ("q" . "$B#q(B") ("r" . "$B#r(B") ("s" . "$B#s(B") ("t" . "$B#t(B") ("u" . "$B#u(B") ("v" . "$B#v(B") ("w" . "$B#w(B") ("x" . "$B#x(B") ("y" . "$B#y(B") ("z" . "$B#z(B") ("A" . "$B#A(B") ("B" . "$B#B(B") ("C" . "$B#C(B") ("D" . "$B#D(B") ("E" . "$B#E(B") ("F" . "$B#F(B") ("G" . "$B#G(B") ("H" . "$B#H(B") ("I" . "$B#I(B") ("J" . "$B#J(B") ("K" . "$B#K(B") ("L" . "$B#L(B") ("M" . "$B#M(B") ("N" . "$B#N(B") ("O" . "$B#O(B") ("P" . "$B#P(B") ("Q" . "$B#Q(B") ("R" . "$B#R(B") ("S" . "$B#S(B") ("T" . "$B#T(B") ("U" . "$B#U(B") ("V" . "$B#V(B") ("W" . "$B#W(B") ("X" . "$B#X(B") ("Y" . "$B#Y(B") ("Z" . "$B#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule in out)))) (define-its-state-machine-append its-zenkaku-down-map) (provide 'its/zenkaku) egg-4.0.6+0.20041122cvs/its/zhuyin.el0000644000764400003210000003341707234614431020132 0ustar ishikawaishikawa00000000000000;;; its/zhuyin.el --- Zhuyin Input in Egg Input Method Architecture ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defvar its-zhuyin-cn-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-zhuyin-cn-open-braket "$A!8(B" "*[") ; "$A#[(B" (defvar its-zhuyin-cn-close-braket "$A!9(B" "*]") ; "$A#](B" (defvar its-zhuyin-tw-enable-quanjioao-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Quanjiao alphabet") (defvar its-zhuyin-tw-open-braket "$(G!V(B" "*[") ; "$(G!b(B " (defvar its-zhuyin-tw-close-braket "$(G!W(B" "*]") ; "$(G!c(B" (eval-when-compile (defmacro its-do-zhuyin-table (list) `(progn ,@(mapcar (lambda (syl) `(its-define-zhuyin ,@syl)) list))) (defmacro its-define-zhuyin (shengmu yunmu1 &optional yunmu2 qingsheng) `(let ((s (list ,@shengmu)) (yi (concat (car ,yunmu1) (car ,yunmu2))) (yo (concat (nth 1 ,yunmu1) (nth 1 ,yunmu2))) (tone ,(if qingsheng "(0A(B" "(0@(B")) in out out1 state) (while s (setq in (concat (car (car s)) yi) out (concat (nth 1 (car s)) yo) out1 (concat out tone) state (its-defrule* in out1 out) s (cdr s)) (its-defrule (concat in " ") out1) ,@(if (null qingsheng) '((its-make-next-state state ?1 (concat out "(0A(B")) (its-make-next-state state ?2 (concat out "(0B(B")) (its-make-next-state state ?3 (concat out "(0C(B")) (its-make-next-state state ?4 (concat out "(0D(B"))))))) (defmacro its-define-zhuyin-table () '(let ((- '("" "")) (B '("b" "(0E(B")) (P '("p" "(0F(B")) (M '("m" "(0G(B")) (F '("f" "(0H(B")) (D '("d" "(0I(B")) (T '("t" "(0J(B")) (N '("n" "(0K(B")) (L '("l" "(0L(B")) (G '("v" "(0M(B")) (K '("k" "(0N(B")) (H '("h" "(0O(B")) (J '("g" "(0P(B")) (Q '("7" "(0Q(B")) (X '("c" "(0R(B")) (ZH '("," "(0S(B")) (CH '("." "(0T(B")) (SH '("/" "(0U(B")) (R '("j" "(0V(B")) (Z '(";" "(0W(B")) (C '(":" "(0X(B")) (S '("s" "(0Y(B")) (A '("a" "(0Z(B")) (O '("o" "(0[(B")) (e '("r" "(0\(B")) (E '("w" "(0](B")) (AI '("i" "(0^(B")) (EI '("q" "(0_(B")) (AO '("z" "(0`(B")) (AN '("8" "(0b(B")) (EN '("9" "(0c(B")) (ANG '("0" "(0d(B")) (ENG '("-" "(0e(B")) (ER '("^" "(0f(B")) (OU '("y" "(0a(B")) (I '("e" "(0g(B")) (U '("x" "(0h(B")) (V '("u" "(0i(B"))) (its-define-zhuyin (- H) M nil t) (its-define-zhuyin (- H) '("@" "@") nil t) (its-define-zhuyin (- ) N nil t) (its-do-zhuyin-table ((( ZH CH SH R Z C S ) -) ((- B P M F D T N L G K H ZH CH SH Z C S ) A) ((- B P M F L ) O) ((- M D T N L G K H ZH CH SH R Z C S ) e) ((- B P M D T N L G K H ZH CH SH Z C S ) AI) ((- B P M F D T N L G K H ZH SH Z C ) EI) ((- B P M D T N L G K H ZH CH SH R Z C S ) AO) ((- B P M F D T N L G K H ZH CH SH R Z C S ) AN) ((- B P M F D N G K H ZH CH SH R Z C S ) EN) ((- B P M F D T N L G K H ZH CH SH R Z C S ) ANG) ((- B P M F D T N L G K H ZH CH SH R Z C S ) ENG) ((- ) ER) ((- P M F D T N L G K H ZH CH SH R Z C S ) OU) ((- B P M D T N L J Q X ) I) ((- D L J Q X ) I A) ((- ) I O) ((- B P M D T N L J Q X ) I E) ((- B P M D T N L J Q X ) I AO) ((- M D N L J Q X ) I OU) ((- B P M D T N L J Q X ) I AN) ((- B P M N L J Q X ) I EN) ((- N L J Q X ) I ANG) ((- B P M D T N L J Q X ) I ENG) ((- B P M F D T N L G K H ZH CH SH R Z C S ) U) ((- G K H ZH CH SH R ) U A) ((- D T N L G K H ZH CH SH R Z C S ) U O) ((- G K H ZH CH SH ) U AI) ((- D T G K H ZH CH SH R Z C S ) U EI) ((- D T N L G K H ZH CH SH R Z C S ) U AN) ((- D T L G K H ZH CH SH R Z C S ) U EN) ((- G K H ZH CH SH ) U ANG) ((- D T N L G K H ZH CH R Z C S ) U ENG) ((- N L J Q X ) V) ((- N L J Q X ) V E) ((- J Q X ) V AN) ((- J Q X ) V EN) ((- J Q X ) V ENG))) (mapcar (lambda (s) (its-defoutput (car s) (nth 1 s))) (list B P M F D T N L G K H J Q X)) (its-defrule (concat (car N) "2") (concat (nth 1 N) "(0B(B")) (its-defrule (concat (car N) "3") (concat (nth 1 N) "(0C(B")) (its-defrule (concat (car N) "4") (concat (nth 1 N) "(0D(B"))))) (define-its-state-machine its-zhuyin-cn-map "zhuyin-cn" "$AW"(BG" Chinese-GB "Map for Zhuyin input. (Chinese-GB)" (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn) (its-define-zhuyin-table) (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") ("8" . "$A#8(B") ("9" . "$A#9(B") (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") ("-" . "$A#-(B") ("=" . "$A#=(B") ("`" . "$A#`(B") ("\\" . "$A#\(B") ("|" . "$A#|(B") ("_" . "$A#_(B") ("+" . "$A#+(B") ("~" . "$A!+(B") ("[" . "$A#[(B") ("]" . "$A#](B") ("{" . "$A#{(B") ("}" . "$A#}(B") (":" . "$A#:(B") (";" . "$A#;(B") ("\"" . "$A#"(B") ("'" . "$A#'(B") ("<" . "$A#<(B") (">" . "$A#>(B") ("?" . "$A#?(B") ("/" . "$A#/(B") ("," . "$A#,(B") ("." . "$A#.(B") ("a" . "$A#a(B") ("b" . "$A#b(B") ("c" . "$A#c(B") ("d" . "$A#d(B") ("e" . "$A#e(B") ("f" . "$A#f(B") ("g" . "$A#g(B") ("h" . "$A#h(B") ("i" . "$A#i(B") ("j" . "$A#j(B") ("k" . "$A#k(B") ("l" . "$A#l(B") ("m" . "$A#m(B") ("n" . "$A#n(B") ("o" . "$A#o(B") ("p" . "$A#p(B") ("q" . "$A#q(B") ("r" . "$A#r(B") ("s" . "$A#s(B") ("t" . "$A#t(B") ("u" . "$A#u(B") ("v" . "$A#v(B") ("w" . "$A#w(B") ("x" . "$A#x(B") ("y" . "$A#y(B") ("z" . "$A#z(B") ("A" . "$A#A(B") ("B" . "$A#B(B") ("C" . "$A#C(B") ("D" . "$A#D(B") ("E" . "$A#E(B") ("F" . "$A#F(B") ("G" . "$A#G(B") ("H" . "$A#H(B") ("I" . "$A#I(B") ("J" . "$A#J(B") ("K" . "$A#K(B") ("L" . "$A#L(B") ("M" . "$A#M(B") ("N" . "$A#N(B") ("O" . "$A#O(B") ("P" . "$A#P(B") ("Q" . "$A#Q(B") ("R" . "$A#R(B") ("S" . "$A#S(B") ("T" . "$A#T(B") ("U" . "$A#U(B") ("V" . "$A#V(B") ("W" . "$A#W(B") ("X" . "$A#X(B") ("Y" . "$A#Y(B") ("Z" . "$A#Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "<" "$A#,(B") (its-defrule ">" "$A!#(B") (its-defrule "?" "$A!"(B")) (define-its-state-machine its-zhuyin-tw-map "zhuyin-tw" "$(GNC(BC" Chinese-CNS "Map for Zhuyin input." (defconst its-quanjiao-escape "Z") (defconst its-banjiao-escape "X") (its-defrule-select-mode-temporally "B" downcase) (its-defrule-select-mode-temporally "Q" quanjiao-downcase-tw) (its-define-zhuyin-table) (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") ("8" . "$(G$)(B") ("9" . "$(G$*(B") (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") ("-" . "$(G"1(B") ("=" . "$(G"8(B") ("`" . "$(G!j(B") ("\\" . "$(G"`(B") ("|" . "$(G"^(B") ("_" . "$(G"%(B") ("+" . "$(G"0(B") ("~" . "$(G"D(B") ("[" . "$(G!b(B") ("]" . "$(G!c(B") ("{" . "$(G!B(B") ("}" . "$(G!C(B") (":" . "$(G!((B") (";" . "$(G!'(B") ("\"" . "$(G!i(B") ("'" . "$(G!k(B") ("<" . "$(G"6(B") (">" . "$(G"7(B") ("?" . "$(G!)(B") ("/" . "$(G"_(B") ("," . "$(G!"(B") ("." . "$(G!%(B") ("a" . "$(G$[(B") ("b" . "$(G$\(B") ("c" . "$(G$](B") ("d" . "$(G$^(B") ("e" . "$(G$_(B") ("f" . "$(G$`(B") ("g" . "$(G$a(B") ("h" . "$(G$b(B") ("i" . "$(G$c(B") ("j" . "$(G$d(B") ("k" . "$(G$e(B") ("l" . "$(G$f(B") ("m" . "$(G$g(B") ("n" . "$(G$h(B") ("o" . "$(G$i(B") ("p" . "$(G$j(B") ("q" . "$(G$k(B") ("r" . "$(G$l(B") ("s" . "$(G$m(B") ("t" . "$(G$n(B") ("u" . "$(G$o(B") ("v" . "$(G$p(B") ("w" . "$(G$q(B") ("x" . "$(G$r(B") ("y" . "$(G$s(B") ("z" . "$(G$t(B") ("A" . "$(G$A(B") ("B" . "$(G$B(B") ("C" . "$(G$C(B") ("D" . "$(G$D(B") ("E" . "$(G$E(B") ("F" . "$(G$F(B") ("G" . "$(G$G(B") ("H" . "$(G$H(B") ("I" . "$(G$I(B") ("J" . "$(G$J(B") ("K" . "$(G$K(B") ("L" . "$(G$L(B") ("M" . "$(G$M(B") ("N" . "$(G$N(B") ("O" . "$(G$O(B") ("P" . "$(G$P(B") ("Q" . "$(G$Q(B") ("R" . "$(G$R(B") ("S" . "$(G$S(B") ("T" . "$(G$T(B") ("U" . "$(G$U(B") ("V" . "$(G$V(B") ("W" . "$(G$W(B") ("X" . "$(G$X(B") ("Y" . "$(G$Y(B") ("Z" . "$(G$Z(B"))) (let ((in (car ascii)) (out (cdr ascii))) (its-defrule (concat its-banjiao-escape in) in) (its-defrule (concat its-quanjiao-escape in) out))) (its-defrule "<" "$(G!"(B") (its-defrule ">" "$(G!$(B") (its-defrule "?" "$(G!#(B")) (define-its-state-machine-append its-zhuyin-cn-map (its-defrule "[" its-zhuyin-cn-open-braket) (its-defrule "]" its-zhuyin-cn-close-braket) (if its-zhuyin-cn-enable-quanjioao-alphabet (progn (its-defrule "#" "$A##(B") (its-defrule "$" "$A!g(B") (its-defrule "%" "$A#%(B") (its-defrule "&" "$A#&(B") (its-defrule "*" "$A#*(B") (its-defrule "(" "$A#((B") (its-defrule ")" "$A#)(B") (its-defrule "~" "$A!+(B") (its-defrule "=" "$A#=(B") (its-defrule "`" "$A#`(B") (its-defrule "\\" "$A#\(B") (its-defrule "|" "$A#|(B") (its-defrule "_" "$A#_(B") (its-defrule "+" "$A#+(B") (its-defrule "{" "$A#{(B") (its-defrule "}" "$A#}(B") (its-defrule "\"" "$A#"(B") (its-defrule "'" "$A#'(B")) (progn (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'")))) (define-its-state-machine-append its-zhuyin-tw-map (its-defrule "[" its-zhuyin-tw-open-braket) (its-defrule "]" its-zhuyin-tw-close-braket) (if its-zhuyin-tw-enable-quanjioao-alphabet (progn (its-defrule "#" "$(G!l(B") (its-defrule "$" "$(G"c(B") (its-defrule "%" "$(G"h(B") (its-defrule "&" "$(G!m(B") (its-defrule "*" "$(G!n(B") (its-defrule "(" "$(G!>(B") (its-defrule ")" "$(G!?(B") (its-defrule "~" "$(G"D(B") (its-defrule "=" "$(G"8(B") (its-defrule "`" "$(G!j(B") (its-defrule "\\" "$(G"`(B") (its-defrule "|" "$(G"^(B") (its-defrule "_" "$(G"%(B") (its-defrule "+" "$(G"0(B") (its-defrule "{" "$(G!B(B") (its-defrule "}" "$(G!C(B") (its-defrule "\"" "$(G!i(B") (its-defrule "'" "$(G!k(B")) (progn (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "~" "~") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "\\" "\\") (its-defrule "|" "|") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "\"" "\"") (its-defrule "'" "'")))) (provide 'its/zhuyin) egg-4.0.6+0.20041122cvs/its/greek.el0000644000764400003210000001627507340160703017700 0ustar ishikawaishikawa00000000000000(eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defgroup greek nil "Greek Input Method" :group 'its) (define-its-state-machine its-greek-jis-map "greek-jis" "$B&8(B" Greek "$B&%&K&K&G&M&I&J&A(B: Greek keyboard layout (JIS X0208.1983) The layout is same as greek, but uses JIS characters. Sorry, accents and terminal sigma are not supported in JIS." (its-defrule "1" "$B#1(B") (its-defrule "2" "$B#2(B") (its-defrule "3" "$B#3(B") (its-defrule "4" "$B#4(B") (its-defrule "5" "$B#5(B") (its-defrule "6" "$B#6(B") (its-defrule "7" "$B#7(B") (its-defrule "8" "$B#8(B") (its-defrule "9" "$B#9(B") (its-defrule "0" "$B#0(B") (its-defrule "-" "$B!](B") (its-defrule "=" "$B!a(B") (its-defrule "`" "$B!F(B") (its-defrule "q" "$B!&(B") (its-defrule "w" "$B&R(B") (its-defrule "e" "$B&E(B") (its-defrule "r" "$B&Q(B") (its-defrule "t" "$B&S(B") (its-defrule "y" "$B&T(B") (its-defrule "u" "$B&H(B") (its-defrule "i" "$B&I(B") (its-defrule "o" "$B&O(B") (its-defrule "p" "$B&P(B") (its-defrule "[" "$B!N(B") (its-defrule "]" "$B!O(B") (its-defrule "a" "$B&A(B") (its-defrule "s" "$B&R(B") (its-defrule "d" "$B&D(B") (its-defrule "f" "$B&U(B") (its-defrule "g" "$B&C(B") (its-defrule "h" "$B&G(B") (its-defrule "j" "$B&N(B") (its-defrule "k" "$B&J(B") (its-defrule "l" "$B&K(B") (its-defrule ";" "$B!G(B") (its-defrule "'" "$B!G(B") (its-defrule "\\" "$B!@(B") (its-defrule "z" "$B&F(B") (its-defrule "x" "$B&V(B") (its-defrule "c" "$B&W(B") (its-defrule "v" "$B&X(B") (its-defrule "b" "$B&B(B") (its-defrule "n" "$B&M(B") (its-defrule "m" "$B&L(B") (its-defrule "," ", ") (its-defrule "." ". ") (its-defrule "/" "$B!?(B") (its-defrule "!" "$B!*(B") (its-defrule "@" "$B!w(B") (its-defrule "#" "$B!t(B") (its-defrule "$" "$B!t(B") (its-defrule "%" "$B!s(B") (its-defrule "^" "$B!0(B") (its-defrule "&" "$B!u(B") (its-defrule "*" "$B!v(B") (its-defrule "(" "$B!J(B") (its-defrule ")" "$B!K(B") (its-defrule "_" "$B!2(B") (its-defrule "+" "$B!\(B") (its-defrule "~" "$B!1(B") (its-defrule "Q" "$B!](B") (its-defrule "W" "$B&2(B") (its-defrule "E" "$B&%(B") (its-defrule "R" "$B&1(B") (its-defrule "T" "$B&3(B") (its-defrule "Y" "$B&4(B") (its-defrule "U" "$B&((B") (its-defrule "I" "$B&)(B") (its-defrule "O" "$B&/(B") (its-defrule "P" "$B&1(B") (its-defrule "{" "$B!P(B") (its-defrule "}" "$B!Q(B") (its-defrule "A" "$B&!(B") (its-defrule "S" "$B&2(B") (its-defrule "D" "$B&$(B") (its-defrule "F" "$B&5(B") (its-defrule "G" "$B&#(B") (its-defrule "H" "$B&'(B") (its-defrule "J" "$B&.(B") (its-defrule "K" "$B&*(B") (its-defrule "L" "$B&+(B") (its-defrule ":" "$B!I(B") (its-defrule "\"" "$B!I(B") (its-defrule "|" "$B!C(B") (its-defrule "Z" "$B&&(B") (its-defrule "X" "$B&6(B") (its-defrule "C" "$B&7(B") (its-defrule "V" "$B&8(B") (its-defrule "B" "$B&"(B") (its-defrule "N" "$B&-(B") (its-defrule "M" "$B&,(B") (its-defrule "<" "$B!((B") (its-defrule ">" "$B!'(B") (its-defrule "?" "$B!)(B")) (define-its-state-machine its-greek-map "greek" ",FY(B" Greek ",FEkkgmij\(B: Greek keyboard layout (ISO 8859-7) -------------- In the right of ,Fk(B key is a combination key, where ,F4(B acute ,F((B diaresis e.g. ,Fa(B + ,F4(B -> ,F\(B ,Fi(B + ,F((B -> ,Fz(B ,Fi(B + ,F((B + ,F4(B -> ,F@(B" ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ ;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]} ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \| ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /? (its-defrule "1" "1") (its-defrule "2" "2") (its-defrule "3" "3") (its-defrule "4" "4") (its-defrule "5" "5") (its-defrule "6" "6") (its-defrule "7" "7") (its-defrule "8" "8") (its-defrule "9" "9") (its-defrule "0" "0") (its-defrule "-" "-") (its-defrule "=" "=") (its-defrule "`" "`") (its-defrule "q" ",F7(B") (its-defrule "w" ",Fr(B") (its-defrule "e" ",Fe(B") (its-defrule "r" ",Fq(B") (its-defrule "t" ",Ft(B") (its-defrule "y" ",Fu(B") (its-defrule "u" ",Fh(B") (its-defrule "i" ",Fi(B") (its-defrule "o" ",Fo(B") (its-defrule "p" ",Fp(B") (its-defrule "[" "[") (its-defrule "]" "]") (its-defrule "a" ",Fa(B") (its-defrule "s" ",Fs(B") (its-defrule "d" ",Fd(B") (its-defrule "f" ",Fv(B") (its-defrule "g" ",Fc(B") (its-defrule "h" ",Fg(B") (its-defrule "j" ",Fn(B") (its-defrule "k" ",Fj(B") (its-defrule "l" ",Fk(B") (its-defrule ";" ",F4(B") (its-defrule "'" "'") (its-defrule "\\" "\\") (its-defrule "z" ",Ff(B") (its-defrule "x" ",Fw(B") (its-defrule "c" ",Fx(B") (its-defrule "v" ",Fy(B") (its-defrule "b" ",Fb(B") (its-defrule "n" ",Fm(B") (its-defrule "m" ",Fl(B") (its-defrule "," ",") (its-defrule "." ".") (its-defrule "/" "/") (its-defrule "!" "!") (its-defrule "@" "@") (its-defrule "#" "#") (its-defrule "$" "$") (its-defrule "%" "%") (its-defrule "^" "^") (its-defrule "&" "&") (its-defrule "*" "*") (its-defrule "(" "(") (its-defrule ")" ")") (its-defrule "_" "_") (its-defrule "+" "+") (its-defrule "~" "~") (its-defrule "Q" ",F/(B") (its-defrule "W" ",FS(B") (its-defrule "E" ",FE(B") (its-defrule "R" ",FQ(B") (its-defrule "T" ",FT(B") (its-defrule "Y" ",FU(B") (its-defrule "U" ",FH(B") (its-defrule "I" ",FI(B") (its-defrule "O" ",FO(B") (its-defrule "P" ",FP(B") (its-defrule "{" "{") (its-defrule "}" "}") (its-defrule "A" ",FA(B") (its-defrule "S" ",FS(B") (its-defrule "D" ",FD(B") (its-defrule "F" ",FV(B") (its-defrule "G" ",FC(B") (its-defrule "H" ",FG(B") (its-defrule "J" ",FN(B") (its-defrule "K" ",FJ(B") (its-defrule "L" ",FK(B") (its-defrule ":" ",F((B") (its-defrule "\"" "\"") (its-defrule "|" "|") (its-defrule "Z" ",FF(B") (its-defrule "X" ",FW(B") (its-defrule "C" ",FX(B") (its-defrule "V" ",FY(B") (its-defrule "B" ",FB(B") (its-defrule "N" ",FM(B") (its-defrule "M" ",FL(B") (its-defrule "<" ";") (its-defrule ">" ":") (its-defrule "?" "?") (its-defrule "a;" ",F\(B") (its-defrule "e;" ",F](B") (its-defrule "h;" ",F^(B") (its-defrule "i;" ",F_(B") (its-defrule "o;" ",F|(B") (its-defrule "y;" ",F}(B") (its-defrule "v;" ",F~(B") (its-defrule "A;" ",F6(B") (its-defrule "E;" ",F8(B") (its-defrule "H;" ",F9(B") (its-defrule "I;" ",F:(B") (its-defrule "O;" ",F<(B") (its-defrule "Y;" ",F>(B") (its-defrule "V;" ",F?(B") (its-defrule "i:" ",Fz(B") (its-defrule "y:" ",F{(B") (its-defrule "I:" ",FZ(B") (its-defrule "Y:" ",F[(B") (its-defrule "i:;" ",F@(B") (its-defrule "y:;" ",F`(B")) (provide 'its/greek) egg-4.0.6+0.20041122cvs/its/jiskana.el0000644000764400003210000003654510150162021020211 0ustar ishikawaishikawa00000000000000;;; its/jiskana.el --- Hiragana Input in Egg Input Method Architecture ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: Kubo "Munk3" Hiroshi ;; This file is not a part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; ;; Symbol input is desined by jiro@math.keio.ac.jp (TANAKA Jiro) ;; This file is based on the rules of its/hira.el of Tamago 4 ;; ;;; Code: (eval-when-compile (require 'its) (require 'cl)) (eval-when (compile) (defconst its-compaction-enable t)) (defgroup jikana nil "JIS Keyboard kana Input Method" :group 'its) (defvar its-jiskana-enable-zenkaku-alphabet (if (boundp 'its-enable-fullwidth-alphabet) its-enable-fullwidth-alphabet t) "*Enable Zenkaku alphabet") (defcustom its-jiskana-period "$B!#(B" "* >$B$rF~NO$7$?$H$-$N6gE@$NJ8;z(B: \"$B!#(B\" \". \" \"$B!%(B\"" :group 'jiskana :type 'string) (defcustom its-jiskana-comma "$B!"(B" "* <$B$rF~NO$7$?$H$-$NFIE@$NJ8;z(B: \"$B!"(B\" \", \" \"$B!$(B\"" :group 'jiskana :type 'string) (defcustom its-jiskana-open-bracket "$B!V(B" "* { $B$rF~NO$7$?$H$-$N$+$.3g8L3+$1$NJ8;z(B: \"$B!V(B\" \"$B!P(B\"" :group 'jiskana :type 'string) (defcustom its-jiskana-close-bracket "$B!W(B" "* } $B$rF~NO$7$?$H$-$N$+$.3g8LJD$8$NJ8;z(B: \"$B!W(B\" \"$B!Q(B\"" :group 'jiskana :type 'string) (defcustom its-jiskana-horizontal "$B!<(B" "* - $B$rF~NO$7$?$H$-$ND92;5-9f$NJ8;z(B: \"$B!<(B\" \"$B!](B\"" :group 'jiskana :type 'string) (define-its-state-machine its-jiskana-map "kana" "$B$o(B" Japanese "Map for JIS arrangement keyboard to hiragana translation. (Japanese)" (defconst its-zenkaku-escape "A") ;; Escape character to Zenkaku inputs (defconst its-hankaku-escape "H") ;; Escape character to Hankaku inputs (its-defrule-select-mode-temporally "D" downcase) (its-defrule-select-mode-temporally "Q" zenkaku-downcase) ;;; $B@62;(B ;; $B$"9T(B (its-defrule "3" "$B$"(B") (its-defrule "e" "$B$$(B") (its-defrule "4" "$B$&(B") (its-defrule "5" "$B$((B") (its-defrule "6" "$B$*(B") ;; $B$+9T(B (its-defrule* "t" "$B$+(B" "$B$+(B") (its-defrule* "g" "$B$-(B" "$B$-(B") (its-defrule* "h" "$B$/(B" "$B$/(B") (its-defrule* ":" "$B$1(B" "$B$1(B") (its-defrule* "b" "$B$3(B" "$B$3(B") ;; $B$59T(B (its-defrule* "x" "$B$5(B" "$B$5(B") (its-defrule* "d" "$B$7(B" "$B$7(B") (its-defrule* "r" "$B$9(B" "$B$9(B") (its-defrule* "p" "$B$;(B" "$B$;(B") (its-defrule* "c" "$B$=(B" "$B$=(B") ;; $B$?9T(B (its-defrule* "q" "$B$?(B" "$B$?(B") (its-defrule* "a" "$B$A(B" "$B$A(B") (its-defrule* "z" "$B$D(B" "$B$D(B") (its-defrule* "w" "$B$F(B" "$B$F(B") (its-defrule* "s" "$B$H(B" "$B$H(B") ;; $B$J9T(B (its-defrule "u" "$B$J(B") (its-defrule "i" "$B$K(B") (its-defrule "1" "$B$L(B") (its-defrule "," "$B$M(B") (its-defrule "k" "$B$N(B") ;; $B$O9T(B (its-defrule* "f" "$B$O(B" "$B$O(B") (its-defrule* "v" "$B$R(B" "$B$R(B") (its-defrule* "2" "$B$U(B" "$B$U(B") (its-defrule* "^" "$B$X(B" "$B$X(B") (its-defrule* "-" "$B$[(B" "$B$[(B") ;; $B$^9T(B (its-defrule "j" "$B$^(B") (its-defrule "n" "$B$_(B") (its-defrule "]" "$B$`(B") (its-defrule "/" "$B$a(B") (its-defrule "m" "$B$b(B") ;; $B$d9T(B (its-defrule "7" "$B$d(B") (its-defrule "8" "$B$f(B") (its-defrule "9" "$B$h(B") ;; $B$i9T(B (its-defrule "o" "$B$i(B") (its-defrule "l" "$B$j(B") (its-defrule "." "$B$k(B") (its-defrule ";" "$B$l(B") (its-defrule "\\" "$B$m(B") ;; $B$o9T(B (its-defrule "0" "$B$o(B") (its-defrule "F" "$B$p(B") (its-defrule "J" "$B$q(B") (its-defrule "~" "$B$r(B") (its-defrule "y" "$B$s(B") ;;; $BBy2;(B ;; $B$,9T(B (its-defrule "t@" "$B$,(B") (its-defrule "g@" "$B$.(B") (its-defrule "h@" "$B$0(B") (its-defrule ":@" "$B$2(B") (its-defrule "b@" "$B$4(B") ;; $B$69T(B (its-defrule "x@" "$B$6(B") (its-defrule "d@" "$B$8(B") (its-defrule "r@" "$B$:(B") (its-defrule "p@" "$B$<(B") (its-defrule "c@" "$B$>(B") ;; $B$@9T(B (its-defrule "q@" "$B$@(B") (its-defrule "a@" "$B$B(B") (its-defrule "z@" "$B$E(B") (its-defrule "w@" "$B$G(B") (its-defrule "s@" "$B$I(B") ;; $B$P9T(B (its-defrule "f@" "$B$P(B") (its-defrule "v@" "$B$S(B") (its-defrule "2@" "$B$V(B") (its-defrule "^@" "$B$Y(B") (its-defrule "-@" "$B$\(B") ;; $B$Q9T(B (its-defrule "f[" "$B$Q(B") (its-defrule "v[" "$B$T(B") (its-defrule "2[" "$B$W(B") (its-defrule "^[" "$B$Z(B") (its-defrule "-[" "$B$](B") ;;; ;; $B$d9T(B (its-defrule "'" "$B$c(B") (its-defrule "(" "$B$e(B") (its-defrule ")" "$B$g(B") ;; $B$"9T(B (its-defrule "#" "$B$!(B") (its-defrule "E" "$B$#(B") (its-defrule "$" "$B$%(B") (its-defrule "%" "$B$'(B") (its-defrule "&" "$B$)(B") (its-defrule "Z" "$B$C(B") (its-defrule "W0" "$B$n(B") (its-defrule "4@" "$B%t(B") ;;; ;;; Zenkaku inputs ;;; (its-defrule (concat its-zenkaku-escape "0") "$B#0(B") (its-defrule (concat its-zenkaku-escape "1") "$B#1(B") (its-defrule (concat its-zenkaku-escape "2") "$B#2(B") (its-defrule (concat its-zenkaku-escape "3") "$B#3(B") (its-defrule (concat its-zenkaku-escape "4") "$B#4(B") (its-defrule (concat its-zenkaku-escape "5") "$B#5(B") (its-defrule (concat its-zenkaku-escape "6") "$B#6(B") (its-defrule (concat its-zenkaku-escape "7") "$B#7(B") (its-defrule (concat its-zenkaku-escape "8") "$B#8(B") (its-defrule (concat its-zenkaku-escape "9") "$B#9(B") (its-defrule (concat its-zenkaku-escape "A") "$B#A(B") (its-defrule (concat its-zenkaku-escape "B") "$B#B(B") (its-defrule (concat its-zenkaku-escape "C") "$B#C(B") (its-defrule (concat its-zenkaku-escape "D") "$B#D(B") (its-defrule (concat its-zenkaku-escape "E") "$B#E(B") (its-defrule (concat its-zenkaku-escape "F") "$B#F(B") (its-defrule (concat its-zenkaku-escape "G") "$B#G(B") (its-defrule (concat its-zenkaku-escape "H") "$B#H(B") (its-defrule (concat its-zenkaku-escape "I") "$B#I(B") (its-defrule (concat its-zenkaku-escape "J") "$B#J(B") (its-defrule (concat its-zenkaku-escape "K") "$B#K(B") (its-defrule (concat its-zenkaku-escape "L") "$B#L(B") (its-defrule (concat its-zenkaku-escape "M") "$B#M(B") (its-defrule (concat its-zenkaku-escape "N") "$B#N(B") (its-defrule (concat its-zenkaku-escape "O") "$B#O(B") (its-defrule (concat its-zenkaku-escape "P") "$B#P(B") (its-defrule (concat its-zenkaku-escape "Q") "$B#Q(B") (its-defrule (concat its-zenkaku-escape "R") "$B#R(B") (its-defrule (concat its-zenkaku-escape "S") "$B#S(B") (its-defrule (concat its-zenkaku-escape "T") "$B#T(B") (its-defrule (concat its-zenkaku-escape "U") "$B#U(B") (its-defrule (concat its-zenkaku-escape "V") "$B#V(B") (its-defrule (concat its-zenkaku-escape "W") "$B#W(B") (its-defrule (concat its-zenkaku-escape "X") "$B#X(B") (its-defrule (concat its-zenkaku-escape "Y") "$B#Y(B") (its-defrule (concat its-zenkaku-escape "Z") "$B#Z(B") (its-defrule (concat its-zenkaku-escape "a") "$B#a(B") (its-defrule (concat its-zenkaku-escape "b") "$B#b(B") (its-defrule (concat its-zenkaku-escape "c") "$B#c(B") (its-defrule (concat its-zenkaku-escape "d") "$B#d(B") (its-defrule (concat its-zenkaku-escape "e") "$B#e(B") (its-defrule (concat its-zenkaku-escape "f") "$B#f(B") (its-defrule (concat its-zenkaku-escape "g") "$B#g(B") (its-defrule (concat its-zenkaku-escape "h") "$B#h(B") (its-defrule (concat its-zenkaku-escape "i") "$B#i(B") (its-defrule (concat its-zenkaku-escape "j") "$B#j(B") (its-defrule (concat its-zenkaku-escape "k") "$B#k(B") (its-defrule (concat its-zenkaku-escape "l") "$B#l(B") (its-defrule (concat its-zenkaku-escape "m") "$B#m(B") (its-defrule (concat its-zenkaku-escape "n") "$B#n(B") (its-defrule (concat its-zenkaku-escape "o") "$B#o(B") (its-defrule (concat its-zenkaku-escape "p") "$B#p(B") (its-defrule (concat its-zenkaku-escape "q") "$B#q(B") (its-defrule (concat its-zenkaku-escape "r") "$B#r(B") (its-defrule (concat its-zenkaku-escape "s") "$B#s(B") (its-defrule (concat its-zenkaku-escape "t") "$B#t(B") (its-defrule (concat its-zenkaku-escape "u") "$B#u(B") (its-defrule (concat its-zenkaku-escape "v") "$B#v(B") (its-defrule (concat its-zenkaku-escape "w") "$B#w(B") (its-defrule (concat its-zenkaku-escape "x") "$B#x(B") (its-defrule (concat its-zenkaku-escape "y") "$B#y(B") (its-defrule (concat its-zenkaku-escape "z") "$B#z(B") (its-defrule (concat its-zenkaku-escape " ") "$B!!(B") (its-defrule (concat its-zenkaku-escape "!") "$B!*(B") (its-defrule (concat its-zenkaku-escape "@") "$B!w(B") (its-defrule (concat its-zenkaku-escape "#") "$B!t(B") (its-defrule (concat its-zenkaku-escape "$") "$B!p(B") (its-defrule (concat its-zenkaku-escape "%") "$B!s(B") (its-defrule (concat its-zenkaku-escape "^") "$B!0(B") (its-defrule (concat its-zenkaku-escape "&") "$B!u(B") (its-defrule (concat its-zenkaku-escape "*") "$B!v(B") (its-defrule (concat its-zenkaku-escape "(") "$B!J(B") (its-defrule (concat its-zenkaku-escape ")") "$B!K(B") (its-defrule (concat its-zenkaku-escape "-") "$B!](B") (its-defrule (concat its-zenkaku-escape "=") "$B!a(B") (its-defrule (concat its-zenkaku-escape "`") "$B!.(B") (its-defrule (concat its-zenkaku-escape "\\") "$B!o(B") (its-defrule (concat its-zenkaku-escape "|") "$B!C(B") (its-defrule (concat its-zenkaku-escape "_") "$B!2(B") (its-defrule (concat its-zenkaku-escape "+") "$B!\(B") (its-defrule (concat its-zenkaku-escape "~") "$B!1(B") (its-defrule (concat its-zenkaku-escape "[") "$B!N(B") (its-defrule (concat its-zenkaku-escape "]") "$B!O(B") (its-defrule (concat its-zenkaku-escape "{") "$B!P(B") (its-defrule (concat its-zenkaku-escape "}") "$B!Q(B") (its-defrule (concat its-zenkaku-escape ":") "$B!'(B") (its-defrule (concat its-zenkaku-escape ";") "$B!((B") (its-defrule (concat its-zenkaku-escape "\"") "$B!I(B") (its-defrule (concat its-zenkaku-escape "'") "$B!G(B") (its-defrule (concat its-zenkaku-escape "<") "$B!c(B") (its-defrule (concat its-zenkaku-escape ">") "$B!d(B") (its-defrule (concat its-zenkaku-escape "?") "$B!)(B") (its-defrule (concat its-zenkaku-escape "/") "$B!?(B") (its-defrule (concat its-zenkaku-escape ",") "$B!$(B") (its-defrule (concat its-zenkaku-escape ".") "$B!%(B") ;;; ;;; Hankaku inputs ;;; (dolist (digit '( "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" )) (its-defrule (concat its-hankaku-escape digit) digit)) (dolist (symbol '( " " "!" "@" "#" "$" "%" "^" "&" "*" "(" ")" "-" "=" "`" "\\" "|" "_" "+" "~" "[" "]" "{" "}" ":" ";" "\"" "'" "<" ">" "?" "/" "," "." )) (its-defrule (concat its-hankaku-escape symbol) symbol)) (dolist (downcase '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z")) (its-defrule (concat its-hankaku-escape downcase) downcase)) (dolist (upcase '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z")) (its-defrule (concat its-hankaku-escape upcase) upcase)) ;; SYMBOL Input (its-defrule "X1" "$B!{(B") (its-defrule "X!" "$B!|(B") (its-defrule "X2" "$B"&(B") (its-defrule "X@" "$B"'(B") (its-defrule "X3" "$B"$(B") (its-defrule "X#" "$B"%(B") (its-defrule "X4" "$B""(B") (its-defrule "X$" "$B"#(B") (its-defrule "X5" "$B!~(B") (its-defrule "X%" "$B"!(B") (its-defrule "X6" "$B!y(B") (its-defrule "X^" "$B!z(B") (its-defrule "X7" "$B!}(B") (its-defrule "X&" "$B!r(B") (its-defrule "X8" "$B!q(B") (its-defrule "X*" "$B!_(B") (its-defrule "X9" "$B!i(B") (its-defrule "X(" "$B!Z(B") (its-defrule "X0" "$B!j(B") (its-defrule "X)" "$B![(B") (its-defrule "X-" "$B!A(B") (its-defrule "X_" "$B!h(B") (its-defrule "X=" "$B!b(B") (its-defrule "X+" "$B!^(B") (its-defrule "X\\" "$B!@(B") (its-defrule "X|" "$B!B(B") (its-defrule "X`" "$B!-(B") (its-defrule "X~" "$B!/(B") (its-defrule "Xq" "$B!T(B") (its-defrule "XQ" "$B!R(B") (its-defrule "Xw" "$B!U(B") (its-defrule "XW" "$B!S(B") ; e (its-defrule "Xr" "$B!9(B") (its-defrule "XR" "$B!8(B") (its-defrule "Xt" "$B!:(B") (its-defrule "XT" "$B!x(B") ; y u i o (its-defrule "Xp" "$B")(B") (its-defrule "XP" "$B",(B") (its-defrule "X[" "$B!X(B") (its-defrule "X{" "$B!L(B") (its-defrule "X]" "$B!Y(B") (its-defrule "X}" "$B!M(B") ; a (its-defrule "Xs" "$B!3(B") (its-defrule "XS" "$B!4(B") (its-defrule "Xd" "$B!5(B") (its-defrule "XD" "$B!6(B") (its-defrule "Xf" "$B!7(B") (its-defrule "XF" "$B"*(B") (its-defrule "Xg" "$B!>(B") (its-defrule "XG" "$B!=(B") (its-defrule "Xh" "$B"+(B") (its-defrule "Xj" "$B"-(B") (its-defrule "Xk" "$B",(B") (its-defrule "Xl" "$B"*(B") (its-defrule "X;" "$B!+(B") (its-defrule "X:" "$B!,(B") (its-defrule "X\'" "$B!F(B") (its-defrule "X\"" "$B!H(B") ; z (its-defrule "Xx" ":-") (its-defrule "XX" ":-)") (its-defrule "Xc" "$B!;(B") (its-defrule "XC" "$B!n(B") (its-defrule "Xv" "$B"((B") (its-defrule "XV" "$B!`(B") (its-defrule "Xb" "$B!k(B") (its-defrule "XB" "$B"+(B") (its-defrule "Xn" "$B!l(B") (its-defrule "XN" "$B"-(B") (its-defrule "Xm" "$B!m(B") (its-defrule "XM" "$B".(B") (its-defrule "X," "$B!E(B") (its-defrule "X<" "$B!e(B") (its-defrule "X." "$B!D(B") (its-defrule "X>" "$B!f(B") (its-defrule "X/" "$B!&(B") (its-defrule "X?" "$B!g(B") ) (define-its-state-machine-append its-jiskana-map (its-defrule "|" its-jiskana-horizontal) (its-defrule "{" its-jiskana-open-bracket) (its-defrule "}" its-jiskana-close-bracket) (its-defrule ">" its-jiskana-period) (its-defrule "<" its-jiskana-comma) ) (provide 'its/jiskana) ;;; its/jiskana.el ends here. egg-4.0.6+0.20041122cvs/its-keydef.el0000644000764400003210000001214610150162021020025 0ustar ishikawaishikawa00000000000000;;; its-keydef.el ;; Copyright (C) 1999, 2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'cl)) (defvar its-zhuyin nil) (make-variable-buffer-local 'its-zhuyin) (put 'its-zhuyin 'permanent-local t) (defvar its-select-alist nil) (make-variable-buffer-local 'its-select-func-alist) (setq-default its-select-func-alist nil) (put 'its-select-alist 'permanent-local t) (defvar its-select-func-default-alist nil) (eval-when-compile (defmacro its-set-select-func-alist (list) `'(setq ,list (cons (cons lang func) (delq (assq lang ,list) ,list))))) (eval-and-compile (defun its-make-select-func (key1 key2 func file map &optional zhuyin) (setq func (intern (concat "its-select-" (symbol-name func))) file (intern (concat "its/" (symbol-name file))) map (intern (concat "its-" (symbol-name map) "-map"))) (cons `(defun ,func (&optional temporally mode-line-unchange) (interactive "P") (let ((inhibit-read-only t) (func ',func) lang) (if temporally (its-select-mode-temporally func) (require ',file) (cond ((its-in-fence-p) (its-input-end) (its-put-cursor t)) ((egg-conversion-fence-p) (egg-exit-conversion))) (setq its-current-select-func func its-current-map ',map lang (its-get-language ,map)) (when lang (setq its-current-language lang) ;; avoid overwriting when select temporally (when (and (null its-previous-select-func) (null (assq lang its-select-func-default-alist))) ,(its-set-select-func-alist its-select-func-alist) ,(its-set-select-func-alist its-select-func-default-alist))) ,(if zhuyin `(setq its-zhuyin ,(eq zhuyin 'T))) (if (null mode-line-unchange) (its-set-mode-line-title))))) `(,func ,(concat "\C-x\C-m" key1) ,(concat "\e" key2))))) (defmacro its-do-list-make-select-func (list) (let (funcs keydefs pair) (while list (setq pair (apply 'its-make-select-func (car list)) funcs (cons (car pair) funcs) keydefs (cons (cdr pair) keydefs) list (cdr list))) `(progn ,@funcs (defvar its-define-select-key-list ',keydefs)))) (defmacro its-add-select-funcs (list) (let (funcs keydefs pair) (while list (setq pair (apply 'its-make-select-func (car list)) funcs (cons (car pair) funcs) keydefs (cons (cdr pair) keydefs) list (cdr list))) `(progn ,@funcs (setq its-define-select-key-list (append ',keydefs its-define-select-key-list))))) (defun its-define-select-keys (map &optional fence) (let ((key-list its-define-select-key-list)) (while key-list (define-key map (nth 1 (car key-list)) (car (car key-list))) (if fence (define-key map (nth 2 (car key-list)) (car (car key-list)))) (setq key-list (cdr key-list))))) (its-do-list-make-select-func (("Q" "Q" upcase ascii up) ("q" "q" downcase ascii down) ("h" "\C-h" hiragana hira hira) ("k" "\C-k" katakana kata kata) ("x" "\C-x" hankaku-katakana hankata han-kata) ("Z" "Z" zenkaku-upcase zenkaku zenkaku-up) ("z" "z" zenkaku-downcase zenkaku zenkaku-down) ("\C-e" "\C-e" erpin-cn erpin erpin-cn NIL) ("\C-p" "\C-p" pinyin-cn pinyin pinyin-cn NIL) ("\C-z" "\C-z" zhuyin-cn zhuyin zhuyin-cn T) ("\C-q" "\C-q" qianma bixing qianma) ("\C-w" "\C-w" wubi bixing wubi) ("\C-u" "\C-u" quanjiao-upcase-cn quanjiao quanjiao-up-cn) ("\C-d" "\C-d" quanjiao-downcase-cn quanjiao quanjiao-down-cn) ("E" "E" erpin-tw erpin erpin-tw NIL) ("P" "P" pinyin-tw pinyin pinyin-tw NIL) ("C" "C" zhuyin-tw zhuyin zhuyin-tw T) ("U" "U" quanjiao-upcase-tw quanjiao quanjiao-up-tw) ("D" "D" quanjiao-downcase-tw quanjiao quanjiao-down-tw) ("H" "H" hangul hangul hangul) ("J" "J" jeonkak-upcase jeonkak jeonkak-up) ("j" "j" jeonkak-downcase jeonkak jeonkak-down) ("W" "W" jiskana jiskana jiskana) )) (provide 'its-keydef) egg-4.0.6+0.20041122cvs/its.el0000644000764400003210000015321607522373566016617 0ustar ishikawaishikawa00000000000000;;; its.el --- Input Translation System AKA "ITS(uDekirunDa!)" ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (eval-when-compile (require 'cl)) (require 'egg-edep) (defgroup its nil "Input Translation System of Tamago 4." :group 'egg) (defcustom its-enable-fullwidth-alphabet t "*Enable fullwidth symbol input." :group 'its :type 'boolean) (defcustom its-barf-on-invalid-keyseq nil "*Don't allow invalid key sequence in input buffer, if non-NIL." :group 'its :type 'boolean) (defcustom its-delete-by-keystroke nil "*Delete characters as if cancel input keystroke, if nin-NIL. This variable is overriden by `its-delete-by-character'." :group 'its :type 'boolean) (defcustom its-delete-by-character nil "*Delete a character as a unit even if just after input, if nin-NIL. This variable override `its-delete-by-keystroke'." :group 'its :type 'boolean) (defcustom its-fence-invisible nil "*Make fences invisible, if nin-NIL." :group 'its :type 'boolean) (defcustom its-fence-open "|" "*String of fence start mark. (should not be null string)" :group 'its :type '(string :valid-regexp ".+")) (defcustom its-fence-continue "+" "*String of fence start mark. (should not be null string)" :group 'its :type '(string :valid-regexp ".+")) (defcustom its-fence-close "|" "*String of fence end mark. (should not be null string)" :group 'its :type '(string :valid-regexp ".+")) (defcustom its-fence-face nil "*Face (or alist of languages and faces) of text in fences." :group 'its :type '(choice face (repeat :tag "Language-Face alist" (cons :tag "Language-Face" (choice :tag "Language" (const Japanese) (const Chinese-GB) (const Chinese-CNS) (const Korean) (const :tag "Default" t) (symbol :tag "Other")) face)))) (defvar its-current-map nil) (make-variable-buffer-local 'its-current-map) (put 'its-current-map 'permanent-local t) (defvar its-current-select-func nil) (make-variable-buffer-local 'its-current-select-func) (put 'its-current-select-func 'permanent-local t) (defvar its-previous-select-func nil) (make-variable-buffer-local 'its-previous-select-func) (put 'its-previous-select-func 'permanent-local t) (defvar its-current-language nil) (make-variable-buffer-local 'its-current-language) (put 'its-current-language 'permanent-local t) ;; Data structure in ITS ;; (1) SYL and CURSOR ;; ;; "SYL" stands for something like a syllable. ;; ;; ::= ( . ( . )) ; Determined: DSYL ;; | ; Intermediate: ISYL ;; | ( . ) ; Verbatim: VSYL ;; | nil ; None ;; ;; ; ::= ;; ; ( . ( . )) ;; ;; ::= "string" of key sequence ;; ::= "string" ;; ;; ::= integer which specifies point ;; ;; ::= nil ; Previous SYL is active (input will go that SYL) ;; | t ; input makes new SYL. DEL deletes previous SYL ;; | its-cursor ; DEL breaks previous SYL, input makes new SYL ;; Data structures in ITS ;; (2) State machine which recognizes SYL ;; ;; ::= ( . ) ;; ;; ::= ; intermediate state ;; | ; terminal state ;; ;; ::= ( . ) ;; ::= ( ... ) ;; ::= ( . ) ;; ::= Positive INTEGER which specifies KEY STROKE ;; | -1 ; means END of key stroke ;; ;; Only applicable for last transition. ;; ::= ( ( . ( . ))... ) ;; ::= something like "[a-z]" which specifies class of key. ;; | NIL; means ANY of key (except END of the key stroke) ;; ;; ;; ::= "string" ;; ;; ::= nil ;; | ;; ;; ::= integer which specifies how many key strokes we go back ;; ;; ::= "string" ;; Data structure in ITS (3) Map ;; ;; ::= ( . ) ;; ::= "string" ;; ::= "string" ;; ::= "string" ;; ::= ;; (defsubst its-new-state (output keyseq back) (cons output (cons keyseq back))) (defsubst its-new-map (name indicator language) (cons name (cons indicator (cons language (its-new-state "" "" nil))))) (defsubst its-get-indicator (map) (nth 1 map)) (defsubst its-get-language (map) (nth 2 map)) (defsubst its-get-start-state (map) (nthcdr 3 map)) (defsubst its-get-kst/t (state) (cdr (cdr state))) (defsubst its-set-kst (state kst) (setcdr (cdr state) kst)) (defsubst its-get-keyseq (state) (car (cdr state))) (defsubst its-set-keyseq (state keyseq) (setcar (cdr state) keyseq)) (defun its-get-keyseq-cooked (state) (let ((keyseq (its-get-keyseq state)) (back (its-get-kst/t state))) (if back (substring keyseq 0 back) keyseq))) (defsubst its-kst-p (kst/t) (not (or (numberp kst/t) (null kst/t)))) (defun its-get-output (syl/state &optional no-eval) (setq syl/state (car syl/state)) (cond ((null (consp syl/state)) syl/state) ((and (null no-eval) (eq (car syl/state) 'eval)) (eval (mapcar (lambda (s) (if (stringp s) (copy-sequence s) s)) (cdr syl/state)))) (t (copy-sequence syl/state)))) (defsubst its-set-output (state output) (setcar state output)) (defsubst its-get-keyseq-syl (syl) (let ((l (cdr syl))) (cond ((stringp l) ; DSYL l) ((numberp l) ; VSYL (car syl)) ((numberp (cdr l)) (substring (car l) 0 (cdr l))) (t (car l))))) (defsubst its-eob-keyexpr (eob) (car (cdr eob))) (defsubst its-eob-back (eob) (cdr (cdr eob))) (defsubst its-make-class+back (class back) (cons class back)) (defsubst its-make-otherwise (output class+back) (cons output class+back)) (defsubst its-DSYL-with-back-p (syl) (and (consp (cdr syl)) (numberp (its-get-kst/t syl)))) (defsubst its-concrete-DSYL-p (syl) (stringp (cdr syl))) (defsubst its-make-concrete-DSYL (syl) (if (consp (cdr syl)) (cons (its-get-output syl) (its-get-keyseq-syl syl)) syl)) ;; ;; (require 'its-keydef) (defvar its-mode-map (let ((map (make-sparse-keymap)) (i 33)) (define-key map "\C-a" 'its-beginning-of-input-buffer) (define-key map "\C-b" 'its-backward-SYL) (define-key map "\C-c" 'its-cancel-input) (define-key map "\C-d" 'its-delete-SYL) (define-key map "\C-e" 'its-end-of-input-buffer) (define-key map "\C-f" 'its-forward-SYL) (define-key map "\C-g" 'its-select-previous-mode) (define-key map "\C-]" 'its-cancel-input) (define-key map "\C-h" 'its-mode-help-command) (define-key map "\C-k" 'its-kill-line) ;; (define-key map "\C-l" 'its-exit-mode) (define-key map "\C-m" 'its-exit-mode) ; RET (define-key map [return] 'its-exit-mode) (define-key map "\C-t" 'its-transpose-chars) (define-key map "\C-w" 'its-kick-convert-region) (define-key map "\C-y" 'its-yank) (define-key map "\M-y" 'its-yank-pop) (define-key map [backspace] 'its-delete-backward-SYL) (define-key map [delete] 'its-delete-backward-SYL) (define-key map [(meta backspace)] 'its-delete-backward-SYL-by-keystroke) (define-key map [(meta delete)] 'its-delete-backward-SYL-by-keystroke) (define-key map [right] 'its-forward-SYL) (define-key map [left] 'its-backward-SYL) (while (< i 127) (define-key map (vector i) 'its-self-insert-char) (setq i (1+ i))) (define-key map " " 'its-kick-convert-region-or-self-insert) (define-key map "\177" 'its-delete-backward-SYL) ;; (define-key map "\M-p" 'its-previous-map) (define-key map "\M-n" 'its-next-map) (define-key map "\M-h" 'its-hiragana) ; hiragana-region for input-buffer (define-key map "\M-k" 'its-katakana) (define-key map "\M-<" 'its-half-width) (define-key map "\M->" 'its-full-width) map) "Keymap for ITS mode.") (fset 'its-mode-map its-mode-map) (defvar its-fence-mode nil) (make-variable-buffer-local 'its-fence-mode) (put 'its-fence-mode 'permanent-local t) (defvar egg-sub-mode-map-alist nil) (or (assq 'its-fence-mode egg-sub-mode-map-alist) (setq egg-sub-mode-map-alist (cons '(its-fence-mode . its-mode-map) egg-sub-mode-map-alist))) (defun its-enter/leave-fence (&optional old new) (setq its-fence-mode (its-in-fence-p))) (add-hook 'egg-enter/leave-fence-hook 'its-enter/leave-fence) (defconst its-setup-fence-before-insert-SYL nil) (defun its-get-fence-face (lang) (if (null (consp its-fence-face)) its-fence-face (cdr (or (assq lang its-fence-face) (assq t its-fence-face))))) (defun its-put-cursor (cursor) (unless (eq its-barf-on-invalid-keyseq 'its-keyseq-test) (let ((p (point)) (str (copy-sequence "!"))) (set-text-properties 0 1 (list 'read-only t 'invisible 'egg 'intangible 'its-part-2 'its-cursor cursor 'point-entered 'egg-enter/leave-fence 'point-left 'egg-enter/leave-fence 'modification-hooks '(egg-modify-fence)) str) (insert str) (goto-char p)))) (defun its-set-cursor-status (cursor) (delete-region (point) (1+ (point))) (its-put-cursor cursor) cursor) (defvar its-context nil) ;; ;; +-- START property ;; | --- CURSOR Property ;; | / ;; v v v-- END Property ;; |SYL SYL ^ SYL| ;; ^^^ ^^^ ^^^------ SYL Property ;; <-------><----> ;; intangible intangible ;; 1 2 ;; (defun its-setup-fence-mode () (let ((open-props '(its-start t intangible its-part-1)) (close-props '(rear-nonsticky t its-end t intangible its-part-2)) (p (point)) p1) (if (or (null (stringp its-fence-open)) (zerop (length its-fence-open)) (null (stringp its-fence-continue)) (zerop (length its-fence-continue)) (null (stringp its-fence-close)) (zerop (length its-fence-close))) (error "invalid fence")) ;; Put open-fence before inhibit-read-only to detect read-only (insert (if its-context its-fence-continue its-fence-open)) (egg-setup-invisibility-spec) (let ((inhibit-read-only t)) (setq p1 (point)) (add-text-properties p p1 open-props) (if its-context (put-text-property p p1 'its-context its-context)) (insert its-fence-close) (add-text-properties p1 (point) close-props) (if its-fence-invisible (put-text-property p (point) 'invisible 'egg)) (put-text-property p (point) 'read-only t) (goto-char p1) (its-define-select-keys its-mode-map t) (its-put-cursor t)))) (defun its-start (key context) (let ((its-setup-fence-before-insert-SYL t) (its-context context)) (its-input nil key))) (defun its-restart (str set-prop beginning context) (let ((its-context context) p) (its-setup-fence-mode) (setq p (point)) (put-text-property 0 (length str) 'intangible 'its-part-1 str) (insert str) (if set-prop (progn (delete-region (point) (1+ (point))) (its-setup-yanked-portion p (point)))) (if beginning (its-beginning-of-input-buffer)))) (defun its-self-insert-char () (interactive) (let ((inhibit-read-only t) (key last-command-char) (cursor (get-text-property (point) 'its-cursor)) (syl (get-text-property (1- (point)) 'its-syl))) (cond ((or (eq cursor t) (not (eq (get-text-property (1- (point)) 'its-map) its-current-map))) (put-text-property (- (point) (length (its-get-output syl))) (point) 'its-syl (its-make-concrete-DSYL syl)) (setq syl nil)) (cursor (setq syl nil))) (its-input syl key))) (defun its-current-language-length () (+ (if (eq (get-text-property (1- (point)) 'egg-lang) its-current-language) (- (point) (previous-single-property-change (point) 'egg-lang)) 0) (if (eq (get-text-property (1+ (point)) 'egg-lang) its-current-language) (- (next-single-property-change (1+ (point)) 'egg-lang) (point) 1) 0))) (defun its-initial-ISYL () (its-get-start-state (symbol-value its-current-map))) (defun its-make-VSYL (keyseq) (cons keyseq (length keyseq))) (defun its-input-error () (error "Invalid Romaji Sequence")) (defvar its-stroke-input-alist nil) (defun its-input (syl key) (let ((output (car syl)) (k/kk/s (cdr syl)) (stroke (assq its-current-language its-stroke-input-alist))) (or syl (setq syl (its-initial-ISYL))) (cond ((numberp k/kk/s) ;; k/kk/s is "point in keyseq" (its-input-to-vsyl syl key k/kk/s output)) ((and (or its-barf-on-invalid-keyseq stroke) (null (its-keyseq-acceptable-p (vector key) syl))) ;; signal before altering (its-input-error)) (t ;; It's ISYL (its-state-machine syl key 'its-buffer-ins/del-SYL) (if (and stroke (>= (its-current-language-length) (cdr stroke))) (its-kick-convert-region)))))) (defun its-input-to-vsyl (syl key point output) (if (< key 0) (its-set-cursor-status t) (let ((len (length output))) (if (= len point) ;; point is at end of VSYL. Don't need to call state machine. (its-buffer-ins/del-SYL (its-make-VSYL (concat output (vector key))) syl nil) ;; point is at middle of VSYL. (let ((new-keyseq (concat (substring output 0 point) (vector key) (substring output point)))) (its-state-machine-keyseq new-keyseq 'its-buffer-ins/del-SYL)))))) ;;; ;;; ITS State Machine ;;; (defvar its-disable-special-action nil) ;; Return CURSOR (defun its-state-machine (state key emit) (let ((next-state (its-get-next-state state key)) expr-output-back kst/t output keyseq back) (cond ;; proceed to next status ((and next-state (not (and its-disable-special-action (eq (its-get-kst/t next-state) t)))) (setq kst/t (its-get-kst/t next-state) output (its-get-output next-state) keyseq (its-get-keyseq next-state)) (cond ;; Special actions. ((eq kst/t t) (if (stringp output) (let ((its-current-language t)) (funcall emit (cons output keyseq) state 'its-cursor)) (funcall emit (cons "" keyseq) state 'its-cursor) (apply (car output) (cdr output)))) ;; Still, it's a intermediate state. ((its-kst-p kst/t) (funcall emit next-state state nil)) ;; It's negative integer which specifies how many ;; characters we go backwards (kst/t (funcall emit next-state state 'its-cursor) (its-state-machine-keyseq (substring keyseq kst/t) emit (< key 0))) ;; Here we arrive to a terminal state. ;; Emit a DSYL, and go ahead. (t (funcall emit next-state state 'its-cursor)))) ;; push back by otherwise status ((and (>= key 0) (setq expr-output-back (its-get-otherwise state key))) (setq keyseq (concat (its-get-keyseq state) (vector key)) back (its-eob-back expr-output-back)) (funcall emit (cons (or (its-get-output expr-output-back) (its-get-output (its-goto-state (substring keyseq 0 back)))) (cons keyseq back)) state t) (its-state-machine-keyseq (substring keyseq back) emit)) ((eq its-barf-on-invalid-keyseq 'its-keyseq-test) 'its-keyseq-test-failed) ;; No next state for KEY. It's invalid sequence. (its-barf-on-invalid-keyseq (its-input-error)) (t ;; XXX Should make DSYL (instead of VSYL)? (setq keyseq (concat (its-get-keyseq state) (if (> key 0) (vector key)))) (funcall emit (its-make-VSYL keyseq) state nil))))) (defvar its-latest-SYL nil "The latest SYL inserted.") (defsubst its-update-latest-SYL (syl) (setq its-latest-SYL syl)) ;; Return CURSOR (defun its-state-machine-keyseq (keyseq emit &optional eol) (let ((i 0) (len (length keyseq)) (syl (its-initial-ISYL)) cursor) (while (< i len) (cond ((numberp (cdr syl)) ;; VSYL - no need looping (funcall emit (its-make-VSYL (concat (car syl) (substring keyseq i))) syl nil) (setq cursor nil i len)) (t (setq cursor (its-state-machine syl (aref keyseq i) emit)))) (if (eq cursor 'its-keyseq-test-failed) (setq i len) (setq syl (if cursor (its-initial-ISYL) its-latest-SYL) i (1+ i)))) (if (and eol (not (eq cursor 'its-keyseq-test-failed))) (its-state-machine syl -1 emit) cursor))) (defun its-buffer-ins/del-SYL (newsyl oldsyl cursor) (if its-setup-fence-before-insert-SYL (progn (setq its-setup-fence-before-insert-SYL nil) (its-setup-fence-mode))) (let ((inhibit-read-only t) (output (copy-sequence (its-get-output newsyl))) (face (its-get-fence-face its-current-language))) (its-buffer-delete-SYL oldsyl) (its-update-latest-SYL newsyl) (add-text-properties 0 (length output) (list 'its-map its-current-map 'its-syl newsyl 'egg-lang its-current-language 'read-only t 'intangible 'its-part-1) output) (if face (egg-set-face 0 (length output) face output)) (insert output) (its-set-cursor-status cursor))) (defun its-buffer-delete-SYL (syl) (let ((len (length (its-get-output syl)))) (delete-region (- (point) len) (point)))) (defun its-get-next-state (state key) (let ((kst/t (its-get-kst/t state))) (and (listp kst/t) (cdr (assq key (car kst/t)))))) ;; XXX XXX XXX (defun its-otherwise-match (expr key) (or (null expr) ; ::= NIL means "ANY" (let ((case-fold-search nil)) (string-match expr (char-to-string key))))) (defun its-get-otherwise (state key) (let* ((kst/t (its-get-kst/t state)) (ebl (cdr kst/t)) expr-output-back) (while ebl (setq expr-output-back (car ebl)) (let ((expr (its-eob-keyexpr expr-output-back))) (if (its-otherwise-match expr key) (setq ebl nil) (setq ebl (cdr ebl))))) expr-output-back)) (defun its-keyseq-acceptable-p (keyseq &optional syl eol) (let ((i 0) (len (length keyseq)) (its-barf-on-invalid-keyseq 'its-keyseq-test) (its-latest-SYL nil) (emit (lambda (nsyl osyl cursor) (its-update-latest-SYL nsyl) cursor)) (its-current-map its-current-map) (its-current-select-func its-current-select-func) (its-current-language its-current-language) (its-zhuyin its-zhuyin) (its-previous-select-func its-previous-select-func) cursor) (if (null syl) (setq syl (its-initial-ISYL))) (if (numberp (cdr syl)) nil (while (and syl (< i len)) (setq cursor (its-state-machine syl (aref keyseq i) emit)) (cond ((eq cursor 'its-keyseq-test-failed) (setq syl nil)) (cursor (setq syl (its-initial-ISYL))) (t its-latest-SYL)) (setq i (1+ i))) (if (and syl eol) (setq cursor (its-state-machine syl -1 emit))) (not (eq cursor 'its-keyseq-test-failed))))) ;;; ;;; Name --> map ;;; ;;; ITS name: string (defvar its-map-alist nil) (defun its-get-map (name) (assoc name its-map-alist)) (defun its-register-map (map) (let* ((name (car map)) (place (assoc name its-map-alist))) (if place (setcdr place (cdr map)) (setq its-map-alist (cons map its-map-alist))) map)) (defmacro define-its-state-machine (map name indicator lang doc &rest exprs) (let ((its-current-map map)) (set map (its-new-map name indicator (if (eq (car-safe lang) 'quote) (nth 1 lang) lang))) (eval (cons 'progn exprs)) (set map (its-map-compaction (symbol-value map)))) `(defconst ,map (its-map-rebuild ',(symbol-value map)) ,doc)) (defmacro define-its-state-machine-append (map &rest exprs) `(let ((func (lambda () (let ((its-current-map ',map)) ,@exprs))) (hook ',(intern (concat (symbol-name map) "-hook")))) (if (null (boundp ',map)) (add-hook hook func t) (funcall func) (run-hooks hook) (set hook nil)))) ;; Data structure for map compaction ;; ::= ( ) ; atom ;; | ( ( . )) ; cons cell ;; ;; ::= integer ; 0 or negative - usage count ;; ; positive - generated common sub-tree ;; ;; ::= integer ; subject to compaction ;; | nil ; not subject to compaction (defvar its-compaction-enable nil) (defvar its-compaction-hash-table) (defvar its-compaction-integer-table) (defvar its-compaction-counter-1) (defvar its-compaction-counter-2) (defvar its-compaction-list) (defun its-map-compaction (map) (if its-compaction-enable (let ((its-compaction-hash-table (make-vector 1000 nil)) (its-compaction-integer-table (make-vector 138 nil)) (its-compaction-counter-1 1) (its-compaction-counter-2 0) (its-compaction-list nil)) (its-map-compaction-internal map nil nil) (cons (vconcat (nreverse its-compaction-list)) map)) map)) (defmacro its-compaction-set-lr (node lr val) `(if (eq ,lr 'car) (setcar ,node ,val) (setcdr ,node ,val))) (defmacro its-compaction-new-node () '(1- (setq its-compaction-counter-1 (1+ its-compaction-counter-1)))) (defmacro its-compaction-new-cse (node) `(1- (setq its-compaction-list (cons ,node its-compaction-list) its-compaction-counter-2 (1+ its-compaction-counter-2)))) (defmacro its-concat (&rest args) `(concat ,@(mapcar (lambda (arg) (if (stringp arg) arg `(if (numberp ,arg) (number-to-string ,arg) ,arg))) args))) (defmacro its-compaction-hash (name node parent lr type) (if (null type) `(let ((hash (intern (its-concat ,@name) its-compaction-hash-table))) (if (null (boundp hash)) (car (set hash (list* (its-compaction-new-node) ,parent ,lr))) (setq hash (symbol-value hash)) (if (consp (cdr hash)) (setcdr hash (its-compaction-set-lr (cadr hash) (cddr hash) (its-compaction-new-cse ,node)))) (its-compaction-set-lr ,parent ,lr (cdr hash)) (car hash))) `(let ((hash ,(if (eq type 'integer) `(intern (its-concat ,@name) its-compaction-hash-table) `(aref its-compaction-integer-table (+ ,node 10))))) (if (null ,(if (eq type 'integer) '(boundp hash) 'hash)) (setq hash (,@(if (eq type 'integer) '(set hash) `(aset its-compaction-integer-table (+ ,node 10))) (cons (its-compaction-new-node) (its-compaction-new-cse ,node)))) ,(if (eq type 'integer) '(setq hash (symbol-value hash)))) (its-compaction-set-lr ,parent ,lr (cdr hash)) (car hash)))) (defun its-map-compaction-internal (map parent lr &optional force) (cond ((consp map) (let* ((candidate (or (null (stringp (car map))) (cdr map))) (sexp (or force (eq (car map) 'eval))) (l (its-map-compaction-internal (car map) map 'car sexp)) (r (its-map-compaction-internal (cdr map) map 'cdr sexp))) (if (or sexp (and candidate l r)) (its-compaction-hash (l " " r) map parent lr nil)))) ((stringp map) (its-compaction-hash ("STR" map) map parent lr nil)) ((integerp map) (if (and (>= map -10) (< map 128)) (its-compaction-hash nil map parent lr small-int) (its-compaction-hash ("INT" map) map parent lr integer))) ((null map) 0) ((symbolp map) (its-compaction-hash ("SYM" (symbol-name map)) map parent lr nil)))) (defvar its-map-rebuild-subtrees) (defun its-map-rebuild (map) (if (vectorp (car map)) (let ((its-map-rebuild-subtrees (car map)) (len (length (car map))) (i 0) node) (while (< i len) (setq node (aref its-map-rebuild-subtrees i)) (if (consp node) (its-map-rebuild-1 node)) (setq i (1+ i))) (its-map-rebuild-1 (cdr map)) (cdr map)) map)) (defun its-map-rebuild-1 (map) (let (lr) (while (consp map) (if (consp (setq lr (car map))) (its-map-rebuild-1 lr) (if (integerp lr) (setcar map (aref its-map-rebuild-subtrees lr)))) (setq lr map map (cdr map))) (if (integerp map) (setcdr lr (aref its-map-rebuild-subtrees map))))) ;; ;; Construct State Machine ;; (defun its-defrule (input output &optional back enable-overwrite) "$BF~NO(B INPUT $B$rG'<1$7(B, OUTPUT $B$r=PNO$9$k$h$&$K%9%F!<%H%^%7%s$r9=@.$9$k!#(B BACK $B$,(B($BIi$N(B)$B@0?t$N;~$O(B, OUTPUT $B$r=PNO$7$?8e(B, BACK $B$NJ,(B key stroke $B$r(B $BLa$C$FF0$/$b$N$H$9$k!#JQ495,B'$O$b$C$H$b:G6a$K(B its-define-state-machine $B$5$l$?JQ49I=$KEPO?$5$l$k!#(B Return last state." (let ((state (its-goto-state input (if enable-overwrite t 'dup-check)))) (its-set-output state output) (its-set-kst state back) state)) (defun its-defrule* (input output &optional interim-output enable-overwrite) (let* ((state (its-goto-state input (if enable-overwrite t 'dup-check)))) (its-set-kst state nil) (its-set-interim-terminal-state state output) (if interim-output (its-set-output state interim-output)) state)) (defvar its-parent-states) (defun its-goto-state (input &optional build-if-none) (let ((len (length input)) (i 0) (state (its-initial-ISYL)) brand-new next-state key) (setq its-parent-states nil) (while (< i len) (setq its-parent-states (cons state its-parent-states) key (aref input i) i (1+ i) next-state (its-get-next-state state key)) (cond (next-state (setq state next-state)) ((null build-if-none) (error "No such state (%s)" input)) (t (if (not (or brand-new (= i 1) (its-get-kst/t state))) (its-set-interim-terminal-state state)) (setq state (its-make-next-state state key (concat (its-get-output state) (list key))) brand-new t)))) (if (and (eq build-if-none 'dup-check) (null brand-new)) (error "Duplicated definition (%s)" input)) state)) (defun its-set-interim-terminal-state (state &optional output) (its-make-next-state state -1 (or output (its-get-output state t))) (its-defrule-otherwise state output)) (defun its-defoutput (input display) (let ((state (its-goto-state input))) (its-set-output state display))) (defun its-define-otherwise (state otherwise) (let ((kst (its-get-kst/t state))) (if kst (setcdr kst (cons otherwise (cdr kst))) (its-set-kst state (cons nil (cons otherwise nil)))))) (defun its-defrule-otherwise (state output &optional class back) (its-define-otherwise state (its-make-otherwise output (its-make-class+back class (or back -1))))) (defun its-make-next-state (state key output &optional back) (let ((next-state (its-new-state output (concat (its-get-keyseq state) (if (> key 0) (list key))) back)) (kst (its-get-kst/t state))) (cond ((null kst) (its-set-kst state (list (list (cons key next-state))))) ((consp kst) (setcar kst (cons (cons key next-state) (car kst)))) (t (error "Can't make new state after %S" (its-get-keyseq state)))) next-state)) (defmacro its-defrule-select-mode-temporally (input select-func) `(its-defrule ,input '(its-select-mode-temporally ,(intern (concat "its-select-" (symbol-name select-func)))) t)) ;;; (defun its-set-part-1 (beg end) (let ((inhibit-point-motion-hooks t) (str (buffer-substring beg end))) (goto-char beg) (delete-region beg end) (put-text-property 0 (- end beg) 'intangible 'its-part-1 str) (insert str))) (defun its-set-part-2 (beg end) (let ((inhibit-point-motion-hooks t) (str (buffer-substring beg end))) (goto-char beg) (delete-region beg end) (put-text-property 0 (- end beg) 'intangible 'its-part-2 str) (insert str))) (defun its-search-beginning () (if (get-text-property (1- (point)) 'its-start) (point) (previous-single-property-change (point) 'its-start))) (defun its-search-end () (if (get-text-property (point) 'its-end) (point) (next-single-property-change (point) 'its-end))) (defun its-beginning-of-input-buffer () (interactive) (let ((inhibit-read-only t)) (its-input-end) (let ((begpos (its-search-beginning))) (its-set-part-2 begpos (point)) (goto-char begpos)) (its-put-cursor t))) (defun its-end-of-input-buffer () (interactive) (let ((inhibit-read-only t)) (its-input-end) (let ((endpos (its-search-end))) (its-set-part-1 (point) endpos) (goto-char endpos)) (its-put-cursor t))) (defun its-kill-line (n) (interactive "p") (let ((inhibit-read-only t)) (its-input-end) (if (> n 0) (if (= (its-search-beginning) (point)) (its-cancel-input) (delete-region (its-search-end) (point)) (its-put-cursor t)) (if (= (its-search-end) (point)) (its-cancel-input) (delete-region (its-search-beginning) (point)) (its-put-cursor t))))) (defun its-cancel-input () (interactive) (let ((inhibit-read-only t)) (delete-region (its-search-beginning) (its-search-end)) (its-put-cursor t) (its-exit-mode-internal))) ;; TODO: move in VSYL (defun its-backward-SYL (n) (interactive "p") (let ((inhibit-read-only t) syl p old-point) (its-input-end) (setq syl (get-text-property (1- (point)) 'its-syl) p (point) old-point (point)) (while (and syl (> n 0)) (setq p (- p (length (its-get-output syl)))) (setq syl (get-text-property (1- p) 'its-syl)) (setq n (1- n))) ;; Make SYLs have property of "part 2" (its-set-part-2 p old-point) (goto-char p) (its-put-cursor t) (if (> n 0) (signal 'beginning-of-buffer nil)))) ;; TODO: move in VSYL (defun its-forward-SYL (n) (interactive "p") (let ((inhibit-read-only t) syl p old-point) (its-input-end) (setq syl (get-text-property (point) 'its-syl) p (point) old-point (point)) (while (and syl (> n 0)) (setq p (+ p (length (its-get-output syl)))) (setq syl (get-text-property p 'its-syl)) (setq n (1- n))) ;; Make SYLs have property of "part 1" (its-set-part-1 old-point p) (goto-char p) (its-put-cursor t) (if (> n 0) (signal 'end-of-buffer nil)))) ;; TODO: handle VSYL. KILLFLAG (defun its-delete-SYL (n killflag) (interactive "p\nP") (let ((inhibit-read-only t) syl p) (its-input-end) (setq syl (get-text-property (point) 'its-syl) p (point)) (while (and syl (> n 0)) (setq p (+ p (length (its-get-output syl)))) (setq syl (get-text-property p 'its-syl)) (setq n (1- n))) (if (> n 0) (progn (its-put-cursor t) (signal 'end-of-buffer nil)) (delete-region (point) p) (its-put-cursor t) (its-exit-mode-if-empty)))) ;; TODO: killflag (defun its-delete-backward-SYL (n killflag) (interactive "p\nP") (let ((inhibit-read-only t) (syl (get-text-property (1- (point)) 'its-syl)) (cursor (get-text-property (point) 'its-cursor))) (if (null syl) (signal 'beginning-of-buffer nil) (if (or (eq cursor t) (and cursor its-delete-by-character)) (its-delete-backward-SYL-internal n killflag) (its-delete-backward-within-SYL syl n killflag))))) ;; TODO: killflag (defun its-delete-backward-SYL-internal (n killflag) (let ((syl (get-text-property (1- (point)) 'its-syl)) (p (point))) (while (and syl (> n 0)) (setq p (- p (length (its-get-output syl)))) (setq syl (get-text-property (1- p) 'its-syl)) (setq n (1- n))) (if (> n 0) (signal 'beginning-of-buffer nil) (delete-region p (1+ (point))) ; also delete cursor (its-put-cursor t) (its-exit-mode-if-empty)))) (defun its-delete-backward-SYL-by-keystroke (n killflag) (interactive "p\nP") (let ((inhibit-read-only t) (its-delete-by-keystroke t)) (its-delete-backward-SYL n killflag))) ;; TODO: killflag (defun its-delete-backward-within-SYL (syl n killflag) (let* ((keyseq (its-get-keyseq-syl syl)) (len (length keyseq)) (p (- (point) (length (its-get-output syl)))) (its-current-map (get-text-property (1- (point)) 'its-map)) (its-current-language (get-text-property (1- (point)) 'egg-lang)) back pp) (if (< n 0) (signal 'args-out-of-range (list (- (point) n) (point)))) (if its-delete-by-keystroke (while (null (or (eq p pp) (its-concrete-DSYL-p syl))) (setq pp p) (while (and (setq syl (get-text-property (1- p) 'its-syl)) (its-DSYL-with-back-p syl) (<= (setq back (- (its-get-kst/t syl))) len) (> back (- len n)) (equal (substring (its-get-keyseq syl) (- back)) (substring keyseq 0 back))) (setq keyseq (concat (its-get-keyseq-syl syl) keyseq) len (length keyseq) p (- p (length (its-get-output syl))))) (if (and (eq p pp) syl (> n len)) (setq n (- n len) keyseq (its-get-keyseq-syl syl) len (length keyseq) p (- p (length (its-get-output syl)))))) (if (and (> n len) (its-concrete-DSYL-p syl)) (setq len 1))) (if (> n len) (setq n (- n len) len 0)) (while (and (> n len) (setq syl (get-text-property (1- p) 'its-syl))) (setq n (1- n) p (- p (length (its-get-output syl))))) (if (> n len) (signal 'beginning-of-buffer nil)) (delete-region p (point)) (if (> len n) (its-state-machine-keyseq (substring keyseq 0 (- len n)) 'its-buffer-ins/del-SYL) (its-set-cursor-status (if (or (null its-delete-by-keystroke) (its-concrete-DSYL-p (get-text-property (1- p) 'its-syl))) t 'its-cursor)))) ;; exit its mode after unbind variables (its-exit-mode-if-empty)) (defun its-transpose-chars (n) (interactive "p") (let ((inhibit-read-only t) (syl (get-text-property (1- (point)) 'its-syl)) (cursor (get-text-property (point) 'its-cursor)) keyseq len) (cond ((null syl) (signal 'beginning-of-buffer nil)) ((eq cursor t) (if (and (= n 1) (get-text-property (1+ (point)) 'its-end)) (progn (its-backward-SYL 1) (setq syl (get-text-property (1- (point)) 'its-syl)) (if (null syl) (signal 'beginning-of-buffer nil)))) (its-buffer-delete-SYL syl) (while (> n 0) (if (get-text-property (1+ (point)) 'its-end) (progn (its-buffer-ins/del-SYL syl nil t) (signal 'end-of-buffer nil))) (its-forward-SYL 1) (setq n (1- n))) (while (< n 0) (if (get-text-property (1- (point)) 'its-start) (progn (its-buffer-ins/del-SYL syl nil t) (signal 'beginning-of-buffer nil))) (its-backward-SYL 1) (setq n (1+ n))) (its-buffer-ins/del-SYL syl nil t)) (t (setq keyseq (its-get-keyseq-syl syl) len (length keyseq)) (cond ((or (> n 1) (<= len 1)) (signal 'end-of-buffer nil)) ((>= (- n) len) (signal 'beginning-of-buffer nil)) (t (setq n (if (> n 0) (- -1 n) (1- n))) (setq keyseq (concat (substring keyseq 0 n) (substring keyseq -1) (substring keyseq n -1))) (if (and its-barf-on-invalid-keyseq (null (its-keyseq-acceptable-p keyseq))) (its-input-error)) (delete-region (- (point) (length (its-get-output syl))) (point)) (its-state-machine-keyseq keyseq 'its-buffer-ins/del-SYL))))))) (defun its-yank (&optional arg) (interactive "*P") (let ((inhibit-read-only t)) (its-input-end) (yank arg) (its-setup-yanked-portion (region-beginning) (region-end)))) (defun its-yank-pop (arg) (interactive "*p") (let ((inhibit-read-only t)) (its-input-end) (yank-pop arg) (its-setup-yanked-portion (region-beginning) (region-end)))) (defun its-setup-yanked-portion (start end) (let ((yank-before (eq (point) end)) syl face lang source no-prop-source len i j l) (setq source (buffer-substring start end) no-prop-source (buffer-substring-no-properties start end) len (length source)) (remove-text-properties 0 len '(intangible nil) source) (egg-separate-languages source (get-text-property (1- start) 'egg-lang)) (setq i 0) (while (< i len) (setq lang (get-text-property i 'egg-lang source)) (if (or (and (or (eq lang 'Chinese-GB) (eq lang 'Chinese-CNS)) (setq l (egg-chinese-syllable source i))) (and (setq l (get-text-property i 'composition source)) (setq l (if (consp (car l)) (caar l) (cadr l))) (eq (next-single-property-change i 'composition source (length source)) l))) (setq j (+ i l)) (setq j (+ i (egg-char-bytes (egg-string-to-char-at source i))))) (setq syl (substring no-prop-source i j)) (put-text-property i j 'its-syl (cons syl syl) source) (setq i j)) (if its-fence-face (progn (setq i 0) (while (< i len) (setq j (egg-next-single-property-change i 'egg-lang source len) face (its-get-fence-face (get-text-property i 'egg-lang source))) (if face (egg-set-face i j face source)) (setq i j)))) (delete-region start end) (if yank-before (progn (add-text-properties 0 len '(read-only t intangible its-part-1) source) (insert source)) (add-text-properties 0 len '(read-only t intangible its-part-2) source) (insert source) (set-marker (mark-marker) (point) (current-buffer)) (goto-char start)) (its-put-cursor t))) ;; Return VOID (defun its-input-end () (if (null (eq its-barf-on-invalid-keyseq 'its-keyseq-test)) (let ((cursor (get-text-property (point) 'its-cursor))) ;; key "END" (if (null cursor) (let ((its-current-language (get-text-property (1- (point)) 'egg-lang))) (its-input (get-text-property (1- (point)) 'its-syl) -1))) (delete-region (point) (1+ (point)))))) (defun its-exit-mode () "Exit ITS mode." (interactive) (if (its-in-fence-p) (let ((inhibit-read-only t)) (its-input-end) (its-put-cursor t) (its-exit-mode-internal)) (its-select-previous-mode t))) (defun its-exit-mode-if-empty () (and (get-text-property (1- (point)) 'its-start) (get-text-property (1+ (point)) 'its-end) (its-exit-mode-internal))) ;; TODO: handle overwrite-mode, insertion-hook, fill... (defun its-exit-mode-internal (&optional proceed-to-conversion n) (let (start end s context str) (its-select-previous-mode t) ;; Delete CURSOR (delete-region (point) (1+ (point))) ;; Delete open fence (setq s (its-search-beginning) start (previous-single-property-change s 'its-start nil (point-min)) context (get-text-property start 'its-context)) (delete-region start s) ;; Delete close fence (setq end (its-search-end)) (delete-region end (next-single-property-change end 'its-end nil (point-max))) (if proceed-to-conversion (egg-convert-region start end context n) ;; Remove all properties (goto-char start) (setq str (buffer-substring start end)) (egg-remove-all-text-properties 0 (length str) str) (delete-region start end) (insert str) (egg-do-auto-fill) (run-hooks 'input-method-after-insert-chunk-hook)))) (defun its-kick-convert-region (&optional n) (interactive "P") (let ((inhibit-read-only t)) (its-input-end) (its-put-cursor t) (its-exit-mode-internal t n))) (defun its-kick-convert-region-or-self-insert (&optional n) (interactive "P") (let ((syl (and (null (get-text-property (point) 'its-cursor)) (get-text-property (1- (point)) 'its-syl)))) (if (its-keyseq-acceptable-p (vector last-command-char) syl) (its-self-insert-char) (its-kick-convert-region n)))) (defun its-in-fence-p () (and (eq (get-text-property (point) 'intangible) 'its-part-2) (get-text-property (point) 'read-only))) (defvar its-translation-result "" "") (defun its-ins/del-SYL-batch (newsyl oldsyl cursor) (its-update-latest-SYL newsyl) (if (and newsyl (consp (cdr newsyl)) (not (its-kst-p (its-get-kst/t newsyl)))) ;; DSYL (let ((output (its-get-output newsyl)) (oldlen (length its-translation-result))) (setq its-translation-result (concat its-translation-result output)) (put-text-property oldlen (length its-translation-result) 'egg-lang its-current-language its-translation-result))) cursor) (defun its-translate-region (start end) (interactive "r") (its-translate-region-internal start end) (egg-remove-all-text-properties start (point))) (defun its-translate-region-internal (start end) (setq its-translation-result "") (goto-char start) (let ((i 0) (syl (its-initial-ISYL)) ;; temporally enable DING (its-barf-on-invalid-keyseq t) cursor) (while (< (point) end) (let ((key (following-char))) (setq cursor (its-state-machine syl key 'its-ins/del-SYL-batch)) (forward-char 1) (if cursor (setq syl (its-initial-ISYL)) (setq syl its-latest-SYL)))) (if (eq syl its-latest-SYL) (its-state-machine syl -1 'its-ins/del-SYL-batch)) (delete-region start end) (insert its-translation-result))) (defun its-set-mode-line-title () (let ((title (its-get-indicator (symbol-value its-current-map)))) (setq current-input-method-title (if its-previous-select-func (concat "<" title ">") title)) (force-mode-line-update))) (defun its-select-mode-temporally (func) (let ((select-func its-current-select-func)) (let ((its-previous-select-func t)) (funcall func)) (if (null its-previous-select-func) (setq its-previous-select-func select-func)) (its-set-mode-line-title))) (defun its-select-previous-mode (&optional quiet) (interactive) (if (null its-previous-select-func) (if (null quiet) (beep)) (funcall its-previous-select-func) (setq its-previous-select-func nil) (its-set-mode-line-title))) (defun its-set-stroke-input (alist) (let ((a alist)) (while a (setq its-stroke-input-alist (delq (assq (caar a) its-stroke-input-alist) its-stroke-input-alist)) (setq a (cdr a))) (setq its-stroke-input-alist (append alist its-stroke-input-alist)))) ;;; its-hiragana : hiragana-region for input-buffer (defun its-hiragana () (interactive) (its-convert (lambda (str lang) (japanese-hiragana str)))) ;;; its-katakana : katanaka-region for input-buffer (defun its-katakana () (interactive) (its-convert (lambda (str lang) (japanese-katakana str)))) (defconst its-full-half-table (make-vector 100 nil)) (defconst its-half-full-table (make-vector 100 nil)) (let ((table '((Japanese (?$B!!(B . ?\ ) (?$B!$(B . ?,) (?$B!%(B . ?.) (?$B!"(B . ?,) (?$B!#(B . ?.) (?$B!'(B . ?:) (?$B!((B . ?\;) (?$B!)(B . ??) (?$B!*(B . ?!) (?$B!-(B . ?') (?$B!.(B . ?`) (?$B!0(B . ?^) (?$B!2(B . ?_) (?$B!1(B . ?~) (?$B!<(B . ?-) (?$B!=(B . ?-) (?$B!>(B . ?-) (?$B!?(B . ?/) (?$B!@(B . ?\\) (?$B!A(B . ?~) (?$B!C(B . ?|) (?$B!F(B . ?`) (?$B!G(B . ?') (?$B!H(B . ?\") (?$B!I(B . ?\") (?$B!J(B . ?\() (?$B!K(B . ?\)) (?$B!N(B . ?[) (?$B!O(B . ?]) (?$B!P(B . ?{) (?$B!Q(B . ?}) (?$B!R(B . ?<) (?$B!S(B . ?>) (?$B!\(B . ?+) (?$B!](B . ?-) (?$B!a(B . ?=) (?$B!c(B . ?<) (?$B!d(B . ?>) (?$B!l(B . ?') (?$B!m(B . ?\") (?$B!o(B . ?\\) (?$B!p(B . ?$) (?$B!s(B . ?%) (?$B!t(B . ?#) (?$B!u(B . ?&) (?$B!v(B . ?*) (?$B!w(B . ?@) (?$B#0(B . ?0) (?$B#1(B . ?1) (?$B#2(B . ?2) (?$B#3(B . ?3) (?$B#4(B . ?4) (?$B#5(B . ?5) (?$B#6(B . ?6) (?$B#7(B . ?7) (?$B#8(B . ?8) (?$B#9(B . ?9) (?$B#A(B . ?A) (?$B#B(B . ?B) (?$B#C(B . ?C) (?$B#D(B . ?D) (?$B#E(B . ?E) (?$B#F(B . ?F) (?$B#G(B . ?G) (?$B#H(B . ?H) (?$B#I(B . ?I) (?$B#J(B . ?J) (?$B#K(B . ?K) (?$B#L(B . ?L) (?$B#M(B . ?M) (?$B#N(B . ?N) (?$B#O(B . ?O) (?$B#P(B . ?P) (?$B#Q(B . ?Q) (?$B#R(B . ?R) (?$B#S(B . ?S) (?$B#T(B . ?T) (?$B#U(B . ?U) (?$B#V(B . ?V) (?$B#W(B . ?W) (?$B#X(B . ?X) (?$B#Y(B . ?Y) (?$B#Z(B . ?Z) (?$B#a(B . ?a) (?$B#b(B . ?b) (?$B#c(B . ?c) (?$B#d(B . ?d) (?$B#e(B . ?e) (?$B#f(B . ?f) (?$B#g(B . ?g) (?$B#h(B . ?h) (?$B#i(B . ?i) (?$B#j(B . ?j) (?$B#k(B . ?k) (?$B#l(B . ?l) (?$B#m(B . ?m) (?$B#n(B . ?n) (?$B#o(B . ?o) (?$B#p(B . ?p) (?$B#q(B . ?q) (?$B#r(B . ?r) (?$B#s(B . ?s) (?$B#t(B . ?t) (?$B#u(B . ?u) (?$B#v(B . ?v) (?$B#w(B . ?w) (?$B#x(B . ?x) (?$B#y(B . ?y) (?$B#z(B . ?z)) (Chinese-GB (?$A!!(B . ?\ ) (?$A#,(B . ?,) (?$A#.(B . ?.) (?$A!"(B . ?,) (?$A!#(B . ?.) (?$A#:(B . ?:) (?$A#;(B . ?\;) (?$A#?(B . ??) (?$A#!(B . ?!) (?$A#`(B . ?`) (?$A#^(B . ?^) (?$A#_(B . ?_) (?$A#~(B . ?~) (?$A!*(B . ?-) (?$A#/(B . ?/) (?$A#\(B . ?\\) (?$A!+(B . ?~) (?$A#|(B . ?|) (?$A!.(B . ?`) (?$A!/(B . ?') (?$A!0(B . ?\") (?$A!1(B . ?\") (?$A#((B . ?\() (?$A#)(B . ?\)) (?$A#[(B . ?[) ( ?$A#](B . ?]) (?$A#{(B . ?{) (?$A#}(B . ?}) (?$A#+(B . ?+) (?$A#-(B . ?-) (?$A#=(B . ?=) (?$A#<(B . ?<) (?$A#>(B . ?>) (?$A#'(B . ?') (?$A#"(B . ?\") (?$A#$(B . ?$) (?$A#%(B . ?%) (?$A##(B . ?#) (?$A#&(B . ?&) (?$A#*(B . ?*) (?$A#@(B . ?@) (?$A#0(B . ?0) (?$A#1(B . ?1) (?$A#2(B . ?2) (?$A#3(B . ?3) (?$A#4(B . ?4) (?$A#5(B . ?5) (?$A#6(B . ?6) (?$A#7(B . ?7) (?$A#8(B . ?8) (?$A#9(B . ?9) (?$A#A(B . ?A) (?$A#B(B . ?B) (?$A#C(B . ?C) (?$A#D(B . ?D) (?$A#E(B . ?E) (?$A#F(B . ?F) (?$A#G(B . ?G) (?$A#H(B . ?H) (?$A#I(B . ?I) (?$A#J(B . ?J) (?$A#K(B . ?K) (?$A#L(B . ?L) (?$A#M(B . ?M) (?$A#N(B . ?N) (?$A#O(B . ?O) (?$A#P(B . ?P) (?$A#Q(B . ?Q) (?$A#R(B . ?R) (?$A#S(B . ?S) (?$A#T(B . ?T) (?$A#U(B . ?U) (?$A#V(B . ?V) (?$A#W(B . ?W) (?$A#X(B . ?X) (?$A#Y(B . ?Y) (?$A#Z(B . ?Z) (?$A#a(B . ?a) (?$A#b(B . ?b) (?$A#c(B . ?c) (?$A#d(B . ?d) (?$A#e(B . ?e) (?$A#f(B . ?f) (?$A#g(B . ?g) (?$A#h(B . ?h) (?$A#i(B . ?i) (?$A#j(B . ?j) (?$A#k(B . ?k) (?$A#l(B . ?l) (?$A#m(B . ?m) (?$A#n(B . ?n) (?$A#o(B . ?o) (?$A#p(B . ?p) (?$A#q(B . ?q) (?$A#r(B . ?r) (?$A#s(B . ?s) (?$A#t(B . ?t) (?$A#u(B . ?u) (?$A#v(B . ?v) (?$A#w(B . ?w) (?$A#x(B . ?x) (?$A#y(B . ?y) (?$A#z(B . ?z)) (Chinese-CNS (?$(G!!(B . ?\ ) (?$(G!"(B . ?,) (?$(G!%(B . ?.) (?$(G!#(B . ?,) (?$(G!$(B . ?.) (?$(G!((B . ?:) (?$(G!'(B . ?\;) (?$(G!)(B . ??) (?$(G!*(B . ?!) (?$(G!k(B . ?') (?$(G!j(B . ?`) (?$(G!T(B . ?^) (?$(G"%(B . ?_) (?$(G"#(B . ?~) (?$(G"@(B . ?-) (?$(G"_(B . ?/) (?$(G"`(B . ?\\) (?$(G"a(B . ?/) (?$(G"b(B . ?\\) (?$(G"D(B . ?~) (?$(G"^(B . ?|) (?$(G!d(B . ?`) (?$(G!e(B . ?') (?$(G!h(B . ?\") (?$(G!i(B . ?\") (?$(G!f(B . ?\") (?$(G!g(B . ?\") (?$(G!>(B . ?\() (?$(G!?(B . ?\)) (?$(G!F(B . ?[) (?$(G!G(B . ?]) (?$(G!b(B . ?[) (?$(G!c(B . ?]) (?$(G!B(B . ?{) (?$(G!C(B . ?}) (?$(G!`(B . ?{) (?$(G!a(B . ?}) (?$(G!R(B . ?<) (?$(G!S(B . ?>) (?$(G"0(B . ?+) (?$(G"1(B . ?-) (?$(G"8(B . ?=) (?$(G"6(B . ?<) (?$(G"7(B . ?>) (?$(G"c(B . ?$) (?$(G"h(B . ?%) (?$(G!l(B . ?#) (?$(G!m(B . ?&) (?$(G!n(B . ?*) (?$(G"i(B . ?@) (?$(G$!(B . ?0) (?$(G$"(B . ?1) (?$(G$#(B . ?2) (?$(G$$(B . ?3) (?$(G$%(B . ?4) (?$(G$&(B . ?5) (?$(G$'(B . ?6) (?$(G$((B . ?7) (?$(G$)(B . ?8) (?$(G$*(B . ?9) (?$(G$A(B . ?A) (?$(G$B(B . ?B) (?$(G$C(B . ?C) (?$(G$D(B . ?D) (?$(G$E(B . ?E) (?$(G$F(B . ?F) (?$(G$G(B . ?G) (?$(G$H(B . ?H) (?$(G$I(B . ?I) (?$(G$J(B . ?J) (?$(G$K(B . ?K) (?$(G$L(B . ?L) (?$(G$M(B . ?M) (?$(G$N(B . ?N) (?$(G$O(B . ?O) (?$(G$P(B . ?P) (?$(G$Q(B . ?Q) (?$(G$R(B . ?R) (?$(G$S(B . ?S) (?$(G$T(B . ?T) (?$(G$U(B . ?U) (?$(G$V(B . ?V) (?$(G$W(B . ?W) (?$(G$X(B . ?X) (?$(G$Y(B . ?Y) (?$(G$Z(B . ?Z) (?$(G$[(B . ?a) (?$(G$\(B . ?b) (?$(G$](B . ?c) (?$(G$^(B . ?d) (?$(G$_(B . ?e) (?$(G$`(B . ?f) (?$(G$a(B . ?g) (?$(G$b(B . ?h) (?$(G$c(B . ?i) (?$(G$d(B . ?j) (?$(G$e(B . ?k) (?$(G$f(B . ?l) (?$(G$g(B . ?m) (?$(G$h(B . ?n) (?$(G$i(B . ?o) (?$(G$j(B . ?p) (?$(G$k(B . ?q) (?$(G$l(B . ?r) (?$(G$m(B . ?s) (?$(G$n(B . ?t) (?$(G$o(B . ?u) (?$(G$p(B . ?v) (?$(G$q(B . ?w) (?$(G$r(B . ?x) (?$(G$s(B . ?y) (?$(G$t(B . ?z)) (Korean (?$(C!!(B . ?\ ) (?$(C#,(B . ?,) (?$(C#.(B . ?.) (?$(C#:(B . ?:) (?$(C#;(B . ?\;) (?$(C#?(B . ??) (?$(C#!(B . ?!) (?$(C!/(B . ?') (?$(C!.(B . ?`) (?$(C#^(B . ?^) (?$(C#_(B . ?_) (?$(C#~(B . ?~) (?$(C!*(B . ?-) (?$(C!)(B . ?-) (?$(C#/(B . ?/) (?$(C!,(B . ?\\) (?$(C!-(B . ?~) (?$(C#|(B . ?|) (?$(C!.(B . ?`) (?$(C!/(B . ?') (?$(C!0(B . ?\") (?$(C!1(B . ?\") (?$(C#((B . ?\() (?$(C#)(B . ?\)) (?$(C#[(B . ?[) (?$(C#](B . ?]) (?$(C#{(B . ?{) (?$(C#}(B . ?}) (?$(C!4(B . ?<) (?$(C!5(B . ?>) (?$(C#+(B . ?+) (?$(C#-(B . ?-) (?$(C#=(B . ?=) (?$(C#<(B . ?<) (?$(C#>(B . ?>) (?$(C#'(B . ?') (?$(C#"(B . ?\") (?$(C#\(B . ?\\) (?$(C#$(B . ?$) (?$(C#%(B . ?%) (?$(C##(B . ?#) (?$(C#&(B . ?&) (?$(C#*(B . ?*) (?$(C#@(B . ?@) (?$(C#0(B . ?0) (?$(C#1(B . ?1) (?$(C#2(B . ?2) (?$(C#3(B . ?3) (?$(C#4(B . ?4) (?$(C#5(B . ?5) (?$(C#6(B . ?6) (?$(C#7(B . ?7) (?$(C#8(B . ?8) (?$(C#9(B . ?9) (?$(C#A(B . ?A) (?$(C#B(B . ?B) (?$(C#C(B . ?C) (?$(C#D(B . ?D) (?$(C#E(B . ?E) (?$(C#F(B . ?F) (?$(C#G(B . ?G) (?$(C#H(B . ?H) (?$(C#I(B . ?I) (?$(C#J(B . ?J) (?$(C#K(B . ?K) (?$(C#L(B . ?L) (?$(C#M(B . ?M) (?$(C#N(B . ?N) (?$(C#O(B . ?O) (?$(C#P(B . ?P) (?$(C#Q(B . ?Q) (?$(C#R(B . ?R) (?$(C#S(B . ?S) (?$(C#T(B . ?T) (?$(C#U(B . ?U) (?$(C#V(B . ?V) (?$(C#W(B . ?W) (?$(C#X(B . ?X) (?$(C#Y(B . ?Y) (?$(C#Z(B . ?Z) (?$(C#a(B . ?a) (?$(C#b(B . ?b) (?$(C#c(B . ?c) (?$(C#d(B . ?d) (?$(C#e(B . ?e) (?$(C#f(B . ?f) (?$(C#g(B . ?g) (?$(C#h(B . ?h) (?$(C#i(B . ?i) (?$(C#j(B . ?j) (?$(C#k(B . ?k) (?$(C#l(B . ?l) (?$(C#m(B . ?m) (?$(C#n(B . ?n) (?$(C#o(B . ?o) (?$(C#p(B . ?p) (?$(C#q(B . ?q) (?$(C#r(B . ?r) (?$(C#s(B . ?s) (?$(C#t(B . ?t) (?$(C#u(B . ?u) (?$(C#v(B . ?v) (?$(C#w(B . ?w) (?$(C#x(B . ?x) (?$(C#y(B . ?y) (?$(C#z(B . ?z)))) (hash (make-vector 100 nil)) lang pair) (while table (setq lang (caar table) pair (cdar table) table (cdr table)) (while pair (set (intern (char-to-string (caar pair)) its-full-half-table) (cdar pair)) (set (intern (concat (symbol-name lang) (char-to-string (cdar pair))) its-half-full-table) (caar pair)) (setq pair (cdr pair))) hash)) ;;; its-half-width : half-width-region for input-buffer (defun its-half-width () (interactive) (its-convert (lambda (str lang) (concat (mapcar (lambda (c) (or (symbol-value (intern-soft (char-to-string c) its-full-half-table)) c)) (string-to-sequence str 'list)))))) ;;; its-full-width : full-width-region for input-buffer (defun its-full-width () (interactive) (its-convert (lambda (str lang) (if (egg-chinese-syllable str 0) (copy-sequence str) (concat (mapcar (lambda (c) (or (symbol-value (intern-soft (concat (symbol-name lang) (char-to-string c)) its-half-full-table)) c)) (string-to-sequence str 'list))))))) (defun its-convert (func) (let ((inhibit-read-only t)) (unwind-protect (progn (its-input-end) (let* ((start (its-search-beginning)) (end (its-search-end)) (old-str (buffer-substring start end)) (len (length old-str)) (p 0) (new-str "")) (put-text-property 0 len 'intangible 'its-part-1 old-str) (while (< p len) (let* ((prop (text-properties-at p old-str)) (cmp (memq 'composition prop)) (old (its-get-output (plist-get prop 'its-syl))) (new (funcall func old (plist-get prop 'egg-lang))) (new-len (length new)) syl) (unless (equal new old) (when cmp (if (eq prop cmp) (setq prop (cddr prop)) (setcdr (nthcdr (- (length prop) (length cmp) 1) prop) (cddr cmp)))) (setq syl (copy-sequence new)) (plist-put prop 'its-syl (cons syl syl))) (add-text-properties 0 new-len prop new) (setq new-str (concat new-str new) p (+ p (length old))))) (delete-region start end) (insert new-str))) (its-put-cursor t)))) (defun its-mode () "\\{its-mode-map}" ;; dummy function to get docstring ) (defun its-mode-help-command () "Display documentation for ITS mode." (interactive) (with-output-to-temp-buffer "*Help*" (princ "ITS mode:\n") (princ (documentation 'its-mode)) (help-setup-xref (cons #'help-xref-mode (current-buffer)) (interactive-p)))) ;; The `point-left' hook function will never be called in Emacs 21.2.50 ;; when the command `next-line' is used in the last line of a buffer ;; which isn't terminated with a newline or the command `previous-line' ;; is used in the first line of a buffer. (defun its-next-line (&optional arg) "Go to the end of the line if the line isn't terminated with a newline, otherwise run `next-line' as usual." (interactive "p") (if (= (line-end-position) (point-max)) (end-of-line) (next-line arg))) (defun its-previous-line (&optional arg) "Go to the beginning of the line if it is called in the first line of a buffer, otherwise run `previous-line' as usual." (interactive "p") (if (= (line-beginning-position) (point-min)) (beginning-of-line) (previous-line arg))) (substitute-key-definition 'next-line 'its-next-line its-mode-map global-map) (substitute-key-definition 'previous-line 'its-previous-line its-mode-map global-map) (provide 'its) ;;; its.el ends here egg-4.0.6+0.20041122cvs/jisx0213.el0000644000764400003210000000243307322423751017263 0ustar ishikawaishikawa00000000000000;;; jisx0213.el --- Charset Definition for JIS X 0213 ;; Copyright (C) 1999,2000 PFU LIMITED ;; Author: KATAYAMA Yoshio ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (unless (charsetp 'japanese-jisx0213-1) (define-charset 151 'japanese-jisx0213-1 [2 94 2 0 ?O 0 "JISX0213-1" "JISX0213-1" "JISX0213-1 (Japanese)"])) (unless (charsetp 'japanese-jisx0213-2) (define-charset 254 'japanese-jisx0213-2 [2 94 2 0 ?P 0 "JISX0213-2" "JISX0213-2" "JISX0213-2 (Japanese)"])) egg-4.0.6+0.20041122cvs/leim-list.el0000644000764400003210000000742107532251422017676 0ustar ishikawaishikawa00000000000000;;; leim-list.el --- Egg setup for leim API ;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; KATAYAMA Yoshio ;; TOMURA Satoru ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;;; Code: (autoload 'egg-activate-anthy "egg/anthy" "Activate ANTHY backend of Tamago 4." t) (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago 4." t) (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t) (autoload 'egg-activate-canna "egg/canna" "Activate CANNA backend of Tamago 4." t) (register-input-method "japanese-egg-anthy" "Japanese" 'egg-activate-anthy "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" 'its-select-hiragana) (register-input-method "japanese-egg-wnn" "Japanese" 'egg-activate-wnn "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" 'its-select-hiragana) (register-input-method "japanese-egg-sj3" "Japanese" 'egg-activate-sj3 "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" 'its-select-hiragana) (register-input-method "japanese-egg-canna" "Japanese" 'egg-activate-canna "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" 'its-select-hiragana) (register-input-method "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn "$AF4(BG" "Pinyin -> Simplified Hanzi" 'its-select-pinyin-cn) (register-input-method "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn "$AW"(BG" "Zhunyin -> Simplified Hanzi" 'its-select-zhuyin-cn) (register-input-method "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn "$AG.(B" "QianMa Simplified Hanzi inputmethod" 'its-select-qianma) (register-input-method "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn "$ANe(B" "WuBi Simplified Hanzi inputmethod" 'its-select-wubi) (register-input-method "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn "$(GQ;(BC" "Pinyin -> Traditional Hanzi" 'its-select-pinyin-tw) (register-input-method "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn "$(GNC(BC" "Zhunyin -> Traditional Hanzi" 'its-select-zhuyin-tw) (register-input-method "korean-egg-wnn" "Korean" 'egg-activate-wnn "$(CGQ(B" "Hangul -> Hanja" 'its-select-hangul) (autoload 'egg-mode "egg" "Toggle EGG mode." t) (set-language-info "Japanese" 'input-method "japanese-egg-wnn") (set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py") (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py") (set-language-info "Korean" 'input-method "korean-egg-wnn") (defgroup leim nil "LEIM stands for Libraries of Emacs Input Methods." :group 'mule) (defgroup egg nil "" :group 'leim :load "egg") (defgroup anthy nil "" :group 'egg :load "egg/anthy") (defgroup wnn nil "" :group 'egg :load "egg/wnn") (defgroup sj3 nil "" :group 'egg :load "egg/sj3") (defgroup canna nil "" :group 'egg :load "egg/canna") (defgroup its nil "" :group 'egg :load "its") (defgroup hira nil "" :group 'its :load "its/hira") ;;; leim-list.el ends here. egg-4.0.6+0.20041122cvs/menudiag.el0000644000764400003210000005337707234614431017605 0ustar ishikawaishikawa00000000000000;;; menudiag.el --- Minibuffer Menu System ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ;; Author: NIIBE Yutaka ;; Maintainer: TOMURA Satoru ;; Keywords: mule, multilingual, input method ;; This file is part of EGG. ;; EGG 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. ;; EGG 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Inspired by the menu subsystem of EGG V3.0 ;; ;; Completely different implementation, using keymap and recursive edit. ;;; Code: ;; ;; Data structure of MENU ;; ;; ::= ( menu ) ;; ::= STRING ;; ::= ( ... ) ;; ::= | ( . ) ;; ;; ::= | INTEGER | STRING (Must *NOT* cons cell) ;; ;; ; ;; ;; ::= ( ... ) ;; ::= ( ... ) ;; (defgroup menudiag nil "Input Translation System of Tamago 4." :group 'egg) (defcustom menudiag-select-without-return nil "*Number keys not only goes the item, but also select the item, if non-NIL." :group 'menudiag :type 'boolean) (defvar menudiag-mode-map (let ((map (make-sparse-keymap)) ch) (setq ch ?0) (while (<= ch ?9) (define-key map (char-to-string ch) 'menudiag-goto-item) (setq ch (1+ ch))) (setq ch ?a) (while (<= ch ?z) (define-key map (char-to-string ch) 'menudiag-goto-item) (setq ch (1+ ch))) (setq ch ?A) (while (<= ch ?Z) (define-key map (char-to-string ch) 'menudiag-goto-item) (setq ch (1+ ch))) (setq ch ?\C-0) (while (<= ch ?\C-9) (define-key map (vector ch) 'digit-argument) (setq ch (1+ ch))) (define-key map [?\C--] 'negative-argument) (define-key map [?\C-u] 'universal-argument) (define-key map " " 'menudiag-forward-item) (define-key map "\C-a" 'menudiag-beginning-of-line) (define-key map "\C-e" 'menudiag-end-of-line) (define-key map "\M-<" 'menudiag-beginning-of-items) (define-key map "\M->" 'menudiag-end-of-items) (define-key map "\C-f" 'menudiag-forward-item) (define-key map "\C-b" 'menudiag-backward-item) (define-key map "\C-n" 'menudiag-next-line) (define-key map "\C-p" 'menudiag-previous-line) (define-key map "\C-]" 'menudiag-exit) (define-key map "\C-g" 'menudiag-exit-one-level) (define-key map "\C-l" 'menudiag-redraw) (define-key map "\C-m" 'menudiag-select-this-item) (define-key map "\M-v" 'menudiag-list-other-window) (define-key map "?" 'menudiag-list-other-window) (define-key map [return] 'menudiag-select-this-item) (define-key map [left] 'menudiag-backward-item) (define-key map [right] 'menudiag-forward-item) (define-key map [up] 'menudiag-previous-line) (define-key map [down] 'menudiag-next-line) (define-key map [exit] 'menudiag-exit) (define-key map [t] 'undefined) map) "Keymap for MENU.") (defun menudiag-menu-p (item) (and (consp item) (eq 'menu (car item)))) (defun menudiag-item-string (item) (if (stringp item) item (format "%s" (car item)))) (defun menudiag-item-value (item) (if (stringp item) item (cdr item))) (defsubst menudiag-item-width (item) (+ 4 (string-width (menudiag-item-string item)))) (defun menudiag-make-selection-list (item-list line-width) (let ((l nil) (line nil) (width 0) (i 0)) (while item-list (let* ((item (car item-list)) (item-width (menudiag-item-width item))) (if (and line (or (>= (+ width item-width) line-width) (>= i 36))) (setq l (cons (reverse line) l) line nil width 0 i 0)) (setq line (cons item line) width (+ width (menudiag-item-width item)) i (1+ i) item-list (cdr item-list)))) (if line (reverse (cons (reverse line) l)) (reverse l)))) (defvar menudiag-show-all nil) (make-variable-buffer-local 'menudiag-show-all) (defvar menudiag-continuation nil) (make-variable-buffer-local 'menudiag-continuation) (defvar menudiag-return-contin nil) (make-variable-buffer-local 'menudiag-return-contin) (defvar menudiag-value nil) (make-variable-buffer-local 'menudiag-value) (defvar menudiag-done nil) (make-variable-buffer-local 'menudiag-done) ;; Entry function (defun menudiag-select (menu &optional list-all continuation return-contin) (let ((enable-recursive-minibuffers t)) (setq menudiag-return-contin return-contin) (menudiag-select-internal menu list-all continuation) (if (eq menudiag-done t) menudiag-value (signal 'quit "")))) (defvar menudiag-line nil) (make-variable-buffer-local 'menudiag-line) (defvar menudiag-linepos 0) (make-variable-buffer-local 'menudiag-linepos) (defvar menudiag-pos-in-line 0) (make-variable-buffer-local 'menudiag-pos-in-line) (defun menudiag-follow-continuation () (let* ((item (car menudiag-continuation)) (value (menudiag-item-value item)) (pos (menudiag-search-item item))) (unless pos (error "no such item: %s" (menudiag-item-string item))) (menudiag-goto-line (car pos)) (menudiag-goto-item-internal (cdr pos)) (when (menudiag-menu-p value) (menudiag-select-internal value menudiag-show-all (cdr menudiag-continuation)) (menudiag-redraw) (when menudiag-done (when menudiag-return-contin (setq menudiag-value (cons item menudiag-value))) (setq unread-command-events (cons 'exit unread-command-events)))))) (defvar menudiag-minibuffer-list nil) (defvar menudiag-variable-alist nil) (defmacro menudiag-send-variables (&rest args) `(setq menudiag-variable-alist (list ,@(mapcar (lambda (var) `(cons ',var ,var)) args)))) (defmacro menudiag-send-variables-with-value (&rest args) `(setq menudiag-variable-alist ,(let ((alist (list 'list))) (while args (nconc alist `((cons ',(car args) ,(cadr args)))) (setq args (cddr args))) alist))) (defun menudiag-receive-variables () (while menudiag-variable-alist (set (caar menudiag-variable-alist) (cdar menudiag-variable-alist)) (setq menudiag-variable-alist (cdr menudiag-variable-alist)))) (defvar menudiag-minibuf-prompt nil) (make-variable-buffer-local 'menudiag-minibuf-prompt) (defvar menudiag-current-items nil) (make-variable-buffer-local 'menudiag-current-items) (defvar menudiag-selection-list nil) (make-variable-buffer-local 'menudiag-selection-list) (defun menudiag-minibuffer-hook () (interactive) (remove-hook 'minibuffer-setup-hook 'menudiag-minibuffer-hook) (setq menudiag-minibuffer-list (cons (current-buffer) menudiag-minibuffer-list)) (buffer-disable-undo) (menudiag-receive-variables) (menudiag-beginning-of-items) (when menudiag-continuation (menudiag-follow-continuation)) (when (and menudiag-show-all (null menudiag-done)) (menudiag-list-other-window))) (defun menudiag-select-internal (menu all &optional continuation) (menudiag-send-variables-with-value menudiag-value menudiag-value menudiag-continuation continuation menudiag-return-contin menudiag-return-contin menudiag-show-all all menudiag-minibuf-prompt (cadr menu) menudiag-current-items (car (cddr menu)) menudiag-selection-list (menudiag-make-selection-list (car (cddr menu)) (- (window-width (minibuffer-window)) (string-width (cadr menu))))) (add-hook 'minibuffer-setup-hook 'menudiag-minibuffer-hook) (unwind-protect (progn (read-from-minibuffer "" "" menudiag-mode-map) (menudiag-receive-variables)) (setq menudiag-minibuffer-list (cdr menudiag-minibuffer-list)) (remove-hook 'minibuffer-setup-hook 'menudiag-minibuffer-hook) ;; for egg's point-enterd/left hooks (save-excursion (goto-char (point-min))))) (defun menudiag-make-menu-formatted-string (item-list) (let ((i -1)) (mapconcat (function (lambda (item) (setq i (1+ i)) (format " %c.%s" (menudiag-item-num-to-char i) (menudiag-item-string item)))) item-list ""))) ;; ITEM No --> Character (defun menudiag-item-num-to-char (num) (let ((char)) (cond ((<= num 9) (setq char (+ ?0 num))) (t (setq char (+ ?a (- num 10)))) ) char)) ;; Character --> ITEM No (defun menudiag-char-to-item-num (ch) (let ((num)) (cond ((and (<= ?0 ch) (<= ch ?9)) (setq num (- ch ?0))) ((and (<= ?a ch) (<= ch ?z)) (setq num (+ 10 (- ch ?a)))) ((and (<= ?A ch) (<= ch ?Z)) (setq num (+ 10 (- ch ?A)))) (t (setq num 1000))) num)) (defun menudiag-check-current-menu () (or (eq (current-buffer) (car menudiag-minibuffer-list)) (error "menudiag: not current menu"))) (defun menudiag-goto-item () (interactive) (menudiag-check-current-menu) (let ((ch last-command-char) (n 0)) (setq n (menudiag-char-to-item-num ch)) (if (>= n (length menudiag-line)) (error "No such item") (menudiag-goto-item-internal n) (if menudiag-select-without-return (menudiag-select-this-item))))) (defun menudiag-goto-item-internal (n) (let ((p (+ (length menudiag-minibuf-prompt) 3)) (i 0)) (setq menudiag-pos-in-line n) (while (< i menudiag-pos-in-line) (setq p (+ p (length (menudiag-item-string (nth i menudiag-line))) 4)) (setq i (1+ i))) (goto-char p))) (defun menudiag-beginning-of-items () (interactive) (menudiag-check-current-menu) (menudiag-goto-line 0) (menudiag-beginning-of-line)) (defun menudiag-end-of-items () (interactive) (menudiag-check-current-menu) (menudiag-goto-line (1- (length menudiag-selection-list))) (menudiag-end-of-line)) (defun menudiag-beginning-of-line () (interactive) (menudiag-check-current-menu) (menudiag-goto-item-internal 0)) (defun menudiag-end-of-line () (interactive) (menudiag-check-current-menu) (menudiag-goto-item-internal (1- (length menudiag-line)))) ;; Should retain compatibility. Must. ;; ;;(defun menudiag-forward-item () ;; (interactive) ;; (if (< pos-in-line (1- (length line))) ;; (menudiag-goto-item-internal (1+ pos-in-line)) ;; (if (>= linepos (1- (length selection-list))) ;; (signal 'end-of-buffer "") ;; (menudiag-goto-line (1+ linepos)) ;; (menudiag-beginning-of-line)))) ;; ;;(defun menudiag-backward-item () ;; (interactive) ;; (if (< 0 pos-in-line) ;; (menudiag-goto-item-internal (1- pos-in-line)) ;; (if (< linepos 1) ;; (signal 'beginning-of-buffer "") ;; (menudiag-goto-line (1- linepos)) ;; (menudiag-end-of-line)))) ;; ;;(defun menudiag-goto-line (n) ;; (if (or (>= n (length selection-list)) (< n 0)) ;; (ding) ;; (setq line (nth n selection-list) ;; linepos n) ;; (delete-region (point-min) (point-max)) ;; (insert (menudiag-make-menu-formatted-string line)))) ;; (defun menudiag-forward-item (n) (interactive "p") (menudiag-forward-item-internal n)) (defun menudiag-backward-item (n) (interactive "p") (menudiag-forward-item-internal (- n))) (defun menudiag-forward-item-internal (n) (menudiag-check-current-menu) (setq n (+ n menudiag-pos-in-line)) (while (< n 0) (menudiag-goto-line (1- menudiag-linepos)) (setq n (+ n (length menudiag-line)))) (while (>= n (length menudiag-line)) (setq n (- n (length menudiag-line))) (menudiag-goto-line (1+ menudiag-linepos))) (menudiag-goto-item-internal n)) (defun menudiag-goto-line (n) (let ((len (length menudiag-selection-list))) (when (< n 0) (setq n (+ (% n len) len))) (when (>= n len) (setq n (% n len))) (setq menudiag-line (nth n menudiag-selection-list) menudiag-linepos n) (let ((inhibit-read-only t)) (erase-buffer) (insert menudiag-minibuf-prompt (menudiag-make-menu-formatted-string menudiag-line)) (set-text-properties (point-min) (point-max) '(read-only t))))) (defun menudiag-next-line (n) (interactive "p") (menudiag-next-line-internal n)) (defun menudiag-previous-line (n) (interactive "p") (menudiag-next-line-internal (- n))) (defun menudiag-next-line-internal (n) (menudiag-check-current-menu) (menudiag-goto-line (+ menudiag-linepos n)) (if (< menudiag-pos-in-line (length menudiag-line)) (menudiag-goto-item-internal menudiag-pos-in-line) (menudiag-end-of-line))) (defun menudiag-redraw () (interactive) (menudiag-check-current-menu) (menudiag-goto-line menudiag-linepos) (menudiag-goto-item-internal menudiag-pos-in-line)) (defun menudiag-exit-one-level () (interactive) (menudiag-check-current-menu) (menudiag-exit-minibuffer)) (defun menudiag-exit () (interactive) (menudiag-check-current-menu) (unless menudiag-done (setq menudiag-done 'quit)) (menudiag-exit-minibuffer)) (defun menudiag-select-this-item (&optional all) (interactive) (menudiag-check-current-menu) (let* ((item (nth menudiag-pos-in-line menudiag-line)) (v (menudiag-item-value item))) (if (menudiag-menu-p v) (progn (menudiag-restore-window) (menudiag-select-internal v all) (menudiag-redraw) (cond (menudiag-done (when menudiag-return-contin (setq menudiag-value (cons item menudiag-value))) (menudiag-exit-minibuffer)) (all (menudiag-list-other-window)))) (setq menudiag-value (if menudiag-return-contin (list item) (menudiag-item-value item)) menudiag-done t) (menudiag-exit-minibuffer)))) (defun menudiag-search-item (item) (let ((selection-list menudiag-selection-list) (line 0) rest) (while (and selection-list (null (setq rest (memq item (car selection-list))))) (setq selection-list (cdr selection-list) line (1+ line))) (and selection-list (cons line (- (length (car selection-list)) (length rest)))))) (defconst menudiag-selection-map (let ((map (make-sparse-keymap)) (ch ?0)) (while (<= ch ?9) (define-key map (char-to-string ch) 'menudiag-selection-goto) (setq ch (1+ ch))) (define-key map "q" 'menudiag-retun-to-minibuf) (define-key map "\C-b" 'previous-completion) (define-key map "\M-b" 'previous-completion) (define-key map "\C-f" 'next-completion) (define-key map "\M-f" 'next-completion) (define-key map " " 'next-completion) (define-key map "\C-g" 'menudiag-selection-exit-one-level) (define-key map "\C-m" 'menudiag-choose-item) (define-key map "\C-]" 'menudiag-selection-exit) (define-key map "\177" 'menudiag-selection-goto-delete) (define-key map [delete] 'menudiag-selection-goto-delete) (define-key map [backspace] 'menudiag-selection-goto-delete) (define-key map [right] 'next-completion) (define-key map [left] 'previous-completion) (define-key map [return] 'menudiag-choose-item) (define-key map [mouse-2] 'menudiag-mouse-choose-item) map) "keymap for menu selection mode") (defvar menudiag-window-conf nil) (make-variable-buffer-local 'menudiag-window-conf) (defvar menudiag-selection-buffer nil) (make-variable-buffer-local 'menudiag-selection-buffer) (defvar menudiag-selection-main-buffer nil) (make-variable-buffer-local 'menudiag-selection-main-buffer) (defun menudiag-selection-mode () (kill-all-local-variables) (make-local-variable 'inhibit-read-only) (setq buffer-read-only t inhibit-read-only nil) (make-local-hook 'post-command-hook) (add-hook 'post-command-hook 'menudiag-selection-align-to-item nil t) (use-local-map menudiag-selection-map) (setq mode-name "Menudiag Selection") (setq major-mode 'menudiag-selection-mode)) (defun menudiag-max-item-width (items) (apply 'max (mapcar 'menudiag-item-width items))) (defun menudiag-buffer-show-function () (menudiag-receive-variables) (let* ((items menudiag-current-items) (digits (length (number-to-string (length items)))) (form (concat "%" (number-to-string digits) "d. %s")) (columns (max 1 (/ (window-width (selected-window)) (+ digits (menudiag-max-item-width items))))) (width (/ (window-width (selected-window)) columns)) (col 0) (n 0) str p) (insert " ") (while items (setq p (point) str (format form n (menudiag-item-string (car items)))) (insert str) (set-text-properties p (point) '(mouse-face highlight)) (setq col (1+ col) n (1+ n) items (cdr items)) (if items (if (/= col columns) (insert (make-string (- width (string-width str)) ?\ )) (insert "\n ") (setq col 0)))) (goto-char (point-min)) (set-buffer-modified-p nil) (menudiag-selection-mode))) (defun menudiag-buffer-name (prompt) (let ((len (1- (length prompt)))) (generate-new-buffer-name (if (= (aref prompt len) ?:) (substring prompt 0 len) prompt)))) (defun menudiag-list-other-window () (interactive) (menudiag-check-current-menu) (let ((window (and menudiag-selection-buffer (get-buffer-window menudiag-selection-buffer)))) (if window (select-window window) (let ((temp-buffer-show-hook 'menudiag-buffer-show-function) (main-buf (current-buffer)) (selection-list menudiag-selection-list) (linepos menudiag-linepos) (n (1+ menudiag-pos-in-line))) (setq menudiag-window-conf (current-window-configuration)) (menudiag-send-variables menudiag-current-items) (with-output-to-temp-buffer (menudiag-buffer-name menudiag-minibuf-prompt) (setq menudiag-selection-buffer standard-output)) (switch-to-buffer-other-window menudiag-selection-buffer) (setq menudiag-selection-main-buffer main-buf menudiag-selection-list selection-list) (while (> linepos 0) (setq linepos (1- linepos) n (+ n (length (car selection-list))) selection-list (cdr selection-list))) (next-completion n))))) (defun menudiag-check-current-menu-list () (or (eq menudiag-selection-main-buffer (car menudiag-minibuffer-list)) (error "menudiag: not current menu list"))) (defun menudiag-choose-item () (interactive) (menudiag-choose-item-internal nil)) (defun menudiag-mouse-choose-item (event) (interactive "e") (set-buffer (window-buffer (caadr event))) (menudiag-choose-item-internal event)) (defun menudiag-choose-item-internal (event) (menudiag-check-current-menu-list) (let ((org-buf menudiag-selection-main-buffer) (sel-buf (current-buffer)) (item-list menudiag-selection-list) (l 0) tmp-buf n) (with-temp-buffer (setq tmp-buf (current-buffer)) (set-buffer sel-buf) (setq completion-reference-buffer tmp-buf) (if event (mouse-choose-completion event) (choose-completion)) (set-buffer tmp-buf) (setq n (string-to-int (buffer-string)))) (pop-to-buffer org-buf) (while (and item-list (>= n (length (car item-list)))) (setq l (1+ l) n (- n (length (car item-list))) item-list (cdr item-list))) (menudiag-goto-line l) (menudiag-goto-item-internal n) (menudiag-select-this-item t))) (defvar menudiag-goto-number-list nil) (make-variable-buffer-local 'menudiag-goto-number-list) (defvar menudiag-original-point nil) (make-variable-buffer-local' menudiag-original-point) (defun menudiag-selection-goto () (interactive) (unless (eq last-command 'menudiag-selection-goto) (setq menudiag-goto-number-list nil menudiag-original-point (point))) (setq menudiag-goto-number-list (cons (- last-command-char ?0) menudiag-goto-number-list)) (menudiag-selection-goto-internal)) (defun menudiag-selection-goto-internal () (let* ((list menudiag-goto-number-list) (n (menudiag-selection-item-number list)) (len (save-excursion (set-buffer menudiag-selection-main-buffer) (length menudiag-current-items)))) (setq this-command 'menudiag-selection-goto) (if (>= n len) (progn (ding) (setq menudiag-goto-number-list (cdr list))) (goto-char (point-min)) (next-completion (1+ n))))) (defun menudiag-selection-item-number (list) (let ((n 0) (exp 1)) (while list (setq n (+ (* (car list) exp) n) exp (* 10 exp) list (cdr list))) n)) (defun menudiag-selection-goto-delete (n) (interactive "p") (if (null (eq last-command 'menudiag-selection-goto)) (ding) (setq menudiag-goto-number-list (nthcdr n menudiag-goto-number-list)) (if (null menudiag-goto-number-list) (goto-char menudiag-original-point) (menudiag-selection-goto-internal)))) (defun menudiag-selection-align-to-item () (cond ((bolp) (next-completion 1)) ((get-text-property (1- (point)) 'mouse-face) (goto-char (previous-single-property-change (point) 'mouse-face))))) (defun menudiag-restore-window () (when menudiag-window-conf (set-window-configuration menudiag-window-conf) (kill-buffer menudiag-selection-buffer))) (defun menudiag-exit-minibuffer () (menudiag-restore-window) (menudiag-send-variables menudiag-done menudiag-value) (buffer-enable-undo) (exit-minibuffer)) (defun menudiag-retun-to-minibuf () (interactive) (menudiag-check-current-menu-list) (unless (minibuffer-window-active-p (minibuffer-window)) (set-minibuffer-window (minibuffer-window))) (let ((window (get-buffer-window menudiag-selection-main-buffer))) (if window (select-window window) (error "menudiag: cannot find minibuffer")))) (defun menudiag-selection-exit-one-level () (interactive) (set-buffer menudiag-selection-main-buffer) (menudiag-exit-one-level)) (defun menudiag-selection-exit () (interactive) (set-buffer menudiag-selection-main-buffer) (menudiag-exit)) (provide 'menudiag) ;;; menudiag.el ends here.