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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
/*
* Copyright 2003 Kjetil S. Matheussen.
*
* This library is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as
* published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
#define MAX_FUNCS 1000
#define MAX_FUNCLENGTH 50
static char k_cext_intfuncnames[MAX_FUNCLENGTH*MAX_FUNCS]={0};
static k_cext_f_int_callback k_cext_intfuncpointers[MAX_FUNCS]={0};
static t_k_cext *k_cext_intxs[MAX_FUNCS];
static char k_cext_floatfuncnames[MAX_FUNCLENGTH*MAX_FUNCS]={0};
static k_cext_f_float_callback k_cext_floatfuncpointers[MAX_FUNCS]={0};
static t_k_cext *k_cext_floatxs[MAX_FUNCS];
static int k_cext_intdummy(t_k_cext *x,...){
post("Error. An integer k_func function has dissapeared. Returning 0 instead.\n");
return 0;
}
static float k_cext_floatdummy(t_k_cext *x,...){
post("Error. A float k_func function has dissapeared. Returning 0.0f instead.\n");
return 0.0f;
}
void k_cext_setdummy(void *func){
int lokke;
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(k_cext_intfuncpointers[lokke]==func){
k_cext_intfuncpointers[lokke]=k_cext_intdummy;
return;
}
}
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(k_cext_floatfuncpointers[lokke]==func){
k_cext_floatfuncpointers[lokke]=k_cext_floatdummy;
return;
}
}
}
static void k_cext_addintfunc(char *name,t_k_cext *x){
int lokke;
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(k_cext_intfuncpointers[lokke]==NULL || !strcmp(&k_cext_intfuncnames[lokke*MAX_FUNCLENGTH],name)){
post("---Adding ---%s--- at pos %d",name,lokke);
sprintf(&k_cext_intfuncnames[lokke*MAX_FUNCLENGTH],"%s",name);
k_cext_intxs[lokke]=x;
k_cext_intfuncpointers[lokke]=(k_cext_f_int_callback)x->k_cext_process;
return;
}
}
}
static void k_cext_addfloatfunc(char *name,t_k_cext *x){
int lokke;
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(k_cext_floatfuncpointers[lokke]==NULL || !strcmp(&k_cext_floatfuncnames[lokke*MAX_FUNCLENGTH],name)){
post("---Adding ---%s--- at pos %d",name,lokke);
sprintf(&k_cext_floatfuncnames[lokke*MAX_FUNCLENGTH],"%s",name);
k_cext_floatxs[lokke]=x;
k_cext_floatfuncpointers[lokke]=(k_cext_f_float_callback)x->k_cext_process;
return;
}
}
}
static int k_cext_findintfromname(char *name){
int lokke;
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(!strcmp(&k_cext_intfuncnames[lokke*MAX_FUNCLENGTH],name)){
return lokke;
}
}
return -1;
}
static int k_cext_findfloatfromname(char *name){
int lokke;
for(lokke=0;lokke<MAX_FUNCS;lokke++){
if(!strcmp(&k_cext_floatfuncnames[lokke*MAX_FUNCLENGTH],name)){
return lokke;
}
}
return -1;
}
bool k_cext_get_int_funcs(k_cext_f_int_callback **funcs,t_k_cext **xs[],int length,...){
int lokke;
bool ret=true;
va_list ap;
va_start(ap,length);
for(lokke=0;lokke<length;lokke++){
char *name=va_arg(ap,char *);
int num=k_cext_findintfromname(name);
if(num==-1){
post("Error, the k_func function with the name \"%s\" was not found.\n",name);
ret=false;
goto exit;
}
funcs[lokke]=&k_cext_intfuncpointers[num];
xs[lokke]=&k_cext_intxs[lokke];
}
exit:
va_end(ap);
return ret;
}
bool k_cext_get_float_funcs(k_cext_f_float_callback **funcs,t_k_cext **xs[],int length,...){
int lokke;
bool ret=true;
va_list ap;
va_start(ap,length);
for(lokke=0;lokke<length;lokke++){
char *name=va_arg(ap,char *);
int num=k_cext_findfloatfromname(name);
if(num==-1){
post("Error, the k_func function with the name \"%s\" was not found.\n",name);
ret=false;
goto exit;
}
funcs[lokke]=&k_cext_floatfuncpointers[num];
xs[lokke]=&k_cext_floatxs[num];
//post("xs[%d]=%x for %s",lokke,(unsigned int)xs[lokke],name);
}
exit:
va_end(ap);
return ret;
}
|
