Call a function in a shared library: Difference between revisions

=={{header|Ol}}==

Note: "strdup" is existent shared function, "strduX" is not existent.

<lang scheme>

(import (otus ffi))

(define self (load-dynamic-library #f))

(define strdup (or

(self type-string "strdup" type-string)

(lambda (str)

(list->string (string->list str)))))

(define strduX (or

(self type-string "strduX" type-string)

(lambda (str)

(list->string (string->list str)))))

(print (strdup "Hello World!"))

(print (strduX "Hello World!"))

</lang>

{{Out}}

<pre>

Hello World!

Hello World!

</pre>