Mercurial > hg > Papers > 2021 > anatofuz-master
view paper/src/replaceCodeGearName1.pl @ 91:4232c9dc1431
update
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 05 Feb 2021 19:09:08 +0900 |
parents | f495a5af763c |
children |
line wrap: on
line source
} elsif (/^\_\_code (\w+)\((.*)\)(.*)/) { debug_print("getDataGear",__LINE__, $_) if $opt_debug; my $codeGearName = $1; my $args = $2; if ($implInterfaceInfo->{parsedInterfaceInfo}) { if (exists_codegear_in_interface({codeGearName => $codeGearName, parsedInfo => $implInterfaceInfo->{parsedInterfaceInfo}})) { my $replaceCodeGear = "${codeGearName}$implInterfaceInfo->{implementation}"; #${pop}SingleLinkedStack $replaceCodeGearNames->{$codeGearName} = $replaceCodeGear; $codeGearName = $replaceCodeGear; } }