Commit 2ddab351 authored by Oswald Buddenhagen's avatar Oswald Buddenhagen

support subdirs

Change-Id: Ia64e51c28993584e1f24ca8cd1458def242bb391
Reviewed-by: default avatarhjk <qthjk@ovi.com>
Reviewed-by: default avatarOswald Buddenhagen <oswald.buddenhagen@nokia.com>
parent 8f4b392e
......@@ -3,6 +3,25 @@
use warnings;
use strict;
sub visitDir($)
{
my ($dir) = @_;
my @ret = ();
my @subret = ();
opendir DIR, $dir or die "$dir: $!\n";
my @ents = readdir DIR;
closedir DIR;
for my $ent (grep !/^\./, @ents) {
my $ret = $dir."/".$ent;
if (-d $ret) {
push @subret, &visitDir($ret);
} elsif ($ret =~ /\.qdoc$/) {
push @ret, $ret;
}
}
return @ret, @subret;
}
my @files = ();
my %defines = ();
for (@ARGV) {
......@@ -12,7 +31,11 @@ for (@ARGV) {
printf STDERR "Unknown option '".$_."'\n";
exit 1;
} else {
push @files, $_;
if (-d $_) {
push @files, visitDir($_);
} else {
push @files, $_;
}
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment