ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
EV
/
typemap
Revision:
1.1
Committed:
Fri Oct 26 09:19:48 2007 UTC
(16 years, 7 months ago) by
root
Branch:
MAIN
Log Message:
*** empty log message ***
File Contents
#
Content
1
JSON * T_JSON
2
3
INPUT
4
5
T_JSON
6
if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
7
&& SvSTASH (SvRV ($arg)) == JSON_STASH))
8
croak (\"object is not of type JSON::XS\");
9
$var = (JSON *)SvPVX (SvRV ($arg));
10
11