/*
* Definition and export of functions declared in pigvirtual.h
*
* Copyright (C) 1999, Ashley Winters <jql@accessone.com>
*
* You may distribute under the terms of the LGPL as specified in the
* README.LICENSE file which should be included with this library.
*
*/
#include "pig.h"
#include "pigperl.h"
#include "pigvirtual.h"
PIG_DEFINE_VOID_FUNC_2(pig_virtual_dereference, const class pig_virtual *, void *) {
SvFLAGS((SV *)pig0->pig_rv) = (SvFLAGS((SV *)pig0->pig_rv) & ~SVTYPEMASK) | SVt_NULL;
SvREFCNT_dec((SV *)pig0->pig_rv);
}
PIG_DEFINE_VOID_FUNC_2(pig_virtual_setobject, const class pig_virtual *, void *) {
pig_virtual *pigv = (pig_virtual *)pig0;
pigv->pig_rv = newSVsv((SV *)pig1);
}
PIG_EXPORT_TABLE(pigvirtual)
PIG_EXPORT_FUNC(pig_virtual_dereference)
PIG_EXPORT_FUNC(pig_virtual_setobject)
PIG_EXPORT_ENDTABLE