Revision: 6152
Author: iratqq
Date: Fri Feb 5 00:38:56 2010
Log: * scm/ajax-ime.scm (ajax-ime-context-new):
* scm/canna.scm (canna-context-new):
* scm/sj3.scm (sj3-context-new):
* scm/social-ime.scm (social-ime-context-new):
* scm/wnn.scm (wnn-context-new):
* scm/yahoo-jp.scm (yahoo-jp-context-new):
- Init prediction engine while *-use-prediction?
http://code.google.com/p/uim/source/detail?r=6152
Modified:
/trunk/scm/ajax-ime.scm
/trunk/scm/canna.scm
/trunk/scm/sj3.scm
/trunk/scm/social-ime.scm
/trunk/scm/wnn.scm
/trunk/scm/yahoo-jp.scm
=======================================
--- /trunk/scm/ajax-ime.scm Wed Nov 4 08:13:55 2009
+++ /trunk/scm/ajax-ime.scm Fri Feb 5 00:38:56 2010
@@ -465,8 +465,10 @@
(if using-kana-table?
(ajax-ime-context-set-input-rule! ac ajax-ime-input-rule-kana)
(ajax-ime-context-set-input-rule! ac ajax-ime-input-rule-roma))
- (ajax-ime-context-set-prediction-ctx! ac (predict-make-meta-search))
- (predict-meta-open (ajax-ime-context-prediction-ctx ac) "ajax-ime")
+ (if ajax-ime-use-prediction?
+ (ajax-ime-context-set-prediction-ctx! ac
(predict-make-meta-search))
+ (predict-meta-open (ajax-ime-context-prediction-ctx ac) "ajax-ime")
+ (predict-meta-set-external-charset!
(ajax-ime-context-prediction-ctx ac) "EUC-JP"))
ac))
(define (ajax-ime-commit-raw ac)
=======================================
--- /trunk/scm/canna.scm Fri Nov 20 02:25:44 2009
+++ /trunk/scm/canna.scm Fri Feb 5 00:38:56 2010
@@ -338,8 +338,11 @@
(if using-kana-table?
(canna-context-set-input-rule! cc canna-input-rule-kana)
(canna-context-set-input-rule! cc canna-input-rule-roma))
- (canna-context-set-prediction-ctx! cc (predict-make-meta-search))
- (predict-meta-open (canna-context-prediction-ctx cc) "canna")
+ (if canna-use-prediction?
+ (begin
+ (canna-context-set-prediction-ctx! cc (predict-make-meta-search))
+ (predict-meta-open (canna-context-prediction-ctx cc) "canna")
+ (predict-meta-set-external-charset!
(canna-context-prediction-ctx cc) "EUC-JP")))
cc))
(define (canna-commit-raw cc)
=======================================
--- /trunk/scm/sj3.scm Sun Jan 17 23:04:02 2010
+++ /trunk/scm/sj3.scm Fri Feb 5 00:38:56 2010
@@ -617,9 +617,11 @@
(if using-kana-table?
(sj3-context-set-input-rule! sc sj3-input-rule-kana)
(sj3-context-set-input-rule! sc sj3-input-rule-roma))
- (sj3-context-set-prediction-ctx! sc (predict-make-meta-search))
- (predict-meta-open (sj3-context-prediction-ctx sc) "sj3")
- (predict-meta-set-external-charset! (sj3-context-prediction-ctx
sc) "EUC-JP")
+ (if sj3-use-prediction?
+ (begin
+ (sj3-context-set-prediction-ctx! sc (predict-make-meta-search))
+ (predict-meta-open (sj3-context-prediction-ctx sc) "sj3")
+ (predict-meta-set-external-charset! (sj3-context-prediction-ctx
sc) "EUC-JP")))
sc))
(define (sj3-commit-raw sc)
=======================================
--- /trunk/scm/social-ime.scm Thu Feb 4 23:31:26 2010
+++ /trunk/scm/social-ime.scm Fri Feb 5 00:38:56 2010
@@ -524,7 +524,8 @@
(if using-kana-table?
(social-ime-context-set-input-rule! sc social-ime-input-rule-kana)
(social-ime-context-set-input-rule! sc social-ime-input-rule-roma))
- (if (eq? social-ime-prediction-type 'uim)
+ (if (and social-ime-use-prediction?
+ (eq? social-ime-prediction-type 'uim))
(begin
(social-ime-context-set-prediction-ctx! sc
(predict-make-meta-search))
(predict-meta-open (social-ime-context-prediction-ctx
sc) "social-ime")
=======================================
--- /trunk/scm/wnn.scm Mon Aug 17 05:01:24 2009
+++ /trunk/scm/wnn.scm Fri Feb 5 00:38:56 2010
@@ -405,9 +405,11 @@
(if using-kana-table?
(wnn-context-set-input-rule! wc wnn-input-rule-kana)
(wnn-context-set-input-rule! wc wnn-input-rule-roma))
- (wnn-context-set-prediction-ctx! wc (predict-make-meta-search))
- (predict-meta-open (wnn-context-prediction-ctx wc) "wnn")
- (predict-meta-set-external-charset! (wnn-context-prediction-ctx
wc) "EUC-JP")
+ (if wnn-use-prediction?
+ (begin
+ (wnn-context-set-prediction-ctx! wc (predict-make-meta-search))
+ (predict-meta-open (wnn-context-prediction-ctx wc) "wnn")
+ (predict-meta-set-external-charset! (wnn-context-prediction-ctx
wc) "EUC-JP")))
wc))
(define (wnn-commit-raw wc)
=======================================
--- /trunk/scm/yahoo-jp.scm Fri Feb 5 00:25:31 2010
+++ /trunk/scm/yahoo-jp.scm Fri Feb 5 00:38:56 2010
@@ -549,7 +549,8 @@
(if using-kana-table?
(yahoo-jp-context-set-input-rule! yc yahoo-jp-input-rule-kana)
(yahoo-jp-context-set-input-rule! yc yahoo-jp-input-rule-roma))
- (if (eq? yahoo-jp-prediction-type 'uim)
+ (if (and yahoo-jp-use-prediction?
+ (eq? yahoo-jp-prediction-type 'uim))
(begin
(yahoo-jp-context-set-prediction-ctx! yc
(predict-make-meta-search))
(predict-meta-open (yahoo-jp-context-prediction-ctx
yc) "yahoo-jp")
