Add samsung specific changes

scripts/sec_reorder.pl

@@ -0,0 +1,109 @@
+#!/bin/perl
+# SPDX-License-Identifier: GPL-2.0
+# COPYRIGHT(C) 2023 Samsung Electronics Co., Ltd. All Right Reserved.
+
+# NOTE: 'androidboot.load_modules_parallel=false' is required
+
+use strict;
+
+my @__highest = (
+    'drivers/samsung/debug/boot_stat/',
+    'drivers/samsung/debug/log_buf/',
+    'drivers/samsung/debug/common/',
+    'drivers/samsung/debug/arm64/ap_context/',
+);
+my @__lowest = (
+    'drivers/samsung/bsp/qcom/param/',
+    'drivers/samsung/debug/qcom/dbg_partition/',
+);
+my %highest = map { $_ => [] } @__highest if $#__highest >= 0;
+my %lowest = map { $_ => [] } @__lowest if $#__lowest >= 0;
+my @modules;
+
+reorder_main();
+
+sub reorder_main
+{
+    my $fd;
+    my $dot_ko;
+    my $collected;
+
+    open($fd, $ARGV[0]);
+    while (<$fd>) {
+        $dot_ko = $_;
+        $dot_ko =~ s/\s*$//;
+
+        $collected = __collect_highest($dot_ko);
+        $collected += __collect_lowest($dot_ko);
+
+        if ($collected == 0) {
+            push(@modules, $dot_ko);
+        }
+    }
+    close($fd);
+
+    __print_highest();
+    __print_modules();
+    __print_lowest();
+}
+
+sub __collect_highest
+{
+    my $_dot_ko = $_[0];
+    my $path;
+
+    foreach $path (@__highest) {
+        if ($_dot_ko =~ /^kernel\/\Q$path\E/) {
+            push(@{$highest{$path}}, $_dot_ko);
+            return 1;
+        }
+    }
+
+    return 0;
+}
+
+sub __collect_lowest
+{
+    my $_dot_ko = $_[0];
+    my $path;
+
+    foreach $path (@__lowest) {
+        if ($_dot_ko =~ /^kernel\/\Q$path\E/) {
+            push(@{$lowest{$path}}, $_dot_ko);
+            return 1;
+        }
+    }
+
+    return 0;
+}
+
+sub __print_highest
+{
+    my ($path, $dot_ko);
+
+    foreach $path (@__highest) {
+        foreach $dot_ko (@{$highest{$path}}) {
+            printf("%s\n", $dot_ko);
+        }
+    }
+}
+
+sub __print_modules
+{
+    my $dot_ko;
+
+    foreach $dot_ko (@modules) {
+        printf("%s\n", $dot_ko);
+    }
+}
+
+sub __print_lowest
+{
+    my ($path, $dot_ko);
+
+    foreach $path (@__lowest) {
+        foreach $dot_ko (@{$lowest{$path}}) {
+            printf("%s\n", $dot_ko);
+        }
+    }
+}