Gears/GearsAgda: src/parallel_execution/generate

annotate src/parallel_execution/generate_stub.pl @ 444:0c024ea61601

Using cas interface but occurred warning

author	Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp>
date	Sun, 26 Nov 2017 04:26:44 +0900
parents	481fce540daf
children	57132ef16009

rev	line source
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	1 #!/usr/bin/perl
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	2
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	3 use strict;
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	4 use Getopt::Std;
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	5 use File::Path qw(make_path);
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	6
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	7 # interface.cbc
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	8 # typedef struct Worker {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	9 # int id;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	10 # struct Context* contexts;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	11 # enum Code execute;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	12 # enum Code taskSend;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	13 # enum Code taskRecive;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	14 # enum Code shutdown;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	15 # struct Queue* tasks;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	16 # } Worker;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	17
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	18 our($opt_o,$opt_d,$opt_h);
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	19 getopts('o:d:h');
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	20
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	21 my $dir = ".";
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	22 if ($opt_d) {
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	23 $dir = $opt_d;
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	24 if (! -d $dir) {
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	25 make_path $dir;
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	26 }
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	27 }
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	28
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	29 for my $fn (@ARGV) {
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	30 next if ($fn !~ /\.cbc$/);
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	31 &getDataGear($fn);
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	32 &generateDataGear($fn);
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	33 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	34
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	35 my %var;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	36 my %code;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	37 my %dataGearVar;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	38 my %outputVar; # output var initializer
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	39 my %outputArgs; # continuation's output variables
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	40 my %dataGear;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	41 my %dataGearName;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	42 my %generic;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	43 my %dataGearVarType;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	44 my %codeGear;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	45 my $implementation;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	46 my $interface;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	47
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	48 # interface definision
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	49 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	50 # typedef struct Stack<Type, Impl>{
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	51 # Type* stack;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	52 # Type* data;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	53 # Type* data1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	54 # __code whenEmpty(...);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	55 # __code clear(Impl* stack,__code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	56 # __code push(Impl* stack,Type* data, __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	57 # __code pop(Impl* stack, __code next(Type*, ...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	58 # __code pop2(Impl* stack, Type data, Type data1, __code next(Type, Type, ...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	59 # __code isEmpty(Impl* stack, __code next(...), __code whenEmpty(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	60 # __code get(Impl* stack, Type** data, __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	61 # __code get2(Impl* stack,..., __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	62 # __code next(...);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	63 # } Stack;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	64 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	65 # calling example
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	66 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	67 # goto nodeStack->push((union Data*)node, stackTest3);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	68 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	69 # generated meta level code
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	70 #
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	71 # Gearef(context, Stack)->stack = (union Data*)nodeStack;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	72 # Gearef(context, Stack)->data = (union Data*)node;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	73 # Gearef(context, Stack)->next = C_stackTest3;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	74 # goto meta(context, nodeStack->push);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	75
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	76 sub getDataGear {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	77 my ($filename) = @_;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	78 my ($codeGearName, $name, $inTypedef);
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	79 open my $fd,"<",$filename or die("can't open $filename $!");
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	80 while (<$fd>) {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	81 if (! $inTypedef) {
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	82 if (/^typedef struct (\w+)\s<(.)>/) {
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	83 $inTypedef = 1;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	84 $name = $1;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	85 $dataGear{$name} = $_;
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	86 $var{$name} = {};
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	87 $code{$name} = {};
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	88 $generic{$name} = \split(/,/,$2);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	89 } elsif (/^typedef struct (\w+)/) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	90 $inTypedef = 1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	91 $name = $1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	92 $dataGear{$name} = $_;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	93 $var{$name} = {};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	94 $code{$name} = {};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	95 $generic{$name} = [];
269 5170539348ec rename TaskManagerImpl.cbc mir3636 parents: 268 diff changeset	96 } elsif (/^(\w+)(\*)+ create(\w+)\(/) {
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	97 if (defined $interface) {
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	98 die "duplicate interface $interface\n";
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	99 }
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	100 $interface = $1;
269 5170539348ec rename TaskManagerImpl.cbc mir3636 parents: 268 diff changeset	101 $implementation = $3;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	102 if ( -f "$interface.cbc") {
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	103 &getDataGear("$interface.cbc");
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	104 }
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	105 } elsif (/\s\=\s(.)create(\w+)$(.)$;$/) {
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	106 #my $intfn = ucfirst($2);
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	107 my $impln = $2;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	108 if ( -f "$impln.cbc") {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	109 &getCodeGear("$impln.cbc");
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	110 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	111 } elsif(/^(.)par goto (\w+)$(.)$/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	112 my $codeGearName = $2;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	113 if ($filename =~ /^(.)\/(.)/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	114 $codeGearName = "$1/$codeGearName";
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	115 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	116 if ( -f "$codeGearName.cbc") {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	117 &getCodeGear("$codeGearName.cbc");
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	118 }
226 68c03e7057d9 get arg mir3636 parents: 201 diff changeset	119 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	120 next;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	121 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	122 # gather type name and type
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	123 $dataGear{$name} .= $_;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	124 if (/^\s(.)\s+(\w+);$/ ) {
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	125 my $ttype = $1;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	126 my $tname = $2;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	127 if ($ttype =~ /^(union\|struct) (\w+)/) {
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	128 $ttype = $2;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	129 }
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	130 $var{$name}->{$tname} = $ttype;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	131 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	132 if (/^}/) {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	133 $inTypedef = 0;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	134 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	135 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	136 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	137
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	138 sub getCodeGear {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	139 my ($filename) = @_;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	140 open my $fd,"<",$filename or die("can't open $filename $!");
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	141 my ($name,$impln);
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	142 while (<$fd>) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	143 if (/^(\w+)(\*)+ create(\w+)\(/) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	144 $name = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	145 $impln = $3;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	146 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	147 if (defined $name) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	148 if (/^\_\_code (\w+)$impln$(.)$(.)/) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	149 my $args = $2;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	150 my $method = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	151 $code{$name}->{$method} = [];
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	152 while($args) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	153 if ($args =~ s/(^\s,\s)//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	154 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	155 # continuation case
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	156 if ($args =~ s/^(\s)\_\_code\s+(\w+)$([^)])$//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	157 my $next = $2;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	158 my @args = split(/,/,$3);
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	159 push(@{$code{$name}->{$method}},"\_\_code $next");
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	160 } elsif ($args =~ s/^(struct\|union) (\w+)(\*)+\s(\w+)//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	161 my $structType = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	162 my $typeName = $2;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	163 my $varName = $4;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	164 my $typeField = lcfirst($typeName);
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	165 push(@{$code{$name}->{$method}},"$typeName $varName");
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	166 } elsif ($args =~ s/(.*,)//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	167 } else {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	168 last;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	169 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	170 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	171 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	172 } elsif (/^\_\_code (\w+)$(.)$(.)/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	173 my $codeGearName = $1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	174 my $args = $2;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	175 my $inputCount = 0;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	176 my $outputCount = 0;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	177 my $inputIncFlag = 1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	178 while($args) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	179 if ($args =~ s/(^\s,\s)//) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	180 }
404 c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	181 if ($args =~ s/^(\s)\_\_code\s+(\w+)$(.?)$//) {
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	182 $inputIncFlag = 0;
404 c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	183 $outputCount = split(/,/,$3);
c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	184 $outputCount--;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	185 } elsif ($args =~ s/^(struct\|union) (\w+)(\*)+\s(\w+)//) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	186 if($inputIncFlag) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	187 $inputCount++;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	188 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	189 } elsif ($args =~ s/(.*,)//) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	190 } else {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	191 last;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	192 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	193 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	194 $codeGear{$codeGearName}->{"input"} = $inputCount;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	195 $codeGear{$codeGearName}->{"output"} = $outputCount;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	196 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	197 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	198 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	199
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	200 sub generateStub {
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	201 my($fd,$prevCodeGearName,$dataGearName) = @_;
274 d14eb393023d fix generate_stub mir3636 parents: 269 diff changeset	202 print $fd "__code ", $prevCodeGearName ,"_stub(struct Context* context) {\n";
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	203 print $fd $dataGearName;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	204 print $fd "\n} \n\n";
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	205 return 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	206 }
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	207
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	208 sub generateStubArgs {
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	209 my($codeGearName, $varName, $typeName, $typeField, $interface,$output) = @_;
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	210 my $varname1 = $output?"O_$varName":$varName;
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	211 for my $n ( @{$dataGearVar{$codeGearName}} ) {
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	212 # we already have it
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	213 return 0 if ( $n eq $varname1);
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	214 }
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	215 push @{$dataGearVar{$codeGearName}}, $varname1;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	216 push @{$dataGearVarType{$codeGearName}}, $typeName;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	217 if ($typeName eq $implementation) {
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	218 # get implementation
258 4fe19a06d666 generate next args mir3636 parents: 255 diff changeset	219 $dataGearName{$codeGearName} .= "\t$typeName* $varName = ($typeName*)GearImpl(context, $interface, $varName);\n";
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	220 } else {
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	221 for my $ivar (keys %{$var{$interface}}) {
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	222 # input data gear field
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	223 if ($varName eq $ivar) {
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	224 if ($typeName eq $var{$interface}->{$ivar}) {
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	225 if ($output) {
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	226 $dataGearName{$codeGearName} .= "\t$typeName** O_$varName = &Gearef(context, $interface)->$varName;\n";
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	227 $outputVar{$codeGearName} .= "\t$typeName* $varName;\n";
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	228 return 1;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	229 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	230
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	231 $dataGearName{$codeGearName} .= "\t$typeName* $varName = Gearef(context, $interface)->$varName;\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	232 return 1;
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	233 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	234 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	235 }
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	236 for my $cName (keys %{$code{$interface}}) {
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	237 if ($varName eq $cName) {
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	238 # continuation field
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	239 $dataGearName{$codeGearName} .= "\tenum Code $varName = Gearef(context, $interface)->$varName;\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	240 return 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	241 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	242 }
389 d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	243 # global or local variable case
d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	244 if ($typeName eq "Code") {
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	245 $dataGearName{$codeGearName} .= "\tenum $typeName $varName = Gearef(context, $interface)->$varName;\n";
389 d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	246 return 1;
d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	247 }
268 378ce6f74f4b fix generate_stub mir3636 parents: 262 diff changeset	248 $dataGearName{$codeGearName} .= "\t$typeName* $varName = Gearef(context, $typeName);\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	249 return 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	250 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	251 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	252
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	253 sub generateDataGear {
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	254 my ($filename) = @_;
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	255 open my $in,"<",$filename or die("can't open $filename $!");
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	256
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	257 my $fn;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	258 if ($opt_o) {
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	259 $fn = $opt_o;
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	260 } else {
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	261 my $fn1 = $filename;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	262 $fn1 =~ s/\.cbc/.c/;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	263 my $i = 1;
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	264 $fn = "$dir/$fn1";
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	265 while ( -f $fn) {
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	266 $fn = "$dir/$fn1.$i";
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	267 $i++;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	268 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	269 }
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	270 if ( $fn =~ m=(.*)/[^/]+$= ) {
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	271 if (! -d $1) {
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	272 make_path $1;
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	273 }
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	274 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	275 open my $fd,">",$fn or die("can't write $fn $!");
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	276
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	277 my $prevCodeGearName;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	278 my $inTypedef = 0;
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	279 my $inStub = 0;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	280 my $inParGoto = 0;
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	281 my $inMain = 0 ;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	282 my %stub;
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	283 my $codeGearName;
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	284 my %localVarType;
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	285
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	286 while (<$in>) {
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	287 if (! $inTypedef && ! $inStub && ! $inMain) {
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	288 if (/^typedef struct (\w+) {/) {
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	289 $inTypedef = 1;
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	290 } elsif (/^int main$(.*)$ {/) {
a74bec89c198 generate main mir3636 parents: 415 diff changeset	291 $inMain = 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	292 } elsif (/^\_\_code (\w+)$(.)$(.)/) {
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	293 %localVarType = {};
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	294 $codeGearName = $1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	295 my $args = $2;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	296 my $tail = $3;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	297 if ($codeGearName =~ /_stub$/) {
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	298 # don't touch already existing stub
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	299 $inStub = 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	300 $stub{$codeGearName} = 1;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	301 print $fd $_;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	302 next;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	303 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	304 if (defined $prevCodeGearName) {
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	305 # stub is generated just before next CodeGear
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	306 if (defined $stub{$prevCodeGearName."_stub"}) {
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	307 undef $prevCodeGearName;
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	308 } else {
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	309 &generateStub($fd,$prevCodeGearName,$dataGearName{$prevCodeGearName});
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	310 $stub{$prevCodeGearName."_stub"} = 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	311 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	312 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	313 # analyzing CodeGear argument
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	314 # these arguments are extract from current context's arugment DataGear Interface
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	315 # and passed to the CodeGear
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	316 # struct Implementaion needs special handling
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	317 # __code next(...) ---> enum Code next
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	318 $prevCodeGearName = $codeGearName;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	319 $dataGearVar{$codeGearName} = [];
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	320 $outputVar{$codeGearName} = "";
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	321 $outputArgs{$codeGearName} = {};
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	322 my $newArgs = "struct Context *context,";
305 ec0a5b4fba05 CUDAWorker Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 280 diff changeset	323 if ($args=~/^struct Context\s\\s*context/) {
ec0a5b4fba05 CUDAWorker Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 280 diff changeset	324 $newArgs = "";
ec0a5b4fba05 CUDAWorker Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 280 diff changeset	325 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	326 while($args) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	327 if ($args =~ s/(^\s,\s)//) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	328 $newArgs .= $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	329 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	330 # continuation case
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	331 if ($args =~ s/^(\s)\_\_code\s+(\w+)$([^)])$//) {
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	332 my $next = $2;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	333 my @args = split(/,/,$3);
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	334 if (&generateStubArgs($codeGearName, $next, "Code", $next, $interface,0) ) {
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	335 $newArgs .= "enum Code $next";
258 4fe19a06d666 generate next args mir3636 parents: 255 diff changeset	336 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	337 # analyze continuation arguments
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	338 # output arguments are defined in the Interface take the pointer of these
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	339 # output arguments are put into the Interface DataGear just before the goto
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	340 for my $arg (@args) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	341 $arg =~ s/^\s*//;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	342 last if ($arg =~ /\.\.\./);
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	343 $arg =~ s/^(struct\|union) (\w+)(\*)+\s(\w+)//;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	344 my $structType = $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	345 my $typeName = $2;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	346 my $varName = $4;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	347 my $typeField = lcfirst($typeName);
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	348 push(@{$outputArgs{$codeGearName}->{$next}}, $varName);
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	349 if (&generateStubArgs($codeGearName, $varName, $typeName, $typeField, $interface,1)) {
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	350 $newArgs .= ",$structType $typeName **O_$varName";
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	351 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	352 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	353 } elsif ($args =~ s/^(struct\|union) (\w+)(\*)+\s(\w+)//) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	354 my $structType = $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	355 my $typeName = $2;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	356 my $varName = $4;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	357 my $typeField = lcfirst($typeName);
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	358 $newArgs .= $&; # assuming no duplicate
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	359 &generateStubArgs($codeGearName, $varName, $typeName, $typeField, $interface,0);
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	360 } elsif ($args =~ s/(.*,)//) {
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	361 $newArgs .= $1;
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	362 } else {
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	363 $newArgs .= $args;
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	364 last;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	365 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	366 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	367 # generate goto statement from stub to the CodeGear in the buffer
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	368 $dataGearName{$codeGearName} .= "\tgoto $codeGearName(context";
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	369 for my $arg ( @{$dataGearVar{$codeGearName}}) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	370 $dataGearName{$codeGearName} .= ", $arg";
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	371 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	372 $dataGearName{$codeGearName} .= ");";
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	373 # generate CodeGear header with new arguments
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	374 print $fd "__code $codeGearName($newArgs)$tail\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	375 if ($outputVar{$codeGearName} ne "") {
324 d9887056ae5b Update Todo and Add comment to perl script one parents: 305 diff changeset	376 # output data var can be use before write
d9887056ae5b Update Todo and Add comment to perl script one parents: 305 diff changeset	377 # it should be initialze by gearef
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	378 print $fd $outputVar{$codeGearName};
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	379 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	380 next;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	381 } elsif (/^(.)goto (\w+)\-\>(\w+)$(.)$;/) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	382 # handling goto statement
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	383 # convert it to the meta call form with two arugments, that is context and enum Code
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	384 my $prev = $1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	385 my $next = $2;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	386 my $method = $3;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	387 my @args = split(/,/,$4);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	388 my @types = @{$dataGearVarType{$codeGearName}};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	389 my $ntype;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	390 my $ftype;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	391 for my $v (@{$dataGearVar{$codeGearName}}) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	392 my $t = shift @types;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	393 if ($v eq $next) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	394 $ntype = $t;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	395 $ftype = lcfirst($ntype);
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	396 }
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	397 }
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	398 if (!defined $ntype) {
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	399 $ntype = $localVarType{$next};
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	400 $ftype = lcfirst($ntype);
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	401 }
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	402 print $fd "\tGearef(context, $ntype)->$ftype = (union Data*) $next;\n";
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	403 # Put interface argument
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	404 my $prot = $code{$ntype}->{$method};
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	405 my $i = 1;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	406 for my $arg (@args) {
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	407 my $pType;
eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	408 my $pName;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	409 my $p = @$prot[$i];
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	410 next if ( $p eq $arg);
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	411 $p =~ s/^(.*)\s(\w+)//;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	412 $pType = $1;
eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	413 $pName = $2;
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	414 $arg =~ s/^(\s)*(\w+)/$2/;
590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	415 if ($pType =~ s/\_\_code$//) {
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	416 if ($arg =~ /(\w+)$.*$/) {
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	417 print $fd "\tGearef(context, $ntype)->$pName = $1;\n";
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	418 } else {
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	419 print $fd "\tGearef(context, $ntype)->$pName = C_$arg;\n";
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	420 }
391 2d9c500f263e fix generate_stub mir3636 parents: 389 diff changeset	421 } elsif ($pType =~ s/Data$//){
2d9c500f263e fix generate_stub mir3636 parents: 389 diff changeset	422 print $fd "\tGearef(context, $ntype)->$pName = (union Data*) $arg;\n";
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	423 } else {
590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	424 print $fd "\tGearef(context, $ntype)->$pName = $arg;\n";
590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	425 }
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	426 $i++;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	427 }
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	428 print $fd "${prev}goto meta(context, $next->$method);\n";
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	429 next;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	430 } elsif(/^(.)par goto (\w+)$(.)$;/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	431 # handling par goto statement
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	432 # convert it to the parallel
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	433 my $prev = $1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	434 my $codeGearName = $2;
401 408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	435 my $inputCount = $codeGear{$codeGearName}->{'input'};
408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	436 my $outputCount = $codeGear{$codeGearName}->{'output'};
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	437 my @dataGears = split(/,\s*/, $3);
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	438 my $nextCodeGear = pop(@dataGears);
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	439 my @iterateCounts;
401 408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	440 # parse examples 'par goto(.., iterate(10), exit);'
402 e958a409943c Change iterator implement from oneDim to multiDim Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 401 diff changeset	441 if ($3 =~ /iterate$(.*)?$/) {
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	442 @iterateCounts = split(/,/,$1);;
401 408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	443 $inputCount--;
408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	444 # pop iterate statement
408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	445 pop(@dataGears);
408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	446 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	447 if (! $inParGoto) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	448 $inParGoto = 1;
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	449 print $fd "${prev}struct Element* element;\n";
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	450 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	451 my $initTask = << "EOFEOF";
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	452 ${prev}context->task = NEW(struct Context);
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	453 ${prev}initContext(context->task);
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	454 ${prev}context->task->next = C_$codeGearName;
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	455 ${prev}context->task->idgCount = $inputCount;
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	456 ${prev}context->task->idg = context->task->dataNum;
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	457 ${prev}context->task->maxIdg = context->task->idg + $inputCount;
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	458 ${prev}context->task->odg = context->task->maxIdg;
9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	459 ${prev}context->task->maxOdg = context->task->odg + $outputCount;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	460 EOFEOF
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	461 print $fd $initTask;
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	462 if (@iterateCounts) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	463 print $fd "${prev}context->task->iterate = 0;\n";
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	464 my $len = @iterateCounts;
83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	465 if ($len == 1) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	466 print $fd "${prev}context->task->iterator = createMultiDimIterator(context, $iterateCounts[0], 1, 1);\n";
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	467 } elsif ($len == 2) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	468 print $fd "${prev}context->task->iterator = createMultiDimIterator(context, $iterateCounts[0], $iterateCounts[1], 1);\n";
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	469 } elsif ($len == 3) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	470 print $fd "${prev}context->task->iterator = createMultiDimIterator(context, $iterateCounts[0], $iterateCounts[1], $iterateCounts[2]);\n";
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	471 }
401 408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	472 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	473 for my $i (0..$inputCount-1) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	474 print $fd "${prev}context->task->data[context->task->idg+$i] = (union Data*)@dataGears[$i];\n";
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	475 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	476
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	477 for my $i (0..$outputCount-1) {
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	478 print $fd "${prev}context->task->data[context->task->odg+$i] = (union Data*)@dataGears[$inputCount+$i];\n";
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	479 }
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	480 my $putTask = << "EOFEOF";
404 c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	481 ${prev}element = &ALLOCATE(context, Element)->Element;
c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	482 ${prev}element->next = NULL;
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	483 ${prev}element->data = (union Data*)context->task;
407 00d9b0664bdb Fix Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 406 diff changeset	484 ${prev}context->tasks->queue->SingleLinkedQueue.last->next = element;
00d9b0664bdb Fix Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 406 diff changeset	485 ${prev}context->tasks->queue->SingleLinkedQueue.last = element;
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	486 EOFEOF
fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	487 print $fd $putTask;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	488 next;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	489 } elsif (/^(.)goto (\w+)$(.)$;/) {
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	490 # handling goto statement
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	491 # convert it to the meta call form with two arugments, that is context and enum Code
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	492 my $prev = $1;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	493 my $next = $2;
424 3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	494 my @args = split(/, /,$3);
388 8940d1451a0d handle local continuation masataka parents: 387 diff changeset	495 my $v = 0;
8940d1451a0d handle local continuation masataka parents: 387 diff changeset	496 for my $n ( @{$dataGearVar{$codeGearName}} ) {
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	497 # continuation arguments
388 8940d1451a0d handle local continuation masataka parents: 387 diff changeset	498 $v = 1 if ( $n eq $next);
8940d1451a0d handle local continuation masataka parents: 387 diff changeset	499 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	500 if ($v \|\| defined $code{$interface}->{$next}) {
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	501 # write continuation's arguments into the interface arguments
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	502 # we may need a commit for a shared DataGear
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	503 for my $arg ( @{$outputArgs{$codeGearName}->{$next}} ) {
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	504 my $v = shift(@args);
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	505 print $fd "\t*O_$arg = $v;\n";
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	506 }
397 c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	507 if ($inParGoto) {
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	508 print $fd "${prev}taskManager->tasks = context->tasks;\n";
fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	509 print $fd "${prev}taskManager->next1 = C_$next;\n";
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	510 print $fd "${prev}goto meta(context, C_$next);\n";
397 c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	511 } else {
c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	512 print $fd "${prev}goto meta(context, $next);\n";
c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	513 }
c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	514 next;
c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	515 }
c43ec0e3fa84 Add par_meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 396 diff changeset	516 if ($inParGoto) {
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	517 print $fd "${prev}taskManager->tasks = context->tasks;\n";
fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	518 print $fd "${prev}taskManager->next1 = C_$next;\n";
406 9b35e6581b5c Use task member of context by par goto meta Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 404 diff changeset	519 print $fd "${prev}goto meta(context, C_$next);\n";
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	520 next;
424 3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	521 } elsif ($next eq "meta") {
3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	522 print $fd $_;
3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	523 next;
3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	524 } else {
3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	525 print $fd "${prev}goto meta(context, C_$next);\n";
3c6af75b13d4 fix RedBlackTree.cbc mir3636 parents: 422 diff changeset	526 next;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	527 }
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	528 } elsif(/^.(struct\|union)?\s(\w+)\\s(\w+)\s?[=;]/) {
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	529 my $type = $2;
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	530 my $varName = $3;
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	531 $localVarType{$varName} = $type;
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	532 s/new\s+(\w+)/\&ALLOCATE(context, \1)->\1/g; # replacing new
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	533 }
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	534 elsif(/^}/) {
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	535 $inParGoto = 0;
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	536 } else {
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	537 s/new\s+(\w+)/\&ALLOCATE(context, \1)->\1/g; # replacing new
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	538 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	539 # gather type name and type
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	540 } elsif ($inMain) {
a74bec89c198 generate main mir3636 parents: 415 diff changeset	541 if (/^(.*)goto start_code$main_context$;/) {
422 d839c9cb7c83 fix mir3636 parents: 418 diff changeset	542 print $fd $_;
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	543 next;
a74bec89c198 generate main mir3636 parents: 415 diff changeset	544 } elsif (/^(.)goto (\w+)$(.)$;/) {
a74bec89c198 generate main mir3636 parents: 415 diff changeset	545 my $prev = $1;
a74bec89c198 generate main mir3636 parents: 415 diff changeset	546 my $next = $2;
a74bec89c198 generate main mir3636 parents: 415 diff changeset	547 print $fd "${prev}struct Context* main_context = NEW(struct Context);\n";
a74bec89c198 generate main mir3636 parents: 415 diff changeset	548 print $fd "${prev}initContext(main_context);\n";
a74bec89c198 generate main mir3636 parents: 415 diff changeset	549 print $fd "${prev}main_context->next = C_$next;\n";
a74bec89c198 generate main mir3636 parents: 415 diff changeset	550 print $fd "${prev}goto start_code(main_context);\n";
a74bec89c198 generate main mir3636 parents: 415 diff changeset	551 next;
a74bec89c198 generate main mir3636 parents: 415 diff changeset	552 }
a74bec89c198 generate main mir3636 parents: 415 diff changeset	553 }
a74bec89c198 generate main mir3636 parents: 415 diff changeset	554 if (/^}/) {
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	555 $inStub = 0;
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	556 $inTypedef = 0;
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	557 $inMain = 0;
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	558 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	559 print $fd $_;
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	560 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	561 if (defined $prevCodeGearName) {
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	562 if (!defined $stub{$prevCodeGearName."_stub"}) {
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	563 $stub{$prevCodeGearName."_stub"} = &generateStub($fd,$prevCodeGearName,$dataGearName{$codeGearName});
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	564 }
228 55260ff44c8c generate stub mir3636 parents: 226 diff changeset	565 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	566 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	567
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	568 # end

Mercurial > hg > Gears > GearsAgda

annotate src/parallel_execution/generate_stub.pl @ 444:0c024ea61601