view src/gearsTools/gen_Stub.pl @ 279:0a74a7bbe765

tweak...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 28 Jan 2020 15:10:22 +0900
parents 98aea649e37b
children 4d76280758db
line wrap: on
line source

#!/usr/bin/env perl
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use Gears::Util;
use Gears::Stub;

use Getopt::Std;
use File::Spec;

use DDP {deparse => 1};

my $target_cbc_file = shift;
my $stubManager = Gears::Stub->new(file_name => File::Spec->rel2abs($target_cbc_file));

$stubManager->findInterfacewImpl(File::Spec->rel2abs($target_cbc_file));