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 /*-----------------------------------------------------------------------------------*/