diff -r 65cbecad22b4 -r 7d87d323c889 docgen.pl
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/docgen.pl Mon Feb 23 04:05:05 2009 +0200
@@ -0,0 +1,108 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my %docs;
+my @tags;
+my $inside;
+my $harvest;
+my @values;
+
+foreach my $file (@ARGV) {
+ if ( not open SOURCE, '<', $file ) {
+ print STDERR "Cannot open $file\n";
+ next;
+ }
+
+ my $chunk = 0;
+
+ while ( ";
+ foreach ( @$chunk ) {
+ s/^A: /
";
+ foreach my $chunk ( @{$docs{$file}} ) {
+ my $head = shift @$chunk;
+ my $tag = $head;
+ my $list = undef;
+ $tag =~ s/_/./g;
+ print "$head
Arguments: /;
+ s/^R: /
Return values: /;
+ s/^V: /
Values: /;
+ if ( $list ) {
+ if ( /^\* / ) {
+ s/^\* /<\/li>
" if $list;
+ print "