Mercurial > hg > Members > menikon > CbC_xv6

comparison src/gearsTools/update_context.pl @ 137:7f9dac064c5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove dead code at perl scripts
author anatofuz
date Thu, 12 Dec 2019 14:01:06 +0900
parents fb75c5e661c2
children
comparison
equal deleted inserted replaced
136:fb75c5e661c2 137:7f9dac064c5f
54 #print "@first_context_headers\n"; 54 #print "@first_context_headers\n";
55 #print "@last_context_headers\n"; 55 #print "@last_context_headers\n";
56 return (\@first_context_headers,\@last_context_headers); 56 return (\@first_context_headers,\@last_context_headers);
57 } 57 }
58 58
59 sub dump_h2context {
60 my $h2context = shift;
61 my $context = '';
62 my $space = ' ';
63 #print "${space}struct $h2context->{name} {\n";
64 $context = "${space}struct $h2context->{name} {\n";
65 for my $datum (@{$h2context->{data}}) {
66 #print "${space}${space}$datum; \n";
67 $context .= "${space}${space}$datum;\n";
68 }
69 for my $code (@{$h2context->{codes}}) {
70 #print "${space}${space}enum Code $code;\n";
71 $context .= "${space}${space}enum Code $code;\n";
72 }
73 #print "${space}} $h2context->{name};\n";
74 $context .= "${space}} $h2context->{name};\n";
75 return $context;
76 }
77
78 sub context_dump { 59 sub context_dump {
79 for my $line (@_) { 60 for my $line (@_) {
80 print "$line"; 61 print "$line";
81 } 62 }
82 } 63 }