| 
<?php
/******************************************************************************
 *       BBBB         AAA    RRRR    BBBB      AAA    ZZZZZZ  U     U  L           *
 *       B   B    A    A    R    R   B   B     A   A       ZZ  U     U  L           *
 *       B   B   A     A  R    R   B   B    A      A        ZZ   U     U  L           *
 *       BBBB       A     A  RRRR    BBBB    A     A     Z    U     U  L           *
 *       B   B   AAAAAAA  R  R    B   B   AAAAAAA    Z     U     U  L           *
 *     B    B  A     A  R   R   B    B  A     A   ZZ     U     U  L           *
 *     B    B  A     A  R    R  B    B  A     A  ZZ       U   U   L           *
 *     BBBBB   A     A  R    R  BBBBB   A     A  ZZZZZZ    UUU    LLLLLLL     *
 ******************************************************************************/
 
 /* Ejemplo de utilización de Lista Genérica
 * Descripción: Este sencillo ejemplo muestra el funcionamiento de la lista
 * utilizando datos de tipo entero.
 * Autor: Matías Montes
 * Versión : 2.0
 */
 
 /******************************************************************************/
 /* Librerías y definiciones requeridas */
 /*-------------------------------------*/
 
 require_once("class.Lista.php");
 
 if( !defined("MAX") ) define("MAX", 10);
 
 function CompararEnteros($DatoEnteroIzq, $DatoEnteroDer)
 {
 if ( ($DatoEnteroIzq) == ($DatoEnteroDer) ) $resultado = IGUAL;
 if ( ($DatoEnteroIzq) >  ($DatoEnteroDer) ) $resultado = MAYOR;
 if ( ($DatoEnteroIzq) <  ($DatoEnteroDer) ) $resultado = MENOR;
 
 return $resultado;
 }
 
 /******************************************************************************/
 /* Programa Principal */
 /*--------------------*/
 
 //Instancio la lista
 $L = new Lista("CompararEnteros");
 
 //Inserto algunos datos
 for(    $i=0 ; $i<MAX ; $i++ )
 $L->insertarDato(mt_rand(0, MAX));
 
 //Obtengo el primer nodo
 $cursor = $L->primero();
 
 //Recorro la lista
 while( $cursor != $L->fin() )
 {
 //Pido el dato del cursor
 $miEntero = $L->getDato($cursor);
 //Salida
 echo $miEntero." ";
 $cursor =& $L->siguiente($cursor);
 }
 
 //Destruyo la Lista y libero el espacio usado
 $L->destruir();
 
 ?>
 |