From cb6c95a394d9a9d2f068bf8ee240f2d2297867d1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 26 Nov 2013 22:15:06 -0800 Subject: Move runtime leim lisp files to lisp/leim directory This allows us to reuse much of the lisp build and installation machinery, rather than duplicating it. * Makefile.in (abs_builddir, leimdir): Remove. (buildlisppath, SUBDIR, COPYDIR, COPYDESTS): No more leim directory. (epaths-force-w32): No longer set BLD. (leim): Remove. (install-arch-indep): No longer run or install leim. (mostlyclean, clean): No longer run leim rule. (bootstrap-clean): Change leim target. (maintainer-clean): Add leim. (check-declare): Remove leim. * README: Update for leim changes. * configure.ac (leimdir): Remove. (standardlisppath): No more leimdir. * make-dist: Update for files from leim/ now being in lisp/leim/. * doc/lispref/loading.texi (Library Search): * doc/lispref/os.texi (Startup Summary): No more leim directory. * leim/Makefile.in (leimdir): New variable. (TIT_GB, TIT_BIG5, MISC, changed.tit, changed.misc) (${leimdir}/leim-list.el, ${leimdir}/ja-dic/ja-dic.el): Generate in $leimdir. (all): Remove compilation, add ja-dic. (leim-list.el): Now PHONY. (setwins, compile-targets, compile-main, clean, mostlyclean) (extraclean): Remove. (bootstrap-clean): Delete all generated files. * leim/README: Update for moved leim/ directory. * leim/leim-ext.el (ucs-input-activate, hangul-input-method-activate): Remove manual autoloads; now in loaddefs.el. Disable byte-compile, version-control, autoloads in the output. * lisp/Makefile.in (setwins_for_subdirs): Skip leim/ directory. (compile-main): Depend on lisp/leim rule. (leim): New rule. * lisp/loadup.el: Move leim-list.el to leim/ subdirectory. * lisp/startup.el (normal-top-level): No more leim directory. * lisp/international/ja-dic-cnv.el (skkdic-convert): Disable version-control and autoloads in output files. * lisp/international/titdic-cnv.el (titdic-convert, miscdic-convert): Disable version-control and autoloads in output files. * lisp/leim/quail: Move here from ../leim. * lisp/leim/quail/hangul.el (hangul-input-method-activate): Add autoload cookie. (generated-autoload-load-name): Set file-local value. * lisp/leim/quail/uni-input.el (ucs-input-activate): Add autoload cookie. (generated-autoload-load-name): Set file-local value. * nt/README.W32: * nt/addpm.c (env_vars): * nt/epaths.nt (PATH_LOADSEARCH, PATH_DUMPLOADSEARCH): * nt/paths.h (PATH_LOADSEARCH): No more leim directory. * src/Makefile.in (leimdir): Now in lisp source directory. ($(leimdir)/leim-list.el): Just use ../leim . * src/epaths.in (PATH_DUMPLOADSEARCH): * src/lread.c (load_path_default): * src/nsterm.m (ns_load_path): No more leim directory. * .bzrignore: Update for relocated leim files. --- lisp/leim/quail/czech.el | 568 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 568 insertions(+) create mode 100644 lisp/leim/quail/czech.el (limited to 'lisp/leim/quail/czech.el') diff --git a/lisp/leim/quail/czech.el b/lisp/leim/quail/czech.el new file mode 100644 index 00000000000..56778927083 --- /dev/null +++ b/lisp/leim/quail/czech.el @@ -0,0 +1,568 @@ +;;; czech.el --- Quail package for inputting Czech -*-coding: utf-8;-*- + +;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc. + +;; Author: Milan Zamazal +;; Maintainer: Pavel Janík +;; Keywords: i18n, multilingual, input method, Czech + +;; 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 3 of the License, 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. If not, see . + +;;; Commentary: + +;; This file defines the following Czech keyboards: +;; - "standard" Czech keyboard in the Windoze NT 105 keys version (both +;; "QWERTZ" and "QWERTY" versions) +;; - three non-standard Czech keyboards for programmers + +;;; Code: + +(require 'quail) + + +(quail-define-package + "czech" "Czech" "CZ" t + "\"Standard\" Czech keyboard in the Windows NT 105 keys version." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("1" ?+) + ("2" ?ě) + ("3" ?š) + ("4" ?č) + ("5" ?ř) + ("6" ?ž) + ("7" ?ý) + ("8" ?á) + ("9" ?í) + ("0" ?é) + ("!" ?1) + ("@" ?2) + ("#" ?3) + ("$" ?4) + ("%" ?5) + ("^" ?6) + ("&" ?7) + ("*" ?8) + ("(" ?9) + (")" ?0) + ("-" ?=) + ("_" ?%) + ("[" ?ú) + ("{" ?/) + ("]" ?\)) + ("}" ?\() + ("|" ?`) + (";" ?ů) + (":" ?\") + ("'" ?§) + ("\"" ?!) + ("<" ??) + (">" ?:) + ("/" ?-) + ("?" ?_) + ("`" ?\;) + ("y" ?z) + ("z" ?y) + ("Y" ?Z) + ("Z" ?Y) + ("\\a" ?ä) + ("\\o" ?ö) + ("\\s" ?ß) + ("\\u" ?ü) + ("\\A" ?Ä) + ("\\O" ?Ö) + ("\\S" ?ß) + ("\\U" ?Ü) + ("~u" ?ů) + ("~U" ?Ů) + ("=a" ?á) + ("+c" ?č) + ("+d" ?ď) + ("=e" ?é) + ("+e" ?ě) + ("=i" ?í) + ("+n" ?ň) + ("=o" ?ó) + ("+r" ?ř) + ("+s" ?š) + ("+t" ?ť) + ("=u" ?ú) + ("=z" ?ý) + ("+y" ?ž) + ("=A" ?Á) + ("+C" ?Č) + ("+D" ?Ď) + ("=E" ?É) + ("+E" ?Ě) + ("=I" ?Í) + ("+N" ?Ň) + ("=O" ?Ó) + ("+R" ?Ř) + ("+S" ?Š) + ("+T" ?Ť) + ("=U" ?Ú) + ("=Z" ?Ý) + ("+Y" ?Ž) + ("=1" ?!) + ("=2" ?@) + ("=3" ?#) + ("=4" ?$) + ("=5" ?%) + ("=6" ?^) + ("=7" ?&) + ("=8" ?*) + ("=9" ?\() + ("=0" ?\)) + ("+1" ?!) + ("+2" ?@) + ("+3" ?#) + ("+4" ?$) + ("+5" ?%) + ("+6" ?^) + ("+7" ?&) + ("+8" ?*) + ("+9" ?\() + ("+0" ?\)) + ("=<" ?<) + ("=>" ?>) + ("=[" ?\[) + ("=]" ?\]) + ("={" ?{) + ("=}" ?}) + ([kp-1] ?1) + ([kp-2] ?2) + ([kp-3] ?3) + ([kp-4] ?4) + ([kp-5] ?5) + ([kp-6] ?6) + ([kp-7] ?7) + ([kp-8] ?8) + ([kp-9] ?9) + ([kp-0] ?0) + ([kp-add] ?+)) + +(quail-define-package + "czech-qwerty" "Czech" "CZ" t + "\"Standard\" Czech keyboard in the Windows NT 105 keys version, QWERTY layout." + nil t nil nil t nil nil nil nil nil t) + +(quail-define-rules + ("1" ?+) + ("2" ?ě) + ("3" ?š) + ("4" ?č) + ("5" ?ř) + ("6" ?ž) + ("7" ?ý) + ("8" ?á) + ("9" ?í) + ("0" ?é) + ("!" ?1) + ("@" ?2) + ("#" ?3) + ("$" ?4) + ("%" ?5) + ("^" ?6) + ("&" ?7) + ("*" ?8) + ("(" ?9) + (")" ?0) + ("-" ?=) + ("_" ?%) + ("[" ?ú) + ("{" ?/) + ("]" ?\)) + ("}" ?\() + ("|" ?`) + (";" ?ů) + (":" ?\") + ("'" ?§) + ("\"" ?!) + ("<" ??) + (">" ?:) + ("/" ?-) + ("?" ?_) + ("`" ?\;) + ("\\a" ?ä) + ("\\o" ?ö) + ("\\s" ?ß) + ("\\u" ?ü) + ("\\A" ?Ä) + ("\\O" ?Ö) + ("\\S" ?ß) + ("\\U" ?Ü) + ("~u" ?ů) + ("~U" ?Ů) + ("=a" ?á) + ("+c" ?č) + ("+d" ?ď) + ("=e" ?é) + ("+e" ?ě) + ("=i" ?í) + ("+n" ?ň) + ("=o" ?ó) + ("+r" ?ř) + ("+s" ?š) + ("+t" ?ť) + ("=u" ?ú) + ("=y" ?ý) + ("+z" ?ž) + ("=A" ?Á) + ("+C" ?Č) + ("+D" ?Ď) + ("=E" ?É) + ("+E" ?Ě) + ("=I" ?Í) + ("+N" ?Ň) + ("=O" ?Ó) + ("+R" ?Ř) + ("+S" ?Š) + ("+T" ?Ť) + ("=Y" ?Ý) + ("+Z" ?Ž) + ("=U" ?Ú) + ("=1" ?!) + ("=2" ?@) + ("=3" ?#) + ("=4" ?$) + ("=5" ?%) + ("=6" ?^) + ("=7" ?&) + ("=8" ?*) + ("=9" ?\() + ("=0" ?\)) + ("+1" ?!) + ("+2" ?@) + ("+3" ?#) + ("+4" ?$) + ("+5" ?%) + ("+6" ?^) + ("+7" ?&) + ("+8" ?*) + ("+9" ?\() + ("+0" ?\)) + ("=<" ?<) + ("=>" ?>) + ("=[" ?\[) + ("=]" ?\]) + ("={" ?{) + ("=}" ?}) + ([kp-1] ?1) + ([kp-2] ?2) + ([kp-3] ?3) + ([kp-4] ?4) + ([kp-5] ?5) + ([kp-6] ?6) + ([kp-7] ?7) + ([kp-8] ?8) + ([kp-9] ?9) + ([kp-0] ?0) + ([kp-add] ?+)) + +(quail-define-package + "czech-prog-1" "Czech" "CZ" t + "Czech (non-standard) keyboard for programmers #1. + +All digits except of `1' are replaced by Czech characters as on the standard +Czech keyboard. +`1' is replaced by `+'. +`+' is a dead key. Multiple presses of the dead key generate various accents. +All other keys are the same as on standard US keyboard." + nil t nil nil t nil nil nil nil nil t) + +(quail-define-rules + ("1" ?+) + ("2" ?ě) + ("3" ?š) + ("4" ?č) + ("5" ?ř) + ("6" ?ž) + ("7" ?ý) + ("8" ?á) + ("9" ?í) + ("0" ?é) + ("+1" ?1) + ("+2" ?2) + ("+3" ?3) + ("+4" ?4) + ("+5" ?5) + ("+6" ?6) + ("+7" ?7) + ("+8" ?8) + ("+9" ?9) + ("+0" ?0) + ("+a" ?á) + ("++a" ?ä) + ("+c" ?č) + ("+d" ?ď) + ("+e" ?é) + ("++e" ?ě) + ("+i" ?í) + ("+l" ?ĺ) + ("++l" ?ľ) + ("+n" ?ň) + ("+o" ?ó) + ("++o" ?ö) + ("+++o" ?ô) + ("+r" ?ř) + ("++r" ?ŕ) + ("+s" ?š) + ("++s" ?ß) + ("+t" ?ť) + ("+u" ?ú) + ("++u" ?ů) + ("+++u" ?ü) + ("+y" ?ý) + ("+z" ?ž) + ("+A" ?Á) + ("++A" ?Ä) + ("+C" ?Č) + ("+D" ?Ď) + ("+E" ?É) + ("++E" ?Ě) + ("+I" ?Í) + ("+L" ?Ĺ) + ("++L" ?Ľ) + ("+N" ?Ň) + ("+O" ?Ó) + ("++O" ?Ö) + ("+++O" ?Ô) + ("+R" ?Ř) + ("++R" ?Ŕ) + ("+S" ?Š) + ("++S" ?ß) + ("+T" ?Ť) + ("+U" ?Ú) + ("++U" ?Ů) + ("+++U" ?Ü) + ("+Y" ?Ý) + ("+Z" ?Ž) + ([kp-1] ?1) + ([kp-2] ?2) + ([kp-3] ?3) + ([kp-4] ?4) + ([kp-5] ?5) + ([kp-6] ?6) + ([kp-7] ?7) + ([kp-8] ?8) + ([kp-9] ?9) + ([kp-0] ?0) + ([kp-add] ?+)) + +(quail-define-package + "czech-prog-2" "Czech" "CZ" t + "Czech (non-standard) keyboard for programmers #2. + +All digits except of `1' are replaced by Czech characters as on the standard +Czech keyboard. +`1' is replaced by `ů'. +`+' is a dead key. Multiple presses of the dead key generate various accents. +All other keys are the same as on standard US keyboard." + nil t nil nil t nil nil nil nil nil t) + +(quail-define-rules + ("1" ?ů) + ("2" ?ě) + ("3" ?š) + ("4" ?č) + ("5" ?ř) + ("6" ?ž) + ("7" ?ý) + ("8" ?á) + ("9" ?í) + ("0" ?é) + ("+1" ?1) + ("+2" ?2) + ("+3" ?3) + ("+4" ?4) + ("+5" ?5) + ("+6" ?6) + ("+7" ?7) + ("+8" ?8) + ("+9" ?9) + ("+0" ?0) + ("+a" ?á) + ("++a" ?ä) + ("+c" ?č) + ("+d" ?ď) + ("+e" ?é) + ("++e" ?ě) + ("+i" ?í) + ("+l" ?ĺ) + ("++l" ?ľ) + ("+n" ?ň) + ("+o" ?ó) + ("++o" ?ö) + ("+++o" ?ô) + ("+r" ?ř) + ("++r" ?ŕ) + ("+s" ?š) + ("++s" ?ß) + ("+t" ?ť) + ("+u" ?ú) + ("++u" ?ů) + ("+++u" ?ü) + ("+y" ?ý) + ("+z" ?ž) + ("+A" ?Á) + ("++A" ?Ä) + ("+C" ?Č) + ("+D" ?Ď) + ("+E" ?É) + ("++E" ?Ě) + ("+I" ?Í) + ("+L" ?Ĺ) + ("++L" ?Ľ) + ("+N" ?Ň) + ("+O" ?Ó) + ("++O" ?Ö) + ("+++O" ?Ô) + ("+R" ?Ř) + ("++R" ?Ŕ) + ("+S" ?Š) + ("++S" ?ß) + ("+T" ?Ť) + ("+U" ?Ú) + ("++U" ?Ů) + ("+++U" ?Ü) + ("+Y" ?Ý) + ("+Z" ?Ž) + ([kp-1] ?1) + ([kp-2] ?2) + ([kp-3] ?3) + ([kp-4] ?4) + ([kp-5] ?5) + ([kp-6] ?6) + ([kp-7] ?7) + ([kp-8] ?8) + ([kp-9] ?9) + ([kp-0] ?0) + ([kp-add] ?+)) + +(quail-define-package + "czech-prog-3" "Czech" "CZ" t + "Czech (non-standard) keyboard for programmers compatible with the default +keyboard from the obsolete `emacs-czech' package. + +All digits except of `1' are replaced by Czech characters as on the standard +Czech keyboard. +`[' and `]' are replaced with `ú' and `ů', respectively. +There are two dead keys on `=' and `+'. Characters with diaereses are +accessible through `+='. +All other keys are the same as on standard US keyboard." + nil t nil nil t nil nil nil nil nil t) + +(quail-define-rules + ("2" ?ě) + ("3" ?š) + ("4" ?č) + ("5" ?ř) + ("6" ?ž) + ("7" ?ý) + ("8" ?á) + ("9" ?í) + ("0" ?é) + ("[" ?ú) + ("]" ?ů) + ("==" ?=) + ("++" ?+) + ("=+" ?+) + ("=[" ?\[) + ("=]" ?\]) + ("+[" ?\[) + ("+]" ?\]) + ("=1" ?1) + ("=2" ?2) + ("=3" ?3) + ("=4" ?4) + ("=5" ?5) + ("=6" ?6) + ("=7" ?7) + ("=8" ?8) + ("=9" ?9) + ("=0" ?0) + ("+1" ?1) + ("+2" ?2) + ("+3" ?3) + ("+4" ?4) + ("+5" ?5) + ("+6" ?6) + ("+7" ?7) + ("+8" ?8) + ("+9" ?9) + ("+0" ?0) + ("=A" ?Á) + ("+A" ?Ä) + ("+=A" ?Ä) + ("+C" ?Č) + ("+D" ?Ď) + ("=E" ?É) + ("+E" ?Ě) + ("=I" ?Í) + ("=L" ?Ľ) + ("+L" ?Ĺ) + ("+N" ?Ň) + ("=O" ?Ó) + ("+O" ?Ô) + ("+=O" ?Ö) + ("=R" ?Ŕ) + ("+R" ?Ř) + ("+S" ?Š) + ("=S" ?ß) + ("+T" ?Ť) + ("=U" ?Ú) + ("+U" ?Ů) + ("+=U" ?Ü) + ("=Y" ?Ý) + ("+Z" ?Ž) + ("=a" ?á) + ("+a" ?ä) + ("+=a" ?ä) + ("+c" ?č) + ("+d" ?ď) + ("=e" ?é) + ("+e" ?ě) + ("=i" ?í) + ("=l" ?ľ) + ("+l" ?ĺ) + ("+n" ?ň) + ("=o" ?ó) + ("+o" ?ô) + ("+=o" ?ö) + ("=r" ?ŕ) + ("+r" ?ř) + ("+s" ?š) + ("=s" ?ß) + ("+t" ?ť) + ("=u" ?ú) + ("+u" ?ů) + ("+=u" ?ü) + ("=y" ?ý) + ("+z" ?ž) + ([kp-1] ?1) + ([kp-2] ?2) + ([kp-3] ?3) + ([kp-4] ?4) + ([kp-5] ?5) + ([kp-6] ?6) + ([kp-7] ?7) + ([kp-8] ?8) + ([kp-9] ?9) + ([kp-0] ?0) + ([kp-add] ?+)) + +;;; czech.el ends here -- cgit v1.2.1