[uim-commit] r818 - branches/composer/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-04-06 03:16:26 -0700 (Wed, 06 Apr 2005)
New Revision: 818

Modified:
   branches/composer/scm/ng-japanese-romaji.scm
Log:
* scm/ng-japanese-romaji.scm
  - (ja-romaji-hepburn-oh-ruleset): Cosmetic change
  - (ja-romaji-hepburn-oh-guide-ruleset): New variable
  - (ja-romaji-ruleset-name-list): Add hepburn-oh-guide
  - (ja-romaji-hiragana-ruleset, ja-romaji-katakana-ruleset,
    ja-romaji-halfkana-ruleset): Add hepburn-oh-guide rulesets


Modified: branches/composer/scm/ng-japanese-romaji.scm
===================================================================
--- branches/composer/scm/ng-japanese-romaji.scm	2005-04-06 09:56:59 UTC (rev 817)
+++ branches/composer/scm/ng-japanese-romaji.scm	2005-04-06 10:16:26 UTC (rev 818)
@@ -516,8 +516,7 @@
 
 ;; ¤ª¤ª¡¢¤ª¤¦ (experimental, still broken)
 (define ja-romaji-hepburn-oh-ruleset
-  '(
-    (("o" "h"     (char-nonvowel press peek loopback)) (("¤ª" "¤ª")
+  '((("o" "h"     (char-nonvowel press peek loopback)) (("¤ª" "¤ª")
 							("¥ª" "¥ª")
 							("Žµ" "Žµ")))
     (("k" "o" "h" (char-nonvowel press peek loopback)) (("¤³" "¤¦")
@@ -566,6 +565,24 @@
 							("¥í" "¥¦")
 							("ŽÛ" "Ž³")))))
 
+(define ja-romaji-hepburn-oh-guide-ruleset
+  '((("o" "h")     (("¤ª" "h") ("¥ª" "h") ("Žµ" "h")))
+    (("k" "o" "h") (("¤³" "h") ("¥³" "h") ("Žº" "h")))
+    (("g" "o" "h") (("¤´" "h") ("¥´" "h") ("Žº" "ŽÞ" "h")))
+    (("s" "o" "h") (("¤½" "h") ("¥½" "h") ("Ž¿" "h")))
+    (("z" "o" "h") (("¤¾" "h") ("¥¾" "h") ("Ž¿" "ŽÞ" "h")))
+    (("j" "o" "h") (("¤¸" "¤ç" "h") ("¥¸" "¥ç" "h") ("Ž¼" "ŽÞ" "Ž®" "h")))
+    (("t" "o" "h") (("¤È" "h") ("¥È" "h") ("ŽÄ" "h")))
+    (("d" "o" "h") (("¤É" "h") ("¥É" "h") ("ŽÄ" "ŽÞ" "h")))
+    (("n" "o" "h") (("¤Î" "h") ("¥Î" "h") ("ŽÉ" "h")))
+    (("h" "o" "h") (("¤Û" "h") ("¥Û" "h") ("ŽÎ" "h")))
+    (("f" "o" "h") (("¤Õ" "¤©" "h") ("¥Õ" "¥©" "h") ("ŽÌ" "Ž«" "h")))
+    (("b" "o" "h") (("¤Ü" "h") ("¥Ü" "h") ("ŽÎ" "ŽÞ" "h")))
+    (("p" "o" "h") (("¤Ý" "h") ("¥Ý" "h") ("ŽÎ" "Žß" "h")))
+    (("m" "o" "h") (("¤â" "h") ("¥â" "h") ("ŽÓ" "h")))
+    (("y" "o" "h") (("¤è" "h") ("¥è" "h") ("ŽÖ" "h")))
+    (("r" "o" "h") (("¤í" "h") ("¥í" "h") ("ŽÛ" "h")))))
+
 ;; Êѧ¥²» ÊÑ´¹Ãæɽ¼¨
 (define ja-romaji-hepburn-irregular-double-consonant-guide-ruleset
   '((("t" "c")         (("¤Ã" "c") ("¥Ã" "c") ("Ž¯" "c")))))
@@ -595,6 +612,7 @@
     hepburn-double-consonant
     hepburn-n
     hepburn-oh
+    hepburn-oh-guide
     hepburn-irregular-double-consonant-guide
     hepburn-irregular-double-consonant))
 
@@ -621,6 +639,7 @@
    ja-romaji-hiragana-hepburn-double-consonant-ruleset
    ja-romaji-hiragana-hepburn-n-ruleset
    ja-romaji-hiragana-hepburn-oh-ruleset
+   ja-romaji-hiragana-hepburn-oh-guide-ruleset
    ja-romaji-hiragana-hepburn-irregular-double-consonant-guide-ruleset
    ja-romaji-hiragana-hepburn-irregular-double-consonant-ruleset
    ja-romaji-hiragana-skk-like-symbol-ruleset))
@@ -644,6 +663,7 @@
    ja-romaji-katakana-hepburn-double-consonant-ruleset
    ja-romaji-katakana-hepburn-n-ruleset
    ja-romaji-katakana-hepburn-oh-ruleset
+   ja-romaji-katakana-hepburn-oh-guide-ruleset
    ja-romaji-katakana-hepburn-irregular-double-consonant-guide-ruleset
    ja-romaji-katakana-hepburn-irregular-double-consonant-ruleset
    ja-romaji-katakana-skk-like-symbol-ruleset))
@@ -668,6 +688,7 @@
    ja-romaji-halfkana-hepburn-double-consonant-ruleset
    ja-romaji-halfkana-hepburn-n-ruleset
    ja-romaji-halfkana-hepburn-oh-ruleset
+   ja-romaji-halfkana-hepburn-oh-guide-ruleset
    ja-romaji-halfkana-hepburn-irregular-double-consonant-guide-ruleset
    ja-romaji-halfkana-hepburn-irregular-double-consonant-ruleset
    ja-romaji-halfkana-skk-like-symbol-ruleset))