1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
;; Copyright (C) 1998 Free Software Foundation, Inc.
;; Author: Eli Zaretskii
;; Maintainer: FSF
;; Keywords: i18n ms-dos ms-windows codepage obsolete
;; 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 2, 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., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Special coding systems for DOS/Windows codepage support.
;; Obsolete.
;;; Code:
;; I doubt we need compatibility versions of any of these autoloaded
;; functions apart from codepage-setup, which users may call.
;; ;;;###autoload
;; (defun cp-make-coding-systems-for-codepage (codepage iso-name offset)
;; "Create a coding system to convert IBM CODEPAGE into charset ISO-NAME
;; whose first character is at offset OFFSET from the beginning of 8-bit
;; ASCII table.
;; The created coding system has the usual 3 subsidiary systems: for Unix-,
;; DOS- and Mac-style EOL conversion. However, unlike built-in coding
;; systems, the Mac-style EOL conversion is currently not supported by the
;; decoder and encoder created by this function."
;; (let* ((decode-table (intern (format "%s-decode-table" codepage)))
;; (nonascii-table
;; (intern (format "%s-nonascii-translation-table" codepage)))
;; (decode-translation
;; (intern (format "%s-decode-translation-table" codepage)))
;; (encode-translation
;; (intern (format "%s-encode-translation-table" codepage))))
;; (set nonascii-table
;; (make-translation-table-from-vector
;; (cp-decoding-vector-for-codepage
;; (symbol-value decode-table) iso-name offset)))
;; (define-translation-table encode-translation
;; (char-table-extra-slot (symbol-value nonascii-table) 0))
;; ;; For charsets other than ascii, eight-bit-* and ISO-NAME, set
;; ;; `?' for one-column charsets, and some Japanese character for
;; ;; wide-column charsets. CCL encoder convert that Japanese
;; ;; character to either dos-unsupported-char-glyph or "??".
;; (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
;; (undef (if (eq system-type 'ms-dos)
;; (if dos-unsupported-char-glyph
;; (logand dos-unsupported-char-glyph 255)
;; 127)
;; ??))
;; (charsets (delq 'ascii
;; (delq 'eight-bit-control
;; (delq 'eight-bit-graphic
;; (delq iso-name
;; (copy-sequence charset-list))))))
;; (wide-column-char (make-char 'japanese-jisx0208 32 32)))
;; (while charsets
;; (aset tbl (make-char (car charsets))
;; (if (= (charset-width (car charsets)) 1) undef wide-column-char))
;; (setq charsets (cdr charsets))))
;; (define-translation-table decode-translation
;; (symbol-value nonascii-table))
;; (cp-coding-system-for-codepage-1
;; (intern codepage) ?D iso-name decode-translation encode-translation)
;; ))
;; ;;;###autoload
;; (defun cp-charset-for-codepage (codepage)
;; "Return the charset for which there is a translation table to DOS CODEPAGE.
;; CODEPAGE must be the name of a DOS codepage, a string."
;; (let ((cp-decoder (cp-codepage-decoder codepage)))
;; (if (null cp-decoder)
;; (error "Unsupported codepage %s" codepage)
;; (get cp-decoder 'charset))))
;; ;;;###autoload
;; (defun cp-language-for-codepage (codepage)
;; "Return the name of the MULE language environment for CODEPAGE.
;; CODEPAGE must be the name of a DOS codepage, a string."
;; (let ((cp-decoder (cp-codepage-decoder codepage)))
;; (if (null cp-decoder)
;; (error "Unsupported codepage %s" codepage)
;; (get cp-decoder 'language))))
;; ;;;###autoload
;; (defun cp-offset-for-codepage (codepage)
;; "Return the offset to be used in setting up coding systems for CODEPAGE.
;; CODEPAGE must be the name of a DOS codepage, a string."
;; (let ((cp-decoder (cp-codepage-decoder codepage)))
;; (if (null cp-decoder)
;; (error "Unsupported codepage %s" codepage)
;; (get cp-decoder 'offset))))
;; ;;;###autoload
;; (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."
;; (save-match-data
;; (let (alist chset sname)
;; (mapatoms
;; (function
;; (lambda (sym)
;; (if (and (boundp sym)
;; (string-match "\\`cp\\([1-9][0-9][0-9][0-9]?\\)-decode-table\\'"
;; (setq sname (symbol-name sym)))
;; (vectorp (symbol-value sym))
;; (setq chset (get sym 'charset)))
;; (setq alist
;; (cons (cons (match-string 1 sname) chset) alist))))))
;; alist)))
;;;###autoload
(defun codepage-setup (&optional codepage)
"Obsolete. All coding systems are set up initially."
(interactive))
(make-obsolete 'codepage-setup "no longer relevant" "22.1")
(provide 'codepage)
;;; arch-tag: 80328de8-b94e-4386-be26-5876105731f0
;;; codepage.el ends here
|
