Mercurial > hg > Members > menikon > CbC_xv6

annotate src/gearsTools/gen_Stub.pl @ 295:274bbf78b87b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix sort enum Codes at dump context.h
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 04 Feb 2020 14:04:34 +0900
parents 4d76280758db
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
278
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env perl
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 use strict;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 use warnings;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 use FindBin;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 use lib "$FindBin::Bin/lib";
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 use Gears::Util;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 use Gears::Stub;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 use Getopt::Std;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 use File::Spec;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 use DDP {deparse => 1};
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 my $target_cbc_file = shift;
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 my $stubManager = Gears::Stub->new(file_name => File::Spec->rel2abs($target_cbc_file));
98aea649e37b add gen_stub perl scripts
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
281
4d76280758db move context.pm to util.pm ...
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 279
diff changeset
18 my $interface_w_impl = $stubManager->findInterfacewImpl(File::Spec->rel2abs($target_cbc_file));
4d76280758db move context.pm to util.pm ...
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents: 279
diff changeset
19