elementary_functions module.
[scilab.git] / scilab / modules / integer / sci_gateway / c / gw_integer.c
1
2 /*
3 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 * Copyright (C) INRIA - Allan CORNET
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
14 /*--------------------------------------------------------------------------*/
15 #include <string.h>
16 #include "gw_integer.h"
17 #include "api_scilab.h"
18 #include "MALLOC.h"
19 #include "callFunctionFromGateway.h"
20 /*--------------------------------------------------------------------------*/
21 #ifdef _MSC_VER
22 #include "BOOL.h"
23 extern BOOL BuildWithVS8ExpressF2C(void);
24 #endif
25 /*--------------------------------------------------------------------------*/
26 static int C2F(scivoid)(char *fname,unsigned long fname_len)
27 {
28         return 0;
29 }
30 /*--------------------------------------------------------------------------*/
31 static gw_generic_table Tab[]=
32 {
33   {NULL, ""}, //int32
34   {NULL, ""}, //int16
35   {NULL, ""}, //int8
36   {NULL, ""}, //inttype
37   {NULL, ""}, //double
38   {NULL, ""}, //uint32
39   {NULL, ""}, //uint16
40   {NULL, ""}, //uint8
41   {C2F(scimgeti),"mgeti"},
42   {C2F(scivoid),"sci_void"},
43   {C2F(sciimput),"%i_mput"},
44   {C2F(sciitriu),"%i_triu"},
45   {C2F(sciitril),"%i_tril"},
46   {C2F(sciisum),"%i_sum"},
47 //  {C2F(sciimax),"%i_max"},
48 //  {C2F(sciimin),"%i_min"},
49   {C2F(sciip),"%i_p"},
50   {C2F(sciiprod),"%i_prod"},
51 };
52 /*--------------------------------------------------------------------------*/
53 int gw_integer(void)
54 {
55         return 0;
56 }
57 /*--------------------------------------------------------------------------*/