|
Revision 2161, 1.0 kB
(checked in by karpet, 2 months ago)
|
yank old wordlist in favor of token_iterator -- TODO still some ref_cnt issues
|
| Line | |
|---|
| 1 |
TYPEMAP |
|---|
| 2 |
const char* T_PV |
|---|
| 3 |
xmlChar* T_PV |
|---|
| 4 |
swish_Config* O_OBJECT |
|---|
| 5 |
xmlHashTablePtr O_OBJECT |
|---|
| 6 |
swish_ParserData* O_OBJECT |
|---|
| 7 |
xmlBufferPtr T_IV |
|---|
| 8 |
swish_TokenIterator* O_OBJECT |
|---|
| 9 |
swish_Token* O_OBJECT |
|---|
| 10 |
swish_DocInfo* O_OBJECT |
|---|
| 11 |
swish_Analyzer* O_OBJECT |
|---|
| 12 |
swish_Parser* O_OBJECT |
|---|
| 13 |
swish_NamedBuffer* O_OBJECT |
|---|
| 14 |
swish_3* O_OBJECT |
|---|
| 15 |
swish_Property* O_OBJECT |
|---|
| 16 |
swish_MetaName* O_OBJECT |
|---|
| 17 |
|
|---|
| 18 |
|
|---|
| 19 |
INPUT |
|---|
| 20 |
O_OBJECT |
|---|
| 21 |
if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) |
|---|
| 22 |
$var = ($type)SvIV((SV*)SvRV( $arg )); |
|---|
| 23 |
else{ |
|---|
| 24 |
warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" ); |
|---|
| 25 |
XSRETURN_UNDEF; |
|---|
| 26 |
} |
|---|
| 27 |
|
|---|
| 28 |
OUTPUT |
|---|
| 29 |
|
|---|
| 30 |
# The Perl object is blessed into 'CLASS', which should be a |
|---|
| 31 |
# char* having the name of the package for the blessing. |
|---|
| 32 |
O_OBJECT |
|---|
| 33 |
sv_setref_pv( $arg, (char*)CLASS, (void*)$var ); |
|---|
