# HG changeset patch # User Nathan Walp # Date 1128277709 0 # Node ID 30947631262d29c7d506612bfd10e59a43c93e2a # Parent 8cc98a1d5b0f1dfec0da00a95ec41747be7313cf [gaim-migrate @ 13859] this at least lets the perl plugin compile on my amd64 box i don't really think we need perl funcs that take va_list anyway committer: Tailor Script diff -r 8cc98a1d5b0f -r 30947631262d plugins/perl/common/Request.xs --- a/plugins/perl/common/Request.xs Sun Oct 02 17:53:48 2005 +0000 +++ b/plugins/perl/common/Request.xs Sun Oct 02 18:28:29 2005 +0000 @@ -1,5 +1,19 @@ #include "module.h" +/* This breaks on faceprint's amd64 box +void * +gaim_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions) + void * handle + const char *title + const char *primary + const char *secondary + unsigned int default_action + void *user_data + size_t action_count + va_list actions + */ + + typedef struct { char *cancel_cb; char *ok_cb; @@ -132,30 +146,19 @@ gpr = g_new(GaimPerlRequestData, 1); gpr->ok_cb = g_strdup_printf("%s::%s", package, SvPV(ok_cb, len)); gpr->cancel_cb = g_strdup_printf("%s::%s", package, SvPV(cancel_cb, len)); - + RETVAL = gaim_request_fields(handle, title, primary, secondary, fields, ok_text, G_CALLBACK(gaim_perl_request_ok_cb), cancel_text, G_CALLBACK(gaim_perl_request_cancel_cb), gpr); OUTPUT: RETVAL -void * -gaim_request_action_varg(handle, title, primary, secondary, default_action, user_data, action_count, actions) - void * handle - const char *title - const char *primary - const char *secondary - unsigned int default_action - void *user_data - size_t action_count - va_list actions - -void +void gaim_request_close(type, uihandle) Gaim::RequestType type - void * uihandle + void * uihandle -void +void gaim_request_close_with_handle(handle) - void * handle + void * handle Gaim::Account gaim_request_field_account_get_default_value(field) diff -r 8cc98a1d5b0f -r 30947631262d plugins/perl/common/Status.xs --- a/plugins/perl/common/Status.xs Sun Oct 02 17:53:48 2005 +0000 +++ b/plugins/perl/common/Status.xs Sun Oct 02 18:28:29 2005 +0000 @@ -27,6 +27,21 @@ */ +/* These break on faceprint's amd64 box +void +gaim_status_type_add_attrs_vargs(status_type, args) + Gaim::StatusType status_type + va_list args + +void +gaim_status_set_active_with_attrs(status, active, args) + Gaim::Status status + gboolean active + va_list args + + */ + + MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_ PROTOTYPES: ENABLE @@ -300,12 +315,6 @@ gboolean active void -gaim_status_set_active_with_attrs(status, active, args) - Gaim::Status status - gboolean active - va_list args - -void gaim_status_set_attr_boolean(status, id, value) Gaim::Status status const char *id @@ -326,11 +335,6 @@ void -gaim_status_type_add_attrs_vargs(status_type, args) - Gaim::StatusType status_type - va_list args - -void gaim_status_type_destroy(status_type) Gaim::StatusType status_type