start python bindings
This commit is contained in:
Doug MacEachern
parent
68662e5bcc
commit
6c64a61ffa
|
|
@ -2410,6 +2410,193 @@ sub finish {
|
||||||
$self->SUPER::finish;
|
$self->SUPER::finish;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
package SigarWrapper::Python;
|
||||||
|
|
||||||
|
our @ISA = qw(SigarWrapper);
|
||||||
|
|
||||||
|
our %field_types = (
|
||||||
|
Long => "PyLong_FromUnsignedLongLong",
|
||||||
|
Double => "PyFloat_FromDouble",
|
||||||
|
Int => "PyInt_FromLong",
|
||||||
|
Char => "PySigarInt_FromChar",
|
||||||
|
String => "PyString_FromString",
|
||||||
|
NetAddress => "PySigarString_FromNetAddr",
|
||||||
|
);
|
||||||
|
|
||||||
|
my $c_file = '_sigar_generated.c';
|
||||||
|
|
||||||
|
sub sources {
|
||||||
|
return $c_file;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub start {
|
||||||
|
my $self = shift;
|
||||||
|
$self->SUPER::start;
|
||||||
|
$self->{cfh} = $self->create($c_file);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub pyclass {
|
||||||
|
my $class = shift;
|
||||||
|
return "Sigar.$class";
|
||||||
|
}
|
||||||
|
|
||||||
|
sub pytype {
|
||||||
|
my $class = shift;
|
||||||
|
return 'pysigar_PySigar' . $class . 'Type';
|
||||||
|
}
|
||||||
|
|
||||||
|
sub generate_class {
|
||||||
|
my($self, $func) = @_;
|
||||||
|
|
||||||
|
my $cfh = $self->{cfh};
|
||||||
|
my $pyclass = pyclass($func->{name});
|
||||||
|
my $pytype = pytype($func->{name});
|
||||||
|
my $cname = $func->{cname};
|
||||||
|
my $parse_args = "";
|
||||||
|
my $vars = "";
|
||||||
|
my $args = 'sigar';
|
||||||
|
|
||||||
|
if ($func->{num_args} == 1) {
|
||||||
|
if ($func->{is_proc}) {
|
||||||
|
$parse_args = 'PySigar_ParsePID;';
|
||||||
|
$vars = "long $func->{arg};\n";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$parse_args .= 'PySigar_ParseName;';
|
||||||
|
$vars = "char *$func->{arg}; int $func->{arg}_len;\n";
|
||||||
|
}
|
||||||
|
$args .= ", $func->{arg}";
|
||||||
|
}
|
||||||
|
|
||||||
|
my $prefix = "py$func->{sigar_prefix}_";
|
||||||
|
my $methods = $prefix . 'methods';
|
||||||
|
my $dtor = 'pysigar_free';
|
||||||
|
|
||||||
|
for my $field (@{ $func->{fields} }) {
|
||||||
|
my $name = $field->{name};
|
||||||
|
my $type = $field_types{ $field->{type} };
|
||||||
|
my $method = $prefix . $name;
|
||||||
|
|
||||||
|
print $cfh <<EOF;
|
||||||
|
static PyObject *$method(PyObject *self, PyObject *args)
|
||||||
|
{
|
||||||
|
$func->{sigar_type} *$cname = ($func->{sigar_type} *)PySIGAR_OBJ->ptr;
|
||||||
|
return $type($cname->$name);
|
||||||
|
}
|
||||||
|
EOF
|
||||||
|
}
|
||||||
|
|
||||||
|
print $cfh "static PyMethodDef $methods [] = {\n";
|
||||||
|
for my $field (@{ $func->{fields} }) {
|
||||||
|
my $name = $field->{name};
|
||||||
|
print $cfh qq( { "$name", ${prefix}$name, METH_NOARGS, "$name" },\n);
|
||||||
|
}
|
||||||
|
print $cfh " {NULL}\n};\n";
|
||||||
|
|
||||||
|
print $cfh <<EOF;
|
||||||
|
static PyTypeObject $pytype = {
|
||||||
|
PyObject_HEAD_INIT(NULL)
|
||||||
|
0, /*ob_size*/
|
||||||
|
"$pyclass", /*tp_name*/
|
||||||
|
sizeof(PySigarObject), /*tp_basicsize*/
|
||||||
|
0, /*tp_itemsize*/
|
||||||
|
pysigar_free, /*tp_dealloc*/
|
||||||
|
0, /*tp_print*/
|
||||||
|
0, /*tp_getattr*/
|
||||||
|
0, /*tp_setattr*/
|
||||||
|
0, /*tp_compare*/
|
||||||
|
0, /*tp_repr*/
|
||||||
|
0, /*tp_as_number*/
|
||||||
|
0, /*tp_as_sequence*/
|
||||||
|
0, /*tp_as_mapping*/
|
||||||
|
0, /*tp_hash */
|
||||||
|
0, /*tp_call*/
|
||||||
|
0, /*tp_str*/
|
||||||
|
0, /*tp_getattro*/
|
||||||
|
0, /*tp_setattro*/
|
||||||
|
0, /*tp_as_buffer*/
|
||||||
|
PySigar_TPFLAGS, /*tp_flags*/
|
||||||
|
0, /*tp_doc*/
|
||||||
|
0, /*tp_traverse*/
|
||||||
|
0, /*tp_clear*/
|
||||||
|
0, /*tp_richcompare*/
|
||||||
|
0, /*tp_weaklistoffset*/
|
||||||
|
0, /*tp_iter*/
|
||||||
|
0, /*tp_iternext*/
|
||||||
|
$methods, /*tp_methods*/
|
||||||
|
0, /*tp_members*/
|
||||||
|
0, /*tp_getset*/
|
||||||
|
0, /*tp_base*/
|
||||||
|
0, /*tp_dict*/
|
||||||
|
0, /*tp_descr_get*/
|
||||||
|
0, /*tp_descr_set*/
|
||||||
|
0, /*tp_dictoffset*/
|
||||||
|
0, /*tp_init*/
|
||||||
|
0, /*tp_alloc*/
|
||||||
|
0 /*tp_new*/
|
||||||
|
};
|
||||||
|
EOF
|
||||||
|
|
||||||
|
print $cfh <<EOF if $func->{has_get};
|
||||||
|
static PyObject *py$func->{sigar_function}(PyObject *self, PyObject *args)
|
||||||
|
{
|
||||||
|
int status;
|
||||||
|
sigar_t *sigar = PySIGAR;
|
||||||
|
$func->{sigar_type} *RETVAL = malloc(sizeof(*RETVAL));
|
||||||
|
$vars
|
||||||
|
$parse_args
|
||||||
|
|
||||||
|
if ((status = $func->{sigar_function}($args, RETVAL)) != SIGAR_OK) {
|
||||||
|
free(RETVAL);
|
||||||
|
PySigar_Croak();
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
PyObject *self = PySigar_new($pytype);
|
||||||
|
PySIGAR_OBJ->ptr = RETVAL;
|
||||||
|
return self;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
EOF
|
||||||
|
}
|
||||||
|
|
||||||
|
sub finish {
|
||||||
|
my $self = shift;
|
||||||
|
|
||||||
|
my $mappings = $self->get_mappings;
|
||||||
|
my $cfh = $self->{cfh};
|
||||||
|
my $nl = '\\' . "\n";
|
||||||
|
|
||||||
|
print $cfh "#define PY_SIGAR_METHODS $nl";
|
||||||
|
for my $func (@$mappings) {
|
||||||
|
next unless $func->{has_get};
|
||||||
|
my $arginfo = $func->{num_args} ? 'METH_VARARGS' : 'METH_NOARGS';
|
||||||
|
print $cfh qq( {"$func->{cname}", py$func->{sigar_function}, $arginfo, NULL},);
|
||||||
|
if ($func == $mappings->[-1]) {
|
||||||
|
print $cfh "\n";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print $cfh $nl;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
print $cfh "#define PY_SIGAR_ADD_TYPES $nl";
|
||||||
|
for my $func (@$mappings) {
|
||||||
|
next unless $func->{has_get};
|
||||||
|
my $pyclass = pyclass($func->{name});
|
||||||
|
my $pytype = pytype($func->{name});
|
||||||
|
print $cfh qq{ PySigar_AddType("$pyclass", $pytype)};
|
||||||
|
if ($func == $mappings->[-1]) {
|
||||||
|
print $cfh "\n";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print $cfh ";$nl";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$self->SUPER::finish;
|
||||||
|
}
|
||||||
|
|
||||||
#XXX not currently supporting netware
|
#XXX not currently supporting netware
|
||||||
package SigarWrapper::Netware;
|
package SigarWrapper::Netware;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue