Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > ListOfArrays

comparison ListOfArrays.c @ 12:abf2117d7535

find changesets by author, revision, files, or words in the commit message
make lists clearable
author Nina Engelhardt <nengel@mailbox.tu-berlin.de>
date Fri, 31 Aug 2012 18:27:26 +0200
parents 5df9392eca1a
children
comparison
equal deleted inserted replaced
7:1b4e8672f48a 8:65e2b29abb4a
14 } 14 }
15 15
16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){ 16 void forAllInListOfArraysDo(ListOfArrays* list, ListOfArraysFnPtr fnPtr){
17 int n; 17 int n;
18 uintptr_t p; 18 uintptr_t p;
19 int num_full = list->next_free_index / list->num_entries_per_fragment; //list->dim1info->numInArray -1 19 int num_full = list->next_free_index / list->num_entries_per_fragment; //!\\ != list->dim1info->numInArray-1
20 for(n=0;n<num_full; n++){ 20 for(n=0;n<num_full; n++){
21 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){ 21 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){
22 (*fnPtr)((void*)p); 22 (*fnPtr)((void*)p);
23 } 23 }
24 } 24 }
25 int offset_in_last = list->next_free_index % list->num_entries_per_fragment; 25 int offset_in_last = list->next_free_index % list->num_entries_per_fragment;
26 n = list->dim1info->numInArray - 1; 26 if (n < list->dim1info->numInArray){
27 if (n >= 0){
28 for(p = (uintptr_t)(list->dim1)[n]; p < (uintptr_t)(list->dim1)[n] + offset_in_last * list->entry_size; p += list->entry_size){ 27 for(p = (uintptr_t)(list->dim1)[n]; p < (uintptr_t)(list->dim1)[n] + offset_in_last * list->entry_size; p += list->entry_size){
29 (*fnPtr)((void*)p); 28 (*fnPtr)((void*)p);
30 } 29 }
31 } 30 }
31 }
32
33 void clearListOfArrays(ListOfArrays* list){
34 list->next_free_index = 0;
32 } 35 }
33 36
34 void freeListOfArrays(ListOfArrays* list){ 37 void freeListOfArrays(ListOfArrays* list){
35 freeDynArrayDeep(list->dim1info,&VMS_int__free); 38 freeDynArrayDeep(list->dim1info,&VMS_int__free);
36 VMS_int__free((void*)list); 39 VMS_int__free((void*)list);