Mercurial > hg > Members > kono > Cerium

annotate example/word_count/spe/Exec.cc @ 804:7ac03079a2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author yutaka@localhost.localdomain
date Fri, 21 May 2010 17:58:43 +0900
parents ccf78a465459
children a8b6ee80c108
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
1 #include <stdio.h>
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
2 #include <string.h>
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
3 #include "Exec.h"
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
4 #include "Func.h"
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
5
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
6 /* これは必須 */
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
7 SchedDefineTask(Exec);
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
8
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
9 static int
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
10 run(SchedTask *s, void *rbuf, void *wbuf)
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
11 {
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
12 char *i_data = (char*)s->get_input(rbuf, 0);
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
13 unsigned long long *o_data = (unsigned long long*)s->get_output(wbuf, 0);
786
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
14 int length = (int)s->get_param(0);
804
yutaka@localhost.localdomain
parents: 786
diff changeset
15 //int length = s->read_size();
786
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
16 int word_flag = 1-(int)s->get_param(1);
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
17 //int word_flag = (int)s->get_param(1);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
18 int word_num = 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
19 int line_num = 0;
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
20 int i ;
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
21
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
22 word_num -= word_flag;
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
23
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
24 for (i=0; i < length; i++) {
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
25
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
26 //s->printf("[SPE%d]%c",id,i_data[i]);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
27
786
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
28 if ((i_data[i] != 0x20) && (i_data[i] != 0x0A)) {
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
29 //s->printf("文字 数 = %d\n", word_num + word_flag);
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
30 word_num += word_flag;
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
31 word_flag = 0;
786
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
32 } else if (i_data[i] == 0x20) {
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
33 //printf("スペース\n");
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
34 word_flag = 1;
786
ccf78a465459 fix early free of TaskArray, add SchedTaskArrayNop stage.
yutaka@localhost.localdomain
parents: 666
diff changeset
35 } else if (i_data[i] == 0x0A) {
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
36 //printf("改行\n");
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
37 line_num += 1;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
38 word_flag = 1;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
39 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
40
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
41 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
42
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
43 word_num += word_flag;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
44
666
4615489c5faa simplify word_count
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 663
diff changeset
45 // printf("PPE word %d line %d\n",word_num,line_num);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
46
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
47 o_data[0] = (unsigned long long)word_num;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
48 o_data[1] = (unsigned long long)line_num;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
49
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
50 return 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
51 }