Hatena::ブログ(Diary)

駄文生産所 このページをアンテナに追加 RSSフィード

2009-03-18

AquesTalkAdapter for Squeak

規則音声合成ライブラリAquesTalkラッパーライブラリ

見事な棒読みが聴けます。

AqTalker new play: 'なまむぎなまごめなまたまご'.
AqTalker new play: 'となりのきゃくわ/よくかきくうきゃくだ' speed: 150.

2007-04-16

Windows Desktop Searchを呼ぶ

Windows Desktop Searchの検索サービスSqueakFFI経由で呼び出す。


WDSAdapter

http://swikis.ddo.jp:9091/WDSAdapter.html


なお利用する場合は、予めWindows Desktop Search 2.xインストールし、そのサービスが実行されている必要がある。

| condition result fs |
condition := WDSSearchCondition new.
condition 
    query: 'windows desktop search';
    columns: {WDSConstants fileName. WDSConstants size. WDSConstants folderName};
    sortKeys: {WDSConstants fileName. WDSConstants size}.

result := condition executeQuery.

fs := FileStream forceNewFileNamed: 'result.tsv'.
fs converter: ShiftJISTextConverter new.
[
    result columns 
        do: [:columnName | fs nextPutAll: columnName]
        separatedBy: [fs tab].
    fs cr.

    result records do: [:array |
        array 
            do: [:value | fs nextPutAll: value]
            separatedBy: [fs tab].
        fs cr.
    ].
] ensure: [fs close].

使いでがあるか、というと正直ないなぁ。