[gtk-doc] mkdb: use an indent of 4 for the hierarchy

[Stefan Kost <stefkost src gnome org>]

commit 4246c0d93b47b0d70052cfd8887dba10c9b7677e
Author: Stefan Sauer <ensonic users sf net>
Date:   Thu Feb 13 21:29:03 2014 +0100

    mkdb: use an indent of 4 for the hierarchy
    
    This is the same as in the per-module hierarchy. Also fix an of by one in the initial indent.

 gtkdoc-mkdb.in |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)
---
diff --git a/gtkdoc-mkdb.in b/gtkdoc-mkdb.in
index d457a0b..d77e589 100755
--- a/gtkdoc-mkdb.in
+++ b/gtkdoc-mkdb.in
@@ -3282,10 +3282,10 @@ sub GetHierarchy {
             $link_text = "$ancestors[$i]";
         }
         if ($level == 0) {
-            $hierarchy .= "  $link_text\n";
+            $hierarchy .= " $link_text\n";
         } else {
             # Unicode chars for: ╰───
-            $hierarchy .= ' ' x ($level * 6 - 3) . "<phrase 
role=\"lineart\">&#9584;&#9472;&#9472;&#9472;&#9472;</phrase> $link_text\n";
+            $hierarchy .= ' ' x ($level * 4 - 3) . "<phrase role=\"lineart\">&#9584;&#9472;&#9472;</phrase> 
$link_text\n";
         }
         $level++;
     }
@@ -3296,7 +3296,7 @@ sub GetHierarchy {
       if ($i == $#children) {
         $junction = "&#9584;"; # unicode for ╰
       }
-      $hierarchy .= ' ' x ($level * 6 - 3) . "<phrase role=\"lineart\">" . $junction . 
"&#9472;&#9472;&#9472;&#9472;</phrase> $link_text\n";
+      $hierarchy .= ' ' x ($level * 4 - 3) . "<phrase role=\"lineart\">" . $junction . 
"&#9472;&#9472;</phrase> $link_text\n";
     }
     $hierarchy .= "</synopsis>\n";
 
@@ -5831,16 +5831,16 @@ sub ReadObjectHierarchy {
                 my $plevel = pop(@pending_levels);
             }
 
-               push (@pending_objects, $object);
+            push (@pending_objects, $object);
             push (@pending_levels, $level);
 
             if (exists($KnownSymbols{$object}) && $KnownSymbols{$object} == 1) {
-                   while ($#pending_levels >= 0) {
+                while ($#pending_levels >= 0) {
                     $object = shift @pending_objects;
                     $level = shift @pending_levels;
-                       $xref = &MakeXRef ($object);
+                    $xref = &MakeXRef ($object);
 
-                     print (OUTPUT ' ' x ($level * 4), "$xref\n");
+                    print (OUTPUT ' ' x ($level * 4), "$xref\n");
                     push (@Objects, $object);
                     push (@ObjectLevels, $level);
                     $ObjectRoots{$object} = $root;