scilab » modules » core » src » c

callinterf.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines

#define TCLINTERF   C2F(no_gw_tclsci)
#define PVMINTERF   C2F(NoPvm)
#define SCICOSINTERF1   C2F(gw_scicos)
#define SCICOSINTERF2   C2F(gw_cscicos)

Functions

void C2F() gw_linear_algebra ()
void C2F() gw_io ()
void C2F() gw_elementaries_functions ()
void C2F() gw_graphics ()
void C2F() gw_cacsd0 ()
void C2F() gw_cacsd1 ()
void C2F() gw_cacsd2 ()
void C2F() gw_optim ()
void C2F() gw_differential_equations1 ()
void C2F() gw_core ()
void C2F() gw_user ()
void C2F() gw_metanet ()
void C2F() gw_polynomials ()
void C2F() gwdatastructures1 ()
void C2F() gw_signal ()
void C2F() gw_interpolation ()
void C2F() gw_cacsd3 ()
void C2F() gw_string ()
void C2F() gw_symbolic ()
void C2F() gw_boolean ()
void C2F() gw_user2 ()
void C2F() gw_gui ()
void C2F() gw_differential_equations2 ()
void C2F() gw_sparse ()
void C2F() gw_slicot ()
void C2F() gw_differential_equations3 ()
void C2F() gw_differential_equations4 ()
void C2F() gw_differential_equations5 ()
void C2F() gw_differential_equations6 ()
void C2F() gw_fileio ()
void C2F() gw_arnoldi ()
void C2F() gw_special_functions1 ()
void C2F() gw_statistics ()
void C2F() gw_randlib ()
void C2F() gw_special_functions2 ()
void C2F() gwdatastructures2 ()
void C2F() gw_integer ()
void C2F() gw_linear_algebra2 ()
void C2F() gw_scicos ()
void C2F() gw_cscicos ()
void C2F() gw_wintools ()
void C2F() gw_time ()
void C2F() gw_sound ()
void C2F() gw_localization ()

Variables

static OpTab Interfaces []

Define Documentation

#define PVMINTERF   C2F(NoPvm)

Definition at line 66 of file callinterf.h.

#define SCICOSINTERF1   C2F(gw_scicos)

Definition at line 77 of file callinterf.h.

#define SCICOSINTERF2   C2F(gw_cscicos)

Definition at line 79 of file callinterf.h.

#define TCLINTERF   C2F(no_gw_tclsci)

Definition at line 57 of file callinterf.h.

Function Documentation

void C2F() gw_arnoldi (  ) 

Definition at line 41 of file gw_arnoldi.c.

References ExceptionMessage(), table_struct::f, Fin, long, Max, name, table_struct::name, Rhs, and Tab.

00042 {
00043         Rhs = Max(0, Rhs);
00044         
00045         #ifdef _MSC_VER
00046                 #ifndef _DEBUG
00047                 _try
00048                 {
00049                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00050                 }
00051                 _except (EXCEPTION_EXECUTE_HANDLER)
00052                 {
00053                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00054                 }
00055                 #else
00056                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00057                 #endif
00058         #else
00059                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00060         #endif
00061 
00062         return 0;
00063 }

Here is the call graph for this function:

void C2F() gw_boolean (  ) 

Definition at line 27 of file gw_boolean.c.

References ExceptionMessage(), table_struct::f, f(), Fin, name, table_struct::name, and Tab.

00028 {  
00029 #ifdef _MSC_VER
00030 #ifndef _DEBUG
00031         _try
00032         {
00033                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00034         }
00035         _except (EXCEPTION_EXECUTE_HANDLER)
00036         {       
00037                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00038         }
00039 #else
00040         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00041 #endif
00042 #else
00043         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00044 #endif
00045         return 0;
00046 }

Here is the call graph for this function:

void C2F() gw_cacsd0 (  ) 

Definition at line 26 of file gw_cacsd0.c.

References ExceptionMessage(), table_struct::f, f(), Fin, name, table_struct::name, and Tab.

00027 {  
00028 #ifdef _MSC_VER
00029         #ifndef _DEBUG
00030                 _try
00031                 {
00032                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00033                 }
00034                 _except (EXCEPTION_EXECUTE_HANDLER)
00035                 {       
00036                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00037                 }
00038         #else
00039                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00040         #endif
00041 #else
00042                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00043 #endif
00044         return 0;
00045 }

Here is the call graph for this function:

void C2F() gw_cacsd1 (  ) 

Definition at line 24 of file gw_cacsd1.c.

References ExceptionMessage(), table_struct::f, f(), Fin, name, table_struct::name, and Tab.

00025 {  
00026 #ifdef _MSC_VER
00027         #ifndef _DEBUG
00028                 _try
00029                 {
00030                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00031                 }
00032                 _except (EXCEPTION_EXECUTE_HANDLER)
00033                 {       
00034                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00035                 }
00036         #else
00037                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00038         #endif
00039 #else
00040                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00041 #endif
00042         return 0;
00043 }

Here is the call graph for this function:

void C2F() gw_cacsd2 (  ) 

Definition at line 35 of file gw_cacsd2.c.

References ExceptionMessage(), table_struct::f, f(), Fin, name, table_struct::name, and Tab.

00036 {  
00037 #ifdef _MSC_VER
00038         #ifndef _DEBUG
00039                 _try
00040                 {
00041                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00042                 }
00043                 _except (EXCEPTION_EXECUTE_HANDLER)
00044                 {       
00045                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00046                 }
00047         #else
00048                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00049         #endif
00050 #else
00051                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00052 #endif
00053         return 0;
00054 }

Here is the call graph for this function:

void C2F() gw_cacsd3 (  ) 

Definition at line 24 of file gw_cacsd3.c.

References ExceptionMessage(), table_struct::f, Fin, name, table_struct::name, and Tab.

00025 {  
00026         if ( Fin-1 > 2) return 0;
00027 #ifdef _MSC_VER
00028         #ifndef _DEBUG
00029                 _try
00030                 {
00031                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00032                 }
00033                 _except (EXCEPTION_EXECUTE_HANDLER)
00034                 {       
00035                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00036                 }
00037         #else
00038                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00039         #endif
00040 #else
00041                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00042 #endif
00043         return 0;
00044 }

Here is the call graph for this function:

void C2F() gw_core (  ) 

Definition at line 81 of file gw_core.c.

References C2F, ExceptionMessage(), table_struct::f, Fin, Max, name, table_struct::name, pt, Rhs, rstk, and Tab.

00082 {  
00083         Rhs = Max(0, Rhs);
00084 
00088         if ( C2F(recu).rstk[C2F(recu).pt-1] == 901) 
00089         {
00090                 Fin=6;
00091         }
00092 
00093 #ifdef _MSC_VER
00094         #ifndef _DEBUG
00095                 _try
00096                 {
00097                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00098                 }
00099                 _except (EXCEPTION_EXECUTE_HANDLER)
00100                 {       
00101                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00102                 }
00103         #else
00104                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00105         #endif
00106 #else
00107                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00108 #endif
00109         return 0;
00110 }

Here is the call graph for this function:

void C2F() gw_cscicos (  ) 

Definition at line 47 of file gw_cscicos.c.

00048 {  
00049         Rhs = Max(0, Rhs);
00050         #ifdef _MSC_VER
00051                 #ifndef _DEBUG
00052                         _try
00053                         {
00054                                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00055                         }
00056                         _except (EXCEPTION_EXECUTE_HANDLER)
00057                         {
00058                                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00059                         }
00060                 #else
00061                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00062                 #endif
00063         #else
00064                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00065         #endif
00066         C2F(putlhsvar)();
00067         
00068         return 0;
00069 }

void C2F() gw_differential_equations1 (  ) 

Definition at line 23 of file gw_differential_equations1.c.

00024 {  
00025 #ifdef _MSC_VER
00026 #ifndef _DEBUG
00027         _try
00028         {
00029                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00030         }
00031         _except (EXCEPTION_EXECUTE_HANDLER)
00032         {       
00033                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00034         }
00035 #else
00036         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00037 #endif
00038 #else
00039         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00040 #endif
00041         return 0;
00042 }

void C2F() gw_differential_equations2 (  ) 

Definition at line 17 of file gw_differential_equations2.c.

00018 {  
00019 #ifdef _MSC_VER
00020 #ifndef _DEBUG
00021         _try
00022         {
00023                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00024         }
00025         _except (EXCEPTION_EXECUTE_HANDLER)
00026         {       
00027                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00028         }
00029 #else
00030         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00031 #endif
00032 #else
00033         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00034 #endif
00035         return 0;
00036 }

void C2F() gw_differential_equations3 (  ) 

Definition at line 20 of file gw_differential_equations3.c.

00021 {  
00022 #ifdef _MSC_VER
00023 #ifndef _DEBUG
00024         _try
00025         {
00026                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00027         }
00028         _except (EXCEPTION_EXECUTE_HANDLER)
00029         {       
00030                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00031         }
00032 #else
00033         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00034 #endif
00035 #else
00036         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00037 #endif
00038         return 0;
00039 }

void C2F() gw_differential_equations4 (  ) 

Definition at line 15 of file gw_differential_equations4.c.

00016 {  
00017 #ifdef _MSC_VER
00018 #ifndef _DEBUG
00019         _try
00020         {
00021                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00022         }
00023         _except (EXCEPTION_EXECUTE_HANDLER)
00024         {       
00025                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00026         }
00027 #else
00028         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00029 #endif
00030 #else
00031         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00032 #endif
00033         return 0;
00034 }

void C2F() gw_differential_equations5 (  ) 

Definition at line 22 of file gw_differential_equations5.c.

00023 {  
00024 #ifdef _MSC_VER
00025 #ifndef _DEBUG
00026         _try
00027         {
00028                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00029         }
00030         _except (EXCEPTION_EXECUTE_HANDLER)
00031         {       
00032                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00033         }
00034 #else
00035         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00036 #endif
00037 #else
00038         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00039 #endif
00040         return 0;
00041 }

void C2F() gw_differential_equations6 (  ) 

Definition at line 13 of file gw_differential_equations6.c.

00014 {  
00015 #ifdef _MSC_VER
00016 #ifndef _DEBUG
00017         _try
00018         {
00019                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00020         }
00021         _except (EXCEPTION_EXECUTE_HANDLER)
00022         {       
00023                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00024         }
00025 #else
00026         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00027 #endif
00028 #else
00029         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00030 #endif
00031         return 0;
00032 }

void C2F() gw_elementaries_functions (  ) 

Definition at line 66 of file gw_elementaries_functions.c.

00067 {  
00068 #ifdef _MSC_VER
00069         #ifndef _DEBUG
00070                 _try
00071                 {
00072                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00073                 }
00074                 _except (EXCEPTION_EXECUTE_HANDLER)
00075                 {       
00076                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00077                 }
00078         #else
00079                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00080         #endif
00081 #else
00082                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00083 #endif
00084         return 0;
00085 }

void C2F() gw_fileio (  ) 

Definition at line 39 of file gw_fileio.c.

00040 {
00041         Rhs=Max(0,Rhs);
00042 #ifdef _MSC_VER
00043 #ifndef _DEBUG
00044         _try
00045         {
00046                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00047         }
00048         _except (EXCEPTION_EXECUTE_HANDLER)
00049         {
00050                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00051         }
00052 #else
00053         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00054 #endif
00055 #else
00056         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00057 #endif
00058 
00059         return 0;
00060 }

void C2F() gw_graphics (  ) 

Definition at line 110 of file gw_graphics.c.

00111 {  
00112   Rhs = Max(0, Rhs);
00113   if ( GetWITH_GUI() || (strcmp(Tab[Fin-1].name,"gsort")==0) ) /*Veru en attendant de deplacer gsort*/
00114   {
00115     /* create needed data structure if not already created */
00116     loadGraphicModule() ;
00117 #ifdef _MSC_VER
00118 #ifndef _DEBUG
00119           _try
00120           {
00121                   (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00122           }
00123           _except (EXCEPTION_EXECUTE_HANDLER)
00124           {
00125                   ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00126           }
00127 #else
00128           (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00129 #endif
00130 #else
00131           (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00132 #endif
00133 
00134           C2F(putlhsvar)();
00135   }
00136   else
00137   {
00138           Scierror(999,"graphic interface disabled -nogui mode.\r\n");
00139           return 0;
00140   }
00141 
00142   return 0;
00143 }

void C2F() gw_gui (  ) 

Definition at line 29 of file gw_gui.c.

00030 {  
00031         Rhs = Max(0, Rhs);
00032 
00033         if (! GetWITH_GUI() )
00034         {
00035                 Scierror(999,"interface disabled in -nogui mode.");
00036                 return 0;
00037         }
00038 
00039 #ifdef _MSC_VER
00040         #ifndef _DEBUG
00041                 _try
00042                 {
00043                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00044                 }
00045                 _except (EXCEPTION_EXECUTE_HANDLER)
00046                 {       
00047                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00048                 }
00049         #else
00050                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00051         #endif
00052 #else
00053                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00054 #endif
00055         return 0;
00056 }

void C2F() gw_integer (  ) 

Definition at line 45 of file gw_integer.c.

00046 {  
00047 #ifdef _MSC_VER
00048         #ifndef _DEBUG
00049                 _try
00050                 {
00051                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00052                 }
00053                 _except (EXCEPTION_EXECUTE_HANDLER)
00054                 {       
00055                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00056                 }
00057         #else
00058                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00059         #endif
00060 #else
00061                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00062 #endif
00063         return 0;
00064 }

void C2F() gw_interpolation (  ) 

Definition at line 36 of file gw_interpolation.c.

References ExceptionMessage(), table_struct::f, Fin, Max, table_struct::name, name, Rhs, and Tab.

00037 {
00038         Rhs = Max(0, Rhs);
00039 
00040         #ifdef _MSC_VER
00041                 #ifndef _DEBUG
00042                 _try
00043                 {
00044                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00045                 }
00046                 _except (EXCEPTION_EXECUTE_HANDLER)
00047                 {
00048                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00049                 }
00050                 #else
00051                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00052                 #endif
00053         #else
00054                 (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00055         #endif
00056 
00057         return 0;
00058 }

Here is the call graph for this function:

void C2F() gw_io (  ) 

Definition at line 46 of file gw_io.c.

00047 {  
00048          /* Recursion */
00049          if (C2F(recu).rstk[C2F(recu).pt-1] / 100 == 9)
00050          {
00051                 switch ((int)(C2F(recu).rstk[C2F(recu).pt-1] - 901))
00052                 {
00053                         case 1: 
00054                         {
00055                                 C2F(intexec)();
00056                                 return 0;
00057                         }
00058                         case 2: 
00059                         {
00060                                 C2F(intexecstr)();
00061                                 return 0;
00062                         }
00063                         case 3: 
00064                         {
00065                                 C2F(intgetf)();
00066                                 return 0;
00067                         }
00068                         case 4:  
00069                         {
00070                                 C2F(intsave)();
00071                                 return 0;
00072                         }
00073                         case 5:
00074                         {
00075                                 C2F(intload)();
00076                         }
00077                         case 6: 
00078                         {
00079                                 return 0;
00080                         }
00081                         case 7:
00082                         {
00083                                 C2F(intdisp)();
00084                                 return 0;
00085                         }
00086                         case 8: 
00087                         {
00088                                 C2F(intexec)();
00089                                 return 0;
00090                         }
00091                 }
00092         }
00093          else
00094          {
00095                  Rhs = Max(0, Rhs);
00096         #ifdef _MSC_VER
00097                 #ifndef _DEBUG
00098                  _try
00099                  {
00100                          (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00101                  }
00102                  _except (EXCEPTION_EXECUTE_HANDLER)
00103                  {      
00104                          ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00105                  }
00106                 #else
00107                  (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00108                 #endif
00109         #else
00110                  (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00111         #endif
00112          }
00113         return 0;
00114 }

void C2F() gw_linear_algebra (  ) 

Definition at line 24 of file gw_linear_algebra.c.

00025 {  
00026         Rhs = Max(0, Rhs);
00027         #ifdef _MSC_VER
00028                 #ifndef _DEBUG
00029                         _try
00030                         {
00031                                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00032                         }
00033                         _except (EXCEPTION_EXECUTE_HANDLER)
00034                         {
00035                                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00036                         }
00037                 #else
00038                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00039                 #endif
00040         #else
00041                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00042         #endif
00043 
00044         C2F(putlhsvar)();
00045         return 0;
00046 }

void C2F() gw_linear_algebra2 (  ) 

void C2F() gw_localization (  ) 

Definition at line 23 of file gw_localization.c.

00024 {  
00025         Rhs = Max(0, Rhs);
00026 #if _MSC_VER
00027 #ifndef _DEBUG
00028         _try
00029         {
00030                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00031         }
00032         _except (EXCEPTION_EXECUTE_HANDLER)
00033         {
00034                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00035         }
00036 #else
00037         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00038 #endif
00039 #else
00040         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00041 #endif
00042         return 0;
00043 }

void C2F() gw_metanet (  ) 

Definition at line 65 of file gw_metanet.c.

00066 {  
00067         Rhs = Max(0, Rhs);
00068 #ifdef _MSC_VER
00069         #ifndef _DEBUG
00070                 _try
00071                 {
00072                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00073                 }
00074                 _except (EXCEPTION_EXECUTE_HANDLER)
00075                 {       
00076                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00077                 }
00078         #else
00079                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00080         #endif
00081 #else
00082                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00083 #endif
00084         return 0;
00085 }

void C2F() gw_optim (  ) 

Definition at line 20 of file gw_optim.c.

References ExceptionMessage(), table_struct::f, Fin, Max, table_struct::name, name, Rhs, and Tab.

00021 {  
00022         Rhs = Max(0, Rhs);
00023 #ifdef _MSC_VER
00024         #ifndef _DEBUG
00025                 _try
00026                 {
00027                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00028                 }
00029                 _except (EXCEPTION_EXECUTE_HANDLER)
00030                 {       
00031                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00032                 }
00033         #else
00034                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00035         #endif
00036 #else
00037                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00038 #endif
00039         return 0;
00040 }

Here is the call graph for this function:

void C2F() gw_polynomials (  ) 

Definition at line 52 of file gw_polynomials.c.

References ExceptionMessage(), f(), table_struct::f, Fin, table_struct::name, name, and Tab.

00053 {  
00054 #ifdef _MSC_VER
00055         #ifndef _DEBUG
00056                 _try
00057                 {
00058                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00059                 }
00060                 _except (EXCEPTION_EXECUTE_HANDLER)
00061                 {       
00062                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00063                 }
00064         #else
00065                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00066         #endif
00067 #else
00068                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00069 #endif
00070         return 0;
00071 }

Here is the call graph for this function:

void C2F() gw_randlib (  ) 

Definition at line 19 of file gw_randlib.c.

References ExceptionMessage(), table_struct::f, Fin, Max, table_struct::name, name, Rhs, and Tab.

00020 {
00021         Rhs = Max(0, Rhs);
00022 #ifdef _MSC_VER
00023 #ifndef _DEBUG
00024         _try
00025         {
00026                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00027         }
00028         _except (EXCEPTION_EXECUTE_HANDLER)
00029         {
00030                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00031         }
00032 #else
00033         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00034 #endif
00035 #else
00036         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00037 #endif
00038 
00039         return 0;
00040 }

Here is the call graph for this function:

void C2F() gw_scicos (  ) 

Definition at line 38 of file gw_scicos.c.

00039 {  
00040         Rhs = Max(0, Rhs);
00041         #ifdef _MSC_VER
00042                 #ifndef _DEBUG
00043                         _try
00044                         {
00045                                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00046                         }
00047                         _except (EXCEPTION_EXECUTE_HANDLER)
00048                         {
00049                                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00050                         }
00051                 #else
00052                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00053                 #endif
00054         #else
00055                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00056         #endif
00057 
00058         return 0;
00059 }

void C2F() gw_signal (  ) 

Definition at line 24 of file gw_signal.c.

00025 {  
00026 #ifdef _MSC_VER
00027         #ifndef _DEBUG
00028                 _try
00029                 {
00030                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00031                 }
00032                 _except (EXCEPTION_EXECUTE_HANDLER)
00033                 {       
00034                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00035                 }
00036         #else
00037                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00038         #endif
00039 #else
00040                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00041 #endif
00042         return 0;
00043 }

void C2F() gw_slicot (  ) 

void C2F() gw_sound (  ) 

Definition at line 27 of file gw_sound.c.

References ExceptionMessage(), table_struct::f, Fin, long, Max, table_struct::name, name, Rhs, and Tab.

00028 {  
00029         Rhs = Max(0, Rhs);
00030         #ifdef _MSC_VER
00031                 #ifndef _DEBUG
00032                 _try
00033                 {
00034                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00035                 }
00036                 _except (EXCEPTION_EXECUTE_HANDLER)
00037                 {
00038                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00039                 }
00040                 #else
00041                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00042                 #endif
00043         #else
00044                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00045         #endif
00046 
00047         return 0;
00048 }

Here is the call graph for this function:

void C2F() gw_sparse (  ) 

Definition at line 41 of file gw_sparse.c.

00042 {  
00043 #ifdef _MSC_VER
00044         #ifndef _DEBUG
00045                 _try
00046                 {
00047                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00048                 }
00049                 _except (EXCEPTION_EXECUTE_HANDLER)
00050                 {       
00051                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00052                 }
00053         #else
00054                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00055         #endif
00056 #else
00057                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00058 #endif
00059         return 0;
00060 }

void C2F() gw_special_functions1 (  ) 

Definition at line 30 of file gw_special_functions1.c.

References ExceptionMessage(), table_struct::f, Fin, Max, table_struct::name, name, Rhs, and Tab.

00031 {
00032         Rhs = Max(0, Rhs);
00033 
00034         #ifdef _MSC_VER
00035                 #ifndef _DEBUG
00036                 _try
00037                 {
00038                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00039                 }
00040                 _except (EXCEPTION_EXECUTE_HANDLER)
00041                 {
00042                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00043                 }
00044                 #else
00045                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00046                 #endif
00047         #else
00048                 (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00049         #endif
00050         return 0;
00051 }

Here is the call graph for this function:

void C2F() gw_special_functions2 (  ) 

Definition at line 34 of file gw_special_functions2.c.

References C2F, ExceptionMessage(), table_struct::f, Fin, Max, name, table_struct::name, putlhsvar(), Rhs, slatec_jmp_env, and Tab.

00035 {
00036         Rhs = Max(0, Rhs);
00037         if (setjmp(slatec_jmp_env)) 
00038         { 
00039                 Scierror(999,"%s: arguments must be positive \r\n", Tab[Fin-1].name);
00040                 return 0;
00041         }
00042 
00043         #ifdef _MSC_VER
00044                 #ifndef _DEBUG
00045                 _try
00046                 {
00047                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00048                 }
00049                 _except (EXCEPTION_EXECUTE_HANDLER)
00050                 {
00051                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00052                 }
00053                 #else
00054                         (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00055                 #endif
00056         #else
00057                 (*(Tab[Fin-1].f))(Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00058         #endif
00059 
00060         C2F(putlhsvar)();
00061         return 0;
00062 }

Here is the call graph for this function:

void C2F() gw_statistics (  ) 

Definition at line 38 of file gw_statistics.c.

References ExceptionMessage(), table_struct::f, Fin, Max, table_struct::name, name, Rhs, and Tab.

00039 {  
00040         Rhs = Max(0, Rhs);
00041 #ifdef _MSC_VER
00042         #ifndef _DEBUG
00043                 _try
00044                 {
00045                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00046                 }
00047                 _except (EXCEPTION_EXECUTE_HANDLER)
00048                 {       
00049                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00050                 }
00051         #else
00052                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00053         #endif
00054 #else
00055                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00056 #endif
00057         return 0;
00058 }

Here is the call graph for this function:

void C2F() gw_string (  ) 

void C2F() gw_symbolic (  ) 

Definition at line 27 of file gw_symbolic.c.

References ExceptionMessage(), table_struct::f, Fin, table_struct::name, name, Rhs, and Tab.

00028 {  
00029         if (Rhs != 2)
00030         {
00031                 Scierror(39,"incorrect number of arguments.\r\n");
00032                 return 0;
00033         }
00034 #ifdef _MSC_VER
00035         #ifndef _DEBUG
00036                 _try
00037                 {
00038                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00039                 }
00040                 _except (EXCEPTION_EXECUTE_HANDLER)
00041                 {       
00042                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00043                 }
00044         #else
00045                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00046         #endif
00047 #else
00048                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00049 #endif
00050         return 0;
00051 }

Here is the call graph for this function:

void C2F() gw_time (  ) 

Definition at line 22 of file gw_time.c.

00023 {  
00024         Rhs = Max(0, Rhs);
00025         #ifdef _MSC_VER
00026                 #ifndef _DEBUG
00027                 _try
00028                 {
00029                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00030                 }
00031                 _except (EXCEPTION_EXECUTE_HANDLER)
00032                 {
00033                         ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00034                 }
00035                 #else
00036                         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00037                 #endif
00038         #else
00039                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(unsigned long)strlen(Tab[Fin-1].name));
00040         #endif
00041 
00042         return 0;
00043 }

void C2F() gw_user (  ) 

Definition at line 9 of file matusr.c.

00010 {
00011    Rhs=Max(Rhs,0);
00012    return 0;
00013 }

void C2F() gw_user2 (  ) 

Definition at line 8 of file matus2.c.

00009 {
00010     return 0;
00011 }

void C2F() gw_wintools (  ) 

Definition at line 41 of file gw_wintools.c.

00042 {  
00043   Rhs = Max(0, Rhs);
00044   #ifdef _MSC_VER
00045     #ifndef _DEBUG
00046     _try
00047     {
00048           (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(int)strlen(Tab[Fin-1].name));
00049     }
00050     _except (EXCEPTION_EXECUTE_HANDLER)
00051     {
00052                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00053     }
00054     #else
00055       (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(int)strlen(Tab[Fin-1].name));
00056     #endif
00057   #else
00058     (*(Tab[Fin-1].f)) (Tab[Fin-1].name,(int)strlen(Tab[Fin-1].name));
00059   #endif
00060 
00061   return 0;
00062 }

void C2F() gwdatastructures1 (  ) 

Definition at line 26 of file gw_data_structures1.c.

00027 { 
00028         Rhs=Max(Rhs,0);
00029         if (C2F(vstk).top - C2F(com).rhs + C2F(com).lhs + 1 >= C2F(vstk).bot) 
00030         {
00031                 static integer codeerror = 18;
00032                 C2F(error)(&codeerror);
00033                 return 0;
00034         }
00035 
00036 #ifdef _MSC_VER
00037 #ifndef _DEBUG
00038         _try
00039         {
00040                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00041         }
00042         _except (EXCEPTION_EXECUTE_HANDLER)
00043         {       
00044                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00045         }
00046 #else
00047         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00048 #endif
00049 #else
00050         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00051 #endif
00052         return 0;
00053 }

void C2F() gwdatastructures2 (  ) 

Definition at line 35 of file gw_data_structures2.c.

00036 { 
00037         Rhs=Max(Rhs,0);
00038         if (C2F(vstk).top - C2F(com).rhs + C2F(com).lhs + 1 >= C2F(vstk).bot) 
00039         {
00040                 static integer codeerror = 18;
00041                 C2F(error)(&codeerror);
00042                 return 0;
00043         }
00044 
00045 #ifdef _MSC_VER
00046 #ifndef _DEBUG
00047         _try
00048         {
00049                 (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00050         }
00051         _except (EXCEPTION_EXECUTE_HANDLER)
00052         {       
00053                 ExceptionMessage(GetExceptionCode(),Tab[Fin-1].name);
00054         }
00055 #else
00056         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00057 #endif
00058 #else
00059         (*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
00060 #endif
00061         return 0;
00062 }

Variable Documentation

OpTab Interfaces[] [static]

Definition at line 91 of file callinterf.h.

Referenced by callinterf().

Generated on Sun Mar 4 15:14:40 2007 for Scilab [trunk] by  doxygen 1.5.1