Initial Commit

database/perl/vendor/lib/B/Hooks/OP/Check.pm

@@ -0,0 +1,129 @@
+use strict;
+use warnings;
+package B::Hooks::OP::Check; # git description: 0.21-5-g968d5ca
+# ABSTRACT: Wrap OP check callbacks
+
+require 5.008001;
+use parent qw/DynaLoader/;
+
+our $VERSION = '0.22';
+
+sub dl_load_flags { 0x01 }
+
+__PACKAGE__->bootstrap($VERSION);
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+B::Hooks::OP::Check - Wrap OP check callbacks
+
+=head1 VERSION
+
+version 0.22
+
+=head1 SYNOPSIS
+
+    # include "hook_op_check.h"
+
+    STATIC OP *my_const_check_op (pTHX_ OP *op, void *user_data) {
+        /* ... */
+        return op;
+    }
+
+    STATIC hook_op_check_id my_hook_id = 0;
+
+    void
+    setup ()
+        CODE:
+            my_hook_id = hook_op_check (OP_CONST, my_const_check_op, NULL);
+
+    void
+    teardown ()
+        CODE:
+            hook_op_check_remove (OP_CONST, my_hook_id);
+
+=head1 DESCRIPTION
+
+This module provides a C API for XS modules to hook into the callbacks of
+C<PL_check>.
+
+L<ExtUtils::Depends> is used to export all functions for other XS modules to
+use. Include the following in your Makefile.PL:
+
+    my $pkg = ExtUtils::Depends->new('Your::XSModule', 'B::Hooks::OP::Check');
+    WriteMakefile(
+        ... # your normal makefile flags
+        $pkg->get_makefile_vars,
+    );
+
+Your XS module can now include C<hook_op_check.h>.
+
+=for stopwords cb
+
+=head1 TYPES
+
+=head2 typedef OP *(*hook_op_check_cb) (pTHX_ OP *, void *);
+
+Type that callbacks need to implement.
+
+=head2 typedef UV hook_op_check_id
+
+Type to identify a callback.
+
+=head1 FUNCTIONS
+
+=head2 hook_op_check_id hook_op_check (opcode type, hook_op_check_cb cb, void *user_data)
+
+Register the callback C<cb> to be called after the C<PL_check> function for
+opcodes of the given C<type>. C<user_data> will be passed to the callback as
+the last argument. Returns an id that can be used to remove the callback later
+on.
+
+=head2 void *hook_op_check_remove (opcode type, hook_op_check_id id)
+
+Remove the callback identified by C<id>. Returns the user_data that the callback had.
+
+=head1 SUPPORT
+
+Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=B-Hooks-OP-Check>
+(or L<bug-B-Hooks-OP-Check@rt.cpan.org|mailto:bug-B-Hooks-OP-Check@rt.cpan.org>).
+
+=head1 AUTHOR
+
+Florian Ragwitz <rafl@debian.org>
+
+=head1 CONTRIBUTORS
+
+=for stopwords Karen Etheridge Zefram Alexandr Ciornii
+
+=over 4
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Zefram <zefram@fysh.org>
+
+=item *
+
+Alexandr Ciornii <alexchorny@gmail.com>
+
+=back
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2008 by Florian Ragwitz.
+
+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

database/perl/vendor/lib/B/Hooks/OP/Check/Install/Files.pm

@@ -0,0 +1,35 @@
+package B::Hooks::OP::Check::Install::Files;
+
+$self = {
+          'deps' => [],
+          'inc' => '',
+          'libs' => '',
+          'typemaps' => []
+        };
+
+@deps = @{ $self->{deps} };
+@typemaps = @{ $self->{typemaps} };
+$libs = $self->{libs};
+$inc = $self->{inc};
+
+	$CORE = undef;
+	foreach (@INC) {
+		if ( -f $_ . "/B/Hooks/OP/Check/Install/Files.pm") {
+			$CORE = $_ . "/B/Hooks/OP/Check/Install/";
+			last;
+		}
+	}
+
+	sub deps { @{ $self->{deps} }; }
+
+	sub Inline {
+		my ($class, $lang) = @_;
+		if ($lang ne 'C') {
+			warn "Warning: Inline hints not available for $lang language
+";
+			return;
+		}
+		+{ map { (uc($_) => $self->{$_}) } qw(inc libs typemaps) };
+	}
+
+1;

database/perl/vendor/lib/B/Hooks/OP/Check/Install/hook_op_check.h

@@ -0,0 +1,16 @@
+#ifndef __HOOK_OP_CHECK_H__
+#define __HOOK_OP_CHECK_H__
+
+#include "perl.h"
+
+START_EXTERN_C
+
+typedef UV hook_op_check_id;
+
+typedef OP *(*hook_op_check_cb) (pTHX_ OP *, void *);
+hook_op_check_id hook_op_check (opcode type, hook_op_check_cb cb, void *user_data);
+void *hook_op_check_remove (opcode type, hook_op_check_id id);
+
+END_EXTERN_C
+
+#endif