Job.xs

/* Gearman Perl front end
 * Copyright (C) 2013 Data Differential, http://datadifferential.com/
 * Copyright (C) 2009-2010 Dennis Schoen
 * All rights reserved.
 *
 * This library is free software; you can redistribute it and/or modify
 * it under the same terms as Perl itself, either Perl version 5.8.9 or,
 * at your option, any later version of Perl 5 you may have available.
 */

#include "gearman_xs.h"

typedef struct gearman_job_st gearman_xs_job;

MODULE = Gearman::XS::Job    PACKAGE = Gearman::XS::Job

PROTOTYPES: ENABLE

SV *
workload(self)
    gearman_xs_job *self
  CODE:
    RETVAL= newSVpvn(gearman_job_workload(self), gearman_job_workload_size(self));
  OUTPUT:
    RETVAL

const char *
handle(self)
    gearman_xs_job *self
  CODE:
    RETVAL= gearman_job_handle(self);
  OUTPUT:
    RETVAL

const char *
function_name(self)
    gearman_xs_job *self
  CODE:
    RETVAL= gearman_job_function_name(self);
  OUTPUT:
    RETVAL

const char *
unique(self)
    gearman_xs_job *self
  CODE:
    RETVAL= gearman_job_unique(self);
  OUTPUT:
    RETVAL

gearman_return_t
send_status(self, numerator, denominator)
    gearman_xs_job *self
    uint32_t numerator
    uint32_t denominator
  CODE:
    RETVAL= gearman_job_send_status(self, numerator, denominator);
  OUTPUT:
    RETVAL

gearman_return_t
send_data(self, data)
    gearman_xs_job *self
    SV * data
  PREINIT:
    const char *d;
    size_t d_size;
  CODE:
    d= SvPV(data, d_size);
    RETVAL= gearman_job_send_data(self, d, d_size);
  OUTPUT:
    RETVAL

gearman_return_t
send_fail(self)
    gearman_xs_job *self
  CODE:
    RETVAL= gearman_job_send_fail(self);
  OUTPUT:
    RETVAL

gearman_return_t
send_complete(self, result)
    gearman_xs_job *self
    SV * result
  PREINIT:
    const char *r;
    size_t r_size;
  CODE:
    r= SvPV(result, r_size);
    RETVAL= gearman_job_send_complete(self, r, r_size);
  OUTPUT:
    RETVAL

gearman_return_t
send_warning(self, warning)
    gearman_xs_job *self
    SV * warning
  PREINIT:
    const char *w;
    size_t w_size;
  CODE:
    w= SvPV(warning, w_size);
    RETVAL= gearman_job_send_warning(self, w, w_size);
  OUTPUT:
    RETVAL