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 (19 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

# Content
1 aio_req T_AIO
2 aio_req_ornot T_AIO_ORNOT
3 SV8 * T_SV8
4
5 VAL64 T_VAL64
6 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 octet_string T_STR8
14 octet_string_ornull T_STR8_ORNULL
15
16 INPUT
17
18 T_AIO
19 if (!($var = SvAIO_REQ ($arg)))
20 croak (\"busy IO::AIO::REQ object expected\")
21
22 T_AIO_ORNOT
23 if (!($var = SvAIO_REQ ($arg)))
24 XSRETURN_EMPTY
25
26 T_SV8
27 ($var) = $arg;
28 if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
29 croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")
30
31 T_VAL64
32 $var = ($type)SvVAL64 ($arg);
33
34 T_AIO_RFD
35 $var = s_fileno_croak ($arg, 0);
36
37 T_AIO_WFD
38 $var = s_fileno_croak ($arg, 1);
39
40 T_STR8
41 $var = SvPVbyte_nolen ($arg);
42
43 T_STR8_ORNULL
44 $var = SvOK ($arg) ? SvPVbyte_nolen ($arg) : 0;
45
46 OUTPUT
47
48 T_VAL64
49 $arg = newSVval64 ($var);