ext/aix_mksym.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35


def uniq(data)
  last=nil
  data.delete_if do |name|
    if last == name
      TRUE
    else
      last = name
      FALSE
    end
  end
end

def extract(nm, out)
  data = nm.readlines.collect{|line|
    line = line.split
    case line[1]
    when "B", "D"
      line[0]
    else
      next
    end
  }.compact!.sort!
  uniq(data)
  exp = open(out, "w")
  exp.printf "#!\n"
  for line in data
    exp.printf "%s\n", line
  end
  exp.close
  nm.close
end
if older("../ruby.imp", "../miniruby")
  extract(open("|/usr/ccs/bin/nm -p ../*.o"), "../ruby.imp")
end