pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-04 08:43:13 +02:00
Code Activity

scripts: add function hook_url in scripting API

Browse Source
This commit is contained in:
Sébastien Helleu
2023-09-08 17:07:03 +02:00
parent 24d2ba3338
commit fb00bc1f4b
16 changed files with 705 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl-api.c
+76
View File
@@ -2566,6 +2566,81 @@ API_FUNC(hook_process_hashtable)
API_RETURN_STRING(result);
}
int
weechat_perl_api_hook_url_cb (const void *pointer, void *data,
const char *url,
struct t_hashtable *options,
struct t_hashtable *output)
{
struct t_plugin_script *script;
void *func_argv[4];
char empty_arg[1] = { '\0' };
const char *ptr_function, *ptr_data;
int *rc, ret;
script = (struct t_plugin_script *)pointer;
plugin_script_get_function_and_data (data, &ptr_function, &ptr_data);
if (ptr_function && ptr_function[0])
{
func_argv[0] = (ptr_data) ? (char *)ptr_data : empty_arg;
func_argv[1] = (url) ? (char *)url : empty_arg;
func_argv[2] = options;
func_argv[3] = output;
rc = (int *) weechat_perl_exec (script,
WEECHAT_SCRIPT_EXEC_INT,
ptr_function,
"sshh", func_argv);
if (!rc)
ret = WEECHAT_RC_ERROR;
else
{
ret = *rc;
free (rc);
}
return ret;
}
return WEECHAT_RC_ERROR;
}
API_FUNC(hook_url)
{
char *url, *function, *data;
const char *result;
struct t_hashtable *options;
dXSARGS;
API_INIT_FUNC(1, "hook_url", API_RETURN_EMPTY);
if (items < 5)
API_WRONG_ARGS(API_RETURN_EMPTY);
url = SvPV_nolen (ST (0));
options = weechat_perl_hash_to_hashtable (ST (1),
WEECHAT_SCRIPT_HASHTABLE_DEFAULT_SIZE,
WEECHAT_HASHTABLE_STRING,
WEECHAT_HASHTABLE_STRING);
function = SvPV_nolen (ST (3));
data = SvPV_nolen (ST (4));
result = API_PTR2STR(plugin_script_api_hook_url (weechat_perl_plugin,
perl_current_script,
url,
options,
SvIV (ST (2)), /* timeout */
&weechat_perl_api_hook_url_cb,
function,
data));
if (options)
weechat_hashtable_free (options);
API_RETURN_STRING(result);
}
int
weechat_perl_api_hook_connect_cb (const void *pointer, void *data,
int status, int gnutls_rc,
@@ -5543,6 +5618,7 @@ weechat_perl_api_init (pTHX)
API_DEF_FUNC(hook_fd);
API_DEF_FUNC(hook_process);
API_DEF_FUNC(hook_process_hashtable);
API_DEF_FUNC(hook_url);
API_DEF_FUNC(hook_connect);
API_DEF_FUNC(hook_line);
API_DEF_FUNC(hook_print);