【发布时间】:2021-12-25 23:54:02
【问题描述】:
我要写一个 Erlang 驱动,所以我先尝试了一点:driverc.c,代码很简单,Driver Erlang Data 是一个长数字的地址,每次调用驱动都会增加这个数字通过n 或将此数字乘以n,n 只是一位数字(0,...., 9)并作为char 传递,代码为:
#include<stdio.h>
#include<stdlib.h>
#include<erl_driver.h>
#include<ei.h>
#include<string.h>
#define SOMME 1
#define PRODUIT 2
static ErlDrvData start(ErlDrvPort port, char *command) ;
static void stop(ErlDrvData data) ;
static ErlDrvSSizeT control(ErlDrvData data, unsigned int command, char *buf, ErlDrvSizeT len, char **rbuf, ErlDrvSizeT rlen);
static long *number;
static ErlDrvEntry myentry={
NULL,
start,
stop,
NULL,
NULL,
NULL,
"driverc",
NULL,
NULL,
control,
NULL,
NULL,
NULL,
NULL,
NULL
};
DRIVER_INIT(driverc)
{return &myentry;}
ErlDrvData start(ErlDrvPort port, char *command)
{number=(long*)driver_alloc(sizeof(long)) ;
*number=0;
set_port_control_flags(port,PORT_CONTROL_FLAG_BINARY);
return (ErlDrvData)number;
}
void stop(ErlDrvData data)
{long *olddata;
olddata=(long*)data;
driver_free(olddata);
}
ErlDrvSSizeT control(ErlDrvData data, insigned int command, char *buf, ErlDrvSizeT len, char **buf, ErlDrvSizeT rlen)
{long reply, m, *olddata, newdata;
int index, result, n;
char c;
c=*buf;
n=c-'0'; /* convert character representation to true integer digit */
m=(long)n;
olddata=(long*)data;
index=0;
switch (command) {
case SOMME : newdata=(*olddata)+m;
*olddata=newdata;
reply=newdata;
break;
case PRODUIT : newdata=(*olddata)*m;
*olddata=newdata;
reply=newdata;
break;
default : reply=-1;
break;
}
result=ei_encode_long(*rbuf,&index,reply) ; /* this function convert a long number (reply) to binary and write it in *rbuf */
return sizeof(reply) ;
}
当我尝试编译它时,它返回错误,我不知道问题出在哪里,shell输出如下。
cc driverc.c -I/usr/local/lib/erlang/usr/include
error : undefined symbol : main
referenced by ....
error : undefined symbol : driver_alloc
referenced by ....
error : undefined symbol : set_port_control_flags
referenced by ....
error : undefined symbol : ei_encode_long
referenced by ....
error : linked command failed with exit code 1 ....
【问题讨论】:
-
旁白:我的 AV 已阻止链接。请在问题中以文字形式发布。
-
是的,我当然会编辑它
标签: c erlang freebsd erlang-otp