Lines Matching full:contents

283 my $contents = "";
460 # dumps section contents to arrays/hashes intended for that purpose.
465     my $contents = join "\n", @_;
469         $parameterdescs{$name} = $contents;
475         $parameterdescs{$name} = $contents;
485             $sections{$name} .= $contents;
487             $sections{$name} = $contents;
501     my $contents = join "\n", @_;
513         dump_section($file, $name, $contents);
533     my $contents = join "\n",@_;
537 #   if (!defined $contents) {
542 #   print STDERR "contents b4:$contents\n";
545 #   print STDERR "contents af:$contents\n";
547     foreach $line (split "\n", $contents) {
757     # The dohighlight kludge requires the text be called $contents
758     my $contents = shift;
761     return $contents;
2061         $contents = "";
2099         $contents = "";
2145         dump_section($file, $section, $contents);
2148         $contents = "";
2168         if (($contents ne "") && ($contents ne "\n")) {
2170                 emit_warning("${file}:$.", "contents before sections\n");
2172             dump_section($file, $section, $contents);
2178         $contents = $newcontents;
2180         while (substr($contents, 0, 1) eq " ") {
2181             $contents = substr($contents, 1);
2183         if ($contents ne "") {
2184             $contents .= "\n";
2189         if (($contents ne "") && ($contents ne "\n")) {
2190             dump_section($file, $section, $contents);
2192             $contents = "";
2206                 dump_section($file, $section, $contents);
2208                 $contents = "";
2217                 $contents .= "\n";
2236             $contents .= $cont . "\n";
2253         $contents = $2;
2254         if ($contents ne "") {
2255             $contents .= "\n";
2256             dump_section($file, $section, $contents);
2258             $contents = "";
2277         dump_doc_section($file, $section, $contents);
2279         $contents = "";
2290             $contents .= $blankline;
2292             $contents .= $1 . "\n";
2306         $contents = $2;
2308         if ($contents ne "") {
2309             while (substr($contents, 0, 1) eq " ") {
2310                 $contents = substr($contents, 1);
2312             $contents .= "\n";
2317         if (($contents ne "") && ($contents ne "\n")) {
2318             dump_section($file, $section, $contents);
2320             $contents = "";
2327             $contents .= $1 . "\n";
2329             if ($contents =~ /^\s*$/) {
2330                 $contents = "";
2403     $dohighlight .=  "\$contents =~ s:$pattern:$result:gs;\n";