[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[plamo:10604] Re: Wnn7



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 公開システム