Gears/Gears: src/parallel_execution/generate

annotate src/parallel_execution/generate_stub.pl @ 669:e8800c60811a

fix search cbc file

author	anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date	Wed, 19 Aug 2020 08:05:53 +0900
parents	6c07eb2d4d39
children	f8b98e469256

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;
629 90309637c4c8 Getopt::Std to Getopt::Long anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 625 diff changeset	4 use Getopt::Long;
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	5 use File::Path qw(make_path);
669 e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	6 use File::Basename qw/basename dirname/;
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	7 use File::Spec qw/rel2abs/;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	8
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	9
658 9f8527f5ab9d ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 655 diff changeset	10 use FindBin;
9f8527f5ab9d ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 655 diff changeset	11 use lib "$FindBin::Bin/lib";
9f8527f5ab9d ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 655 diff changeset	12
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	13 use Gears::Util;
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	14
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	15
482 5859bed4edff Refactoring spawnTasks method Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 468 diff changeset	16 # interface.h
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	17 # typedef struct Worker {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	18 # int id;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	19 # struct Context* contexts;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	20 # enum Code execute;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	21 # enum Code taskSend;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	22 # enum Code taskRecive;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	23 # enum Code shutdown;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	24 # struct Queue* tasks;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	25 # } Worker;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	26
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	27 our($opt_o,$opt_d,$opt_h, $opt_project);
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	28
629 90309637c4c8 Getopt::Std to Getopt::Long anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 625 diff changeset	29 GetOptions(
631 5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	30 "o=s" => \$opt_o,
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	31 "d=s" => \$opt_d,
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	32 "h" => \$opt_h,
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	33 "project=s" => \$opt_project,
629 90309637c4c8 Getopt::Std to Getopt::Long anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 625 diff changeset	34 );
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	35
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	36 my $dir = ".";
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	37 if ($opt_d) {
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	38 $dir = $opt_d;
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	39 if (! -d $dir) {
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	40 make_path $dir;
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	41 }
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	42 }
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	43
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	44
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	45
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	46 my %projects = (
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	47 gears => { cotnext => "context" },
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	48 xv6 => { context => "cbc_context" },
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	49 );
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	50
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	51
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	52 my $context_name = "context";
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	53 if ($opt_project && exists $projects{$opt_project}) {
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	54 $context_name = $projects{$opt_project}->{context};
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	55 }
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	56
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	57 my %var;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	58 my %code;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	59 my %dataGearVar;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	60 my %outputVar; # output var initializer
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	61 my %outputArgs; # continuation's output variables
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	62 my %dataGear;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	63 my %dataGearName;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	64 my %generic;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	65 my %dataGearVarType;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	66 my %codeGear;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	67 my $implementation;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	68 my $interface;
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	69 my %call_interfaces;
665 fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	70 my $interface_name_to_header_path = create_interface_name_to_header_path($FindBin::Bin);
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	71 my $search_cbc_from_code_gear_and_filename = create_search_cbc_file_from_code_gear_name_and_filename($FindBin::Bin);
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	72
665 fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	73
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	74
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	75 # this for statement is main routine
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	76 for my $fn (@ARGV) {
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	77 next if ($fn !~ /\.cbc$/);
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	78 getDataGear($fn);
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	79 generateDataGear($fn);
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	80 }
fb729a3c83f1 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 663 diff changeset	81
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	82
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	83 # interface definision
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	84 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	85 # typedef struct Stack<Type, Impl>{
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	86 # Type* stack;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	87 # Type* data;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	88 # Type* data1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	89 # __code whenEmpty(...);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	90 # __code clear(Impl* stack,__code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	91 # __code push(Impl* stack,Type* data, __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	92 # __code pop(Impl* stack, __code next(Type*, ...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	93 # __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	94 # __code isEmpty(Impl* stack, __code next(...), __code whenEmpty(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	95 # __code get(Impl* stack, Type** data, __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	96 # __code get2(Impl* stack,..., __code next(...));
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	97 # __code next(...);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	98 # } Stack;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	99 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	100 # calling example
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	101 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	102 # goto nodeStack->push((union Data*)node, stackTest3);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	103 #
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	104 # generated meta level code
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	105 #
442 481fce540daf Fix goto implement method of generate_stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 424 diff changeset	106 # Gearef(context, Stack)->stack = (union Data*)nodeStack;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	107 # Gearef(context, Stack)->data = (union Data*)node;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	108 # Gearef(context, Stack)->next = C_stackTest3;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	109 # goto meta(context, nodeStack->push);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	110
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	111 sub getDataGear {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	112 my ($filename) = @_;
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	113
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	114 my ($codeGearName, $name, $inTypedef,$described_data_gear);
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	115 open my $fd,"<",$filename or die("can't open $filename $!");
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	116 while (<$fd>) {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	117 if (! $inTypedef) {
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	118 if (/^typedef struct (\w+)\s<(.)>/) {
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	119 $inTypedef = 1;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	120 $name = $1;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	121 $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	122 $var{$name} = {};
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	123 $code{$name} = {};
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	124 $generic{$name} = \split(/,/,$2);
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	125 } elsif (/^typedef struct (\w+)/) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	126 $inTypedef = 1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	127 $name = $1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	128 $dataGear{$name} = $_;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	129 $var{$name} = {};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	130 $code{$name} = {};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	131 $generic{$name} = [];
269 5170539348ec rename TaskManagerImpl.cbc mir3636 parents: 268 diff changeset	132 } elsif (/^(\w+)(\*)+ create(\w+)\(/) {
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	133 if (defined $interface) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	134 die "duplicate interface $interface\n";
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	135 }
afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	136 $interface = $1;
269 5170539348ec rename TaskManagerImpl.cbc mir3636 parents: 268 diff changeset	137 $implementation = $3;
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	138 if ($search_cbc_from_code_gear_and_filename->($interface, $filename)) {
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	139 &getDataGear($search_cbc_from_code_gear_and_filename->($interface, $filename));
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	140 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	141 } elsif(/^(.)par goto (\w+)$(.)$/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	142 my $codeGearName = $2;
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	143 if ($search_cbc_from_code_gear_and_filename->($codeGearName, $filename)) {
669 e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	144 &getCodeGear($search_cbc_from_code_gear_and_filename->($codeGearName, $filename));
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	145 }
595 00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	146 } elsif(/^#interface "(.*)"/) {
468 ac244346c85d Change used interface syntax from #include to #interface Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 467 diff changeset	147 # use interface
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	148 my $interfaceHeader = $1;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	149 next if ($interfaceHeader =~ /context.h/);
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	150 $interfaceHeader =~ m\|(\w+)\.\w+$\|; #remove filename extention
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	151 my $interfaceName = $1;
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	152 $call_interfaces{$filename}->{$interfaceName} = 1;
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	153 if (exists $interface_name_to_header_path->{$interfaceName}) {
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	154 &getDataGear($interface_name_to_header_path->{$interfaceName});
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	155 &getCodeGear($interface_name_to_header_path->{$interfaceName});
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	156 }
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	157 } elsif (/^\_\_code (\w+)$(.)$(.)/) {
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	158 my $codeGearName = $1;
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	159 if ($search_cbc_from_code_gear_and_filename->($codeGearName, $filename)) {
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	160 &getCodeGear($search_cbc_from_code_gear_and_filename->($codeGearName, $filename));
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	161 }
226 68c03e7057d9 get arg mir3636 parents: 201 diff changeset	162 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	163 next;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	164 }
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	165
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	166 #this scope does parsing of header files
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	167 # gather type name and type
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	168 $dataGear{$name} .= $_;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	169 if (/^\s(.)\s+(\w+);$/ ) {
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	170 my $ttype = $1;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	171 my $tname = $2;
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	172 if ($ttype =~ /^(union\|struct\|const\|enu,)?\s*(\w+)/) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	173 if ($1 ne 'const') {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	174 $ttype = $2;
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	175 } else {
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	176 my $vname = $2;
d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	177 my $ttype = $1;
d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	178 if ($ttype =~ /(const\|enum)/) {
d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	179 $ttype = "$1 $vname";
d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	180 }
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	181 }
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	182 }
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	183 $described_data_gear = 1;
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	184 $var{$name}->{$tname} = $ttype;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	185 }
595 00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	186 if (/__code (\w+)/) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	187 next if $described_data_gear;
595 00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	188 my $args = $';
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	189 while ($args =~ /\s(struct\|union\|const\|enum)?\s([\w\[\]_]+)\?\s(\w+),?/g) {
595 00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	190 #$args eq (Impl* vm, pde_t* pgdir, char* init, uint sz, __code next(...));
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	191 my $const_type = $1;
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	192 my $ttype = $2;
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	193 my $tname = $3;
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	194
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	195 $ttype =~ s/(Impl\|Isa\|Type)/Data/;
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	196 if ($const_type =~ /(const\|enum)/) {
d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	197 $ttype = "$1 $ttype";
595 00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	198 }
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	199 $var{$name}->{$tname} = $ttype;
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	200 }
00429c9e0a45 bump PerlSciripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 548 diff changeset	201 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	202 if (/^}/) {
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	203 $inTypedef = 0;
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	204 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	205 }
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	206
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	207 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	208
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	209 sub getCodeGear {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	210 my ($filename) = @_;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	211 open my $fd,"<",$filename or die("can't open $filename $!");
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	212 my ($name,$impln);
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	213 while (<$fd>) {
633 8b295624ea4b bug fix drop interface whitespace anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 631 diff changeset	214 if (/^(\w+)\s(\)+ create(\w+)\(/) {
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	215 $name = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	216 $impln = $3;
633 8b295624ea4b bug fix drop interface whitespace anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 631 diff changeset	217 } elsif(/^typedef struct (\w+)\s<.>\s*{/) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	218 $name = $1;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	219 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	220 if (defined $name) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	221 if (/^\s\_\_code (\w+)$(.)$;/) {
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	222 my $args = $2;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	223 my $method = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	224 $code{$name}->{$method} = [];
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	225 while($args) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	226 # replace comma
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	227 $args =~ s/(^\s,\s)//;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	228 # continuation case
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	229 if ($args =~ s/^(\s)\_\_code\s+(\w+)$([^)])$//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	230 my $next = $2;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	231 my @args = split(/,/,$3);
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	232 push(@{$code{$name}->{$method}},"\_\_code $next");
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	233 } elsif ($args =~ s/^(struct\|union\|const)?\s(\w+)(\*)\s+(\w+)//) {
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	234 my $structType = $1;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	235 my $typeName = $2;
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	236 my $ptrType = $3;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	237 my $varName = $4;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	238 my $typeField = lcfirst($typeName);
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	239 if ($structType =~ /const/) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	240 $typeName = "$structType $typeName";
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	241 }
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	242 push(@{$code{$name}->{$method}},"$typeName$ptrType $varName");
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	243 } elsif ($args =~ s/(.*,)//) {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	244 } else {
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	245 last;
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	246 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	247 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	248 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	249 } elsif (/^\_\_code (\w+)$(.)$(.)/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	250 my $codeGearName = $1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	251 my $args = $2;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	252 my $inputCount = 0;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	253 my $outputCount = 0;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	254 my $inputIncFlag = 1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	255 while($args) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	256 if ($args =~ s/(^\s,\s)//) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	257 }
404 c5cd9888bf2a Fix bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 403 diff changeset	258 if ($args =~ s/^(\s)\_\_code\s+(\w+)$(.?)$//) {
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	259 $codeGear{$codeGearName}->{"code"}->{$2} = "\_\_code";
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	260 $inputIncFlag = 0;
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	261 my @outputs = split(/,/,$3);
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	262 for my $output (@outputs) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	263 if ($output =~ /\s(struct\|union\|const)?\s(\w+)(\*)?+\s(\w+)/) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	264 my $structType = $1;
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	265 my $type = $2;
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	266 my $varName = $4;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	267 if ($structType =~ /const/) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	268 $type = "$structType $type";
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	269 }
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	270 $codeGear{$codeGearName}->{"var"}->{$varName} = "$type $outputCount";
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	271 $outputCount++;
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	272 }
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	273 }
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	274 } elsif ($args =~ s/^(struct\|union\|const)?\s(\w+)(\)?+\s(\w+)// && $inputIncFlag) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	275 my $structType = $1;
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	276 my $type = $2;
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	277 my $varName = $4;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	278 if ($structType =~ /const/) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	279 $type = "$structType $type";
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	280 }
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	281 $codeGear{$codeGearName}->{"var"}->{$varName} = "$type $inputCount";
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	282 $inputCount++;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	283 } elsif ($args =~ s/(.*,)//) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	284 } else {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	285 last;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	286 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	287 }
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	288 $codeGear{$codeGearName}->{"input"} = $inputCount;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	289 $codeGear{$codeGearName}->{"output"} = $outputCount;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	290 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	291 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	292 }
c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	293
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	294 sub generateStub {
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	295 my($fd,$prevCodeGearName,$dataGearName) = @_;
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	296 print $fd "__code ", $prevCodeGearName ,"_stub(struct Context* $context_name) {\n";
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	297 print $fd $dataGearName;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	298 print $fd "\n} \n\n";
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	299 return 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	300 }
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	301
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	302 sub generateStubArgs {
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	303 my($codeGearName, $varName, $typeName, $ptrType, $typeField, $interface,$output) = @_;
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	304 my $varname1 = $output?"O_$varName":$varName;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	305 for my $n ( @{$dataGearVar{$codeGearName}} ) {
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	306 # we already have it
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	307 return 0 if ( $n eq $varname1);
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	308 }
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	309 push @{$dataGearVar{$codeGearName}}, $varname1;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	310 push @{$dataGearVarType{$codeGearName}}, $typeName;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	311 if ($typeName eq $implementation) {
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	312 # get implementation
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	313 $dataGearName{$codeGearName} .= "\t$typeName* $varName = ($typeName*)GearImpl($context_name, $interface, $varName);\n";
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	314 return 1;
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	315 }
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	316 # interface var
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	317 for my $ivar (keys %{$var{$interface}}) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	318 # input data gear field
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	319 if ($varName eq $ivar) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	320 if ($typeName eq $var{$interface}->{$ivar}) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	321 if ($output) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	322 $dataGearName{$codeGearName} .= "\t$typeName$ptrType* O_$varName = &Gearef($context_name, $interface)->$varName;\n";
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	323 $outputVar{$codeGearName} .= "\t$typeName$ptrType $varName __attribute__((unused)) = *O_$varName;\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	324 return 1;
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	325 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	326 $dataGearName{$codeGearName} .= "\t$typeName$ptrType $varName = Gearef($context_name, $interface)->$varName;\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	327 return 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	328 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	329 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	330 }
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	331
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	332 # interface continuation
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	333 for my $cName (keys %{$code{$interface}}) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	334 if ($varName eq $cName) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	335 # continuation field
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	336 $dataGearName{$codeGearName} .= "\tenum Code $varName = Gearef($context_name, $interface)->$varName;\n";
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	337 return 1;
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	338 }
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	339 }
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	340 # par goto var
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	341 for my $var (keys %{$codeGear{$codeGearName}->{"var"}}) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	342 # input data gear field
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	343 if ($varName eq $var) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	344 my ($type, $count) = split(/\s/, $codeGear{$codeGearName}->{"var"}->{$var});
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	345 if ($typeName eq $type) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	346 if ($output) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	347 $dataGearName{$codeGearName} .= "\t$typeName$ptrType* O_$varName = ($typeName $ptrType*)&${context_name}->data[${context_name}\->odg + $count];\n";
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	348 $outputVar{$codeGearName} .= "\t$typeName$ptrType $varName = *O_$varName;\n";
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	349 return 1;
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	350 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	351 $dataGearName{$codeGearName} .= "\t$typeName$ptrType $varName = &${context_name}->data[${context_name}\->idg + $count]->$typeName;\n";
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	352 return 1;
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	353 }
929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	354 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	355 }
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	356
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	357 # par goto continuation
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	358 for my $cName (keys %{$codeGear{$codeGearName}->{"code"}}) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	359 if ($varName eq $cName) {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	360 # continuation field
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	361 $dataGearName{$codeGearName} .= "\tenum Code $varName = ${context_name}\->next;\n";
389 d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	362 return 1;
d9a7620a1106 handle continuation in stub masataka parents: 388 diff changeset	363 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	364 }
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	365
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	366 # par goto continuation
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	367 # global or local variable case
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	368 if ($typeName eq "Code") {
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	369 $dataGearName{$codeGearName} .= "\tenum $typeName$ptrType $varName = Gearef(${context_name}, $interface)->$varName;\n";
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	370 return 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	371 }
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	372 $dataGearName{$codeGearName} .= "\t$typeName$ptrType $varName = Gearef($context_name, $typeName);\n";
4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	373 return 1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	374 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	375
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	376 sub generateDataGear {
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	377 my ($filename) = @_;
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	378 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	379
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	380 my $fn;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	381 if ($opt_o) {
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	382 $fn = $opt_o;
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	383 } else {
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	384 my $fn1 = $filename;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	385 $fn1 =~ s/\.cbc/.c/;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	386 my $i = 1;
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	387 $fn = "$dir/$fn1";
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	388 while ( -f $fn) {
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	389 $fn = "$dir/$fn1.$i";
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	390 $i++;
edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	391 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	392 }
259 195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	393 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	394 if (! -d $1) {
393 99c50356d917 fix generate_stub.pl mir3636 parents: 391 diff changeset	395 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	396 }
195518ab62fc fix type gathering pattern match in generate_stub.pl Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 255 diff changeset	397 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	398 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	399
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	400 my $prevCodeGearName;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	401 my $inTypedef = 0;
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	402 my $inStub = 0;
546 d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	403 my $hasParGoto = 0;
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	404 my $inMain = 0 ;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	405 my $inCode = 0 ;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	406 my %stub;
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	407 my $codeGearName;
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	408 my %localVarType;
254 edb3aff688d0 fix generator CLI Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 253 diff changeset	409
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	410 while (<$in>) {
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	411 if (! $inTypedef && ! $inStub && ! $inMain) {
633 8b295624ea4b bug fix drop interface whitespace anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 631 diff changeset	412 if (/^typedef struct (\w+)\s*\{/) {
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	413 $inTypedef = 1;
454 77de0283ac92 Debug RedBlackTree.cbc. ryokka parents: 447 diff changeset	414 } elsif (/^int main$(.*)$ \{/) {
418 a74bec89c198 generate main mir3636 parents: 415 diff changeset	415 $inMain = 1;
468 ac244346c85d Change used interface syntax from #include to #interface Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 467 diff changeset	416 } elsif(/^#interface "(.*)"/) {
462 8d7e5d48cad3 Running CPU examples Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 461 diff changeset	417 my $interfaceHeader = $1;
468 ac244346c85d Change used interface syntax from #include to #interface Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 467 diff changeset	418 # #interface not write
462 8d7e5d48cad3 Running CPU examples Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 461 diff changeset	419 next unless ($interfaceHeader =~ /context.h/);
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	420 } elsif (/^\_\_code (\w+)$(.)$(.)/) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	421 $inCode = 1;
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	422 %localVarType = {};
251 0ab52d6e2fd9 fix sub generateStub mir3636 parents: 250 diff changeset	423 $codeGearName = $1;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	424 my $args = $2;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	425 my $tail = $3;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	426 if ($codeGearName =~ /_stub$/) {
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	427 # don't touch already existing stub
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	428 $inStub = 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	429 $stub{$codeGearName} = 1;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	430 print $fd $_;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	431 next;
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	432 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	433 if (defined $prevCodeGearName) {
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	434 # stub is generated just before next CodeGear
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	435 if (defined $stub{$prevCodeGearName."_stub"}) {
8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	436 undef $prevCodeGearName;
278 23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	437 } else {
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	438 &generateStub($fd,$prevCodeGearName,$dataGearName{$prevCodeGearName});
23767f714f4a fix generate_stub mir3636 parents: 274 diff changeset	439 $stub{$prevCodeGearName."_stub"} = 1;
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	440 }
249 afa1e02e4386 fix generate stub mir3636 parents: 243 diff changeset	441 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	442 # analyzing CodeGear argument
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	443 # 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	444 # and passed to the CodeGear
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	445 # struct Implementaion needs special handling
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	446 # __code next(...) ---> enum Code next
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	447 $prevCodeGearName = $codeGearName;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	448 $dataGearVar{$codeGearName} = [];
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	449 $outputVar{$codeGearName} = "";
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	450 $outputArgs{$codeGearName} = {};
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	451 my $newArgs = "struct Context *${context_name},";
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	452 if ($args=~/^struct Context\s\\s*${context_name}/) {
305 ec0a5b4fba05 CUDAWorker Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 280 diff changeset	453 $newArgs = "";
ec0a5b4fba05 CUDAWorker Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 280 diff changeset	454 }
521 393e1d2d06f2 fix about no argument code gear of generate_stub.pl mir3636 parents: 509 diff changeset	455 if (!$args){
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	456 $newArgs = "struct Context *${context_name}";
521 393e1d2d06f2 fix about no argument code gear of generate_stub.pl mir3636 parents: 509 diff changeset	457 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	458 while($args) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	459 if ($args =~ s/(^\s,\s)//) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	460 $newArgs .= $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	461 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	462 # continuation case
280 2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	463 if ($args =~ s/^(\s)\_\_code\s+(\w+)$([^)])$//) {
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	464 my $next = $2;
2c2e4e597eb0 generate no compile errors mir3636 parents: 278 diff changeset	465 my @args = split(/,/,$3);
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	466 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	467 $newArgs .= "enum Code $next";
258 4fe19a06d666 generate next args mir3636 parents: 255 diff changeset	468 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	469 # analyze continuation arguments
2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	470 # 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	471 # output arguments are put into the Interface DataGear just before the goto
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	472 for my $arg (@args) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	473 $arg =~ s/^\s*//;
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	474 last if ($arg =~ /\.\.\./);
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	475 $arg =~ s/^(struct\|union\|const\|enum)?\s(\w+)(\*)\s(\w+)//;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	476 my $structType = $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	477 my $typeName = $2;
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	478 my $ptrType = $3;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	479 my $varName = $4;
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	480 if ($structType =~ /(const\|enum)/) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	481 $typeName = "$structType $typeName";
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	482 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	483 my $typeField = lcfirst($typeName);
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	484 push(@{$outputArgs{$codeGearName}->{$next}}, $varName);
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	485 if (generateStubArgs($codeGearName, $varName, $typeName, $ptrType, $typeField, $interface,1)) {
260 6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	486 $newArgs .= ",$structType $typeName **O_$varName";
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	487 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	488 }
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	489 } elsif ($args =~ s/^(struct\|union\|const\|enum)?\s(\w+)(\*)\s(\w+)//) {
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	490 my $structType = $1;
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	491 my $typeName = $2;
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	492 my $ptrType = $3;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	493 my $varName = $4;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	494 $newArgs .= $&; # assuming no duplicate
625 d02866506b9b ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 617 diff changeset	495 if ($structType =~ /(const\|enum)/) {
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	496 $typeName = "$structType $typeName";
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	497 }
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	498 my $typeField = lcfirst($typeName);
655 4846c5f8ccbf tweak generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 653 diff changeset	499 generateStubArgs($codeGearName, $varName, $typeName, $ptrType, $typeField, $interface,0);
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	500 } elsif ($args =~ s/(.*,)//) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	501 $newArgs .= $1;
255 79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	502 } else {
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	503 $newArgs .= $args;
79bbe2c63fb0 cmake generate c from cbc mir3636 parents: 254 diff changeset	504 last;
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	505 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	506 }
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	507 # generate goto statement from stub to the CodeGear in the buffer
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	508 $dataGearName{$codeGearName} .= "\tgoto $codeGearName(${context_name}";
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	509 for my $arg ( @{$dataGearVar{$codeGearName}}) {
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	510 $dataGearName{$codeGearName} .= ", $arg";
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	511 }
ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	512 $dataGearName{$codeGearName} .= ");";
262 2c56a9536c0d add comments Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 261 diff changeset	513 # generate CodeGear header with new arguments
253 ebc13549394c generate stubArgs mir3636 parents: 252 diff changeset	514 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	515 if ($outputVar{$codeGearName} ne "") {
324 d9887056ae5b Update Todo and Add comment to perl script one parents: 305 diff changeset	516 # output data var can be use before write
d9887056ae5b Update Todo and Add comment to perl script one parents: 305 diff changeset	517 # 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	518 print $fd $outputVar{$codeGearName};
6b5444bbea8a generated stub no comiple errors Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 259 diff changeset	519 }
250 8a8963ce9858 fix generate_stub mir3636 parents: 249 diff changeset	520 next;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	521 } elsif (! $inCode) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	522 s/new\s+(\w+)/\&ALLOCATE(${context_name}, \1)->\1/g; # replacing new
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	523 print $fd $_;
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	524 next;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	525 } elsif (/^(.)goto (\w+)\-\>(\w+)$(.)$;/) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	526 # handling goto statement
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	527 # 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	528 my $prev = $1;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	529 my $next = $2;
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	530 my $method = $3;
529 e5e3025f503a Generate twice stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 528 diff changeset	531 my $tmpArgs = $4;
548 4fdeb0afc187 tweak GearsExamples, generate_stubs anatofuz parents: 547 diff changeset	532 #$tmpArgs =~ s/$.*$//;
529 e5e3025f503a Generate twice stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 528 diff changeset	533 my @args = split(/,/,$tmpArgs);
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	534 if (! defined $dataGearVarType{$codeGearName}) {
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	535 print $fd $_ ;
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	536 next ;
32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	537 }
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	538 my @types = @{$dataGearVarType{$codeGearName}};
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	539 my $ntype;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	540 my $ftype;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	541 for my $v (@{$dataGearVar{$codeGearName}}) {
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	542 my $t = shift @types;
528 82ff74c2f162 Delete stub for bitonicSort Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 527 diff changeset	543 if ($v eq $next \|\| $v eq "O_$next") {
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	544 $ntype = $t;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	545 $ftype = lcfirst($ntype);
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	546 }
ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	547 }
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	548 if (!defined $ntype) {
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	549 $ntype = $localVarType{$next};
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	550 $ftype = lcfirst($ntype);
0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	551 }
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	552 print $fd "\tGearef(${context_name}, $ntype)->$ftype = (union Data*) $next;\n";
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	553 # Put interface argument
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	554 my $prot = $code{$ntype}->{$method};
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	555 my $i = 1;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	556 for my $arg (@args) {
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	557 my $pType;
eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	558 my $pName;
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	559 my $p = @$prot[$i];
457 2b36a1878c6f Refactor TaskManagerImpl Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 447 diff changeset	560 next if ($p eq $arg);
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	561 $p =~ s/^(.*)\s(\w+)//;
415 eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	562 $pType = $1;
eec6553a2aa6 fix redblacktree mir3636 parents: 407 diff changeset	563 $pName = $2;
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	564 $arg =~ s/^(\s)*(\w+)/$2/;
590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	565 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	566 if ($arg =~ /(\w+)$.*$/) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	567 print $fd "\tGearef(${context_name}, $ntype)->$pName = $1;\n";
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	568 } else {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	569 print $fd "\tGearef(${context_name}, $ntype)->$pName = C_$arg;\n";
444 0c024ea61601 Using cas interface but occurred warning Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 442 diff changeset	570 }
466 831b7f6fd687 Fix warning pointer type Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 464 diff changeset	571 } elsif ($pType =~ /Data\**$/){
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	572 print $fd "\tGearef(${context_name}, $ntype)->$pName = (union $pType) $arg;\n";
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	573 } else {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	574 print $fd "\tGearef(${context_name}, $ntype)->$pName = $arg;\n";
387 590f03af1a2c fix getCodeGear mir3636 parents: 385 diff changeset	575 }
385 c1512f358c37 add getCodeGear to generate_stub.pl mir3636 parents: 384 diff changeset	576 $i++;
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	577 }
641 b486bf9d1280 update generate_.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>* parents: 633 diff changeset	578 print $fd "${prev}${context_name}->before = C_$codeGearName;\n";
b486bf9d1280 update generate_.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>* parents: 633 diff changeset	579 print $fd "${prev}goto meta(${context_name}, $next->$method);\n";
384 ee5d2b1685d7 Fix perlscript Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 383 diff changeset	580 next;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	581 } elsif(/^(.)par goto (\w+)$(.)$;/) {
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	582 # handling par goto statement
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	583 # convert it to the parallel
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	584 my $prev = $1;
bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	585 my $codeGearName = $2;
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	586 my $args = $3;
401 408b4aab7610 Supported par goto iterate statement for perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 400 diff changeset	587 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	588 my $outputCount = $codeGear{$codeGearName}->{'output'};
403 83c9aeb1fe3e Generate MultiDimIterator by perl script Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 402 diff changeset	589 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	590 # parse examples 'par goto(.., iterate(10), exit);'
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	591 if ($args =~ /iterate$(.*)?$,/) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	592 @iterateCounts = split(/,/,$1);;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	593 $inputCount--;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	594 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	595 # replace iterate keyword
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	596 $args =~ s/iterate$(.*)?$,//;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	597 my @dataGears = split(/,\s*/, $args);
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	598 my $nextCodeGear = pop(@dataGears);
546 d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	599 if (! $hasParGoto) {
d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	600 $hasParGoto = 1;
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	601 print $fd "${prev}struct Element* element;\n";
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	602 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	603 my $initTask = << "EOFEOF";
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	604 ${prev}${context_name}\->task = NEW(struct Context);
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	605 ${prev}initContext(${context_name}\->task);
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	606 ${prev}${context_name}\->task->next = C_$codeGearName;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	607 ${prev}${context_name}\->task->idgCount = $inputCount;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	608 ${prev}${context_name}\->task->idg = ${context_name}\->task->dataNum;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	609 ${prev}${context_name}\->task->maxIdg = ${context_name}\->task->idg + $inputCount;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	610 ${prev}${context_name}\->task->odg = ${context_name}\->task->maxIdg;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	611 ${prev}${context_name}\->task->maxOdg = ${context_name}\->task->odg + $outputCount;
396 bba401f93dcd Add handle par goto statement Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 393 diff changeset	612 EOFEOF
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	613 print $fd $initTask;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	614 if (@iterateCounts) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	615 print $fd "${prev}${context_name}\->task->iterate = 0;\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	616 my $len = @iterateCounts;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	617 if ($len == 1) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	618 print $fd "${prev}${context_name}\->task->iterator = createMultiDimIterator(${context_name}, $iterateCounts[0], 1, 1);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	619 } elsif ($len == 2) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	620 print $fd "${prev}${context_name}\->task->iterator = createMultiDimIterator(${context_name}, $iterateCounts[0], $iterateCounts[1], 1);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	621 } elsif ($len == 3) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	622 print $fd "${prev}${context_name}\->task->iterator = createMultiDimIterator(${context_name}, $iterateCounts[0], $iterateCounts[1], $iterateCounts[2]);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	623 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	624 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	625 for my $dataGear (@dataGears) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	626 print $fd "${prev}GET_META($dataGear)->wait = createSynchronizedQueue(${context_name});\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	627 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	628 for my $i (0..$inputCount-1) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	629 print $fd "${prev}${context_name}\->task->data[${context_name}\->task->idg+$i] = (union Data*)@dataGears[$i];\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	630 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	631 for my $i (0..$outputCount-1) {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	632 print $fd "${prev}${context_name}\->task->data[${context_name}\->task->odg+$i] = (union Data*)@dataGears[$inputCount+$i];\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	633 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	634 my $putTask = << "EOFEOF";
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	635 ${prev}element = &ALLOCATE(${context_name}, Element)->Element;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	636 ${prev}element->data = (union Data*)${context_name}\->task;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	637 ${prev}element->next = ${context_name}\->taskList;
0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	638 ${prev}${context_name}\->taskList = element;
398 fc4fcd441700 Fix spanwTasks Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 397 diff changeset	639 EOFEOF
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	640 print $fd $putTask;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	641 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	642 } elsif (/^(.)goto (\w+)$(.)$;/) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	643 # handling goto statement
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	644 # convert it to the meta call form with two arugments, that is context and enum Code
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	645 my $prev = $1;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	646 my $next = $2;
527 929aa06a12f9 Generate par goto code gear stub Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 521 diff changeset	647 my @args = split(/,/, $3);
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	648 my $v = 0;
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	649 my $arg_context = $context_name;
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	650 if ($prev =~ /kernel/) {
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	651 $prev = "";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	652 $arg_context = "kernel";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	653 }
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	654
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	655 for my $n ( @{$dataGearVar{$codeGearName}} ) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	656 # continuation arguments
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	657 $v = 1 if ( $n eq $next);
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	658 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	659 if ($v \|\| defined $code{$interface}->{$next}) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	660 # write continuation's arguments into the interface arguments
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	661 # we may need a commit for a shared DataGear
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	662 for my $arg ( @{$outputArgs{$codeGearName}->{$next}} ) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	663 my $v = shift(@args);
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	664 print $fd "\t*O_$arg = $v;\n";
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	665 }
546 d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	666 if ($hasParGoto) {
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	667 print $fd "${prev}Gearef(${arg_context}, TaskManager)->taskList = ${arg_context}->taskList;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	668 print $fd "${prev}Gearef(${arg_context}, TaskManager)->next1 = C_$next;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	669 print $fd "${prev}goto meta(${arg_context}, C_$next);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	670 } else {
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	671 print $fd "${prev}${arg_context}->before = C_$codeGearName;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	672 print $fd "${prev}goto meta(${arg_context}, $next);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	673 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	674 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	675 }
546 d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	676 if ($hasParGoto) {
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	677 print $fd "${prev}Gearef(${arg_context}, TaskManager)->taskList = ${arg_context}\->taskList;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	678 print $fd "${prev}Gearef(${arg_context}, TaskManager)->next1 = C_$next;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	679 print $fd "${prev}goto parGotoMeta(${arg_context}, C_$next);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	680 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	681 } elsif ($next eq "meta") {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	682 print $fd $_;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	683 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	684 } else {
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	685 print $fd "${prev}${arg_context}\->before = C_$codeGearName;\n";
dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	686 print $fd "${prev}goto meta(${arg_context}, C_$next);\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	687 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	688 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	689 } elsif(/^.(struct\|union)?\s(\w+)\\s(\w+)\s?[=;]/) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	690 my $type = $2;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	691 my $varName = $3;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	692 $localVarType{$varName} = $type;
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	693 s/new\s+(\w+)/\&ALLOCATE(${context_name}, \1)->\1/g; # replacing new
462 8d7e5d48cad3 Running CPU examples Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 461 diff changeset	694 } elsif(/^}/) {
546 d8e87b3b2be0 fix goto parGotoMeta mir3636 parents: 529 diff changeset	695 $hasParGoto = 0;
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	696 } else {
630 0baef27a18f4 common perl scripts anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 629 diff changeset	697 s/new\s+(\w+)/\&ALLOCATE(${context_name}, \1)->\1/g; # replacing new
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	698 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	699 # gather type name and type
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	700 } elsif ($inMain) {
631 5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	701 if (/^(.*)goto start_code$main_${context_name}$;/) {
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	702 print $fd $_;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	703 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	704 } elsif (/^(.)goto (\w+)$(.)$;/) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	705 my $prev = $1;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	706 my $next = $2;
631 5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	707 print $fd "${prev}struct Context* main_${context_name} = NEW(struct Context);\n";
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	708 print $fd "${prev}initContext(main_${context_name});\n";
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	709 print $fd "${prev}main_${context_name}->next = C_$next;\n";
5189c60b9707 update gears tools anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 630 diff changeset	710 print $fd "${prev}goto start_code(main_${context_name});\n";
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	711 next;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	712 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	713 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	714 if (/^}/) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	715 $inStub = 0;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	716 $inTypedef = 0;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	717 $inMain = 0;
598 32388e7467bc pull from xv6 anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 596 diff changeset	718 $inCode = 0;
461 6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	719 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	720 print $fd $_;
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	721 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	722 if (defined $prevCodeGearName) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	723 if (!defined $stub{$prevCodeGearName."_stub"}) {
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	724 $stub{$prevCodeGearName."_stub"} = &generateStub($fd,$prevCodeGearName,$dataGearName{$codeGearName});
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	725 }
6b71cf5b1c22 Change Interface files from cbc to header Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> parents: 458 diff changeset	726 }
194 081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	727 }
081607dcf893 create generate_stub.pl mir3636 parents: diff changeset	728
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	729 sub create_interface_name_to_header_path {
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	730 my $search_root = shift;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	731 my $files = Gears::Util->find_headers_from_path($search_root);
661 b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	732 my $interface_name2headerpath = {};
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	733
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	734 for my $file (@{$files}) {
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	735 if ($file =~ m\|/(\w+)\.\w+$\|) {
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	736 my $file_name = $1;
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	737 $interface_name2headerpath->{$file_name} = $file;
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	738 }
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	739 }
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	740
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	741 return $interface_name2headerpath;
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	742 }
b6a3e1638f3a Search headerfile first at generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 658 diff changeset	743
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	744 sub create_cbc_name_to_source_path {
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	745 # create this structure
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	746 #
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	747 # {
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	748 # SemaphoreImpl.cbc [
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	749 # [0] "/Users/anatofuz/src/firefly/hg/Gears/Gears/src/parallel_execution/SemaphoreImpl.cbc",
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	750 # [1] "/Users/anatofuz/src/firefly/hg/Gears/Gears/src/parallel_execution/examples/boundedBuffer/SemaphoreImpl.cbc"
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	751 # ],
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	752 # SingleLinkedQueue.cbc [
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	753 # [0] "/Users/anatofuz/src/firefly/hg/Gears/Gears/src/parallel_execution/SingleLinkedQueue.cbc"
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	754 # ],
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	755 # }
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	756 my $search_root = shift;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	757 my $files = Gears::Util->find_cbc_sources_from_path($search_root);
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	758
663 24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	759 my $cbc_name2_source_path = {};
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	760 for my $file (@{$files}) {
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	761 my $cbc_name = basename $file;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	762 $cbc_name =~ s/\.cbc//;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	763 push(@{$cbc_name2_source_path->{$cbc_name}},$file);
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	764 }
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	765 return $cbc_name2_source_path;
24571f9c6187 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 661 diff changeset	766 }
647 dac9cc4dd52d bump generate_stub.pl anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 646 diff changeset	767
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	768 sub create_search_cbc_file_from_code_gear_name_and_filename {
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	769 my $search_root = shift;
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	770 my $cbc_name2_source_path = create_cbc_name_to_source_path($search_root);
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	771
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	772 # return sub is create clojure
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	773 return sub {
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	774 my ($codeGearName, $filename) = @_;
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	775 my $cbc_files_ref = $cbc_name2_source_path->{$codeGearName} // [];
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	776 my @cbc_files = @$cbc_files_ref;
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	777
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	778 if (scalar(@cbc_files) == 0) { # Not Found
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	779 return 0; #false case
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	780 }
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	781
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	782 if (scalar(@cbc_files) == 1) { # this case $codeGearName.cbc is single (SingleLinkedQueue.cbc)
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	783 return shift @cbc_files; # return "/Users/anatofuz/src/firefly/hg/Gears/Gears/src/parallel_execution/SingleLinkedQueue.cbc"
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	784 }
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	785
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	786
669 e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	787 my $cbc_dir_name = dirname $filename;
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	788
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	789 for my $cbc_file (@cbc_files) {
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	790 if ($cbc_file =~ /$cbc_dir_name/) {
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	791 return $cbc_file;
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	792 }
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	793 }
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	794
e8800c60811a fix search cbc file anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 668 diff changeset	795 return 0; # Not found
668 6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	796 }
6c07eb2d4d39 ... anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> parents: 665 diff changeset	797 }

Mercurial > hg > Gears > Gears

annotate src/parallel_execution/generate_stub.pl @ 669:e8800c60811a