Scilab [trunk]: scilab/modules/scicos/includes/scicos.h Source File

00001 #ifndef __SCICOS_H 
00002 #define __SCICOS_H 
00003 #include "scicos_block4.h"
00004 
00005 /* maximum value for sum of number of inputs and outputs ports of a given 
00006 block of type 2 */
00007 #define SZ_SIZE 60
00008 /* maximum value for sum of number of inputs and outputs of a given block 
00009 of type 0 */
00010 #define TB_SIZE 500
00011 
00012 
00013 typedef void (*voidf)();
00014 
00015 /* Blocks prototypes */
00016 #define I integer
00017 #define IP integer*
00018 #define DP double*
00019 #define DPP double**
00020 #define DB scicos_block*
00021 
00022 /*                    flag  nclock ntvec  rpar  nrpar ipar  nipar  u  nu */
00023 #define ARGS_scicosm1 IP,    IP,    IP,    DP,   IP,  IP,   IP,   DP, IP
00024 
00025 /* flag  nclock t    xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar  intabl  ni  outabl no */
00026 #define ARGS_scicos0 IP,IP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DP,IP,DP,IP
00027 
00028 /*       flag   nclock t    xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar  intabl  .... */
00029 #define ARGS_scicos IP,IP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP
00030 
00031 /*        flag   nclock t    xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar   args_in sz_in, n_in  args_out sz_out, n_out  */
00032 #define ARGS_scicos2 IP,IP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DPP,IP,IP,DPP,IP,IP
00033 
00034 /*        flag   nclock t    xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar   args_in sz_in, n_in  args_out sz_out, n_out g ng */
00035 #define ARGS_scicos2z IP,IP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DPP,IP,IP,DPP,IP,IP,DP,IP
00036 
00037 /*       flag   nclock t    residual xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar  intabl  .... */
00038 
00039 #define ARGS_scicosi IP,IP,DP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP,DP,IP
00040 
00041 /*        flag   nclockf t   residual xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar   args_in sz_in, n_in  args_out sz_out, n_out  */
00042 #define ARGS_scicosi2 IP,IP,DP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DPP,IP,IP,DPP,IP,IP
00043 
00044 /*        flag   nclockf t   residual xd   x    nx   z   nz   tvec   ntvec  rpar  nrpar ipar  nipar   args_in sz_in, n_in  args_out sz_out, n_out g ng */
00045 #define ARGS_scicosi2z IP,IP,DP,DP,DP,DP,IP,DP,IP,DP,IP,DP,IP,IP,IP,DPP,IP,IP,DPP,IP,IP,DP,IP
00046 
00047 /*         block     flag*/
00048 #define ARGS_scicos4 DB, I
00049 
00050 
00051 typedef void (*ScicosFm1) __PARAMS((ARGS_scicosm1));
00052 typedef void (*ScicosF0) __PARAMS((ARGS_scicos0));
00053 typedef void (*ScicosF) __PARAMS((ARGS_scicos));
00054 typedef void (*ScicosF2) __PARAMS((ARGS_scicos2));
00055 typedef void (*ScicosF2z) __PARAMS((ARGS_scicos2z));
00056 typedef void (*ScicosFi) __PARAMS((ARGS_scicosi));
00057 typedef void (*ScicosFi2) __PARAMS((ARGS_scicosi2));
00058 typedef void (*ScicosFi2z) __PARAMS((ARGS_scicosi2z));
00059 typedef void (*ScicosF4) __PARAMS((ARGS_scicos4));
00060 
00061 typedef  struct  {
00062   char *name;
00063   ScicosF fonc;
00064 } OpTab ;
00065 
00066 #endif