Call a foreign-language function: Difference between revisions

=={{header|Ada}}==

Ada provides standard interfaces to [[C]], [[C++]], [[Fortran]] and [[Cobol]]. Other language interfaces can be provided as well, but are not mandatory. Usually it is possible to communicate to any language that supports calling conventions standard to the [[OS]] ('''cdecl''', '''stdcall''' etc).

with Interfaces.C; use Interfaces.C;

with Interfaces.C.Strings; use Interfaces.C.Strings;

Put_Line (Value (S2));

Free (S2);

 

=={{header|C++}}==

 

In addition, this code demonstrates a call to a FORTRAN function defined as

Note that the calling convention of FORTRAN depends on the system and the used FORTRAN compiler, and sometimes even on the command line options used for the compiler; here, GNU Fortran with no options is assumed.

#include <string> // for C++ strings

#include <iostream> // for output

// free, not delete, nor delete[], nor operator delete

std::free(msg2);

 

=={{header|Common Lisp}}==

Every version of GNU Forth has experimented with a different means to do C foreign function calls. The current implementation resolves various incompatibilities which had plagued earlier mechanisms by parsing C header files and using the host's native toolchain (i.e. gcc and ld) to generate thunks.

 

 

\c #include <string.h>

duped dup strlen type \ testing

 

 

=={{header|Lisaac}}==

Use backtick notation (`...`) for referencing foreign language (C) features.

 

+ name := TEST_C_INTERFACE;

// this will also be inserted in-place, expression type disregarded

`free(@p)`;

 

=={{header|Modula-3}}==

===Outline of what is linked against===

For the hypothetical [[C]] library that contains functions described by a header file with this in:

float myfunc_b(int, float);

char *myfunc_c(int *);</lang>

 

====file "wrap_mylib.c":====

#include <caml/alloc.h>

#include <mylib.h>

 

====the Makefile:====

ocamlc -c -ccopt -I/usr/include/mylib $<

 

=={{header|Python}}==

 

libc = ctypes.CDLL("/lib/libc.so.6")

libc.strcmp("abc", "def") # -1

 

=={{header|Ruby}}==