Lines Matching refs:what
103 $data{$nametag}->{what} = "File $name";
113 my $what;
154 $what .= "\xac" . $content;
156 if ($what) {
157 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
159 foreach my $w(split /\xac/, $what) {
160 $symbols{$w}->{xref} = $what;
164 $what = $content;
171 push @{$data{$nametag}->{symbols}}, $content if ($data{$nametag}->{what});
179 @{$data{$what}->{label_list}} = @labels if ($data{$nametag}->{what});
184 $data{$what}->{type} = $type;
185 if (!defined($data{$what}->{file})) {
186 $data{$what}->{file} = $name;
187 $data{$what}->{filepath} = $file;
189 $data{$what}->{description} .= "\n\n" if (defined($data{$what}->{description}));
190 if ($name ne $data{$what}->{file}) {
191 $data{$what}->{file} .= " " . $name;
192 $data{$what}->{filepath} .= " " . $file;
195 print STDERR "\twhat: $what\n" if ($debug & $dbg_what_parsing);
196 $data{$what}->{line_no} = $ln;
198 $data{$what}->{line_no} = $ln if (!defined($data{$what}->{line_no}));
201 if (!$what) {
213 $data{$what}->{$tag} .= $content;
219 $data{$what}->{$tag} = $content;
226 if (!$tag && $data{$nametag}->{what}) {
235 $data{$what}->{$tag} .= "\n";
248 $data{$what}->{$tag} .= $content;
253 $data{$what}->{$tag} .= "\n$1";
254 $data{$what}->{$tag} =~ s/\n+$//;
262 if ($what) {
263 …parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{descrip…
265 foreach my $w(split /\xac/,$what) {
266 $symbols{$w}->{xref} = $what;
275 foreach my $what (keys %data) {
276 next if ($data{$what}->{file} eq "File");
278 foreach my $p (@{$data{$what}->{label_list}}) {
295 $data{$what}->{label} = $label;
319 foreach my $what (sort {
323 my $type = $data{$what}->{type};
325 my @file = split / /, $data{$what}->{file};
326 my @filepath = split / /, $data{$what}->{filepath};
331 $data{$what}->{line_no};
334 my $w = $what;
337 my $cur_part = $what;
338 if ($what =~ '/') {
339 if ($what =~ m#^(\/?(?:[\w\-]+\/?){1,2})#) {
352 printf ".. _%s:\n\n", $data{$what}->{label};
394 $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
480 print "DESCRIPTION MISSING for $what\n\n" if (!$data{$what}->{is_file});
483 if ($data{$what}->{symbols}) {
486 foreach my $content(@{$data{$what}->{symbols}}) {
496 if (defined($data{$what}->{users})) {
497 my $users = $data{$what}->{users};
510 foreach my $what (sort keys %data) {
511 next if (!($what =~ m/($arg)/));
513 my $type = $data{$what}->{type};
516 my $file = $data{$what}->{filepath};
518 $what =~ s/\xac/, /g;
519 my $bar = $what;
522 print "\n$what\n$bar\n\n";
524 my $kernelversion = $data{$what}->{kernelversion} if (defined($data{$what}->{kernelversion}));
525 my $contact = $data{$what}->{contact} if (defined($data{$what}->{contact}));
526 my $users = $data{$what}->{users} if (defined($data{$what}->{users}));
527 my $date = $data{$what}->{date} if (defined($data{$what}->{date}));
528 my $desc = $data{$what}->{description} if (defined($data{$what}->{description}));
681 my $what = shift;
684 my $l = $what;
763 my $what = $leaf{$leave}->{what};
764 $what =~ s/\xac/\n\t/g;
766 print STDERR "\r more likely regexes:\n\t$what\n";
768 print STDERR "\r tested regexes:\n\t$what\n";
836 $leaf{"others"}->{what} = "";
840 foreach my $what (split /\xac/,$w) {
841 next if (!($what =~ m/^$sysfs_prefix/));
846 $what =~ s/\./\xf6/g;
849 $what =~ s/\[0\-9\]\+/\xff/g;
852 $what =~ s/\[0\-\d+\]/\xff/g;
853 $what =~ s/\[(\d+)\]/\xf4$1\xf5/g;
856 $what =~ s/\[(\d)\-(\d)\]/\xf4$1-$2\xf5/g;
859 $what =~ s/[\{\<\[]([\w_]+)(?:[,|]+([\w_]+)){1,}[\}\>\]]/($1|$2)/g;
862 $what =~ s,\*,.*,g;
863 $what =~ s,/\xf6..,/.*,g;
864 $what =~ s/\<[^\>]+\>/.*/g;
865 $what =~ s/\{[^\}]+\}/.*/g;
866 $what =~ s/\[[^\]]+\]/.*/g;
868 $what =~ s/[XYZ]/.*/g;
871 $what =~ s/\xf4/[/g;
872 $what =~ s/\xf5/]/g;
875 $what =~ s/\s+/ /g;
878 $what =~ s/sqrt\(x^2\+y^2\+z^2\)/sqrt\(x^2\+y^2\+z^2\)/;
883 $what =~ s,\s*\=.*$,,;
886 $what =~ s/$escape_symbols/\\$1/g;
887 $what =~ s/\\\\/\\/g;
888 $what =~ s/\\([\[\]\(\)\|])/$1/g;
889 $what =~ s/(\d+)\\(-\d+)/$1$2/g;
891 $what =~ s/\xff/\\d+/g;
894 $what =~ s/sqrt(.*)/sqrt\(.*\)/;
897 $what =~ s#(?:\.\*){2,}##g;
901 $what =~ s/\xf6/\./g;
903 my $leave = get_leave($what);
908 next if ($leaf{$l}->{what} =~ m/\b$what\b/);
909 $leaf{$l}->{what} .= "\xac" . $what;
912 $leaf{$l}->{what} = $what;
917 print STDERR "What: $what\n" if ($what =~ m#$search_string#);
925 foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
969 foreach my $what(sort keys %symbols) {
970 my @files = @{$symbols{$what}->{file}};
974 printf STDERR "Warning: $what is defined %d times: @files\n",