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;
      }
    }