Mercurial > hg > Gears > GearsAgda

comparison src/parallel_execution/generate_stub.pl @ 226:68c03e7057d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
get arg
author mir3636
date Tue, 17 Jan 2017 18:11:39 +0900
parents 90fa6f8246ca
children 55260ff44c8c
comparison
equal deleted inserted replaced
225:f3e29df16d42 226:68c03e7057d9
27 if (! $inTypedef) { 27 if (! $inTypedef) {
28 if (/^typedef struct (\w+) {/) { 28 if (/^typedef struct (\w+) {/) {
29 $inTypedef = 1; 29 $inTypedef = 1;
30 $name = $1; 30 $name = $1;
31 $dataGear{$name} = $_; 31 $dataGear{$name} = $_;
32 }
33 if (/^\_\_code (\w+)/) {
34 $codeGearName = $1;
35 print STDOUT $1 . "\n";
36 while (/struct (\w+)/g) {
37 print STDOUT "\t" . $1 . "\n";
38 }
32 } 39 }
33 next; 40 next;
34 } 41 }
35 $dataGear{$name} .= $_; 42 $dataGear{$name} .= $_;
36 if (/(\w+);$/ and !/^} (\w+)/) { 43 if (/(\w+);$/ and !/^} (\w+)/) {