Warnings removed
[scilab.git] / scilab / modules / data_structures / sci_gateway / c / gw_data_structures2.c
1 #include "gw_data_structures2.h"
2 /*-----------------------------------------------------------------------------------*/
3 /* INRIA 2006 */
4 /* Allan CORNET */
5 /*-----------------------------------------------------------------------------------*/
6 #if _MSC_VER
7 #include <Windows.h>
8 #include "ExceptionMessage.h"
9 #endif
10 /*-----------------------------------------------------------------------------------*/
11 extern int C2F(error)();
12 /*-----------------------------------------------------------------------------------*/ 
13 static int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len))
14 {
15         extern int C2F(intgetfield)();
16         
17         C2F(intgetfield)();
18         return 0;
19 }
20 /*-----------------------------------------------------------------------------------*/
21 static int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len))
22 {
23         extern int C2F(intsetfield)();
24         
25         C2F(intsetfield)();
26         return 0;
27 }
28 /*-----------------------------------------------------------------------------------*/
29 static DataStructures2Table Tab[]=
30 {
31         {C2F(sci_getfield),"getfield"},
32         {C2F(sci_setfield),"setfield"}
33 };
34 /*-----------------------------------------------------------------------------------*/
35 int C2F(gwdatastructures2)(void)
36
37         Rhs=Max(Rhs,0);
38         if (C2F(vstk).top - C2F(com).rhs + C2F(com).lhs + 1 >= C2F(vstk).bot) 
39         {
40                 static integer codeerror = 18;
41                 C2F(error)(&codeerror);
42                 return 0;
43         }
44
45 #if _MSC_VER
46 #ifndef _DEBUG
47         _try
48         {
49                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
50         }
51         _except (EXCEPTION_EXECUTE_HANDLER)
52         {       
53                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
54         }
55 #else
56         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
57 #endif
58 #else
59         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
60 #endif
61         return 0;
62 }
63 /*-----------------------------------------------------------------------------------*/