Attachment 87504 Details for Bug 70371 – compares workdir files with git ls-tree

compares workdir files with git ls-tree

find_unusedheaders.pl (text/x-perl), 1.07 KB, created by Jelle van der Waa on 2013-10-12 12:29:44 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jelle van der Waa

Created: 2013-10-12 12:29:44 UTC

Size: 1.07 KB

patch

obsolete

>#!/usr/bin/perl
># This file is part of the LibreOffice project.
>#
># This Source Code Form is subject to the terms of the Mozilla Public
># License, v. 2.0. If a copy of the MPL was not distributed with this
># file, You can obtain one at http://mozilla.org/MPL/2.0/.
>#
>#
>use strict;
>use warnings;
>use File::Find qw(finddepth);
>use File::Basename;
>
># Find dirs in:
># workdir/unxlngx6.pro/Dep/CxxObject/ 
># $gitfiles = git ls-tree HEAD -r --name-only
># Compare dir files with git outpust
>#
>
>my @files;
>my $tmp;
>my %data = ();
>sub wanted {
>	return if($_ eq '.' || $_ eq '..' || -d $_);
>		$tmp = basename($File::Find::name);	
>		$tmp =~ s/\.[^.]*$//;
>		$data{$tmp} = $File::Find::name;		
>	#	push @files, basename($File::Find::name);
>}
>
>
>finddepth(\&wanted, 'workdir/unxlngx6.pro/Dep/CxxObject');
>finddepth(\&wanted, 'workdir/unxlngx6.pro/Dep/CObject');
>
># sort files array
>my @gitfiles =  `git ls-tree HEAD -r --name-only`;
>
>foreach my $file (@gitfiles){
>	if($file =~ /\.[hxx|h|c|cxx]$/){
>		$tmp = basename($file);
>		$tmp =~ s/\.[^.]*$//;
>		chomp($tmp);
>		if(!exists($data{$tmp})){
>			print $file;
>		}
>	}
>}

Actions: View

Attachments on bug 70371: 87504