Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > ListOfArrays
view ListOfArrays.c @ 0:bc4b3434367f
bare bones - create, add, iter
| author | Nina Engelhardt <nengel@mailbox.tu-berlin.de> |
|---|---|
| date | Mon, 19 Dec 2011 13:25:30 +0100 |
| parents | |
| children | fd441e4d0908 |
line source
2 #include "ListOfArrays.h"
3 #include "../vmalloc.h"
5 ListOfArrays* makeListOfArrays(size_t entry_size, int num_entries_per_block){
6 ListOfArrays* newLoA = (ListOfArrays*) VMS__malloc(sizeof(ListOfArrays));
7 newLoA->first = NULL;
8 newLoA->last = NULL;
9 newLoA->entry_size = entry_size;
10 newLoA->num_entries_per_fragment = num_entries_per_block;
11 newLoA->next_free_index = 0;
13 return newLoA;
14 }
16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){
17 ArrayFragment* current = list->first;
18 while(current->next){
19 uintptr_t p;
20 for(p = current->data; p < current->data + list->num_entries_per_fragment * list->entry_size; p += list->entry_size){
21 (*fnPtr)(p);
22 }
23 current = current->next;
24 }
25 //assert(current == list->last);
26 int offset_in_last = list->next_free_index % list->num_entries_per_fragment;
27 uintptr_t p;
28 for(p = current->data; p < current->data + offset_in_last * list->entry_size; p += list->entry_size){
29 (*fnPtr)(p);
30 }
31 }
