Mercurial > hg > GearsTemplate
annotate src/parallel_execution/generate_context.pl @ 259:195518ab62fc
fix type gathering pattern match in generate_stub.pl
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sat, 28 Jan 2017 12:37:22 +0900 |
| parents | cd3486e4ba70 |
| children | 9d671e63df74 |
| rev | line source |
|---|---|
| 186 | 1 #!/usr/bin/perl |
| 2 | |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
3 use Getopt::Std; |
| 254 | 4 use strict; |
| 186 | 5 |
| 254 | 6 # |
| 7 # generrate Gears OS context heaader and initializer from CbC sources | |
| 8 # | |
| 186 | 9 # CodeGear |
| 10 # | |
| 254 | 11 # get stub information from # *.c |
| 12 # __code taskManager_stub(struct Context* context) { | |
| 13 # | |
| 14 # generate CodeGear indexn in context.h | |
| 15 # C_taskManager, | |
| 186 | 16 # |
| 254 | 17 # generate CodeGear stub reference in context.h |
| 18 # extern __code taskManager_stub(struct Context*); | |
| 186 | 19 # |
| 254 | 20 # generate CodeGear stub reference in $name-context.h for each module |
| 21 # context->code[C_taskManager] = taskManager_stub; | |
| 186 | 22 # |
| 23 # DataGear | |
| 24 # | |
| 254 | 25 # get DataGear information from context.h |
| 26 # struct Worker { | |
| 186 | 27 # int id; |
| 28 # struct Context* contexts; | |
| 29 # enum Code execute; | |
| 30 # enum Code taskSend; | |
| 31 # enum Code taskRecive; | |
| 32 # enum Code shutdown; | |
| 33 # struct Queue* tasks; | |
| 34 # } Worker; | |
| 35 # | |
| 254 | 36 # generate typedefs and DataGear index in context.h |
| 37 # typedef struct Worker Worker; | |
| 38 # D_Worker, | |
| 186 | 39 # |
| 254 | 40 # generate DataGear allocator in context.h |
| 41 # ALLOC_DATA(context, Worker); | |
| 42 # | |
| 186 | 43 |
| 254 | 44 my $ddir = "c"; |
| 186 | 45 |
| 254 | 46 our($opt_o,$opt_d,$opt_h); |
| 47 getopts('o:d:h'); | |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
48 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
49 my $name = $opt_o; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
50 |
| 254 | 51 if ($opt_d) { |
| 52 $ddir = $opt_d; | |
| 53 } | |
| 54 | |
| 55 if ( ! -d $ddir) { | |
| 56 mkdir $ddir; | |
| 57 } | |
| 58 | |
| 59 if ($opt_h) { | |
| 60 print "$0 [-d distdir] [-h]\n"; | |
| 61 exit; | |
| 62 } | |
| 63 | |
| 64 my %codeGear; | |
| 65 my %dataGear; | |
| 66 | |
|
259
195518ab62fc
fix type gathering pattern match in generate_stub.pl
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
257
diff
changeset
|
67 # gather module Information for code table initialization |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
68 for (@ARGV) { |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
69 next if (/context.c/); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
70 &getStubInfo($_); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
71 } |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
72 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
73 my (%mCodeGear) = (%codeGear); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
74 |
|
259
195518ab62fc
fix type gathering pattern match in generate_stub.pl
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
257
diff
changeset
|
75 # anyway we gather all Gears Information |
|
195518ab62fc
fix type gathering pattern match in generate_stub.pl
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
257
diff
changeset
|
76 while (<*.c test/*.c>) { |
| 257 | 77 next if (/context.c/); |
| 78 &getStubInfo($_); | |
| 79 } | |
| 80 | |
| 186 | 81 &generateContext(); |
| 82 | |
| 83 sub getStubInfo { | |
| 84 my ($filename) = @_; | |
| 85 open my $fd,"<",$filename or die("can't open $filename $!"); | |
| 86 while (<$fd>) { | |
| 208 | 87 if (/^__code (\w+)_stub\(struct Context\* context\)/ or /^\s__code (\w+)_stub\(struct Context\* context\)/) { |
| 186 | 88 $codeGear{$1} = $filename; |
| 89 } | |
| 90 } | |
| 91 | |
| 92 open my $cx,"<","context.h" or die("can't open context.h $!"); | |
| 254 | 93 my $inUnionData = 0; |
| 186 | 94 while (<$cx>) { |
| 95 if (! $inUnionData) { | |
| 96 if ( /^union Data/) { | |
| 97 $inUnionData = 1; | |
| 98 } | |
| 99 next; | |
| 100 } | |
| 101 last if (/union Data end/); | |
| 102 if (/struct (\w+) \{/) { | |
| 103 $dataGear{$1} = $1; | |
| 104 } | |
| 105 } | |
| 106 } | |
| 107 | |
| 108 sub generateContext { | |
| 254 | 109 open my $fd,">","$ddir/extern.h" or die("can't open $ddir/extern.h $!"); |
| 186 | 110 for my $code ( sort keys %codeGear ) { |
| 111 print $fd "extern __code ${code}_stub(struct Context*);\n"; | |
| 112 } | |
| 113 print $fd "\n"; | |
| 114 | |
| 254 | 115 open my $fd,">","$ddir/enumCode.h" or die("can't open $ddir/enumCode.h $!"); |
| 186 | 116 print $fd "enum Code {\n"; |
| 117 for my $code ( sort keys %codeGear ) { | |
| 118 print $fd " C_${code},\n"; | |
| 119 } | |
| 120 print $fd "};\n"; | |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
121 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
122 my $code_init = ''; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
123 for my $code ( sort keys %mCodeGear ) { |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
124 $code_init .= " context->code[C_${code}] = ${code}_stub;\n"; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
125 } |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
126 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
127 my $context_c = << "EOFEOF"; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
128 #include <stdlib.h> |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
129 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
130 #include "../context.h" |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
131 #include "extern.h" |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
132 |
|
246
421ea91dd76c
Change initContext type from __code to void
Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
parents:
210
diff
changeset
|
133 void initContext(struct Context* context) { |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
134 context->heapLimit = sizeof(union Data)*ALLOCATE_SIZE; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
135 context->code = (__code(**) (struct Context*)) NEWN(ALLOCATE_SIZE, void*); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
136 context->data = NEWN(ALLOCATE_SIZE, union Data*); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
137 context->heapStart = NEWN(context->heapLimit, char); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
138 context->heap = context->heapStart; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
139 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
140 // context->codeNum = Exit; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
141 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
142 $code_init |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
143 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
144 #include "dataGearInit.c" |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
145 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
146 // context->data[D_ActiveQueue] = createSynchronizedQueue(context); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
147 // context->data[D_WaitQueue] = createSynchronizedQueue(context); |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
148 |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
149 context->dataNum = D_Queue; |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
150 } |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
151 EOFEOF |
|
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
152 |
| 254 | 153 open my $fd,">","$ddir/$name-context.c" or die("can't open $ddir/$name-context.c $!"); |
|
210
ba56dab79dc4
separate code init for each executable
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
208
diff
changeset
|
154 print $fd $context_c; |
| 186 | 155 |
| 156 | |
| 254 | 157 open my $fd,">","$ddir/enumData.h" or die("can't open $ddir/enumData.h $!"); |
| 186 | 158 print $fd "enum DataType {\n"; |
|
259
195518ab62fc
fix type gathering pattern match in generate_stub.pl
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
257
diff
changeset
|
159 print $fd " D_Code,\n"; |
| 186 | 160 for my $data ( sort keys %dataGear ) { |
| 161 print $fd " D_${data},\n"; | |
| 162 } | |
| 163 print $fd "};\n\n"; | |
| 164 | |
| 254 | 165 open my $fd,">","$ddir/typedefData.h" or die("can't open $ddir/typedefData.h $!"); |
| 186 | 166 for my $data ( sort keys %dataGear ) { |
| 167 print $fd "typedef struct ${data} ${data};\n"; | |
| 168 } | |
| 169 | |
| 254 | 170 open my $fd,">","$ddir/dataGearInit.c" or die("can't open $ddir/dataGearInit.c $!"); |
| 186 | 171 for my $data ( sort keys %dataGear ) { |
| 172 print $fd " ALLOC_DATA(context, ${data});\n"; | |
| 173 } | |
| 174 } | |
| 175 | |
| 176 # end |