以下のコードを使うために,JSON for Squeakが必要です.
JSON for Squeak
http://www.squeaksource.com/JSON/
"原文"
source := '私は林檎が好きです.'.
"翻訳して欲しい言語"
to := 'en'.
"URIエンコード"
source := source encodeForHTTP.
"原文が何語なのかを調べる"
uri := 'http://ajax.googleapis.com/ajax/services/language/detect'.
result := (HTTPClient httpGet:uri,'?v=1.0&q=',source).
from := (( Json readFrom: result ) at:'responseData') at:'language'.
"原文を翻訳する"
uri := 'http://ajax.googleapis.com/ajax/services/language/translate'.
result := (HTTPClient httpGet:uri,'?v=1.0&q=',source,'&langpair=',from,'%7C',to).
(( Json readFrom: result ) at:'responseData') at:'translatedText'.
==> 'I like an apple.'
驚いたのは,原文が何語か調べる機能まで用意されているところ.
さすがGoogleですね.
時間があったときに,Squeakのツールとして使えるようにしたいと思います.
(いつになることやら)
Google AJAX Language API