Attachment 5546 Details for Bug 6813 – Proposal patch

[patch] Proposal patch

uim-1.0.1-mana-learn.patch (text/plain), 1.64 KB, created by Shun-ichi TAHARA on 2006-05-02 13:03:06 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Shun-ichi TAHARA

Created: 2006-05-02 13:03:06 UTC

Size: 1.64 KB

patch

obsolete

>diff -ru uim-1.0.1.orig/scm/mana.scm uim-1.0.1/scm/mana.scm
>--- uim-1.0.1.orig/scm/mana.scm	2005-12-07 21:39:30.000000000 +0900
>+++ uim-1.0.1/scm/mana.scm	2006-05-01 17:48:31.000000000 +0900
>@@ -68,6 +68,10 @@
>   (lambda (yomi state pos mrph-len len)
>     (mana-eval (list 'mana-list-candidates yomi state pos mrph-len len))))
> 
>+(define mana-learn
>+  (lambda (yomi state pos len path)
>+    (mana-eval (list 'mana-learn yomi state pos len (list 'quote path)))))
>+
> (define mana-add-new-word
>   (lambda (kaki yomi)
>     (mana-eval (list 'mana-add-new-word kaki yomi))))
>@@ -86,6 +90,8 @@
>                                    (string-escape elem))
>                                   ((number? elem)
>                                    (number->string elem))
>+				  ((list? elem)
>+				   (mana-list->string elem))
>                                   (else
>                                     "")))
>                               lst)))
>@@ -916,7 +922,23 @@
> 
> (define mana-commit-string
>   (lambda (mc)
>-    '()))
>+    (let* ((yomi (mana-context-yomi mc))
>+	   (yomi-len (mana-context-yomi-len mc))
>+	   (segment-list (mana-context-segment-list mc))
>+	   (segments (mana-context-segments mc))
>+	   (path (map (lambda (segment cand-idx)
>+			(let ((candidate
>+			       (if (= cand-idx 0)
>+				   (mana-segment-first-candidate segment)
>+				   (list-ref
>+				    (mana-segment-candidate-list segment)
>+				    cand-idx)))
>+			      (pos (mana-segment-pos segment))
>+			      (len (mana-segment-len segment)))
>+			  (list candidate pos len)))
>+		      segment-list
>+		      (ustr-whole-seq segments))))
>+      (mana-learn yomi 0 0 yomi-len path))))
> 
> (define mana-do-commit
>   (lambda (mc)

Actions: View | Splinter Review

Attachments on bug 6813: 5546

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.