view release on metacpan or  search on metacpan

netinterface/netinterface_xs  view on Meta::CPAN

#
#
# Copyright (C) 2006 by Richard Holden
#
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
#

PROTOTYPES: ENABLE

#include "netinterface.h"


perfstat_netinterface_total_t*
netinterface_total()
CODE:
	RETVAL = netinterface_total_impl();
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL);


int
netinterface_count()
CODE:
	RETVAL = netinterface_count_impl();
OUTPUT:
	RETVAL


my_netinterface_t*
netinterface(desired_number = 1, name = "")
	int	desired_number;
	char*	name;
PREINIT:
	perfstat_id_t netinterface_name;
	int update_name = 0;
CODE:
	if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
	{
		 update_name = 1;
	}
	RETVAL = netinterface_impl(desired_number, name, update_name);
	if (RETVAL == NULL)
	{
		 XSRETURN_UNDEF;
	}
	if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
	{
		 sv_setpv((SV*)ST(1), name);
		 SvSETMAGIC(ST(1));
	}
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL->data);
	safefree(RETVAL);