<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Jun 27, 2013 at 10:55 PM, Faré <span dir="ltr"><<a href="mailto:fahree@gmail.com" target="_blank">fahree@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div id=":6i" style>I'd like to add a test in test-bundle.script.<br>
I tried this:<br>
<br>
  (operate 'dll-op :test-asdf/bundle-2)<br>
  (si:load-foreign-module (first (output-files 'dll-op :test-asdf/bundle-2)))<br>
<br>
  (ffi:def-function "init_dll_BUNDLE_2" () :returning :void)<br>
  (init-dll-BUNDLE-2)<br>
<br>
But the function call fails, because it the test script is<br>
interpreted, not compiled.<br>
How do I call the initialization function from the interpreter?</div></blockquote></div><br>The initialization function cannot be directly called, so I would rather recommend the following solution. First, file2.lisp is changed as below. Then, instead of calling a function, we verify that the library is available by serching for a symbol</div>

<div class="gmail_extra"><br></div><div class="gmail_extra">(si::find-foreign-symbol "sample_function" "name-of-dll" :pointer-void 0)<br></div><div class="gmail_extra"><br></div><div class="gmail_extra">

---- file2.lisp ----</div><div class="gmail_extra"><div class="gmail_extra">#+ecl<br></div><div class="gmail_extra">(ffi:clines "</div><div class="gmail_extra">extern int sample_function();</div><div class="gmail_extra">

<br></div><div class="gmail_extra">int sample_function()</div><div class="gmail_extra">{</div><div class="gmail_extra"><span class="" style="white-space:pre">        </span>return 0;</div><div class="gmail_extra">}</div><div class="gmail_extra">

")</div><div class="gmail_extra"><br></div><br clear="all"><div><br></div>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://quinfog.iff.csic.es" target="_blank">http://quinfog.iff.csic.es</a>
</div><div class="gmail_extra"><br></div></div>