-/* $Id: perlread.c,v 1.2 2002-11-15 22:01:42 adam Exp $
+/* $Id: perlread.c,v 1.4 2002-11-18 13:11:30 pop Exp $
Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
Index Data Aps
*/
#if HAVE_PERL
-#define PERL_IMPLICIT_CONTEXT
#include "perlread.h"
#include "EXTERN.h"
#include "perl.h"
}
/* Get pointers from the context. Easyer to wrap this by SWIG */
-data1_handle grs_perl_get_dh(struct perl_context *context) {
- return(context->dh);
+data1_handle *grs_perl_get_dh(struct perl_context *context) {
+ return(&context->dh);
}
-NMEM grs_perl_get_mem(struct perl_context *context) {
- return(context->mem);
+NMEM *grs_perl_get_mem(struct perl_context *context) {
+ return(&context->mem);
}
/* Set the result in the context */