From 4a5d2a3c22096c563608ce2e3603ea40810f030b Mon Sep 17 00:00:00 2001 From: davidovski Date: Sun, 30 Jan 2022 02:34:51 +0000 Subject: moved everything to bash again --- src/BuildOrder.pm | 110 -------------------------- src/BuildPackage.pm | 85 -------------------- src/XibUtil.pm | 52 ------------- src/build_order.pm | 131 +++++++++++++++++++++++++++++++ src/build_package.sh | 190 +++++++++++++++++++++++++++++++++++++++++++++ src/prepare_environment.sh | 19 +++++ src/xib.pl | 67 ---------------- 7 files changed, 340 insertions(+), 314 deletions(-) delete mode 100644 src/BuildOrder.pm delete mode 100755 src/BuildPackage.pm delete mode 100644 src/XibUtil.pm create mode 100755 src/build_order.pm create mode 100755 src/build_package.sh create mode 100755 src/prepare_environment.sh delete mode 100755 src/xib.pl (limited to 'src') diff --git a/src/BuildOrder.pm b/src/BuildOrder.pm deleted file mode 100644 index 0836209..0000000 --- a/src/BuildOrder.pm +++ /dev/null @@ -1,110 +0,0 @@ -package BuildOrder; -# tools for determining which order to build packages - -use strict; -use warnings; - -use File::Basename "basename"; -use Sort::TSort "tsort"; - -sub list_dependencies{ - my $file = $_; - my @deps = (); - - open (my $fh, "<", $file) or warn "Cannot open $file"; - - while (my $line = <$fh>) { - if ($line =~ /DEPS=\((.+)\)/) { - my @words = split(/ /, $1); - push(@deps, @words); - } - } - - return @deps; -} - -sub list_buildfiles{ - my @files = glob("$main::buildfiles/repo/*/*.xibuild"); - # ignore any meta packages during this stage, they can be added later - return grep(!/\/meta\//, @files); -} - -sub list_meta_pkgs{ - return map({basename($_, ".xibuild")} glob("$main::buildfiles/repo/meta/*.xibuild")); -} - -sub get_packages{ - my %pkgs = (); - - my @files = list_buildfiles(); - - foreach (@files) { - my $pkg_file = $_; - my $pkg_name = basename($pkg_file, ".xibuild"); - - my @deps = list_dependencies($pkg_file); - $pkgs{$pkg_name} = \@deps; - } - - return %pkgs; -} - -# Get a list of all the edges -sub get_edges{ - my %pkgs = @_; - - my @edges = (); - foreach (keys(%pkgs)) { - my $pkg = $_; - my @deps = @{$pkgs{$_}}; - foreach (@deps) { - my $dep = $_; - - my @edge = ($pkg, $dep); - push @edges, [ @edge ]; - - } - } - return @edges; -} - -# Determine which packages are depended on -sub get_depended_on{ - my @edges = @_; - - my %install = (); - foreach (@edges) { - my @edge = @{$_}; - $install{$edge[1]} = $edge[0]; - } - - return keys(%install); -} - -sub determine_build_order{ - my ($file) = @_; - my %pkgs = get_packages(); - - my @edges = get_edges(%pkgs); - - my @install = get_depended_on(@edges); - - # use tsort to determine the build order - my @sorted = reverse(@{tsort(\@edges)}); - - my @meta = list_meta_pkgs(); - push(@sorted, @meta); - - open (my $fh, ">", $file) or die "Cannot open $file"; - - foreach(@sorted) { - my $pkg = $_; - print($fh "$pkg"); - print($fh "+") if (grep(/^$pkg/, @install)); - print($fh "\n"); - } - - return $file; -} - -1; diff --git a/src/BuildPackage.pm b/src/BuildPackage.pm deleted file mode 100755 index 61087f2..0000000 --- a/src/BuildPackage.pm +++ /dev/null @@ -1,85 +0,0 @@ -package BuildPackage; - -use strict; -use warnings; - -use File::Basename; -use XibUtil qw/extract_from_file extract md5_sum/; - -sub extract_source{ - return XibUtil::extract_from_file(@_, qr/^SOURCE=(.+)$/); -} - -sub extract_branch{ - return XibUtil::extract_from_file(@_, qr/^BRANCH=(.+)$/); -} - -sub extract_version{ - return XibUtil::extract_from_file(@_, qr/^PKG_VER=(.+)$/); -} - -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 ($build_file) = @_; - - mkdir("$main::chroot/build"); - mkdir("$main::chroot/build/source"); - chdir("$main::chroot/build/source"); - - my $source = extract_source($build_file); - my $branch = extract_branch($build_file); - my $PKG_VER = extract_version($build_file); - - if (XibUtil::is_git_repo($source, $branch)) { - print("Fetching git repo $source version $PKG_VER\n"); - system("git clone $source ."); - system("git checkout $branch"); - - } else { - print("downloading file $source\n"); - my $downloaded_file = basename($source); - system("curl $source $downloaded_file"); - extract("$downloaded_file"); - system("pwd; cp -r */* .") - - } - - # download source to $chroot/build/mysource.tgz - # extract source to $chroot/build/source -} - -sub build_package{ - my ($build_file) = @_; - - my $existing_version = get_built_version($build_file); - if (defined($existing_version) && $existing_version eq md5_sum($build_file)) { - # do not build - print("do not build\n"); - return - } - # build - fetch_source($build_file); - - - -} -1; diff --git a/src/XibUtil.pm b/src/XibUtil.pm deleted file mode 100644 index 1aa02a8..0000000 --- a/src/XibUtil.pm +++ /dev/null @@ -1,52 +0,0 @@ -package XibUtil; - -use v5.12; - -use strict; -use warnings; - -use File::Basename; - -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_from_file{ - my ($file, $regex) = @_; - open (my $fh, "<", $file) or warn "Cannot open $file"; - while (my $line = <$fh>) { - if ($line =~ $regex) { - return $1; - } - } -} - -sub is_git_repo{ - return system("git ls-remote -q @_"); -} - -sub extract{ - my ($file) = @_; - my $ext = (fileparse($file, qr/\.[^.]*/))[2]; - print("$ext\n"); - - my $cmd = ""; - given($ext) { - $cmd = "tar -zxf $file" when ".gz"; - $cmd = "tar -xf $file" when ".xz"; - $cmd = "unzip $file" when ".zip"; - $cmd = "tar --lzip -xf $file" when ".lz"; - default { - $cmd = "tar -xf $file"; - } - } - - system($cmd); -} - -1; diff --git a/src/build_order.pm b/src/build_order.pm new file mode 100755 index 0000000..37beb64 --- /dev/null +++ b/src/build_order.pm @@ -0,0 +1,131 @@ +#!/usr/bin/env perl + +# TODO for building the whole system +# We first need to have a base system that we can build from +# (up to chapter 6 in lfs book, done by make_tools.sh) +# packages need to be build in order of importance +# need to some how find out which packages are the most important and build and install them to the chroot first +# build a package, install it if necessary +# copy the generated package/info to a safe place +# sign the package +# put the package in the export folder + +# TODO for building a single package: +# do all the preliminary checks (exists, deps are installed, etc) +# download source to $chroot/source +# download additional tools +# copy xibuild to the chroot +# create a "build.sh" script in the chroot +# - run the 3 stages of package building +# - create the pacakage in $chroot/$name.xipkg +# - add some info to package info +# - if requested, install to the chroot + +use strict; +use warnings; + +use Env; +use File::Basename; +use lib dirname (__FILE__); +use Sort::TSort "tsort"; + +our $buildfiles = $ENV{XIB_BUILDFILES}; + +sub list_dependencies{ + my $file = $_; + my @deps = (); + + open (my $fh, "<", $file) or warn "Cannot open $file"; + + while (my $line = <$fh>) { + if ($line =~ /DEPS=\((.+)\)/) { + my @words = split(/ /, $1); + push(@deps, @words); + } + } + + return @deps; +} + +sub list_buildfiles{ + my @files = glob("$buildfiles/repo/*/*.xibuild"); + # ignore any meta packages during this stage, they can be added later + return grep(!/\/meta\//, @files); +} + +sub list_meta_pkgs{ + return map({basename($_, ".xibuild")} glob("$buildfiles/repo/meta/*.xibuild")); +} + +sub get_packages{ + my %pkgs = (); + + my @files = list_buildfiles(); + + foreach (@files) { + my $pkg_file = $_; + my $pkg_name = basename($pkg_file, ".xibuild"); + + my @deps = list_dependencies($pkg_file); + $pkgs{$pkg_name} = \@deps; + } + + return %pkgs; +} + +# Get a list of all the edges +sub get_edges{ + my %pkgs = @_; + + my @edges = (); + foreach (keys(%pkgs)) { + my $pkg = $_; + my @deps = @{$pkgs{$_}}; + foreach (@deps) { + my $dep = $_; + + my @edge = ($pkg, $dep); + push @edges, [ @edge ]; + + } + } + return @edges; +} + +# Determine which packages are depended on +sub get_depended_on{ + my @edges = @_; + + my %install = (); + foreach (@edges) { + my @edge = @{$_}; + $install{$edge[1]} = $edge[0]; + } + + return keys(%install); +} + +sub determine_build_order{ + my %pkgs = get_packages(); + + my @edges = get_edges(%pkgs); + + my @install = get_depended_on(@edges); + + # use tsort to determine the build order + my @sorted = reverse(@{tsort(\@edges)}); + + my @meta = list_meta_pkgs(); + push(@sorted, @meta); + + foreach(@sorted) { + my $pkg = $_; + print("$pkg"); + print("+") if (grep(/^$pkg/, @install)); + print("\n"); + } +} + +unless (caller) { + determine_build_order(); +} diff --git a/src/build_package.sh b/src/build_package.sh new file mode 100755 index 0000000..0c37069 --- /dev/null +++ b/src/build_package.sh @@ -0,0 +1,190 @@ +#!/bin/bash + +BUILDFILE=$1 +REPO=$(echo $BUILDFILE | rev | cut -d/ -f2 | rev) +NAME=$(basename $BUILDFILE .xibuild) + +source $BUILDFILE + +extract () { + FILE=$1 + case "${FILE#*.}" in + "tar.gz" ) + tar -zxf $FILE + ;; + "tar.lz" ) + tar --lzip -xf "$FILE" + ;; + "zip" ) + unzip $FILE + ;; + * ) + tar -xf $FILE + ;; + esac +} + +package_exists () { + local exported="$XIB_EXPORT/repo/$REPO/$NAME" + local exported_pkg="$exported.xipkg" + local exported_pkg_info="$exported.xipkg.info" + local exported_pkg_build="$exported.xibuild" + + if [ -f $exported_pkg ] && [ -f $exported_pkg_info ] && [ -f $exported_pkg_build ]; then + local built_sum=$(md5sum $exported_pkg_build | cut -d" " -f1) + local current_sum=$(md5sum $BUILDFILE | cut -d" " -f1) + + if [ "$built_sum" = "$current_sum" ]; then + return 0 + fi + fi + + return 1 +} + +fetch_source () { + local src_dir="$XIB_CHROOT/build/source" + mkdir -pv $src_dir + + pushd $src_dir + if git ls-remote -q $SOURCE $BRANCH &> /dev/null; then + # The source is a git repo + git clone $SOURCE . + git checkout $BRANCH + else + # The source is a file + + local downloaded_file=$(basename $SOURCE) + curl -SsL $SOURCE > $downloaded_file + extract $downloaded_file + + # if the extracted file only had one directory + if [ "$(ls -l | wc -l)" = "3" ]; then + for file in */*; do + mv $file . + done; + fi + fi + popd +} + +clean_chroot () { + local export_dir="$XIB_CHROOT/export" + local build_dir="$XIB_CHROOT/build" + + rm -rf $export_dir + rm -rf $build_dir + + mkdir -pv $export_dir + mkdir -pv $build_dir + + mkdir -pv "$XIB_EXPORT/repo/$REPO/" +} + +make_buildscript () { + cat > "$XIB_CHROOT/build/build.sh" << "EOF" +#!/bin/bash + +export PKG_NAME=$(cat /build/name) +export PKG_DEST=/export + +prepare () { + echo "passing prepare" +} + +build () { + echo "passing build" +} + +check () { + echo "passing check" +} + +package () { + echo "passing package" +} + +cd /build +ls +source $PKG_NAME.xibuild +cd /build/source + +prepare || exit 1 +build || exit 1 +check +package || exit 1 + +if command -v postinstall > /dev/null; then + POSTINSTALL=$(type postinstall | sed '1,3d,$d') + if [${#POSTINSTALL} != 0]; then + POST_DIR=$PKG_DEST/var/lib/xipkg/postinstall + mkdir -p $POST_DIR + echo "#!/bin/sh" > $POST_DIR/$PKG_NAME.sh + echo $POSTINSTALL >> $POST_DIR/$PKG_NAME.sh + fi +fi +EOF + chmod 700 "$XIB_CHROOT/build/build.sh" +} + +package () { + local export_repo="$XIB_EXPORT/repo/$REPO" + local export_pkg="$XIB_EXPORT/repo/$REPO/$NAME.xipkg" + local pkg_dest="$XIB_CHROOT/export" + + pushd "$pkg_dest" + if [ "$(ls -1 | wc -l)" = "0" ]; then + echo "package is empty" + exit 1; + fi + tar -C $pkg_dest -cvzf $export_pkg ./ + popd +} + +create_info () { + local export_pkg="$XIB_EXPORT/repo/$REPO/$NAME.xipkg" + local pkg_info="$export_pkg.info" + + echo "" > $pkg_info + echo "NAME=$NAME" >> $pkg_info + echo "DESCRIPTION=$DESC" >> $pkg_info + echo "PKG_FILE=$NAME.xipkg" >> $pkg_info + echo "CHECKSUM=$(md5sum $export_pkg | awk '{ print $1 }')" >> $pkg_info + echo "SOURCE=$SOURCE" >> $pkg_info + echo "DATE=$(date)" >> $pkg_info + echo "DEPS=(${DEPS[*]})" >> $pkg_info +} + +sign () { + local export_pkg="$XIB_EXPORT/repo/$REPO/$NAME.xipkg" + local pkg_info="$export_pkg.info" + + echo "SIGNATURE=" >> $pkg_info + openssl dgst -sign $PRIV_KEY $export_pkg >> $pkg_info + +} + +build () { + clean_chroot + fetch_source + make_buildscript + + cp "$BUILDFILE" "$XIB_CHROOT/build/" + printf $NAME > "$XIB_CHROOT/build/name" + + local log_file="$XIB_EXPORT/repo/$REPO/$NAME.log" + xichroot $XIB_CHROOT /build/build.sh > $log_file + + package + create_info + + # TODO check if the key exists, if not, skip signing + sign + + cp "$BUILDFILE" "$XIB_EXPORT/repo/$REPO/" + +} + +[ -z "${XIB_CHROOT}" ] && echo "CRITICAL! No chroot env variable set!" && exit 1; + +package_exists || build diff --git a/src/prepare_environment.sh b/src/prepare_environment.sh new file mode 100755 index 0000000..73fca98 --- /dev/null +++ b/src/prepare_environment.sh @@ -0,0 +1,19 @@ +#!/bin/sh + +export XIB_DIR="/var/lib/xib" +export XIB_BUILDFILES="$XIB_DIR/buildfiles" +export XIB_CHROOT="$XIB_DIR/chroot" +export XIB_EXPORT="$XIB_DIR/export" + +export PRIV_KEY="$HOME/.ssh/xi.pem" + +export BUILDFILES_GIT_REPO="https://xi.davidovski.xyz/git/buildfiles.git" + +mkdir -pv $XIB_DIR $XIB_BUILDFILES $XIB_CHROOT $XIB_EXPORT + +if [ -d $XIB_BUILDFILES/.git ]; then + cd $XIB_BUILDFILES + git pull +else + git clone $BUILDFILES_GIT_REPO $XIB_BUILDFILES +fi diff --git a/src/xib.pl b/src/xib.pl deleted file mode 100755 index fcdbeb2..0000000 --- a/src/xib.pl +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/env perl - -# TODO for building the whole system -# We first need to have a base system that we can build from -# (up to chapter 6 in lfs book, done by make_tools.sh) -# packages need to be build in order of importance -# need to some how find out which packages are the most important and build and install them to the chroot first -# build a package, install it if necessary -# copy the generated package/info to a safe place -# sign the package -# put the package in the export folder - -# TODO for building a single package: -# do all the preliminary checks (exists, deps are installed, etc) -# download source to $chroot/source -# download additional tools -# copy xibuild to the chroot -# create a "build.sh" script in the chroot -# - run the 3 stages of package building -# - create the pacakage in $chroot/$name.xipkg -# - add some info to package info -# - if requested, install to the chroot - -use v5.12; - -use strict; -use warnings; -use Getopt::Long "HelpMessage"; - -use File::Basename; -use lib dirname (__FILE__); -use BuildOrder "determine_build_order"; -use XibUtil "extract"; -use BuildPackage; - -our $BUILDFILES_REPO = "https://xi.davidovski.xyz/git/buildfiles.git"; - -GetOptions( - "chroot:s" => \(our $chroot = "/var/lib/xib/chroot"), - "buildfiles" => \(our $buildfiles = "/var/lib/xib/buildfiles"), - "export:s" => \(our $export = "/var/lib/xib/export"), -) or HelpMessage(1); - -sub prepare_xib_environment{ - die "chroot environment at $chroot doesn't yet exist\n" unless ( -e $chroot); - - if (!-d $export) { - mkdir($export); - } - - pull_buildfiles(); -} - -sub pull_buildfiles{ - if (-d $buildfiles) { - system("cd $buildfiles && git pull"); - } else { - system("git clone $BUILDFILES_REPO $buildfiles"); - } -} - -unless (caller) { - prepare_xib_environment(); - my $file = "$chroot/buildorder"; - BuildOrder::determine_build_order($file); - BuildPackage::build_package("$buildfiles/repo/util/vim.xibuild"); -} -- cgit v1.2.1