lib/psiconv/list.c

/*
    list.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 1999  Frodo Looijaard <frodol@dds.nl>       

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/


#include "config.h"
#include <stddef.h>
#include <stdlib.h>
#include <stdio.h>
#include "list.h"

static void psiconv_list_resize(psiconv_list l,unsigned int nr);

struct psiconv_list {
  int cur_len;
  int max_len;
  int el_size;
  void *els;
};

psiconv_list psiconv_list_new(int element_size)
{
  psiconv_list l;
  l = malloc(sizeof(*l));
  l->cur_len = 0;
  l->max_len = 0;
  l->el_size=element_size;
  l->els = NULL; 
  return l;
} 

void psiconv_list_free(psiconv_list l)
{
  if (l->max_len)
    free(l->els);
  l->max_len = 0;
  l->cur_len = 0;
  l->els = NULL;
}

void psiconv_list_free_el(psiconv_list l, void free_el(void *el))
{
  psiconv_list_foreach_el(l,free_el);
  psiconv_list_free(l);
}

int psiconv_list_length(const psiconv_list l)
{
  return l->cur_len;
}

int psiconv_list_is_empty(const psiconv_list l)
{
  return l->cur_len == 0;
}

void *psiconv_list_get(const psiconv_list l, unsigned int indx)
{
  if (indx >= l->cur_len)
    return NULL;
  else
    return ((char *) (l->els)) + indx * l->el_size;
}

void psiconv_list_add(psiconv_list l, void *el)
{
  psiconv_list_resize(l,l->cur_len + 1);
  memcpy(((char *) (l->els)) + l->cur_len * l->el_size, el, l->el_size);
  l->cur_len ++;
}

void psiconv_list_foreach_el(psiconv_list l, void action(void *el))
{
  int i;
  for (i = 0; i < l->cur_len; i ++)
    action(psiconv_list_get(l,i));
}

psiconv_list psiconv_list_clone(const psiconv_list l)
{
  psiconv_list l2;
  int i;
  l2 = psiconv_list_new(l->el_size);
  for (i = 0; i < l->cur_len; i ++)
    psiconv_list_add(l2,psiconv_list_get(l,i));
  return l2;
  
}

psiconv_list psiconv_list_clone_el(const psiconv_list l,void clone_el(void *el))
{
  psiconv_list l2 = psiconv_list_clone(l);
  psiconv_list_foreach_el(l2,clone_el);
  return l2;
}

size_t psiconv_list_fread(psiconv_list l,size_t size, FILE *f)
{
  size_t res;
  psiconv_list_resize(l,l->cur_len + size);
  res = fread(((char *) (l->els)) + l->cur_len * l->el_size,l->el_size,size,f);
  l->cur_len += res;
  return res;
}

void psiconv_list_resize(psiconv_list l,unsigned int nr)
{
  if (nr > l->max_len) {
    l->max_len = 1.1 * nr;
    l->max_len += 16 - l->max_len % 16;
    l->els = realloc(l->els,l->max_len * l->el_size);
  }
}

1	frodo	2	/*
2			list.c - Part of psiconv, a PSION 5 file formats converter
3			Copyright (c) 1999 Frodo Looijaard <frodol@dds.nl>
4
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
15			You should have received a copy of the GNU General Public License
16			along with this program; if not, write to the Free Software
17			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18			*/
19
20
21			#include "config.h"
22			#include <stddef.h>
23			#include <stdlib.h>
24			#include <stdio.h>
25			#include "list.h"
26
27			static void psiconv_list_resize(psiconv_list l,unsigned int nr);
28
29			struct psiconv_list {
30			int cur_len;
31			int max_len;
32			int el_size;
33			void *els;
34			};
35
36			psiconv_list psiconv_list_new(int element_size)
37			{
38			psiconv_list l;
39			l = malloc(sizeof(*l));
40			l->cur_len = 0;
41			l->max_len = 0;
42			l->el_size=element_size;
43			l->els = NULL;
44			return l;
45			}
46
47			void psiconv_list_free(psiconv_list l)
48			{
49			if (l->max_len)
50			free(l->els);
51			l->max_len = 0;
52			l->cur_len = 0;
53			l->els = NULL;
54			}
55
56			void psiconv_list_free_el(psiconv_list l, void free_el(void *el))
57			{
58			psiconv_list_foreach_el(l,free_el);
59			psiconv_list_free(l);
60			}
61
62			int psiconv_list_length(const psiconv_list l)
63			{
64			return l->cur_len;
65			}
66
67			int psiconv_list_is_empty(const psiconv_list l)
68			{
69			return l->cur_len == 0;
70			}
71
72			void *psiconv_list_get(const psiconv_list l, unsigned int indx)
73			{
74			if (indx >= l->cur_len)
75			return NULL;
76			else
77			return ((char ) (l->els)) + indx l->el_size;
78			}
79
80			void psiconv_list_add(psiconv_list l, void *el)
81			{
82			psiconv_list_resize(l,l->cur_len + 1);
83			memcpy(((char ) (l->els)) + l->cur_len l->el_size, el, l->el_size);
84			l->cur_len ++;
85			}
86
87			void psiconv_list_foreach_el(psiconv_list l, void action(void *el))
88			{
89			int i;
90			for (i = 0; i < l->cur_len; i ++)
91			action(psiconv_list_get(l,i));
92			}
93
94			psiconv_list psiconv_list_clone(const psiconv_list l)
95			{
96			psiconv_list l2;
97			int i;
98			l2 = psiconv_list_new(l->el_size);
99			for (i = 0; i < l->cur_len; i ++)
100			psiconv_list_add(l2,psiconv_list_get(l,i));
101			return l2;
102
103			}
104
105			psiconv_list psiconv_list_clone_el(const psiconv_list l,void clone_el(void *el))
106			{
107			psiconv_list l2 = psiconv_list_clone(l);
108			psiconv_list_foreach_el(l2,clone_el);
109			return l2;
110			}
111
112			size_t psiconv_list_fread(psiconv_list l,size_t size, FILE *f)
113			{
114			size_t res;
115			psiconv_list_resize(l,l->cur_len + size);
116			res = fread(((char ) (l->els)) + l->cur_len l->el_size,l->el_size,size,f);
117			l->cur_len += res;
118			return res;
119			}
120
121			void psiconv_list_resize(psiconv_list l,unsigned int nr)
122			{
123			if (nr > l->max_len) {
124			l->max_len = 1.1 * nr;
125			l->max_len += 16 - l->max_len % 16;
126			l->els = realloc(l->els,l->max_len * l->el_size);
127			}
128			}
129
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26