Mercurial > hg > Gears > Gears

changeset 676:4b0ca2c6c8cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 19 Aug 2020 15:41:14 +0900
parents 17822e599e3f
children 47910f7c731e
files src/parallel_execution/generate_stub.pl
diffstat 1 files changed, 11 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Wed Aug 19 14:43:12 2020 +0900
+++ b/src/parallel_execution/generate_stub.pl	Wed Aug 19 15:41:14 2020 +0900
@@ -68,8 +68,9 @@
 my $implementation;
 my $interface;
 my %call_interfaces;
-my $interface_name_to_header_path = create_interface_name_to_header_path($FindBin::Bin);
-my $search_cbc_from_code_gear_and_filename  = create_search_cbc_file_from_code_gear_name_and_filename($FindBin::Bin);
+my $interfaceNameToHeaderPath = createInterfaceNameToHeaderPath($FindBin::Bin);
+my $searchCbCFromCodeGearAndFilename  = createSearchCbCFileFromCodeGearNameAndFilename($FindBin::Bin);
+my %filename2EachCodeGearArgs;
 
 
 
@@ -137,13 +138,13 @@
                 }
                 $interface = $1;
                 $implementation = $3;
-                my $cbc_source_path = $search_cbc_from_code_gear_and_filename->($interface, $filename);
+                my $cbc_source_path = $searchCbCFromCodeGearAndFilename->($interface, $filename);
                 if ($cbc_source_path) {
                     &getDataGear($cbc_source_path);
                 }
             } elsif(/^(.*)par goto (\w+)\((.*)\)/) {
                 my $codeGearName = $2;
-                my $cbc_source_path = $search_cbc_from_code_gear_and_filename->($codeGearName, $filename);
+                my $cbc_source_path = $searchCbCFromCodeGearAndFilename->($codeGearName, $filename);
                 if ($cbc_source_path) {
                     &getCodeGear($cbc_source_path);
                 }
@@ -154,7 +155,7 @@
                 $interfaceHeader =~ m|(\w+)\.\w+$|; #remove filename extention
                 my $interfaceName = $1;
                 $call_interfaces{$filename}->{$interfaceName} = 1;
-                my $interface_path = $interface_name_to_header_path->{$interfaceName};
+                my $interface_path = $interfaceNameToHeaderPath->{$interfaceName};
                 if ($interface_path) {
                     &getDataGear($interface_path);
                     &getCodeGear($interface_path);
@@ -162,7 +163,7 @@
             } elsif (/^\_\_code (\w+)\((.*)\)(.*)/) {
                 my $codeGearName = $1;
                 my $args = $2;
-                my $cbc_source_path = $search_cbc_from_code_gear_and_filename->($codeGearName, $filename);
+                my $cbc_source_path = $searchCbCFromCodeGearAndFilename->($codeGearName, $filename);
                 if ($cbc_source_path) {
                     &getCodeGear($cbc_source_path);
                 }
@@ -214,6 +215,8 @@
         }
     }
 
+    $filename2EachCodeGearArgs{$filename} = $codeGearName2Args;
+
 }
 
 sub parseCodeGearDeclarationArg {
@@ -760,7 +763,7 @@
     }
 }
 
-sub create_interface_name_to_header_path {
+sub createInterfaceNameToHeaderPath {
     my $search_root = shift;
     my $files = Gears::Util->find_headers_from_path($search_root);
     my $interface_name2headerpath = {};
@@ -799,7 +802,7 @@
   return $cbc_name2_source_path;
 }
 
-sub create_search_cbc_file_from_code_gear_name_and_filename {
+sub createSearchCbCFileFromCodeGearNameAndFilename {
   my $search_root = shift;
   my $cbc_name2_source_path = create_cbc_name_to_source_path($search_root);