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

JSON *          T_JSON

INPUT

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


Revision:	1.2
Committed:	Mon Aug 13 16:14:20 2007 UTC (16 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_51, rel-1_53, rel-1_5
Changes since 1.1:	+2 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	JSON * T_JSON
2
3			INPUT
4
5			T_JSON
6	root	1.2	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
7			&& SvSTASH (SvRV ($arg)) == JSON_STASH))
8	root	1.1	croak (\"object is not of type JSON::XS\");
9			$var = (JSON *)SvPVX (SvRV ($arg));
10
11