Mercurial > hg > Papers > 2021 > anatofuz-master
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"; }