Lines Matching full:contents

280 my $contents = "";
399 # dumps section contents to arrays/hashes intended for that purpose.
404     my $contents = join "\n", @_;
408         $parameterdescs{$name} = $contents;
414         $parameterdescs{$name} = $contents;
424             $sections{$name} .= $contents;
426             $sections{$name} = $contents;
440     my $contents = join "\n", @_;
452         dump_section($file, $name, $contents);
472     my $contents = join "\n",@_;
476 #   if (!defined $contents) {
481 #   print STDERR "contents b4:$contents\n";
484 #   print STDERR "contents af:$contents\n";
486     foreach $line (split "\n", $contents) {
696     # The dohighlight kludge requires the text be called $contents
697     my $contents = shift;
700     return $contents;
1974         $contents = "";
2012         $contents = "";
2058         dump_section($file, $section, $contents);
2061         $contents = "";
2080         if (($contents ne "") && ($contents ne "\n")) {
2081             dump_section($file, $section, $contents);
2086         $contents = $newcontents;
2088         while (substr($contents, 0, 1) eq " ") {
2089             $contents = substr($contents, 1);
2091         if ($contents ne "") {
2092             $contents .= "\n";
2097         if (($contents ne "") && ($contents ne "\n")) {
2098             dump_section($file, $section, $contents);
2100             $contents = "";
2114                 dump_section($file, $section, $contents);
2116                 $contents = "";
2125                 $contents .= "\n";
2144             $contents .= $cont . "\n";
2161         $contents = $2;
2162         if ($contents ne "") {
2163             $contents .= "\n";
2164             dump_section($file, $section, $contents);
2166             $contents = "";
2185         dump_doc_section($file, $section, $contents);
2187         $contents = "";
2198             $contents .= $blankline;
2200             $contents .= $1 . "\n";
2214         $contents = $2;
2216         if ($contents ne "") {
2217             while (substr($contents, 0, 1) eq " ") {
2218                 $contents = substr($contents, 1);
2220             $contents .= "\n";
2225         if (($contents ne "") && ($contents ne "\n")) {
2226             dump_section($file, $section, $contents);
2228             $contents = "";
2235             $contents .= $1 . "\n";
2237             if ($contents =~ /^\s*$/) {
2238                 $contents = "";
2306     $dohighlight .=  "\$contents =~ s:$pattern:$result:gs;\n";