ぷるぐらむ

東京勉強会#22

長月葵 -aoitan@wankuma.com — Tue, 15 Jul 2008 19:35:00 GMT

　酢酸と行ってきました東京勉強会#22。
　前日に中さん~~濃く竜~~黒龍さん、kokaさん、rafaleさんとラーメン食べてたにも関わらず一言も漏らさずにサプライズを演出してみました。
　案の定のんちゃんや中さんが驚いてくれてご満悦でしたよ。

　肝心のセッションはアキラさんのC++0xがお目当て。これがなかったらいきませんでした。期待通りεπιさんと出水さんもいて濃ゆいお話が聞けました。
　いいですねわんくま、わんくま以外ではこんな話できるつながりないです。
　他の人のセッションは寝不足のせいであんまり頭に入ってません（ちょｗｗｗ
　一応公称囚人信者で建前上囚人さんに会いに行ったことになっているので囚人さんのセッションはある程度覚えてます。変換中なのに確定文字列押しのけるんですよね？(そこしか覚えてな……

　懇親会ではC++組に絡みにいきました。程なくεπιさんとmeltさんも寄ってきて面白そうな雰囲気に。飲みの席でプログラミングの話になるのもわんくまいいなあと思ったところですね。同僚と飲みにいくと愚痴かアニメの二択です。
　あとεπιさんにも突っ込まれましたが自己紹介ｇｄｇｄなのは毎回の事なので仕様と割り切ってもらえると助かります。

　二次会以降はカラオケ組に。オール前提で朝にチケットを取ってあったので当然三次会以降もカラオケです。
　一番しばり＝＞アニソンしばり＝＞えムナウさんしばりと縛られ続けたカラオケですがこういうの却って面白いですね。

　四次会はFirst Kitchen。かるぼさんのぐったり感が印象的でした。お疲れ様です。
　でも一番印象に残ったのがおでんさん。あなたそれ車買えますよ、新車で。

　帰り道は寝てたので記憶ないです。大阪から関西本線に乗ったつもりで環状線に乗った上に終点まで寝過ごしてユニバーサルシティの方に行ってしまって余分に一時間掛かったとかほほえましいエピソードなんて憶えてません。

　とりあえず今後関東の勉強会行くことがあってもオールはすまいと心に決めた長月でした。

[Perl][お題]テキスト行の逆順表示その後

長月葵 -aoitan@wankuma.com — Wed, 09 Jul 2008 15:11:00 GMT

　元ネタ

　ワンライナー版

perl -e "print join('', reverse(<>));" hoge.txt

[Perl][お題]テキスト行の逆順表示

長月葵 -aoitan@wankuma.com — Wed, 09 Jul 2008 13:44:00 GMT

　元ネタ

　Rubyって書いてあったのでPerlでやってみました（何

open(F, "<hoge.txt") or die "oops\n";
@line = <F>;
@line = reverse(@line);
print join("", @line);
close(F);

これぐらいならがんばればワンライナーできそうな気も。

[C]16bitCPUの罠(´・ω・｀)

長月葵 -aoitan@wankuma.com — Fri, 04 Jul 2008 11:25:00 GMT

　printf()相当の関数を使ってCOM1にログをはいてます。
　関数のトレースログに引数も一緒に表示しようと以下のようにしてみました。

void hoge(WORD arg1, WORD arg2, DWORD arg3)
{
  logprintf("arg1 = %x, arg2 = %x, arg3 = %x\n"
        , arg1, arg2, arg3);
    :
}

　たいていのprintfはサイズ指定フラグを指示しなくてもちゃんとやってくれるので書きませんでした。
　でも出てきた結果は想像と違いました。arg1に0x1234、arg2に0x5678、arg3に0x9ABCDEF0が入っていたとしたとき、出てきた結果は以下のようなものでした。

arg1 = 0x56781234, arg2 = 0x9ABCDEF0, arg3 = 0x00000000

　ぶｗｗｗｗつまっとるｗｗｗｗｗ
　確かに理屈の上では...でとった引数は割りと無秩序にスタックに積まれるはずですから、PCなんかで試してみれば32bitアラインメントの都合で32bitごとに積んでいって問題なく表示するんでしょうが、ターゲットが16bitアラインメントなので16bitの変数はそのまま並べちゃったんですね。でも量指定フラグがなくてint相当の幅として扱ったので上記の結果と。
　理屈がわかれば対応は簡単、量指定フラグを付け足してやりましょう。

void hoge(WORD arg1, WORD arg2, DWORD arg3)
{
  logprintf("arg1 = %hx, arg2 = %hx, arg3 = %x\n"
        , arg1, arg2, arg3);
    :
}

　表示しない……orz
　関数仕様 (と言うかヘッダコメント) を読んでみた感じどうも量指定フラグには対応してないようです。どないせいと。
　しかしそこは自称紙一重のこちら側な長月、すぐさま思いつきました。%xが32bitとるなら32bitな型にキャストしてやればよい。

void hoge(WORD arg1, WORD arg2, DWORD arg3)
{
  logprintf("arg1 = %4x, arg2 = %4x, arg3 = %x\n"
        , (DWORD)arg1, (DWORD)arg2, arg3);
    :
}

arg1 = 0x1234, arg2 = 0x5678, arg3 = 0x9ABCDEF0

　表示もちゃんとできました。お疲れ様でした。
　でもこんなコード書かなきゃいけない環境に涙目です。スタックにできた合計32bitの隙間も微妙にもったいないです。と言うかアセンブリレベルで考えたときにロードとストアの効率が半分です。もったいないもったいない……。

　と言うわけでぷるぐらみんぐネタに見せかけた日記でした。

[Perl][脳内バグ]思い込みってこわいなー

長月葵 -aoitan@wankuma.com — Tue, 01 Jul 2008 14:02:00 GMT

　今ログを整形するPerlスクリプトを書いていてはまったこと。

　やりたいのは0x????な16進数をシンボルに置き換えるだけ。Perlだとハッシュな対応表から引いてくるだけの簡単なお仕事です。

$_ =~ s/^id = (0x[0-9A-F]{4})/id = $hex2id{\1}/;

　これで置き換えできちゃうぞ、簡単簡単と思っていたんですが走らせて見ると変換されない。デバッグプリントで$1を表示してみたら期待通り0x????が取れてる。%hex2idの中身を表示してみてもちゃんと入ってる。なんでだろと思って\を$に変えてみたところ。

$_ =~ s/^id = (0x[0-9A-F]{4})/id = $hex2id{$1}/;

　あれ？　表示される。そういえば昔同じところではまった記憶ががが。。。

　すっかり忘れてましたが置き換え文字列って正規表現文字列の外なんですよね。今度こそ忘れないようにpostしておきます。しょぼーん。