Members/Moririn: src/parallel_execution/generate

create generate_stub.pl

comparison

equal deleted inserted replaced

-:af4dec989aa1
+:081607dcf893
+#!/usr/bin/perl
+# interface.cbc
+# typedef struct Worker {
+#         int id;
+#         struct Context* contexts;
+#         enum Code execute;
+#         enum Code taskSend;
+#         enum Code taskRecive;
+#         enum Code shutdown;
+#         struct Queue* tasks;
+#     } Worker;
+system "rm -rf d";
+system "mkdir d";
+while (<*.cbc>) {
+&getDataGear($_);
+}
+&generateDataGear();
+sub getDataGear {
+my ($filename) = @_;
+open my $fd,"<",$filename or die("can't open $filename $!");
+while (<$fd>) {
+if (! $inTypedef) {
+if (/^typedef struct (\w+) {/) {
+$inTypedef = 1;
+$name = $1;
+$dataGear{$name} = $_;
+}
+next;
+}
+$dataGear{$name} .= $_;
+if (/^}/) {
+$inTypedef = 0;
+}
+}
+}
+sub generateDataGear {
+open my $fd,">","d/extern.h" or die("can't open d/extern.h $!");
+for my $name ( sort keys %dataGear ) {
+print $fd $dataGear{$name},"\n";
+}
+print $fd "\n";
+}
+# end

Mercurial > hg > Members > Moririn