Lines Matching full:contents

410 my $contents = "";
555 # dumps section contents to arrays/hashes intended for that purpose.
560     my $contents = join "\n", @_;
564 	$parameterdescs{$name} = $contents;
570 	$parameterdescs{$name} = $contents;
581 	    $sections{$name} .= $contents;
583 	    $sections{$name} = $contents;
597     my $contents = join "\n", @_;
609 	dump_section($file, $name, $contents);
629     my $contents = join "\n",@_;
633 #   if (!defined $contents) {
638 #   print STDERR "contents b4:$contents\n";
641 #   print STDERR "contents af:$contents\n";
643     foreach $line (split "\n", $contents) {
848     # The dohighlight kludge requires the text be called $contents
849     my $contents = shift;
852     return $contents;
2049 	$contents = "";
2067 	$contents = "";
2131 	dump_section($file, $section, $contents);
2134 	$contents = "";
2153 	if (($contents ne "") && ($contents ne "\n")) {
2155 		print STDERR "${file}:$.: warning: contents before sections\n";
2158 	    dump_section($file, $section, $contents);
2164 	$contents = $newcontents;
2166 	while (substr($contents, 0, 1) eq " ") {
2167 	    $contents = substr($contents, 1);
2169 	if ($contents ne "") {
2170 	    $contents .= "\n";
2175 	if (($contents ne "") && ($contents ne "\n")) {
2176 	    dump_section($file, $section, $contents);
2178 	    $contents = "";
2193 		dump_section($file, $section, $contents);
2195 		$contents = "";
2204 		$contents .= "\n";
2223 	    $contents .= $cont . "\n";
2241 	$contents = $2;
2242 	if ($contents ne "") {
2243 	    $contents .= "\n";
2244 	    dump_section($file, $section, $contents);
2246 	    $contents = "";
2265 	dump_doc_section($file, $section, $contents);
2267 	$contents = "";
2278 	    $contents .= $blankline;
2280 	    $contents .= $1 . "\n";
2294 	$contents = $2;
2296 	if ($contents ne "") {
2297 	    while (substr($contents, 0, 1) eq " ") {
2298 		$contents = substr($contents, 1);
2300 	    $contents .= "\n";
2305 	if (($contents ne "") && ($contents ne "\n")) {
2306 	    dump_section($file, $section, $contents);
2308 	    $contents = "";
2315 	    $contents .= $1 . "\n";
2317 	    if ($contents =~ /^\s*$/) {
2318 		$contents = "";
2396     $dohighlight .=  "\$contents =~ s:$pattern:$result:gs;\n";