# HG changeset patch # User mir3636 # Date 1484644299 -32400 # Node ID 68c03e7057d90150d613ee36e39da26c841a0a48 # Parent f3e29df16d420ab193cc2475e24f6f6caa29c7c0 get arg diff -r f3e29df16d42 -r 68c03e7057d9 src/parallel_execution/generate_stub.pl --- a/src/parallel_execution/generate_stub.pl Sat Jan 14 19:52:02 2017 +0900 +++ b/src/parallel_execution/generate_stub.pl Tue Jan 17 18:11:39 2017 +0900 @@ -30,6 +30,13 @@ $name = $1; $dataGear{$name} = $_; } + if (/^\_\_code (\w+)/) { + $codeGearName = $1; + print STDOUT $1 . "\n"; + while (/struct (\w+)/g) { + print STDOUT "\t" . $1 . "\n"; + } + } next; } $dataGear{$name} .= $_;