Mercurial > hg > CbC > CbC_xv6

annotate src/gearsTools/check_convert_context_struct.pl @ 349:0e72eb96b6b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix decamelize
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 02 Mar 2020 15:38:42 +0900
parents efef0767b1bc
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env perl
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 use strict;
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 use warnings;
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
102
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
5 use FindBin;
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
6 use lib "$FindBin::Bin/lib";
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
7 use Gears::Util;
349
0e72eb96b6b1 fix decamelize
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 345
diff changeset
8 use Gears::Context;
102
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
9
100
37a0df8b1889 tweak update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 99
diff changeset
10
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 my $interface_file = shift or die "require itnerface file";
102
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
12 my $h2context = Gears::Util->parse_interface($interface_file);
345
efef0767b1bc emit include guard at context.h
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 239
diff changeset
13 my $context = Gears::Context->h2context_str($h2context);
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
239
40b1b7476e77 modify_script_name
anatofuz
parents: 137
diff changeset
15 print "$context";
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16