From d63c86f983d14c9537d30fb32f76f6eddc717ae4 Mon Sep 17 00:00:00 2001
From: davidovski <david@davidovski.xyz>
Date: Wed, 26 Jan 2022 20:40:41 +0000
Subject: moved calculating build order to a separate module

---
 src/BuildOrder.pm | 110 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/xib.pl        |  97 ++++-------------------------------------------
 2 files changed, 118 insertions(+), 89 deletions(-)
 create mode 100644 src/BuildOrder.pm

(limited to 'src')

diff --git a/src/BuildOrder.pm b/src/BuildOrder.pm
new file mode 100644
index 0000000..0836209
--- /dev/null
+++ b/src/BuildOrder.pm
@@ -0,0 +1,110 @@
+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/xib.pl b/src/xib.pl
index e59a591..74ea8b7 100755
--- a/src/xib.pl
+++ b/src/xib.pl
@@ -24,15 +24,17 @@
 use strict;
 use warnings;
 use Getopt::Long "HelpMessage";
+
 use File::Basename;
-use Sort::TSort "tsort";
+use lib dirname (__FILE__);
+use BuildOrder "determine_build_order";
 
 our $BUILDFILES_REPO = "https://xi.davidovski.xyz/git/buildfiles.git";
 
 GetOptions(
-        "chroot:s" => \(our $chroot = "/var/xilinux/chroot"),
-        "buildfiles" => \(our $buildfiles = "/var/xilinux/buildfiles"),
-        "export:s" => \(our $export = "/var/xilinux/export"),
+        "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{
@@ -51,94 +53,11 @@ sub pull_buildfiles{
     } else {
         system("git clone $BUILDFILES_REPO $buildfiles");
     }
-    list_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");
-    return @files;
-}
-
-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;
-}
-
-sub get_depended_on{
-    my (%pkgs) = @_;
-    my %depended = ();
-
-    foreach (keys(%pkgs)) {
-        my @empty = ();
-        $depended{$_} = \@empty;
-    }
-
-    foreach (keys(%pkgs)) {
-        my $apkg = $_;
-        foreach (keys(%pkgs)) {
-            my $bpkg = $_;
-            my @deps = @{$pkgs{$_}};
-            if (grep(/^$apkg$/, @deps)) {
-                push(@{$depended{$apkg}}, $bpkg);
-            }
-        }
-    }
-
-    return %depended;
-}
-
-sub determine_build_order{
-    my %pkgs = get_packages();
-
-    my @edges = ();
-    foreach (keys(%pkgs)) {
-        my $pkg = $_;
-        my @deps = @{$pkgs{$_}};
-        foreach (@deps) {
-            my $dep = $_;
-
-            my @edge = ($pkg, $dep);
-            push @edges, [ @edge  ];
-
-        }
-    }
-    
-    my $sorted = tsort(\@edges);
-    
-    foreach(@{$sorted}) {
-        print("$_\n");
-    }
-}
-
 
 unless (caller) {
     prepare_xib_environment();
-    determine_build_order();
+    my $file = "$chroot/buildorder";
+    BuildOrder::determine_build_order($file);
 }
-- 
cgit v1.2.1