[bpt/emacs.git] / lisp / language / cyril-util.el

;;; cyril-util.el --- utilities for Cyrillic scripts

;; Copyright (C) 1997  Free Software Foundation, Inc.

;; Keywords: mule, multilingual, 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.

;;; Commentary:

;;; Code:

;;;###autoload
(defun cyrillic-encode-koi8-r-char (char)
  "Return KOI8-R external character code of CHAR if appropriate."
  (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)
	char))

;;;###autoload
(defun cyrillic-encode-alternativnyj-char (char)
  "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
  (aref (char-table-extra-slot
	 cyrillic-alternativnyj-nonascii-translation-table 0)
	char))

\f
;; Display 

;; Written by Valery Alexeev <valery@math.uga.edu>.

(defvar cyrillic-language-alist
      (list '("Belorussian") '("Bulgarian") '("Macedonian") 
	    '("Russian") '("Serbo-Croatian") '("Ukrainian"))
      "*List of known cyrillic languages")

;;;###autoload
(defun standard-display-cyrillic-translit (&optional cyrillic-language)
  "Display a cyrillic buffer using a transliteration.
For readability, the table is slightly
different from the one used for the input method `cyrillic-translit'.

The argument is a string which specifies which language you are using;
that affects the choice of transliterations slightly.
Possible values are listed in 'cyrillic-language-alist'.
If the argument is t, we use the default cyrillic transliteration.
If the argument is nil, we return the display table to its standard state."
  (interactive
   (list
    (let* ((completion-ignore-case t))
      (completing-read
       "Cyrillic language (default nil): "
       cyrillic-language-alist nil t nil nil nil))))

  (or standard-display-table
      (setq standard-display-table (make-display-table)))

  (if (equal cyrillic-language "")
      (setq cyrillic-language nil))

  (if (null cyrillic-language)
      (setq standard-display-table (make-display-table))
    (aset standard-display-table ?\e,LP\e(B  [?a])
    (aset standard-display-table ?\e,LQ\e(B  [?b])
    (aset standard-display-table ?\e,LR\e(B  [?v])
    (aset standard-display-table ?\e,LS\e(B  [?g])
    (aset standard-display-table ?\e,LT\e(B  [?d])
    (aset standard-display-table ?\e,LU\e(B  [?e])
    (aset standard-display-table ?\e,Lq\e(B  [?y?o])
    (aset standard-display-table ?\e,LV\e(B  [?z?h])
    (aset standard-display-table ?\e,LW\e(B  [?z])
    (aset standard-display-table ?\e,LX\e(B  [?i])
    (aset standard-display-table ?\e,LY\e(B  [?j])
    (aset standard-display-table ?\e,LZ\e(B  [?k])
    (aset standard-display-table ?\e,L[\e(B  [?l])
    (aset standard-display-table ?\e,L\\e(B  [?m])
    (aset standard-display-table ?\e,L]\e(B  [?n])
    (aset standard-display-table ?\e,L^\e(B  [?o])
    (aset standard-display-table ?\e,L_\e(B  [?p])
    (aset standard-display-table ?\e,L`\e(B  [?r])
    (aset standard-display-table ?\e,La\e(B  [?s])
    (aset standard-display-table ?\e,Lb\e(B  [?t])
    (aset standard-display-table ?\e,Lc\e(B  [?u])
    (aset standard-display-table ?\e,Ld\e(B  [?f])
    (aset standard-display-table ?\e,Le\e(B  [?k?h])
    (aset standard-display-table ?\e,Lf\e(B  [?t?s])
    (aset standard-display-table ?\e,Lg\e(B  [?c?h])
    (aset standard-display-table ?\e,Lh\e(B  [?s?h])
    (aset standard-display-table ?\e,Li\e(B  [?s?c?h])
    (aset standard-display-table ?\e,Lj\e(B  [?~])
    (aset standard-display-table ?\e,Lk\e(B  [?y])
    (aset standard-display-table ?\e,Ll\e(B  [?'])
    (aset standard-display-table ?\e,Lm\e(B  [?e?'])
    (aset standard-display-table ?\e,Ln\e(B  [?y?u])
    (aset standard-display-table ?\e,Lo\e(B  [?y?a])
    
    (aset standard-display-table ?\e,L0\e(B  [?A])
    (aset standard-display-table ?\e,L1\e(B  [?B])
    (aset standard-display-table ?\e,L2\e(B  [?V])
    (aset standard-display-table ?\e,L3\e(B  [?G])
    (aset standard-display-table ?\e,L4\e(B  [?D])
    (aset standard-display-table ?\e,L5\e(B  [?E])
    (aset standard-display-table ?\e,L!\e(B  [?Y?o])
    (aset standard-display-table ?\e,L6\e(B  [?Z?h])
    (aset standard-display-table ?\e,L7\e(B  [?Z])
    (aset standard-display-table ?\e,L8\e(B  [?I])
    (aset standard-display-table ?\e,L9\e(B  [?J])
    (aset standard-display-table ?\e,L:\e(B  [?K])
    (aset standard-display-table ?\e,L;\e(B  [?L])
    (aset standard-display-table ?\e,L<\e(B  [?M])
    (aset standard-display-table ?\e,L=\e(B  [?N])
    (aset standard-display-table ?\e,L>\e(B  [?O])
    (aset standard-display-table ?\e,L?\e(B  [?P])
    (aset standard-display-table ?\e,L@\e(B  [?R])
    (aset standard-display-table ?\e,LA\e(B  [?S])
    (aset standard-display-table ?\e,LB\e(B  [?T])
    (aset standard-display-table ?\e,LC\e(B  [?U])
    (aset standard-display-table ?\e,LD\e(B  [?F])
    (aset standard-display-table ?\e,LE\e(B  [?K?h])
    (aset standard-display-table ?\e,LF\e(B  [?T?s])
    (aset standard-display-table ?\e,LG\e(B  [?C?h])
    (aset standard-display-table ?\e,LH\e(B  [?S?h])
    (aset standard-display-table ?\e,LI\e(B  [?S?c?h])
    (aset standard-display-table ?\e,LJ\e(B  [?~])
    (aset standard-display-table ?\e,LK\e(B  [?Y])
    (aset standard-display-table ?\e,LL\e(B  [?'])
    (aset standard-display-table ?\e,LM\e(B  [?E?'])
    (aset standard-display-table ?\e,LN\e(B  [?Y?u])
    (aset standard-display-table ?\e,LO\e(B  [?Y?a])
    
    (aset standard-display-table ?\e,Lt\e(B  [?i?e])
    (aset standard-display-table ?\e,Lw\e(B  [?i])
    (aset standard-display-table ?\e,L~\e(B  [?u])
    (aset standard-display-table ?\e,Lr\e(B  [?d?j])
    (aset standard-display-table ?\e,L{\e(B  [?c?h?j])
    (aset standard-display-table ?\e,Ls\e(B  [?g?j])
    (aset standard-display-table ?\e,Lu\e(B  [?s])
    (aset standard-display-table ?\e,L|\e(B  [?k])
    (aset standard-display-table ?\e,Lv\e(B  [?i])
    (aset standard-display-table ?\e,Lx\e(B  [?j])
    (aset standard-display-table ?\e,Ly\e(B  [?l?j])
    (aset standard-display-table ?\e,Lz\e(B  [?n?j])
    (aset standard-display-table ?\e,L\7f\e(B  [?d?z])
    
    (aset standard-display-table ?\e,L$\e(B  [?Y?e])
    (aset standard-display-table ?\e,L'\e(B  [?Y?i])
    (aset standard-display-table ?\e,L.\e(B  [?U])
    (aset standard-display-table ?\e,L"\e(B  [?D?j])
    (aset standard-display-table ?\e,L+\e(B  [?C?h?j])
    (aset standard-display-table ?\e,L#\e(B  [?G?j])
    (aset standard-display-table ?\e,L%\e(B  [?S])
    (aset standard-display-table ?\e,L,\e(B  [?K])
    (aset standard-display-table ?\e,L&\e(B  [?I])
    (aset standard-display-table ?\e,L(\e(B  [?J])
    (aset standard-display-table ?\e,L)\e(B  [?L?j])
    (aset standard-display-table ?\e,L*\e(B  [?N?j])
    (aset standard-display-table ?\e,L/\e(B  [?D?j])
    
    (when (equal cyrillic-language "Bulgarian")
      (aset standard-display-table ?\e,Li\e(B [?s?h?t])
      (aset standard-display-table ?\e,LI\e(B [?S?h?t])
      (aset standard-display-table ?\e,Ln\e(B [?i?u])
      (aset standard-display-table ?\e,LN\e(B [?I?u])
      (aset standard-display-table ?\e,Lo\e(B [?i?a])
      (aset standard-display-table ?\e,LO\e(B [?I?a]))
    
    (when (equal cyrillic-language "Ukrainian") ; based on the official 
					; transliteration table
      (aset standard-display-table ?\e,LX\e(B [?y])
      (aset standard-display-table ?\e,L8\e(B [?Y])
      (aset standard-display-table ?\e,LY\e(B [?i])
      (aset standard-display-table ?\e,L9\e(B [?Y])
    (aset standard-display-table ?\e,Ln\e(B [?i?u])
    (aset standard-display-table ?\e,Lo\e(B [?i?a]))))


;;
(provide 'cyril-util)

;; Local Variables:
;; coding: iso-2022-7bit
;; End:

;;; cyril-util.el ends here
Commit	Line	Data
60370d40	1	;;; cyril-util.el --- utilities for Cyrillic scripts
d6c7b552	2
3cea0ca7	3	;; Copyright (C) 1997 Free Software Foundation, Inc.
d6c7b552 KH	4
	5	;; Keywords: mule, multilingual, Cyrillic
	6
	7	;; This file is part of GNU Emacs.
	8
	9	;; GNU Emacs is free software; you can redistribute it and/or modify
	10	;; it under the terms of the GNU General Public License as published by
	11	;; the Free Software Foundation; either version 2, or (at your option)
	12	;; any later version.
	13
	14	;; GNU Emacs is distributed in the hope that it will be useful,
	15	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;; GNU General Public License for more details.
	18
	19	;; You should have received a copy of the GNU General Public License
	20	;; along with GNU Emacs; see the file COPYING. If not, write to the
	21	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	22	;; Boston, MA 02111-1307, USA.
	23
60370d40 PJ	24	;;; Commentary:
60370d40 PJ	25
d6c7b552 KH	26	;;; Code:
d6c7b552 KH	27
ce58d9b4 KH	28	;;;###autoload
	29	(defun cyrillic-encode-koi8-r-char (char)
	30	"Return KOI8-R external character code of CHAR if appropriate."
	31	(aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)
	32	char))
	33
	34	;;;###autoload
	35	(defun cyrillic-encode-alternativnyj-char (char)
	36	"Return ALTERNATIVNYJ external character code of CHAR if appropriate."
	37	(aref (char-table-extra-slot
	38	cyrillic-alternativnyj-nonascii-translation-table 0)
	39	char))
	40
71ed4992 RS	41	\f
	42	;; Display
	43
	44	;; Written by Valery Alexeev <valery@math.uga.edu>.
	45
7286c88e	46	(defvar cyrillic-language-alist
729b30ae	47	(list '("Belorussian") '("Bulgarian") '("Macedonian")
f58bb396	48	'("Russian") '("Serbo-Croatian") '("Ukrainian"))
7286c88e KH	49	"*List of known cyrillic languages")
7286c88e KH	50
7286c88e KH	51	;;;###autoload
7286c88e KH	52	(defun standard-display-cyrillic-translit (&optional cyrillic-language)
71ed4992 RS	53	"Display a cyrillic buffer using a transliteration.
	54	For readability, the table is slightly
	55	different from the one used for the input method `cyrillic-translit'.
	56
7286c88e	57	The argument is a string which specifies which language you are using;
71ed4992	58	that affects the choice of transliterations slightly.
7286c88e KH	59	Possible values are listed in 'cyrillic-language-alist'.
7286c88e KH	60	If the argument is t, we use the default cyrillic transliteration.
71ed4992	61	If the argument is nil, we return the display table to its standard state."
2631431f RS	62	(interactive
	63	(list
	64	(let* ((completion-ignore-case t))
	65	(completing-read
	66	"Cyrillic language (default nil): "
	67	cyrillic-language-alist nil t nil nil nil))))
	68
	69	(or standard-display-table
	70	(setq standard-display-table (make-display-table)))
7286c88e KH	71
	72	(if (equal cyrillic-language "")
	73	(setq cyrillic-language nil))
	74
71ed4992 RS	75	(if (null cyrillic-language)
71ed4992 RS	76	(setq standard-display-table (make-display-table))
7286c88e KH	77	(aset standard-display-table ?\e,LP\e(B [?a])
	78	(aset standard-display-table ?\e,LQ\e(B [?b])
	79	(aset standard-display-table ?\e,LR\e(B [?v])
	80	(aset standard-display-table ?\e,LS\e(B [?g])
	81	(aset standard-display-table ?\e,LT\e(B [?d])
	82	(aset standard-display-table ?\e,LU\e(B [?e])
	83	(aset standard-display-table ?\e,Lq\e(B [?y?o])
	84	(aset standard-display-table ?\e,LV\e(B [?z?h])
	85	(aset standard-display-table ?\e,LW\e(B [?z])
	86	(aset standard-display-table ?\e,LX\e(B [?i])
	87	(aset standard-display-table ?\e,LY\e(B [?j])
	88	(aset standard-display-table ?\e,LZ\e(B [?k])
	89	(aset standard-display-table ?\e,L[\e(B [?l])
	90	(aset standard-display-table ?\e,L\\e(B [?m])
	91	(aset standard-display-table ?\e,L]\e(B [?n])
	92	(aset standard-display-table ?\e,L^\e(B [?o])
	93	(aset standard-display-table ?\e,L_\e(B [?p])
	94	(aset standard-display-table ?\e,L`\e(B [?r])
	95	(aset standard-display-table ?\e,La\e(B [?s])
	96	(aset standard-display-table ?\e,Lb\e(B [?t])
	97	(aset standard-display-table ?\e,Lc\e(B [?u])
	98	(aset standard-display-table ?\e,Ld\e(B [?f])
	99	(aset standard-display-table ?\e,Le\e(B [?k?h])
	100	(aset standard-display-table ?\e,Lf\e(B [?t?s])
	101	(aset standard-display-table ?\e,Lg\e(B [?c?h])
	102	(aset standard-display-table ?\e,Lh\e(B [?s?h])
	103	(aset standard-display-table ?\e,Li\e(B [?s?c?h])
	104	(aset standard-display-table ?\e,Lj\e(B [?~])
	105	(aset standard-display-table ?\e,Lk\e(B [?y])
	106	(aset standard-display-table ?\e,Ll\e(B [?'])
	107	(aset standard-display-table ?\e,Lm\e(B [?e?'])
	108	(aset standard-display-table ?\e,Ln\e(B [?y?u])
	109	(aset standard-display-table ?\e,Lo\e(B [?y?a])
	110
	111	(aset standard-display-table ?\e,L0\e(B [?A])
	112	(aset standard-display-table ?\e,L1\e(B [?B])
	113	(aset standard-display-table ?\e,L2\e(B [?V])
	114	(aset standard-display-table ?\e,L3\e(B [?G])
	115	(aset standard-display-table ?\e,L4\e(B [?D])
	116	(aset standard-display-table ?\e,L5\e(B [?E])
	117	(aset standard-display-table ?\e,L!\e(B [?Y?o])
	118	(aset standard-display-table ?\e,L6\e(B [?Z?h])
	119	(aset standard-display-table ?\e,L7\e(B [?Z])
	120	(aset standard-display-table ?\e,L8\e(B [?I])
	121	(aset standard-display-table ?\e,L9\e(B [?J])
	122	(aset standard-display-table ?\e,L:\e(B [?K])
	123	(aset standard-display-table ?\e,L;\e(B [?L])
	124	(aset standard-display-table ?\e,L<\e(B [?M])
	125	(aset standard-display-table ?\e,L=\e(B [?N])
	126	(aset standard-display-table ?\e,L>\e(B [?O])
	127	(aset standard-display-table ?\e,L?\e(B [?P])
	128	(aset standard-display-table ?\e,L@\e(B [?R])
	129	(aset standard-display-table ?\e,LA\e(B [?S])
	130	(aset standard-display-table ?\e,LB\e(B [?T])
	131	(aset standard-display-table ?\e,LC\e(B [?U])
	132	(aset standard-display-table ?\e,LD\e(B [?F])
	133	(aset standard-display-table ?\e,LE\e(B [?K?h])
	134	(aset standard-display-table ?\e,LF\e(B [?T?s])
	135	(aset standard-display-table ?\e,LG\e(B [?C?h])
	136	(aset standard-display-table ?\e,LH\e(B [?S?h])
	137	(aset standard-display-table ?\e,LI\e(B [?S?c?h])
	138	(aset standard-display-table ?\e,LJ\e(B [?~])
	139	(aset standard-display-table ?\e,LK\e(B [?Y])
	140	(aset standard-display-table ?\e,LL\e(B [?'])
141	(aset standard-display-table ?\e,LM\e(B [?E?'])
142	(aset standard-display-table ?\e,LN\e(B [?Y?u])
143	(aset standard-display-table ?\e,LO\e(B [?Y?a])
144
145	(aset standard-display-table ?\e,Lt\e(B [?i?e])
146	(aset standard-display-table ?\e,Lw\e(B [?i])
147	(aset standard-display-table ?\e,L~\e(B [?u])
148	(aset standard-display-table ?\e,Lr\e(B [?d?j])
149	(aset standard-display-table ?\e,L{\e(B [?c?h?j])
150	(aset standard-display-table ?\e,Ls\e(B [?g?j])
151	(aset standard-display-table ?\e,Lu\e(B [?s])
152	(aset standard-display-table ?\e,L\|\e(B [?k])
153	(aset standard-display-table ?\e,Lv\e(B [?i])
154	(aset standard-display-table ?\e,Lx\e(B [?j])
155	(aset standard-display-table ?\e,Ly\e(B [?l?j])
156	(aset standard-display-table ?\e,Lz\e(B [?n?j])
157	(aset standard-display-table ?\e,L\7f\e(B [?d?z])
158
159	(aset standard-display-table ?\e,L$\e(B [?Y?e])
160	(aset standard-display-table ?\e,L'\e(B [?Y?i])
161	(aset standard-display-table ?\e,L.\e(B [?U])
162	(aset standard-display-table ?\e,L"\e(B [?D?j])
163	(aset standard-display-table ?\e,L+\e(B [?C?h?j])
164	(aset standard-display-table ?\e,L#\e(B [?G?j])
165	(aset standard-display-table ?\e,L%\e(B [?S])
166	(aset standard-display-table ?\e,L,\e(B [?K])
167	(aset standard-display-table ?\e,L&\e(B [?I])
168	(aset standard-display-table ?\e,L(\e(B [?J])
169	(aset standard-display-table ?\e,L)\e(B [?L?j])
170	(aset standard-display-table ?\e,L*\e(B [?N?j])
171	(aset standard-display-table ?\e,L/\e(B [?D?j])
172
173	(when (equal cyrillic-language "Bulgarian")
174	(aset standard-display-table ?\e,Li\e(B [?s?h?t])
175	(aset standard-display-table ?\e,LI\e(B [?S?h?t])
176	(aset standard-display-table ?\e,Ln\e(B [?i?u])
177	(aset standard-display-table ?\e,LN\e(B [?I?u])
178	(aset standard-display-table ?\e,Lo\e(B [?i?a])
179	(aset standard-display-table ?\e,LO\e(B [?I?a]))
180
181	(when (equal cyrillic-language "Ukrainian") ; based on the official
71ed4992	182	; transliteration table
7286c88e KH	183	(aset standard-display-table ?\e,LX\e(B [?y])
	184	(aset standard-display-table ?\e,L8\e(B [?Y])
	185	(aset standard-display-table ?\e,LY\e(B [?i])
	186	(aset standard-display-table ?\e,L9\e(B [?Y])
	187	(aset standard-display-table ?\e,Ln\e(B [?i?u])
	188	(aset standard-display-table ?\e,Lo\e(B [?i?a]))))
	189
d6c7b552	190
d6c7b552	191	;;
9e9af2e9	192	(provide 'cyril-util)
d6c7b552	193
7286c88e	194	;; Local Variables:
e7509bdd	195	;; coding: iso-2022-7bit
7286c88e	196	;; End:
60370d40 PJ	197
60370d40 PJ	198	;;; cyril-util.el ends here