diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-20 11:00:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-20 13:43:56 +0000 |
| commit | 6a235718376473e8a4b38c98dc4a86a0c420afd1 (patch) | |
| tree | 0767cf7641aca73b8582bf99b69f0f8f66e96d6d /autodoc.pl | |
| parent | 54091fc36dc7efc7fe88612d4235c8691f555abf (diff) | |
| download | perl-6a235718376473e8a4b38c98dc4a86a0c420afd1.tar.gz | |
Merge %apidocs and %gutsdocs into $docs{api} and $docs{guts}.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/autodoc.pl b/autodoc.pl index 8c47ecf24c..db1572df60 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -25,8 +25,7 @@ use strict; # implicit interpreter context argument. # -my %apidocs; -my %gutsdocs; +my %docs; my %docfuncs; my %seenfuncs; @@ -60,10 +59,10 @@ DOC: $docs = "\n$docs" if $docs and $docs !~ /^\n/; if ($flags =~ /m/) { if ($flags =~ /A/) { - $apidocs{$curheader}{$name} = [$flags, $docs, $ret, $file, @args]; + $docs{api}{$curheader}{$name} = [$flags, $docs, $ret, $file, @args]; } else { - $gutsdocs{$curheader}{$name} = [$flags, $docs, $ret, $file, @args]; + $docs{guts}{$curheader}{$name} = [$flags, $docs, $ret, $file, @args]; } } else { @@ -193,11 +192,11 @@ while (<IN>) { if ($docref and @$docref) { if ($flags =~ /A/) { $docref->[0].="x" if $flags =~ /M/; - $apidocs{$docref->[4]}{$func} = + $docs{api}{$docref->[4]}{$func} = [$docref->[0] . 'A', $docref->[1], $retval, $docref->[3], @args]; } else { - $gutsdocs{$docref->[4]}{$func} = + $docs{guts}{$docref->[4]}{$func} = [$docref->[0], $docref->[1], $retval, $docref->[3], @args]; } } @@ -212,7 +211,7 @@ for (sort keys %docfuncs) { warn "Unable to place $_!\n"; } -output('perlapi', <<'_EOB_', \%apidocs, <<'_EOE_'); +output('perlapi', <<'_EOB_', $docs{api}, <<'_EOE_'); =head1 NAME perlapi - autogenerated documentation for the perl public API @@ -278,7 +277,7 @@ perlguts(1), perlxs(1), perlxstut(1), perlintern(1) _EOE_ -output('perlintern', <<'END', \%gutsdocs, <<'END'); +output('perlintern', <<'END', $docs{guts}, <<'END'); =head1 NAME perlintern - autogenerated documentation of purely B<internal> |