129 lines
2.5 KiB
Plaintext
129 lines
2.5 KiB
Plaintext
/* $Id: Devel.xs 20 2011-10-11 02:05:01Z jo $
|
|
*
|
|
* This is free software, you may use it and distribute it under the same terms as
|
|
* Perl itself.
|
|
*
|
|
* Copyright 2011 Joachim Zobel
|
|
*
|
|
* This module gives external access to the functions needed to create
|
|
* and use XML::LibXML::Nodes from C functions. These functions are made
|
|
* accessible from Perl to have cleaner dependencies.
|
|
* The idea is to pass xmlNode * pointers (as typemapped void *) to and
|
|
* from Perl and call the functions that turns them to and from
|
|
* XML::LibXML::Nodes there.
|
|
*
|
|
* Be aware that using this module gives you the ability to easily create
|
|
* segfaults and memory leaks.
|
|
*/
|
|
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
#include "ppport.h"
|
|
|
|
#include <stdlib.h>
|
|
|
|
/* XML::LibXML stuff */
|
|
#include <libxml/xmlmemory.h>
|
|
#include "perl-libxml-mm.h"
|
|
|
|
#undef NDEBUG
|
|
#include <assert.h>
|
|
|
|
static void * xmlMemMallocAtomic(size_t size)
|
|
{
|
|
return xmlMallocAtomicLoc(size, "none", 0);
|
|
}
|
|
|
|
static int debug_memory()
|
|
{
|
|
return xmlGcMemSetup( xmlMemFree,
|
|
xmlMemMalloc,
|
|
xmlMemMallocAtomic,
|
|
xmlMemRealloc,
|
|
xmlMemStrdup);
|
|
}
|
|
|
|
MODULE = XML::LibXML::Devel PACKAGE = XML::LibXML::Devel
|
|
|
|
PROTOTYPES: DISABLE
|
|
|
|
BOOT:
|
|
if (getenv("DEBUG_MEMORY")) {
|
|
debug_memory();
|
|
}
|
|
|
|
|
|
|
|
SV*
|
|
node_to_perl( n, o = NULL )
|
|
void * n
|
|
void * o
|
|
PREINIT:
|
|
xmlNode *node = n;
|
|
xmlNode *owner = o;
|
|
CODE:
|
|
RETVAL = PmmNodeToSv(node , owner?owner->_private:NULL );
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
void *
|
|
node_from_perl( sv )
|
|
SV *sv
|
|
PREINIT:
|
|
xmlNode *n = PmmSvNodeExt(sv, 0);
|
|
CODE:
|
|
RETVAL = n;
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
void
|
|
refcnt_inc( n )
|
|
void *n
|
|
PREINIT:
|
|
xmlNode *node = n;
|
|
CODE:
|
|
PmmREFCNT_inc(((ProxyNode *)(node->_private)));
|
|
|
|
int
|
|
refcnt_dec( n )
|
|
void *n
|
|
PREINIT:
|
|
xmlNode *node = n;
|
|
CODE:
|
|
RETVAL = PmmREFCNT_dec(((ProxyNode *)(node->_private)));
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
refcnt( n )
|
|
void *n
|
|
PREINIT:
|
|
xmlNode *node = n;
|
|
CODE:
|
|
RETVAL = PmmREFCNT(((ProxyNode *)(node->_private)));
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
fix_owner( n, p )
|
|
void * n
|
|
void * p
|
|
PREINIT:
|
|
xmlNode *node = n;
|
|
xmlNode *parent = p;
|
|
CODE:
|
|
RETVAL = PmmFixOwner(node->_private , parent->_private);
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
int
|
|
mem_used()
|
|
CODE:
|
|
RETVAL = xmlMemUsed();
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
|