* Bug #15020 fixed - Examples of ilib_build help page updated. 35/19135/3
Adeline CARNIS [Mon, 27 Feb 2017 09:32:48 +0000 (10:32 +0100)]
Change-Id: I56cbc6d818fcc9c0a5f04ad7cbf90dbfdf412859

scilab/CHANGES.md
scilab/modules/dynamic_link/help/en_US/ilib_build.xml

index 376fb7c..f8852cf 100644 (file)
@@ -462,6 +462,7 @@ the [development mailing list](dev@lists.scilab.org) for a particular toolbox.
 * [#15015](http://bugzilla.scilab.org/show_bug.cgi?id=15015): Xcos blocks using the `ascii` didn't work
 * [#15017](http://bugzilla.scilab.org/show_bug.cgi?id=15017): On numbers, `gcd` result was always of `int32` type instead of matching the input type.
 * [#15019](http://bugzilla.scilab.org/show_bug.cgi?id=15019): Add 'csci6' in the calling of ilib_build in 'Getting started with API_Scilab' help page.
+* [#15020](http://bugzilla.scilab.org/show_bug.cgi?id=15020): Examples of ilib_build help page updated.
 * [#15023](http://bugzilla.scilab.org/show_bug.cgi?id=15023): `clf()` wrongly reset `figure_id`.
 * [#15024](http://bugzilla.scilab.org/show_bug.cgi?id=15024): Xcos labels were not preserved at diagram compilation.
 * [#15028](http://bugzilla.scilab.org/show_bug.cgi?id=15028): `assert_checkalmostequal` could not work with polynomials.
index c554f81..0d406f3 100644 (file)
@@ -143,7 +143,7 @@ i=['#include <stdlib.h>'
    ''
    'extern int fun1 ( double *x, double *y);'
    ''
-   'int sci_fun1(char *fname)'
+   'int sci_fun1(char *fname, void* pvApiCtx)'
    '{'
    '  int iType1 = 0;'
    '  SciErr sciErr;'
@@ -202,63 +202,6 @@ fun1(33)
 ]]></programlisting>
     </refsection>
     <refsection>
-        <title>Examples (C code - previous Scilab API &lt; 5.2)</title>
-        <programlisting role="example"><![CDATA[
-cd TMPDIR;
-mkdir('example_ilib_build_c_old');
-cd('example_ilib_build_c_old');
-
-//Here with give a complete example on adding new primitive to Scilab
-//create the procedure files
-f1=['extern double fun2();'
-    'void fun1(double *x, double *y)'
-    '{*y=fun2(*x)/(*x);}'];
-
-mputl(f1,'fun1.c')
-
-f2=['#include <math.h>'
-    'double fun2(double x)'
-    '{ return( sin(x+1.));}'];
-mputl(f2,'fun2.c');
-
-//creating the interface file
-i=['#include ""stack-c.h""'
-   '#include ""stackTypeVariable.h""'
-   '#include ""version.h""'
-   '#if SCI_VERSION_MAJOR <= 5'
-   '#if SCI_VERSION_MINOR <  2'
-   '   #error ""This example is obsolete see help ilib_build""'
-   '#endif'
-   '#endif'
-   ''
-   'extern int fun1 ( double *x, double *y);'
-   'int intfun1(char *fname)'
-   '{'
-   '  int m1,n1,l1;'
-   '  CheckRhs(1,1);'
-   '  CheckLhs(1,1);'
-   '  GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);'
-   '  fun1(stk(l1),stk(l1));'
-   '  LhsVar(1) = 1;'
-   '  return 0;'
-   '}'];
-mputl(i,'intfun1.c')
-
-//creating the shared library (a gateway, a Makefile and a loader are
-//generated.
-
-files=['fun1.c','fun2.c','intfun1.c'];
-ilib_build('ilib_c_old',['scifun1','intfun1'],files,[]);
-
-// load the shared library
-
-exec loader.sce
-
-//using the new primitive
-scifun1(33)
- ]]></programlisting>
-    </refsection>
-    <refsection>
         <title>Examples (C++ code)</title>
         <programlisting role="example"><![CDATA[
 cd TMPDIR;
@@ -272,7 +215,7 @@ i=['#include <string>'
    '#include <localization.h>'
    '#include <Scierror.h>'
    ''
-   'int sci_cppfind(char *fname)'
+   'int sci_cppfind(char *fname, void* pvApiCtx)'
    '{'
    ''
    ' SciErr sciErr;'
@@ -420,69 +363,6 @@ if cppfind("my very long string","short") <> -1 pause, end
  ]]></programlisting>
     </refsection>
     <refsection>
-        <title>Examples (C++ code - previous Scilab API &lt; 5.2)</title>
-        <programlisting role="example"><![CDATA[
-cd TMPDIR;
-mkdir('example_ilib_build_cpp_old');
-cd('example_ilib_build_cpp_old');
-
-i=['#include <string>'
-   'extern ""C"" {'
-   '#include ""stack-c.h""'
-   '#include ""version.h""'
-   '#if SCI_VERSION_MAJOR <= 5'
-   '#if SCI_VERSION_MINOR <  2'
-   '   #error ""This example is obsolete see help ilib_build""'
-   '#endif'
-   '#endif'
-   ''
-   'int sci_cppfind(char *fname) {'
-   '  int m1 = 0, n1 = 0, l1;'
-   '  char *inputString1, *inputString2;'
-   '  int m2 = 0, n2 = 0, l2;'
-   '  int m3 = 0, n3 = 0;'
-   '  double *position = NULL; /* Where we will store the position */'
-   '  CheckRhs(2,2); /* Check the number of input argument */'
-   '  CheckLhs(1,1); /* Check the number of output argument */'
-   '  GetRhsVar(1, ""c"", &m1, &n1, &l1); /* Retrieve the first input argument */'
-   '  inputString1=cstk(l1);'
-   '  GetRhsVar(2, ""c"", &m2, &n2, &l2); /* Retrieve the second input argument */'
-   '  inputString2=cstk(l2);'
-   '  std::string myMessage (inputString1);'
-   '  std::string search (inputString2);'
-   '  m3=1;n3=1;'
-   '  position = new double[1];'
-   '  if (myMessage.find(search) != std::string::npos) {'
-   '    position[0] = myMessage.find(search); /* The actual operation */'
-   '  } else {'
-   '    position[0] = -1; /* Substring not found */'
-   '  }'
-   '  CreateVarFromPtr(Rhs+1,""d"",&m3,&n3,&position); /* Create the output argument */'
-   '  LhsVar(1) = Rhs+1;'
-   '  delete[] position;'
-   '  return 0;'
-   '}'
-   '}'];
-
-mputl(i,'sci_cppfind.cxx');
-
-//creating the shared library (a gateway, a Makefile and a loader are
-//generated.
-
-files=['sci_cppfind.cxx'];
-ilib_build('foo_old',['cppfind','sci_cppfind'],files,[]);
-
-// load the shared library
-
-exec loader.sce
-
-// Small test to see if the function is actually working.
-if cppfind("my very long string","long") <> 8 pause, end
-if cppfind("my very long string","very") <> 3 pause, end
-if cppfind("my very long string","short") <> -1 pause, end
- ]]></programlisting>
-    </refsection>
-    <refsection>
         <title>Examples (Fortran 90 code)</title>
         <programlisting role="example"><![CDATA[
 cd TMPDIR;
@@ -517,7 +397,7 @@ csource = ['#include <stdlib.h>'
    '#include <api_scilab.h>'
    '#include <sciprint.h>'
    ''
-   'int sci_examplecflag(char *fname)'
+   'int sci_examplecflag(char *fname, void* pvApiCtx)'
    '{'
    ''
    '#ifdef __MYDEF_FOR_THIS_FUNCTION__'