#!/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;
		}
	}
}
