Ruby编写的取得Pyton所有函数并导出到XML文档的程序

=begin

  遍历python lib的目录 'C:/Python24/Lib' ，对每一个文件和文件夹进行比对，然后建立其函数的xml的tree，并保存到C:/Python.xml中

=end

require 'win32ole'

$dom = WIN32OLE.new('Msxml2.DOMDocument.3.0')

$dom.async = false

$dom.loadXML('<?xml version="1.0" encoding="UTF-8" standalone="yes"?><root></root>')

$r = /^def/s+(/w+?)/s*[(]/

def testfiles(dir,node)

       Dir.chdir(dir)

       dirs = Dir["*"]

       dirs.each do |d|

              filename = dir + "//" +d

              if FileTest.directory?(filename)

                     newdir = $dom.createElement('directory')

                     attr = $dom.createAttribute('DIR')

                     attr.value = d

                     dirNode = node.appendChild(newdir)

                     dirNode.setAttributeNode(attr)

                     testfiles(filename,newdir)

              elsif d =~ //.py|pyw/

                     newfile = $dom.createElement('pyfile')

                     attr = $dom.createAttribute('FILE')

                     attr.value = d

                     filenode = node.appendChild(newfile)

                     filenode.setAttributeNode(attr)                  

                     f = File.new(filename,'r')

                     pytxt = f.read()

                     pytxt.each_line {|t|

                            m = $r.match(t)

                            if m

                                   func = m[1]

                                   if func

                                          newfunc = $dom.createElement('function')

                                          funcNode = filenode.appendChild(newfunc)

                                          funcNode.text = func

                                   end

                            end

                     }                  

              else

              end

       end

end

 

root = $dom.documentElement()

 

path = 'C:/Python24/Lib'

testfiles(path,root)

$dom.save('c:/python.xml')