Mercurial > hg > CbC > CbC_xv6

comparison src/gearsTools/lib/Gears/Context.pm @ 182:d00a1d0758cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tweak
author anatofuz
date Mon, 20 Jan 2020 17:30:08 +0900
parents f431400da994
children 8a55878f6a25
comparison
equal deleted inserted replaced
181:f431400da994 182:d00a1d0758cb
109 } 109 }
110 } 110 }
111 } 111 }
112 close $fh; 112 close $fh;
113 } 113 }
114 use Data::Dumper;
114 115
115 for my $cg_name (keys %include_pool) { 116 for my $cg_name (keys %include_pool) {
116 my @tmp_cbc_file_names = keys %{$include_pool{$cg_name}}; 117 my @tmp_cbc_file_names = keys %{$include_pool{$cg_name}};
117 my $tmp_cbc_file_name = shift @tmp_cbc_file_names; 118 my $tmp_cbc_file_name = shift @tmp_cbc_file_names;
118 if (exists $counter{interfaces}->{$cg_name}){ 119 if (exists $counter{interfaces}->{$cg_name}){
119 push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name}); 120 push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
120 delete $include_pool{$cg_name}; 121 delete $include_pool{$cg_name};
121 last; 122 next;
122 } 123 }
123 124
124 if (exists $counter{impl}->{$cg_name}){ 125 if (exists $counter{impl}->{$cg_name}){
125 push(@{$counter{impl}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name}); 126 push(@{$counter{impl}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
126 delete $include_pool{$cg_name}; 127 delete $include_pool{$cg_name};
127 last; 128 next;
128 } 129 }
129 push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name}); 130 push(@{$counter{interfaces}->{$cg_name}->{$tmp_cbc_file_name}},$include_pool{$cg_name}->{$tmp_cbc_file_name});
130 delete $include_pool{$cg_name}; 131 delete $include_pool{$cg_name};
131 } 132 }
132 133
133 $counter{interfaces}->{Meta}++; 134 $counter{interfaces}->{Meta}++;
134 $counter{interfaces}->{TaskManager}++; 135 $counter{interfaces}->{TaskManager}++;
135 print "-----------\n"; 136 print "-----------\n";
136 use Data::Dumper;
137 print Dumper \%counter; 137 print Dumper \%counter;
138 print "-----------\n"; 138 print "-----------\n";
139 return \%counter; 139 return \%counter;
140 } 140 }
141 141