MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ You should have received a copy of the GNU General Public License along
+ with this program; if not, write to the Free Software Foundation, Inc.,
+ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#define NEED_PERL_H
return NULL;
}
+void perl_signal_args_to_c(
+ void (*callback)(void *, void **), void *cb_arg,
+ int signal_id, SV **args, size_t n_args)
+{
+ union {
+ int v_int;
+ unsigned long v_ulong;
+ GSList *v_gslist;
+ GList *v_glist;
+ } saved_args[SIGNAL_MAX_ARGUMENTS];
+ void *p[SIGNAL_MAX_ARGUMENTS];
+ PERL_SIGNAL_ARGS_REC *rec;
+ size_t n;
+
+ if (!(rec = perl_signal_args_find(signal_id))) {
+ const char *name = signal_get_id_str(signal_id);
+ if (!name) {
+ croak("%d is not a known signal id", signal_id);
+ }
+ croak("\"%s\" is not a registered signal", name);
+ }
+
+ for (n = 0; n < SIGNAL_MAX_ARGUMENTS && n < n_args && rec->args[n] != NULL; ++n) {
+ void *c_arg;
+ SV *arg = args[n];
+
+ if (!SvOK(arg)) {
+ c_arg = NULL;
+ } else if (strcmp(rec->args[n], "string") == 0) {
+ c_arg = SvPV_nolen(arg);
+ } else if (strcmp(rec->args[n], "int") == 0) {
+ c_arg = (void *)SvIV(arg);
+ } else if (strcmp(rec->args[n], "ulongptr") == 0) {
+ saved_args[n].v_ulong = SvUV(arg);
+ c_arg = &saved_args[n].v_ulong;
+ } else if (strcmp(rec->args[n], "intptr") == 0) {
+ saved_args[n].v_int = SvIV(SvRV(arg));
+ c_arg = &saved_args[n].v_int;
+ } else if (strncmp(rec->args[n], "glistptr_", 9) == 0) {
+ GList *gl;
+ int is_str;
+ AV *av;
+ SV *t;
+ int count;
+
+ t = SvRV(arg);
+ if (SvTYPE(t) != SVt_PVAV) {
+ croak("Not an ARRAY reference");
+ }
+ av = (AV *)t;
+
+ is_str = strcmp(rec->args[n]+9, "char*") == 0;
+
+ gl = NULL;
+ count = av_len(av) + 1;
+ while (count-- > 0) {
+ SV **px = av_fetch(av, count, 0);
+ SV *x = px ? *px : NULL;
+ gl = g_list_prepend(
+ gl,
+ x == NULL ? NULL :
+ is_str ? g_strdup(SvPV_nolen(x)) :
+ irssi_ref_object(x)
+ );
+ }
+ saved_args[n].v_glist = gl;
+ c_arg = &saved_args[n].v_glist;
+ } else if (strncmp(rec->args[n], "gslist_", 7) == 0) {
+ GSList *gsl;
+ AV *av;
+ SV *t;
+ int count;
+
+ t = SvRV(arg);
+ if (SvTYPE(t) != SVt_PVAV) {
+ croak("Not an ARRAY reference");
+ }
+ av = (AV *)t;
+
+ gsl = NULL;
+ count = av_len(av) + 1;
+ while (count-- > 0) {
+ SV **x = av_fetch(av, count, 0);
+ gsl = g_slist_prepend(
+ gsl,
+ x == NULL ? NULL :
+ irssi_ref_object(*x)
+ );
+ }
+ c_arg = saved_args[n].v_gslist = gsl;
+ } else {
+ c_arg = irssi_ref_object(arg);
+ }
+
+ p[n] = c_arg;
+ }
+
+ for (; n < SIGNAL_MAX_ARGUMENTS; ++n) {
+ p[n] = NULL;
+ }
+
+ callback(cb_arg, p);
+
+ for (n = 0; n < SIGNAL_MAX_ARGUMENTS && n < n_args && rec->args[n] != NULL; ++n) {
+ SV *arg = args[n];
+
+ if (!SvOK(arg)) {
+ continue;
+ }
+
+ if (strcmp(rec->args[n], "intptr") == 0) {
+ SV *t = SvRV(arg);
+ SvIOK_only(t);
+ SvIV_set(t, saved_args[n].v_int);
+ } else if (strncmp(rec->args[n], "gslist_", 7) == 0) {
+ g_slist_free(saved_args[n].v_gslist);
+ } else if (strncmp(rec->args[n], "glistptr_", 9) == 0) {
+ int is_iobject, is_str;
+ AV *av;
+ GList *gl, *tmp;
+
+ is_iobject = strcmp(rec->args[n]+9, "iobject") == 0;
+ is_str = strcmp(rec->args[n]+9, "char*") == 0;
+
+ av = (AV *)SvRV(arg);
+ av_clear(av);
+
+ gl = saved_args[n].v_glist;
+ for (tmp = gl; tmp != NULL; tmp = tmp->next) {
+ av_push(av,
+ is_iobject ? iobject_bless((SERVER_REC *)tmp->data) :
+ is_str ? new_pv(tmp->data) :
+ irssi_bless_plain(rec->args[n]+9, tmp->data)
+ );
+ }
+
+ if (is_str) {
+ g_list_foreach(gl, (GFunc)g_free, NULL);
+ }
+ g_list_free(gl);
+ }
+ }
+}
+
static void perl_call_signal(PERL_SCRIPT_REC *script, SV *func,
int signal_id, gconstpointer *args)
{
rec != NULL && rec->args[n] != NULL; n++) {
arg = (void *) args[n];
- if (strcmp(rec->args[n], "string") == 0)
- perlarg = new_pv(arg);
- else if (strcmp(rec->args[n], "int") == 0)
- perlarg = newSViv((IV)arg);
- else if (strcmp(rec->args[n], "ulongptr") == 0)
- perlarg = newSViv(*(unsigned long *) arg);
- else if (strcmp(rec->args[n], "intptr") == 0)
- saved_args[n] = perlarg = newRV_noinc(newSViv(*(int *) arg));
- else if (strncmp(rec->args[n], "glistptr_", 9) == 0) {
+ if (strncmp(rec->args[n], "glistptr_", 9) == 0) {
/* pointer to linked list - push as AV */
GList *tmp, **ptr;
int is_iobject, is_str;
}
saved_args[n] = perlarg = newRV_noinc((SV *) av);
- } else if (strncmp(rec->args[n], "gslist_", 7) == 0) {
+ } else if (strcmp(rec->args[n], "int") == 0)
+ perlarg = newSViv((IV)arg);
+ else if (arg == NULL)
+ perlarg = &PL_sv_undef;
+ else if (strcmp(rec->args[n], "string") == 0)
+ perlarg = new_pv(arg);
+ else if (strcmp(rec->args[n], "ulongptr") == 0)
+ perlarg = newSViv(*(unsigned long *) arg);
+ else if (strcmp(rec->args[n], "intptr") == 0)
+ saved_args[n] = perlarg = newRV_noinc(newSViv(*(int *) arg));
+ else if (strncmp(rec->args[n], "gslist_", 7) == 0) {
/* linked list - push as AV */
GSList *tmp;
int is_iobject;
}
perlarg = newRV_noinc((SV *) av);
- } else if (arg == NULL) {
- /* don't bless NULL arguments */
- perlarg = newSViv(0);
} else if (strcmp(rec->args[n], "iobject") == 0) {
/* "irssi object" - any struct that has
"int type; int chat_type" as it's first
perl_signal_destroy(rec);
}
-#define sv_func_cmp(f1, f2, len) \
+#define sv_func_cmp(f1, f2) \
(f1 == f2 || (SvPOK(f1) && SvPOK(f2) && \
- strcmp((char *) SvPV(f1, len), (char *) SvPV(f2, len)) == 0))
+ strcmp((char *) SvPV_nolen(f1), (char *) SvPV_nolen(f2)) == 0))
static void perl_signal_remove_list(GSList **list, SV *func)
{
for (tmp = *list; tmp != NULL; tmp = tmp->next) {
PERL_SIGNAL_REC *rec = tmp->data;
- if (sv_func_cmp(rec->func, func, PL_na)) {
+ if (sv_func_cmp(rec->func, func)) {
perl_signal_remove_list_one(list, rec);
break;
}
projects / silc.git / blobdiff