Lines Matching refs:what
105 $data{$nametag}->{what} = "File $name";
115 my $what;
156 $what .= "\xac" . $content;
158 if ($what) {
159 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
161 foreach my $w(split /\xac/, $what) {
162 $symbols{$w}->{xref} = $what;
166 $what = $content;
173 push @{$data{$nametag}->{symbols}}, $content if ($data{$nametag}->{what});
181 @{$data{$what}->{label_list}} = @labels if ($data{$nametag}->{what});
186 $data{$what}->{type} = $type;
187 if (!defined($data{$what}->{file})) {
188 $data{$what}->{file} = $name;
189 $data{$what}->{filepath} = $file;
191 $data{$what}->{description} .= "\n\n" if (defined($data{$what}->{description}));
192 if ($name ne $data{$what}->{file}) {
193 $data{$what}->{file} .= " " . $name;
194 $data{$what}->{filepath} .= " " . $file;
197 print STDERR "\twhat: $what\n" if ($debug & $dbg_what_parsing);
198 $data{$what}->{line_no} = $ln;
200 $data{$what}->{line_no} = $ln if (!defined($data{$what}->{line_no}));
203 if (!$what) {
215 $data{$what}->{$tag} .= $content;
221 $data{$what}->{$tag} = $content;
228 if (!$tag && $data{$nametag}->{what}) {
237 $data{$what}->{$tag} .= "\n";
250 $data{$what}->{$tag} .= $content;
255 $data{$what}->{$tag} .= "\n$1";
256 $data{$what}->{$tag} =~ s/\n+$//;
264 if ($what) {
265 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
267 foreach my $w(split /\xac/,$what) {
268 $symbols{$w}->{xref} = $what;
277 foreach my $what (keys %data) {
278 next if ($data{$what}->{file} eq "File");
280 foreach my $p (@{$data{$what}->{label_list}}) {
297 $data{$what}->{label} = $label;
321 foreach my $what (sort {
325 my $type = $data{$what}->{type};
327 my @file = split / /, $data{$what}->{file};
328 my @filepath = split / /, $data{$what}->{filepath};
333 $data{$what}->{line_no};
336 my $w = $what;
339 my $cur_part = $what;
340 if ($what =~ '/') {
341 if ($what =~ m#^(\/?(?:[\w\-]+\/?){1,2})#) {
354 printf ".. _%s:\n\n", $data{$what}->{label};
396 $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
482 print "DESCRIPTION MISSING for $what\n\n" if (!$data{$what}->{is_file});
485 if ($data{$what}->{symbols}) {
488 foreach my $content(@{$data{$what}->{symbols}}) {
498 if (defined($data{$what}->{users})) {
499 my $users = $data{$what}->{users};
512 foreach my $what (sort keys %data) {
513 next if (!($what =~ m/($arg)/));
515 my $type = $data{$what}->{type};
518 my $file = $data{$what}->{filepath};
520 $what =~ s/\xac/, /g;
521 my $bar = $what;
524 print "\n$what\n$bar\n\n";
526 my $kernelversion = $data{$what}->{kernelversion} if (defined($data{$what}->{kernelversion}));
527 my $contact = $data{$what}->{contact} if (defined($data{$what}->{contact}));
528 my $users = $data{$what}->{users} if (defined($data{$what}->{users}));
529 my $date = $data{$what}->{date} if (defined($data{$what}->{date}));
530 my $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
683 my $what = shift;
686 my $l = $what;
765 my $what = $leaf{$leave}->{what};
766 $what =~ s/\xac/\n\t/g;
768 print STDERR "\r more likely regexes:\n\t$what\n";
770 print STDERR "\r tested regexes:\n\t$what\n";
838 $leaf{"others"}->{what} = "";
842 foreach my $what (split /\xac/,$w) {
843 next if (!($what =~ m/^$sysfs_prefix/));
848 $what =~ s/\./\xf6/g;
851 $what =~ s/\[0\-9\]\+/\xff/g;
854 $what =~ s/\[0\-\d+\]/\xff/g;
855 $what =~ s/\[(\d+)\]/\xf4$1\xf5/g;
858 $what =~ s/\[(\d)\-(\d)\]/\xf4$1-$2\xf5/g;
861 $what =~ s/[\{\<\[]([\w_]+)(?:[,|]+([\w_]+)){1,}[\}\>\]]/($1|$2)/g;
864 $what =~ s,\*,.*,g;
865 $what =~ s,/\xf6..,/.*,g;
866 $what =~ s/\<[^\>]+\>/.*/g;
867 $what =~ s/\{[^\}]+\}/.*/g;
868 $what =~ s/\[[^\]]+\]/.*/g;
870 $what =~ s/[XYZ]/.*/g;
873 $what =~ s/\xf4/[/g;
874 $what =~ s/\xf5/]/g;
877 $what =~ s/\s+/ /g;
880 $what =~ s/sqrt\(x^2\+y^2\+z^2\)/sqrt\(x^2\+y^2\+z^2\)/;
885 $what =~ s,\s*\=.*$,,;
888 $what =~ s/$escape_symbols/\\$1/g;
889 $what =~ s/\\\\/\\/g;
890 $what =~ s/\\([\[\]\(\)\|])/$1/g;
891 $what =~ s/(\d+)\\(-\d+)/$1$2/g;
893 $what =~ s/\xff/\\d+/g;
896 $what =~ s/sqrt(.*)/sqrt\(.*\)/;
899 $what =~ s#(?:\.\*){2,}##g;
903 $what =~ s/\xf6/\./g;
905 my $leave = get_leave($what);
910 next if ($leaf{$l}->{what} =~ m/\b$what\b/);
911 $leaf{$l}->{what} .= "\xac" . $what;
914 $leaf{$l}->{what} = $what;
919 print STDERR "What: $what\n" if ($what =~ m#$search_string#);
927 foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
971 foreach my $what(sort keys %symbols) {
972 my @files = @{$symbols{$what}->{file}};
976 printf STDERR "Warning: $what is defined %d times: @files\n",