ActiveRecord#to_xmlを初めて使ったんだけど、あーこれ楽だ……。 Array#to_xmlも気が利いてるなぁ。

まあrender :xml => @records.to_xmlで済むならそれでいいんだけど、 Builderと一緒に使うにはどうしたもんかと思ったら :builderオプションで渡してやるとよいのかーというメモ。

# xxx.rxml(まだRails 1.2.6使ってます)

xml.instruct!

xml.records :foo => 'bar' do
  @records.each {|r| r.to_xml(:builder => xml, :skip_instruct => true) }
end

なるへそ。あと:skip_instruct => trueにしておかないとto_xmlのたんびにXML宣言が挿入される罠。

あ、あけおめ。今年はもうちょっとブログ更新したいですね。

ルーティングの確認に使えるRails 2.0のrake routesがRails 1.2.6でもコピったら使えるっぽい。

% cp `gem env gempath`/gems/rails-2.0.2/lib/tasks/routes.rake lib/tasks

ruby 1.8.5

irb(main):001:0> Date.parse('18/Jan/2008')
ArgumentError: 3 elements of civil date are necessary
        from /usr/lib/ruby/1.8/date.rb:650:in `new_with_hash'
        from /usr/lib/ruby/1.8/date.rb:695:in `parse'
        from (irb):1

ruby 1.8.6

irb(main):001:0> Date.parse('18/Jan/2008')
=> Fri, 18 Jan 2008

おおう。さっさとバージョンあげろってことか……。

irb(main):001:0> Date.parse('18/Jan/2008')
ArgumentError: 3 elements of civil date are necessary
        from /usr/lib/ruby/1.8/date.rb:650:in `new_with_hash'
        from /usr/lib/ruby/1.8/date.rb:695:in `parse'
        from (irb):1
irb(main):002:0> Date.parse('18/Jan/2008'.tr('/', '-'))
=> #<Date: 4908967/2,0,2299161>

あww とりあえずこれでお茶にごしとくかw

% md5sum ~/gauche-refj.txt.gz
31970f62bbb827c8fc14ebae6a132b25  /home/yz/gauche-refj.txt.gz

これをやりたいんだ。

Rubyだと

require 'digest/md5'
puts Digest::MD5.hexdigest(File.read("/home/yz/gauche-refj.txt.gz"))
#=> "31970f62bbb827c8fc14ebae6a132b25"を表示

で済むんだけど、Rubyでぬくぬくしてるとそろそろゆとり脳って言われそうなのでひさしぶりにGaucheで頑張る。

(use rfc.md5)
(use file.util)
(print (digest-hexify (md5-digest-string (file->string "/home/yz/gauche-refj.txt.gz"))))
;=> "6ff4b0c6979cb79d21e355d338769d5b"を表示

なんか違う。file->stringがFile.readとは違うみたい。

rfc/md5.scmから適度にパクってこうなった。

(use rfc.md5)
(use gauche.uvector)

(define *buffer-len* (* 1024 10)) ; 10KB

(define (file->md5-digest path)
  (let ((buf (make-u8vector *buffer-len*))
        (md5 (make <md5>)))
    (call-with-input-file path 
                          (lambda (port)
                            (until (read-block! buf port) eof-object? => cnt
                              (digest-update! md5
                                              (u8vector->string (if (< cnt *buffer-len*)
                                                                  (uvector-alias <u8vector> buf 0 cnt)
                                                                  buf))))
                            (digest-final! md5)))))

(print (digest-hexify (file->md5-digest "/home/yz/gauche-refj.txt.gz")))
;=> "31970f62bbb827c8fc14ebae6a132b25"を表示

なげぇw けどdigest関係の必要な関数が把握できた。ｳﾌﾌ

環境変数GAUCHE_LOAD_PATH、goshコマンドの-Iオプション、あとは大域変数*load-path*にset-car!でもしていじくる。