#! /usr/bin/perl -w
#
# $Id$
#
# Copyright 1989-2016 MINES ParisTech
#
# This file is part of PIPS.
#
# PIPS is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# any later version.
#
# PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.
#
# See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
#

# generate a daVinci file from a line-oriented text format use for DG:
# "srcx dstx ef1 ef2 var1 junk var2 src dst junk2\n"
# arc: from src to dst
# node contents: "ef1 ef2 var1 var2"
# ignored: srcx dstx junk junk2

use strict;

my %suivants = ();
my %infos = ();
my @nodes = ();

# routine pour construire un arc a partir du noeud source vers destination
# nodeedge source destination
sub nodeedge($$)
{
  my ($src,$dst) = @_;
  print "l(\"$src->$dst\",e(\"\",[],r(\"$src->$dst\")))\n";
}

# node src
sub node($)
{
  my $src = $_[0];
  print "l(\"$src\",n(\"\",[a(\"OBJECT\",\"$src\"),a(\"COLOR\",\"red\")],[\n";
  my %dejavu = ();
  my $first=1;
  for my $dst (@{$suivants{$src}})
  {
    unless ($dejavu{$dst}) {
      print "," unless $first;
      $first = 0;
      nodeedge($src,$dst);
    }

    $dejavu{$dst} = 1;
  }
  print "]))\n";
}

# construction d un arc labelle.
sub edge($)
{
  my $clef = $_[0];
  my ($src, $dst) = split(/->/, $clef);
  print "l(\"$clef\",n(\"\",[a(\"OBJECT\",\"";

  for my $what (@{$infos{$clef}})
  {
    print "$what\\n";
  }
  print "\"),a(\"COLOR\",\"blue\")],[l(\"$clef->$dst\",e(\"\",[],r(\"$dst\" )))]))\n";
}

# MAIN
#
# lit l'entrée

while (<>)
{
  chomp;
  my ($srcx, $dstx, $ef1, $ef2, $var1, $junk, $var2, $src, $dst, $junk2)
      = split / /;
  push @nodes, $dst;
  push @{$suivants{$src}}, $dst;
  push @{$infos{"$src->$dst"}}, "$ef1 $ef2 $var1 $var2";
}

# creation des noeuds.
my $first=1;
my %proccessed = ();
print "[";
for my $nd (sort(keys %suivants, @nodes))
{
  unless ($proccessed{$nd})
  {
    print "\," unless $first;
    node($nd);
    $proccessed{$nd} = 1;
    $first=0;
  }
}

# creation des arcs.
for my $ed (sort keys %infos)
{
  print "\,";
  edge $ed;
}

print "]";