Mercurial > hg > Gears > Gears

changeset 873:b498939a5574

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sat, 23 Jan 2021 16:54:26 +0900
parents d9b2def9c904
children 7294be69d520
files src/parallel_execution/generate_stub.pl
diffstat 1 files changed, 17 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Sat Jan 23 16:41:29 2021 +0900
+++ b/src/parallel_execution/generate_stub.pl	Sat Jan 23 16:54:26 2021 +0900
@@ -143,12 +143,12 @@
                 $generic{$name} = \split(/,/,$2);
             } elsif (/^typedef struct (\w+)/) {
                 debug_print("getDataGear",__LINE__, $_) if $opt_debug;
-                $inTypedef = 1;
-                $name = $1;
+                $inTypedef       = 1;
+                $name            = $1;
                 $dataGear{$name} = $_;
-                $var{$name} = {};
-                $code{$name} = {};
-                $generic{$name} = [];
+                $var{$name}      = {};
+                $code{$name}     = {};
+                $generic{$name}  = [];
             } elsif (/^(\w+)(\*)+ create(\w+)\(/) { # this case implementation constructor
                 debug_print("getDataGear",__LINE__, $_) if $opt_debug;
               #if (defined $implInterfaceInfo->{interface} ) {
@@ -196,10 +196,10 @@
                 }
                 $implName =~ s/(\w+)\.\w+$/$1/;
 
-                $implInterfaceInfo->{isImpl} = 1;
-                $implInterfaceInfo->{interface} = $interfaceName;
-                $implInterfaceInfo->{implementation} = $implName;
-                $implInterfaceInfo->{genConstructor} = 1;
+                $implInterfaceInfo->{isImpl}              = 1;
+                $implInterfaceInfo->{interface}           = $interfaceName;
+                $implInterfaceInfo->{implementation}      = $implName;
+                $implInterfaceInfo->{genConstructor}      = 1;
                 $implInterfaceInfo->{parsedInterfaceInfo} = Gears::Interface->detailed_parse($interfacePATH);
 
             } elsif (/^\_\_code (\w+)\((.*)\)(.*)/) {
@@ -508,9 +508,9 @@
 sub generateStubArgs {
     my($codeGearName, $varName, $typeName, $ptrType, $typeField, $implInterfaceInfo,$output) = @_;
 
-    my $isImpl = $implInterfaceInfo->{isImpl};
+    my $isImpl        = $implInterfaceInfo->{isImpl};
     my $interfaceName = $implInterfaceInfo->{interface};
-    my $implName = $implInterfaceInfo->{implementation};
+    my $implName      = $implInterfaceInfo->{implementation};
 
     my $varname1 = $output ? "O_$varName" : $varName;
     for my $n ( @{$dataGearVar{$codeGearName}} ) {
@@ -620,11 +620,11 @@
     open my $fd,">",$fn or die("can't write $fn $!");
 
     my $prevCodeGearName;
-    my $inTypedef = 0;
-    my $inStub = 0;
+    my $inTypedef  = 0;
+    my $inStub     = 0;
     my $hasParGoto = 0;
-    my $inMain = 0 ;
-    my $inCode = 0 ;
+    my $inMain     = 0 ;
+    my $inCode     = 0 ;
     my $codeGearName;
     my %localVarType;
 
@@ -1241,8 +1241,8 @@
   # Put interface argument
   my $prot = $code{$ntype}->{$method};
   my $i = 1;
-  my $nextType = $currentCodeGearInfo->{localVar}->{$next}  // $currentCodeGearInfo->{arg}->{$next};
-  my $nextTypePath = $headerNameToInfo->{$nextType}->{path};
+  my $nextType           = $currentCodeGearInfo->{localVar}->{$next}  // $currentCodeGearInfo->{arg}->{$next};
+  my $nextTypePath       = $headerNameToInfo->{$nextType}->{path};
   my $parsedNextTypePath = Gears::Interface->detailed_parse($nextTypePath);
 
   unless (exists $parsedNextTypePath->{codeName}->{$method}) {