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
146
147
148
149
150
151
152
153
154
155
156
|
;;; emms-i18n.el --- Function for handling coding system
;; Copyright 2006 Ye Wenbin
;;
;; Author: wenbinye@163.com
;; Keywords:
;; X-URL: not distributed yet
;; This program 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.
;;
;; This program 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 this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; When read from process, first check the CAR part of
;; `emms-default-coding-system', if non-nil, use this for decode, and
;; nerver detect coding system, if nil, first call
;; `emms-coding-dectect-functions' to get coding system, if success,
;; decode the result, otherwise, use `emms-detect-coding-function',
;; the emacs detect coding function, if the coding detected is not in
;; `emms-nerver-used-coding-system', decode it, otherwise use
;; locale-coding-system.
;;
;; When write send data to process, first check the CDR part of
;; `emms-default-coding-system', if non-nil, use this to encode data,
;; otherwise do nothing, that means use `default-process-coding-system' or
;; `process-coding-system-alist' to encode data.
;; Put this file into your load-path and the following into your ~/.emacs:
;; (require 'emms-i18n)
;;; Code:
(provide 'emms-i18n)
(eval-when-compile
(require 'cl))
(defun emms-iconv (from to str)
"Convert STR from FROM coding to TO coding."
(if (and from to)
(decode-coding-string
(encode-coding-string str to)
from)
str))
(defun emms-iconv-region (beg end from to)
(when (and from to)
(save-restriction
(narrow-to-region beg end)
(encode-coding-region (point-min) (point-max) to)
(decode-coding-region (point-min) (point-max) from))))
(defun emms-iconv-buffer (from to &optional buf)
(save-excursion
(and buf (set-buffer buf))
(emms-iconv-region (point-min) (point-max) from to)))
(defun emms-set-default-coding-system (read-coding write-coding)
"Set `emms-default-coding-system'"
(interactive "zSet coding system for read: \nzSet coding system for write: ")
(setq emms-default-coding-system
(cons
(and (coding-system-p read-coding) read-coding)
(and (coding-system-p write-coding) write-coding)))
(message (concat
(if (car emms-default-coding-system)
(format "The coding system for read is %S." (car emms-default-coding-system))
"Good, you want detect coding system by me!")
(format " The coding system for write is %S."
(or (cdr emms-default-coding-system)
(cdr default-process-coding-system))))))
(defun emms-call-process-to-string (program &rest args)
"This function run program and return the program result. If the CAR
part of `emms-default-coding-system' is non-nil, the program result will
be decode use the CAR part of emms-default-coding-system. Otherwise,
use `emms-coding-dectect-functions' to detect the coding system of the
result. If the emms-coding-dectect-functions failed, use
`emms-detect-coding-function' to detect coding system. If all the
coding system is nil or in `emms-nerver-used-coding-system', decode
the result using `emms-coding-system-for-read'.
The result arguments ARGS is a list of string which pass to `call-process'."
(with-temp-buffer
(let ((default-process-coding-system (copy-tree default-process-coding-system))
(process-coding-system-alist nil) exit)
(setcar default-process-coding-system (car emms-default-coding-system))
(setq exit (apply 'call-process (append (list program nil t nil) args)))
(when (and (zerop exit) (null (car emms-default-coding-system)))
(decode-coding-region (point-min) (point-max) (emms-detect-buffer-coding-system)))
(and (zerop exit) (buffer-string)))))
;; Is this function useful?
(defun emms-call-process (program &rest args)
"Run the program like `call-process'. If
the cdr part `emms-default-coding-system' is non-nil, the string in
ARGS will be encode by the CDR part of `emms-default-coding-system',
otherwise, it is pass all parameter to `call-process'."
(with-temp-buffer
(if (cdr emms-default-coding-system)
(let ((default-process-coding-system emms-default-coding-system)
(process-coding-system-alist nil))
(apply 'call-process (append (list program nil t nil) args)))
(apply 'call-process (append (list program nil t nil) args)))))
(defvar emms-nerver-used-coding-system
'(raw-text undecided)
"If the `emms-coding-dectect-functions' return coding system in
this list, use `emms-default-coding-system' instead.")
(defvar emms-coding-system-for-read 'utf-8
"If coding detect failed, use this for decode")
(defvar emms-default-coding-system nil
"If non-nil, used for decode and encode")
(defvar emms-coding-dectect-functions nil
"A list of function to call to detect codings")
(defvar emms-detect-max-size 10000
"Max bytes to detect coding system. Nil mean scan whole buffer.")
(defun emms-detect-coding-function (size)
(detect-coding-region (point)
(+ (if (null emms-detect-max-size)
size
(min size emms-detect-max-size))
(point)) t))
(defun emms-detect-buffer-coding-system (&optional buf)
"Before call this function, make sure the buffer is literal"
(let ((size (buffer-size))
(func (append emms-coding-dectect-functions 'emms-detect-coding-function))
coding)
(save-excursion
(and buf (set-buffer buf))
(goto-char (point-min))
(when (> size 0)
(setq coding (run-hook-with-args-until-success 'func size))
(if (member (coding-system-base coding) emms-nerver-used-coding-system)
(setq coding (emms-detect-coding-function size))))
(if (or (null coding) (member (coding-system-base coding) emms-nerver-used-coding-system))
emms-coding-system-for-read
coding))))
;;; emms-i18n.el ends here
|
