/
Typemap.pm
105 lines (82 loc) 路 2.46 KB
/
Typemap.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
package XS::Typemap;
=head1 NAME
XS::Typemap - module to test the XS typemaps distributed with perl
=head1 SYNOPSIS
use XS::Typemap;
$output = T_IV( $input );
$output = T_PV( $input );
@output = T_ARRAY( @input );
=head1 DESCRIPTION
This module is used to test that the XS typemaps distributed
with perl are working as advertised. A function is available
for each typemap definition (eventually). In general each function
takes a variable, processes it through the OUTPUT typemap and then
returns it using the INPUT typemap.
A test script can then compare the input and output to make sure they
are the expected values. When only an input or output function is
provided the function will be named after the typemap entry and have
either '_IN' or '_OUT' appended.
All the functions are exported. There is no reason not to do this since
the entire purpose is for testing Perl. Namespace pollution will be limited
to the test script.
=cut
use parent qw/ Exporter /;
require XSLoader;
our $VERSION = '0.19';
our @EXPORT = (qw/
T_SV
T_SV_output
T_SVREF
T_SVREF_REFCOUNT_FIXED
T_SVREF_REFCOUNT_FIXED_output
T_AVREF
T_AVREF_REFCOUNT_FIXED
T_AVREF_REFCOUNT_FIXED_output
T_HVREF
T_HVREF_REFCOUNT_FIXED
T_HVREF_REFCOUNT_FIXED_output
T_CVREF
T_CVREF_REFCOUNT_FIXED
T_SYSRET_fail T_SYSRET_pass
T_UV
T_IV
T_INT
T_ENUM
T_BOOL
T_BOOL_2
T_BOOL_OUT
T_U_INT
T_SHORT
T_U_SHORT
T_LONG
T_U_LONG
T_CHAR
T_U_CHAR
T_FLOAT
T_NV
T_DOUBLE
T_PV T_PV_null
T_PTR_IN T_PTR_OUT
T_PTRREF_IN T_PTRREF_OUT
T_REF_IV_REF
T_REF_IV_PTR_IN T_REF_IV_PTR_OUT
T_PTROBJ_IN T_PTROBJ_OUT
T_OPAQUE_IN T_OPAQUE_OUT T_OPAQUE_array
T_OPAQUEPTR_IN T_OPAQUEPTR_OUT T_OPAQUEPTR_OUT_short
T_OPAQUEPTR_IN_struct T_OPAQUEPTR_OUT_struct
T_ARRAY
T_STDIO_open T_STDIO_open_ret_in_arg T_STDIO_close T_STDIO_print
T_PACKED_in T_PACKED_out
T_PACKEDARRAY_in T_PACKEDARRAY_out
T_INOUT T_IN T_OUT
/);
XSLoader::load();
=head1 NOTES
This module is for testing only and should not normally be installed.
=head1 AUTHOR
Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt>
Copyright (C) 2001 Tim Jenness All Rights Reserved. This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.
=cut
1;