Mercurial > hg > Gears > Gears

changeset 961:359f22dec55b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
continuation argments impl
author ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
date Wed, 17 Mar 2021 19:46:15 +0900
parents fe4e0a562aa3
children 359913ba0175
files src/parallel_execution/examples/wc/WcImpl.cbc src/parallel_execution/generate_stub.pl
diffstat 2 files changed, 13 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/examples/wc/WcImpl.cbc	Wed Mar 17 18:06:57 2021 +0900
+++ b/src/parallel_execution/examples/wc/WcImpl.cbc	Wed Mar 17 19:46:15 2021 +0900
@@ -35,17 +35,17 @@
 
 __code countUp(struct WcImpl* wc,__code next(WcResult* result, ...)) {
     /*
-    Read data from file 
+    Read data from file
     if eof
-      setup result 
-      goto next(WcResult* result, ...);
-      
+      setup result
+      GOTO next(WcResult* result, ...);
+
     befor if eof
-    Count new line 
-    Count word   
+    Count new line
+    Count word
     Count char
-    TODO 
-    */  
+    TODO
+    */
   goto countUp(wc, next);
 }
 
--- a/src/parallel_execution/generate_stub.pl	Wed Mar 17 18:06:57 2021 +0900
+++ b/src/parallel_execution/generate_stub.pl	Wed Mar 17 19:46:15 2021 +0900
@@ -579,7 +579,11 @@
         $dataGearName{$codeGearName} .= "\tenum $typeName$ptrType $varName = Gearef(${context_name}, $interfaceName)->$varName;\n";
         return 1;
     }
-    $dataGearName{$codeGearName} .= "\t$typeName$ptrType $varName = Gearef($context_name, $typeName);\n";
+    if ($output) {    
+      $dataGearName{$codeGearName} .= "\t$typeName${ptrType}* O_$varName = &Gearef($context_name, $interfaceName)->$varName;\n";
+    } else {
+      $dataGearName{$codeGearName} .= "\t$typeName$ptrType $varName = Gearef($context_name, $typeName);\n";
+    }
     return 1;
 }