Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > ListOfArrays
annotate ListOfArrays.c @ 4:53df05eb8d43
clean up debugging fns
| author | Nina Engelhardt <nengel@mailbox.tu-berlin.de> |
|---|---|
| date | Wed, 21 Dec 2011 16:55:02 +0100 |
| parents | ef1712d6d7d8 |
| children | 79982974d355 |
| rev | line source |
|---|---|
| nengel@0 | 1 |
| nengel@0 | 2 #include "ListOfArrays.h" |
| nengel@0 | 3 #include "../vmalloc.h" |
| nengel@0 | 4 |
| nengel@0 | 5 ListOfArrays* makeListOfArrays(size_t entry_size, int num_entries_per_block){ |
| nengel@0 | 6 ListOfArrays* newLoA = (ListOfArrays*) VMS__malloc(sizeof(ListOfArrays)); |
| nengel@2 | 7 newLoA->dim1info = makePrivDynArrayOfSize(&(newLoA->dim1),8); |
| nengel@3 | 8 |
| nengel@0 | 9 newLoA->entry_size = entry_size; |
| nengel@0 | 10 newLoA->num_entries_per_fragment = num_entries_per_block; |
| nengel@0 | 11 newLoA->next_free_index = 0; |
| nengel@0 | 12 |
| nengel@0 | 13 return newLoA; |
| nengel@0 | 14 } |
| nengel@0 | 15 |
| nengel@0 | 16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){ |
| nengel@2 | 17 int n; |
| nengel@1 | 18 uintptr_t p; |
| nengel@2 | 19 for(n=0;n<list->dim1info->numInArray -1; n++){ |
| nengel@2 | 20 for(p = (uintptr_t) (list->dim1)[n]; p < (uintptr_t) (list->dim1)[n] + list->num_entries_per_fragment * list->entry_size; p += list->entry_size){ |
| nengel@1 | 21 (*fnPtr)((void*)p); |
| nengel@0 | 22 } |
| nengel@0 | 23 } |
| nengel@0 | 24 int offset_in_last = list->next_free_index % list->num_entries_per_fragment; |
| nengel@2 | 25 n = list->dim1info->numInArray - 1; |
| nengel@2 | 26 if (n >= 0){ |
| nengel@2 | 27 for(p = (uintptr_t)(list->dim1)[n]; p < (uintptr_t)(list->dim1)[n] + offset_in_last * list->entry_size; p += list->entry_size){ |
| nengel@2 | 28 (*fnPtr)((void*)p); |
| nengel@2 | 29 } |
| nengel@2 | 30 } |
| nengel@2 | 31 } |
| nengel@1 | 32 |
| nengel@3 | 33 void freeListOfArrays(ListOfArrays* list){ |
| nengel@3 | 34 freeDynArrayDeep(list->dim1info,&VMS__free); |
| nengel@3 | 35 VMS__free((void*)list); |
| nengel@3 | 36 } |
| nengel@3 | 37 |
| nengel@2 | 38 /* |
| nengel@2 | 39 void addToListOfArraysDependency(Dependency value, ListOfArrays* list){ |
| nengel@2 | 40 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment; |
| nengel@2 | 41 if(offset_in_fragment == 0){ |
| nengel@2 | 42 void* newBlock = VMS__malloc(list->entry_size * list->num_entries_per_fragment); |
| nengel@2 | 43 addToDynArray(newBlock,list->dim1info); |
| nengel@2 | 44 } |
| nengel@2 | 45 Dependency* typedFragment = (Dependency*) ((list->dim1)[list->dim1info->numInArray -1]); |
| nengel@2 | 46 typedFragment[offset_in_fragment] = value; |
| nengel@2 | 47 list->next_free_index++; |
| nengel@2 | 48 } |
| nengel@2 | 49 |
| nengel@2 | 50 void addToListOfArraysUnit(Unit value, ListOfArrays* list){ |
| nengel@2 | 51 int offset_in_fragment = list->next_free_index % list->num_entries_per_fragment; |
| nengel@2 | 52 if(offset_in_fragment == 0){ |
| nengel@2 | 53 void* newBlock = VMS__malloc(list->entry_size * list->num_entries_per_fragment); |
| nengel@2 | 54 addToDynArray(newBlock,list->dim1info); |
| nengel@2 | 55 } |
| nengel@2 | 56 Unit* typedFragment = (Unit*) ((list->dim1)[list->dim1info->numInArray -1]); |
| nengel@2 | 57 typedFragment[offset_in_fragment] = value; |
| nengel@2 | 58 list->next_free_index++; |
| nengel@2 | 59 } |
| nengel@2 | 60 */ |