view paper/src/parsedArgs.pl @ 79:3022da6f729f

...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 04 Feb 2021 22:02:25 +0900
parents
children 9974be9e2d1c
line wrap: on
line source

#$tmpArgs =~ s/\(.*\)/\(\)/;
my @args = split(/,/,$tmpArgs);

#....

my $nextType           = $currentCodeGearInfo->{localVar}->{$next}  // $currentCodeGearInfo->{arg}->{$next};
my $nextTypePath       = $headerNameToInfo->{$nextType}->{path};
my $parsedNextTypePath = Gears::Interface->detailed_parse($nextTypePath);

unless (exists $parsedNextTypePath->{codeName}->{$method}) {
  die "[ERROR] not found $next definition at $_ in $filename\n";
}
my $nextMethodInfo = $parsedNextTypePath->{codeName}->{$method};
my $nextMethodWantArgc = $nextMethodInfo->{argc};

if ($nextMethodWantArgc != scalar(@args)) {
  die "[EROR] invalid arg $line  you shoud impl $nextMethodInfo->{args}\n";
}