cgit.sxemacs.org Git - packages/blob - mule-packages/mule-ucs/lisp/reldata/uiso8859-16.el

   1 ;;; uiso8859-16.el --- tables between UCS and ISO-8859-16   -*- coding: iso-2022-7bit  -*-
   2
   3 ;; Copyright (C) 2005 Aidan Kehoe
   4
   5 ;; Author: Aidan Kehoe <kehoea@parhasard.net>
   6 ;; Keywords: i18n
   7
   8 ;; This file is a contribution to Mule-UCS.
   9
  10 ;; This program is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; Mule-UCS is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (put 'latin-iso8859-16 'unicode-assoc 'iso-8859-16-vs-unicode-assoc)
  28
  29 (defvar
  30   iso-8859-16-vs-unicode-assoc
  31   `(assoc
  32     (char-1 . ucs-generic)
  33     ,(transformate-list-structure
  34       (identity . c-notated-string-to-number)
  35       ((?\\e,f \e(B ."0x00A0")            ; NO-BREAK SPACE
  36        (?\e,f!\e(B ."0x0104")             ; LATIN CAPITAL LETTER A WITH OGONEK
  37        (?\e,f"\e(B ."0x0105")             ; LATIN SMALL LETTER A WITH OGONEK
  38        (?\e,f#\e(B ."0x0141")             ; LATIN CAPITAL LETTER L WITH STROKE
  39        (?\e,f$\e(B ."0x20AC")             ; EURO SIGN
  40        (?\e,f%\e(B ."0x201E")             ; DOUBLE LOW-9 QUOTATION MARK
  41        (?\e,f&\e(B ."0x0160")             ; LATIN CAPITAL LETTER S WITH CARON
  42        (?\e,f'\e(B ."0x00A7")             ; SECTION SIGN
  43        (?\e,f(\e(B ."0x0161")             ; LATIN SMALL LETTER S WITH CARON
  44        (?\e,f)\e(B ."0x00A9")             ; COPYRIGHT SIGN
  45        (?\e,f*\e(B ."0x0218")             ; LATIN CAPITAL LETTER S WITH COMMA BELOW
  46        (?\e,f+\e(B ."0x00AB")             ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
  47        (?\e,f,\e(B ."0x0179")             ; LATIN CAPITAL LETTER Z WITH ACUTE
  48        (?\e,f-\e(B ."0x00AD")             ; SOFT HYPHEN
  49        (?\e,f.\e(B ."0x017A")             ; LATIN SMALL LETTER Z WITH ACUTE
  50        (?\e,f/\e(B ."0x017B")             ; LATIN CAPITAL LETTER Z WITH DOT ABOVE
  51        (?\e,f0\e(B ."0x00B0")             ; DEGREE SIGN
  52        (?\e,f1\e(B ."0x00B1")             ; PLUS-MINUS SIGN
  53        (?\e,f2\e(B ."0x010C")             ; LATIN CAPITAL LETTER C WITH CARON
  54        (?\e,f3\e(B ."0x0142")             ; LATIN SMALL LETTER L WITH STROKE
  55        (?\e,f4\e(B ."0x017D")             ; LATIN CAPITAL LETTER Z WITH CARON
  56        (?\e,f5\e(B ."0x201D")             ; RIGHT DOUBLE QUOTATION MARK
  57        (?\e,f6\e(B ."0x00B6")             ; PILCROW SIGN
  58        (?\e,f7\e(B ."0x00B7")             ; MIDDLE DOT
  59        (?\e,f8\e(B ."0x017E")             ; LATIN SMALL LETTER Z WITH CARON
  60        (?\e,f9\e(B ."0x010D")             ; LATIN SMALL LETTER C WITH CARON
  61        (?\e,f:\e(B ."0x0219")             ; LATIN SMALL LETTER S WITH COMMA BELOW
  62        (?\e,f;\e(B ."0x00BB")             ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
  63        (?\e,f<\e(B ."0x0152")             ; LATIN CAPITAL LIGATURE OE
  64        (?\e,f=\e(B ."0x0153")             ; LATIN SMALL LIGATURE OE
  65        (?\e,f>\e(B ."0x0178")             ; LATIN CAPITAL LETTER Y WITH DIAERESIS
  66        (?\e,f?\e(B ."0x017C")             ; LATIN SMALL LETTER Z WITH DOT ABOVE
  67        (?\e,f@\e(B ."0x00C0")             ; LATIN CAPITAL LETTER A WITH GRAVE
  68        (?\e,fA\e(B ."0x00C1")             ; LATIN CAPITAL LETTER A WITH ACUTE
  69        (?\e,fB\e(B ."0x00C2")             ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
  70        (?\e,fC\e(B ."0x0102")             ; LATIN CAPITAL LETTER A WITH BREVE
  71        (?\e,fD\e(B ."0x00C4")             ; LATIN CAPITAL LETTER A WITH DIAERESIS
  72        (?\e,fE\e(B ."0x0106")             ; LATIN CAPITAL LETTER C WITH ACUTE
  73        (?\e,fF\e(B ."0x00C6")             ; LATIN CAPITAL LETTER AE
  74        (?\e,fG\e(B ."0x00C7")             ; LATIN CAPITAL LETTER C WITH CEDILLA
  75        (?\e,fH\e(B ."0x00C8")             ; LATIN CAPITAL LETTER E WITH GRAVE
  76        (?\e,fI\e(B ."0x00C9")             ; LATIN CAPITAL LETTER E WITH ACUTE
  77        (?\e,fJ\e(B ."0x00CA")             ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
  78        (?\e,fK\e(B ."0x00CB")             ; LATIN CAPITAL LETTER E WITH DIAERESIS
  79        (?\e,fL\e(B ."0x00CC")             ; LATIN CAPITAL LETTER I WITH GRAVE
  80        (?\e,fM\e(B ."0x00CD")             ; LATIN CAPITAL LETTER I WITH ACUTE
  81        (?\e,fN\e(B ."0x00CE")             ; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
  82        (?\e,fO\e(B ."0x00CF")             ; LATIN CAPITAL LETTER I WITH DIAERESIS
  83        (?\e,fP\e(B ."0x0110")             ; LATIN CAPITAL LETTER D WITH STROKE
  84        (?\e,fQ\e(B ."0x0143")             ; LATIN CAPITAL LETTER N WITH ACUTE
  85        (?\e,fR\e(B ."0x00D2")             ; LATIN CAPITAL LETTER O WITH GRAVE
  86        (?\e,fS\e(B ."0x00D3")             ; LATIN CAPITAL LETTER O WITH ACUTE
  87        (?\e,fT\e(B ."0x00D4")             ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
  88        (?\e,fU\e(B ."0x0150")             ; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
  89        (?\e,fV\e(B ."0x00D6")             ; LATIN CAPITAL LETTER O WITH DIAERESIS
  90        (?\e,fW\e(B ."0x015A")             ; LATIN CAPITAL LETTER S WITH ACUTE
  91        (?\e,fX\e(B ."0x0170")             ; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
  92        (?\e,fY\e(B ."0x00D9")             ; LATIN CAPITAL LETTER U WITH GRAVE
  93        (?\e,fZ\e(B ."0x00DA")             ; LATIN CAPITAL LETTER U WITH ACUTE
  94        (?\e,f[\e(B ."0x00DB")             ; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
  95        (?\e,f\\e(B ."0x00DC")             ; LATIN CAPITAL LETTER U WITH DIAERESIS
  96        (?\e,f]\e(B ."0x0118")             ; LATIN CAPITAL LETTER E WITH OGONEK
  97        (?\e,f^\e(B ."0x021A")             ; LATIN CAPITAL LETTER T WITH COMMA BELOW
  98        (?\e,f_\e(B ."0x00DF")             ; LATIN SMALL LETTER SHARP S
  99        (?\e,f`\e(B ."0x00E0")             ; LATIN SMALL LETTER A WITH GRAVE
 100        (?\e,fa\e(B ."0x00E1")             ; LATIN SMALL LETTER A WITH ACUTE
 101        (?\e,fb\e(B ."0x00E2")             ; LATIN SMALL LETTER A WITH CIRCUMFLEX
 102        (?\e,fc\e(B ."0x0103")             ; LATIN SMALL LETTER A WITH BREVE
 103        (?\e,fd\e(B ."0x00E4")             ; LATIN SMALL LETTER A WITH DIAERESIS
 104        (?\e,fe\e(B ."0x0107")             ; LATIN SMALL LETTER C WITH ACUTE
 105        (?\e,ff\e(B ."0x00E6")             ; LATIN SMALL LETTER AE
 106        (?\e,fg\e(B ."0x00E7")             ; LATIN SMALL LETTER C WITH CEDILLA
 107        (?\e,fh\e(B ."0x00E8")             ; LATIN SMALL LETTER E WITH GRAVE
 108        (?\e,fi\e(B ."0x00E9")             ; LATIN SMALL LETTER E WITH ACUTE
 109        (?\e,fj\e(B ."0x00EA")             ; LATIN SMALL LETTER E WITH CIRCUMFLEX
 110        (?\e,fk\e(B ."0x00EB")             ; LATIN SMALL LETTER E WITH DIAERESIS
 111        (?\e,fl\e(B ."0x00EC")             ; LATIN SMALL LETTER I WITH GRAVE
 112        (?\e,fm\e(B ."0x00ED")             ; LATIN SMALL LETTER I WITH ACUTE
 113        (?\e,fn\e(B ."0x00EE")             ; LATIN SMALL LETTER I WITH CIRCUMFLEX
 114        (?\e,fo\e(B ."0x00EF")             ; LATIN SMALL LETTER I WITH DIAERESIS
 115        (?\e,fp\e(B ."0x0111")             ; LATIN SMALL LETTER D WITH STROKE
 116        (?\e,fq\e(B ."0x0144")             ; LATIN SMALL LETTER N WITH ACUTE
 117        (?\e,fr\e(B ."0x00F2")             ; LATIN SMALL LETTER O WITH GRAVE
 118        (?\e,fs\e(B ."0x00F3")             ; LATIN SMALL LETTER O WITH ACUTE
 119        (?\e,ft\e(B ."0x00F4")             ; LATIN SMALL LETTER O WITH CIRCUMFLEX
 120        (?\e,fu\e(B ."0x0151")             ; LATIN SMALL LETTER O WITH DOUBLE ACUTE
 121        (?\e,fv\e(B ."0x00F6")             ; LATIN SMALL LETTER O WITH DIAERESIS
 122        (?\e,fw\e(B ."0x015B")             ; LATIN SMALL LETTER S WITH ACUTE
 123        (?\e,fx\e(B ."0x0171")             ; LATIN SMALL LETTER U WITH DOUBLE ACUTE
 124        (?\e,fy\e(B ."0x00F9")             ; LATIN SMALL LETTER U WITH GRAVE
 125        (?\e,fz\e(B ."0x00FA")             ; LATIN SMALL LETTER U WITH ACUTE
 126        (?\e,f{\e(B ."0x00FB")             ; LATIN SMALL LETTER U WITH CIRCUMFLEX
 127        (?\e,f|\e(B ."0x00FC")             ; LATIN SMALL LETTER U WITH DIAERESIS
 128        (?\e,f}\e(B ."0x0119")             ; LATIN SMALL LETTER E WITH OGONEK
 129        (?\e,f~\e(B ."0x021B")             ; LATIN SMALL LETTER T WITH COMMA BELOW
 130        (?\e,f\7f\e(B ."0x00FF")             ; LATIN SMALL LETTER Y WITH DIAERESIS
 131        ))))
 132
 133 (provide 'uiso8859-16)
 134
 135 ;;; uiso8859-16.el ends here