From 2ddab351f06a20f29a44d83102587e79263b42b1 Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <oswald.buddenhagen@nokia.com>
Date: Tue, 8 Nov 2011 17:44:12 +0100
Subject: support subdirs

Change-Id: Ia64e51c28993584e1f24ca8cd1458def242bb391
Reviewed-by: hjk <qthjk@ovi.com>
Reviewed-by: Oswald Buddenhagen <oswald.buddenhagen@nokia.com>
---
 doc/fixnavi.pl | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

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, $_;
+        }
     }
 }
 
-- 
cgit v1.2.1