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

JSON *          T_JSON

INPUT

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


Revision:	1.3
Committed:	Wed Nov 28 13:57:15 2007 UTC (16 years, 5 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_01, rel-4_0, rel-2_222, rel-3_0, rel-4_01, rel-4_03, rel-4_02, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-4_0_00, rel-2_34, rel-2_32, rel-2_33, rel-2_31, rel-2_2311, rel-3_01, rel-3_02, rel-3_03, rel-3_04, rel-2_232, rel-2_231, rel-2_29, rel-2_28, rel-2_21, rel-2_2222, rel-2_23, rel-2_22, rel-2_25, rel-2_24, rel-2_27, rel-2_26, HEAD
Changes since 1.2:	+6 -2 lines
Log Message:	* empty log message *
#	Content
1	JSON * T_JSON
2
3	INPUT
4
5	T_JSON
6	if (!(
7	SvROK ($arg)
8	&& SvOBJECT (SvRV ($arg))
9	&& (SvSTASH (SvRV ($arg)) == JSON_STASH \|\| sv_derived_from ($arg, \"JSON::XS\"))
10	))
11	croak (\"object is not of type JSON::XS\");
12	/**/
13	$var = (JSON *)SvPVX (SvRV ($arg));
14
15