[svk-commit] r2435 - trunk/pkg

[nobody at bestpractical.com]

Author: clkao
Date: Sat Jul 14 09:37:41 2007
New Revision: 2435

Added:
   trunk/pkg/buildsvk.pl

Log:
first cut of svk build tool.

Added: trunk/pkg/buildsvk.pl
==============================================================================
--- (empty file)
+++ trunk/pkg/buildsvk.pl	Sat Jul 14 09:37:41 2007
@@ -0,0 +1,173 @@
+#!perl
+
+use strict;
+use warnings;
+use Cwd 'abs_path';
+use File::Copy 'move';
+
+use File::Spec;
+
+=head1 NAME
+
+buildsvk.pl - packaging svk
+
+=head1 SYNOPSIS
+
+
+
+=head1 DESCRIPTION
+
+Put the dist files under src and C<buildsvk.pl> will create a build
+directory with everything installed under it.
+
+=cut
+
+my $build = SVK::Build->new;
+
+my $t = time();
+
+$build->prepare_perl();
+$build->prepare_svn_core();
+
+$build->build_module('libwin32', 'Console') if $^O eq 'MSWin32';
+
+$build->build_module($_) for qw(Scalar-List-Utils Class-Autouse version Sub-Uplevel Test-Simple Test-Exception Data-Hierarchy PerlIO-via-dynamic PerlIO-via-symlink SVN-Simple PerlIO-eol Algorithm-Diff Algorithm-Annotate Pod-Escapes Pod-Simple IO-Digest TimeDate Getopt-Long Encode PathTools YAML-Syck Locale-Maketext-Simple App-CLI List-MoreUtils Path-Class Class-Data-Inheritable Class-Accessor UNIVERSAL-require File-Temp Log-Log4perl);
+$build->build_module($_) for qw(Locale-Maketext-Lexicon TermReadKey IO-Pager);
+$build->build_module($_) for qw(File-chdir SVN-Mirror);
+$build->build_module($_) for qw(FreezeThaw);
+
+$build->build_module('SVK');
+
+warn 'build finished - '.(time() - $t);
+
+exit 0;
+
+package SVK::Build;
+use Archive::Extract;
+use Env::Path;
+use File::Path (qw(mkpath rmtree));
+use File::chdir;
+
+sub prepare_perl { 1 };
+sub prepare_svn_core { 1 };
+
+sub build_dir {
+    '/tmp/svk-build';
+}
+
+sub prepare_build_dir {
+    my $self = shift;
+    mkpath [$self->build_dir];
+}
+
+sub new {
+    my $class = shift;
+    if ($^O eq 'MSWin32') {
+	$class = 'Win32';
+    }
+
+    my $self = bless {}, $class;
+    $self->prepare_build_dir;
+    return $self;
+}
+
+
+sub extract {
+    my $self = shift;
+    my $ae = Archive::Extract->new( archive => shift );
+
+    $ae->extract( to => $self->build_dir )
+	or die $ae->error;
+}
+
+sub perl { [ $^X, '-I'.$_[0]->perldest ] }
+sub make { 'make' }
+
+sub build_module {
+    my $self = shift;
+    my $module = shift;
+    my $subdir = shift;
+    # XXX: try to match version number only for the glob here
+    my ($dir) = glob($self->build_dir."/$module-*");
+    rmtree [$dir] if $dir;
+
+    my ($file) = glob("src/$module-*");
+    $self->extract($file);
+
+    my $PERLDEST = $self->perldest;
+    my $PERLDESTARCH = $PERLDEST;
+    ($dir) = glob($self->build_dir."/$module-*");
+    #	warn $ENV{PATH};
+    #	my $perl = 'perl';
+    {
+	local $CWD = $subdir ? "$dir/$subdir" : $dir;
+	warn "$CWD\n";
+	system @{$self->perl}, qw(Makefile.PL INSTALLDIRS=perl),
+	    "INSTALLARCHLIB=$PERLDESTARCH",
+	    "INSTALLPRIVLIB=$PERLDEST",
+	    "INSTALLBIN=$PERLDEST/../bin",
+      	    "INSTALLSCRIPT=$PERLDEST/../bin",
+	    "INSTALLMAN1DIR=$PERLDEST/../man/man1",
+	    "INSTALLMAN3DIR=$PERLDEST/../man/man3";
+
+	$ENV{PERL_EXTUTILS_AUTOINSTALL} = '--skipdeps';
+	system $self->make, qw( all install ) ;
+    }
+}
+
+sub perldest {
+    my $self = shift;
+    $self->build_dir.'/perl';
+}
+
+package SVK::Build::Win32;
+use Cwd 'abs_path';
+use File::Spec;
+
+sub build_dir {
+    'c:/tmp/svk-build';
+}
+
+sub perl {
+    my $self = shift;
+    [abs_path(File::Spec->catfile($self->build_dir,
+				  qw(strawberry-perl perl bin perl.exe))) ];
+}
+
+sub make { 'dmake' }
+
+sub perldest {
+    abs_path(File::Spec->catfile($_[0]->build_dir, qw(strawberry-perl perl lib)));
+}
+
+sub prepare_perl {
+    my $self = shift;
+    Env::Path->PATH->Assign( map { abs_path(File::Spec->catfile($build_dir, 'strawberry-perl', $_, 'bin')) } qw(perl dmake mingw));
+
+    if (-d $self->perldest) {
+	warn "found strawberry perl, remove ".$self->perldest." for clean build.\n";
+	return 1;
+    }
+    $self->extract('strawberry-perl.zip');
+}
+
+sub prepare_svn_core {
+    my $self = shift;
+    return 1 if -e File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', 'lib', 'SVN' );
+
+    $self->extract('svn-win32-1.4.4.zip');
+    $self->extract('svn-win32-1.4.4_pl.zip');
+
+    my $svnperl = File::Spec->catfile($self->build_dir, 'svn-win32-1.4.4', 'perl', 'site', 'lib' );
+
+    my $strperl = File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', 'lib' );
+
+    rename(File::Spec->catfile($svnperl, "SVN") =>
+	   File::Spec->catfile($strperl, "SVN")) or die $!;
+
+    rename(File::Spec->catfile($svnperl, "auto", "SVN") =>
+	   File::Spec->catfile($strperl, "auto", "SVN")) or die $!;
+
+    move($_ => File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', 'bin'))
+	for glob($self->build_dir."/svn-win32-1.4.4/bin/*.dll");
+}