Author: yamaken
Date: Sun Mar 6 21:44:20 2005
New Revision: 759
Modified:
branches/composer/scm/anthy.scm
branches/composer/scm/evmap-csv.scm
branches/composer/scm/japanese-nicola.scm
Log:
* scm/evmap-csv.scm
- (event-exp->csv-cell): Escape special characters
* scm/japanese-nicola.scm
- (ja-nicola-hiragana-ruleset, ja-nicola-katakana-ruleset,
ja-nicola-halfkana-ruleset): Comment out
ja-nicola-jp106-pseudo-thumb-shift-ruleset in accordance with
dedicated key-event translator
* scm/anthy.scm
- (anthy-set-mod-state-handler, anthy-reset-mod-state-handler):
Remove debug print
Modified: branches/composer/scm/anthy.scm
==============================================================================
--- branches/composer/scm/anthy.scm (original)
+++ branches/composer/scm/anthy.scm Sun Mar 6 21:44:20 2005
@@ -303,8 +303,6 @@
(lambda (ac)
(let ((mod-state (bitwise-or (anthy-context-mod-state ac)
mod)))
- (puts "anthy-set-mod-state-handler: ")
- (print mod-state)
(anthy-context-set-mod-state! ac mod-state)))))
(define anthy-reset-mod-state-handler
@@ -312,8 +310,6 @@
(lambda (ac)
(let ((mod-state (bitwise-and (anthy-context-mod-state ac)
(bitwise-not mod))))
- (puts "anthy-reset-mod-state-handler: ")
- (print mod-state)
(anthy-context-set-mod-state! ac mod-state)))))
(define anthy-register-modifier-action
Modified: branches/composer/scm/evmap-csv.scm
==============================================================================
--- branches/composer/scm/evmap-csv.scm (original)
+++ branches/composer/scm/evmap-csv.scm Sun Mar 6 21:44:20 2005
@@ -76,7 +76,12 @@
((string? exp)
(if (or (string=? exp " ")
(string=? exp ",")
- (string=? exp "\""))
+ (string=? exp "\"")
+ (string=? exp "#")
+ (string=? exp "'")
+ (string=? exp "`")
+ (string=? exp "(")
+ (string=? exp ")"))
(string-escape exp)
exp))
((symbol? exp)
Modified: branches/composer/scm/japanese-nicola.scm
==============================================================================
--- branches/composer/scm/japanese-nicola.scm (original)
+++ branches/composer/scm/japanese-nicola.scm Sun Mar 6 21:44:20 2005
@@ -254,19 +254,22 @@
(append
ja-nicola-hiragana-core-ruleset
ja-nicola-hiragana-postfixed-voiced-consonant-ruleset
- ja-nicola-jp106-pseudo-thumb-shift-ruleset))
+ ;;ja-nicola-jp106-pseudo-thumb-shift-ruleset
+ ))
(define ja-nicola-katakana-ruleset
(append
ja-nicola-katakana-core-ruleset
ja-nicola-katakana-postfixed-voiced-consonant-ruleset
- ja-nicola-jp106-pseudo-thumb-shift-ruleset))
+ ;;ja-nicola-jp106-pseudo-thumb-shift-ruleset
+ ))
(define ja-nicola-halfkana-ruleset
(append
ja-nicola-halfkana-core-ruleset
ja-nicola-halfkana-postfixed-voiced-consonant-ruleset
- ja-nicola-jp106-pseudo-thumb-shift-ruleset))
+ ;;ja-nicola-jp106-pseudo-thumb-shift-ruleset
+ ))
(define ja-nicola-hiragana-ruletree
(evmap-parse-ruleset ja-nicola-hiragana-ruleset))
