[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.1
Committed:	Mon Jul 2 07:39:31 2007 UTC (16 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_4, rel-1_43, rel-1_41
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	JSON * T_JSON
2
3			INPUT
4
5			T_JSON
6			if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) && SvSTASH (SvRV ($arg)) == json_stash))
7			croak (\"object is not of type JSON::XS\");
8			$var = (JSON *)SvPVX (SvRV ($arg));
9
10