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

#include "battlehorn.h"

typedef battlehorn_t * Mukkinese__BattleHorn;

MODULE = Mukkinese::BattleHorn PACKAGE = Mukkinese::BattleHorn

PROTOTYPES: ENABLE

Mukkinese::BattleHorn
new (char * class, ...)
CODE:
	RETVAL = calloc (1, sizeof (battlehorn_t));
        if (! RETVAL) {
		Perl_croak ("No memory for %s", class);
	}
OUTPUT:
	RETVAL

void
DESTROY (bh)
	Mukkinese::BattleHorn bh;
CODE:
        free (bh);

void
set_cost (bh, cost)
	Mukkinese::BattleHorn bh;
	int cost;
CODE:
        bh->cost = cost;

int
get_cost (bh)
	Mukkinese::BattleHorn bh;
CODE:
	RETVAL = cost (bh);
OUTPUT:
	RETVAL

# Local variables:
# mode: c
# End: