diff options
| -rwxr-xr-x | src/BuildPackage.pm | 78 | ||||
| -rwxr-xr-x | src/xib.pl | 2 |
2 files changed, 79 insertions, 1 deletions
diff --git a/src/BuildPackage.pm b/src/BuildPackage.pm new file mode 100755 index 0000000..afcb65a --- /dev/null +++ b/src/BuildPackage.pm @@ -0,0 +1,78 @@ +package BuildPackage; + +use strict; +use warnings; + +use File::Basename "basename"; +use Digest::MD5; + +sub md5_sum{ + my ($file) = @_; + + open(my $fh, "<", $file) or die "Cannot open $file: $!"; + binmode($fh); + + return Digest::MD5->new->addfile($fh)->hexdigest; +} + +sub extract_ver_hash{ + my $info_file = $_; + open (my $fh, "<", $info_file) or warn "Cannot open $info_file"; + while (my $line = <$fh>) { + if ($line =~ /^VER_HASH=(.+)$/) { + return $1; + } + } +} +sub extract_ver_hash{ + my $info_file = $_; + open (my $fh, "<", $info_file) or warn "Cannot open $info_file"; + while (my $line = <$fh>) { + if ($line =~ /^VER_HASH=(.+)$/) { + return $1; + } + } +} + +sub get_built_version{ + my ($build_file) = @_; + my @package_split = split(/\//, $build_file); + my $repo = $package_split[-2]; + my $name = basename($build_file, ".xibuild"); + my $dest = "$main::export/repo/$repo/$name"; + + my $pkg = "$dest.xipkg"; + my $info = "$dest.xipkg.info"; + my $used_build = "$dest.xibuild"; + + if (-e $pkg && -e $info) { + return md5_sum($used_build); + } +} + +sub clear_build_folder{ + rmtree("$main::chroot/build"); +} + +sub fetch_source{ + my $source_url = $_; + + mkdir("$main::chroot/build") + mkdir("$main::chroot/build/source") + + # download source to $chroot/build/mysource.tgz + # extract source to $chroot/build/source +} + +sub build_package{ + my ($build_file) = @_; + + $existing_version = get_built_version($build_file); + if (defined($existing_version) && $existing_version eq md5_sum($build_file)) { + # do not build + return + } + # build + + +} @@ -28,6 +28,7 @@ use Getopt::Long "HelpMessage"; use File::Basename; use lib dirname (__FILE__); use BuildOrder "determine_build_order"; +use BuildPackage; our $BUILDFILES_REPO = "https://xi.davidovski.xyz/git/buildfiles.git"; @@ -55,7 +56,6 @@ sub pull_buildfiles{ } } - unless (caller) { prepare_xib_environment(); my $file = "$chroot/buildorder"; |