comparison plugins/perl/common/Util.xs @ 11290:b284c703d398

[gaim-migrate @ 13490] Did some house cleaning on the code finished up some of the "TODO" stuff that was left over from when I originally did the XSUBs. Furthermore, the dynamically loaded Perl package problems should be corrected now that the context is set before one of the concurrent perl interpreters is run. committer: Tailor Script <[e-mail]>

11289:b633879e23f9

#include "module.h"

/* TODO

void 
gaim_url_fetch(url, full, user_agent, http11, void *, char *, size_t), data)
	const char *url
	gboolean full
	const char *user_agent
	gboolean http11
 
	const char *
	size_t)

*/

/**********************XS Code for Account.xs*********************************/
MODULE = Gaim::Util  PACKAGE = Gaim::Util  PREFIX = gaim_
PROTOTYPES: ENABLE	
	

int 
gaim_build_dir(path, mode)
	const char *path
	int mode

11290:b284c703d398

#include "module.h"

typedef struct {
	char *cb;
} GaimPerlUrlData;

void gaim_perl_util_url_cb(void *data, const char *url_data, size_t size) {
        GaimPerlUrlData *gpr = (GaimPerlUrlData *)data;
        dSP;
        ENTER;
        SAVETMPS;
        PUSHMARK(sp);

        XPUSHs(sv_2mortal(newSVpv(url_data, 0)));
        PUTBACK;

        call_pv(gpr->cb, G_EVAL | G_SCALAR);
        SPAGAIN;

        PUTBACK;
        FREETMPS;
        LEAVE;
}


MODULE = Gaim::Util  PACKAGE = Gaim::Util  PREFIX = gaim_
PROTOTYPES: ENABLE	

void
gaim_url_fetch(handle, url, full, user_agent, http11, cb)
        Gaim::Plugin handle
        const char *url
        gboolean full
        const char *user_agent
        gboolean http11
        SV * cb
CODE:
        GaimPerlUrlData *gpr;
        STRLEN len;
        char *basename, *package;

        basename = g_path_get_basename(handle->path);
        gaim_perl_normalize_script_name(basename);
        package = g_strdup_printf("Gaim::Script::%s", basename);
        gpr = g_new(GaimPerlUrlData, 1);

	gpr->cb = g_strdup_printf("%s::%s", package, SvPV(cb, len));
        gaim_url_fetch(url, full, user_agent, http11, gaim_perl_util_url_cb, gpr);

int 
gaim_build_dir(path, mode)
	const char *path
	int mode