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

#include "double_metaphone.h"

static int
not_here(char *s)
{
    croak("%s not implemented on this architecture", s);
    return -1;
}

static double
constant(char *name, int arg)
{
    errno = 0;
    switch (*name) {
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}


MODULE = Text::DoubleMetaphone		PACKAGE = Text::DoubleMetaphone		


double
constant(name,arg)
	char *		name
	int		arg


void
double_metaphone(str)
	char *	str
        PREINIT:
        char *codes[2];
        PPCODE:
        DoubleMetaphone(str, codes);

        XPUSHs(sv_2mortal(newSVpv(codes[0], 0)));
        if ((GIMME == G_ARRAY) && strcmp(codes[0], codes[1])) 
          {
            XPUSHs(sv_2mortal(newSVpv(codes[1], 0)));
          } 
        Safefree(codes[0]);
        Safefree(codes[1]);