# HG changeset patch
# User ikkun
# Date 1481899287 -32400
# Node ID de7c0bbfc91fc7ddb12128d42418a24aa8544dec
# Parent  119c035e0e368fed4abf13916766f64121197361# Parent  bd96dffaa76a90731783278fbec3cbcba4703a57
merge

diff -r 119c035e0e36 -r de7c0bbfc91f src/parallel_execution/generate_stub.pl
--- a/src/parallel_execution/generate_stub.pl	Fri Dec 16 23:27:14 2016 +0900
+++ b/src/parallel_execution/generate_stub.pl	Fri Dec 16 23:41:27 2016 +0900
@@ -33,6 +33,12 @@
             next;
         }
         $dataGear{$name} .= $_;
+	if (/(\w+);$/ and !/^} (\w+)/) {
+	    $var{$name} .= $1 . "\n";
+	    $tmp = $`;
+	    $tmp =~ s/^\s*//;
+	    $type{$name} .= $tmp . "\n";
+	}
         if (/^}/) {
             $inTypedef = 0;
         }
@@ -45,6 +51,15 @@
         print $fd $dataGear{$name},"\n";
     }
     print $fd "\n";
+
+    open my $fd,">","d/stub.h" or die("can't open d/stub.h $!");
+    for my $name ( sort keys %dataGear ) {
+        print $fd $var{$name},"\n";
+    }
+    for my $name ( sort keys %dataGear ) {
+        print $fd $type{$name},"\n";
+    }
+    print $fd "\n";
 }
 
 # end