(root)/
texinfo-7.1/
tp/
Texinfo/
XS/
TestXS.xs
#include <config.h>

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

#include "ppport.h"



MODULE = TestXS PACKAGE = TestXS PREFIX = xspara_

PROTOTYPES: ENABLE

int
xspara_init (int, char *)
    CODE:
        puts ("message from XS module\n");
        RETVAL = 1;
    OUTPUT:
        RETVAL