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

   1 ;;; uiso8859-14.el --- tables between UCS and ISO-8859-14   -*- 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-14 'unicode-assoc 'iso-8859-14-vs-unicode-assoc)
  28
  29 (defvar
  30   iso-8859-14-vs-unicode-assoc
  31   `(assoc
  32     (char-1 . ucs-generic)
  33     ,(transformate-list-structure
  34       (identity . c-notated-string-to-number)
  35       ((?\\e,_ \e(B . "0x00A0")                   ; NO-BREAK SPACE
  36        (?\e,_!\e(B . "0x1E02")                    ; LATIN CAPITAL LETTER B WITH DOT ABOVE
  37        (?\e,_"\e(B . "0x1E03")                    ; LATIN SMALL LETTER B WITH DOT ABOVE
  38        (?\e,_#\e(B . "0x00A3")                    ; POUND SIGN
  39        (?\e,_$\e(B . "0x010A")                    ; LATIN CAPITAL LETTER C WITH DOT ABOVE
  40        (?\e,_%\e(B . "0x010B")                    ; LATIN SMALL LETTER C WITH DOT ABOVE
  41        (?\e,_&\e(B . "0x1E0A")                    ; LATIN CAPITAL LETTER D WITH DOT ABOVE
  42        (?\e,_'\e(B . "0x00A7")                    ; SECTION SIGN
  43        (?\e,_(\e(B . "0x1E80")                    ; LATIN CAPITAL LETTER W WITH GRAVE
  44        (?\e,_)\e(B . "0x00A9")                    ; COPYRIGHT SIGN
  45        (?\e,_*\e(B . "0x1E82")                    ; LATIN CAPITAL LETTER W WITH ACUTE
  46        (?\e,_+\e(B . "0x1E0B")                    ; LATIN SMALL LETTER D WITH DOT ABOVE
  47        (?\e,_,\e(B . "0x1EF2")                    ; LATIN CAPITAL LETTER Y WITH GRAVE
  48        (?\e,_-\e(B . "0x00AD")                    ; SOFT HYPHEN
  49        (?\e,_.\e(B . "0x00AE")                    ; REGISTERED SIGN
  50        (?\e,_/\e(B . "0x0178")                    ; LATIN CAPITAL LETTER Y WITH DIAERESIS
  51        (?\e,_0\e(B . "0x1E1E")                    ; LATIN CAPITAL LETTER F WITH DOT ABOVE
  52        (?\e,_1\e(B . "0x1E1F")                    ; LATIN SMALL LETTER F WITH DOT ABOVE
  53        (?\e,_2\e(B . "0x0120")                    ; LATIN CAPITAL LETTER G WITH DOT ABOVE
  54        (?\e,_3\e(B . "0x0121")                    ; LATIN SMALL LETTER G WITH DOT ABOVE
  55        (?\e,_4\e(B . "0x1E40")                    ; LATIN CAPITAL LETTER M WITH DOT ABOVE
  56        (?\e,_5\e(B . "0x1E41")                    ; LATIN SMALL LETTER M WITH DOT ABOVE
  57        (?\e,_6\e(B . "0x00B6")                    ; PILCROW SIGN
  58        (?\e,_7\e(B . "0x1E56")                    ; LATIN CAPITAL LETTER P WITH DOT ABOVE
  59        (?\e,_8\e(B . "0x1E81")                    ; LATIN SMALL LETTER W WITH GRAVE
  60        (?\e,_9\e(B . "0x1E57")                    ; LATIN SMALL LETTER P WITH DOT ABOVE
  61        (?\e,_:\e(B . "0x1E83")                    ; LATIN SMALL LETTER W WITH ACUTE
  62        (?\e,_;\e(B . "0x1E60")                    ; LATIN CAPITAL LETTER S WITH DOT ABOVE
  63        (?\e,_<\e(B . "0x1EF3")                    ; LATIN SMALL LETTER Y WITH GRAVE
  64        (?\e,_=\e(B . "0x1E84")                    ; LATIN CAPITAL LETTER W WITH DIAERESIS
  65        (?\e,_>\e(B . "0x1E85")                    ; LATIN SMALL LETTER W WITH DIAERESIS
  66        (?\e,_?\e(B . "0x1E61")                    ; LATIN SMALL LETTER S WITH DOT ABOVE
  67        (?\e,_@\e(B . "0x00C0")                    ; LATIN CAPITAL LETTER A WITH GRAVE
  68        (?\e,_A\e(B . "0x00C1")                    ; LATIN CAPITAL LETTER A WITH ACUTE
  69        (?\e,_B\e(B . "0x00C2")                    ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
  70        (?\e,_C\e(B . "0x00C3")                    ; LATIN CAPITAL LETTER A WITH TILDE
  71        (?\e,_D\e(B . "0x00C4")                    ; LATIN CAPITAL LETTER A WITH DIAERESIS
  72        (?\e,_E\e(B . "0x00C5")                    ; LATIN CAPITAL LETTER A WITH RING ABOVE
  73        (?\e,_F\e(B . "0x00C6")                    ; LATIN CAPITAL LETTER AE
  74        (?\e,_G\e(B . "0x00C7")                    ; LATIN CAPITAL LETTER C WITH CEDILLA
  75        (?\e,_H\e(B . "0x00C8")                    ; LATIN CAPITAL LETTER E WITH GRAVE
  76        (?\e,_I\e(B . "0x00C9")                    ; LATIN CAPITAL LETTER E WITH ACUTE
  77        (?\e,_J\e(B . "0x00CA")                    ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
  78        (?\e,_K\e(B . "0x00CB")                    ; LATIN CAPITAL LETTER E WITH DIAERESIS
  79        (?\e,_L\e(B . "0x00CC")                    ; LATIN CAPITAL LETTER I WITH GRAVE
  80        (?\e,_M\e(B . "0x00CD")                    ; LATIN CAPITAL LETTER I WITH ACUTE
  81        (?\e,_N\e(B . "0x00CE")                    ; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
  82        (?\e,_O\e(B . "0x00CF")                    ; LATIN CAPITAL LETTER I WITH DIAERESIS
  83        (?\e,_P\e(B . "0x0174")                    ; LATIN CAPITAL LETTER W WITH CIRCUMFLEX
  84        (?\e,_Q\e(B . "0x00D1")                    ; LATIN CAPITAL LETTER N WITH TILDE
  85        (?\e,_R\e(B . "0x00D2")                    ; LATIN CAPITAL LETTER O WITH GRAVE
  86        (?\e,_S\e(B . "0x00D3")                    ; LATIN CAPITAL LETTER O WITH ACUTE
  87        (?\e,_T\e(B . "0x00D4")                    ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
  88        (?\e,_U\e(B . "0x00D5")                    ; LATIN CAPITAL LETTER O WITH TILDE
  89        (?\e,_V\e(B . "0x00D6")                    ; LATIN CAPITAL LETTER O WITH DIAERESIS
  90        (?\e,_W\e(B . "0x1E6A")                    ; LATIN CAPITAL LETTER T WITH DOT ABOVE
  91        (?\e,_X\e(B . "0x00D8")                    ; LATIN CAPITAL LETTER O WITH STROKE
  92        (?\e,_Y\e(B . "0x00D9")                    ; LATIN CAPITAL LETTER U WITH GRAVE
  93        (?\e,_Z\e(B . "0x00DA")                    ; LATIN CAPITAL LETTER U WITH ACUTE
  94        (?\e,_[\e(B . "0x00DB")                    ; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
  95        (?\e,_\\e(B . "0x00DC")                    ; LATIN CAPITAL LETTER U WITH DIAERESIS
  96        (?\e,_]\e(B . "0x00DD")                    ; LATIN CAPITAL LETTER Y WITH ACUTE
  97        (?\e,_^\e(B . "0x0176")                    ; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
  98        (?\e,__\e(B . "0x00DF")                    ; LATIN SMALL LETTER SHARP S
  99        (?\e,_`\e(B . "0x00E0")                    ; LATIN SMALL LETTER A WITH GRAVE
 100        (?\e,_a\e(B . "0x00E1")                    ; LATIN SMALL LETTER A WITH ACUTE
 101        (?\e,_b\e(B . "0x00E2")                    ; LATIN SMALL LETTER A WITH CIRCUMFLEX
 102        (?\e,_c\e(B . "0x00E3")                    ; LATIN SMALL LETTER A WITH TILDE
 103        (?\e,_d\e(B . "0x00E4")                    ; LATIN SMALL LETTER A WITH DIAERESIS
 104        (?\e,_e\e(B . "0x00E5")                    ; LATIN SMALL LETTER A WITH RING ABOVE
 105        (?\e,_f\e(B . "0x00E6")                    ; LATIN SMALL LETTER AE
 106        (?\e,_g\e(B . "0x00E7")                    ; LATIN SMALL LETTER C WITH CEDILLA
 107        (?\e,_h\e(B . "0x00E8")                    ; LATIN SMALL LETTER E WITH GRAVE
 108        (?\e,_i\e(B . "0x00E9")                    ; LATIN SMALL LETTER E WITH ACUTE
 109        (?\e,_j\e(B . "0x00EA")                    ; LATIN SMALL LETTER E WITH CIRCUMFLEX
 110        (?\e,_k\e(B . "0x00EB")                    ; LATIN SMALL LETTER E WITH DIAERESIS
 111        (?\e,_l\e(B . "0x00EC")                    ; LATIN SMALL LETTER I WITH GRAVE
 112        (?\e,_m\e(B . "0x00ED")                    ; LATIN SMALL LETTER I WITH ACUTE
 113        (?\e,_n\e(B . "0x00EE")                    ; LATIN SMALL LETTER I WITH CIRCUMFLEX
 114        (?\e,_o\e(B . "0x00EF")                    ; LATIN SMALL LETTER I WITH DIAERESIS
 115        (?\e,_p\e(B . "0x0175")                    ; LATIN SMALL LETTER W WITH CIRCUMFLEX
 116        (?\e,_q\e(B . "0x00F1")                    ; LATIN SMALL LETTER N WITH TILDE
 117        (?\e,_r\e(B . "0x00F2")                    ; LATIN SMALL LETTER O WITH GRAVE
 118        (?\e,_s\e(B . "0x00F3")                    ; LATIN SMALL LETTER O WITH ACUTE
 119        (?\e,_t\e(B . "0x00F4")                    ; LATIN SMALL LETTER O WITH CIRCUMFLEX
 120        (?\e,_u\e(B . "0x00F5")                    ; LATIN SMALL LETTER O WITH TILDE
 121        (?\e,_v\e(B . "0x00F6")                    ; LATIN SMALL LETTER O WITH DIAERESIS
 122        (?\e,_w\e(B . "0x1E6B")                    ; LATIN SMALL LETTER T WITH DOT ABOVE
 123        (?\e,_x\e(B . "0x00F8")                    ; LATIN SMALL LETTER O WITH STROKE
 124        (?\e,_y\e(B . "0x00F9")                    ; LATIN SMALL LETTER U WITH GRAVE
 125        (?\e,_z\e(B . "0x00FA")                    ; LATIN SMALL LETTER U WITH ACUTE
 126        (?\e,_{\e(B . "0x00FB")                    ; LATIN SMALL LETTER U WITH CIRCUMFLEX
 127        (?\e,_|\e(B . "0x00FC")                    ; LATIN SMALL LETTER U WITH DIAERESIS
 128        (?\e,_}\e(B . "0x00FD")                    ; LATIN SMALL LETTER Y WITH ACUTE
 129        (?\e,_~\e(B . "0x0177")                    ; LATIN SMALL LETTER Y WITH CIRCUMFLEX
 130        (?\e,_\7f\e(B . "0x00FF")                    ; LATIN SMALL LETTER Y WITH DIAERESIS
 131        ))))
 132
 133 (provide 'uiso8859-14)
 134
 135 ;;; uiso8859-14.el ends here