Select Code to Download

#!/usr/bin/env perl

use ExtUtils::testlib;
...
ArrayTest::print_array_int( "revendar",8 );
print "------------------------------------------------\n";
ArrayTest::print_array_int( @$test ,8 );

#include <stdio.h>
#include <string.h>
#include <math.h>
...
                printf("Element array[%d] = %d\n",i,array[i]);
        }
}

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
...
print_array_int(array,l)
        char *  array
        int     l

package myClibs;
our $VERSION = '0.01';
require XSLoader;
XSLoader::load('myClibs', $VERSION);
1;