ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/typemap
Revision: 1.12
Committed: Mon Sep 5 08:43:59 2022 UTC (20 months, 4 weeks ago) by root
Branch: MAIN
CVS Tags: rel-4_81, rel-4_80, rel-4_78, rel-4_79, HEAD
Changes since 1.11: +9 -0 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 aio_req T_AIO
2     aio_req_ornot T_AIO_ORNOT
3 root 1.5 SV8 * T_SV8
4 root 1.1
5 root 1.11 VAL64 T_VAL64
6 root 1.7 size_t T_VAL64
7     ssize_t T_VAL64
8     off_t T_VAL64
9    
10     aio_rfd T_AIO_RFD
11     aio_wfd T_AIO_WFD
12    
13 root 1.12 octet_string T_STR8
14     octet_string_ornull T_STR8_ORNULL
15    
16 root 1.1 INPUT
17    
18     T_AIO
19 root 1.4 if (!($var = SvAIO_REQ ($arg)))
20 root 1.9 croak (\"busy IO::AIO::REQ object expected\")
21 root 1.1
22     T_AIO_ORNOT
23 root 1.4 if (!($var = SvAIO_REQ ($arg)))
24 root 1.5 XSRETURN_EMPTY
25 root 1.1
26 root 1.5 T_SV8
27     ($var) = $arg;
28 root 1.6 if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
29 root 1.5 croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")
30 root 1.7
31     T_VAL64
32     $var = ($type)SvVAL64 ($arg);
33    
34     T_AIO_RFD
35 root 1.10 $var = s_fileno_croak ($arg, 0);
36 root 1.7
37     T_AIO_WFD
38 root 1.10 $var = s_fileno_croak ($arg, 1);
39 root 1.7
40 root 1.12 T_STR8
41     $var = SvPVbyte_nolen ($arg);
42    
43     T_STR8_ORNULL
44     $var = SvOK ($arg) ? SvPVbyte_nolen ($arg) : 0;
45    
46 root 1.7 OUTPUT
47    
48     T_VAL64
49     $arg = newSVval64 ($var);