Lines Matching full:what

81 	$data{$nametag}->{what} = "File $name";
91 	my $what;
109 			if (!($new_tag =~ m/(what|where|date|kernelversion|contact|description|users)/)) {
121 				parse_error($file, $ln, "tag 'Where' is invalid. Should be 'What:' instead", "");
122 				$new_tag = "what";
125 			if ($new_tag =~ m/what/) {
131 				if ($tag =~ m/what/) {
132 					$what .= ", " . $content;
134 					if ($what) {
135 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
137 						foreach my $w(split /, /, $what) {
138 							$symbols{$w}->{xref} = $what;
142 					$what = $content;
149 				push @{$data{$nametag}->{symbols}}, $content if ($data{$nametag}->{what});
157 					@{$data{$what}->{label_list}} = @labels if ($data{$nametag}->{what});
162 					$data{$what}->{type} = $type;
163 					if (!defined($data{$what}->{file})) {
164 						$data{$what}->{file} = $name;
165 						$data{$what}->{filepath} = $file;
167 						if ($name ne $data{$what}->{file}) {
168 							$data{$what}->{file} .= " " . $name;
169 							$data{$what}->{filepath} .= " " . $file;
172 					print STDERR "\twhat: $what\n" if ($debug > 1);
173 					$data{$what}->{line_no} = $ln;
175 					$data{$what}->{line_no} = $ln if (!defined($data{$what}->{line_no}));
178 				if (!$what) {
179 					parse_error($file, $ln, "'What:' should come first:", $_);
190 						$data{$what}->{$tag} .= $content;
196 					$data{$what}->{$tag} = $content;
203 		if (!$tag && $data{$nametag}->{what}) {
212 				$data{$what}->{$tag} .= "\n";
225 			$data{$what}->{$tag} .= $content;
230 			$data{$what}->{$tag} .= "\n$1";
231 			$data{$what}->{$tag} =~ s/\n+$//;
239 	if ($what) {
240 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
242 		foreach my $w(split /, /,$what) {
243 			$symbols{$w}->{xref} = $what;
252 	foreach my $what (keys %data) {
253 		next if ($data{$what}->{file} eq "File");
255 		foreach my $p (@{$data{$what}->{label_list}}) {
272 			$data{$what}->{label} = $label;
292 	foreach my $what (sort {
296 		my $type = $data{$what}->{type};
298 		my @file = split / /, $data{$what}->{file};
299 		my @filepath = split / /, $data{$what}->{filepath};
304 			       $data{$what}->{line_no};
307 		my $w = $what;
311 			my $cur_part = $what;
312 			if ($what =~ '/') {
313 				if ($what =~ m#^(\/?(?:[\w\-]+\/?){1,2})#) {
326 			printf ".. _%s:\n\n", $data{$what}->{label};
367 		$desc = $data{$what}->{description} if (defined($data{$what}->{description}));
425 			print "DESCRIPTION MISSING for $what\n\n" if (!$data{$what}->{is_file});
428 		if ($data{$what}->{symbols}) {
431 			foreach my $content(@{$data{$what}->{symbols}}) {
441 		if (defined($data{$what}->{users})) {
442 			my $users = $data{$what}->{users};
455 	foreach my $what (sort keys %data) {
456 		next if (!($what =~ m/($arg)/));
458 		my $type = $data{$what}->{type};
461 		my $file = $data{$what}->{filepath};
463 		my $bar = $what;
466 		print "\n$what\n$bar\n\n";
468 		my $kernelversion = $data{$what}->{kernelversion} if (defined($data{$what}->{kernelversion}));
469 		my $contact = $data{$what}->{contact} if (defined($data{$what}->{contact}));
470 		my $users = $data{$what}->{users} if (defined($data{$what}->{users}));
471 		my $date = $data{$what}->{date} if (defined($data{$what}->{date}));
472 		my $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
515 	foreach my $what(sort keys %symbols) {
516 		my @files = @{$symbols{$what}->{file}};
520 		printf STDERR "Warning: $what is defined %d times: @files\n",