bitWalk's

2012 年一年の計

2012-01-01T20:20:00.007+09:00

8 月にブログを更新してから、気がつけば年が変わってしまっていました。今や週末プログラマである私の進捗は、牛歩のごとくで遅々として進みません。それに、日々の仕事に追い立てられ、ブログの更新に関してはすっかり怠け癖がついてしまいました。

それでも、自分が納得できる統計計算用アプリケーション実現に向けて少しずつではありますが進展はあるのです。GUI の部分を Tcl/Tk で作る、という考えから、Java でいこうと考えを変えたのが、2011 年の 5 月の連休のこと。その後、基本となるアプリケーションのフレームワークを決めるに際して、Java に関する知識不足を補強するため、情報の整理を始めています。

Java - Workshop Complex at bitWalk

使用環境は相変わらず OS に Fedora を使っており、Java のバージョンは現時点で以下の通りになっています。

Java の基本的なプログラミングについてまとめようとすると、情報量が膨大で出口が見えず、いつまで経っても終わりません。それに自分がそのような情報をまとめなくとも、良質な Java のプログラミング情報は巷にたくさんあるので、何を今さら、という気がしないでもありません。そこで、自分が興味のある GUI の情報だけに絞って、AWT と Swing の情報だけでも、と始めてみました。それでも情報量が多いため、網羅できるのはまだまだ先になりそうです。

Android のプログラミングや JavaFX など、Java に関連する話題に対して興味のおもむくままに首を突っ込んでいるので、話題の方向は常に発散気味です。

今日は元日なので、一年の計を立てようと思います。

拡張可能な統計計算用アプリケーションの GUI フレームワークを完成させる。
Java による統計・数値計算ライブラリの情報を充実させる。

二番目の統計・数値計算については、今まで C や FORTRAN を中心に情報を集めていましたので、今年は Java に特化して情報を集めていこうということです。本ブログでは、相変わらずの不定期にではありますが、こういった情報を中心に発信していきたいと考えています。

本年もどうぞ宜しくお願いいたします。

8 月連休の成果

2011-08-22T09:38:00.010+09:00

今年の会社の夏期休暇は 8/13 - 8/21 の 9 日間もあり、さらに 8/22 を有休にしてしまいました。5 月の連休で、重回帰分析のための ContourMap 実現に目処がついたので、次はアプリケーションとして利用するためのプラットフォーム作りに取り組もうと考えていました。ContourMap を作成するだけの単機能なアプリケーションではなく、基本的な統計解析をこなし、自分の趣味に合ったグラフを作成してくれるようなツール、加えて ContourMap を存分に活用できる実験計画法などのアドバンスな解析にも対応できるようにすることが目標です。

ともあれ、まずは簡単なグラフ、手始めにトレンドグラフを作成できるツールを作ることをこの夏期休暇の目標としました。しかし振り返ってみると、この目標はハードルが高かったように思います。なにがしかのグラフを作成するにはデータが必要になります。したがってスプレッドシート状のテーブルを用意したくなります。そうするとデータやグラフなど複数のウィンドウを扱うことになるので、汎用的な使用に耐えるベースとなる GUI を用意しておかなければなりません。

GUI の構成としては、MDI にするか、タブで切り替えるか、あれこれ悩み、結局両方とも利用することにしました。一式のデータセットに対して、ひとつの子ウィンドウを割り当て、その中でタブを切り替えてグラフや解析結果を表示する、という作りです。まともな仕様を決めずに試行錯誤を重ねてしまったため、この基本的なウィンドウ制御を作り込むのに、休みの大半を費やしてしまいました。休みの成果として、せめてグラフらしいものを表示したいと、最後の日曜日に突貫工事でトレンドグラフを表示できるようにしました。グラフを描画するプログラムを書くより、ウィンドウ制御のケアの方が、はるかに時間がかかっています。現状は以下のような出来です。

まずは、サンプルのデータを読み込んだ状態。今のところ CSV 形式のファイルしか読み込めません。

トレンドグラフを描画した状態。まだ未完成です。目盛の表示処理に時間をかけた割には、出来が今ひとつ。グラフタイトルや軸ラベルの表示がまだできていないし、グラフを編集するためのツールボックスが欲しい。グラフを画像出力できるようにする機能が最低限必要ですが、未対応です。簡単にコピペできるともっといいのですが…。

グラフに求める機能が多すぎて、納得できるレベルまで持っていくのには時間がかかりそうです。9 月の連休には、少し前進したいですね。公開できるようなレベルの完成度になるのはいつのことか、道のりは長い…。

ちなみに以下は Windows 上で実行した例です。Look & Feel はケアしていませんが、マルチプラットフォーム対応は必要条件です。

「太陽系はここまでわかった」を読んで

2011-06-29T21:19:00.011+09:00

IT 関係の本ではありませんが、宇宙探査とそれにまつわる技術開発のロマンを感じた本でした。宇宙探査の話は IT と結構密接な関係があったりもしますが、本書は半導体技術と探査機との関係をフォーカスしているわけではないので、結構気楽に読みこなせます。嬉しいことに 2011 年の文庫本化の際に、著者の加筆修正が加わった最新の内容になっています。

最近の宇宙探査の話題は、インターネットなどで断片的にしか確認していなかったのですが、本書を読むことで歴代の探査から現在まで一気に系統立てて成果を確認できてしまいました。報道ではあまり伝えられていないかもしれない NASA や JPL のチャレンジや失敗もなかなか興味深かったです。決して専門的過ぎるということではないのですが、ほど良く専門的な内容がちりばめられていて、しかも無理に易しい用語を選んで説明しようとはしていないところに却って好感が持てました。

太陽の章から始まり、おおむねそそれぞれの惑星のことを一つの章として順番に解説されています。最終章は冥王星カイパーベルトです。ここで太陽系外惑星の発見についてもページが割かれています。個人的には、お隣の惑星である金星と火星の章が特に面白く読めました。

子供の頃、朝刊の一面を飾ったヴァイキング一号が送ってきた火星の地上の画像は、それが単なる（着色処理がされている）赤茶けた荒地であれ、遠く宇宙空間を隔てた隣の惑星から送られてきた画像ということで、その技術の凄さに衝撃を受けたことを今でも憶えています。その後、火星探査は何度も繰り返されたにも関わらず、新しい発見に対する感動はだんだんと薄れてきてしまいました。やはり生命が存在する可能性が極めて低いからでしょうか。

生命の存在可能性という点では、木星の衛星探査の話も興味深かったです。地球外生命体はまだ発見されていないけれど、我々地球は宇宙で、いや太陽系内でただ一つの生命を育む惑星ではないことを、そう遠くない日に発見できれば…、夢が膨らみます。

Contour Map - 5 月連休の成果

2011-05-07T08:59:00.020+09:00

4 月 30 日から始まった（私の）今年の 5 月の連休も、残りあと 2 日となりました。そろそろ、通常の生活リズムに戻さないといけません。今回の連休では、Fedora 15（ベータ版）のクリーンインストールの他に、もうひとつ取り組みたいことがありました。それは、Contour Map（等高線図）を描くプログラムを作ることでした。

等高線図と言うと、地図の等高線図を想像するかもしれませんが、今回、興味があったのは、汎用の等高線図描画プログラムを作ることではなく、既知の複数の関数、特に高々 2 次の多項式 z = f(x, y) を、等高線図にして重ね合わして表示できるプログラムを作ることでした。具体的には、例えば参考文献 [1] や [2] に示されているような RSM (Response Surface Methodology, 応答曲面法) を利用した統計解析をするための、基本プログラムを作ることです。ポピュラーなデータ分析ツールの一つである JMP^[3] でも、応答曲面を扱う機能があります。会社では JMP も使っていますが、個人で買うには高価ですし Linux は適用外です。それに、個人的には JMP のこの機能には満足していません。

昔、RSM を利用した実験および解析をするのに、BBN RS/Discover, RS/Explorer というソフトウェアを VAXstation や Sun OS のワークステーション上で使っていました。いつの頃の話だと言うぐらい古い話です。実験して最適解を探し出したいエンジニアにとって、痒いところに手が届く、大変よくできた素晴らしいソフトウェアだったのですが、残念なことに今は販売されていないようです^[4]。そもそも、べらぼうに高価なソフトウェアでした。RPL (RS Programming Language) という言語が利用でき、半導体製造ラインのデータを収集して、統計処理をすることに威力を発揮しましたが、そんなことは、今時のソフトウェアであれば選択肢がいくらでもあります。しかし、応答曲面法の解析の部分については、使いやすさを含めて、期待を上回るソフトウェアに出会っていません。

このように興味のある機能が限定的であるので、いっそ、自分で作ってしまおうと考え、ずーっと取り組んでいます。いまだに Tcl/Tk と付き合っているのも、根底には Contour Map をはじめとしたグラフを GUI 化しやすいプログラミング言語を常に使えるようにしておきたい、という思いがあるからです。実際、Contour Map を描画するプログラムは、Tcl/Tk と C 言語を組み合わせて、何年も前から何度も作ってきました。しかし、何度作っても納得できるプログラムにならず、発展させることができませんでした。とにかく、コーディングが美しくないのです。お客様に期限までに納品しなければならないような場合、それでもなんとか使い物になるレベルまで仕上げなければなりませんが、幸い、そういう縛りはありません。本件は、自分が納得できるプログラムに仕上げることがとても重要なのです。

今回はプログラミング言語を Java に変えてみました。プログラミング言語を変えても、基本的なアルゴリズムが変わるわけではありませんので、同じといえばそうなのですが、やはりクラスに機能をまとめると、幾分すっきりしたプログラム構成になります。Java での計算速度を心配していましたが杞憂でした。全然ストレスを感じません。実行例を下記に示しました。

この連休中のマイルストーンは、複数の任意の 2 次多項式

z = f(x, y) = c₀ + c₁x² + c₂x + c₃xy + c₄y + c₅y² （ただし c₁ ≠ 0, c₅ ≠ 0）

を Contour Map で表現することでしたので、所期の目的は達成できたことになります。

しかし残念ながら、以前 Tcl/Tk と C 言語で作ったときと同様に、IF 文だらけで重複した処理がごちゃごちゃたくさんある、という作りは変わっていません。今後時間をかけて整理していきます。今年のお盆の連休に、なにか公開できるようなレベルになっているといいな。（気の長い話です。）

余談ですが、Fedora 15 の新しい Gnome 3 デスクトップの操作にも慣れてきました。画面を切り替えるのに Alt + Tab の使用頻度が激増です。

参考文献

[1] Application of Response Surface Methodology to Evaluation of Bioconversion Experimental Conditions
[2] (株)日科技研：応答曲面法(RSM) 一特性の最適化とは（実験計画法） | 機能・手法一覧
[3] JMP -- 探索的統計解析ソフトウェア | データ分析 - 統計 - Six Sigma - 実験計画法（DOE）
[4] ジーリンクシステムコンサルティング株式会社

Fedora 15 Beta リリースをインストール

2011-04-30T15:31:00.014+09:00

私が勤めている会社の場合、今年は 4 月 30 日から連休、いわゆるゴールデンウィークが始まりました。この時期は新しいリリースの Fedora をクリーンインストールすることが年中行事のようになってしまっています。できることであれば、RC 版か正式版をインストールしたいのですが、Fedora 15 はまだベータ版までしかリリースされていません。ある程度のトラブルは覚悟して、ベータ版をメインの 64 bit 機にインストールしてみました。

デスクトップ用途でインストールしてログインするとビックリです。VMware Player でアルファ版を試用していたときは気がつきませんでしたが、画面がまるでスマートフォンです。^†
^†今回、ベータ版をインストールして確認をしましたが、どうやら、私の VMware Player の環境では Gnome 3 shell が正しく起動できていないようです。

最近の Linux のデスクトップ事情にすっかり疎くなってしまった感があります。日経 Linux とか読まないと時流に追いついていけないのかな？いや、ただ単に Gnome 3 の情報に疎いだけかも…。

まだ使いにくいのですが、慣れれば苦にならなくなるでしょう、きっと。

インストール後に気になったことは、有線ネットワークがデフォルトで有効になっていなかったことです。ネットワークが使えるものだと信じ込んでいたので、パッケージのアップデートができず慌てました。

参考サイト

[1] 2. Fedora の変更点 - デスクトップユーザー向け
[2] GNOME 3 - Made of Easy
[3] Linux Daily Topics：2011年4月5日　Fedora 15のGNOME 3は慣れるまでに時間がかかるかも
[4] GnomeShell/Tour - GNOME Live!

NaTcl を試す

2011-04-15T22:20:00.004+09:00

NaTcl -- Native Client Tcl Module は、Chrome の Native Client (NaCl) サンドボックスで Tcl スクリプトを走らせ、HTML5 の canvas に直接アクセスすることができます^[1]。

Google の Native Client (NaCl)^[2]を利用すると、Webブラウザからネイティブコードを安全に実行することができるのだそうです。そういえば、Chrome でネイティブコードが実行できるようになるなんて話が確かにありましたが、恥ずかしながら、すっかり忘却の彼方です。そういうわけで仕組みが解っていないのですが、とにかくインストラクションにしたがって動かしてみました。

使用した環境は、Fedora 14 (x86_64) 上の Google Chrome 11.0.696.43 beta です。

まず、Google Chrome で URL に about:flags を入力して「試験運用機能」の画面を表示します。そこで、ネイティブクライアントを有効にします。

一旦、Google Chrome を全て終了し、コンソール上で google-chrome を --no-sandbox オプションをつけて起動します。

起動した Google Chrome で、参考サイト[1] をサクセスすると、以下のように Google の図形が表示され、マウスのポインタを近づけると、それに応じたアニメーションを見ることができます。

まだ NaTcl を使いこなすことはできませんが、ちゃんと使いこなせばおもしろいことができそうです。今後、Tk widget が動く NaTk というのも使えるようになるということで、第二の Tcl Plugin とも呼べる環境で Web プログラミングが楽しめるようになりそうです。

参考サイト

[1] NaTcl : Tcl in Nacl
[2] Native Client SDK - Google Code
[3] Tcl Announces NaTcl: Native Client Tcl - Slashdot

ReactOS 0.3.13

2011-04-03T18:49:00.000+09:00

3 月 22 日付で ReactOS 0.3.13 がリリースされていました^[1]。VMware 用のイメージをダウンロードして、VMware Player で起動してみました。

リリースノート^[2] によると、

ダイナミックビデオモードスイッチの実装とグラフィックスドライバの互換性向上
いくつかのグラフィクスの問題を修整
完全に作り直された、デバッグができるヒープマネージャー
オーディオミキサーラインの管理を向上
ユーザーのサブシステムにおける深刻なバグを解消
Firefox や Thunderbird などのアプリケーションにおけるビジュアルアーティファクツ(?)の修整
インストーラのバグをいくつか修整
あらたなアプリケーション対応

Stellarium 0.10.2
LHelp
winpcap
FlashPlayer 10.1
Mono 2.8
OllyDbg 1.10
Xenon 2000
VLC 1.1.5
Foobar 2000
Skype 4.0.0

対応する SATA デバイスを増やした。
メモリーマネージャーにおける数多くの改善

気のせいかもしれませんが、動作が前よりきびきびしているように感じます。ReactOS が安定し、主要なアプリケーションを動かせるようになったら、廉価な PC あるいは中古の PC を買ってテスト機として使ってみたいものです。いよいよ次のリリースは 0.4 の番号が付くかもしれません。

参考サイト

[1] Frontpage - ReactOS ウェブサイト
[2] The ReactOS team is proud to announce the release of ReactOS 0.3.13.

Fedora 15 Alpha リリースを試す

2011-04-02T18:12:00.007+09:00

Fedora 15 の Alpha リリース^[1] をインストールしてみました。正式なリリースまで待ちきれませんでした。
ちなみに正式なリリースは、リリーススケジュール^[2] によると、今日時点で、当初の予定より 2 週間遅れて 5 月 24 日となってしまっています。

Fedora 15 Alpha のリリースノート^[3] によると、今回のリリースの主な目玉は次のようになっています。

GNOME 3
LibreOffice
systemd
Dynamic Firewall
DNSSEC for workstations
KDE 4.6
BoxGrinder
...

DVD のイメージ (i386) からクリーンインストールをした後、パッケージをアップデートしました。その状態のスクリーンショットを紹介します。そのため、インストーライメージからインストールした直後の状態とは異なっています。
【ご注意】Fedora 15 Alpha リリースの今日時点でのスクリーンショットですので、正式リリースでは異なる可能性があることをご理解ください。

まずログイン画面です。背景のイメージは相変わらず寒色系ではありますが、抽象的な幾何学的、鋭角的デザインは影をひそめ、ずいぶん親しみやすい具体的なイメージになっています。

ログイン後の画面です。一瞬、Ubuntu 10.10 の Gnome デスクトップかと思ってしまいました。システム設定のメニューが、メニューバーの右側に移っています。デスクトップ上のアイコンは（デフォルトでは）無くなりました。

システムの設定は Windows のコントロールパネルのように一つにまとまりました。それぞれのアイコンはワンクリックで起動します。

オフィススイーツは、OpenOffice.org から LibreOffice に変更になっています。なかなか早い対応にビックリです。

ちなみに MinGW クロスコンパイラのパッケージ群は、精査はしていませんが、Fedora 14 のものと変わらないように見えました。

参考サイト

[1] 次の Fedora を入手する − Fedora Project
[2] Releases/15 - FedoraProject
[3] Fedora 15 Alpha release notes - FedoraProject
[4] アルファ版とは【alpha version】（α版） - 意味/解説/説明/定義： IT用語辞典

Apache Rivet 2.0.3

2011-03-20T15:29:00.002+09:00

3 月 19 日付けで Apache Rivet 2.0.3 がリリースされました。^[1]
早速 Fedora 用 RPM を作成して Sourceforge.jp の作業部屋にアップしました。^[2]
今回は x86_64 用の他に i686 用にも RPM パッケージを作成しました。

Date: Tue, 1 Mar 2011 23:32:43 +0100
From: "Massimo Manghi" <massimo.manghi at unipr.it>
To: <rivet-dev at tcl.apache.org>
Subject: Rivet 2.0.3

In branches/2.0 is now the code candidate to become Rivet 2.0.3. 
A module for Apache 1.3 or Apache 2.2 can be build out of it.

Notes about this branch.

 - command 'apache_log_error' and 'apache_table' had been left out of
apache-1/rivetCore.c. Their code was adapted to compile with the 1.3 API and
they are now working.

 - AbortScript and AfterEveryScript script support has been backported along
with the new form for the 'abort_page' command, now accepting an optional
parameter that can be retrieved by means of the command 'abort_code'. 

I will call soon for a vote on releasing this code as Rivet 2.0.3. 

-- Massimo
Date: Sat, 19 Mar 2011 12:58:07 +0100
From: "Massimo Manghi" <massimo.manghi at unipr.it>
To: <rivet-dev at tcl.apache.org>
Subject: Rivet 2.0.3 released

 Rivet 2.0.3 has been released as GA code and it's been
 uploaded to the Apache website. As soon as the source
 archive has spread throughout the mirrors of Apache I
 will update the website with the release notes and
 send on comp.lang.tcl a message announcing it.

   -- Massimo

参考サイト

[1] Rivet - Webscripting for Tcl'ers
[2] 作業部屋: bitwalk / Apache Rivet RPM のファイルダウンロード

MinGW-w64 で Tcl/Tk をコンパイル（32bit 用）

2011-02-12T14:20:00.000+09:00

Cygwin を、用事があって Windows に久しぶりにインストールしたところ、 MinGW-w64 (GCC for both x64 & x86 Windows!)^[1] を利用できることを知りました。

そこで、（当初は Fedora 15 からとアナウンスされましたが）Fedora 16 では、MinGW のクロスコンパイル環境が、MinGW-w64 のプロジェクトの成果を利用することになるようなので、それに備えて、Tcl/Tk については比較用に Cygwin/MinGW-w64 でビルドしたものをリファレンスパッケージとして公開していこうと考えています。

とりあえず nightly-CVS からダウンロードした Tcl と Tk のソースをコンパイルしたものを Inno Setup^[2] でインストールパッケージ (tcltk8.6b1-020-20110212.exe) にして、SourceForge.jp の作業部屋へアップしました^[3]。

参考サイト

[1] GCC for both x64 & x86 Windows! - MinGW-w64
[2] Inno Setup
[3] 作業部屋: bitwalk / Tcl/Tk for Windows - SourceForge.JP

【備忘録】ARM の話題あれこれ

2011-01-30T09:12:00.001+09:00

次世代の Windows では、ARM もサポートされるというニュースが今年になって報道されました^[1]。今後、デスクトップ PC のような用途でも ARM 系の CPU を搭載したものがもっと発売されるようになるかもしれないと期待しています。ARM のプロセッサを搭載したデスクトップタイプの PC が利用できると、手軽に開発環境を構築できるので、市場に多く流通して手頃な価格まで下がって欲しいと思っています。既に、ARM 系 NVIDIA Tegra 2 ベースの超小型デスクトップコンピュータが発表されたりもしています^[2]。実際の販売価格がどうなるか楽しみです。

ARM と言えば、アップル社 iPhone などの iOS がサポートしていることが有名です。一方 Linux の ARM への対応はどうかといえば、Google Android を Linux の一種と見做せば ARM をサポートしている Linux として、最近では最も有名でホットな OS かもしれません。ARM のモバイル端末だけでなくノート PC のようなタイプでも Android が搭載されています。東芝製 dynabook AZ は代表的な例でしょう。

もっと一般的な Linux ディストリビューションでも ARM をサポートしています。シャープ製のモバイル端末 NetWalker は、i.MX515 (ARM)プロセッサを搭載しており OS は、Ubuntu 9.04 のシャープ・カスタマイズ版です。

Ubuntu/ARM の QEMU 用イメージが入手できます^[3]ので、Fedora (x86_64) 上で試してみました。ウィンドウマネージャーは含まれていませんが、ARM 用パッケージの作成に利用できそうです。

ところで、Fedora では、まだ ARM をサポートしていないのかと思っていましたが、ちゃんとありました^[4]。QEMU 用のイメージも入手可能^[5]なので、試してみたのですが、こちらはうまくいきませんでした。自分の環境で、QEMU の設定に不備があるのかもしれません。さらに ARM のクロスコンパイル用パッケージが入手できることもわかりました^[6]。近い将来、ARM 対応の Windows SDK が公開されれば、MinGW クロスコンパイル環境の ARM 版を比較的容易に準備できるかもしれません。楽しみです。

参考サイト

[1] Microsoft、WindowsをSoCに拡大 - ARMシステムもサポート
[2] NVIDIA Tegra 2 搭載の超小型デスクトップ Trim Slice
[3] ARM RootfsFromScratch
[4] Architectures/ARM - FedoraProject
[5] Architectures/ARM/HowToQemu - FedoraProject
[6] Architectures/ARM/CrossToolchain - FedoraProject
[7] Linux Support for the ARM Architecture

Apache Rivet

2011-01-22T17:12:00.005+09:00

Apache Rivet は Apache HTTP Server のモジュールで、PHP のようにサーバ・サイドで動的な Web ページを作成できる Tcl システムです^[1]。Tcl を応用した他の Apache のモジュールには、mod_tcl と Websh がありますが、Rivet の最新パッケージのリリースが 25-Oct-2010 と一番新しく、もっとも活動が活発なように感じたので試用してみました。現バージョンの Rivet 2.0 系は Apache 1.3 と 2.x に対応しています。Tcl はバージョン 8.5 あるいは 8.4 を必要とします。
Linux の RPM パッケージを作成するのに必要な spec ファイルが下の参考サイト [1] のダウンロードページにあったので、最新の Rivet-2.0.2 に対応できるように編集して Fedora 14 用のパッケージを作成し、インストールしてみたところ、簡単にローカルの Web サーバの環境で動作確認ができました。

[2] の Example のページで紹介されている、カレンダーを表示するサンプルを紹介します。

<? set hello_message "Calendar" ?>
<html>
  <head>
    <title><? puts $hello_message ?></title>
  </head>
  <body><?
package require Calendar

proc ::cal_cell_attributes {day month year weekday} {
    if {$weekday == 3} {
        return [list class curr_wkday]
    }
}

set htmlc [HtmlCalendar #auto]
set html_txt [$htmlc emit \
        -container {table class calendar} \
        -current_weekday 3 \
        -cell_function cal_cell_attributes]
puts $html_txt
?></body>
</html>

これを calendar.rvt というように、拡張子 rvt のついたファイル名で保存し、保存したファイルを Web サーバー (Apache) からブラウザで読み込むと以下のようになります。

最近、SourceForge.jp では、個人向け開発支援ツール「PersonalForge」がリリースされたので^[2]、早速、自分のアカウントで「Apache Rivet RPM」という作業部屋を作成し、作成した RPM パッケージを公開しました^[3]。

参考サイト

[1] Rivet - Webscripting for Tcl'ers
[2] SourceForge.JP、個人向けGitリポジトリ/ストレージサービス「PersonalForge」をリリース
[3] 作業部屋: bitwalk / Apache Rivet RPM のファイルダウンロード
[4] Apache 関連書籍

Ubuntu にトライ！

2011-01-09T11:01:00.020+09:00

開発用途には使用していない、32bit の古いノート PC (ThinkPad X31) に、Ubuntu をインストールしてみました。そもそものキッカケは、このところ fedora-release パッケージだけを新しくして yum コマンドで Fedora のバージョンアップを済ませてしまっていたので、Fedora 14 のクリーンインストールをし直したところ、AVI 形式などのビデオが totem で見れなくなってしまったからです。RPM Fusion のレポジトリを加えても解決できなかったので、このノート PC だけ Ubuntu に乗り換えてみました。

Ubuntu は使いやすさを重視しており、Debian や Fedora ほど厳格にはプロプライエタリなソフトウェアやクローズドソースな機能を排除していません。したがって、ビデオにおけるポピュラーかつプロプライエタリな形式のデコードも当然できるだろうと考えたからです。

Debian 系の Linux を使うのは、15 年以上 Linux を使い続けている中で初めての経験です。

まず Ubuntu 10.10 のデスクトップ版のインストールイメージ ubuntu-ja-10.10-desktop-i386.iso をダウンロードして、（ダメもとで）Fedora 上で dd コマンドで USB メモリに書き込んではみました。が、やはりこれだけでは USB メモリで起動できません。そこで、やむなく手許にあった音楽用のブランクの CD-R に dvdrecord コマンドで iso イメージを焼いてインストール CD を作成し、もうほとんど使っていない古い外付け CD ドライブを接続してインストールをしました。なんとか成功です。

インストール時にルートのパスワードを設定する箇所がなかったので、なんだか不安でしたが、sudo を使うことを後で知り、作法の違いを感じました（Fedora で su を使っている自分は、単にやり方が古いだけなのかもしれません）。

Fedora でもずいぶんインストールが簡単になってきたと感じていましたが、Ubuntu はさらにシンプルです。これであれば、Linux 初心者にも勧められそうです、コミュニティの活動の成果、特に Ubuntu Japanese Team の努力に感謝です。ビデオも問題なく totem で見れて満足です。Fedora の時と同じ Gnome のデスクトップなので、寒色系か暖色系かの差はあっても、操作性に大きな違いは感じません。しかし内部の deb パッケージの構成は rpm とは違うはずなので、これからゆっくり覚えていこうを思います。

なお 64bit の開発環境は、当面 Fedora のままでいこうと考えています。こっちはビデオが見れなくとも全然問題無いからです。

The Cross Compiler Framework (Win32+Win64)

2011-01-04T13:05:00.010+09:00

Fedora 15 から変更される予定の話題です。

mingw-w64 ツールチェインは win32 と win64 のターゲット両方をサポートしており、また本家 mingw.org よりも活発であることから、Fedora で採用されるクロスコンパイル環境は mingw-w64 プロジェクトベースのパッケージに統一されます。したがってパッケージ名のトリプレット 'i686-pc-mingw32' は、'i686-w64-mingw32' へ揃えられます。

さらに、次のステップとして 'mingw32-...' から 'cross-...' へパッケージ名が変更されるようです。

ちなみに、Fedora 15 のリリース予定は、現在のところ 2001 年 5 月 10 日です。【スケジュール】

Subject: Announcing the Cross Compiler Framework (Win32+Win64)
From: Erik van Pienbroek <erik at vanpienbroek.nl>
To: mingw at lists.fedoraproject.org
Date: Mon, 03 Jan 2011 23:30:34 +0100
X-Mailer: Evolution 2.91.4 (2.91.4-1.fc15) 
Reply-To: "Fedora MinGW (Windows cross-compiler) project"
<mingw at lists.fedoraproject.org>
Sender: mingw-bounces at lists.fedoraproject.org

Hi everybody,

In the last few weeks I worked on creating a method to easily build and
maintain RPM packages for both Win32 as well as Win64 targets. Adding
support for the Mac OS X target should also be easily possible. This has
resulted in a set of RPM packages which I would like to call the Cross
Compiler Framework.

This set of RPM packages brings various changes to the Fedora MinGW
world. The most important one is that the mingw-w64 toolchain is now
used instead of the mingw.org toolchain. The reason behind this change
is that the mingw-w64 toolchain provides support for both win32 and
win64 targets and is more actively maintained than the mingw.org one.

So what does this mean for all users and packagers of the current
mingw32 packages which are already in Fedora? First of all, the name of
the triplet has changed from 'i686-pc-mingw32' to 'i686-w64-mingw32'.
This means that commands like for example gcc are now named
'i686-w64-mingw32-gcc'. All mingw32 files are now also saved in the
folder /usr/i686-w64-mingw32 instead of /usr/i686-pc-mingw32. Helper
scripts like 'mingw32-configure' also still work and refer to the new
set of commands and paths.

Next to this, various packages have been renamed from 'mingw32-...' to
'cross-...'. This is used to indicate that the package in question
contain binaries for multiple targets. If a package has been renamed
from 'mingw32-...' to 'cross-...' then the original 'mingw32-...'
package will be obsoleted by the 'cross-...' one.

All current mingw32 packages should build just fine against this new
framework (or with minor patching)

There are two repositories published at the moment containing the
packages belonging to the cross compiler framework. One contains
binaries for both win32 and win64 targets while the other one also
contains binaries for Mac OS X. The Mac OS X pieces can't be added to
Fedora at the moment because of legal issues and the fact that some
binary blobs (from the Mac OS X SDK) were used.

All current mingw32 packages which have been in Fedora as of December 30
2010 have been added to the testing repositories. About 32 packages have
been ported entirely to the new cross compiler framework.

More details about this cross compiler framework including information
about the testing repositories and a porting guide can be found at
http://fedoraproject.org/wiki/MinGW/CrossCompilerFramework

My plan is to get all the packages belonging to the cross compiler
framework in Fedora 15, rebuild all current mingw32 packages and
rename/port various packages in order to have win32/win64 support. On
the link mentioned above there's a plan indicating the steps required to
get everything in Fedora. I'll open review requests for the 5 base
packages soon and I hope that somebody can review them quickly so we can
still make it in time for the Fedora 15 feature freeze (which is about 5
weeks from now).

Feel free to test the testing repositories and report back any issues
you might find. Other feedback about the cross compiler framework is
welcome too. Help with the reviews is very much appreciated as well!

Kind regards,

Erik van Pienbroek

_______________________________________________
mingw mailing list
mingw at lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/mingw

Linux 用プリンタドライバ（２）

2011-01-02T19:02:00.003+09:00

二年ほど前に調べた情報があるのですが、調べ直しました。価格.com のサイトで、「プリンタ製品一覧売れ筋ランキングの高い順」で表示されるトップ 100 ぐらのプリンタから、メーカーをピックアップして、Linux 用のプリンタドライバが公開されているかどうか調べました。全部の機種を確認していませんが、最近の売れ筋プリンタのドライバもカバーされているようです。

[1] Epson Inkjet Printer Driver (ESC/P) for Linux | アヴァシス株式会社
[2] キヤノン：サポート｜ソフトウエアダウンロード
[3] Linux プリンタードライバーのダウンロード｜サポート｜ブラザー
[4] RICOH Pro/IPSiO SP/imagio MP用 Linux CUPS用 PPDファイル / 製品情報 | リコー
[5] Linux対応について: OS対応状況: サポート: レーザプリンタ: プリンタ: 周辺機器: 製品 | NEC
[6] Printers by Manufacturer | OpenPrinting - The Linux Foundation (HP)

Tcl and the Tk Toolkit (2nd Edition)

2010-12-31T00:17:00.000+09:00

以前から購入しようと思っていたままだった書籍ですが、遅ればせながらやっと購入しました。この第二版は、John Ousterhout 氏と Ken Jones 氏の共著になっています。が、しかし preface（序文）は Ken Jones 氏が書いているので、実質的には彼が執筆した本のような雰囲気です。

普通の Tcl/Tk 8.5 の入門書といった内容で丁寧に解説されており、Tcl、Tk の入門的内容から、Tcl_Obj (C API) や TEA に基づいた拡張パッケージの作成までカバーされています。700 頁を越える量ですが、わかりやすくまとめられている良書だと思います。製本はペーパーバック（並製本）で、背に頁を糊付けしただけのものです。そのため、永く使い込めば、背が折れて頁が剥がれることになり、もう一冊購入なんてことになりそうです。

「マイクロソフト戦記」を読んで

2010-12-29T11:56:00.011+09:00

本書は、1980 年代前半から 1990 年代前半、MSX の標準化から、Windows が業界スタンダードになるまでの筆者トム佐藤氏の体験と、どのように Windows が業界スタンダードになり得たかを描いたノンフィクションかつビジネス戦略を解説した書です。

久しぶりに小説以外でワクワクする書物に出会い、一気に読んでしまいました。本書では、ベンサムが唱えた「最大多数の最大幸福」が、デファクトスタンダードを作り出すことを可能にするキーワードになっています。Windows は他より性能面で抜きん出ていたからではなくて、「最大多数の最大幸福」を実現できたからこそデファクトスタンダードになり得たのです。ビジネスプレゼンテーションによくある美辞麗句ではなく、失敗と悪戦苦闘を重ねる紆余曲折の中で、幸運に恵まれ、市場をつかみ、なんとかテクノロジーの波に乗ることができるまでの様子が実にリアルに伝わってきました。

本書が述べている時代は、自分にとっては、NEC PC98 の MS-DOS 上で Lotus 123 や一太郎を使っていた頃から Macintosh へ仕事のツールが移り変わった時代でした。当時は、MSX や Windows にまるで注目していなかったので、知らなかった時代のアツい側面を知ることができて、なんだか得をした気分になりました。そういえば学生の時、研究室の NEC PC98 上で利用可能であった Windows 1.0 を見て、とても使いものになるとは思えなかったのを憶えています。

仕事において Windows が搭載された PC を利用し始めたのは、当時勤めていた会社の本社 R&D がある米国へ出向した 1994 年の時、Windows for Workgroups 3.11 からです。翌年、Windows 95 が大々的に発売され、その後の展開は周知のとおりです。当時は、Fry's などのコンピューターショップで OS/2 Warp や Windows NT もたくさん店頭に並んでおり、OS の選択肢の多さにクラクラしたものです。デファクトスタンダードが確立されることによって、そういた選択肢が次々と市場から駆逐されてしまうのは、悲しいことですがビジネスの常なのでしょう。

愛用する Linux は、最大幸福の追求はしていないと思うので、デファクトスタンダードとは縁がないのかもしれません。しかし、好きだから、必要だから、というユーザが存在する限り、オープンソースの OS は存在しつづけるような気がします。そう考えると、今までデファクトスタンダードにはなりませんでしたが、今なお健闘している Mac OS X は、不思議な存在です。iOS もそうですが、ソフトウェアとハードウェアをセットにして販売するところがミソなのかもしれません。

本書を読んで、つくづく思ったことは、ビジネスの最前線の仕事とはなんとも過酷だということでした。

[1] マイクロソフト戦記―世界標準の作られ方（新潮新書）

LLVM に関する話題 2010

2010-12-04T21:50:00.016+09:00

LLVM のホットな情報にタイムリーには喰いつけず、ぼんやりしていた自分に悔しかったので、ここで今年一年分の情報をまとめてみたいと思います。

[01] 2010/02/09 あるコンパイラが重要なマイルストーンに到達
[02] 2010/04/19 FreeBSD Daily Topics：2010年4月19日　FreeBSD GCCを置き換えるLLVM Clang，広くテスト呼びかけ
[03] 2010/04/28 LLVM 2.7登場、飛竜を公式ロゴに採用
[04] 2010/04/29 LLVMプロジェクト、対応プラットフォームを強化した「LLVM 2.7」
[05] 2010/05/17 JITコンパイラにLLVMを使用するRuby互換実装「Rubinius 1.0」が登場
[06] 2010/05/18 LLVM、GCC libstdc++をBSDライセンスのlibc++へ置き換え
[07] 2010/05/18 LLVM 2.7、Haskell対応のストーリー
[08] 2010/05/25 【レポート】FreeBSD GCCアップデート停止、LLVM Clangへ移行 - BSDCan 2010
[09] 2010/06/10 FreeBSD Daily Topics：2010年6月10日　LLVM Clang，FreeBSD 9-CURRENTへ統合
[10] 2010/06/11 LLVM Project、次世代デバッガ「LLDB」を開発へ
[11] 2010/10/08 LLVM 2.8登場、C++大幅強化
[12] 2010/10/28 LLVM Clang、Linuxカーネルビルドに成功
[13] 2010/11/19 FreeBSD Daily Topics：2010年11月19日　LLVM Clang 2.8，9-CURRENTにマージ

ところで、Tcl と LLVM を結びつけるようなプロジェクトがないか探して見たところ、llvmtcl という、いわゆる拡張パッケージを開発するプロジェクトがありました。llvmtcl を評価ができたらレポートしたいと思います。

[14] jdc8/llvmtcl - GitHub

ReactOS 0.3.12 を試す

2010-11-14T16:24:00.003+09:00

10 月 20 日付で ReactOS 0.3.12 がリリースされていましたので、VMware 用のイメージをダウンロードして、VMware Player で起動してみました。News #61 - ReactOS ウェブサイトによると、今回のリリースでは当初、トラップ・ハンドラー機構の部分の改良に絞っていたが、結局のこの部分を全て書き直しをすることになり、前回のリリース（2009 年 12 月 16 日）から間が開いてしまったようです。

前回のリリースと比べて、明らかに Application Manager が使いやすくなっていると思います。ただ、アプリケーションの選択肢は増えたものの、全てが現行の ReactOS で動作するわけではなさそうです。

今後、ポピュラーな Windows アプリケーションが動作するようになれば、Windows を使う理由は（少なくとも自宅では）全く無くなりそうです。ReactOS がもっと安定し、主要なアプリケーションを動かせるようになったら、廉価な PC を買ってテスト機として使ってみたいものです。

なお、今回は Flash Player をインストールしたかったのですが、Firefox、Opera 共に Flash Player をインストールできませんでした。LibreOffice もインストール可能だったので試してみましたがインストール後起動せず。なぜだろう？？

[1] Frontpage - ReactOS ウェブサイト

【備忘録】LibreOffice

2010-11-12T21:50:00.055+09:00

旧聞に属する話題ですが、備忘録としてです。

オープンソースのオフィススイート OpenOffice.org の開発コミュニティーは 9月28日、Oracle から独立し「The Document Foundation」を設立すると発表しました^[1]。設立の理由は「OpenOffice.org の設立趣意書に書かれている独立性を守るため」ということです。今後はスイート名を「LibreOffice」として開発を進めていくそうです。当サイトからは、LibreOffice がダウンロード出来ます。Linux 用には、本日の時点では英語版だけでしたが、RPM パッケージを tar.gz 形式にまとめて圧縮されたファイルが入手可能です。

Oracle が Sun を買収して以来、オープンソース陣営との関係がうまくいっていないという情報を目にするようになりました。営利を追求する企業とオープンソースとの関係はなかなかうまくいきません。一方、自分が勤めている会社（外資ではありません）の IT 部門をみてみると、まともなソフトウェアは購入するのが当たり前、サポートも外注が当たり前で、オープンソースの利用など、まるで想定外の部署です。オープンソース社会の動向が気になる自分とのギャップに腹立たしく思いますが、IT 部門に所属していないので致し方ありません。

[1] OracleからOpenOffice.orgが独立し、「The Document Foundation」を設立 - ITmedia News
[2] Apache、Javaコミュニティー脱退を示唆――Oracleのテストキットライセンス拒否に反発 - ITmedia News
[3] Oracle、Googleを提訴――AndroidのJava特許侵害で (1/2) - ITmedia News
[4] 【Infostand海外ITトピックス】 OpenSolarisプロジェクトが終了？　Oracleのオープンソース戦略への危機感 -クラウド Watch
[5] オラクルとオープンソース

Fedora 14

2010-11-03T11:02:00.007+09:00

Fedora 14 がリリースされました。Fedora Project のサイトがリニューアルされていました。日本語のサイトがとりあえずありますが、日本語に翻訳する協力者が少ないのでしょうか、相変わらずほとんど英語の説明です。自分も翻訳に協力したいのですが、時間が割けません。

さて、今回のリリースの目玉はというと...、ニュースの記事のように一言ではまとめられないので、Releases/14/FeatureList を、下記に転載しました。

Name	Summary
Boost 1.44	Update Boost to the upstream 1.44 release
D Programming	Add a D compiler (LDC) and D standard runtime library (Tango)
EC2	We will provide a concurrent release of Fedora 14 and above on the Amazon EC2 cloud
Eclipse Helios	Update Fedora's Eclipse stack to Helios releases
Erlang R14	Update Erlang to the upstream R14 release
Gdb Index	This project will remove the useless indices from the .debug files, and will replace them with an index that greatly speeds up gdb
GNUstep	GNUstep development environment for Fedora
ipmiutil	An easy-to-use fully-featured IPMI server management utility
libjpeg-turbo	libjpeg-turbo is fork of the original libjpeg project. It contains numerous performance related enhancements and is at least twice faster in JPEG compression/decompression than original libjpeg on platforms with MMX/SSE instruction set.
KDE 4.5	Rebase to KDE Plasma Desktop 4.5
Memory Debugging Tools	The gdb debugger has been extended with new commands that make it easier to track down and fix excessive memory usage within programs and libraries
NetBeans 6.9	Re-base to the NetBeans 6.9
Open SCAP	Provide open-source Security Content Automation Protocol (SCAP) framework, basic set of applications and OVAL/XCCDF security content
Perl 5.12	Update to Perl 5.12
Python 2.7	Update Python to the upstream 2.7 release
Rakudo Star	The Rakudo Star releases includes the Rakudo compiler, modules, Blizkost and documentation. Rakudo is an implementation of the Perl 6 specification for the Parrot virtual machine.
Spice	Spice aims to provide a complete open source solution for interaction with virtualized desktops
Sugar 0.90	Provide the latest Sugar Learning Environment (0.90), including an enhanced activity set to provide an stable demo environment for Sugar as well as an environment for developers
Ruby 1.8.7	Update Ruby to the upstream 1.8.7 release

統計解析ツール～歩き始め～

2010-10-31T22:50:00.003+09:00

一元配置の分散分析ができたからといって、全て見通しが立ったわけではありません。しかし、自分が納得できる統計解析ツール、特に実験計画法の為の解析ツールを作りたいという欲求を抑えることができず、少しずつ GUI の部分を作り始めています。

GUI では、かゆいところに手が届くような操作性と柔軟性を実現したいので、じっくり時間をかけて作り込む予定です。若いころに BBN RS/1 というツールを VAX Station 上で使っていましたが、実験計画用のモジュール (Discover とか Explorer という名前でした）の使い心地が忘れられません。今なら GUI でもっともっと使い易く出来るはずです。

実は、むかしむかしも同じようなツールを自分で作りたいと考えていました。その時は応答曲面法 (RSM) を全面に出していましたが、行列計算の量が多く、手許の PC で実用的な処理速度を得られず、挫折してしまいました。

そもそも Tcl/Tk を使い続けている理由も、こういうツールを自分で作りたいという欲求があるからです。かつての人気はすっかり無くなってしまいましたが、Tcl/Tk の開発は止まっていません。Tktable も BLT (RBC) も利用できます。Eclipse などの統合開発環境が利用出来るので、ソフトウェアの開発が格段に楽になってきてもいます。

今回は、オーソドックスに一元配置の分散分析からはじめて、直交表までをカバーして、その次に中心複合計画やコンピュータの計算応力を駆使する最適計画など応答曲面法までを目指したいと考えています。

さて、完成はいつになるやら…。まずはアルファ版を公開することを目指します。とりあえずは決意表明をしておこう。

参考／引用文献

[1] 岩崎学著, 統計的データ解析入門実験計画法（東京図書）ISBN4-489-00725-6

RBC - Refactored BLT Component

2010-10-16T20:40:00.014+09:00

Fedora では Tcl/Tk 8.5 で BLT パッケージ（2.4z にパッチをあてたもの）が利用できますが、nightly-cvs の Tcl/Tk8.6 を自分でコンパイルして使用している環境では、同サイトで入手できる blt (3.0) をどうしてもうまくビルドできません。なんとかならないかとインターネット上で情報をあさっていたところ、古い記事ですが BLT 2.4z をリファクタリングした RBC についての議論を見つけました^[1]。どうやら Mayo SPPDG - Mayo Clinic and Foundation の Robert W Techentin 氏が、院生のチームと一緒になって取り組んだ成果のようです。

SourceForge.net にサイト^[2] が開設されているので、早速ダウンロードしてビルドしてみました。試行錯誤の後、結局、以下のようにしてビルドしました。ビルドした環境は Fedora 14 (beta) x86_64 です。

$ tar zxvf rbc0.1.src.tar.gz
$ cd rbc
$ CFLAGS="-DUSE_INTERP_RESULT" \
> ./configure --prefix=$HOME --with-tcl=../tcl/unix --with-tk=../tk/unix
$ make
$ make install

コンパイルフラグ USE_INTERP_RESULT は、Tcl 8.6 ではレガシーな (Tcl_Interp) interp->result にアクセスする際に必要になります^[3]。
テスト用に BLT 用の以前用意したサンプルを RBC 用に書き換えて実行してみました。

#!/bin/sh
# the next line restarts using wish \
exec wish8.6 "$0" "$@"
 
package require rbc

proc init_x {} {
    set xList {}
    for {set i 0} {$i <= 200} {incr i} {
        lappend xList [expr $i / 5.]
    }
    return $xList
}

proc init_y {xList} {
    set yList {}
    foreach x $xList {
        lappend yList [expr sqrt($x) * sin($x)]
    }
    return $yList
}
 
# ----------------------------------------------------------------------------
# メイン
# ----------------------------------------------------------------------------
wm title . "rbc::graph"

set grp ".grp"
rbc::graph $grp \
        -title           "Sample Graph" \
        -font            "helvetica 16" \
        -rightmargin     15 \
        -plotbackground  "light cyan" \
        -plotpadx        0 \
        -plotpady        0 \
        -plotborderwidth 0
pack .grp

# ズームスタックを有効にする
#Blt_ZoomStack $grp

# X と Y 軸
$grp axis configure x \
        -subdivisions 10 \
        -tickfont     "courier 8" \
        -title        "X Axis" \
        -titlefont    "helvetica 12"
$grp axis configure y \
        -subdivisions 10 \
        -tickfont     "courier 8" \
        -title        "Y Axis" \
        -titlefont    "helvetica 12"

# グリッド
$grp grid configure \
        -color "turquoise" \
        -mapx  x \
        -mapy  y
$grp grid on

# 凡例
$grp legend configure \
        -font     "helvetica 10" \
        -ipadx    10 \
        -position bottom \
        -relief   ridge

# データ
set xList [init_x]
set yList [init_y $xList]
$grp element create func \
        -label        "sqrt(x) * sin(x)" \
        -xdata        $xList \
        -ydata        $yList \
        -smooth       quadratic \
        -linewidth    1 \
        -color        blue \
        -symbol       circle \
        -pixels       0.0625i \
        -scalesymbols yes \
        -outline      red \
        -fill         green

# ---
# sample_graph.tcl

実行例を以下に示しました。日本語フォントが表示できないし、 BLT のすべての機能が使えるわけでもなく制限はありますが、Tcl/Tk 8.6 の環境で手軽に（そこそこの）グラフを作成できそうです。

参考サイト

[1] RBC - Refactored BLT Components - Initial Release - Rhinocerus
[2] The RBC Toolkit | Download The RBC Toolkit software for free at SourceForge.net
[3] DIRECT ACCESS TO INTERP->RESULT - Tcl_SetResult manual page

ちょっと分散分析（２）

2010-10-10T14:36:00.020+09:00

p 値の計算をするためにガンマ関数やらベータ関数を計算するルーチンを C で作成し、Tcl の拡張パッケージ上の拡張された算術関数として利用できるようにして、その上で P 値を計算するルーチンを作ってはみましたが、計算した値が合いません。きっと自分の理解不足によるもののと考え、とりあえず諦めてしまいました（泣）。

そのかわり近似計算をしているサイトをいろいろ探し、サイト[1] を参考にして P 値を与えるルーチンを追加しました。悔しいのでもっと勉強して、自分で納得できるルーチンを作成していきます。

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh8.6 "$0" "$@"
# 分散分析
# $Id: anova_1way.tcl,v 1.6 2010/10/10 05:15:34 bitwalk Exp bitwalk $

# サンプルデータ１
set a [list {3.42  3.84  3.96  3.76}]
set b [list {3.17  3.63  3.47  3.44  3.39}]
set c [list {3.64  3.72  3.91}]

# サンプルデータ２
#set a [list {25 30 20 32}]
#set b [list {30 33 29 40 36}]
#set c [list {32 39 35 41 44}]

# データ
set data [list $a $b $c]

# -----------------------------------------------------------------------------
#  クラス anova
# -----------------------------------------------------------------------------
oo::class create anova {
    constructor {a} {
        my variable x way

        # データリスト
        set x $a
        # 分散分析の対象フラグのリセット
        set way ""
    }
    # -------------------------------------------------------------------------
    # 一元配置
    # -------------------------------------------------------------------------
    method oneway {} {
        my variable x way
        my variable n k
        my variable SSb SSw SSt
        my variable df_b df_w df_t
        my variable MSb MSw
        my variable F p

        # Sum of Squared Deviations
        # SSt (TOTAL)
        set x_simple [my list_simple $x]
        set n [llength $x_simple]
        set x_mean [my mean $x_simple $n]
        set SSt [my var $x_simple $x_mean]
        # SSb (BETWEEN GROUPS)
        set k [llength $x]
        set SSb 0
        for {set i 0} {$i < $k} {incr i} {
            set x_b($i) [my list_simple [lindex $x $i]]
            set n_b($i) [llength $x_b($i)]
            set x_mean_b($i) [my mean $x_b($i) $n_b($i)]
            set SSb [expr $SSb + $n_b($i) \
                * ($x_mean_b($i) - $x_mean) \
                * ($x_mean_b($i) - $x_mean)]           
        }
        # SSw (WITHIN GROUPS)
        # set SSw [expr $SSt - $SSb]
        set SSw 0
        for {set i 0} {$i < $k} {incr i} {
            set x_w($i) [my list_simple [lindex $x $i]]
            set n_w($i) [llength $x_w($i)]
            set x_mean_w($i) [my mean $x_w($i) $n_w($i)]
            set SSw [expr $SSw + [my var $x_w($i) $x_mean_w($i)]]
        }
        # Degree of Freedom
        set df_b [expr $k - 1]
        set df_w [expr $n - $k]
        set df_t [expr $n - 1]
        # Mean Square
        set MSb [expr $SSb / $df_b]
        set MSw [expr $SSw / $df_w]
        # F value, the ratio of the two variance estimates
        set F [expr $MSb / $MSw]
        set p [my f_pval $F $df_b $df_w]
        # flag
        set way "One Way"
        return 1
     }
    # -------------------------------------------------------------------------
    #　result
    # 結果の表示
    # -------------------------------------------------------------------------
    method result {} {
        my variable way

        switch $way {
            "One Way" {
                my result_1way
            }
            default {
                puts "No result yet!"
            }
        }
    }
    # -------------------------------------------------------------------------
    #　result_1way
    # 結果の表示（一元配置）
    # -------------------------------------------------------------------------
    method result_1way {} {
        my variable x
        my variable n k
        my variable SSb SSw SSt
        my variable df_b df_w df_t
        my variable MSb MSw
        my variable F p

        puts "ANOVA (1way)"
        puts "Source        SS       df       MS    F val    P Val"
        puts -nonewline "Between"
        puts -nonewline [format " %8.3f" $SSb]
        puts -nonewline [format " %8d" $df_b]
        puts -nonewline [format " %8.3f" $MSb]
        puts -nonewline [format " %8.3f" $F]
        puts -nonewline [format " %8.6f" $p]
        if {$p < 0.001} {
            puts " ***"
        } elseif {$p < 0.01} {
            puts " **"
        } elseif {$p < 0.05} {
            puts " *"
        } else {
            puts ""
        }
        puts -nonewline "Within "
        puts -nonewline [format " %8.3f" $SSw]
        puts -nonewline [format " %8d" $df_w]
        puts -nonewline [format " %8.3f" $MSw]
        puts ""
        puts -nonewline "Total  "
        puts -nonewline [format " %8.3f" $SSt]
        puts -nonewline [format " %8d" $df_t]
        puts ""
    }
    # -------------------------------------------------------------------------
    # mean
    # 平均値の計算
    # -------------------------------------------------------------------------
    method mean {xList num} {
        set sum [my sum $xList]
        return [expr $sum / $num]
    }
    # -------------------------------------------------------------------------
    # sum
    # 合計の計算
    # -------------------------------------------------------------------------
    method sum {xList} {
        set total 0.0
        foreach x $xList {
            set total [expr $total + $x]
       }
        return $total
    }
    # -------------------------------------------------------------------------
    # var
    # 分散の計算
    # -------------------------------------------------------------------------
    method var {xList xMean} {
        set var 0.0
        foreach x $xList {
            set var [expr $var + ($x - $xMean) * ($x - $xMean)]
        }
        return $var
    }
    # -------------------------------------------------------------------------
    # f_pval
    # P値（F分布の上側確率の算出）
    # -------------------------------------------------------------------------
    method f_pval {f df1 df2} {
        set m2pi 0.636619772367581343076
        set m_pi 3.14159265358979323846
        set i1 [expr 2 - ($df1%2)]
        set i2 [expr 2 - ($df2%2)]
        set w [expr $df2/($df2 + $df1*$f)]
        set y [expr 1.0 - $w]
        set p [expr sqrt($w)]
        set s [expr sqrt($y)]

        if {[expr 2*$i1 - $i2] == 0} {
            set p [expr 1.0 - $s]
            set c [$s*$w/2.0]
        } elseif {[expr 2*$i1 - $i2] == 1} {
            set c [expr $s*$p/$m_pi]
            set p [expr 1.0 - atan2($s, $p) * $m2pi]
        } elseif {[expr 2*$i1 - $i2] == 2} {
            set p $w
            set c [expr $w*$y]
        } else {
            set c [expr $y*$p/2.0]
        }
        for {set i2 $i2} {$df2 > $i2} {incr i2 2} {
            set p [expr $p - 2.0/$i2*$c]
            set c [expr $c*$w*($i1 + $i2)/$i2]
        }
        for {set i1 $i1} {$df1 > $i1} {incr i1 2} {
            set p [expr $p + 2.0/$i1*$c]
            set c [expr $c*$y*($i1 + $i2)/$i1]
        }
        return [expr ($p < 0.0 && abs($p) < 1e-10) ? 0.0 : $p]
    }
    # -------------------------------------------------------------------------
    # list_simple
    # 入れ子になっているリストをシンプルなリストに変換
    # -------------------------------------------------------------------------
    method list_simple {xList} {
        regsub -all {[\{\}]} $xList {} foo
        regsub -all {\s{2,}} $foo { } baa
        return $baa
    }
}
# -----------------------------------------------------------------------------
#  メイン
# -----------------------------------------------------------------------------
set obj [anova new $data]
if {[$obj oneway]} {
    $obj result
} else {
    puts "failed"
}
# ---
# END PROGRAM

実行例を以下に示しました。

$ ./anova_1way.tcl
ANOVA (1way)
Source        SS       df       MS    F val    P Val
Between    0.318        2    0.159    4.615 0.041749 *
Within     0.310        9    0.034
Total      0.628       11

参考サイト

[1] 統計関数の確率計算
[2] The Free Statistics Calculators Website - Home （算出値の検証用）

追記

この記事を書いた後、なぜ用意した関数でうまくできなかったのかが突然判ってしまいました。長年 Tcl を使っているのに、Tcl 特有の計算の落とし穴にすっかりハマっていたのです。

以下は、用意していた規格化された不完全ベータ関数 betai を使って書き直したメソッド f_pval です。Tcl では、整数÷整数の結果は自動的に整数になってしまいます。浮動小数の結果が必要な場合は、分母分子のどちらか一方を浮動小数の値に明示にしておく必要があります。

    # -------------------------------------------------------------------------
    # f_pval
    # P値（F分布の上側確率の算出）
    # -------------------------------------------------------------------------
    method f_pval {f df1 df2} {
        set x [expr $df1 * $f / ($df2 + $df1*$f)]
        return [expr 1 - betai($df1/2.0, $df2/2.0, $x)]
    }

実行例を以下に示しましたが、上記と同じ結果が得られています。

$ ./anova_1way.tcl
ANOVA (1way)
Source        SS       df       MS    F val    P Val
Between    0.318        2    0.159    4.615 0.041749 *
Within     0.310        9    0.034
Total      0.628       11

今のところ規格化された不完全ベータ関数 betai の算出には、下記の GSL の関数を利用しています。

double gsl_sf_beta_inc (double a, double b, double x)

以下のようなルーチンを使って Tcl の拡張パッケージを作成しています。

/*****************************************************************************
 * int func_betai
 * 規格化された不完全ベータ関数の処理部
 *
 * Tcl 側のコマンド
 *   expr betai($a, $b, $x)
 *****************************************************************************/
int
func_betai (ClientData clientData, Tcl_Interp * interp,
        Tcl_Value * args, Tcl_Value * resultPtr)
{
  double a, b, x;

  a = args->doubleValue;
  args++;
  b = args->doubleValue;
  args++;
  x = args->doubleValue;

  /* 計算結果 */
  resultPtr->type = TCL_DOUBLE;
  resultPtr->doubleValue = gsl_sf_beta_inc (a, b, x);

  return TCL_OK;
}

ただ、GSL の配布ライセンスは GPLv3 (GNU General Public License) に従っているので、扱い難いと感じています。計算方法の検証ができたので、他に BSD などの配布ライセンスで良いライブラリがあれば乗り換えようと思っています。オープンソースを推進したい者としては矛盾した考えですが、しかたがありません。

ちょっと分散分析

2010-10-02T23:07:00.008+09:00

前々から作りたいと思っていて、なかなか重い腰を上げて取り組もうとしなかった分散分析のライブラリについて、ようやく少しずつ作り始めました。

本当は C# で作りたかったのですが、GUI 化の手間と、ゆくゆくは超越関数（Γ関数など）を扱う統計値の計算ルーチンを作ることを考えれば、慣れている Tcl/Tk (+ Tktable) と C の組み合わせで作る方が現実的と考えました。

また、TclOO を利用したかったので、Tcl の nightly-cvs のサイトから Tcl/Tk の最新のソース (8.6b1.2) をダウンロード、Fedora 上でビルドして利用しています。

まずは一元配置の簡単なルーチンを作ってみました。参考サイト [1] と [2] で検算をしています。

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh8.6 "$0" "$@"
# 分散分析
# $Id: anova_1way.tcl,v 1.4 2010/10/02 15:00:00 bitwalk Exp bitwalk $

# サンプルデータ１
set a [list {3.42  3.84  3.96  3.76}]
set b [list {3.17  3.63  3.47  3.44  3.39}]
set c [list {3.64  3.72  3.91}]

# サンプルデータ２
#set a [list {25 30 20 32}]
#set b [list {30 33 29 40 36}]
#set c [list {32 39 35 41 44}]

# データ
set data [list $a $b $c]

# -----------------------------------------------------------------------------
#  クラス anova
# -----------------------------------------------------------------------------
oo::class create anova {
    constructor {a} {
        my variable x way

        # データリスト
        set x $a
        # 分散分析の対象フラグのリセット
        set way ""
    }
    # -------------------------------------------------------------------------
    # 一元配置
    # -------------------------------------------------------------------------
    method oneway {} {
        my variable x way
        my variable n k
        my variable SSb SSw SSt
        my variable df_b df_w df_t
        my variable MSb MSw
        my variable F

        # Sum of Squared Deviations
        # SSt (TOTAL)
        set x_simple [my list_simple $x]
        set n [llength $x_simple]
        set x_mean [my mean $x_simple $n]
        set SSt [my var $x_simple $x_mean]
        # SSb (BETWEEN GROUPS)
        set k [llength $x]
        set SSb 0
        for {set i 0} {$i < $k} {incr i} {
            set x_b($i) [my list_simple [lindex $x $i]]
            set n_b($i) [llength $x_b($i)]
            set x_mean_b($i) [my mean $x_b($i) $n_b($i)]
            set SSb [expr $SSb + $n_b($i) \
                * ($x_mean_b($i) - $x_mean) \
                * ($x_mean_b($i) - $x_mean)]           
        }
        # SSw (WITHIN GROUPS)
        # set SSw [expr $SSt - $SSb]
        set SSw 0
        for {set i 0} {$i < $k} {incr i} {
            set x_w($i) [my list_simple [lindex $x $i]]
            set n_w($i) [llength $x_w($i)]
            set x_mean_w($i) [my mean $x_w($i) $n_w($i)]
            set SSw [expr $SSw + [my var $x_w($i) $x_mean_w($i)]]
        }
        # Degree of Freedom
        set df_b [expr $k - 1]
        set df_w [expr $n - $k]
        set df_t [expr $n - 1]
        # Mean Square
        set MSb [expr $SSb / $df_b]
        set MSw [expr $SSw / $df_w]
        # F value, the ratio of the two variance estimates
        set F [expr $MSb / $MSw]
        # flag
        set way "One Way"
        return 1
     }
    # -------------------------------------------------------------------------
    #　result
    # 結果の表示
    # -------------------------------------------------------------------------
    method result {} {
        my variable way

        switch $way {
            "One Way" {
                my result_1way
            }
            default {
                puts "No result yet!"
            }
        }
    }
    # -------------------------------------------------------------------------
    #　result_1way
    # 結果の表示（一元配置）
    # -------------------------------------------------------------------------
    method result_1way {} {
        my variable x
        my variable n k
        my variable SSb SSw SSt
        my variable df_b df_w df_t
        my variable MSb MSw
        my variable F

        puts "ANOVA (1way)"
        puts "Source        SS       df       MS    F val"
        puts -nonewline "Between"
        puts -nonewline [format " %8.3f" $SSb]
        puts -nonewline [format " %8d" $df_b]
        puts -nonewline [format " %8.3f" $MSb]
        puts -nonewline [format " %8.3f" $F]
        puts ""
        puts -nonewline "Within "
        puts -nonewline [format " %8.3f" $SSw]
        puts -nonewline [format " %8d" $df_w]
        puts -nonewline [format " %8.3f" $MSw]
        puts ""
        puts -nonewline "Total  "
        puts -nonewline [format " %8.3f" $SSt]
        puts -nonewline [format " %8d" $df_t]
        puts ""
    }
    # -------------------------------------------------------------------------
    # mean
    # 平均値の計算
    # -------------------------------------------------------------------------
    method mean {xList num} {
        set sum [my sum $xList]
        return [expr $sum / $num]
    }
    # -------------------------------------------------------------------------
    # sum
    # 合計の計算
    # -------------------------------------------------------------------------
    method sum {xList} {
        set total 0.0
        foreach x $xList {
            set total [expr $total + $x]
       }
        return $total
    }
    # -------------------------------------------------------------------------
    # var
    # 分散の計算
    # -------------------------------------------------------------------------
    method var {xList xMean} {
        set var 0.0
        foreach x $xList {
            set var [expr $var + ($x - $xMean) * ($x - $xMean)]
        }
        return $var
    }
    # -------------------------------------------------------------------------
    # list_simple
    # 入れ子になっているリストをシンプルなリストに変換
    # -------------------------------------------------------------------------
    method list_simple {xList} {
        regsub -all {[\{\}]} $xList {} foo
        regsub -all {\s{2,}} $foo { } baa
        return $baa
    }
}
# -----------------------------------------------------------------------------
#  メイン
# -----------------------------------------------------------------------------
set obj [anova new $data]
if {[$obj oneway]} {
    $obj result
} else {
    puts "failed"
}
# ---
# END PROGRAM

実行例を以下に示しました。

$ ./anova_1way.tcl
ANOVA (1way)
Source        SS       df       MS    F val
Between    0.318        2    0.159    4.615
Within     0.310        9    0.034
Total      0.628       11

まだ、p値の計算はできていません。この部分は C で Tcl のライブラリを作成する予定です。あとは、すこしずつ GUI を作りながら、二元配置、直交表の分散分析にも対応させていく予定です。

参考サイト

[1] 一元配置分散分析
[2] One Way ANOVA

Tcl/Tk 8.5.9 リリース

2010-09-10T23:02:00.014+09:00

Tcl/Tk 8.5.9 が 9 月 8 日付けでリリースされました。Tcl/Tk 8.5 の 9 番目のパッチリリースです。バグフィックスが中心で、付属パッケージのバージョンアップもされています。
最近のリリース周期はすっかり穏やかなペースになり、今回は、8.5.8 から約 10 ヶ月ぶりのリリースになりました。

Date: Wed, 08 Sep 2010 16:42:34 -0400
From: Donald G Porter <donald.porter at nist.gov>
To: Tcl List Core <tcl-core at lists.sourceforge.net>
Subject: [TCLCORE] Tcl/Tk 8.5.9 RELEASED
Tcl/Tk 8.5.9 Release Announcement
September 8, 2010

The Tcl Core Team is pleased to announce the 8.5.9 releases of the Tcl
dynamic language and the Tk toolkit.  This is the ninth patch release
of Tcl/Tk 8.5.  More details can be found below.  We would like to
express our gratitude to all those who submit bug reports and patches.
This information is invaluable in enabling us to identify and eliminate
problems in the core.

Where to get the new releases:
------------------------------

Tcl/Tk 8.5.9 sources are freely available as open source from the
Tcl Developer Xchange web site at:

         http://www.tcl.tk/software/tcltk/8.5.html

This web page also contains additional information about the releases,
including new features and notes about installing and compiling the
releases.  Sources are always available from the Tcl SourceForge
project's file distribution area:

         http://sourceforge.net/project/showfiles.php?group_id=10894

Binaries for most major platforms are available from:

         http://www.activestate.com/Tcl

For additional information:
---------------------------

Please visit the Tcl Developer Xchange web site:

         http://www.tcl.tk/

This site contains a variety of information about Tcl/Tk in general, the
core Tcl and Tk distributions, Tcl development tools, and much more.

Summary of Changes since Tcl/Tk 8.5.8:
--------------------------------------

The following were the main changes in Tcl/Tk 8.5.9.  A complete list
can be found in the changes file at the root of the source tree.  The
more complete ChangeLog is also included with each source release.  This
is a patch release, so it primarily includes bug fixes and corrections
to erratic behavior.  Below are only the most notable changes.

    * TIP 359: new X11 option: [wm attributes -type]
 - stops inappropriate Compiz animation of Tk menu & combobox.

    * TIP 360: modernize menus on X11.

    * New widget [ttk::spinbox].

    * [lappend arr(elem)] no longer fires read traces as it inconsistently
      has in some situations, but not in others.
         *** POTENTIAL INCOMPATIBILITY ***

    * [tk_getOpenFile] on Windows: unlimited multiple-file selection.

    * [load] uses LOAD_WITH_ALTERED_SEARCH_PATH for fewer surprises when
      bringing in DLLs via dependencies on Windows.
         *** POTENTIAL INCOMPATIBILITY ***

    * Updated [send] security rules to current Ubuntu/Fedora conventions.

    * Fixed [wm iconphoto] on LP64 unix systems.

    * [chan copy] of more than 2**31 bytes is now possible.

    * min() and max() functions now work in safe interps.

    * [$menu delete $tooBig end] now properly a no-op.

    * canvas items now properly updated when canvas state changes.

    * Revised [ttk::sizegrip] to accommodate Compiz.

    * Revised default Text bindings for  and  to account
      for insertion point relationship to the selection.

    * Corrected result of [tcl::mathfunc::abs 0.0].

    * New version 1.432 of msgcat package.

    * New version 1.0.9 of platform package.

    * New version 0.8.6 of tile package.

    * Changes to support building with MSVC++ 2010.

    * Prevent race condition in some XIM implementations.

    * Fixed bad results from [file rootname].

    * Prevent consumption of all memory when [chan copy] copies to slow channel.

    * [wm transient] now works even with withdrawn windows.

    * $DISPLAY can now contain "::".

    * Restored compatibility of [entry] validation with Itcl variable scope.

    * Fixed line-sensitive matching by [regexp].

    * Fixed memory corruption in complex canvas tag searches.

    * Fixed crash in encoding finalization.

    * Fixed crashes in widget destruction.

    * Fixed crash in GetFontFamilyName().

    * Fixed crash in menu deletion.

    * Fixed crash in peer text dump.

    * Fixed crash when bind scripts are empty.

    * Fixed crash in unset traces during [array unset].

    * Fixed crash deleting vars during callframe pop.

    * Fixed crash in [open |noSuchFile rb].

    * Fixed crash in [chan postevent].

    * Fixed programming error in [clock format] in he_IL locale.

    * Safe Base and Safe Tk rewrites

--
Tcl Core Team and Maintainers
Don Porter, Tcl Core Release Manager

-- 
| Don Porter          Mathematical and Computational Sciences Division |
| donald.porter at nist.gov          Information Technology Laboratory |
| http://math.nist.gov/~DPorter/                                  NIST |
|______________________________________________________________________|

------------------------------------------------------------------------------
This SF.net Dev2Dev email is sponsored by:

Show off your parallel programming skills.
Enter the Intel(R) Threading Challenge 2010.
http://p.sf.net/sfu/intel-thread-sfd
_______________________________________________
Tcl-Core mailing list
Tcl-Core at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/tcl-core

自治体に広がるOpenOffice.org

2010-08-29T13:32:00.008+09:00

2010/08/26 付けの ITPro の記事で、オープンソースのオフィスソフト OpenOffice.org を採用する自治体が増えているという記事がありました。この場合、オープンソースであることは、たぶんどうでも良いことなのでしょう。Microsoft Office と比較すると無料で入手できること、つまり経費を節約出来ることを第一に着目して採用することは、仕方がないことなのかもしれません。こういった動きの中で OpenOffice.org のユーザーが増えて、開発者やユーザーグループの活動が活発になり、結果としてオープンソースであることの恩恵を享受でき、なにがしかの貢献ができるようになれば良いのです。

[1] 自治体に広がるOpenOffice.org

自分が勤めている会社では、OS やアプリケーションは Microsoft の製品がほとんどです。残念ながら、自社の情報システム部門がオープンソース系のシステム導入に前向きになる日が来るとしても、それはまだまだ先です、きっと。

CLR のバージョンの取得

2010-08-14T16:40:00.012+09:00

Mono で開発したアプリケーションを Windows でも実行することを想定しているので、ビルド時と実行時の CLR のバージョンを把握できる方法があればなにかと便利です。情報がないか探したところ、下記の参考サイト [1] にぴったりな情報があったので、早速試してみました。


using System;
using System.Reflection;
using System.Runtime.InteropServices;

namespace bitWalk
{
    class VerTest
    {
        public static void Main (string[] args)
        {
            string clrVersionBuildtime = Assembly.GetExecutingAssembly ().ImageRuntimeVersion;
            Console.WriteLine ("built CLR version: " + clrVersionBuildtime);
            string clrVersionRuntime = RuntimeEnvironment.GetSystemVersion(); 
            Console.WriteLine ("runtime CLR version: " + clrVersionRuntime);
        }
    }
}

プログラム名は VerTest.exe です。Linux の端末エミュレータ上で実行してみると、CLR のバージョンはどちらも v2.0.50727 でした。

Wine 上だと、実行バージョンが変わるかもしれないと期待して試してみましたが、両方とも v2.0.50727 でした。

それでは Windows 上であれば、と期待して実行してみましたが、結果はやはり同じ v2.0.50727 です。

なんとなく納得できないので、今度は、Windows XP 上の Visual Studio 2010 Express で同じソースを VerTest_VS.exe としてコンパイルして実行してみました。Windows 上では v4.0.30319 と表示されています。

Linux / Mono 上で実行すると、今度は確かに実行 CLR のバージョンが変わりました (v1.1.4322)。

Mono でコンパイルしたプログラムで直接確認できませんでしたが、機能的には確認できたので、とりあえず納得です。

参考サイト

[1] ＠IT：.NET TIPS ビルド時および実行時のCLRバージョンを取得するには？ - C# VB.NET
[2] ＠IT：.NET TIPS サイド・バイ・サイドによりCLRバージョンを指定するには？

Math.NET Numerics

2010-08-13T23:29:00.014+09:00

C# で手軽に使える、オープンソースの数値計算ライブラリがないか探してみました。演算速度のパフォーマンスを求める場合は、C# 以外の環境を検討する必要がありますが、それにしても「ある程度」の数値計算ぐらいは C# で開発していれば C# で処理したいですし、その「ある程度」がどの程度なのかも評価しなければなりません。

Mono プロジェクトの、ライブラリを紹介しているページの Math の項目に、dnAnalytics というライブラリが紹介されていますが、調べてみると、当の dnAnalytics と、Math.NET Iridium という他の数値計算ライブラリを開発するプロジェクトが一緒になり、現在 Math.NET Numerics というプロジェクトになっていることが判りました。ライセンスは MIT/X11 になっています。（ちなみに、以前の Math.NET Iridium は LGPL でした。）

早速、ダウンロードのサイトから MathNet.Numerics.2010.1.28.762.zip をダウンロードして、MonoDevelop で簡単なサンプルを動かしてみました。最初、Math.NET Numerics Code Samples - Math.NET Numerics Documentation にあるサンプルをそのままビルドしようとしましたが、以前の Math.NET Iridium 用のサンプルのままで、現時点で存在しないメソッドを使っていたので、少し直しました。動作確認だけだったので面白いサンプルではありません。

ドキュメントもある程度揃っているので、簡単なサンプルを作るなどして、使い勝手を評価していこうと考えています。

参考サイト

[1] Math.NET Numerics
[2] Math.NET on Mono (and Linux) - Math.NET Numerics Documentation
^注）以前の Math.NET Iridium の時のままですが同じことですので読み替えてください。

Mono で GUI プログラミング (4)

2010-08-12T19:24:00.015+09:00

今週は、お盆休みで時間に余裕があるので、インターネット上で入手できる .NET の GUI アプリケーションの C# ソースがあれば、ダウンロードして mono でビルドできるかどうか試してばかりいます。

今回は、Yukun's Blog で紹介されていたサンプルをビルドしてみました。サンプルは、以下の URL で紹介されている「キッチンタイマー」です。

・C#でキッチンタイマーを作ろう - Yukun's Blog

このサイトで紹介されているコードは、FormTimer.cs と FormTimer.Designer.cs の二種類です。これに、次のメインメソッドを記述した FormTimer.Main.cs を加えてビルドしました。


using System;
using System.Windows.Forms;

namespace Sample
{
    class Program
    {
        static void Main ()
        {
            Application.Run (new FormTimer ());
        }
    } 
}

複数のソースファイルから、単一の実行ファイルをビルドするには、-out オプションで出力ファイル名を指定して、ビルドするソースファイルを列挙します。


$ gmcs -pkg:dotnet -target:winexe -out:FormTimer.exe FormTimer.Designer.cs FormT
imer.Main.cs FormTimer.cs
$ mono FormTimer.exe &

Linux での実行例

MonoDevelop の利用

まともなアプリケーションを作ろうとすると、ソースコードは長大なファイルになるか、あるいは、いくつもの分割されたファイルになります。上記の例のように 3 つぐらいのソースコードであれば我慢ができますが、それ以上になると管理しきれなくなります。そんなとき IDE を使うと便利です。Mono 用の IDE に MonoDevelop があります。Fedora だと yum コマンドでインストールできます。以下は、MonoDevelop (2.2.2) で、上記のサンプルを編集している例です。

Mono で GUI プログラミング (3)

2010-08-08T11:27:00.013+09:00

Excel のようなスプレッドシートを使いたければ、それこそ Excel とか OpenOffice.org Calc を使えば良いのですが、GUI アプリケーションでちょっとしたスプレッドシートを使いたい時があります。

DataGridView コントロールを利用した例を [1] で見つけたので、それを少し加工したサンプル DataGridViewTest.cs を紹介します。


///////////////////////////////////////////////////////////////////////////////
//  DataGridViewTest.cs - DataGridView コントロールを使ったサンプル
//
//  参考／引用: 
//  Koders Code Search: Test.cs - C#
//  modified by Fuhito Suguri, 7-Aug-2010
///////////////////////////////////////////////////////////////////////////////
using System;
using System.Windows.Forms;
using System.Drawing;
//
namespace bitWalk
{
  public class Program
  {
    public static void Main (string[] args) {
      DataGridViewTest p = new DataGridViewTest();
      p.SampleDataShow();
      Application.Run(p);
    }
  }
  //
  public class DataGridViewTest : Form {
    DataGridView myDataGridView;
    /////////////////////////////////////////////////////////////////////////////
    // DataGridViewTest constructor
    public DataGridViewTest () {
      this.Width  = 400;
      this.Height = 200;
      this.Text = "DataGridViewTest";
      //
      this.Closed += OnClosed;
      //
      myDataGridView = new DataGridView();
      myDataGridView.ColumnCount = 5;
      //
      DataGridViewCellStyle style1 = myDataGridView.ColumnHeadersDefaultCellStyle;
      style1.BackColor = Color.Navy;
      style1.ForeColor = Color.White;
      style1.Font = new Font(myDataGridView.Font, FontStyle.Bold);
      //
      DataGridViewCellStyle style2 = new DataGridViewCellStyle();
      style2.BackColor = Color.Beige;
      style2.ForeColor = Color.Brown;
      style2.Font = new Font("Arial", 8);
      myDataGridView.AlternatingRowsDefaultCellStyle = style2;
      //
      myDataGridView.EditMode = DataGridViewEditMode.EditOnEnter;
      myDataGridView.Name = "myDataGridView";
      myDataGridView.AutoSizeRowsMode =
        DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders;
      myDataGridView.ColumnHeadersBorderStyle =
        DataGridViewHeaderBorderStyle.Raised;
      myDataGridView.CellBorderStyle = DataGridViewCellBorderStyle.Single;
      myDataGridView.GridColor = SystemColors.ActiveBorder;
      myDataGridView.Columns[0].Name = "リリース日";
      myDataGridView.Columns[1].Name = "トラック";
      myDataGridView.Columns[1].DefaultCellStyle.Alignment =
        DataGridViewContentAlignment.MiddleCenter;
      myDataGridView.Columns[2].Name = "タイトル";
      myDataGridView.Columns[3].Name = "アーティスト";
      myDataGridView.Columns[4].Name = "アルバム";
      myDataGridView.Columns[4].DefaultCellStyle.Font =
        new Font(DataGridView.DefaultFont, FontStyle.Italic);
      myDataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect; 
      myDataGridView.MultiSelect = false;
      myDataGridView.BackgroundColor = Color.Honeydew;
      myDataGridView.Dock = DockStyle.Fill;
      myDataGridView.CellFormatting +=
        new DataGridViewCellFormattingEventHandler(MyDataGridViewCellFormatting);
      myDataGridView.CellParsing +=
        new DataGridViewCellParsingEventHandler(MyDataGridViewCellParsing);
      myDataGridView.CellValidating +=
        new DataGridViewCellValidatingEventHandler(MyDataGridViewCellValidating);
      this.Controls.Add(myDataGridView);
      //
      DataGridViewColumnCollection columns = this.myDataGridView.Columns;
      columns[0].DisplayIndex = 3;
      columns[1].DisplayIndex = 4;
      columns[2].DisplayIndex = 0;
      columns[3].DisplayIndex = 1;
      columns[4].DisplayIndex = 2;
    }
    // Populating the DataGrid
    public void SampleDataShow () {
      DataGridViewRowCollection rows = this.myDataGridView.Rows;
      rows.Add(new string[] {"11/22/1968", "29", "Revolution 9", "Beatles", "The Beatles [White Album]"});
      rows.Add(new string[] {"4/4/1960", "6", "Fools Rush In", "Frank Sinatra", "Nice 'N' Easy"});
      rows.Add(new string[] {"11/11/1971", "1", "One of These Days", "Pink Floyd", "Meddle"});
      rows.Add(new string[] {"4/4/1988", "7", "Where Is MY Mind?", "Pixies", "Surfer Rosa"});
      rows.Add(new string[] {"5/1981", "9", "Can't Find My Mind", "Cramps", "Psychedelic Jungle"});
      rows.Add(new string[] {"6/10/2003", "13", "Scatterbrain. (As Dead As Leaves.)", "Radiohead", "Hail to the Thief"});
      rows.Add(new string[] {"6/30/1992", "3", "Dress", "P J Harvey", "Dry"});
    }
    //
    void MyDataGridViewCellValidating (object sender, EventArgs args) {
    }
    //
    void MyDataGridViewCellParsing (object sender, EventArgs args) {
    }
    //
    void MyDataGridViewCellFormatting (object sender, EventArgs args) {
    }
    //
    void OnClosed (object o, EventArgs e) {
      Console.WriteLine("Closed!");
      Application.Exit();
    }
  }
}
// END PROGRAM

Fedora 上でのビルド、および実行は次のようにします。


$ gmcs -pkg:dotnet -target:winexe DataGridViewTest.cs
$ mono DataGridViewTest.exe &

Windows XP へ DataGridViewTest.exe をコピーして、（ダブルクリックして）実行した結果を以下に示しました。

アプリケーションで使用するスプレッドシートでも、Excel の機能すべてが必要ではありませんが、それでも、ほとんどの場合で必要になる共通な基本機能があります。これらを用意してある程度汎用性があるクラスを用意しておけば、利用価値が高くなります。

参考サイト

[1] Koders Code Search: Test.cs - C#

Mono で GUI プログラミング (2)

2010-07-31T21:52:00.009+09:00

C# の練習に、電卓プログラムを作ってみました。Fedora では、mono 用の IDE として MonoDevelop が利用できますが、GUI については Gkt# が利用できるようになっており、.NET Framework の Form クラスを手軽に利用出来るようになっていなかったので、とりあえずテキストエディタでガリガリ記述してみました。

やや長いですが、ソース (dentaku.cs) を以下に示します。


///////////////////////////////////////////////////////////////////////////////
//  dentaku.cs - 電卓プログラム
//
//  created by Fuhito Suguri, 31-Jul-2010
///////////////////////////////////////////////////////////////////////////////
using System;
using System.Drawing;
using System.Windows.Forms;
//
namespace bitWalk
{
  class Program
  {
    static void Main()
    {
      Application.Run(new Dentaku());
    }
  }
  /////////////////////////////////////////////////////////////////////////////
  // class Dentaku
  /////////////////////////////////////////////////////////////////////////////
  class Dentaku : Form
  {
    // DISPLAY
    private Label lab_0;
    // KEY
    private Button but_dot;
    private Button but_equal;
    private Button but_plus;
    private Button but_minus;
    private Button but_mul;
    private Button but_div;
    private Button but_mrc;
    private Button but_mminus;
    private Button but_mplus;
    private Button but_clear;
    private Button but_sign;
    private Button but_percent;
    private Button but_root;
    private Button but_00;
    private Button but_0;
    private Button but_1;
    private Button but_2;
    private Button but_3;
    private Button but_4;
    private Button but_5;
    private Button but_6;
    private Button but_7;
    private Button but_8;
    private Button but_9;
    // background color of KEY
    private Color bgcolor_Disp = Color.PaleGreen;
    private Color bgcolor_Num  = Color.LightCyan;
    private Color bgcolor_Dot  = Color.PowderBlue;
    private Color bgcolor_Op   = Color.Lavender;
    private Color bgcolor_Eq   = Color.LavenderBlush;
    private Color bgcolor_Func = Color.LemonChiffon;
    private Color bgcolor_Memo = Color.LightPink;
    private Color bgcolor_Cls  = Color.HotPink;
    // KEY size
    private Size key_Size  = new Size(50, 30);
    private Size key_Size2 = new Size(50, 60);
    // layout
    private int[] row = {10, 60, 90, 120, 150, 180};
    private int[] col = {10, 60, 110, 160, 210};
    // for dentaku calculation
    private bool    entry_started   = false;
    private bool    entry_dot       = false;
    private decimal entry_result    = 0;
    private decimal entry_memory    = 0;
    private string  entry_operation = null;
    /////////////////////////////////////////////////////////////////////////////
    // Dentaku constructor
    public Dentaku()
    {
      this.Width  = 280;
      this.Height = 250;
      this.Text = "電卓";
      this.FormBorderStyle
        = System.Windows.Forms.FormBorderStyle.FixedDialog;
      // DISPLAY
      this.lab_0 = new Label();
      this.lab_0.Font = new Font("MS UI Gothic", 14);
      this.lab_0.BackColor = bgcolor_Disp;
      this.lab_0.BorderStyle = BorderStyle.FixedSingle;
      this.lab_0.Location = new Point(col[0], row[0]);
      this.lab_0.Name = "lab0";
      this.lab_0.Size = new Size(250, 40);
      this.lab_0.Padding = new Padding(5);
      this.lab_0.Text = "0";
      this.lab_0.TextAlign = ContentAlignment.MiddleRight;
      this.Controls.Add(this.lab_0);
      // KEY √
      this.but_root = new Button();
      this.but_root.BackColor = bgcolor_Func;
      this.but_root.Location = new Point(col[0], row[1]);
      this.but_root.Size = key_Size;
      this.but_root.Text = "√";
      this.but_root.Click += new EventHandler(but_func_Click);
      this.Controls.Add(this.but_root);
      // KEY MRC
      this.but_mrc = new Button();
      this.but_mrc.BackColor = bgcolor_Memo;
      this.but_mrc.Location = new Point(col[1], row[1]);
      this.but_mrc.Size = key_Size;
      this.but_mrc.Text = "MRC";
      this.but_mrc.Click += new EventHandler(but_memo_Click);
      this.Controls.Add(this.but_mrc);
      // KEY M-
      this.but_mminus = new Button();
      this.but_mminus.BackColor = bgcolor_Memo;
      this.but_mminus.Location = new Point(col[2], row[1]);
      this.but_mminus.Size = key_Size;
      this.but_mminus.Text = "M-";
      this.but_mminus.Click += new EventHandler(but_memo_Click);
      this.Controls.Add(but_mminus);
      // KEY M+
      this.but_mplus = new Button();
      this.but_mplus.BackColor = bgcolor_Memo;
      this.but_mplus.Location = new Point(col[3], row[1]);
      this.but_mplus.Size = key_Size;
      this.but_mplus.Text = "M+";
      this.but_mplus.Click += new EventHandler(but_memo_Click);
      this.Controls.Add(this.but_mplus);
      // KEY ÷
      this.but_div = new Button();
      this.but_div.BackColor = bgcolor_Op;
      this.but_div.Location = new Point(col[4], row[1]);
      this.but_div.Size = key_Size;
      this.but_div.Text = "÷";
      this.but_div.Click += new EventHandler(but_ope_Click);
      this.Controls.Add(this.but_div);
      // KEY ％
      this.but_percent = new Button();
      this.but_percent.BackColor = bgcolor_Func;
      this.but_percent.Location = new Point(col[0], row[2]);
      this.but_percent.Size = key_Size;
      this.but_percent.Text = "％";
      this.but_percent.Click += new EventHandler(this.but_func_Click);
      this.Controls.Add(this.but_percent);
      // KEY ７
      this.but_7 = new Button();
      this.but_7.BackColor = bgcolor_Num;
      this.but_7.Location = new Point(col[1], row[2]);
      this.but_7.Size = key_Size;
      this.but_7.Text = "７";
      this.but_7.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_7);
      // KEY ８
      this.but_8 = new Button();
      this.but_8.BackColor = bgcolor_Num;
      this.but_8.Location = new Point(col[2], row[2]);
      this.but_8.Size = key_Size;
      this.but_8.Text = "８";
      this.but_8.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_8);
      // KEY ９
      this.but_9 = new Button();
      this.but_9.BackColor = bgcolor_Num;
      this.but_9.Location = new Point(col[3], row[2]);
      this.but_9.Size = key_Size;
      this.but_9.Text = "９";
      this.but_9.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_9);
      // KEY ×
      this.but_mul = new Button();
      this.but_mul.BackColor = this.bgcolor_Op;
      this.but_mul.Location = new Point(this.col[4], this.row[2]);
      this.but_mul.Size = this.key_Size;
      this.but_mul.Text = "×";
      this.but_mul.Click += new EventHandler(this.but_ope_Click);
      this.Controls.Add(this.but_mul);
      // KEY ±
      this.but_sign = new Button();
      this.but_sign.BackColor = bgcolor_Func;
      this.but_sign.Location = new Point(col[0], row[3]);
      this.but_sign.Size = key_Size;
      this.but_sign.Text = "±";
      this.but_sign.Click += new EventHandler(but_func_Click);
      this.Controls.Add(this.but_sign);
      // KEY ４
      this.but_4 = new Button();
      this.but_4.BackColor = bgcolor_Num;
      this.but_4.Location = new Point(col[1], row[3]);
      this.but_4.Size = key_Size;
      this.but_4.Text = "４";
      this.but_4.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_4);
      // KEY ５
      this.but_5 = new Button();
      this.but_5.BackColor = bgcolor_Num;
      this.but_5.Location = new Point(col[2], row[3]);
      this.but_5.Size = key_Size;
      this.but_5.Text = "５";
      this.but_5.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_5);
      // KEY ６
      this.but_6 = new Button();
      this.but_6.BackColor = bgcolor_Num;
      this.but_6.Location = new Point(col[3], row[3]);
      this.but_6.Size = key_Size;
      this.but_6.Text = "６";
      this.but_6.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_6);
      // KEY −
      this.but_minus = new Button();
      this.but_minus.BackColor = bgcolor_Op;
      this.but_minus.Location = new Point(col[4], row[3]);
      this.but_minus.Size = key_Size;
      this.but_minus.Text = "−";
      this.but_minus.Click += new EventHandler(but_ope_Click);
      this.Controls.Add(this.but_minus);
      // KEY C
      this.but_clear = new Button();
      this.but_clear.BackColor = bgcolor_Cls;
      this.but_clear.Location = new Point(col[0], row[4]);
      this.but_clear.Size = key_Size;
      this.but_clear.Text = "C";
      this.but_clear.Click += new EventHandler(but_clear_Click);
      this.Controls.Add(this.but_clear);
      // KEY １
      this.but_1 = new Button();
      this.but_1.BackColor = bgcolor_Num;
      this.but_1.Location = new Point(col[1], row[4]);
      this.but_1.Size = key_Size;
      this.but_1.Text = "１";
      this.but_1.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_1);
      // KEY ２
      this.but_2 = new Button();
      this.but_2.BackColor = bgcolor_Num;
      this.but_2.Location = new Point(col[2], row[4]);
      this.but_2.Size = key_Size;
      this.but_2.Text = "２";
      this.but_2.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_2);
      // KEY ３
      this.but_3 = new Button();
      this.but_3.BackColor = bgcolor_Num;
      this.but_3.Location = new Point(col[3], row[4]);
      this.but_3.Size = key_Size;
      this.but_3.Text = "３";
      this.but_3.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_3);
      // KEY ＋
      this.but_plus = new Button();
      this.but_plus.BackColor = bgcolor_Op;
      this.but_plus.Location = new Point(col[4], row[4]);
      this.but_plus.Size = key_Size2;
      this.but_plus.Text = "＋";
      this.but_plus.Click += new EventHandler(but_ope_Click);
      this.Controls.Add(this.but_plus);
      // KEY ０
      this.but_0 = new Button();
      this.but_0.BackColor = bgcolor_Num;
      this.but_0.Location = new Point(col[0], row[5]);
      this.but_0.Size = key_Size;
      this.but_0.Text = "０";
      this.but_0.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_0);
      // KEY ００
      this.but_00 = new Button();
      this.but_00.BackColor = bgcolor_Num;
      this.but_00.Location = new Point(col[1], row[5]);
      this.but_00.Size = key_Size;
      this.but_00.Text = "００";
      this.but_00.Click += new EventHandler(but_num_Click);
      this.Controls.Add(this.but_00);
      // KEY ・
      this.but_dot = new Button();
      this.but_dot.BackColor = bgcolor_Dot;
      this.but_dot.Location = new Point(col[2], row[5]);
      this.but_dot.Size = key_Size;
      this.but_dot.Text = "・";
      this.but_dot.Click += new EventHandler(but_dot_Click);
      this.Controls.Add(this.but_dot);
      // KEY ＝
      this.but_equal = new Button();
      this.but_equal.BackColor = bgcolor_Eq;
      this.but_equal.Location = new Point(col[3], row[5]);
      this.but_equal.Size = key_Size;
      this.but_equal.Text = "＝";
      this.but_equal.Click += new EventHandler(but_equal_Click);
      this.Controls.Add(this.but_equal);
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_num_Click - NUMBER key enter
    private void but_num_Click(object sender, EventArgs e)
    {
      Button but = (Button)sender;
      string n = "0";
      switch (but.Text)
      {
        case "０" :   n = "0";  break;
        case "００" : n = "00"; break;
        case "１" :   n = "1";  break;
        case "２" :   n = "2";  break;
        case "３" :   n = "3";  break;
        case "４" :   n = "4";  break;
        case "５" :   n = "5";  break;
        case "６" :   n = "6";  break;
        case "７" :   n = "7";  break;
        case "８" :   n = "8";  break;
        case "９" :   n = "9";  break;
      }
      if (entry_started == false)
      {
        lab_0.Text = "0";
      }
      if (lab_0.Text == "0")
      {
        if (n != "00")
        {
          lab_0.Text = n;
        }
      }
      else
      {
        lab_0.Text = lab_0.Text + n;
      }
      entry_started = true;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_dot_Click - DOT key enter
    private void but_dot_Click(object sender, EventArgs e)
    {
      if (entry_dot == false)
      {
        if (entry_started == false)
        { 
         lab_0.Text = "0.";
        }
        else
        {
          lab_0.Text = lab_0.Text + ".";
        }
        entry_started = true;
        entry_dot     = true;
      } 
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_func_Click - Function key enter
    private void but_func_Click(object sender, EventArgs e)
    {
      decimal n;
      Button but = (Button)sender;
      switch (but.Text)
      {
        case "±" :
          n = decimal.Parse(lab_0.Text) * -1;
          lab_0.Text = n.ToString();
          break;
        case "％" :
          n = (decimal)(double.Parse(lab_0.Text) / 100);
          lab_0.Text = n.ToString();
          break;
        case "√" :
          try
          {
            n = (decimal)Math.Sqrt((double)decimal.Parse(lab_0.Text));
            lab_0.Text = n.ToString();
          }
          catch
          {
            lab_0.Text = "E";
          }
          break;
      }
      entry_started = false;
      entry_dot     = false;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_ope_Click - OPERATION key enter
    private void but_ope_Click(object sender, EventArgs e)
    {
      Button but = (Button)sender;
      if (entry_operation != null)
      {
        but_equal_calculation();
      }
      entry_operation = but.Text;
      entry_result    = decimal.Parse(lab_0.Text);
      entry_started   = false;
      entry_dot       = false;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_equal_Click - EQUAL key enter
    private void but_equal_Click(object sender, EventArgs e)
    {
      if (entry_operation != null)
      {
        but_equal_calculation();
      }
      entry_started = false;
      entry_dot     = false;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_equal_calculation - sub for EQUAL key enter
    private void but_equal_calculation()
    {
      decimal n = 0;
      switch (entry_operation)
      {
        case "＋" :
          n = entry_result + decimal.Parse(lab_0.Text);
          lab_0.Text = n.ToString();
          break;
        case "−" :
          n = entry_result - decimal.Parse(lab_0.Text);
          lab_0.Text = n.ToString();
          break;
        case "×" :
          n = entry_result * decimal.Parse(lab_0.Text);
          lab_0.Text = n.ToString();
          break;
        case "÷" :
          try
          {
            n = entry_result / decimal.Parse(lab_0.Text);
            lab_0.Text = n.ToString();
          }
          catch
          {
            lab_0.Text = "E";
          }
          break;
      }
      entry_operation = null;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_clear_Click - CLEAR key enter
    private void but_clear_Click(object sender, EventArgs e)
    {
      lab_0.Text      = "0";
      entry_started   = false;
      entry_dot       = false;
      entry_result    = 0;
      entry_operation = null;
    }
    ///////////////////////////////////////////////////////////////////////////
    // but_memo_Click - MEMORY key enter
    private void but_memo_Click(object sender, EventArgs e)
    {
      Button but = (Button)sender;
      switch (but.Text)
      {
        case "M+" :
          entry_memory = entry_memory + decimal.Parse(lab_0.Text);
          break;
        case "M-" :
          entry_memory = entry_memory - decimal.Parse(lab_0.Text);
          break;
        case "MRC" :
          lab_0.Text   = entry_memory.ToString();
          entry_memory = 0;
          break;
      }
      entry_started = false;
      entry_dot     = false;
    }
  }
}
// END PROGRAM

電卓の機能についてはデバッグが不十分です、ご了承ください。
Fedora 上でのビルド、および実行は次のようにします。


$ gmcs -pkg:dotnet -target:winexe dentaku.cs
$ mono dentaku.exe &

Windows XP へ dentaku.exe をコピーして、（ダブルクリックして）実行した結果を以下に示しました。

Mono で GUI プログラミング (1)

2010-07-25T12:12:00.039+09:00

Monoは、Ecma 標準に準じた .NET Framework 互換の環境を実現するためのオープンソースソフトウェアプロジェクトです。
FAQ ^[1] によると、Mono はスペイン語で猿の意味で、We like monkeys とあります。ロゴはゴリラをデザインしたもののようです。

Mono を利用すると、クロスプラットフォーム間（ここでは Linux と Windows）で簡単に同一の GUI アプリケーションを動作させることができそうです。

自宅では Linux、会社では Windows（しかもいまだに Windows XP）を使っているので、手軽に双方で動作するアプリケーションを Linux で開発するのであれば、Mono はまさにピッタリの開発環境です。MinGW クロスコンパイル環境よりもお手軽な感すらあります。

そこで、（C# 使いの Windows ユーザの方にとっては「今更」な感があるでしょうが）Windows 上で動作させることを意識した Mono の GUI プログラミングについて、調べた結果をまとめていきたいと思います。

最初は Hello World

まずは、おきまりの Hello World プログラムで動作確認です。当面は C# を使います。以下のソースを hello.cs として適当な場所に保存しておきます。


using System;
using System.Windows.Forms;
 
class HelloWorldApp {
    public static void Main() {
        MessageBox.Show("こんにちは、世界！", "mono");
    }
}

mono のインストール

乱暴な方法ですが、私は以下のように mono- で始まるパッケージ（と関連するパッケージ）を全部インストールしてしまっています。使用している Linux は Fedora 13、mono のバージョンは 2.6.4 です。


$ su
パスワード:
# yum install mono-*
読み込んだプラグイン:presto, refresh-packagekit
...
（以下省略）

C# コンパイラとビルド

Mono 2.6.4 で利用できる C# コンパイラは以下の 4 種類です。^[2]

mcs: compiler to target 1.1 runtime (to be deprecated with Mono 2.8).
gmcs: compiler to target the 2.0 runtime.
smcs: compiler to target the 2.1 runtime, to build Moonlight applications.
dmcs: the C# 4.0 compiler, and references the 4.0 runtime.

ここでは gmcs を使い、次のように hello.cs をビルド・実行します。


$ gmcs -pkg:dotnet -target:winexe hello.cs
$ mono hello.exe

コンパイルの際、-target:winexe を省略すると、Windows 上で実行した時に、コマンドプロンプトのウィンドウも表示されます。

同じく Linux 上の Wine で実行した結果を以下に示しました。


$ wine hello.exe

Wine には .Net Framework 2.0 をインストールしています。

Windows XP へ hello.exe をコピーして実行した結果は以下の様になります。

ちなみに XP では .Net Framework 3.5 までインストールされています。そのため、今のところ gmcs を使っていれば十分のようです。

参考サイト

[1] FAQ: General - Mono
[2] CSharp Compiler - Mono

Linux デスクトップ PC の時代は来るのか？

2010-05-21T21:21:00.019+09:00

Linux と付き合いを始めて既に 15 年近く経ちました。そもそも Linux を使い始めるきっかけは、何といっても Windows 95 で使う Visual Studio より GNU/Linux の開発環境の方が、自分にとって魅力的だったからです。それ以来、もっと Linux が一般に普及すればいいのにと思って使い続けています。そんな中で一時は Microsoft の牙城であるデスクトップ OS とオフィススイートの市場で、Linux のデスクトップ PC が脅威になるだろうと喧伝された時期がありました。

[1] Linuxデスクトップの台頭に苦悩するマイクロソフト

でも、実際には、今でもそうはなっていません。そもそも、かつての Linux 関係誌のほとんどが休刊に追い込まれている状況をみると、言わずもがなという感はあります。

ちょっと古いですが、以下のような記事があります。

[2] Linuxデスクトップは市場に受け入れられていない--その現実を直視してみる

上の記事の、筆者が挙げている Linux がデスクトップ市場で普及しない理由の 1 から 3 は、ごく一般的なユーザーの視点では納得ができませんが、

4 企業は非難の矛先を向ける対象が欲しい

は頷けます。

自分が勤めている会社では、相変わらずの Windows XP がデスクトップ PC です。IT 部門が、基幹系も含めて Windows 系のシステムしか導入していないから仕方ありません。でも周りの人にいろいろ聞いてみると、Windows に対する専門的な知識の少なさには驚かされます。思うに、Excel, Word あるいは PowerPoint そしてメールクライアントソフト (Outlook Express) が使用できれば、業務では事が足りているようです。それに一旦企業に普及してしまった環境を変えるということは、もうなかなかできないのかもしれません。

一方、自宅での使用環境を振り返ってみると、最初は「Windows をメインに、Linux を切り替えて」使用していたのですが、ある時点で勇気を出して「Linux をメインに、Windows を切り替えて」使用するようになって以来、Windows を滅多に使用しなくなってしまいました。

それでも世間一般の環境も利用できるように、なんとか Windows Vista までは切り替えて利用できるように追従してきましたが、Windows 7 でついに挫折です。Windows をほとんど使わないので投資効果が全然ありません。

自宅では Windows がなくても不自由を感じないので、これはきっとある意味では慣れなのでしょう。また、長く使っているので信頼感とか安心感もあります。だから、大多数のユーザーにとっては、会社でも使っている Windows を自宅でも使うことは、なにかと便利であるし、Windows の細かいところを知らなくとも、なんとなく「慣れ」とか「安心感」があるのだと思います。MacOS なんていう、車で言うとポルシェみたいなブランドの OS も確かに聞いたことがあるけれど、実質的に Windows 以外の選択肢があるという事実すら認識していないのかもしれません。そこまで Windows を世間に普及させたのですから、そういう意味ではどう考えても Microsoft の市場における勝利です。

Linux のデスクトップ環境が Windows を凌駕するためには、Linux のデスクトップでなければ実現できない、しかも大多数を惹きつける「なにか」がなければなりません。Linux でしか実現できないなんてものはあるのでしょうか？

あるとすれば、もう Linux とは言えないかもしれない Chromium OS (Google Chrome OS) のようなアプローチが、将来そうなる可能性を秘めています。しかし、先の記事にも書いてある通り、現実的な話題になるのは、まだまだ先の話です。

[3] Download Chrome OS VMWare image After Google announced the availability of the Chrome OS... - gdgt

ちなみに Web クライアントのシェアを、デスクトップ PC のシェアと同じと考えれば、今のところ Linux のシェアは 1% 程度しかありません。

[4] Usage share of operating systems - Wikipedia, the free encyclopedia

【備忘録】deltarpm の applydeltarpm

2010-05-08T17:54:00.017+09:00

RPM の差分インストール (delta RPM, drpm) の処理について、yum のプラグイン presto にばかり目が行ってしまい、直接、差分 RPM を処理できる deltarpm パッケージがあることを知りませんでした。Google で drpm をキーワードに情報収集を続けていたことも、（インストールされているにもかかわらず）deltarpm をすぐに見つけられなかった原因のひとつかもしれません。

とにかく deltarpm パッケージの存在を知ったので、遅ればせながら試してみました。


$ rpm -q deltarpm
deltarpm-3.5-0.7.20100121git.fc13.x86_64
$ rpm -ql deltarpm
/usr/bin/applydeltarpm
/usr/bin/combinedeltarpm
/usr/bin/makedeltarpm
/usr/bin/rpmdumpheader
/usr/share/doc/deltarpm-3.5
/usr/share/doc/deltarpm-3.5/LICENSE.BSD
/usr/share/doc/deltarpm-3.5/README
/usr/share/man/man8/applydeltarpm.8.gz
/usr/share/man/man8/combinedeltarpm.8.gz
/usr/share/man/man8/makedeltarpm.8.gz
$

applydeltarpm を利用すると、差分 RPM から、新しい RPM を生成（再構成）することができます。差分 RPM を使ってインストールされたパッケージを直接アップデートすることははできません。しかし、そういうものが必要であれば、機能を組み合わせて、表面上は直接アップデートしてくれるようなツールができそうです。

man makedeltarpm の出力の一部を日本語に訳してみました。


NAME
       applydeltarpm - 差分 RPM から RPM を再構成します

SYNOPSIS
       applydeltarpm [-v] [-p] [-r oldrpm] deltarpm newrpm

DESCRIPTION
       applydeltarpm は、バイナリの差分データを、古い RPM ファイルあるいはインス
       トールされたディスク上のデータに適用して新しい RPM を生成します。古い RPM
       は -r オプションで指定し、指定がない場合はディスク上のデータが使用されま
       す。
       -p オプションを指定すると完了率が表示され、-v オプションを指定すると、処
       理状態が出力されます。

実行例を以下に示します。


$ rpm -q sawarabi-gothic-fonts
sawarabi-gothic-fonts-20100315-1.fc12.noarch
$ ls
sawarabi-gothic-fonts-20100315-1.fc12_20100430-1.fc13.noarch.drpm
$ applydeltarpm -p -v sawarabi-gothic-fonts-20100315-1.fc12_20100430-1.fc13.noar
ch.drpm sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
reading deltarpm
applying delta
100 percent finished.
$ ls
sawarabi-gothic-fonts-20100315-1.fc12_20100430-1.fc13.noarch.drpm
sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
$ su
パスワード:
# rpm -Uvh sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
準備中...                ########################################### [100%]
   1:sawarabi-gothic-fonts  ########################################### [100%]
#

deltarpm パッケージの makedeltarpm を利用すれば、差分 RPM を生成出来ます。しかしながら自分にとっては、前回紹介した presuto-utils パッケージの createdeltarpms の方が操作が簡単のように思います。使用例を以下に示しました。


$ ls
sawarabi-gothic-fonts-20100315-1.fc12.noarch.rpm
sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
$ makedeltarpm sawarabi-gothic-fonts-20100315-1.fc12.noarch.rpm sawarabi-gothic-
fonts-20100430-1.fc13.noarch.rpm sawarabi-gothic-fonts-20100315-1.fc12_20100430-
1.fc13.noarch.drpm
$ ls
sawarabi-gothic-fonts-20100315-1.fc12.noarch.rpm
sawarabi-gothic-fonts-20100315-1.fc12_20100430-1.fc13.noarch.drpm
sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
$

【備忘録】drpm パッケージの作り方

2010-05-05T19:36:00.004+09:00

Fedora 11 から yum のプラグインとして採用された、RPM の差分インストール (delta RPM, drpm) を処理する presto は、今では当たり前の機能のようになってしまっています。しかし、どうやって drpm を作成するのか知らなかったので、調べてみました。

drpm を作成するには、presto-utils が必要になります。


# yum install presto-utils

presuto-utils に収録されている createdeltarpms（処理の実体は Python のスクリプト）が RPM の差分を生成します。


    createdeltarpms [options] directory-of-packages directory-of-deltarpms

    Options:
     -d, --dist-update <dir> = optional directory containing old distribution
                               to create an update from
     -c, --count <number> = optional maximum number of deltarpms to create
                            per package.  Default is maximum available
     -n, --no-first = Don't create deltarpm against first rpm if number exceeds
                      count.  Useful if you are running a continually-updated
                      distribution rather than one with set release cycles.
     -q, --quiet = run quietly
     -v, --verbose = run verbosely
     -h, --help = show this help
     -V, --version = output version

試しに、rpms　というフォルダに、sawarabi-gothic-fonts の二種類のリリースの RPM パッケージをコピーし、drpms という空のディレクトリを用意して、createdeltarpms を実行してみました。


$ ls rpms
sawarabi-gothic-fonts-20100315-1.fc12.noarch.rpm
sawarabi-gothic-fonts-20100430-1.fc13.noarch.rpm
$ createdeltarpms ./rpms ./drpms
/usr/lib/python2.6/site-packages/presto-utils/dumpMetadata.py:23: DeprecationWar
ning: the md5 module is deprecated; use hashlib instead
  import md5
/usr/lib/python2.6/site-packages/presto-utils/dumpMetadata.py:24: DeprecationWar
ning: the sha module is deprecated; use the hashlib module instead
  import sha
Using base dir: rpms
Using destination dir: drpms
Generated delta rpm for sawarabi-gothic-fonts.noarch - 20100315-1.fc12 => 201004
30-1.fc13
$ ls drpms
sawarabi-gothic-fonts-20100315-1.fc12_20100430-1.fc13.noarch.drpm

RPM レポジトリを公開しているわけではないので、差分パッケージの作成方法が解ったからといって、なにかにすぐ使えるということはなさそうです。差分の操作をローカルでもう少しできるのかもしれません。

参考サイト

[1] 差分アップデートでダウンロード時間を短縮！--Fedora 11のDelta RPMを活用する - builder by ZDNet Japan
[2] 着実な進化を見せるFedora 11新機能レビュー - SourceForge.JP Magazine : オープンソースの話題満載

CMake とクロスコンパイル

2010-05-04T15:46:00.016+09:00

CMake を利用して、Linux 上で GTK+ のサンプルプログラムをビルドしてみました。使用マシン / OS は Fedora 13 β版 x86_64, 使用したサンプルは、以下のソース hello_gtk.c です。


#include <gtk/gtk.h>
 
static void
hello (GtkWidget * widget, gpointer data)
{
  g_print ("Hello World!\n");
}
 
static gboolean
delete_event (GtkWidget * widget, GdkEvent * event, gpointer data)
{
  g_print ("delete event occurred\n");
 
  return TRUE;
}
 
static void
destroy (GtkWidget * widget, gpointer data)
{
  gtk_main_quit ();
}
 
int
main (int argc, char *argv[])
{
  GtkWidget *window;
  GtkWidget *button;
 
  gtk_init (&argc, &argv);
  window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
 
  g_signal_connect (G_OBJECT (window), "delete_event",
      G_CALLBACK (delete_event), NULL);
  g_signal_connect (G_OBJECT (window), "destroy", G_CALLBACK (destroy), NULL);
 
  gtk_container_set_border_width (GTK_CONTAINER (window), 10);
  button = gtk_button_new_with_label ("こんにちは、世界！");
 
  g_signal_connect (G_OBJECT (button), "clicked", G_CALLBACK (hello), NULL);
  g_signal_connect_swapped (G_OBJECT (button), "clicked",
       G_CALLBACK (gtk_widget_destroy),
       G_OBJECT (window));
 
  gtk_container_add (GTK_CONTAINER (window), button);
  gtk_widget_show (button);
  gtk_widget_show (window);
 
  gtk_main ();
 
  return 0;
}

CMake 用に以下の CMakeLists.txt というテキストファイルを用意して、hello_gtk.c と同じディレクトリに保存します。


project(Hello)
cmake_minimum_required(VERSION 2.8)
 
include(FindPkgConfig)
pkg_check_modules(GLIB2 glib-2.0)
pkg_check_modules(GTK2 gtk+-2.0)
 
include_directories(${GTK2_INCLUDE_DIRS})
link_directories(${GTK2_LIBRARY_DIRS})
link_libraries(${GTK2_LIBRARIES})
 
if(MINGW)
  set(CMAKE_C_FLAGS -mms-bitfields)
  set(CMAKE_CXX_FLAGS -mms-bitfields)
  set(CMAKE_EXE_LINKER_FLAGS -mwindows)
endif(MINGW)
 
add_executable(hello hello_gtk.c)

Linux ネイティブなビルド

まずは、Linux ネイティブなビルドをしてみましょう。カレントディレクトリが hello_gtk.c と同じとします。


$ mkdir unix
$ cd unix
$ cmake ..
-- The C compiler identification is GNU
-- The CXX compiler identification is GNU
-- Check for working C compiler: /usr/lib64/ccache/gcc
-- Check for working C compiler: /usr/lib64/ccache/gcc -- works
-- Detecting C compiler ABI info
-- Detecting C compiler ABI info - done
-- Check for working CXX compiler: /usr/lib64/ccache/c++
-- Check for working CXX compiler: /usr/lib64/ccache/c++ -- works
-- Detecting CXX compiler ABI info
-- Detecting CXX compiler ABI info - done
-- checking for module 'glib-2.0'
--   found glib-2.0, version 2.24.0
-- checking for module 'gtk+-2.0'
--   found gtk+-2.0, version 2.20.0
-- Configuring done
-- Generating done
-- Build files have been written to: /home/bitwalk/work/gtk_hello/unix
$ make
Scanning dependencies of target hello
[100%] Building C object CMakeFiles/hello.dir/hello_gtk.c.o
Linking C executable hello
[100%] Built target hello
$ ./hello
Hello World!
$ cd ..

MinGW 用クロスビルド

まず、MinGW クロスコンパイル環境に対応した CMake 用設定ファイル Toolchain-i686-mingw32.cmake を用意し、適当なディレクトリ（ここでは、$HOME/work/cmake）に保存しておきます。


set(CMAKE_SYSTEM_NAME Windows)
 
# specify the cross compiler
set(CMAKE_C_COMPILER   /usr/bin/i686-pc-mingw32-gcc)
set(CMAKE_CXX_COMPILER /usr/bin/i686-pc-mingw32-g++)
 
# set PKG_CONFIG_PATH for MinGW Cross Compile Environment
set(ENV{PKG_CONFIG_PATH} /usr/i686-pc-mingw32/sys-root/mingw/lib/pkgconfig)
 
# where is the target environment 
set(CMAKE_FIND_ROOT_PATH /usr/i686-pc-mingw32/sys-root/mingw)

その上で、次のようにして cmake を実行して Makefile を生成して、make します。


$ mkdir win
$ cd win
$ cmake -DCMAKE_TOOLCHAIN_FILE=~/work/cmake/Toolchain-i686-mingw32.cmake ..
-- The C compiler identification is GNU
-- The CXX compiler identification is GNU
-- Check for working C compiler: /usr/bin/i686-pc-mingw32-gcc
-- Check for working C compiler: /usr/bin/i686-pc-mingw32-gcc -- works
-- Detecting C compiler ABI info
-- Detecting C compiler ABI info - done
-- Check for working CXX compiler: /usr/bin/i686-pc-mingw32-g++
-- Check for working CXX compiler: /usr/bin/i686-pc-mingw32-g++ -- works
-- Detecting CXX compiler ABI info
-- Detecting CXX compiler ABI info - done
-- checking for module 'glib-2.0'
--   found glib-2.0, version 2.23.4
-- checking for module 'gtk+-2.0'
--   found gtk+-2.0, version 2.19.6
-- Configuring done
-- Generating done
-- Build files have been written to: /home/bitwalk/work/gtk_hello/win
$ make
Scanning dependencies of target hello
[100%] Building C object CMakeFiles/hello.dir/hello_gtk.c.obj
Linking C executable hello.exe
[100%] Built target hello
$ wine hello.exe
Hello World!
$ cd ..

まだまだ CMake を使いこなせてはいませんが、とにかく、クロスコンパイル環境でも CMake が使える事を確認できました。

参考サイト

[1] CMake Cross Compiling - KitwarePublic

LLVM 2.7 のベンチマーク (2)

2010-05-03T23:49:00.008+09:00

LLVM のベンチマークと言っても、コンパイルに使用するライブラリのほとんどが GCC でビルドされたものであることを考えると、前回の Tcl を使ったベンチマークは、あまりにもアバウトな比較だったように思います。

そこで、今回は、GMP を利用した円周率の計算プログラムで、GCC と LLVM/clang のパフォーマンスを較べてみました。計算の主要部分である GMP ライブラリを GCC と clang でビルドして用いれば、もう少し精度の良い比較が出きると考えたからです。

GMP は最新の 5.0.1 のスタティックライブラリを GCC, LLVM/clang それぞれでビルドしてローカルアカウントの領域にインストール、そのライブラリを使い、円周率計算プログラムを、それぞれに対応するコンパイラでビルドして比較してみました。

円周率の計算プログラムのソースは、GNU/Linux上で円周率の計算をおこなうで紹介されている pi.c を利用させていただきました。

GMP をビルドするのに使用したスクリプト build-gmp.sh を以下に示しました。このスクリプトは作業エリア $HOME/work/Pi/GMP/ 内に GMP のソースがあり、インストール先が使用したコンパイラに応じて、$HOME/work/Pi/GMP/${CC} であることを想定しています。


#!/bin/sh
 
# C compiler
#export CC=gcc
export CC=clang
 
# constants
export ver="5.0.1"
 
# remove old sources
echo "### Removing old sources & binaries"
rm -fR gmp-${ver}
 
# extract sources
echo "### Expanding sources to build"
tar jxvf gmp-${ver}.tar.bz2
 
# build GMP
echo "### build GMP"
cd gmp-${ver}
./configure --prefix=$HOME/work/Pi/GMP/${CC} \
--disable-shared --enable-static
make
make install

GCC と　LLVM/clang でそれぞれビルド、円周率を計算した結果を以下に示しました。使用した PC は Thinkpad X31 です。なお、あらかじめ glibc のスタティックライブラリの RPM glibc-static がインストールされている必要があります。


### GCC 4.4.3
 
$ time ./build-gmp.sh
real 3m28.100s
user 0m50.568s
sys 1m19.172s
 
$ ls -l ./gcc/lib/libgmp.a
-rw-r--r--. 1 bitwalk bitwalk 816078 2010-05-03 23:24 ./gcc/lib/libgmp.a
 
$ gcc -static -O2 -I./gcc/include pi.c ./gcc/lib/libgmp.a -o pi
$ time ./pi > pi.dat
real 0m19.522s
user 0m18.564s
sys 0m0.661s
 
 
### LLVM/clang 2.7
 
$ time ./build-gmp.sh
real 4m2.098s
user 1m11.869s
sys 1m30.534s
 
$ ls -l ./clang/lib/libgmp.a
-rw-r--r--. 1 bitwalk bitwalk 739022 2010-05-03 23:36 ./clang/lib/libgmp.a
 
$ clang -static -O2 -I./clang/include pi.c ./clang/lib/libgmp.a -o pi
$ time ./pi > pi.dat
real 0m19.584s
user 0m18.661s
sys 0m0.622s

今回は、GMP のビルドに要した時間も計測してみましたが、意外にも clang でビルドした場合の方が時間が掛かっています（+16.3% 程度）。バイナリ libgmp.a のサイズは clang でビルドした方が明らかに小さく（-9.4% 程度）、実行速度は GCC よりやや遅い（+0.3% 程度）という結果になりました。

余談になりますが、Fedora 13（β版）の RPM パッケージ GMP 4.3.1 のスタティックライブラリを使って普通にビルドした場合の計算時間も確認しました。GMP 5.0.1 との差にびっくりです。


$ gcc -static -O2 pi.c -lgmp -o pi
$ time ./pi > pi.dat
real 0m38.492s
user 0m37.361s
sys 0m0.605s

参考サイト

[1] GNU/Linux上で円周率の計算をおこなう
[2] The GNU MP Bignum Library

LLVM 2.7 のベンチマーク

2010-05-02T10:21:00.017+09:00

先日リリースされたばかりの LLVM 2.7 のベンチマークを、前回と同様に取ってみました。OS / マシンは、Fedora 13（β版）/ 32bit の古いノート PC (ThinkPad X31) を使用しています。

LLVM/clang の RPM は、rawhide のパッケージ llvm-2.7-0.1.pre1.fc14.src.rpm の spec ファイルを書き換え、LLVM と clang のソースファイルも 2.7 リリース版に置き換えてビルドしたパッケージを使用しました。

ベンチマークに使用した Tcl は、nightly-cvs 版 tcl-20100430.tar.gz です。以下に GCC 4.4.3 と LLVM/clang-2.7 のベンチマーク結果を示しました。


Fedora 13 (32bit i686)
tcl-20100430
# GCC 4.4.3
1000000 repeats in 0.146364
10000 iterative factorial(100) in 74.794581
10000 iterative factorial(100) with 'if' in 75.131586
10000 recursive factorial(100) in 90.248124
1000 exec calls in 5.680614
total time was 246.00126899999998
 
# LLVM/clang 2.7
1000000 repeats in 0.170331
10000 iterative factorial(100) in 77.283847
10000 iterative factorial(100) with 'if' in 77.356544
10000 recursive factorial(100) in 93.987031
1000 exec calls in 5.631689
total time was 254.429442

依然として clang で生成したバイナリの方が遅いのですが、その差は 3 - 4% 程度でした。

clang-2.7 では C++ のセルフホスティングに対応し、LLVM と clang のビルドが可能になったということです。次の興味としては、clang でビルドした LLVM/clang のパフォーマンスがどうなのかなのですが、まずは clang でビルド出来ることを確認してみます。

さわらびゴシック 20100430

2010-05-01T07:42:00.003+09:00

さわらびゴシックフォント 20100430 がリリースされました。しばらく RPM パッケージ作成をサボっていましたが、今回は Fedora 13 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1,845 文字になりました。

・さわらびフォント

Fedora 13 (Goddard) ベータ版

2010-04-30T22:18:00.006+09:00

Fedora 13 リリーススケジュールによると、当初の予定より遅れ、正式リリースは 5 月 18 日、RC 版のリリースが 5 月 6 日の予定になっています。

当初はこの GW に RC 版をインストールしようと予定していたのですが、5 月 6 日までは待ちきれず、β版の iso イメージをダウンロードしてアップグレードしてしまいました。

参考サイト

[1] Fedora 13のベータ版が登場 - 正式版は5月中旬か | エンタープライズ | マイコミジャーナル

【備忘録】LLVM の IR って？

2010-04-29T06:03:00.005+09:00

LLVM を使い始めてまだ日が浅いので、マニュアルを読むと解らない用語がいろいろあります。

頻繁に出てくる LLVM IR あるいは an in-memory compiler IR という表現で使われている IR もその一つです。

どうやら IR は Instruction Register の略語だと思うのですが…、ちょっと自信がありません。とりあえず【備忘録】として残しておきます。

【訂正】 02-May-2010
[2] の記事に書いてありました。IR とは Intermediate Representation の略でした。

LLVM 2.7 リリース

2010-04-28T21:34:00.002+09:00

LLVM 2.7 が 4 月 27 日付けでリリースされました。

[1] The LLVM Compiler Infrastructure

LLVM と clang

2010-04-17T11:09:00.023+09:00

以前から気になっていた LLVM と clang を、Fedora 12 上で使ってみました。

LLVM は Low Level Virtual Machine の略で、プログラミング言語に対する仮想マシン（コンパイラ・インフラストラクチャ）です。この仮想マシンには RISC CPU のようなインストラクションセット（マシン語）が構成されています。プログラミング言語で記述されたプログラムを、LLVM のフロントエンドのコンパイラが仮想マシン LLVM のマシン語に翻訳し、LLVM が言語やプラットフォームから独立して最適化を行い、ターゲット CPU のマシン語を生成します。

clang（クラング）は、C 系のプログラミング言語 (C, C++, Objective C/C++) をサポートする LLVM のフロントエンド（コンパイラ）で、GCC と互換性があります。また、プログラムを開発する IDE とインターフェースを取りやすいように考慮された設計になっています。


SYNOPSIS
       clang [-c|-S|-E] -std=standard -g
         [-O0|-O1|-O2|-Os|-O3|-O4]
         -Wwarnings... -pedantic
         -Idir... -Ldir...
         -Dmacro[=defn]
         -ffeature-option...
         -mmachine-option...
         -o output-file
         input-filenames

どちらのライセンスも、BSD ライセンスをベースにした University of Illinois/NCSA Open Source License です。

さて、Fedora 12 で LLVM と clang 関連 RPM を利用するには、yum で次のようにしてインストールします。


$ yum install llvm* clang*

LLVM、clang のバージョンは 2.6 で、最新の安定版です。

clang で生成したバイナリが、どの程度のパフォーマンスを持っているのか気になるので、Tcl の nightly-CVS(Tcl8.6b1.1, tcl-20100415.tar.gz) ファイルをダウンロードして、gcc と clang それぞれでコンパイルしたバイナリのベンチマークを取ってみました。

Tcl のビルドに使用したスクリプトを以下に示します。


#!/bin/sh
 
# C compiler
#export CC=gcc
export CC=clang
 
# constants
export cvs_ver="20100415"
 
# remove old sources
echo "### Removing old sources & binaries"
rm -fR tcl
 
# extract sources
echo "### Expanding sources to build"
tar zxvf tcl-${cvs_ver}.tar.gz
 
# build Tcl
echo "### build Tcl"
cd tcl/unix
./configure --prefix=$HOME
make
make test
make install

clang でビルドした際に、警告メッセージが gcc の時と違って、ずいぶんと親切な内容であったことが印象的でした。例を以下に示します。


clang -c -DNDEBUG -O2  -pipe -fvisibility=hidden  -Wall -fPIC -DBUILD_tcl -I"." 
-I/home/bitwalk/src/tcl/unix -I/home/bitwalk/src/tcl/generic -I/home/bitwalk/src
/tcl/libtommath -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSI
ON=\"8.6\" -DPACKAGE_STRING=\"tcl\ 8.6\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS
=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 
-DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAV
E_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REEN
TRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DH
AVE_ZLIB=1 -DTCL_SHLIB_EXT=\".so\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 -DTCL
_TOMMATH=1 -DMP_PREC=4 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -D
HAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DHA
VE_GETCWD=1 -DHAVE_MKSTEMP=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -
DHAVE_GETADDRINFO=1 -DHAVE_GETPWUID_R_5=1 -DHAVE_GETPWUID_R=1 -DHAVE_GETPWNAM_R_
5=1 -DHAVE_GETPWNAM_R=1 -DHAVE_GETGRGID_R_5=1 -DHAVE_GETGRGID_R=1 -DHAVE_GETGRNA
M_R_5=1 -DHAVE_GETGRNAM_R=1 -DHAVE_GETHOSTBYNAME_R_6=1 -DHAVE_GETHOSTBYNAME_R=1 
-DHAVE_GETHOSTBYADDR_R_8=1 -DHAVE_GETHOSTBYADDR_R=1 -DUSE_TERMIOS=1 -DHAVE_SYS_T
IME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKT
IME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_TIMEZONE_VAR=1 -DHAVE_STRUCT_STAT_ST_BLOCKS=1 -D
HAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_BLKCNT_T=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR
_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_LANGINFO=1 -DHAVE_MKSTEMPS=1 -DHAVE_FTS=1 -DHAV
E_SYS_IOCTL_H=1 -DTCL_UNLOAD_DLLS=1       /home/bitwalk/src/tcl/generic/tclBasic
.c
/home/bitwalk/src/tcl/generic/tclBasic.c:7652:2: warning: expression result unus
ed [-Wunused-value]
        TclGetLongFromObj(NULL, objPtr, &iResult);
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/home/bitwalk/src/tcl/generic/tclInt.h:2460:57: note: instantiated from:
            ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \
                                                               ^
/home/bitwalk/src/tcl/generic/tcl.h:635:18: note: instantiated from:
#define TCL_OK                  0
                                ^
/home/bitwalk/src/tcl/generic/tclBasic.c:7892:2: warning: expression result unus
ed [-Wunused-value]
        TclGetLongFromObj(NULL, objPtr, &i);
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/home/bitwalk/src/tcl/generic/tclInt.h:2460:57: note: instantiated from:
            ? ((*(longPtr) = (objPtr)->internalRep.longValue), TCL_OK) \
                                                               ^
/home/bitwalk/src/tcl/generic/tcl.h:635:18: note: instantiated from:
#define TCL_OK                  0
                                ^
/home/bitwalk/src/tcl/generic/tclBasic.c:8897:5: warning: expression result unus
ed [-Wunused-value]
    TclGetString(cmdObjPtr);
    ^~~~~~~~~~~~~~~~~~~~~~~
/home/bitwalk/src/tcl/generic/tclInt.h:3957:33: note: instantiated from:
    ((objPtr)->bytes? (objPtr)->bytes : Tcl_GetString((objPtr)))
                      ~~~~~~~~  ^~~~~
3 diagnostics generated.

Tcl のベンチマークは、Tcl benchmark tests のサイトのスクリプトの一部を使用しました。32bit の x86 版 Fedora 12 上で、gcc と clang それぞれのベンチマークを取った結果は以下のようになりました。数値の単位は「秒」です。


### gcc
$ ls -l libtcl8.6.so
-r-xr-xr-x. 1 bitwalk bitwalk 1393392 2010-04-17 09:15 libtcl8.6.so

$ tclsh8.6 benchmark.tcl
1000000 repeats in 0.169659
10000 iterative factorial(100) in 73.867148
10000 iterative factorial(100) with 'if' in 73.777363
10000 recursive factorial(100) in 88.282079
1000 exec calls in 1.600121
total time was 237.69637
 
### LLVN & clang
$ ls -l libtcl8.6.so
-r-xr-xr-x. 1 bitwalk bitwalk 1371875 2010-04-17 09:54 libtcl8.6.so
 
$ tclsh8.6 benchmark.tcl
1000000 repeats in 0.165494
10000 iterative factorial(100) in 79.013924
10000 iterative factorial(100) with 'if' in 79.165719
10000 recursive factorial(100) in 95.940107
1000 exec calls in 1.549376
total time was 255.83461999999997

64bit 版 Fedora 12 上でも、--enable-64bit スイッチを加えてビルドした Tcl を試しましたが、現時点では、どちらの場合も、clang でビルドしたバイナリによる計算速度は、gcc でビルドしたものより 5 - 10 % 程度遅いという結果になりました。バイナリのサイズは clang で生成した方が、やや小さくなっています。

IDE でプログラムを開発する場合のメリットを調べる必要があります。機会があれば紹介しようと思います。

参考サイト

[1] The LLVM Compiler Infrastructure Project
[2] LLVM 2.6リリース - SourceForge.JP Magazine : オープンソースの話題満載
[3] LLVMのコンパイラ「Clang」、セルフホスティングに成功 - SourceForge.JP Magazine : オープンソースの話題満載

Let's Wine（第15回）

2010-03-27T18:27:00.021+09:00

ParaFla を試す

ParaFla は（Windows 用の）フリーな Flash 作成ツールで、簡単な操作で Flash ムービーが作成可能、簡単お手軽にテキストエフェクトが使用可能、FLASH MX 相当の本格的なアクションスクリプトに対応、携帯電話向けの FSCommand2 や SMAF・MFi サウンドに対応、FLASH8 相当のフィルタエフェクト・ブレンドモードに対応といった特徴があります。著作権は作者である Coa 氏に帰属します。

ParaFra を動作させるには、Visual Basic 6.0 のランタイム及び IE 用の Flash Player 8 が必要になります。私の wine の環境では、VB のランタイムは、XTRM Runtime をインストール、Flash は、（後方互換性があると考え）Flash Player 10 for Windows Internet Explorer をインストールしています。

ParaFla を実行するには、ダウンロードした zip ファイルを展開し、parafla.exe を wine で起動するだけです。


$ unzip parafla137.zip
Archive:  parafla137.zip
   creating: parafla/
  inflating: parafla/aclib.dll       
   creating: parafla/effect/
   creating: parafla/effect/in/
   :
   :
  inflating: parafla/sample/sample10/texteffect.pfl  
  inflating: parafla/zlib.dll
$ cd parafla
$ ls
aclib.dll  history.txt  ijl15.dll  parafla.chm  readme.txt  zlib.dll
effect     icons.bmp    mpng.dll   parafla.exe  sample
$ wine parafla.exe &

以下は、同梱されていたサンプルファイル sample06 から swf ファイルを出力して表示した例です。

私の調査不足かもしれませんが、Linux では、これといった Flash ムービー作成用ツールが見当たらないので、wine 上で動作する ParaFla は重宝しそうです。

参考サイト

[1] ParaFla!のページ

Fedora 13 のリリース時期

2010-03-21T01:47:00.007+09:00

Fedora 13 のリリース時期が近づいています。年 2 回のリリースというペースは、なかなか慌しいことです。予定では正式リリースは 5 月 11 日で、現在、αリリースが公開されています。

RC 版が入手出来るようになったら、次のリリースに乗り換えていますので、5 月の連休は、新しい Fedora に振り回されます。

[1] Releases/13/Schedule - FedoraProject
[2] Releases/13/FeatureList - FedoraProject

Let's Wine（第14回）

2010-03-20T09:03:00.015+09:00

msstyle 形式のスキンでカスタマイズ

Windows XP を使うときには、Windows クラシックスタイルを使っています。

Windows XP のスタイル（Windows クラシックスタイル）

しかし、Wine で Windows のアプリケーションを実行する時には、オリジナルのスタイルの場合、なぜかとても貧相のように感じ、可能であれば、もう少しなんとかならないかと思っていました。

Wine のオリジナルスタイル (winecfg)

参考サイト [1] に、無料で入手できる Windows XP の msstyle のスキンを見つけたので、いろいろと Wine に試してみました。以下は、Xenes VS というテーマを Wine に適用した例です。

Wine に Venes VS を適用した例 (winecfg)

Wine 上で実行した"まめFile４"の例

参考サイト

[1] msstyles Skins

【備忘録】Google の正規表現ライブラリ re2

2010-03-16T20:59:00.012+09:00

SourceForge.jp によると、米 Google が 3 月 11 日、C++ 用の正規表現ライブラリ「RE2」を発表したそうです。（sawarabi-gothic 20100315 の RPM パッケージをアップロードする時に記事を発見しました。）

スレッドフレンドリーで高速、しかも一定の小さいメモリ量で動作するように開発されているのが特徴で、処理時間は入力に対して線形に増加するよう保証されているそうです。ライセンスは New BSD License ということなので、広く利用可能です。

ちなみに、勝手に借用してしまいましたが、意味不明なロゴ（文頭）です。

[1] 米Google、高速・低メモリ消費の正規表現ライブラリ「RE2」を公開
[2] re2 - Project Hosting on Google Code

Let's Wine（第13回）

2010-03-14T10:13:00.004+09:00

コントロールパネル

Windows のコントロールパネルに相当するものが、Wine には無いのかと思っていましたが、調べてみるとちゃんとありました。


$ wine control

Wine のコントロールパネルは、アプリケーションのインストールで、コントロールパネルのアプレット（.cpl の拡張子のファイル）があるものに対応するためのものだそうです。

参考サイト

[1] WineHQ - Running Wine

Let's Wine（第12回）

2010-03-07T18:37:00.010+09:00

追加フォント用 RPM パッケージ

Wine の C ドライブや設定は、デフォルトで $HOME/.wine 以下に生成されます。そのため設定を大きく変えるときなどには、$HOME/.wine の名前を変更するか削除してもう一度作り直す事ができます。オリジナルの Wine では供給されていない日本語 TTF フォントなどは、自前で用意して ~/.wine/drive_c/windows/Fonts に直接コピーして使っていましたが、毎回、$HOME/.wine を変更する度に日本語 TTF などのフォントをコピーするのはさすがに面倒になりました。

Wine が使用するオリジナルのフォントは、%{_datadir}/wine/fonts にインストールされていますので、足りないフォントをそこにインストール出来るように RPM パッケージを作りました。ただし、追加するフォントは、フリーのフォントではなく配布できないので、SPEC ファイル wine-fonts-plus.spec のみを示します。


Name:   wine-fonts-plus
Version:    1
Release:    1%{?dist}
Summary:    Additional Wine font files
Group:  Applications/Emulators
License:    proprietary
URL:    http://www.winehq.org/
Source0:    %{name}.tar.gz
NoSource:   0
BuildArch:  noarch
BuildRequires:  wine-fonts
BuildConflicts: wine-fonts-plus
Requires: wine-fonts

%description
Additional font set for wine.

%prep
%setup -q -n %{name}

%build
for i in $(ls %{_datadir}/wine/fonts)
do
   rm -f $i;
done

%install
rm -rf %{buildroot}
install -m 0755 -d $RPM_BUILD_ROOT%{_datadir}/wine/fonts
install -m 0644 -p *.* $RPM_BUILD_ROOT%{_datadir}/wine/fonts

%clean
rm -rf %{buildroot}

%files
%defattr(-,root,root,-)
%{_datadir}/wine/fonts

%changelog
* Sun Mar 07 2010 XXXX XXXX 
- initial version

追加するフォントは、ディレクトリ wine-fonts-plus 内に保存し、以下の様に wine-fonts-plus.tar.gz に圧縮します。


$ tar zcvf wine-fonts-plus.tar.gz wine-fonts-plus
wine-fonts-plus/
wine-fonts-plus/ariblk.ttf
wine-fonts-plus/vgasysr.fon
wine-fonts-plus/consolab.ttf
wine-fonts-plus/vgafixr.fon
:
:
:

圧縮したファイルを、RPM が参照するソースディレクトリ（私の環境では $HOME/redhat/SOURCES）に移して、次の様にビルドすれば、rpm ファイルの出来上がりです。ちなみに、Wine 用のオリジナルのフォントが収録されている wine-fonts パッケージのフォントと同名のフォントは、ビルド中に調べてインストールされないようにしました。


$ rpmbuild -ba wine-fonts-plus.spec
実行中(%prep): /bin/sh -e /home/bitwalk/tmp/rpm-tmp.CQF0yG
+ umask 022
+ cd /home/bitwalk/redhat/BUILD
+ LANG=C
+ export LANG
:
:
:
Processing files: wine-fonts-plus-1-1.fc12.noarch
Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 
4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1
伸張ファイルの検査中: /usr/lib/rpm/check-files /home/bitwalk/redhat/BUILDROOT/win
e-fonts-plus-1-1.fc12.x86_64
書き込み完了: /home/bitwalk/redhat/SRPMS/wine-fonts-plus-1-1.fc12.nosrc.rpm
書き込み完了: /home/bitwalk/redhat/RPMS/noarch/wine-fonts-plus-1-1.fc12.noarch.r
pm
実行中(%clean): /bin/sh -e /home/bitwalk/tmp/rpm-tmp.fWk6qn
+ umask 022
+ cd /home/bitwalk/redhat/BUILD
+ cd wine-fonts-plus
+ rm -rf /home/bitwalk/redhat/BUILDROOT/wine-fonts-plus-1-1.fc12.x86_64
+ exit 0
$ su
パスワード:
# rpm -ivh /home/bitwalk/redhat/RPMS/noarch/wine-fonts-plus-1-1.fc12.noarch.rpm
準備中...                ########################################### [100%]
   1:wine-fonts-plus        ########################################### [100%]
# exit
$

追加フォント導入前

追加フォント導入後

注意！
ちなみに wine-doors を利用している場合は、この方法は有効ではありません。どうやらレジストリをいじっている様で、Wine オリジナルのフォントが期待するように反映されません。残念ながら wine-doors を積極的には利用していないので、レジストリのどこが変更されているのかよく判っていません。

さわらびゴシック 20100228

2010-03-01T20:46:00.002+09:00

さわらびゴシックフォント 20100228 がリリースされていましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1700 文字になりました。

・さわらびフォント

Let's Wine（第11回）

2010-02-28T17:04:00.020+09:00

.NET Framework

.NET Framework 環境が wine 上で利用できるかどうか調べてみました。

まず Let's Wine（第８回）で紹介した winetricks で .NET Framework をインストールします。winetricks スクリプトを、次のように引数なしで実行すると、インストールするプログラムを選択する画面が表示されます。


$ sh winetricks

winetricks では .NET Framework 1.1 から 3.0 までインストール出来るようになっていますが、全部を正常にインストールできるかどうか怪しかったので、dotnet11 (1.1) からひとつずつインストールしていきました。

いろいろ試行錯誤をしましたが、結局、私の環境 (wine-1.1.38-1.fc12.i686) で正常にインストーラが終了したものは、dotnet11 と dotnet20 (2.0) の２つでした。ということで、.NET Framework 2.0 に対して簡単な動作確認をしてみます。

動作確認には Linux 上の mono でコンパイルしたバイトコードを mono と、wine 上の .NET Framework で動作させてみます。以下の C# のサンプル (hello.cs) を使用しました。


using System;
using System.Windows.Forms;

class HelloWorldApp {
    public static void Main() {
        MessageBox.Show("こんにちは、世界！", "mono");
    }
}

この hello.cs を mono (2.4.3) で以下のようにコンパイルします。


$ gmcs hello.cs -pkg:dotnet
$ ls
hello.cs  hello.exe

コンパイルされた hello.exe を mono で実行すると以下のようになります。


$ mono hello.exe

同様に .NET Framework 2.0 がインストールされている wine で実行した結果です。


$ wine hello.exe

参考サイト

[1] Hello worldプログラムの一覧 - Wikipedia
[2] Mono Basics - Mono

Let's Wine（第10回）

2010-02-27T20:39:00.011+09:00

JaneStyle

AA（アスキーアート）と言えば、２ちゃんねるで表現されている文字絵を、まず思い浮かべます。非アスキーな日本語フォントを用いてるので、狭義にはアスキーアートではないのですが、一般にはあまり区別せずアスキーアートと呼んでいるようです。

「日本語フォントを用いたアスキーアートは、一種独特な文化を形成しています。」なんて批評できるほど詳しくはありません。アルファベットだけを使ったアスキーアートは、巨視的には写真と見間違えるほどリアルなアートを表現できます。一方で、限られた面積を持つディスプレイ上で表現される、日本語フォントを駆使したリアルな輪郭は、非常に近視的であり、アルファベットだけを使ったアスキーアートとは別物のように思えます。

前置きが長くなってしまいましたが、実を言うと私は２ちゃんねる専用のブラウザを使うほどのヘビィなユーザーではないので、２ちゃんねるを見るときにも通常のインターネットブラウザを使っています。

ただ、以下のような AA を目にすると、専用のブラウザで見れば、もっと綺麗に見えるんだろうな、といつも思います。

その割には、いままで専用ブラウザを試したことはありませんでした。自宅では Windows を使うことがほとんどないので、Linux で動作する専用ブラウザを探そうとしていなかっただけかもしれません。

調べてみると Linux 用の２ちゃんねるブラウザがいくつかありました。そのなかで JD が yum でインストールできるようになっていたので、今回はじめて試してみました。

字間や縦横比は改善されていますが、今度は行間がやや開きすぎているように感じます。

比較用に、Windows 用２ちゃんねるブラウザ JaneStyle を wine 上で使ってみました。

JD に比べて行間が詰まって、いい感じで表示されてます。最近は古い IBM ThinkPad X31 にインストールした Fedora 上で（32bit 用の）wine を使っていますが、それでも、さくさく動作してくれます。

ちなみに、wine 上で動作するアプリケーションに対しては、Alt と「半角/全角」キーでインプットメソッド (IBus-Anthy)が有効になり、日本語を入力することができます。

今回は wine の話題というより、２ちゃんねるブラウザの単なる比較レポートになってしまいました。

参考サイト

[1] monazilla.org
[2] AAテスト・練習スレpart1104

Let's Wine（第９回）

2010-02-20T21:14:00.012+09:00

wineconsole

久しぶりに Wine の話題です。

Wine には、wineconsole というプログラムがあり、これで cmd.exe を起動すると、Windows のコマンドプロンプトと同様なインターフェースが実現できます。しかしながら、自分の環境 (Fedora 12) では、次のようなエラーが出て起動できません。


$ wineconsole cmd
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WCUSER_SetFont wrong font
err:wineconsole:WINECON_Fatal Couldn't find a decent font, aborting

$

そこで、wineconsole を使わずに、wine で cmd.exe を起動して Windows のコマンドプロンプトに相当する環境として利用していました。


$ wine cmd
CMD Version 1.1.38


Z:\home\bitwalk>

しかし、ひょんなことから参考サイト [1] の情報を知り、環境変数 LANG を en_EN.UTF-8 へ変更することで、 wineconsole を起動できることが判りました。


$ export LANG=en_EN.UTF-8
$ wineconsole cmd

これで、例えば PDCurses を利用したコンソールモードのプログラムの動作も Wine 上で確認できるようになりました。以下は、mingw32-pdcurses-3.4-6.fc12.noarch のデモプログラム newdemo.exe を wineconsole 上で実行した例です。

ちなみに、wineconsole の起動時に毎回、環境変数 LANG の値を変更するのはさすがに面倒なので、私はデスクトップ上にランチャ（Windows のショートカットみたいなもの）を生成して使用しています。起動するコマンドは以下のようにしています。


sh -c "export LANG=en_EN.UTF-8; exec wineconsole cmd"

参考サイト

[1] 2008-05-07 - 後悔^H^H公開日記：別館

電子書籍の未来

2010-02-13T10:26:00.007+09:00

確かに [1] で述べられているように、ゲームブックのアイデアを、Kindle や iPad などのデバイス上で読む電子書籍に応用できれば、紙媒体の単なる電子化ではない、新しい文化と市場が生まれることでしょう。

なんだか大きなビジネスチャンスがそこにあるような気がするのですが、具体的なアイデアが出てこないのがもどかしい…。

参考サイト

[1] iPadやキンドルから「未知の電子書籍」が生まれる可能性
[2] Can the Kindle work as an app platform? | Between the Lines | ZDNet.com
[3] Apple - iPad - The best way to experience the web, email, & photos
[4] Amazon.com: Kindle Wireless Reading Device (6" Display, Global Wireless, Latest Generation): Kindle Store

【備忘録】TeX Live

2010-02-11T21:27:00.010+09:00

いわゆるワープロソフト（表現が古すぎますか？ようするに文書作成ソフトウェアです。）の限界を感じる時は、数式を扱うときです。いろいろテクニックを駆使すれば Word でもそれなりの、センスある数式が表現できるのでしょうが、そこまで Word に愛着がありません。

そこで、久しぶりに、Fedora で TeX (TeX Live) を使ってみようと、参考サイト [1] の情報を元に必要なパッケージをインストールしました。

動作確認サンプルとして、参考サイト [2] で紹介されていた例を流用させていただきました。


\documentclass{jarticle}
\begin{document}

\section*{数式の例 (1)}

日本で漱石が「吾輩は猫である」を発表したころ、
ドイツではAlbert Einsteinが特殊相対論を発表した。

この理論によれば、エネルギー $E$ と質量 $m$ は
\begin{equation}
  E = mc^{2}
\end{equation}
で関係づけられる。ここに $c$ は光速で、
\begin{equation}
  c = 299{,}792{,}458 \, \mathrm{m/s}
\end{equation}
である。

\section*{数式の例 (2)}

\[
  \frac{\pi}{2} =
  \left( \int_{0}^{\infty} \frac{\sin x}{\sqrt{x}} dx \right)^2 =
  \sum_{k=0}^{\infty} \frac{(2k)!}{2^{2k}(k!)^2} \frac{1}{2k+1} =
  \prod_{k=1}^{\infty} \frac{4k^2}{4k^2 - 1}
\]

\begin{thebibliography}{99}
\item
  Leslie Lamport『文書処理システム \LaTeXe』
  （阿瀬はる美 訳，ピアソン・エデュケーション，1999年）
\item
  奥村晴彦『［改訂第4版］\LaTeXe 美文書作成入門』
  （技術評論社，2007年）
\end{thebibliography}

\end{document}

上記ファイルを test.tex というファイル名で、EUC-JP で保存します。これを、platex でコンパイルします。


$ platex test.tex
This is pTeXk, Version 3.141592-p3.1.10 (euc) (Web2C 7.5.6)
 %&-line parsing enabled.
(./test.tex
pLaTeX2e <2006/11/10>+0 (based on LaTeX2e <2005/12/01> patch level 0)
(/usr/share/texmf/ptex/platex/base/jarticle.cls
Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class
(/usr/share/texmf/ptex/platex/base/jsize10.clo)) (./test.aux) [1] (./test.aux) 
)
Output written on test.dvi (1 page, 2220 bytes).
Transcript written on test.log.
$ dvipdfmx test.dvi
test.dvi -> test.pdf
[1]
17484 bytes written
$ evince test.pdf &

pxdvi でDVI 形式のファイルを閲覧できるのですが、日本語フォントが表示されなかったので、出力ファイル test.dvi を dvipdfmx　で、PDF 形式に変換しました。出力ファイルは test.pdf になります。これを、evince で開いた例が下図になります。

科学論文を書きたいわけではありませんが、少なくとも自己満足ができるマニュアル類が Linux で作成できそうです。

参考サイト

[1] Fedora 10のTeX Liveで日本語TeX・・・その2: プログラマーになりたい！
[2] TeX入門 - TeX Wiki

さわらびゴシック 20101131

2010-01-31T20:00:00.002+09:00

さわらびゴシックフォント 20100131 がリリースされましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1600 文字になりました。

・さわらびフォント

【備忘録】gvfs

2010-01-24T11:19:00.010+09:00

1.5TB の HDL-C1.5 をネットワークにぶら下げ、nautilus から接続して使い始めましたが、一体どこにマウントポイントがあるのか、しばらく判りませんでした。

df コマンドだと判りませんが mount だと見えます。


$ df
Filesystem           1K-ブロック    使用   使用可 使用% マウント位置
/dev/mapper/vg_desktop-lv_root
                     202924944  21550236 171066716  12% /
tmpfs                   963256       180    963076   1% /dev/shm
/dev/sda2               198337     56371    131726  30% /boot
$ mount
/dev/mapper/vg_desktop-lv_root on / type ext4 (rw)
proc on /proc type proc (rw)
sysfs on /sys type sysfs (rw)
devpts on /dev/pts type devpts (rw,gid=5,mode=620)
tmpfs on /dev/shm type tmpfs (rw)
/dev/sda2 on /boot type ext4 (rw)
none on /proc/sys/fs/binfmt_misc type binfmt_misc (rw)
sunrpc on /var/lib/nfs/rpc_pipefs type rpc_pipefs (rw)
gvfs-fuse-daemon on /home/bitwalk/.gvfs type fuse.gvfs-fuse-daemon (rw,nosuid,no
dev,user=bitwalk)
$ ls ~/.gvfs
bitwalk＠192.168.11.3
$

GVFS という、Gnome の仮想ファイルシステムで、ローカルの ~/.gvfs 内にネットワークドライブがマウントされていたのでした。GVFS は、Gnome 2.22 で GnomeVFS と置き換えられたもののようですが、そもそも GnomeVFS も知りません。man コマンドでは出てこないし、インターネットでも情報源があまり見つかりませんでした。とりあえず rpm -ql gvfs とタイプして、/usr/bin 以下にインストールされているファイルから、gvfs-mount を選んでヘルプをみてみました。


$ gvfs-mount --help
用法:
  gvfs-mount [オプション...] - mount 

ヘルプのオプション:
  -h, --help               ヘルプのオプションを表示する

アプリケーションのオプション:
  -m, --mountable          Mount as mountable
  -d, --device             Mount volume with device file
  -u, --unmount            Unmount
  -s, --unmount-scheme     Unmount all mounts with the given scheme
  -l, --list               List
  -i, --detail             Show extra information for List and Monitor
  -o, --monitor            Monitor events

$ gvfs-mount -l
Drive(0): 320 GB ハードディスク
  Type: GProxyDrive (GProxyVolumeMonitorGdu)
  Volume(0): ファイルシステム 105 GB
    Type: GProxyVolume (GProxyVolumeMonitorGdu)
Drive(1): CD/DVD ドライブ
  Type: GProxyDrive (GProxyVolumeMonitorGdu)
Mount(0): bitwalk＠192.168.11.3 -> smb://bitwalk@192.168.11.3/bitwalk/
  Type: GDaemonMount
$

参考サイト

[1] Mazn.net » gvfsを使用して、Windowsの共有フォルダを使用する＠Ubuntu 9.04
[2] GVFS - Wikipedia, the free encyclopedia

Firefox 3.6 リリース

2010-01-22T21:33:00.004+09:00

祝！ Firefox のバージョン 3.6 が 2010 年 1 月 21 日にリリースされました。

・リリースノート

さわらびゴシック 20100115

2010-01-17T07:58:00.003+09:00

さわらびゴシックフォント 20100115 がリリースされましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1550 文字になりました。

・さわらびフォント

Tiny COBOL 0.65.5

2010-01-11T19:39:00.004+09:00

先日、バージョン 0.65 がリリースされたばかりだというのに、バグフィックスバージョンの 0.65.5 がリリースされました。現在 VB-ISAM の RPM パッケージを作成中…。

Date: Mon, 11 Jan 2010 02:45:12 -0500
From: David Essex <dessex at users.sourceforge.net>
To: tiny-cobol-users <tiny-cobol-users at lists.sourceforge.net>
Subject: [Tiny-cobol-users] TC release version 0.65.5

Due to a major bug fix, TC version 0.65.5 (32-bit) is now available for
download [1].

Lots of changes to the file IO compiler and run-time have been made.

For indexed files, version 0.65, uses VB-ISAM version 2.
While BDB is no longer used for indexed files, it is still required by
the RT for file SORTS.

To build and run TC version 0.65.5 requires the following.
- VB-ISAM version 2 or later.
- Berkeley DB version 1.85 or later.
- A curses library (PDcurses on win32).

Since VB-ISAM is not usually included in any UN*X distributions, the
source can be found on SF [2].

For MinGW users, binaries are available on SF [1].
Just download and install TC (ZIP or setup format), VB-ISAM version 2
[3], BDB version 1.85 [4], and PDcurses version 2.4 [5].
Or download the ALL version ZIP file which contains TC and required
libraries.

Cheers.

1) SF downloads
2) ISAM - vbisam-2.0.tar.bz2
3) ISAM - vbisam-2.0.mingw.zip
4) BDB  - bdb-1.85.mingw.zip
5) PDcurses - pdcurses-2.4.mingw.zip
http://sourceforge.net/projects/tiny-cobol/files/

------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 
_______________________________________________
Tiny-cobol-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users

LAN 接続型ハードディスク

2010-01-10T19:48:00.020+09:00

そろそろ Windows Vista を Windows 7 へアップグレードしようかと地元のショッピングセンター内にあるジョーシンをぶらついていたら、アイ・オー・データ機器の LAN 接続型ハードディスク（HDL-Cシリーズ）が目に入ってしまいました。かねてから、USB による外付けハードディスクではなく、ネットワークで共有できるハードディスクが欲しいと思っていたので、Windows 7 をあきらめて、1.5TB の HDL-C1.5 を買ってしまいました。帰宅後、まず Windows で基本的な設定を済ませました。Fedora/Windows のアカウントと同じ名前（bitwalk）と同じパスワードを設定しておきます。

さて、問題は Fedora からのアクセスですが、しばらく Samba を使わない間に、いろいろと便利になっていてビックリです。mount -t cifs を使おうといろいろ試していたところ、nautilus で簡単に接続できることを発見。あっけないほど簡単に接続できてしまいました。

まず、nautilus を開いて、メニューから、ファイル(F) → サーバへ接続(S)... を選びます。

接続先を設定する先を設定して 接続する(O) をクリックするだけです。ここでは、//192.168.11.3/bitwalk へ接続しようとしている例です。

ミラーリングも何もしていない安易な使い方ではありますが、Windows、Linux どちらからも共有できる広大な領域が、安価に利用できるようになったので、とりあえず満足です。

参考サイト

[1] LAN接続型ハードディスク/NAS｜HDL-Cシリーズ｜概要｜ハードディスク(HDD)｜IODATA アイ・オー・データ機器
[2] 【特別企画】超簡単にデータ共有できるLAN&USB接続対応ハードディスク - アイ・オー・データ機器「HDL-Cシリーズ」 | パソコン | マイコミジャーナル

COBOL-IT

2010-01-06T21:29:00.010+09:00

昨日の Tiny COBOL に関連する情報を調べていたところ、COBOL-IT なるものを見つけました。どうやら、西田圭介氏が開発していた OpenCOBOL から派生した物らしいです。

ソースをダウンロードして、コンパイルして見たところ難なく出来たので、RPM パッケージを作ってインストールし、ちょっと使って見ました。以下のサンプル hello.cob はごく簡単なものです。


       IDENTIFICATION  DIVISION.
       PROGRAM-ID.     HELLO.
       PROCEDURE       DIVISION. 
           DISPLAY "Hello World!".
           STOP   RUN.

コンパイルと実行は次の通りです。


$ cobc hello.cob
$ ls
hello.cob  hello.so
$ cobcrun hello
Hello World!
$

MicroFocus の COBOL と互換な使い方もできるようです。


$ cobmf --help
Cobol-IT MF compatible cob 
Cobol-IT MF compatible caller usage :
cob [options] files
    options are :
    -a            ignored
    -C directive  Pass syntax-check phase directive to the Compiler
    -CC option    Pass option  to the C Compiler
    -Q  option    Pass option  to the Linker
    -c            Compile no further than a linkable object module (.o)
    -g            Create debugging information
    -I dir        Where are stored copy book
    -i            Compile to .int code for unlinked environment 
    -k cobol-file Recognize COBOL source file with non-standard filename extension
    -L dir        Pass option to system linker, 
                  changing search algorithm and maintaining relative ordering
    -l lib        Pass option to system linker, maintaining relative ordering
    -m symb=newsym        Map text symb onto newsym
    -O            Enable optimization
    -o filename   Specify output filename
    -P            Produce COBOL compilation listing file
    -u            Compile to .gnt code for unlinked environment
    -V            Report version number
    -v            Set verbose mode
    -W err-level  Control error level for cob termination
    -x            Process to system executable file
    -Z            Process to shared library

RPM パッケージを下記のサイトに供給させてもらえるか、サイトの管理者と交渉してみる予定です。また、Windows 版をクロスコンパイルできるかもしれないです。詳細を後日報告します。

参考サイト

[1] cobol-it | Get cobol-it at SourceForge.net
[2] cobol-it プロジェクト日本語トップページ - SourceForge.JP

追記

その後、make check をして、テストプログラムをチェックしたところ、大量の FAILED が出ました。RPM パッケージを供給する前に、とりあえずこの件でサイトの管理者に問い合わせ中です。(10/1/9)

Tiny COBOL 0.65

2010-01-05T20:37:00.005+09:00

Tiny COBOL 0.65 がリリースされました。この週末、久しぶりに COBOL で遊んでみようかな。

Date: Mon, 04 Jan 2010 23:22:39 -0500
From: David Essex <dessex at users.sourceforge.net>
Subject: [Tiny-cobol-users] TC release version 0.65

TC version 0.65 (32-bit) is now available for download [1].

Lots of changes to the file IO compiler and run-time have been made.

For indexed files, version 0.65, uses VB-ISAM version 2.
While BDB is no longer used for indexed files, it is still required by
the RT for file SORTS.

To build and run TC version 0.65 requires the following.
- VB-ISAM version 2 or later.
- Berkeley DB version 1.85 or later.
- A curses library (PDcurses on win32).

Since VB-ISAM is not usually included in any UN*X distributions, the
source can be found on SF [2].

For MinGW users, binaries are available on SF [1].
Just download and install TC (ZIP or setup format), VB-ISAM version 2
[3], BDB version 1.85 [4], and PDcurses version 2.4 [5].

Cheers.

1) SF downloads
2) ISAM - vbisam-2.0.tar.bz2
3) ISAM - vbisam-2.0.mingw.zip
4) BDB  - bdb-1.85.mingw.zip
http://sourceforge.net/projects/tiny-cobol/files/

5) PDcurses - version 2.4 or later
http://gnuwin32.sourceforge.net/

------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 
_______________________________________________
Tiny-cobol-users at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users

さわらびゴシック 20091230

2009-12-30T21:07:00.003+09:00

さわらびゴシックフォント 20091230 がリリースされましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1500 文字になりました。

・さわらびフォント

【備忘録】Java/Swing のプログラムにおける日本語フォント表示

2009-12-29T19:56:00.008+09:00

Java の GUI プログラムで、日本語のフォントが正しく表示されません。環境は Fedora 12 (x86_64) です。

そもそも、Fedora で Java のプログラミングをほとんどしないので気がつきませんでした。

例えば、以下のようなプログラム Hello.java をコンパイルして実行してみます。


// Hello.java
import javax.swing.*;
 
public class Hello extends JFrame {
    private static final long serialVersionUID = 1L;

    Hello() {
        setDefaultCloseOperation(WindowConstants.DISPOSE_ON_CLOSE);
        add(new JLabel("こんにちは、世界！"));
        pack();
    }

    public static void main(String[] args) {
        new Hello().setVisible(true);
    }
}


$ javac Hello.java
$ java Hello

日本語フォントが □□□□ となってしまって表示されません。

しかしながら、コンパイルした Hello.class を Windows へコピーして実行してみると日本語フォントが正しく表示されます。

これは、Fedora の Java 実行環境に問題がありそうだと考え、インターネットを検索してみると、既に調べている方がおられました。

[1] Fedora11でSwingのプログラムに日本語を正しく表示させる方法 - 何かしらの言語による記述を解析する日記

[1] のサイトの「方法1」に従い、自分の環境に読み替えて編集すると　Fedora 上で日本語を表示させることができました。ただし $JAVA_HOME/lib/fontconfig.Fedora.bfc のリネームはしていません。

会社で他の人に使ってもらう GUI ツールがあって、プロトタイプは Tcl/Tk で作って試用してもらいました。しかし、そもそも自分は IT 部門の人間ではないので、長期的な保守を考えれば、（自分しか保守ができない言語で作るより） Java あたりで作り直しておいた方が無難かと思い、この年末年始の休みに作り替えてしまおうとしています。実行環境は Windows 上になりますが、開発は使い慣れた Fedora の方がはかどるからです。

追記

[1] の方法で確かに日本語フォントが表示できるようになりましたが、Fedora デフォルトでインストールされていなかった「さざなみ」フォントをインストールしたことで、ブラウザなどの表示フォントが変わってしまいました。以前のフォントの方が断然見やすかったので、「さざなみ」フォントの使用を止めて元に戻し、Windows のフォントを持ってきて（RPM を作成して）Java 用に使用できるように変更してしまいました。

ReactOS 0.3.11

2009-12-19T21:05:00.011+09:00

予定より二ヶ月ほど遅れましたが、12 月 16 日に ReactOS 0.3.11 がリリースされました。最初 Linux 上の qemu に ReactOS の iso イメージをインストールしてみましたが、動作が固まってしまったりと不安定でした。そこで、出来合いの VMware 用イメージを Windows 上の VMware で起動してみました。

・ReactOS 0.3.11

起動時のイメージが変更されています。なんだか昔の Windows for Workgroups 3.11 (WfW) の起動イメージを連想してしまうのは、自分だけでしょうか…。

前回は Linux 上で qemu を使用することにこだわったので、結局 ReactOS 側からネットワークへ接続できずじまいでしたが、今回は難なくネットワークを利用して Firefox をダウンロードしてインストールすることができました。

【備忘録】Fedora を yum でアップグレード

2009-12-18T23:31:00.000+09:00

Fedora 11 のままだった古いノート PC をようやく Fedora 12 へアップグレードしました。通常は、/home 以下のバックアップをとってクリーンインストールをすることにしていますが、今回は面倒だったので yum でアップデートしてみました。

まず以下の２つの RPM ファイルを入手します。

fedora-release-12-1.noarch.rpm
fedora-release-notes-12.0.0-4.fc12.noarch.rpm

例えば、ftp://ftp.kddilabs.jp/Linux/packages/fedora/releases/12/Fedora/ などから入手できます。


# rpm -Uvh fedora-release-12*
...
# yum clean all
# yum -y upgrade

アップグレード後再起動します。

参考サイト
・ずんWiki - Fedora upgrade

さわらびゴシック 20091215

2009-12-17T20:25:00.003+09:00

さわらびゴシックフォント 20091215 がリリースされていましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1450 文字になりました。

・さわらびフォント

Google からのメール

2009-12-09T21:54:00.008+09:00

Google からメールがきました。Linux 版の Google Chrome のベータ版がリリースされたというお知らせでした。さっそくダウンロードしようとサイトにアクセスすると、deb、rpm パッケージがそれぞれ 32 bit / 64 bit CPU 用にダウンロードできるようになっていました。しばらくこの Chrome を使ってみようと思います。


Date: Tue, 08 Dec 2009 17:49:37 +0000
From: Google Chrome 
To: xxxxxxxxxx@gmail.com
Cc: 
Subject: Linux 版 Google Chrome のベータ版が本日リリース
Reply-To: googlechromenews@google.com

Linux ユーザーの皆様

Linux 版 Google Chrome のベータ版がリリースされました。多くの Chromium デベロッパーと WebK
it デベロッパーの努力により、Google Chrome は高速で安定したブラウザとなりました。

60,000 行の Linux むけのコードを記述
23 回の開発ビルド
2,713 件の Linux 関連のバグを修正
Linux 版 Google Chrome のコードベースに、外部から 12 人のコミッターとバグ修正者、48 人のコー
ド提供者が参加

上記を経て、本日やっと　Linux 版 Google Chrome のベータ版を提供するにいたりました。

Linux ユーザーの皆さん、本当にお待たせしました。Google Chrome をお楽しみください。


Google Chrome チーム





http://www.google.com/chrome/intl/ja/w00t.html

--------

(c) 2009 Google www.google.com 1600 Amphitheatre Parkway, Mountain
View CA 94043 United States of America.

Google は Google Inc. の商標です。
その他すべての社名および製品名は、それぞれ該当する企業の商標です。

Virgin Galactic、初の民間宇宙船「SpaceShip2」披露

2009-12-08T20:03:00.006+09:00

（NASA と提携しているので、半官半民かもしれませんが）民間で宇宙旅行のビジネスを始めるっていうことに夢があります。しかし旅費として 2,000 万円近い資金があれば、ゆっくり船で世界旅行っていうのも魅力的なんですけどね。

[1] Virgin Galactic、初の民間宇宙船「SpaceShip2」披露 - ITmedia News
[2] Welcome | Virgin Galactic

【備忘録】グーグルの日本語入力ソフト（ベータ版）

2009-12-04T22:54:00.003+09:00

CNET Japan によると、グーグルが 12 月 3 日に、Windows/MacOS 用に日本語入力ソフトウェア「Google日本語入力ベータ」を公開したそうです。自宅では Linux を中心に使っているとは言え、仕事では Windows を使っているので、日本語入力の使い心地を試してみたいものです。

[1] グーグル、日本語入力ソフトのベータ版を公開:ニュース - CNET Japan
[2] Google 日本語入力 - ダウンロード

さわらびゴシック 20091130

2009-11-30T22:02:00.002+09:00

さわらびゴシックフォント 20091130 がリリースされましたので Fedora 12 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1375 文字になりました。

・さわらびフォント

GCC のランタイムパッケージ 002

2009-11-28T18:44:00.008+09:00

MinGW クロスコンパイル環境でビルドしたプログラムを、Windows 上で手軽に実行できるように公開し始めた Windows 用 GCC のランタイムパッケージ libgcc のインストーラをアップデートしました。

・libgcc-4.4.1-002


GCC Runtime Package for Win32, bitWalk build #002
released on 2009-11-28

1. Objective
  This is a support package for Fedora MinGW cross development, which is a set
of runtime libraries used on target environment, Win32 system.

2. Available version of GCC Runtime and related libraries
  - libgcc_s_sjlj-1.dll in mingw32-gcc-4.4.1-3.fc12.i686.rpm
  - mingwm10.dll in mingw32-runtime-3.15.2-4.fc12.noarch.rpm

[1] GCC のランタイムパッケージ

【備忘録】VMware で Chrome OS を試す

2009-11-27T22:56:00.005+09:00

Chrome OS の VMware 用のイメージをダウンロードし、Windows Vista 上の VMware player で試してみました。VMware player はすでにインストールされているものとして、手順を説明します。

まず、gdgt のサイトから Chrome OS の VMware 用のディスクイメージ chrome-os-0.4.22.8-gdgt.vmdk.zip をダウンロードします。ダウンロードするには gdgt のアカウントを作成する必要があります。アカウント作成は無料でできます。ダウンロードしたファイルを解凍して、適当なフォルダ内に保存しておきます。

次に、VMX ファイルを用意します。このファイルは、pastebin - Chrome OS.vmx - post number 1681237 で紹介してあった記述をコピーし、メモリ容量を 1GB に変更して利用しました。chrome-os.vmx という名前で、ディスクイメージと同じフォルダに保存します。


config.version = "8"
memsize = "1024"

displayName = "Chrome OS"
guestOS = "other"

ide0:0.present = "TRUE"
ide0:0.fileName = "chrome-os-0.4.22.8-gdgt.vmdk"
ide1:0.present = "TRUE"
ide1:0.autodetect = "TRUE"
ide1:0.fileName = "auto detect"
ide1:0.deviceType = "cdrom-raw"


ethernet0.present = "TRUE"
ethernet0.connectionType = "bridged"
ethernet0.addressType = "generated"


sound.present = "TRUE"
sound.virtualDev = "es1371"

VMware player を起動し、「仮想マシンを開く」をクリックして、作成した chrome-os.vmx を読み込み、仮想マシンを再生すると Chrome OS が起動します。

しばらくするとログイン画面が出ますので、GMail のアカウントでログインします。なお、@gmail.com の部分は省略可能で、省略すると自動的に補完してくれます。ちなみにキーボード配列は 101 系のキーボード配列に対応しているようで、@ は Shift + 2 になります。

ログインすると、画面全体がブラウザの画面が表示されます。

Ctrl + Alt + t でターミナル画面を表示できます。シェルは bash です。exit で元の画面に戻ります（元に戻ってくれない時もあります）。

[1] Google Chrome OS (グーグルクロームOS) 使い方辞典 (2009年11月20日版)

【備忘録】Google Chrome OS Demo

2009-11-21T13:02:00.004+09:00

Chrome OS なのか、Chromium OS なのか判然しないのですが、Chrome OS のソースコードが、オープンソースプロジェクト「Chromium OS」として公開されているらしいです。

会話が英語で、しかもちょっと聞き取りにくいのですが、YouTube で Google Chrome OS Demo のビデオがあったので備忘録的に紹介します。来年の今ごろには最初のリリースを利用できるようになっているでしょう。

[1] Google Chrome OSのデモを見てきた - ITmedia News
[2] 「Google Chrome OS」プロジェクトが公開、製品登場は2010年後半 -INTERNET Watch
[3] Chromium OS (The Chromium Projects)
[4] 窓の杜 - 【特別企画】Googleの新OS「Chrome OS」のオープンソース版「Chromium OS」を試す
[5] Google Chrome OS: Download Chrome OS VMWare image - gdgt

さわらびゴシック 20091115

2009-11-15T09:15:00.006+09:00

さわらびゴシックフォント 20091115 がリリースされましたので Fedora 用 RPM パッケージを作成しアップロードしました。今回は、Fedora 12 上で RPM パッケージを作成しています。漢字グリフが 1300 文字になりました。

・さわらびフォント

【備忘録】Dropbox の導入 (Fedora)

2009-11-13T21:01:00.017+09:00

Dropbox は、インターネットを経由して、自分が利用している複数のパソコン間でファイルを自動同期したり、指定したほかのユーザーと共有できるオンラインストレージサービスです。アカウントを取得する必要がありますが、現在のところ 2GB までは無料で利用できます。なお、有料版は 50GB を月額 9.99 ドルあるいは年額 99.99 ドルで利用できます。

Dropbox は、専用のクライアントのソフトウェアをインストールするとで利用できます。Windows の場合、エクスプローラ上で他のフォルダ、ファイルを通常と同じように扱うことができます。すなわち、指定したローカルフォルダ内でファイルやフォルダを追加・削除・更新すると、自動でオンラインストレージに同期、あるいは共有先に反映されます。Linux の場合はエクスプローラの代わりに Nautilus で同じように操作ができるクライアントのソフトウェアが公開されています。

そろそろ Fedora 12 がリリースされるので、先行してβ版をインストールした際に、Doropbox をインストールし直したので、その手順をまとめました。Gnome デスクトップ環境で Nautilus を使用していることを前提にしています。

まず、クライアントソフトを以下から入手します。

[1] Dropbox - Downloading Dropbox - Secure backup, sync and sharing made easy.

Fedora の場合、Fedora Core 10 (x86_64, nautilus-dropbox-0.6.1-1.fc10.x86_64.rpm) あるいは Fedora Core 10 (x86, nautilus-dropbox-0.6.1-1.fc10.i386.rpm) をダウンロードしてインストールします。

インストールすると、GUI が起動して、ファイルの同期などに必要な Daemon のインストールが始まります。

インストールが終わると、次はアカウントを入力する手続きです。アカウントをまだ取得していない場合、ここで I don't have a Dropbox account を選択すると、ここで取得できます。私の場合は、既に Dropbox のアカウントを持っているので、I already have a Dropbox account を選択して、次に進みます。

Dropbox に登録してある電子メールアドレスをパスワードを入力して次に進みます。

この後、Dropbox の使用方法を説明する画面が 3 つほど続きますが、既に知っている場合は Skip tour and finish をクリックして最終画面に進みます。

デフォルトの場所に Dropbox のフォルダを生成する場合は、Finish をクリックして終了します。

Nautilus を開いて、Dropbox のフォルダーが作られていることを確認します。

注意

Fedora 12 をインストール後、既に使っていたアカウントのバックアップを戻してから、Dropbox のクライアント、nautilus-dropbox-0.6.1-1.fc10.x86_64.rpm をインストールしたためか、すぐに設定用のダイアログ画面が現れませんでした。ログアウト／ログインし直しても設定用のダイアログが表示されない場合は、以下の様にコンソール上で起動します。


$ dropbox start -i

参考サイト

[2] Dropbox - Home - Secure backup, sync and sharing made easy.
[3] Dropbox徹底解剖 - 一度使ったら手放せなくなる! オンラインストレージサービスの本命 | Web担当者Forum

Fedora 12 と MinGW クロスコンパイル

2009-11-07T21:48:00.008+09:00

Fedora 12 のベータ版を古いノートパソコン (X31) にインストールして、MinGW クロスコンパイル環境を評価しています。

Fedora がクロスコンパイル環境をサポートする以前は、Windows 用 Tcl/Tk を、Linux でクロスコンパイルできれば、まずまずの満足ができたのですが、このように環境が充実してくると欲が出てきます。

折角、基本的な GTK+ ライブラリが利用できるのですから、最近は Windows 用 GIMP を自前でクロスコンパイルするべく、いろいろ試しています。Fedora 11 では（というより、おそらくは mingw32-glib2 などのバージョンのせいで）クロスコンパイル用にビルドできなかった gegl を、なんとかビルドできたので、babl と一緒に SourceForge.net のプロジェクトサイトへアップしました。（ちなみに babl の方は、F11 でもビルド出来ていました。gegl は、babl に依存しています。）

・[LIB] gegl
・[LIB] babl

これで、最新の GIMP がクロスコンパイル出来るようになったかというと、そうではありません。しかし、一歩実現に近づいたと思っています。目標は、Win32 用 GTK+ のランタイムパッケージと、GIMP 本体を別々のインストーラで公開出来るようにすることです。

Windows 7 が発売され、64bit OS の普及が加速されそうですが、MinGW クロスコンパイルについては、まだ 32bit に集中しようと考えています。

[1] 2. GIMP 2.6 の新機能

さわらびゴシック 20091101

2009-11-02T21:12:00.001+09:00

さわらびゴシックフォント 20091101 がリリースされましたので Fedora 11 用 RPM パッケージを作成しアップロードしました。漢字グリフが 1250 文字になりました。

・さわらびフォント

Android SDK

2009-10-31T22:57:00.023+09:00

Android SDK をダウンロードしてエミュレータを Fedora で起動してみました。64bit 環境でも動作するかどうか、念のためチェックしましたが、肝心のエミュレータが動作しなかったので、32bit 環境で試した例を紹介します。下記のサイトから、Linux (i386) 用の圧縮ファイルをダウンロードします。

[1] Android SDK | Android Developers

ダウンロードしたファイルを展開して、サブディレクトリ tools 内にある android を起動します。


$ tar zxvf android-sdk_r3-linux.tgz
android-sdk-linux/
android-sdk-linux/platforms/
android-sdk-linux/SDK Readme.txt
android-sdk-linux/tools/
...
android-sdk-linux/tools/traceview
android-sdk-linux/add-ons/
$ cd android-sdk-linux/tools
$ ls
NOTICE.txt  ddms         hierarchyviewer  mksdcard           zipalign
adb         dmtracedump  hprof-conv       source.properties
android     draw9patch   layoutopt        sqlite3
apkbuilder  emulator     lib              traceview
$ ./android &

Android and AVD Manager のウィンドウが開きますので、まず Settings の画面で、Misc のチェックボタンにチェックを入れておきます。これは環境によっては必要がない操作だと思います。

次に Available Packages を選びダウンロードするデータを選択し Install Selected をクリックします。

Install Accepted ボタンをクリックすると、ファイルのダウンロードが始まります。

選択したファイルのダウンロードとインストールが終わっても、自動的にはウィンドウが閉じないので Close をクリックして閉じます。

次に Virtual Device で、New... をクリックして、仮想デバイスの定義ファイル（AVD ファイル）を作成します。

test という名前をつけて、以下の様にしてみました。Create AVD ボタンをクリックします。

AVD ファイルが作成されたというメッセージが出るので OK ボタンをクリックして閉じます。

作成した test を選択して、Start... ボタンをクリックして、エミュレータを起動します。

起動オプションを選択する画面が出ますが、とりあえず何も選択せず、Launch ボタンをクリックします。

エミュレータが表示され、しばらく待つと起動が完了し、以下のような画面になります。

試しに Browser を起動して Google のサイトを表示してみました。

ブックマークしたページが、以下の様に一覧で表示されます。

手持ちの Windows Mobile 携帯をまだ使いこなしていないというのに、新しいものが出ると使ってみたくなります。エミュレータのおかげで、お金の浪費は避けられますが、Windows Mobile の場合と異なり、Linux 上でも開発ができるのはちょっと嬉しいです。

じっくりこの SDK で評価してみて、日本で魅力的な Android 搭載の携帯が発売されれば、それなりに乗り換えを検討してみようと思います。

R 2.10.0

2009-10-29T21:43:00.003+09:00

10 月 26 日付けで R 2.10.0 がリリースされていました。

[1] The Comprehensive R Archive Network

bitWalk's

2012 年 一年の計

8 月連休の成果

「太陽系はここまでわかった」を読んで

Contour Map - 5 月連休の成果

参考文献

Fedora 15 Beta リリースをインストール

参考サイト

NaTcl を試す

参考サイト

ReactOS 0.3.13

参考サイト

Fedora 15 Alpha リリースを試す

参考サイト

Apache Rivet 2.0.3

参考サイト

MinGW-w64 で Tcl/Tk をコンパイル（32bit 用）

参考サイト

【備忘録】ARM の話題あれこれ

参考サイト

Apache Rivet

参考サイト

Ubuntu にトライ！

The Cross Compiler Framework (Win32+Win64)

Linux 用プリンタドライバ（２）

Tcl and the Tk Toolkit (2nd Edition)

「マイクロソフト戦記」を読んで

LLVM に関する話題 2010

ReactOS 0.3.12 を試す

【備忘録】LibreOffice

Fedora 14

統計解析ツール ～ 歩き始め ～

参考／引用文献

RBC - Refactored BLT Component

参考サイト

ちょっと分散分析（２）

参考サイト

追記

ちょっと分散分析

参考サイト

Tcl/Tk 8.5.9 リリース

自治体に広がるOpenOffice.org

CLR のバージョンの取得

参考サイト

Math.NET Numerics

参考サイト

Mono で GUI プログラミング (4)

MonoDevelop の利用

Mono で GUI プログラミング (3)

参考サイト

Mono で GUI プログラミング (2)

Mono で GUI プログラミング (1)

最初は Hello World

mono のインストール

C# コンパイラとビルド

参考サイト

Linux デスクトップ PC の時代は来るのか？

【備忘録】deltarpm の applydeltarpm

【備忘録】drpm パッケージの作り方

参考サイト

CMake と クロスコンパイル

Linux ネイティブなビルド

MinGW 用クロスビルド

参考サイト

LLVM 2.7 のベンチマーク (2)

参考サイト

LLVM 2.7 のベンチマーク

さわらびゴシック 20100430

Fedora 13 (Goddard) ベータ版

参考サイト

【備忘録】LLVM の IR って？

関連サイト

LLVM 2.7 リリース

LLVM と clang

参考サイト

Let's Wine（第15回）

ParaFla を試す

参考サイト

Fedora 13 のリリース時期

Let's Wine（第14回）

2012 年一年の計

統計解析ツール～歩き始め～

CMake とクロスコンパイル

【備忘録】Google の正規表現ライブラリ re2