Lines Matching full:my

11 my $help;
12 my $man;
13 my $debug;
14 my $arch;
15 my $feat;
16 my $enable_fname;
18 my $basename = abs_path($0);
21 my $prefix=$basename . "../Documentation/features";
25 my $status_size = 1;
26 my $description_size = 1;
44 my ($cmd, $arg) = @ARGV;
51 my %data;
52 my %archs;
58 	my ($file, $ln, $msg, $data) = @_;
75 my $h_name = "Feature";
76 my $h_kconfig = "Kconfig";
77 my $h_description = "Description";
78 my $h_subsys = "Subsystem";
79 my $h_status = "Status";
80 my $h_arch = "Architecture";
82 my $max_size_name = length($h_name);
83 my $max_size_kconfig = length($h_kconfig);
84 my $max_size_description = length($h_description);
85 my $max_size_subsys = length($h_subsys);
86 my $max_size_status = length($h_status);
88 my $max_size_arch = 0;
89 my $max_size_arch_with_header;
90 my $max_description_word = 0;
93 	my $file = $File::Find::name;
95 	my $mode = (stat($file))[2];
104 	my $subsys = "";
111 	my $name;
112 	my $kconfig;
113 	my $description;
114 	my $comments = "";
115 	my $last_status;
116 	my $ln;
117 	my %arch_table;
145 			foreach my $word (split /\s+/, $description) {
162 			my $a = $1;
163 			my $status = $2;
212 	my $title = "Feature status on $arch architecture";
244 	foreach my $name (sort {
250 		my %arch_table = %{$data{$name}->{table}};
276 	foreach my $name (sort {
282 		my %arch_table = %{$data{$name}->{table}};
284 		my $status = $arch_table{$arch};
299 	my $title = "Feature $feat";
308 	my $desc = $data{$feat}->{description};
313 	my $com = $data{$feat}->{comments};
335 	my %arch_table = %{$data{$feat}->{table}};
336 	foreach my $arch (sort keys %arch_table) {
352 	my $desc_size = shift;
353 	my $status_size = shift;
354 	my $header = shift;
355 	my $fill;
356 	my $ln_marker;
376 	my $title = "Feature status on all architectures";
377 	my $notcompat = "Not compatible";
383 	my $desc_title = "$h_kconfig / $h_description";
385 	my $desc_size = $max_size_kconfig + 4;
398 	my $min_status_size = $max_size_status + $max_size_arch + 6;
402 	my $cur_subsys = "";
403 	foreach my $name (sort {
415 			my $title = "Subsystem: $cur_subsys";
429 		my %arch_table = %{$data{$name}->{table}};
430 		my $cur_status = "";
432 		my (@lines, @descs);
433 		my $line = "";
434 		foreach my $arch (sort {
439 			my $status = $arch_table{$arch};
461 		my $description = $data{$name}->{description};
463 			my $d = substr $description, 0, $desc_size;
482 		my $ln = 0;
483 		for my $line(@lines) {