2011年7月31日日曜日
自分は田園都市線沿線に住んでいますが、例年よりも蝉の鳴き声が少ない気がします。毎年誰かが少ないと言っているような気もしますが、今年は地震の影響も多少あったのかなと思っています。原因として考える要因を、思いつくままにあげてみると
例年だと、後半大量に羽化して五月蠅くなののですが、今年の8月は涼しいらしいので、少ないまま終わってしまうかも。
自分は、ミンミンゼミ・ツクツクボウシ・ひぐらし等のリズム系の鳴き声は好きなのですが、アブラゼミ等のノイズ系は嫌いなので、所々で聞こえる程度の方が返って良かったりします。
2011年7月28日木曜日
以前から、スニペットを管理するアプリが欲しかったのですが、フリーなものだと機能が微妙な感じで、有料なものだと今度は価格面が微妙で買いあぐねていました。 今日、何となくApp Storeをのぞいてみると、CodeBoxと言うアプリが85円で売っていました(確か以前は850円だったと思うので90%off!!)。
CodeBoxは候補の一つに挙がっていたのですが、お試しができないのと最近作成されたアプリの様でしたので保留にしていました。でも、今回85円だったので失敗してもいい金額かなと思いポチッとしてしまいました。
まだ使い始めたばかりですが、基本的な機能は備えているようです。しばらくはこれで様子を見てみようと思います。
CodeBoxのサイトでは$9.99になっているようです。入力ミスなのかセール中なのかいまいち不明なので、欲しい人は今のうちに買っておいた方がよいかも。
2011年7月20日水曜日
自宅サーバ(NetBSD 64bit)には、32bit Linux emulationでオムロンソフトウェアのWnn7が動作しています。そして、これを自宅サーバ(NetBSD)・開発マシン(Mac mini)・サブマシン(Macbook air)上のemacsから使用しています。この構成だと学習した情報をサーバー側で一元管理できるので、学習データを共有するための同期処理をどうしようかと悩む必要がなくて重宝しているのですが、以前、各マシンのemacsを64bit化しようと目論んだのだけれども、64bit化するとwnn7eggがbackend timeoutというエラーを吐いてしまい断念してしまいました。
まず64bit版 Emacsを"--debug"を付けて立ち上げてbackend timeoutするときのBacktraceを取って、不具合のありそうな関数に当たりをつけて32bit番の動きと違いがないか一個ずつ調べてみました。Elispのデバッグはしたことがかなったので、凄く効率が悪く面倒臭いデバッグ方法になってしまいました。
上記のやり方で調査していくと、 wnn7rpc-get-autolearning-dic関数で違いが出ることがわかりました。
(defun wnn7rpc-get-autolearning-dic (env type)
"Get id of auto learning dictionary on the server.
Return dictionary id + 1 on success, 0 on no dictionary, negate-encoded
error code on faiulure."
(wnn7rpc-call-with-environment env (result)
(comm-format (u u u) (wnn-const JS_GET_AUTOLEARNING_DIC)
env-id type)
(wnn7rpc-get-result
(comm-unpack (u) result)
(print result)
(1+ result))))
上記のソースのように(print result)を付加してresultの値を表示すると32bitと64bitで違いが発生します
;; 32bit Emacsで正常の場合 Wnn: connecting to jserver at foo.rfc2606.invalid.jp(22273)...done ホスト foo.rfc2606.invalid.jp の Wnn を起動しました Loading /Users/bar/.eggrc-wnn7... -1 32 -1 34 Loading /Users/bar/.eggrc-wnn7...done ;; 64bit Emacsでbackend timeoutの場合 Wnn: connecting to jserver at foo.rfc2606.invalid.jp(22273)...done ホスト foo.rfc2606.invalid.jp の Wnn を起動しました Loading /Users/bar/.eggrc-wnn7... 4294967295 4294967295
32bit Emacsでは-1を取り、64bit Emacsでは4294967295を取る。これを16進数に直すと興味深い値が出てきます。
;; 32bit Emacs場合 (format "%x" -1) 1fffffff (format "%x" 4294967295) 1fffffff ;; 64bit Emacs場合 (format "%x" -1) 3fffffffffffffff (format "%x" 4294967295) ffffffff
え〜っ！? 32bit Emacsの変数のbit幅って、29bitだったんですか！ 長年Emacsを使用していたけれどしらなかった。しかも64bit Emacsは62bit? なんでこんなに中途半端なbit数なんでしょうね
上記の結果より処理結果が536870911(#x1fffffff)以上の値をとると32bit Emacsと64bit Emacsで評価内容が変わってしまう事がわかりました。
次に、32bitと64bitで異なった値を返してくるcomm-unpack関数を調べてみました。comm-unpack自体は引数の値によって適切な関数を呼び出すディスパッチ処理を行い、呼び出した関数の値を返すだけの簡単な仕事しかしていませんでした。
(comm-unpack (u) result)のように引数に"u"をつけるとcomm-unpack-u32関数が呼ばれます。
EmacsはJServerと直接通信をしてコマンド/レスポンスのやりとりをしている訳ですが、受信したデータは*Wnn7*バッファに入ってきます。
これを適切なbit長で読み出してコマンドを再構築するのが、comm-unpack関数で受信したレスポンスを32bitにアンパックしてする場合にcomm-unpack-u32関数が呼ばれます。
(defun comm-unpack-u32 ()
(progn
(comm-require-process-output 4)
(+ (lsh (comm-following+forward-char) 24)
(lsh (comm-following+forward-char) 16)
(lsh (comm-following+forward-char) 8)
(comm-following+forward-char))))
この時に、0xffffffffというデータを受信していると32bit Emacsと64bit Emacsで結果が変わってしまいます。
では、どんな値が*Wnn7*バッファ入ってきているのでしょう？ダンプしてみました
はい、見事に0xffffffffを受信しています。ありがとうございました。
原因が判明したので、comm-unpack-u32関数を修正して整数が29bit幅の以外の時は、変数の値を62bit幅に拡張する処理を入れてあげればよいと思われる。整数のbit幅が他の値をとることはあるのかな？考えないことにしておく。
Emacsの依存性があるコードはここに書かれるようなので、下記のコードを追加
(defconst interger_width_29bit (logxor (lsh (lsh 1 29) -29) 1))
interger_width_29bitは整数が29bit幅ならば１、29bit幅以上ならば０を取ります。
comm-unpack-u32関数を下記のように修正。
(defun comm-unpack-u32 ()
(progn
(comm-require-process-output 4)
(if (= interger_width_29bit 1)
(+ (lsh (comm-following+forward-char) 24)
(lsh (comm-following+forward-char) 16)
(lsh (comm-following+forward-char) 8)
(comm-following+forward-char))
;; for 62bit width
(ash (lsh (+ (lsh (comm-following+forward-char) 24)
(lsh (comm-following+forward-char) 16)
(lsh (comm-following+forward-char) 8)
(comm-following+forward-char)) 30) -30))))
変数の値が62bit幅の場合は、31bit目のデータを符号ビットの場所までシフトしてから、算出シフトで元の位置まで戻してあげます。(ソースでは30bitシフトしていますが、33bitシフトの方がよいかもしれません。)
ソースとパッチをおいておきます。ご自由にお使いください。
2011年6月20日月曜日
MacPorts削除する前にDBのダンプやデーモンの停止をしておきます。最初にDBのダンプをとります。
# /opt/local/lib/postgresql/bin/pg_dumpall > /tmp/pgsql.dump # /opt/local/bin/mysqldump5 -u root -x --all-databases > /tmp/mysql.dump #
次にMacPortsでインストールしたデーモンのプロセスを停止させます。
# port unload apache2 # port unload postgresql90-server # port unload mysql5-server #
インストール時期がかなり前だと、どのデーモンをMacPortsでインストールしたか忘れてしまうこともあります。そんな時は、launchctl コマンドを使えば、 現在動いているデーモンからMacPortsでインストールしたものを抽出できます。
# launchctl list | grep macports 60083 - org.macports.postgresql90-server 59969 - org.macports.mysql5 59934 - org.macports.apache2 #
元記事と大体一緒なので簡単に..
一応最初に "port installed > /tmp/install.txt"として、現在インストールされているport一覧を取っておきます。
# port installed > /tmp/install.txt # port deactivate active # port -f uninstall installed # port clean all # sudo mv /opt/local /opt/local.old #
macportをインストールして、最新版に更新。
# port selfupdate # port upgrade outdated #
最新版に更新後、/opt/local/etc/macports/macports.conf を編集してportarchivemodeをyesにします。これによって、コンパイル時にパッケージ アーカイブファイルが/opt/local/var/macports/packagesに作られます。またインストールする際にパッケージがあれば、再コンパイルせずにそのパッケージが使われるので、時間と電力の節約になります。
# vi macports.conf portarchivemode yes
既にあるソースとパッケージは再利用したいので、新しいディレクトリに移動させます。
# mv /opt/local.old/var/macports/distfiles/* /opt/local/var/macports/distfiles/ # mv /opt/local.old/var/macports/packages/darwin /opt/local/var/macports/packages/ #
パッケージが既にあるportをインストールすると、コンパイルせずにパッケージファイルを使用するので、面白いほどサクサクインストールが進みます。もちろんパッケージよりインストールするポートのバージョンが新しければ、コンパイルが行われ新しいパッケージが作成されます。
# port install lv +lesslikeslash ---> Computing dependencies for lv ---> Dependencies to be installed: ncurses ncursesw ---> Unpacking tgz archive for ncursesw 5.8_0 ---> Installing ncursesw @5.8_0 ---> Activating ncursesw @5.8_0 ---> Cleaning ncursesw ---> Unpacking tgz archive for ncurses 5.9_0 ---> Installing ncurses @5.9_0 ---> Activating ncurses @5.9_0 ---> Cleaning ncurses ---> Unpacking tgz archive for lv 4.51_2+lesslikeslash ---> Installing lv @4.51_2+lesslikeslash ---> Activating lv @4.51_2+lesslikeslash ---> Cleaning lv #
mysqlのインストール
# port install mysql5 mysql5-server # sudo -u _mysql mysql_install_db5 # cp /opt/local.old/etc/mysql5/my.cnf /opt/local/etc/mysql5/my.cnf # port unload mysql5-server # port load mysql5-server # mysql5 -u root -p < /tmp/mysql.dump #
postgresqlのインストール
# port install postgresql90 postgresql90-server # mkdir -p /opt/local/var/db/postgresql/defaultdb # chown -R postgres:postgres /opt/local/var/db/postgresql/defaultdb # ln -s /opt/local/var/db/postgresql /opt/local/var/db/postgresql90 # ln -s /opt/local/lib/postgresql90 /opt/local/lib/postgresql # su postgres -c ‘/opt/local/lib/postgresql90/bin/initdb -D /opt/local/var/db/postgresql90/defaultdb -E UTF8 --no-locale' # vi /etc/sysctl.conf kern.sysv.shmmax=167772160 kern.sysv.shmmin=1 kern.sysv.shmmni=32 kern.sysv.shmseg=8 kern.sysv.shmall=65536 # port load postgresql90-server # su postgres $ psql -f /tmp/pgsql.dump template1 $
apacheのインストール
# port install apache2 +preforkmpm # port install php5 +apache2 +pear # port install php5-curl php5-mbstring php5-mysql php5-postgresql # port install php5-gd +t1lib # mv /opt/local/apache2/conf /opt/local/apache2/conf.org # ln -s /var/www/conf /opt/local/apache2/conf # cp /opt/local/apache2/conf.org/extra/mod_php.conf /opt/local/apache2/conf/extra/ # cp /opt/local/apache2/conf.org/mime.types /opt/local/apache2/conf/ # rm -r /opt/local/apache2/htdocs # ln -s /Library/WebServer/Documents /opt/local/apache2/htdocs # ln -s /var/www/conf/php/php.ini /opt/local/etc/php5/php.ini # # port load apache2 #
それ以外のportも、最初に保存したinstall.txtを見ながら、抜けがないようにインストールしていきます。
MacBook air 11インチにもMacPortsが入っているので、同じようにして再インストールしていきます。
ただしpackageファイルは先ほど再インストールが終了したマシンから移し替えます。このようにすれば、MacBook airには最新のパッケージが入るので、コンパイルレスでインストールができます。実際、実行すると爆速でインストールが終了します。
2011年6月10日金曜日
メインの開発環境はmac mini+FlexScanL885なのだが、外出先などではMacbook air 11インチを使用している。emacsのデフォルト フレーム サイズをFlexScanL885にあわせるとMacbook airでは、はみ出てしまう。逆にMacbook airにあわせると、FlexScanL885では狭すぎて開くたびにリサイズするなんてことになる。
じゃあ解像度に合わせて、動的に開くフレームサイズを決めれば良いんじゃねぇ。ということで下記の設定を書いてみた。
;; 画面の解像度によりフレームサイズを変化させる
(when window-system
(if (>= (x-display-pixel-width) 800) (setq width-gain 0.45) (setq width-gain 0.8))
(if (>= (x-display-pixel-height) 1000) (setq height-gain 0.7) (setq height-gain 0.87))
(set-frame-size (selected-frame)
(floor (/ (* (x-display-pixel-width) width-gain) (frame-char-width)))
(floor (/ (* (x-display-pixel-height) height-gain) (frame-char-height))))
横の解像度が800px以下の場合は、横のフレームサイズを ((横解像度*0.8)/１文字の横ピクセル数)、横の解像度が800px以上の場合は ((横解像度*0.45)/１文字の横ピクセル数) としている。
また、縦の解像度が1000px以下の場合は、縦のフレームサイズを ((縦解像度*0.87)/１文字の縦ピクセル数)、縦の解像度が1000px以上の場合は ((縦解像度*0.7)/１文字の縦ピクセル数) としている。
2011年6月9日木曜日
先日、MacUpdate PromoでTotalFinderを40% offセールを行っていた。通常$15の所を$9で購入できるというので、前々からよさげなツールだと思っていたので導入してみた。
TotalFinderの良いところは、今まで別々に開いていたFinderをタブとして開くことが出来るところでしょう。Finderを開きすぎて、画面がゴチャゴチャしてしまう事がなくなったので、買ってよかったと思う。
ついでに、現在Finderで開いているディレクトリの場所をターミナルでひらいてくれる>cd to ...も導入してみた。この辺を参考にしてインストールする。
自分はTerminal.appでなくiTermを使用しているのでiterm用のプラグインに入れ替える。
$ mv /Applications/\>cd\ to\ ....app/Contents/PlugIns/terminal.bundle /Applications/\>cd\ to\ ....app/Contents/PlugIns\ Disabled/ $ mv /Applications/\>cd\ to\ ....app/Contents/PlugIns\ Disabled/iterm.bundle /Applications/\>cd\ to\ ....app/Contents/PlugIns/
入れ替えてみたのだが、何故かiTermが立ち上がらない。Terminalに戻すとうまくいくので、iTermの問題らしいので、googleさんに聞いてみてたが他の人は動いているらしい。何故だ？？？としばらく考えていたところ、自分が使っているのはiTermでなくiTerm2だったことを思い出した。
改めてググってみると、Does not work with iTerm2というのが引っかかった。PlugIns/iterm.bundle/Contents/MacOS/itermはIDが”net.sourceforge.iTerm”となっているので"com.googlecode.iterm2"にバイナリエディタなどで書き換えてあげれば動くよとの事だった。 しかも、パッチ済みのプラグイン(iterm2.bundle.zip)も置いてあったので、それを使わせてもらいました。
$ mv /Applications/\>cd\ to\ ....app/Contents/PlugIns/iterm.bundle /Applications/\>cd\ to\ ....app/Contents/PlugIns\ Disabled/ $ unzip iterm2.bundle.zip $ mv iterm2.bundle /Applications/\>cd\ to\ ....app/Contents/PlugIns/
これで、>cd to ...からiTerm2を立ち上げることができるようになりました。
2011年5月12日木曜日
ゴールデンウイークも過ぎてIKEAも空いてきた頃だろうと思い、前からほしかったスタンドランプを買いに行ってきた。
１つはSUNNANと言う太陽光で充電できるタイプのLEDライト。SUNNANは２台目なのだが、以前買ったときは2,500円程したと思ったのだけれど、今回は1,990円で買えた。電力不足で停電になりそうな昨今、こう言うランプが安く買えるのは有り難いです。
もう一つは、コンセントから供給するタイプのLEDライトJANSJO。意外に安くて1,490円！！組み立て式なのですが、台座が石だったのが驚いた。石にプラスチックのカバーを被せて下の部分をシールで固定して完成。早速、作業机に置いて使用してみました。
構造はちゃちだけれども、それなりに明るくて重宝しています。