annotate src/metaCreateTask.cbc @ 1:73127e0ab57c

(none)
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:38:08 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
1 __code code1(struct Context *context, Integer *integer1, Integer *integer2, Integer *output) {
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
2 // create context
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
3 context->task = NEW(struct Context);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
4 initContext(context->task);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
5
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
6 // set task parameter
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
7 context->task->next = C_add;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
8 context->task->idgCount = 2;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
9 context->task->idg = context->task->dataNum;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
10 context->task->maxIdg = context->task->idg + 2;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
11 context->task->odg = context->task->maxIdg;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
12 context->task->maxOdg = context->task->odg + 1;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
13
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
14 // create Data Gear Queue
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
15 GET_META(integer1)->wait = createSynchronizedQueue(context);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
16 GET_META(integer2)->wait = createSynchronizedQueue(context);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
17 GET_META(integer3)->wait = createSynchronizedQueue(context);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
18
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
19 // set Input Data Gear
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
20 context->task->data[context->task->idg+0] = (union Data*)integer1;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
21 context->task->data[context->task->idg+1] = (union Data*)integer2;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
22
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
23 // set Output Data Gear
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
24 context->task->data[context->task->odg+0] = (union Data*)integer3;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
25
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
26 // add taskList Element
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
27 struct Element* element;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
28 element = &ALLOCATE(context, Element)->Element;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
29 element->data = (union Data*)context->task;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
30 element->next = context->taskList;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
31 context->taskList = element;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
32
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
33 // set TaskManager->spawns parameter
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
34 Gearef(context, TaskManager)->taskList = context->taskList;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
35 Gearef(context, TaskManager)->next1 = C_code2;
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
36 goto meta(context, C_code2);
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
37 }
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
38
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
39 // code gear
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
40 __code add(Integer *integer1, Integer *integer2, next(Integer *output, ...)) {
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
41 ....
soto@cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
42 }