view release on metacpan or  search on metacpan

LibNeural.xs  view on Meta::CPAN

void
nnwork::run (ins)
	SV * ins
    PREINIT:
	int     i;
	int     nin;
	int     nout;
	float * ains;
	float * aouts;
    PPCODE:
	nin = THIS->get_layersize(INPUT);
	nout = THIS->get_layersize(OUTPUT);

	ains = svpvav_to_float_array(ins, nin);

	aouts = (float*)malloc(nout * sizeof(float));
	if( aouts == NULL )
		XSRETURN_UNDEF;

	THIS->run(ains, aouts);