* Update the gateway to use Scilab 5.4.0 code / api 82/7082/2
Sylvestre Ledru [Sun, 29 Apr 2012 07:02:42 +0000 (09:02 +0200)]
* Update the help to show a latex examples
* Get ride of the authors to highligh the fact that this can be used

Change-Id: I835d5f99408cf897ec3b75e10f52b9c97022ad99

31 files changed:
scilab/contrib/toolbox_skeleton/DESCRIPTION
scilab/contrib/toolbox_skeleton/demos/c_sum.dem.sce
scilab/contrib/toolbox_skeleton/demos/cpp_find.dem.sce
scilab/contrib/toolbox_skeleton/demos/fortran_sum.dem.sce
scilab/contrib/toolbox_skeleton/demos/scilab_sum.dem.sce
scilab/contrib/toolbox_skeleton/demos/toolbox_skeleton.dem.gateway.sce
scilab/contrib/toolbox_skeleton/help/en_US/c_multiplybypi.xml
scilab/contrib/toolbox_skeleton/help/en_US/c_sub.xml
scilab/contrib/toolbox_skeleton/help/en_US/c_sum.xml
scilab/contrib/toolbox_skeleton/help/en_US/fortran_sum.xml
scilab/contrib/toolbox_skeleton/help/en_US/scilab_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/c_multiplybypi.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/c_sub.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/c_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/fortran_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/scilab_sum.xml
scilab/contrib/toolbox_skeleton/macros/cleanmacros.sce
scilab/contrib/toolbox_skeleton/macros/scilab_sum.sci
scilab/contrib/toolbox_skeleton/sci_gateway/c/sci_csub.c
scilab/contrib/toolbox_skeleton/sci_gateway/c/sci_csum.c
scilab/contrib/toolbox_skeleton/sci_gateway/c/sci_multiplybypi.c
scilab/contrib/toolbox_skeleton/sci_gateway/cpp/sci_cpp_find.cxx
scilab/contrib/toolbox_skeleton/sci_gateway/fortran/sci_fsum.c
scilab/contrib/toolbox_skeleton/src/c/csub.c
scilab/contrib/toolbox_skeleton/src/c/csub.h
scilab/contrib/toolbox_skeleton/src/c/csum.c
scilab/contrib/toolbox_skeleton/src/c/csum.h
scilab/contrib/toolbox_skeleton/src/c/multiplybypi.c
scilab/contrib/toolbox_skeleton/src/c/multiplybypi.h
scilab/contrib/toolbox_skeleton/src/fortran/fsum.f
scilab/contrib/toolbox_skeleton/toolbox_skeleton_redist.iss

index 26a6a7c..8f38c16 100644 (file)
@@ -21,7 +21,7 @@ WebSite: http://www.scilab.org
 
 License: CeCILL
 
-ScilabVersion: >= 5.2
+ScilabVersion: >= 5.4
 
 Depends: 
 
index c955e8c..54c88bd 100644 (file)
@@ -1,6 +1,3 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Allan CORNET
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
index cad67c8..9bc3c31 100644 (file)
@@ -1,6 +1,3 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Allan CORNET
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
index 72690f4..e9ab3f5 100644 (file)
@@ -1,6 +1,3 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Allan CORNET
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
index 1762940..3731692 100644 (file)
@@ -1,7 +1,3 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Allan CORNET
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
 function demo_scilab_sum()
index 9f9c6b9..fd5012e 100644 (file)
@@ -1,6 +1,3 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Allan CORNET
-// Copyright (C) 2011 - DIGITEO - Allan CORNET
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
index 303a3f2..2cbe2a4 100644 (file)
@@ -1,8 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
- * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
  -->
@@ -41,6 +38,9 @@
     <title>Description</title>
     <para>Do a special multiplication.</para>
     <para>Add here a paragraph of the function description </para>
+    <para>
+      LaTeX can also be used to render equation: In this case, the rendering should <latex>$x*\pi$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Examples</title>
index 841b463..60f0f22 100644 (file)
@@ -1,8 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
- * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
  -->
@@ -47,6 +44,9 @@
     <title>Description</title>
     <para>Do a substraction.</para>
     <para>Add here a paragraph of the function description </para>
+    <para>
+      LaTeX can also be used to render equation: In this case, the rendering should <latex>$x-y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Examples</title>
index 3c6466f..79d21b2 100644 (file)
@@ -1,8 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
- * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
  -->
@@ -47,6 +44,9 @@
     <title>Description</title>
     <para>Do a sum.</para>
     <para>Add here a paragraph of the function description </para>
+    <para>
+      LaTeX can also be used to render equation: In this case, the rendering should <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Examples</title>
index 9f54252..5c1fff6 100644 (file)
@@ -1,8 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
- * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  -->
 <refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:id="fortran_sum" xml:lang="en">
@@ -17,7 +14,7 @@
   </refnamediv>
   <refsynopsisdiv>
     <title>Calling Sequence</title>
-    <synopsis>a = c_sum(b,c)</synopsis>
+    <synopsis>a = fortran_sum(b,c)</synopsis>
   </refsynopsisdiv>
   <refsection>
     <title>Arguments</title>
@@ -46,6 +43,9 @@
     <title>Description</title>
     <para>Do a sum.</para>
     <para>Add here a paragraph of the function description</para>
+    <para>
+      LaTeX can also be used to render equation: In this case, the rendering should <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Examples</title>
index febf568..fed44e0 100644 (file)
@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -47,6 +45,9 @@
     <title>Description</title>
     <para>Do a sum.</para>
     <para>Add here a paragraph of the function description </para>
+    <para>
+      LaTeX can also be used to render equation: In this case, the rendering should <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Examples</title>
index 39d43eb..175f8e1 100644 (file)
@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -41,6 +39,9 @@
     <title>Description</title>
     <para>Fait une multiplication particulière.</para>
     <para>Ajoutez ici plus d'informations sur cette fonction </para>
+    <para>
+      LaTeX peut etre utilisé pour afficher l'équation: Dans ce cas, le rendu pourrait être <latex>$x*\pi$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Exemples</title>
index 56ff144..fe0974e 100644 (file)
@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -47,6 +45,9 @@
     <title>Description</title>
     <para>calcule la soustraction.</para>
     <para>Ajoutez ici plus d'informations sur cette fonction </para>
+    <para>
+      LaTeX peut etre utilisé pour afficher l'équation: Dans ce cas, le rendu pourrait être <latex>$x-y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Exemples</title>
index b84fadc..2824a79 100644 (file)
@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -47,6 +45,9 @@
     <title>Description</title>
     <para>calcule la somme.</para>
     <para>Ajoutez ici plus d'informations sur cette fonction </para>
+    <para>
+      LaTeX peut etre utilisé pour afficher l'équation: Dans ce cas, le rendu pourrait être <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Exemples</title>
index 7eca4aa..1763a7f 100644 (file)
@@ -1,7 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
 <!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -47,6 +45,9 @@
     <title>Description</title>
     <para>calcule la somme.</para>
     <para>Ajoutez ici plus d'informations sur cette fonction </para>
+    <para>
+      LaTeX peut etre utilisé pour afficher l'équation: Dans ce cas, le rendu pourrait être <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Exemples</title>
index 65ede0c..ee7d739 100644 (file)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - Allan CORNET
  * 
  * This file is released under the 3-clause BSD license. See COPYING-BSD.
  *
@@ -47,6 +46,9 @@
     <title>Description</title>
     <para>calcule la somme.</para>
     <para>Ajoutez ici plus d'informations sur cette fonction </para>
+    <para>
+      LaTeX peut etre utilisé pour afficher l'équation: Dans ce cas, le rendu pourrait être <latex>$x+y$</latex>
+    </para>
   </refsection>
   <refsection>
     <title>Exemples</title>
index 8f5e267..7fccbdf 100644 (file)
@@ -1,6 +1,4 @@
 // ====================================================================
-// Allan CORNET
-// DIGITEO 2009
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 // ====================================================================
 function cleanmacros()
index 975005a..6a78715 100644 (file)
@@ -1,6 +1,4 @@
 // ====================================================================
-// Allan CORNET
-// INRIA 2008
 // Template toolbox_skeleton
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 // ====================================================================
index cbee143..228f266 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
 /* ==================================================================== */
 int sci_csub(char *fname)
 {
-  SciErr sciErr;
-  
-  int m1 = 0, n1 = 0;
-  int *piAddressVarOne = NULL;
-  double *pdVarOne = NULL;
-  int iType1 = 0;
-  
-  int m2 = 0, n2 = 0;
-  int *piAddressVarTwo = NULL;
-  double *pdVarTwo = NULL;
-  int iType2 = 0;
-  
-  int m_out = 0, n_out = 0;
-  double dOut = 0.0;
-
-  /* --> result = csub(3,8)
-  /* check that we have only 2 input arguments */
-  /* check that we have only 1 output argument */
-  CheckRhs(2,2) ;
-  CheckLhs(1,1) ;   
-  
-  /* get Address of inputs */
-  sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-    
-  sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  /* check input type */
-  sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  if ( iType1 != sci_matrix )
-  {
-       Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n",fname,1);
-       return 0;
-  }
-  
-  sciErr = getVarType(pvApiCtx, piAddressVarTwo, &iType2);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  if ( iType2 != sci_matrix )
-  {
-    Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n",fname,2);
-    return 0;
-  }
+    SciErr sciErr;
+
+    int m1 = 0, n1 = 0;
+    int *piAddressVarOne = NULL;
+    double *pdVarOne = NULL;
+    int iType1 = 0;
+
+    int m2 = 0, n2 = 0;
+    int *piAddressVarTwo = NULL;
+    double *pdVarTwo = NULL;
+    int iType2 = 0;
+
+    int m_out = 0, n_out = 0;
+    double dOut = 0.0;
+
+    /* --> result = csub(3,8)
+    /* check that we have only 2 input arguments */
+    /* check that we have only 1 output argument */
+    CheckInputArgument(pvApiCtx, 2, 2);
+    CheckOutputArgument(pvApiCtx, 1, 1);
+
+    /* get Address of inputs */
+    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* check input type */
+    sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    if ( iType1 != sci_matrix )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+
+    sciErr = getVarType(pvApiCtx, piAddressVarTwo, &iType2);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    if ( iType2 != sci_matrix )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    /* get matrix */
+    sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne, &m1, &n1, &pdVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarTwo, &m2, &n2, &pdVarTwo);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* check size */
+    if ( (m1 != n1) && (n1 != 1) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+    if ( (m2 != n2) && (n2 != 1) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    /* call c function csub */
+    csub(&pdVarOne[0], &pdVarTwo[0], &dOut);
+
+    /* create result on stack */
+    m_out = 1;
+    n_out = 1;
+    createMatrixOfDouble(pvApiCtx, InputArgument + 1, m_out, n_out, &dOut);
+
+    AssignOutputVariable(1) = InputArgument + 1;
+
+
+    /* This function put on scilab stack, the lhs variable
+    which are at the position lhs(i) on calling stack */
+    /* You need to add UpdateStack here because WITHOUT_ADD_PUTLHSVAR
+    was defined and equal to %t */
+    /* without this, you do not need to add UpdateStack here */
+    UpdateStack();
 
-  /* get matrix */
-  sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne,&m1,&n1,&pdVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarTwo,&m2,&n2,&pdVarTwo);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  /* check size */
-  if ( (m1 != n1) && (n1 != 1) ) 
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n",fname,1);
-    return 0;
-  }
-  if ( (m2 != n2) && (n2 != 1) ) 
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n",fname,2);
     return 0;
-  }
-  
-  /* call c function csub */
-  csub(&pdVarOne[0],&pdVarTwo[0],&dOut);
-  
-  /* create result on stack */
-  m_out = 1;  n_out = 1;
-  createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);
-  
-  LhsVar(1) = Rhs + 1; 
-  
-  /* This function put on scilab stack, the lhs variable
-  which are at the position lhs(i) on calling stack */
-  /* You need to add PutLhsVar here because WITHOUT_ADD_PUTLHSVAR 
-  was defined and equal to %t */
-  /* without this, you do not need to add PutLhsVar here */
-  PutLhsVar();
-  
-  return 0;
 }
 /* ==================================================================== */
 
index 20072da..3fe6b09 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
 /* ==================================================================== */
 int sci_csum(char *fname)
 {
-  SciErr sciErr;
-  
-  int *piAddressVarOne = NULL;
-  double dVarOne = 0.0;
-  
-  int *piAddressVarTwo = NULL;
-  double dVarTwo = 0.0;
-  
-  double dOut = 0.0;
-
-  /* --> result = csum(3,8)
-  /* check that we have only 2 input arguments */
-  /* check that we have only 1 output argument */
-  CheckRhs(2,2) ;
-  CheckLhs(1,1) ;   
-  
-  /* get Address of inputs */
-  sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  /* check input type */
-  if ( !isDoubleType(pvApiCtx, piAddressVarOne) )
-  {
-    Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 1);
-    return 0;
-  }
-  
-  if ( !isDoubleType(pvApiCtx, piAddressVarTwo) )
-  {
-    Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 2);
-    return 0;
-  }
+    SciErr sciErr;
 
-  if ( getScalarDouble(pvApiCtx, piAddressVarOne, &dVarOne) )
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 1);
-    return 0;
-  }
+    int *piAddressVarOne = NULL;
+    double dVarOne = 0.0;
+
+    int *piAddressVarTwo = NULL;
+    double dVarTwo = 0.0;
+
+    double dOut = 0.0;
+
+    /* --> result = csum(3,8)
+    /* check that we have only 2 input arguments */
+    /* check that we have only 1 output argument */
+    CheckInputArgument(pvApiCtx, 2, 2) ;
+    CheckOutputArgument(pvApiCtx, 1, 1) ;
+
+    /* get Address of inputs */
+    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* check input type */
+    if ( !isDoubleType(pvApiCtx, piAddressVarOne) )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+
+    if ( !isDoubleType(pvApiCtx, piAddressVarTwo) )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    if ( getScalarDouble(pvApiCtx, piAddressVarOne, &dVarOne) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+
+    if ( getScalarDouble(pvApiCtx, piAddressVarTwo, &dVarTwo) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    /* call c function csum */
+    csum(&dVarOne, &dVarTwo, &dOut);
+
+    /* create result on stack */
+    createScalarDouble(pvApiCtx, InputArgument + 1, dOut);
+
+    AssignOutputVariable(1) = InputArgument + 1;
+
+    /* This function put on scilab stack, the lhs variable
+    which are at the position lhs(i) on calling stack */
+    /* You need to add UpdateStack here because WITHOUT_ADD_PUTLHSVAR
+    was defined and equal to %t */
+    /* without this, you do not need to add UpdateStack here */
+    UpdateStack();
 
-  if ( getScalarDouble(pvApiCtx, piAddressVarTwo, &dVarTwo) )
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 2);
     return 0;
-  }
-  
-  /* call c function csum */
-  csum(&dVarOne, &dVarTwo, &dOut);
-  
-  /* create result on stack */
-  createScalarDouble(pvApiCtx, Rhs + 1, dOut);
-  
-  LhsVar(1) = Rhs + 1; 
-  
-  /* This function put on scilab stack, the lhs variable
-  which are at the position lhs(i) on calling stack */
-  /* You need to add PutLhsVar here because WITHOUT_ADD_PUTLHSVAR 
-  was defined and equal to %t */
-  /* without this, you do not need to add PutLhsVar here */
-  PutLhsVar();
-  
-  return 0;
 }
 /* ==================================================================== */
 
index 4148959..3ee3cf1 100644 (file)
@@ -1,5 +1,4 @@
 /* ==================================================================== */
-/* 2011 - Digiteo - Sylvestre LEDRU
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
 /* ==================================================================== */
 int sci_multiplybypi(char *fname)
 {
-  SciErr sciErr;
-  
-  int m1 = 0, n1 = 0;
-  int *piAddressVarOne = NULL;
-  double *matrixOfDouble = NULL;
-  int iType1 = 0;
-  int i = 0;
+    SciErr sciErr;
 
-  /* --> result = multiplybypi(8) */
-  /* --> result = multiplybypi([12, 42; 42, 12]) */
-  /* check that we have only 1 input argument */
-  /* check that we have only 1 output argument */
-  CheckRhs(1,1) ;
-  CheckLhs(1,1) ;   
-  
-  /* get Address of inputs */
-  sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-    
+    int m1 = 0, n1 = 0;
+    int *piAddressVarOne = NULL;
+    double *matrixOfDouble = NULL;
+    int iType1 = 0;
+    int i = 0;
 
-  /* check input type */
-  sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  if ( iType1 != sci_matrix )
-  {
-       Scierror(999,"%s: Wrong type for input argument #%d: A matrix expected.\n",fname,1);
-       return 0;
-  }
-  
-  /* get matrix */
-  sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne, &m1, &n1, &matrixOfDouble);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-  
-  /* The difference with the csum & csub is that we give the argument as copy
-   * and not as reference */
-  for (i=0; i < m1*n1; i++) {
-      /* For each element of the matrix, multiply by pi */
-      matrixOfDouble[i] = multiplybypi(matrixOfDouble[i]);
-  }
+    /* --> result = multiplybypi(8) */
+    /* --> result = multiplybypi([12, 42; 42, 12]) */
+    /* check that we have only 1 input argument */
+    /* check that we have only 1 output argument */
+    CheckInputArgument(pvApiCtx, 1, 1) ;
+    CheckOutputArgument(pvApiCtx, 1, 1) ;
+
+    /* get Address of inputs */
+    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+
+    /* check input type */
+    sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
 
-  /* Create the matrix as return of the function */
-  createMatrixOfDouble(pvApiCtx, Rhs + 1, m1, n1, matrixOfDouble);
-  if(sciErr.iErr)
-  {
-      printError(&sciErr, 0);
-      return 0;
-  }
+    if ( iType1 != sci_matrix )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A matrix expected.\n", fname, 1);
+        return 0;
+    }
 
-  LhsVar(1) = Rhs + 1; 
-  
-  /* This function put on scilab stack, the lhs variable
-  which are at the position lhs(i) on calling stack */
-  /* You need to add PutLhsVar here because WITHOUT_ADD_PUTLHSVAR 
-  was defined and equal to %t */
-  /* without this, you do not need to add PutLhsVar here */
-  PutLhsVar();
-  
-  return 0;
+    /* get matrix */
+    sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne, &m1, &n1, &matrixOfDouble);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* The difference with the csum & csub is that we give the argument as copy
+     * and not as reference */
+    for (i = 0; i < m1 * n1; i++)
+    {
+        /* For each element of the matrix, multiply by pi */
+        matrixOfDouble[i] = multiplybypi(matrixOfDouble[i]);
+    }
+
+    /* Create the matrix as return of the function */
+    createMatrixOfDouble(pvApiCtx, InputArgument + 1, m1, n1, matrixOfDouble);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    AssignOutputVariable(1) = InputArgument + 1;
+
+    /* This function put on scilab stack, the lhs variable
+    which are at the position lhs(i) on calling stack */
+    /* You need to add UpdateStack here because WITHOUT_ADD_PUTLHSVAR
+    was defined and equal to %t */
+    /* without this, you do not need to add UpdateStack here */
+    UpdateStack();
+
+    return 0;
 }
 /* ==================================================================== */
 
index 9c22f8e..b0b4d04 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -30,10 +28,10 @@ extern "C"
     int iType2 = 0;
     
     /* Check the number of input argument */
-    CheckRhs(2,2); 
+    CheckInputArgument(pvApiCtx, 2,2); 
     
     /* Check the number of output argument */
-    CheckLhs(1,1);
+    CheckOutputArgument(pvApiCtx, 1,1);
     
     /* get Address of inputs */
     sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
@@ -125,10 +123,18 @@ extern "C"
     
     
     std::string myMessage (pStVarOne);
-    if (pStVarOne) {FREE(pStVarOne); pStVarOne = NULL;}
+    if (pStVarOne)
+      {
+       FREE(pStVarOne); 
+       pStVarOne = NULL;
+      }
        
     std::string search(pStVarTwo);
-    if (pStVarTwo) {FREE(pStVarTwo); pStVarTwo = NULL;}
+    if (pStVarTwo)
+      {
+       FREE(pStVarTwo);
+       pStVarTwo = NULL;
+      }
 
     /* Where we will store the position */
     double dOut = 0.0;
@@ -143,14 +149,15 @@ extern "C"
     }
     
     /* create result on stack */
-    int m_out = 1, n_out = 1;
+    int m_out = 1;
+    int n_out = 1;
     
-    createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);
+    createMatrixOfDouble(pvApiCtx, InputArgument + 1, m_out, n_out, &dOut);
     
-    LhsVar(1) = Rhs + 1; 
+    AssignOutputVariable(1) = InputArgument + 1; 
 
     return 0;
        }
 /* ==================================================================== */     
 } /* extern "C" */
-/* ==================================================================== */
\ No newline at end of file
+/* ==================================================================== */
index 489fb71..337103d 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
 #include "Scierror.h"
 #include "MALLOC.h"
 /* ==================================================================== */
-extern int F2C(fsum)(double *a,double *b,double *c);
+extern int F2C(fsum)(double *a, double *b, double *c);
 /* ==================================================================== */
 int sci_fsum(char *fname)
 {
-  SciErr sciErr;
-       
-  int m1 = 0, n1 = 0;
-  int *piAddressVarOne = NULL;
-  double *pdVarOne = NULL;
-  int iType1 = 0;  
-  
-  int m2 = 0, n2 = 0;
-  int *piAddressVarTwo = NULL;
-  double *pdVarTwo = NULL;
-  int iType2 = 0;  
-  
-  int m_out = 0, n_out = 0;
-  double dOut = 0.0;
-
-  /* --> result = csum(3,8)
-  /* check that we have only 2 parameters input */
-  /* check that we have only 1 parameters output */
-  CheckRhs(2,2) ;
-  CheckLhs(1,1) ;   
-  
-  /* get Address of inputs */
-  sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-    
-  sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }  
-  
-  /* check input type */
-  sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  } 
-   
-  if ( iType1 != sci_matrix )
-  {
-    Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n",fname,1);
-    return 0;
-  }
+    SciErr sciErr;
 
-  sciErr = getVarType(pvApiCtx, piAddressVarTwo, &iType2);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }   
-  
-  if ( iType2 != sci_matrix )
-  {
-    Scierror(999,"%s: Wrong type for input argument #%d: A scalar expected.\n",fname,2);
-    return 0;
-  }
+    int m1 = 0, n1 = 0;
+    int *piAddressVarOne = NULL;
+    double *pdVarOne = NULL;
+    int iType1 = 0;
+
+    int m2 = 0, n2 = 0;
+    int *piAddressVarTwo = NULL;
+    double *pdVarTwo = NULL;
+    int iType2 = 0;
+
+    int m_out = 0, n_out = 0;
+    double dOut = 0.0;
+
+    /* --> result = csum(3,8)
+    /* check that we have only 2 parameters input */
+    /* check that we have only 1 parameters output */
+    CheckInputArgument(pvApiCtx, 2, 2) ;
+    CheckOutputArgument(pvApiCtx, 1, 1) ;
+
+    /* get Address of inputs */
+    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* check input type */
+    sciErr = getVarType(pvApiCtx, piAddressVarOne, &iType1);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    if ( iType1 != sci_matrix )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+
+    sciErr = getVarType(pvApiCtx, piAddressVarTwo, &iType2);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    if ( iType2 != sci_matrix )
+    {
+        Scierror(999, "%s: Wrong type for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    /* get matrix */
+    sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne, &m1, &n1, &pdVarOne);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarTwo, &m2, &n2, &pdVarTwo);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+
+    /* check size */
+    if ( (m1 != n1) && (n1 != 1) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 1);
+        return 0;
+    }
+    if ( (m2 != n2) && (n2 != 1) )
+    {
+        Scierror(999, "%s: Wrong size for input argument #%d: A scalar expected.\n", fname, 2);
+        return 0;
+    }
+
+    /* call fortran subroutine fsum */
+    F2C(fsum)(&pdVarOne[0], &pdVarTwo[0], &dOut);
+
+    /* create result on stack */
+    m_out = 1;
+    n_out = 1;
+    sciErr = createMatrixOfDouble(pvApiCtx, InputArgument + 1, m_out, n_out, &dOut);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 0;
+    }
+    AssignOutputVariable(1) = InputArgument + 1;
 
-  /* get matrix */
-  sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarOne,&m1,&n1,&pdVarOne);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }
-    
-  sciErr = getMatrixOfDouble(pvApiCtx, piAddressVarTwo,&m2,&n2,&pdVarTwo);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
-    return 0;
-  }  
-  
-  /* check size */
-  if ( (m1 != n1) && (n1 != 1) ) 
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n",fname,1);
-    return 0;
-  }
-  if ( (m2 != n2) && (n2 != 1) ) 
-  {
-    Scierror(999,"%s: Wrong size for input argument #%d: A scalar expected.\n",fname,2);
-    return 0;
-  }
-  
-  /* call fortran subroutine fsum */
-  F2C(fsum)(&pdVarOne[0],&pdVarTwo[0],&dOut);
-  
-  /* create result on stack */
-  m_out = 1;  n_out = 1;
-  sciErr = createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);
-  if(sciErr.iErr)
-  {
-    printError(&sciErr, 0);
     return 0;
-  }  
-  LhsVar(1) = Rhs + 1; 
-  
-  return 0;
 }
 /* ==================================================================== */
 
 
-  
\ No newline at end of file
+
index fcabaca..7892acd 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* INRIA 2008 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -8,7 +6,7 @@
 /* ==================================================================== */
 int csub(double *a, double *b, double *c)
 {
-       *c = *a - *b;
-       return 0;
+    *c = *a - *b;
+    return 0;
 }
 /* ==================================================================== */
index adaeea5..50e3fa0 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -9,7 +7,7 @@
 
 /**
 * csub function
-* @param[in] a 
+* @param[in] a
 * @param[in] b
 * @param[in,out] c result of a - b
 * @return 0
index eb8a58f..738f2ae 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* INRIA 2008 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -8,7 +6,7 @@
 /* ==================================================================== */
 int csum(double *a, double *b, double *c)
 {
-       *c = *a + *b;
-       return 0;
+    *c = *a + *b;
+    return 0;
 }
 /* ==================================================================== */
index 44e6a90..151d72c 100644 (file)
@@ -1,6 +1,4 @@
 /* ==================================================================== */
-/* Allan CORNET */
-/* DIGITEO 2009 */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -9,7 +7,7 @@
 
 /**
 * csum function
-* @param[in] a 
+* @param[in] a
 * @param[in] b
 * @param[in,out] c result of a + b
 * @return 0
index c037716..42a8c8d 100644 (file)
@@ -1,5 +1,4 @@
 /* ==================================================================== */
-/* 2011 - Digiteo - Sylvestre LEDRU
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
@@ -12,6 +11,6 @@
 /* ==================================================================== */
 double multiplybypi(double a)
 {
-       return a*M_PI;
+    return a * M_PI;
 }
 /* ==================================================================== */
index a215444..c354b88 100644 (file)
@@ -1,5 +1,4 @@
 /* ==================================================================== */
-/* 2011 - Digiteo - Sylvestre LEDRU */
 /* Template toolbox_skeleton */
 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
 /* ==================================================================== */
index f91def4..b58ce28 100644 (file)
@@ -1,6 +1,4 @@
 c =================================
-c Allan CORNET
-c COPYRIGHT INRIA 2008
 c Template toolbox_skeleton
 c This file is released under the 3-clause BSD license. See COPYING-BSD.
 
index a5260a5..e92c9e5 100644 (file)
@@ -1,7 +1,6 @@
 ;##############################################################################################################
 ; Inno Setup Install script for Toolbox_skeleton
 ; http://www.jrsoftware.org/isinfo.php
-; Allan CORNET
 ; This file is released under the 3-clause BSD license. See COPYING-BSD.
 ;##############################################################################################################
 ; modify this path where is toolbox_skeleton directory