Select Code to Download

int mult (int x, int y);
void speak (const char* str);
unsigned char* arr (); // returns (0, 1, 2)

module-starter \
    --module=XS::Wrap \
    --author="Steve Bertrand" \
    --email=steveb@cpan.org \
    --license=perl

package XS::Wrap;

...
use strict;

our $VERSION = '0.01';

use warnings;
use strict;
...

#include <stdio.h>
#include <xswrap.h>

#include "EXTERN.h"
#include "perl.h"
...
MODULE = XS::Wrap  PACKAGE = main

PROTOTYPES: DISABLE

#include "EXTERN.h"
#include "perl.h"
...
    const char* str

unsigned char* arr ()

use warnings;
use strict;
...
    my @array = arr();
    return @array;
}

LIBS => ['-lxswrap'],

perl Makefile.PL
make
make install

use warnings;
use strict;
...
my @arr = my_arr();

say $_ for @arr;

25
hello, world!

use warnings;
use strict;
...
    
    inline_stack_done;
}

#include "EXTERN.h"
#include "perl.h"
...
        }
        /* must have used dXSARGS; list context implied */
        return; /* assume stack size is correct */

void _arr (){
    unsigned char* c_array = arr();
...
    
    inline_stack_done;
}

void
_arr ()
...
          XSRETURN_EMPTY;
        }
        return;

#include "EXTERN.h"
#include "perl.h"
...
          XSRETURN_EMPTY;
        }
        return;

sub my_arr {
    my @array = _arr();
    return @array;
}

perl example.pl
25
...
0
1
2

rm -rf _Inline
perl Makefile.PL
...
make manifest
make install
make dist