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];
97 my $name = $file;
100 my $fn = $file;
103 my $nametag = "File $fn";
111 my $type = $file;
114 my $what;
115 my $new_what;
116 my $tag = "";
117 my $ln;
118 my $xrefs;
119 my $space;
120 my @labels;
121 my $label = "";
128 my $new_tag = lc($1);
129 my $sep = $2;
130 my $content = $3;
160 foreach my $w(split /\xac/, $what) {
233 my $content = $_;
266 foreach my $w(split /\xac/,$what) {
274 my %labels;
276 foreach my $what (keys %data) {
279 foreach my $p (@{$data{$what}->{label_list}}) {
280 my ($content, $label) = @{$p};
291 my @chars = ("A".."Z", "a".."z");
310 my $start = qr {(^|\s|\() }x;
311 my $bondary = qr { ([,.:;\)\s]|\z) }x;
312 my $xref_match = qr { $start(\/(sys|config|proc|dev|kvd)\/[^,.:;\)\s]+)$bondary }x;
313 my $symbols = qr { ([\x01-\x08\x0e-\x1f\x21-\x2f\x3a-\x40\x7b-\xff]) }x;
318 my $part = "";
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};
335 my $w = $what;
338 my $cur_part = $what;
348 my $bar = $part;
355 my @names = split /\xac/,$w;
356 my $len = 0;
358 foreach my $name (@names) {
365 foreach my $name (@names) {
373 for (my $i = 0; $i < scalar(@filepath); $i++) {
374 my $path = $filepath[$i];
375 my $f = $file[$i];
379 my $fileref = "abi_file_".$path;
389 my $bar = $w;
394 my $desc = "";
408 my $new_desc = "";
409 my $init_indent = -1;
410 my $literal_indent = -1;
412 open(my $fh, "+<", \$desc);
413 while (my $d = <$fh>) {
414 my $indent = $d =~ m/^(\s+)/;
415 my $spaces = length($indent);
432 my @matches = $d =~ m,Documentation/ABI/([\w\/\-]+),g;
433 foreach my $f (@matches) {
434 my $xref = $f;
435 my $path = $f;
445 foreach my $s (@matches) {
448 my $xref = $s;
487 foreach my $content(@{$data{$what}->{symbols}}) {
488 my $label = $data{$symbols{$content}->{xref}}->{label};
498 my $users = $data{$what}->{users};
511 foreach my $what (sort keys %data) {
514 my $type = $data{$what}->{type};
517 my $file = $data{$what}->{filepath};
520 my $bar = $what;
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}));
562 my %leaf;
563 my %aliases;
564 my @files;
565 my %root;
568 my $file = shift;
569 my $type = shift;
571 my $dir = $file;
575 my $name;
576 my $file_ref = \%root;
577 foreach my $edge(split "/", $dir) {
594 my $file = shift;
595 my $link = shift;
598 my $file_ref = \%root;
599 foreach my $edge(split "/", $file) {
605 my @queue;
606 my %seen;
607 my $st;
613 my $v = shift @queue;
614 my @child = keys(%{$v});
616 foreach my $c(@child) {
627 my $name = @{$$v{$c}{"__name"}}[0];
638 my $escape_symbols = qr { ([\x01-\x08\x0e-\x1f\x21-\x29\x2b-\x2d\x3a-\x40\x7b-\xfe]) }x;
640 my $file = $File::Find::name;
642 my $mode = (lstat($file))[2];
643 my $abs_file = abs_path($file);
645 my @tmp;
649 foreach my $f(@tmp) {
682 my $what = shift;
683 my $leave;
685 my $l = $what;
686 my $stop = 1;
707 my @not_found;
711 my $file_ref = shift;
712 my $names_ref = shift;
713 my @names = @{$names_ref};
714 my $file = $names[0];
716 my $found_string;
718 my $leave = get_leave($file);
722 my @expr = @{$leaf{$leave}->{expr}};
725 my $path = $file;
733 for (my $i = 0; $i < @names; $i++) {
741 foreach my $re (@expr) {
750 my @expr = @{$leaf{"others"}->{expr}};
751 for (my $i = 0; $i < @names; $i++) {
752 foreach my $re (@expr) {
764 my $what = $leaf{$leave}->{what};
775 my $num_files = scalar @files;
776 my $next_i = 0;
777 my $start_time = times;
781 my $last_time = $start_time;
789 my $is_console;
792 for (my $i = 0; $i < $num_files; $i++) {
793 my $file_ref = $files[$i];
794 my @names = @{$$file_ref{"__name"}};
798 my $cur_time = times;
801 my $percent = $i * 100 / $num_files;
803 my $tm = $cur_time - $start_time;
804 my $time = sprintf "%d:%02d", int($tm), 60 * ($tm - int($tm));
816 my $cur_time = times;
817 my $tm = $cur_time - $start_time;
818 my $time = sprintf "%d:%02d", int($tm), 60 * ($tm - int($tm));
823 foreach my $file (@not_found) {
840 foreach my $w (sort keys %data) {
841 foreach my $what (split /\xac/,$w) {
904 my $leave = get_leave($what);
906 my $added = 0;
907 foreach my $l (split /\|/, $leave) {
924 foreach my $l (sort keys %leaf) {
925 my @expr;
926 foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
933 foreach my $link (sort keys %aliases) {
934 my $abs_file = $aliases{$link};
970 foreach my $what(sort keys %symbols) {
971 my @files = @{$symbols{$what}->{file}};