File: typemap

package info (click to toggle)
libjavascript-perl 1.08-1%2Blenny1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 412 kB
  • ctags: 203
  • sloc: perl: 1,686; ansic: 1,620; makefile: 55
file content (18 lines) | stat: -rwxr-xr-x 435 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
TYPEMAP
PJS_Runtime *           T_PTRREF
PJS_Context *           T_PTRREF
PJS_Script *            T_PTRREF
JSFunction *            T_PTROBJ
PJS_TrapHandler *  T_PTRREF
jsval                   jsval

OUTPUT
jsval
    {
        SV *orz = sv_newmortal();
        /* Convert js value to perl */
        JSVALToSV(PJS_GetJSContext(cx), NULL, $var, &orz);
        sv_setsv($arg, orz);
        JS_GC(PJS_GetJSContext(cx));
    }