4 posts from 4 月 2007

erl -boot ....
でブートスクリプトを読み込んでいる。System Principlesとscript(4)がブートスクリプトの解説

tsung_controller:start
 |-ts_controller_sup:start_link(LogDir)
   |-supervisour:start_link({local, ?MODULE}, ?MODULE, [LogDir])
     |-ts_controller_sup:init
     |-supervisour:start_child(ts_controller_sup:initの返り値を利用する）
       |-ts_config_server:start
       |-ts_mon:start
       |-ts_os_mon:start
       |-ts_timer:start
       |-ts_msg_server:start
       |-ts_user_server:start
tsung_controller:start_phase(load_config)
tsung_controller:start_phase(start_os_monitoring)
tsung_controller:start_phase(start_clients)

テストデータとかを作るのに使いそうなので作ってみた。

code

def sequencetext(seq, text, indent = 3)
   src = ''
   seq.each_index do |i|
      src << " " * (i * indent) +
             "seq[" + i.to_s + "][0].inject('') do |result," + seq[i][1].to_s+ "|\n"
      src << " " * (i.next * indent) + "result << \n"
   end

   src << " " * (seq.length * indent) + "\"#{text}\"\n"

   (seq.length - 1).downto(0) do |n|
      src << " " * (n * indent) + "end\n"
   end
   eval(src, binding)
end

irb(main):018:0> puts sequencetext([[[1,2,3,4], "hoge"], [[1,2,3,4], "hogehoge"]],
                                                    '#{hoge}, #{hogehoge}\n')
<ext([[[1,2,3,4], "hoge"], [[1,2,3,4], "hogehoge"]], '#{hoge}, #{hogehoge}\n')
1, 1
1, 2
1, 3
1, 4
2, 1
2, 2
2, 3
2, 4
3, 1
3, 2
3, 3
3, 4
4, 1
4, 2
4, 3
4, 4
=> nil

中央線の終電が遅れてバイト先に泊まりになってしまった。
用意していた歯磨きと洗顔が役に立ったよ。
まあ、小さいころあったお泊り会だと思えばよいか。一人だけど。。。

一々確認していかなければいけないのが面倒くさい。
テストフレームワークがあった気がするけど何だっけ？＞ぐぐれ自分