root/trunk/lisp/international/code-pages.el

;;; code-pages.el --- coding systems for assorted codepages  -*-coding: utf-8;-*-

;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;;   Free Software Foundation, Inc.
;; Copyright (C) 2004, 2005, 2006, 2007, 2008
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Definitions of miscellaneous 8-bit coding systems based on ASCII
;; (we can't cope properly with EBCDIC, for instance), mainly for PC
;; `code pages'.  They are decoded into Latin-1 and mule-unicode
;; charsets rather than (lossily) into single iso8859 charsets à la
;; codepage.el.  The utility `cp-make-coding-system' derives them from
;; simple tables.

;; Those covered are: cp437, cp737, cp720, cp775, cp850, cp851, cp852,
;; cp855, cp857, cp860, cp861, cp862, cp863, cp864, cp865, cp866,
;; cp869, cp874, cp1125, windows-1250, windows-1253, windows-1254,
;; windows-1255, windows-1256, windows-1257, windows-1258, next,
;; iso-8859-6, iso-8859-10, iso-8859-11, iso-8859-16, koi8-t,
;; georgian-ps.  This is meant to include all the single-byte ones
;; relevant to GNU (used in glibc-defined locales); we don't yet get
;; all the multibyte ones in base Emacs.

;; Note that various of these can clash with definitions in
;; codepage.el; we try to avoid damage from that.  A few CPs from
;; codepage.el (770, 773, 774) aren't covered (in the absence of
;; translation tables to Unicode).

;; Compile this, to avoid loading `ccl' at runtime.

;; Although the tables used here aren't very big, it might be worth
;; splitting the file and autoloading the coding systems if/when my
;; (or similar) autoloading code is installed.

;;; Code:

;; The defsubsts here are just so that language files can use
;; `cp-make-coding-system' and not require functions from this file
;; at runtime.

(defsubst cp-make-translation-table (v)
  "Return a translation table made from 128-long vector V.
V comprises characters encodable by mule-utf-8."
  (let ((encoding-vector (make-vector 256 0)))
    (dotimes (i 128)
      (aset encoding-vector i i))
    (dotimes (i 128)
      (aset encoding-vector (+ i 128) (aref v i)))
    ;; Add equivalent characters to the encoder so that we can unify
    ;; on encoding.
    (let* ((tab (make-translation-table-from-vector encoding-vector))
           ;; Translation table used for encoding:
           (encode-table (char-table-extra-slot tab 0)))
      (map-char-table (lambda (c v)
                        (if v
                            (let ((c1 (aref encode-table v)))
                              (if c1    ; we encode that unicode
                                  (aset encode-table c c1)))))
                      ucs-mule-to-mule-unicode)
      tab)))

(defsubst cp-valid-codes (v)
  "Derive a valid-codes list for translation vector V.
See `make-coding-system'."
  (let (pairs
        (i 128)                         ; index into v
        (start 0)                       ; start of a valid range
        (end 127))                      ; end of a valid range
    (while (< i 256)
      (if (aref v (- i 128))            ; start or extend range
          (progn
            (setq end i)
            (unless start (setq start i)))
        (if start
            (push (cons start end) pairs))
        (setq start nil))
      (setq i (1+ i)))
    (if start (push (cons start end) pairs))
    (nreverse pairs)))

;; Fix things that have been, or might be, done by codepage.el.
(eval-after-load "codepage"
  '(progn

;; Semi-dummy version for the stuff in codepage.el which we don't
;; define here.  (Used by mule-diag.)
(defun cp-supported-codepages ()
  "Return an alist of supported codepages.

Each association in the alist has the form (NNN . CHARSET), where NNN is the
codepage number, and CHARSET is the MULE charset which is the closest match
for the character set supported by that codepage.

A codepage NNN is supported if a variable called `cpNNN-decode-table' exists,
is a vector, and has a charset property."
  '(("774" . latin-iso8859-4) ("770" . latin-iso8859-4)
    ("773" . latin-iso8859-4)))

;; A version which doesn't override the coding systems set up by this
;; file.  It could still be used for the few missing ones from
;; codepage.el.
(defun codepage-setup (codepage)
  "Create a coding system cpCODEPAGE to support the IBM codepage CODEPAGE.

These coding systems are meant for encoding and decoding 8-bit non-ASCII
characters used by the IBM codepages, typically in conjunction with files
read/written by MS-DOS software, or for display on the MS-DOS terminal."
  (interactive
   (let ((completion-ignore-case t)
         (candidates (cp-supported-codepages)))
     (list (completing-read "Setup DOS Codepage (default 437): " candidates
                            nil t nil nil "437"))))
  (let ((cp (format "cp%s" codepage)))
    (unless (coding-system-p (intern cp))
      (cp-make-coding-systems-for-codepage
       cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))))
)                                       ; eval-after-load

;; Macro to allow ccl compilation at byte-compile time, avoiding
;; loading ccl.
;;;###autoload
(defmacro cp-make-coding-system (name v &optional doc-string mnemonic)
  "Make coding system NAME for and 8-bit, extended-ASCII character set.
V is a 128-long vector of characters to translate the upper half of
the character set.  DOC-STRING and MNEMONIC are used as the
corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
?* is used.
Return an updated `non-iso-charset-alist'."
  (let* ((encoder (intern (format "encode-%s" name)))
         (decoder (intern (format "decode-%s" name)))
         (ccl-decoder
          (ccl-compile
           `(4
             ((loop
               (read r1)
               (if (r1 < 128) ;; ASCII
                   (r0 = ,(charset-id 'ascii))
                 (if (r1 < 160)
                     (r0 = ,(charset-id 'eight-bit-control))
                   (r0 = ,(charset-id 'eight-bit-graphic))))
               (translate-character ,decoder r0 r1)
               ;; Allow fragmentation on decoding -- relevant for
               ;; Cyrillic, Greek and, possibly Arabic and Hebrew.
               (translate-character utf-translation-table-for-decode r0 r1)
               (write-multibyte-character r0 r1)
               (repeat))))))
         (ccl-encoder
          (ccl-compile
           `(1
             ((loop
               (read-multibyte-character r0 r1)
               (translate-character ,encoder r0 r1)
               (if (r0 != ,(charset-id 'ascii))
                   (if (r0 != ,(charset-id 'eight-bit-graphic))
                       (if (r0 != ,(charset-id 'eight-bit-control))
                           (r1 = ??))))
               (write-repeat r1)))))))
    `(let ((translation-table (cp-make-translation-table ,v))
           (codes (cp-valid-codes ,v)))
       (define-translation-table ',decoder translation-table)
       (define-translation-table ',encoder
         (char-table-extra-slot translation-table 0))
       (make-coding-system
        ',name 4 ,(or mnemonic ?*)
        (or ,doc-string (format "%s encoding" ',name))
        (cons ,ccl-decoder ,ccl-encoder)
        (list (cons 'safe-chars (get ',encoder 'translation-table))
              (cons 'valid-codes codes)
              (cons 'mime-charset ',name)
              ;; For Quail translation.  Fixme: this should really be
              ;; a separate table that only translates the coding
              ;; system's safe-chars.
              (cons 'translation-table-for-input 'ucs-mule-to-mule-unicode)))
       (let ((slot (assq ',name non-iso-charset-alist))
             (elt (list nil                     ; charset list
                        ',decoder
                        (let (l)                ; code range
                          (dolist (elt (reverse codes))
                            (push (cdr elt) l)
                            (push (car elt) l))
                          (list l)))))
         (if (not slot)
             (push (cons ',name elt) non-iso-charset-alist)
           (setcdr slot elt)
           non-iso-charset-alist)))))

(eval-when-compile (defvar non-iso-charset-alist))

;; These tables were mostly derived by running somthing like
;; `recode -f cpxxx/..utf-8' on a binary file filled by
;; `(dotimes (i 128) (insert ?? ?\\ (+ 128 i) ?\n))' and then
;; exchanging the ?\ￜ entries for nil.  iconv was used instead in some
;; cases.

;; Fixme: Do better for mode-line mnemonics?

;;;###autoload(autoload-coding-system 'cp437 '(require 'code-pages))
(cp-make-coding-system
 cp437
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\Ã 
  ?\Ã¥
  ?\ç
  ?\ê
  ?\ë
  ?\Ú
  ?\ï
  ?\î
  ?\ì
  ?\Ä
  ?\Ã

  ?\É
  ?\Ê
  ?\Æ
  ?\ÃŽ
  ?\ö
  ?\ò
  ?\û
  ?\ù
  ?\ÿ
  ?\Ö
  ?\Ü
  ?\¢
  ?\£
  ?\Â¥
  ?\₧
  ?\ƒ
  ?\á
  ?\í
  ?\ó
  ?\ú
  ?\ñ
  ?\Ñ
  ?\ª
  ?\º
  ?\¿
  ?\⌐
  ?\¬
  ?\œ
  ?\Œ
  ?\¡
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\╡
  ?\╢
  ?\╖
  ?\╕
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\╜
  ?\╛
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\╞
  ?\╟
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\╧
  ?\╹
  ?\â•€
  ?\╥
  ?\╙
  ?\╘
  ?\╒
  ?\╓
  ?\╫
  ?\╪
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\▌
  ?\▐
  ?\▀
  ?\α
  ?\ß
  ?\Γ
  ?\π
  ?\Σ
  ?\σ
  ?\µ
  ?\τ
  ?\Ί
  ?\Θ
  ?\Ω
  ?\ÎŽ
  ?\∞
  ?\φ
  ?\ε
  ?\∩
  ?\≡
  ?\±
  ?\≥
  ?\≀
  ?\⌠
  ?\⌡
  ?\÷
  ?\≈
  ?\°
  ?\·
  ?\•
  ?\√
  ?\ⁿ
  ?\²
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp737 '(require 'code-pages))
(cp-make-coding-system
 cp737
 [?\Α
  ?\Β
  ?\Γ
  ?\Δ
  ?\Ε
  ?\Ζ
  ?\Η
  ?\Θ
  ?\Ι
  ?\Κ
  ?\Λ
  ?\Μ
  ?\Ν
  ?\Ξ
  ?\Ο
  ?\Î 
  ?\Ρ
  ?\Σ
  ?\΀
  ?\Î¥
  ?\Ί
  ?\Χ
  ?\Κ
  ?\Ω
  ?\α
  ?\β
  ?\γ
  ?\ÎŽ
  ?\ε
  ?\ζ
  ?\η
  ?\Ξ
  ?\ι
  ?\κ
  ?\λ
  ?\Ό
  ?\Μ
  ?\Ο
  ?\ο
  ?\π
  ?\ρ
  ?\σ
  ?\ς
  ?\τ
  ?\Ï

  ?\φ
  ?\χ
  ?\ψ
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\╡
  ?\╢
  ?\╖
  ?\╕
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\╜
  ?\╛
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\╞
  ?\╟
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\╧
  ?\╹
  ?\â•€
  ?\╥
  ?\╙
  ?\╘
  ?\╒
  ?\╓
  ?\╫
  ?\╪
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\▌
  ?\▐
  ?\▀
  ?\ω
  ?\ά
  ?\έ
  ?\ή
  ?\ϊ
  ?\ί
  ?\ό
  ?\ύ
  ?\ϋ
  ?\ώ
  ?\Ά
  ?\Έ
  ?\Ή
  ?\Ί
  ?\Ό
  ?\Ύ
  ?\Ώ
  ?\±
  ?\≥
  ?\≀
  ?\Ϊ
  ?\Ϋ
  ?\÷
  ?\≈
  ?\°
  ?\∙
  ?\·
  ?\√
  ?\ⁿ
  ?\²
  ?\■
  ?\Â ])
(coding-system-put 'cp737 'mime-charset nil) ; not in IANA list

;;;###autoload(autoload-coding-system 'cp775 '(require 'code-pages))
(cp-make-coding-system
 cp775
 [?\Ć
  ?\Ì
  ?\é
  ?\ā
  ?\À
  ?\Ä£
  ?\Ã¥
  ?\ć
  ?\ł
  ?\ē
  ?\Ŗ
  ?\ŗ
  ?\Ä«
  ?\Ź
  ?\Ä
  ?\Ã

  ?\É
  ?\Ê
  ?\Æ
  ?\ō
  ?\ö
  ?\Ä¢
  ?\¢
  ?\Ś
  ?\ś
  ?\Ö
  ?\Ü
  ?\Þ
  ?\£
  ?\Ø
  ?\×
  ?\€
  ?\Ā
  ?\Ī
  ?\ó
  ?\Å»
  ?\Ō
  ?\ź
  ?\”
  ?\Š
  ?\©
  ?\®
  ?\¬
  ?\œ
  ?\Œ
  ?\Ł
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Ą
  ?\Č
  ?\Ę
  ?\Ė
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\Ä®
  ?\Å 
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\Ų
  ?\Ū
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\Ŝ
  ?\Ä

  ?\č
  ?\ę
  ?\ė
  ?\į
  ?\Å¡
  ?\ų
  ?\Å«
  ?\ÅŸ
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\▌
  ?\▐
  ?\▀
  ?\Ó
  ?\ß
  ?\Ō
  ?\Ń
  ?\õ
  ?\Õ
  ?\µ
  ?\ń
  ?\Ķ
  ?\Ä·
  ?\Ä»
  ?\Č
  ?\ņ
  ?\Ē
  ?\Å

  ?\’
  ?\­
  ?\±
  ?\“
  ?\Ÿ
  ?\¶
  ?\§
  ?\÷
  ?\„
  ?\°
  ?\∙
  ?\·
  ?\¹
  ?\³
  ?\²
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp850 '(require 'code-pages))
(cp-make-coding-system
 cp850
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\Ã 
  ?\Ã¥
  ?\ç
  ?\ê
  ?\ë
  ?\Ú
  ?\ï
  ?\î
  ?\ì
  ?\Ä
  ?\Ã

  ?\É
  ?\Ê
  ?\Æ
  ?\ÃŽ
  ?\ö
  ?\ò
  ?\û
  ?\ù
  ?\ÿ
  ?\Ö
  ?\Ü
  ?\Þ
  ?\£
  ?\Ø
  ?\×
  ?\ƒ
  ?\á
  ?\í
  ?\ó
  ?\ú
  ?\ñ
  ?\Ñ
  ?\ª
  ?\º
  ?\¿
  ?\®
  ?\¬
  ?\œ
  ?\Œ
  ?\¡
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Á
  ?\Â
  ?\À
  ?\©
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\¢
  ?\Â¥
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\ã
  ?\Ã
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\€
  ?\ð
  ?\Ð
  ?\Ê
  ?\Ë
  ?\È
  ?\ı
  ?\Í
  ?\Î
  ?\Ï
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\Š
  ?\Ì
  ?\▀
  ?\Ó
  ?\ß
  ?\Ô
  ?\Ò
  ?\õ
  ?\Õ
  ?\µ
  ?\ß
  ?\Þ
  ?\Ú
  ?\Û
  ?\Ù
  ?\Ü
  ?\Ý
  ?\¯
  ?\ÂŽ
  ?\­
  ?\±
  ?\‗
  ?\Ÿ
  ?\¶
  ?\§
  ?\÷
  ?\ž
  ?\°
  ?\š
  ?\·
  ?\¹
  ?\³
  ?\²
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp851 '(require 'code-pages))
(cp-make-coding-system
 cp851
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\Ã 
  ?\Ά
  ?\ç
  ?\ê
  ?\ë
  ?\Ú
  ?\ï
  ?\î
  ?\Έ
  ?\Ä
  ?\Ή
  ?\Ί
  nil
  ?\Ό
  ?\ÃŽ
  ?\ö
  ?\Ύ
  ?\û
  ?\ù
  ?\Ώ
  ?\Ö
  ?\Ü
  ?\ά
  ?\£
  ?\έ
  ?\ή
  ?\ί
  ?\ϊ
  ?\ΐ
  ?\ό
  ?\ύ
  ?\Α
  ?\Β
  ?\Γ
  ?\Δ
  ?\Ε
  ?\Ζ
  ?\Η
  ?\œ
  ?\Θ
  ?\Ι
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Κ
  ?\Λ
  ?\Ν
  ?\Μ
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\Ξ
  ?\Ο
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\Î 
  ?\Ρ
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\Σ
  ?\΀
  ?\Î¥
  ?\Ί
  ?\Χ
  ?\Κ
  ?\Ω
  ?\α
  ?\β
  ?\γ
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\ÎŽ
  ?\ε
  ?\▀
  ?\ζ
  ?\η
  ?\Ξ
  ?\ι
  ?\κ
  ?\λ
  ?\Ό
  ?\Μ
  ?\Ο
  ?\ο
  ?\π
  ?\ρ
  ?\σ
  ?\ς
  ?\τ
  ?\ÂŽ
  ?\­
  ?\±
  ?\Ï

  ?\φ
  ?\χ
  ?\§
  ?\ψ
  ?\˛
  ?\°
  ?\š
  ?\ω
  ?\ϋ
  ?\ΰ
  ?\ώ
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp852 '(require 'code-pages))
(cp-make-coding-system
 cp852
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\ů
  ?\ć
  ?\ç
  ?\ł
  ?\ë
  ?\Ő
  ?\ő
  ?\î
  ?\Ź
  ?\Ä
  ?\Ć
  ?\É
  ?\Ĺ
  ?\ĺ
  ?\ÃŽ
  ?\ö
  ?\Ĝ
  ?\ÄŸ
  ?\Ś
  ?\ś
  ?\Ö
  ?\Ü
  ?\Å€
  ?\Å¥
  ?\Ł
  ?\×
  ?\č
  ?\á
  ?\í
  ?\ó
  ?\ú
  ?\Ą
  ?\Ä

  ?\Ŝ
  ?\ÅŸ
  ?\Ę
  ?\ę
  ?\¬
  ?\ź
  ?\Č
  ?\ş
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Á
  ?\Â
  ?\Ě
  ?\Ş
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\Å»
  ?\Ō
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\Ă
  ?\ă
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\€
  ?\đ
  ?\Đ
  ?\Ď
  ?\Ë
  ?\ď
  ?\Ň
  ?\Í
  ?\Î
  ?\ě
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\Å¢
  ?\Å®
  ?\▀
  ?\Ó
  ?\ß
  ?\Ô
  ?\Ń
  ?\ń
  ?\ň
  ?\Å 
  ?\Å¡
  ?\Ŕ
  ?\Ú
  ?\ŕ
  ?\Å°
  ?\Ü
  ?\Ý
  ?\Å£
  ?\ÂŽ
  ?\­
  ?\˝
  ?\˛
  ?\ˇ
  ?\˘
  ?\§
  ?\÷
  ?\ž
  ?\°
  ?\š
  ?\˙
  ?\ű
  ?\Ř
  ?\ř
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp855 '(require 'code-pages))
(cp-make-coding-system
 cp855
 [?\ђ
  ?\Ђ
  ?\ѓ
  ?\Ѓ
  ?\ё
  ?\Ё
  ?\є
  ?\Є
  ?\ѕ
  ?\Ð

  ?\і
  ?\І
  ?\ї
  ?\Ї
  ?\ј
  ?\Ј
  ?\љ
  ?\Љ
  ?\њ
  ?\Њ
  ?\ћ
  ?\Ћ
  ?\ќ
  ?\Ќ
  ?\ў
  ?\Ў
  ?\џ
  ?\Џ
  ?\ю
  ?\Ю
  ?\ъ
  ?\Ъ
  ?\а
  ?\А
  ?\б
  ?\Б
  ?\ц
  ?\Њ
  ?\ÐŽ
  ?\Д
  ?\е
  ?\Е
  ?\ф
  ?\Ѐ
  ?\г
  ?\Г
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Ñ

  ?\Ð¥
  ?\О
  ?\И
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\й
  ?\Й
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\к
  ?\К
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\€
  ?\л
  ?\Л
  ?\Ќ
  ?\М
  ?\М
  ?\Н
  ?\П
  ?\О
  ?\п
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\П
  ?\я
  ?\▀
  ?\Я
  ?\р
  ?\Ð 
  ?\с
  ?\С
  ?\т
  ?\Т
  ?\у
  ?\У
  ?\ж
  ?\Ж
  ?\в
  ?\В
  ?\ь
  ?\Ь
  ?\ÂŽ
  ?\­
  ?\ы
  ?\Ы
  ?\з
  ?\З
  ?\ш
  ?\К
  ?\э
  ?\Э
  ?\щ
  ?\Щ
  ?\ч
  ?\Ч
  nil
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp857 '(require 'code-pages))
(cp-make-coding-system
 cp857
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\Ã 
  ?\Ã¥
  ?\ç
  ?\ê
  ?\ë
  ?\Ú
  ?\ï
  ?\î
  ?\ı
  ?\Ä
  ?\Ã

  ?\É
  ?\Ê
  ?\Æ
  ?\ÃŽ
  ?\ö
  ?\ò
  ?\û
  ?\ù
  ?\Ä°
  ?\Ö
  ?\Ü
  ?\Þ
  ?\£
  ?\Ø
  ?\Ş
  ?\ş
  ?\á
  ?\í
  ?\ó
  ?\ú
  ?\ñ
  ?\Ñ
  ?\Ğ
  ?\ğ
  ?\¿
  ?\®
  ?\¬
  ?\œ
  ?\Œ
  ?\¡
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Á
  ?\Â
  ?\À
  ?\©
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\¢
  ?\Â¥
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\ã
  ?\Ã
  ?\╚
  ?\╔
  ?\╩
  ?\╩
  ?\╠
  ?\═
  ?\╬
  ?\€
  ?\º
  ?\ª
  ?\Ê
  ?\Ë
  ?\È
  nil
  ?\Í
  ?\Î
  ?\Ï
  ?\┘
  ?\┌
  ?\█
  ?\▄
  ?\Š
  ?\Ì
  ?\▀
  ?\Ó
  ?\ß
  ?\Ô
  ?\Ò
  ?\õ
  ?\Õ
  ?\µ
  nil
  ?\×
  ?\Ú
  ?\Û
  ?\Ù
  ?\ì
  ?\ÿ
  ?\—
  ?\ÂŽ
  ?\­
  ?\±
  nil
  ?\Ÿ
  ?\¶
  ?\§
  ?\÷
  ?\˛
  ?\°
  ?\š
  ?\˙
  ?\¹
  ?\³
  ?\²
  ?\■
  ?\Â ])

;;;###autoload(autoload-coding-system 'cp858 '(require 'code-pages))
(cp-make-coding-system
 cp858
 [?\Ç
  ?\Ì
  ?\é
  ?\â
  ?\À
  ?\Ã 
  ?\Ã¥
  ?\ç
  ?\ê
  ?\ë
  ?\Ú
  ?\ï
  ?\î
  ?\ì
  ?\Ä
  ?\Ã

  ?\É
  ?\Ê
  ?\Æ
  ?\ÃŽ
  ?\ö
  ?\ò
  ?\û
  ?\ù
  ?\ÿ
  ?\Ö
  ?\Ü
  ?\Þ
  ?\£
  ?\Ø
  ?\×
  ?\ƒ
  ?\á
  ?\í
  ?\ó
  ?\ú
  ?\ñ
  ?\Ñ
  ?\ª
  ?\º
  ?\¿
  ?\®
  ?\¬
  ?\œ
  ?\Œ
  ?\¡
  ?\«
  ?\»
  ?\░
  ?\▒
  ?\▓
  ?\│
  ?\─
  ?\Á
  ?\Â
  ?\À
  ?\©
  ?\╣
  ?\║
  ?\╗
  ?\╝
  ?\¢
  ?\Â¥
  ?\┐
  ?\└
  ?\┮
  ?\┬
  ?\├
  ?\─
  ?\┌
  ?\ã
  ?\Ã
  ?\╚
  ?\�