#!/usr/bin/perl -w

use strict;
use warnings;

my %rel;
my %rel_back;

my $to_org = 0;
my $org_level = 1;
sub star{
	my $num = shift;
	return '*'x$num;
}

sub say{
    print @_;
    print "\n";
};

sub init_mind {
    say '<map version="0.9.0" encoding="utf-8">' unless $to_org ;
	say '#+STARTUP: hidestars' if  $to_org ;
}

sub fini_mind {
    say '</map>' unless $to_org;
}

sub open_class {
    my $center_class = shift;
    say "<node text=\"$center_class\">" unless $to_org;
	say star($org_level++) . " " . $center_class if $to_org;
}

sub open_left_class {
    my $base = shift;
    say "<node text=\"$base\" style=\"bubble\" position=\"left\">" unless $to_org;
	say star($org_level) . " " . $base if $to_org;
}

sub open_right_class {
    my $base = shift;
    say "<node text=\"$base\" style=\"bubble\" position=\"right\">" unless $to_org;
	say star($org_level) . " " . $base if $to_org;
}


sub close_class() {
    say "</node>" unless $to_org;
	$org_level-- if $to_org;
}

sub add_base_classes {
    my $center_class = shift;
    return unless exists $rel{$center_class};
    my @base_list = split /,/,$rel{$center_class};
    for my $base (@base_list) {
        &open_left_class($base);
		$org_level++ if $to_org;
        &add_base_classes($base);
        &close_class;
    }
}

sub add_child_classes {
    my $center_class = shift;
    return unless exists $rel_back{$center_class};
    my @child_list = split /,/,$rel_back{$center_class};
    for my $child (@child_list) {
        &open_right_class($child);
		$org_level++ if $to_org;
        &add_child_classes($child);
        &close_class;
    }
}


sub main {

	#to org mode support
	$to_org = 1 if ($ARGV[2] && $ARGV[2] eq "--org");

    my $FILE;
    open $FILE, "<", $ARGV[0];
    my $line;
    my @tail_bases;
    while ($line=<$FILE>) {
        chop $line;
        my ($cls, $base)  = split /\s+--D\s+/, $line;
		next unless $cls && $base;
        $cls =~ s/\s//g;
        $base =~ s/\s//g;
        if (exists $rel{$cls}) {
            $rel{$cls} = $rel{$cls} . "," . $base;
        } else {
            $rel{$cls} = $base;
        }
        push @tail_bases, $base;
    }
    for my $base (@tail_bases) {
        $rel{$base} = "" unless exists $rel{$base};
    }

    for my $key (keys %rel) {
        my $val = $rel{$key};
        my @base_list = split /,/,$val;
        for my $base (@base_list) {
            if (exists $rel_back{$base}) {
                $rel_back{$base} = $rel_back{$base} . "," . $key;
            } else {
                $rel_back{$base} = $key;
            }
        }
    }

    if ($ARGV[1] && exists $rel{$ARGV[1]}) {
        my $center_class = $ARGV[1];
        &init_mind;
        &open_class($center_class);
        &add_base_classes($center_class);


		&close_class if $to_org;
		$org_level = 1 if $to_org;
		&open_class($center_class) if $to_org;

        &add_child_classes($center_class);
        &close_class;
        &fini_mind;
    }
}

&main;