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

#include "header.h"

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

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

MODULE = dpl		PACKAGE = dpl		


double
constant(sv,arg)
    PREINIT:
	STRLEN		len;
    INPUT:
	SV   *		sv
	char *		s = SvPV(sv, len);
	int		arg
    CODE:
	RETVAL = constant(s,len,arg);
    OUTPUT:
	RETVAL


char*
plex()
    OUTPUT:
	 RETVAL

int
plexlineno()
    OUTPUT:
	RETVAL

char *
plextext()
    OUTPUT:
	RETVAL

int
plexinit(file)
	char* file
    OUTPUT:
	RETVAL