File: soldier_typemap

package info (click to toggle)
libinline-perl 0.46-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 620 kB
  • ctags: 122
  • sloc: perl: 3,817; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 254 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Soldier *	SOLDIER

INPUT
SOLDIER
       
        $var = INT2PTR($type, SvIV(SvRV($arg)))

OUTPUT
SOLDIER

        $arg     = newSViv(0);
        sv_setiv(newSVrv($arg, \"Soldier\"), (IV)$var);
        SvREADONLY_on(SvRV($arg));
        $arg;