Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
294 lines (251 sloc) 16.9 KB
(require-custom "kana-phoneme.scm")
;;basic conversion rules
(define ja-hj-rule-basic '(
((("1"). ())("1" "1" "1"))
((("2"). ())("2" "2" "2"))
((("3"). ())("3" "3" "3"))
((("4"). ())("4" "4" "4"))
((("5"). ())("5" "5" "5"))
((("6"). ())("6" "6" "6"))
((("7"). ())("7" "7" "7"))
((("8"). ())("8" "8" "8"))
((("9"). ())("9" "9" "9"))
((("0"). ())("0" "0" "0"))
((("yen"). ())("" "" "\\"))
(((hj-choseong-void hj-jungseong-a). ())("" "" ""))
(((hj-choseong-void hj-jungseong-i). ())("" "" ""))
(((hj-choseong-void hj-jungseong-u). ())("" "" ""))
(((hj-choseong-void hj-jungseong-e). ())("" "" ""))
(((hj-choseong-void hj-jungseong-o). ())("" "" ""))
(((hj-choseong-k hj-jungseong-a). ())("" "" ""))
(((hj-choseong-k hj-jungseong-i). ())("" "" ""))
(((hj-choseong-k hj-jungseong-u). ())("" "" ""))
(((hj-choseong-k hj-jungseong-e). ())("" "" ""))
(((hj-choseong-k hj-jungseong-o). ())("" "" ""))
(((hj-choseong-k hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-k hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-k hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-g hj-jungseong-a). ())("" "" "ガ"))
(((hj-choseong-g hj-jungseong-i). ())("" "" "ギ"))
(((hj-choseong-g hj-jungseong-u). ())("" "" "グ"))
(((hj-choseong-g hj-jungseong-e). ())("" "" "ゲ"))
(((hj-choseong-g hj-jungseong-o). ())("" "" "ゴ"))
(((hj-choseong-g hj-jungseong-ya). ())(("" "" "ギ") ("" "" "")))
(((hj-choseong-g hj-jungseong-yu). ())(("" "" "ギ") ("" "" "")))
(((hj-choseong-g hj-jungseong-yo). ())(("" "" "ギ") ("" "" "")))
(((hj-choseong-s hj-jungseong-a). ())("" "" ""))
(((hj-choseong-s hj-jungseong-i). ())("" "" ""))
(((hj-choseong-s hj-jungseong-u). ())("" "" ""))
(((hj-choseong-s hj-jungseong-e). ())("" "" ""))
(((hj-choseong-s hj-jungseong-o). ())("" "" "ソ"))
(((hj-choseong-s hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-s hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-s hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-z hj-jungseong-a). ())("" "" "ザ"))
(((hj-choseong-z hj-jungseong-i). ())("" "" "ジ"))
(((hj-choseong-z hj-jungseong-u). ())("" "" "ズ"))
(((hj-choseong-z hj-jungseong-e). ())("" "" "ゼ"))
(((hj-choseong-z hj-jungseong-o). ())("" "" "ゾ"))
(((hj-choseong-z hj-jungseong-ya). ())(("" "" "ジ") ("" "" "")))
(((hj-choseong-z hj-jungseong-yu). ())(("" "" "ジ") ("" "" "")))
(((hj-choseong-z hj-jungseong-yo). ())(("" "" "ジ") ("" "" "")))
(((hj-choseong-t hj-jungseong-a). ())("" "" ""))
(((hj-choseong-ch hj-jungseong-i). ())("" "" ""))
(((hj-choseong-ch hj-jungseong-u). ())("" "" ""))
(((hj-choseong-t hj-jungseong-e). ())("" "" ""))
(((hj-choseong-t hj-jungseong-o). ())("" "" ""))
(((hj-choseong-ch hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-ch hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-ch hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-d hj-jungseong-a). ())("" "" "ダ"))
(((hj-choseong-dz hj-jungseong-i). ())("" "" "ヂ"))
(((hj-choseong-dz hj-jungseong-u). ())("" "" "ヅ"))
(((hj-choseong-d hj-jungseong-e). ())("" "" "デ"))
(((hj-choseong-d hj-jungseong-o). ())("" "" "ド"))
(((hj-choseong-dz hj-jungseong-ya). ())(("" "" "ヂ") ("" "" "")))
(((hj-choseong-dz hj-jungseong-yu). ())(("" "" "ヂ") ("" "" "")))
(((hj-choseong-dz hj-jungseong-yo). ())(("" "" "ヂ") ("" "" "")))
(((hj-choseong-n hj-jungseong-a). ())("" "" ""))
(((hj-choseong-n hj-jungseong-i). ())("" "" ""))
(((hj-choseong-n hj-jungseong-u). ())("" "" ""))
(((hj-choseong-n hj-jungseong-e). ())("" "" ""))
(((hj-choseong-n hj-jungseong-o). ())("" "" ""))
(((hj-choseong-n hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-n hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-n hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-h hj-jungseong-a). ())("" "" ""))
(((hj-choseong-h hj-jungseong-i). ())("" "" ""))
(((hj-choseong-h hj-jungseong-u). ())("" "" ""))
(((hj-choseong-h hj-jungseong-e). ())("" "" ""))
(((hj-choseong-h hj-jungseong-o). ())("" "" ""))
(((hj-choseong-h hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-h hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-h hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-b hj-jungseong-a). ())("" "" "バ"))
(((hj-choseong-b hj-jungseong-i). ())("" "" "ビ"))
(((hj-choseong-b hj-jungseong-u). ())("" "" "ブ"))
(((hj-choseong-b hj-jungseong-e). ())("" "" "ベ"))
(((hj-choseong-b hj-jungseong-o). ())("" "" "ボ"))
(((hj-choseong-b hj-jungseong-ya). ())(("" "" "ビ") ("" "" "")))
(((hj-choseong-b hj-jungseong-yu). ())(("" "" "ビ") ("" "" "")))
(((hj-choseong-b hj-jungseong-yo). ())(("" "" "ビ") ("" "" "")))
(((hj-choseong-p hj-jungseong-a). ())("" "" "パ"))
(((hj-choseong-p hj-jungseong-i). ())("" "" "ピ"))
(((hj-choseong-p hj-jungseong-u). ())("" "" "プ"))
(((hj-choseong-p hj-jungseong-e). ())("" "" "ペ"))
(((hj-choseong-p hj-jungseong-o). ())("" "" "ポ"))
(((hj-choseong-p hj-jungseong-ya). ())(("" "" "ピ") ("" "" "")))
(((hj-choseong-p hj-jungseong-yu). ())(("" "" "ピ") ("" "" "")))
(((hj-choseong-p hj-jungseong-yo). ())(("" "" "ピ") ("" "" "")))
(((hj-choseong-m hj-jungseong-a). ())("" "" ""))
(((hj-choseong-m hj-jungseong-i). ())("" "" ""))
(((hj-choseong-m hj-jungseong-u). ())("" "" ""))
(((hj-choseong-m hj-jungseong-e). ())("" "" ""))
(((hj-choseong-m hj-jungseong-o). ())("" "" ""))
(((hj-choseong-m hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-m hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-m hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-void hj-jungseong-ya). ())("" "" ""))
(((hj-choseong-void hj-jungseong-yu). ())("" "" ""))
(((hj-choseong-void hj-jungseong-yo). ())("" "" ""))
(((hj-choseong-r hj-jungseong-a). ())("" "" ""))
(((hj-choseong-r hj-jungseong-i). ())("" "" ""))
(((hj-choseong-r hj-jungseong-u). ())("" "" ""))
(((hj-choseong-r hj-jungseong-e). ())("" "" ""))
(((hj-choseong-r hj-jungseong-o). ())("" "" ""))
(((hj-choseong-r hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-r hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-r hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-choseong-void hj-jungseong-wa). ())("" "" ""))
(((hj-choseong-ng hj-jungseong-o). ())("" "" ""))
(((hj-batchim-nn). ())("" "" ""))
(((hj-batchim-ss). ())("" "" ""))
((("<" "-"). ())("" "" ""))
((("-" ">"). ())("" "" ""))
((("." "." "."). ())("" "" ""))
))
;;foriegn prononciation rules
(define ja-hj-rule-foriegn-single-vowel '(
(((hj-jungseong-a). ())("" "" ""))
(((hj-jungseong-i). ())("" "" ""))
(((hj-jungseong-u). ())("" "" ""))
(((hj-jungseong-e). ())("" "" ""))
(((hj-jungseong-o). ())("" "" ""))
(((hj-jungseong-ya). ())("" "" ""))
(((hj-jungseong-yu). ())("" "" ""))
(((hj-jungseong-yo). ())("" "" ""))
))
(define ja-hj-rule-foriegn-special-char '(
(((hj-chosung-t hj-jungseong-i). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-u). ())(("" "" "") ("" "" "")))
(((hj-choseong-t hj-jungseong-ya). ())(("" "" "") ("" "" "")))
(((hj-choseong-t hj-jungseong-yu). ())(("" "" "") ("" "" "")))
(((hj-choseong-t hj-jungseong-yo). ())(("" "" "") ("" "" "")))
(((hj-chosung-d hj-jungseong-i). ())(("" "" "デ") ("" "" "")))
(((hj-chosung-d hj-jungseong-u). ())(("" "" "ド") ("" "" "")))
(((hj-choseong-d hj-jungseong-ya). ())(("" "" "ヂ") ("" "" "")))
(((hj-choseong-d hj-jungseong-yu). ())(("" "" "ヂ") ("" "" "")))
(((hj-choseong-d hj-jungseong-yo). ())(("" "" "ヂ") ("" "" "")))
(((hj-chosung-ch hj-jungseong-a). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-e). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-o). ())(("" "" "") ("" "" "")))
(((hj-choseong-dz hj-jungseong-a). ())("" "" "ザ"))
(((hj-choseong-dz hj-jungseong-e). ())("" "" "ゼ"))
(((hj-choseong-dz hj-jungseong-o). ())("" "" "ゾ"))
))
(define ja-hj-rule-foriegn-with-compound '(
(((hj-chosung-void hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-void hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-void hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-void hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-void hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-void hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-k hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-g hj-jungseong-wae). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-g hj-jungseong-oe). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-g hj-jungseong-ua). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-g hj-jungseong-wo). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-g hj-jungseong-we). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-g hj-jungseong-wi). ())(("" "" "グ") ("" "" "")))
(((hj-chosung-s hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-s hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-s hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-s hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-s hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-s hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-z hj-jungseong-wae). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-z hj-jungseong-oe). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-z hj-jungseong-ua). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-z hj-jungseong-wo). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-z hj-jungseong-we). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-z hj-jungseong-wi). ())(("" "" "ズ") ("" "" "")))
(((hj-chosung-t hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-t hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-d hj-jungseong-wae). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-d hj-jungseong-ua). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-d hj-jungseong-oe). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-d hj-jungseong-wo). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-d hj-jungseong-we). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-d hj-jungseong-wi). ())(("" "" "ド") ("" "" "")))
(((hj-chosung-ch hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-ch hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-dz hj-jungseong-wae). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-dz hj-jungseong-oe). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-dz hj-jungseong-ua). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-dz hj-jungseong-wo). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-dz hj-jungseong-we). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-dz hj-jungseong-wi). ())(("" "" "ヅ") ("" "" "")))
(((hj-chosung-n hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-n hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-n hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-n hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-n hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-n hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-h hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-b hj-jungseong-wae). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-b hj-jungseong-oe). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-b hj-jungseong-ua). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-b hj-jungseong-wo). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-b hj-jungseong-we). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-p hj-jungseong-wae). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-b hj-jungseong-wi). ())(("" "" "ブ") ("" "" "")))
(((hj-chosung-p hj-jungseong-oe). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-p hj-jungseong-ua). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-p hj-jungseong-wo). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-p hj-jungseong-we). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-p hj-jungseong-wi). ())(("" "" "プ") ("" "" "")))
(((hj-chosung-m hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-m hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-m hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-m hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-m hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-m hj-jungseong-wi). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-wae). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-oe). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-ua). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-wo). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-we). ())(("" "" "") ("" "" "")))
(((hj-chosung-r hj-jungseong-wi). ())(("" "" "") ("" "" "")))
))
(define ja-hj-foriegn-alist '(
ja-hj-rule-foriegn-single-vowel
ja-hj-rule-foriegn-special-char
ja-hj-rule-foriegn-with-compound))
You can’t perform that action at this time.