File: typemap

package info (click to toggle)
libimage-sane-perl 0.14-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 328 kB
  • ctags: 81
  • sloc: perl: 2,714; ansic: 5; makefile: 3
file content (24 lines) | stat: -rw-r--r-- 439 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
TYPEMAP

SANE_Auth_Callback		T_PTRREF
SANE_Bool			T_BOOL
SANE_Handle			T_SANE_HANDLE
SANE_Int			T_IV
SANE_Status			T_IV
SANE_String_Const		T_PV


INPUT

T_SANE_HANDLE
   if (sv_derived_from($arg, \"Image::Sane::Device\")) {
       $var = INT2PTR (SANE_Handle, SvIV ((SV*)SvRV ($arg)));
   } else {
       croak(\"$var is not of type Image::Sane::Device\");
   }


OUTPUT

T_SANE_HANDLE
   sv_setref_pv($arg, \"SANE_Handle\", (void*)$var);