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) {
752     # The dohighlight kludge requires the text be called $contents
753     my $contents = shift;
756     return $contents;
2044         $contents = "";
2082         $contents = "";
2128         dump_section($file, $section, $contents);
2131         $contents = "";
2151         if (($contents ne "") && ($contents ne "\n")) {
2153                 emit_warning("${file}:$.", "contents before sections\n");
2155             dump_section($file, $section, $contents);
2161         $contents = $newcontents;
2163         while (substr($contents, 0, 1) eq " ") {
2164             $contents = substr($contents, 1);
2166         if ($contents ne "") {
2167             $contents .= "\n";
2172         if (($contents ne "") && ($contents ne "\n")) {
2173             dump_section($file, $section, $contents);
2175             $contents = "";
2189                 dump_section($file, $section, $contents);
2191                 $contents = "";
2200                 $contents .= "\n";
2219             $contents .= $cont . "\n";
2236         $contents = $2;
2237         if ($contents ne "") {
2238             $contents .= "\n";
2239             dump_section($file, $section, $contents);
2241             $contents = "";
2260         dump_doc_section($file, $section, $contents);
2262         $contents = "";
2273             $contents .= $blankline;
2275             $contents .= $1 . "\n";
2289         $contents = $2;
2291         if ($contents ne "") {
2292             while (substr($contents, 0, 1) eq " ") {
2293                 $contents = substr($contents, 1);
2295             $contents .= "\n";
2300         if (($contents ne "") && ($contents ne "\n")) {
2301             dump_section($file, $section, $contents);
2303             $contents = "";
2310             $contents .= $1 . "\n";
2312             if ($contents =~ /^\s*$/) {
2313                 $contents = "";
2388     $dohighlight .=  "\$contents =~ s:$pattern:$result:gs;\n";