[ViewVC] Contents of: cvs/CBOR-XS/typemap

CBOR *          T_CBOR

INPUT

T_CBOR
        if (!(
           SvROK ($arg)
           && SvOBJECT (SvRV ($arg))
           && (SvSTASH (SvRV ($arg)) == CBOR_STASH || sv_derived_from ($arg, \"CBOR::XS\"))
        ))
          croak (\"object is not of type CBOR::XS\");
        /**/
        $var = (CBOR *)SvPVX (SvRV ($arg));


Revision:	1.1
Committed:	Fri Oct 25 23:09:45 2013 UTC (10 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_11, rel-1_12, rel-0_07, rel-1_71, rel-1_8, rel-0_04, rel-1_1, rel-1_0, rel-1_3, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-0_09, rel-0_08, rel-0_05, rel-1_25, rel-1_26, rel-0_06, rel-0_03, rel-0_02, rel-1_41, rel-1_82, rel-1_83, rel-1_81, rel-1_86, rel-1_87, rel-1_84, rel-1_85, HEAD
Log Message:	* empty log message *
#	Content
1	CBOR * T_CBOR
2
3	INPUT
4
5	T_CBOR
6	if (!(
7	SvROK ($arg)
8	&& SvOBJECT (SvRV ($arg))
9	&& (SvSTASH (SvRV ($arg)) == CBOR_STASH \|\| sv_derived_from ($arg, \"CBOR::XS\"))
10	))
11	croak (\"object is not of type CBOR::XS\");
12	/**/
13	$var = (CBOR *)SvPVX (SvRV ($arg));
14
15