X-Git-Url: http://git.chise.org/gitweb/?p=m17n%2Fm17n-contrib.git;a=blobdiff_plain;f=im%2Fsi-phonetic-static.mim;h=552aae148b48feebf5bf550b4164bd0ba8fe7436;hp=85bbd60387f48b9f50296fd621a680c3f3a6c164;hb=4d32547ffff56cc2fc795695045198725e8acdb4;hpb=52c4a1e90cb6b23137ac10278c0da0032707e439

diff --git a/im/si-phonetic-static.mim b/im/si-phonetic-static.mim
index 85bbd60..552aae1 100644
--- a/im/si-phonetic-static.mim
+++ b/im/si-phonetic-static.mim
@@ -1,7 +1,24 @@
 ;; si-phonetic-static.mim -- Sinhala phonetic static keymap
+;; Copyright (C) 2006-2008  Harshula Jayasuriya <harshula@gmail.com>
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA  02110-1301, USA.
+
 ;; m17n Keymap file for Sinhala (Sri Lanka) (2006-04-26)
 ;; Maintainer: Harshula Jayasuriya <harshula@gmail.com>
-;; Last Updated: 2007-07-08
+;; Last Updated: 2008-09-10
 ;; This is a phonetic static mapping for a standard US-English keyboard
 ;; (qwerty)
 ;; http://www.nongnu.org/sinhala/doc/keymaps/sinhala-keyboard_3.html
@@ -109,47 +126,9 @@
   ((S-\ ) " ")		; 0x00a0 - no-break space
   ((A-\ ) "‌")		; 0x200c - ZWNJ
 
-  ((BackSpace)
-   (cond
-    ;; rakaaranshaya and yansaya
-    ((| (= @-1 0x0DBA) (= @-1 0x0DBB))
-     (delete @-1)
-     (delete-al-zwj)
-    )
-    ;; touch
-    ((& (= @-2 0x200D) (= @-1 0x0DCA))
-     (delete @-2)
-    )
-    ;; join
-    ((= @-1 0x200D)
-     (delete-al-zwj)
-    )
-    (1
-     (delete @-1)
-    )
-   )
-  )
-
  )
 )
 
-(macro
- (delete-al-zwj
-  (cond
-   ((& (= @-2 0x0DCA) (= @-1 0x200D))
-    (delete @-2)
-    ;; repaya
-    (cond
-     ((= @-1 0x0DBB)
-      (delete @-1)
-     )
-    )
-   )
-  )
- )
-
-)
-
 (state
  (init
   (phon)