SDBM_File.xs revision 7c478bd95313f5f23a4c958a745db2134aa03244
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
typedef struct {
SV * filter_fetch_key ;
SV * filter_store_key ;
SV * filter_fetch_value ;
SV * filter_store_value ;
int filtering ;
typedef SDBM_File_type * SDBM_File ;
typedef datum datum_value ;
SV * save_defsv ; \
/* printf("filtering %s\n", name) ;*/ \
SvREFCNT_dec(save_defsv) ; \
/*printf("end of filtering %s\n", name) ;*/ \
}
char * dbtype
char * filename
int flags
int mode
CODE:
{
}
}
void
CODE:
if (db->filter_fetch_key)
if (db->filter_store_key)
if (db->filter_fetch_value)
if (db->filter_store_value)
int
int flags
if (RETVAL) {
croak("No write permission to sdbm file");
croak("sdbm store returned %d, errno %d, key \"%s\"",
}
int
int
int
CODE:
int
CODE:
{ \
} \
else if (code) { \
else \
} \
}
SV *
CODE:
SV *
CODE:
SV *
CODE:
SV *
CODE: