From 04f229a14b612f483ddb4b99772da2d19cd1d48e Mon Sep 17 00:00:00 2001 From: ntakahas Date: Wed, 16 May 2007 12:55:26 +0000 Subject: [PATCH] *** empty log message *** --- th-kesmanee-2.mim | 145 --------------------------------------------------- th-pattachote-2.mim | 41 --------------- th-tis820-2.mim | 41 --------------- 3 files changed, 227 deletions(-) delete mode 100644 th-kesmanee-2.mim delete mode 100644 th-pattachote-2.mim delete mode 100644 th-tis820-2.mim diff --git a/th-kesmanee-2.mim b/th-kesmanee-2.mim deleted file mode 100644 index 5861936..0000000 --- a/th-kesmanee-2.mim +++ /dev/null @@ -1,145 +0,0 @@ -;; th-kesmanee-2.mim -- Thai input method with Kesmanee keyboard layout -;; Copyright (C) 2003, 2004, 2005, 2006 -;; National Institute of Advanced Industrial Science and Technology (AIST) -;; Registration Number H15PRO112 - -;; This file is part of the m17n database; a sub-part of the m17n -;; library. - -;; The m17n library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public License -;; as published by the Free Software Foundation; either version 2.1 of -;; the License, or (at your option) any later version. - -;; The m17n library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. - -;; You should have received a copy of the GNU Lesser General Public -;; License along with the m17n library; if not, write to the Free -;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -(input-method th kesmanee-2) - -(description "Thai input method simulating the Kesmanee keyboard -with WTT 2.0 level 2 input sequence correction. -The correction algorithm follows the one shown in the following - -") - -(title "ท") - -(include (th kesmanee) map) - -(macro - - ;; input global variable : arg1, arg2 - ;; output global variable : ret - (cp - (set ret 0) - (cond - - ;; next = BV1|BV2|BD|AD3|AV1|AV2|AV3, previous = CONS - ((| (= arg2 0x0E31) - (& (>= arg2 0x0E34) (<= arg2 0x0E3A)) - (= arg2 0x0E4E)) - (cond - ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23)) - (= arg1 0x0E25) - (& (>= arg1 0x0E27) (<= arg1 0x0E2E))) - (set ret 1)))) - - ;; next = TONE, previous = CONS|BV1|BV2|AV1|AV2|AV3 - ((& (>= arg2 0x0E48) (<= arg2 0x0E4B)) - (cond - ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23)) - (= arg1 0x0E25) - (& (>= arg1 0x0E27) (<= arg1 0x0E2E)) - (= arg1 0x0E31) - (& (>= arg1 0x0E34) (<= arg1 0x0E39))) - (set ret 1)))) - - ;; next = AD1, previous = CONS|BV1|AV1 - ((& (>= arg2 0x0E4C) (<= arg2 0x0E4D)) - (cond - ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23)) - (= arg1 0x0E25) - (& (>= arg1 0x0E27) (<= arg1 0x0E2E)) - (= arg1 0x0E38) - (= arg1 0x0E34)) - (set ret 1)))) - - ;; next = AD2, previous = TONE| AV3 - ((= arg2 0x0E47) - (cond - ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23)) - (= arg1 0x0E25) - (& (>= arg1 0x0E27) (<= arg1 0x0E2E)) - (= arg1 0x0E35) - (= arg1 0x0E37)) - (set ret 1)))))) - - ;; input global variable : arg1, arg2 - ;; output global variable : ret - ;; This is Level 2 acceptance. - (ac - (set ret 0) - (cond - - ;; next = CTRL|CONS, previous = * - ((| (<= arg2 0x001F) - (& (>= arg2 0x0080) (<= arg2 0x009F)) - (& (>= arg2 0x0E01) (<= arg2 0x0E23)) - (= arg2 0x0E25) - (& (>= arg2 0x0E27) (<= arg2 0x0E2E))) - (set ret 1)) - - ;; next = NON|LV, previous = ~LV, - ((| (& (>= arg2 0x0020) (<= arg2 0x007E)) - (& (>= arg2 0x00A0) (<= arg2 0x0E00)) - (= arg2 0x0E2F) - (& (>= arg2 0x0E3F) (<= arg2 0x0E44)) - (= arg2 0x0E46) - (> arg2 0x0E4E)) - (cond - ((| (< arg1 0x0E40) (> arg1 0x0E44)) - (set ret 1)))) - - ;; next = FV1, previous = CONS|FV1|FV2|BV1|TONE - ((| (= arg2 0x0E30) (= arg2 0x0E32) (= arg2 0x0E33)) - (cond - ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23)) - (= arg1 0x0E25) - (& (>= arg1 0x0E27) (<= arg1 0x0E2E)) - (= arg1 0x0E30) - (= arg1 0x0E32) - (= arg1 0x0E33) - (= arg1 0x0E45) - (= arg1 0x0E38) - (& (>= arg1 0x0E48) (<= arg1 0x0E4B))) - (set ret 1)))) - - ;; next = FV2, previous = FV3|TONE - ((= arg2 0x0E45) - (cond - ((| (= arg1 0x0E24) - (= arg1 0x0E26) - (& (>= arg1 0x0E48) (<= arg1 0x0E4B))) - (set ret 1)))) - - ;; next = FV3, previous = ~LV~FV3 - ((| (= arg2 0x0E24) (= arg2 0x0E26)) - (cond - ((& (| (< arg1 0x0E40) (> arg1 0x0E44)) - (! (= arg1 0x0E24)) - (! (= arg1 0x0E26))) - (set ret 1))))))) - -(include (th kesmanee) state) - -;; Local Variables: -;; coding: utf-8 -;; mode: emacs-lisp -;; End: diff --git a/th-pattachote-2.mim b/th-pattachote-2.mim deleted file mode 100644 index 313b0a4..0000000 --- a/th-pattachote-2.mim +++ /dev/null @@ -1,41 +0,0 @@ -;; th-pattachote-2.mim -- Thai input method with Pattachote keyboard layout -;; Copyright (C) 2006 -;; National Institute of Advanced Industrial Science and Technology (AIST) -;; Registration Number H15PRO112 - -;; This file is part of the m17n database; a sub-part of the m17n -;; library. - -;; The m17n library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public License -;; as published by the Free Software Foundation; either version 2.1 of -;; the License, or (at your option) any later version. - -;; The m17n library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. - -;; You should have received a copy of the GNU Lesser General Public -;; License along with the m17n library; if not, write to the Free -;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA -;; 02110-1301, USA. - -(input-method th pattachote-2) - -(description "Thai input method simulating the Pattachote keyboard -with WTT 2.0 level 2 input sequence correction. -The correction algorithm follows the one shown in the following - -") - -(title "ท") - -(include (th kesmanee-2) macro) - -(include (th pattachote) state) - -;; Local Variables: -;; coding: utf-8 -;; mode: emacs-lisp -;; End: diff --git a/th-tis820-2.mim b/th-tis820-2.mim deleted file mode 100644 index 05f4c2f..0000000 --- a/th-tis820-2.mim +++ /dev/null @@ -1,41 +0,0 @@ -;; th-tis820-2.mim -- Thai input method with TIS-820.2538 keyboard layout -;; Copyright (C) 2006 -;; National Institute of Advanced Industrial Science and Technology (AIST) -;; Registration Number H15PRO112 - -;; This file is part of the m17n database; a sub-part of the m17n -;; library. - -;; The m17n library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public License -;; as published by the Free Software Foundation; either version 2.1 of -;; the License, or (at your option) any later version. - -;; The m17n library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. - -;; You should have received a copy of the GNU Lesser General Public -;; License along with the m17n library; if not, write to the Free -;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA -;; Boston, MA 02110-1301, USA. - -(input-method th tis820-2) - -(description "Thai input method simulating the TIS-820.2538 keyboard -with WTT 2.0 level 2 input sequence correction. -The correction algorithm follows the one shown in the following - -") - -(title "ท") - -(include (th kesmanee-2) macro) - -(include (th tis820) state) - -;; Local Variables: -;; coding: utf-8 -;; mode: emacs-lisp -;; End: -- 1.7.10.4