view paper/src/replaceCodeGearName2.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("generateDataGear",__LINE__, $_) if $opt_debug;
    $inCode = 1;
    %localVarType = ();
    $currentCodeGearName = $1;
    my $args = $2;
    my $tail = $3;

    #replace Code Gear Name to Implemenatation
    if (exists $replaceCodeGearNames->{$currentCodeGearName}) {
        $currentCodeGearName = $replaceCodeGearNames->{$currentCodeGearName};
    }