Mercurial > hg > Papers > 2021 > anatofuz-master
view paper/src/parsedArgs.pl @ 91:4232c9dc1431
update
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 05 Feb 2021 19:09:08 +0900 |
parents | 9974be9e2d1c |
children |
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 "[ERROR] invalid arg $line you shoud impl $nextMethodInfo->{args}\n"; }