Lines Matching full:my
17 my $help = 0;
18 my $hint = 0;
19 my $man = 0;
20 my $debug = 0;
21 my $enable_lineno = 0;
22 my $show_warnings = 1;
23 my $prefix="Documentation/ABI";
24 my $sysfs_prefix="/sys";
25 my $search_string;
28 my $dbg_what_parsing = 1;
29 my $dbg_what_open = 2;
30 my $dbg_dump_abi_structs = 4;
31 my $dbg_undefined = 8;
39 my $description_is_rst = 1;
57 my ($cmd, $arg) = @ARGV;
64 my %data;
65 my %symbols;
71 my ($file, $ln, $msg, $data) = @_;
90 my $file = $File::Find::name;
92 my $mode = (stat($file))[2];
98 my $name = $file;
101 my $fn = $file;
104 my $nametag = "File $fn";
112 my $type = $file;
115 my $what;
116 my $new_what;
117 my $tag = "";
118 my $ln;
119 my $xrefs;
120 my $space;
121 my @labels;
122 my $label = "";
129 my $new_tag = lc($1);
130 my $sep = $2;
131 my $content = $3;
161 foreach my $w(split /\xac/, $what) {
234 my $content = $_;
267 foreach my $w(split /\xac/,$what) {
275 my %labels;
277 foreach my $what (keys %data) {
280 foreach my $p (@{$data{$what}->{label_list}}) {
281 my ($content, $label) = @{$p};
292 my @chars = ("A".."Z", "a".."z");
311 my $start = qr {(^|\s|\() }x;
312 my $bondary = qr { ([,.:;\)\s]|\z) }x;
313 my $xref_match = qr { $start(\/(sys|config|proc|dev|kvd)\/[^,.:;\)\s]+)$bondary }x;
314 my $symbols = qr { ([\x01-\x08\x0e-\x1f\x21-\x2f\x3a-\x40\x7b-\xff]) }x;
319 my $part = "";
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};
336 my $w = $what;
339 my $cur_part = $what;
349 my $bar = $part;
356 my @names = split /\xac/,$w;
357 my $len = 0;
359 foreach my $name (@names) {
366 foreach my $name (@names) {
374 for (my $i = 0; $i < scalar(@filepath); $i++) {
375 my $path = $filepath[$i];
376 my $f = $file[$i];
380 my $fileref = "abi_file_".$path;
390 my $bar = $w;
395 my $desc = "";
409 my $new_desc = "";
410 my $init_indent = -1;
411 my $literal_indent = -1;
413 open(my $fh, "+<", \$desc);
414 while (my $d = <$fh>) {
415 my $indent = $d =~ m/^(\s+)/;
416 my $spaces = length($indent);
433 my @matches = $d =~ m,Documentation/ABI/([\w\/\-]+),g;
434 foreach my $f (@matches) {
435 my $xref = $f;
436 my $path = $f;
446 foreach my $s (@matches) {
449 my $xref = $s;
488 foreach my $content(@{$data{$what}->{symbols}}) {
489 my $label = $data{$symbols{$content}->{xref}}->{label};
499 my $users = $data{$what}->{users};
512 foreach my $what (sort keys %data) {
515 my $type = $data{$what}->{type};
518 my $file = $data{$what}->{filepath};
521 my $bar = $what;
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}));
563 my %leaf;
564 my %aliases;
565 my @files;
566 my %root;
569 my $file = shift;
570 my $type = shift;
572 my $dir = $file;
576 my $name;
577 my $file_ref = \%root;
578 foreach my $edge(split "/", $dir) {
595 my $file = shift;
596 my $link = shift;
599 my $file_ref = \%root;
600 foreach my $edge(split "/", $file) {
606 my @queue;
607 my %seen;
608 my $st;
614 my $v = shift @queue;
615 my @child = keys(%{$v});
617 foreach my $c(@child) {
628 my $name = @{$$v{$c}{"__name"}}[0];
639 my $escape_symbols = qr { ([\x01-\x08\x0e-\x1f\x21-\x29\x2b-\x2d\x3a-\x40\x7b-\xfe]) }x;
641 my $file = $File::Find::name;
643 my $mode = (lstat($file))[2];
644 my $abs_file = abs_path($file);
646 my @tmp;
650 foreach my $f(@tmp) {
683 my $what = shift;
684 my $leave;
686 my $l = $what;
687 my $stop = 1;
708 my @not_found;
712 my $file_ref = shift;
713 my $names_ref = shift;
714 my @names = @{$names_ref};
715 my $file = $names[0];
717 my $found_string;
719 my $leave = get_leave($file);
723 my @expr = @{$leaf{$leave}->{expr}};
726 my $path = $file;
734 for (my $i = 0; $i < @names; $i++) {
742 foreach my $re (@expr) {
751 my @expr = @{$leaf{"others"}->{expr}};
752 for (my $i = 0; $i < @names; $i++) {
753 foreach my $re (@expr) {
765 my $what = $leaf{$leave}->{what};
776 my $num_files = scalar @files;
777 my $next_i = 0;
778 my $start_time = times;
782 my $last_time = $start_time;
790 my $is_console;
793 for (my $i = 0; $i < $num_files; $i++) {
794 my $file_ref = $files[$i];
795 my @names = @{$$file_ref{"__name"}};
799 my $cur_time = times;
802 my $percent = $i * 100 / $num_files;
804 my $tm = $cur_time - $start_time;
805 my $time = sprintf "%d:%02d", int($tm), 60 * ($tm - int($tm));
817 my $cur_time = times;
818 my $tm = $cur_time - $start_time;
819 my $time = sprintf "%d:%02d", int($tm), 60 * ($tm - int($tm));
824 foreach my $file (@not_found) {
841 foreach my $w (sort keys %data) {
842 foreach my $what (split /\xac/,$w) {
905 my $leave = get_leave($what);
907 my $added = 0;
908 foreach my $l (split /\|/, $leave) {
925 foreach my $l (sort keys %leaf) {
926 my @expr;
927 foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
934 foreach my $link (sort keys %aliases) {
935 my $abs_file = $aliases{$link};
971 foreach my $what(sort keys %symbols) {
972 my @files = @{$symbols{$what}->{file}};