21  541VQo0~,mop >Pi#VR2M{6RG__'f%mɶiEιOwߝ/gwpsrL/Ghbp G03t۞p>}fm0I.hܴa=A$#LE/$P%0[iHy*_9a-I-/l$YP%&F(l1t~fyąŊ/p0>Ḁ|tiRBpV vkq[0t2C&PMd.G6$VU\Yaۇˎ$R<3(ύ5wva|26؂['{&D뜶^ ,a@mmovL+Ǽ(fɎq?)11l;*-`+; Ŕ^}ʫMd,R,CdW3;t Om?v[_ۣS'_e6Xnne54o:n3[w'OL ( la jh8q1h h 26 & la jh8˗ o 0ɾ 06lze6n1h `i_ub &=LV[(:package ExtUtils::Constant; use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS); $VERSION = 0.23; =head1 NAME ExtUtils::Constant - generate XS code to import C header constants =head1 SYNOPSIS use ExtUtils::Constant qw (WriteConstants); WriteConstants( NAME => 'Foo', NAMES => [qw(FOO BAR BAZ)], ); # Generates wrapper code to make the values of the constants FOO BAR BAZ # available to perl =head1 DESCRIPTION ExtUtils::Constant facilitates generating C and XS wrapper code to allow perl modules to AUTOLOAD constants defined in C library header files. It is principally used by the C utility, on which this code is based. It doesn't contain the routines to scan header files to extract these constants. =head1 USAGE Generally one only needs to call the C function, and then #include "const-c.inc" in the C section of C INCLUDE: const-xs.inc in the XS section of C. For greater flexibility use C, C and C, with which C is implemented. Currently this module understands the following types. h2xs may only know a subset. The sizes of the numeric types are chosen by the C script at compile time. =over 4 =item IV signed integer, at least 32 bits. =item UV unsigned integer, the same size as I =item NV floating point type, probably C, possibly C =item PV NUL terminated string, length will be determined with C =item PVN A fixed length thing, given as a [pointer, length] pair. If you know the length of a string at compile time you may use this instead of I =item SV A B SV. =item YES Truth. (C) The value is not needed (and ignored). =item NO Defined Falsehood. (C) The value is not needed (and ignored). =item UNDEF C. The value of the macro is not needed. =back =head1 FUNCTIONS =over 4 =cut if ($] >= 5.006) { eval "use warnings; 1" or die $@; } use strict; use Carp qw(croak cluck); use Exporter; use ExtUtils::Constant::Utils qw(C_stringify); use ExtUtils::Constant::XS qw(%XS_Constant %XS_TypeSet); @ISA = 'Exporter'; %EXPORT_TAGS = ( 'all' => [ qw( XS_constant constant_types return_clause memEQ_clause C_stringify C_constant autoload WriteConstants WriteMakefileSnippet ) ] ); @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); =item constant_types A function returning a single scalar with C<#define> definitions for the constants used internally between the generated C and XS functions. =cut sub constant_types { ExtUtils::Constant::XS->header(); } sub memEQ_clause { cluck "ExtUtils::Constant::memEQ_clause is deprecated"; ExtUtils::Constant::XS->memEQ_clause({name=>$_[0], checked_at=>$_[1], indent=>$_[2]}); } sub return_clause ($$) { cluck "ExtUtils::Constant::return_clause is deprecated"; my $indent = shift; ExtUtils::Constant::XS->return_clause({indent=>$indent}, @_); } sub switch_clause { cluck "ExtUtils::Constant::switch_clause is deprecated"; my $indent = shift; my $comment = shift; ExtUtils::Constant::XS->switch_clause({indent=>$indent, comment=>$comment}, @_); } sub C_constant { my ($package, $subname, $default_type, $what, $indent, $breakout, @items) = @_; ExtUtils: