summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/Texinfo/XS/TestXS.xs
blob: 56c4ae55db4318598810ee752cd364ebbcb0497a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#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