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

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 source

#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);
}