EXAMPLES

File RPC.xs: Interface to some ONC+ RPC bind library functions.

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include

typedef struct netconfig Netconfig;

MODULE = RPC PACKAGE = RPC

SV *
rpcb_gettime(host="localhost")
char *host
PREINIT:
time_t timep;
CODE:
ST(0) = sv_newmortal();
if( rpcb_gettime( host, &timep ) )
sv_setnv( ST(0), (double)timep );

Netconfig *
getnetconfigent(netid="udp")
char *netid

MODULE = RPC PACKAGE = NetconfigPtr PREFIX = rpcb_

void
rpcb_DESTROY(netconf)
Netconfig *netconf
CODE:
printf("NetconfigPtr::DESTROY\n");
free( netconf );

File typemap: Custom typemap for RPC.xs.

TYPEMAP
Netconfig * T_PTROBJ

File RPC.pm: Perl module for the RPC extension.

package RPC;

require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(rpcb_gettime getnetconfigent);

bootstrap RPC;
1;

File rpctest.pl: Perl test program for the RPC extension.

use RPC;

$netconf = getnetconfigent();
$a = rpcb_gettime();
print "time = $a\n";
print "netconf = $netconf\n";

$netconf = getnetconfigent("tcp");
$a = rpcb_gettime("poplar");
print "time = $a\n";
print "netconf = $netconf\n";

MOISOFT - НОВИНКИ КИНО