From 6107123ffeb2c6fc3df8d7b3be0ed5fab24fd2af Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Thu, 25 Sep 2008 10:48:59 +0000
Subject: [PATCH] Move the macro section to the top as suggested by Takahashi.

---
 im/si-phonetic-dynamic.mim |  113 +++++++++++++++++++++++++-------------------
 1 file changed, 65 insertions(+), 48 deletions(-)

diff --git a/im/si-phonetic-dynamic.mim b/im/si-phonetic-dynamic.mim
index 31c433c..eaedbfa 100644
--- a/im/si-phonetic-dynamic.mim
+++ b/im/si-phonetic-dynamic.mim
@@ -1,7 +1,24 @@
 ;; si-phonetic-dynamic.mim -- Sinhala phonetic dynamic keymap
+;; Copyright (C) 2007-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) (2007-07-08)
 ;; Maintainer: Harshula Jayasuriya <harshula@gmail.com>
-;; Last Updated: 2007-11-06
+;; Last Updated: 2008-09-10
 ;; This is a phonetic dynamic mapping for a standard US-English keyboard
 ;; (qwerty)
 ;; http://www.nongnu.org/sinhala/doc/keymaps/sinhala-keyboard_4.html
@@ -15,6 +32,53 @@
 
 (title "සි (Phonetic Dynamic)")
 
+(macro
+ (delete-al-zwj
+  (cond
+   ((& (= @-2 0x0DCA) (= @-1 0x200D))
+    (delete @-2)
+    ;; repaya
+    (cond
+     ((= @-1 0x0DBB)
+      (delete @-1)
+     )
+    )
+   )
+  )
+ )
+
+ (insert-vowel
+  (cond
+   ((& (>= @-1 0x0D9A) (<= @-1 0xDC6))
+    (cond
+     ((= c 0x0D85) "්")	; 0x0dca - al-lakuna
+     ((= c 0x0D86) "ා")	; 0x0dcf - aela-pilla (aa)
+     ((= c 0x0D87) "ැ")	; 0x0dd0 - ketti aeda-pilla (ae)
+     ((= c 0x0D88) "ෑ")	; 0x0dd1 - diga aeda-pilla (aae)
+     ((= c 0x0D89) "ි")	; 0x0dd2 - ketti is-pilla (i)
+     ((= c 0x0D8A) "ී")	; 0x0dd3 - diga is-pilla (ii)
+     ((= c 0x0D8B) "ු")	; 0x0dd4 - ketti paa-pilla (u)
+     ((= c 0x0D8C) "ූ")	; 0x0dd6 - diga paa-pilla (uu)
+     ((= c 0x0D8D) "ෘ")	; 0x0dd8 - gaetta-pilla (r)
+     ((= c 0x0D8E) "à·²")	; 0x0df2 - diga gaetta-pilla (rr)
+     ((= c 0x0D8F) "ෟ")	; 0x0ddf - gayanukitta (l)
+     ((= c 0x0D90) "à·³")	; 0x0df3 - diga gayanukitta (ll)
+     ((= c 0x0D91) "ෙ")	; 0x0dd9 - kombuva (e)
+     ((= c 0x0D92) "ේ")	; 0x0dda - diga kombuva (ee)
+     ((= c 0x0D93) "ෛ")	; 0x0ddb - kombu deka (ai)
+     ((= c 0x0D94) "ො")	; 0x0ddc - kombuva haa aela-pilla (o)
+     ((= c 0x0D95) "ෝ")	; 0x0ddd - kombuva haa diga aela-pilla (oo)
+     ((= c 0x0D96) "ෞ")	; 0x0dde - kombuva haa gayanukitta (au)
+    )
+   )
+   (1
+    (insert c)
+   )
+  )
+ )
+
+)
+
 (map
  (consonants
   ("k" "ක")		; 0x0d9a - alpapraana kayanna (ka)
@@ -120,53 +184,6 @@
 
 )
 
-(macro
- (delete-al-zwj
-  (cond
-   ((& (= @-2 0x0DCA) (= @-1 0x200D))
-    (delete @-2)
-    ;; repaya
-    (cond
-     ((= @-1 0x0DBB)
-      (delete @-1)
-     )
-    )
-   )
-  )
- )
-
- (insert-vowel
-  (cond
-   ((& (>= @-1 0x0D9A) (<= @-1 0xDC6))
-    (cond
-     ((= c 0x0D85) "්")	; 0x0dca - al-lakuna
-     ((= c 0x0D86) "ා")	; 0x0dcf - aela-pilla (aa)
-     ((= c 0x0D87) "ැ")	; 0x0dd0 - ketti aeda-pilla (ae)
-     ((= c 0x0D88) "ෑ")	; 0x0dd1 - diga aeda-pilla (aae)
-     ((= c 0x0D89) "ි")	; 0x0dd2 - ketti is-pilla (i)
-     ((= c 0x0D8A) "ී")	; 0x0dd3 - diga is-pilla (ii)
-     ((= c 0x0D8B) "ු")	; 0x0dd4 - ketti paa-pilla (u)
-     ((= c 0x0D8C) "ූ")	; 0x0dd6 - diga paa-pilla (uu)
-     ((= c 0x0D8D) "ෘ")	; 0x0dd8 - gaetta-pilla (r)
-     ((= c 0x0D8E) "à·²")	; 0x0df2 - diga gaetta-pilla (rr)
-     ((= c 0x0D8F) "ෟ")	; 0x0ddf - gayanukitta (l)
-     ((= c 0x0D90) "à·³")	; 0x0df3 - diga gayanukitta (ll)
-     ((= c 0x0D91) "ෙ")	; 0x0dd9 - kombuva (e)
-     ((= c 0x0D92) "ේ")	; 0x0dda - diga kombuva (ee)
-     ((= c 0x0D93) "ෛ")	; 0x0ddb - kombu deka (ai)
-     ((= c 0x0D94) "ො")	; 0x0ddc - kombuva haa aela-pilla (o)
-     ((= c 0x0D95) "ෝ")	; 0x0ddd - kombuva haa diga aela-pilla (oo)
-     ((= c 0x0D96) "ෞ")	; 0x0dde - kombuva haa gayanukitta (au)
-    )
-   )
-   (1
-    (insert c)
-   )
-  )
- )
-
-)
-
 (state
  (init
   (consonants)
-- 
1.7.10.4