nDiki : 2004年08月中旬

■ NSIS でインストーラを作ってみる。

NSIS 2.0 を Windows BOX に入れて、プログラムのインストーラを作ってみる。 今まで Windows 用のインストーラを作った経験はなし。

NSISをインストールしたディレクトリの下の Examples の中にある NSISスクリプト (.nsi) をコピーして、ちょこちょこっと編集。 エクスプローラでそのファイルを右クリックして出るメニューに 'Compile NSIS Script' というのがあるのでこれを実行するとインストーラが出来上がる。 簡単。

NSISスクリプトはちょっと繁雑だが、複雑な事をしないならば気をつけて編集すれば問題ないか。

wxPerl + PAR + NSIS でそれなりに格好がつくプログラムができそうだ。 コマンドライン用コンパイラもあるので、Makefile.PLから一発でできるようにしたい。

• 私的10大ニュース2004 [ comp ] (2004-12-31)
• ActivePerl で Ming (2005-02-23)
• NSIS 2.22 は Linux でビルドできず (2006-12-20)
• JRE をバンドルしたインストーラを NSIS で作る (2004-12-02)
• Linux 上で Windows 用インストーラを作成する (2004-10-14)

■ 過去の今ごろ

過去の8月11日より。

• ちょっと気合いをいれてカラーマッチング
  • (ほとんど使ってないんだけれど)新しいフィルムスキャナが欲しいな。しかし今買い換えるとするとPCもリプレースしないと性能が追い付かなさそう。デジタル一眼レフに触手が動かないのも、PCを含めた投資の必要性のせい。

• [ photo ] 東京都市計画事業環状第二号線新橋・虎ノ門地区第二種市街... (2004-01-10)
• 焼きが回って LC-A 購入 (2005-04-30)
• TC-1 のモルトがぽろり (2002-06-01)
• PIXUS MP980 で初フィルムスキャン (2008-11-08)
• 今日のさえずり - フィルムカメラがあったところに天体望遠鏡が鎮座 (2008-11-10)

■ Perl でテスティングフレームワークを書いてみる

一昨日 Scheme で書き始めたのだが、やはり不慣れな言語でTDDをやってみるのも大変。

ということでPerlでやってみる。やはり最初はこちらの方が楽。 Perl では「これだ」という xUnit が無い。

• Test::Unit : メンテナンス停止中
• Test::SimpleUnit : 不明
• Test::Class : Test::Builder 系のテストフレームワークが必要

WiKicker は Test / Test::Harness を使用する標準的なテストを採用しているが、fixture の処理が面倒に感じている。 なので何か良い xUnit が欲しいのだが、テストのためだけに要求モジュールを追加するのもよろしくないので簡易的なものを自作するのも悪くないかも。

TDDはリズム感があって良いな。 まだリファクタリングフェーズでどの程度リファクタリングしてから、次のレッドフェーズにはいるかの匙加減がまた掴みきれていない。

• [ WiKicker ] 日記機能開発開始 (2003-12-27)
• Perl CGI プログラムのテストには WWW::Mechanize::... (2006-02-18)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• www.naney.org サーバ断続的にダウン (2006-04-30)
• WiKicker と GNU GPL (2005-05-10)

■ 過去の今ごろ

過去の8月12日より。

• PORTER TRIP カメラケース ブラック (623-6489)
  • この間、自由が丘のヴィレッジヴァンガードでパチモンを発見。

• ヴィレッジヴァンガードで温度計付きデジタルクロックを買う (2004-11-23)
• 横浜ワールドポーターズ (2005-08-14)
• 昔 SurugadaiHotelProject があったところで Baby... (2005-08-15)
• 湯呑み茶碗 (2004-05-08)
• BOBLBE-E ANIARA に何が入るのか? (2005-05-22)

■ ガラス繊維系フッ素・ケイ素ポリマーコート剤 - Micro Solution Glass fiber CRYSTAL COAT #1

以前「ケータイWatch 本日の一品」で紹介されていた、マイクロソリューションのクリスタルコートを思い出した。

• なんでもコートして保護しよう 「Glass fiber CRYSTAL COAT #01」

先日買ったBOBLBE-E SAMに傷がつく前にコーティングをしておこうと思い、昼休みに秋葉原に買いに。 マイクロソリューションのページにある取扱店リストを見ると、マックコーナーに置いてあるところが多い。 秋葉原駅に近い秋葉館へ。

3,990円(税込)也。

箱は思ったより小さい。構成は

• CRYSTAL Coat/G-Liquid 80cc x 1
• 塗り延ばし高密度パフスポンジ x 1
• 拭き取り用・多目的不織布 x 1

となっている。不織布とあるが、タオル地の織りのようだ。

@ コーティングしてみる

さっそく SAM に塗ってみる。 近くから見てみるとすでに小さい擦り傷がついている。 まずは軽く水拭き。

それからハーネスなどにつかないように、ABS樹脂製のシェルの部分にスポンジで塗り不織布でのばしていく。 もともと艶のあるコーディングがされているので劇的にかわった感じはしないが、それでも綺麗になった感じがする。

ついでにデジカメ (DSC-U40) にも塗布してみる。 こちらは黒いボディが締まった感じ。 これが説明にある深い艶なのか。 スポンジに数プッシュしてから塗ったら、多すぎでデロデロ。さっさと拭き取り。 たしかに少量で充分のようだ。

コーディング皮膜が完全に効果するのは48時間後とのこと。 どれぐらいから実質使って問題ないぐらいになるのだろうか。 丸2日必要だとすると、PHSとかには塗るのはなかなかタイミングが難しい。

• CRYSTAL COAT #01
• キットカット

• BOBLBE-E ANIARA に何が入るのか? (2005-05-22)
• 今日のさえずり - ゲップが香るブルガリアンローズ(DHC) (2008-10-22)
• GRAPH GEAR セミハードタイプ デジタルカメラケース DGB-01... (2005-02-07)
• Gregory Padded Case Small (2004-04-03)
• SO905iCS ファーストインプレッション (2008-02-16)

■ 過去の今ごろ

過去の8月13日より。

• 3年ぶりに歯医者
  • 1年経つし前回詰めたところもすぐ欠けたみたいだしで、そろそろ行き時か。しかし毎年行くたびに少しづつ削られるとすると40年後とかどうなっているのか。

■ お盆休み

今年は実質1日のみ。

しばらく使ってない郵便局の口座に1000円投入して延命しておいたり、銀行へ行って記帳したり。

夏のボーナスの入金も確認。 純増。

• 有給休暇 - 納品前の忙しい時期ではありますが (2005-02-08)
• 夏のボーナス (2007-07-31)
• 夏のボーナス (2008-08-08)
• 金融機関めぐり (2004-09-24)
• 小切手からの入金 (2004-09-24)

■ PerlでScheme実装

最近ころころやる事が変わっているのだが気にしない。 どうせ Scheme をやるなら実装してみようかと。

とりあえず Perl で。パーサはParse::RecDescentで。 Parse::RecDescentを使うのは WiKicker のパーサの試作時以来で久しぶり。 R5RSの構文規則の一部を入力していろいろ実験。 再帰下降でうまく動くように、生成規則の順番を入れかえたりとか。 楽しい。

• [ WiKicker ] 通知メールの Subject: フィールドのエン... (2004-01-25)
• [ DiKicker ] Term DB の改良 (2004-06-12)
• 最後がピリオド(.)で終わるファイル名をつけられない (2005-04-19)
• 定型書式で内容を記述していくのに便利な形式は? (2005-11-21)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)

■ 過去の今ごろ

過去の8月14日より。

• Windows 98 再インストール
  • 自宅のPCはまだ Windows 98 SE。今さらOS買うのも何だしなぁ。2000以降でないと試せないプログラムとかも増えてきたので困るといえばちょっと困る。

• QEMU を使って Debian GNU/Linux 上で Windows... (2005-04-08)
• Synergy (2002-11-14)
• CD-R ドライブが使えない (2006-07-27)
• Unison で Windows 間 sync (2003-10-24)
• 22:00 HDD交換 (2001-09-21)

■ 役に立たないプレゼント

会社で8月が誕生日の人が続々と。

役に立たなさそうな物を探しに新宿へ。 東急ハンズや高島屋とか伊勢丹とか。 デパートは役に立つものが多くて困る。

自由が丘とかで雑貨屋を巡った方がよかったかな。

東急ハンズで1品購入。もう一人のは結局決まらず。

• 湯呑み茶碗 (2004-05-08)
• 今日も新宿 (2005-11-05)
• 包丁買ったりアルバム買ったり (2006-05-27)
• 今日のさえずり - 会社がザ・リッツ・カールトンに思えた (2008-04-27)
• 偉い人にはそれがわからんのですよ (2005-04-14)

■ ブリス

東急ハンズにて

• ブリス

カー用品。 CRYSTAL COAT #01とほぼ同じっぽい。だとするとこちらの方がお得。

• 私的10大ニュース2004 [ misc ] (2004-12-31)
• ミニビアサーバー (2002-06-01)
• [ レザークラフト ] ツールボックス購入。 (2004-03-14)
• フルハルターで頼んでいたスーベレーンM400がついにできた (2005-12-11)
• 岩合光昭写真展「ホッキョクグマ」〜極北の大地から〜 (2004-04-29)

■ 過去の今ごろ

過去の8月15日より。

• らおう
  • ここ数年緑茶系飲料の種類が増えたせいか、烏龍茶を飲む機会が随分減ってしまった。煌は最近見かけない気がするけどまだ製造しているのかな?

• 焼きが回って LC-A 購入 (2005-04-30)
• スターバックスにないスターバックス? スターバックスにある高梨乳業。 (2005-10-15)
• 白くまくんのセンサー部分交換 (2008-09-06)
• TOTO の便座がやってきて、ファースト立ちション (2007-02-17)

■ 青山学院大学

今年もとある下見で青山学院大学へ(去年)。 今日は門が閉まっていた。

で今年も宮益坂を下って渋谷へ。 東急東横店をちょっとのぞいておしまい。

• オウム真理教青山総本部跡 (2003-02-15)
• 焼きが回って LC-A 購入 (2005-04-30)
• 奥様に人気の KINOKUNIYA エコロジーバッグ (2006-04-22)
• BOBLBE-E SAM 2nd edition (2004-08-08)
• モンベルクラブ渋谷店 (2004-08-07)

■ 過去の今ごろ

過去の8月16日より。

• ショッピング
  • InterLink に挿したら本体が死んで修理行きになっていた。何が悪かったんだろう。

• 今日のさえずり - ありがちだが、もうすぐ修理屋がくるというところで換気扇... (2007-10-22)
• 革靴のアウトソール交換 (2005-08-20)
• パワリレー交換で帰ってきた ONKYO のコンポ (2006-10-01)
• フルハルターで頼んでいたスーベレーンM400がついにできた (2005-12-11)
• TC-1 復活! (2003-05-20)

■ ぼちぼちと Scheme 処理系実装中

書いてみていろいろ見えてくることが。

• R5RS における syntax と procedure。program と datum。
• 数の内部表現をどうするか。integer は Math::BigInt を使うとしよう。rational とかはどうしようか。

• PerlでScheme実装 (2004-08-13)
• 過去の今ごろ (2004-06-10)
• 新入社員 (2004-04-16)
• Scheme でプログラムを書く (2004-08-09)
• Perl で lex/yacc (1999-01-20)

■ 過去の今ごろ

過去の8月17日より。

• 靴新調
  • 結局やっぱり現在もこの1足のみ。2足以上でローテーションを組むべきなのだが、置く場所もそんなにないしなぁ。

■ ActivePerl 5.8.4 + PDL 2.4.1

挑戦するも、やはりビルドできず。

• [ Perl ] PDL::PP で C extension を書く (2004-02-19)
• PPM パッケージのインストールではまる (2001-12-25)
• SQLite とか DbUnit とか (2005-05-23)
• nmake で毎回 pl2bat されるのを何とかしたい (2004-11-25)
• Template Toolkit (2004-09-08)

■ Linux Feed Reader Liferea

RSS巡回用に入れてみる。

とりあえず NaneyOrgWiki とはてなアンテナのRSSを登録。 これだけだとあまり良さがわからないな。 記事自体がRSSに含まれていれば、それなりに面白いのかもしれないが。

WiKicker では description に WikiPage 上部の数行を概要として出力しているのだが、ここはページの変更部分をのせた方が良いのかもしれない。

• [ WiKicker ] textarea ビヨーン (2004-02-04)
• [ WiKicker ] 続L10N改善と、ページ名リスト処理の高速化 (2004-05-29)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• [ WiKicker ] RCSファイルのリビジョン間引き (2004-04-04)
• mixiに登録 (2004-11-19)

■ 過去の今ごろ

過去の8月18日より。

• www.naney.org 開設!
  • はや4年。

■ [ お仕事 ] もろもろの名目の飲み会

• 社長の誕生祝い
• 本社から1ヶ月出張してきていて明日戻るスタッフの慰労会
• 明後日終了するインターンの慰労会?
• (個人的には、先週終えた納品の打ち上げ)

ということで飲み会。 今日突然声をかけた人もいたのだが、ほぼ全員出席。

本日は「ビヤステーション両国」。ニュー・トーキョー・グループ。 氷川丸船上ビアガーデンもニュー・トーキョー・グループだったのか。

地ビールを1杯。料理もなかなか良かった。スタッフは切れ悪し。

社長へのプレゼントは何にするか先週からずっと迷っていたのだが、なかなか決まらず。 役に立たなくて喜ばれるものは難しい。 今日の昼休みに(ここなら洒落たものがあるだろうと)ヤマギワリビナ本館へ行ってみたところ、ちょうどいい感じのブツを発見。これに決定。 喜んでいただけたようなので満足。

• 今日のさえずり - ホームレスグーチョコランタン (2008-10-27)
• 新人歓迎会 (2005-04-12)
• 第12回産業用バーチャル リアリティ展第3日目 (2004-06-18)
• 世代間グループ化されてきた? 歓迎会 (2006-04-13)
• 今日のさえずり - 会社がザ・リッツ・カールトンに思えた (2008-04-27)

■ [ お仕事 ] 事後評価セッション

プロジェクトを終了したので事後評価セッションを行う。

• Subversion の導入
• TeX化

が評価された。会社勤めで TeX を使っていられるのは幸せ。

• Rekisa で TortoiseSVN から日本語ファイルの差分表示 (2006-03-23)
• TeX と Subversion (2004-04-16)
• プロジェクト関連ドキュメントを TeX で (2004-07-23)
• Subversion - auto-props (2004-05-18)
• すごいKPT事後評価セッション (2005-10-07)

■ [ WiKicker ] 特定ユーザの書き込み禁止

wiki の方に継続的に不適切なコメント投稿をするユーザがいる。 その度に手作業で削除しているのだが、気にしない様子。

しょうがないので書き込めないように。 IP アドレスは毎回変わっているので、ユーザのIDベースで。

今のところハードコーディングだが、そのうち整理して設定ファイルに登録できるようにするか。 こういう機能を実装しなければならないのは、ちょっと心苦しい。

• ノート PC で Apache Virtual Host (2004-12-15)
• [ WiKicker ] 書き込みをパターンでチェック (2004-12-13)
• Win32 で WiKicker が落ちるのは binmode の設定忘れのせい (2005-04-18)
• mixiに登録 (2004-11-19)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)

■ 過去の今ごろ

過去の8月19日より。

• ギリシア/ギリシャ
  • NHKの第28回オリンピック競技会アテネ大会のページも表記は「ギリシャ」。

• 今年の花粉は楽だった (2008-05-03)
• 今日のさえずり - 紳士服屋の完全閉店は信用ならない (2008-06-14)
• Debian (不安定) (2005-02-03)
• 帰省土産は大丸東京店で (2008-08-10)
• ギリシャ新婚旅行4日目 (2001-09-06)

■ ActivePerl 5.6.1 Build 638 にバンドルされているモジュールとライセンス

ExtUtils::Installed でリストアップしてチェック。

'*' は Copyright.html で オリジナルがオープンソースのものとして列挙されているもの。 'o' は列挙されていないが、オリジナルが Perl と同じライセンスか The Artistic License のもの。 'a' は ActiveState の Copyright があるもの (ActiveState Community License)。 それ以外は明記がないもの。

PAR でパッケージ化するには、Perl と同じライセンスの(あるいは再配布の問題のないもの)もののみストールしてある状態にしておき、PAR 化した中身に

• ActivePerl/*
• ActiveState/*
• PPM/* (一部)
• ppm-conf/*
• Win32/AuthenticateUser.pm

が含まれていないかをチェック。

• 自前 PPM リポジトリの管理 (2006-07-03)
• PAR + ActivePerl で実行形式ファイルを作った時のライセンスは? (2004-07-21)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• PAR に関する ActivePerl のライセンス (2006-06-16)
• RPC::XML のかわりに XMLRPC::Lite (2004-08-31)

■ Module::CoreList

Perl に標準バンドルされているモジュールが、どのバージョンで提供されるようになったかの情報をチェックすることのできるモジュール。

corelist というユーティリティが付属している。

@ チェックできるPerlバージョンの一覧

 corelist -v

 Modue::CoreList has info on the following perl versions:
 5.00307
 5.004
 5.00405
 5.005
 5.00503
 5.00504
 5.006
 5.006001
 5.006002
 5.007003
 5.008
 5.008001
 5.008002
 5.008003
 5.008004
 5.008005
 5.009
 5.009001

@ 各Perlにバンドルされている CGI モジュールのバージョン

 corelist -a CGI

 CGI  was first released with perl 5.004
   5.004      2.36
   5.00405    2.42
   5.005      2.42
   5.00503    2.46
   5.00504    2.46
   5.006      2.56
   5.006001   2.752
   5.006002   2.752
   5.007003   2.80
   5.008      2.81
   5.008001   3.00
   5.008002   3.00
   5.008003   3.01
   5.008004   3.04
   5.008005   3.05
   5.009      3.00
   5.009001   3.04

@ Perl 5.005_03 にバンドルされているモジュール

 perl -MModule::CoreList \
   -e 'print join("\n", map { "$_ $Module::CoreList::version{5.00503}{$_}" } sort keys %{$Module::CoreList::version{5.00503}})'

 AnyDBM_File
 AutoLoader
 AutoSplit 1.0303
 B
 B::Asmdata
 B::Assembler
 B::Bblock
 B::Bytecode
 B::C
 B::CC
 B::Debug
 B::Deparse 0.56
 B::Disassembler
 B::Lint
 B::Showlex
 B::Stackobj
 B::Terse
 B::Xref
 Benchmark
 CGI 2.46
 CGI::Apache 1.1
 CGI::Carp 1.13
 CGI::Cookie 1.06
 CGI::Fast 1.01
 CGI::Push 1.01
 CGI::Switch 0.06
 CPAN 1.48
 CPAN::FirstTime 1.36
 CPAN::Nox 1.00
 Carp
 Class::Struct
 Config
 Cwd 2.01
 DB_File 1.65
 Data::Dumper 2.101
 Devel::SelfStubber 1.01
 DirHandle
 Dumpvalue
 DynaLoader 1.03
 English
 Env
 Exporter
 ExtUtils::Command 1.01
 ExtUtils::Embed 1.2505
 ExtUtils::Install 1.28
 ExtUtils::Installed 0.02
 ExtUtils::Liblist 1.25
 ExtUtils::MM_OS2
 ExtUtils::MM_Unix 1.12602
 ExtUtils::MM_VMS
 ExtUtils::MM_Win32
 ExtUtils::MakeMaker 5.4302
 ExtUtils::Manifest 1.33
 ExtUtils::Mkbootstrap 1.14
 ExtUtils::Mksymlists 1.17
 ExtUtils::Packlist 0.03
 ExtUtils::XSSymSet 1.0
 ExtUtils::testlib 1.11
 Fatal 1.02
 Fcntl 1.03
 File::Basename 2.6
 File::CheckTree
 File::Compare 1.1001
 File::Copy 2.02
 File::DosGlob
 File::Find
 File::Path 1.0401
 File::Spec 0.6
 File::Spec::Mac 1.0
 File::Spec::OS2
 File::Spec::Unix
 File::Spec::VMS
 File::Spec::Win32
 File::stat
 FileCache
 FileHandle 2.00
 FindBin 1.42
 GDBM_File 1.00
 Getopt::Long 2.19
 Getopt::Std 1.01
 I18N::Collate
 IO
 IO::File 1.06021
 IO::Handle 1.1505
 IO::Pipe 1.0902
 IO::Seekable 1.06
 IO::Select 1.10
 IO::Socket 1.1603
 IPC::Msg 1.00
 IPC::Open2 1.01
 IPC::Open3 1.0103
 IPC::Semaphore 1.00
 IPC::SysV 1.03
 Math::BigFloat
 Math::BigInt
 Math::Complex 1.26
 Math::Trig 1
 NDBM_File 1.01
 Net::Ping 2.02
 Net::hostent
 Net::netent
 Net::protoent
 Net::servent
 O
 ODBM_File 1.00
 OS2::ExtAttr 0.01
 OS2::PrfDB 0.02
 OS2::Process 0.2
 OS2::REXX
 Opcode 1.04
 POSIX 1.02
 Pod::Functions
 Pod::Html 1.01
 Pod::Text 1.0203
 SDBM_File 1.00
 Safe 2.06
 Search::Dict
 SelectSaver
 SelfLoader 1.08
 Shell
 Socket 1.7
 Symbol 1.02
 Sys::Hostname
 Sys::Syslog
 Term::Cap
 Term::Complete
 Term::ReadLine
 Test 1.122
 Test::Harness 1.1602
 Text::Abbrev
 Text::ParseWords 3.1
 Text::Soundex
 Text::Tabs 96.121201
 Text::Wrap 98.112902
 Thread 1.0
 Thread::Queue
 Thread::Semaphore
 Thread::Signal
 Thread::Specific
 Tie::Array 1.00
 Tie::Handle
 Tie::Hash
 Tie::RefHash
 Tie::Scalar
 Tie::SubstrHash
 Time::Local
 Time::gmtime 1.01
 Time::localtime 1.01
 Time::tm
 UNIVERSAL
 User::grent
 User::pwent
 VMS::DCLsym 1.01
 VMS::Filespec
 VMS::Stdio 2.1
 attrs 1.0
 autouse 1.01
 base
 blib 1.00
 constant 1.00
 diagnostics
 fields 0.02
 integer
 less
 lib
 locale
 ops
 overload
 re 0.02
 sigtrap 1.02
 strict 1.01
 subs
 vars
 vmsish

• FreeBSD と Apache::Htpasswd (2006-03-02)
• 専用サーバに移りたい (2005-11-13)
• WiKicker に JSON でのページ出力機能を追加 (2007-04-03)
• Perl CGI プログラムのテストには WWW::Mechanize::... (2006-02-18)
• Perl で CR/LF/CRLF 全対応の1行毎読み込み処理 (2006-07-28)

■ 過去の今ごろ

過去の8月20日より。

• 関心空間
  • ほとんど放置状態。最初のころは、かなりウォッチしていたんだけど。

■ [ お仕事 ] インターン最終日

先月から1ヶ月間のインターンシップ終了日。1時間ほど報告会をしてもらう。

来た当初はプログラミングのスキルもまだまだでどうなるものやらと思ったが、期間をそれなりにそれなりに成長したようだ。

• 歓迎会の昼食会 (2006-02-08)
• 新人歓迎会 (2005-04-12)
• 過去の今ごろ (2004-08-09)
• [ お仕事 ] もろもろの名目の飲み会 (2004-08-18)
• インターンは Vine 使い (2004-07-21)

■ [ Perl ] blib モジュール

wxPerl のサンプルを見ていて blib モジュールなるものを知る。 5.004 から既にあったもので、にカレントディレクトリ下の blib (あるいはいくつか上の階層にある blib )を @INC に追加してくれるモジュール。

 PERL5LIB=blib/lib:blib/arch blib/script/myscript

とするかわりに

 perl -Mblib blib/script/myscript

のようにスクリプトを実行できるようになる。

• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• Perl スクリプトを PAR ファイルにして PAR リポジトリに登録する (2006-12-15)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• 「依存関係検査のしにくいモジュール」に依存するスクリプトをPARで実行形式化する (2005-03-08)
• [ Perl ] PDL::PP で C extension を書く (2004-02-19)