Mercurial > hg > GearsTemplate

diff src/parallel_execution/test/printIterator.cbc @ 401:408b4aab7610

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Supported par goto iterate statement for perl script
author Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp>
date Tue, 29 Aug 2017 21:50:57 +0900
parents
children e958a409943c
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/parallel_execution/test/printIterator.cbc	Tue Aug 29 21:50:57 2017 +0900
@@ -0,0 +1,12 @@
+#include "../../context.h"
+#include <stdio.h>
+__code printIterator(struct Integer* x, __code next(...)) {
+    printf("%d\n", x->value);
+    goto meta(context, next);
+}
+
+__code printIterator_stub(struct Context* context) {
+    goto printIterator(context,
+                       &context->data[context->idg]->Integer,
+                       context->next);
+}