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

   1 ;;; -*- coding: iso-2022-7bit  -*-
   2 ;;; uiso8859-3.el --- tables between UCS and ISO-8859-3
   3
   4 ;; Keywords: CCL, mule, multilingual,
   5 ;;           character set, coding-system, ISO10646, Unicode, ISO8859
   6
   7 ;; This file is part of Mule-UCS
   8
   9 ;; Mule-UCS is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; Mule-UCS is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with this program; see the file COPYING.  If not, write to the
  21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;; Boston, MA 02111-1307, USA.
  23
  24 ;;; This file is converted from 8859-3.TXT of Unicode consortium
  25 ;;; by Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp>.
  26
  27 (put 'latin-iso8859-3 'unicode-assoc
  28      'iso-8859-3-vs-unicode-assoc)
  29
  30 (defvar
  31   iso-8859-3-vs-unicode-assoc
  32   `(assoc
  33     (char-1 . ucs-generic)
  34     ,(transformate-list-structure
  35       (identity . c-notated-string-to-number)
  36       ((?\e,C \e(B . "0x00A0") ;; NO-BREAK SPACE
  37        (?\e,C!\e(B . "0x0126") ;; LATIN CAPITAL LETTER H WITH STROKE
  38        (?\e,C"\e(B . "0x02D8") ;; BREVE
  39        (?\e,C#\e(B . "0x00A3") ;; POUND SIGN
  40        (?\e,C$\e(B . "0x00A4") ;; CURRENCY SIGN
  41        (?\e,C&\e(B . "0x0124") ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX
  42        (?\e,C'\e(B . "0x00A7") ;; SECTION SIGN
  43        (?\e,C(\e(B . "0x00A8") ;; DIAERESIS
  44        (?\e,C)\e(B . "0x0130") ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
  45        (?\e,C*\e(B . "0x015E") ;; LATIN CAPITAL LETTER S WITH CEDILLA
  46        (?\e,C+\e(B . "0x011E") ;; LATIN CAPITAL LETTER G WITH BREVE
  47        (?\e,C,\e(B . "0x0134") ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX
  48        (?\e,C-\e(B . "0x00AD") ;; SOFT HYPHEN
  49        (?\e,C/\e(B . "0x017B") ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
  50        (?\e,C0\e(B . "0x00B0") ;; DEGREE SIGN
  51        (?\e,C1\e(B . "0x0127") ;; LATIN SMALL LETTER H WITH STROKE
  52        (?\e,C2\e(B . "0x00B2") ;; SUPERSCRIPT TWO
  53        (?\e,C3\e(B . "0x00B3") ;; SUPERSCRIPT THREE
  54        (?\e,C4\e(B . "0x00B4") ;; ACUTE ACCENT
  55        (?\e,C5\e(B . "0x00B5") ;; MICRO SIGN
  56        (?\e,C6\e(B . "0x0125") ;; LATIN SMALL LETTER H WITH CIRCUMFLEX
  57        (?\e,C7\e(B . "0x00B7") ;; MIDDLE DOT
  58        (?\e,C8\e(B . "0x00B8") ;; CEDILLA
  59        (?\e,C9\e(B . "0x0131") ;; LATIN SMALL LETTER DOTLESS I
  60        (?\e,C:\e(B . "0x015F") ;; LATIN SMALL LETTER S WITH CEDILLA
  61        (?\e,C;\e(B . "0x011F") ;; LATIN SMALL LETTER G WITH BREVE
  62        (?\e,C<\e(B . "0x0135") ;; LATIN SMALL LETTER J WITH CIRCUMFLEX
  63        (?\e,C=\e(B . "0x00BD") ;; VULGAR FRACTION ONE HALF
  64        (?\e,C?\e(B . "0x017C") ;; LATIN SMALL LETTER Z WITH DOT ABOVE
  65        (?\e,C@\e(B . "0x00C0") ;; LATIN CAPITAL LETTER A WITH GRAVE
  66        (?\e,CA\e(B . "0x00C1") ;; LATIN CAPITAL LETTER A WITH ACUTE
  67        (?\e,CB\e(B . "0x00C2") ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
  68        (?\e,CD\e(B . "0x00C4") ;; LATIN CAPITAL LETTER A WITH DIAERESIS
  69        (?\e,CE\e(B . "0x010A") ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
  70        (?\e,CF\e(B . "0x0108") ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX
  71        (?\e,CG\e(B . "0x00C7") ;; LATIN CAPITAL LETTER C WITH CEDILLA
  72        (?\e,CH\e(B . "0x00C8") ;; LATIN CAPITAL LETTER E WITH GRAVE
  73        (?\e,CI\e(B . "0x00C9") ;; LATIN CAPITAL LETTER E WITH ACUTE
  74        (?\e,CJ\e(B . "0x00CA") ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
  75        (?\e,CK\e(B . "0x00CB") ;; LATIN CAPITAL LETTER E WITH DIAERESIS
  76        (?\e,CL\e(B . "0x00CC") ;; LATIN CAPITAL LETTER I WITH GRAVE
  77        (?\e,CM\e(B . "0x00CD") ;; LATIN CAPITAL LETTER I WITH ACUTE
  78        (?\e,CN\e(B . "0x00CE") ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
  79        (?\e,CO\e(B . "0x00CF") ;; LATIN CAPITAL LETTER I WITH DIAERESIS
  80        (?\e,CQ\e(B . "0x00D1") ;; LATIN CAPITAL LETTER N WITH TILDE
  81        (?\e,CR\e(B . "0x00D2") ;; LATIN CAPITAL LETTER O WITH GRAVE
  82        (?\e,CS\e(B . "0x00D3") ;; LATIN CAPITAL LETTER O WITH ACUTE
  83        (?\e,CT\e(B . "0x00D4") ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
  84        (?\e,CU\e(B . "0x0120") ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
  85        (?\e,CV\e(B . "0x00D6") ;; LATIN CAPITAL LETTER O WITH DIAERESIS
  86        (?\e,CW\e(B . "0x00D7") ;; MULTIPLICATION SIGN
  87        (?\e,CX\e(B . "0x011C") ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX
  88        (?\e,CY\e(B . "0x00D9") ;; LATIN CAPITAL LETTER U WITH GRAVE
  89        (?\e,CZ\e(B . "0x00DA") ;; LATIN CAPITAL LETTER U WITH ACUTE
  90        (?\e,C[\e(B . "0x00DB") ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
  91        (?\e,C\\e(B . "0x00DC") ;; LATIN CAPITAL LETTER U WITH DIAERESIS
  92        (?\e,C]\e(B . "0x016C") ;; LATIN CAPITAL LETTER U WITH BREVE
  93        (?\e,C^\e(B . "0x015C") ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX
  94        (?\e,C_\e(B . "0x00DF") ;; LATIN SMALL LETTER SHARP S
  95        (?\e,C`\e(B . "0x00E0") ;; LATIN SMALL LETTER A WITH GRAVE
  96        (?\e,Ca\e(B . "0x00E1") ;; LATIN SMALL LETTER A WITH ACUTE
  97        (?\e,Cb\e(B . "0x00E2") ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
  98        (?\e,Cd\e(B . "0x00E4") ;; LATIN SMALL LETTER A WITH DIAERESIS
  99        (?\e,Ce\e(B . "0x010B") ;; LATIN SMALL LETTER C WITH DOT ABOVE
 100        (?\e,Cf\e(B . "0x0109") ;; LATIN SMALL LETTER C WITH CIRCUMFLEX
 101        (?\e,Cg\e(B . "0x00E7") ;; LATIN SMALL LETTER C WITH CEDILLA
 102        (?\e,Ch\e(B . "0x00E8") ;; LATIN SMALL LETTER E WITH GRAVE
 103        (?\e,Ci\e(B . "0x00E9") ;; LATIN SMALL LETTER E WITH ACUTE
 104        (?\e,Cj\e(B . "0x00EA") ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
 105        (?\e,Ck\e(B . "0x00EB") ;; LATIN SMALL LETTER E WITH DIAERESIS
 106        (?\e,Cl\e(B . "0x00EC") ;; LATIN SMALL LETTER I WITH GRAVE
 107        (?\e,Cm\e(B . "0x00ED") ;; LATIN SMALL LETTER I WITH ACUTE
 108        (?\e,Cn\e(B . "0x00EE") ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
 109        (?\e,Co\e(B . "0x00EF") ;; LATIN SMALL LETTER I WITH DIAERESIS
 110        (?\e,Cq\e(B . "0x00F1") ;; LATIN SMALL LETTER N WITH TILDE
 111        (?\e,Cr\e(B . "0x00F2") ;; LATIN SMALL LETTER O WITH GRAVE
 112        (?\e,Cs\e(B . "0x00F3") ;; LATIN SMALL LETTER O WITH ACUTE
 113        (?\e,Ct\e(B . "0x00F4") ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
 114        (?\e,Cu\e(B . "0x0121") ;; LATIN SMALL LETTER G WITH DOT ABOVE
 115        (?\e,Cv\e(B . "0x00F6") ;; LATIN SMALL LETTER O WITH DIAERESIS
 116        (?\e,Cw\e(B . "0x00F7") ;; DIVISION SIGN
 117        (?\e,Cx\e(B . "0x011D") ;; LATIN SMALL LETTER G WITH CIRCUMFLEX
 118        (?\e,Cy\e(B . "0x00F9") ;; LATIN SMALL LETTER U WITH GRAVE
 119        (?\e,Cz\e(B . "0x00FA") ;; LATIN SMALL LETTER U WITH ACUTE
 120        (?\e,C{\e(B . "0x00FB") ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
 121        (?\e,C|\e(B . "0x00FC") ;; LATIN SMALL LETTER U WITH DIAERESIS
 122        (?\e,C}\e(B . "0x016D") ;; LATIN SMALL LETTER U WITH BREVE
 123        (?\e,C~\e(B . "0x015D") ;; LATIN SMALL LETTER S WITH CIRCUMFLEX
 124        (?\e,C\7f\e(B . "0x02D9") ;; DOT ABOVE
 125        ))))
 126
 127 (provide 'uiso8859-3)