RosettaCodeData/Task/Call-a-foreign-language-function/Aikido/call-a-foreign-language-function-1.aikido
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

13 lines
302 B
Text

#include <aikido.h>
extern "C" { // need C linkage
// define the function using a macro defined in aikido.h
AIKIDO_NATIVE(strdup) {
aikido::string *s = paras[0].str;
char *p = strdup (s->c_str());
aikido::string *result = new aikido::string(p);
free (p);
return result;
}
}