[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[plamo:10604] Re: Wnn7
-
From:Shun-ichi TAHARA (田原 俊一)
-
Date:Sat, 11 Aug 2001 22:32:01 +0900
- Subject: [plamo:10604] Re: Wnn7
- From: Shun-ichi TAHARA (田原 俊一)<jado@xxxxxxxxxxxxxxx>
- Date: Sat, 11 Aug 2001 22:32:01 +0900
- Posted: Sat, 11 Aug 2001 22:31:06 +0900 (JST)
Wnn7その後です。
From: Shun-ichi TAHARA (田原 俊一) <jado@flowernet.gr.jp>
Message-Id: <20010808.112619.607956540.z1980163@zenrin.co.jp>
> 3. eggでの入力
>
> Emacs-20.7 と、XEmacs-21.1.x では、マニュアル通りにすればオッケー。
> 問題は、XEmacs-21.2 以降で、変換時に文字化けしたり、エラーが出たりする
> など、問題が山積です。
>
> どうも、wnn7egg自体がまだ練れていないようなので、XIM経由で入力した方が
> いいのかも。
とりあえず、手元では問題ないレベルになりましたので、パッチを流しておき
ます。
・XEmacs21.2以降で、変換文字列が化ける問題は、wnn7egg-comx21.el にパッ
チを当てれば解消。(egg4のCSV版と同様の修正です)
・Emacs20・XEmacs21とも、set-egg-{fence|henkan}-mode-format していると、
変換時にエラーが出ることがある問題は、wnn7egg-lib.el にパッチを当て
れば解消。
ということで、それぞれ添付しておきます。
_______________________________
田原 俊一 jado@flowernet.gr.jp, shunichi_tahara@zenrin.co.jp
http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 B8 4C 47 3A E7 E9 8E D9
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
*** wnn7egg-comx21.el.orig Wed Aug 8 13:22:13 2001
--- wnn7egg-comx21.el Wed Aug 8 16:12:29 2001
***************
*** 85,99 ****
((r0 = r1)
(if (r1 < #x80)
(write-read-repeat r0))
! (write r4)
! (write-read-repeat r0))
((if (r1 > #x80)
! ((write r2 r0)
! (r0 = r1)
! (write-read-repeat r0))
! ((write r3 r0)
! (r0 = (r1 | #x80))
! (write-read-repeat r0)))))))))
(define-ccl-program ccl-encode-fixed-euc-jp
`(2
--- 85,106 ----
((r0 = r1)
(if (r1 < #x80)
(write-read-repeat r0))
! (write-multibyte-character r4 r0)
! (read r0)
! (repeat))
((if (r1 > #x80)
! ((r0 &= #x7f)
! (r0 <<= 7)
! (r0 |= (r1 & #x7f))
! (write-multibyte-character r2 r0)
! (read r0)
! (repeat))
! ((r0 &= #x7f)
! (r0 <<= 7)
! (r0 |= r1)
! (write-multibyte-character r3 r0)
! (read r0)
! (repeat)))))))))
(define-ccl-program ccl-encode-fixed-euc-jp
`(2
***************
*** 135,164 ****
;; Binary data
- (eval-and-compile
- (define-ccl-program ccl-decode-egg-binary
- `(1
- ((read r0)
- (loop
- (if (r0 == #xff)
- (read r1)) ; toss out
- (write-read-repeat r0)))))
-
- (define-ccl-program ccl-encode-egg-binary
- `(2
- ((read r0)
- (loop
- (if (r0 == #xff)
- ((write r0)
- (r0 = 0)))
- (write-read-repeat r0))))))
-
(if (not (coding-system-p 'egg-binary))
! (make-coding-system 'egg-binary 'ccl
! "Coding System for binary data"
! `(decode ,ccl-decode-egg-binary
! encode ,ccl-encode-egg-binary
! mnemonic "WNN")))
(defun comm-format-u32c (uint32c)
--- 142,149 ----
;; Binary data
(if (not (coding-system-p 'egg-binary))
! (define-coding-system-alias 'egg-binary 'binary))
(defun comm-format-u32c (uint32c)
*** wnn7egg-lib.el.orig Wed Aug 8 13:22:13 2001
--- wnn7egg-lib.el Wed Aug 8 18:31:39 2001
***************
*** 1485,1494 ****
nil))))
(defun wnn7-server-dai-end (bunno)
! "大文節の最後になる文節番号を得る"
(let ((bunlist (nthcdr bunno wnn7-bun-list)))
! ;; (setq bunno (1+ bunno)) ;; why?
! (while (and bunlist
(wnn7-bunsetsu-get-dai-continue (car bunlist)))
(setq bunno (1+ bunno))
(setq bunlist (cdr bunlist)))
--- 1485,1494 ----
nil))))
(defun wnn7-server-dai-end (bunno)
! "次の大文節の文節番号を得る"
(let ((bunlist (nthcdr bunno wnn7-bun-list)))
! (setq bunno (1+ bunno)) ;; why?
! (while (and (cdr bunlist)
(wnn7-bunsetsu-get-dai-continue (car bunlist)))
(setq bunno (1+ bunno))
(setq bunlist (cdr bunlist)))
- References
-
- [plamo:10588] Wnn7, Shun-ichi TAHARA (田原 俊一)
[検索ページ]
[メール一覧]
Plamo ML 公開システム