Kazuho@Cybozu Labs

C++ に対応:
　-p オプションを使用して、C++ のコードを実行できるようになりました。残念ながら、 main 関数を省略することはできませんが。

% C -p -e 'int main(int, char**) { cout << "hello world" << endl; }'
hello world

-l オプションの追加:
　GCC の引数の末尾にオプションを追加することができるようになりました。-l オプション等、順序が問題になる際に使用することができます。

シンボリック攻撃に対する脆弱性を修正:
　シンボリックリンク攻撃 (symlink attack) が可能だった問題を修正しました。

以上です。

　なお、この場をお借りして、コードを添削していただいた弾♂さんにお礼を申し上げます。より一般的な Perl コードになったと思います。以下は、気になった点のメモ＆回答。

tmpnam()はFile::Tempのそれを使うべし。POSIXと同じく標準装備の上よりportable。

　指摘ありがとうございます。今回のケースでは gcc の出力も保護する必要があるので、 tempfile ではなく tempdir を使った実装に修正しました。

　前versionではGetopt::Stdを使おうとして使ってなくて、結局手で実装していたみたいだけど、Getopt::Std素直に使った方がいいと思うのだけど。コンパイルされたbinaryに引数を渡すため?

　Getopt::Std では、 -cWall -cO2 (gcc に -Wall -O2 を渡す) のように、同一名称を持つオプションを複数回使用できない (と思う) からです。

if (my $err = system(@gcc, '-o', $out_file, $src_file)){
    cleanup();
    $! = $err >> 8; # 宿題:これが何を意味しているのか調べてみよう
    die "failed to execute gcc: $! ($?)"
}

回答：終了コードを errno に代入しても意味がない。
＃出題ミスでしょうか？

perldoc -f die.
... exits with the current value of $! (errno) ...
こんな機能があったのですね.
自分で終了ステータスいれてdieしたいときには便利？
今回に関しては If $! is 0, exits with the value of "($? >> 8)" ともあるので冗長ではある点と,
起動したプログラムの終了コードがエラーコードでない限りそれを$!として評価しても混乱するメッセージがでるだけというのがちょっと難. $err==0/!=0で違うエラーメッセージにしないと.

ちょっと動作を試したいときとかすごい便利ですね。
あまりにもおもしろかったので自分でもPythonで実装してみました。
Perl/C版に比べて特に利点はありません。むしろ遅くなったくらいでしょうか(笑)

sh1.2 pyblosxom: Cのワンライナー
http://sh1.2-d.jp/b/2006-01-28-23-33.html

shunuhs さん、ありがとうございます。

+ 6 という数字は、行数のつじつまあわせのためのものですが、場合によって、ずれてしまうと思います。混乱させてすいません (汗
この部分は、あまり大した問題ではないので、C 版では実装していません。

また、ライセンスについてですが、shunuhs さんのお書きになったコードなので、 Copyright は Cybozu Labs, Inc. ではなく shunuhs さんとしていただきたいと思います。

ご指摘ありがとうございます。Copyrightの部分を変更させて頂きました。

ライセンスについてもう一つよくわかってないので
もしまだ問題ありましたらご指摘頂ければ幸いです。

＃LabsのURLも消したほうがいいのでしょうか？

修正ありがとうございます。

> ＃LabsのURLも消したほうがいいのでしょうか？

pyC のページへのリンクは、あったほうがユーザーに親切かな、と思います。
perl 版、あるいは C 版へのリンクは、あってもなくてもかまわないと思います。