haskell関数検索

importする関係で、Preludeとかあった方がいいので手直し

#!/usr/bin/ruby                                                                                                                                                                   

pattarn = ARGV[0]? ARGV[0] : ""
open(ENV["HREF_DATADIR"]+"/comptable",'r') {|file|
  while line = file.gets
    affiliation = (line[0...line.index(',')+1].chop).chomp
    name = (line[line.index(',')+1...line.size].chop).chomp
    printf("%-20s #%s\n", name, affiliation) if name.include? pattarn
  end
}

%-20sは、関数名の長さの最大値と同じになっているので、getDirectoryContentsとか検索するときにはけっこう隙間なく表示されるが、これ以上スペースを取ると読みにくくなってしまうので、妥協。
あと、引数がないときにerror扱いでは不親切なので、全関数を出力するようにした。