diff options
| author | Badlop <badlop@process-one.net> | 2011-12-21 12:15:21 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2011-12-21 12:15:21 +0100 |
| commit | 2029e39299aebe3c4882a26294f4caadc8881265 (patch) | |
| tree | 1e4b7391dbd3dcc42b21f64ffdae7a721e047dd7 /src/expat_erl.c | |
| parent | Replace regexp with ejabberd_regexp (diff) | |
Support Erlang/OTP R15B driver (EJAB-1521)
Diffstat (limited to '')
| -rw-r--r-- | src/expat_erl.c | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/src/expat_erl.c b/src/expat_erl.c index 32826f2f..1ea17e5e 100644 --- a/src/expat_erl.c +++ b/src/expat_erl.c @@ -34,6 +34,16 @@ #define PARSE_COMMAND 0 #define PARSE_FINAL_COMMAND 1 +/* + * R15B changed several driver callbacks to use ErlDrvSizeT and + * ErlDrvSSizeT typedefs instead of int. + * This provides missing typedefs on older OTP versions. + */ +#if ERL_DRV_EXTENDED_MAJOR_VERSION < 2 +typedef int ErlDrvSizeT; +typedef int ErlDrvSSizeT; +#endif + ei_x_buff event_buf; ei_x_buff xmlns_buf; @@ -190,10 +200,10 @@ static void expat_erl_stop(ErlDrvData handle) driver_free((char*)handle); } -static int expat_erl_control(ErlDrvData drv_data, +static ErlDrvSSizeT expat_erl_control(ErlDrvData drv_data, unsigned int command, - char *buf, int len, - char **rbuf, int rlen) + char *buf, ErlDrvSizeT len, + char **rbuf, ErlDrvSizeT rlen) { expat_data* d = (expat_data*)drv_data; int res, errcode; @@ -251,7 +261,19 @@ ErlDrvEntry expat_driver_entry = { NULL, /* handle */ expat_erl_control, /* F_PTR control, port_command callback */ NULL, /* F_PTR timeout, reserved */ - NULL /* F_PTR outputv, reserved */ + NULL, /* F_PTR outputv, reserved */ + /* Added in Erlang/OTP R15B: */ + NULL, /* ready_async */ + NULL, /* flush */ + NULL, /* call */ + NULL, /* event */ + ERL_DRV_EXTENDED_MARKER, /* extended_marker */ + ERL_DRV_EXTENDED_MAJOR_VERSION, /* major_version */ + ERL_DRV_EXTENDED_MINOR_VERSION, /* minor_version */ + 0, /* driver_flags */ + NULL, /* handle2 */ + NULL, /* process_exit */ + NULL /* stop_select */ }; DRIVER_INIT(expat_erl) /* must match name in driver_entry */ |