Lines Matching refs:what
104 $data{$nametag}->{what} = "File $name";
114 my $what;
155 $what .= "\xac" . $content;
157 if ($what) {
158 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
160 foreach my $w(split /\xac/, $what) {
161 $symbols{$w}->{xref} = $what;
165 $what = $content;
172 push @{$data{$nametag}->{symbols}}, $content if ($data{$nametag}->{what});
180 @{$data{$what}->{label_list}} = @labels if ($data{$nametag}->{what});
185 $data{$what}->{type} = $type;
186 if (!defined($data{$what}->{file})) {
187 $data{$what}->{file} = $name;
188 $data{$what}->{filepath} = $file;
190 $data{$what}->{description} .= "\n\n" if (defined($data{$what}->{description}));
191 if ($name ne $data{$what}->{file}) {
192 $data{$what}->{file} .= " " . $name;
193 $data{$what}->{filepath} .= " " . $file;
196 print STDERR "\twhat: $what\n" if ($debug & $dbg_what_parsing);
197 $data{$what}->{line_no} = $ln;
199 $data{$what}->{line_no} = $ln if (!defined($data{$what}->{line_no}));
202 if (!$what) {
214 $data{$what}->{$tag} .= $content;
220 $data{$what}->{$tag} = $content;
227 if (!$tag && $data{$nametag}->{what}) {
236 $data{$what}->{$tag} .= "\n";
249 $data{$what}->{$tag} .= $content;
254 $data{$what}->{$tag} .= "\n$1";
255 $data{$what}->{$tag} =~ s/\n+$//;
263 if ($what) {
264 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
266 foreach my $w(split /\xac/,$what) {
267 $symbols{$w}->{xref} = $what;
276 foreach my $what (keys %data) {
277 next if ($data{$what}->{file} eq "File");
279 foreach my $p (@{$data{$what}->{label_list}}) {
296 $data{$what}->{label} = $label;
320 foreach my $what (sort {
324 my $type = $data{$what}->{type};
326 my @file = split / /, $data{$what}->{file};
327 my @filepath = split / /, $data{$what}->{filepath};
332 $data{$what}->{line_no};
335 my $w = $what;
338 my $cur_part = $what;
339 if ($what =~ '/') {
340 if ($what =~ m#^(\/?(?:[\w\-]+\/?){1,2})#) {
353 printf ".. _%s:\n\n", $data{$what}->{label};
395 $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
481 print "DESCRIPTION MISSING for $what\n\n" if (!$data{$what}->{is_file});
484 if ($data{$what}->{symbols}) {
487 foreach my $content(@{$data{$what}->{symbols}}) {
497 if (defined($data{$what}->{users})) {
498 my $users = $data{$what}->{users};
511 foreach my $what (sort keys %data) {
512 next if (!($what =~ m/($arg)/));
514 my $type = $data{$what}->{type};
517 my $file = $data{$what}->{filepath};
519 $what =~ s/\xac/, /g;
520 my $bar = $what;
523 print "\n$what\n$bar\n\n";
525 my $kernelversion = $data{$what}->{kernelversion} if (defined($data{$what}->{kernelversion}));
526 my $contact = $data{$what}->{contact} if (defined($data{$what}->{contact}));
527 my $users = $data{$what}->{users} if (defined($data{$what}->{users}));
528 my $date = $data{$what}->{date} if (defined($data{$what}->{date}));
529 my $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
682 my $what = shift;
685 my $l = $what;
764 my $what = $leaf{$leave}->{what};
765 $what =~ s/\xac/\n\t/g;
767 print STDERR "\r more likely regexes:\n\t$what\n";
769 print STDERR "\r tested regexes:\n\t$what\n";
837 $leaf{"others"}->{what} = "";
841 foreach my $what (split /\xac/,$w) {
842 next if (!($what =~ m/^$sysfs_prefix/));
847 $what =~ s/\./\xf6/g;
850 $what =~ s/\[0\-9\]\+/\xff/g;
853 $what =~ s/\[0\-\d+\]/\xff/g;
854 $what =~ s/\[(\d+)\]/\xf4$1\xf5/g;
857 $what =~ s/\[(\d)\-(\d)\]/\xf4$1-$2\xf5/g;
860 $what =~ s/[\{\<\[]([\w_]+)(?:[,|]+([\w_]+)){1,}[\}\>\]]/($1|$2)/g;
863 $what =~ s,\*,.*,g;
864 $what =~ s,/\xf6..,/.*,g;
865 $what =~ s/\<[^\>]+\>/.*/g;
866 $what =~ s/\{[^\}]+\}/.*/g;
867 $what =~ s/\[[^\]]+\]/.*/g;
869 $what =~ s/[XYZ]/.*/g;
872 $what =~ s/\xf4/[/g;
873 $what =~ s/\xf5/]/g;
876 $what =~ s/\s+/ /g;
879 $what =~ s/sqrt\(x^2\+y^2\+z^2\)/sqrt\(x^2\+y^2\+z^2\)/;
884 $what =~ s,\s*\=.*$,,;
887 $what =~ s/$escape_symbols/\\$1/g;
888 $what =~ s/\\\\/\\/g;
889 $what =~ s/\\([\[\]\(\)\|])/$1/g;
890 $what =~ s/(\d+)\\(-\d+)/$1$2/g;
892 $what =~ s/\xff/\\d+/g;
895 $what =~ s/sqrt(.*)/sqrt\(.*\)/;
898 $what =~ s#(?:\.\*){2,}##g;
902 $what =~ s/\xf6/\./g;
904 my $leave = get_leave($what);
909 next if ($leaf{$l}->{what} =~ m/\b$what\b/);
910 $leaf{$l}->{what} .= "\xac" . $what;
913 $leaf{$l}->{what} = $what;
918 print STDERR "What: $what\n" if ($what =~ m#$search_string#);
926 foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
970 foreach my $what(sort keys %symbols) {
971 my @files = @{$symbols{$what}->{file}};
975 printf STDERR "Warning: $what is defined %d times: @files\n",