0.9.18.45
[sbcl.git] / src / code / external-formats / enc-jpn.lisp
1 (in-package "SB!IMPL")
2
3 ;;; EUC-JP
4 (declaim (inline ucs-to-eucjp eucjp-to-ucs
5                  mb-len-as-eucjp eucjp-continuation-byte-p))
6
7 (defun ucs-to-eucjp (code)
8   (declare (optimize speed (safety 0))
9            (type fixnum code))
10   (if (<= code #x7F) code
11       (get-multibyte-mapper *ucs-to-eucjp-table* code)))
12
13 (defun eucjp-to-ucs (code)
14   (declare (optimize speed (safety 0))
15            (type fixnum code))
16   (if (<= code #x7F) code
17       (get-multibyte-mapper *eucjp-to-ucs-table* code)))
18
19 (defun mb-len-as-eucjp (code)
20   (declare (optimize speed (safety 0))
21            (type (unsigned-byte 8) code))
22   (cond ((< code #x80) 1)
23         ((or (= code #x8E) (<= #xA1 code #xFE)) 2)
24         ((= code #x8F) 3)))
25
26 (defun eucjp-continuation-byte-p (code)
27   (declare (optimize speed (safety 0))
28            (type (unsigned-byte 8) code))
29   (<= #xA1 code #xFE))
30
31 (define-multibyte-encoding :euc-jp (:euc-jp :eucjp :|eucJP|)
32   ucs-to-eucjp eucjp-to-ucs mb-len-as-eucjp eucjp-continuation-byte-p)
33
34 ;;; Shift_JIS
35 (declaim (inline ucs-to-sjis sjis-to-ucs
36                  mb-len-as-sjis sjis-continuation-byte-p))
37
38 (defun ucs-to-sjis (code)
39   (declare (optimize speed (safety 0))
40            (type fixnum code))
41   (if (<= code #x7F) code
42       (get-multibyte-mapper *ucs-to-sjis-table* code)))
43
44 (defun sjis-to-ucs (code)
45   (declare (optimize speed (safety 0))
46            (type fixnum code))
47   (if (<= code #x7F) code
48       (get-multibyte-mapper *sjis-to-ucs-table* code)))
49
50 (defun mb-len-as-sjis (code)
51   (declare (optimize speed (safety 0))
52            (type (unsigned-byte 8) code))
53   (cond ((or (< code #x80) (<= #xA1 code #xDF)) 1)
54         ((or (<= #x81 code #x9F) (<= #xE0 code #xFC)) 2)))
55
56 (defun sjis-continuation-byte-p (code)
57   (declare (optimize speed (safety 0))
58            (type (unsigned-byte 8) code))
59   (or (<= #x40 code #x7E) (<= #x80 code #xFC)))
60
61 (define-multibyte-encoding :shift_jis (:shift_jis :sjis :|Shift_JIS| :cp932)
62   ucs-to-sjis sjis-to-ucs mb-len-as-sjis sjis-continuation-byte-p)