<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="FR" link="#0563C1" vlink="#954F72">
<div class="WordSection1">
<p class="MsoNormal">Bonjour,<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">J’aurais besoin d’un éclairage au sujet de l’écriture d’interfaces C++ / Scilab
<o:p></o:p></p>
<p class="MsoNormal">Ma configuration est Scilab 5.4.1 64 bit + module ATOMS mingw + gcc-4.8.2-64.exe sous Windows 7<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Je ne comprends pas pourquoi l’appel de mon code augmente la mémoire utilisée par Scilab.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Pour illustrer mes propos voici un exemple de code écrivant en sortie une liste de double :<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">==============================================================================<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span lang="EN-US">extern "C"{<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#include "api_scilab.h"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#include "Scierror.h"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#include "sciprint.h"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal">int sci_ecrire_liste(char *fname,unsigned long fname_len)<o:p></o:p></p>
<p class="MsoNormal">{<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> // Creation d'une sortie de type liste<o:p></o:p></p>
<p class="MsoNormal"> //-------------------------------------<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> SciErr err;<o:p></o:p></p>
<p class="MsoNormal"> int * piAdrOut; <o:p></o:p></p>
<p class="MsoNormal"> int nb_element = 10000;<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> //creation de la liste dans l'espace memoire de Scilab -> piAdrOut contient l'adresse de la liste<o:p></o:p></p>
<p class="MsoNormal"> err = createList(pvApiCtx, //context Scilab<o:p></o:p></p>
<p class="MsoNormal"> nbInputArgument(pvApiCtx) + 1, //indice de la variable<o:p></o:p></p>
<p class="MsoNormal"> nb_element, //nombre d'elements<o:p></o:p></p>
<p class="MsoNormal"> &piAdrOut); //adresse de la liste dans l'espace memoire de Scilab<o:p></o:p></p>
<p class="MsoNormal"> <span lang="EN-US">if(err.iErr)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> {<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> printError(&err, 0);<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> return 0;<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> </span>}<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> //ajout des elements a la liste<o:p></o:p></p>
<p class="MsoNormal"> <span lang="EN-US">double u = 1;<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> for(int i=0; i<nb_element; i++)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> </span>{<o:p></o:p></p>
<p class="MsoNormal"> err = createMatrixOfDoubleInList(pvApiCtx, //context Scilab<o:p></o:p></p>
<p class="MsoNormal"> nbInputArgument(pvApiCtx) + 1, //indice de la variable<o:p></o:p></p>
<p class="MsoNormal"> piAdrOut, //adresse de la liste dans l'espace memoire de Scilab<o:p></o:p></p>
<p class="MsoNormal"> i + 1, //position dans la liste<o:p></o:p></p>
<p class="MsoNormal"> 1, //dimension 1 de la matrice<o:p></o:p></p>
<p class="MsoNormal"> 1, //dimension 2 de la matrice<o:p></o:p></p>
<p class="MsoNormal"> &u); //pointeur sur le tableau contenant les donnees de la matrice<o:p></o:p></p>
<p class="MsoNormal"> <span lang="EN-US">if(err.iErr)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> {<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> printError(&err, 0);<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> return 0;<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> </span>}<o:p></o:p></p>
<p class="MsoNormal"> }<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> //assignation des sorties n = nb d'entree + n<o:p></o:p></p>
<p class="MsoNormal"> AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> //transmission de l'adresse des sorties a Scilab<o:p></o:p></p>
<p class="MsoNormal"> ReturnArguments(pvApiCtx);<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> return 0;<o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal">}<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">} //extern C<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">==============================================================================<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Une fois ce code compilé à l’aide de ilib_build, j’appelle la fonction en boucle dans Scilab :<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span lang="EN-US">for i=1:100000; u=ecrire_liste(); end;<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal">L’allocation de mémoire pour Scilab dans le gestionnaire des tâches ne fait que augmentée bien que nous écrivions la sortie dans la même variable u.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Est-ce normal ?<o:p></o:p></p>
<p class="MsoNormal">Y-a-t ’il un moyen de modifier la variable u en la passant à la fonction, par exemple ecrire_liste(u) via une fonction « get » dans le programme C++ interface ?
<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Bien à vous.<o:p></o:p></p>
<p class="MsoNormal"><b><span style="font-size:10.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-family:"Arial",sans-serif;mso-fareast-language:FR">Emmanuel SCHNEIDER
<o:p></o:p></span></b></p>
<p class="MsoNormal"><span style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">Bureau d'Etudes Système d'Entrainement<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:10.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><o:p> </o:p></span></p>
<p class="MsoNormal"><b><span lang="DE" style="font-family:"Arial",sans-serif;mso-fareast-language:FR">Liebherr-France SAS</span></b><span lang="DE" style="mso-fareast-language:FR"><br>
</span><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">2, avenue Joseph Rey - BP 90287<br>
FR - 68005 Colmar Cedex<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><o:p> </o:p></span></p>
<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0" style="border-collapse:collapse">
<tbody>
<tr>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">Phone :
</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">+33 3 89 21 39 31</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><o:p> </o:p></span></p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt"></td>
</tr>
<tr>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">Email :
</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><a href="mailto:emmanuel.schneider@liebherr.com"><span style="color:blue">emmanuel.schneider@liebherr.com</span></a></span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR">Internet :
</span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
<p class="MsoNormal" style="line-height:10.8pt"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;mso-fareast-language:FR"><a href="http://www.liebherr.com/"><span style="color:blue">www.liebherr.com</span></a></span><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><o:p></o:p></span></p>
</td>
</tr>
</tbody>
</table>
<p class="MsoNormal"><span lang="DE" style="font-size:9.0pt;font-family:"Arial",sans-serif;color:#BFBFBF;mso-fareast-language:FR">b2bemail4liebherr</span><span style="mso-fareast-language:FR"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:FR"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;mso-fareast-language:FR"><a href="http://www.liebherr.com/fr/deu/actualit%C3%A9s/salons-manifestations/intermat-2015/intermat-2015.html"><span style="color:blue;text-decoration:none"><img border="0" width="375" height="313" id="_x0000_i1029" src="https://dataexchange.liebherr.com/sites/LFR/images1/intermat20152.gif" alt="https://dataexchange.liebherr.com/sites/LFR/images1/intermat20152.gif"></span><span style="color:blue"><br>
</span></a></span><a href="https://twitter.com/intermatparis"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:blue;mso-fareast-language:FR;text-decoration:none"><img border="0" width="29" height="34" id="_x0000_i1028" src="http://dataexchange.liebherr.com/sites/LFR/images1/twitter.gif" alt="http://dataexchange.liebherr.com/sites/LFR/images1/twitter.gif"></span></a><a href="https://www.linkedin.com/groups/INTERMAT-Paris-4290066"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:blue;mso-fareast-language:FR;text-decoration:none"><img border="0" width="31" height="34" id="_x0000_i1027" src="http://dataexchange.liebherr.com/sites/LFR/images1/linkedin.gif" alt="http://dataexchange.liebherr.com/sites/LFR/images1/linkedin.gif"></span></a><a href="https://www.youtube.com/user/INTERMAT2012"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:blue;mso-fareast-language:FR;text-decoration:none"><img border="0" width="32" height="34" id="_x0000_i1026" src="http://dataexchange.liebherr.com/sites/LFR/images1/youtube.gif" alt="http://dataexchange.liebherr.com/sites/LFR/images1/youtube.gif"></span></a><a href="http://blog.intermatconstruction.com/"><span style="font-size:12.0pt;font-family:"Times New Roman",serif;color:blue;mso-fareast-language:FR;text-decoration:none"><img border="0" width="32" height="34" id="_x0000_i1025" src="http://dataexchange.liebherr.com/sites/LFR/images1/blog.gif" alt="http://dataexchange.liebherr.com/sites/LFR/images1/blog.gif"></span></a><o:p></o:p></p>
</div>
</body>
</html>