def make_class_public_node(c)
class_public = XML::Node.new('class_public')
docmeta = class_public << XML::Node.new('docmeta')
title = docmeta << XML::Node.new('title')
title << "Public class Methods for #{c}"
sect = class_public << XML::Node.new('sect')
sect << XML::Node.new('para')
methods = sect << XML::Node.new('methods')
c.singleton_methods.each do |meth|
method = XML::Node.new('method')
meth_name = method << XML::Node.new('methname')
meth_name << meth
method << XML::Node.new('methdesc')
methparams = method << XML::Node.new('methparams')
0.upto(c.method(meth).arity) do
methparam = XML::Node.new('methparam')
methparam << XML::Node.new('paramtype')
methparam << XML::Node.new('paramdesc')
methparams << methparam
end
methods << method
end
return class_public
end