From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

LEONT / ExtUtils-Typemaps-Magic-0.008 / lib / ExtUtils / Typemaps / MagicBuf.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

              
package ExtUtils::Typemaps::MagicBuf;
$ExtUtils::Typemaps::MagicBuf::VERSION = '0.008';
use strict;
use warnings;
use parent 'ExtUtils::Typemaps';
sub new {
        my $class = shift;
        my $self = $class->SUPER::new(@_);
        $self->add_inputmap(xstype => 'T_MAGICBUF', code =>  <<'END');
        {
        MAGIC* magic = SvROK($arg) && SvMAGICAL(SvRV($arg)) ? mg_findext(SvRV($arg), PERL_MAGIC_ext, NULL) : NULL;
        if (magic)
                $var = ($type)magic->mg_ptr;
        else
                Perl_croak(aTHX_ \"$ntype object is lacking magic\");
        }
END
        $self->add_outputmap(xstype => 'T_MAGICBUF', code => <<'END');
        {
        MAGIC* magic = sv_magicext(newSVrv($arg, "$ntype"), NULL, PERL_MAGIC_ext, NULL, (const char*)$var, 0);
        magic->mg_len = sizeof(*$var);
        }
END
        return $self;
}
1;
# ABSTRACT: Typemap for storing objects in magic buffer
__END__
=pod
=encoding UTF-8
=head1 NAME
ExtUtils::Typemaps::MagicBuf - Typemap for storing objects in magic buffer
=head1 VERSION
version 0.008
=head1 SYNOPSIS
In your typemap
 My::Object     T_MAGICBUF
In your XS:
 typedef struct object_t* My__Object;
 MODULE = My::Object    PACKAGE = My::Object    PREFIX = object_
 My::Object object_new(int argument)
 int object_baz(My::Object self)
=head1 DESCRIPTION
C<ExtUtils::Typemaps::MagicBuf> is a typemap bundle that provides C<T_MAGICBUF>, a typemap for objects that uses a string reference to store your object in, except it is hidden away using magic. This is suitable for objects that can be safely shallow copied on thread cloning (i.e. they don't contain external references such as pointers or file descriptors). Unlike C<T_MAGIC> or C<T_PTROBJ> this does not need a C<DESTROY> method to free the buffer.
=head1 DEPENDENCIES
On perls older than C<5.14>, this will require F<ppport.h> to provide C<mg_findext>. E.g.
 #define NEED_mg_findext
 #include "ppport.h"
=head1 INCLUSION
To use this typemap template you need to include it into your local typemap. The easiest way to do that is to use the L<typemap> script in L<App::typemap>. E.g.
 typemap --merge ExtUtils::Typemaps::MagicBuf
If you author using C<Dist::Zilla> you can use L<Dist::Zilla::Plugin::Typemap> instead.
Alternatively, you can include it at runtime by adding the following to your XS file:
 INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd -e "print embeddable_typemap('MagicBuf')"
That does require adding a build time dependency on this module.
=head1 AUTHOR
Leon Timmermans <leont@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2023 by Leon Timmermans.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut