Deleted trunk/scilab_doc/toolbox_guide/toolbox_example/interface

3 files changed, 0 insertions, 105 deletions

diff --git a/scilab_doc/toolbox_guide/toolbox_example/interface/builder.sce b/scilab_doc/toolbox_guide/toolbox_example/interface/builder.sce
deleted file mode 100644
index 18f6570..0000000
--- a/scilab_doc/toolbox_guide/toolbox_example/interface/builder.sce
+++ /dev/null
@@ -1,8 +0,0 @@
-// must be run from this directory
-ilib_name  = 'libtoolbox_example'     // interface library name
-files = ['intfun1.o', 'intsumab.o'];  // objects files
-libs  = ["../src/libtoolboxsrc"]                 // other libs needed for linking
-table = [ 'scifun1', 'intfun1';
-               'scisum','intsumab'];        // table of (scilab_name,interface-name)
-// do not modify below
-ilib_build(ilib_name,table,files,libs)
diff --git a/scilab_doc/toolbox_guide/toolbox_example/interface/intfun1.c b/scilab_doc/toolbox_guide/toolbox_example/interface/intfun1.c
deleted file mode 100644
index c819308..0000000
--- a/scilab_doc/toolbox_guide/toolbox_example/interface/intfun1.c
+++ /dev/null
@@ -1,56 +0,0 @@
-#include "stack-c.h"
-
-extern void fun2(double * , int, int *);
-extern void fun1(double * ,  int, int *, double **, double *);
-
-int intfun1(char *fname)
-{
-  int l1, m1, n1, m=1, nX, i, l2, l3;
-  double * X, S;
- 
-  /* 1 - Check the number of inputs and outputs arguments */
-  /* You can use the variables: Lhs and Rhs */
-  int minlhs=1, maxlhs=2, minrhs=1, maxrhs=1;
-  CheckRhs(minrhs,maxrhs) ;
-  CheckLhs(minlhs,maxlhs) ;
-
-  /* 2 - Check rhs type, get the rows number(m1) and the columns number(n1) of rhs, and its adress(l1) in the Scilab stack */
-  GetRhsVar(1, "d", &m1, &n1, &l1);
- 
-  if(m1!=0 && n1!=0 )
-  {
-    if(m1!=1 && n1!=1)
-    {
-      cerro("input argument must be a vector");
-      return(0);
-    }
-  }
- 
-  fun1(stk(l1), n1*m1, &nX, &X, &S);
- 
-  /* 4 - Create the place for the firts output X ( a vector of doubles, size: m*n ) to the adress l2 in the Scilab stack */
-  CreateVar(2, "d", &m, &nX, &l2);
- 
-  /* if there are two outputs variable then: Create the place for the second output S ( a double, size 1*1) to the adress l3 in the Scilab stack */
-  /* get the value of S, and put it in the Scilab stack */
-  if(Lhs==2)
-  {
-  CreateVar(3, "d", &m, &m, &l3);
-  *stk(l3)=S;
- }
- 
-  /* get the components of  X, and put them in the Scilab stack */
-  for(i=0;i<nX;i++)
-  stk(l2)[i]=X[i];
- 
-  /* free memory */
-  free(X);
- 
-  /* 5 - Specification of outputs variables */
-  LhsVar(1) = 2;
- 
-  if(Lhs==2)
-  LhsVar(2) = 3;
- 
-  return 0;
-}
\ No newline at end of file
diff --git a/scilab_doc/toolbox_guide/toolbox_example/interface/intsumab.c b/scilab_doc/toolbox_guide/toolbox_example/interface/intsumab.c
deleted file mode 100644
index 68278a8..0000000
--- a/scilab_doc/toolbox_guide/toolbox_example/interface/intsumab.c
+++ /dev/null
@@ -1,41 +0,0 @@
-#include "stack-c.h"
-
-extern int sumab(int n, double * a, double * b, double * y); 
-
-void intsumab(char *fname)
-{
-  int l1, m1, n1, l2, m2, n2, l3, n;
-  
-  /* 1 - Check rhs and lhs number  */
-  int minlhs=1, maxlhs=1, minrhs=2, maxrhs=2;
-  CheckRhs(minrhs,maxrhs) ;
-  CheckLhs(minlhs,maxlhs) ;
-
-  /* 2 - Check rhs type and get rhs adress in the Scilab stack */ 
-  GetRhsVar(1, "d", &m1, &n1, &l1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
-  
-  n=m2*n2;
-  if( n1!=n2 || m1!=m2) 
-    {
-      cerro("input arguments must have the same size");
-      return 0;
-    }   
-  
-  if(n1!=0 && m1!=0)
-    if(n1!=1 && m1!=1)
-    {
-      cerro("input arguments must be vectors");
-      return(0);
-    }
-
-  /* use chekdims and getscalar functions: a completer ................*/ 
-
-  /* 4 - Create the output argument */
-  CreateVar(3,"d",&m2,&n2,&l3); 
-  sumab(n,stk(l1),stk(l2),stk(l3));
-  
-  /* 5 - Specif the ouput argument */
-  LhsVar(1) = 3;
-  return 0;
-}
\ No newline at end of file