Scilab [trunk]: scilab/modules/mexlib/examples/interface/f4.c Source File

00001 #include <string.h> 
00002 #include <stdio.h>
00003 #include "stack-c.h"
00004 #include "lib/pipo.h"
00005 
00006 int int_f4(char *fname) 
00007 {
00008   static int l1,m1, n1;
00009   CheckRhs(1,1);
00010   CheckLhs(1,1); 
00011   GetRhsVar(1, "i", &m1, &n1, &l1);
00012   CheckScalar(1,m1,n1); 
00013   *istk(l1)= foo(*istk(l1)); 
00014   *istk(l1)= bar(*istk(l1)); 
00015   LhsVar(1) = 1;
00016   return 0;
00017 }