git.chise.org Git - chise/xemacs-chise.git.1/blob - 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