Pinconvのマイナーバージョンアップを行いました。ステータスバーをダブルクリックまたは右クリックして変換データファイルの切り替えが出来るようになったほか、いくつか不具合を修正しています。
Pinconvの紹介はこちらのエントリ、詳しい使い方についてはPinconvの使い方を参照下さい。窓の杜による紹介記事はこちらです。
文字列にルビを振るためのプラグインを新たに追加したPinconv 4.01を公開します。
ダウンロードとPinconvの詳しい説明は、こちらのエントリを参照下さい。
Rubyプラグインは、上の画像のように文字列にルビを振るためのプラグインです。たとえばカラオケ用のアンチョコを作ったり、音読練習用のプリントを作ったりする場合に利用すると便利だと思います。出力形式にHTMLを採用していますので、ブログなどに張り付けることもできます。
以下、Rubyプラグインの利用例として往年の名曲にピンインのルビを振ってみます。いくつかステップを踏む必要がありますが、それほど手間がかかるわけではありませんのでお付き合いください。
read more…
中国語の各種変換機能を備えたPinconv 4.00のβ版を公開します。
Pinconvの主な機能についてはこちらを参照下さい。
新たにプラグインの仕組みが導入されました。インストール時には次の5つのプラグインが同梱されています。
現在、Pinconv 4.00はβ版です。不具合が残っている可能性があるほか、作者の思いつきで仕様が変わることがありますのでご注意下さい。なお、現在のところPinconvは機能制限なく利用することができますが、将来的には一部機能をシェアウェア化する予定です。あらかじめご了承下さい。
作りかけですがこちらに使い方の簡単な説明があります。
再帰的にフォルダ内を検索して条件に合うファイルを取得するための関数。
引数のdirには検索対象のフォルダのパス、masksには「*.txt *.exe」のように取得したいファイルの種類をリストで渡します。
返り値はファイル名のリストです。
proc globRecursive {dir masks} { set result [list] foreach cur [lsort [glob -nocomplain -dir $dir *]] { if {[file type $cur] == "directory"} { eval lappend result [globRecursive $cur $masks] } else { foreach mask $masks { if {[string match $mask $cur]} { lappend result $cur break } } } } return $result }
いつもやり方を忘れるTkのフォーカスまわり。
エンターキーを押下した際、次のウィジェットにフォーカスを移動させたい場合は、tk_focusNextを使います。
bind $w <Return> { focus [tk_focusNext [focus]] break }
自分のためにﾒﾓφ(｡_｡)ﾒﾓ
中国語にかかわる各種変換機能とオンライン辞書の編集検索機能を備えたPinconv 4.00（アルファ版）を公開します。
edit (version 1.02 – 2010-01-21)
download： edit.zip
screenshot: demo1, demo2
package require Tk package require hashtrie 1.0 package require unicodeblock 1.1 package require edit ? 1.0 ? edit pathName ? options ? edit::addHighlightWord pathName word class edit::deleteHighlightWord pathName word edit::generateHighlightRule sourcefile rulefile edit::addHighlightRgx pathName pattern tagname edit::deleteHighlightRgx pathName pattern edit::defineBrackets pathName brackets edit::defineTextTag filename edit::applyTextTags pathName tags edit::linemapPopup X Y menu edit::getAllMarkedIndex pathName startIndex endIndex edit::getMarkedLine pathName index direction pathName highlight startIndex endIndex pathName copy pathName cut pathName paste pathName append pathName configure option value ? ... ? pathName refresh
一括置換やLongest Common Prefix Searchなどを行うためのtrie風データ構造です。
今のところ、渡されるtrieの中身などはチェックしていません。そのうち直します。
拡張名：hashtrie
ダウンロード：hashtrie.zip
使い方は下記参照：
% package require hashtrie 1.0 % set trie [hashtrie::new] {} {} 0 {} % set trie [hashtrie::add $trie test テスト] {t-0 1 e-1 2 s-2 3 t-3 4} {4 テスト} 4 {4 test} % set trie [hashtrie::add $trie check チェック] {t-0 1 e-1 2 s-2 3 t-3 4 c-0 5 h-5 6 e-6 7 c-7 8 k-8 9} {4 テスト 9 チェック} 9 {4 test 9 check} % set d [dict create 今日 きょう 明日 あした 明後日 あさって] 今日 きょう 明日 あした 明後日 あさって % set trie [hashtrie::import $trie $d] {t-0 1 e-1 2 s-2 3 t-3 4 c-0 5 h-5 6 e-6 7 c-7 8 k-8 9 今-0 10 日-10 11 明-0 12 日-12 13 後-12 14 日-14 15} {4 テスト 9 チェック 11 きょう 13 あした 15 あさって} 15 {4 test 9 check 11 今日 13 明日 15 明後日} % hashtrie::exists $trie 今日 1 % hashtrie::replace $trie "今日と明日はtestで忙しい。" きょうとあしたはテストで忙しい。 % hashtrie::remove trie check 1 % puts $trie {t-0 1 e-1 2 s-2 3 t-3 4 c-0 5 h-5 6 e-6 7 c-7 8 k-8 9 今-0 10 日-10 11 明-0 12 日-12 13 後-12 14 日-14 15} {4 テスト 11 きょう 13 あした 15 あさって} 15 {4 test 11 今日 13 明日 15 明後日}
与えられた文字のUnicode Block名を返すTcl用の拡張です。
拡張名：unicodeblock
ダウンロード：unicodeblock.zip
使い方：
set blockname [unicodeblock::getblock "字"]
Copyright © 2010 Shinsuke Takeuchi. Titan Theme by Jestro.
pinconv.zip