function procesar()
 {
     toba::logger_ws()->debug('Servicio Llamado: ' . $this->info['basica']['item']);
     toba::logger_ws()->set_checkpoint();
     set_error_handler('toba_logger_ws::manejador_errores_recuperables', E_ALL);
     $this->validar_componente();
     //-- Pide los datos para construir el componente, WSF no soporta entregar objetos creados
     $clave = array();
     $clave['proyecto'] = $this->info['objetos'][0]['objeto_proyecto'];
     $clave['componente'] = $this->info['objetos'][0]['objeto'];
     list($tipo, $clase, $datos) = toba_constructor::get_runtime_clase_y_datos($clave, $this->info['objetos'][0]['clase'], false);
     agregar_dir_include_path(toba_dir() . '/php/3ros/wsf');
     $opciones_extension = toba_servicio_web::_get_opciones($this->info['basica']['item'], $clase);
     $wsdl = strpos($_SERVER['REQUEST_URI'], "?wsdl") !== false;
     $sufijo = 'op__';
     $metodos = array();
     $reflexion = new ReflectionClass($clase);
     foreach ($reflexion->getMethods() as $metodo) {
         if (strpos($metodo->name, $sufijo) === 0) {
             $servicio = substr($metodo->name, strlen($sufijo));
             $prefijo = $wsdl ? '' : '_';
             $metodos[$servicio] = $prefijo . $metodo->name;
         }
     }
     $opciones = array();
     $opciones['serviceName'] = $this->info['basica']['item'];
     $opciones['classes'][$clase]['operations'] = $metodos;
     $opciones = array_merge($opciones, $opciones_extension);
     $this->log->debug("Opciones del servidor: " . var_export($opciones, true), 'toba');
     $opciones['classes'][$clase]['args'] = array($datos);
     toba::logger_ws()->set_checkpoint();
     $service = new WSService($opciones);
     $service->reply();
     $this->log->debug("Fin de servicio web", 'toba');
 }

 protected function cargar_jasper()
 {
     if (!defined("JAVA_HOSTS")) {
         define("JAVA_HOSTS", "127.0.0.1:8081");
     }
     //Incluimos la libreria JavaBridge
     require_once "3ros/JavaBridge/java/Java.inc";
     //Creamos una variable que va a contener todas las librerías java presentes
     $path_libs = toba_dir() . '/php/3ros/JasperReports';
     $classpath = '';
     try {
         $archivos = toba_manejador_archivos::get_archivos_directorio($path_libs, '|.*\\.jar$|', true);
         foreach ($archivos as $archivo) {
             $classpath .= "file:{$archivo};";
         }
     } catch (toba_error $et) {
         toba::logger()->error($et->getMessage());
         //No se encontro el directorio, asi que no agrega nada al path y sigue el comportamiento que tenia con opendir
     }
     try {
         //Añadimos las librerías
         java_require($classpath);
         //Creamos el objeto JasperReport que permite obtener el reporte
         $this->jasper = new JavaClass("net.sf.jasperreports.engine.JasperFillManager");
     } catch (JavaException $ex) {
         $trace = new Java("java.io.ByteArrayOutputStream");
         $ex->printStackTrace(new Java("java.io.PrintStream", $trace));
         print "java stack trace: {$trace}\n";
     } catch (java_ConnectException $e) {
         toba::logger()->error($e->getMessage());
         throw new toba_error_usuario('No es posible generar el reporte, el servlet Jasper no se encuentra corriendo');
     }
 }

 /**
  * Para el tipo de gráfico 'otro' hay que especificar todo lo referente a
  * jpgraph. Desde la inclusión de los archivos necesarios hasta la instanciación
  * de todas las componentes que esta necesita para generar un gráfico.
  * Lo único que hay que hacer es 'avisarle' al gráfico de toba cuál es el
  * canvas que se tiene que dibujar. Todo el resto es legal y bonito
  *
  * @param toba_ei_grafico $grafico
  */
 function conf__grafico(toba_ei_grafico $grafico)
 {
     require_once toba_dir() . '/php/3ros/jpgraph/jpgraph.php';
     require_once toba_dir() . '/php/3ros/jpgraph/jpgraph_contour.php';
     $data = array(array(0.5, 1.1, 1.5, 1, 2.0, 3, 3, 2, 1, 0.1), array(1.0, 1.5, 3.0, 5, 6.0, 2, 1, 1.2, 1, 4), array(0.9, 2.0, 2.1, 3, 6.0, 7, 3, 2, 1, 1.4), array(1.0, 1.5, 3.0, 4, 6.0, 5, 2, 1.5, 1, 2), array(0.8, 2.0, 3.0, 3, 4.0, 4, 3, 2.4, 2, 3), array(0.6, 1.1, 1.5, 1, 4.0, 3.5, 3, 2, 3, 4), array(9.0, 1.5, 3.0, 5, 6.0, 2, 1, 1.2, 2.7, 4), array(9.800000000000001, 9.0, 3.0, 3, 5.5, 6, 3, 2, 1, 1.4), array(9.0, 1.5, 3.0, 4, 6.0, 5, 2, 1, 0.5, 0.2));
     // Setup a basic graph context with some generous margins to be able
     // to fit the legend
     $canvas = new Graph(650, 300);
     $canvas->SetMargin(40, 140, 60, 40);
     $canvas->title->Set('Uso avanzado de la librería');
     $canvas->title->SetFont(FF_ARIAL, FS_BOLD, 14);
     // For contour plots it is custom to use a box style ofr the axis
     $canvas->legend->SetPos(0.05, 0.5, 'right', 'center');
     $canvas->SetScale('intint');
     $canvas->SetAxisStyle(AXSTYLE_BOXOUT);
     $canvas->xgrid->Show();
     $canvas->ygrid->Show();
     // A simple contour plot with default arguments (e.g. 10 isobar lines)
     $cp = new ContourPlot($data);
     // Display the legend
     $cp->ShowLegend();
     // Make the isobar lines slightly thicker
     $cp->SetLineWeight(2);
     $canvas->Add($cp);
     // Con esta llamada informamos al gráfico cuál es el gráfico que se tiene
     // que dibujar
     $grafico->conf()->canvas__set($canvas);
 }

 function conf__grafico(toba_ei_grafico $grafico)
 {
     if (isset($this->datos)) {
         $datos = array();
         $leyendas = array();
         foreach ($this->datos as $value) {
             $datos[] = $value['resultado'];
             $leyendas[] = $value['codc_uacad'];
         }
     }
     require_once toba_dir() . '/php/3ros/jpgraph/jpgraph.php';
     require_once toba_dir() . '/php/3ros/jpgraph/jpgraph_bar.php';
     // Setup a basic graph context with some generous margins to be able
     // to fit the legend
     $canvas = new Graph(900, 300);
     $canvas->SetMargin(100, 140, 60, 40);
     $canvas->title->Set('Cr�dito Disponible');
     //$canvas->title->SetFont(FF_ARIAL,FS_BOLD,14);
     // For contour plots it is custom to use a box style ofr the axis
     $canvas->legend->SetPos(0.05, 0.5, 'right', 'center');
     $canvas->SetScale('intint');
     //$canvas->SetAxisStyle(AXSTYLE_BOXOUT);
     //$canvas->xgrid->Show();
     $canvas->ygrid->Show();
     $canvas->xaxis->SetTickLabels($leyendas);
     // A simple contour plot with default arguments (e.g. 10 isobar lines)
     $cp = new BarPlot($datos);
     $cp->SetColor("#B0C4DE");
     $cp->SetFillColor("#B0C4DE");
     $cp->SetLegend("Resultado");
     $canvas->Add($cp);
     // Con esta llamada informamos al gr�fico cu�l es el gr�fico que se tiene
     // que dibujar
     $grafico->conf()->canvas__set($canvas);
 }

 function show()
 {
     $this->comp['edit_archivo']->set_title('Seleccione un archivo SQL a ejecutar');
     $this->comp['edit_archivo']->set_current_folder(toba_dir());
     $this->comp['dlg_ejecutar_sql']->run();
     return $this->datos;
 }

 /**
  * Este método existe debido a que la definición de la constante TTF_DIR debe
  * ser hecha antes de incluir la librería jpgraph. Por tanto todas las clases
  * que extiendan de esta deben redefinir este método con una llamada
  * parent::set_up_jpgraph() y luego incluir las líbrerías utilizadas en esa
  * clase específica
  */
 protected function set_up_jpgraph()
 {
     if (!defined("TTF_DIR")) {
         $path = toba::instalacion()->get_fonts_path();
         if ($path !== false) {
             define("TTF_DIR", $path);
         }
     }
     require_once toba_dir() . '/php/3ros/jpgraph/jpgraph.php';
 }

 function proyecto__agregar_config_rest()
 {
     $proyecto = $this->elemento->get_id();
     $dir_proyecto = $this->elemento->get_dir();
     $destino = $dir_proyecto . '/www/rest.php';
     copy(toba_dir() . '/php/modelo/template_proyecto/www/rest.php', $destino);
     $editor = new toba_editor_archivos();
     $editor->agregar_sustitucion('|__proyecto__|', $proyecto);
     $editor->procesar_archivo($destino);
 }

 function generar_layout()
 {
     //--- Barra SVN
     echo "<div class='editor-vista-previa'>" . $this->controlador()->get_info_archivo();
     echo '<div>';
     $this->generar_botones_eventos(true);
     echo '</div></div>';
     //--- Barra de convenciones
     $mensajes_linea = array();
     $modelo = toba_editor::get_modelo_proyecto();
     $estandar = $modelo->get_estandar_convenciones();
     $path = $this->controlador()->get_path_archivo();
     if (file_exists($path)) {
         $resultado = $estandar->validar(array($path));
         $titulo = '<strong>Convenciones</strong>';
         $cant_errores = $resultado['totals']['errors'];
         $cant_warnings = $resultado['totals']['warnings'];
         $extra = '';
         if ($cant_errores === 0 && $cant_warnings === 0) {
             $nivel = 'info';
             $salida = 'Ok!';
         } else {
             $nivel = $cant_errores !== 0 ? 'error' : 'warning';
             $salida = "{$cant_errores} ";
             $salida .= $cant_errores !== 1 ? 'errores' : 'error';
             $salida .= " / {$cant_warnings} ";
             $salida .= $cant_warnings !== 1 ? 'avisos' : 'aviso';
             foreach ($resultado['files'][$path]['messages'] as $linea => $columnas) {
                 $textos = array();
                 foreach ($columnas as $column => $mensajes) {
                     foreach ($mensajes as $mensaje) {
                         //$extra .= "<strong>$linea</strong>:{$mensaje['message']}";
                         $imagen = $mensaje['type'] == 'ERROR' ? 'error.gif' : 'warning.gif';
                         $textos[] = $estandar->parsear_mensaje($mensaje['message']);
                         //Cambia el id de la convencion por una url
                     }
                 }
                 $ayuda = implode('<br><br>', $textos);
                 $ayuda = str_replace("'", "`", $ayuda);
                 $mensajes_linea[$linea] = toba_recurso::imagen_toba($imagen, true, null, null, $ayuda);
             }
         }
         $this->generar_html_descripcion("{$titulo}: {$salida} {$extra}", $nivel);
     }
     //-- Vista previa
     echo "<div class='editor-vista-previa-codigo'>";
     $codigo = $this->controlador()->get_previsualizacion();
     require_once toba_dir() . '/php/3ros/PHP_Highlight.php';
     $h = new PHP_Highlight(false);
     $h->loadString($codigo);
     $formato_linea = "<span class='editor-linea-codigo'>%02d</span>&nbsp;&nbsp;";
     echo @$h->toHtml(true, true, $formato_linea, true, $mensajes_linea);
     echo '</div>';
 }

 function __construct($numero)
 {
     if ($numero == 'trunk') {
         $this->build = 'trunk';
         return;
     }
     $this->path_migraciones = toba_dir() . '/php/modelo/migraciones';
     $formato = 'El formato debe ser x.y.z (inestable-build). Donde (inestable-build) es opcional';
     $numero = trim($numero);
     $this->build = null;
     $this->partes = explode('.', $numero);
     //Validando el numero
     if (count($this->partes) < 3) {
         throw new toba_error("El número de versión {$numero} es incorrecto. Se requiere al menos 3 partes. " . $formato);
     }
     if (!is_numeric($this->partes[2])) {
         $digito = intval($this->partes[2]);
         if (!is_numeric($digito)) {
             throw new toba_error("El número de versión {$numero} es incorrecto. Las partes deben ser numéricas. " . $formato);
         }
         $extra = trim(str_replace(array('(', ')'), '', substr($this->partes[2], strlen($digito))));
         $this->partes[2] = $digito;
         $extra = explode('-', $extra);
         $build = '';
         if (count($extra) == 2) {
             $inestable = $extra[0];
             $build = $extra[1];
         } else {
             if (is_numeric($extra[0])) {
                 $build = $extra[0];
             } else {
                 $inestable = $extra[0];
             }
         }
         if (isset($inestable)) {
             if (!in_array($inestable, $this->inestables)) {
                 throw new toba_error("El número de versión {$numero} es incorrecto. El codigo de inestable '{$inestable}' no es válido. " . $formato);
             }
             $this->inestable = $inestable;
         }
         if ($build != '') {
             $this->build = $build;
             if (!is_numeric($build)) {
                 throw new toba_error("El número de versión {$numero} es incorrecto. El codigo de build '{$build}' no es válido. " . $formato);
             }
         }
     }
     foreach ($this->partes as $parte) {
         if (!is_numeric($parte) || !is_int(intval($parte))) {
             throw new toba_error("El número de versión {$numero} es incorrecto. Las partes deben ser numéricas " . $formato);
         }
     }
 }

 function __construct($toba_instalador, $param_comando)
 {
     $this->param_comando = $param_comando;
     $this->toba_instalador = $toba_instalador;
     $archivo = dirname(__FILE__) . '/toba.glade';
     $glade = new GladeXML($archivo, 'dlg_importar_instancia');
     foreach (self::$comp_req as $comp) {
         $this->comp[$comp] = $glade->get_widget($comp);
     }
     $glade->signal_autoconnect_instance($this);
     $this->comp['edit_toba']->set_text(toba_dir());
     $this->evt__cambio_directorio();
 }

 function proyecto__copiar_punto_acceso()
 {
     $dir_destino = $this->elemento->get_dir() . '/www/';
     $destino_final = toba_manejador_archivos::path_a_plataforma($dir_destino . 'servicios.php');
     $origen = toba_dir() . '/php/modelo/template_proyecto/www/servicios.php';
     if (!toba_manejador_archivos::existe_archivo_en_path($destino_final)) {
         $template = file_get_contents($origen);
         //Leo el template original
         $editor = new toba_editor_texto();
         $editor->agregar_sustitucion('|__proyecto__|', $this->elemento->get_id());
         $salida = $editor->procesar($template);
         file_put_contents($destino_final, $salida, FILE_APPEND);
     }
 }

 function __construct($estandar = 'Toba', $warnings = true)
 {
     $this->warnings = $warnings;
     if ($estandar == 'Toba') {
         $this->estandar = toba_dir() . '/php/convenciones/Toba';
         $this->estandar = toba_manejador_archivos::path_a_plataforma($this->estandar);
     } else {
         $this->estandar = $estandar;
     }
     $this->sniffer = new PHP_CodeSniffer(0);
     if (!$this->sniffer->isInstalledStandard($this->estandar)) {
         throw new toba_error("El estandar '{$this->estandar}' no esta instalado");
     }
 }

 static function ejecutar($cmd, &$stdout, &$stderr)
 {
     $outfile = tempnam(toba_dir() . '/temp', "cmd");
     $errfile = tempnam(toba_dir() . '/temp', "cmd");
     $descriptorspec = array(0 => array("pipe", "r"), 1 => array("file", $outfile, "w"), 2 => array("file", $errfile, "w"));
     $proc = proc_open($cmd, $descriptorspec, $pipes);
     if (!is_resource($proc)) {
         return 255;
     }
     fclose($pipes[0]);
     $exit = proc_close($proc);
     $stdout = file_get_contents($outfile);
     $stderr = file_get_contents($errfile);
     unlink($outfile);
     unlink($errfile);
     return $exit;
 }

 function generar_pdf()
 {
     require_once toba_dir() . '/php/3ros/ezpdf/class.ezpdf.php';
     $pdf = new Cezpdf();
     $pdf->selectFont(toba_dir() . '/php/3ros/ezpdf/fonts/Helvetica.afm');
     $pdf->ezText('Ejemplo Firma Digital. Tiene dos attachments XML', 14);
     //-- Cuadro con datos
     $opciones = array('splitRows' => 0, 'rowGap' => 1, 'showHeadings' => true, 'titleFontSize' => 9, 'fontSize' => 10, 'shadeCol' => array(0.9, 0.9, 0.9), 'outerLineThickness' => 0.7, 'innerLineThickness' => 0.7, 'xOrientation' => 'center', 'width' => 500);
     $this->s__datos_juegos = toba::db()->consultar("SELECT * from ref_juegos");
     $pdf->ezTable($this->s__datos_juegos, '', 'Juegos', $opciones);
     $this->s__datos_deportes = toba::db()->consultar("SELECT * from ref_deportes");
     $pdf->ezTable($this->s__datos_deportes, '', 'Deportes', $opciones);
     $tmp = $pdf->ezOutput(0);
     $this->s__pdf = array();
     $sesion = get_firmador()->generar_sesion();
     $this->s__pdf['path'] = toba::proyecto()->get_path_temp() . "/doc{$sesion}_sinfirma.pdf";
     if (!file_put_contents($this->s__pdf['path'], $tmp)) {
         throw new toba_error("Imposible escribir en '{$this->s__pdf['path']}'. Chequee permisos");
     }
 }

 function instancia__migracion_variables_entorno()
 {
     //Busco los archivos ya sean PHP o de lotes
     $dir_base = toba_dir() . '/bin';
     $archivos_php = toba_manejador_archivos::get_archivos_directorio($dir_base, '|.php|', true);
     $archivos_sh = toba_manejador_archivos::get_archivos_directorio($dir_base, '|.sh|', true);
     $archivos_bat = toba_manejador_archivos::get_archivos_directorio($dir_base, '|.bat|', true);
     //Proceso los cambios de asignacion de variables
     $editor = new toba_editor_archivos();
     $editor->agregar_sustitucion('|\\stoba_instancia\\s*=|', ' TOBA_INSTANCIA=');
     $editor->agregar_sustitucion('|\\stoba_proyecto\\s*=|', ' TOBA_PROYECTO=');
     $editor->agregar_sustitucion('|\\stoba_dir\\s*=|', ' TOBA_DIR=');
     $editor->agregar_sustitucion('|\\$toba_dir|', '$TOBA_DIR');
     $editor->procesar_archivos($archivos_php);
     $editor->procesar_archivos($archivos_sh);
     $editor->procesar_archivos($archivos_bat);
     //Proceso las lecturas de variables en $_SERVER
     $editor2 = new toba_editor_archivos();
     $editor2->agregar_sustitucion('|$_SERVER[\'toba_proyecto\']|', '$_SERVER[\'TOBA_PROYECTO\']');
     $editor2->agregar_sustitucion('|$_SERVER[\'toba_instancia\']|', '$_SERVER[\'TOBA_INSTANCIA\']');
     $editor2->procesar_archivos($archivos_php);
 }

 function evt__form_paleta__generar($datos)
 {
     $this->evt__form_paleta__modificacion($datos);
     $datos = $this->dep('datos')->get();
     $paleta = unserialize($datos['paleta']);
     $template = file_get_contents($this->template);
     if ($datos['proyecto'] == 'toba') {
         $dir_salida = toba_dir();
     } else {
         $dir_salida = toba::instancia()->get_path_proyecto($datos['proyecto']);
     }
     $dir_salida = $dir_salida . '/www/skins/' . $datos['estilo'];
     if (!file_exists($dir_salida)) {
         toba_manejador_archivos::crear_arbol_directorios($dir_salida);
     }
     $archivo_salida = $dir_salida . '/toba.css';
     foreach ($paleta as $clave => $valor) {
         $template = str_replace('{$' . $clave . '}', $valor, $template);
     }
     file_put_contents($archivo_salida, $template);
     $this->pantalla()->set_descripcion('Plantilla css generada. Recuerde generar una imagen <b>barra-sup.gif</b> (o copiarlo de un skin existente) ' . "y guardarla en <b>{$dir_salida}</b>", 'warning');
     $this->dep('datos')->sincronizar();
 }

 function generar_html()
 {
     echo "\n<table class='ei-base ei-esquema-base'>\n";
     echo "<tr><td style='padding:0'>\n";
     echo $this->get_html_barra_editor();
     $this->generar_html_barra_sup(null, true, "ei-esquema-barra-sup");
     $colapsado = isset($this->_colapsado) && $this->_colapsado ? "style='display:none'" : "";
     echo "<div {$colapsado} id='cuerpo_{$this->objeto_js}'>";
     //Campo de sincronizacion con JS
     echo toba_form::hidden($this->_submit, '');
     $this->s__path = toba_dir() . '/temp/' . uniqid() . '.png';
     try {
         $this->_conf->imagen__generar($this->s__path);
     } catch (JpGraphException $e) {
         throw new toba_error("TOBA EI GRAFICO: Error en la librería jpgraph. \n\t\t\t\tEl error reportado fue el siguiente: '" . $e->getMessage() . "'. Si este\n\t\t\t\tes un error de fuentes intente definir el path de las fuentes en\n\t\t\t\tsu sistema a través de la entrada fonts_path en el archivo instancia.ini.\n\t\t\t\tEjemplo: 'fonts_path = /usr/share/fonts/truetype/msttcorefonts/'");
     }
     $destino = array($this->_id);
     $url = toba::vinculador()->get_url(null, null, array(), array('servicio' => 'mostrar_imagen', 'objetos_destino' => $destino));
     echo "<img src='{$url}' {$this->_ancho} {$this->_alto} border='0'>";
     //$this->generar_botones();
     echo "</div></td></tr>\n";
     echo "</table>\n";
 }

 /**
  * Coloca el path de las fuentes apuntando al directorio correcto
  * @ignore
  */
 function set_path_fuentes()
 {
     $this->gd_font_file = toba_dir() . '/php/3ros/securimage/gdfonts/bubblebath.gdf';
     $this->ttf_file = toba_dir() . '/php/3ros/securimage/elephant.ttf';
 }

<?php

require_once toba_dir() . '/php/3ros/cssparser.php';
//----------------------------------------------------------------
class ci_comparador extends toba_ci
{
    protected $estilos;
    protected $contenidos = array();
    protected $analisis;
    function mantener_estado_sesion()
    {
        $propiedades = parent::mantener_estado_sesion();
        $propiedades[] = 'estilos';
        return $propiedades;
    }
    function get_contenido($estilo)
    {
        if (!isset($this->contenidos[$estilo])) {
            $candidato = toba::instalacion()->get_path() . "/www/css/{$estilo}.css";
            if (file_exists($candidato)) {
                $archivo = $candidato;
            } else {
                //Si el archivo no esta en toba, esta en algun proyecto
                $proyectos = toba_info_instancia::get_proyectos_con_estilo($estilo);
                foreach ($proyectos as $proyecto) {
                    $pro = $proyecto['proyecto'];
                    $candidato = toba::instancia()->get_path_proyecto($pro) . "/www/css/{$estilo}.css";
                    if (file_exists($candidato)) {
                        $archivo = $candidato;
                    }
                }

<?php

require_once toba_dir() . '/php/3ros/simpletest/unit_tester.php';
require_once toba_dir() . '/php/3ros/simpletest/mock_objects.php';
//require_once('testing/mocks/hilo_version_test.php');
class toba_test extends UnitTestCase
{
    protected $separar_pruebas = false;
    function separar_pruebas($estado = false)
    {
        $this->separar_pruebas = $estado;
    }
    function tearDown()
    {
        $this->restaurar_estado($this->sentencias_restauracion());
    }
    protected function sentencias_restauracion()
    {
        return array();
    }
    protected function restaurar_estado($sentencias)
    {
        foreach ($sentencias as $sql) {
            $rs = toba_contexto_info::get_db()->ejecutar($sql);
            if (!$rs) {
                $this->Fail("Error restaurando estado:\n{$sql}\n" . toba_contexto_info::get_db()->ErrorMsg());
            }
        }
    }
    /*
     *	Crea un runner customizado por toba (agrega separaciones en el LOG por test)