leim/quail/symbol-ksc.el

   1 ;;; quail/symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601)
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, input method, Korean, Hangul
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; 94.10.24   Written for Mule Ver.2.0 (koaunghi.un@zdv.uni-tuebingen.de)
  26 ;;; 94.11.04   Updated for Mule Ver.2.1 (koaunghi.un@zdv.uni-tuebingen.de)
  27 ;;; 96.09.23   Updated for emacs-19.33-beta (koaunghi.un@zdv.uni-tuebingen.de)
  28
  29
  30 ;;; Code:
  31
  32 (require 'quail)
  33 (require 'korea-util)
  34
  35 (quail-define-package
  36  "korean-symbol" "Korean" "\e$(C=I9z\e(B" t
  37  "\e$(CGQ1[=I9z@T7BG%\e(B:
  38   \e$(C!<\e(B(\e$(C!=0}H#?-1b!<\e(Barrow\e$(C!=H-;l!<\e(Bsex\e$(C!=!N!O!<\e(Bindex\e$(C!=C7@Z\e(B  \e$(C!<\e(Baccent\e$(C!=>G<>F.\e(B
  39   \e$(C!<\e(B)\e$(C!=0}H#4]1b!<\e(Bmusic\e$(C!=@=>G!<\e(Bdot\e$(C!=A!\e(B  \e$(C!<\e(Bquote\e$(C!=5{?HG%!<\e(Bxtext\e$(C!=!W!X"R"."/\e(B
  40   \e$(C!<\e(BUnit\e$(C!=!I!J!K"5!<\e(Bmath\e$(C!=<vGP1bH#!<\e(Bpic\e$(C!=;sG|9.@Z!<\e(Bline\e$(C!=<19.@Z\e(B
  41   \e$(C!<\e(Bunit\e$(C!=4\@'\e(B    \e$(C!<\e(Bfrac\e$(C!=:P<v\e(B    \e$(C!<\e(Btextline\e$(C!=!)!*!+!,!-\e(B
  42   \e$(C!<\e(Bwn\e$(C!="_!<\e(Bks\e$(C!="^!<\e(BNo\e$(C!="`!<"a!="a\e(B \e$(C!<\e(Bdag\e$(C!="S\e(B \e$(C!<\e(Bddag\e$(C!="T!<\e(Bpercent\e$(C!="6\e(B
  43   \e$(C!<\e(Bam\e$(C!="c!<\e(Bpm\e$(C!="d!<"b!="b!<\e(BTel\e$(C!="e!<\e(Bwon\e$(C!=#\\e(B \e$(C!<\e(Byen\e$(C!=!M\e(B \e$(C!<\e(Bpound\e$(C!=!L\e(B
  44   \e$(C!<\e(BEng\e$(C!=#A#B#C!&\e(B \e$(C!<\e(Benum\e$(C!=#0#1#2!&\e(B \e$(C!<\e(BRuss\e$(C!=,",#,$!&!<\e(BGreek\e$(C!=%A%B%C!&\e(B
  45   \e$(C!<\e(Beng\e$(C!=#a#b#c!&\e(B \e$(C!<\e(Beasc\e$(C!=?5>n\e(BASCII\e$(C!<\e(Bruss\e$(C!=,Q,R,S!&!<\e(Bgreek\e$(C!=%a%b%c!&\e(B
  46   \e$(C!<\e(BRom\e$(C!=%0%1%2!&\e(B \e$(C!<\e(BScan\e$(C!=("(#($!&\e(B \e$(C!<\e(Bhira\e$(C!=*"*#*$\e(B
  47   \e$(C!<\e(Brom\e$(C!=%!%"%#!&\e(B \e$(C!<\e(Bscan\e$(C!=)")#)$!&\e(B \e$(C!<\e(Bkata\e$(C!=+"+#+$\e(B
  48   \e$(C!<\e(Bojaso\e$(C!=(1!-(>!<\e(Bpjaso\e$(C!=)1!-)>!<\e(Boeng\e$(C!=(M!-(f!<\e(Bpeng\e$(C!=)M!-)f\e(B
  49   \e$(C!<\e(Bogana\e$(C!=(?!-(L!<\e(Bpgana\e$(C!=)?!-)L!<\e(Bonum\e$(C!=(g!-(u!<\e(Bpnum\e$(C!=)g!-)u\e(B
  50   \e$(C!<@Z<R!=\e(B2\e$(C9z=D\e(B + \e$(C$U\e(B(S) \e$(C$o\e(B(t_) \e$(C$q\e(B(D) \e$(C$p\e(B(DD) \e$(C$a\e(B(aD) \e$(C$v\e(B(_d) \e$(C$u\e(B(G) \e$(C$}\e(B(uk)")
  51
  52 (quail-define-rules
  53  ("("   "\e$(C!2!4!6!8!:!<\e(B")
  54  (")"   "\e$(C!3!5!7!9!;!=\e(B")
  55  ("math"        "\e$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"""#"$"1"2"3\e(B")
  56  ("pic" "\e$(C!Y![!Z!\!]!^!_!`!a!b!c!d!e"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"4\e(B")
  57  ("arrow"       "\e$(C!f!g!h!i!j"U"V"W"X"Y\e(B")
  58  ("music"       "\e$(C"["Z"\"]\e(B")
  59  ("won" "\e$(C#\\e(B")
  60  ("yen" "\e$(C!M\e(B")
  61  ("pound"       "\e$(C!L\e(B")
  62  ("xtext"       "\e$(C!W!X"R"."/\e(B")
  63  ("dot" "\e$(C!$!%!&!'"0\e(B")
  64  ("quote"       "\e$(C!"!#!(!.!/!0!1!F!G!H"%")\e(B")
  65  ("textline"    "\e$(C!)!*!+!,!-\e(B")
  66  ("Unit"        "\e$(C!I!J!K"5\e(B")
  67  ("sex" "\e$(C!N!O\e(B")
  68  ("accent"      "\e$(C"&"'"("*"+","-\e(B")
  69  ("percent"     "\e$(C"6\e(B")
  70  ("dag" "\e$(C"S\e(B")
  71  ("ddag"        "\e$(C"T\e(B")
  72  ("wn"  "\e$(C"_\e(B")
  73  ("ks"  "\e$(C"^\e(B")
  74  ("No"  "\e$(C"`\e(B")
  75  ("Co"  "\e$(C"a\e(B")
  76  ("TM"  "\e$(C"b\e(B")
  77  ("am"  "\e$(C"c\e(B")
  78  ("pm"  "\e$(C"d\e(B")
  79  ("Tel" "\e$(C"e\e(B")
  80  ("easc"        "\e$(C#"###$#%#&#'#(#)#*#+#,#-#.#/#:#;#<#=#>#?#@#[#]#^#_#`#{#|#}#~\e(B")
  81  ("enum"        "\e$(C#0#1#2#3#4#5#6#7#8#9\e(B")
  82  ("Eng" "\e$(C#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z\e(B")
  83  ("eng" "\e$(C#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t#u#v#w#x#y#z\e(B")
  84  ("r"   "\e$(C$!\e(B")
  85  ("R"   "\e$(C$"\e(B")
  86  ("rt"  "\e$(C$#\e(B")
  87  ("s"   "\e$(C$$\e(B")
  88  ("sw"  "\e$(C$%\e(B")
  89  ("sg"  "\e$(C$&\e(B")
  90  ("e"   "\e$(C$'\e(B")
  91  ("E"   "\e$(C$(\e(B")
  92  ("f"   "\e$(C$)\e(B")
  93  ("fr"  "\e$(C$*\e(B")
  94  ("fa"  "\e$(C$+\e(B")
  95  ("fq"  "\e$(C$,\e(B")
  96  ("ft"  "\e$(C$-\e(B")
  97  ("fx"  "\e$(C$.\e(B")
  98  ("fv"  "\e$(C$/\e(B")
  99  ("fg"  "\e$(C$0\e(B")
 100  ("a"   "\e$(C$1\e(B")
 101  ("q"   "\e$(C$2\e(B")
 102  ("Q"   "\e$(C$3\e(B")
 103  ("qt"  "\e$(C$4\e(B")
 104  ("t"   "\e$(C$5\e(B")
 105  ("T"   "\e$(C$6\e(B")
 106  ("d"   "\e$(C$7\e(B")
 107  ("w"   "\e$(C$8\e(B")
 108  ("W"   "\e$(C$9\e(B")
 109  ("c"   "\e$(C$:\e(B")
 110  ("z"   "\e$(C$;\e(B")
 111  ("x"   "\e$(C$<\e(B")
 112  ("v"   "\e$(C$=\e(B")
 113  ("g"   "\e$(C$>\e(B")
 114  ("k"   "\e$(C$?\e(B")
 115  ("o"   "\e$(C$@\e(B")
 116  ("i"   "\e$(C$A\e(B")
 117  ("O"   "\e$(C$B\e(B")
 118  ("j"   "\e$(C$C\e(B")
 119  ("p"   "\e$(C$D\e(B")
 120  ("u"   "\e$(C$E\e(B")
 121  ("P"   "\e$(C$F\e(B")
 122  ("h"   "\e$(C$G\e(B")
 123  ("hk"  "\e$(C$H\e(B")
 124  ("ho"  "\e$(C$I\e(B")
 125  ("hl"  "\e$(C$J\e(B")
 126  ("y"   "\e$(C$K\e(B")
 127  ("n"   "\e$(C$L\e(B")
 128  ("nj"  "\e$(C$M\e(B")
 129  ("np"  "\e$(C$N\e(B")
 130  ("nl"  "\e$(C$O\e(B")
 131  ("b"   "\e$(C$P\e(B")
 132  ("m"   "\e$(C$Q\e(B")
 133  ("ml"  "\e$(C$R\e(B")
 134  ("l"   "\e$(C$S\e(B")
 135  ("S"   "\e$(C$U\e(B")
 136  ("se"  "\e$(C$V\e(B")
 137  ("st"  "\e$(C$W\e(B")
 138  ("st_" "\e$(C$X\e(B")
 139  ("frt" "\e$(C$Y\e(B")
 140  ("fqt" "\e$(C$[\e(B")
 141  ("fe"  "\e$(C$Z\e(B")
 142  ("ft_" "\e$(C$\\e(B")
 143  ("f_d" "\e$(C$]\e(B")
 144  ("aq"  "\e$(C$^\e(B")
 145  ("at"  "\e$(C$_\e(B")
 146  ("at_" "\e$(C$`\e(B")
 147  ("aD"  "\e$(C$a\e(B")
 148  ("qr"  "\e$(C$b\e(B")
 149  ("qe"  "\e$(C$c\e(B")
 150  ("qtr" "\e$(C$d\e(B")
 151  ("qte" "\e$(C$e\e(B")
 152  ("qw"  "\e$(C$f\e(B")
 153  ("qx"  "\e$(C$g\e(B")
 154  ("qD"  "\e$(C$h\e(B")
 155  ("QD"  "\e$(C$i\e(B")
 156  ("tr"  "\e$(C$j\e(B")
 157  ("ts"  "\e$(C$k\e(B")
 158  ("te"  "\e$(C$l\e(B")
 159  ("tq"  "\e$(C$m\e(B")
 160  ("tw"  "\e$(C$n\e(B")
 161  ("t_"  "\e$(C$o\e(B")
 162  ("DD"  "\e$(C$p\e(B")
 163  ("D"   "\e$(C$q\e(B")
 164  ("Dt"  "\e$(C$r\e(B")
 165  ("Dt_" "\e$(C$s\e(B")
 166  ("vD"  "\e$(C$t\e(B")
 167  ("G"   "\e$(C$u\e(B")
 168  ("_d"  "\e$(C$v\e(B")
 169  ("yi"  "\e$(C$w\e(B")
 170  ("yO"  "\e$(C$x\e(B")
 171  ("yl"  "\e$(C$y\e(B")
 172  ("bu"  "\e$(C$z\e(B")
 173  ("bP"  "\e$(C${\e(B")
 174  ("bl"  "\e$(C$|\e(B")
 175  ("uk"  "\e$(C$}\e(B")
 176  ("ukl" "\e$(C$~\e(B")
 177  ("Rom" "\e$(C%0%1%2%3%4%5%6%7%8%9\e(B")
 178  ("rom" "\e$(C%!%"%#%$%%%&%'%(%)%*\e(B")
 179  ("Greek"       "\e$(C%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X\e(B")
 180  ("greek"       "\e$(C%a%b%c%d%e%f%g%h%i%j%k%l%m%n%o%p%q%r%s%t%u%v%w%x\e(B")
 181  ("line"        "\e$(C&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&3&4&5&6&7&8&9&:&;&<&=&>&?&@&A&B&C&D&E&F&G&H&I&J&K&L&M&N&O&P&Q&R&S&T&U&V&W&X&Y&[&Z&\&]&^&_&`&a&b&c&d\e(B")
 182  ("unit"        "\e$(C'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X'Y'['Z'\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o\e(B")
 183  ("Scan"        "\e$(C("(#($(&((()(*(+(,(-(.(/\e(B")
 184  ("ojaso"       "\e$(C(1(2(3(4(5(6(7(8(9(:(;(<(=(>\e(B")
 185  ("ogana"       "\e$(C(?(@(A(B(C(D(E(F(G(H(I(J(K(L\e(B")
 186  ("oeng"        "\e$(C(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f\e(B")
 187  ("onum"        "\e$(C(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u\e(B")
 188  ("frac"        "\e$(C(v(w(x(y(z({(|(}(~\e(B")
 189  ("scan"        "\e$(C)")#)$)%)&)')()))*)+),)-).)/)0\e(B")
 190  ("pjaso"       "\e$(C)1)2)3)4)5)6)7)8)9):);)<)=)>\e(B>")
 191  ("pgana"       "\e$(C)?)@)A)B)C)D)E)F)G)H)I)J)K)L\e(B")
 192  ("peng"        "\e$(C)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f\e(B")
 193  ("pnum"        "\e$(C)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u\e(B")
 194  ("index"       "\e$(C)v)w)x)y)z){)|)})~\e(B")
 195  ("hira"        "\e$(C*"*#*$*%*&*'*(*)***+*,*-*.*/*0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*A*B*C*D*E*F*G*H*I*J*K*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*[*Z*\*]*^*_*`*a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s\e(B")
 196  ("kata"        "\e$(C+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+[+Z+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v\e(B")
 197  ("Russ"        "\e$(C,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A\e(B")
 198  ("russ"        "\e$(C,Q,R,S,T,U,V,W,X,Y,[,Z,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q\e(B"))