[英]Run C Code Block in Erlang
如何從Erlang運行C代碼塊? (或者從erlang調用C函數?)
這是為了創建一個驅動程序
首先,您需要創建C / C ++文件才能執行此操作。
他們需要包括
#include "erl_driver.h"
#include "ei.h"
然后,您需要設置驅動程序映射
/* mapping of the drivers functions */
static ErlDrvEntry driver_entry = {
NULL, /* init */
startup_function_name, /* startup */
shutdown_function_name, /* shutdown */
NULL, /* output */
NULL, /* ready_input */
NULL, /* ready_output */
driver_name, /* the name of the driver */
NULL, /* finish */
NULL, /* handle */
NULL, /* control */
NULL, /* timeout */
outputv_function_name, /* outputv */
NULL, /* ready_async */
NULL, /* flush */
NULL, /* call */
NULL, /* event */
ERL_DRV_EXTENDED_MARKER, /* ERL_DRV_EXTENDED_MARKER */
ERL_DRV_EXTENDED_MAJOR_VERSION, /* ERL_DRV_EXTENDED_MAJOR_VERSION */
ERL_DRV_EXTENDED_MAJOR_VERSION, /* ERL_DRV_EXTENDED_MINOR_VERSION */
ERL_DRV_FLAG_USE_PORT_LOCKING /* ERL_DRV_FLAGs */
};
DRIVER_INIT(driver_name){
return &driver_entry;
}
注意:如果您嘗試運行C ++代碼而不是C,則需要
extern "C" {
DRIVER_INIT(driver_name){
return &driver_entry;
}
}
你需要使用(char *)轉換任何文字字符串
然后定義一個包含端口信息的結構是很好的
typedef struct
{
ErlDrvPort port;
} port_data;
最后,您需要設置所有功能
static ErlDrvData startup_function_name(ErlDrvPort port, char *doc)
{
/* Plus any other start up methods you need */
port_data* d = (port_data*)driver_alloc(sizeof(port_data));
d->port = port;
return (ErlDrvData)d;
}
/* Plus any other shutdown methods you need */
static void shutdown_function_name(ErlDrvData handle)
{
driver_free((char*)handle);
}
static void outputv_function_name(ErlDrvData handle, ErlIOVec *ev)
{
port_data* d = (port_data*)handle;
char* inputstring = ev->binv[1]->orig_bytes;
ErlDrvTermData spec[] = {
ERL_DRV_ATOM, driver_mk_atom("ok"),
ERL_DRV_BUF2BINARY, inputstring, strlen(inputstring)
ERL_DRV_TUPLE, 2
};
driver_send_term(d->port,driver_caller(d->port),spec,sizeof(spec)/sizeof(spec[0]));
}
您需要將此C / C ++代碼編譯為共享對象並將其與erl接口鏈接
g++ -fpic -rdynamic -shared file_name -lerl_interface -lei
現在從erlang你會想做幾件事:你需要加載驅動程序
erl_ddll:load_driver("./location/of/driver", driver_name).
然后你將打開一個驅動程序的端口
Port = open_port({spawn, driver_name}, [binary]).
最后,您可以將數據發送到端口
port_command(Port, <<"String to Echo Back"),
receive
{ok, String} -> io:format("Received ~p back from the driver")
end.
最新的方法將考慮NIF http://www.erlang.org/doc/man/erl_nif.html (小心,它可能會崩潰VM)。 通常的方法是在驅動程序中鏈接(谷歌鏈接,因為反垃圾郵件持有它)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.