File: typemap

package info (click to toggle)
libpgplot-perl 1%3A2.35-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,336 kB
  • sloc: perl: 3,880; ansic: 453; makefile: 5
file content (21 lines) | stat: -rw-r--r-- 386 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
TYPEMAP
int *	T_INTP
float	T_NV
float *	T_FLOATP
Logical	T_IV
int2D *	T_INT2DP
float2D *	T_FLOAT2DP
float_packed	T_FLOATS

INPUT

T_INTP
        $var = ($type)pack1D($arg,'i')
T_FLOATP
        $var = ($type)pack1D($arg,'f')
T_INT2DP
        $var = ($type)pack2D($arg,'i')
T_FLOAT2DP
        $var = ($type)pack2D($arg,'f')
T_FLOATS
        $var = (float_packed)(SvPV(SvRV($arg), PL_na))