[Po4a-commits] "po4a/extension Build.PL,NONE,1.1 typemap,NONE,1.1"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/extension
In directory alioth:/tmp/cvs-serv14975/extension

Added Files:
	Build.PL typemap 
Log Message:
New C extension. Not built or distributed by default.


--- NEW FILE: Build.PL ---
#!/usr/bin/perl

use Module::Build;
use strict;
use warnings;

#my $builder = Module::Build->subclass
#(
#    code => q{
#        sub ACTION_test {
#            system("cd .. && PERL5LIB=\$(pwd)/extension/blib/arch:\$(pwd)/lib ./Build test verbose=1");
#        }
#    },
#);

#$builder->new
my $builder = Module::Build->new
  (
    module_name       => 'po4ac',
    dist_version_from => '../lib/Locale/Po4a/TransTractor.pm', # finds $VERSION
    license           => 'gpl',
    dist_abstract     => 'Tools for helping translation of documentation',
    dist_author       => ['Nicolas François <nicolas.francois at centraliens.net'],
#    test_files        => '../t',
    extra_linker_flags => '-lgettextpo -lgettextsrc'
  )->create_build_script;

--- NEW FILE: typemap ---
TYPEMAP
Locale_Po4a_Po	T_PTROBJ_SPECIAL
INPUT
T_PTROBJ_SPECIAL
        if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = INT2PTR($type, tmp);
        }
        else
            croak(\"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")

OUTPUT
T_PTROBJ_SPECIAL
        sv_setref_pv($arg,
                     \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
                     (void*)$var);