# uname -a
Linux foobar 2.6.22.7 #7 Tue Oct 21 22:36:39 JST 2008 armv5tejl unknown
# cat /proc/cpuinfo
Processor       : ARM926EJ-S rev 0 (v5l)
BogoMIPS        : 266.24
Features        : swp half thumb fastmult edsp
CPU implementer : 0x41
CPU architecture: 5TEJ
CPU variant     : 0x0
CPU part        : 0x926
CPU revision    : 0
Cache type      : write-back
Cache clean     : cp15 c7 ops
Cache lockdown  : format C
Cache format    : Harvard
I size          : 32768
I assoc         : 1
I line length   : 32
I sets          : 1024
D size          : 32768
D assoc         : 1
D line length   : 32
D sets          : 1024
Hardware        : Feroceon
Revision        : 0000
Serial          : 0000000000000000
# free
total         used         free       shared      buffers
Mem:       125780       101916        23864            0           52
Swap:      1004020            0      1004020
Total:      1129800       101916      1027884
# fdisk -l
Disk /dev/sda: 500.1 GB, 500107862016 bytes
255 heads, 63 sectors/track, 60801 cylinders
Units = cylinders of 16065 * 512 = 8225280 bytes
Device Boot      Start         End      Blocks  Id System
/dev/sda1               1         125     1004031  83 Linux
/dev/sda2             126         748     5004247+ 83 Linux
/dev/sda4             749       60801   482375722+  5 Extended
/dev/sda5             749         873     1004031  82 Linux swap
/dev/sda6             874       60690   480480021  83 Linux

ハードディスクもあるし、 普段との違いは CPU アーキテクチャくらい? ということで、全然組込みプログラミングじゃないです。

クロスコンパイルとかに少々悩みつつ、 Scratchbox 2 + QEMU に寄り道したりして、 ようやく場当たり的パッケージングとインストールが完了。 今後 Scratchbox を使ったクロスコンパイル環境作りには力を入れたいが、暇があるかどうか。

何はともあれ、キメラ・サーチを初実行 on ARM。

# time /opt/osstech/bin/chimera-crawler
real    0m28.299s
user    0m24.310s
sys     0m2.570s

…遅い! メモリ 128MB も心許ない。大丈夫か?

リンク

文字列操作の比較表: Ruby, Python, JavaScript, Perl, C++

http://0xcc.net/blog/archives/000137.html

配列操作の比較表: Ruby, Python, JavaScript, Perl, C++

http://0xcc.net/blog/archives/000043.html

バージョン番号

コマンドライン

Perl

$ perl -v
This is perl, v5.10.0 built for x8664-linux-gnu-thread-multi
いっぱい
$ perl -V
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
もっといっぱい
$ perl -e 'print $],"\n"'
5.010000

Python

$ python -v
Python 2.5.2
$ python -c 'import sys; print "%d.%d.%d" % sys.versioninfo[:3]'
2.5.2
$ python -c 'import sys; print "%d.%d" % sys.versioninfo[:2]'
2.5

$ ruby -v
ruby 1.8.7 (2008-05-31 patchlevel 0) [x8664-linux]

標準モジュールパスの表示

コマンドライン

Perl

$ perl -e 'print map {"$\n"} @INC'
/etc/perl
/usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.10
/usr/share/perl/5.10
/usr/local/lib/siteperl
.
$ perl \
-V:installsitearch \
-V:installsitelib \
-V:installvendorarch \
-V:installvendorlib \
-V:installarchlib \
-V:installprivlib
installsitearch='/usr/local/lib/perl/5.10.0';
installsitelib='/usr/local/share/perl/5.10.0';
installvendorarch='/usr/lib/perl5';
installvendorlib='/usr/share/perl5';
installarchlib='/usr/lib/perl/5.10';
installprivlib='/usr/share/perl/5.10';

Python

FIXME: Python 2.5(?) には vendor-packages もあるみたい。

$ python -c 'import sys; print sys.path'
['', '/usr/lib/python25.zip', '/usr/lib/python2.5', '/usr/lib/python2.5/plat-linux2', '/usr/lib/python2.5/lib-tk', '/usr/lib/python2.5/lib-dynload', '/usr/local/lib/python2.5/site-packages', '/usr/lib/python2.5/site-packages', '/usr/lib/python2.5/site-packages/Numeric', '/usr/lib/python2.5/site-packages/PIL', '/var/lib/python-support/python2.5', '/var/lib/python-support/python2.5/gtk-2.0']
$ python -c 'from distutils.sysconfig import getpythonlib; print getpythonlib()'
/usr/lib/python2.5/site-packages

$ ruby -e 'puts $LOAD_PATH'

モジュール検索パスの追加

環境変数

Perl

$ export PERL5LIB='/site/lib/perl'

Python

$ export PYTHONPATH='/site/lib/python'

$ echo '/site/lib/python' >/usr/lib/python2.5/site-packages/site.pth

$ export RUBYLIB='/site/lib/ruby'

スクリプト

Perl

use lib '/site/lib/perl';

Python

import sys
sys.path.append("/site/lib/python")

import site;
site.addsitedir('/site/lib/python')

puts $LOAD_PATH.push("/site/lib/ruby")

#!/usr/bin/ruby -w


IPC class with external command

class CmdIPC
attrreader :reader, :writer
def initialize(command, *args, &ipcproc)
if command.class == Array
@command, @arg0 = command
else
@command = @arg0 = command
end
@args = args
@ipcproc = ipcproc
@pid = nil
startcommand
end
def startcommand
@reader, cwriter = IO.pipe
c_reader, @writer = IO.pipe

Parent process returns here

return if @pid = fork

Child process

begin
@reader.close
@writer.close
STDIN.reopen(creader)
STDOUT.reopen(cwriter)
creader.close
cwriter.close
exec([@command, @arg0], @args)
rescue => e
raise "cannot execute external command: #{@command}: #{e}"
end
end
def stopcommand
if @pid
@reader.close
@writer.close
Process.kill('TERM', @pid)
Process.waitpid(@pid)
end
@pid = nil
end
def restartcommand
stopcommand
startcommand
end
def ipc(input)
@ipcproc.call(self, input)
end
end
if FILE == $0
lookupsid = CmdIPC.new('/usr/bin/rpcclient', '-U%', '-d0', '127.0.0.1') {
|sid, reader, writer|
writer.puts("lookupsids #{sid}")
next unless line = reader.gets
next unless match = line.match(/^S(?:-\d+)+\s(.)\s+(\d+)$/)
next match[1]
}
puts lookupsid.ipc('S-1-1-0')
puts lookupsid.ipc('S-1-3-0')
puts lookupsid.ipc('S-1-3-1')
end

注意: この実装では、出力をバッファリングするコマンドに対しては利用できない。

(まだ素人なので)この実装がオブジェクト指向的 (Ruby 的) に美しいかどうかはよくわからないが、 参考書を片手に数分でそれっぽいのが完成してしまった。 ちょっと感動した。 Ruby だとより直感的に書けるということかな。 ソフトウェア関係で感動したことは、過去、両手で足りる回数しか経験がないので、 貴重な体験だった。

一点気になるのは、CmdIPC.new に渡しているコードブロックには return 文が書けないこと。 Ruby のリファレンスを読めば理由は納得できるのだが、 next は違和感ありすぎ。 せめて break ならいいのだけど、 それだと LocalJumpError 例外が発生して break from proc-closure と文句を言われる。 何か間違っているのかなぁ?

実は Ruby の勉強と平行して Samba 共有内のファイル検索ツールを今月中に作らねばならないのだけど、間に合うかしら!? いや、間に合わせねば。 Ruby の素晴しさを引き出すには時間が足りないかもしれないけど、 そこそこは使い熟せそうな感触を得ている。

初 Ruby スクリプトは以下のような感じ。突っ込み歓迎。 Ruby/SMB を利用して SMB 共有内の特定の拡張子のファイルを一覧表示する Ruby スクリプト:

#!/usr/bin/ruby -w

require "smb"

## Override SMB::Dir::Entry#url to hide "user:password" in URL
class SMB::Dir::Entry
  alias original_url url
  private  riginal_url
  def url
    return original_url.sub(%r#^([^/:]+://)(?:[^/]+@)?#, '\1')
  end
end

$ext = %w(odt ods odp doc xls ppt pdf txt htm html)
$server = "127.0.0.1"
$user = "testuser"
$password = "testuserpassword"
$server.downcase!
$auth = [nil, $user, $password]
$ext_re = Regexp.new("\\.(#{$ext.join("|")})$", Regexp::IGNORECASE)

def crawl(dir)
  dir.direntries.each do |entry|
    next if entry.name =~ /^\.\.?$/
    ## FIXME: SIGSEGV protector (libsmbclient's bug?)
    next if entry.url.length > 1000
    if entry.file?
      if entry.url =~ $ext_re
        puts entry.url
      end
    elsif entry.dir?
      begin
        entry_dir = entry.open
        crawl(entry_dir)
      rescue => e
        e_message = e.to_s.sub(/ - smb:\/\/.*/, '')
        STDERR.puts "#{$0}: cannot open directory: #{entry.url}: #{e_message}"
      ensure
        entry_dir.close if entry_dir
      end
    end
  end
end

SMB.on_authentication do |server, share, workgroup, user, password|
  $auth
end

begin
  server = SMB.open("smb://#{$server}/")
  #server = SMB.open("smb://#{$user}:#{$password}@#{$server}/")
rescue => e
  STDERR.puts "#{$0}: cannot connect to server: #{$server}: #{e}"
  exit 1
end
server.direntries.each do |entry|
  if entry.file_share?
    begin
      entry_share = entry.open
      crawl(entry_share)
    rescue => e
      STDERR.puts "#{$0}: cannot connect to share: #{entry.name}: #{e}"
    ensure
      entry_share.close if entry_share
    end
  end
end

exit 0

以下は Ruby/SMB beta3 用のパッチで、 SMB.on_authentication のバグ修正とログレベルを 0 に変更する修正:

--- rubysmb-beta-3/rubysmb.c.dist   2002-10-17 20:13:48.000000000 +0900
+++ rubysmb-beta-3/rubysmb.c    2007-06-05 23:52:11.698527382 +0900
@@ -112,9 +112,9 @@ static void auth_fn(const char *server,
 if (RARRAY(ary)->len != 3) {
   rb_raise(eSmbError, "array should contain workgroup, username and password to use as authentication");
 }
-
-  wg = RARRAY(ary)->ptr[1];
-  un = RARRAY(ary)->ptr[0];
+
+  wg = RARRAY(ary)->ptr[0];
+  un = RARRAY(ary)->ptr[1];
   pw = RARRAY(ary)->ptr[2];
   if (!NIL_P(wg)) {
@@ -167,7 +167,7 @@ void Init_smb()
 {
   int err;
-  err = smbc_init(auth_fn, 1);
+  err = smbc_init(auth_fn, 0);
   if (err < 0) {
     rb_raise(rb_eRuntimeError, "Error loading libsmbclient: %s\n", strerror(errno));
   }