From 2c82b81fcd8fc723712ac605041da5142f765730 Mon Sep 17 00:00:00 2001
From: davidovski <david@davidovski.xyz>
Date: Sun, 6 Feb 2022 00:40:22 +0000
Subject: moved src files to xibuild files

---
 src/build_order.pm | 134 -----------------------------------------------------
 1 file changed, 134 deletions(-)
 delete mode 100755 src/build_order.pm

(limited to 'src/build_order.pm')

diff --git a/src/build_order.pm b/src/build_order.pm
deleted file mode 100755
index 606839c..0000000
--- a/src/build_order.pm
+++ /dev/null
@@ -1,134 +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 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
-    @files = grep(!/\/meta\//, @files);
-    @files = grep(!/\/skip\//, @files);
-
-    return @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();
-}
-- 
cgit v1.2.1