Scilab [trunk]: scilab/modules/incremental_link/examples/interfaces/c/intex6c.c Source File

00001 #include <stdlib.h>
00002 #include "stack-c.h"
00003 
00004 extern int dblearrayc __PARAMS((double **a, int *m, int *n,int *err));
00005 extern int intarrayc __PARAMS((int **a, int *m, int *n,int *err));
00006 extern int crestrc __PARAMS((char **a, int *m,int *err));
00007 
00008 int intex6c(fname)
00009   char* fname;
00010 { 
00011   char *l1;
00012   int *l2;
00013   double *l3;
00014 
00015   int m1,n1,m2,n2,m3,n3,ierr=0;
00016   int minlhs=1, minrhs=0, maxlhs=4, maxrhs=0;
00017 
00018   CheckRhs(minrhs,maxrhs) ;
00019   CheckLhs(minlhs,maxlhs) ;
00020 
00021   crestrc( &l1, &m1, &ierr);
00022   intarrayc( &l2, &m2, &n2, &ierr);
00023   dblearrayc( &l3, &m3, &n3, &ierr);
00024 
00025   if ( ierr > 0 ) 
00026     {
00027       Scierror(999,"%s: Internal error \r\n",fname);
00028       return 0;
00029     }
00030 
00031   n1=1;
00032   /* Creating variable #1 of type character and dimension m1 x n1 (m1=1) */
00033   CreateVarFromPtr( 1, "c", &m1, &n1, &l1);
00034   CreateVarFromPtr( 2, "i", &m2, &n2, &l2);
00035   CreateVarFromPtr( 3, "d", &m3, &n3, &l3);
00036 
00037   free(l1);  free(l2);   free(l3);
00038 
00039   /* Returning 3 variables (#1, #2, #3) to Scilab  */
00040   LhsVar(1) = 1;
00041   LhsVar(2) = 2;
00042   LhsVar(3) = 3;
00043   return(0);
00044 }