Mercurial > hg > Members > kono > Cerium

annotate example/word_count/spe/Exec.cc @ 653:94c6b7ea87c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
vectorize word_count.
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 01 Dec 2009 10:39:04 +0900
parents ab866bc8a624
children 6929d888fd69
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
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
9 // typedef char *cvector __attribute__ ((vector_size (16)));
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
10 //
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
11 typedef char *cvector;
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
12
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
13 static int
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
14 run(SchedTask *s, void *rbuf, void *wbuf)
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
15 {
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
16 cvector i_data ;
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
17 i_data = (cvector)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
18 unsigned long long *o_data = (unsigned long long*)s->get_output(wbuf, 0);
626
ab866bc8a624 64bit mode compatibility on Cell
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 467
diff changeset
19 int length = (long)s->get_param(0);
ab866bc8a624 64bit mode compatibility on Cell
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 467
diff changeset
20 int word_flag = (long)s->get_param(1);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
21 int word_num = 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
22 int line_num = 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
23 int i;
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
24 static char spaces[] = {0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20};
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
25 cvector space = (cvector)spaces;
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
26 static char newlines []= {0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a,0x0a};
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
27 cvector newline = (cvector)newlines;
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
28
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
29
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
30 /*先頭の文字まで、飛ぶルーチン*/
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
31 for(i = 0; i < length; i++) {
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
32 if ((i_data[i] != space[i%16]) && (i_data[i] != newline[i%16])) {
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
33 //s->printf("[SPE%d] break[%d] %d\n",id,i,i_data[i]);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
34 break;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
35 }
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
36 //s->printf("[SPE%d]%c",id,i_data[start_num]);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
37 word_num += word_flag;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
38 word_flag = 0;
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
39 line_num += (i_data[i] == newline[i%16]);
393
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 word_flag = 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
43
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
44 for (; i < length; i++) {
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
45
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
46 //s->printf("[SPE%d]%c",id,i_data[i]);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
47
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
48
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
49 if (i_data[i] == space[i%16]) {
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
50 //s->printf("スペース\n");
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
51 word_flag = 1;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
52 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
53
653
94c6b7ea87c2 vectorize word_count.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 626
diff changeset
54 else if (i_data[i] == newline[i%16]) {
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
55 //s->printf("改行\n");
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
56 line_num += 1;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
57 word_flag = 1;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
58 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
59
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
60 else {
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
61 word_num += word_flag;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
62 word_flag = 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
63 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
64
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
65 }
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
66
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
67 word_num += word_flag;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
68
467
44c0bce54dcf fix all examples. test_render is not working now.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 394
diff changeset
69 //s->printf("%d %d\n",word_num,line_num);
393
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
70
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
71 o_data[0] = (unsigned long long)word_num;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
72 o_data[1] = (unsigned long long)line_num;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
73
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
74 return 0;
72b73beb3325 add word_count
e065725@localhost.localdomain
parents:
diff changeset
75 }