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

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

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

    inline_stack_vars;
    inline_stack_reset;

    int i;

    for (i=0; i<3; i++){
        inline_stack_push(sv_2mortal(newSViv(c_array[i])));
    }

    free(c_array);
    
    inline_stack_done;
}

MODULE = XS::Wrap  PACKAGE = XS::Wrap

PROTOTYPES: DISABLE

int mult (x, y)
    int x
    int y

void speak (str)
    const char* str

unsigned char* arr ()

void
_arr ()
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        _arr();
        if (PL_markstack_ptr != temp) {
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY;
        }
        return;