mirror of
https://github.com/acpica/acpica/
synced 2025-01-19 16:09:19 +03:00
357 lines
8.2 KiB
Perl
Executable File
357 lines
8.2 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
#
|
|
# Make linux patches for ACPICA
|
|
#
|
|
# Usage:
|
|
# edit $old_release to reflect desired tag (release) of ACPICA
|
|
# run perl make-patches.pl
|
|
# collect *.patch files
|
|
#
|
|
# Requires: git
|
|
#
|
|
# Note: Must get the *previous* release of ACPICA to generate the patches
|
|
#
|
|
use File::stat;
|
|
|
|
#
|
|
# Configuration
|
|
#
|
|
$old_release = "R03_21_08";
|
|
$new_release = "R05_14_08";
|
|
#
|
|
$mbox_date = `date`;
|
|
|
|
$GIT_ARGS = "$old_release";
|
|
|
|
$patch_from = "Bob Moore <robert.moore\@intel.com>";
|
|
$patch_signoff = "Bob Moore <robert.moore\@intel.com>";
|
|
$linux_patch_dir = "patches.linux";
|
|
$git_patch_dir = "patches.git";
|
|
$git_patch_name = $old_release.patch;
|
|
$git_log = 'git.log';
|
|
$mbox_name = "$linux_patch_dir/$old_release.mbox";
|
|
$linux_archive_dir = "archive.linux";
|
|
|
|
$linux_patch_count;
|
|
$patch_num;
|
|
|
|
|
|
|
|
#
|
|
# Main function
|
|
#
|
|
# 1) Get the latest version of the acpisrc utility and generate it
|
|
# 2) Checkout the specified tagged release of the ACPICA source
|
|
# 3) Create the GIT logfile and patches against the original ACPICA source
|
|
# 4) Create the Linux patches
|
|
#
|
|
|
|
# Save previous mbox file
|
|
|
|
system("mkdir -p $linux_archive_dir");
|
|
system("cp $linux_patch_dir/*.mbox $linux_archive_dir");
|
|
|
|
|
|
# Make clean patch directories
|
|
|
|
system("rm -rf $git_patch_dir");
|
|
system("mkdir -p $git_patch_dir");
|
|
system("rm -rf $linux_patch_dir");
|
|
system("mkdir -p $linux_patch_dir");
|
|
|
|
|
|
# Checkout the latest ACPICA release
|
|
|
|
system("echo [make-patches] Getting clean ACPICA release, new version $new_release");
|
|
system("perl get-acpi.pl $new_release");
|
|
|
|
|
|
# Generate latest version of the acpisrc utility
|
|
|
|
system("echo [make-patches] Generate acpisrc utility from source");
|
|
system("perl acpisrc.pl");
|
|
|
|
|
|
# Create GIT log
|
|
|
|
system("echo [make-patches] Creating the GIT log");
|
|
system("cd acpica; sh ../create-git-log.sh $old_release $new_release > ../$git_log");
|
|
|
|
|
|
# Create GIT patches
|
|
|
|
system("echo [make-patches] Creating the GIT patches");
|
|
system("cd acpica; sh ../git-patches.sh $old_release $new_release ../$git_patch_dir");
|
|
|
|
|
|
# Create the merged patchfile for "native" ACPICA code
|
|
|
|
system("echo [make-patches] Creating the merged native patch file");
|
|
&make_merged_patch;
|
|
|
|
|
|
# Create "linuxized" reference ACPICA directory from the "older" ACPICA tree
|
|
|
|
system("echo [make-patches] Creating the Linuxized ACPICA source from $old_release");
|
|
system("sh linuxize.sh $old_release");
|
|
|
|
|
|
# Create the linux patches, one per file
|
|
|
|
system("echo [make-patches] Creating the Linux patches");
|
|
&make_patches;
|
|
|
|
|
|
# Create the mailbox format patch file (contains all linux patches)
|
|
|
|
system("echo [make-patches] Creating the mbox patch file");
|
|
&make_mbox;
|
|
|
|
|
|
#
|
|
# Walk the log created by git, invoke callback for each entry
|
|
# Example log entry:
|
|
#
|
|
# ---------------------
|
|
# PatchSet 16465
|
|
# Date: 2007/03/27 20:25:46
|
|
# Author: rmoore1
|
|
# Branch: HEAD
|
|
# Tag: (none)
|
|
# Log:
|
|
# Changes for Cygwin compatibility.
|
|
# Allow generation of ACPICA apps on Cygwin.
|
|
#
|
|
# Members:
|
|
# include/platform/acenv.h:1.131->1.132
|
|
# include/platform/aclinux.h:1.42->1.43
|
|
# tools/acpisrc/acpisrc.h:1.41->1.42
|
|
#
|
|
sub walk_git_log
|
|
{
|
|
my $callback = @_[0];
|
|
my $patch_name;
|
|
my $date;
|
|
my $tag;
|
|
my $file_name;
|
|
my $short_log;
|
|
my $long_log;
|
|
my $log_entry;
|
|
my $short_idx;
|
|
|
|
|
|
# open the GIT log file
|
|
|
|
open(INFO, $git_log) or die ("Cannot open $git_log");
|
|
|
|
# process each entry in the log file
|
|
|
|
while($_ = <INFO>) {
|
|
if (s/^PatchSet\s*(\d+)/\1/) {
|
|
$patch_name = $1;
|
|
}
|
|
|
|
# extract the patchset checkin date
|
|
|
|
if (s/^Date:\s*(.+)/\1/) {
|
|
$date = $1;
|
|
}
|
|
|
|
# extract the GIT tag, "(none)" if none
|
|
|
|
if (s/^Tag:\s*(.+)/\1/) {
|
|
$tag = $1;
|
|
chop $tag;
|
|
|
|
# Construct the filename for the patch
|
|
|
|
$file_name = "$linux_patch_dir/$patch_name";
|
|
#if ($tag !~ /\(none\)/) {
|
|
# $file_name .= "-".$tag;
|
|
#}
|
|
$file_name .= ".patch";
|
|
}
|
|
|
|
# extract the GIT log message and make the linux patch
|
|
|
|
if (/^Log:/) {
|
|
$/ = "";
|
|
$log_entry = <INFO>;
|
|
$/ = "\n";
|
|
|
|
$short_idx = index ($log_entry, ".");
|
|
$short_log = substr ($log_entry, 0, $short_idx);
|
|
$long_log = substr ($log_entry, $short_idx + 2, length($log_entry) - $short_idx -2);
|
|
|
|
&$callback ($patch_name, $date, $file_name, $short_log, $long_log);
|
|
}
|
|
}
|
|
close(INFO);
|
|
}
|
|
|
|
|
|
sub make_merged_patch
|
|
{
|
|
system("rm -f $git_patch_dir/$git_patch_name");
|
|
|
|
system("cd $git_patch_dir; find . -name \"[0123456789]*.patch\" | xargs cat - >> $git_patch_name");
|
|
}
|
|
|
|
|
|
#
|
|
# Create the mailbox format patchfile from the individual patches
|
|
#
|
|
sub make_mbox
|
|
{
|
|
$linux_patch_count = 0;
|
|
$patch_num = 0;
|
|
system("rm -f $mbox_name");
|
|
|
|
&walk_git_log (count_patches);
|
|
&walk_git_log (make_mbox_entry);
|
|
}
|
|
|
|
|
|
#
|
|
# Count the individual patches
|
|
#
|
|
sub count_patches
|
|
{
|
|
my $file_name = @_[2];
|
|
|
|
open(PTCH, $file_name) or return;
|
|
close(PTCH);
|
|
|
|
$linux_patch_count++;
|
|
}
|
|
|
|
|
|
#
|
|
# Make one mailbox entry and append it to the mbox file
|
|
#
|
|
sub make_mbox_entry
|
|
{
|
|
my $patch_name = @_[0];
|
|
my $date = @_[1];
|
|
my $file_name = @_[2];
|
|
my $short_log = @_[3];
|
|
my $long_log = @_[4];
|
|
|
|
|
|
|
|
open(PTCH, $file_name) or return;
|
|
close(PTCH);
|
|
|
|
$patch_num++;
|
|
|
|
# Emit common patch header for mbox
|
|
|
|
open(MBOX, ">>$mbox_name") or die ("Cannot open $mbox_name for appending");
|
|
print(MBOX "From nobody $mbox_date\n");
|
|
print(MBOX "Subject: [Patch $patch_num/$linux_patch_count] ACPICA: $short_log\n");
|
|
print(MBOX "From: $patch_from\n");
|
|
print(MBOX "Date: $date\n");
|
|
print(MBOX "\n");
|
|
close(MBOX);
|
|
|
|
# Append the full patch to the mbox file
|
|
|
|
system("cat $file_name >> $mbox_name");
|
|
open(MBOX, ">>$mbox_name") or die ("Cannot open $mbox_name for appending");
|
|
print(MBOX "\n");
|
|
close(MBOX);
|
|
}
|
|
|
|
|
|
#
|
|
# This function creates the linux patches from the GIT log file.
|
|
# Requires the git log and the git patch set (both created by git)
|
|
#
|
|
sub make_patches
|
|
{
|
|
$linux_patch_count = 0;
|
|
&walk_git_log (make_patch);
|
|
|
|
# cleanup
|
|
|
|
system("rm -rf original.linux");
|
|
system("rm -rf new.linux");
|
|
system("echo [make-patches] Created $linux_patch_count Linux patches");
|
|
}
|
|
|
|
|
|
|
|
#
|
|
# This function creates a linux patch from the corresponding
|
|
# GIT patch against the original ACPICA source tree
|
|
#
|
|
sub make_patch
|
|
{
|
|
my $patch_name = @_[0];
|
|
my $date = @_[1];
|
|
my $file_name = @_[2];
|
|
my $short_log = @_[3];
|
|
my $long_log = @_[4];
|
|
|
|
|
|
system("echo [make-patches] Creating Linux patch named $patch_name");
|
|
|
|
# Take a snapshot of current "new' linuxized tree: copy to "original.linux"
|
|
|
|
system("rm -rf original.linux");
|
|
system("mv new.linux/ original.linux");
|
|
|
|
# Apply GIT patch to the non-linuxized ACPICA tree and linuxize the tree to "new.linux"
|
|
|
|
system("cd acpica; patch -p1 < ../$git_patch_dir/$patch_name.patch");
|
|
system("sh linuxize.sh");
|
|
|
|
# diff the new and original linuxed trees
|
|
|
|
system("diff -Nurp original.linux new.linux > diff.linux");
|
|
|
|
#
|
|
# The patch could be zero length if it patches a non-linux part of the ACPICA
|
|
# tree. In this case, we just ignore the patch, don't create a linux patch
|
|
#
|
|
my $stats = stat ("diff.linux");
|
|
if ($stats->size == 0) {
|
|
print "[make-patches] Skipping patch named $patch_name, Linux version is empty\n";
|
|
system("rm -f diff.linux");
|
|
return;
|
|
}
|
|
|
|
$linux_patch_count++;
|
|
|
|
# Format the log (eliminate long lines) and append it
|
|
|
|
system("rm -f temp temp2");
|
|
open(PTCH, ">temp") or die ("Cannot open temp for writing");
|
|
print(PTCH $long_log);
|
|
close(PTCH);
|
|
|
|
system("fmt -w68 temp >temp2");
|
|
system("cat temp2 >> $file_name");
|
|
system("rm -f temp temp2");
|
|
|
|
# Complete the header
|
|
|
|
open(PTCH, ">>$file_name") or die ("Cannot open $file_name for appending");
|
|
print(PTCH "Signed-off-by: $patch_signoff\n");
|
|
print(PTCH "---\n\n");
|
|
close(PTCH);
|
|
|
|
# Append statistics
|
|
|
|
system("diffstat diff.linux >> $file_name");
|
|
open(PTCH, ">>$file_name") or die ("Cannot open $file_name for appending");
|
|
print(PTCH "\n");
|
|
close(PTCH);
|
|
|
|
# Append the actual patch to the file
|
|
|
|
system("cat diff.linux >> $file_name");
|
|
system("rm -f diff.linux");
|
|
}
|
|
|