NAME
Term::GnuplotTerminals - documentation of gnuplot output devices
EOP
for my $file (sort <gnuterm/term/*.trm>) { open F, $file or die "Cannot open '$file': $!"; my $name; while (<F>) { $name = $1, last if /^\s*START_HELP\s*\(\s*(.*?)\s*\)/; } my $got = ""; while (<F>) { last if /^\s*(END_HELP\s*\(|\#\s*endif)/; # Malformed: mac $got .= $_; # print "$file: $_" } close F or die "Cannot close '$file': $!";
$got or warn("No docs found in '$file'\n");
$got or next;
$got .= ",";
my $help = "";
$help .= "$1\n"
while $got =~ s!^\s*(?:/\*.*?\*/\s*)*\"(((?>[^\"\\]+)|\\[\\\"])*)\"\s*,\s*!!s;
$got and warn("Malformed docs in '$file':\n$got\n");
$help =~ s/\\([\\\"])/$1/g;
$help =~ s/^\t/ /mg; # Do not like leading TABs
# First line = level name, then lines starting with '?', then text
my @help = split /^(?>(\d+)(?>\s+)(.+))\n(?:\?(?>.*)\n)+/m, $help;
$help[0] eq '' or warn "Malformed leader of help: '$help[0]'\n";
shift @help;
while (@help) {
my ($level, $name, $text) = (shift @help, shift @help, shift @help);
# Process tables:
$text =~ s/
^\@start\s+table\b(?>.*)\n # First line
((?>((\ (?>.*)|)\n)*)) # Interactive form
[\s\S]*? # Skip to the ...
^\@end\s+table\b.* # Last line
/add_indent($1)/mgxe;
# Remove extra indentations
$text =~ s/^ //mg;
# Add an extra newline on boundary of indented/non-indented text
$text =~ s/^(\S(?>.*)\n) /$1\n /mg;
$text =~ s/^( (?>.+)\n)(\S)/$1\n$2/mg;
# Actual pages have a lot of `foo: <bar>`, we do not translate them correct
# Need to handle `foo` `bar\nbaz` `bar` correctly, thus anchor at paragraph
1 while $text =~ s/
^(?<![^\n]\n)(?=\S) # Start of text paragraph
((?:.|\n(?!\n))*?) # Some part of text paragraph
`([\s\S]*?)` # Possibly multiline
/${1}C<$2>/mgx;
print <<EOP;
=head$level $name$text
EOP } }
print <<EOP; =head1 AUTHOR
Autogenerated from *.trm files in gnuplot terminals subdirectory.
SEE ALSO
EOP