Mercurial > hg > Gears > Gears

changeset 665:fb729a3c83f1

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 Tue, 18 Aug 2020 19:30:35 +0900
parents 4fdacdac4b38
children 9bf4e49d3399
files src/parallel_execution/generate_stub.pl
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Tue Aug 18 19:08:58 2020 +0900
+++ b/src/parallel_execution/generate_stub.pl	Tue Aug 18 19:30:35 2020 +0900
@@ -55,17 +55,6 @@
   $context_name = $projects{$opt_project}->{context};
 }
 
-my $interface_name_to_header_path = create_interface_name_to_header_path($FindBin::Bin);
-my $cbc_name_to_source_path = create_cbc_name_to_source_path($FindBin::Bin);
-
-
-
-for my $fn (@ARGV) {
-    next if ($fn !~ /\.cbc$/);
-    getDataGear($fn);
-    generateDataGear($fn);
-}
-
 my %var;
 my %code;
 my %dataGearVar;
@@ -79,6 +68,17 @@
 my $implementation;
 my $interface;
 my %call_interfaces;
+my $interface_name_to_header_path = create_interface_name_to_header_path($FindBin::Bin);
+my $cbc_name_to_source_path       = create_cbc_name_to_source_path($FindBin::Bin);
+
+
+# this for statement is main routine
+for my $fn (@ARGV) {
+    next if ($fn !~ /\.cbc$/);
+    getDataGear($fn);
+    generateDataGear($fn);
+}
+
 
 # interface definision
 #