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

   1 ;;; uiso8859-15.el --- tables between UCS and ISO-8859-15   -*- coding: iso-2022-7bit  -*-
   2
   3 ;; Copyright (C) 2000 Free Software Foundation, Inc.
   4
   5 ;; Author: Dave Love <fx@gnu.org>
   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-15 'unicode-assoc 'iso-8859-15-vs-unicode-assoc)
  28
  29 (defvar
  30   iso-8859-15-vs-unicode-assoc
  31   `(assoc
  32     (char-1 . ucs-generic)
  33     ,(transformate-list-structure
  34       (identity . c-notated-string-to-number)
  35       ((?\\e,b \e(B . "0x00A0")                   ; NO-BREAK SPACE
  36        (?\e,b!\e(B . "0x00A1")                    ; INVERTED EXCLAMATION MARK
  37        (?\e,b"\e(B . "0x00A2")                    ; CENT SIGN
  38        (?\e,b#\e(B . "0x00A3")                    ; POUND SIGN
  39        (?\e,b$\e(B . "0x20AC")                    ; EURO SIGN
  40        (?\e,b%\e(B . "0x00A5")                    ; YEN SIGN
  41        (?\e,b&\e(B . "0x0160")                    ; LATIN CAPITAL LETTER S WITH CARON
  42        (?\e,b'\e(B . "0x00A7")                    ; SECTION SIGN
  43        (?\e,b(\e(B . "0x0161")                    ; LATIN SMALL LETTER S WITH CARON
  44        (?\e,b)\e(B . "0x00A9")                    ; COPYRIGHT SIGN
  45        (?\e,b*\e(B . "0x00AA")                    ; FEMININE ORDINAL INDICATOR
  46        (?\\e,b+\e(B . "0x00AB")                   ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
  47        (?\e,b,\e(B . "0x00AC")                    ; NOT SIGN
  48        (?\e,b-\e(B . "0x00AD")                    ; SOFT HYPHEN
  49        (?\e,b.\e(B . "0x00AE")                    ; REGISTERED SIGN
  50        (?\e,b/\e(B . "0x00AF")                    ; MACRON
  51        (?\e,b0\e(B . "0x00B0")                    ; DEGREE SIGN
  52        (?\e,b1\e(B . "0x00B1")                    ; PLUS-MINUS SIGN
  53        (?\e,b2\e(B . "0x00B2")                    ; SUPERSCRIPT TWO
  54        (?\e,b3\e(B . "0x00B3")                    ; SUPERSCRIPT THREE
  55        (?\e,b4\e(B . "0x017D")                    ; LATIN CAPITAL LETTER Z WITH CARON
  56        (?\e,b5\e(B . "0x00B5")                    ; MICRO SIGN
  57        (?\e,b6\e(B . "0x00B6")                    ; PILCROW SIGN
  58        (?\e,b7\e(B . "0x00B7")                    ; MIDDLE DOT
  59        (?\e,b8\e(B . "0x017E")                    ; LATIN SMALL LETTER Z WITH CARON
  60        (?\e,b9\e(B . "0x00B9")                    ; SUPERSCRIPT ONE
  61        (?\e,b:\e(B . "0x00BA")                    ; MASCULINE ORDINAL INDICATOR
  62        (?\\e,b;\e(B . "0x00BB")                   ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
  63        (?\e,b<\e(B . "0x0152")                    ; LATIN CAPITAL LIGATURE OE
  64        (?\e,b=\e(B . "0x0153")                    ; LATIN SMALL LIGATURE OE
  65        (?\e,b>\e(B . "0x0178")                    ; LATIN CAPITAL LETTER Y WITH DIAERESIS
  66        (?\e,b?\e(B . "0x00BF")                    ; INVERTED QUESTION MARK
  67        (?\e,b@\e(B . "0x00C0")                    ; LATIN CAPITAL LETTER A WITH GRAVE
  68        (?\e,bA\e(B . "0x00C1")                    ; LATIN CAPITAL LETTER A WITH ACUTE
  69        (?\e,bB\e(B . "0x00C2")                    ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
  70        (?\e,bC\e(B . "0x00C3")                    ; LATIN CAPITAL LETTER A WITH TILDE
  71        (?\e,bD\e(B . "0x00C4")                    ; LATIN CAPITAL LETTER A WITH DIAERESIS
  72        (?\e,bE\e(B . "0x00C5")                    ; LATIN CAPITAL LETTER A WITH RING ABOVE
  73        (?\e,bF\e(B . "0x00C6")                    ; LATIN CAPITAL LETTER AE
  74        (?\e,bG\e(B . "0x00C7")                    ; LATIN CAPITAL LETTER C WITH CEDILLA
  75        (?\e,bH\e(B . "0x00C8")                    ; LATIN CAPITAL LETTER E WITH GRAVE
  76        (?\e,bI\e(B . "0x00C9")                    ; LATIN CAPITAL LETTER E WITH ACUTE
  77        (?\e,bJ\e(B . "0x00CA")                    ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
  78        (?\e,bK\e(B . "0x00CB")                    ; LATIN CAPITAL LETTER E WITH DIAERESIS
  79        (?\e,bL\e(B . "0x00CC")                    ; LATIN CAPITAL LETTER I WITH GRAVE
  80        (?\e,bM\e(B . "0x00CD")                    ; LATIN CAPITAL LETTER I WITH ACUTE
  81        (?\e,bN\e(B . "0x00CE")                    ; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
  82        (?\e,bO\e(B . "0x00CF")                    ; LATIN CAPITAL LETTER I WITH DIAERESIS
  83        (?\e,bP\e(B . "0x00D0")                    ; LATIN CAPITAL LETTER ETH
  84        (?\e,bQ\e(B . "0x00D1")                    ; LATIN CAPITAL LETTER N WITH TILDE
  85        (?\e,bR\e(B . "0x00D2")                    ; LATIN CAPITAL LETTER O WITH GRAVE
  86        (?\e,bS\e(B . "0x00D3")                    ; LATIN CAPITAL LETTER O WITH ACUTE
  87        (?\e,bT\e(B . "0x00D4")                    ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
  88        (?\e,bU\e(B . "0x00D5")                    ; LATIN CAPITAL LETTER O WITH TILDE
  89        (?\e,bV\e(B . "0x00D6")                    ; LATIN CAPITAL LETTER O WITH DIAERESIS
  90        (?\e,bW\e(B . "0x00D7")                    ; MULTIPLICATION SIGN
  91        (?\e,bX\e(B . "0x00D8")                    ; LATIN CAPITAL LETTER O WITH STROKE
  92        (?\e,bY\e(B . "0x00D9")                    ; LATIN CAPITAL LETTER U WITH GRAVE
  93        (?\e,bZ\e(B . "0x00DA")                    ; LATIN CAPITAL LETTER U WITH ACUTE
  94        (?\e,b[\e(B . "0x00DB")                    ; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
  95        (?\e,b\\e(B . "0x00DC")                    ; LATIN CAPITAL LETTER U WITH DIAERESIS
  96        (?\e,b]\e(B . "0x00DD")                    ; LATIN CAPITAL LETTER Y WITH ACUTE
  97        (?\e,b^\e(B . "0x00DE")                    ; LATIN CAPITAL LETTER THORN
  98        (?\e,b_\e(B . "0x00DF")                    ; LATIN SMALL LETTER SHARP S
  99        (?\e,b`\e(B . "0x00E0")                    ; LATIN SMALL LETTER A WITH GRAVE
 100        (?\e,ba\e(B . "0x00E1")                    ; LATIN SMALL LETTER A WITH ACUTE
 101        (?\e,bb\e(B . "0x00E2")                    ; LATIN SMALL LETTER A WITH CIRCUMFLEX
 102        (?\e,bc\e(B . "0x00E3")                    ; LATIN SMALL LETTER A WITH TILDE
 103        (?\e,bd\e(B . "0x00E4")                    ; LATIN SMALL LETTER A WITH DIAERESIS
 104        (?\e,be\e(B . "0x00E5")                    ; LATIN SMALL LETTER A WITH RING ABOVE
 105        (?\e,bf\e(B . "0x00E6")                    ; LATIN SMALL LETTER AE
 106        (?\e,bg\e(B . "0x00E7")                    ; LATIN SMALL LETTER C WITH CEDILLA
 107        (?\e,bh\e(B . "0x00E8")                    ; LATIN SMALL LETTER E WITH GRAVE
 108        (?\e,bi\e(B . "0x00E9")                    ; LATIN SMALL LETTER E WITH ACUTE
 109        (?\e,bj\e(B . "0x00EA")                    ; LATIN SMALL LETTER E WITH CIRCUMFLEX
 110        (?\e,bk\e(B . "0x00EB")                    ; LATIN SMALL LETTER E WITH DIAERESIS
 111        (?\e,bl\e(B . "0x00EC")                    ; LATIN SMALL LETTER I WITH GRAVE
 112        (?\e,bm\e(B . "0x00ED")                    ; LATIN SMALL LETTER I WITH ACUTE
 113        (?\e,bn\e(B . "0x00EE")                    ; LATIN SMALL LETTER I WITH CIRCUMFLEX
 114        (?\e,bo\e(B . "0x00EF")                    ; LATIN SMALL LETTER I WITH DIAERESIS
 115        (?\e,bp\e(B . "0x00F0")                    ; LATIN SMALL LETTER ETH
 116        (?\e,bq\e(B . "0x00F1")                    ; LATIN SMALL LETTER N WITH TILDE
 117        (?\e,br\e(B . "0x00F2")                    ; LATIN SMALL LETTER O WITH GRAVE
 118        (?\e,bs\e(B . "0x00F3")                    ; LATIN SMALL LETTER O WITH ACUTE
 119        (?\e,bt\e(B . "0x00F4")                    ; LATIN SMALL LETTER O WITH CIRCUMFLEX
 120        (?\e,bu\e(B . "0x00F5")                    ; LATIN SMALL LETTER O WITH TILDE
 121        (?\e,bv\e(B . "0x00F6")                    ; LATIN SMALL LETTER O WITH DIAERESIS
 122        (?\e,bw\e(B . "0x00F7")                    ; DIVISION SIGN
 123        (?\e,bx\e(B . "0x00F8")                    ; LATIN SMALL LETTER O WITH STROKE
 124        (?\e,by\e(B . "0x00F9")                    ; LATIN SMALL LETTER U WITH GRAVE
 125        (?\e,bz\e(B . "0x00FA")                    ; LATIN SMALL LETTER U WITH ACUTE
 126        (?\e,b{\e(B . "0x00FB")                    ; LATIN SMALL LETTER U WITH CIRCUMFLEX
 127        (?\e,b|\e(B . "0x00FC")                    ; LATIN SMALL LETTER U WITH DIAERESIS
 128        (?\e,b}\e(B . "0x00FD")                    ; LATIN SMALL LETTER Y WITH ACUTE
 129        (?\e,b~\e(B . "0x00FE")                    ; LATIN SMALL LETTER THORN
 130        (?\e,b\7f\e(B . "0x00FF")                    ; LATIN SMALL LETTER Y WITH DIAERESIS
 131        ))))
 132
 133 (provide 'uiso8859-15)
 134
 135 ;;; uiso8859-15.el ends here