update.
[chise/xemacs-chise.git-] / lisp / mule / european.el
1 ;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6
7 ;; Keywords: multilingual, European
8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 ;; 02111-1307, USA.
25
26 ;;; Commentary:
27
28 ;; For Europeans, six coded character sets ISO8859-1,2,3,4,9 are supported.
29 ;; Note: ISO 8859/15 (Latin-9) is supported via the latin-unity package.
30
31 ;; #### latin.el would be a better name for this file.
32
33 ;;; Code:
34
35 ;; For syntax of Latin-1 characters.
36 (loop for c from 64 to 127              ; from '\e,A@\e(B' to '\e,A\7f\e(B'
37       do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
38
39 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
40 (modify-syntax-entry ?\e,AW\e(B "_")
41 (modify-syntax-entry ?\e,Aw\e(B "_")
42
43 ;; For syntax of Latin-2
44 (loop for c in '(?\e,B!\e(B ?\e,B#\e(B ?\e,B%\e(B ?\e,B&\e(B ?\e,B)\e(B ?\e,B*\e(B ?\e,B+\e(B ?\e,B,\e(B ?\e,B.\e(B ?\e,B/\e(B ?\e,B1\e(B ?\e,B3\e(B ?\e,B5\e(B ?\e,B6\e(B ?\e,B9\e(B ?\e,B:\e(B ?\e,B;\e(B ?\e,B<\e(B)
45       do (modify-syntax-entry c "w"))
46
47 (loop for c from 62 to 126
48       do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
49
50 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
51 (modify-syntax-entry ?\e,BW\e(B ".")
52 (modify-syntax-entry ?\e,Bw\e(B ".")
53
54 ;; For syntax of Latin-3
55 (loop for c in '(?\e,C!\e(B ?\e,C&\e(B ?\e,C)\e(B ?\e,C*\e(B ?\e,C+\e(B ?\e,C,\e(B ?\e,C/\e(B ?\e,C1\e(B ?\e,C5\e(B ?\e,C6\e(B ?\e,C:\e(B ?\e,C;\e(B ?\e,C<\e(B ?\e,C?\e(B)
56   do (modify-syntax-entry c "w"))
57
58 (loop for c from 64 to 126
59   do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
60
61 (modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
62 (modify-syntax-entry ?\e,CW\e(B ".")
63 (modify-syntax-entry ?\e,Cw\e(B ".")
64
65 ;; For syntax of Latin-4
66 (loop for c in '(?\e,D!\e(B ?\e,D"\e(B ?\e,D#\e(B ?\e,D%\e(B ?\e,D&\e(B ?\e,D)\e(B ?\e,D*\e(B ?\e,D+\e(B ?\e,D,\e(B ?\e,D.\e(B ?\e,D1\e(B ?\e,D3\e(B ?\e,D5\e(B ?\e,D6\e(B ?\e,D9\e(B ?\e,D:\e(B ?\e,D;\e(B ?\e,D<\e(B ?\e,D=\e(B ?\e,D>\e(B ?\e,D?\e(B)
67   do (modify-syntax-entry c "w"))
68
69 (loop for c from 64 to 126
70   do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
71
72 (modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
73 (modify-syntax-entry ?\e,DW\e(B ".")
74 (modify-syntax-entry ?\e,Dw\e(B ".")
75
76
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
78 ;;; EUROPEANS
79 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
80
81 \f
82 ;; Latin-1 (ISO-8859-1)
83
84 ;; (make-coding-system
85 ;;  'iso-latin-1 2 ?1
86 ;;  "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
87 ;;  '(ascii latin-iso8859-1 nil nil
88 ;;    nil nil nil nil nil nil nil nil nil nil nil nil t)
89 ;;  '((safe-charsets ascii latin-iso8859-1)
90 ;;    (mime-charset . iso-8859-1)))
91
92 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
93 ;; (define-coding-system-alias 'latin-1 'iso-latin-1)
94
95 ;; (make-coding-system
96 ;;  'compound-text 2 ?1
97 ;;  "ISO 2022 based encoding used in inter client communication of X"
98 ;;  '((ascii t) (latin-iso8859-1 t) nil nil
99 ;;    nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
100 ;;  '((safe-charsets . t)))
101
102 ;; (define-coding-system-alias 'ctext 'compound-text)
103
104 (defun setup-latin1-environment ()
105   "Set up multilingual environment (MULE) for European Latin-1 users."
106   (interactive)
107   (set-language-environment "Latin-1"))
108
109 (set-language-info-alist
110  "Latin-1" '((charset ascii latin-iso8859-1)
111              (coding-system iso-8859-1)
112              (coding-priority iso-8859-1)
113              (input-method . "latin-1-prefix")
114              (sample-text
115               . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")
116              (documentation . "\
117 This language environment is a generic one for Latin-1 (ISO-8859-1)
118 character set which supports the following languages:
119  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
120  Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
121 We also have a German specific language environment \"German\"."))
122  '("European"))
123
124 (set-language-info-alist
125  "French" '((charset ascii latin-iso8859-1)
126             (coding-system iso-8859-1)
127             (coding-priority iso-8859-1)
128             (tutorial . "TUTORIAL.fr")
129             (sample-text
130              . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")
131             (documentation . ("\
132 These languages are supported with the Latin-1 (ISO-8859-1) character set:
133  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
134  Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
135 ")))
136  '("European"))
137
138 (set-language-info-alist
139  "Norwegian" '((charset ascii latin-iso8859-1)
140                (coding-system iso-8859-1)
141                (coding-priority iso-8859-1)
142                (tutorial . "TUTORIAL.no")
143                (sample-text
144                 . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")
145                (documentation . ("\
146 These languages are supported with the Latin-1 (ISO-8859-1) character set:
147  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
148  Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
149 ")))
150  '("European"))
151
152 \f
153 ;; Latin-2 (ISO-8859-2)
154
155 ;; (make-coding-system
156 ;;  'iso-latin-2 2 ?2
157 ;;  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
158 ;;  '(ascii latin-iso8859-2 nil nil
159 ;;    nil nil nil nil nil nil nil)
160 ;;  '((safe-charsets ascii latin-iso8859-2)
161 ;;    (mime-charset . iso-8859-2)))
162
163 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
164 ;; (define-coding-system-alias 'latin-2 'iso-latin-2)
165
166 (make-coding-system
167  'iso-8859-2 'iso2022 "MIME ISO-8859-2"
168  '(charset-g0 ascii
169    charset-g1 latin-iso8859-2
170    charset-g2 t
171    charset-g3 t
172    mnemonic "MIME/Ltn-2"
173    ))
174
175 (defun setup-latin2-environment ()
176   "Set up multilingual environment (MULE) for European Latin-2 users."
177   (interactive)
178   (set-language-environment "Latin-2"))
179
180 (set-language-info-alist
181  "Latin-2" '((charset ascii latin-iso8859-2)
182              (coding-system iso-8859-2)
183              (coding-priority iso-8859-2)
184              (input-method . "latin-2-prefix")
185              (documentation . "\
186 This language environment is a generic one for Latin-2 (ISO-8859-2)
187 character set which supports the following languages:
188  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
189  Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
190  and Swedish."))
191  '("European"))
192
193 (set-language-info-alist
194  "Croatian" '((charset ascii latin-iso8859-2)
195               (coding-system iso-8859-2)
196               (coding-priority iso-8859-2)
197               (tutorial . "TUTORIAL.hr")
198               (documentation . "\
199 This language environment is a generic one for Latin-2 (ISO-8859-2)
200 character set which supports the following languages:
201  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
202  Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
203  and Swedish."))
204  '("European"))
205
206 (set-language-info-alist
207  "Polish" '((charset ascii latin-iso8859-2)
208             (coding-system iso-8859-2)
209             (coding-priority iso-8859-2)
210             (tutorial . "TUTORIAL.pl")
211             (documentation . "\
212 This language environment is a generic one for Latin-2 (ISO-8859-2)
213 character set which supports the following languages:
214  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
215  Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
216  and Swedish."))
217  '("European"))
218
219 ;; Romanian support originally from romanian.el
220
221 (defun setup-romanian-environment ()
222   "Setup multilingual environment (MULE) for Romanian."
223   (interactive)
224   (set-language-environment "Romanian"))
225
226 (set-language-info-alist
227  "Romanian" '((charset ascii latin-iso8859-2)
228               (coding-system iso-8859-2)
229               (coding-priority iso-8859-2)
230               (input-method . "latin-2-postfix")
231               (tutorial . "TUTORIAL.ro")
232               (sample-text . "Bun\e,Bc\e(B ziua, bine a\e,B~\e(Bi venit!")
233               (documentation . t))
234  '("European"))
235
236 (provide 'romanian)
237
238 ;; Czech support originally from czech.el
239 ;; Author: Milan Zamazal <pdm@fi.muni.cz>
240 ;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz>
241
242 (defun setup-czech-environment ()
243   "Set up multilingual environment (MULE) for czech users."
244   (interactive)
245   (set-language-environment "Czech"))
246
247 (set-language-info-alist
248  "Czech" '((charset ascii latin-iso8859-2)
249            (coding-system iso-8859-2)
250            (coding-priority iso-8859-2)
251            (tutorial . "TUTORIAL.cs")
252            (sample-text . "P\e,Bx\e(Bejeme v\e,Ba\e(Bm hezk\e,B}\e(B den!")
253            (documentation . t))
254  '("European"))
255
256 (provide 'czech)
257
258 \f
259 ;; Latin-3 (ISO-8859-3)
260
261 ;; (make-coding-system
262 ;;  'iso-latin-3 2 ?3
263 ;;  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
264 ;;  '(ascii latin-iso8859-3 nil nil
265 ;;    nil nil nil nil nil nil nil)
266 ;;  '((safe-charsets ascii latin-iso8859-3)
267 ;;    (mime-charset . iso-8859-3)))
268
269 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
270 ;; (define-coding-system-alias 'latin-3 'iso-latin-3)
271
272 (make-coding-system
273  'iso-8859-3 'iso2022 "MIME ISO-8859-3"
274  '(charset-g0 ascii
275    charset-g1 latin-iso8859-3
276    charset-g2 t
277    charset-g3 t
278    mnemonic "MIME/Ltn-3"
279    ))
280
281 (defun setup-latin3-environment ()
282   "Set up multilingual environment (MULE) for European Latin-3 users."
283   (interactive)
284   (set-language-environment "Latin-3"))
285
286 (set-language-info-alist
287  "Latin-3" '((charset ascii latin-iso8859-3)
288              (coding-system iso-8859-3)
289              (coding-priority iso-8859-3)
290              (input-method . "latin-3-prefix")
291              (documentation . "\
292 These languages are supported with the Latin-3 (ISO-8859-3) character set:
293  Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
294  German, Italian, Maltese, Spanish, and Turkish."))
295  '("European"))
296
297 \f
298 ;; Latin-4 (ISO-8859-4)
299
300 ;; (make-coding-system
301 ;;  'iso-latin-4 2 ?4
302 ;;  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
303 ;;  '(ascii latin-iso8859-4 nil nil
304 ;;    nil nil nil nil nil nil nil)
305 ;;  '((safe-charsets ascii latin-iso8859-4)
306 ;;    (mime-charset . iso-8895-4)))
307
308 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
309 ;; (define-coding-system-alias 'latin-4 'iso-latin-4)
310
311 (make-coding-system
312  'iso-8859-4 'iso2022 "MIME ISO-8859-4"
313  '(charset-g0 ascii
314    charset-g1 latin-iso8859-4
315    charset-g2 t
316    charset-g3 t
317    mnemonic "MIME/Ltn-4"
318    ))
319
320 (defun setup-latin4-environment ()
321   "Set up multilingual environment (MULE) for European Latin-4 users."
322   (interactive)
323   (set-language-environment "Latin-4"))
324
325 (set-language-info-alist
326  "Latin-4" '((charset ascii latin-iso8859-4)
327              (coding-system iso-8859-4)
328              (coding-priority iso-8859-4)
329              (input-method . "latin-4-prefix")
330              (documentation . "\
331 These languages are supported with the Latin-4 (ISO-8859-4) character set:
332  Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
333  Latvian, Lithuanian, and Norwegian."))
334  '("European"))
335
336 \f
337 ;; Latin-5 (ISO-8859-9)
338
339 ;; (make-coding-system
340 ;;  'iso-latin-5 2 ?9
341 ;;  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
342 ;;  '(ascii latin-iso8859-9 nil nil
343 ;;    nil nil nil nil nil nil nil)
344 ;;  '((safe-charsets ascii latin-iso8859-9)
345 ;;    (mime-charset . iso-8859-9)))
346
347 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
348 ;; (define-coding-system-alias 'latin-5 'iso-latin-5)
349
350 (make-coding-system
351  'iso-8859-9 'iso2022 "MIME ISO-8859-9"
352  '(charset-g0 ascii
353    charset-g1 latin-iso8859-9
354    charset-g2 t
355    charset-g3 t
356    mnemonic "MIME/Ltn-5"
357    ))
358
359 (defun setup-latin5-environment ()
360   "Set up multilingual environment (MULE) for European Latin-5 users."
361   (interactive)
362   (set-language-environment "Latin-5"))
363
364 (set-language-info-alist
365  "Latin-5" '((charset ascii latin-iso8859-9)
366              (coding-system iso-8859-9)
367              (coding-priority iso-8859-9)
368              (input-method . "latin-5-prefix")
369              (documentation . "\
370 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
371  '("European"))
372
373 \f
374 (defun setup-german-environment ()
375   "Set up multilingual environment (MULE) for German users."
376   (interactive)
377   (set-language-environment "German"))
378
379 (set-language-info-alist
380  "German" '((tutorial . "TUTORIAL.de")
381             (charset ascii latin-iso8859-1)
382             (coding-system iso-8859-1)
383             (coding-priority iso-8859-1)
384             (input-method . "german-postfix")
385             (sample-text . "\
386 German (Deutsch Nord)   Guten Tag
387 German (Deutsch S\e,A|\e(Bd)      Gr\e,A|_\e(B Gott")
388             (documentation . "\
389 This language environment is almost the same as Latin-1,
390 but default input method is set to \"german-postfix\"."))
391  '("European"))
392
393 (defun setup-slovenian-environment ()
394   "Setup multilingual environment (MULE) for Slovenian."
395   (interactive)
396   (set-language-environment "Slovenian"))
397
398 (set-language-info-alist
399  "Slovenian" '((charset . (ascii latin-iso8859-2))
400                (coding-system . (iso-8859-2))
401                (coding-priority . (iso-8859-2))
402                (input-method . "latin-2-postfix")
403                (tutorial . "TUTORIAL.sl")
404                (sample-text . "\e,B.\e(Belimo vam uspe\e,B9\e(Ben dan!")
405                (documentation . t))
406  '("European"))
407
408 (provide 'slovenian)
409
410 ;;; european.el ends here