http://torus.jp Blosxom 2 をまだ使っています。 ja http://torus.jp/diary/x201008/tokyo-impression.md.html <p>8 月 14 日から同 25 日まで、1 年半ちょっと振りに日本へ帰った。主な目的は就労ビザの延長のため、アメリカ大使館で面接を受ける事でした。スケジュールが直前まで決まらずさいごまでばたばたした旅程でしたが、今回はいろいろと思うところがあったのでまとめてみます。</p> <h2>電子マネー</h2> <p>日本ではもう完全に当たり前になった Suica や PASMO のような電子マネーですが、改めて便利さと人々への浸透の深さに驚いた。もちろん、ぼくがハワイに来る前からこれらの電子マネーはみんな当たり前の様に使ったいたんだけど、今年の夏、ついにセブンイレブンでも Suica が使えるようになった事に、ちょっとした時代の流れを感じた。これまでもセブンイレブンは（中身は Suica と同じの）nanaco というカードを発行していて、ぼくも持っているけど、ついに Suica、PASMO の勢いにおされた形になった。</p> <p>ぼくが自分用に Suica を作ったのは確か 2003 年くらいで、2005 年に一度盗まれて再発行してもらったので、ペンギンの絵が描いてあるちょっと新しいバージョンです。Suica は、最初は JR 東日本の一部の駅の改札機でしか使えなくて、駅内のキオスクなどで使うのは Suica イオカードという、ペイメント機能付きのカードでなくてはいけなかった記憶がある。</p> <p>それからしばらくして、地下鉄や一部の私鉄・バスで使える PASMO が登場した。しかも、たしか初めから Suica と PASMO は互換性があり、PASMO 用の改札機で Suica も使えたように思う。</p> <p>2008 年の暮れに一時帰国したときに、西武池袋線の駅のホームで、きゃっきゃと雑談をしている学校の制服を着た女の子が、まったく自然に PASMO で自動販売機の支払いをしているのを見て驚いた。まだ Suica も無かった頃「電子マネー」という概念が語られ始めた時は、彼女たちからは最も離れた場所に位置していたのに。</p> <p>Suica や PASMO を使って自販機で買い物するときは、支払いをする「前」に商品を選ぶので、従来とは操作の手順が違うんだけど、意外とすんなり受け入れられたようだ。</p> <h2>鉄道</h2> <p>これもいまさらなんですが、東京の地下鉄網には改めて感心させられた。特に副都心線を使うと西武池袋線沿線から渋谷まで 1 本で行けてしまう。便利すぎる。あと、たぶん、すべての地下鉄の駅で NTT コミュニケーションズの無線 LAN アクセスポイントが使えるので、iPhone のデータローミングを使ってなかったぼくはすごく助かった。</p> <p>ぼくが関西から東京に移った 2000 年頃はちょうど大江戸線が開通したときで、それから 10 年もしない間に副都心線が開通し、いまだに進化を止めない勢いを感じます。</p> <p>それから、JR 山手線の一部でも、プラットホームに人が誤って飛び込まないように扉付きの「柵」が出来ていたのを確認した。まだ山手線の全駅ではないみたいだけど、ぼくはああいう過保護なサービスが大好きだ。コストもかかるだろうから作るのは大変だろうけど、あれで救われる人の命もそれなりにあるんじゃないだろうか。しかし、あれをもしハワイにでも作ろうものなら、すぐに落書きで汚されてしまうだろうけど、東京の地下鉄や JR の駅の柵はぼくが見た限りみんなきれいだった。</p> <p>ハワイ（というかオアフ島）には、バスとタクシーしか公共の交通機関がない。ホノルルの市バスは日本から来た人からするとお世辞にもきれいで使いやすいとは言えないけど、どういうわけかあれがアメリカで一番の公共交通機関に選ばれたらしい。さすがにそれは無いと思うけど。</p> <p>ハワイのバスで嫌なのは、全体的に薄暗くて汚い、バス停に街灯も何も無くホームレスや物乞いがいて怖い、値段が高い（少し前から断続的に値上げが続いていて今ではどこからどこまで乗っても $2.50）こと。ハワイにも鉄道を造る計画があってテレビでもたまに取り上げられるけど、まだ何十年も先の話になりそう。</p> <h2>低価格飲食店チェーン</h2> <p>今回の帰国では、少し意識して、安いチェーンのお店で食事をとるようにした。ぼくは以前は和民とかの安い居酒屋のメニューがあまりにもまずかったので、全体的にそういう低価格帯のお店は避けてた。貧乏な人はこういうまずい物だけを食べさせられ、おいしい物の味を知らずにこういう低質な店にお金をむしり取られてかわいそうとさえ思っていた。</p> <p>しかし今回行ったところは大体はおいしくて、しかもサービスがまともだった。行ったのは 100 円回転寿司の「くら寿司」と「スシロー」、うどんの「丸亀製麺」、中華の「日高屋」、バーの「プロント・イルバール」。特にサービスが良いと思ったのは日高屋とくら寿司でした。</p> <p>くら寿司は、注文をほぼすべて機械のパネルで受け、皿を数えるのもほぼ機械化していて、しかも生ビールを注ぐのまで機械でセルフサービスで出来るようになっている。ここまで機械化すると、人間が接客する部分はテーブルへの案内と会計くらいなので、そこをきちんとやりさえすれば客は店員に対して嫌な思いをしなくてすむ。</p> <p>それから、日高屋はぼくが東京にいるときから 290 円ラーメンとしてたくさんあったけど、どうせまずいだろうと思って、それまで入った事が無かった。だけど、入ってみると生ビールはあるし、単品でおつまみがいろいろ注文できるし、それなりに調理しているみたいでレトルトっぽくないし、接客も比較的まともだし、かなりすすんでいると思った。</p> <p>店員はチップももらわずに低賃金でこんなにちゃんと働いている。それは、ネガティブに考えればまあネガティブなんだけど、そのかわり彼らは一定の教育を受けられ、それは次の仕事に生かす事が出来るし、店としてもいちいち自分で接客マニュアルなんかを作る必要がないから失敗が少ないのだろう。</p> <p>日本人はソフトウェアを作るのが苦手というけど、これらのお店のマニュアルや店員の教育プログラムは世界的な基準で見ても相当にレベルが高いんじゃないだろうか。ただ、それと同時に、こういうサービスをたくさんの店舗で一定の質を保って提供できるのは、おそらくは、客の質もそれなりに一定だからだとも感じた。</p> <p>たとえばハワイとかだと、いろんな人種の人がいるし、アメリカ人の白人だけでもいろんな極端な性格の人がいるので、画一的な接客マニュアルで対応するのは難しいのかもしれない。日本みたいに低価格のサービスがここまで先鋭化した背景には、単一の民族しかいない事がうまく働いたんじゃないだろうか、とか思った。そういう意味で、新しいサービスを開発し試験的に始めてみるには、日本はいい環境なのかもしれない。</p> <h2>携帯電話</h2> <p>ハワイだとバスに乗ったりすると iPhone を使っている人がすごく多いのに気がつく。アメリカには昔からスマートフォンというカテゴリーがあって、ブラックベリーとか Windows モバイルとかそういう多機能携帯はすでに昔からあった。ただ、やっぱりこういうのはちょっとオタクやビジネスマン向けのような扱いだったみたいで、iPhone は、スマートフォンを持つほどじゃないけど、今までの電話しか出来ない携帯電話ではちょっと満足できないという人にうまく届いたんじゃないかと想像しています。</p> <p>しかし東京では iPhone を使っている人はあまり見かけなかった。あたりまえだけど、iPhone に付いている機能はほとんどすべて、日本で数千円で買える携帯電話に当たり前の機能として付いているものばかりだ。最新型の iPhone 4 で「前面にカメラが付いてテレビ電話ができます」なんて言っているのを聞いても、日本の感覚だと「どこが新しいの？」で終わってしまうレベルだ。</p> <h2>まとめ</h2> <p>たまにテレビとかで、日本人が自虐的に「日本人は便利さと引き換えに心の豊かさを失った」とかいうのを見かけるけど、たぶんそんな事は無い。これだけ便利になると周りの人との利害の衝突（ホームレスに小銭を要求されて嫌な思いをするとか、マナーの悪い人種の人たちがいるところへ行かないといけないとか）が少ないので、精神的にも前向きに暮らしていけると思う。</p> <p>日本の便利さは確かに「異常」と言えるかもしれないけど、ぼくみたいにこれからソフトウェアとかでサービスを開発する立場からすれば、こういうぬるま湯に入っていないと見えない潜在的なストレスや需要はやっぱりあると思う。だから、これから 10 年くらい先の世界標準を先取りするつもりで、このぬるま湯にしっかり浸かっておくのも悪くはないんじゃないかな。</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x201008/lua-binding-with-swig.md.html <p>LibXML の tree ライブラリの Lua バインディングを作ってみました。実際にやってみると途中でいろいろ躓きましたが最終的にはシンプルな形にできたのでやり方をまとめてみました。</p> <p>今回制作した SWIG のインターフェイスファイルやその他のファイルはひとつの <a href="http://gist.github.com/328590">Gist</a> にまとめたのでご自由にご覧ください。</p> <h2>SWIG のインターフェイスファイル</h2> <p>SWIG のインターフェイスファイルで、モジュール名、ヘッダファイルのインクルードの指定と、ラッパーを作りたい関数のプロトタイプ宣言を書きます。基本的には、<code>%include</code> ディレクティブを使ってヘッダファイルをそのままインクルードしてやれば動きます。</p> <h3>単純なラッパ</h3> <p>インターフェイスファイルの基本的な記述方法は、C/C++ のヘッダファイルと同じです。したがって、単純に <code>%include</code> ディレクティブを使ってヘッダファイルをインクルードしてしまえば、一応インターフェイスファイルができたことになります。たとえば、LibXML2 の tree.h に対するインターフェイスファイルの一番簡単な形は次のようになるでしょう。</p> <pre><code>%module libxml2 %{ #include &lt;libxml2/libxml/tree.h&gt; #include &lt;stdio.h&gt; %} %include &lt;/usr/include/libxml2/libxml/xmlexports.h&gt; %include &lt;/usr/include/libxml2/libxml/xmlversion.h&gt; %include &lt;/usr/include/libxml2/libxml/tree.h&gt; </code></pre> <p>最初の行の <code>%module</code> は、Lua からライブラリ API を呼び出すためのモジュール名を指定します。ここでは、<code>libxml2.</code><em>funcname</em><code>()</code> のような形で呼び出したいので <code>libxml2</code> というモジュール名にしました。</p> <p>次に <code>%{</code> から <code>%}</code> までに書かれている部分は、生成されるラッパーのソースコードにそのまま書き出されます。実際に生成されたソースコードを覗いてみるとこの様子が確認できます。</p> <p>そして次の行以降に並んでいる <code>%include</code> ディレクティブが、このインターフェイスファイルの本体部分です。<code>%include</code> は、単に指定されたファイルをこの位置に展開するだけです。<code>%include</code> で読み込まれるファイルはインターフェイスファイルの構文で書かれている必要がありますが、ヘッダファイルに書かれている関数宣言の書き方がそのままインターフェイスファイルでも使えるので、このような手抜きができます。</p> <h3>SWIG 起動</h3> <p>さて、ここまでできたら実際に SWIG を起動してラッパーを生成してみましょう。シェルのコマンドラインから次のように入力してください。</p> <pre><code>swig -lua libxml2.i </code></pre> <p>そうすると、libxml2_wrap.c というファイルが生成されます。これを通常の LibXML2 のアプリケーションと同じようにコンパイル、リンクすると Lua のモジュールができます。ただ、語述するようにこれでは役に立たないので、具体的なビルド方法については後回しにします。</p> <h3>typemap</h3> <p>組み込み型や std::string のような基本的な型については、SWIG が自動的に Lua の対応する型に変換してくれます。しかし、ライブラリ固有の型についてはどのように Lua のデータに変換するかを教えてあげる必要があります。</p> <p>SWIG では、このデータ型の変換のために <code>%typemap</code> というディレクティブを使って変換の方法を指示します。</p> <h4>パターンマッチ</h4> <p><code>%typemap</code> では、関数の入出力の型と仮引数名をつかって、Lua の値へのマッピングのやり方を記述します。通常、C の関数プロトタイプ宣言では仮引数の名前は意味を持ちませんが、SWIG はこれを型を補うための重要な情報として活用します。これらの情報をパターンとして記述して、SWIG はこのパターンとそれぞれの関数プロトタイプ宣言を比較し、どのようなラッパーを適用するかを決めるのです。</p> <pre><code>%typemap(in, numinputs=0) (xmlChar ** mem, int * size) (xmlChar *temp, int templen) { &#036;1 = &amp;temp; &#036;2 = &amp;templen; } %typemap(argout) (xmlChar ** mem, int * size) { // Append output value &#036;1 to &#036;result lua_pushlstring (L, *&#036;1, *&#036;2); SWIG_arg ++; } </code></pre> <p>この例では、まず <code>xmlChar ** mem, int * size</code> の部分がパターンで、このパターンにマッチする引数を持つ関数に対して、その下に書いた処理を実行します。このパターンはたとえば、次のような関数プロトタイプ宣言にマッチします。</p> <pre><code>XMLPUBFUN void XMLCALL xmlDocDumpFormatMemory (xmlDocPtr cur, xmlChar **mem, int *size, int format); </code></pre> <p>ここで、<code>xmlChar **mem</code> と <code>int *size</code> がこの順番で出てきていることに注意してください。また、同じ型でも、別の仮引数名を使った次のような関数にはマッチしません。</p> <pre><code>XMLPUBFUN void XMLCALL xmlDocDumpFormatMemoryEnc(xmlDocPtr out_doc, xmlChar **doc_txt_ptr, int * doc_txt_len, const char *txt_encoding, int format); </code></pre> <p><code>xmlChar**</code> 型の仮引数の名前が <code>mem</code> ではないことに注意してください。</p> <p>さて、<code>%typemap</code> ディレクティブの中身をもう少し見てみます。最初の <code>%typemap</code> では、まず <code>in</code> と書いて、与えられた引数を入力として使うことを宣言しています。次の <code>numinputs=0</code> は、「この引数は Lua からの引数を消費しませんよ」っていう意味ですが、あとで詳しく説明します。</p> <p>次に続く <code>(xmlChar ** mem, int * size)</code> はすでに説明したように、ラッパーを適用したい関数のパターンです。</p> <p>そして、その次の <code>(xmlChar *temp, int templen)</code> は、ラッパー関数内で使うローカル変数の宣言です。</p> <p>説明するよりも、実際に生成されたラッパー関数の中身を見るほうが分かりやすいので、ちょっとのぞいてみましょう。たとえば、すでに出てきた <code>xmlDocDumpFormatMemoryEnc</code> のラッパー関数は次のようになりました。</p> <pre><code>static int _wrap_xmlDocDumpFormatMemory(lua_State* L) { int SWIG_arg = 0; xmlDocPtr arg1 = (xmlDocPtr) 0 ; xmlChar **arg2 = (xmlChar **) 0 ; int *arg3 = (int *) 0 ; int arg4 ; xmlChar *temp2 ; int templen2 ; { arg2 = &amp;temp2; arg3 = &amp;templen2; } SWIG_check_num_args("xmlDocDumpFormatMemory",2,2) if(!SWIG_isptrtype(L,1)) SWIG_fail_arg("xmlDocDumpFormatMemory",1,"xmlDocPtr"); if(!lua_isnumber(L,2)) SWIG_fail_arg("xmlDocDumpFormatMemory",2,"int"); if (!SWIG_IsOK(SWIG_ConvertPtr(L,1,(void**)&amp;arg1,SWIGTYPE_p__xmlDoc,0))){ SWIG_fail_ptr("xmlDocDumpFormatMemory",1,SWIGTYPE_p__xmlDoc); } arg4 = (int)lua_tonumber(L, 2); xmlDocDumpFormatMemory(arg1,arg2,arg3,arg4); { // Append output value arg2 to result lua_pushlstring (L, *arg2, *arg3); SWIG_arg ++; } return SWIG_arg; if(0) SWIG_fail; fail: lua_error(L); return SWIG_arg; } </code></pre> <p>順を追ってみてみます。</p> <pre><code>static int _wrap_xmlDocDumpFormatMemory(lua_State* L) { </code></pre> <p>Lua が処理できる関数の型は、必ず <code>lua_State*</code> をとって <code>int</code> を返します。</p> <pre><code> int SWIG_arg = 0; </code></pre> <p>SWIG_arg は、引数のカウンタです。</p> <pre><code> xmlDocPtr arg1 = (xmlDocPtr) 0 ; xmlChar **arg2 = (xmlChar **) 0 ; int *arg3 = (int *) 0 ; int arg4 ; </code></pre> <p>これらは、Lua から渡された引数を C の値に変換するときの受け皿となります。</p> <pre><code> xmlChar *temp2 ; int templen2 ; </code></pre> <p>ここで、1 つめの <code>%typemap</code> に書いた変数宣言を思い出してください。あれはここにそのまま書かれます。</p> <pre><code> { arg2 = &amp;temp2; arg3 = &amp;templen2; } </code></pre> <p>そしてさらに、1 つ目の <code>%typemap</code> の中身がそのままここにコピーされます。ただし、<code>&#036;1</code> が <code>arg2</code> に、<code>&#036;2</code> が <code>arg3</code> に変換されていることに注意してください。</p> <p>ここからしばらくは、SWIG が自動生成するラッパーコードです。基本的には型のマッピングです。</p> <pre><code> SWIG_check_num_args("xmlDocDumpFormatMemory",2,2) if(!SWIG_isptrtype(L,1)) SWIG_fail_arg("xmlDocDumpFormatMemory",1,"xmlDocPtr"); if(!lua_isnumber(L,2)) SWIG_fail_arg("xmlDocDumpFormatMemory",2,"int"); if (!SWIG_IsOK(SWIG_ConvertPtr(L,1,(void**)&amp;arg1,SWIGTYPE_p__xmlDoc,0))){ SWIG_fail_ptr("xmlDocDumpFormatMemory",1,SWIGTYPE_p__xmlDoc); } arg4 = (int)lua_tonumber(L, 2); xmlDocDumpFormatMemory(arg1,arg2,arg3,arg4); </code></pre> <p>最後の行で、実際に <code>xmlDocDumpFormatMemory</code> 関数を呼び出しています。しかし、この関数は <code>arg2</code> と <code>arg3</code> を出力変数として使うので、これらの値を今度は Lua の値に変換して Lua に返してやる必要があります。</p> <pre><code> { // Append output value arg2 to result lua_pushlstring (L, *arg2, *arg3); SWIG_arg ++; } </code></pre> <p>ここで、2 つ目の <code>%typemap</code> が登場です。ここで <code>SWIG_arg</code> という変数をインクリメントしています。これは、Lua に返す値の数を表します。ちなみに <code>lua_pushlstring</code> は文字列を Lua に渡すための関数ですが、第 3 引数には文字列の長さをバイト数で渡すので、文字列中にヌルバイト <code>'\0'</code> を含んでいても正しく渡すことができます。</p> <pre><code> return SWIG_arg; if(0) SWIG_fail; fail: lua_error(L); return SWIG_arg; } </code></pre> <p>残りは SWIG が生成するコードです。特に <code>SWIG_arg</code>（返り値の数）を返している事に注意してください。</p> <h2>つづく</h2> <p><code>%native</code> ディレクティブを使った低レベルな関数の定義や、Lua モジュールのビルド方法など、書くつもり。</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x201007/ll-lt-lua-game-development.md.html <p><a href="http://ll.jus.or.jp/2010/">Lightweight Language Tiger</a> で行われた、ライトニングトークセッション 「<a href="http://ll.jus.or.jp/2010/program/lt">LL Tiger > LTの虎</a>」 で、CryENGINE2 上で Lua を使ってゲーム開発をする手順をビデオにまとめて発表させていただきました。</p> <h2>動画</h2> <p>実際に上映させていただいた前編：</p> <p><script type="text/javascript" src="http://ext.nicovideo.jp/thumb_watch/sm11581150"></script><noscript><a href="http://www.nicovideo.jp/watch/sm11581150">【ニコニコ動画】LLTiger LT: Lua でわくわくゲーム開発（前半）</a></noscript></p> <p>一回戦で敗退してしまったために上映できなかった後編：</p> <p><script type="text/javascript" src="http://ext.nicovideo.jp/thumb_watch/sm11580483"></script><noscript><a href="http://www.nicovideo.jp/watch/sm11580483">【ニコニコ動画】LLTiger LT: Lua でわくわくゲーム開発（続き）</a></noscript></p> <p>今回のライトニングトーク（LT）のルールでは、8 チームがトーナメント形式で競い合い、それぞれ対戦に勝ったチームが次の発表を許されるということになってました。で、ぼくは初戦で負けてしまったので、後編は上映できませんでした。</p> <p>ここで紹介している方法は、CryENGINE2 という高価な商用のゲームエンジンを使用しているにもかかわらず、個人的な使用においては完全に無料で実現できます。なので、ゲーム開発に興味のある学生やニートのみなさんにも見ていただければと思います。</p> <h2>スクリプトのソースコード</h2> <p>ここで Lua スクリプトのソースコードを公開しています。 <a href="http://github.com/torus/Luna-Landa-on-CryENGINE2">torus / Luna-Landa-on-CryENGINE2</a></p> <h2>参考 URL</h2> <p>ビデオ中で紹介した各ウェブサイトの URL をここにも記載しておきます。</p> <ul> <li><a href="http://crysisdemo.com/">Crysis Demo Download Live Countdown October 26th 2007 PC EA Games</a></li> <li><a href="http://crymod.com/portal.php">Crytek's Official Modding Portal | Portal</a></li> <li><a href="http://dev.bluemars.com/wiki/index.php/Blue_Mars_Game_Programming">Blue Mars Game Programming - Blue Mars Developer Guidebook</a></li> </ul> <p>それから、時間の都合で紹介できなかったサイトもあげておきます。</p> <ul> <li><a href="http://www.atari.com/arcade/lunar_lander">Lunar Lander(TM) | Atari Video Games</a></li> </ul> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x201007/apply-in-lua.md.html <p>JavaScript や Scheme には、配列を引数の並びとして関数に適用する apply という関数がありますが、Lua にはそれに相当する関数はありません。で、しばらく悩んでいたんですが、少し前に同等のことをする方法があるのに気がつきました。</p> <p><a href="http://www.lua.org/manual/5.1/manual.html#pdf-unpack">unpack</a> という関数を使います。unpack は、配列をとってその配列の中身を多値として返します。これをつかうと、apply 相当の動作はこんな風にかけます。</p> <pre><code>func (unpack (array)) </code></pre> <p>JavaScript ではこんな感じ：</p> <pre><code>func.apply (this, array) </code></pre> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/test/markdown.md.html <h2>てすとですよ。</h2> <ol> <li>Bird</li> <li>McHale</li> <li>Parish</li> </ol> <p><a href="http://daringfireball.net/projects/markdown/">Markdown</a> Rocks!!</p> <pre><code>sub start { others-&gt;regist_fetch ('.md', \&amp;_fetch); 1; } sub _fetch { my (&#036;fh, &#036;path_file, &#036;title_ref, &#036;body_ref, &#036;raw_ref) = @_; chomp(&#036;&#036;title_ref = &lt;&#036;fh&gt;); if (&#036;body_ref) { &#036;&#036;body_ref = Markdown(join '', &lt;&#036;fh&gt;); } &#036;raw_ref and &#036;&#036;raw_ref = &#036;&#036;title_ref . "\n" . &#036;&#036;body_ref; } </code></pre> <p>このサイトの Blosxom は、<a href="http://torus.jp/doc/blosxom/fetch.html">少し拡張が加えてある</a>ので、それにあわせて修正して使っています。</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x201001/removing_duplicated_photos.rd.html <p>携帯電話やデジカメから PC に写真を転送するときに、間違えて同じ写真を何度も読み込んでしまって、無駄なデータがたくさんできてしまってました。しかも、それらのファイルは、フォルダもファイル名も全然違う事があって、簡単にはまとめて消せません。なので、Perl で簡単なスクリプトを書いて重複ファイルの洗い出しをしました。</p> <hr class="seemore" /> <h2>スクリプト</h2> <p>スクリプトは以下の通りです。Mac OS X 10.6.2 に付属の Perl 5.10.0 を使いました。追加の CPAN モジュールは、たぶん入れてません。</p> <pre>#!/usr/bin/env perl use strict; use warnings; use Fcntl; use NDBM_File; use File::Find (); my $len = 64; my %table; tie(%table, 'NDBM_File', 'table', O_RDWR|O_CREAT, 0666) or die "Couldn't tie NDBM file 'filename': $!; aborting"; File::Find::find (sub { my $file = $_; if (-f $file) { my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file); my $head; open IN, "&lt; $file"; read IN, $head, $len; $head .= $size; if ($table{$head}) { print qq(cmp "$File::Find::name" "$table{$head}" &amp;&amp; echo "$File::Find::name"\n); } else { $table{$head} = $File::Find::name; } } }, @ARGV); </pre> <p>ファイルの先頭 64 バイトを読み取って、それとファイルサイズをキーにして、ハッシュテーブルにファイルを登録していきます。写真のメタデータ（EXIF 情報）はファイルの先頭付近にあるので、大体これで区別できるかなと思ってますが、本当に 64 バイトというサイズが最適かは分かりません。</p> <h2>動作</h2> <p>で、このスクリプトを実行すると、すぐにファイルを消すのではなくてさらにシェルスクリプトを出力します。そのシェルスクリプトで、今度は UNIX の cmp コマンドを実行して、きちんとファイル全体を比較した上で、最終的に消去すべきファイルの一覧を出力するという 3 段構成になってます。</p> <h2>iPhoto での問題</h2> <p>で、実際にこれをつかって写真を消したんですが、iPhoto でみると、消したはずのサムネイルが残ったままになってたり、サムネイルがない代わりにその部分が空白になってしまいました。これはどうやったらなおるんだろう？</p> <p><a href="http://www.flickr.com/photos/torus/4246798823/" class="external">iPhoto のサムネイルが空白になってるスクリーンショット。</a></p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x200912/opakapaka.rd.html <p>少し前から Gauche を使って、チャットの CGI を作っていましたが、なんとなく動くようになったので <a href="http://github.com/torus/opakapaka/" class="external">Opakapaka と名付けて公開します</a>。少しタイプし辛い名前なので既に後悔していますが、まぁ開発コードだからいいや。ちなみにオパカパカとはハワイでよく食べられる白身の魚の名前です。</p> <hr class="seemore" /> <h2>概要</h2> <p>純粋に CGI スクリプトだけで動作します。なので、Apache や lighttpd などの CGI をサポートするウェブサーバがあれば、それ以外にデーモンプロセスやデータベースなどを起動する必要がありません。</p> <p>Comet あるいは long poll と呼ばれるテクニックを使っていて、（ほぼ）リアルタイムでチャットをする事ができます。</p> <p>すべてピュアな Gauche で書かれています。クライアント側で動作する JavaScript も、サーバ側で Gauche スクリプトが生成します。</p> <h2>動機</h2> <p>便利なウェブチャットのサービスだった <a href="http://lingr.com/" class="external">Lingr</a> がなくなってしまったので。</p> <h2>ダウンロードとインストール</h2> <p>Git コマンドを使って、github.com からソースコードをダウンロードしてください。シェルから次のように入力すると、最新のソースコードが取得できます。</p> <pre>git clone git://github.com/torus/opakapaka.git </pre> <p>このソースコードをウェブサーバ上において、ウェブサーバのプロセスがフォルダに書き込みできるように chmod または chown しておきます。</p> <p>これで完了です。ウェブブラウザから index.html にアクセスしてください。</p> <h2>特徴</h2> <h3>データファイル</h3> <p>チャットのデータはすべて S 式で記述され、テキストファイルに保存されます。このファイルが一定サイズに達すると、新しいファイルが作られます。最新のデータファイルには、CGI のディレクトリからシンボリックリンクが張られます。</p> <p>Opakapaka はデーモンプロセスを持たないために、メモリ内にデータを保持する事ができません。これにより、デーモンプロセスを管理する手間がなくなるので使うのが楽になりますが、たくさんのアクセスを高速に処理するのには向いていません。</p> <p>このデータ保存形式はあくまでも手軽さを追求した結果の選択ですが、将来必要があれば、データを保持するデーモンプロセスを作ってもいいかなと思っています。</p> <h3>データ読み出しプロセス（pull.cgi）</h3> <p>CGI のプロセスが起動されると、最新のデータファイルを監視して、更新が発生したらクライアントにデータを送り、プロセスを終了します。データファイルが更新されるまでは、最大で 30 秒間なにもしないで待ち続けます。</p> <h3>データ書き込みプロセス（push.cgi）</h3> <p>クライアントからチャットのデータが送られてくると、最新のデータファイルにチャットの内容を追記します。この際、同時に複数のクライアントから書き込みがあってもファイルが壊れないように、アドバイザリロックを使用しています。</p> <h3>クライアントサイドスクリプト（script.cgi）</h3> <p>クライアントサイドの描画はほぼすべて JavaScript でおこなっていますが、このスクリプトも S 式で記述され、実行時に JavaScript のソースコードに変換されます。</p> <p>Scheme で JavaScript のコードを生成する部分はいろいろと悩んでいて、最初の方に作ったマクロベースの API と、あとから思いついた関数型の API がまざっていて、この部分はかなりソースコードがぐちゃぐちゃです。</p> <p>S 式から JavaScript を生成する API は <a href="http://wiki.github.com/torus/opakapaka/js-module-reference" class="external">Wiki にまとめたので</a>良かったら見てみてください。</p> <p>たとえば、</p> <pre>(js `(window.onblur = (function () ,unread-count = 0 // ,active = false // window.onfocus = (function () ,d .. title = ,orig-title // ,active = true //) //) //)) </pre> <p>のような Scheme のコードによって、次のような JavaScript のコードが生成されます：</p> <pre>window.onblur = function () { $G370 = 0; $G371 = false; window.onfocus = function () { $G368.title = $G372; $G371 = true; }; }; </pre> <p>ここで、いくつかの内部変数が $G370 というような名前に変換されていますが、これは Scheme コードの別の場所で gensym を使って一意な識別子を作っているためです。このように gensym を使う事で、入れ子のマクロのような複雑なコード生成も安全にできます。</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/diary/x200911/getting-car.rd.html <p>数週間前に、ついに自動車を手に入れました。2005 年製、日産の SENTRA というモデルです。色は白です。週末になんどか、おどおどしながらも近所をドライブしてみたりしました。</p> <hr class="seemore" /> <h2>中古車を探す</h2> <p>アメリカは日本に比べると中古車がすごく高いらしい。ぼくは日本で車を持っていなかったので比較はできないんですが、アメリカでは 10 年ものの 10 万キロ以上走ったような車でも、平気で数千ドルの値段がつきます。</p> <p>アメリカで中古車を買うときは、ディーラーへ行って買うか、個人で売買するかどちらかを選びます。いずれも、ネットでかなりの情報が手に入ります。ぼくの場合は、アロハストリートというハワイに住む日本人向けのコミュニティサイトの掲示板を見て、今の車を売ってくれた人に連絡しました。</p> <p>とにかく値段の大きな買い物なので、言葉が通じない相手だと騙されたりしないか不安なのと、「日本人は車を大事にする」という噂を信じて、日本人から買う事に決めました。</p> <p>ハワイに限らず、海外のいろいろなところで、日本人のコミュニティというのはあるみたいですが、ぼくはハワイに来るまでは、いまいちその意義がよくわかりませんでした。なんでせっかく外国へ行くのに、また日本人だけで集まる必要があるのかな、と。でもやっぱり実際に来てみると、日本人の視点でアドバイスがもらえるのはとても貴重だなと思います。</p> <p>ただ、ハワイの場合は、少し年配の人になると日系二世（つまり両親が日本人）の人でも、日本語が全くわからない人もいます。これは昔は日本人は差別を受けていて、当時の日本人労働者は子どもたちが少しでも現地になじむように、わざと日本語を教えずに家の中でも英語を話そうとつとめていたからだと聞きました。</p> <h2>車を買う</h2> <p>基本的な中古車の相場はネットで調べると一発ででてくるので、だいたいそれにあわせて、車の状況などを考慮して値段を交渉します。相手は日本人だし、わりといい人だったので、それほどこじれる事もなく話がまとまりました。</p> <h2>車両登録</h2> <h2>保険の契約</h2> <p>（あとで書く。）</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/diary/x200910/drivers-license.rd.html <p>先週の月曜日にめでたく、ハワイ州の自動車の運転免許を取得しました。日本にいる間も免許は持っていなくて車なんか一度も運転したことがなかったんですが、なんとか試験に合格できました。</p> <hr class="seemore" /> <h2>仮免許</h2> <p>まずデリンハム（Dillingham）の試験場に行って、筆記試験を受けます。筆記試験が通ると、その場で仮免許証を発行してもらえます。で、仮免を持っていると、助手席に免許取得後 3 ヶ月以上の人を乗せていれば公道を走ってもいいというすごい決まりがあります。</p> <p>で、その筆記試験ですが、今年（2009 年）のはじめあたりまでは日本語の問題もあったそうですが、その後制度が改訂されて、英語のみになりました。試験問題は『イエローページ・ジャパン』というその辺で配っている無料の情報誌に全問載っているので、それを見て勉強します。ただ、イエローページには日本語の問題しか載ってなかったので、受験のときだけ頭を切り替えて英語で受けました。問題の日本語の文章が英語の直訳だったので、特に英語の表現で悩む事はありませんでした。</p> <p>イエローページ以外にも試験問題を入手する方法はいろいろあるみたいです。ぼくは、受験の数日前に、同僚の人に頻出問題がチェックしてあるバージョンの問題集をもらって、重要な問題だけ何度かおさらいしました。</p> <p>筆記試験を受けて、80% 以上合っていれば合格です。実際の試験は 30 問だけです。ぼくは 1 問だけ間違ってしまいました。問題をよく読まないで選択肢だけ見て答えちゃった。</p> <h2>個人教習</h2> <p>アメリカには自動車の教習所というのありません。で、ぼくの場合は、自動車の個人教習をやっている日本人の人に依頼して、1 回 2 時間のレッスンを全部で 6 回受けました。レッスンと試験に使う車は貸してもらえました。</p> <p>最初の 2 回は、あんまり車が走っていないカカアコ（Kakaako）公園の前の道で習いました。ここで右左折や一旦停止の練習などをやって、その次からはもういきなりロードテストのコースで練習です。テストコースにはもちろん信号などもあるし、結構交通量が多いので、どきどきしながらレッスンを受けました。</p> <p>ぼくは方向音痴なので、いつまでたってもコースが把握できずに困っていたんですが、ネットを探していたら親切に Flash を使ってコースの解説をしてくれているページを発見しました。 <a href="http://www.hawaiilovesyou.com/drivingtestmap.html" class="external">Hawaii Loves You ハワイ運転免許取得サービス　路上テストコースをフラッシュとマップで解説</a></p> <p>なかなかうまく運転ができなかったので、レッスンの度に胃が痛くて憂鬱でした。で、5 回目のレッスンの後、まだ少し自信がなかったので、もう 1 回追加してもらって、怒られながらもなんとか一通り運転できるようになりました。</p> <h2>ロードテスト</h2> <p>試験は月曜日の朝 8:00 からでした。試験の日は 6:45 に迎えにきてもらって、テストコースを 2 周回って最終確認し、それからテストを受けました。</p> <p>アメリカのロードテストは、自分の車で受けることになっています。ぼくのときは優しい女性の試験官で、たぶんちょっとおまけしてもらってぎりぎり 15 点で合格でした。点が多いほど悪くて、15 点がボーダーなのです。ロードテストが終わって駐車場に駐車すると、3 カ所あったマイナスポイントの説明を受けました。</p> <p>まあ何にしても合格したので、その後すぐに免許費用を払って、その場で写真を撮って、すぐに免許証が発行されました。</p> <h2>費用</h2> <p>レッスンは 1 回 $110（ただし最初の 2 回は $120、チップ含まず）、試験当日の立ち会いとかの費用が $270、受験料が $8、免許証発行費用は $24 でした。なんだかんだ言って $1,000 を超えましたが、日本で取るのに比べればそれでもだいぶ安いんじゃないかな。</p> <h2>車を手に入れる</h2> <p>まだぼくは車を持っていないので、これから自動車屋さんを回ったり、だれか車を譲ってくれる日本人を探したりして車を手に入れる予定です。アメリカでは中古車の値段が高いのですが、<a href="http://www.kbb.com/" class="external">Kelley Blue Book</a> というウェブサイトで中古車の値段の相場が調べられるので、それを見ながらぼったくられないように気をつけます。また、 <a href="http://www.carfax.com/" class="external">CARFAX</a> という自動車の事故歴などを照会できるサービスがあるので、そういうのを見て事故車をつかまされないようにするといいらしいです。</p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect --> http://torus.jp/memo/x200909/flex-and-flash.html <p>Flash で作ったムービークリップを Flex に埋め込んで、メソッドを呼び出す手順。 </p> <hr class="seemore" /> <h2 id="H-jcntl3">動機 </h2><p>Flex でロジックを実装し、見た目はデザイナーに Flash で作ってほしい。 </p><h2 id="H-ljic89">手順 </h2><p>すべて ActionScript 3.0 を使って記述する必要がある。 </p><h3 id="H-az1jc6">フォルダ階層 </h3><p>まとめると、フォルダ階層はこんな感じ： </p><ul><li>main.mxml </li><li>view/ <ul><li>view.fla </li><li>symbol.swc </li><li>SymbolClass.as </li></ul></li></ul><h3 id="H-1dn2855">Flash </h3><p>Flash でシンボルを定義し、クラスも定義して、さらに中にメソッドを定義したりする。 ここでは、SymbolClass という名前のクラスを定義するとする。 </p><p>このシンボルには、hoge_mc というインスタンス名のついたシンボルインスタンスが配置してあって、ActionScript はたとえばこんな感じ。 </p><pre> package { import flash.display.MovieClip; public dynamic class SymbolClass extends MovieClip { public function GetHoge():MovieClip { trace ("GetHoge: " + hoge_mc); return hoge_mc; } } } </pre><p>このシンボルを SWC ファイルとして書き出す。ここでは symbol.swc というファイル名で書き出す。 </p><p>このとき、シンボルのクラスを定義する .as ファイルは Flex からは読み込まないようにしたいので、mxml よりも 1 段階深いフォルダに Flash 関連のファイルを入れておく。 ここでは view というフォルダをこのために作っている。 </p><h3 id="H-miy4tf">MXML </h3><p>メインの MXML ファイルを main.mxml とする。 MXML 内の ActionScript から、SWC ファイル内のシンボルのインスタンスを作るには、単に </p><pre> var x:SymbolClass = new SymbolClass (); </pre><p>とすればよい。必要な定義はすべて SWC に含まれているので import とかは必要ない。 </p><h3 id="H-7hfsjb">MXML のコンパイル </h3><p>mxmlc コマンドの -include-libraries オプションで SWC ファイルを指定する。 </p><p>ただし、ここで view フォルダを -source-path に入れないこと。 mxmlc のソース検索パスに view を含めてしまうと、Flash で SWC を生成するときに、暗黙のうちに定義されるメンバにアクセスできなくなる。 </p><h2 id="H-yxc85o">その他 </h2><h3 id="H-13p1mqe">SWC 出力の自動化（訂正あり） </h3><p>Flash で SWC を出力するのは結構めんどくさいので、JavaScript を使って自動化する。 </p> <pre> var itemArray = fl.getDocumentDOM().library.items; var index = fl.getDocumentDOM().library.findItemIndex ("symbol"); // シンボル名 fl.getDocumentDOM().library.items[index]. exportSWC("file://C|/Users/toru/src/hoge/view/symbol.swc"); // 出力ファイル名 </pre><p>このスクリプトは <a bitly="BITLY_PROCESSED" href="http://svn.eionet.europa.eu/projects/FlashLibrary/browser/trunk/MapComponentsV5/jsfl/export2swc.jsfl">http://svn.eionet.europa.eu/projects/FlashLibrary/browser/trunk/MapComponentsV5/jsfl/export2swc.jsfl</a> を参考にしました。 </p> <p> <em>訂正</em>：実はこんなことをする必要はなくて、publish settings で、export SWC という項目をチェックすればいいだけでした。 </p> <h2>Comments</h2> <div class="comments-content"> <div id="tpc_thread"></div> <div style="display:none;" id="tpc_post_title"></div> <div style="display:none;" id="tpc_post_message"></div> <script type="text/javascript"> var TPConnect = {}; TPConnect.tpc_url = ''; TPConnect.tpc_title = document.getElementById('tpc_post_title').innerHTML; TPConnect.tpc_message = document.getElementById('tpc_post_message').innerHTML; </script> <script type="text/javascript" src="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/embed.js"></script> <script type="text/javascript" src="http://static.typepad.com/.shared/js/profile/blogside.js"></script> <noscript><a href="http://profile.typepad.com/services/embed/tpc/6a01156e9dbc2b970c01156f96e7e1970b/thread">View the entire comment thread.</a></noscript> </div> <!-- END TypePad Connect -->