Embedding C in Perl (RPC.xs -1)

#include "perl.h"

#include "XSUB.h"

#include <rpc/rpc.h>

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_