ProgramExample

1. typedef int data_t;  
2.   
3. typedef struct {  
4.     long int len;  
5.     data_t* data;  
6. }vec_rec, *vec_ptr;  
7.   
8. #define IDENT 0  
9. #define OP +  
10.   
11. //#define IDENT 1  
12. //#define OP *  
13.   
14. vec_ptr new_vec(long int len)  
15. {  
16.     vec_ptr result = (vec_ptr)malloc(sizeof(vec_rec));  
17.     if (NULL == result)  
18.     {  
19.         return NULL;  
20.     }  
21.     result->len = len;  
22.   
23.     if (len > 0)  
24.     {  
25.         data_t* data = (data_t*)calloc(len, sizeof(data_t));  
26.         if (NULL == data)  
27.         {  
28.             free((void*)result);  
29.             return NULL;  
30.         }  
31.         result->data = data;  
32.     }     
33.     else  
34.     {  
35.         result->data = NULL;  
36.     }  
37.     return result;  
38. }  
39.   
40. int get_vec_element(vec_ptr v, long int index, data_t* dest)  
41. {  
42.     if (index < 0 || index >= v->len)  
43.     {  
44.         return 0;  
45.     }  
46.   
47.     *dest = v->data[index];  
48.     return 1;  
49. }  
50.   
51. long int vec_length(vec_ptr v)  
52. {  
53.     return v->len;  
54. }  
55.   
56. void combine1(vec_ptr v, data_t* dest)  
57. {  
58.     long int i;  
59.     *dest = IDENT;  
60.     for (i = 0; i < vec_length(v); ++i)  
61.     {  
62.         data_t val;  
63.         get_vec_element(v, i, &val);  
64.         *dest = *dest OP val;  
65.     }  
66. }