Commit 24b31c88 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Initial revision

parent 697654ed
# Makefile for leim subdirectory in GNU Emacs.
# Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
# Licensed to the Free Software Foundation.
# This file is part of GNU Emacs.
# GNU Emacs 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, or (at your option)
# any later version.
#
# GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
# Avoid trouble on systems where the `SHELL' variable might be
# inherited from the environment.
SHELL = /bin/sh
# Here are the things that we expect ../configure to edit.
version=@version@
prefix=@prefix@
datadir=@datadir@
lispdir=@lispdir@
srcdir=@srcdir@
INSTALLDIR=${datadir}/emacs/${version}/leim
EMACS=../src/emacs
TAR=tar
CP=cp
SUBDIRS=quail skk
CHINESE-GB=\
quail/tit/CTLau.elc \
quail/tit/CCDOSPY.elc \
quail/tit/Punct.elc \
quail/tit/PY.elc \
quail/tit/QJ.elc \
quail/tit/SW.elc \
quail/tit/TONEPY.elc \
quail/tit/ZIRANMA.elc
CHINESE-BIG5=\
quail/tit/4Corner.elc \
quail/tit/ARRAY30.elc \
quail/tit/CTLauB.elc \
quail/tit/ECDICT.elc \
quail/tit/ETZY.elc \
quail/tit/Punct-b5.elc \
quail/tit/PY-b5.elc \
quail/tit/QJ-b5.elc \
quail/tit/ZOZY.elc \
quail/quick-b5.elc \
quail/tsangchi-b5.elc
CHINESE-CNS=\
quail/quick-cns.elc \
quail/tsangchi-cns.elc
JAPANESE=quail/japanese.elc skk/skkdic.elc
KOREAN=\
quail/hangul.elc \
quail/hangul3.elc \
quail/hanja.elc \
quail/hanja-jis.elc \
quail/symbol-ksc.elc
THAI=quail/thai.elc
VIETNAMESE=quail/viqr.elc
LAO=quail/lao.elc quail/lrt.elc
INDIAN=quail/devanagari.elc
TIBETAN=quail/tibetan.elc
LATIN=quail/latin-pre.elc quail/latin-post.elc
GREEK=quail/greek.elc
RUSSIAN=quail/cyrillic.elc
MISC=quail/ethiopic.elc quail/ipa.elc
CHINESE=${CHINESE-GB} ${CHINESE-BIG5} ${CHINESE-CNS}
EASTASIA=${CHINESE} ${JAPANESE} ${KOREAN}
ASIA=${EASTASIA} ${THAI} ${VIETNAMESE} ${LAO} ${INDIAN}
EUROPEAN=${LATIN} ${GREEK} ${RUSSIAN}
WORLD=${ASIA} ${EUROPEAN} ${MISC}
all: ${SUBDIRS} ${WORLD} leim-list.el
quail:
mkdir quail
ln -s . quail/tit
ln -s ${srcdir}/quail/*.el quail
skk:
mkdir skk
ln -s ${srcdir}/skk/* skk
quail/tit/%.el: ${srcdir}/CXTERM-DIC/%.tit
$(EMACS) -batch -l titdic-cnv -f batch-titdic-convert\
-dir quail `dirname $<`
quail/tit/%.elc: quail/tit/%.el
$(EMACS) -batch --eval '(byte-recompile-directory "quail" 0)'
quail/%.el:
for f in ${srcdir}/quail/*.el; do \
[ -f quail/`basename $$f` ] || (cd quail; ln -s $$f .); \
done
quail/%.elc: quail/%.el
$(EMACS) -batch --eval '(byte-recompile-directory "quail" 0)'
skk/%.el:
ln -s ${srcdir}/$@ $@
skk/%.elc: skk/%.el
$(EMACS) -batch -l skkdic-cnv -f batch-byte-compile $<
leim-list.el: ${WORLD}
$(EMACS) -batch --eval "(update-leim-list-file \".\")"
# install -- all languages supported by LEIM
# install-asia -- all Asian languages
# install-eastasia -- all Each Asian languages
# install-chinese -- all Chinese Languages
# install-chinese-gb -- Chinese (GB)
# install-chinese-big5 -- Chinese (BIG5)
# install-chinese-cns -- Chinese (CNS)
# install-japanese -- Japanese
# install-korean -- Korean (hangul and hanja)
# install-thai -- Thai
# install-vietnamese -- Vietnamese
# install-lao -- Lao
# install-indian -- Indian (Devanagari script)
# install-tibetan -- Tibetan (Devanagari)
# install-european -- all European languages
# install-latin -- all Latin scripts
# install-greek -- Greek
# install-russian -- Russian (cyrillic)
# install-misc -- Ethiopic and IPA
install: all
ELC=`echo ${WORLD} | sed 's,tit/,,g'`; \
EL=`echo $$ELC | sed 's/\.elc/.el/g'`; \
$(TAR) -cf - $$EL $$ELC | (cd ${INSTALLDIR}; $(TAR) -xvf -)
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
install-asia: ${ASIA}
ELSRC=`echo ${ASIA} | sed 's/\.elc/.el/g'`; \
$(TAR) -cf - $$ELSRC ${ASIA} | (cd ${INSTALLDIR}; $(TAR) -xvf -)
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
install-eastasia: ${EASTASIA}
ELSRC=`echo ${EASTASIA} | sed 's/\.elc/.el/g'`; \
$(TAR) -cf - $$ELSRC ${EASTASIA} | (cd ${INSTALLDIR}; $(TAR) -xvf -)
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
install-chinese: install-chinese-gb install-chinese-big5 install-chinese-cns
install-chinese-gb: ${CHINESE-GB}
ELSRC=`echo $^ | sed 's/\.elc/.el/g'`; \
$(CP) -fp $$ELSRC $^ ${INSTALLDIR}/quail
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
install-chinese-big5: ${CHINESE-BIG5}
ELSRC=`echo $^ | sed 's/\.elc/.el/g'`; \
$(CP) -fp $$ELSRC $^ ${INSTALLDIR}/quail
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
install-chinese-cns: ${CHINESE-CNS}
ELSRC=`echo ${CHINESE-CNS} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${CHINESE-CNS} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-japanese: ${JAPANESE}
ELSRC=`echo ${JAPANESE} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${JAPANESE} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-korean: ${KOREAN}
ELSRC=`echo ${KOREAN} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${KOREAN} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-thai: ${THAI}
ELSRC=`echo ${THAI} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${THAI} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-vietnamese: ${VIETNAMESE}
ELSRC=`echo ${VIETNAMESE} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${VIETNAMESE} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-lao: ${LAO}
ELSRC=`echo ${LAO} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${LAO} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-indian: ${INSTALLDIR} ${INDIAN}
ELSRC=`echo ${INDIAN} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${INDIAN} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-tibetan: ${INSTALLDIR} ${TIBETAN}
ELSRC=`echo ${INDIAN} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${INDIAN} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-european: install-latin install-greek install-russian
install-latin: ${LATIN}
ELSRC=`echo ${LATIN} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${LATIN} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-greek: ${GREEK}
ELSRC=`echo ${GREEK} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${GREEK} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-russian: ${RUSSIAN}
ELSRC=`echo ${RUSSIAN} | sed 's/\.elc/.el/g'`; \
$(TAR) cf - $$ELSRC ${RUSSIAN} | (cd ${INSTALLDIR}; $(TAR) xfBp -)
install-misc: ${MISC}
ELSRC=`echo $^ | sed 's/\.elc/.el/g'`; \
$(CP) -fp $$ELSRC $^ ${INSTALLDIR}/quail
$(EMACS) -batch --eval "(update-leim-list-file \"${INSTALLDIR}\")"
;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Keywords: multilingual, input method, Cyrillic
;; This file is part of GNU Emacs.
;; GNU Emacs 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, or (at your option)
;; any later version.
;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Code:
(require 'quail)
(quail-define-package
"cyrillic-jcuken" "Cyrillic" ",L69(B" nil
",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"
nil t t t t)
;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
(quail-define-rules
("1" ?1)
("2" ?2)
("3" ?3)
("4" ?4)
("5" ?5)
("6" ?6)
("7" ?7)
("8" ?8)
("9" ?9)
("0" ?0)
("-" ?-)
("=" ?=)
("`" ?,Lq(B)
("q" ?,LY(B)
("w" ?,Lf(B)
("e" ?,Lc(B)
("r" ?,LZ(B)
("t" ?,LU(B)
("y" ?,L](B)
("u" ?,LS(B)
("i" ?,Lh(B)
("o" ?,Li(B)
("p" ?,LW(B)
("[" ?,Le(B)
("]" ?,Lj(B)
("a" ?,Ld(B)
("s" ?,Lk(B)
("d" ?,LR(B)
("f" ?,LP(B)
("g" ?,L_(B)
("h" ?,L`(B)
("j" ?,L^(B)
("k" ?,L[(B)
("l" ?,LT(B)
(";" ?,LV(B)
("'" ?,Lm(B)
("\\" ?\\)
("z" ?,Lo(B)
("x" ?,Lg(B)
("c" ?,La(B)
("v" ?,L\(B)
("b" ?,LX(B)
("n" ?,Lb(B)
("m" ?,Ll(B)
("," ?,LQ(B)
("." ?,Ln(B)
("/" ?/)
("!" ?!)
("@" ?@)
("#" ?#)
("$" ?\")
("%" ?:)
("^" ?,)
("&" ?.)
("*" ?*)
("(" ?()
(")" ?))
("_" ?_)
("+" ?+)
("~" ?,L!(B)
("Q" ?,L9(B)
("W" ?,LF(B)
("E" ?,LC(B)
("R" ?,L:(B)
("T" ?,L5(B)
("Y" ?,L=(B)
("U" ?,L3(B)
("I" ?,LH(B)
("O" ?,LI(B)
("P" ?,L7(B)
("{" ?,LE(B)
("}" ?,LJ(B)
("A" ?,LD(B)
("S" ?,LK(B)
("D" ?,L2(B)
("F" ?,L0(B)
("G" ?,L?(B)
("H" ?,L@(B)
("J" ?,L>(B)
("K" ?,L;(B)
("L" ?,L4(B)
(":" ?,L6(B)
("\"" ?,LM(B)
("|" ?|)
("Z" ?,LO(B)
("X" ?,LG(B)
("C" ?,LA(B)
("V" ?,L<(B)
("B" ?,L8(B)
("N" ?,LB(B)
("M" ?,LL(B)
("<" ?,L1(B)
(">" ?,LN(B)
("?" ??))
;;
(quail-define-package
"cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil
"$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)"
nil t t t t)
;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B
;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /?
(quail-define-rules
("1" ?$B#1(B)
("2" ?$B#2(B)
("3" ?$B#3(B)
("4" ?$B#4(B)
("5" ?$B#5(B)
("6" ?$B#6(B)
("7" ?$B#7(B)
("8" ?$B#8(B)
("9" ?$B#9(B)
("0" ?$B#0(B)
("-" ?$B!](B)
("=" ?$B!a(B)
("`" ?$B'W(B)
("q" ?$B'[(B)
("w" ?$B'h(B)
("e" ?$B'e(B)
("r" ?$B'\(B)
("t" ?$B'V(B)
("y" ?$B'_(B)
("u" ?$B'T(B)
("i" ?$B'j(B)
("o" ?$B'k(B)
("p" ?$B'Y(B)
("[" ?$B'g(B)
("]" ?$B'l(B)
("a" ?$B'f(B)
("s" ?$B'm(B)
("d" ?$B'S(B)
("f" ?$B'Q(B)
("g" ?$B'a(B)
("h" ?$B'b(B)
("j" ?$B'`(B)
("k" ?$B'](B)
("l" ?$B'U(B)
(";" ?$B'X(B)
("'" ?$B'o(B)
("\\" ?$B!@(B)
("z" ?$B'q(B)
("x" ?$B'i(B)
("c" ?$B'c(B)
("v" ?$B'^(B)
("b" ?$B'Z(B)
("n" ?$B'd(B)
("m" ?$B'n(B)
("," ?$B'R(B)
("." ?$B'p(B)
("/" ?$B!?(B)
("!" ?$B!*(B)
("@" ?$B!w(B)
("#" ?$B!t(B)
("$" ?$B!I(B)
("%" ?$B!'(B)
("^" ?$B!$(B)
("&" ?$B!%(B)
("*" ?$B!v(B)
("(" ?$B!J(B)
(")" ?$B!K(B)
("_" ?$B!2(B)
("+" ?$B!\(B)
("~" ?$B''(B)
("Q" ?$B'+(B)
("W" ?$B'8(B)
("E" ?$B'5(B)
("R" ?$B',(B)
("T" ?$B'&(B)
("Y" ?$B'/(B)
("U" ?$B'$(B)
("I" ?$B':(B)
("O" ?$B';(B)
("P" ?$B')(B)
("{" ?$B'7(B)
("}" ?$B'<(B)
("A" ?$B'6(B)
("S" ?$B'=(B)
("D" ?$B'#(B)
("F" ?$B'!(B)
("G" ?$B'1(B)
("H" ?$B'2(B)
("J" ?$B'0(B)
("K" ?$B'-(B)
("L" ?$B'%(B)
(":" ?$B'((B)
("\"" ?$B'?(B)
("|" ?$B!C(B)
("Z" ?$B'A(B)
("X" ?$B'9(B)
("C" ?$B'3(B)
("V" ?$B'.(B)
("B" ?$B'*(B)
("N" ?$B'4(B)
("M" ?$B'>(B)
("<" ?$B'"(B)
(">" ?$B'@(B)
("?" ?$B!)(B))
;;
(quail-define-package
"cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
nil t t t t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B
;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L,(B ,L6(B
;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
(quail-define-rules
("1" ?1)
("2" ?2)
("3" ?3)
("4" ?4)
("5" ?5)
("6" ?6)
("7" ?7)
("8" ?8)
("9" ?9)
("0" ?0)
("-" ?/)
("=" ?+)
("`" ?<)
("q" ?,Ly(B)
("w" ?,Lz(B)
("e" ?,LU(B)
("r" ?,L`(B)
("t" ?,Lb(B)
("y" ?,LW(B)
("u" ?,Lc(B)
("i" ?,LX(B)
("o" ?,L^(B)
("p" ?,L_(B)
("[" ?,Lh(B)
("]" ?,Ls(B)
("a" ?,LP(B)
("s" ?,La(B)
("d" ?,LT(B)
("f" ?,Ld(B)
("g" ?,LS(B)
("h" ?,Le(B)
("j" ?,Lx(B)
("k" ?,LZ(B)
("l" ?,L[(B)
(";" ?,Lg(B)
("'" ?,L|(B)
("\\" ?,LV(B)
("z" ?,Lu(B)
("x" ?,L(B)
("c" ?,Lf(B)
("v" ?,LR(B)
("b" ?,LQ(B)
("n" ?,L](B)
("m" ?,L\(B)
("," ?,)
("." ?.)
("/" ?-)
("!" ?!)
("@" ?\")
("#" ?#)
("$" ?$)
("%" ?%)
("^" ?&)
("&" ?')
("*" ?\()
("(" ?\))
(")" ?=)
("_" ??)
("+" ?*)
("~" ?>)
("Q" ?,L)(B)
("W" ?,L*(B)
("E" ?,L5(B)
("R" ?,L@(B)
("T" ?,LB(B)
("Y" ?,L7(B)
("U" ?,LC(B)
("I" ?,L8(B)
("O" ?,L>(B)
("P" ?,L?(B)
("{" ?,LH(B)
("}" ?,L#(B)
("A" ?,L0(B)
("S" ?,LA(B)
("D" ?,L4(B)
("F" ?,LD(B)
("G" ?,L3(B)
("H" ?,LE(B)
("J" ?,L((B)
("K" ?,L:(B)
("L" ?,L;(B)
(":" ?,LG(B)
("\"" ?,L,(B)
("|" ?,L6(B)
("Z" ?,L%(B)
("X" ?,L/(B)
("C" ?,LF(B)
("V" ?,L2(B)
("B" ?,L1(B)
("N" ?,L=(B)
("M" ?,L<(B)
("<" ?\;)
(">" ?:)
("?" ?_))
;;
(quail-define-package
"cyrillic-serbian" "Cyrillic" ",L6(BS" nil
",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
nil t t t t)
;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B
;; ,L0(B ,LA(B ,L4(B ,LD(B ,L3(B ,LE(B ,L((B ,L:(B ,L;(B ,LG(B ,L+(B ,L6(B
;; ,L%(B ,L/(B ,LF(B ,L2(B ,L1(B ,L=(B ,L<(B ,; .: -_
(quail-define-rules
("1" ?1)
("2" ?2)
("3" ?3)
("4" ?4)
("5" ?5)
("6" ?6)
("7" ?7)
("8" ?8)
("9" ?9)
("0" ?0)
("-" ?/)
("=" ?+)
("`" ?<)
("q" ?,Ly(B)
("w" ?,Lz(B)
("e" ?,LU(B)
("r" ?,L`(B)
("t" ?,Lb(B)
("y" ?,LW(B)
("u" ?,Lc(B)
("i" ?,LX(B)
("o" ?,L^(B)
("p" ?,L_(B)
("[" ?,Lh(B)
("]" ?,Lr(B)