#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <string.h>
#include <stdio.h>

MODULE = Zion  PACKAGE = Zion
PROTOTYPES: DISABLE
void
get_zephyr()
	PPCODE:
		int fn, i;
		EXTEND(sp, exec_number_of_fields());
		for (i = 0; i<fn;i++){
			PUSHs(sv_2mortal(newSVpv(exec_notice_field(i), strlen(exec_notice_field(i)))));
		}

void
myprint(string)
	char * string
	PPCODE:
		printf("Foo: %s\n", string);
		EXTEND(sp, 2);
		PUSHs(sv_2mortal(newSViv(37)));
		PUSHs(sv_2mortal(newSVpv("dog", 3)));