Lines Matching refs:contents
280 my $contents = "";
347 $dohighlight .= "\$contents =~ s:$pattern:$highlights{$pattern}:gs;\n";
351 # dumps section contents to arrays/hashes intended for that purpose.
355 my $contents = join "\n", @_;
359 # print STDERR "constant section '$1' = '$contents'\n";
360 $constants{$name} = $contents;
362 # print STDERR "parameter def '$1' = '$contents'\n";
364 $parameterdescs{$name} = $contents;
366 # print STDERR "other section '$name' = '$contents'\n";
367 $sections{$name} = $contents;
384 my $contents = join "\n",@_;
388 # if (!defined $contents) {
393 # print STDERR "contents b4:$contents\n";
397 $contents =~ s/\\\\//;
399 # print STDERR "contents af:$contents\n";
401 foreach $line (split "\n", $contents) {
1784 $contents = "";
1834 if ($contents ne "") {
1836 print STDERR "Warning(${file}:$.): contents before sections\n";
1839 dump_section($section, xml_escape($contents));
1844 $contents = $newcontents;
1845 if ($contents ne "") {
1846 while ((substr($contents, 0, 1) eq " ") ||
1847 substr($contents, 0, 1) eq "\t") {
1848 $contents = substr($contents, 1);
1850 $contents .= "\n";
1855 if ($contents ne "") {
1856 dump_section($section, xml_escape($contents));
1858 $contents = "";
1870 dump_section($section, xml_escape($contents));
1872 $contents = "";
1874 $contents .= $1."\n";
1890 dump_section($section, $contents);
1893 $contents = "";
1910 dump_section($section, $contents);
1913 $contents = "";
1928 $contents .= $blankline;
1932 $contents .= $1 . "\n";