2007-10-04

コンビニ店長、パン万引と男性蹴り死なす

http://www.nikkansports.com/general/f-gn-tp0-20071003-265166.html

　埼玉県ふじみ野市の男性が「やられた」と言い残して死亡した事件で、万引を理由にこの男性をけって死なせたとして、埼玉県警は３日、傷害致死容疑で、埼玉県川越市のコンビニ経営新井忠義容疑者（３７）を逮捕した。

へんな話だよな、こういうの。傷害致死って3年以上の懲役だったけ。法律の仕組みとはいえ容疑者が可哀想だ。万引犯さえいなければ逮捕されなかったわけで。だいたい万引きなんかやるからボコられたんだろ。そして運悪く死んだだけ。法律的には同じ罪とはいえ、道義的には虐待や快楽目的でボコるのとはワケが違う。つーか普通蹴られただけで死ぬものかな？

逃げる万引犯を取り押さえるときに運悪く頭を打って死なせてしまっても傷害致死だろうか？抵抗する万引犯を少しボコったら暴行罪か傷害罪だろうか？これじゃあ抑止力にならないね。犯罪者天国鬱苦しい国日本。

roguelikeを思い出したよ。nethackだったけ、店から万引きしようとしたらめちゃくちゃ強い店員にボコられて殺されるよな。

2007-10-04

c-repl - C言語のREPL

http://neugierig.org/software/c-repl/

便利そう。ただ、実際の開発で使うためにはオブジェクトファイルをロードできないとだめかも!？
gdcはgccベースのD言語コンパイラなのでD言語にも対応できるかも？

$ cd ~/src; darcs get http://neugierig.org/software/darcs/c-repl

でインストール。

childがC言語、他はRuby スクリプトで書かれている。

$ ./repl
> .h math.h
.h math.h
> .l m
.l m
> printf("%g\n", sin(1.0))
printf("%g\n", sin(1.0))
0.841471

オブジェクトファイル対応化。環境変数によるヘッダファイル・オブジェクトファイル・ライブラリ指定

というわけでさっそく*.oも読み込めるようにhack。3行加えるだけ。

ついでにヘッダファイルやライブラリやオブジェクトファイルを毎回指定するなんてやってられないので環境変数で指定できるようにした。3行変更。

Rubyの部分はきれいに書かれているので改良は容易だった。

--- repl	2007/10/03 22:46:48	1.1
+++ repl	2007/10/03 23:33:50
@@ -63,8 +63,9 @@
     @cur_so_id = 1
     @runner = Runner.new
     @externs = []
-    @headers = []
-    @libraries = []
+    @headers = (ENV['REPL_HEADERS']||"").split
+    @libraries = (ENV['REPL_LIBS']||"").split
+    @objs = (ENV['REPL_OBJS']||"").split
     @commands = {
       'd' => ['toggle debug mode.',
               proc { @debug = !@debug; puts "debug is #{@debug?'on':'off'}" }],
@@ -94,11 +95,11 @@
       writer.close
       STDIN.reopen(reader)
       reader.close
-      cmd = "gcc -xc -g -shared -o #{name}.so"
+      cmd = "gcc -xc -g -I. -c - -o tmp.o && gcc -L. -g -shared -o #{name}.so tmp.o "
       # add in all libraries
       cmd += ' ' + @libraries.map{|l| "-l#{l}"}.join(' ')
-      # tell it to read input through stdin
-      cmd += ' -'
+      # add in all objects
+      cmd += ' ' + @objs.map{|o| "#{o}"}.join(' ')
       puts cmd if @debug
       exec(cmd)
     end

さて、実行結果は。

~/src/c-repl% cat hoge.c
int add(int x, int y) {
    return x+y;
}
~/src/c-repl% cat hoge.h
int add(int x, int y);
~/src/c-repl% REPL_LIBS=m REPL_OBJS=hoge.o REPL_HEADERS="math.h hoge.h" ./repl
> printf("%g\n", sin(1.0))
0.841471
> printf("%d\n", add(1,2))
3

作者へフィードバック

せっかくdarcsを使っているのだから作者にパッチ送付。

darcs record
darcs send -o mypatch

最後にmypatchを添付して作者にメール。

インストール

インストールするためには名前を変えておいたほうがいい。このへんいい加減。他のディレクトリで実行することを考慮していないのは明らかなので、実際のプログラムをhackするのに使われているかどうか怪しい。

まず、カレントのchildを実行するようハードコードされているので修正。

--- repl	2007/10/03 23:53:19	1.2
+++ repl	2007/10/03 23:53:23
@@ -20,7 +20,7 @@
       response_pipe[0].close
       STDIN.reopen(command_pipe[0])
       command_pipe[0].close
-      exec('./child', response_pipe[1].fileno.to_s)
+      exec('c-repl-child', response_pipe[1].fileno.to_s)
     end
     command_pipe[0].close
     command_pipe[1].sync = true

インストールの例。俺の場合~/binにPATHが通っていてRUBYLIBに~/rubyを指定してあるのでこんな感じ。

$ mv child c-repl-child
$ cp repl ~/bin; cp c-repl-child ~/bin; cp codesnippet.rb gdbmi.rb ~/ruby

2007-10-04

イテレータ

ruby

Life is beautiful: 教えながら学ぶRuby：イテレータに片思いにて。Rubyの「イテレータ」という言葉を久しぶりに聞いた。俺がRuby始めたころはもっぱら「イテレータ」で、一昔前は混在していて、今はもうすっかり「ブロック」だよなぁ。iterator?は今やすっかり見なくなって、block_given?だね。

2007-10-04

美しい国

ruby lisp ネタ

$ ruby -Ke -e 'puts "うつくしいくに".split(//).reverse.join'
にくいしくつう

Common Lispならreverse一発か。

CL-USER> (reverse "うつくしいくに")
"にくいしくつう"

Gaucheも。

gosh> (use srfi-13)
#<undef>
gosh> (string-reverse "うつくしいくに")
"にくいしくつう"

「憎いし苦痛」は今の日本を表している。はてなキーワードを探険してたら見つけた。テラワロス

2007-10-04

社会ニュースのRSS講読をやめる

新聞の社会面のニュースって記事数は多いわ犯罪の話題しかないわで、いい気分がしない。それに気になるニュースがあったらついブログを巡回して時間を無駄にしてしまうので講読をやめた。重要なニュースはgigazineが取り上げてくれるしね。
興味の幅は広いほうがいいと言われているが、アンテナを広げすぎたら情報収集に時間がかかりすぎる欠点がある。俺には某氏のように一日50冊も読書できるほどの速読力も頭脳もない。人間は計算機と違って部品部品の取り替えがきかない。この情報化時代、やっぱり頭のいい人が強いんだとつくづく感じる。
余った時間で勉強しよう。