Depending on what you want to do, how about Perl? (Try http://www.activestate.com/Products/activeperl/
You can either create your own format or use it's POD format.
For example:
create procedure userproc
as
/*
=head1 xproc
=head2 Parameters
None
=head2 Description
This selects a list of all users
=cut
*/
begin
select * from tbluser
end
Then run 'pod2text xproc.sql' produces
xproc
Parameters
None
Description
This selects a list of all users
There's also pod2html and maybe others.