#!/usr/bin/perl
use strict;
my $rootname ='Components';
open(KOMPO,">components.xml") || die "Can't open components.xml\n";
my $id=0;
my $indentstr='   ';
my $indent=0;
print KOMPO << "EOH";
<?xml version="1.0" encoding="windows-1252"?>
<xmi:XMI xmi:version="2.1" xmlns:uml="http://schema.omg.org/spec/UML/2.1" xmlns:xmi="http://schema.omg.org/spec/XMI/2.1">
<uml:Model xmi:type="uml:Model" name="EA_Model" visibility="public">
${indentstr}<packagedElement xmi:type="uml:Package" xmi:id="$id" name="$rootname" visibility="public">
EOH
$id++;
$indent += 2;
my $lastdeepth = 0;
open(COMPOFIND,"find . -name '*.cd' |");
my @oldpackagepath = ();
while(<COMPOFIND>)
{
   chop;
   my $compofile = $_;
   s:^./::;
   s:/component\.cd$::;
   s/.cd$//;
   my @packagepath = split(/\//);
   $"='::';
   
   print "@packagepath\n";
   my $name = pop(@packagepath);
   my $tiefe = $#packagepath + 1;
   print "@packagepath - $name\n";
   my $oldtiefe = $#oldpackagepath+1 ;
   my $gemtiefe = ($tiefe > $oldtiefe ? $oldtiefe : $tiefe);
   # gemeinsames prefix
   my $pc=0;
   while($pc < $gemtiefe && $packagepath[$pc] eq $oldpackagepath[$pc])
   {
      $pc++;
   }
   my $i=$oldtiefe;
   while($i > $pc)
   {
       $indent--;
       $i--;
       print KOMPO $indentstr x $indent . "</packagedElement><!-- $oldpackagepath[$i] -->\n";
   }
   while($i<$tiefe)
   {
      print KOMPO $indentstr x $indent . "<packagedElement xmi:type=\"uml:Package\" xmi:id=\"$id\" name=\"$packagepath[$i]\" visibility=\"public\">\n";
      $indent++;
      $id++;
      $i++;
   }
   my $compohead='';
   my $oldport = '';
   my $port = '';
   if(open(CD,"< $compofile"))
   {
         print STDERR "Component Description found \n";
         while(<CD>)
         {
	     next if(/^\s*$/);
           if(/name\s+(\S+)/) 
           {
              $name = $1;
              next;
           } 
           if(!/name/ && !$compohead)
           {
               print KOMPO $indentstr x $indent . "<packagedElement xmi:type=\"uml:Component\" xmi:id=\"$id\" name=\"$name\" visibility=\"public\">\n"; 
               $indent++;
               $id++;
               $compohead = "found";
           }  
           if(/port\s+(\S+)\s+(\S+)\s+(\S+)/)
           {
              $port = $1;
              my $reqprov = $2;
              my $inter=$3;
              #print "Port $port oldport=$oldport\n";
              
              if($port ne $oldport)
              {
                 if($oldport)
                 {
                    $indent--;
                    print KOMPO $indentstr x $indent . "</ownedPort>\n";
                 }
                 print KOMPO $indentstr x $indent . "<ownedPort xmi:type=\"uml:Port\" xmi:id=\"$id\" name=\"$port\" visibility=\"public\" aggregation=\"composite\">\n"; $id++;
                 $indent++;
              }
              $oldport=$port;
              if($reqprov =~ /^require/)
              {
                 #print "require $inter\n";
                 print KOMPO $indentstr x $indent . "<required xmi:id=\"$id\" name=\"$inter\"/>\n"; $id++;
              }
              elsif($reqprov =~ /^provide/)
              {
                #print "provide $inter\n";
                print KOMPO $indentstr x $indent . "<provided xmi:id=\"$id\" name=\"$inter\"/>\n"; $id++;

              }
              else 
              {
                 print STDERR "Error in $compofile: Keyword $reqprov not valid (require/provide expected)\n";
              }
           }
         }
         if($port)
         { 
             $indent--;
             print KOMPO $indentstr x $indent . "</ownedPort>\n";
         }      
         $indent--;
         print KOMPO $indentstr x $indent . "</packagedElement>\n";
   }
   @oldpackagepath = @packagepath;
}
my $i=$#oldpackagepath+1;
while($i > 0)
{
  $i--;
  $indent--;
  print KOMPO $indentstr x $indent . "</packagedElement><!-- $oldpackagepath[$i] -->\n";
}
close(COMPOFIND);
print KOMPO << "END";
   </packagedElement>
</uml:Model>
</xmi:XMI>
END