Attachment 20591 Details for Bug 18630 – Experimental patch

[patch] Experimental patch

anthy.diff (text/plain), 2.94 KB, created by Etsushi Kato on 2008-11-25 18:54:11 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Etsushi Kato

Created: 2008-11-25 18:54:11 UTC

Size: 2.94 KB

patch

obsolete

>Index: anthy-utf8.scm
>===================================================================
>--- anthy-utf8.scm	(revision 5631)
>+++ anthy-utf8.scm	(working copy)
>@@ -747,6 +747,30 @@
>      (else
>       state))))
> 
>+(define anthy-utf8-learn-transposing-text
>+  (lambda (ac)
>+    (let ((ac-id (anthy-utf8-context-ac-id ac))
>+          (transposing-type (anthy-utf8-context-transposing-type ac))
>+          (preconv-str (anthy-utf8-make-whole-string ac #t anthy-type-hiragana))
>+          (type #f))
>+      (define (expand-segment)
>+        (if (not (= (anthy-utf8-lib-get-nr-segments ac-id) 1))
>+          (begin
>+            (anthy-utf8-lib-resize-segment ac-id 0 1)
>+            (expand-segment))))
>+      (cond
>+        ((= transposing-type anthy-type-hiragana)
>+         (set! type anthy-candidate-type-hiragana))
>+        ((= transposing-type anthy-type-katakana)
>+         (set! type anthy-candidate-type-katakana)))
>+      (if (and ac-id
>+               (> (string-length preconv-str) 0)
>+               type)
>+        (begin
>+          (anthy-utf8-lib-set-string ac-id (anthy-utf8-lib-eucjp-to-utf8 preconv-str))
>+          (expand-segment)
>+          (anthy-utf8-lib-commit-segment ac-id 0 type))))))
>+
> (define anthy-utf8-proc-transposing-state
>   (lambda (ac key key-state)
>     (let ((rotate-list '())
>@@ -795,6 +819,7 @@
> 	 ; commit
> 	 (if (anthy-commit-key? key key-state)
> 	     (begin
>+	       (anthy-utf8-learn-transposing-text ac)
> 	       (im-commit ac (anthy-utf8-lib-eucjp-to-utf8 (anthy-utf8-transposing-text ac)))
> 	       (anthy-utf8-flush ac)
> 	       #f)
>Index: anthy.scm
>===================================================================
>--- anthy.scm	(revision 5631)
>+++ anthy.scm	(working copy)
>@@ -742,6 +742,30 @@
>      (else
>       state))))
> 
>+(define anthy-learn-transposing-text
>+  (lambda (ac)
>+    (let ((ac-id (anthy-context-ac-id ac))
>+          (transposing-type (anthy-context-transposing-type ac))
>+          (preconv-str (anthy-make-whole-string ac #t anthy-type-hiragana))
>+          (type #f))
>+      (define (expand-segment)
>+        (if (not (= (anthy-lib-get-nr-segments ac-id) 1))
>+          (begin
>+            (anthy-lib-resize-segment ac-id 0 1)
>+            (expand-segment))))
>+      (cond
>+       ((= transposing-type anthy-type-hiragana)
>+        (set! type anthy-candidate-type-hiragana))
>+       ((= transposing-type anthy-type-katakana)
>+        (set! type anthy-candidate-type-katakana)))
>+       (if (and ac-id
>+        	(> (string-length preconv-str) 0)
>+        	type)
>+          (begin
>+            (anthy-lib-set-string ac-id preconv-str)
>+            (expand-segment)
>+            (anthy-lib-commit-segment ac-id 0 type))))))
>+
> (define anthy-proc-transposing-state
>   (lambda (ac key key-state)
>     (let ((rotate-list '())
>@@ -790,6 +814,7 @@
> 	 ; commit
> 	 (if (anthy-commit-key? key key-state)
> 	     (begin
>+	       (anthy-learn-transposing-text ac)
> 	       (im-commit ac (anthy-transposing-text ac))
> 	       (anthy-flush ac)
> 	       #f)

Actions: View | Splinter Review

Attachments on bug 18630: 20591

Use of freedesktop.org services, including Bugzilla, is subject to our Code of Conduct. How we collect and use information is described in our Privacy Policy.