* bug 4672 fixed - Internal function AddFunctionInTable renamed to
[scilab.git] / scilab / modules / differential_equations / src / c / colnewtable.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA
4  * ...
5  * 
6  * This file must be used under the terms of the CeCILL.
7  * This source file is licensed as described in the file COPYING, which
8  * you should have received as part of this distribution.  The terms
9  * are also available at    
10  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11  *
12  */
13 #include "GetFunctionByName.h"
14 #include "machine.h"
15 /***********************************
16 * Search Table for colnew 
17 *   corr uses : fcoldg , fcolg, fcoldf,fcolf,fcolgu
18 ***********************************/
19
20 #define ARGS_fcoldg int*,double *,double*
21 typedef void (*fcoldgf)(ARGS_fcoldg);
22
23 #define ARGS_fcolg int*,double *,double*
24 typedef void (*fcolgf)(ARGS_fcolg);
25
26 #define ARGS_fcoldf double *,double *,double*
27 typedef void (*fcoldff)(ARGS_fcoldf);
28
29 #define ARGS_fcolf double *,double *,double*
30 typedef void (*fcolff)(ARGS_fcolf);
31
32 #define ARGS_fcolgu double *,double *,double*
33 typedef void (*fcolguf)(ARGS_fcolgu);
34
35 /**************** fcoldg ***************/
36 extern void C2F(cndg)(ARGS_fcoldg);
37 void C2F(fcoldg)(ARGS_fcoldg);
38 void C2F(setfcoldg)(char *name, int *rep);
39
40 FTAB FTab_fcoldg[] ={
41 {"cndg", (voidf)  C2F(cndg)},
42 {(char *) 0, (voidf) 0}};
43 /**************** fcolg ***************/
44 extern void C2F(cng)(ARGS_fcolg);
45 void C2F(fcolg)(ARGS_fcolg);
46 void C2F(setfcolg)(char *name, int *rep);
47  
48 FTAB FTab_fcolg[] ={
49 {"cng", (voidf)  C2F(cng)},
50 {(char *) 0, (voidf) 0}};
51 /**************** fcolf ***************/
52 extern void C2F(cnf)(ARGS_fcolf);
53 void C2F(fcolf)(ARGS_fcolf);
54 void C2F(setfcolf)(char *name, int *rep);
55
56 FTAB FTab_fcolf[] ={
57 {"cnf", (voidf)  C2F(cnf)},
58 {(char *) 0, (voidf) 0}};
59 /**************** fcoldf ***************/
60 extern void C2F(cndf)(ARGS_fcoldf);
61 void C2F(fcoldf)(ARGS_fcoldf);
62 void C2F(setfcoldf)(char *name, int *rep);
63  
64 FTAB FTab_fcoldf[] ={
65 {"cndf", (voidf)  C2F(cndf)},
66 {(char *) 0, (voidf) 0}};
67 /**************** fcolgu ***************/
68 extern void C2F(cngu)(ARGS_fcolgu);
69 void C2F(fcolgu)(ARGS_fcolgu);
70 void C2F(setfcolgu)(char *name, int *rep);
71
72 FTAB FTab_fcolgu[] ={
73 {"cngu", (voidf)  C2F(cngu)},
74 {(char *) 0, (voidf) 0}};
75
76
77 /***********************************
78 * Search Table for colnew 
79 *   corr uses : fcoldg , fcolg, fcoldf,fcolf,fcolgu
80 ***********************************/
81
82 /** the current function fixed by setfcoldg **/
83
84 static fcoldgf fcoldgfonc ;
85
86 /** function call **/
87
88 void C2F(fcoldg)(int *i, double *z, double *dg)
89 {
90         (*fcoldgfonc)(i,z,dg);
91 }
92
93 /** fixes the function associated to name **/
94
95 void C2F(setfcoldg)(char *name, int *rep)
96 {
97         fcoldgfonc = (fcoldgf) GetFunctionByName(name,rep,FTab_fcoldg);
98 }
99
100
101 /** the current function fixed by setfcolg **/
102
103 static fcolgf fcolgfonc ;
104
105 /** function call **/
106
107 void C2F(fcolg)(int *i, double *z, double *g)
108 {
109         (*fcolgfonc)(i,z,g);
110 }
111
112 /** fixes the function associated to name **/
113
114 void C2F(setfcolg)(char *name, int *rep)
115 {
116         fcolgfonc = (fcolgf) GetFunctionByName(name,rep,FTab_fcolg);
117 }
118
119
120
121 /** the current function fixed by setfcoldf **/
122
123 static fcoldff fcoldffonc ;
124
125 /** function call **/
126
127 void C2F(fcoldf)(double *x, double *z, double *df)
128 {
129         (*fcoldffonc)(x,z,df);
130 }
131
132 /** fixes the function associated to name **/
133
134 void C2F(setfcoldf)(char *name, int *rep)
135 {
136         fcoldffonc = (fcoldff) GetFunctionByName(name,rep,FTab_fcoldf);
137 }
138
139
140 /** the current function fixed by setfcolf **/
141
142 static fcolff fcolffonc ;
143
144 /** function call **/
145
146 void C2F(fcolf)(double *x, double *z, double *df)
147 {
148         (*fcolffonc)(x,z,df);
149 }
150
151 /** fixes the function associated to name **/
152
153 void C2F(setfcolf)(char *name, int *rep)
154 {
155         fcolffonc = (fcolff) GetFunctionByName(name,rep,FTab_fcolf);
156 }
157
158 /** the current function fixed by setfcolgu **/
159
160 static fcolguf fcolgufonc ;
161
162 /** function call **/
163
164 void C2F(fcolgu)(double *x, double *z, double *dmval)
165 {
166         (*fcolgufonc)(x,z,dmval);
167 }
168
169 /** fixes the function associated to name **/
170
171 void C2F(setfcolgu)(char *name, int *rep)
172 {
173         fcolgufonc = (fcolguf) GetFunctionByName(name,rep,FTab_fcolgu);
174 }