#! /usr/bin/php4 -qC
<?php 
/* vim: set binary expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
-------------------------------------------------------------------------------
Creado: jue jul 31 14:01:57 ART 2003
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/

//Recibe como parametros el directorio o una lista de archivos a diagramar

//TAG's XML {{{
$comienzo = <<<EOT
<?xml version="1.0" encoding="UTF-8"?>
<XMI xmlns:UML="org.omg/standards/UML" verified="false" timestamp="" xmi.version="1.2" >
  <XMI.content>
    <umlobjects>
EOT;
$medio = <<<EOT2
    </umlobjects>
    <listview>
      <listitem open="1" type="800" id="-1" label="Views" >
        <listitem open="1" type="801" id="-1" label="Logical View" >
EOT2;
$fin = <<<EOT3
        </listitem>
        <listitem open="1" type="802" id="-1" label="Use Case View" />
      </listitem>
    </listview>                                                                     
  </XMI.content>
</XMI>
EOT3;
//}}}
//LINEAS TEMPLATES XMI {{{
$umlclass       = '<UML:Class stereotype="##STEREOTYPE##" package="##PACKAGE##" xmi.id="##ID##" abstract="##ABSTRACT##" documentation="##DOCUMENTATION##" name="##NAME##" static="##STATIC##" scope="##SCOPE##" >';
$umlclass_c     = '</UML:Class>';

$umloperation   = '<UML:Operation stereotype="##STEREOTYPE##" package="##PACKAGE##" xmi.id="##ID##" type="##TYPE##" abstract="##ABSTRACT##" documentation="##DOCUMENTATION##" name="##NAME##" static="##STATIC##" scope="##SCOPE##">';
$umloperation_c = '</UML:Operation>';

$umlparameter   = '<UML:Parameter stereotype="##STEREOTYPE##" package="##PACKAGE##" xmi.id="##ID##" value="##VALUE##" type="##TYPE##" abstract="##ABSTRACT##" documentation="##DOCUMENTATION##" name="##NAME##" static="##STATIC##" scope="##SCOPE##" />';

$umlattribute   = '<UML:Attribute stereotype="##STEREOTYPE##" package="##PACKAGE##" xmi.id="##ID##" value="##VALUE##" type="##TYPE##" abstract="##ABSTRACT##" documentation="##DOCUMENTATION##" name="##NAME##" static="##STATIC##" scope="##SCOPE##" />';

$umllistitem   = '<listitem open="0" type="##TYPE##" id="##ID##" label="##LABEL##" >';
$umllistitem_c = '</listitem>';
//}}}
//VARIABLES GLOBALES {{{
$ID      = 0;
$IDPARAM = 0;
$ARRAY   = array();
//}}}

//PARTE 1 {{{
for ($j = 1; $j < count($argv); $j++) {
    $file = $argv[$j];
    //ARMO LA LISTA DE ARCHIVOS {{{
    // Si es un directorio, agrego cada archivo legible .php al argv.
    if (is_dir($file)) {
        $dh = opendir($file);
        while (($f = readdir($dh)) !== false) {
            if (is_readable("$file/$f") and substr($f, -4) == '.php') {
                $argv[] = "$file/$f";
            }
        }
        closedir($dh);
        continue;
    } 
    //}}}
    //GUARDO LA INFO{{{
    elseif (is_readable($file) and substr($file, -4) == '.php') {
        $cont = file ($file);
        $DOCUMENTANDO = false;
        $opciones = array ();
        $cont_param = 0;
        foreach ($cont as $linea) {
            $linea = trim ($linea);
            $tmp = preg_split ('/[^\w_\/\*\@\$\&\.\']+/', $linea);
            //DOCUMENTACION {{{
            if ($tmp['0'] == '/**') { //Comienza la documentacion
                $DOCUMENTANDO = true;
            }
            if ($tmp['0'] == '*/') { //Termina la documentacion
                $DOCUMENTANDO = false;
            }
            if ($DOCUMENTANDO) {
                $tmp2   = ltrim ($linea,'* /**'); //Elimino el * o /** del comienzo de la linea
                $accion = substr($tmp2, 0, strpos($tmp2,' ')); //Obtengo la accion
                $value  = trim(strstr($tmp2, ' ')); //Solo me importa lo que esta detras del @

                switch ($accion) {
                    case '@access'  : switch ($value) {
                                          case 'private'  : $opciones['access'] = 201;
                                                            break;
                                          case 'protected': $opciones['access'] = 202;
                                                            break;
                                          default         : $opciones['access'] = 200;
                                      }
                                      $doc_param = 0;
                                      break;
                    case '@package' : $opciones['package'] = $value;
                                      $doc_param = 0;
                                      break;
                    case '@abstract': $opciones['abstract'] = 1;
                                      $doc_param = 0;
                                      break;
                    case '@static'  : $opciones['static'] = 1;
                                      $doc_param = 0;
                                      break;
                    case '@var'     : $opciones['type'] = substr($value, 0, strpos($value,' '));
                                      $doc_param = 0;
                                      break;
                    case '@return'  : $opciones['type'] = $value; 
                                      $doc_param = 0;
                                      break;
                    case '@param'   : $opciones['param'][$cont_param]['type'] = substr($value, 0, strpos($value,' '));
                                      $opciones['param'][$cont_param]['documentacion'] = trim(strstr(trim(strstr($value, ' ')), ' '));
                                      $cont_param++;
                                      $doc_param = 1;
                                      break;
                    default:
                        if (@$doc_param) {
                           $opciones['param'][$cont_param]['documentacion'].= $tmp2;
                        }
                        else {
                            @$opciones['documentacion'].= $tmp2;
                        }
                }
            }
            //}}}
            //CLASE {{{
            if (!$DOCUMENTANDO && $tmp['0'] == 'class') {
                $ID++;
                $IDCLASE = $ID;

                $ARRAY[$ID]['id']            = $ID;
                $ARRAY[$ID]['name']          = $tmp['1'];
                $ARRAY[$ID]['stereotype']    = (@$opciones['stereotype'])    ? $opciones['stereotype']    : '';
                $ARRAY[$ID]['package']       = (@$opciones['package'])       ? $opciones['package']       : '';
                $ARRAY[$ID]['abstract']      = (@$opciones['abstract'])      ? $opciones['abstract']      : 0;
                $ARRAY[$ID]['documentation'] = (@$opciones['documentacion']) ? $opciones['documentacion'] : '';
                $ARRAY[$ID]['static']        = (@$opciones['static'])        ? $opciones['static']        : 0;
                $ARRAY[$ID]['scope']         = (@$opciones['access'])        ? $opciones['access']        : 200;
                $ARRAY[$ID]['operations']    = array();
                $ARRAY[$ID]['attributes']    = array();
                $opciones = array();
            }
            //}}}
            //FUNCION {{{
            if (!$DOCUMENTANDO && $tmp['0'] == 'function') {
                $ID++;

                if ($tmp['1']{0} == '_') {
                    $tmp['1'] = substr($tmp['1'], 1); //SACO EL _
                }
                
                $ARRAY[$IDCLASE]['operations'][$ID]['id']            = $ID;
                $ARRAY[$IDCLASE]['operations'][$ID]['name']          = $tmp['1'];
                $ARRAY[$IDCLASE]['operations'][$ID]['stereotype']    = (@$opciones['stereotype'])    ? $opciones['stereotype']    : '';  
                $ARRAY[$IDCLASE]['operations'][$ID]['package']       = (@$opciones['package'])       ? $opciones['package']       : '';  
                $ARRAY[$IDCLASE]['operations'][$ID]['abstract']      = (@$opciones['abstract'])      ? $opciones['abstract']      : 0;   
                $ARRAY[$IDCLASE]['operations'][$ID]['documentation'] = (@$opciones['documentacion']) ? $opciones['documentacion'] : '';  
                $ARRAY[$IDCLASE]['operations'][$ID]['static']        = (@$opciones['static'])        ? $opciones['static']        : 0;   
                $ARRAY[$IDCLASE]['operations'][$ID]['scope']         = (@$opciones['access'])        ? $opciones['access']        : 200;
                $ARRAY[$IDCLASE]['operations'][$ID]['type']          = (@$opciones['type'])          ? $opciones['type']          : '';
                $ARRAY[$IDCLASE]['operations'][$ID]['param']         = array();

                //PARAMETROS {{{
                array_shift($tmp); //SACO EL FUNCTION
                array_shift($tmp); //SACO EL NOMBRE DE LA FUNCION
                for ($i = 0; $i <= count($tmp); $i++) {
                    if ($tmp[$i]{0} == '$'|| $tmp[$i]{0} == '&') { //Veo si empiezo con $ o &
                        switch ($tmp[$i]{0}) {
                            case '$': $tmp[$i] = substr($tmp[$i], 1); //SACO EL $
                                      break;
                            case '&': $tmp[$i] = substr($tmp[$i], 2); //SACO EL & Y EL $
                                      $opciones['param'][$i]['type'] = 
                                          (@$opciones['param'][$i]['type']) ? '&amp;'.$opciones['param'][$i]['type'] : '';
                                      break;
                        }                        
                        $OPANT = $i;
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['id'] = $i;
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['name'] = $tmp[$i];
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['stereotype'] = 
                            (@$opciones['param'][$i]['stereotype']) ? $opciones['param'][$i]['stereotype'] : '';
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['package'] = 
                            (@$opciones['param'][$i]['package']) ? $opciones['param'][$i]['package'] : '';
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['abstract'] = 
                            (@$opciones['param'][$i]['abstract']) ? $opciones['param'][$i]['abstract'] : 0;
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['documentation'] = 
                            (@$opciones['param'][$i]['documentacion']) ? $opciones['param'][$i]['documentacion'] : '';
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['static'] = 
                            (@$opciones['param'][$i]['static']) ? $opciones['param'][$i]['static'] : 0;
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['scope'] = 
                            (@$opciones['param'][$i]['access']) ? $opciones['param'][$i]['access'] : '';
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$i]['type'] = 
                            (@$opciones['param'][$i]['type']) ? $opciones['param'][$i]['type'] : '';
                    }
                    elseif ($tmp[$i] != '//'  && $tmp[$i] != 'X2C' && $tmp[$i] != '') {
                        $ARRAY[$IDCLASE]['operations'][$ID]['param'][$OPANT]['value']      .= $tmp[$i];
                    }
                }
                //}}}
                $opciones = array();
                $cont_param = 0;
            }
            //}}}
            //ATRIBUTOS {{{
            if (!$DOCUMENTANDO && $tmp['0'] == 'var') {
                $ID++;
                $tmp['1'] = substr($tmp['1'], 1); //SACO EL $
                if ($tmp['1']{0} == '_') {
                    $tmp['1'] = substr($tmp['1'],1); //SACO EL _
                    if (!(@$opciones['access'])) {
                        $opciones['access'] = 201;
                    }
                }
                //Agrego si tiene valor inicial
                if (array_key_exists('2',$tmp)) {
                    $opciones['value'] = $tmp['2'];
                }
                
                $ARRAY[$IDCLASE]['attributes'][$ID]['id']            = $ID;
                $ARRAY[$IDCLASE]['attributes'][$ID]['name']          = $tmp['1'];
                $ARRAY[$IDCLASE]['attributes'][$ID]['stereotype']    = (@$opciones['stereotype'])    ? $opciones['stereotype']    : '';  
                $ARRAY[$IDCLASE]['attributes'][$ID]['package']       = (@$opciones['package'])       ? $opciones['package']       : '';  
                $ARRAY[$IDCLASE]['attributes'][$ID]['abstract']      = (@$opciones['abstract'])      ? $opciones['abstract']      : 0;   
                $ARRAY[$IDCLASE]['attributes'][$ID]['documentation'] = (@$opciones['documentacion']) ? $opciones['documentacion'] : '';  
                $ARRAY[$IDCLASE]['attributes'][$ID]['static']        = (@$opciones['static'])        ? $opciones['static']        : 0;   
                $ARRAY[$IDCLASE]['attributes'][$ID]['scope']         = (@$opciones['access'])        ? $opciones['access']        : 200;  
                $ARRAY[$IDCLASE]['attributes'][$ID]['type']          = (@$opciones['type'])          ? $opciones['type']          : '';
                $ARRAY[$IDCLASE]['attributes'][$ID]['value']         = (@$opciones['value'])         ? $opciones['value']         : '';
                $opciones = array(operations);
            }
        //}}}
        }
    } 
    //}}}
}
//}}}


//GUARDO EN EL ARCHIVO {{{
$m =fopen ('./umlOut.xmi', 'w');
fwrite($m, $comienzo);
$LISTITEM = '';
//CLASES
foreach ($ARRAY as $ar) {
    //PREPARO LA CLASE 
    $tmp2 = $umlclass;
    fwrite($m, preg_replace (array ('/##STEREOTYPE##/','/##PACKAGE##/','/##ID##/','/##ABSTRACT##/','/##DOCUMENTATION##/','/##NAME##/',
                                    '/##STATIC##/','/##SCOPE##/'), 
                             array ($ar['stereotype'],$ar['package'],$ar['id'],$ar['abstract'],$ar['documentation'],$ar['name'],
                                    $ar['static'],$ar['scope']), 
                             $tmp2)."\n");
    //PREPARO LOS LISTITEM 
    $tmp2 = $umllistitem;
    $LISTITEM.= preg_replace (array('/##TYPE##/','/##LABEL##/','/##ID##/'),array(813, $ar['name'], $ar['id']),$tmp2)."\n";  

    //OPERACIONES
    foreach ($ar['operations'] as $op) {
        $tmp2 = $umloperation;
        fwrite($m, preg_replace (array('/##STEREOTYPE##/','/##PACKAGE##/','/##ID##/','/##TYPE##/','/##ABSTRACT##/','/##DOCUMENTATION##/',
                                       '/##NAME##/','/##STATIC##/','/##SCOPE##/'), 
                                 array($op['stereotype'],$op['package'],$op['id'],$op['type'],$op['abstract'],$op['documentation'],
                                       $op['name'],$op['static'],$op['scope']) , 
                                 $tmp2)."\n");
        //PARAMETROS NO TIENE LISTITEM
        foreach ($op['param'] as $pa) {
            $tmp2 = $umlparameter;
            fwrite ($m, preg_replace(array('/##STEREOTYPE##/','/##PACKAGE##/','/##ID##/','/##TYPE##/','/##ABSTRACT##/','/##DOCUMENTATION##/',
                                           '/##NAME##/','/##STATIC##/','/##SCOPE##/','/##VALUE##/'),
                                     array($pa['stereotype'],$pa['package'],$pa['id'],$pa['type'],$pa['abstract'],$pa['documentation'],
                                           $pa['name'],$pa['static'],$pa['scope'],$pa['value']),
                                     $tmp2)."\n");
        } 
        fwrite($m,$umloperation_c."\n");
        //PREPARO LOS LISTITEM 
        $tmp2 = $umllistitem;
        $LISTITEM.= preg_replace (array('/##TYPE##/','/##LABEL##/','/##ID##/'),array(815, $op['name'], $op['id']),$tmp2)."\n";  
        $LISTITEM.=$umllistitem_c."\n";
    }
    //ATRIBUTOS
    foreach ($ar['attributes'] as $op) {
        $tmp2 = $umlattribute;
        fwrite($m, preg_replace(array('/##STEREOTYPE##/','/##PACKAGE##/','/##ID##/','/##TYPE##/','/##ABSTRACT##/','/##DOCUMENTATION##/',
                                      '/##NAME##/','/##STATIC##/','/##SCOPE##/','/##VALUE##/'),
                                array($op['stereotype'],$op['package'],$op['id'],$op['type'],$op['abstract'],$op['documentation'],$op['name'],
                                      $op['static'],$op['scope'],$op['value']),
                                $tmp2)."\n");
        //PREPARO LOS LISTITEM
        $tmp2 = $umllistitem;
        $LISTITEM.= preg_replace (array('/##TYPE##/','/##LABEL##/','/##ID##/'),array(814, $op['name'], $op['id']),$tmp2)."\n";  
        $LISTITEM.=$umllistitem_c."\n";
    }
    fwrite($m,$umlclass_c);
    $LISTITEM.=$umllistitem_c."\n";
}
fwrite($m,  $medio. $LISTITEM."\n".$fin);
//}}}
?>