Mercurial > hg > Gears > GearsAgda
comparison src/parallel_execution/generate_stub.pl @ 457:2b36a1878c6f
Refactor TaskManagerImpl
| author | Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Thu, 14 Dec 2017 07:44:21 +0900 |
| parents | 57132ef16009 |
| children | 3025d00eb87d |
comparison
equal
deleted
inserted
replaced
| 456:95f58f2b2c0e | 457:2b36a1878c6f |
|---|---|
| 405 my $i = 1; | 405 my $i = 1; |
| 406 for my $arg (@args) { | 406 for my $arg (@args) { |
| 407 my $pType; | 407 my $pType; |
| 408 my $pName; | 408 my $pName; |
| 409 my $p = @$prot[$i]; | 409 my $p = @$prot[$i]; |
| 410 next if ( $p eq $arg); | 410 next if ($p eq $arg); |
| 411 $p =~ s/^(.*)\s(\w+)//; | 411 $p =~ s/^(.*)\s(\w+)//; |
| 412 $pType = $1; | 412 $pType = $1; |
| 413 $pName = $2; | 413 $pName = $2; |
| 414 $arg =~ s/^(\s)*(\w+)/$2/; | 414 $arg =~ s/^(\s)*(\w+)/$2/; |
| 415 if ($pType =~ s/\_\_code$//) { | 415 if ($pType =~ s/\_\_code$//) { |