support subdirs

Change-Id: Ia64e51c28993584e1f24ca8cd1458def242bb391
Reviewed-by: hjk <qthjk@ovi.com>
Reviewed-by: Oswald Buddenhagen <oswald.buddenhagen@nokia.com>

1 files changed, 24 insertions, 1 deletions

diff --git a/doc/fixnavi.pl b/doc/fixnavi.pl
index 0a31986e80..e2e4497cf4 100755
--- a/doc/fixnavi.pl
+++ b/doc/fixnavi.pl
@@ -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, $_;
+        }
     }
 }