Mercurial > hg > CbC > CbC_xv6

comparison src/gearsTools/lib/Gears/Context.pm @ 233:49a70efcbd3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix_arguments...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 14:06:54 +0900
parents 8a55878f6a25
children 0ea4d14c54bd
comparison
equal deleted inserted replaced
232:84ab6c197dd8 233:49a70efcbd3a
23 return bless $self, $class; 23 return bless $self, $class;
24 } 24 }
25 25
26 26
27 sub extraction_dg_compile_sources { 27 sub extraction_dg_compile_sources {
28 my $self = shift; 28 my ($self, $compile_sources) = @_;
29 my %counter; 29 my %counter;
30 my %include_pool = (); 30 my %include_pool = ();
31 for my $cbc_file (@{$self->{compile_sources}}) { 31 for my $cbc_file (@{$compile_sources}) {
32 open my $fh , '<', $cbc_file; 32 open my $fh , '<', $cbc_file;
33 while (my $line = <$fh>) { 33 while (my $line = <$fh>) {
34 if ($line =~ m|//\s*:skip|) { 34 if ($line =~ m|//\s*:skip|) {
35 next; 35 next;
36 } 36 }