Mercurial > hg > GearsTemplate
changeset 197:de7c0bbfc91f
merge
author | ikkun |
---|---|
date | Fri, 16 Dec 2016 23:41:27 +0900 |
parents | 119c035e0e36 (current diff) bd96dffaa76a (diff) |
children | 4051c012dec3 |
files | |
diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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