Lines Matching refs:contents

277 my $contents = "";
342     my $contents = join "\n", @_;
347 	$constants{$name} = $contents;
351 	$parameterdescs{$name} = $contents;
354 	$sections{$name} = $contents;
371     my $contents = join "\n",@_;
382     foreach $line (split "\n", $contents) {
1544 		$contents = "";
1589 		if ($contents ne "") {
1590 		    $contents =~ s/\&/\\\\\\amp;/g;
1591 		    $contents =~ s/\</\\\\\\lt;/g;
1592 		    $contents =~ s/\>/\\\\\\gt;/g;
1593 		    dump_section($section, $contents);
1597 		$contents = $newcontents;
1598 		if ($contents ne "") {
1599 		    $contents .= "\n";
1604 		if ($contents ne "") {
1605 		    $contents =~ s/\&/\\\\\\amp;/g;
1606 		    $contents =~ s/\</\\\\\\lt;/g;
1607 		    $contents =~ s/\>/\\\\\\gt;/g;
1608 		    dump_section($section, $contents);
1610 		    $contents = "";
1622 		    $contents =~ s/\&/\\\\\\amp;/g;
1623 		    $contents =~ s/\</\\\\\\lt;/g;
1624 		    $contents =~ s/\>/\\\\\\gt;/g;
1625 		    dump_section($section, $contents);
1627 		    $contents = "";
1629 		    $contents .= $1."\n";
1645 			dump_section($section, $contents);
1648 			$contents = "";
1665 			dump_section($section, $contents);
1668 			$contents = "";
1683 				$contents .= $blankline;
1687 				$contents .= $1 . "\n";