CPAN::Groonga

}

  return %tree;
}


################################################################
#
# print JSON tree into file:
#

my $tree_depth  = 2;
my $tree_height = 0;
my $root_node   = 1;

my $distro_nam

#   $file   - output file name .
#
# Returns:
#   $width, $height of requires tree .
#
sub print_json_tree
{
  my $repo = shift;
  my $tree = shift;
  my $file = shift;

  my $fhandle;

  if( ref( $r

  return 0, 0;
  }

  open( $fhandle, "> $file" );
  if( ! $fhandle )
  {
    print STDERR "print_json_tree: cannot open file: " . $file . "\n";
    return 0, 0;
  }

  $tree_depth  = 2;
  $tree_heigh