FreeBSD/Linux Kernel Cross Reference
sys/contrib/device-tree/scripts/rewrite-index.pl

     #!/usr/bin/perl
     use strict;
     use warnings;
     use IPC::Open2;
     my $pid;
     
     open(my $lsfiles, "-|", "git ls-files -s") or die "fork lsfiles: $!";
     
     while (<$lsfiles>) {
        if ($_ =~ m/^120000 ([0-9a-f]{40}) (.*)\t(.*)/) {
            my ($obj, $stage, $path) = ($1,$2,$3);
            if (!defined $pid) {
                $pid = open2(*Rderef, *Wderef, "git cat-file --batch-check='deref-ok %(objectname)' --follow-symlinks")
                    or die "open git cat-file: $!";
            }
            print Wderef "$ENV{GIT_COMMIT}:$path\n" or die "write Wderef: $!";
            my $deref = <Rderef>;
            if ($deref =~ m/^deref-ok ([0-9a-f]{40})$/) {
                $_ = "100644 $1 $stage\t$path\n"
            } elsif ($deref =~ /^dangling /) {
                # Skip next line
                my $dummy = <Rderef>;
            } else {
                die "Failed to parse symlink $ENV{GIT_COMMIT}:$path $deref";
            }
        }
    
        my $m = 0;
    
        # Keep the copyright. Also ensures we never have a completely empty commit.
        $m++ if m/\tCOPYING$/;
    
        # A few architectures have dts files at non standard paths. Massage those into
        # a standard arch/ARCH/boot/dts first.
    
        # symlink: arch/microblaze/boot/dts/system.dts -> ../../platform/generic/system.dts
        next if m,\tarch/microblaze/boot/dts/system.dts$,;
        $m++ if s,\tarch/microblaze/platform/generic/(system.dts)$,\tarch/microblaze/boot/dts/$1,;
    
        # arch/mips/lantiq/dts/easy50712.dts
        # arch/mips/lantiq/dts/danube.dtsi
        # arch/mips/netlogic/dts/xlp_evp.dts
        # arch/mips/ralink/dts/rt3050.dtsi
        # arch/mips/ralink/dts/rt3052_eval.dts
        $m++ if s,\tarch/mips/([^/]*)/dts/(.*\.dts.?)$,\tarch/mips/boot/dts/$2,;
    
        # arch/mips/cavium-octeon/octeon_68xx.dts
        # arch/mips/cavium-octeon/octeon_3xxx.dts
        # arch/mips/mti-sead3/sead3.dts
        $m++ if s,\tarch/mips/([^/]*)/([^/]*\.dts.?)$,\tarch/mips/boot/dts/$2,;
    
        # arch/x86/platform/ce4100/falconfalls.dts
        $m++ if s,\tarch/x86/platform/ce4100/falconfalls.dts,\tarch/x86/boot/dts/falconfalls.dts,;
    
        # test cases
        $m++ if s,\tdrivers/of/testcase-data/,\ttestcase-data/,;
    
        # Now rewrite generic DTS paths
        $m++ if s,\tarch/([^/]*)/boot/dts/(.*\.dts.?)$,\tsrc/$1/$2,;
        $m++ if s,\tarch/([^/]*)/boot/dts/(.*\.h)$,\tsrc/$1/$2,;
    
        # Also rewrite the DTS include paths for dtc+cpp support
        $m++ if s,\tarch/([^/]*)/include/dts/,\tsrc/$1/include/,;
        $m++ if s,\tinclude/dt-bindings/,\tinclude/dt-bindings/,;
    
        # Rewrite the bindings subdirectory
        $m++ if s,\tDocumentation/devicetree/bindings/,\tBindings/,;
    
        print if $m > 0;
    }
    kill $pid if $pid;
    exit 0;

Cache object: c42a367c233014890d6d8fe1e1ab7377