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
|
;;; tc-jiscode.el --- input with JIS code table
;; Copyright (C) 1989--2001 Kaoru Maeda, Yasushi Saito and KITAJIMA Akira.
;; Author: Kaoru Maeda <maeda@src.ricoh.co.jp>
;; Yasushi Saito <yasushi@cs.washington.edu>
;; KITAJIMA Akira <kitajima@isc.osakac.ac.jp>
;; Maintainer: KITAJIMA Akira
;; Keyword: input method
;; $Id: tc-jiscode.el,v 1.4 2002/03/19 07:21:10 kitajima Exp $
;; 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 of the License, 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
;;; Code:
(require 'tc)
(defvar tcode-jiscode-buffer " *tcode: JIS code*")
(defvar tcode-jiscode-window-configuration nil)
(defvar tcode-jiscode-marker nil)
(defvar tcode-jiscode-map nil)
(unless tcode-jiscode-map
(setq tcode-jiscode-map (make-sparse-keymap))
(mapcar
(lambda (elm)
(let ((cmd (car elm))
(key (cdr elm)))
(if (listp key)
(while key
(define-key tcode-jiscode-map (car key) cmd)
(setq key (cdr key)))
(define-key tcode-jiscode-map key cmd))))
'((digit-argument . ("0" "9" "8" "7" "6" "5" "4" "3" "2" "1" "-"))
(previous-line . ("k" "p"))
(next-line . ("j" "n"))
(backward-char . ("h" "b"))
(forward-char . ("l" "f"))
(scroll-down . "\C-?")
(scroll-up . " ")
(tcode-jiscode-quit . "q")
(tcode-jiscode-insert . ("\n" "\r"))
(describe-mode . "?"))))
(defun tcode-jiscode-quit ()
"JIS ɽϥ⡼ɤλ롣"
(interactive)
(set-window-configuration tcode-jiscode-window-configuration)
(goto-char tcode-jiscode-marker)
(setq tcode-jiscode-window-configuration nil
tcode-jiscode-marker nil))
(defun tcode-jiscode-insert-line (1st 2nd)
(insert (format "%02x%02x " (- 1st 128) (- 2nd 128)))
(let ((i 0))
(while (and (< i 16) (< 2nd 255))
(insert (char-to-string (make-char tcode-jisx0208 1st 2nd)))
(setq 2nd (1+ 2nd))
(setq i (1+ i)))
(insert " : ")
(while (and (< i 32)(< 2nd 255))
(insert (char-to-string (make-char tcode-jisx0208 1st 2nd)))
(setq 2nd (1+ 2nd))
(setq i (1+ i))))
(insert ":\n"))
(defun tcode-jiscode-insert-tables ()
"JISɽäơХåե롣"
(message "Making jiscode tables...")
(let ((1st 161) (2nd 161))
(while (< 1st 255)
(setq 2nd 161)
(tcode-jiscode-insert-line 1st 2nd)
(tcode-jiscode-insert-line 1st (+ 2nd 32))
(tcode-jiscode-insert-line 1st (+ 2nd (* 2 32)))
(setq 1st (1+ 1st))))
(message "Making jiscode tables...done.")
(beginning-of-buffer))
(defun tcode-jiscode-insert ()
"JIS ɽθ֤߰ˤʸɽˤХåե롣"
(interactive)
(let ((str (buffer-substring (point)
(save-excursion
(tcode-forward-char 1)
(point)))))
(set-buffer (marker-buffer tcode-jiscode-marker))
(tcode-insert str)
(setq tcode-jiscode-marker
(move-marker tcode-jiscode-marker (point)))))
;;;###autoload
(defun tcode-start-jiscode ()
"JISɽɽ롣
ɽ줿ХåեǤϡŪ˴ǸΥХåեǤ롣
ѤǤ륭ϼ̤ꡣ
\\[tcode-jiscode-insert]\t֤δХåե롣
\\[tcode-jiscode-quit]\tХåե롣
\\{tcode-jiscode-map}"
(interactive)
(setq tcode-jiscode-marker (point-marker))
(or (get-buffer-window tcode-jiscode-buffer)
(setq tcode-jiscode-window-configuration
(current-window-configuration)))
(switch-to-buffer-other-window tcode-jiscode-buffer)
(if (= (point-min) (point-max))
(progn
(tcode-jiscode-insert-tables)
(setq mode-name "JIS-select")
(use-local-map tcode-jiscode-map)
(setq major-mode 'tcode-start-jiscode)
(setq buffer-read-only t)))
(tcode-verbose-message "? ǥإ"))
(provide 'tc-jiscode)
;;; tc-jiscode ends here
|
