1;;; japanese.el --- support for Japanese -*- lexical-binding: t; -*- 2 3;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc. 4;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 5;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; Registration Number H14PRO021 8;; Copyright (C) 2003 9;; National Institute of Advanced Industrial Science and Technology (AIST) 10;; Registration Number H13PRO009 11 12;; Keywords: multilingual, Japanese 13 14;; This file is part of GNU Emacs. 15 16;; GNU Emacs is free software: you can redistribute it and/or modify 17;; it under the terms of the GNU General Public License as published by 18;; the Free Software Foundation, either version 3 of the License, or 19;; (at your option) any later version. 20 21;; GNU Emacs is distributed in the hope that it will be useful, 22;; but WITHOUT ANY WARRANTY; without even the implied warranty of 23;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 24;; GNU General Public License for more details. 25 26;; You should have received a copy of the GNU General Public License 27;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. 28 29;;; Commentary: 30 31;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are 32;; supported. 33 34;;; Code: 35 36;;; Load translation tables for CP932. 37(require 'cp51932) 38(require 'eucjp-ms) 39 40(define-coding-system 'iso-2022-jp 41 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)." 42 :coding-type 'iso-2022 43 :mnemonic ?J 44 :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208 45 latin-jisx0201) 46 nil nil nil] 47 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 48 :charset-list '(ascii japanese-jisx0208 49 japanese-jisx0208-1978 latin-jisx0201) 50 :mime-charset 'iso-2022-jp 51 :suitable-for-keyboard t) 52 53(define-coding-system-alias 'junet 'iso-2022-jp) 54 55(define-coding-system 'iso-2022-jp-2 56 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)." 57 :coding-type 'iso-2022 58 :mnemonic ?J 59 :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208 60 latin-jisx0201 japanese-jisx0212 61 chinese-gb2312 korean-ksc5601) 62 nil 63 (nil latin-iso8859-1 greek-iso8859-7) 64 nil] 65 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation single-shift 66 init-at-bol) 67 :charset-list '(ascii japanese-jisx0208 japanese-jisx0212 68 latin-jisx0201 japanese-jisx0208-1978 69 chinese-gb2312 korean-ksc5601 70 latin-iso8859-1 greek-iso8859-7) 71 :mime-charset 'iso-2022-jp-2 72 :suitable-for-keyboard t) 73 74(let ((map ; JIS vs CP932 75 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE 76 (#x2014 . #x2015) ; EM DASH HORIZONTAL BAR 77 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO 78 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS 79 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN 80 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN 81 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN 82 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE 83 ))) 84 (define-translation-table 'japanese-ucs-jis-to-cp932-map map) 85 (setq map (mapcar (lambda (x) (cons (cdr x) (car x))) map)) 86 (define-translation-table 'japanese-ucs-cp932-to-jis-map map)) 87 88;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR) 89(define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014))) 90(define-translation-table 'japanese-ucs-jis-to-glibc-map '((#x2014 . #x2015))) 91 92(define-coding-system 'japanese-shift-jis 93 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" 94 :coding-type 'shift-jis 95 :mnemonic ?S 96 :charset-list '(ascii katakana-jisx0201 japanese-jisx0208) 97 :mime-charset 'shift_jis) 98 99(define-coding-system-alias 'shift_jis 'japanese-shift-jis) 100(define-coding-system-alias 'sjis 'japanese-shift-jis) 101 102(define-coding-system 'japanese-cp932 103 "CP932 (Microsoft shift-jis)" 104 :coding-type 'charset 105 :mnemonic ?S 106 :charset-list '(ascii katakana-sjis cp932-2-byte)) 107 108(define-coding-system-alias 'cp932 'japanese-cp932) 109 110(define-coding-system 'japanese-iso-7bit-1978-irv 111 "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman." 112 :coding-type 'iso-2022 113 :mnemonic ?j 114 :designation [(latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208 115 japanese-jisx0212 katakana-jisx0201) 116 nil nil nil] 117 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation 118 use-roman use-oldjis) 119 :charset-list '(ascii latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208 120 japanese-jisx0212)) 121 122(define-coding-system-alias 'iso-2022-jp-1978-irv 'japanese-iso-7bit-1978-irv) 123(define-coding-system-alias 'old-jis 'japanese-iso-7bit-1978-irv) 124 125(define-coding-system 'japanese-iso-8bit 126 "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)." 127 :coding-type 'iso-2022 128 :mnemonic ?E 129 :designation [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212] 130 :flags '(short ascii-at-eol ascii-at-cntl single-shift) 131 :charset-list '(ascii latin-jisx0201 japanese-jisx0208 132 katakana-jisx0201 japanese-jisx0212 133 japanese-jisx0208-1978) 134 :mime-charset 'euc-jp) 135 136(define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit) 137(define-coding-system-alias 'euc-japan 'japanese-iso-8bit) 138(define-coding-system-alias 'euc-jp 'japanese-iso-8bit) 139 140(define-coding-system 'eucjp-ms 141 "eucJP-ms (like EUC-JP but with CP932 extension). 142eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>." 143 :coding-type 'iso-2022 144 :mnemonic ?E 145 :designation [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212] 146 :flags '(short ascii-at-eol ascii-at-cntl single-shift) 147 :charset-list '(ascii latin-jisx0201 japanese-jisx0208 148 katakana-jisx0201 japanese-jisx0212) 149 :decode-translation-table 'eucjp-ms-decode 150 :encode-translation-table 'eucjp-ms-encode) 151 152(define-coding-system 'iso-2022-jp-2004 153 "ISO 2022 based 7bit encoding for JIS X 0213:2004 (MIME:ISO-2022-JP-2004)." 154 :coding-type 'iso-2022 155 :mnemonic ?J 156 :designation [(ascii japanese-jisx0208 japanese-jisx0213.2004-1 157 japanese-jisx0213-1 japanese-jisx0213-2) 158 nil nil nil] 159 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 160 ;; init-at-bol) 161 :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1 162 japanese-jisx0213-1 japanese-jisx0213-2) 163 :mime-charset 'iso-2022-jp-2004 164 :suitable-for-keyboard t) 165 166(define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004) 167 168(define-coding-system 'euc-jis-2004 169 "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)." 170 :coding-type 'iso-2022 171 :mnemonic ?E 172 :designation [ascii japanese-jisx0213.2004-1 katakana-jisx0201 173 japanese-jisx0213-2] 174 :flags '(short ascii-at-eol ascii-at-cntl single-shift) 175 :charset-list '(ascii latin-jisx0201 japanese-jisx0213.2004-1 176 japanese-jisx0213-1 katakana-jisx0201 177 japanese-jisx0213-2) 178 :mime-charset 'euc-jis-2004) 179 180(define-coding-system-alias 'euc-jisx0213 'euc-jis-2004) 181 182(define-coding-system 'japanese-shift-jis-2004 183 "Shift_JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS-2004)" 184 :coding-type 'shift-jis 185 :mnemonic ?S 186 :charset-list '(ascii katakana-jisx0201 187 japanese-jisx0213.2004-1 japanese-jisx0213-2)) 188 189(define-coding-system-alias 'shift_jis-2004 'japanese-shift-jis-2004) 190 191(define-coding-system 'ibm281 192 "Japanese-E version of EBCDIC" 193 :coding-type 'charset 194 :charset-list '(ibm281) 195 :mnemonic ?*) 196(define-coding-system-alias 'ebcdic-jp-e 'ibm281) 197(define-coding-system-alias 'cp281 'ibm281) 198 199(define-coding-system 'ibm290 200 "Japanese katakana version of EBCDIC" 201 :coding-type 'charset 202 :charset-list '(ibm290) 203 :mnemonic ?*) 204(define-coding-system-alias 'ebcdic-jp-kana 'ibm290) 205(define-coding-system-alias 'cp290 'ibm290) 206 207(set-language-info-alist 208 "Japanese" '((setup-function . setup-japanese-environment-internal) 209 (exit-function . use-default-char-width-table) 210 (iso639-language . ja) 211 (tutorial . "TUTORIAL.ja") 212 (charset japanese-jisx0208 213 japanese-jisx0212 latin-jisx0201 katakana-jisx0201 214 japanese-jisx0213.2004-1 japanese-jisx0213-1 215 japanese-jisx0213-2 japanese-jisx0208-1978) 216 (coding-system iso-2022-jp japanese-iso-8bit 217 japanese-shift-jis japanese-iso-7bit-1978-irv 218 iso-2022-jp-2004 japanese-shift-jis-2004 219 euc-jis-2004) 220 (coding-priority iso-2022-jp japanese-iso-8bit 221 japanese-shift-jis 222 iso-2022-jp-2004 euc-jis-2004 223 japanese-shift-jis-2004 224 iso-2022-jp-2) 225 (input-method . "japanese") 226 (features japan-util) 227 (sample-text . "Japanese (日本語) こんにちは, コンニチハ") 228 (documentation . t))) 229 230(let ((map 231 ;; JISX0213-1 vs Unicode 232 '((#x2477 . [#x304B #x309A]) 233 (#x2478 . [#x304D #x309A]) 234 (#x2479 . [#x304F #x309A]) 235 (#x247a . [#x3051 #x309A]) 236 (#x247b . [#x3053 #x309A]) 237 (#x2577 . [#x30AB #x309A]) 238 (#x2578 . [#x30AD #x309A]) 239 (#x2579 . [#x30AF #x309A]) 240 (#x257a . [#x30B1 #x309A]) 241 (#x257b . [#x30B3 #x309A]) 242 (#x257c . [#x30BB #x309A]) 243 (#x257d . [#x30C4 #x309A]) 244 (#x257e . [#x30C8 #x309A]) 245 (#x2678 . [#x31F7 #x309A]) 246 (#x2b44 . [#x00E6 #x0300]) 247 (#x2b48 . [#x0254 #x0300]) 248 (#x2b49 . [#x0254 #x0301]) 249 (#x2b4a . [#x028C #x0300]) 250 (#x2b4b . [#x028C #x0301]) 251 (#x2b4c . [#x0259 #x0300]) 252 (#x2b4d . [#x0259 #x0301]) 253 (#x2b4e . [#x025A #x0300]) 254 (#x2b4f . [#x025A #x0301]) 255 (#x2b65 . [#x02E9 #x02E5]) 256 (#x2b66 . [#x02E5 #x02E9]))) 257 table) 258 (setq map 259 (mapcar (lambda (x) (cons (decode-char 'japanese-jisx0213-1 (car x)) 260 (cdr x))) 261 map)) 262 (setq table (make-translation-table-from-alist map)) 263 (define-translation-table 'jisx0213-to-unicode table) 264 (define-translation-table 'unicode-to-jisx0213 265 (char-table-extra-slot table 0))) 266 267(provide 'japanese) 268 269;;; japanese.el ends here 270