-#! /usr/bin/php4 -qC
+#!/usr/bin/php4 -qC
<?php
-/* vim: set binary expandtab tabstop=4 shiftwidth=4:
+/* 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>
+Created: jue jul 31 14:01:57 ART 2003
+Author : Martin Marrese <m_marrese@argentina.com> <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/
-//Recibe como parametros el directorio o una lista de archivos a diagramar
+// CONVERTS A STRING TO XML ENTITIES {{{
+function xmlentities($s) {
+ return str_replace(
+ array('&', '"', '<', '>'),
+ array('&', '"', '<', '>'),
+ $s);
+}
+// }}}
-//////////////////////
-// TAG's XML
-//////////////////////
-$comienzo = <<<EOT
+//TAG's XML {{{
+$xmi_start = <<<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
+$xmi_half = <<<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
+$xmi_end = <<<EOT3
</listitem>
<listitem open="1" type="802" id="-1" label="Use Case View" />
+ <listitem open="1" type="821" id="-1" label="Component View" />
+ <listitem open="1" type="827" id="-1" label="Deployment View" />
+ <listitem open="0" type="823" id="-1" label="Diagrams" />
</listitem>
</listview>
</XMI.content>
</XMI>
EOT3;
-
-
+//}}}
+//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>';
$umllistitem = '<listitem open="0" type="##TYPE##" id="##ID##" label="##LABEL##" >';
$umllistitem_c = '</listitem>';
+//}}}
+//GLOBALS {{{
+$ID = 0; //Global ID
+$IDPARAM = 0; //Functions parameter ID
+$ARRAY = array(); //Array with information obtained from the code file
+//}}}
-//////////////////////
-
-
-$ID = 0;
-$IDPARAM = 0;
-$ARRAY = array();
-
+//GETTING DATA FROM FILES {{{
for ($j = 1; $j < count($argv); $j++) {
$file = $argv[$j];
- // Si es un directorio, agrego cada archivo legible .php al argv.
if (is_dir($file)) {
$dh = opendir($file);
while (($f = readdir($dh)) !== false) {
}
closedir($dh);
continue;
- // Si no, si se puede leer el archivo y es .php, lo procesa.
- } elseif (is_readable($file) and substr($file, -4) == '.php') {
+ }
+ //PARSING INFORMATION {{{
+ 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);
- //Agrego la documentacion
- if ($tmp['0'] == '/**') { //Comienza la documentacion
- $DOCUMENTANDO = true;
+ $DOCUMENTING = false;
+ $options = array ();
+ $cont_param = -1;
+ foreach ($cont as $line) {
+ $line = trim ($line);
+ $tmp = preg_split ('/[^\w_\/\*\@\$\&\.\']+/', $line);
+ //DOCUMENTING? {{{
+ if ($tmp['0'] == '/**') { //Starts documentation
+ $DOCUMENTING = true;
+ $doc_param = 0; //If 1 the line belongs to a parameter documentation
}
- if ($tmp['0'] == '*/') { //Termina la documentacion
- $DOCUMENTANDO = false;
+ if ($tmp['0'] == '*/') { //Ends documentation
+ $DOCUMENTING = false;
+ $doc_param = 0;
}
-
- if ($DOCUMENTANDO) {
- if ($tmp['0'] = '*') {
- array_shift($tmp);
- }
- switch ($tmp['0']) {
- case '@access':
- switch ($tmp['1']) {
- case 'private' : $opciones['access'] = 201;
- break;
- case 'protected': $opciones['access'] = 202;
- break;
- default : $opciones['access'] = 200;
- }
- break;
- case '@package' : $opciones['package'] = $tmp['1'];
+ //}}}
+ //Parse documentation {{{
+ if ($DOCUMENTING) {
+ $tmp2 = ltrim ($line,'* /**'); //Removes * or /** from the beginning of the line
+ $action = substr($tmp2, 0, strpos($tmp2,' ')); //Gets the action (evrerything before the @)
+ $action = ($action === '') ? $tmp2 : $action;
+ $value = trim(strstr($tmp2, ' ')); //Action value
+ //SWITCH ACTION {{{
+ switch ($action) {
+ case '@access' : switch ($value) {
+ case 'private' : $options['access'] = 201;
+ break;
+ case 'protected': $options['access'] = 202;
+ break;
+ default : $options['access'] = 200;
+ }
+ $doc_param = 0;
break;
- case '@abstract': $opciones['abstract'] = 1;
+ case '@package' : $options['package'] = $value;
+ $doc_param = 0;
break;
- case '@static' : $opciones['static'] = 1;
+ case '@abstract': $options['abstract'] = 1;
+ $doc_param = 0;
break;
- case '@var' : $opciones['type'] = $tmp['1'];
+ case '@static' : $options['static'] = 1;
+ $doc_param = 0;
break;
- case '@return' : $opciones['type'] = $tmp['1'];
+ case '@var' : $options['type'] = substr($value, 0, strpos($value,' '));
+ $doc_param = 0;
break;
- case '@param' : $opciones['param'][$cont_param]['type'] = $tmp['1'];
- $opciones['param'][$cont_param]['documentacion'] = implode (' ', array_slice($tmp,3));
- $cont_param++;
+ case '@return' : $type = substr($value, 0, strpos($value,' '));
+ $rest = (strpos($value,' ')) ? substr($value, strpos($value,' ')) : '';
+ if ($type === '') {
+ $type = $value;
+ }
+ if (strtolower($type) == 'object') {
+ $rest = trim($rest);
+ $type = substr($rest, 0, strpos($rest,' '));
+ $rest = (strpos($rest,' ')) ? substr($rest, strpos($rest,' ')) : '';
+ }
+ $options['type'] = $type;
+ //If there is more documentation, I add it to the main documentation
+ if (trim($rest)) {
+ $options['documentation'].= "Returns: ".xmlentities(trim($rest))."\n";
+ }
+ $doc_param = 0;
+ $rest = '';
+ break;
+ case '@param' : $cont_param++;
+ $type = substr($value, 0, strpos($value,' '));
+ $rest = substr($value, strpos($value,' ') + 1);
+ if (strtolower($type) == 'object') {
+ $rest = trim($rest);
+ $type = substr($rest, 0, strpos($rest,' '));
+ $rest = substr($rest, strpos($rest,' ') + 1);
+ }
+ $options['param'][$cont_param]['type'] = $type;
+ $options['param'][$cont_param]['documentation'] =
+ xmlentities(trim(substr(trim($rest), strpos(trim($rest), ' '))));
+ $doc_param = 1;
break;
default:
- if (array_key_exists('0',$tmp)) {
- @$opciones['documentacion'].= implode (' ',$tmp)."\n";
+ $tmp2 = xmlentities($tmp2);
+ if (@$doc_param) {
+ $options['param'][$cont_param]['documentation'].= "\n".$tmp2;
+ }
+ else {
+ @$options['documentation'].= $tmp2."\n";
}
}
+ //}}}
}
-
- //CLASE
- if (!$DOCUMENTANDO && $tmp['0'] == 'class') {
+ //}}}
+ //CLASS {{{
+ if (!$DOCUMENTING && $tmp['0'] == 'class') {
$ID++;
- $IDCLASE = $ID;
-
+ $IDCLASS = $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]['stereotype'] = (@$options['stereotype']) ? $options['stereotype'] : '';
+ $ARRAY[$ID]['package'] = (@$options['package']) ? $options['package'] : '';
+ $ARRAY[$ID]['abstract'] = (@$options['abstract']) ? $options['abstract'] : 0;
+ $ARRAY[$ID]['documentation'] = (@$options['documentation']) ? $options['documentation'] : '';
+ $ARRAY[$ID]['static'] = (@$options['static']) ? $options['static'] : 0;
+ $ARRAY[$ID]['scope'] = (@$options['access']) ? $options['access'] : 200;
$ARRAY[$ID]['operations'] = array();
$ARRAY[$ID]['attributes'] = array();
- $opciones = array();
+ $options = array();
}
- //FUNCION
- if (!$DOCUMENTANDO && $tmp['0'] == 'function') {
+ //}}}
+ //FUNCTION {{{
+ if (!$DOCUMENTING && $tmp['0'] == 'function') {
$ID++;
- $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} == '$') { //AL FINAL DEJE EL $ PARA DIFERENCIAR LOS PARAMETROS DE LOS VALORES INICIALES QUE TOMAN
- $tmp[$i] = substr($tmp[$i], 1); //SACO EL $
- $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];
+ if ($tmp['1']{0} == '&') {
+ $tmp['1'] = substr($tmp['1'], 1); //Removes the &
+ $options['type'] = (@$options['type']) ? '&'.$options['type'] : '';
+
+ }
+ if ($tmp['1']{0} == '_') {
+ $tmp['1'] = substr($tmp['1'], 1); //Removes the _
+ }
+ $ARRAY[$IDCLASS]['operations'][$ID]['id'] = $ID;
+ $ARRAY[$IDCLASS]['operations'][$ID]['name'] = $tmp['1'];
+ $ARRAY[$IDCLASS]['operations'][$ID]['stereotype'] = (@$options['stereotype']) ? $options['stereotype'] : '';
+ $ARRAY[$IDCLASS]['operations'][$ID]['package'] = (@$options['package']) ? $options['package'] : '';
+ $ARRAY[$IDCLASS]['operations'][$ID]['abstract'] = (@$options['abstract']) ? $options['abstract'] : 0;
+ $ARRAY[$IDCLASS]['operations'][$ID]['documentation'] = (@$options['documentation']) ? $options['documentation'] : '';
+ $ARRAY[$IDCLASS]['operations'][$ID]['static'] = (@$options['static']) ? $options['static'] : 0;
+ $ARRAY[$IDCLASS]['operations'][$ID]['scope'] = (@$options['access']) ? $options['access'] : 200;
+ $ARRAY[$IDCLASS]['operations'][$ID]['type'] = (@$options['type']) ? $options['type'] : '';
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'] = array();
+
+ //PARAMETERS {{{
+ $param_line = trim(substr(strstr($line,'('),0),'{ '); //Removes the last {
+ $param = parseParenthesis($param_line);
+ $i = 0;
+ foreach ($param as $par) {
+ if ($par['name']{0} == '$'|| $par['name']{0} == '&') { //If starts with $ or &
+ switch ($par['name']{0}) {
+ case '$': $par['name'] = substr($par['name'], 1); //Removes the $
+ break;
+ case '&': $par['name'] = substr($par['name'], 2); //Removes the & and the $
+ $options['param'][$i]['type'] =
+ (@$options['param'][$i]['type']) ? '&'.$options['param'][$i]['type'] : '';
+ break;
+ }
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['id'] = $i;
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['name'] = $par['name'];
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['stereotype'] =
+ (@$options['param'][$i]['stereotype']) ? $options['param'][$i]['stereotype'] : '';
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['package'] =
+ (@$options['param'][$i]['package']) ? $options['param'][$i]['package'] : '';
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['abstract'] =
+ (@$options['param'][$i]['abstract']) ? $options['param'][$i]['abstract'] : 0;
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['documentation'] =
+ (@$options['param'][$i]['documentation']) ? $options['param'][$i]['documentation'] : '';
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['static'] =
+ (@$options['param'][$i]['static']) ? $options['param'][$i]['static'] : 0;
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['scope'] =
+ (@$options['param'][$i]['access']) ? $options['param'][$i]['access'] : '';
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['type'] =
+ (@$options['param'][$i]['type']) ? $options['param'][$i]['type'] : '';
+
+ $ARRAY[$IDCLASS]['operations'][$ID]['param'][$i]['value'] =
+ (@$par['value']) ? $par['value'] : '';
}
+ $i++;
}
- $opciones = array();
- $cont_param = 0;
- }
- //ATRIBUTOS
- if (!$DOCUMENTANDO && $tmp['0'] == 'var') {
+ //}}}
+ $options = array();
+ $cont_param = -1;
+ $i = 0;
+ }
+ //}}}
+ //ATRIBUTTES {{{
+ if (!$DOCUMENTING && $tmp['0'] == 'var') {
$ID++;
- $tmp['1'] = substr($tmp['1'], 1); //SACO EL $
+ $tmp['1'] = substr($tmp['1'], 1); //Removes the $
if ($tmp['1']{0} == '_') {
- $tmp['1'] = substr($tmp['1'],1); //SACO EL _
- if (!(@$opciones['access'])) {
- $opciones['access'] = 201;
+ $tmp['1'] = substr($tmp['1'],1); //Removes the _
+ if (!(@$options['access'])) {
+ $options['access'] = 201;
}
}
- //Agrego si tiene valor inicial
+ //Check for default values
if (array_key_exists('2',$tmp)) {
- $opciones['value'] = $tmp['2'];
+ $options['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);
+ $ARRAY[$IDCLASS]['attributes'][$ID]['id'] = $ID;
+ $ARRAY[$IDCLASS]['attributes'][$ID]['name'] = $tmp['1'];
+ $ARRAY[$IDCLASS]['attributes'][$ID]['stereotype'] = (@$options['stereotype']) ? $options['stereotype'] : '';
+ $ARRAY[$IDCLASS]['attributes'][$ID]['package'] = (@$options['package']) ? $options['package'] : '';
+ $ARRAY[$IDCLASS]['attributes'][$ID]['abstract'] = (@$options['abstract']) ? $options['abstract'] : 0;
+ $ARRAY[$IDCLASS]['attributes'][$ID]['documentation'] = (@$options['documentation']) ? $options['documentation'] : '';
+ $ARRAY[$IDCLASS]['attributes'][$ID]['static'] = (@$options['static']) ? $options['static'] : 0;
+ $ARRAY[$IDCLASS]['attributes'][$ID]['scope'] = (@$options['access']) ? $options['access'] : 200;
+ $ARRAY[$IDCLASS]['attributes'][$ID]['type'] = (@$options['type']) ? $options['type'] : '';
+ $ARRAY[$IDCLASS]['attributes'][$ID]['value'] = (@$options['value']) ? $options['value'] : '';
+ $options = array();
}
+ //}}}
}
}
+ //}}}
}
+//}}}
-$m = fopen ('./umlOut.xmi', 'w');
-fwrite($m, $comienzo);
+//WRITES XMI FILE {{{
+$m =fopen ('./umlOut.xmi', 'w');
+fwrite($m, $xmi_start);
$LISTITEM = '';
-//CLASES
+//CLASS
foreach ($ARRAY as $ar) {
- //PREPARO LA CLASE {{{
+ //Prepare class line
$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'],
+ array ($ar['stereotype'],$ar['package'],$ar['id'],$ar['abstract'],trim($ar['documentation']),$ar['name'],
$ar['static'],$ar['scope']),
$tmp2)."\n");
- //PREPARO LOS LISTITEM {{{
+ //Prepare class listitem line
$tmp2 = $umllistitem;
$LISTITEM.= preg_replace (array('/##TYPE##/','/##LABEL##/','/##ID##/'),array(813, $ar['name'], $ar['id']),$tmp2)."\n";
- //OPERACIONES
+ //FUNCTIONS
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'],
+ array($op['stereotype'],$op['package'],$op['id'],$op['type'],$op['abstract'],trim($op['documentation']),
$op['name'],$op['static'],$op['scope']) ,
$tmp2)."\n");
- //PARAMETROS NO TIENE LISTITEM
+ //PARAMETERS
+ //Parameters aren't listed in listview
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'],
+ array($pa['stereotype'],$pa['package'],$pa['id'],$pa['type'],$pa['abstract'],trim($pa['documentation']),
$pa['name'],$pa['static'],$pa['scope'],$pa['value']),
$tmp2)."\n");
}
fwrite($m,$umloperation_c."\n");
- //PREPARO LOS LISTITEM {{{
+ //Pepare function lisitem line
$tmp2 = $umllistitem;
$LISTITEM.= preg_replace (array('/##TYPE##/','/##LABEL##/','/##ID##/'),array(815, $op['name'], $op['id']),$tmp2)."\n";
$LISTITEM.=$umllistitem_c."\n";
}
- //ATRIBUTOS
+ //ATTRIBUTES
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'],
+ array($op['stereotype'],$op['package'],$op['id'],$op['type'],$op['abstract'],trim($op['documentation']),$op['name'],
$op['static'],$op['scope'],$op['value']),
$tmp2)."\n");
- //PREPARO LOS LISTITEM {{{
+ //Prepare attributes listitem line
$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);
+fwrite($m, $xmi_half. $LISTITEM."\n".$xmi_end);
+exit;
+//}}}
+
+//parsePARENTHESIS {{{
+//This function receives the content between the parenthesis ( with the ( and the ) )
+//It's a recursive function
+//Returns an array of arrays
+function parseParenthesis($value) {
+
+ $pos = 0;
+ $content = true;
+ $char = true;
+ $value = substr(substr(trim($value), 1), 0, strrpos(substr(trim($value), 1),')')); //Removes the ( and the )
+
+ while ($char) {
+ //I look for the following separation ( , or = ) {{{
+ //If its an = then I check if the next character is an >
+ if (!strpos($value, ',') && !strpos($value, '=')) {
+ $char = false;
+ }
+ elseif (!strpos($value, ',') && strpos($value, '=')) {
+ if ($value{strpos($value, '=') + 1} == '>') {
+ $char = '=>';
+ }
+ else {
+ $char = '=';
+ }
+ }
+ elseif (strpos($value, ',') && !strpos($value, '=')) {
+ $char = ',';
+ }
+ elseif (strpos($value, ',') && strpos($value, '=') && strpos($value, ',') > strpos($value, '=')) {
+ if ($value{strpos($value, '=') + 1} == '>') {
+ $char = '=>';
+ }
+ else {
+ $char = '=';
+ }
+ }
+ elseif (strpos($value, ',') && strpos($value, '=') && strpos($value, ',') < strpos($value, '=')) {
+ $char = ',';
+ }
+ //}}}
+
+ //Get's the option name {{{
+ $result[$pos]['name'] = (strpos($value, $char)) ? substr($value, 0, strpos($value, $char)) : $value;
+ $pos_del = strpos($value, $char);
+ //}}}
+
+ //If $char is an = or an =>, gets the option value {{{
+ if ($char == '=') {
+ $op_value = (strpos($value, $char)) ? trim(substr($value, strpos($value, $char) + 1)) : false;
+ }
+ elseif ($char == '=>') {
+ $op_value = (strpos($value, $char)) ? trim(substr($value, strpos($value, $char) + 2)) : false;
+ }
+ //}}}
+
+ //Parse the rest of the line {{{
+ if ($op_value) {
+ if ($op_value{0} == "'" || $op_value{0} == '"') {
+ $pos_del = parseString($op_value);
+ if ($pos_del == 0) {
+ $result[$pos]['value'] = "''";
+ }
+ else {
+ $op_value = substr($op_value, 1);
+ $result[$pos]['value'] = substr($op_value, 0, $pos_del);
+ }
+ }
+ elseif (trim(strtolower(substr($op_value, 0 ,5))) == 'array') { //Recursive part {{{
+ $op_value = trim(substr($op_value, 5));
+ $op_value = trim(substr($op_value, 1)); //Removes the (
+
+ if ($op_value{0} == ')') {
+ $result[$pos]['value'] = 'array()';
+ }
+ else {
+ //I look for the colsing ) {{{
+ $subpos = 0;
+ $continue = true;
+ $temp = $op_value;
+ while ($continue) {
+ if (($temp{$subpos} == '"' || $temp{$subpos} == "'") && $temp{$subpos - 1} != '\\') {
+ $pos_del = parseString(substr($temp,$subpos)) + $subpos;
+ $subpos = $pos_del + 2;
+
+ if (trim($temp{$subpos}) == ')') {
+ $continue = false;
+ }
+ }
+ else {
+ if ($subpos > strlen($temp)) {
+ $continue = false;
+ }
+ $subpos++;
+ }
+ }
+ //}}}
+ $par = parseParenthesis('('.substr($op_value, 0 , $subpos).')');
+ $result[$pos]['value'] = 'array(';
+ foreach ($par as $p) {
+ $result[$pos]['value'] .= $p['name'];
+ if (@$p['value']) {
+ $result[$pos]['value'] .= '=>\''.$p['value'].'\',';
+ }
+ else {
+ $result[$pos]['value'] .= ',';
+ }
+ }
+ $result[$pos]['value'] = rtrim($result[$pos]['value'],',');
+ $result[$pos]['value'] .= ')';
+ $pos_del = $subpos;
+ }
+ } //}}}
+ else {
+ //Look for the next parameter. If its the last one
+ //I assign it as it came.
+ if ($pos_del = strpos($op_value, ',')) {
+ $result[$pos]['value'] = ($pos_del) ? trim(substr($op_value, 0, $pos_del)): $op_value;
+ }
+ }
+ $value = $op_value;
+ }
+ //}}}
+
+ //Removes from $value the part that's alredy parsed {{{
+ if ($pos_del) {
+ $value = trim(substr(trim($value), $pos_del + 2));
+ }
+ if (!$value) {
+ $char = false;
+ }
+ //}}}
+ $pos++;
+ $op_value='';
+ }
+ return $result;
+}
+//}}}
+//parseString {{{
+//Funtion that parse the content between "" or ''
+//Returns the position of the final ' or "
+function parseString($value) {
+ $result = -1;
+ $ii = 1;
+ $cont = true;
+ switch ($value{0}) { //{{{
+ case "'":
+ $char = "'";
+ break;
+ case '"':
+ $char = '"';
+ break;
+ }//}}}
+ $value = substr($value, 1); //Removes the ' or the " from the beginning of the string
+ if ($value{0} == $char) {
+ $result = 0;
+ }
+ else {
+ while ($cont) { //{{{
+ $ii++;
+ if ($value{$ii} == $char) {
+ if ($value{$ii - 1} != '\\') {
+ $cont = false;
+ $result = $ii;
+ }
+ }
+ }//}}}
+ }
+ return $result;
+}
+//}}}
+
?>
projects / mecon / scripts.git / blobdiff