#!/usr/bin/perl -w

$filein = $ARGV[0];
$fileout = $ARGV[1];

$ctr = 0;
$zero = 0;
@final = ();
open(IN, $filein);
while(<IN>) {
    chomp($_);
    print "Input: $_\n";
    $_=~s/^\s+//;
    if ($ctr == 0) {
	@elements = split(" ", $_);
	print "@elements\n";
	$ctr++;
    }else {
	@tmp = ();
	@tmp = split(" ", $_);
	shift(@tmp);
	$rel = join(" ", @tmp);
	
	if($rel =~/^---/) {
	    push(@final, $zero);
	    print ">0\n";
	}else {
	    ($ltri, $utri) = split("---", $rel);
	    $ltri =~s/^\s+//;
	    $ltri =~s/\s$//;

	    $ltri = "$ltri 0";
	    chomp($ltri);
	    print ">$ltri\n";
	    push(@final, $ltri);
	}
	
    }
}
close(IN);

$docCtr = 0;
$vertCtr = 0;
foreach $data(@final) {
    chomp($data);
    $data =~s/\s+$//g;
    $data =~s/^\s+//g;
    
    $docCtr++;
    print "doc $docCtr\n";
    $locn = $docCtr/10;
    $vertCtr++;

    $pCtr = $docCtr - 1;
    chomp($elements[$pCtr]);
    $vertices = "$docCtr \"$elements[$pCtr]\" $locn $locn $locn ic Green bc Brown";
    print ":$vertices\n";
    push(@vertices, $vertices);

    @array =();
    @array = split("\\s", $data);
    for($i=1; $i<=$docCtr; $i++) {
	$arc = "$i $docCtr $array[$i-1]";
	push(@arcs, $arc);
	$arc = "";
    }
}

print "PRINTING\n";
open(OUT, ">$fileout") || die "Output file not found\n";
print OUT"*Vertices $vertCtr\n";
foreach(@vertices){
    print OUT"$_\n";        
}

print OUT"*Arcs\n";
foreach(@arcs) {
    print OUT"$_\n";
}
close(OUT);
exit(0);