Lines Matching full:contents

383 my $contents = "";
465 # dumps section contents to arrays/hashes intended for that purpose.
470     my $contents = join "\n", @_;
474 	$parameterdescs{$name} = $contents;
480 	$parameterdescs{$name} = $contents;
491 	    $sections{$name} .= $contents;
493 	    $sections{$name} = $contents;
507     my $contents = join "\n", @_;
519 	dump_section($file, $name, $contents);
539     my $contents = join "\n",@_;
543 #   if (!defined $contents) {
548 #   print STDERR "contents b4:$contents\n";
551 #   print STDERR "contents af:$contents\n";
553     foreach $line (split "\n", $contents) {
756     # The dohighlight kludge requires the text be called $contents
757     my $contents = shift;
760     return $contents;
1868 	$contents = "";
1886 	$contents = "";
1953 	if (($contents ne "") && ($contents ne "\n")) {
1955 		print STDERR "${file}:$.: warning: contents before sections\n";
1958 	    dump_section($file, $section, $contents);
1964 	$contents = $newcontents;
1966 	while (substr($contents, 0, 1) eq " ") {
1967 	    $contents = substr($contents, 1);
1969 	if ($contents ne "") {
1970 	    $contents .= "\n";
1975 	if (($contents ne "") && ($contents ne "\n")) {
1976 	    dump_section($file, $section, $contents);
1978 	    $contents = "";
1994 		dump_section($file, $section, $contents);
1996 		$contents = "";
1999 		$contents .= "\n";
2019 	    $contents .= $cont . "\n";
2037 	$contents = $2;
2038 	if ($contents ne "") {
2039 	    $contents .= "\n";
2040 	    dump_section($file, $section, $contents);
2042 	    $contents = "";
2061 	dump_doc_section($file, $section, $contents);
2063 	$contents = "";
2074 	    $contents .= $blankline;
2076 	    $contents .= $1 . "\n";
2090 	$contents = $2;
2092 	if ($contents ne "") {
2093 	    while (substr($contents, 0, 1) eq " ") {
2094 		$contents = substr($contents, 1);
2096 	    $contents .= "\n";
2101 	if (($contents ne "") && ($contents ne "\n")) {
2102 	    dump_section($file, $section, $contents);
2104 	    $contents = "";
2111 	    $contents .= $1 . "\n";
2113 	    if ($contents =~ /^\s*$/) {
2114 		$contents = "";
2184     $dohighlight .=  "\$contents =~ s:$pattern:$result:gs;\n";