1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/*------------------------------------------------------------------------
* Graphic library
* Copyright (C) 1998-2000 Enpc/Jean-Philippe Chancelier
* jpc@cereve.enpc.fr
--------------------------------------------------------------------------*/
/*------------------------------------------------------------------------
* Allocation routines for working arrays
------------------------------------------------------------------------*/
#include <string.h> /* in case of dbmalloc use */
#include "Math.h"
/*--------------------------------------------
* void graphic_alloc_info()
* void graphic_alloc_free()
* void * graphic_alloc(indice,n,size)
*
* maintains a set of S_alloc_max working arrays
* Usage :
* int *x = graphic_alloc(0,10,sizeof(int))
* double *y = graphic_alloc(1,100,sizeof(double))
--------------------------------------------*/
#define NBPOINTS 256
typedef struct s_alloc {
int init; /* used for first allocation check */
unsigned int size; /* currently allocated space in bytes */
void *storage; /* pointer to allocated space */
} S_alloc;
#define S_alloc_max 9
static S_alloc Storage[S_alloc_max] = { {0,0,NULL},{0,0,NULL},{0,0,NULL},
{0,0,NULL},{0,0,NULL},{0,0,NULL},
{0,0,NULL},{0,0,NULL},{0,0,NULL}};
void * graphic_alloc(indice,n,size)
int indice,n ;
unsigned int size ;
{
integer *p;
unsigned int size_needed = n*size;
unsigned int block_size = Storage[indice].size;
/* check indice */
if ( indice < 0 || indice >= S_alloc_max ) return 0;
if ( n == 0 ) return 0;
if (size_needed <= block_size )
/* no need to alloc or realloc */
return Storage[indice].storage;
/* compute size to be dynamically allocated */
while ( size_needed > block_size ) block_size += NBPOINTS ;
if ( Storage[indice].init == 0)
/** Allocation **/
{ p = (integer*) MALLOC( block_size); }
else
/** Reallocation **/
{ p = (integer *) REALLOC( Storage[indice].storage,block_size ) ; }
if ( p == NULL)
return 0;
Storage[indice].storage= p ;
Storage[indice].init = 1;
Storage[indice].size = block_size;
return Storage[indice].storage;
}
void graphic_alloc_info()
{
unsigned int gsize=0;
int i;
for (i = 0 ; i < S_alloc_max ; i++)
if ( Storage[i].init == 1 ) gsize += Storage[i].size;
sciprint("Graphic allocated dynamic memory: %ud bytes\n",gsize);
}
void graphic_alloc_free()
{
int i;
for (i = 0 ; i < S_alloc_max ; i++)
if ( Storage[i].init == 1 )
{
free(Storage[i].storage);
Storage[i].init = 0;
}
}
|
