Makefile.PL

use strict;
use ExtUtils::MakeMaker;
use Config;
use IO::File;
use Getopt::Std;

our ($opt_d, $opt_r, $opt_v);
getopts('d:rv:');
$opt_v ||= 1;

my (@extras, @scripts, @theselibs, $fhi, $fho, $perlbin);

# Fix up inno script by substituting {perl: $var}

$perlbin = $Config{'sitebin'};

@scripts = grep {-f && !m/\./o && !m/~$/o } glob("scripts/*");
@scripts = grep {!m|/add[^_]|oi} @scripts unless ($^O eq 'MSWin32');

@theselibs = grep {-f } glob("lib/Font/Scripts/*");


if ($^O eq 'MSWin32') {
    
    @extras = (dist => { 'TO_UNIX' => 'perl -Mtounix -e "tounix(\"$(DISTVNAME)\")"' });
    
    *MY::postamble = sub
    {
        my (@files) = map {m|scripts/(.*)$|o; $1;} @scripts;
        my ($res, $fh, $files, $compile);
        
        $files = join (' ', grep {$_ ne 'addpath'} @files);
        $files =~ s/addpath\.bat\s*//o;     # remove addpath since don't need a .bat
        $fh = IO::File->new("> addbats.pl") || die "Can't create addbats.pl";
        
        $fh->print(<<"EOT");
#! perl

# This script automatically generated by Makefile.PL

foreach \$f (qw($files))
{
    if (\$ARGV[0] eq '-r')
    {
        unlink "\$ARGV[1]\\\\\$f.bat";
    }
    else
    {
        open(FH, "> \$ARGV[0]\\\\\$f.bat") || die \$@;
        print FH <<\"EOB\";
\\\@echo off
if "%OS%" == "Windows_NT" goto WinNT
"\$ARGV[0]\\\\fontutils.exe" \$f %1 %2 %3 %4 %5 %6 %7 %8 %9
goto end
:WinNT
"\$ARGV[0]\\\\fontutils.exe" \$f %*
:end
EOB
        close(FH);
    }
}
EOT
        $fh->close();
        
        push (@scripts, "addbats.pl");
    
        my $Registry;
        require Win32::TieRegistry;
        Win32::TieRegistry->import (Delimiter=>"/") ;
        $compile = $Registry->{'Classes/InnoSetupScriptFile/shell/Compile/command//'};
        $compile =~ s/\s*"?%1"?.*$//;
        $compile = "start \"compile\" /wait $compile";
    
        $res .= "exe : TTFontUtils_\$(VERSION_SYM).exe\n\n";
    
        $res .= "TTFontUtils_\$(VERSION_SYM).exe : fontutils.exe\n";
        $res .= "\tiscc.exe \"/dMyVer=\$(VERSION)\" FontUtils.iss\n\n";
        
        $res .= "fontutils.exe : fontutils.pl " . join(' ', @scripts);
        $res .= "\n\tpp -B -c -o fontutils.exe -M Font::TTF::Useall -M Pod::Simple::TranscodeSmart -l libexpat-1_.dll fontutils.pl " . join(' ', @scripts);
        $res .= "\n\n";
        
        $res;
    };
}
elsif ($^O eq 'linux')
{

    *MY::postamble = sub
    {
        my ($self) = @_;
        my ($res);
        my ($package) = lc($self->{'NAME'});
        my ($pversion) = $self->{'VERSION'};
        my ($svn) = `svnversion`;
        my ($sign) = '--auto-debsign' if ($opt_r);
        my ($fpackage);
    
        $svn =~ s/\s+$//o;
        if ($svn and $svn ne "exported")
        {
            $svn =~ s/[0-9]*://og;
        }
        else
        {
            $svn = `hg identify -n`;
            $svn =~ s/\+?\s+$//o;
        }
        $package =~ s/::/-/g;
        $package = "lib${package}-perl";
        $pversion .= "+$svn" unless ($opt_r);
        $fpackage = "$package-$pversion";
    
        $res = <<"EOT";
debsrc: dist
	rm -fr $self->{'DISTVNAME'}
	rm -fr $package
	rm -fr $fpackage
	tar xvzf $self->{'DISTVNAME'}.tar.gz
	cp -r $self->{'DISTVNAME'} $package
	tar cvzf ${package}_${pversion}.orig.tar.gz $package
	cp -r $package $fpackage
	cp -a debian $fpackage
	cd $fpackage && dch -v $pversion "interim dev release" && dpkg-buildpackage -S

# make deb builds an interim deb from svn source for release
deb: debsrc
EOT

        foreach my $d (split(' ', $opt_d))
        {
            $res .= <<"EOT";
	mkdir -p dists/$d   
	#dch -D $d -v $pversion-$opt_v -m -b -c $fpackage/debian/changelog "Auto build from perl for $d"
	#cd $fpackage && pdebuild --buildresult ../dists/$d -- --basetgz /var/cache/pbuilder/base-$d.tgz \$pbuilderopts{$d}
EOT
        }
    
        return $res;
    };

}

    
WriteMakefile (
        NAME => "Font::TTF::Scripts",
        VERSION_FROM => 'lib/Font/TTF/Scripts.pm',
        EXE_FILES => \@scripts,
#        HTMLLIBPODS => {map {my $t = $_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @theselibs},
#        HTMLSCRIPTPODS => {map {my $t=$_; $t=~s/\..*?$/.html/o; $t='blib/Html/'.$t; $_ => $t;} @scripts},
        AUTHOR => "martin_hosken\@sil.org",
        ABSTRACT => "TTF font support scripts for Perl",
        LICENSE => "artistic_2",
        PREREQ_PM => {
            'Algorithm::Diff' => 0,
            'IO::String' => 0,
            'Font::TTF' => '1.05',
            'Text::PDF::File' => 0,
            'Text::Unicode::Equivalents' => 0,
            'XML::Parser' => 0
            },
        META_MERGE => {
          'meta-spec' => { version => 2 },
          resources => {
            repository => {
              type => 'git',
              url => 'https://github.com/silnrsi/font-ttf-scripts.git',
              web => 'https://github.com/silnrsi/font-ttf-scripts',
            }
          }
        },
        @extras
    );