# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1597746635 -32400
# Node ID fb729a3c83f1786caca09e5595ab02d38866d60a
# Parent  4fdacdac4b385f65c376f50032f23ed00495ed1a
...

diff -r 4fdacdac4b38 -r fb729a3c83f1 src/parallel_execution/generate_stub.pl
--- 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
 #