From: ntakahas <ntakahas>
Date: Tue, 2 Feb 2010 11:21:23 +0000 (+0000)
Subject: New file.
X-Git-Tag: REL-1-1-11~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a44a12de5bba54b04c9364e86be04a98745f92ca;p=m17n%2Fm17n-contrib.git

New file.
---

diff --git a/im/yi-yivo.mim b/im/yi-yivo.mim
new file mode 100644
index 0000000..cf8c80a
--- /dev/null
+++ b/im/yi-yivo.mim
@@ -0,0 +1,188 @@
+;; yi-yivo.mim -- Yiddish input method with YIVO transliteration
+;; Copyright (C) 2010
+;; Raghav Krishnapriyan (raghav.r.krishnapriyan@gmail.com)
+
+;; This file is part of the m17n contrib; 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 yi yivo)
+											
+(description "Yiddish input method using YIVO transliteration.
+A short description of the YIVO transliteration scheme can be found here: http://www.ibiblio.org/pub/academic/languages/yiddish/mendele/vol4.170
+A description of the YIVO orthography can be found in Mordkhe Schaechter, _Der eynheytlekher Yidisher oysleyg: Takones fun yidishn oysleyg_, New York: Yivo and Yiddish Language Resource Center of the League for Yiddish (6th ed. 1999).
+")
+											
+(title "ייִדיש")
+(map
+  (initials
+    ("i" "אי")
+    ("u" "או")
+    ("ey" "אײ")
+    ("ay" "אײַ")
+    ("oy" "אױ")
+	("ayo" "אַיאָ")
+  )
+  (initdiph
+    ("e" ?×¢)
+    ("a" "אַ")
+    ("o" "אָ")
+  )
+  (openquotes ("\"" "„"))
+  (closequotes ("\"" "‟") ("?\"" "?‟") (".\"" ".‟") ("!\"" "!‟"))
+  (parentheses
+      ("\(" "\)")
+      ("\)" "\(")
+  )
+  (makef ("-" "Ö¾"))
+  (otherchars
+    ("A") ("b") ("d") ("f") ("g") ("h") ("H") ("k") ("l") ("m") ("n") ("p") ("r") ("s") ("S") ("t") ("u") ("v") ("y") ("z") ("B") ("K") ("T") ("W")
+  )
+  (singlechars
+    ("A" ?א)
+    ("b" ?ב)
+    ("d" ?ד)
+    ("e" ?×¢)
+    ("ey" "ײ")
+    ("f" ?×£)
+    ("g" ?ג)
+    ("h" ?ה)
+    ("H" ?ח)
+    ("i" ?י)
+    ("k" ?ק)
+    ("kh" ?ך)
+    ("l" ?ל)
+    ("m" ?ם)
+    ("n" ?ן)
+    ("oy" "×±")
+    ("r" ?ר)
+    ("s" ?ס)
+    ("sh" ?ש)
+    ("S" ?ת)
+    ("t" ?ט)
+    ("ts" ?×¥)
+    ("u" ?ו)
+    ("v" "×°")
+    ("y" ?י)
+    ("z" ?ז)
+  )
+  (doublechars
+    ("a" "אַ")
+    ("B" "בֿ")
+    ("ay" "ײַ")
+    ("K" "כּ")
+    ("o" "אָ")
+    ("p" "פּ")
+    ("T" "תּ")
+    ("tsh" "טש")
+    ("W" "שׂ")
+    ("zh" "זש")
+  )
+  (triplechars
+    ("uv" "וּװ")
+    ("vu" "װוּ")
+    ("yi" "ייִ")
+    ("ui" "ויִ")
+	("eyi" "ײיִ")
+	("ie" "יִע")
+	("ei" "עיִ")
+  )
+  (quadruplechars
+	("ii" "יִיִ")
+	("ayi" "ײַיִ")
+	("ia" "יִאַ")
+	("io" "יִאָ")
+  )
+  (quintuplechars
+	("uvu" "וּװוּ")	; For words like "tsuvuks!"
+  )
+  (abbreviations
+    ("s'" "ס'")
+    ("m'" "מ'")
+	("kh'" "כ'")
+  )
+  (gershayim
+    ("`" "׳")
+	("``" "×´")
+  )
+  (backspace
+    ((BackSpace) (undo)))
+)
+											
+(state 
+  (init
+    (initials (shift subsq))
+    (initdiph)
+    (openquotes)
+    (otherchars (pushback 1) (shift subsq))
+    (backspace)
+	(parentheses)
+  )
+  (subsq
+    (singlechars
+      (cond
+        ((= @-2 ?ף) (set X @-1) (delete @-2) (insert "פֿ") (insert X))
+        ((= @-2 ?ך) (set X @-1) (delete @-2) (insert ?כ) (insert X))
+        ((= @-2 ?ם) (set X @-1) (delete @-2) (insert ?מ) (insert X))
+        ((= @-2 ?ן) (set X @-1) (delete @-2) (insert ?נ) (insert X))
+	    ((= @-2 ?ץ) (set X @-1) (delete @-2) (insert ?צ) (insert X))
+       )
+     )
+	 (doublechars
+      (cond
+        ((= @-3 ?ף) (set X @-1) (set Y @-2) (delete @-3) (insert "פֿ") (insert Y) (insert X))
+        ((= @-3 ?ך) (set X @-1) (set Y @-2) (delete @-3) (insert ?כ) (insert Y) (insert X))
+        ((= @-3 ?ם) (set X @-1) (set Y @-2) (delete @-3) (insert ?מ) (insert Y) (insert X))
+        ((= @-3 ?ן) (set X @-1) (set Y @-2) (delete @-3) (insert ?נ) (insert Y) (insert X))
+	    ((= @-3 ?ץ) (set X @-1) (set Y @-2) (delete @-3) (insert ?צ) (insert Y) (insert X))
+       )
+     )
+	 (triplechars
+	   (cond
+        ((= @-4 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert "פֿ") (insert Z) (insert Y) (insert X))
+        ((= @-4 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?כ) (insert Z) (insert Y) (insert X))
+        ((= @-4 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?מ) (insert Z) (insert Y) (insert X))
+        ((= @-4 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?נ) (insert Z) (insert Y) (insert X))
+	    ((= @-4 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (delete @-4) (insert ?צ) (insert Z) (insert Y) (insert X))
+       )
+     )
+	 (quadruplechars
+	  (cond
+        ((= @-5 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert "פֿ") (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-5 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?כ) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-5 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?מ) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-5 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?נ) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-5 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (delete @-5) (insert ?צ) (insert A) (insert Z) (insert Y) (insert X))
+	  )
+     )
+     (quintuplechars
+	  (cond
+        ((= @-6 ?ף) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert "פֿ") (insert B) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-6 ?ך) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?כ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-6 ?ם) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?מ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-6 ?ן) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?נ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
+        ((= @-6 ?ץ) (set X @-1) (set Y @-2) (set Z @-3) (set A @-4) (set B @-5) (delete @-6) (insert ?צ) (insert B) (insert A) (insert Z) (insert Y) (insert X))
+	  )
+     )
+	 (closequotes)
+	 (gershayim)
+	 (makef (shift init))
+	 (abbreviations (shift init))
+	 (backspace)
+	 (nil (shift init))
+   )
+)
diff --git a/im/yi-yivo.png b/im/yi-yivo.png
new file mode 100644
index 0000000..74637f6
Binary files /dev/null and b/im/yi-yivo.png differ