Mercurial > hg > CbC > CbC_xv6

annotate src/gearsTools/check_convert_context_struct.pl @ 345:efef0767b1bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
emit include guard at context.h
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 01 Mar 2020 18:10:05 +0900
parents 40b1b7476e77
children 0e72eb96b6b1
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;
b84aac4ab529 import trans_impl.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 101
diff changeset
8
100
37a0df8b1889 tweak update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 99
diff changeset
9
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 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
11 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
12 my $context = Gears::Context->h2context_str($h2context);
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13
239
40b1b7476e77 modify_script_name
anatofuz
parents: 137
diff changeset
14 print "$context";
97
70eae4b230f2 add update_context.pl
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15